Source Code
10 REM TEMP CONVERSION 2
100 PRINT TAB (15),"**************"
110 PRINT TAB (15),"* *"
120 PRINT TAB (15),"*TEMPERATURE *"
130 PRINT TAB (15),"*CONVERSION *"
140 PRINT TAB (15),"*PROBLEM 2 *"
150 PRINT TAB (15),"**************"
160 LET E=0
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 320
250 IF Q=2 THEN GOTO 400
260 IF Q=3 THEN GOTO 500
270 LET E=E+1
280 IF E>3 THEN GOTO 480
290 PRINT "EXCUSE ME, ONLY 1,2,OR 3 PLEASE"
300 IF E>3 THEN GOTO 480
310 GOTO 230
320 LET K=K+1
330 PRINT "PLEASE TYPE IN YOUR CELSIUS TEMPERATURE"
340 INPUT C
350 LET F=(9*C+160)/5
360 PRINT
370 PRINT "CASE NUMBER";K
380 PRINT "THE EQUIVALENT FAHRENHEIT TEMPERATURE IS ";F
390 GOTO 180
400 LET K=K+1
410 PRINT "PLEASE TYPE IN YOUR FAHRENHEIT TEMPERATURE"
420 INPUT F
430 LET C=(5*F-160)/9
440 PRINT
450 PRINT "CASE NUMBER";K
460 PRINT "THE EQUIVALENT CELSIUS TEMPERATURE IS ";C
470 GOTO 180
480 PRINT "I/M SORRY, BUT YOU HAVE MADE TOO MANY MISTAKES"
490 PRINT "THEREFORE,YOUR RUN IS TERMINATED"
600 STOP
610 SAVE "1010%8"
620 RUN