home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WOW / c64.bas
Unknown  |  2019-04-13  |  4.0 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 POKE53281,11' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 50 4f 4b 45 35 | 33 32 38 31 2c 31 31 3a |10 POKE5|3281,11:|
|00000010| 50 4f 4b 45 35 33 32 38 | 30 2c 30 3a 44 49 4d 49 |POKE5328|0,0:DIMI|
|00000020| 24 28 31 35 2c 31 29 0a | 32 30 20 50 52 49 4e 54 |$(15,1).|20 PRINT|
|00000030| 22 9a 93 11 20 cf b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |"... ...|........|
|00000040| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |........|........|
|00000050| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 d0 22 0a 33 30 20 |........|...".30 |
|00000060| 46 4f 52 49 3d 31 54 4f | 33 3a 50 52 49 4e 54 22 |FORI=1TO|3:PRINT"|
|00000070| 20 b4 22 53 50 43 28 33 | 36 29 22 aa 22 3a 4e 45 | ."SPC(3|6)".":NE|
|00000080| 58 54 0a 34 30 20 50 52 | 49 4e 54 22 20 cc af af |XT.40 PR|INT" ...|
|00000090| af af af af af af af af | af af af af af af af af |........|........|
|000000a0| af af af af af af af af | af af af af af af af af |........|........|
|000000b0| af af ba 22 0a 35 30 20 | 50 52 49 4e 54 22 13 11 |...".50 |PRINT"..|
|000000c0| 11 1d 1d 05 54 48 45 20 | 46 41 4b 45 52 27 53 20 |....THE |FAKER'S |
|000000d0| 4b 49 54 20 20 20 20 20 | 20 42 59 20 44 41 4e 20 |KIT | BY DAN |
|000000e0| 4b 4f 4d 41 52 4f 4d 49 | 22 0a 36 30 20 50 52 49 |KOMAROMI|".60 PRI|
|000000f0| 4e 54 22 99 1d 1d c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |NT".....|........|
|00000100| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000110| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 22 0a 37 30 20 50 |........|..".70 P|
|00000120| 52 49 4e 54 22 11 11 11 | 11 1d 1d 05 b0 c0 ae 22 |RINT"...|......."|
|00000130| 0a 38 30 20 50 52 49 4e | 54 22 1d 1d dd 9e 31 05 |.80 PRIN|T"....1.|
|00000140| dd 20 20 49 4e 53 55 4c | 54 49 4e 47 20 43 36 34 |. INSUL|TING C64|
|00000150| 22 0a 39 30 20 50 52 49 | 4e 54 22 1d 1d dd 9e 32 |".90 PRI|NT"....2|
|00000160| 05 dd 20 20 43 31 32 38 | 20 4c 4f 4f 4b 2d 41 4c |.. C128| LOOK-AL|
|00000170| 49 4b 45 22 0a 31 30 30 | 20 50 52 49 4e 54 22 1d |IKE".100| PRINT".|
|00000180| 1d dd 9e 33 05 dd 20 20 | 55 4e 52 45 53 50 4f 4e |...3.. |UNRESPON|
|00000190| 53 49 56 45 20 43 36 34 | 00 0a 31 31 30 20 50 52 |SIVE C64|..110 PR|
|000001a0| 49 4e 54 22 1d 1d dd 9e | 34 05 dd 20 20 53 45 4c |INT"....|4.. SEL|
|000001b0| 46 20 44 45 53 54 52 55 | 43 54 49 4f 4e 22 0a 31 |F DESTRU|CTION".1|
|000001c0| 32 30 20 50 52 49 4e 54 | 22 1d 1d dd 9e 35 05 dd |20 PRINT|"....5..|
|000001d0| 20 20 53 4f 4d 45 20 49 | 4e 46 4f 22 0a 31 33 30 | SOME I|NFO".130|
|000001e0| 20 50 52 49 4e 54 22 1d | 1d ad c0 bd 22 0a 31 34 | PRINT".|....".14|
|000001f0| 30 20 50 52 49 4e 54 22 | 9b 13 11 11 11 11 11 11 |0 PRINT"|........|
|00000200| 11 11 11 11 11 11 11 11 | 11 11 1d 1d 45 4e 54 45 |........|....ENTE|
|00000210| 52 20 4e 55 4d 42 45 52 | 20 54 48 45 4e 20 48 49 |R NUMBER| THEN HI|
|00000220| 54 20 52 45 54 55 52 4e | 3a 05 22 3b 3a 50 4f 4b |T RETURN|:.";:POK|
|00000230| 45 31 39 2c 35 34 3a 49 | 4e 50 55 54 41 24 0a 31 |E19,54:I|NPUTA$.1|
|00000240| 35 30 20 49 46 41 24 3d | 22 31 22 54 48 45 4e 33 |50 IFA$=|"1"THEN3|
|00000250| 30 30 0a 31 36 30 20 49 | 46 41 24 3d 22 32 22 54 |00.160 I|FA$="2"T|
|00000260| 48 45 4e 34 39 30 0a 31 | 37 30 20 49 46 41 24 3d |HEN490.1|70 IFA$=|
|00000270| 22 33 22 54 48 45 4e 35 | 30 30 0a 31 38 30 20 49 |"3"THEN5|00.180 I|
|00000280| 46 41 24 3d 22 34 22 54 | 48 45 4e 36 30 30 0a 31 |FA$="4"T|HEN600.1|
|00000290| 39 30 20 49 46 41 24 3d | 22 35 22 54 48 45 4e 39 |90 IFA$=|"5"THEN9|
|000002a0| 36 30 0a 32 30 30 20 47 | 4f 54 4f 31 34 30 0a 33 |60.200 G|OTO140.3|
|000002b0| 30 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 9b |00 PRINT|:PRINT".|
|000002c0| 11 1d 1d 57 4f 55 4c 44 | 20 59 4f 55 20 4c 49 4b |...WOULD| YOU LIK|
|000002d0| 45 20 54 4f 20 43 48 41 | 4e 47 45 20 54 48 45 22 |E TO CHA|NGE THE"|
|000002e0| 0a 33 31 30 20 50 52 49 | 4e 54 22 1d 1d 52 45 53 |.310 PRI|NT"..RES|
|000002f0| 50 4f 4e 53 45 53 3f 20 | 05 4e 9d 22 3b 3a 49 4e |PONSES? |.N.";:IN|
|00000300| 50 55 54 52 24 0a 33 32 | 30 20 46 4f 52 49 3d 31 |PUTR$.32|0 FORI=1|
|00000310| 54 4f 31 35 3a 52 45 41 | 44 41 24 3a 52 45 41 44 |TO15:REA|DA$:READ|
|00000320| 42 24 3a 49 24 28 49 2c | 30 29 3d 41 24 3a 49 24 |B$:I$(I,|0)=A$:I$|
|00000330| 28 49 2c 31 29 3d 42 24 | 3a 4e 45 58 54 3a 54 4e |(I,1)=B$|:NEXT:TN|
|00000340| 3d 31 0a 33 32 32 20 49 | 46 52 24 3d 22 4e 22 4f |=1.322 I|FR$="N"O|
|00000350| 52 52 24 3d 22 22 54 48 | 45 4e 34 34 30 0a 33 32 |RR$=""TH|EN440.32|
|00000360| 34 20 50 52 49 4e 54 22 | 13 11 11 11 11 11 11 11 |4 PRINT"|........|
|00000370| 22 0a 33 32 36 20 46 4f | 52 49 3d 31 54 4f 31 36 |".326 FO|RI=1TO16|
|00000380| 3a 50 52 49 4e 54 53 50 | 43 28 33 39 29 3a 4e 45 |:PRINTSP|C(39):NE|
|00000390| 58 54 0a 33 32 38 20 50 | 52 49 4e 54 22 13 22 0a |XT.328 P|RINT".".|
|000003a0| 33 33 30 20 50 52 49 4e | 54 22 11 11 11 11 11 11 |330 PRIN|T"......|
|000003b0| 11 1d 1d 05 5b 46 31 5d | 20 9b 46 4f 52 57 41 52 |....[F1]| .FORWAR|
|000003c0| 44 20 20 05 5b 46 33 5d | 20 9b 52 45 56 45 52 53 |D .[F3]| .REVERS|
|000003d0| 45 22 0a 33 34 30 20 50 | 52 49 4e 54 22 91 1d 1d |E".340 P|RINT"...|
|000003e0| 05 5b 46 35 5d 20 9b 43 | 48 41 4e 47 45 20 20 20 |.[F5] .C|HANGE |
|000003f0| 05 5b 46 37 5d 20 9b 44 | 4f 4e 45 22 0a 33 35 30 |.[F7] .D|ONE".350|
|00000400| 20 50 52 49 4e 54 22 13 | 11 11 11 11 11 11 11 11 | PRINT".|........|
|00000410| 11 11 11 11 1d 1d 05 23 | 22 54 4e 22 9d 20 22 0a |.......#|"TN". ".|
|00000420| 33 36 30 20 50 52 49 4e | 54 22 1d 1d 11 9b 22 49 |360 PRIN|T"...."I|
|00000430| 24 28 54 4e 2c 30 29 3b | 3a 46 4f 52 49 3d 31 54 |$(TN,0);|:FORI=1T|
|00000440| 4f 33 38 2d 4c 45 4e 28 | 49 24 28 54 4e 2c 30 29 |O38-LEN(|I$(TN,0)|
|00000450| 29 3a 50 52 49 4e 54 22 | 20 22 3b 3a 4e 45 58 54 |):PRINT"| ";:NEXT|
|00000460| 0a 33 37 30 20 50 52 49 | 4e 54 22 1d 1d 9e c4 c4 |.370 PRI|NT".....|
|00000470| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000480| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000490| c4 c4 22 0a 33 38 30 20 | 50 52 49 4e 54 22 1d 1d |..".380 |PRINT"..|
|000004a0| 11 11 9b 22 49 24 28 54 | 4e 2c 31 29 3b 3a 46 4f |..."I$(T|N,1);:FO|
|000004b0| 52 49 3d 31 54 4f 33 38 | 2d 4c 45 4e 28 49 24 28 |RI=1TO38|-LEN(I$(|
|000004c0| 54 4e 2c 31 29 29 3a 50 | 52 49 4e 54 22 20 22 3b |TN,1)):P|RINT" ";|
|000004d0| 3a 4e 45 58 54 0a 33 39 | 30 20 50 52 49 4e 54 22 |:NEXT.39|0 PRINT"|
|000004e0| 1d 1d 9e c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000004f0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000500| c4 c4 c4 c4 c4 c4 c4 22 | 0a 33 39 32 20 47 45 54 |......."|.392 GET|
|00000510| 58 24 3a 49 46 58 24 3d | 22 85 22 54 48 45 4e 54 |X$:IFX$=|"."THENT|
|00000520| 4e 3d 54 4e 2b 31 3a 50 | 4f 4b 45 35 34 32 39 36 |N=TN+1:P|OKE54296|
|00000530| 2c 31 35 3a 50 4f 4b 45 | 35 34 32 39 36 2c 30 3a |,15:POKE|54296,0:|
|00000540| 49 46 54 4e 3e 31 35 54 | 48 45 4e 54 4e 3d 31 35 |IFTN>15T|HENTN=15|
|00000550| 0a 33 39 34 20 49 46 58 | 24 3d 22 86 22 54 48 45 |.394 IFX|$="."THE|
|00000560| 4e 54 4e 3d 54 09 0a 33 | 39 36 20 49 46 58 24 3d |NTN=T..3|96 IFX$=|
|00000570| 22 87 22 54 48 45 4e 34 | 31 30 0a 34 30 30 20 49 |"."THEN4|10.400 I|
|00000580| 46 58 24 3d 22 88 22 54 | 48 45 4e 34 34 30 0a 34 |FX$="."T|HEN440.4|
|00000590| 30 35 20 47 4f 54 4f 33 | 35 30 0a 34 31 30 20 50 |05 GOTO3|50.410 P|
|000005a0| 4f 4b 45 31 39 2c 35 34 | 3a 50 52 49 4e 54 22 13 |OKE19,54|:PRINT".|
|000005b0| 05 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|000005c0| 11 11 11 11 11 1d 1d 22 | 3b 3a 46 4f 52 49 3d 31 |......."|;:FORI=1|
|000005d0| 54 4f 38 30 3a 50 52 49 | 4e 54 22 20 22 3b 3a 4e |TO80:PRI|NT" ";:N|
|000005e0| 45 58 54 0a 34 32 30 20 | 50 52 49 4e 54 22 13 11 |EXT.420 |PRINT"..|
|000005f0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000600| 11 11 11 1d 1d 22 3b 3a | 49 4e 50 55 54 4e 24 3a |.....";:|INPUTN$:|
|00000610| 49 24 28 54 4e 2c 31 29 | 3d 4e 24 3a 47 4f 54 4f |I$(TN,1)|=N$:GOTO|
|00000620| 33 35 30 0a 34 34 30 20 | 50 4f 4b 45 35 33 32 38 |350.440 |POKE5328|
|00000630| 30 2c 31 34 3a 50 4f 4b | 45 35 33 32 38 31 2c 36 |0,14:POK|E53281,6|
|00000640| 3a 50 52 49 4e 54 22 93 | 9a 11 1d 1d 1d 1d 2a 2a |:PRINT".|......**|
|00000650| 2a 2a 20 43 4f 4d 4d 4f | 44 4f 52 45 20 36 34 20 |** COMMO|DORE 64 |
|00000660| 42 41 53 49 43 20 56 32 | 20 2a 2a 2a 2a 22 0a 34 |BASIC V2| ****".4|
|00000670| 35 30 20 50 52 49 4e 54 | 22 11 20 36 34 4b 20 52 |50 PRINT|". 64K R|
|00000680| 41 4d 20 53 59 53 54 45 | 4d 20 20 33 38 39 31 31 |AM SYSTE|M 38911|
|00000690| 20 42 41 53 49 43 20 42 | 59 54 45 53 20 46 52 45 | BASIC B|YTES FRE|
|000006a0| 45 22 0a 34 36 30 20 50 | 52 49 4e 54 22 11 52 45 |E".460 P|RINT".RE|
|000006b0| 41 44 59 2e 22 0a 34 36 | 31 20 50 4f 4b 45 31 39 |ADY.".46|1 POKE19|
|000006c0| 2c 30 3a 50 4f 4b 45 31 | 39 2c 35 34 3a 49 4e 50 |,0:POKE1|9,54:INP|
|000006d0| 55 54 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |UTA$:IFA|$=""THEN|
|000006e0| 50 52 49 4e 54 3a 47 4f | 54 4f 34 36 31 0a 34 36 |PRINT:GO|TO461.46|
|000006f0| 32 20 46 4f 52 5a 3d 31 | 54 4f 31 35 0a 34 36 33 |2 FORZ=1|TO15.463|
|00000700| 20 49 46 4c 45 46 54 24 | 28 41 24 2c 4c 45 4e 28 | IFLEFT$|(A$,LEN(|
|00000710| 49 24 28 5a 2c 30 29 29 | 29 3d 49 24 28 5a 2c 30 |I$(Z,0))|)=I$(Z,0|
|00000720| 29 54 48 45 4e 50 52 49 | 4e 54 3a 50 52 49 4e 54 |)THENPRI|NT:PRINT|
|00000730| 22 11 22 49 24 28 5a 2c | 31 29 3a 47 4f 53 55 42 |"."I$(Z,|1):GOSUB|
|00000740| 34 38 30 3a 47 4f 54 4f | 34 36 31 0a 34 36 34 20 |480:GOTO|461.464 |
|00000750| 4e 45 58 54 0a 34 36 36 | 20 49 46 56 41 4c 28 4c |NEXT.466| IFVAL(L|
|00000760| 45 46 54 24 28 41 24 2c | 32 29 29 3e 30 54 48 45 |EFT$(A$,|2))>0THE|
|00000770| 4e 46 4f 52 49 3d 31 54 | 4f 32 35 3a 4e 45 58 54 |NFORI=1T|O25:NEXT|
|00000780| 3a 50 52 49 4e 54 3a 47 | 4f 54 4f 34 36 31 0a 34 |:PRINT:G|OTO461.4|
|00000790| 36 38 20 49 46 41 24 3d | 22 46 49 4e 49 53 48 22 |68 IFA$=|"FINISH"|
|000007a0| 54 48 45 4e 52 55 4e 0a | 34 37 30 20 50 52 49 4e |THENRUN.|470 PRIN|
|000007b0| 54 3a 50 52 49 4e 54 22 | 11 3f 53 59 4e 54 41 58 |T:PRINT"|.?SYNTAX|
|000007c0| 20 45 52 52 4f 52 22 3a | 47 4f 53 55 42 34 38 30 | ERROR":|GOSUB480|
|000007d0| 3a 47 4f 54 4f 34 36 31 | 0a 34 38 30 20 50 52 49 |:GOTO461|.480 PRI|
|000007e0| 4e 54 09 0a 34 39 30 20 | 50 4f 4b 45 35 33 32 38 |NT..490 |POKE5328|
|000007f0| 31 2c 31 31 3a 50 4f 4b | 45 35 33 32 38 30 2c 31 |1,11:POK|E53280,1|
|00000800| 33 0a 34 39 31 20 50 52 | 49 4e 54 22 93 11 99 20 |3.491 PR|INT"... |
|00000810| 43 4f 4d 4d 4f 44 4f 52 | 45 20 42 41 53 49 43 20 |COMMODOR|E BASIC |
|00000820| 56 37 2e 30 20 31 32 32 | 33 36 35 20 42 59 54 45 |V7.0 122|365 BYTE|
|00000830| 53 20 46 52 45 45 22 0a | 34 39 32 20 50 52 49 4e |S FREE".|492 PRIN|
|00000840| 54 22 20 20 20 28 43 29 | 31 39 38 35 20 43 4f 4d |T" (C)|1985 COM|
|00000850| 4d 4f 44 4f 52 45 20 45 | 4c 45 43 54 52 4f 4e 49 |MODORE E|LECTRONI|
|00000860| 43 53 2c 20 4c 54 44 2e | 22 0a 34 39 33 20 50 52 |CS, LTD.|".493 PR|
|00000870| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 28 43 29 |INT" | (C)|
|00000880| 31 39 37 37 20 4d 49 43 | 52 4f 53 4f 46 54 20 43 |1977 MIC|ROSOFT C|
|00000890| 4f 52 50 2e 22 0a 34 39 | 34 20 50 52 49 4e 54 22 |ORP.".49|4 PRINT"|
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 41 4c 4c 20 52 | | ALL R|
|000008b0| 49 47 48 54 53 20 52 45 | 53 45 52 56 45 44 22 0a |IGHTS RE|SERVED".|
|000008c0| 34 39 35 20 45 4e 44 0a | 35 30 30 20 50 4f 4b 45 |495 END.|500 POKE|
|000008d0| 35 33 32 38 30 2c 31 34 | 3a 50 4f 4b 45 35 33 32 |53280,14|:POKE532|
|000008e0| 38 31 2c 36 3a 50 52 49 | 4e 54 22 93 11 9a 1d 1d |81,6:PRI|NT".....|
|000008f0| 1d 1d 2a 2a 2a 2a 20 43 | 4f 4d 4d 4f 44 4f 52 45 |..**** C|OMMODORE|
|00000900| 20 36 34 20 42 41 53 49 | 43 20 56 32 20 2a 2a 2a | 64 BASI|C V2 ***|
|00000910| 2a 22 0a 35 31 30 20 50 | 52 49 4e 54 22 11 20 36 |*".510 P|RINT". 6|
|00000920| 34 4b 20 52 41 4d 20 53 | 59 53 54 45 4d 20 20 33 |4K RAM S|YSTEM 3|
|00000930| 38 39 31 31 20 42 41 53 | 49 43 20 42 59 54 45 53 |8911 BAS|IC BYTES|
|00000940| 20 46 52 45 45 22 0a 35 | 32 30 20 50 52 49 4e 54 | FREE".5|20 PRINT|
|00000950| 22 11 52 45 41 44 59 2e | 22 0a 35 33 30 20 50 4f |".READY.|".530 PO|
|00000960| 4b 45 31 39 2c 30 3a 50 | 4f 4b 45 31 39 2c 35 34 |KE19,0:P|OKE19,54|
|00000970| 3a 49 4e 50 55 54 41 24 | 3a 50 52 49 4e 54 3a 49 |:INPUTA$|:PRINT:I|
|00000980| 46 41 24 3d 22 46 49 4e | 49 53 48 22 54 48 45 4e |FA$="FIN|ISH"THEN|
|00000990| 52 55 4e 0a 35 34 30 20 | 47 4f 54 4f 35 33 30 0a |RUN.540 |GOTO530.|
|000009a0| 36 30 30 20 50 4f 4b 45 | 35 33 32 38 30 2c 31 34 |600 POKE|53280,14|
|000009b0| 3a 50 4f 4b 45 35 33 32 | 38 31 2c 36 3a 50 52 49 |:POKE532|81,6:PRI|
|000009c0| 4e 54 22 93 11 9a 1d 1d | 1d 1d 2a 2a 2a 2a 20 43 |NT".....|..**** C|
|000009d0| 4f 4d 4d 4f 44 4f 52 45 | 20 36 34 20 42 41 53 49 |OMMODORE| 64 BASI|
|000009e0| 43 20 56 32 20 2a 2a 2a | 2a 22 0a 36 31 30 20 50 |C V2 ***|*".610 P|
|000009f0| 52 49 4e 54 22 11 20 36 | 34 4b 20 52 41 4d 20 53 |RINT". 6|4K RAM S|
|00000a00| 59 53 54 45 4d 20 20 33 | 38 39 31 31 20 42 41 53 |YSTEM 3|8911 BAS|
|00000a10| 49 43 20 42 59 54 45 53 | 20 46 52 45 45 22 0a 36 |IC BYTES| FREE".6|
|00000a20| 32 30 20 50 52 49 4e 54 | 22 11 52 45 09 00 59 2e |20 PRINT|".RE..Y.|
|00000a30| 22 0a 36 33 30 20 50 4f | 4b 45 31 39 2c 30 3a 50 |".630 PO|KE19,0:P|
|00000a40| 4f 4b 45 31 39 2c 35 34 | 3a 49 4e 50 55 54 41 24 |OKE19,54|:INPUTA$|
|00000a50| 3a 50 52 49 4e 54 0a 36 | 34 30 20 50 52 49 4e 54 |:PRINT.6|40 PRINT|
|00000a60| 22 11 43 4f 55 4e 54 44 | 4f 57 4e 20 54 4f 20 43 |".COUNTD|OWN TO C|
|00000a70| 50 55 20 44 45 53 54 52 | 55 43 54 49 4f 4e 2e 2e |PU DESTR|UCTION..|
|00000a80| 2e 22 0a 36 35 30 20 46 | 4f 52 49 3d 31 30 30 30 |.".650 F|ORI=1000|
|00000a90| 54 4f 30 53 54 45 50 2d | 31 3a 50 52 49 4e 54 22 |TO0STEP-|1:PRINT"|
|00000aa0| 13 11 11 11 11 11 11 11 | 11 11 11 11 22 49 22 20 |........|...."I" |
|00000ab0| 20 20 20 22 3a 46 4f 52 | 44 3d 31 54 4f 31 30 3a | ":FOR|D=1TO10:|
|00000ac0| 4e 45 58 54 3a 4e 45 58 | 54 0a 36 36 30 20 50 4f |NEXT:NEX|T.660 PO|
|00000ad0| 4b 45 35 33 32 38 30 2c | 30 3a 50 4f 4b 45 35 33 |KE53280,|0:POKE53|
|00000ae0| 32 38 31 2c 30 3a 50 52 | 49 4e 54 22 93 22 0a 36 |281,0:PR|INT".".6|
|00000af0| 37 30 20 47 4f 54 4f 36 | 37 30 0a 38 30 30 20 44 |70 GOTO6|70.800 D|
|00000b00| 41 54 41 20 22 52 55 4e | 22 2c 22 57 48 59 20 44 |ATA "RUN|","WHY D|
|00000b10| 4f 4e 27 54 20 59 4f 55 | 2c 20 57 45 41 4b 4c 49 |ON'T YOU|, WEAKLI|
|00000b20| 4e 47 3f 22 0a 38 31 30 | 20 44 41 54 41 20 22 50 |NG?".810| DATA "P|
|00000b30| 52 49 4e 54 22 2c 22 48 | 41 56 45 4e 27 54 20 59 |RINT","H|AVEN'T Y|
|00000b40| 4f 55 20 48 45 41 52 44 | 20 4f 46 20 50 41 50 45 |OU HEARD| OF PAPE|
|00000b50| 52 20 59 45 54 3f 22 0a | 38 32 30 20 44 41 54 41 |R YET?".|820 DATA|
|00000b60| 20 22 4c 4f 41 44 22 2c | 22 4c 4f 41 44 20 49 54 | "LOAD",|"LOAD IT|
|00000b70| 20 59 4f 55 52 53 45 4c | 46 22 0a 38 33 30 20 44 | YOURSEL|F".830 D|
|00000b80| 41 54 41 20 22 53 41 56 | 45 22 2c 22 57 48 59 20 |ATA "SAV|E","WHY |
|00000b90| 53 48 4f 55 4c 44 20 49 | 20 44 4f 20 49 54 20 46 |SHOULD I| DO IT F|
|00000ba0| 4f 52 20 59 4f 55 3f 22 | 0a 38 34 30 20 44 41 54 |OR YOU?"|.840 DAT|
|00000bb0| 41 20 22 4e 45 57 22 2c | 22 49 20 57 49 4c 4c 20 |A "NEW",|"I WILL |
|00000bc0| 4e 4f 54 20 41 4c 4c 4f | 57 20 59 4f 55 20 54 4f |NOT ALLO|W YOU TO|
|00000bd0| 20 44 45 53 54 4f 52 59 | 20 44 41 54 41 22 0a 38 | DESTORY| DATA".8|
|00000be0| 35 30 20 44 41 54 41 20 | 22 4c 49 53 54 22 2c 22 |50 DATA |"LIST","|
|00000bf0| 54 48 45 20 4c 49 53 54 | 20 49 53 20 49 4e 20 59 |THE LIST| IS IN Y|
|00000c00| 4f 55 52 20 50 4f 43 4b | 45 54 20 59 4f 55 20 46 |OUR POCK|ET YOU F|
|00000c10| 4f 4f 4c 22 0a 38 36 30 | 20 44 41 54 41 20 22 47 |OOL".860| DATA "G|
|00000c20| 4f 54 4f 22 2c 22 57 48 | 59 20 44 4f 4e 27 54 20 |OTO","WH|Y DON'T |
|00000c30| 59 4f 55 20 47 4f 20 54 | 48 45 52 45 20 49 4e 53 |YOU GO T|HERE INS|
|00000c40| 54 45 41 44 3f 22 0a 38 | 37 30 20 44 41 54 41 20 |TEAD?".8|70 DATA |
|00000c50| 22 4f 50 45 4e 22 2c 22 | 59 4f 55 27 52 45 20 54 |"OPEN","|YOU'RE T|
|00000c60| 48 45 20 4f 4e 45 20 57 | 49 54 48 20 54 48 45 20 |HE ONE W|ITH THE |
|00000c70| 43 41 4e 20 4f 50 09 00 | 45 52 21 22 0a 38 38 30 |CAN OP..|ER!".880|
|00000c80| 20 44 41 54 41 20 22 50 | 4f 4b 45 22 2c 22 53 54 | DATA "P|OKE","ST|
|00000c90| 4f 50 20 50 4f 4b 49 4e | 47 20 4d 45 21 22 0a 38 |OP POKIN|G ME!".8|
|00000ca0| 39 30 20 44 41 54 41 20 | 22 53 54 4f 50 22 2c 22 |90 DATA |"STOP","|
|00000cb0| 4e 4f 2c 20 59 4f 55 20 | 53 54 4f 50 22 0a 39 30 |NO, YOU |STOP".90|
|00000cc0| 30 20 44 41 54 41 20 22 | 43 4c 52 22 2c 22 43 41 |0 DATA "|CLR","CA|
|00000cd0| 4e 27 54 20 59 4f 55 20 | 53 50 45 4c 4c 20 4f 55 |N'T YOU |SPELL OU|
|00000ce0| 54 20 54 48 45 20 57 48 | 4f 4c 45 20 54 48 49 4e |T THE WH|OLE THIN|
|00000cf0| 47 3f 22 0a 39 31 30 20 | 44 41 54 41 20 22 43 4c |G?".910 |DATA "CL|
|00000d00| 45 41 52 22 2c 22 49 54 | 27 53 20 43 4c 52 2c 20 |EAR","IT|'S CLR, |
|00000d10| 4e 4f 54 20 43 4c 45 41 | 52 21 22 0a 39 32 30 20 |NOT CLEA|R!".920 |
|00000d20| 44 41 54 41 20 22 43 4d | 44 22 2c 22 4f 50 45 4e |DATA "CM|D","OPEN|
|00000d30| 20 54 48 45 20 46 49 4c | 45 20 46 49 52 53 54 2c | THE FIL|E FIRST,|
|00000d40| 20 53 54 55 50 49 44 22 | 0a 39 33 30 20 44 41 54 | STUPID"|.930 DAT|
|00000d50| 41 20 22 53 59 53 22 2c | 22 4c 45 54 20 4d 45 20 |A "SYS",|"LET ME |
|00000d60| 53 4c 45 45 50 20 41 20 | 4c 49 54 54 4c 45 22 0a |SLEEP A |LITTLE".|
|00000d70| 39 34 30 20 44 41 54 41 | 20 22 4e 4f 22 2c 22 59 |940 DATA| "NO","Y|
|00000d80| 45 53 21 21 21 22 0a 39 | 35 30 20 44 41 54 41 20 |ES!!!".9|50 DATA |
|00000d90| 22 44 49 4d 22 2c 22 54 | 48 45 20 4c 49 47 48 54 |"DIM","T|HE LIGHT|
|00000da0| 53 20 44 49 4d 22 0a 39 | 36 30 20 50 52 49 4e 54 |S DIM".9|60 PRINT|
|00000db0| 22 93 05 9b 1d 1d 11 57 | 45 4c 43 4f 4d 45 20 54 |"......W|ELCOME T|
|00000dc0| 4f 20 54 48 45 20 05 46 | 41 4b 45 52 27 53 20 4b |O THE .F|AKER'S K|
|00000dd0| 49 54 9b 2e 22 0a 39 37 | 30 20 50 52 49 4e 54 22 |IT..".97|0 PRINT"|
|00000de0| 11 1d 1d 9b 49 4e 53 54 | 45 41 44 20 4f 46 20 4d |....INST|EAD OF M|
|00000df0| 41 52 4b 45 54 49 4e 47 | 20 54 48 49 53 20 53 49 |ARKETING| THIS SI|
|00000e00| 4c 4c 59 22 0a 39 38 30 | 20 50 52 49 4e 54 22 1d |LLY".980| PRINT".|
|00000e10| 1d 50 52 4f 44 55 43 54 | 20 49 20 41 53 4b 20 54 |.PRODUCT| I ASK T|
|00000e20| 48 41 54 20 59 4f 55 20 | 53 45 4e 44 20 4d 45 20 |HAT YOU |SEND ME |
|00000e30| 54 48 45 22 0a 39 39 30 | 20 50 52 49 4e 54 22 1d |THE".990| PRINT".|
|00000e40| 1d 41 4d 4f 55 4e 54 20 | 59 4f 55 20 54 48 49 4e |.AMOUNT |YOU THIN|
|00000e50| 4b 20 49 54 27 53 20 57 | 4f 52 54 48 2e 20 20 54 |K IT'S W|ORTH. T|
|00000e60| 48 41 54 27 53 22 0a 31 | 30 30 30 20 50 52 49 4e |HAT'S".1|000 PRIN|
|00000e70| 54 22 1d 1d 57 48 41 54 | 27 53 20 43 41 4c 4c 45 |T"..WHAT|'S CALLE|
|00000e80| 44 20 05 53 48 41 52 45 | 57 41 52 45 9b 2e 22 0a |D .SHARE|WARE..".|
|00000e90| 31 30 31 30 20 50 52 49 | 4e 54 22 11 1d 1d 4d 59 |1010 PRI|NT"...MY|
|00000ea0| 20 51 55 41 4e 54 55 4d | 09 00 49 4e 4b 20 55 53 | QUANTUM|..INK US|
|00000eb0| 45 52 4e 41 4d 45 20 49 | 53 20 05 44 49 47 49 44 |ERNAME I|S .DIGID|
|00000ec0| 41 4e 9b 2e 22 0a 31 30 | 32 30 20 50 52 49 4e 54 |AN..".10|20 PRINT|
|00000ed0| 22 11 1d 1d 54 48 45 20 | 41 44 44 52 45 53 53 20 |"...THE |ADDRESS |
|00000ee0| 49 53 3a 22 0a 31 30 33 | 30 20 50 52 49 4e 54 22 |IS:".103|0 PRINT"|
|00000ef0| 11 1d 1d 05 44 49 47 49 | 54 41 4c 20 57 49 5a 41 |....DIGI|TAL WIZA|
|00000f00| 52 44 22 0a 31 30 34 30 | 20 50 52 49 4e 54 22 1d |RD".1040| PRINT".|
|00000f10| 1d 41 54 54 3a 20 44 41 | 4e 20 4b 4f 4d 41 52 4f |.ATT: DA|N KOMARO|
|00000f20| 4d 49 22 0a 31 30 35 30 | 20 50 52 49 4e 54 22 1d |MI".1050| PRINT".|
|00000f30| 1d 32 35 31 20 41 4c 54 | 55 52 41 20 44 52 2e 22 |.251 ALT|URA DR."|
|00000f40| 0a 31 30 36 30 20 50 52 | 49 4e 54 22 1d 1d 46 55 |.1060 PR|INT"..FU|
|00000f50| 4c 4c 45 52 54 4f 4e 2c | 20 43 41 22 0a 31 30 37 |LLERTON,| CA".107|
|00000f60| 30 20 50 52 49 4e 54 22 | 1d 1d 39 32 36 33 35 22 |0 PRINT"|..92635"|
|00000f70| 0a 31 30 37 35 20 50 52 | 49 4e 54 22 11 11 99 1d |.1075 PR|INT"....|
|00000f80| 1d 46 45 45 4c 20 46 52 | 45 45 20 54 4f 20 47 49 |.FEEL FR|EE TO GI|
|00000f90| 56 45 20 43 4f 50 49 45 | 53 20 41 57 41 59 21 22 |VE COPIE|S AWAY!"|
|00000fa0| 0a 31 30 38 30 20 50 52 | 49 4e 54 22 11 11 1d 1d |.1080 PR|INT"....|
|00000fb0| 9e 50 52 45 53 53 20 52 | 45 54 55 52 4e 20 20 97 |.PRESS R|ETURN .|
|00000fc0| 22 3b 3a 50 4f 4b 45 31 | 39 2c 30 3a 49 4e 50 55 |";:POKE1|9,0:INPU|
|00000fd0| 54 41 24 0a 31 30 39 30 | 20 52 55 4e 0a |TA$.1090| RUN. |
+--------+-------------------------+-------------------------+--------+--------+