home *** CD-ROM | disk | FTP | other *** search
- 100 REM FAHRENHEIT & CELSIUS
- 110 POKE 53280,2:POKE 53281,1
- 120 PRINTCHR$(147),"FAHRENHEIT & CELSIUS"
- 130 PRINT"OPTION#1 CONVERTING FAHRENHEIT & CELSIUS"
- 140 PRINT"OPTION#2 CONTINIOUS FAHRENHEIT & CELSIUS"
- 150 PRINT"OPTION#3 NONE OF THE ABOVE"
- 160 INPUT "SELECT YOUR OPTION(1-3)";N
- 170 ON N GOTO 2000,2200,5000
- 2000 REM CONVERTING FAHRENHEIT & CELSIUS
- 2010 PRINTCHR$(147):POKE53280,6:POKE53281,7
- 2020 PRINT"OPTION#1 CONVERT DEG.F TO DEG. C"
- 2025 PRINT"OPTION#2 CONVERT DEG.C TO DEG. F"
- 2029 INPUT"SELECT OPTION";Y
- 2030 ON Y GOTO 2100,2050
- 2050 PRINTCHR$(147):INPUT"ENTER DEGREES CELSIUS:";C
- 2060 F=(C*9)/5+32
- 2070 PRINTC;"DEG. CELSIUS=";F;"DEG FAHRENHEIT"
- 2080 PRINT
- 2090 GOTO 2140
- 2100 PRINTCHR$(147):INPUT"ENTER DEGREES FAHRENHEIT:";F
- 2110 C=(F-32)*5/9
- 2120 PRINTF;"DEG. FAHRENHEIT=";C;"DEG. CELSIUS"
- 2130 PRINT
- 2140 INPUT"ANOTHER CONVERSION OR MENU(Y/M)";B$
- 2150 IF B$="Y" THEN 2010
- 2160 IF B$="M" THEN 100
- 2200 PRINTCHR$(147):POKE53280,1:POKE53281,7
- 2203 PRINT"OPTION 1 CELSIUS TO FAHRENHEIT"
- 2205 PRINT"OPTION 2 FAHRENHEIT TO CELSIUS"
- 2210 PRINT"OPTION 3 RETURN TO MENU"
- 2220 INPUT"SELECT YOUR OPTION(1-3)";A
- 2230 ON A GOTO 2235,2395,100
- 2235 PRINTCHR$(147)
- 2300 PRINT"CONVERT CELSIUS TO FAHRENHEIT"
- 2305 FOR C= 0 TO 100
- 2310 F=(C*9)/5+32
- 2320 PRINTC;"DEG. CELSIUS=";F;"DEG. FAHRENHEIT"
- 2330 FOR D= 0 TO 3000:NEXT D
- 2340 NEXT C
- 2350 GOTO 4000
- 2395 PRINTCHR$(147)
- 2400 PRINT"CONVE
- 18497 RENHEEIT TO CELSIUS"
- 2410 FOR F=0 TO 100
- 2420 C=(F-32)*5/9
- 2430 PRINTF;"DEG. FAHRENHEIT=";C"DEG. CELSIUS"
- 2440 PRINT
- 2450 FOR D= 0 TO 3000:NEXT D
- 2455 NEXT F
- 2460 GOTO 4000
- 4000 INPUT"RETURN TO OPTION #2 OR THE MENU(Y/M)";X$
- 4010 IF X$="Y" THEN 2200
- 4020 IF X$="M" THEN 100
- 5000 END
-