home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ALARM-CLOCK / c64.bas
Unknown  |  2019-04-13  |  2.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '10 GOSUB 9000 default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 47 4f 53 55 42 | 20 39 30 30 30 0a 32 30 |10 GOSUB| 9000.20|
|00000010| 20 50 52 49 4e 54 22 93 | 11 11 2a 2a 54 49 4d 45 | PRINT".|..**TIME|
|00000020| 53 20 57 41 49 54 53 20 | 46 4f 52 20 4e 4f 20 4d |S WAITS |FOR NO M|
|00000030| 41 4e 20 20 2a 2a 11 00 | 0a 33 30 20 50 52 49 4e |AN  **..|.30 PRIN|
|00000040| 54 22 43 4c 4f 43 4b 20 | 49 4e 53 54 52 55 43 54 |T"CLOCK |INSTRUCT|
|00000050| 49 4f 4e 53 3a 11 22 0a | 34 30 20 50 52 49 4e 54 |IONS:.".|40 PRINT|
|00000060| 22 53 59 53 20 38 33 32 | 20 3a 20 54 55 52 4e 20 |"SYS 832| : TURN |
|00000070| 4f 4e 20 44 49 53 50 4c | 41 59 00 0a 35 30 20 50 |ON DISPL|AY..50 P|
|00000080| 52 49 4e 54 22 53 59 53 | 20 39 39 34 3a 20 20 54 |RINT"SYS| 994:  T|
|00000090| 55 52 4e 20 4f 46 46 20 | 44 49 53 50 4c 41 59 00 |URN OFF |DISPLAY.|
|000000a0| 0a 36 30 20 50 52 49 4e | 54 22 50 4f 4b 45 20 39 |.60 PRIN|T"POKE 9|
|000000b0| 38 32 2c 4e 3a 20 43 48 | 41 4e 47 45 20 43 4f 4c |82,N: CH|ANGE COL|
|000000c0| 4f 55 52 00 0a 37 30 20 | 50 52 49 4e 54 22 47 4f |OUR..70 |PRINT"GO|
|000000d0| 53 55 42 20 39 31 34 30 | 3a 52 45 53 45 54 20 41 |SUB 9140|:RESET A|
|000000e0| 4c 41 52 4d 00 0a 38 30 | 20 50 52 49 4e 54 22 46 |LARM..80| PRINT"F|
|000000f0| 31 3a 20 20 20 20 20 54 | 55 52 4e 20 4f 46 46 20 |1:     T|URN OFF |
|00000100| 41 4c 41 52 4d 00 0a 39 | 30 20 47 4f 53 55 42 20 |ALARM..9|0 GOSUB |
|00000110| 39 31 34 30 3a 45 4e 44 | 3a 20 52 45 4d 20 53 45 |9140:END|: REM SE|
|00000120| 54 20 4f 52 20 52 45 53 | 45 54 20 41 4c 41 52 4d |T OR RES|ET ALARM|
|00000130| 0a 38 39 39 30 20 52 45 | 4d 20 42 41 4c 41 4e 43 |.8990 RE|M BALANC|
|00000140| 45 20 41 52 45 20 53 55 | 42 53 20 54 48 41 54 20 |E ARE SU|BS THAT |
|00000150| 43 41 4e 20 42 45 20 55 | 53 45 44 20 41 4c 4f 4e |CAN BE U|SED ALON|
|00000160| 45 0a 39 30 30 30 20 43 | 48 3d 30 3a 46 4f 52 49 |E.9000 C|H=0:FORI|
|00000170| 3d 38 33 32 54 4f 31 30 | 30 38 0a 39 30 31 30 20 |=832TO10|08.9010 |
|00000180| 52 45 41 44 41 3a 50 4f | 4b 45 49 2c 41 3a 43 48 |READA:PO|KEI,A:CH|
|00000190| 3d 43 48 2b 41 3a 4e 45 | 58 54 0a 39 30 31 35 20 |=CH+A:NE|XT.9015 |
|000001a0| 46 4f 52 49 3d 36 37 39 | 54 4f 37 34 34 3a 52 45 |FORI=679|TO744:RE|
|000001b0| 41 44 41 3a 50 4f 4b 45 | 49 2c 41 3a 43 48 3d 43 |ADA:POKE|I,A:CH=C|
|000001c0| 48 2b 41 3a 4e 45 58 54 | 0a 39 30 32 30 20 49 46 |H+A:NEXT|.9020 IF|
|000001d0| 43 48 2d 32 33 36 31 34 | 54 48 45 4e 50 52 49 4e |CH-23614|THENPRIN|
|000001e0| 54 22 57 48 4f 41 2e 2e | 2e 44 41 54 41 20 45 52 |T"WHOA..|.DATA ER|
|000001f0| 52 4f 52 3a 53 54 4f 50 | 3a 4e 4f 54 45 20 43 48 |ROR:STOP|:NOTE CH|
|00000200| 45 43 4b 53 55 4d 00 0a | 39 30 33 30 20 49 4e 50 |ECKSUM..|9030 INP|
|00000210| 55 54 22 93 11 11 11 11 | 11 49 53 20 49 54 20 41 |UT".....|.IS IT A|
|00000220| 4d 20 4f 52 20 50 4d 22 | 3b 41 24 3a 49 4e 50 55 |M OR PM"|;A$:INPU|
|00000230| 54 22 11 41 4e 44 20 54 | 48 45 20 48 4f 55 52 22 |T".AND T|HE HOUR"|
|00000240| 3b 48 0a 39 30 34 30 20 | 50 52 49 4e 54 22 11 11 |;H.9040 |PRINT"..|
|00000250| 45 4e 54 45 52 20 54 48 | 45 20 4e 45 58 54 20 4d |ENTER TH|E NEXT M|
|00000260| 49 4e 55 54 45 3b 22 3a | 50 52 49 4e 54 22 50 52 |INUTE;":|PRINT"PR|
|00000270| 45 53 53 20 27 52 45 54 | 55 52 4e 27 20 54 4f 20 |ESS 'RET|URN' TO |
|00000280| 53 54 41 52 54 20 43 4c | 4f 43 4b 3a 11 00 0a 39 |START CL|OCK:...9|
|00000290| 30 35 30 20 49 46 48 3e | 31 32 54 48 45 4e 50 24 |050 IFH>|12THENP$|
|000002a0| 3d 22 50 22 3a 48 3d 48 | 2d 31 32 3a 47 4f 54 4f |="P":H=H|-12:GOTO|
|000002b0| 39 30 35 30 0a 39 30 36 | 30 20 49 46 48 3e 39 54 |9050.906|0 IFH>9T|
|000002c0| 48 45 4e 48 3d 48 2b 36 | 0a 39 30 37 30 20 49 46 |HENH=H+6|.9070 IF|
|000002d0| 4c 45 46 54 24 28 41 24 | 2c 31 29 3d 22 50 22 54 |LEFT$(A$|,1)="P"T|
|000002e0| 48 45 4e 48 3d 48 2b 31 | 32 38 0a 39 30 38 30 20 |HENH=H+1|28.9080 |
|000002f0| 43 3d 35 36 33 32 38 3a | 50 4f 4b 45 43 2b 33 2c |C=56328:|POKEC+3,|
|00000300| 48 3a 50 4f 4b 45 43 2b | 31 2c 30 0a 39 30 39 30 |H:POKEC+|1,0.9090|
|00000310| 20 49 4e 50 55 54 4d 3a | 4d 3d 4d 2b 49 4e 54 28 | INPUTM:|M=M+INT(|
|00000320| 4d 2f 31 30 29 2a 36 0a | 39 31 30 30 20 50 4f 4b |M/10)*6.|9100 POK|
|00000330| 45 43 2b 32 2c 4d 3a 50 | 4f 4b 45 43 2c 30 3a 53 |EC+2,M:P|OKEC,0:S|
|00000340| 59 53 38 33 32 3a 50 52 | 49 4e 54 22 11 11 49 46 |YS832:PR|INT"..IF|
|00000350| 20 4e 4f 54 20 4f 4b 2c | 20 50 52 45 53 53 20 41 | NOT OK,| PRESS A|
|00000360| 4e 59 20 4b 45 59 00 0a | 39 31 31 30 20 46 4f 52 |NY KEY..|9110 FOR|
|00000370| 49 3d 31 54 4f 31 30 30 | 30 3a 49 46 50 45 45 4b |I=1TO100|0:IFPEEK|
|00000380| 28 31 39 38 29 54 48 45 | 4e 50 4f 4b 45 31 39 38 |(198)THE|NPOKE198|
|00000390| 2c 30 3a 53 59 53 39 39 | 34 3a 47 4f 54 4f 39 30 |,0:SYS99|4:GOTO90|
|000003a0| 33 30 0a 39 31 32 30 20 | 4e 45 58 54 3a 52 45 54 |30.9120 |NEXT:RET|
|000003b0| 55 52 4e 0a 39 31 34 30 | 20 50 52 49 4e 54 22 57 |URN.9140| PRINT"W|
|000003c0| 48 41 54 20 54 49 4d 45 | 20 57 4f 55 4c 44 20 59 |HAT TIME| WOULD Y|
|000003d0| 4f 55 20 4c 49 4b 45 20 | 54 48 45 20 41 4c 41 52 |OU LIKE |THE ALAR|
|000003e0| 4d 3f 00 0a 39 31 34 35 | 20 49 4e 50 55 54 22 41 |M?..9145| INPUT"A|
|000003f0| 4d 20 4f 52 20 50 4d 22 | 3b 41 24 3a 41 24 3d 4c |M OR PM"|;A$:A$=L|
|00000400| 45 46 54 24 28 41 24 2c | 31 29 0a 39 31 35 30 20 |EFT$(A$,|1).9150 |
|00000410| 49 4e 50 55 54 22 54 48 | 45 20 48 4f 55 52 22 3b |INPUT"TH|E HOUR";|
|00000420| 48 0a 39 31 35 35 20 49 | 46 48 3e 31 32 54 48 45 |H.9155 I|FH>12THE|
|00000430| 4e 41 24 3d 22 50 22 3a | 48 3d 48 2d 31 32 3a 47 |NA$="P":|H=H-12:G|
|00000440| 4f 54 4f 20 39 31 35 35 | 0a 39 31 36 30 20 48 3d |OTO 9155|.9160 H=|
|00000450| 48 2d 36 2a 28 48 3e 39 | 29 2d 31 32 38 2a 28 41 |H-6*(H>9|)-128*(A|
|00000460| 24 3d 22 50 22 29 3a 52 | 45 4d 20 43 4f 4e 56 45 |$="P"):R|EM CONVE|
|00000470| 52 54 20 54 4f 20 42 43 | 44 20 41 4e 44 20 41 44 |RT TO BC|D AND AD|
|00000480| 44 20 41 4d 2f 50 4d 20 | 49 4e 44 49 43 41 54 4f |D AM/PM |INDICATO|
|00000490| 52 0a 39 31 36 35 20 49 | 4e 50 55 54 22 54 48 45 |R.9165 I|NPUT"THE|
|000004a0| 20 4d 49 4e 55 54 45 22 | 3b 4d 0a 39 31 37 30 20 | MINUTE"|;M.9170 |
|000004b0| 4d 3d 4d 2b 49 4e 54 28 | 4d 2f 31 30 29 2a 36 0a |M=M+INT(|M/10)*6.|
|000004c0| 39 31 37 35 20 43 3d 35 | 36 33 32 38 3a 50 4f 4b |9175 C=5|6328:POK|
|000004d0| 45 43 2b 37 2c 31 33 36 | 3a 50 4f 4b 45 43 2b 33 |EC+7,136|:POKEC+3|
|000004e0| 2c 48 3a 50 4f 4b 45 43 | 2b 32 2c 4d 3a 50 4f 4b |,H:POKEC|+2,M:POK|
|000004f0| 45 43 2c 31 3a 50 4f 4b | 45 43 2b 37 2c 38 3a 52 |EC,1:POK|EC+7,8:R|
|00000500| 45 4d 20 41 4c 41 52 4d | 0a 39 31 38 30 20 50 4f |EM ALARM|.9180 PO|
|00000510| 4b 45 35 34 32 37 33 2c | 39 39 3a 50 4f 4b 45 35 |KE54273,|99:POKE5|
|00000520| 34 37 32 38 2c 32 34 30 | 3a 50 4f 4b 45 35 34 32 |4728,240|:POKE542|
|00000530| 37 36 2c 32 31 0a 39 31 | 38 35 20 50 4f 4b 45 35 |76,21.91|85 POKE5|
|00000540| 34 37 32 38 2c 32 3a 50 | 4f 4b 45 35 34 32 39 30 |4728,2:P|OKE54290|
|00000550| 2c 31 37 3a 52 45 4d 20 | 53 4f 55 4e 44 0a 39 31 |,17:REM |SOUND.91|
|00000560| 39 30 20 52 45 54 55 52 | 4e 0a 39 32 30 30 20 44 |90 RETUR|N.9200 D|
|00000570| 41 54 41 20 31 32 30 2c | 31 37 33 2c 32 30 2c 33 |ATA 120,|173,20,3|
|00000580| 09 0a 39 32 31 30 20 44 | 41 54 41 20 31 36 32 2c |..9210 D|ATA 162,|
|00000590| 33 2c 32 33 34 2c 32 33 | 34 2c 32 33 34 2c 31 34 |3,234,23|4,234,14|
|000005a0| 32 2c 32 31 2c 33 2c 38 | 38 2c 39 36 2c 31 37 33 |2,21,3,8|8,96,173|
|000005b0| 2c 31 31 2c 32 32 30 2c | 31 37 30 2c 34 31 0a 39 |,11,220,|170,41.9|
|000005c0| 32 32 30 20 44 41 54 41 | 31 35 2c 32 34 2c 31 30 |220 DATA|15,24,10|
|000005d0| 35 2c 34 38 2c 31 34 31 | 2c 36 37 2c 34 2c 31 33 |5,48,141|,67,4,13|
|000005e0| 38 2c 31 36 2c 34 2c 31 | 36 32 2c 31 36 2c 31 36 |8,16,4,1|62,16,16|
|000005f0| 2c 32 2c 31 36 32 2c 31 | 2c 31 34 32 0a 39 32 33 |,2,162,1|,142.923|
|00000600| 30 20 44 41 54 41 37 37 | 2c 34 2c 31 36 32 2c 33 |0 DATA77|,4,162,3|
|00000610| 32 2c 34 31 2c 31 36 2c | 32 34 30 2c 32 2c 31 36 |2,41,16,|240,2,16|
|00000620| 32 2c 34 39 2c 31 34 32 | 2c 36 36 2c 34 2c 31 37 |2,49,142|,66,4,17|
|00000630| 33 2c 31 30 2c 32 32 30 | 0a 39 32 34 30 20 44 41 |3,10,220|.9240 DA|
|00000640| 54 41 31 37 30 2c 34 31 | 2c 31 35 2c 31 30 35 2c |TA170,41|,15,105,|
|00000650| 34 38 2c 31 34 31 2c 37 | 30 2c 34 2c 31 33 38 2c |48,141,7|0,4,138,|
|00000660| 37 34 2c 37 34 2c 37 34 | 2c 37 34 2c 32 34 2c 31 |74,74,74|,74,24,1|
|00000670| 30 35 2c 34 38 0a 39 32 | 35 30 20 44 41 54 41 31 |05,48.92|50 DATA1|
|00000680| 34 31 2c 36 39 2c 34 2c | 31 37 33 2c 39 2c 32 32 |41,69,4,|173,9,22|
|00000690| 30 2c 31 37 30 2c 34 31 | 2c 31 35 2c 31 30 35 2c |0,170,41|,15,105,|
|000006a0| 34 38 2c 31 34 31 2c 37 | 33 2c 34 2c 31 33 38 2c |48,141,7|3,4,138,|
|000006b0| 37 34 0a 39 32 36 30 20 | 44 41 54 41 37 34 2c 37 |74.9260 |DATA74,7|
|000006c0| 34 2c 37 34 2c 32 34 2c | 31 30 35 2c 34 38 2c 31 |4,74,24,|105,48,1|
|000006d0| 34 31 2c 37 32 2c 34 2c | 31 37 33 2c 38 2c 32 32 |41,72,4,|173,8,22|
|000006e0| 30 2c 31 30 35 2c 34 38 | 2c 31 34 31 2c 37 35 0a |0,105,48|,141,75.|
|000006f0| 39 32 37 30 20 44 41 54 | 41 34 2c 31 36 39 2c 33 |9270 DAT|A4,169,3|
|00000700| 32 2c 31 34 31 2c 36 35 | 2c 34 2c 31 34 31 2c 37 |2,141,65|,4,141,7|
|00000710| 36 2c 34 2c 31 34 31 2c | 37 39 2c 34 2c 31 36 32 |6,4,141,|79,4,162|
|00000720| 2c 31 35 2c 31 35 37 2c | 32 34 0a 39 32 38 30 20 |,15,157,|24.9280 |
|00000730| 44 41 54 41 34 2c 32 30 | 32 2c 32 30 38 2c 32 35 |DATA4,20|2,208,25|
|00000740| 30 2c 31 36 39 2c 35 38 | 2c 31 34 31 2c 36 38 2c |0,169,58|,141,68,|
|00000750| 34 2c 31 34 31 2c 37 31 | 2c 34 2c 31 36 39 2c 34 |4,141,71|,4,169,4|
|00000760| 36 2c 31 34 31 2c 37 34 | 0a 39 32 39 30 20 44 41 |6,141,74|.9290 DA|
|00000770| 54 41 20 34 2c 31 36 39 | 2c 31 33 2c 31 34 31 2c |TA 4,169|,13,141,|
|00000780| 09 0a 39 33 30 30 20 44 | 41 54 41 20 31 32 30 2c |..9300 D|ATA 120,|
|00000790| 31 36 39 2c 34 39 2c 32 | 33 34 2c 31 34 31 2c 32 |169,49,2|34,141,2|
|000007a0| 30 2c 33 2c 31 36 39 2c | 32 33 34 2c 32 33 34 2c |0,3,169,|234,234,|
|000007b0| 31 34 31 2c 32 31 2c 33 | 2c 38 38 2c 39 36 0a 39 |141,21,3|,88,96.9|
|000007c0| 33 31 30 20 44 41 54 41 | 20 31 37 33 2c 31 33 2c |310 DATA| 173,13,|
|000007d0| 32 32 30 2c 34 31 2c 34 | 2c 32 34 30 2c 33 2c 31 |220,41,4|,240,3,1|
|000007e0| 34 31 2c 32 32 37 2c 32 | 2c 31 37 33 2c 32 32 37 |41,227,2|,173,227|
|000007f0| 2c 32 2c 32 34 30 2c 34 | 32 2c 31 37 33 2c 31 36 |,2,240,4|2,173,16|
|00000800| 32 2c 30 0a 39 33 32 30 | 20 44 41 54 41 20 31 30 |2,0.9320| DATA 10|
|00000810| 36 2c 31 30 36 2c 31 30 | 36 2c 34 31 2c 31 32 2c |6,106,10|6,41,12,|
|00000820| 31 34 31 2c 33 32 2c 32 | 30 38 2c 34 31 2c 34 2c |141,32,2|08,41,4,|
|00000830| 31 34 31 2c 32 34 2c 32 | 31 32 2c 32 34 30 2c 31 |141,24,2|12,240,1|
|00000840| 31 2c 31 36 32 2c 35 2c | 31 38 39 0a 39 33 33 30 |1,162,5,|189.9330|
|00000850| 20 44 41 54 41 20 32 32 | 37 2c 32 2c 31 35 37 2c | DATA 22|7,2,157,|
|00000860| 33 33 2c 34 2c 32 30 32 | 2c 32 30 38 2c 32 34 37 |33,4,202|,208,247|
|00000870| 2c 31 37 33 2c 31 39 37 | 2c 30 2c 32 30 31 2c 34 |,173,197|,0,201,4|
|00000880| 2c 32 30 38 2c 36 2c 31 | 34 32 2c 32 32 37 2c 32 |,208,6,1|42,227,2|
|00000890| 0a 39 33 34 30 20 44 41 | 54 41 20 31 34 32 2c 32 |.9340 DA|TA 142,2|
|000008a0| 34 2c 32 31 32 2c 37 36 | 2c 34 39 2c 32 33 34 2c |4,212,76|,49,234,|
|000008b0| 30 2c 31 2c 31 32 2c 31 | 2c 31 38 2c 31 33 0a    |0,1,12,1|,18,13. |
+--------+-------------------------+-------------------------+--------+--------+