home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / F-AND-C (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  55 lines
  1. 100 REM FAHRENHEIT & CELSIUS
  2. 110 POKE 53280,2:POKE 53281,1
  3. 120 PRINTCHR$(147),"FAHRENHEIT & CELSIUS"
  4. 130 PRINT"OPTION#1 CONVERTING FAHRENHEIT & CELSIUS"
  5. 140 PRINT"OPTION#2 CONTINIOUS FAHRENHEIT & CELSIUS"
  6. 150 PRINT"OPTION#3 NONE OF THE ABOVE"
  7. 160 INPUT "SELECT YOUR OPTION(1-3)";N
  8. 170 ON N GOTO 2000,2200,5000
  9. 2000 REM CONVERTING FAHRENHEIT & CELSIUS
  10. 2010 PRINTCHR$(147):POKE53280,6:POKE53281,7
  11. 2020 PRINT"OPTION#1 CONVERT DEG.F TO DEG. C"
  12. 2025 PRINT"OPTION#2 CONVERT DEG.C TO DEG. F"
  13. 2029 INPUT"SELECT OPTION";Y
  14. 2030 ON Y GOTO 2100,2050
  15. 2050 PRINTCHR$(147):INPUT"ENTER DEGREES CELSIUS:";C
  16. 2060 F=(C*9)/5+32
  17. 2070 PRINTC;"DEG. CELSIUS=";F;"DEG FAHRENHEIT"
  18. 2080 PRINT
  19. 2090 GOTO 2140
  20. 2100 PRINTCHR$(147):INPUT"ENTER DEGREES FAHRENHEIT:";F
  21. 2110 C=(F-32)*5/9
  22. 2120 PRINTF;"DEG. FAHRENHEIT=";C;"DEG. CELSIUS"
  23. 2130 PRINT
  24. 2140 INPUT"ANOTHER CONVERSION OR MENU(Y/M)";B$
  25. 2150 IF B$="Y" THEN 2010
  26. 2160 IF B$="M" THEN 100
  27. 2200 PRINTCHR$(147):POKE53280,1:POKE53281,7
  28. 2203 PRINT"OPTION 1 CELSIUS TO FAHRENHEIT"
  29. 2205 PRINT"OPTION 2 FAHRENHEIT TO CELSIUS"
  30. 2210 PRINT"OPTION 3 RETURN TO MENU"
  31. 2220 INPUT"SELECT YOUR OPTION(1-3)";A
  32. 2230 ON A GOTO 2235,2395,100
  33. 2235 PRINTCHR$(147)
  34. 2300 PRINT"CONVERT CELSIUS TO FAHRENHEIT"
  35. 2305 FOR C= 0 TO 100
  36. 2310 F=(C*9)/5+32
  37. 2320 PRINTC;"DEG. CELSIUS=";F;"DEG. FAHRENHEIT"
  38. 2330 FOR D= 0 TO 3000:NEXT D
  39. 2340 NEXT C
  40. 2350 GOTO 4000
  41. 2395 PRINTCHR$(147)
  42. 2400 PRINT"CONVE    
  43. 18497 RENHEEIT TO CELSIUS"
  44. 2410 FOR F=0 TO 100
  45. 2420 C=(F-32)*5/9
  46. 2430 PRINTF;"DEG. FAHRENHEIT=";C"DEG. CELSIUS"
  47. 2440 PRINT
  48. 2450 FOR D= 0 TO 3000:NEXT D
  49. 2455 NEXT F
  50. 2460 GOTO 4000
  51. 4000 INPUT"RETURN TO OPTION #2 OR THE MENU(Y/M)";X$
  52. 4010 IF X$="Y" THEN 2200
  53. 4020 IF X$="M" THEN 100
  54. 5000 END
  55.