Source Code
5 REM TEMP CONVERSION
10 PRINT "TEMPERATURE CONVERSION"
11 PRINT
20 PRINT "DO YOU WISH TO CONVERT C TO F(Y/N)"
21 INPUT A$
30 IF A$="Y" THEN GOTO 80
40 PRINT "ENTER DEGREES F"
41 INPUT F
42 PRINT F
50 GOSUB 2000
60 PRINT "ARE YOU FINISHED(Y/N)"
61 INPUT B$
70 IF B$="N" THEN GOTO 40
75 STOP
80 PRINT "ENTER DEGREES C"
81 INPUT C
82 PRINT C
90 GOSUB 1000
100 PRINT "ARE YOU FINISHED(Y/N)"
101 INPUT C$
110 IF C$="N" THEN GOTO 80
120 STOP
\n1000 REM CEL TO FAHR CONV
\n1010 LET F=(9/5)*C+32
\n1020 PRINT C;" DEGREES CELSIUS= ";F;" DEGREES FAHRENHEIT"
\n1030 RETURN
\n2000 REM FAHR TO CEL CONV
\n2010 LET C=(F-12)*(5/9)
\n2020 PRINT F;" DEGREES FAHRENHEIT= ";C;" DEGREES CELSIUS"
\n2030 RETURN
\n3000 SAVE "1004%5"
\n3010 RUN
