home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / TEMP-CONVERSION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  91 lines
  1. 5 PRINT"[147]"
  2. 8 POKE53280,0
  3. 9 POKE53281,0
  4. 10 FORX=1TO5000:NEXT
  5. 20 PRINT""
  6. 30 PRINT"              COMMODORE 64"
  7. 40 PRINT
  8. 50 PRINT"                PRESENTS"
  9. 60 PRINT
  10. 70 PRINT"       THE TEMPERATURE CONVERSION"
  11. 80 PRINT
  12. 90 PRINT"               CALCULATOR"
  13. 100 FORX=1TO5000:NEXT
  14. 110 PRINT"[147]"
  15. 120 FORX=1TO5000:NEXT
  16. 130 POKE53281,1
  17. 140 PRINT"[147][144]"
  18. 150 PRINT" [149]                                      [146]"
  19. 160 PRINT"  [144]                                    [149] [146]"
  20. 170 PRINT"  [144]       TEMPERATURE CONVERSION       [149] [146]"
  21. 180 PRINT"  [144]                                    [149] [146]"
  22. 190 PRINT"                                       [146][144]"
  23. 200 PRINT
  24. 210 PRINT" WELCOME TO THE TEMPERATURE CONVERSION"
  25. 220 PRINT" CALCULATOR .........."
  26. 230 PRINT
  27. 240 PRINT" THIS HANDY PROGRAM IS DESIGNED TO"
  28. 250 PRINT" HELP YOU, BY CONVERTING YOUR READING"
  29. 260 PRINT" OF TEMPERATURE FROM FARENHEIT [144]TO"
  30. 270 PRINT" CELSIUS[144], OR VICE-VERSA."
  31. 275 PRINT
  32. 280 FORI=1TO7
  33. 285 PRINT" [156][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  34. 290 NEXTI
  35. 295 PRINT
  36. 300 PRINT"    PLEASE PRESS ANY KEY TO CONTINUE[144]"
  37. 310 GETA$:IFA$=""THEN310
  38. 320 PRINT"[147]"
  39. 330 PRINT" [154]                                      [146]"
  40. 340 PRINT"  1 - FARENHEIT TO CELSIUS             [146]"
  41. 350 PRINT"                                       [146]"
  42. 360 PRINT"  2 - CELSIUS TO FARENHEIT                 
  43. 29196 [153]"                                       WAIT"
  44. 371 [153]" CONT 3 - END PROGRAM                      WAIT"
  45. 372 [153]"                                       WAIT"
  46. 373 [153]"STOP"
  47. 375 [153]
  48. 380 [153]" STOPPLEASE ENTER YOUR CHOICE:"
  49. 385 [153]
  50. 390 [133]A
  51. 400 [139]A[179]1[167]320
  52. 410 [139]A[177]3[167]320
  53. 420 [145]A[137]1000,2000,3000
  54. 1000 [153]"LOAD"
  55. 1010 [153]" PLEASE ENTER TEMPERATURE IN FARENHEIT"
  56. 1020 [153]
  57. 1030 [133]F
  58. 1040 C[178](F[171]32)[172]5[173]9
  59. 1050 [153]"LOAD"
  60. 1060 [153]"         TEMPERATURE CONVERSION"
  61. 1070 [153]""
  62. 1080 [153]"        (null) FARENHEIT =";F
  63. 1085 [153]
  64. 1090 [153]"        (null) CELCIUS   =";C
  65. 1165 [153]""
  66. 1168 [153]"    PLEASE    
  67. 21331  ANY KEY TO CONTINUESTOP"
  68. 1170 [161]A$:[139]A$[178]""[167]1170
  69. 1180 [137]320
  70. 2000 [153]"LOAD"
  71. 2010 [153]"  PLEASE ENTER TEMPERATURE IN CELSIUS"
  72. 2020 [153]
  73. 2030 [133]C
  74. 2040 F[178](C[172]9)[173]5[170]32
  75. 2050 [153]"LOAD"
  76. 2060 [153]"         TEMPERATURE CONVERSION"
  77. 2070 [153]""
  78. 2080 [153]"          (null) CELSIUS   =";C
  79. 2085 [153]
  80. 2090 [153]"          (null) FARENHEIT =";F
  81. 2165 [153]""
  82. 2168 [153]"    PLEASE PRESS ANY KEY TO CONTINUESTOP"
  83. 2170 [161]A$:[139]A$[178]""[167]2170
  84. 2180 [137]320
  85. 3000 [153]"LOAD"
  86. 3010 [151]53281,0
  87. 3020 [153]" THANK YOU, HAVE A NICE DAY."
  88. 3030 [129]X[178]1[164]5000:[130]
  89. 3040 [153]"LOAD"
  90. 9999 [162]
  91.