home *** CD-ROM | disk | FTP | other *** search
- 5 PRINT"[147]"
- 8 POKE53280,0
- 9 POKE53281,0
- 10 FORX=1TO5000:NEXT
- 20 PRINT""
- 30 PRINT" COMMODORE 64"
- 40 PRINT
- 50 PRINT" PRESENTS"
- 60 PRINT
- 70 PRINT" THE TEMPERATURE CONVERSION"
- 80 PRINT
- 90 PRINT" CALCULATOR"
- 100 FORX=1TO5000:NEXT
- 110 PRINT"[147]"
- 120 FORX=1TO5000:NEXT
- 130 POKE53281,1
- 140 PRINT"[147][144]"
- 150 PRINT" [149] [146]"
- 160 PRINT" [144] [149] [146]"
- 170 PRINT" [144] TEMPERATURE CONVERSION [149] [146]"
- 180 PRINT" [144] [149] [146]"
- 190 PRINT" [146][144]"
- 200 PRINT
- 210 PRINT" WELCOME TO THE TEMPERATURE CONVERSION"
- 220 PRINT" CALCULATOR .........."
- 230 PRINT
- 240 PRINT" THIS HANDY PROGRAM IS DESIGNED TO"
- 250 PRINT" HELP YOU, BY CONVERTING YOUR READING"
- 260 PRINT" OF TEMPERATURE FROM FARENHEIT [144]TO"
- 270 PRINT" CELSIUS[144], OR VICE-VERSA."
- 275 PRINT
- 280 FORI=1TO7
- 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]"
- 290 NEXTI
- 295 PRINT
- 300 PRINT" PLEASE PRESS ANY KEY TO CONTINUE[144]"
- 310 GETA$:IFA$=""THEN310
- 320 PRINT"[147]"
- 330 PRINT" [154] [146]"
- 340 PRINT" 1 - FARENHEIT TO CELSIUS [146]"
- 350 PRINT" [146]"
- 360 PRINT" 2 - CELSIUS TO FARENHEIT
- 29196 [153]" WAIT"
- 371 [153]" CONT 3 - END PROGRAM WAIT"
- 372 [153]" WAIT"
- 373 [153]"STOP"
- 375 [153]
- 380 [153]" STOPPLEASE ENTER YOUR CHOICE:"
- 385 [153]
- 390 [133]A
- 400 [139]A[179]1[167]320
- 410 [139]A[177]3[167]320
- 420 [145]A[137]1000,2000,3000
- 1000 [153]"LOAD"
- 1010 [153]" PLEASE ENTER TEMPERATURE IN FARENHEIT"
- 1020 [153]
- 1030 [133]F
- 1040 C[178](F[171]32)[172]5[173]9
- 1050 [153]"LOAD"
- 1060 [153]" TEMPERATURE CONVERSION"
- 1070 [153]""
- 1080 [153]" (null) FARENHEIT =";F
- 1085 [153]
- 1090 [153]" (null) CELCIUS =";C
- 1165 [153]""
- 1168 [153]" PLEASE
- 21331 ANY KEY TO CONTINUESTOP"
- 1170 [161]A$:[139]A$[178]""[167]1170
- 1180 [137]320
- 2000 [153]"LOAD"
- 2010 [153]" PLEASE ENTER TEMPERATURE IN CELSIUS"
- 2020 [153]
- 2030 [133]C
- 2040 F[178](C[172]9)[173]5[170]32
- 2050 [153]"LOAD"
- 2060 [153]" TEMPERATURE CONVERSION"
- 2070 [153]""
- 2080 [153]" (null) CELSIUS =";C
- 2085 [153]
- 2090 [153]" (null) FARENHEIT =";F
- 2165 [153]""
- 2168 [153]" PLEASE PRESS ANY KEY TO CONTINUESTOP"
- 2170 [161]A$:[139]A$[178]""[167]2170
- 2180 [137]320
- 3000 [153]"LOAD"
- 3010 [151]53281,0
- 3020 [153]" THANK YOU, HAVE A NICE DAY."
- 3030 [129]X[178]1[164]5000:[130]
- 3040 [153]"LOAD"
- 9999 [162]
-