Source Code
10 REM TEMPERATURE CONVERSION
100 PRINT TAB (15),"***************"
110 PRINT TAB (15),"* *"
120 PRINT TAB (15),"* TEMPERATURE *"
130 PRINT TAB (15),"* CONVERSION *"
140 PRINT TAB (15),"* PROBLEM *"
150 PRINT TAB (15),"* *"
160 PRINT TAB (15),"***************"
170 LET K=0
180 PRINT
190 PRINT "FOR CONVERSION FROM C TO F, TYPE 1"
200 PRINT "FOR CONVERSION FROM F TO C, TYPE 2"
210 PRINT "TO TERMINATE THE PROGRAM, TYPE 3"
220 PRINT
230 INPUT Q
240 IF Q=1 THEN GOTO 290
250 IF Q=2 THEN GOTO 370
260 IF Q=3 THEN GOTO 450
270 PRINT "EXCUSE ME, ONLY 1,2, OR 3,PLEASE"
280 GOTO 230
290 LET K=K+1
300 PRINT "PLEASE TYPE IN YOUR CELSIUS TEMPERATURE"
310 INPUT C
320 LET F=(9*C+160)/5
330 PRINT
340 PRINT "CASE NUMBER";K
350 PRINT "THE EQUIVALENT FAHRENHEIT TEMPERATURE IS ";F
360 GOTO 180
370 LET K=K+1
380 PRINT "PLEASE TYPE IN YOUR FAHRENHEIT TEMPERATURE"
390 INPUT F
400 LET C=(5*F-160)/9
410 PRINT
420 PRINT "CASE NUMBER";K
430 PRINT "THE EQUIVALENT CELSIUS TEMPERATURE IS ";C
440 GOTO 180
441 SAVE "1010%6"
450 RUN