Menghitung Suhu dengan Data & Read

10 CLS
RESTORE
PRINT "Menghitung Suhu Fahrenheit ke Celcius dan Reaumur."
DATA 77,113

READ ce, re
LET c% = (ce - 32) * 5 / 9
LET r% = (re - 32) * 4 / 9
PRINT ce; "Fahrenheit = "; c%; "Celcius"
PRINT re; "Fahrenheit = "; r%; "Reaumur"
INPUT "mengulang Y/N =", meng$
IF meng$ = "Y" OR meng$ = "y" THEN GOTO 10
END


Proses yg dilakukan
1. pembersihan layar
2. me-restore data yang telah digunakan
3. mencetak
4. terdapat data yang akan digunakan
5. melakukan proses read dari kiri ke kanan
6. melakakukan penghitungan
7. mencetak hasil
8. menginput pengulangan
9. pengkoreksian variabel
10. bila "Y" maka akan mengulang k "10 CLS" dan data mengulang dari kiri lagi, jika tidak menggunakan "Restore" maka proses read akan mengambil data dari data selanjutnya (yang ke-3), karena data yang ke-3 tdk ad, akan mengakibatkan "Out Of Data".
11. bila "T" maka proses selesai.

Contoh gambar :

 Garis Merah = sebagai label/flag
 Garis Coklat = sebagai pengulangan membaca data dari awal/kiri lgi, bila tidak menggunakan ini maka data akan di read dri data selanjutnya (yang ke -3) dan hasil akan menjadi "Out Of Data"