/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / DEF-CON / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 50 4f 4b 45 38 30 | 38 2c 32 32 35 3a 50 4f |0 POKE80|8,225:PO|
|00000010| 4b 45 37 37 34 2c 31 30 | 30 0a 31 20 5a 3d 33 30 |KE774,10|0.1 Z=30|
|00000020| 30 3a 5a 5a 3d 32 30 30 | 30 0a 31 30 20 50 4f 4b |0:ZZ=200|0.10 POK|
|00000030| 45 35 33 32 38 30 2c 30 | 3a 50 4f 4b 45 35 33 32 |E53280,0|:POKE532|
|00000040| 38 31 2c 30 3a 50 52 49 | 4e 54 22 93 1e 11 11 22 |81,0:PRI|NT"...."|
|00000050| 3a 50 4f 4b 45 35 33 32 | 37 32 2c 32 31 0a 33 30 |:POKE532|72,21.30|
|00000060| 20 50 52 49 4e 54 22 44 | 49 41 4c 49 4e 47 2e 2e | PRINT"D|IALING..|
|00000070| 2e 2e 2e 32 30 33 2f 37 | 33 38 2d 37 36 38 35 22 |...203/7|38-7685"|
|00000080| 3a 46 4f 52 58 3d 31 54 | 4f 36 30 30 3a 4e 45 58 |:FORX=1T|O600:NEX|
|00000090| 54 58 0a 33 31 20 50 52 | 49 4e 54 22 11 1d 1d 1d |TX.31 PR|INT"....|
|000000a0| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 31 22 3b 3a 46 4f 52 |........|.1";:FOR|
|000000b0| 58 3d 31 54 4f 31 30 30 | 3a 4e 45 58 54 0a 33 32 |X=1TO100|:NEXT.32|
|000000c0| 20 50 52 49 4e 54 22 32 | 22 3b 3a 46 4f 52 58 3d | PRINT"2|";:FORX=|
|000000d0| 31 54 4f 32 30 30 3a 4e | 45 58 54 0a 33 33 20 50 |1TO200:N|EXT.33 P|
|000000e0| 52 49 4e 54 22 30 22 3b | 3a 46 4f 52 58 3d 31 54 |RINT"0";|:FORX=1T|
|000000f0| 4f 31 30 30 30 3a 4e 45 | 58 54 0a 33 34 20 50 52 |O1000:NE|XT.34 PR|
|00000100| 49 4e 54 22 33 22 3b 3a | 46 4f 52 58 3d 31 54 4f |INT"3";:|FORX=1TO|
|00000110| 33 30 30 3a 4e 45 58 54 | 0a 33 35 20 50 52 49 4e |300:NEXT|.35 PRIN|
|00000120| 54 22 37 22 3b 3a 46 4f | 52 58 3d 31 54 4f 37 30 |T"7";:FO|RX=1TO70|
|00000130| 30 3a 4e 45 58 54 0a 33 | 36 20 50 52 49 4e 54 22 |0:NEXT.3|6 PRINT"|
|00000140| 33 22 3b 3a 46 4f 52 58 | 3d 31 54 4f 33 30 30 3a |3";:FORX|=1TO300:|
|00000150| 4e 45 58 54 0a 33 37 20 | 50 52 49 4e 54 22 38 22 |NEXT.37 |PRINT"8"|
|00000160| 3b 3a 46 4f 52 58 3d 31 | 54 4f 38 30 30 3a 4e 45 |;:FORX=1|TO800:NE|
|00000170| 58 54 0a 33 38 20 50 52 | 49 4e 54 22 37 22 3b 3a |XT.38 PR|INT"7";:|
|00000180| 46 4f 52 58 3d 31 54 4f | 37 30 30 3a 4e 45 58 54 |FORX=1TO|700:NEXT|
|00000190| 0a 33 39 20 50 52 49 4e | 54 22 36 22 3b 3a 46 4f |.39 PRIN|T"6";:FO|
|000001a0| 52 58 3d 31 54 4f 36 30 | 30 3a 4e 45 58 54 0a 34 |RX=1TO60|0:NEXT.4|
|000001b0| 30 20 50 52 49 4e 54 22 | 38 22 3b 3a 46 4f 52 58 |0 PRINT"|8";:FORX|
|000001c0| 3d 31 54 4f 38 30 30 3a | 4e 45 58 54 0a 34 31 20 |=1TO800:|NEXT.41 |
|000001d0| 50 52 49 4e 54 22 35 22 | 3b 3a 46 4f 52 58 3d 31 |PRINT"5"|;:FORX=1|
|000001e0| 54 4f 35 30 30 3a 4e 45 | 58 54 0a 34 32 20 50 52 |TO500:NE|XT.42 PR|
|000001f0| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 22 |INT:PRIN|T:PRINT"|
|00000200| 57 41 49 54 49 4e 47 20 | 46 4f 52 20 43 4f 4e 4e |WAITING |FOR CONN|
|00000210| 45 43 54 49 4f 4e 2e 2e | 2e 2e 22 3a 46 4f 52 58 |ECTION..|..":FORX|
|00000220| 3d 31 54 4f 35 30 30 30 | 3a 4e 45 58 54 0a 35 30 |=1TO5000|:NEXT.50|
|00000230| 20 50 52 49 4e 54 43 48 | 52 24 28 31 32 29 0a 37 | PRINTCH|R$(12).7|
|00000240| 30 20 44 49 4d 41 24 28 | 31 30 30 29 0a 38 30 20 |0 DIMA$(|100).80 |
|00000250| 50 52 49 4e 54 22 4e 4f | 52 41 44 20 53 59 53 54 |PRINT"NO|RAD SYST|
|00000260| 45 4d 20 43 4f 4d 43 4f | 4e 34 20 2e 20 2e 20 2e |EM COMCO|N4 . . .|
|00000270| 20 2e 20 43 4f 4e 4e 45 | 43 54 45 44 22 3a 47 4f | . CONNE|CTED":GO|
|00000280| 53 55 42 33 35 31 30 30 | 3a 46 4f 52 4a 3d 31 54 |SUB35100|:FORJ=1T|
|00000290| 4f 34 30 30 3a 4e 45 58 | 54 0a 39 30 20 50 52 49 |O400:NEX|T.90 PRI|
|000002a0| 4e 54 3a 50 52 49 4e 54 | 0a 31 30 30 20 50 52 49 |NT:PRINT|.100 PRI|
|000002b0| 4e 54 22 41 55 54 48 4f | 52 49 54 59 20 43 4f 44 |NT"AUTHO|RITY COD|
|000002c0| 45 2d 2d 3e 22 3b 3a 46 | 4f 52 58 3d 31 54 4f 36 |E-->";:F|ORX=1TO6|
|000002d0| 3a 47 4f 53 55 42 34 35 | 30 3a 4e 45 58 54 0a 31 |:GOSUB45|0:NEXT.1|
|000002e0| 31 30 20 47 4f 53 55 42 | 34 37 30 0a 31 32 30 20 |10 GOSUB|470.120 |
|000002f0| 50 52 49 4e 54 22 93 11 | 11 11 11 22 53 50 43 28 |PRINT"..|..."SPC(|
|00000300| 31 31 29 22 4e 4f 52 41 | 44 20 50 52 49 4d 45 20 |11)"NORA|D PRIME |
|00000310| 41 43 43 45 53 53 22 3a | 50 52 49 4e 54 53 50 43 |ACCESS":|PRINTSPC|
|00000320| 28 31 31 29 22 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |(11)"...|........|
|00000330| a3 a3 a3 a3 a3 a3 a3 22 | 0a 31 33 30 20 46 4f 52 |......."|.130 FOR|
|00000340| 58 3d 31 54 4f 31 35 30 | 30 3a 4e 45 58 54 3a 50 |X=1TO150|0:NEXT:P|
|00000350| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 31 34 30 20 50 |RINT:PRI|NT.140 P|
|00000360| 52 49 4e 54 22 93 11 11 | 22 53 50 43 28 31 37 29 |RINT"...|"SPC(17)|
|00000370| 22 11 11 57 41 52 4e 49 | 4e 47 22 3a 50 52 49 4e |"..WARNI|NG":PRIN|
|00000380| 54 53 50 43 28 31 37 29 | 22 a3 a3 a3 a3 a3 a3 a3 |TSPC(17)|".......|
|00000390| 22 3a 46 4f 52 58 3d 31 | 54 4f 34 3a 47 4f 53 55 |":FORX=1|TO4:GOSU|
|000003a0| 42 33 35 30 30 30 3a 4e | 45 58 54 0a 31 35 30 20 |B35000:N|EXT.150 |
|000003b0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|000003c0| 54 22 49 4e 43 4f 4d 49 | 4e 47 20 43 41 4c 4c 45 |T"INCOMI|NG CALLE|
|000003d0| 52 53 20 53 55 42 4a 45 | 43 54 20 54 4f 20 55 4e |RS SUBJE|CT TO UN|
|000003e0| 49 54 45 44 00 0a 31 35 | 35 20 50 52 49 4e 54 22 |ITED..15|5 PRINT"|
|000003f0| 53 54 41 54 45 53 20 4d | 49 4c 49 54 41 52 59 20 |STATES M|ILITARY |
|00000400| 22 3b 0a 31 36 30 20 50 | 52 49 4e 54 22 54 52 49 |";.160 P|RINT"TRI|
|00000410| 42 55 4e 41 4c 20 4a 55 | 53 54 49 43 45 20 53 59 |BUNAL JU|STICE SY|
|00000420| 53 54 45 4d 2e 91 00 0a | 31 36 35 20 50 52 49 4e |STEM....|165 PRIN|
|00000430| 54 22 46 4f 52 45 49 47 | 4e 20 41 43 43 45 53 53 |T"FOREIG|N ACCESS|
|00000440| 20 53 54 52 49 43 54 4c | 59 20 50 52 4f 48 49 42 | STRICTL|Y PROHIB|
|00000450| 49 54 45 44 2e 22 3a 50 | 52 49 4e 54 0a 31 37 30 |ITED.":P|RINT.170|
|00000460| 20 50 52 49 4e 54 22 41 | 43 43 45 53 53 20 49 53 | PRINT"A|CCESS IS|
|00000470| 20 4f 4e 20 41 20 4e 45 | 45 44 20 54 4f 20 4b 4e | ON A NE|ED TO KN|
|00000480| 4f 57 2c 20 45 59 45 53 | 2d 4f 4e 4c 59 22 0a 31 |OW, EYES|-ONLY".1|
|00000490| 38 30 20 50 52 49 4e 54 | 22 42 41 53 49 53 20 46 |80 PRINT|"BASIS F|
|000004a0| 4f 52 20 41 4c 4c 20 42 | 55 54 20 43 4f 4d 4d 41 |OR ALL B|UT COMMA|
|000004b0| 4e 44 20 41 55 54 48 4f | 52 49 54 59 2e 22 3a 50 |ND AUTHO|RITY.":P|
|000004c0| 52 49 4e 54 0a 31 39 30 | 20 50 52 49 4e 54 22 41 |RINT.190| PRINT"A|
|000004d0| 54 20 54 48 49 53 20 50 | 4f 49 4e 54 2c 20 49 4d |T THIS P|OINT, IM|
|000004e0| 50 52 4f 50 45 52 20 49 | 44 45 4e 54 49 46 49 43 |PROPER I|DENTIFIC|
|000004f0| 41 54 49 4f 4e 22 3a 50 | 52 49 4e 54 22 57 49 4c |ATION":P|RINT"WIL|
|00000500| 4c 20 52 45 53 55 4c 54 | 20 49 4e 20 41 55 54 4f |L RESULT| IN AUTO|
|00000510| 4d 41 54 49 43 20 22 3b | 0a 32 30 30 20 50 52 49 |MATIC ";|.200 PRI|
|00000520| 4e 54 22 53 55 52 56 45 | 49 4c 4c 41 4e 43 45 20 |NT"SURVE|ILLANCE |
|00000530| 4f 46 22 3b 3a 50 52 49 | 4e 54 22 43 4f 4e 4e 45 |OF";:PRI|NT"CONNE|
|00000540| 43 54 49 4e 47 20 54 45 | 4c 45 50 48 4f 4e 45 20 |CTING TE|LEPHONE |
|00000550| 4c 49 4e 45 20 41 4e 44 | 00 0a 32 31 30 20 50 52 |LINE AND|..210 PR|
|00000560| 49 4e 54 22 49 4e 46 4f | 52 4d 41 54 49 4f 4e 20 |INT"INFO|RMATION |
|00000570| 53 4f 20 47 41 54 48 45 | 52 45 44 20 57 49 4c 4c |SO GATHE|RED WILL|
|00000580| 20 42 45 20 50 52 4f 56 | 49 44 45 44 22 3b 0a 32 | BE PROV|IDED";.2|
|00000590| 32 30 20 50 52 49 4e 54 | 22 54 4f 20 54 48 45 20 |20 PRINT|"TO THE |
|000005a0| 50 52 4f 50 45 52 20 44 | 4f 4d 45 53 54 49 43 20 |PROPER D|OMESTIC |
|000005b0| 50 4f 4c 49 43 45 20 41 | 4e 44 22 0a 32 32 35 20 |POLICE A|ND".225 |
|000005c0| 50 52 49 4e 54 22 47 4f | 56 45 52 4e 4d 45 4e 54 |PRINT"GO|VERNMENT|
|000005d0| 41 4c 20 41 47 45 4e 43 | 49 45 53 2e 2e 2e 2e 2e |AL AGENC|IES.....|
|000005e0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 22 0a |........|......".|
|000005f0| 32 32 37 20 46 4f 52 58 | 3d 31 54 4f 31 35 30 30 |227 FORX|=1TO1500|
|00000600| 30 3a 4e 45 58 54 0a 32 | 33 30 20 47 4f 53 55 42 |0:NEXT.2|30 GOSUB|
|00000610| 34 37 30 3a 5a 5a 3d 30 | 0a 32 34 30 20 50 52 49 |470:ZZ=0|.240 PRI|
|00000620| 4e 54 22 93 11 11 11 11 | 22 53 50 43 28 31 31 29 |NT".....|"SPC(11)|
|00000630| 22 4e 4f 52 41 44 20 50 | 52 49 4d 45 20 41 43 43 |"NORAD P|RIME ACC|
|00000640| 45 53 53 22 3a 50 52 49 | 4e 54 53 50 43 28 31 31 |ESS":PRI|NTSPC(11|
|00000650| 29 22 a3 a3 a3 a3 a3 20 | a3 a3 a3 a3 a3 20 a3 a3 |)"..... |..... ..|
|00000660| a3 a3 a3 a3 22 0a 32 35 | 30 20 50 52 49 4e 54 3a |....".25|0 PRINT:|
|00000670| 50 52 49 4e 54 0a 32 36 | 30 20 50 52 49 4e 54 22 |PRINT.26|0 PRINT"|
|00000680| 50 4c 45 41 53 45 20 45 | 4e 54 45 52 20 59 4f 55 |PLEASE E|NTER YOU|
|00000690| 52 20 45 59 45 53 2d 4f | 4e 4c 59 20 43 4f 44 45 |R EYES-O|NLY CODE|
|000006a0| 2d 2d 3e 22 3b 3a 46 4f | 52 58 3d 31 54 4f 36 3a |-->";:FO|RX=1TO6:|
|000006b0| 47 4f 53 55 42 34 35 30 | 3a 4e 45 58 54 58 0a 32 |GOSUB450|:NEXTX.2|
|000006c0| 37 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |70 PRINT|:PRINT:P|
|000006d0| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 32 38 30 20 50 |RINT:PRI|NT.280 P|
|000006e0| 52 49 4e 54 22 43 4f 44 | 45 20 45 4e 54 45 52 45 |RINT"COD|E ENTERE|
|000006f0| 44 20 49 4d 50 4c 49 45 | 53 20 43 4f 4d 4d 41 4e |D IMPLIE|S COMMAN|
|00000700| 44 20 41 55 54 48 4f 52 | 49 54 59 22 0a 32 39 30 |D AUTHOR|ITY".290|
|00000710| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 22 45 4e 54 | PRINT:P|RINT"ENT|
|00000720| 45 52 20 59 4f 55 52 20 | 56 45 52 49 46 49 43 41 |ER YOUR |VERIFICA|
|00000730| 54 49 4f 4e 20 41 53 20 | 47 49 56 45 4e 20 49 4e |TION AS |GIVEN IN|
|00000740| 2e 2e 2e 2e 22 0a 33 30 | 30 20 46 4f 52 58 3d 31 |....".30|0 FORX=1|
|00000750| 54 4f 32 30 30 3a 4e 45 | 58 54 58 0a 33 31 30 20 |TO200:NE|XTX.310 |
|00000760| 50 52 49 4e 54 22 3e 3e | 3e 3e 3e 3e 42 4f 4f 4b |PRINT">>|>>>>BOOK|
|00000770| 20 31 32 52 59 2d 4f 4c | 49 56 45 3c 3c 3c 3c 3c | 12RY-OL|IVE<<<<<|
|00000780| 3c 22 0a 33 32 30 20 50 | 52 49 4e 54 3a 50 52 49 |<".320 P|RINT:PRI|
|00000790| 4e 54 22 45 4e 54 45 52 | 20 2d 2d 3e 22 3b 3a 46 |NT"ENTER| -->";:F|
|000007a0| 4f 52 58 3d 31 54 4f 36 | 3a 47 4f 53 55 42 34 35 |ORX=1TO6|:GOSUB45|
|000007b0| 30 3a 4e 45 58 54 0a 33 | 33 30 20 47 4f 53 55 42 |0:NEXT.3|30 GOSUB|
|000007c0| 34 37 30 0a 33 34 30 20 | 50 52 49 4e 54 22 93 11 |470.340 |PRINT"..|
|000007d0| 11 22 53 50 43 28 31 31 | 29 22 4e 4f 52 41 44 20 |."SPC(11|)"NORAD |
|000007e0| 43 4f 4d 4d 41 4e 44 20 | 4c 45 56 45 4c 22 3a 50 |COMMAND |LEVEL":P|
|000007f0| 52 49 4e 54 53 50 43 28 | 31 31 29 22 a3 a3 a3 a3 |RINTSPC(|11)"....|
|00000800| a3 a0 a3 a3 a3 a3 a3 a3 | a3 a0 a3 a3 a3 a3 a3 00 |........|........|
|00000810| 0a 33 35 30 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |.350 PRI|NT:PRINT|
|00000820| 0a 33 36 30 20 50 52 49 | 4e 54 22 53 49 52 2c 20 |.360 PRI|NT"SIR, |
|00000830| 43 4f 4d 43 4f 4e 34 20 | 52 45 50 4f 52 54 53 20 |COMCON4 |REPORTS |
|00000840| 55 50 54 49 4d 45 20 56 | 45 52 49 46 49 45 44 20 |UPTIME V|ERIFIED |
|00000850| 46 4f 52 22 3b 3a 50 52 | 49 4e 54 22 4e 45 58 54 |FOR";:PR|INT"NEXT|
|00000860| 20 4f 4e 45 20 48 4f 55 | 52 2e 22 0a 33 37 30 20 | ONE HOU|R.".370 |
|00000870| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 4e 4f 52 41 |PRINT:PR|INT"NORA|
|00000880| 44 20 43 4f 4d 4d 41 4e | 44 20 43 45 4e 54 45 52 |D COMMAN|D CENTER|
|00000890| 20 43 41 4e 20 42 45 20 | 52 45 41 43 48 45 44 20 | CAN BE |REACHED |
|000008a0| 41 54 22 3a 50 52 49 4e | 54 22 41 4e 59 20 54 49 |AT":PRIN|T"ANY TI|
|000008b0| 4d 45 22 3b 0a 33 38 30 | 20 50 52 49 4e 54 22 20 |ME";.380| PRINT" |
|000008c0| 57 49 54 48 20 50 41 53 | 53 57 4f 52 44 53 20 41 |WITH PAS|SWORDS A|
|000008d0| 53 20 50 52 4f 56 49 44 | 45 44 20 49 4e 22 3a 50 |S PROVID|ED IN":P|
|000008e0| 52 49 4e 54 22 54 48 45 | 20 4c 41 4e 47 4c 45 59 |RINT"THE| LANGLEY|
|000008f0| 20 50 52 4f 54 4f 43 4f | 4c 53 2e 22 0a 33 39 30 | PROTOCO|LS.".390|
|00000900| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 | PRINT:P|RINT:PRI|
|00000910| 4e 54 22 45 4e 54 45 52 | 49 4e 47 20 44 49 52 45 |NT"ENTER|ING DIRE|
|00000920| 43 54 20 43 4f 4d 4d 41 | 4e 44 20 4d 4f 44 45 2e |CT COMMA|ND MODE.|
|00000930| 2e 2e 2e 22 0a 34 30 30 | 20 47 4f 53 55 42 34 38 |...".400| GOSUB48|
|00000940| 30 0a 34 31 30 20 50 52 | 49 4e 54 43 48 52 24 28 |0.410 PR|INTCHR$(|
|00000950| 31 32 29 0a 34 32 30 20 | 50 52 49 4e 54 22 93 11 |12).420 |PRINT"..|
|00000960| 11 22 53 50 43 28 31 31 | 29 22 4e 4f 52 41 44 20 |."SPC(11|)"NORAD |
|00000970| 43 4f 4d 4d 41 4e 44 20 | 4c 45 56 45 4c 22 3a 50 |COMMAND |LEVEL":P|
|00000980| 52 49 4e 54 53 50 43 28 | 31 31 29 22 a3 a3 a3 a3 |RINTSPC(|11)"....|
|00000990| a3 a0 a3 a3 a3 a3 a3 a3 | a3 a0 a3 a3 a3 a3 a3 00 |........|........|
|000009a0| 0a 34 32 32 20 50 52 49 | 4e 54 22 20 20 20 20 20 |.422 PRI|NT"     |
|000009b0| 20 20 20 22 20 20 22 00 | 0a 34 33 30 20 47 4f 54 |   "  ".|.430 GOT|
|000009c0| 4f 34 30 30 0a 34 34 30 | 20 45 4e 44 0a 34 35 30 |O400.440| END.450|
|000009d0| 20 47 45 54 41 24 3a 49 | 46 41 24 3d 22 22 54 48 | GETA$:I|FA$=""TH|
|000009e0| 45 4e 34 35 30 0a 34 35 | 35 20 50 52 49 4e 54 41 |EN450.45|5 PRINTA|
|000009f0| 24 3b 3a 41 24 3d 22 22 | 0a 34 36 30 20 52 45 54 |$;:A$=""|.460 RET|
|00000a00| 55 52 4e 0a 34 37 30 20 | 46 4f 52 58 3d 31 54 4f |URN.470 |FORX=1TO|
|00000a10| 31 30 30 30 2b 5a 5a 3a | 4e 45 58 54 58 3a 50 52 |1000+ZZ:|NEXTX:PR|
|00000a20| 49 4e 54 3a 52 45 54 55 | 52 4e 0a 34 38 30 20 50 |INT:RETU|RN.480 P|
|00000a30| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000a40| 3a 50 52 49 4e 54 3a 49 | 4e 50 55 54 22 3d 3d 3d |:PRINT:I|NPUT"===|
|00000a50| 3e 22 3b 41 24 0a 34 39 | 30 20 49 46 4c 45 46 54 |>";A$.49|0 IFLEFT|
|00000a60| 24 28 41 24 2c 37 29 3d | 22 4c 41 4e 47 4c 45 59 |$(A$,7)=|"LANGLEY|
|00000a70| 22 54 48 45 4e 47 4f 53 | 55 42 35 35 30 0a 35 30 |"THENGOS|UB550.50|
|00000a80| 30 20 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |0 PRINT:|PRINT:PR|
|00000a90| 49 4e 54 22 53 45 41 52 | 43 48 49 4e 47 20 46 4f |INT"SEAR|CHING FO|
|00000aa0| 52 20 53 55 42 50 52 4f | 47 52 41 4d 2e 2e 2e 2e |R SUBPRO|GRAM....|
|00000ab0| 22 3a 46 4f 52 58 3d 31 | 54 4f 32 30 30 30 3a 4e |":FORX=1|TO2000:N|
|00000ac0| 45 58 54 3a 50 52 49 4e | 54 22 2e 2e 2e 2e 52 55 |EXT:PRIN|T"....RU|
|00000ad0| 4e 4e 49 4e 47 20 22 3b | 41 24 3b 0a 35 31 30 20 |NNING ";|A$;.510 |
|00000ae0| 50 52 49 4e 54 22 20 4f | 4e 20 43 50 55 20 22 3b |PRINT" O|N CPU ";|
|00000af0| 3a 50 52 49 4e 54 49 4e | 54 28 52 4e 44 28 31 29 |:PRINTIN|T(RND(1)|
|00000b00| 2a 32 30 29 0a 35 32 30 | 20 41 3d 49 4e 54 28 52 |*20).520| A=INT(R|
|00000b10| 4e 44 28 31 29 2a 34 2b | 31 29 0a 35 32 35 20 46 |ND(1)*4+|1).525 F|
|00000b20| 4f 52 4a 3d 31 54 4f 31 | 30 30 30 3a 4e 45 58 54 |ORJ=1TO1|000:NEXT|
|00000b30| 0a 35 33 30 20 4f 4e 41 | 47 4f 53 55 42 37 30 30 |.530 ONA|GOSUB700|
|00000b40| 2c 39 35 30 2c 31 30 39 | 30 2c 31 32 34 30 0a 35 |,950,109|0,1240.5|
|00000b50| 34 30 20 52 45 54 55 52 | 4e 0a 35 35 30 20 47 4f |40 RETUR|N.550 GO|
|00000b60| 53 55 42 34 37 30 0a 35 | 36 30 20 50 52 49 4e 54 |SUB470.5|60 PRINT|
|00000b70| 43 48 52 24 28 31 32 29 | 3a 46 4f 52 58 3d 31 54 |CHR$(12)|:FORX=1T|
|00000b80| 4f 34 3a 50 52 49 4e 54 | 3b 3a 47 4f 53 55 42 33 |O4:PRINT|;:GOSUB3|
|00000b90| 35 31 30 30 3a 50 52 49 | 4e 54 3b 3a 4e 45 58 54 |5100:PRI|NT;:NEXT|
|00000ba0| 58 3a 50 52 49 4e 54 22 | 43 4f 4d 43 4f 4e 34 2e |X:PRINT"|COMCON4.|
|00000bb0| 2e 2e 2e 52 45 51 55 45 | 53 54 20 52 45 43 4f 52 |...REQUE|ST RECOR|
|00000bc0| 44 45 44 22 0a 35 37 30 | 20 50 52 49 4e 54 22 50 |DED".570| PRINT"P|
|00000bd0| 52 4f 43 45 53 53 49 4e | 47 2e 20 53 54 41 4e 44 |ROCESSIN|G. STAND|
|00000be0| 42 59 22 0a 35 38 30 20 | 46 4f 52 58 3d 31 54 4f |BY".580 |FORX=1TO|
|00000bf0| 31 30 30 30 3a 4e 45 58 | 54 58 3a 47 4f 53 55 42 |1000:NEX|TX:GOSUB|
|00000c00| 34 37 30 0a 35 39 30 20 | 50 52 49 4e 54 22 93 11 |470.590 |PRINT"..|
|00000c10| 11 22 53 50 43 28 31 30 | 29 22 4e 4f 52 41 44 20 |."SPC(10|)"NORAD |
|00000c20| 43 45 4e 54 52 41 4c 20 | 43 4f 4d 4d 41 4e 44 00 |CENTRAL |COMMAND.|
|00000c30| 0a 36 30 30 20 50 52 49 | 4e 54 53 50 43 28 31 30 |.600 PRI|NTSPC(10|
|00000c40| 29 22 a3 a3 a3 a3 a3 20 | a3 a3 a3 a3 a3 a3 a3 20 |)"..... |....... |
|00000c50| a3 a3 a3 a3 a3 a3 a3 22 | 0a 36 31 30 20 50 52 49 |......."|.610 PRI|
|00000c60| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 59 |NT:PRINT|:PRINT"Y|
|00000c70| 4f 55 20 48 41 56 45 20 | 52 45 41 43 48 45 44 20 |OU HAVE |REACHED |
|00000c80| 4c 41 4e 47 4c 45 59 20 | 43 45 4e 54 45 52 22 3a |LANGLEY |CENTER":|
|00000c90| 50 52 49 4e 54 0a 36 32 | 30 20 50 52 49 4e 54 22 |PRINT.62|0 PRINT"|
|00000ca0| 50 52 49 4d 41 52 59 20 | 49 4e 54 45 4c 4c 49 47 |PRIMARY |INTELLIG|
|00000cb0| 45 4e 43 45 20 56 45 52 | 49 46 49 43 41 54 49 4f |ENCE VER|IFICATIO|
|00000cc0| 4e 20 43 4f 44 45 2c 20 | 50 4c 45 41 53 45 3d 3d |N CODE, |PLEASE==|
|00000cd0| 3e 22 3b 3a 46 4f 52 58 | 3d 31 54 4f 36 3a 47 4f |>";:FORX|=1TO6:GO|
|00000ce0| 53 55 42 34 35 30 3a 4e | 45 58 54 0a 36 33 30 20 |SUB450:N|EXT.630 |
|00000cf0| 50 52 49 4e 54 0a 36 34 | 30 20 46 4f 52 58 3d 31 |PRINT.64|0 FORX=1|
|00000d00| 54 4f 34 3a 50 52 49 4e | 54 3a 4e 45 58 54 3a 47 |TO4:PRIN|T:NEXT:G|
|00000d10| 4f 53 55 42 33 35 31 30 | 30 3a 50 52 49 4e 54 3a |OSUB3510|0:PRINT:|
|00000d20| 50 52 49 4e 54 22 45 58 | 45 43 55 54 49 56 45 20 |PRINT"EX|ECUTIVE |
|00000d30| 50 4f 57 45 52 20 43 4c | 41 49 4d 20 45 4e 54 45 |POWER CL|AIM ENTE|
|00000d40| 52 45 44 20 2e 20 2e 20 | 2e 20 2e 22 0a 36 35 30 |RED . . |. .".650|
|00000d50| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 | PRINT:P|RINT:PRI|
|00000d60| 4e 54 22 41 49 52 20 46 | 4f 52 43 45 20 4f 4e 45 |NT"AIR F|ORCE ONE|
|00000d70| 20 46 41 4c 4c 42 41 43 | 4b 20 41 4c 45 52 54 21 | FALLBAC|K ALERT!|
|00000d80| 22 0a 36 36 30 20 50 52 | 49 4e 54 3a 50 52 49 4e |".660 PR|INT:PRIN|
|00000d90| 54 3a 50 52 49 4e 54 22 | 4d 52 2e 20 50 52 45 53 |T:PRINT"|MR. PRES|
|00000da0| 49 44 45 4e 54 2c 20 50 | 4c 45 41 53 45 20 45 4e |IDENT, P|LEASE EN|
|00000db0| 54 45 52 20 59 4f 55 52 | 20 54 4f 54 41 4c 22 3a |TER YOUR| TOTAL":|
|00000dc0| 50 52 49 4e 54 22 43 4f | 4d 4d 41 4e 44 20 41 55 |PRINT"CO|MMAND AU|
|00000dd0| 54 48 4f 52 49 5a 41 54 | 49 4f 4e 3d 3d 3e 22 3b |THORIZAT|ION==>";|
|00000de0| 0a 36 37 30 20 46 4f 52 | 58 3d 31 54 4f 36 3a 47 |.670 FOR|X=1TO6:G|
|00000df0| 4f 53 55 42 34 35 30 3a | 4e 45 58 54 0a 36 38 30 |OSUB450:|NEXT.680|
|00000e00| 20 50 52 49 4e 54 0a 36 | 39 30 20 47 4f 54 4f 31 | PRINT.6|90 GOTO1|
|00000e10| 33 32 30 0a 37 30 30 20 | 52 45 4d 20 20 20 20 46 |320.700 |REM    F|
|00000e20| 49 52 53 54 20 46 41 4b | 45 20 4f 55 54 50 55 54 |IRST FAK|E OUTPUT|
|00000e30| 0a 37 31 30 20 47 4f 53 | 55 42 38 35 30 0a 37 32 |.710 GOS|UB850.72|
|00000e40| 30 20 47 4f 53 55 42 34 | 37 30 0a 37 33 30 20 50 |0 GOSUB4|70.730 P|
|00000e50| 52 49 4e 54 22 93 11 11 | 22 53 50 43 28 31 31 29 |RINT"...|"SPC(11)|
|00000e60| 22 4e 4f 52 41 44 20 43 | 4f 4d 4d 41 4e 44 20 4c |"NORAD C|OMMAND L|
|00000e70| 45 56 45 4c 22 3a 50 52 | 49 4e 54 53 50 43 28 31 |EVEL":PR|INTSPC(1|
|00000e80| 31 29 22 a3 a3 a3 a3 a3 | a0 a3 a3 a3 a3 a3 a3 a3 |1)".....|........|
|00000e90| a0 a3 a3 a3 a3 a3 00 0a | 37 34 30 20 50 52 49 4e |........|740 PRIN|
|00000ea0| 54 0a 37 35 30 20 50 52 | 49 4e 54 22 20 20 20 43 |T.750 PR|INT"   C|
|00000eb0| 4f 4d 43 4f 4e 34 20 52 | 55 4e 4e 49 4e 47 2e 2e |OMCON4 R|UNNING..|
|00000ec0| 2e 22 3b 41 24 0a 37 36 | 30 20 50 52 49 4e 54 3a |.";A$.76|0 PRINT:|
|00000ed0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 0a 37 37 30 20 |PRINT:PR|INT.770 |
|00000ee0| 46 4f 52 58 3d 31 54 4f | 49 4e 54 28 52 4e 44 28 |FORX=1TO|INT(RND(|
|00000ef0| 31 29 2a 35 29 2b 31 0a | 37 38 30 20 46 4f 52 59 |1)*5)+1.|780 FORY|
|00000f00| 3d 31 54 4f 32 30 0a 37 | 39 30 20 50 52 49 4e 54 |=1TO20.7|90 PRINT|
|00000f10| 49 4e 54 28 52 4e 44 28 | 31 29 2a 39 2b 31 29 3b |INT(RND(|1)*9+1);|
|00000f20| 22 20 22 3b 0a 38 30 30 | 20 4e 45 58 54 59 3a 4e |" ";.800| NEXTY:N|
|00000f30| 45 58 54 58 0a 38 31 30 | 20 50 52 49 4e 54 3a 50 |EXTX.810| PRINT:P|
|00000f40| 52 49 4e 54 3a 0a 38 32 | 30 20 49 4e 50 55 54 22 |RINT:.82|0 INPUT"|
|00000f50| 50 52 45 53 53 20 52 45 | 54 55 52 4e 20 57 48 45 |PRESS RE|TURN WHE|
|00000f60| 4e 20 44 45 43 4f 44 45 | 44 20 3d 3d 3e 22 3b 43 |N DECODE|D ==>";C|
|00000f70| 24 0a 38 33 30 20 52 45 | 54 55 52 4e 0a 38 34 30 |$.830 RE|TURN.840|
|00000f80| 20 52 45 53 54 4f 52 45 | 0a 38 35 30 20 52 45 4d | RESTORE|.850 REM|
|00000f90| 20 20 43 4f 4d 4d 41 4e | 44 20 53 55 42 52 4f 55 |  COMMAN|D SUBROU|
|00000fa0| 54 49 4e 45 0a 38 36 30 | 20 50 52 49 4e 54 43 48 |TINE.860| PRINTCH|
|00000fb0| 52 24 28 31 32 29 0a 38 | 37 30 20 50 52 49 4e 54 |R$(12).8|70 PRINT|
|00000fc0| 22 93 11 11 22 53 50 43 | 28 31 31 29 22 4e 4f 52 |"..."SPC|(11)"NOR|
|00000fd0| 41 44 20 43 4f 4d 4d 41 | 4e 44 20 4c 45 56 45 4c |AD COMMA|ND LEVEL|
|00000fe0| 22 3a 50 52 49 4e 54 53 | 50 43 28 31 31 29 22 a3 |":PRINTS|PC(11)".|
|00000ff0| a3 a3 a3 a3 a0 a3 a3 a3 | a3 a3 a3 a3 a0 a3 a3 a3 |........|........|
|00001000| a3 a3 00 0a 38 38 30 20 | 50 52 49 4e 54 3a 50 52 |....880 |PRINT:PR|
|00001010| 49 4e 54 3a 50 52 49 4e | 54 3a 46 4f 52 58 3d 31 |INT:PRIN|T:FORX=1|
|00001020| 54 4f 35 3a 52 45 41 44 | 42 24 28 58 29 3a 4e 45 |TO5:READ|B$(X):NE|
|00001030| 58 54 58 0a 38 39 30 20 | 44 41 54 41 22 47 52 45 |XTX.890 |DATA"GRE|
|00001040| 45 4e 22 2c 22 47 4f 4c | 44 22 2c 22 43 52 49 4d |EN","GOL|D","CRIM|
|00001050| 53 4f 4e 22 2c 22 56 49 | 4f 4c 45 54 22 2c 22 47 |SON","VI|OLET","G|
|00001060| 52 45 59 22 0a 39 30 30 | 20 50 52 49 4e 54 3a 50 |REY".900| PRINT:P|
|00001070| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 39 31 30 20 50 |RINT:PRI|NT.910 P|
|00001080| 52 49 4e 54 22 55 53 49 | 4e 47 20 42 4f 4f 4b 20 |RINT"USI|NG BOOK |
|00001090| 22 3b 49 4e 54 28 52 4e | 44 28 31 29 2a 39 39 2b |";INT(RN|D(1)*99+|
|000010a0| 31 29 3b 42 24 28 49 4e | 54 28 52 4e 44 28 31 29 |1);B$(IN|T(RND(1)|
|000010b0| 2a 35 29 29 0a 39 32 30 | 20 50 52 49 4e 54 3a 50 |*5)).920| PRINT:P|
|000010c0| 52 49 4e 54 3a 46 4f 52 | 4a 3d 31 54 4f 31 30 30 |RINT:FOR|J=1TO100|
|000010d0| 30 3a 4e 45 58 54 0a 39 | 33 30 20 52 45 53 54 4f |0:NEXT.9|30 RESTO|
|000010e0| 52 45 3a 52 45 54 55 52 | 4e 0a 39 34 30 20 52 45 |RE:RETUR|N.940 RE|
|000010f0| 54 55 52 4e 0a 39 35 30 | 20 52 45 4d 20 20 20 20 |TURN.950| REM    |
|00001100| 53 45 43 4f 4e 44 20 46 | 41 4b 45 20 4f 55 54 50 |SECOND F|AKE OUTP|
|00001110| 55 54 0a 39 36 30 20 47 | 4f 53 55 42 38 35 30 0a |UT.960 G|OSUB850.|
|00001120| 39 37 30 20 50 52 49 4e | 54 43 48 52 24 28 31 32 |970 PRIN|TCHR$(12|
|00001130| 29 0a 39 38 30 20 50 52 | 49 4e 54 22 93 11 11 22 |).980 PR|INT"..."|
|00001140| 53 50 43 28 31 31 29 22 | 4e 4f 52 41 44 20 43 4f |SPC(11)"|NORAD CO|
|00001150| 4d 4d 41 4e 44 20 4c 45 | 56 45 4c 22 3a 50 52 49 |MMAND LE|VEL":PRI|
|00001160| 4e 54 53 50 43 28 31 31 | 29 22 a3 a3 a3 a3 a3 a0 |NTSPC(11|)"......|
|00001170| a3 a3 a3 a3 a3 a3 a3 a0 | a3 a3 a3 a3 a3 00 0a 39 |........|.......9|
|00001180| 39 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |90 PRINT|:PRINT:P|
|00001190| 52 49 4e 54 22 43 4f 4d | 43 4f 4e 34 20 52 55 4e |RINT"COM|CON4 RUN|
|000011a0| 4e 49 4e 47 2e 2e 2e 2e | 2e 2e 22 3b 41 24 3a 50 |NING....|..";A$:P|
|000011b0| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|000011c0| 0a 31 30 30 30 20 46 4f | 52 58 3d 31 54 4f 49 4e |.1000 FO|RX=1TOIN|
|000011d0| 54 28 52 4e 44 28 31 29 | 2a 31 30 30 2b 31 29 0a |T(RND(1)|*100+1).|
|000011e0| 31 30 31 30 20 46 4f 52 | 59 3d 31 54 4f 49 4e 54 |1010 FOR|Y=1TOINT|
|000011f0| 28 52 4e 44 28 31 29 2a | 31 30 2b 31 29 0a 31 30 |(RND(1)*|10+1).10|
|00001200| 32 30 20 5a 3d 49 4e 54 | 28 52 4e 44 28 31 29 2a |20 Z=INT|(RND(1)*|
|00001210| 32 36 2b 36 35 29 0a 31 | 30 33 30 20 50 52 49 4e |26+65).1|030 PRIN|
|00001220| 54 43 48 52 24 28 5a 29 | 3b 0a 31 30 34 30 20 4e |TCHR$(Z)|;.1040 N|
|00001230| 45 58 54 59 0a 31 30 35 | 30 20 50 52 49 4e 54 22 |EXTY.105|0 PRINT"|
|00001240| 20 22 3b 0a 31 30 36 30 | 20 4e 45 58 54 58 0a 31 | ";.1060| NEXTX.1|
|00001250| 30 37 30 20 50 52 49 4e | 54 3a 50 52 49 4e 54 3a |070 PRIN|T:PRINT:|
|00001260| 50 52 49 4e 54 3a 49 4e | 50 55 54 22 50 52 45 53 |PRINT:IN|PUT"PRES|
|00001270| 53 20 52 45 54 55 52 4e | 20 57 48 45 4e 20 44 45 |S RETURN| WHEN DE|
|00001280| 43 4f 44 45 44 3d 3d 3e | 22 3b 41 24 0a 31 30 38 |CODED==>|";A$.108|
|00001290| 30 20 52 45 54 55 52 4e | 0a 31 30 39 30 20 52 45 |0 RETURN|.1090 RE|
|000012a0| 4d 20 20 54 48 49 52 44 | 20 46 41 4b 45 20 4f 55 |M  THIRD| FAKE OU|
|000012b0| 54 50 55 54 0a 31 31 30 | 30 20 43 4b 3d 43 4b 2b |TPUT.110|0 CK=CK+|
|000012c0| 31 0a 31 31 31 30 20 47 | 4f 53 55 42 38 35 30 0a |1.1110 G|OSUB850.|
|000012d0| 31 31 32 30 20 50 52 49 | 4e 54 43 48 52 24 28 31 |1120 PRI|NTCHR$(1|
|000012e0| 32 29 0a 31 31 33 30 20 | 50 52 49 4e 54 22 93 11 |2).1130 |PRINT"..|
|000012f0| 11 22 53 50 43 28 31 31 | 29 22 4e 4f 52 41 44 20 |."SPC(11|)"NORAD |
|00001300| 43 4f 4d 4d 41 4e 44 20 | 4c 45 56 45 4c 22 3a 50 |COMMAND |LEVEL":P|
|00001310| 52 49 4e 54 53 50 43 28 | 31 31 29 22 a3 a3 a3 a3 |RINTSPC(|11)"....|
|00001320| a3 a0 a3 a3 a3 a3 a3 a3 | a3 a0 a3 a3 a3 a3 a3 00 |........|........|
|00001330| 0a 31 31 34 30 20 50 52 | 49 4e 54 3a 50 52 49 4e |.1140 PR|INT:PRIN|
|00001340| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |T:PRINT:|PRINT:PR|
|00001350| 49 4e 54 3a 46 4f 52 58 | 3d 31 54 4f 34 3a 50 52 |INT:FORX|=1TO4:PR|
|00001360| 49 4e 54 3b 3a 47 4f 53 | 55 42 33 35 31 30 30 3a |INT;:GOS|UB35100:|
|00001370| 50 52 49 4e 54 3b 3a 4e | 45 58 54 3a 50 52 49 4e |PRINT;:N|EXT:PRIN|
|00001380| 54 22 53 49 52 20 2d 2d | 20 59 4f 55 52 20 50 52 |T"SIR --| YOUR PR|
|00001390| 4f 47 52 41 4d 2c 20 22 | 41 24 0a 31 31 35 30 20 |OGRAM, "|A$.1150 |
|000013a0| 50 52 49 4e 54 22 49 53 | 20 4e 4f 54 20 49 4e 20 |PRINT"IS| NOT IN |
|000013b0| 43 50 55 20 43 41 54 41 | 4c 4f 47 22 3a 50 52 49 |CPU CATA|LOG":PRI|
|000013c0| 4e 54 3a 50 52 49 4e 54 | 0a 31 31 36 30 20 50 52 |NT:PRINT|.1160 PR|
|000013d0| 49 4e 54 22 50 4c 45 41 | 53 45 20 52 45 2d 45 4e |INT"PLEA|SE RE-EN|
|000013e0| 54 45 52 20 59 4f 55 52 | 20 43 4f 4d 4d 41 4e 44 |TER YOUR| COMMAND|
|000013f0| 20 41 55 54 48 4f 52 49 | 54 59 22 3a 50 52 49 4e | AUTHORI|TY":PRIN|
|00001400| 54 22 43 4f 44 45 3d 3d | 3e 22 3b 3a 46 4f 52 58 |T"CODE==|>";:FORX|
|00001410| 3d 31 54 4f 36 3a 47 4f | 53 55 42 34 35 30 3a 4e |=1TO6:GO|SUB450:N|
|00001420| 45 58 54 0a 31 31 37 30 | 20 49 46 43 4b 3e 34 54 |EXT.1170| IFCK>4T|
|00001430| 48 45 4e 47 4f 54 4f 31 | 33 32 30 0a 31 31 37 35 |HENGOTO1|320.1175|
|00001440| 20 50 52 49 4e 54 0a 31 | 31 38 30 20 50 52 49 4e | PRINT.1|180 PRIN|
|00001450| 54 22 50 52 4f 43 45 53 | 53 20 41 22 3b 3a 46 4f |T"PROCES|S A";:FO|
|00001460| 52 58 3d 31 54 4f 33 30 | 30 30 3a 4e 45 58 54 3a |RX=1TO30|00:NEXT:|
|00001470| 50 52 49 4e 54 22 2e 2e | 43 4f 4d 50 41 52 49 4e |PRINT"..|COMPARIN|
|00001480| 47 2e 2e 22 3b 3a 46 4f | 52 58 3d 31 54 4f 34 30 |G..";:FO|RX=1TO40|
|00001490| 30 30 3a 4e 45 58 54 3a | 50 52 49 4e 54 22 41 43 |00:NEXT:|PRINT"AC|
|000014a0| 43 45 50 54 45 44 21 22 | 0a 31 31 39 30 20 50 52 |CEPTED!"|.1190 PR|
|000014b0| 49 4e 54 3a 50 52 49 4e | 54 22 53 49 52 2c 20 50 |INT:PRIN|T"SIR, P|
|000014c0| 4c 45 41 53 45 20 43 48 | 45 43 4b 20 59 4f 55 52 |LEASE CH|ECK YOUR|
|000014d0| 20 50 52 4f 47 52 41 4d | 20 43 4f 44 45 53 2e 20 | PROGRAM| CODES. |
|000014e0| 43 4f 4d 43 4f 4e 34 20 | 49 53 20 50 52 4f 47 52 |COMCON4 |IS PROGR|
|000014f0| 41 4d 4d 45 44 22 0a 31 | 32 30 30 20 50 52 49 4e |AMMED".1|200 PRIN|
|00001500| 54 22 54 4f 20 54 45 52 | 4d 49 4e 41 54 45 20 43 |T"TO TER|MINATE C|
|00001510| 41 4c 4c 20 4f 4e 20 46 | 49 46 54 48 20 49 4c 4c |ALL ON F|IFTH ILL|
|00001520| 45 47 41 4c 20 50 52 4f | 47 52 41 4d 20 43 4f 44 |EGAL PRO|GRAM COD|
|00001530| 45 20 46 4f 52 22 0a 31 | 32 31 30 20 50 52 49 4e |E FOR".1|210 PRIN|
|00001540| 54 22 52 45 41 53 4f 4e | 53 20 4f 46 20 4e 41 54 |T"REASON|S OF NAT|
|00001550| 49 4f 4e 41 4c 20 53 45 | 43 55 52 49 54 59 20 55 |IONAL SE|CURITY U|
|00001560| 4e 44 45 52 20 45 58 45 | 43 55 54 49 56 45 20 4f |NDER EXE|CUTIVE O|
|00001570| 52 44 45 52 20 53 54 41 | 52 34 2e 22 0a 31 32 32 |RDER STA|R4.".122|
|00001580| 30 20 46 4f 52 58 3d 31 | 54 4f 37 30 30 30 3a 4e |0 FORX=1|TO7000:N|
|00001590| 45 58 54 0a 31 32 33 30 | 20 52 45 54 55 52 4e 0a |EXT.1230| RETURN.|
|000015a0| 31 32 34 30 20 52 45 4d | 20 20 20 20 46 4f 55 52 |1240 REM|    FOUR|
|000015b0| 54 48 20 46 41 4b 45 20 | 4f 55 54 50 55 54 0a 31 |TH FAKE |OUTPUT.1|
|000015c0| 32 35 30 20 47 4f 53 55 | 42 38 35 30 0a 31 32 36 |250 GOSU|B850.126|
|000015d0| 30 20 50 52 49 4e 54 43 | 48 52 24 28 31 32 29 0a |0 PRINTC|HR$(12).|
|000015e0| 31 32 37 30 20 50 52 49 | 4e 54 22 93 11 11 22 53 |1270 PRI|NT"..."S|
|000015f0| 50 43 28 31 31 29 22 4e | 4f 52 41 44 20 43 4f 4d |PC(11)"N|ORAD COM|
|00001600| 4d 41 4e 44 20 4c 45 56 | 45 4c 22 3a 50 52 49 4e |MAND LEV|EL":PRIN|
|00001610| 54 53 50 43 28 31 31 29 | 22 a3 a3 a3 a3 a3 a0 a3 |TSPC(11)|".......|
|00001620| a3 a3 a3 a3 a3 a3 a0 a3 | a3 a3 a3 a3 00 0a 31 32 |........|......12|
|00001630| 38 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |80 PRINT|:PRINT:P|
|00001640| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00001650| 0a 31 32 39 30 20 50 52 | 49 4e 54 3a 50 52 49 4e |.1290 PR|INT:PRIN|
|00001660| 54 22 50 41 47 45 20 22 | 3b 49 4e 54 28 52 4e 44 |T"PAGE "|;INT(RND|
|00001670| 28 31 29 2a 31 30 30 30 | 29 3b 3a 50 52 49 4e 54 |(1)*1000|);:PRINT|
|00001680| 22 20 49 4e 20 43 4f 44 | 45 20 42 4f 4f 4b 20 22 |" IN COD|E BOOK "|
|00001690| 3b 42 24 3b 22 20 49 53 | 22 0a 31 33 30 30 20 50 |;B$;" IS|".1300 P|
|000016a0| 52 49 4e 54 22 53 54 49 | 4c 4c 20 4f 50 45 52 41 |RINT"STI|LL OPERA|
|000016b0| 54 49 56 45 20 41 53 20 | 49 4e 20 50 52 49 4d 41 |TIVE AS |IN PRIMA|
|000016c0| 52 59 20 44 49 52 45 43 | 54 49 56 45 53 2e 22 0a |RY DIREC|TIVES.".|
|000016d0| 31 33 31 30 20 46 4f 52 | 58 3d 31 54 4f 31 30 30 |1310 FOR|X=1TO100|
|000016e0| 30 3a 4e 45 58 54 58 3a | 52 45 54 55 52 4e 0a 31 |0:NEXTX:|RETURN.1|
|000016f0| 33 32 30 20 52 45 4d 20 | 20 44 45 53 54 52 55 43 |320 REM | DESTRUC|
|00001700| 54 21 0a 31 33 33 30 20 | 50 52 49 4e 54 43 48 52 |T!.1330 |PRINTCHR|
|00001710| 24 28 31 32 29 0a 31 33 | 34 30 20 50 52 49 4e 54 |$(12).13|40 PRINT|
|00001720| 53 50 43 28 31 38 29 22 | 4e 4f 52 41 44 22 3a 50 |SPC(18)"|NORAD":P|
|00001730| 52 49 4e 54 3a 50 52 49 | 4e 54 53 50 43 28 31 33 |RINT:PRI|NTSPC(13|
|00001740| 29 22 2a 2a 43 4f 44 45 | 20 41 43 43 45 50 54 2a |)"**CODE| ACCEPT*|
|00001750| 2a 22 0a 31 33 34 35 20 | 46 4f 52 54 4b 3d 31 54 |*".1345 |FORTK=1T|
|00001760| 4f 35 30 30 30 3a 4e 45 | 58 54 0a 31 33 34 39 20 |O5000:NE|XT.1349 |
|00001770| 5a 3d 30 0a 31 33 35 30 | 20 50 52 49 4e 54 3a 50 |Z=0.1350| PRINT:P|
|00001780| 52 49 4e 54 3a 50 52 49 | 4e 54 22 41 22 3b 3b 3a |RINT:PRI|NT"A";;:|
|00001790| 47 4f 53 55 42 33 35 31 | 30 30 3a 50 52 49 4e 54 |GOSUB351|00:PRINT|
|000017a0| 3b 22 55 22 3b 3b 3a 47 | 4f 53 55 42 33 35 31 30 |;"U";;:G|OSUB3510|
|000017b0| 30 3a 50 52 49 4e 54 3b | 22 54 22 3b 3b 3a 47 4f |0:PRINT;|"T";;:GO|
|000017c0| 53 55 42 33 35 31 30 30 | 3a 50 52 49 4e 54 3b 22 |SUB35100|:PRINT;"|
|000017d0| 48 22 3b 3b 3a 47 4f 53 | 55 42 33 35 31 30 30 3a |H";;:GOS|UB35100:|
|000017e0| 50 52 49 4e 54 3b 22 4f | 22 3b 3b 3a 47 4f 53 55 |PRINT;"O|";;:GOSU|
|000017f0| 42 33 35 31 30 30 3a 50 | 52 49 4e 54 3b 22 52 22 |B35100:P|RINT;"R"|
|00001800| 3b 0a 31 33 36 30 20 50 | 52 49 4e 54 3b 3a 47 4f |;.1360 P|RINT;:GO|
|00001810| 53 55 42 33 35 31 30 30 | 3a 50 52 49 4e 54 22 49 |SUB35100|:PRINT"I|
|00001820| 22 3b 3a 47 4f 53 55 42 | 33 35 31 30 30 3a 50 52 |";:GOSUB|35100:PR|
|00001830| 49 4e 54 22 5a 22 3b 3a | 47 4f 53 55 42 33 35 31 |INT"Z";:|GOSUB351|
|00001840| 30 30 3a 50 52 49 4e 54 | 22 41 22 3b 3a 47 4f 53 |00:PRINT|"A";:GOS|
|00001850| 55 42 33 35 31 30 30 3a | 50 52 49 4e 54 22 54 22 |UB35100:|PRINT"T"|
|00001860| 3b 3a 47 4f 53 55 42 33 | 35 31 30 30 3a 50 52 49 |;:GOSUB3|5100:PRI|
|00001870| 4e 54 22 49 22 3b 3a 47 | 4f 53 55 42 33 35 31 30 |NT"I";:G|OSUB3510|
|00001880| 30 3a 50 52 49 4e 54 22 | 4f 22 3b 3a 47 4f 53 55 |0:PRINT"|O";:GOSU|
|00001890| 42 33 35 31 30 30 3a 50 | 52 49 4e 54 22 4e 22 3b |B35100:P|RINT"N";|
|000018a0| 3a 47 4f 53 55 42 33 35 | 31 30 30 3a 50 52 49 4e |:GOSUB35|100:PRIN|
|000018b0| 54 22 20 22 3b 0a 31 33 | 37 30 20 50 52 49 4e 54 |T" ";.13|70 PRINT|
|000018c0| 22 41 22 3b 3a 47 4f 53 | 55 42 33 35 31 30 30 3a |"A";:GOS|UB35100:|
|000018d0| 50 52 49 4e 54 22 43 22 | 3b 3a 47 4f 53 55 42 33 |PRINT"C"|;:GOSUB3|
|000018e0| 35 31 30 30 3a 50 52 49 | 4e 54 22 43 22 3b 3a 47 |5100:PRI|NT"C";:G|
|000018f0| 4f 53 55 42 33 35 31 30 | 30 3a 50 52 49 4e 54 22 |OSUB3510|0:PRINT"|
|00001900| 45 22 3b 3a 47 4f 53 55 | 42 33 35 31 30 30 3a 50 |E";:GOSU|B35100:P|
|00001910| 52 49 4e 54 22 50 54 45 | 44 22 0a 31 33 37 31 20 |RINT"PTE|D".1371 |
|00001920| 47 4f 53 55 42 33 35 31 | 30 30 3a 47 4f 53 55 42 |GOSUB351|00:GOSUB|
|00001930| 33 35 31 30 30 3a 47 4f | 53 55 42 33 35 31 30 30 |35100:GO|SUB35100|
|00001940| 3a 47 4f 53 55 42 33 35 | 31 30 30 3a 47 4f 53 55 |:GOSUB35|100:GOSU|
|00001950| 42 33 35 31 30 30 3a 47 | 4f 53 55 42 33 35 31 30 |B35100:G|OSUB3510|
|00001960| 30 3a 47 4f 53 55 42 33 | 35 31 30 30 0a 31 33 37 |0:GOSUB3|5100.137|
|00001970| 32 20 46 4f 52 58 3d 31 | 54 4f 31 32 30 30 3a 4e |2 FORX=1|TO1200:N|
|00001980| 45 58 54 0a 31 33 37 35 | 20 50 52 49 4e 54 22 93 |EXT.1375| PRINT".|
|00001990| 11 11 11 22 0a 31 33 38 | 30 20 50 52 49 4e 54 3a |...".138|0 PRINT:|
|000019a0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|000019b0| 54 3a 50 52 49 4e 54 22 | 59 4f 55 52 20 41 55 54 |T:PRINT"|YOUR AUT|
|000019c0| 48 4f 52 49 5a 41 54 49 | 4f 4e 20 48 41 53 20 42 |HORIZATI|ON HAS B|
|000019d0| 45 45 4e 20 41 43 43 45 | 50 54 45 44 2e 00 0a 31 |EEN ACCE|PTED...1|
|000019e0| 33 39 30 20 50 52 49 4e | 54 3a 50 52 49 4e 54 22 |390 PRIN|T:PRINT"|
|000019f0| 59 4f 55 20 41 52 45 20 | 4e 4f 57 20 41 43 43 45 |YOU ARE |NOW ACCE|
|00001a00| 53 53 45 44 20 54 4f 20 | 54 48 45 20 44 45 46 43 |SSED TO |THE DEFC|
|00001a10| 4f 4e 22 3a 50 52 49 4e | 54 22 41 4c 45 52 54 20 |ON":PRIN|T"ALERT |
|00001a20| 53 45 43 54 4f 52 22 0a | 31 34 30 30 20 50 52 49 |SECTOR".|1400 PRI|
|00001a30| 4e 54 3a 50 52 49 4e 54 | 22 1c 4c 4f 43 41 4c 20 |NT:PRINT|".LOCAL |
|00001a40| 4f 56 45 52 52 49 44 45 | 20 48 41 53 20 42 45 45 |OVERRIDE| HAS BEE|
|00001a50| 4e 20 44 49 53 43 4f 4e | 4e 45 43 54 45 44 2e 05 |N DISCON|NECTED..|
|00001a60| 22 3a 50 52 49 4e 54 22 | 4e 4f 57 20 4f 4e 20 1c |":PRINT"|NOW ON .|
|00001a70| 43 4f 4d 4d 41 4e 44 20 | 41 4c 45 52 54 2e 05 00 |COMMAND |ALERT...|
|00001a80| 0a 31 34 30 33 20 49 4e | 50 55 54 22 57 48 49 43 |.1403 IN|PUT"WHIC|
|00001a90| 48 20 44 45 46 43 4f 4e | 20 53 54 41 54 55 53 20 |H DEFCON| STATUS |
|00001aa0| 28 1c 31 05 2d 35 29 22 | 3b 41 4d 0a 31 34 30 34 |(.1.-5)"|;AM.1404|
|00001ab0| 20 49 46 41 4d 3c 31 4f | 52 41 4d 3e 35 54 48 45 | IFAM<1O|RAM>5THE|
|00001ac0| 4e 41 4d 3d 30 3a 47 4f | 54 4f 31 34 30 33 0a 31 |NAM=0:GO|TO1403.1|
|00001ad0| 34 30 35 20 49 46 41 4d | 3d 31 54 48 45 4e 47 4f |405 IFAM|=1THENGO|
|00001ae0| 53 55 42 31 34 31 35 3a | 47 4f 54 4f 31 34 34 30 |SUB1415:|GOTO1440|
|00001af0| 0a 31 34 30 36 20 49 46 | 41 4d 3d 32 54 48 45 4e |.1406 IF|AM=2THEN|
|00001b00| 47 4f 53 55 42 31 34 31 | 35 3a 47 4f 54 4f 31 35 |GOSUB141|5:GOTO15|
|00001b10| 30 30 0a 31 34 30 37 20 | 49 46 41 4d 3d 33 54 48 |00.1407 |IFAM=3TH|
|00001b20| 45 4e 47 4f 53 55 42 31 | 34 31 35 3a 47 4f 54 4f |ENGOSUB1|415:GOTO|
|00001b30| 31 35 35 30 0a 31 34 30 | 38 20 49 46 41 4d 3d 34 |1550.140|8 IFAM=4|
|00001b40| 54 48 45 4e 47 4f 53 55 | 42 31 34 31 35 3a 47 4f |THENGOSU|B1415:GO|
|00001b50| 54 4f 31 36 30 30 0a 31 | 34 30 39 20 49 46 41 4d |TO1600.1|409 IFAM|
|00001b60| 3d 35 54 48 45 4e 47 4f | 53 55 42 31 34 31 35 3a |=5THENGO|SUB1415:|
|00001b70| 47 4f 54 4f 31 36 35 30 | 0a 31 34 31 30 20 47 4f |GOTO1650|.1410 GO|
|00001b80| 54 4f 31 34 30 33 0a 31 | 34 31 35 20 46 4f 52 4a |TO1403.1|415 FORJ|
|00001b90| 4c 3d 31 54 4f 35 30 30 | 30 3a 4e 45 58 54 3a 50 |L=1TO500|0:NEXT:P|
|00001ba0| 52 49 4e 54 22 93 11 11 | 11 22 0a 31 34 31 38 20 |RINT"...|.".1418 |
|00001bb0| 46 4f 52 4c 47 3d 31 54 | 4f 33 0a 31 34 32 30 20 |FORLG=1T|O3.1420 |
|00001bc0| 47 4f 53 55 42 33 35 30 | 30 30 3a 4e 45 58 54 3a |GOSUB350|00:NEXT:|
|00001bd0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00001be0| 54 3a 50 52 49 4e 54 22 | 44 45 46 43 4f 4e 1e 22 |T:PRINT"|DEFCON."|
|00001bf0| 3b 41 4d 3b 22 05 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |;AM;"...|........|
|00001c00| 2e 2e 2e 2e 4e 4f 57 20 | 41 43 54 49 56 41 54 45 |....NOW |ACTIVATE|
|00001c10| 44 2e 00 0a 31 34 33 30 | 20 50 52 49 4e 54 22 9e |D...1430| PRINT".|
|00001c20| 43 41 55 54 49 4f 4e 2e | 2e 2e 2e 05 50 52 4f 54 |CAUTION.|....PROT|
|00001c30| 45 43 54 49 4f 4e 20 4f | 56 45 52 52 49 44 45 53 |ECTION O|VERRIDES|
|00001c40| 20 48 41 56 45 22 3a 50 | 52 49 4e 54 22 42 45 45 | HAVE":P|RINT"BEE|
|00001c50| 4e 20 44 45 41 43 54 49 | 56 41 54 45 44 22 0a 31 |N DEACTI|VATED".1|
|00001c60| 34 33 35 20 46 4f 52 4a | 4c 3d 31 54 4f 35 30 30 |435 FORJ|L=1TO500|
|00001c70| 30 3a 4e 45 58 54 3a 52 | 45 54 55 52 4e 0a 31 34 |0:NEXT:R|ETURN.14|
|00001c80| 34 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |40 PRINT|:PRINT:P|
|00001c90| 52 49 4e 54 22 1c 59 4f | 55 20 41 52 45 20 4e 4f |RINT".YO|U ARE NO|
|00001ca0| 57 20 49 4e 20 44 45 46 | 43 4f 4e 20 31 20 41 4c |W IN DEF|CON 1 AL|
|00001cb0| 45 52 54 2e 00 0a 31 34 | 34 33 20 46 4f 52 59 5a |ERT...14|43 FORYZ|
|00001cc0| 3d 31 54 4f 35 30 30 30 | 3a 4e 45 58 54 0a 31 34 |=1TO5000|:NEXT.14|
|00001cd0| 34 35 20 50 52 49 4e 54 | 3a 46 4f 52 41 4e 3d 31 |45 PRINT|:FORAN=1|
|00001ce0| 35 54 4f 31 53 54 45 50 | 2d 31 3a 47 4f 53 55 42 |5TO1STEP|-1:GOSUB|
|00001cf0| 33 35 31 30 30 0a 31 34 | 34 36 20 49 46 41 4e 3d |35100.14|46 IFAN=|
|00001d00| 30 54 48 45 4e 31 34 36 | 30 0a 31 34 35 30 20 50 |0THEN146|0.1450 P|
|00001d10| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00001d20| 22 93 41 4c 4c 20 49 43 | 42 4d 27 53 20 48 41 56 |".ALL IC|BM'S HAV|
|00001d30| 45 20 42 45 45 4e 20 41 | 52 4d 45 44 20 41 4e 44 |E BEEN A|RMED AND|
|00001d40| 00 0a 31 34 35 35 20 50 | 52 49 4e 54 22 41 43 54 |..1455 P|RINT"ACT|
|00001d50| 49 56 41 54 45 44 2e 20 | 59 4f 55 20 48 41 56 45 |IVATED. |YOU HAVE|
|00001d60| 22 3b 41 4e 3b 22 4d 49 | 4e 55 54 45 53 20 54 4f |";AN;"MI|NUTES TO|
|00001d70| 20 43 41 4e 43 45 4c 22 | 3a 50 52 49 4e 54 3a 46 | CANCEL"|:PRINT:F|
|00001d80| 4f 52 59 55 3d 31 54 4f | 31 30 32 30 30 0a 31 34 |ORYU=1TO|10200.14|
|00001d90| 35 36 20 47 45 54 52 54 | 24 0a 31 34 35 37 20 49 |56 GETRT|$.1457 I|
|00001da0| 46 52 54 24 3d 22 89 22 | 54 48 45 4e 31 38 30 30 |FRT$="."|THEN1800|
|00001db0| 0a 31 34 35 38 20 4e 45 | 58 54 3a 4e 45 58 54 0a |.1458 NE|XT:NEXT.|
|00001dc0| 31 34 35 39 20 42 3d 30 | 3a 50 52 49 4e 54 22 93 |1459 B=0|:PRINT".|
|00001dd0| 22 0a 31 34 36 30 20 50 | 52 49 4e 54 22 13 22 3a |".1460 P|RINT".":|
|00001de0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 41 4c 4c 20 |PRINT:PR|INT"ALL |
|00001df0| 49 43 42 4d 27 53 20 48 | 41 56 45 20 42 45 45 4e |ICBM'S H|AVE BEEN|
|00001e00| 20 4c 41 55 4e 43 48 45 | 44 2e 22 3a 47 4f 53 55 | LAUNCHE|D.":GOSU|
|00001e10| 42 33 35 30 30 30 0a 31 | 34 36 33 20 50 52 49 4e |B35000.1|463 PRIN|
|00001e20| 54 22 13 22 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |T".":PRI|NT:PRINT|
|00001e30| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"       |        |
|00001e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |        |       "|
|00001e50| 3a 47 4f 53 55 42 33 35 | 30 30 30 0a 31 34 36 35 |:GOSUB35|000.1465|
|00001e60| 20 42 3d 42 2b 31 3a 49 | 46 42 3d 31 30 54 48 45 | B=B+1:I|FB=10THE|
|00001e70| 4e 50 52 49 4e 54 22 93 | 22 3a 47 4f 54 4f 31 34 |NPRINT".|":GOTO14|
|00001e80| 37 30 0a 31 34 36 37 20 | 47 4f 54 4f 31 34 36 30 |70.1467 |GOTO1460|
|00001e90| 0a 31 34 37 30 20 46 4f | 52 54 4a 3d 31 35 54 4f |.1470 FO|RTJ=15TO|
|00001ea0| 31 53 54 45 50 2d 31 3a | 47 4f 53 55 42 33 35 31 |1STEP-1:|GOSUB351|
|00001eb0| 30 30 0a 31 34 38 30 20 | 50 52 49 4e 54 3a 50 52 |00.1480 |PRINT:PR|
|00001ec0| 49 4e 54 3a 50 52 49 4e | 54 22 93 59 4f 55 20 48 |INT:PRIN|T".YOU H|
|00001ed0| 41 56 45 22 3b 54 4a 3b | 22 4d 49 4e 55 54 45 53 |AVE";TJ;|"MINUTES|
|00001ee0| 20 54 4f 20 53 45 45 4b | 20 53 48 45 4c 54 45 52 | TO SEEK| SHELTER|
|00001ef0| 2e 00 0a 31 34 39 30 20 | 46 4f 52 4b 42 3d 31 54 |...1490 |FORKB=1T|
|00001f00| 4f 35 39 30 30 30 3a 4e | 45 58 54 3a 4e 45 58 54 |O59000:N|EXT:NEXT|
|00001f10| 0a 31 34 39 38 20 50 52 | 49 4e 54 22 49 20 48 4f |.1498 PR|INT"I HO|
|00001f20| 50 45 20 59 4f 55 20 44 | 4f 4e 27 54 20 54 48 49 |PE YOU D|ON'T THI|
|00001f30| 4e 4b 20 49 20 57 41 53 | 20 53 45 52 49 4f 55 53 |NK I WAS| SERIOUS|
|00001f40| 21 22 0a 31 34 39 39 20 | 45 4e 44 0a 31 35 30 30 |!".1499 |END.1500|
|00001f50| 20 50 52 49 4e 54 22 93 | 1c 41 4c 4c 20 49 43 42 | PRINT".|.ALL ICB|
|00001f60| 4d 27 53 20 4f 4e 20 53 | 54 41 4e 44 42 59 20 41 |M'S ON S|TANDBY A|
|00001f70| 4c 45 52 54 2e 00 0a 31 | 35 31 30 20 50 52 49 4e |LERT...1|510 PRIN|
|00001f80| 54 22 41 4c 4c 20 41 49 | 52 20 46 4f 52 43 45 20 |T"ALL AI|R FORCE |
|00001f90| 42 41 53 45 53 20 41 4c | 45 52 54 45 44 2e 00 0a |BASES AL|ERTED...|
|00001fa0| 31 35 31 35 20 50 52 49 | 4e 54 22 50 4c 45 41 53 |1515 PRI|NT"PLEAS|
|00001fb0| 45 20 49 4e 53 55 52 45 | 20 43 4f 52 52 45 43 54 |E INSURE| CORRECT|
|00001fc0| 20 43 4f 44 45 20 45 4e | 54 52 59 2e 00 0a 31 35 | CODE EN|TRY...15|
|00001fd0| 32 30 20 50 52 49 4e 54 | 22 49 46 20 43 4f 44 45 |20 PRINT|"IF CODE|
|00001fe0| 20 45 4e 54 52 59 20 49 | 53 20 49 4e 43 4f 52 52 | ENTRY I|S INCORR|
|00001ff0| 45 43 54 2c 20 49 54 20 | 57 49 4c 4c 00 0a 31 35 |ECT, IT |WILL..15|
|00002000| 32 35 20 50 52 49 4e 54 | 22 43 41 55 53 45 20 54 |25 PRINT|"CAUSE T|
|00002010| 4f 54 41 4c 20 4c 41 55 | 4e 43 48 2e 00 0a 31 35 |OTAL LAU|NCH...15|
|00002020| 33 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 43 |30 PRINT|:PRINT"C|
|00002030| 4f 44 45 20 41 4e 41 4c | 59 53 49 53 20 4c 4f 43 |ODE ANAL|YSIS LOC|
|00002040| 41 54 45 44 20 49 4e 20 | 47 52 45 45 4e 20 37 2e |ATED IN |GREEN 7.|
|00002050| 22 0a 31 35 34 30 20 49 | 4e 50 55 54 22 49 53 20 |".1540 I|NPUT"IS |
|00002060| 43 4f 44 45 20 43 4f 52 | 52 45 43 54 3f 22 3b 59 |CODE COR|RECT?";Y|
|00002070| 56 24 0a 31 35 34 31 20 | 49 46 59 56 24 3d 22 59 |V$.1541 |IFYV$="Y|
|00002080| 45 53 22 54 48 45 4e 41 | 4d 3d 31 3a 47 4f 54 4f |ES"THENA|M=1:GOTO|
|00002090| 31 34 30 34 0a 31 35 34 | 32 20 49 46 59 56 24 3d |1404.154|2 IFYV$=|
|000020a0| 22 4e 4f 22 54 48 45 4e | 50 52 49 4e 54 22 93 41 |"NO"THEN|PRINT".A|
|000020b0| 4c 4c 20 4c 41 55 4e 43 | 48 20 43 4f 44 45 53 20 |LL LAUNC|H CODES |
|000020c0| 44 45 41 43 54 49 56 41 | 54 45 44 2e 22 3a 47 4f |DEACTIVA|TED.":GO|
|000020d0| 54 4f 31 35 34 34 0a 31 | 35 34 33 20 49 46 59 56 |TO1544.1|543 IFYV|
|000020e0| 24 3c 3e 22 59 45 53 22 | 41 4e 44 59 56 24 3c 3e |$<>"YES"|ANDYV$<>|
|000020f0| 22 4e 4f 22 54 48 45 4e | 31 35 31 35 0a 31 35 34 |"NO"THEN|1515.154|
|00002100| 34 20 50 52 49 4e 54 3a | 50 52 49 4e 54 22 41 4c |4 PRINT:|PRINT"AL|
|00002110| 45 52 54 20 53 54 41 4e | 44 42 59 20 43 41 4e 43 |ERT STAN|DBY CANC|
|00002120| 45 4c 45 44 2e 00 0a 31 | 35 34 35 20 50 52 49 4e |ELED...1|545 PRIN|
|00002130| 54 3a 50 52 49 4e 54 22 | 54 45 52 4d 49 4e 41 4c |T:PRINT"|TERMINAL|
|00002140| 20 44 49 53 43 4f 4e 4e | 45 43 54 45 44 2e 00 0a | DISCONN|ECTED...|
|00002150| 31 35 34 36 20 46 4f 52 | 58 42 3d 31 54 4f 31 30 |1546 FOR|XB=1TO10|
|00002160| 30 30 30 3a 4e 45 58 54 | 0a 31 35 34 37 20 50 52 |000:NEXT|.1547 PR|
|00002170| 49 4e 54 22 93 90 22 3b | 3a 45 4e 44 0a 31 35 35 |INT"..";|:END.155|
|00002180| 30 20 50 52 49 4e 54 22 | 9f 41 43 43 45 53 53 20 |0 PRINT"|.ACCESS |
|00002190| 54 4f 20 54 48 49 53 20 | 43 4f 4d 50 55 54 45 52 |TO THIS |COMPUTER|
|000021a0| 20 49 53 20 4d 4f 4e 49 | 54 4f 52 45 44 2e 00 0a | IS MONI|TORED...|
|000021b0| 31 35 35 35 20 50 52 49 | 4e 54 22 49 46 20 59 4f |1555 PRI|NT"IF YO|
|000021c0| 55 52 20 41 43 43 45 53 | 53 20 49 53 20 49 4c 4c |UR ACCES|S IS ILL|
|000021d0| 45 47 41 4c 2c 20 44 49 | 53 43 4f 4e 4e 45 43 54 |EGAL, DI|SCONNECT|
|000021e0| 00 0a 31 35 36 30 20 50 | 52 49 4e 54 22 41 54 20 |..1560 P|RINT"AT |
|000021f0| 54 48 49 53 20 54 49 4d | 45 2e 00 0a 31 35 37 30 |THIS TIM|E...1570|
|00002200| 20 46 4f 52 54 59 3d 31 | 54 4f 35 30 30 30 3a 4e | FORTY=1|TO5000:N|
|00002210| 45 58 54 0a 31 35 37 35 | 20 50 52 49 4e 54 3a 50 |EXT.1575| PRINT:P|
|00002220| 52 49 4e 54 3a 50 52 49 | 4e 54 22 95 93 54 48 49 |RINT:PRI|NT"..THI|
|00002230| 53 20 43 4f 44 45 20 49 | 53 20 4e 4f 57 20 41 43 |S CODE I|S NOW AC|
|00002240| 43 45 50 54 45 44 2e 22 | 0a 31 35 38 30 20 50 52 |CEPTED."|.1580 PR|
|00002250| 49 4e 54 22 9a 53 43 52 | 41 4d 42 4c 45 20 41 4c |INT".SCR|AMBLE AL|
|00002260| 45 52 54 20 4e 4f 57 20 | 41 43 54 49 56 45 2e 00 |ERT NOW |ACTIVE..|
|00002270| 0a 31 35 38 32 20 46 4f | 52 54 59 3d 31 54 4f 31 |.1582 FO|RTY=1TO1|
|00002280| 30 30 30 30 3a 4e 45 58 | 54 0a 31 35 38 35 20 50 |0000:NEX|T.1585 P|
|00002290| 52 49 4e 54 3a 50 52 49 | 4e 54 22 41 49 52 43 52 |RINT:PRI|NT"AIRCR|
|000022a0| 41 46 54 20 4c 41 55 4e | 43 48 45 44 2e 20 43 4f |AFT LAUN|CHED. CO|
|000022b0| 44 45 20 42 4c 55 45 20 | 41 43 54 49 56 41 54 45 |DE BLUE |ACTIVATE|
|000022c0| 44 2e 22 3a 46 4f 52 59 | 3d 31 54 4f 33 35 30 30 |D.":FORY|=1TO3500|
|000022d0| 3a 4e 45 58 54 0a 31 35 | 39 30 20 50 52 49 4e 54 |:NEXT.15|90 PRINT|
|000022e0| 22 93 98 53 4f 56 49 45 | 54 20 4c 41 55 4e 43 48 |"..SOVIE|T LAUNCH|
|000022f0| 20 44 45 54 45 43 54 45 | 44 2e 00 0a 31 35 39 32 | DETECTE|D...1592|
|00002300| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 22 4d 49 53 | PRINT:P|RINT"MIS|
|00002310| 53 4c 45 20 42 41 53 45 | 53 20 41 4c 45 52 54 45 |SLE BASE|S ALERTE|
|00002320| 44 2e 20 43 4f 44 45 20 | 1c 52 45 44 21 05 00 0a |D. CODE |.RED!...|
|00002330| 31 35 39 33 20 46 4f 52 | 54 59 3d 31 54 4f 37 30 |1593 FOR|TY=1TO70|
|00002340| 30 30 3a 4e 45 58 54 0a | 31 35 39 34 20 50 52 49 |00:NEXT.|1594 PRI|
|00002350| 4e 54 22 93 22 3a 50 52 | 49 4e 54 3a 50 52 49 4e |NT".":PR|INT:PRIN|
|00002360| 54 22 4c 41 55 4e 43 48 | 20 53 45 51 55 45 4e 43 |T"LAUNCH| SEQUENC|
|00002370| 45 22 0a 31 35 39 36 20 | 50 52 49 4e 54 22 9c 44 |E".1596 |PRINT".D|
|00002380| 45 46 43 4f 4e 20 53 54 | 41 54 55 53 20 43 48 41 |EFCON ST|ATUS CHA|
|00002390| 4e 47 45 44 2e 00 0a 31 | 35 39 38 20 50 52 49 4e |NGED...1|598 PRIN|
|000023a0| 54 22 44 45 41 43 54 49 | 56 41 54 45 20 54 45 52 |T"DEACTI|VATE TER|
|000023b0| 4d 49 4e 41 4c 2e 20 20 | 54 52 41 43 45 52 20 44 |MINAL.  |TRACER D|
|000023c0| 45 54 45 43 54 45 44 2e | 22 3a 46 4f 52 58 3d 31 |ETECTED.|":FORX=1|
|000023d0| 54 4f 38 30 30 30 3a 4e | 45 58 54 0a 31 35 39 39 |TO8000:N|EXT.1599|
|000023e0| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 | PRINT:P|RINT:PRI|
|000023f0| 4e 54 3a 50 52 49 4e 54 | 22 54 45 52 4d 49 4e 41 |NT:PRINT|"TERMINA|
|00002400| 4c 20 44 49 53 43 4f 4e | 4e 45 43 54 45 44 22 3a |L DISCON|NECTED":|
|00002410| 46 4f 52 54 59 3d 31 54 | 4f 34 30 30 30 3a 4e 45 |FORTY=1T|O4000:NE|
|00002420| 58 54 3a 50 52 49 4e 54 | 22 93 90 22 3a 47 4f 54 |XT:PRINT|"..":GOT|
|00002430| 4f 31 34 39 38 0a 31 36 | 30 30 20 50 52 49 4e 54 |O1498.16|00 PRINT|
|00002440| 22 93 22 0a 31 36 30 35 | 20 50 52 49 4e 54 22 44 |".".1605| PRINT"D|
|00002450| 45 46 43 4f 4e 20 46 4f | 55 52 20 4e 4f 57 20 49 |EFCON FO|UR NOW I|
|00002460| 4e 20 45 46 46 45 43 54 | 2e 00 0a 31 36 31 30 20 |N EFFECT|...1610 |
|00002470| 49 4e 50 55 54 22 45 4e | 54 45 52 20 44 45 41 43 |INPUT"EN|TER DEAC|
|00002480| 54 49 56 41 54 49 4f 4e | 20 43 4f 44 45 2e 22 3b |TIVATION| CODE.";|
|00002490| 54 50 24 0a 31 36 31 35 | 20 49 46 54 50 24 3c 3e |TP$.1615| IFTP$<>|
|000024a0| 22 52 45 54 55 52 4e 22 | 54 48 45 4e 31 39 30 30 |"RETURN"|THEN1900|
|000024b0| 0a 31 36 32 30 20 50 52 | 49 4e 54 22 93 22 3a 50 |.1620 PR|INT".":P|
|000024c0| 52 49 4e 54 3a 50 52 49 | 4e 54 22 1f 41 43 43 45 |RINT:PRI|NT".ACCE|
|000024d0| 53 53 20 4e 4f 57 20 4c | 49 4d 49 54 45 44 2e 20 |SS NOW L|IMITED. |
|000024e0| 4f 4e 4c 59 20 47 45 4e | 45 52 41 4c 20 53 54 41 |ONLY GEN|ERAL STA|
|000024f0| 46 46 00 0a 31 36 32 35 | 20 50 52 49 4e 54 22 48 |FF..1625| PRINT"H|
|00002500| 41 56 45 20 41 43 43 45 | 53 53 20 41 54 20 54 48 |AVE ACCE|SS AT TH|
|00002510| 49 53 20 54 49 4d 45 2e | 00 0a 31 36 33 30 20 50 |IS TIME.|..1630 P|
|00002520| 52 49 4e 54 3a 50 52 49 | 4e 54 22 52 41 44 41 52 |RINT:PRI|NT"RADAR|
|00002530| 20 52 45 50 4f 52 54 53 | 20 4c 41 55 4e 43 48 20 | REPORTS| LAUNCH |
|00002540| 44 45 54 45 43 54 45 44 | 20 49 4e 00 0a 31 36 33 |DETECTED| IN..163|
|00002550| 35 20 50 52 49 4e 54 22 | 53 4f 56 49 45 54 20 53 |5 PRINT"|SOVIET S|
|00002560| 45 43 54 4f 52 2e 00 0a | 31 36 34 30 20 50 52 49 |ECTOR...|1640 PRI|
|00002570| 4e 54 22 49 53 20 54 48 | 49 53 20 53 49 54 55 41 |NT"IS TH|IS SITUA|
|00002580| 54 49 4f 4e 20 43 4f 4e | 46 49 52 4d 45 44 3f 22 |TION CON|FIRMED?"|
|00002590| 0a 31 36 34 35 20 49 4e | 50 55 54 22 43 4f 4e 46 |.1645 IN|PUT"CONF|
|000025a0| 49 44 45 4e 43 45 20 49 | 53 20 48 49 47 48 22 3b |IDENCE I|S HIGH";|
|000025b0| 54 4c 24 0a 31 36 34 36 | 20 49 46 54 4c 24 3c 3e |TL$.1646| IFTL$<>|
|000025c0| 22 59 45 53 22 54 48 45 | 4e 50 52 49 4e 54 22 93 |"YES"THE|NPRINT".|
|000025d0| 22 3a 47 4f 54 4f 31 34 | 39 38 0a 31 36 34 37 20 |":GOTO14|98.1647 |
|000025e0| 41 4d 3d 31 0a 31 36 34 | 38 20 50 52 49 4e 54 22 |AM=1.164|8 PRINT"|
|000025f0| 93 22 0a 31 36 34 39 20 | 47 4f 54 4f 31 34 30 34 |.".1649 |GOTO1404|
|00002600| 0a 31 36 35 30 20 50 52 | 49 4e 54 22 93 22 0a 31 |.1650 PR|INT".".1|
|00002610| 36 35 35 20 50 52 49 4e | 54 3a 50 52 49 4e 54 3a |655 PRIN|T:PRINT:|
|00002620| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 44 45 46 43 |PRINT:PR|INT"DEFC|
|00002630| 4f 4e 20 53 54 41 54 55 | 53 20 53 48 4f 57 53 20 |ON STATU|S SHOWS |
|00002640| 53 45 43 55 52 45 2e 00 | 0a 31 36 36 30 20 50 52 |SECURE..|.1660 PR|
|00002650| 49 4e 54 3a 50 52 49 4e | 54 22 43 4f 44 45 53 20 |INT:PRIN|T"CODES |
|00002660| 4e 4f 57 20 43 48 41 4e | 47 45 44 2e 20 20 41 46 |NOW CHAN|GED.  AF|
|00002670| 46 45 43 54 20 4e 45 57 | 20 54 41 42 4c 45 53 2e |FECT NEW| TABLES.|
|00002680| 00 0a 31 36 36 35 20 46 | 4f 52 54 59 3d 31 54 4f |..1665 F|ORTY=1TO|
|00002690| 31 30 30 30 30 3a 4e 45 | 58 54 0a 31 36 37 30 20 |10000:NE|XT.1670 |
|000026a0| 50 52 49 4e 54 22 59 4f | 55 52 20 41 55 54 48 4f |PRINT"YO|UR AUTHO|
|000026b0| 52 49 5a 41 54 49 4f 4e | 20 43 4f 4e 46 49 52 4d |RIZATION| CONFIRM|
|000026c0| 45 44 2d 2d 00 0a 31 36 | 37 35 20 50 52 49 4e 54 |ED--..16|75 PRINT|
|000026d0| 22 41 43 43 45 53 53 20 | 43 4f 44 45 53 20 49 4e |"ACCESS |CODES IN|
|000026e0| 56 41 4c 49 44 2e 00 0a | 31 36 38 30 20 50 52 49 |VALID...|1680 PRI|
|000026f0| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 45 |NT:PRINT|:PRINT"E|
|00002700| 4e 54 45 52 20 4e 45 57 | 20 43 4f 44 45 00 0a 31 |NTER NEW| CODE..1|
|00002710| 36 38 35 20 50 52 49 4e | 54 22 50 4c 45 41 53 45 |685 PRIN|T"PLEASE|
|00002720| 3d 3d 3e 22 3b 0a 31 36 | 38 36 20 47 45 54 41 24 |==>";.16|86 GETA$|
|00002730| 0a 31 36 38 37 20 46 4f | 52 58 3d 31 54 4f 36 0a |.1687 FO|RX=1TO6.|
|00002740| 31 36 38 38 20 47 4f 53 | 55 42 34 35 30 0a 31 36 |1688 GOS|UB450.16|
|00002750| 38 39 20 4e 45 58 54 0a | 31 36 39 30 20 50 52 49 |89 NEXT.|1690 PRI|
|00002760| 4e 54 22 43 4f 44 45 20 | 49 4e 56 41 4c 49 44 2d |NT"CODE |INVALID-|
|00002770| 2d 49 4e 54 52 55 44 45 | 52 20 41 4c 45 52 54 21 |-INTRUDE|R ALERT!|
|00002780| 00 0a 31 36 39 33 20 46 | 4f 52 54 52 3d 31 54 4f |..1693 F|ORTR=1TO|
|00002790| 38 0a 31 36 39 35 20 47 | 4f 53 55 42 33 35 30 30 |8.1695 G|OSUB3500|
|000027a0| 30 3a 4e 45 58 54 0a 31 | 36 39 37 20 41 4d 3d 31 |0:NEXT.1|697 AM=1|
|000027b0| 0a 31 36 39 38 20 50 52 | 49 4e 54 22 93 22 0a 31 |.1698 PR|INT".".1|
|000027c0| 36 39 39 20 47 4f 54 4f | 31 34 34 30 0a 31 38 30 |699 GOTO|1440.180|
|000027d0| 30 20 50 52 49 4e 54 22 | 93 11 11 11 9c 43 41 4e |0 PRINT"|.....CAN|
|000027e0| 43 45 4c 41 54 49 4f 4e | 20 52 45 43 4f 52 44 45 |CELATION| RECORDE|
|000027f0| 44 3a 20 20 4f 4e 45 20 | 4d 4f 4d 45 4e 54 20 50 |D:  ONE |MOMENT P|
|00002800| 4c 45 41 53 45 00 0a 31 | 38 31 30 20 46 4f 52 4c |LEASE..1|810 FORL|
|00002810| 50 3d 31 54 4f 31 30 30 | 30 30 3a 4e 45 58 54 0a |P=1TO100|00:NEXT.|
|00002820| 31 38 32 30 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |1820 PRI|NT:PRINT|
|00002830| 22 43 41 4e 43 45 4c 41 | 54 49 4f 4e 20 43 4f 44 |"CANCELA|TION COD|
|00002840| 45 20 49 4e 56 41 4c 49 | 44 3a 20 44 45 53 54 52 |E INVALI|D: DESTR|
|00002850| 55 43 54 00 0a 31 38 32 | 35 20 50 52 49 4e 54 3a |UCT..182|5 PRINT:|
|00002860| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 53 45 51 55 |PRINT:PR|INT"SEQU|
|00002870| 45 4e 43 45 20 41 43 54 | 49 56 41 54 45 44 2e 20 |ENCE ACT|IVATED. |
|00002880| 20 4c 4f 43 41 4c 20 50 | 4f 4c 49 43 45 00 0a 31 | LOCAL P|OLICE..1|
|00002890| 38 33 30 20 50 52 49 4e | 54 22 48 41 56 45 20 42 |830 PRIN|T"HAVE B|
|000028a0| 45 45 4e 20 4e 4f 54 49 | 46 49 45 44 2e 00 0a 31 |EEN NOTI|FIED...1|
|000028b0| 38 34 30 20 46 4f 52 54 | 59 3d 31 54 4f 35 30 30 |840 FORT|Y=1TO500|
|000028c0| 30 3a 4e 45 58 54 0a 31 | 39 30 30 20 47 4f 54 4f |0:NEXT.1|900 GOTO|
|000028d0| 31 36 34 37 0a 33 35 30 | 30 30 20 50 4f 4b 45 35 |1647.350|00 POKE5|
|000028e0| 34 32 39 36 2c 31 35 3a | 50 4f 4b 45 35 34 32 37 |4296,15:|POKE5427|
|000028f0| 33 2c 35 3a 52 45 4d 20 | 22 57 52 4f 4e 47 22 20 |3,5:REM |"WRONG" |
|00002900| 42 55 5a 5a 45 52 0a 33 | 35 30 31 30 20 50 4f 4b |BUZZER.3|5010 POK|
|00002910| 45 35 34 32 37 37 2c 30 | 3a 50 4f 4b 45 35 34 32 |E54277,0|:POKE542|
|00002920| 37 38 2c 32 34 30 3a 50 | 4f 4b 45 35 34 32 37 36 |78,240:P|OKE54276|
|00002930| 2c 33 33 3a 46 4f 52 54 | 3d 31 54 4f 35 30 30 3a |,33:FORT|=1TO500:|
|00002940| 4e 45 58 54 3a 50 4f 4b | 45 35 34 32 37 36 2c 33 |NEXT:POK|E54276,3|
|00002950| 32 3a 47 4f 54 4f 33 35 | 34 30 30 0a 33 35 31 30 |2:GOTO35|400.3510|
|00002960| 30 20 50 4f 4b 45 35 34 | 32 39 36 2c 31 35 3a 50 |0 POKE54|296,15:P|
|00002970| 4f 4b 45 35 34 32 37 33 | 2c 34 30 3a 52 45 4d 20 |OKE54273|,40:REM |
|00002980| 22 52 49 47 48 54 22 20 | 44 49 4e 47 0a 33 35 31 |"RIGHT" |DING.351|
|00002990| 31 30 20 50 4f 4b 45 35 | 34 32 37 37 2c 39 3a 50 |10 POKE5|4277,9:P|
|000029a0| 4f 4b 45 35 34 32 37 38 | 2c 30 3a 50 4f 4b 45 35 |OKE54278|,0:POKE5|
|000029b0| 34 32 37 36 2c 31 37 3a | 46 4f 52 54 3d 31 54 4f |4276,17:|FORT=1TO|
|000029c0| 35 30 2b 5a 3a 4e 45 58 | 54 3a 50 4f 4b 45 35 34 |50+Z:NEX|T:POKE54|
|000029d0| 32 37 36 2c 31 36 3a 47 | 4f 54 4f 33 35 34 30 30 |276,16:G|OTO35400|
|000029e0| 0a 33 35 33 35 30 20 46 | 4f 52 4a 3d 31 54 4f 32 |.35350 F|ORJ=1TO2|
|000029f0| 3a 50 4f 4b 45 35 34 32 | 39 36 2c 31 35 3a 50 4f |:POKE542|96,15:PO|
|00002a00| 4b 45 35 34 32 37 37 2c | 31 36 3a 50 4f 4b 45 35 |KE54277,|16:POKE5|
|00002a10| 34 32 37 38 2c 32 34 30 | 3a 52 45 4d 20 22 41 54 |4278,240|:REM "AT|
|00002a20| 54 45 4e 54 49 4f 4e 22 | 20 53 49 52 45 4e 0a 33 |TENTION"| SIREN.3|
|00002a30| 35 33 36 30 20 50 4f 4b | 45 35 34 32 37 35 2c 38 |5360 POK|E54275,8|
|00002a40| 3a 50 4f 4b 45 35 34 32 | 37 33 2c 32 36 3a 50 4f |:POKE542|73,26:PO|
|00002a50| 4b 45 35 34 32 37 32 2c | 31 35 36 3a 50 4f 4b 45 |KE54272,|156:POKE|
|00002a60| 35 34 32 37 36 2c 36 35 | 3a 46 4f 52 54 3d 31 54 |54276,65|:FORT=1T|
|00002a70| 4f 31 32 38 3a 4e 45 58 | 54 0a 33 35 33 37 30 20 |O128:NEX|T.35370 |
|00002a80| 50 4f 4b 45 35 34 32 37 | 36 2c 36 34 3a 50 4f 4b |POKE5427|6,64:POK|
|00002a90| 45 35 34 32 37 33 2c 31 | 38 3a 50 4f 4b 45 35 34 |E54273,1|8:POKE54|
|00002aa0| 32 37 32 2c 32 30 39 3a | 50 4f 4b 45 35 34 32 37 |272,209:|POKE5427|
|00002ab0| 36 2c 36 35 3a 46 4f 52 | 54 3d 31 54 4f 31 32 38 |6,65:FOR|T=1TO128|
|00002ac0| 3a 4e 45 58 54 0a 33 35 | 33 38 30 20 50 4f 4b 45 |:NEXT.35|380 POKE|
|00002ad0| 35 34 32 37 36 2c 36 34 | 3a 50 4f 4b 45 35 34 32 |54276,64|:POKE542|
|00002ae0| 37 33 2c 32 36 3a 50 4f | 4b 45 35 34 32 37 32 2c |73,26:PO|KE54272,|
|00002af0| 31 35 36 3a 50 4f 4b 45 | 35 34 32 37 36 2c 36 35 |156:POKE|54276,65|
|00002b00| 3a 46 4f 52 54 3d 31 54 | 4f 31 32 38 3a 4e 45 58 |:FORT=1T|O128:NEX|
|00002b10| 54 0a 33 35 33 39 30 20 | 50 4f 4b 45 35 34 32 37 |T.35390 |POKE5427|
|00002b20| 36 2c 36 34 3a 50 4f 4b | 45 35 34 32 37 33 2c 31 |6,64:POK|E54273,1|
|00002b30| 38 3a 50 4f 4b 45 35 34 | 32 37 32 2c 32 30 39 3a |8:POKE54|272,209:|
|00002b40| 50 4f 4b 45 35 34 32 37 | 36 2c 36 35 3a 46 4f 52 |POKE5427|6,65:FOR|
|00002b50| 54 3d 31 54 4f 31 32 38 | 3a 4e 45 58 54 0a 33 35 |T=1TO128|:NEXT.35|
|00002b60| 33 39 35 20 50 4f 4b 45 | 35 34 32 37 36 2c 36 34 |395 POKE|54276,64|
|00002b70| 3a 4e 45 58 54 0a 33 35 | 34 30 30 20 46 4f 52 54 |:NEXT.35|400 FORT|
|00002b80| 3d 35 34 32 37 32 54 4f | 35 34 32 39 36 3a 50 4f |=54272TO|54296:PO|
|00002b90| 4b 45 54 2c 30 3a 4e 45 | 58 54 3a 52 45 54 55 52 |KET,0:NE|XT:RETUR|
|00002ba0| 4e 0a                   |                         |N.      |        |
+--------+-------------------------+-------------------------+--------+--------+