/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / GUN-FIGHTER / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 52 45 4d 20 51 55 | 49 43 4b 44 52 41 57 20 |5 REM QU|ICKDRAW |
|00000010| 4d 20 52 49 43 48 54 45 | 52 20 39 30 30 36 34 20 |M RICHTE|R 90064 |
|00000020| 31 2f 37 39 0a 36 20 52 | 45 4d 20 4d 4f 44 2e 20 |1/79.6 R|EM MOD. |
|00000030| 46 4f 52 20 36 34 20 42 | 41 53 49 43 20 31 2f 32 |FOR 64 B|ASIC 1/2|
|00000040| 31 2f 38 33 0a 37 20 41 | 3d 31 39 38 3a 42 3d 31 |1/83.7 A|=198:B=1|
|00000050| 36 31 3a 47 3d 31 36 32 | 3a 52 3d 31 3a 50 4f 4b |61:G=162|:R=1:POK|
|00000060| 45 35 33 32 38 30 2c 31 | 3a 50 4f 4b 45 35 33 32 |E53280,1|:POKE532|
|00000070| 38 31 2c 31 0a 31 30 20 | 49 3d 52 4e 44 28 2d 54 |81,1.10 |I=RND(-T|
|00000080| 49 29 3a 42 4c 24 3d 22 | 20 20 20 20 20 20 20 20 |I):BL$="|        |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000b0| 22 0a 33 30 20 50 52 49 | 4e 54 22 1f 93 20 20 20 |".30 PRI|NT"..   |
|000000c0| 20 20 12 20 51 55 49 43 | 4b 44 52 41 57 20 11 11 |  . QUIC|KDRAW ..|
|000000d0| 00 0a 34 30 20 50 52 49 | 4e 54 22 59 4f 55 20 41 |..40 PRI|NT"YOU A|
|000000e0| 52 45 20 55 50 20 41 47 | 41 49 4e 53 54 20 53 49 |RE UP AG|AINST SI|
|000000f0| 58 20 45 58 50 45 52 54 | 20 47 55 4e 4d 45 4e 11 |X EXPERT| GUNMEN.|
|00000100| 00 0a 34 35 20 50 52 49 | 4e 54 22 57 48 4f 20 4e |..45 PRI|NT"WHO N|
|00000110| 45 56 45 52 20 4d 49 53 | 53 20 2d 20 42 55 54 20 |EVER MIS|S - BUT |
|00000120| 4e 45 49 54 48 45 52 20 | 44 4f 20 59 4f 55 21 11 |NEITHER |DO YOU!.|
|00000130| 00 0a 35 30 20 50 52 49 | 4e 54 22 53 4f 2c 20 54 |..50 PRI|NT"SO, T|
|00000140| 48 45 20 57 49 4e 4e 45 | 52 20 49 53 20 54 48 45 |HE WINNE|R IS THE|
|00000150| 20 4f 4e 45 20 57 48 4f | 20 47 45 54 53 20 4f 46 | ONE WHO| GETS OF|
|00000160| 46 11 00 0a 35 35 20 50 | 52 49 4e 54 22 54 48 45 |F...55 P|RINT"THE|
|00000170| 20 46 49 52 53 54 20 53 | 48 4f 54 2e 20 20 53 49 | FIRST S|HOT.  SI|
|00000180| 4e 43 45 20 59 4f 55 27 | 52 45 20 41 20 47 4f 4f |NCE YOU'|RE A GOO|
|00000190| 44 47 55 59 2c 00 0a 36 | 30 20 50 52 49 4e 54 22 |DGUY,..6|0 PRINT"|
|000001a0| 49 54 27 53 20 4d 55 52 | 44 45 52 20 49 46 20 59 |IT'S MUR|DER IF Y|
|000001b0| 4f 55 20 44 52 41 57 20 | 42 45 46 4f 52 45 20 54 |OU DRAW |BEFORE T|
|000001c0| 48 45 20 42 41 44 00 0a | 36 35 20 50 52 49 4e 54 |HE BAD..|65 PRINT|
|000001d0| 22 11 47 55 59 20 44 4f | 45 53 2e 20 20 48 45 20 |".GUY DO|ES.  HE |
|000001e0| 57 49 4c 4c 20 44 52 41 | 57 20 49 4e 20 54 57 4f |WILL DRA|W IN TWO|
|000001f0| 20 54 4f 20 46 49 56 45 | 00 0a 37 30 20 50 52 49 | TO FIVE|..70 PRI|
|00000200| 4e 54 22 11 53 45 43 4f | 4e 44 53 20 41 46 54 45 |NT".SECO|NDS AFTE|
|00000210| 52 20 48 45 20 41 50 50 | 45 41 52 53 2e 00 0a 37 |R HE APP|EARS...7|
|00000220| 35 20 50 52 49 4e 54 22 | 11 42 59 20 54 48 45 20 |5 PRINT"|.BY THE |
|00000230| 57 41 59 2c 20 59 4f 55 | 20 53 48 4f 4f 54 20 42 |WAY, YOU| SHOOT B|
|00000240| 59 20 48 49 54 54 49 4e | 47 20 41 20 4b 45 59 2e |Y HITTIN|G A KEY.|
|00000250| 00 0a 39 30 20 50 52 49 | 4e 54 22 11 11 12 20 47 |..90 PRI|NT"... G|
|00000260| 4f 4f 44 20 4c 55 43 4b | 20 22 3a 50 52 49 4e 54 |OOD LUCK| ":PRINT|
|00000270| 22 11 4b 45 59 20 27 53 | 50 41 43 45 27 20 57 48 |".KEY 'S|PACE' WH|
|00000280| 45 4e 20 59 4f 55 27 52 | 45 20 52 45 41 44 59 20 |EN YOU'R|E READY |
|00000290| 54 4f 20 53 54 41 52 54 | 00 0a 39 35 20 50 4f 4b |TO START|..95 POK|
|000002a0| 45 41 2c 30 3a 57 41 49 | 54 41 2c 31 3a 47 45 54 |EA,0:WAI|TA,1:GET|
|000002b0| 43 24 0a 31 30 30 20 50 | 52 49 4e 54 22 93 11 20 |C$.100 P|RINT".. |
|000002c0| 20 20 20 20 20 51 55 49 | 43 4b 44 52 41 57 11 11 |     QUI|CKDRAW..|
|000002d0| 00 0a 39 30 30 20 50 4f | 4b 45 41 2c 30 3a 50 52 |..900 PO|KEA,0:PR|
|000002e0| 49 4e 54 22 4f 4e 20 41 | 20 53 43 41 4c 45 20 4f |INT"ON A| SCALE O|
|000002f0| 46 20 31 20 54 4f 20 35 | 2c 20 48 4f 57 20 47 4f |F 1 TO 5|, HOW GO|
|00000300| 4f 44 20 41 20 53 48 4f | 54 20 20 11 20 41 52 45 |OD A SHO|T  . ARE|
|00000310| 20 59 4f 55 3f 20 22 3b | 0a 39 31 30 20 47 45 54 | YOU? ";|.910 GET|
|00000320| 58 24 3a 49 46 58 24 3c | 22 31 22 4f 52 58 24 3e |X$:IFX$<|"1"ORX$>|
|00000330| 22 35 22 47 4f 54 4f 39 | 31 30 0a 39 32 30 20 50 |"5"GOTO9|10.920 P|
|00000340| 52 49 4e 54 58 24 3a 58 | 30 3d 36 2d 56 41 4c 28 |RINTX$:X|0=6-VAL(|
|00000350| 58 24 29 0a 39 35 30 20 | 50 52 49 4e 54 22 93 22 |X$).950 |PRINT"."|
|00000360| 3a 43 3d 31 0a 31 30 30 | 30 20 52 45 4d 20 4d 41 |:C=1.100|0 REM MA|
|00000370| 49 4e 20 50 52 4f 43 45 | 53 53 0a 31 30 31 30 20 |IN PROCE|SS.1010 |
|00000380| 58 3d 35 2a 58 30 2a 28 | 39 2d 43 29 3a 50 52 49 |X=5*X0*(|9-C):PRI|
|00000390| 4e 54 22 13 1c 22 42 4c | 24 3b 3a 47 4f 53 55 42 |NT".."BL|$;:GOSUB|
|000003a0| 36 30 30 30 3a 47 4f 53 | 55 42 36 35 30 30 3a 4c |6000:GOS|UB6500:L|
|000003b0| 3d 28 52 4e 44 28 52 29 | 3e 2e 38 29 0a 31 30 31 |=(RND(R)|>.8).101|
|000003c0| 35 20 52 45 4d 20 49 4d | 50 4f 53 53 49 42 4c 45 |5 REM IM|POSSIBLE|
|000003d0| 20 41 54 20 58 3d 35 2a | 58 30 2a 28 36 2d 43 29 | AT X=5*|X0*(6-C)|
|000003e0| 0a 31 30 32 30 20 50 4f | 4b 45 41 2c 30 3a 50 52 |.1020 PO|KEA,0:PR|
|000003f0| 49 4e 54 22 13 11 11 11 | 11 11 11 11 11 11 11 11 |INT"....|........|
|00000400| 11 11 11 11 22 3a 54 49 | 24 3d 22 30 30 30 30 30 |....":TI|$="00000|
|00000410| 30 22 3a 44 54 3d 31 32 | 30 2b 31 38 30 2a 52 4e |0":DT=12|0+180*RN|
|00000420| 44 28 52 29 0a 31 30 33 | 30 20 49 46 50 45 45 4b |D(R).103|0 IFPEEK|
|00000430| 28 41 29 47 4f 54 4f 32 | 30 30 30 0a 31 30 34 30 |(A)GOTO2|000.1040|
|00000440| 20 49 46 54 49 3c 44 54 | 47 4f 54 4f 31 30 33 30 | IFTI<DT|GOTO1030|
|00000450| 0a 31 30 35 30 20 49 46 | 4c 54 48 45 4e 50 52 49 |.1050 IF|LTHENPRI|
|00000460| 4e 54 53 50 43 28 32 33 | 29 22 d1 9d 9d 11 12 20 |NTSPC(23|)"..... |
|00000470| 20 22 3a 47 4f 54 4f 31 | 31 30 30 0a 31 30 36 30 | ":GOTO1|100.1060|
|00000480| 20 50 52 49 4e 54 53 50 | 43 28 31 36 29 22 d1 9d | PRINTSP|C(16)"..|
|00000490| 11 12 20 20 22 0a 31 31 | 30 30 20 54 49 24 3d 22 |..  ".11|00 TI$="|
|000004a0| 30 30 30 30 30 30 22 3a | 52 45 4d 20 44 45 4c 41 |000000":|REM DELA|
|000004b0| 59 20 46 4f 52 20 50 4c | 41 59 45 52 27 53 20 53 |Y FOR PL|AYER'S S|
|000004c0| 48 4f 54 0a 31 31 31 30 | 20 49 46 50 45 45 4b 28 |HOT.1110| IFPEEK(|
|000004d0| 41 29 47 4f 54 4f 31 32 | 30 30 0a 31 31 32 30 20 |A)GOTO12|00.1120 |
|000004e0| 49 46 54 49 3c 58 47 4f | 54 4f 31 31 31 30 0a 31 |IFTI<XGO|TO1110.1|
|000004f0| 31 32 35 20 50 52 49 4e | 54 53 50 43 28 31 36 2d |125 PRIN|TSPC(16-|
|00000500| 4c 2a 37 29 22 91 91 91 | dd 11 9d 9d c0 d7 c0 11 |L*7)"...|........|
|00000510| 9d 9d dd 00 0a 31 31 33 | 30 20 50 52 49 4e 54 22 |.....113|0 PRINT"|
|00000520| 13 22 3b 3a 46 4f 52 49 | 3d 30 54 4f 33 32 3a 50 |.";:FORI|=0TO32:P|
|00000530| 52 49 4e 54 22 20 42 41 | 4e 09 00 9d 9d 9d 22 3b |RINT" BA|N.....";|
|00000540| 3a 4e 45 58 54 49 3a 47 | 4f 53 55 42 39 30 30 30 |:NEXTI:G|OSUB9000|
|00000550| 3a 50 52 49 4e 54 22 13 | 22 42 4c 24 0a 31 31 34 |:PRINT".|"BL$.114|
|00000560| 30 20 50 52 49 4e 54 22 | 13 22 53 50 43 28 31 35 |0 PRINT"|."SPC(15|
|00000570| 29 22 12 20 47 4f 54 43 | 48 41 21 21 20 22 3a 47 |)". GOTC|HA!! ":G|
|00000580| 4f 53 55 42 38 30 30 30 | 0a 31 31 35 30 20 50 4f |OSUB8000|.1150 PO|
|00000590| 4b 45 41 2c 30 3a 57 41 | 49 54 41 2c 31 3a 47 45 |KEA,0:WA|ITA,1:GE|
|000005a0| 54 58 24 3a 49 46 58 24 | 3d 22 59 22 47 4f 54 4f |TX$:IFX$|="Y"GOTO|
|000005b0| 31 30 30 0a 31 31 36 30 | 20 50 52 49 4e 54 22 93 |100.1160| PRINT".|
|000005c0| 11 11 4f 4b 41 59 2c 20 | 59 4f 55 20 4d 41 59 20 |..OKAY, |YOU MAY |
|000005d0| 47 45 54 20 4d 45 20 4e | 45 58 54 20 54 49 4d 45 |GET ME N|EXT TIME|
|000005e0| 21 22 3a 47 4f 54 4f 31 | 35 38 30 0a 31 32 30 30 |!":GOTO1|580.1200|
|000005f0| 20 52 45 4d 20 42 41 44 | 47 55 59 20 44 4f 57 4e | REM BAD|GUY DOWN|
|00000600| 0a 31 32 31 30 20 50 52 | 49 4e 54 22 13 11 11 11 |.1210 PR|INT"....|
|00000610| 11 11 11 11 11 11 11 11 | 11 11 11 22 53 50 43 28 |........|..."SPC(|
|00000620| 32 30 29 22 d1 00 0a 31 | 32 33 30 20 50 52 49 4e |20)"...1|230 PRIN|
|00000630| 54 22 13 20 20 12 20 59 | 4f 55 20 47 4f 54 20 48 |T".  . Y|OU GOT H|
|00000640| 49 4d 21 21 20 22 0a 31 | 32 34 30 20 47 4f 53 55 |IM!! ".1|240 GOSU|
|00000650| 42 36 30 30 30 3a 49 3d | 34 2a 43 2d 33 3a 49 46 |B6000:I=|4*C-3:IF|
|00000660| 43 3e 33 54 48 45 4e 49 | 3d 49 2b 31 35 0a 31 32 |C>3THENI|=I+15.12|
|00000670| 35 30 20 50 52 49 4e 54 | 22 13 11 11 11 11 11 11 |50 PRINT|".......|
|00000680| 22 53 50 43 28 49 29 22 | 9f ce a3 cd 9d 9d 9d 11 |"SPC(I)"|........|
|00000690| a5 22 52 49 47 48 54 24 | 28 53 54 52 24 28 43 29 |."RIGHT$|(STR$(C)|
|000006a0| 2c 31 29 22 a7 9d 9d 9d | 11 cc a4 ba 00 0a 31 33 |,1)"....|......13|
|000006b0| 30 30 20 43 3d 43 2b 31 | 3a 49 46 43 3e 36 47 4f |00 C=C+1|:IFC>6GO|
|000006c0| 54 4f 31 34 30 30 0a 31 | 33 31 30 20 50 52 49 4e |TO1400.1|310 PRIN|
|000006d0| 54 22 13 11 11 57 41 54 | 43 48 20 4f 55 54 20 46 |T"...WAT|CH OUT F|
|000006e0| 4f 52 20 54 48 45 20 4e | 45 58 54 20 47 55 4e 4d |OR THE N|EXT GUNM|
|000006f0| 41 4e 20 2d 22 3a 50 52 | 49 4e 54 22 48 45 27 53 |AN -":PR|INT"HE'S|
|00000700| 20 45 56 45 4e 20 46 41 | 53 54 45 52 21 00 0a 31 | EVEN FA|STER!..1|
|00000710| 33 32 30 20 47 4f 53 55 | 42 39 30 30 30 3a 47 4f |320 GOSU|B9000:GO|
|00000720| 53 55 42 39 30 30 30 3a | 47 4f 54 4f 31 30 30 30 |SUB9000:|GOTO1000|
|00000730| 0a 31 34 30 30 20 47 4f | 53 55 42 39 30 30 30 3a |.1400 GO|SUB9000:|
|00000740| 50 52 49 4e 54 22 93 11 | 59 4f 55 20 57 49 50 45 |PRINT"..|YOU WIPE|
|00000750| 44 20 4f 55 54 20 41 4c | 4c 20 54 48 45 20 42 41 |D OUT AL|L THE BA|
|00000760| 44 20 47 55 59 53 21 22 | 3a 49 46 58 30 3d 31 47 |D GUYS!"|:IFX0=1G|
|00000770| 4f 54 4f 31 35 30 30 0a | 31 34 31 30 20 50 52 49 |OTO1500.|1410 PRI|
|00000780| 4e 54 22 11 59 4f 55 20 | 53 41 49 44 20 59 4f 55 |NT".YOU |SAID YOU|
|00000790| 20 57 45 52 45 20 41 20 | 47 55 4e 46 49 47 48 54 | WERE A |GUNFIGHT|
|000007a0| 45 52 20 47 52 41 44 45 | 22 36 2d 58 30 0a 31 34 |ER GRADE|"6-X0.14|
|000007b0| 32 30 20 50 52 49 4e 54 | 22 11 48 4f 57 20 47 4f |20 PRINT|".HOW GO|
|000007c0| 4f 44 09 00 52 45 20 59 | 4f 55 20 52 45 41 4c 4c |OD..RE Y|OU REALL|
|000007d0| 59 3f 22 3a 50 4f 4b 45 | 41 2c 30 3a 47 4f 54 4f |Y?":POKE|A,0:GOTO|
|000007e0| 39 31 30 0a 31 35 30 30 | 20 50 52 49 4e 54 22 11 |910.1500| PRINT".|
|000007f0| 59 4f 55 20 41 52 45 20 | 42 45 54 54 45 52 20 54 |YOU ARE |BETTER T|
|00000800| 48 41 4e 20 54 48 45 20 | 42 45 53 54 21 00 0a 31 |HAN THE |BEST!..1|
|00000810| 35 31 30 20 50 52 49 4e | 54 22 11 59 4f 55 52 20 |510 PRIN|T".YOUR |
|00000820| 4d 45 44 41 4c 3a 00 0a | 31 35 32 30 20 50 52 49 |MEDAL:..|1520 PRI|
|00000830| 4e 54 22 11 20 20 20 20 | 20 20 20 20 20 20 20 a4 |NT".    |       .|
|00000840| a4 a4 00 0a 31 35 33 30 | 20 50 52 49 4e 54 22 20 |....1530| PRINT" |
|00000850| 20 20 20 20 20 20 20 20 | 20 a7 a6 a6 a6 a5 00 0a |        | .......|
|00000860| 31 35 34 30 20 50 52 49 | 4e 54 22 20 20 20 20 20 |1540 PRI|NT"     |
|00000870| 20 20 20 20 20 a7 a6 a6 | a6 a5 00 0a 31 35 35 30 |     ...|....1550|
|00000880| 20 50 52 49 4e 54 22 20 | 20 20 20 20 20 20 20 20 | PRINT" |        |
|00000890| 20 20 cd dd ce 00 0a 31 | 35 36 30 20 50 52 49 4e |  .....1|560 PRIN|
|000008a0| 54 22 20 20 20 20 20 20 | 20 20 20 20 20 c0 12 20 |T"      |     .. |
|000008b0| 92 c0 00 0a 31 35 37 30 | 20 50 52 49 4e 54 22 20 |....1570| PRINT" |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 ce dd cd 00 0a 31 |        |  .....1|
|000008d0| 35 38 30 20 50 52 49 4e | 54 22 11 11 28 54 4f 20 |580 PRIN|T"..(TO |
|000008e0| 50 4c 41 59 20 41 47 41 | 49 4e 2c 20 45 4e 54 45 |PLAY AGA|IN, ENTE|
|000008f0| 52 20 27 52 55 4e 27 29 | 22 3a 50 4f 4b 45 41 2c |R 'RUN')|":POKEA,|
|00000900| 30 3a 45 4e 44 0a 32 30 | 30 30 20 52 45 4d 20 47 |0:END.20|00 REM G|
|00000910| 4f 4f 44 47 55 59 20 53 | 48 4f 54 20 46 49 52 53 |OODGUY S|HOT FIRS|
|00000920| 54 0a 32 30 31 30 20 50 | 52 49 4e 54 22 13 11 11 |T.2010 P|RINT"...|
|00000930| 11 11 11 11 11 11 11 11 | 11 11 11 11 22 53 50 43 |........|...."SPC|
|00000940| 28 32 30 29 22 d1 00 0a | 32 30 32 30 20 50 52 49 |(20)"...|2020 PRI|
|00000950| 4e 54 22 13 20 20 12 20 | 59 4f 55 20 53 48 4f 54 |NT".  . |YOU SHOT|
|00000960| 20 42 45 46 4f 52 45 20 | 48 45 20 44 52 45 57 21 | BEFORE |HE DREW!|
|00000970| 20 11 00 0a 32 30 33 30 | 20 47 4f 53 55 42 39 30 | ...2030| GOSUB90|
|00000980| 30 30 3a 50 52 49 4e 54 | 22 59 4f 55 27 52 45 20 |00:PRINT|"YOU'RE |
|00000990| 53 45 4e 54 45 4e 43 45 | 44 20 54 4f 20 41 20 53 |SENTENCE|D TO A S|
|000009a0| 45 56 45 4e 2d 53 45 43 | 4f 4e 44 20 44 45 4c 41 |EVEN-SEC|OND DELA|
|000009b0| 59 00 0a 32 30 34 30 20 | 50 52 49 4e 54 22 42 45 |Y..2040 |PRINT"BE|
|000009c0| 46 4f 52 45 20 59 4f 55 | 20 43 41 4e 20 52 45 50 |FORE YOU| CAN REP|
|000009d0| 4c 41 59 21 22 3a 50 4f | 4b 45 42 2c 30 3a 57 41 |LAY!":PO|KEB,0:WA|
|000009e0| 49 54 42 2c 32 3a 47 4f | 54 4f 31 30 30 0a 36 30 |ITB,2:GO|TO100.60|
|000009f0| 30 30 20 52 45 4d 20 44 | 52 41 57 20 54 48 45 20 |00 REM D|RAW THE |
|00000a00| 53 43 45 4e 45 0a 36 30 | 31 30 20 50 52 49 4e 54 |SCENE.60|10 PRINT|
|00000a10| 22 13 22 3a 50 52 49 4e | 54 42 4c 24 42 4c 24 42 |".":PRIN|TBL$BL$B|
|00000a20| 4c 24 0a 36 30 32 30 20 | 46 4f 52 49 3d 30 54 4f |L$.6020 |FORI=0TO|
|00000a30| 31 33 3a 50 52 49 4e 54 | 53 50 43 28 31 34 2d 49 |13:PRINT|SPC(14-I|
|00000a40| 29 22 12 09 00 c8 28 42 | 4c 24 2c 32 ac 49 aa 31 |)"....(B|L$,2.I.1|
|00000a50| 30 29 22 2a 2a 2a 45 52 | 52 4f 52 2a 2a 2a 22 3a |0)"***ER|ROR***":|
|00000a60| 82 49 00 0a 36 30 33 30 | 20 50 52 49 4e 54 22 12 |.I..6030| PRINT".|
|00000a70| a9 22 4c 45 46 54 24 28 | 42 4c 24 2c 33 38 29 22 |."LEFT$(|BL$,38)"|
|00000a80| df 00 0a 36 30 34 30 20 | 50 52 49 4e 54 22 91 12 |...6040 |PRINT"..|
|00000a90| 22 42 4c 24 42 4c 24 42 | 4c 24 4c 45 46 54 24 28 |"BL$BL$B|L$LEFT$(|
|00000aa0| 42 4c 24 2c 33 39 29 22 | 92 22 3b 3a 50 4f 4b 45 |BL$,39)"|.";:POKE|
|00000ab0| 33 33 37 36 37 2c 31 36 | 30 0a 36 30 39 30 20 52 |33767,16|0.6090 R|
|00000ac0| 45 54 55 52 4e 0a 36 35 | 30 30 20 50 52 49 4e 54 |ETURN.65|00 PRINT|
|00000ad0| 22 13 22 42 4c 24 42 4c | 24 42 4c 24 42 4c 24 42 |"."BL$BL|$BL$BL$B|
|00000ae0| 4c 24 3a 50 52 49 4e 54 | 53 50 43 28 31 39 29 22 |L$:PRINT|SPC(19)"|
|00000af0| a1 12 a1 00 0a 36 35 31 | 30 20 47 4f 53 55 42 39 |.....651|0 GOSUB9|
|00000b00| 30 30 30 3a 50 52 49 4e | 54 53 50 43 28 31 39 29 |000:PRIN|TSPC(19)|
|00000b10| 22 91 12 20 20 11 9d 9d | 92 20 20 9d 9d 9d 11 a1 |"..  ...|.  .....|
|00000b20| 20 20 12 a1 92 9d 9d 9d | 9d 11 a1 20 20 12 a1 22 |  ......|...  .."|
|00000b30| 3a 47 4f 53 55 42 39 30 | 30 30 0a 36 35 32 30 20 |:GOSUB90|00.6520 |
|00000b40| 50 52 49 4e 54 22 13 11 | 11 11 11 11 11 11 22 53 |PRINT"..|......"S|
|00000b50| 50 43 28 31 39 29 22 12 | 20 20 22 0a 36 35 33 30 |PC(19)".|  ".6530|
|00000b60| 20 50 52 49 4e 54 53 50 | 43 28 31 39 29 22 20 20 | PRINTSP|C(19)"  |
|00000b70| 9d 9d 11 20 20 9d 9d 9d | 11 20 20 20 20 9d 9d 9d |...  ...|.    ...|
|00000b80| 9d 11 20 20 20 20 22 0a | 36 35 34 30 20 50 52 49 |..    ".|6540 PRI|
|00000b90| 4e 54 53 50 43 28 31 38 | 29 22 90 20 20 20 20 9d |NTSPC(18|)".    .|
|00000ba0| 9d 9d 9d 11 20 20 20 20 | 9d 9d 9d 9d 11 20 a7 a5 |....    |..... ..|
|00000bb0| 20 9d 9d 9d 9d 11 20 a7 | a5 20 22 3a 47 4f 53 55 | ..... .|. ":GOSU|
|00000bc0| 42 39 30 30 30 0a 37 30 | 30 30 20 52 45 4d 20 44 |B9000.70|00 REM D|
|00000bd0| 52 41 57 20 54 48 45 20 | 42 41 44 47 55 59 0a 37 |RAW THE |BADGUY.7|
|00000be0| 30 31 30 20 50 52 49 4e | 54 22 13 11 11 11 11 11 |010 PRIN|T"......|
|00000bf0| 11 11 00 0a 37 30 32 30 | 20 50 52 49 4e 54 53 50 |....7020| PRINTSP|
|00000c00| 43 28 31 38 29 22 12 ba | 92 20 20 12 cc 00 0a 37 |C(18)"..|.  ....7|
|00000c10| 30 33 30 20 50 52 49 4e | 54 53 50 43 28 31 38 29 |030 PRIN|TSPC(18)|
|00000c20| 22 12 d0 a6 a6 cf 00 0a | 37 30 34 30 20 50 52 49 |".......|7040 PRI|
|00000c30| 4e 54 53 50 43 28 31 38 | 29 22 12 a7 a6 a6 a5 00 |NTSPC(18|)"......|
|00000c40| 0a 37 30 35 30 20 50 52 | 49 4e 54 53 50 43 28 31 |.7050 PR|INTSPC(1|
|00000c50| 38 29 22 12 20 92 a1 12 | a1 20 22 0a 37 30 36 30 |8)". ...|. ".7060|
|00000c60| 20 50 52 49 4e 54 53 50 | 43 28 31 37 29 22 a9 20 | PRINTSP|C(17)". |
|00000c70| 20 20 20 df 00 0a 37 30 | 37 30 20 50 52 49 4e 54 |   ...70|70 PRINT|
|00000c80| 53 50 43 28 31 36 29 22 | a9 20 20 20 20 20 20 df |SPC(16)"|.      .|
|00000c90| 00 0a 37 30 38 30 20 50 | 52 49 4e 54 53 50 43 28 |..7080 P|RINTSPC(|
|00000ca0| 31 36 29 22 20 12 a9 92 | 20 22 43 22 12 df 92 20 |16)" ...| "C"... |
|00000cb0| 22 0a 37 30 39 30 20 50 | 52 49 4e 54 53 50 43 28 |".7090 P|RINTSPC(|
|00000cc0| 31 36 29 22 20 12 20 92 | 20 20 20 20 12 20 92 20 |16)" . .|    . . |
|00000cd0| 22 0a 37 31 30 30 20 50 | 52 49 4e 54 53 50 43 28 |".7100 P|RINTSPC(|
|00000ce0| 31 36 29 22 20 12 20 92 | a8 a8 a8 a8 12 20 92 20 |16)" . .|..... . |
|00000cf0| 22 0a 37 31 31 30 20 50 | 52 49 4e 54 53 50 43 28 |".7110 P|RINTSPC(|
|00000d00| 31 09 0a 37 31 32 30 20 | 50 52 49 4e 54 53 50 43 |1..7120 |PRINTSPC|
|00000d10| 28 31 37 29 22 a1 a5 12 | a1 92 a1 a7 12 a1 00 0a |(17)"...|........|
|00000d20| 37 31 33 30 20 50 52 49 | 4e 54 53 50 43 28 31 38 |7130 PRI|NTSPC(18|
|00000d30| 29 3b 3a 46 4f 52 49 3d | 30 54 4f 32 3a 50 52 49 |);:FORI=|0TO2:PRI|
|00000d40| 4e 54 22 a5 12 a1 92 a1 | a7 9d 9d 9d 9d 11 22 3b |NT".....|......";|
|00000d50| 3a 4e 45 58 54 49 3a 50 | 52 49 4e 54 22 12 ca cb |:NEXTI:P|RINT"...|
|00000d60| ca cb 00 0a 37 31 39 30 | 20 52 45 54 55 52 4e 0a |....7190| RETURN.|
|00000d70| 38 30 30 30 20 52 45 4d | 20 59 4f 55 52 20 54 4f |8000 REM| YOUR TO|
|00000d80| 4d 42 53 54 4f 4e 45 0a | 38 30 31 30 20 47 4f 53 |MBSTONE.|8010 GOS|
|00000d90| 55 42 36 30 30 30 3a 50 | 52 49 4e 54 22 13 11 11 |UB6000:P|RINT"...|
|00000da0| 11 11 11 11 11 11 11 11 | 22 53 50 43 28 31 37 29 |........|"SPC(17)|
|00000db0| 22 a9 20 20 20 20 df 00 | 0a 38 30 32 30 20 50 52 |".    ..|.8020 PR|
|00000dc0| 49 4e 54 53 50 43 28 31 | 36 29 22 a9 20 20 20 20 |INTSPC(1|6)".    |
|00000dd0| 20 20 df 00 0a 38 30 33 | 30 20 50 52 49 4e 54 53 |  ...803|0 PRINTS|
|00000de0| 50 43 28 31 36 29 22 20 | 20 52 20 20 20 20 20 22 |PC(16)" | R     "|
|00000df0| 0a 38 30 34 30 20 50 52 | 49 4e 54 53 50 43 28 31 |.8040 PR|INTSPC(1|
|00000e00| 36 29 22 20 20 20 49 20 | 20 20 20 22 0a 38 30 35 |6)"   I |   ".805|
|00000e10| 30 20 50 52 49 4e 54 53 | 50 43 28 31 36 29 22 20 |0 PRINTS|PC(16)" |
|00000e20| 20 20 20 50 20 20 20 22 | 0a 38 30 36 30 20 50 52 |   P   "|.8060 PR|
|00000e30| 49 4e 54 53 50 43 28 31 | 36 29 22 20 20 20 20 20 |INTSPC(1|6)"     |
|00000e40| 2e 20 20 22 0a 38 30 37 | 30 20 46 4f 52 49 3d 30 |.  ".807|0 FORI=0|
|00000e50| 54 4f 32 3a 50 52 49 4e | 54 53 50 43 28 31 36 29 |TO2:PRIN|TSPC(16)|
|00000e60| 22 20 20 20 20 20 20 20 | 20 22 3a 4e 45 58 54 49 |"       | ":NEXTI|
|00000e70| 0a 38 30 38 30 20 50 52 | 49 4e 54 53 50 43 28 31 |.8080 PR|INTSPC(1|
|00000e80| 33 29 3b 3a 46 4f 52 49 | 3d 30 54 4f 31 33 3a 50 |3);:FORI|=0TO13:P|
|00000e90| 52 49 4e 54 22 a6 22 3b | 3a 4e 45 58 54 49 3a 50 |RINT".";|:NEXTI:P|
|00000ea0| 52 49 4e 54 0a 38 30 39 | 30 20 50 52 49 4e 54 53 |RINT.809|0 PRINTS|
|00000eb0| 50 43 28 31 34 29 22 11 | 11 41 4e 4f 54 48 45 52 |PC(14)".|.ANOTHER|
|00000ec0| 20 54 52 59 3f 22 3a 52 | 45 54 55 52 4e 0a 39 30 | TRY?":R|ETURN.90|
|00000ed0| 30 30 20 50 4f 4b 45 47 | 2c 30 3a 57 41 49 54 47 |00 POKEG|,0:WAITG|
|00000ee0| 2c 36 34 3a 52 45 54 55 | 52 4e 0a 39 39 39 39 20 |,64:RETU|RN.9999 |
|00000ef0| 50 52 49 4e 54 22 13 00 | 0a                      |PRINT"..|.       |
+--------+-------------------------+-------------------------+--------+--------+