WARGLE
FILE INFORMATION
FILENAME(S): WARGLE
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 21:23:46
APPEARS ON: 1 disk(s)
FILE HASH
52ae4fd77986c4fa9c9e293205bea55a094207c59b1dd3b60d2b57661f45dc67
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 142 2 | WARGLE | PRG | DuncanTwain | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 8F 20 43 4F 50 59 52 49 47 48 |..".... COPYRIGH|
00000010: 54 20 31 39 38 33 20 42 59 20 45 41 53 54 47 41 |T 1983 BY EASTGA|
00000020: 54 45 00 3F 08 02 00 8F 20 20 20 53 59 53 54 45 |TE.?.... SYSTE|
00000030: 4D 53 20 49 4E 43 4F 52 50 4F 52 41 54 45 44 00 |MS INCORPORATED.|
00000040: 5A 08 03 00 8F 20 41 4C 4C 20 52 49 47 48 54 53 |Z.... ALL RIGHTS|
00000050: 20 52 45 53 45 52 56 45 44 20 00 72 08 05 00 97 | RESERVED .r....|
00000060: 20 35 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 | 53280,0:. 53281|
00000070: 2C 30 00 7C 08 06 00 99 20 22 93 22 00 82 08 07 |,0.|.... "."....|
00000080: 00 8F 00 9A 08 0C 00 97 20 35 32 2C 31 32 30 3A |........ 52,120:|
00000090: 97 20 35 36 2C 31 32 30 3A 9C 00 A6 08 64 00 86 |. 56,120:....d..|
000000A0: 41 24 28 31 33 29 00 C2 08 78 00 8D 20 31 31 30 |A$(13)...x.. 110|
000000B0: 30 30 3A 8F 20 44 49 53 50 4C 41 59 20 50 52 4F |00:. DISPLAY PRO|
000000C0: 4D 4F 00 D4 08 7A 00 8D 20 39 30 30 30 3A 8D 20 |MO...z.. 9000:. |
000000D0: 39 33 30 30 00 EF 08 82 00 8B 20 C2 28 33 32 37 |9300...... .(327|
000000E0: 36 38 29 B2 37 36 20 20 A7 20 89 20 31 34 30 00 |68).76 . . 140.|
000000F0: 2F 09 84 00 99 22 13 11 11 11 11 11 11 11 11 11 |/...."..........|
00000100: 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |................|
00000110: 1D 1D 1D 1D 05 4C 4F 41 44 49 4E 47 20 47 41 4D |.....LOADING GAM|
00000120: 45 2C 20 50 4C 45 41 53 45 20 57 41 49 54 22 00 |E, PLEASE WAIT".|
00000130: 49 09 86 00 93 20 22 20 57 41 52 47 4C 45 2E 4F |I.... " WARGLE.O|
00000140: 42 4A 22 2C 38 2C 31 3A 8A 00 5E 09 8C 00 8F 20 |BJ",8,1:..^.... |
00000150: 2D 2D 2D 20 48 45 52 45 20 57 45 20 47 4F 00 83 |--- HERE WE GO..|
00000160: 09 8E 00 8D 20 31 31 30 30 30 3A 81 20 53 20 B2 |.... 11000:. S .|
00000170: 20 31 20 A4 20 31 30 3A 8D 20 31 31 32 37 30 3A | 1 . 10:. 11270:|
00000180: 82 20 53 00 8C 09 93 00 53 B2 AB 31 00 92 09 F4 |. S.....S..1....|
00000190: 01 8F 00 A1 09 F9 01 97 20 35 33 32 38 31 2C 31 |........ 53281,1|
000001A0: 32 00 CC 09 FE 01 43 4C 24 B2 20 22 93 90 20 20 |2.....CL$. ".. |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 52 | WAR|
000001C0: 47 4C 45 21 11 22 3A 99 20 43 4C 24 00 EE 09 00 |GLE!.":. CL$....|
000001D0: 02 99 20 A3 35 29 3B 22 4C 45 56 45 4C 20 22 20 |.. .5);"LEVEL " |
000001E0: 4C 56 22 20 28 22 4C 24 28 4C 56 29 22 29 00 22 |LV" ("L$(LV)")."|
000001F0: 0A 02 02 99 3A 8B 20 53 B1 B2 30 20 A7 20 99 20 |....:. S..0 . . |
00000200: A3 35 29 3B 22 4C 41 53 54 20 53 43 4F 52 45 20 |.5);"LAST SCORE |
00000210: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 22 53 AC |. . . . . . ."S.|
00000220: 31 30 00 63 0A 04 02 99 20 20 20 20 20 20 20 20 |10.c.... |
00000230: 20 20 20 20 20 20 20 20 20 20 20 A3 35 29 3B 22 | .5);"|
00000240: 48 49 47 48 20 53 43 4F 52 45 20 28 4C 45 56 45 |HIGH SCORE (LEVE|
00000250: 4C 20 22 4C 56 22 29 20 3A 22 48 53 28 4C 56 29 |L "LV") :"HS(LV)|
00000260: AC 31 30 00 7B 0A 08 02 99 20 22 11 11 54 59 50 |.10.{.... "..TYP|
00000270: 45 20 2E 20 2E 20 2E 20 2E 20 22 00 84 0A 0A 02 |E . . . . ".....|
00000280: 99 3A 20 99 00 A2 0A 12 02 99 20 22 12 50 92 20 |.: ....... ".P. |
00000290: 54 4F 20 12 50 92 4C 41 59 20 57 41 52 47 4C 45 |TO .P.LAY WARGLE|
000002A0: 21 22 00 CA 0A 14 02 99 20 22 12 43 92 20 54 4F |!"...... ".C. TO|
000002B0: 20 12 43 92 55 53 54 4F 4D 49 5A 45 20 54 48 45 | .C.USTOMIZE THE|
000002C0: 20 4B 45 59 42 4F 41 52 44 22 00 EC 0A 16 02 99 | KEYBOARD"......|
000002D0: 20 22 12 53 92 20 54 4F 20 52 45 53 45 54 20 48 | ".S. TO RESET H|
000002E0: 49 47 48 20 12 53 92 43 4F 52 45 22 00 07 0B 18 |IGH .S.CORE"....|
000002F0: 02 99 20 22 12 4C 92 20 54 4F 20 53 45 54 20 12 |.. ".L. TO SET .|
00000300: 4C 92 45 56 45 4C 22 00 0D 0B 1A 02 99 00 24 0B |L.EVEL".......$.|
00000310: 58 02 A1 20 51 24 3A 8B 20 51 24 B2 22 22 20 A7 |X.. Q$:. Q$."" .|
00000320: 20 36 30 30 00 40 0B 62 02 8B 20 51 24 B2 22 43 | 600.@.b.. Q$."C|
00000330: 22 20 A7 20 8D 20 31 36 30 30 3A 89 20 36 39 30 |" . . 1600:. 690|
00000340: 00 5C 0B 6C 02 8B 20 51 24 B2 22 50 22 20 A7 20 |.\.l.. Q$."P" . |
00000350: 8D 20 33 30 30 30 3A 89 20 36 39 30 00 78 0B 76 |. 3000:. 690.x.v|
00000360: 02 8B 20 51 24 B2 22 4C 22 20 A7 20 8D 20 33 35 |.. Q$."L" . . 35|
00000370: 30 30 3A 89 20 36 39 30 00 94 0B 80 02 8B 20 51 |00:. 690...... Q|
00000380: 24 B2 22 53 22 20 A7 20 8D 20 34 30 30 30 3A 89 |$."S" . . 4000:.|
00000390: 20 36 39 30 00 9E 0B B2 02 89 20 35 30 30 00 A4 | 690...... 500..|
000003A0: 0B E7 03 90 00 C0 0B E8 03 8F 20 2D 2D 2D 2D 20 |.......... ---- |
000003B0: 52 45 41 44 20 53 54 41 54 55 53 20 43 48 4E 4C |READ STATUS CHNL|
000003C0: 00 D3 0B F2 03 84 31 2C 41 25 2C 42 24 2C 43 25 |......1,A%,B$,C%|
000003D0: 2C 44 25 00 EA 0B FC 03 8B 20 41 25 B3 32 20 B0 |,D%...... A%.2 .|
000003E0: 20 41 25 B2 37 33 20 A7 20 8E 00 0F 0C 06 04 99 | A%.73 . .......|
000003F0: 20 22 93 59 4F 55 52 20 44 49 53 4B 20 48 41 53 | ".YOUR DISK HAS|
00000400: 20 42 45 45 4E 20 44 41 4D 41 47 45 44 2E 22 00 | BEEN DAMAGED.".|
00000410: 21 0C 08 04 99 20 41 25 3B 42 24 2C 43 25 3B 44 |!.... A%;B$,C%;D|
00000420: 25 00 4D 0C 0A 04 99 20 22 11 11 49 46 20 50 52 |%.M.... "..IF PR|
00000430: 4F 42 4C 45 4D 53 20 50 45 52 53 49 53 54 2C 20 |OBLEMS PERSIST, |
00000440: 53 45 45 20 57 41 52 52 41 4E 54 59 22 00 76 0C |SEE WARRANTY".v.|
00000450: 0C 04 99 20 22 49 4E 46 4F 52 4D 41 54 49 4F 4E |... "INFORMATION|
00000460: 20 49 4E 20 12 57 41 52 47 4C 45 21 92 20 4D 41 | IN .WARGLE!. MA|
00000470: 4E 55 41 4C 2E 22 00 84 0C 10 04 A0 20 32 3A A0 |NUAL."...... 2:.|
00000480: 20 31 3A 90 00 9B 0C DC 05 8F 20 2D 2D 2D 2D 4B | 1:....... ----K|
00000490: 45 59 42 44 20 53 45 4C 45 43 54 00 C4 0C E6 05 |EYBD SELECT.....|
000004A0: 99 20 22 93 20 20 20 20 20 20 20 4B 45 59 42 4F |. ". KEYBO|
000004B0: 41 52 44 20 43 55 53 54 4F 4D 49 5A 41 54 49 4F |ARD CUSTOMIZATIO|
000004C0: 4E 11 11 22 00 CD 0C F0 05 4B B2 5A 4B 00 F6 0C |N..".....K.ZK...|
000004D0: FA 05 99 20 A3 35 29 3B 22 4D 4F 56 45 20 55 50 |... .5);"MOVE UP|
000004E0: 22 3B A3 33 30 29 3B 3A 4B 4B B2 4B 28 30 29 3A |";.30);:KK.K(0):|
000004F0: 8D 20 32 30 30 30 00 21 0D 04 06 99 20 A3 35 29 |. 2000.!.... .5)|
00000500: 3B 22 20 20 20 20 20 44 4F 57 4E 22 3B A3 33 30 |;" DOWN";.30|
00000510: 29 3B 3A 4B 4B B2 4B 28 31 29 3A 8D 20 32 30 30 |);:KK.K(1):. 200|
00000520: 30 00 4D 0D 0E 06 99 20 A3 35 29 3B 22 20 20 20 |0.M.... .5);" |
00000530: 20 20 4C 45 46 54 22 3B A3 33 30 29 3B 3A 4B 4B | LEFT";.30);:KK|
00000540: B2 20 4B 28 32 29 3A 8D 20 32 30 30 30 00 7A 0D |. K(2):. 2000.z.|
00000550: 18 06 99 20 A3 35 29 3B 22 20 20 20 20 20 52 49 |... .5);" RI|
00000560: 47 48 54 22 3B A3 33 30 29 3B 3A 4B 4B B2 20 4B |GHT";.30);:KK. K|
00000570: 28 33 29 3A 8D 20 32 30 30 30 00 AB 0D 22 06 99 |(3):. 2000..."..|
00000580: 3A 99 20 A3 35 29 3B 22 20 46 49 52 45 20 46 4F |:. .5);" FIRE FO|
00000590: 52 57 41 52 44 22 3B A3 33 30 29 3B 3A 4B 4B B2 |RWARD";.30);:KK.|
000005A0: 4B 28 34 29 3A 8D 20 32 30 30 30 00 DC 0D 24 06 |K(4):. 2000...$.|
000005B0: 99 20 A3 35 29 3B 22 20 46 49 52 45 20 42 41 43 |. .5);" FIRE BAC|
000005C0: 4B 57 41 52 44 22 3B A3 33 30 29 3B 3A 4B 4B B2 |KWARD";.30);:KK.|
000005D0: 20 4B 28 35 29 3A 8D 20 32 30 30 30 00 06 0E 2C | K(5):. 2000...,|
000005E0: 06 99 3A 99 20 A3 35 29 3B 22 50 41 55 53 45 22 |..:. .5);"PAUSE"|
000005F0: 3B A3 33 30 29 3B 3A 4B 4B B2 20 4B 28 36 29 3A |;.30);:KK. K(6):|
00000600: 8D 20 32 30 30 30 00 2F 0E 2E 06 99 20 A3 35 29 |. 2000./.... .5)|
00000610: 3B 22 52 45 53 55 4D 45 22 3B A3 33 30 29 3B 3A |;"RESUME";.30);:|
00000620: 4B 4B B2 20 4B 28 37 29 3A 8D 20 32 30 30 30 00 |KK. K(7):. 2000.|
00000630: 64 0E 36 06 99 3A 99 20 A3 35 29 3B 22 51 55 49 |d.6..:. .5);"QUI|
00000640: 54 20 49 4D 4D 45 44 49 41 54 45 4C 59 22 3B A3 |T IMMEDIATELY";.|
00000650: 33 30 29 3B 3A 4B 4B B2 20 4B 28 38 29 3A 8D 20 |30);:KK. K(8):. |
00000660: 32 30 30 30 00 6A 0E 3F 06 8E 00 81 0E 40 06 8F |2000.j.?.....@..|
00000670: 20 2D 2D 2D 20 4D 41 4B 45 20 43 48 41 4E 47 45 | --- MAKE CHANGE|
00000680: 53 00 94 0E 42 06 8D 20 32 35 30 30 3A 20 8D 20 |S...B.. 2500: . |
00000690: 31 35 30 30 00 B5 0E 4A 06 52 B2 34 3A 44 B2 30 |1500...J.R.4:D.0|
000006A0: 3A 51 24 B2 22 4D 4F 56 45 20 55 50 22 3A 20 8D |:Q$."MOVE UP": .|
000006B0: 20 32 32 30 30 00 D8 0E 4B 06 52 B2 35 3A 44 B2 | 2200...K.R.5:D.|
000006C0: 31 3A 51 24 B2 22 4D 4F 56 45 20 44 4F 57 4E 22 |1:Q$."MOVE DOWN"|
000006D0: 3A 20 8D 20 32 32 30 30 00 FC 0E 4C 06 52 B2 37 |: . 2200...L.R.7|
000006E0: 3A 44 B2 32 3A 51 24 B2 22 4D 4F 56 45 20 4C 45 |:D.2:Q$."MOVE LE|
000006F0: 46 54 20 22 3A 20 8D 20 32 32 30 30 00 20 0F 4D |FT ": . 2200. .M|
00000700: 06 52 B2 37 3A 44 B2 33 3A 51 24 B2 22 4D 4F 56 |.R.7:D.3:Q$."MOV|
00000710: 45 20 52 49 47 48 54 22 3A 20 8D 20 32 32 30 30 |E RIGHT": . 2200|
00000720: 00 47 0F 54 06 52 B2 39 3A 44 B2 34 3A 51 24 B2 |.G.T.R.9:D.4:Q$.|
00000730: 22 46 49 52 45 20 46 4F 52 57 41 52 44 20 22 3A |"FIRE FORWARD ":|
00000740: 20 8D 20 32 32 30 30 00 70 0F 56 06 52 B2 31 30 | . 2200.p.V.R.10|
00000750: 3A 44 B2 35 3A 51 24 B2 22 46 49 52 45 20 42 41 |:D.5:Q$."FIRE BA|
00000760: 43 4B 57 41 52 44 20 22 3A 20 8D 20 32 32 30 30 |CKWARD ": . 2200|
00000770: 00 99 0F 5E 06 52 B2 31 32 3A 44 B2 36 3A 51 24 |...^.R.12:D.6:Q$|
00000780: B2 22 50 41 55 53 45 20 20 20 20 20 20 20 20 20 |."PAUSE |
00000790: 22 3A 20 8D 20 32 32 30 30 00 C2 0F 60 06 52 B2 |": . 2200...`.R.|
000007A0: 31 33 3A 44 B2 37 3A 51 24 B2 22 52 45 53 55 4D |13:D.7:Q$."RESUM|
000007B0: 45 20 20 20 20 20 20 20 20 22 3A 20 8D 20 32 32 |E ": . 22|
000007C0: 30 30 00 EB 0F 68 06 52 B2 31 35 3A 44 B2 38 3A |00...h.R.15:D.8:|
000007D0: 51 24 B2 22 51 55 49 54 20 20 20 20 20 20 20 20 |Q$."QUIT |
000007E0: 20 20 22 3A 20 8D 20 32 32 30 30 00 F6 0F 90 06 | ": . 2200.....|
000007F0: 8D 20 32 35 35 30 00 FC 0F 9A 06 8E 00 19 10 D0 |. 2550..........|
00000800: 07 8F 20 2D 2D 20 49 4E 54 45 52 50 52 45 54 20 |.. -- INTERPRET |
00000810: 4B 45 59 20 43 4F 44 45 53 00 35 10 E4 07 8B 20 |KEY CODES.5.... |
00000820: 4B 4B B2 31 33 20 A7 20 20 99 20 22 52 45 54 55 |KK.13 . . "RETU|
00000830: 52 4E 22 3A 8E 00 58 10 E6 07 8B 20 4B 4B B2 32 |RN":..X.... KK.2|
00000840: 39 20 20 A7 20 20 99 20 22 52 49 47 48 54 20 43 |9 . . "RIGHT C|
00000850: 55 52 53 4F 52 22 3A 8E 00 79 10 E8 07 8B 20 4B |URSOR":..y.... K|
00000860: 4B B2 31 37 20 A7 20 20 99 20 22 44 4F 57 4E 20 |K.17 . . "DOWN |
00000870: 43 55 52 53 4F 52 22 3A 8E 00 93 10 EE 07 8B 20 |CURSOR":....... |
00000880: 4B 4B B2 31 39 20 A7 20 20 99 20 22 48 4F 4D 45 |KK.19 . . "HOME|
00000890: 22 3A 8E 00 AC 10 F0 07 8B 20 4B 4B B2 32 30 20 |":....... KK.20 |
000008A0: A7 20 20 99 20 22 44 45 4C 22 3A 8E 00 C4 10 F2 |. . "DEL":.....|
000008B0: 07 8B 20 4B 4B B2 33 20 A7 20 99 20 22 53 54 4F |.. KK.3 . . "STO|
000008C0: 50 22 3A 8E 00 DE 10 F4 07 8B 20 4B 4B B2 33 32 |P":....... KK.32|
000008D0: 20 A7 20 99 20 22 53 50 41 43 45 22 3A 8E 00 EA | . . "SPACE":...|
000008E0: 10 20 08 99 20 C7 28 4B 4B 29 00 F0 10 2A 08 8E |. .. .(KK)...*..|
000008F0: 00 10 11 98 08 8F 20 20 20 47 45 54 20 4F 4E 45 |...... GET ONE|
00000900: 20 4B 45 59 20 44 45 53 49 47 4E 41 54 49 4F 4E | KEY DESIGNATION|
00000910: 00 46 11 A2 08 99 20 22 13 11 11 11 11 11 11 11 |.F.... "........|
00000920: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 53 |...............S|
00000930: 45 4C 45 43 54 20 4B 45 59 20 54 4F 2E 2E 2E 2E |ELECT KEY TO....|
00000940: 2E 2E 22 51 24 3B 00 5E 11 AC 08 A1 20 51 24 3A |.."Q$;.^.... Q$:|
00000950: 8B 20 51 24 B2 22 22 20 A7 20 32 32 32 30 00 71 |. Q$."" . 2220.q|
00000960: 11 B6 08 51 B2 C6 28 51 24 29 3A 4B 28 44 29 B2 |...Q..(Q$):K(D).|
00000970: 51 00 7C 11 C0 08 8D 20 31 35 30 30 00 82 11 CA |Q.|.... 1500....|
00000980: 08 8E 00 9C 11 C4 09 8F 20 2D 2D 2D 20 52 45 41 |........ --- REA|
00000990: 44 20 4B 45 59 20 56 41 4C 55 45 53 00 B9 11 CE |D KEY VALUES....|
000009A0: 09 81 20 49 B2 30 20 A4 20 39 3A 4B 28 49 29 B2 |.. I.0 . 9:K(I).|
000009B0: C2 28 5A 4B AA 49 29 3A 82 00 BF 11 D8 09 8E 00 |.(ZK.I):........|
000009C0: DA 11 F6 09 8F 20 20 2D 2D 20 53 54 4F 52 45 20 |..... -- STORE |
000009D0: 4B 45 59 20 56 41 4C 55 45 53 00 F6 11 00 0A 81 |KEY VALUES......|
000009E0: 20 49 B2 30 20 A4 20 39 3A 97 20 5A 4B AA 49 2C | I.0 . 9:. ZK.I,|
000009F0: 4B 28 49 29 3A 82 00 FC 11 0A 0A 8E 00 19 12 54 |K(I):..........T|
00000A00: 0B 8F 20 47 45 54 20 41 20 43 48 41 52 20 46 52 |.. GET A CHAR FR|
00000A10: 4F 4D 20 46 49 4C 45 20 32 00 26 12 5C 0B 99 20 |OM FILE 2.&.\.. |
00000A20: 22 47 45 54 20 22 00 31 12 5E 0B A1 23 32 2C 44 |"GET ".1.^..#2,D|
00000A30: 24 00 42 12 60 0B 53 53 B2 53 54 3A 8D 20 31 30 |$.B.`.SS.ST:. 10|
00000A40: 30 30 00 59 12 62 0B 8B 20 53 53 B3 B1 30 20 A7 |00.Y.b.. SS..0 .|
00000A50: 20 99 20 22 53 3D 22 53 53 00 5F 12 68 0B 8E 00 | . "S="SS._.h...|
00000A60: 6F 12 B8 0B 8F 20 2D 2D 2D 20 50 4C 41 59 21 00 |o.... --- PLAY!.|
00000A70: 88 12 D6 0B 9E 20 5A 5A 3A 20 8F 20 4D 4C 20 41 |..... ZZ: . ML A|
00000A80: 54 20 38 2A 34 30 39 36 00 93 12 E0 0B 99 20 22 |T 8*4096...... "|
00000A90: 93 9A 22 00 A3 12 E2 0B 97 20 35 33 32 38 31 2C |.."...... 53281,|
00000AA0: 32 34 36 00 BB 12 EA 0B 53 41 B2 C2 28 5A 53 29 |246.....SA..(ZS)|
00000AB0: 3A 53 42 B2 C2 28 5A 53 AA 31 29 00 D7 12 EC 0B |:SB..(ZS.1).....|
00000AC0: 41 B2 B5 28 53 41 AD 31 36 29 AC 31 30 AA 28 53 |A..(SA.16).10.(S|
00000AD0: 41 20 AF 20 31 35 29 00 F3 12 EE 0B 42 B2 B5 28 |A . 15).....B..(|
00000AE0: 53 42 AD 31 36 29 AC 31 30 AA 28 53 42 20 AF 20 |SB.16).10.(SB . |
00000AF0: 31 35 29 00 28 13 F4 0B 8B 20 53 B1 48 53 28 4C |15).(.... S.HS(L|
00000B00: 56 29 20 A7 20 48 53 28 4C 56 29 B2 53 3A 48 4C |V) . HS(LV).S:HL|
00000B10: 28 4C 56 29 B2 53 30 3A 48 48 28 4C 56 29 B2 53 |(LV).S0:HH(LV).S|
00000B20: 31 3A 8D 20 38 32 30 30 00 36 13 FA 0B 53 B2 31 |1:. 8200.6...S.1|
00000B30: 30 30 AC 42 AA 41 00 4A 13 FC 0B 8B 20 53 B3 B2 |00.B.A.J.... S..|
00000B40: 48 53 28 4C 56 29 20 A7 20 8E 00 89 13 FD 0B 48 |HS(LV) . ......H|
00000B50: 53 28 4C 56 29 B2 53 3A 20 20 20 20 48 48 28 4C |S(LV).S: HH(L|
00000B60: 56 29 B2 B5 28 53 AD 32 35 36 29 3A 48 4C 28 4C |V)..(S.256):HL(L|
00000B70: 56 29 B2 B5 28 53 AB 32 35 36 AC 48 48 28 4C 56 |V)..(S.256.HH(LV|
00000B80: 29 29 3A 8D 20 38 32 30 30 00 8F 13 FE 0B 8E 00 |)):. 8200.......|
00000B90: A9 13 AC 0D 8F 20 53 45 54 20 4C 45 56 45 4C 20 |..... SET LEVEL |
00000BA0: 41 4E 44 20 42 4F 4E 55 53 00 B3 13 B6 0D 99 20 |AND BONUS...... |
00000BB0: 43 4C 24 00 BC 13 B8 0D 53 B2 AB 31 00 E6 13 C0 |CL$.....S..1....|
00000BC0: 0D 99 20 22 43 55 52 52 45 4E 54 20 4C 45 56 45 |.. "CURRENT LEVE|
00000BD0: 4C 20 49 53 20 22 4C 56 20 22 20 28 22 4C 24 28 |L IS "LV " ("L$(|
00000BE0: 4C 56 29 22 29 22 00 03 14 CA 0D 99 20 22 43 48 |LV)")"...... "CH|
00000BF0: 4F 4F 53 45 20 41 20 4C 45 56 45 4C 20 2E 2E 2E |OOSE A LEVEL ...|
00000C00: 2E 2E 22 00 36 14 D4 0D 81 20 49 B2 31 20 A4 20 |..".6.... I.1 . |
00000C10: 36 3A 99 20 22 11 20 20 20 4C 45 56 45 4C 20 12 |6:. ". LEVEL .|
00000C20: 22 49 22 92 20 2E 20 2E 20 2E 22 4C 24 28 49 29 |"I". . . ."L$(I)|
00000C30: 20 3A 20 82 20 49 00 64 14 D8 0D 99 20 22 13 11 | : . I.d.... "..|
00000C40: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000C50: 11 11 11 11 11 43 48 4F 4F 53 45 20 41 20 4C 45 |.....CHOOSE A LE|
00000C60: 56 45 4C 22 00 7C 14 E8 0D A1 20 51 24 3A 8B 20 |VEL".|.... Q$:. |
00000C70: 51 24 B2 22 22 20 A7 20 33 35 36 30 00 9B 14 EA |Q$."" . 3560....|
00000C80: 0D 8B 20 C5 28 51 24 29 B2 30 20 B0 20 C5 28 51 |.. .(Q$).0 . .(Q|
00000C90: 24 29 B1 36 20 A7 20 33 35 36 30 00 B0 14 F2 0D |$).6 . 3560.....|
00000CA0: 4C 56 B2 C5 28 51 24 29 3A 97 20 5A 4C 2C 4C 56 |LV..(Q$):. ZL,LV|
00000CB0: 00 CA 14 10 0E 8F 20 2D 2D 2D 20 53 45 54 20 42 |...... --- SET B|
00000CC0: 4F 4E 55 53 20 4C 45 56 45 4C 00 D6 14 1A 0E 99 |ONUS LEVEL......|
00000CD0: 20 43 4C 24 3A 99 00 F5 14 24 0E 99 20 22 4C 45 | CL$:....$.. "LE|
00000CE0: 56 45 4C 20 22 4C 56 22 20 20 28 22 4C 24 28 4C |VEL "LV" ("L$(L|
00000CF0: 56 29 22 29 22 00 14 15 2E 0E 99 20 22 48 49 47 |V)")"...... "HIG|
00000D00: 48 20 53 43 4F 52 45 20 3A 20 22 48 53 28 4C 56 |H SCORE : "HS(LV|
00000D10: 29 AC 31 30 00 3D 15 38 0E 99 20 22 11 42 4F 4E |).10.=.8.. ".BON|
00000D20: 55 53 20 4C 49 46 45 20 45 56 45 52 59 20 22 31 |US LIFE EVERY "1|
00000D30: 30 AC 42 30 22 20 50 4F 49 4E 54 53 22 00 84 15 |0.B0" POINTS"...|
00000D40: 3D 0E 99 20 22 13 11 11 11 11 11 11 11 11 11 11 |=.. "...........|
00000D50: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D80: 20 20 20 22 00 BF 15 42 0E 85 20 22 13 11 11 11 | "...B.. "....|
00000D90: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000DA0: 11 50 4F 49 4E 54 53 20 52 45 51 55 49 52 45 44 |.POINTS REQUIRED|
00000DB0: 20 46 4F 52 20 42 4F 4E 55 53 3A 22 3B 42 24 00 | FOR BONUS:";B$.|
00000DC0: F9 15 4C 0E 8B C5 28 42 24 29 B1 39 39 A7 20 8B |..L...(B$).99. .|
00000DD0: C5 28 42 24 29 B3 33 30 30 30 30 31 20 20 A7 20 |.(B$).300001 . |
00000DE0: 42 B2 B5 28 C5 28 42 24 29 AD 31 30 29 3A 42 30 |B..(.(B$).10):B0|
00000DF0: B2 42 3A 89 20 33 36 39 30 00 04 16 50 0E 89 20 |.B:. 3690...P.. |
00000E00: 33 36 34 35 00 19 16 6A 0E 97 20 5A 42 2C 42 30 |3645...j.. ZB,B0|
00000E10: 20 AF 20 32 35 35 20 3A 8E 00 2E 16 A0 0F 8F 20 | . 255 :....... |
00000E20: 5A 41 50 20 48 49 47 48 20 53 43 4F 52 45 00 4D |ZAP HIGH SCORE.M|
00000E30: 16 AA 0F 48 4C 28 4C 56 29 B2 30 3A 48 48 28 4C |...HL(LV).0:HH(L|
00000E40: 56 29 B2 30 3A 48 53 28 4C 56 29 B2 30 00 56 16 |V).0:HS(LV).0.V.|
00000E50: AC 0F 53 B2 AB 31 00 5C 16 B4 0F 8E 00 76 16 40 |..S..1.\.....v.@|
00000E60: 1F 8F 20 2D 2D 2D 20 52 45 41 44 20 53 43 4F 52 |.. --- READ SCOR|
00000E70: 45 20 46 49 4C 45 00 8B 16 48 1F A0 20 31 3A A0 |E FILE...H.. 1:.|
00000E80: 20 32 3A 9F 20 31 2C 38 2C 31 35 00 96 16 4A 1F | 2:. 1,8,15...J.|
00000E90: 8D 20 38 39 30 30 00 A9 16 54 1F 84 31 2C 41 25 |. 8900...T..1,A%|
00000EA0: 2C 42 24 2C 43 25 2C 44 25 00 BC 16 5C 1F 8B 20 |,B$,C%,D%...\.. |
00000EB0: 41 25 B2 36 32 20 A7 20 38 31 30 30 00 DA 16 68 |A%.62 . 8100...h|
00000EC0: 1F 81 20 49 B2 31 20 A4 20 36 3A 84 32 2C 20 48 |.. I.1 . 6:.2, H|
00000ED0: 4C 28 49 29 2C 48 48 28 49 29 00 F4 16 6C 1F 48 |L(I),HH(I)...l.H|
00000EE0: 53 28 49 29 B2 48 4C 28 49 29 AA 32 35 36 AC 48 |S(I).HL(I).256.H|
00000EF0: 48 28 49 29 00 FC 16 72 1F 82 20 49 00 04 17 7C |H(I)...r.. I...||
00000F00: 1F A0 20 32 00 0A 17 86 1F 8E 00 24 17 A4 1F 8F |.. 2.......$....|
00000F10: 20 2D 2D 20 43 52 45 41 54 20 53 43 4F 52 45 20 | -- CREAT SCORE |
00000F20: 46 49 4C 45 00 40 17 A6 1F 99 20 22 43 52 45 41 |FILE.@.... "CREA|
00000F30: 54 49 4E 47 20 53 43 4F 52 45 20 46 49 4C 45 22 |TING SCORE FILE"|
00000F40: 00 62 17 AE 1F 81 20 49 B2 30 20 A4 20 36 3A 48 |.b.... I.0 . 6:H|
00000F50: 4C 28 49 29 B2 30 3A 48 48 28 49 29 B2 30 3A 82 |L(I).0:HH(I).0:.|
00000F60: 20 49 00 7F 17 B8 1F 98 31 2C 22 53 30 3A 53 43 | I......1,"S0:SC|
00000F70: 4F 52 45 46 49 4C 45 22 3A 8D 20 31 30 30 30 00 |OREFILE":. 1000.|
00000F80: 87 17 BA 1F A0 20 32 00 A5 17 C2 1F 9F 20 32 2C |..... 2...... 2,|
00000F90: 38 2C 32 2C 22 30 3A 53 43 4F 52 45 46 49 4C 45 |8,2,"0:SCOREFILE|
00000FA0: 2C 53 2C 57 22 00 CB 17 CC 1F 81 20 49 B2 31 20 |,S,W"...... I.1 |
00000FB0: A4 20 36 3A 98 32 2C C4 28 48 4C 28 49 29 29 3A |. 6:.2,.(HL(I)):|
00000FC0: 98 32 2C C4 28 48 48 28 49 29 29 00 D3 17 D6 1F |.2,.(HH(I)).....|
00000FD0: 82 20 49 00 DB 17 EA 1F A0 20 32 00 E1 17 F4 1F |. I...... 2.....|
00000FE0: 8E 00 FD 17 08 20 8F 20 2D 2D 2D 20 55 50 44 41 |..... . --- UPDA|
00000FF0: 54 45 20 53 43 4F 52 45 20 46 49 4C 45 00 24 18 |TE SCORE FILE.$.|
00001000: 12 20 99 20 22 93 11 11 11 11 11 11 1D 1D 1D 1D |. . "...........|
00001010: 1D 53 41 56 49 4E 47 20 48 49 47 48 20 53 43 4F |.SAVING HIGH SCO|
00001020: 52 45 53 22 00 2F 18 1C 20 89 20 38 31 32 30 00 |RES"./.. . 8120.|
00001030: 50 18 C4 22 9F 20 32 2C 38 2C 32 2C 22 30 3A 53 |P..". 2,8,2,"0:S|
00001040: 43 4F 52 45 46 49 4C 45 2C 53 2C 52 22 20 3A 8E |COREFILE,S,R" :.|
00001050: 00 5D 18 28 23 8F 20 49 4E 49 54 4C 5A 00 6A 18 |.].(#. INITLZ.j.|
00001060: 2A 23 9F 20 31 2C 38 2C 31 35 00 82 18 2C 23 86 |*#. 1,8,15...,#.|
00001070: 20 48 53 28 36 29 2C 48 4C 28 36 29 2C 48 48 28 | HS(6),HL(6),HH(|
00001080: 36 29 00 AF 18 32 23 83 20 22 4E 4F 56 49 43 45 |6)...2#. "NOVICE|
00001090: 22 2C 22 49 4E 54 52 4F 44 55 43 54 49 4F 4E 22 |","INTRODUCTION"|
000010A0: 2C 22 49 4E 54 45 52 4D 45 44 49 41 54 45 22 00 |,"INTERMEDIATE".|
000010B0: ED 18 33 23 83 20 22 4F 46 46 49 43 49 41 4C 20 |..3#. "OFFICIAL |
000010C0: 57 41 52 47 4C 45 22 2C 22 41 44 56 41 4E 43 45 |WARGLE","ADVANCE|
000010D0: 44 20 57 41 52 47 4C 45 22 2C 22 54 4F 55 52 4E |D WARGLE","TOURN|
000010E0: 41 4D 45 4E 54 20 57 41 52 47 4C 45 22 00 05 19 |AMENT WARGLE"...|
000010F0: 3C 23 81 20 49 B2 31 20 A4 20 36 3A 87 20 4C 24 |<#. I.1 . 6:. L$|
00001100: 28 49 29 3A 82 00 10 19 46 23 8D 20 38 30 30 30 |(I):....F#. 8000|
00001110: 00 24 19 8C 23 8F 20 53 45 54 20 41 44 44 52 45 |.$..#. SET ADDRE|
00001120: 53 53 45 53 00 6D 19 8E 23 8F 20 43 48 41 4E 47 |SSES.m..#. CHANG|
00001130: 45 20 42 59 20 4A 48 20 54 4F 20 55 53 45 20 56 |E BY JH TO USE V|
00001140: 45 43 54 4F 52 53 20 41 54 20 46 52 4F 4E 54 20 |ECTORS AT FRONT |
00001150: 4F 46 20 4D 4C 20 49 4E 4C 49 45 55 20 4F 46 20 |OF ML INLIEU OF |
00001160: 4C 4F 4F 4B 49 4E 47 20 55 50 20 49 4E 00 95 19 |LOOKING UP IN...|
00001170: 8F 23 8F 20 4C 49 53 54 49 4E 47 20 45 56 45 52 |.#. LISTING EVER|
00001180: 59 20 54 49 4D 45 20 59 4F 55 20 52 45 41 53 53 |Y TIME YOU REASS|
00001190: 45 4D 42 4C 45 00 BB 19 91 23 5A 5A 20 B2 20 38 |EMBLE....#ZZ . 8|
000011A0: AC 34 30 39 36 3A 8F 42 41 53 45 20 4F 46 20 4D |.4096:.BASE OF M|
000011B0: 41 43 48 49 4E 45 20 4C 41 4E 47 00 DB 19 96 23 |ACHINE LANG....#|
000011C0: 5A 4B 20 B2 C2 28 5A 5A AA 33 AA 30 29 AA C2 28 |ZK ..(ZZ.3.0)..(|
000011D0: 5A 5A AA 33 AA 31 29 AC 32 35 36 00 FB 19 98 23 |ZZ.3.1).256....#|
000011E0: 5A 4C 20 B2 C2 28 5A 5A AA 33 AA 32 29 AA C2 28 |ZL ..(ZZ.3.2)..(|
000011F0: 5A 5A AA 33 AA 33 29 AC 32 35 36 00 1B 1A 9A 23 |ZZ.3.3).256....#|
00001200: 5A 53 20 B2 C2 28 5A 5A AA 33 AA 34 29 AA C2 28 |ZS ..(ZZ.3.4)..(|
00001210: 5A 5A AA 33 AA 35 29 AC 32 35 36 00 27 1A 9C 23 |ZZ.3.5).256.'..#|
00001220: 5A 42 B2 5A 53 AA 32 00 2D 1A A0 23 8F 00 33 1A |ZB.ZS.2.-..#..3.|
00001230: A1 23 8F 00 40 1A B4 23 4C 56 B2 C2 28 5A 4C 29 |.#..@..#LV..(ZL)|
00001240: 00 4D 1A B6 23 42 30 B2 C2 28 5A 42 29 00 53 1A |.M..#B0..(ZB).S.|
00001250: 53 24 8E 00 66 1A 54 24 8F 20 20 20 4E 4F 4E 2D |S$..f.T$. NON-|
00001260: 4C 49 53 54 45 52 00 7C 1A 5E 24 4C 53 B2 39 30 |LISTER.|.^$LS.90|
00001270: 39 3A 4C 46 B2 39 38 37 3A 43 B2 30 00 9E 1A 68 |9:LF.987:C.0...h|
00001280: 24 81 20 49 B2 4C 53 20 A4 20 4C 46 3A 87 20 41 |$. I.LS . LF:. A|
00001290: 3A 97 20 49 2C 41 3A 43 B2 43 AA 41 3A 82 00 A7 |:. I,A:C.C.A:...|
000012A0: 1A 72 24 9E 20 4C 53 00 E9 1A AE 24 83 20 31 36 |.r$. LS....$. 16|
000012B0: 39 2C 37 36 2C 31 33 33 2C 31 31 35 2C 31 36 39 |9,76,133,115,169|
000012C0: 2C 31 35 34 2C 31 33 33 2C 31 31 36 2C 31 36 39 |,154,133,116,169|
000012D0: 2C 33 2C 31 33 33 2C 31 31 37 2C 39 36 2C 32 33 |,3,133,117,96,23|
000012E0: 30 2C 31 32 32 2C 32 30 38 00 27 1B AF 24 83 20 |0,122,208.'..$. |
000012F0: 32 2C 32 33 30 2C 31 32 33 2C 37 32 2C 31 35 32 |2,230,123,72,152|
00001300: 2C 37 32 2C 31 36 30 2C 30 2C 31 37 37 2C 31 32 |,72,160,0,177,12|
00001310: 32 2C 32 30 31 2C 31 35 35 2C 32 34 30 2C 38 2C |2,201,155,240,8,|
00001320: 32 30 31 2C 31 34 38 00 69 1B B0 24 83 20 32 34 |201,148.i..$. 24|
00001330: 30 2C 34 2C 32 30 31 2C 32 31 33 2C 32 30 38 2C |0,4,201,213,208,|
00001340: 31 39 2C 31 36 39 2C 31 34 33 2C 31 34 35 2C 31 |19,169,143,145,1|
00001350: 32 32 2C 31 35 32 2C 32 30 30 2C 31 34 35 2C 31 |22,152,200,145,1|
00001360: 31 39 2C 31 36 30 2C 31 36 00 A8 1B B1 24 83 20 |19,160,16....$. |
00001370: 31 38 35 2C 32 30 33 2C 33 2C 33 32 2C 32 31 30 |185,203,3,32,210|
00001380: 2C 32 35 35 2C 31 33 36 2C 32 30 38 2C 32 34 37 |,255,136,208,247|
00001390: 2C 31 30 34 2C 31 36 38 2C 31 30 34 2C 37 36 2C |,104,168,104,76,|
000013A0: 31 32 31 2C 30 2C 31 33 00 DB 1B B2 24 83 20 33 |121,0,13....$. 3|
000013B0: 33 2C 38 34 2C 36 35 2C 37 32 2C 38 34 2C 33 32 |3,84,65,72,84,32|
000013C0: 2C 37 39 2C 36 38 2C 33 32 2C 38 34 2C 33 39 2C |,79,68,32,84,39,|
000013D0: 37 38 2C 37 39 2C 36 38 2C 31 33 00 E1 1B 0F 27 |78,79,68,13....'|
000013E0: 8E 00 FB 1B F8 2A 8F 20 44 49 53 50 4C 41 59 20 |.....*. DISPLAY |
000013F0: 4C 4F 47 4F 20 53 43 52 45 45 4E 00 2B 1C 66 2B |LOGO SCREEN.+.f+|
00001400: 41 24 28 30 29 B2 22 20 20 20 20 20 D1 A0 A0 A0 |A$(0)." ....|
00001410: D1 A0 A0 D1 D1 A0 A0 D1 D1 D1 A0 A0 A0 D1 D1 A0 |................|
00001420: A0 D1 A0 A0 A0 D1 D1 D1 A0 D1 22 00 5B 1C 70 2B |..........".[.p+|
00001430: 41 24 28 31 29 B2 22 20 20 20 20 20 D1 A0 A0 A0 |A$(1)." ....|
00001440: D1 A0 D1 A0 A0 D1 A0 D1 A0 A0 D1 A0 D1 A0 A0 A0 |................|
00001450: A0 D1 A0 A0 A0 D1 A0 A0 A0 D1 22 00 8B 1C 7A 2B |.........."...z+|
00001460: 41 24 28 32 29 B2 22 A0 A0 A0 A0 A0 D1 A0 D1 A0 |A$(2).".........|
00001470: D1 A0 D1 A0 A0 D1 A0 D1 D1 D1 A0 A0 D1 A0 D1 D1 |................|
00001480: A0 D1 A0 A0 A0 D1 D1 A0 A0 D1 22 00 B7 1C 84 2B |.........."....+|
00001490: 41 24 28 33 29 B2 22 20 20 20 20 20 D1 D1 A0 D1 |A$(3)." ....|
000014A0: D1 A0 D1 D1 D1 D1 A0 D1 A0 D1 A0 A0 D1 A0 A0 D1 |................|
000014B0: A0 D1 A0 A0 A0 D1 22 00 E7 1C 8E 2B 41 24 28 34 |......"....+A$(4|
000014C0: 29 B2 22 20 20 20 20 20 D1 A0 A0 A0 D1 A0 D1 A0 |)." ........|
000014D0: A0 D1 A0 D1 A0 A0 D1 A0 A0 D1 D1 A0 A0 D1 D1 D1 |................|
000014E0: A0 D1 D1 D1 A0 D1 22 00 17 1D 98 2B 41 24 28 35 |......"....+A$(5|
000014F0: 29 B2 22 20 20 20 20 20 DA A0 A0 A0 DA A0 A0 DA |)." ........|
00001500: DA A0 A0 DA DA DA A0 A0 A0 DA DA A0 A0 DA A0 A0 |................|
00001510: A0 DA DA DA A0 DA 22 00 47 1D A2 2B 41 24 28 36 |......".G..+A$(6|
00001520: 29 B2 22 20 20 20 20 20 DA A0 A0 A0 DA A0 DA A0 |)." ........|
00001530: A0 DA A0 DA A0 A0 DA A0 DA A0 A0 A0 A0 DA A0 A0 |................|
00001540: A0 DA A0 A0 A0 DA 22 00 77 1D AC 2B 41 24 28 37 |......".w..+A$(7|
00001550: 29 B2 22 A0 A0 A0 A0 A0 DA A0 DA A0 DA A0 DA A0 |).".............|
00001560: A0 DA A0 DA DA DA A0 A0 DA A0 DA DA A0 DA A0 A0 |................|
00001570: A0 DA DA A0 A0 DA 22 00 A3 1D B6 2B 41 24 28 38 |......"....+A$(8|
00001580: 29 B2 22 20 20 20 20 20 DA DA A0 DA DA A0 DA DA |)." ........|
00001590: DA DA A0 DA A0 DA A0 A0 DA A0 A0 DA A0 DA A0 A0 |................|
000015A0: A0 DA 22 00 D3 1D C0 2B 41 24 28 39 29 B2 22 20 |.."....+A$(9)." |
000015B0: 20 20 20 20 DA A0 A0 A0 DA A0 DA A0 A0 DA A0 DA | ............|
000015C0: A0 A0 DA A0 A0 DA DA A0 A0 DA DA DA A0 DA DA DA |................|
000015D0: A0 DA 22 00 FE 1D CA 2B 41 24 28 31 30 29 B2 22 |.."....+A$(10)."|
000015E0: 20 20 20 20 20 20 20 20 20 20 20 42 59 20 20 4D | BY M|
000015F0: 41 52 4B 20 42 45 52 4E 53 54 45 49 4E 22 00 29 |ARK BERNSTEIN".)|
00001600: 1E CF 2B 41 24 28 31 31 29 B2 22 20 20 20 20 20 |..+A$(11)." |
00001610: 20 20 20 20 20 20 20 45 41 53 54 47 41 54 45 20 | EASTGATE |
00001620: 53 59 53 54 45 4D 53 20 22 00 54 1E D4 2B 41 24 |SYSTEMS ".T..+A$|
00001630: 28 31 32 29 B2 22 20 20 20 20 20 20 20 20 20 20 |(12)." |
00001640: 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 20 31 | COPYRIGHT (C) 1|
00001650: 39 38 33 22 00 83 1E DE 2B 41 24 28 31 33 29 B2 |983"....+A$(13).|
00001660: 22 20 20 20 20 20 20 20 20 48 41 59 44 45 4E 20 |" HAYDEN |
00001670: 42 4F 4F 4B 20 43 4F 4D 50 41 4E 59 2E 49 4E 43 |BOOK COMPANY.INC|
00001680: 2E 20 22 00 9B 1E E8 2B 97 20 35 33 32 38 31 2C |. "....+. 53281,|
00001690: 30 3A 97 20 35 33 32 38 30 2C 31 00 B2 1E F2 2B |0:. 53280,1....+|
000016A0: 43 24 B2 22 05 9F 9C 9E 81 99 96 9A 22 3A 43 25 |C$."........":C%|
000016B0: B2 38 00 C1 1E FC 2B 99 20 22 93 22 3B 3A 43 B2 |.8....+. ".";:C.|
000016C0: 30 00 CF 1E 06 2C 99 20 22 13 11 11 11 11 22 00 |0....,. ".....".|
000016D0: F0 1E 10 2C 81 20 49 B2 30 20 A4 20 34 3A 43 B2 |...,. I.0 . 4:C.|
000016E0: 43 AA 31 3A 8B 20 43 B1 43 25 20 A7 20 43 B2 31 |C.1:. C.C% . C.1|
000016F0: 00 07 1F 1A 2C 99 20 CA 28 43 24 2C 43 2C 31 29 |....,. .(C$,C,1)|
00001700: 41 24 28 49 29 3A 82 00 12 1F 24 2C 99 20 22 11 |A$(I):....$,. ".|
00001710: 11 22 00 35 1F 2E 2C 81 20 49 B2 31 30 20 A4 20 |.".5..,. I.10 . |
00001720: 31 33 3A 43 B2 43 AA 31 3A 8B 20 43 B1 43 25 20 |13:C.C.1:. C.C% |
00001730: A7 20 43 B2 31 00 4F 1F 38 2C 99 20 CA 28 43 24 |. C.1.O.8,. .(C$|
00001740: 2C 43 2C 31 29 22 11 22 41 24 28 49 29 3A 82 00 |,C,1)"."A$(I):..|
00001750: 5D 1F 42 2C 99 20 22 13 11 11 11 11 22 00 7E 1F |].B,. ".....".~.|
00001760: 4C 2C 81 20 49 B2 35 20 A4 20 39 3A 43 B2 43 AA |L,. I.5 . 9:C.C.|
00001770: 31 3A 8B 20 43 B1 43 25 20 A7 20 43 B2 31 00 95 |1:. C.C% . C.1..|
00001780: 1F 56 2C 99 20 CA 28 43 24 2C 43 2C 31 29 41 24 |.V,. .(C$,C,1)A$|
00001790: 28 49 29 3A 82 00 A0 1F 60 2C 99 20 22 11 11 22 |(I):....`,. ".."|
000017A0: 00 C3 1F 6A 2C 81 20 49 B2 31 30 20 A4 20 31 33 |...j,. I.10 . 13|
000017B0: 3A 43 B2 43 AA 31 3A 8B 20 43 B1 43 25 20 A7 20 |:C.C.1:. C.C% . |
000017C0: 43 B2 31 00 DD 1F 74 2C 99 20 CA 28 43 24 2C 43 |C.1...t,. .(C$,C|
000017D0: 2C 31 29 22 11 22 41 24 28 49 29 3A 82 00 E3 1F |,1)"."A$(I):....|
000017E0: 7E 2C 8E 00 00 00 52 |~,....R |
..".... COPYRIGHT 1983 BY EASTGATE.?....
SYSTEMS INCORPORATED.Z.... ALL RIGHTS
RESERVED .R.... 53280,0:. 53281,0.|....
"."............ 52,120:. 56,120:....D..
A$(13).B.X.. 11000:. DISPLAY PROMO.T.Z..
9000:. 9300...... B(32768).76 . . 140.
/...."...............................LOA
DING GAME, PLEASE WAIT".I.... " WARGLE.O
BJ",8,1:..^.... --- HERE WE GO...... 110
00:. S . 1 . 10:. 11270:. S.....S..1....
........ 53281,12.L...CL$. "..
WARGLE!.":. CL$...... .5);"LEVEL "
LV" ("L$(LV)")."....:. S..0 . . .5);"LAS
T SCORE . . . . . . ."S.10.C....
.5);"HIGH SCORE (LEVEL "LV")
:"HS(LV).10.{.... "..TYPE . . . . ".....
.: ....... ".P. TO .P.LAY WARGLE!".J....
".C. TO .C.USTOMIZE THE KEYBOARD"......
".S. TO RESET HIGH .S.CORE"...... ".L.
TO SET .L.EVEL".......$.X.. Q$:. Q$."" .
600.@.B.. Q$."C" . . 1600:. 690.\.L.. Q
$."P" . . 3000:. 690.X.V.. Q$."L" . . 35
00:. 690...... Q$."S" . . 4000:. 690....
.. 500............ ---- READ STATUS CHNL
.S....1,A%,B$,C%,D%...... A%.2 . A%.73 .
....... ".YOUR DISK HAS BEEN DAMAGED.".
!.... A%;B$,C%;D%.M.... "..IF PROBLEMS P
ERSIST, SEE WARRANTY".V.... "INFORMATION
IN .WARGLE!. MANUAL."..... 2: 1:.....
.. ----KEYBD SELECT.D.... ". KEYBO
ARD CUSTOMIZATION..".M...K.ZK...... .5);
"MOVE UP";.30);:KK.K(0):. 2000.!.... .5)
;" DOWN";.30);:KK.K(1):. 2000.M....
.5);" LEFT";.30);:KK. K(2):. 2000.Z.
... .5);" RIGHT";.30);:KK. K(3):. 20
00..."..:. .5);" FIRE FORWARD";.30);:KK.
K(4):. 2000...$.. .5);" FIRE BACKWARD";.
30);:KK. K(5):. 2000...,..:. .5);"PAUSE"
;.30);:KK. K(6):. 2000./.... .5);"RESUME
";.30);:KK. K(7):. 2000.D.6..:. .5);"QUI
T IMMEDIATELY";.30);:KK. K(8):. 2000.J.?
.....@.. --- MAKE CHANGES...B.. 2500: .
1500...J.R.4:D.0:Q$."MOVE UP": . 2200.X.
K.R.5:D.1:Q$."MOVE DOWN": . 2200...L.R.7
:D.2:Q$."MOVE LEFT ": . 2200. .M.R.7:D.3
:Q$."MOVE RIGHT": . 2200.G.T.R.9:D.4:Q$.
"FIRE FORWARD ": . 2200.P.V.R.10:D.5:Q$.
"FIRE BACKWARD ": . 2200...^.R.12:D.6:Q$
."PAUSE ": . 2200.B.`.R.13:D.7:Q
$."RESUME ": . 2200...H.R.15:D.8:
Q$."QUIT ": . 2200...... 2550..
.......P.. -- INTERPRET KEY CODES.5....
KK.13 . . "RETURN":..X.... KK.29 . .
"RIGHT CURSOR":..Y.... KK.17 . . "DOWN
CURSOR":....... KK.19 . . "HOME":......
. KK.20 . . "DEL":..D.... KK.3 . . "STO
P":....... KK.32 . . "SPACE":.... .. G(K
K)...*........ GET ONE KEY DESIGNATION
.F.... ".......................SELECT KE
Y TO......"Q$;.^.... Q$:. Q$."" . 2220.Q
...Q.F(Q$):K(D).Q.|.... 1500...J.....D..
--- READ KEY VALUES...N.. I.0 . 9:K(I).
B(ZK.I):....X...Z.... -- STORE KEY VALU
ES...... I.0 . 9:. ZK.I,K(I):..........T
.. GET A CHAR FROM FILE 2.&.\.. "GET ".1
.^..#2,D$.B.`.SS.ST:. 1000.Y.B.. SS..0 .
. "S="SS._.H...O.... --- PLAY!...V.. ZZ
: . ML AT 8*4096...... ".."...... 53281,
246.....SA.B(ZS):SB.B(ZS.1).W...A..(SA.1
6).10.(SA . 15).....B..(SB.16).10.(SB .
15).(.... S.HS(LV) . HS(LV).S:HL(LV).S0:
HH(LV).S1:. 8200.6...S.100.B.A.J.... S..
HS(LV) . ......HS(LV).S: HH(LV)..(S.2
56):HL(LV)..(S.256.HH(LV)):. 8200.......
..... SET LEVEL AND BONUS...... CL$.....
S..1...... "CURRENT LEVEL IS "LV " ("L$(
LV)")"...J.. "CHOOSE A LEVEL .....".6.T.
. I.1 . 6:. ". LEVEL ."I". . . ."L$(I)
: . I.D.X.. ".......................CHO
OSE A LEVEL".|.... Q$:. Q$."" . 3560....
.. E(Q$).0 . E(Q$).6 . 3560.....LV.E(Q$)
:. ZL,LV.J.... --- SET BONUS LEVEL.V....
CL$:....$.. "LEVEL "LV" ("L$(LV)")"...
... "HIGH SCORE : "HS(LV).10.=.8.. ".BON
US LIFE EVERY "10.B0" POINTS"...=.. "...
..................
"...B.. "............
.........POINTS REQUIRED FOR BONUS:";B$.
..L..E(B$).99. .E(B$).300001 . B..(E(B$
).10):B0.B:. 3690...P.. 3645...J.. ZB,B0
. 255 :.... .. ZAP HIGH SCORE.M...HL(LV
).0:HH(LV).0:HS(LV).0.V...S..1.\.....V.@
.. --- READ SCORE FILE...H. 1: 2:. 1,8
,15...J.. 8900...T..1,A%,B$,C%,D%...\..
A%.62 . 8100.Z.H.. I.1 . 6:.2, HL(I),HH(
I)...L.HS(I).HL(I).256.HH(I)...R.. I...|
. 2.......$.... -- CREAT SCORE FILE.@..
.. "CREATING SCORE FILE".B.... I.0 . 6:H
L(I).0:HH(I).0:. I.....1,"S0:SCOREFILE"
:. 1000..... 2...B.. 2,8,2,"0:SCOREFILE
,S,W".K.L.. I.1 . 6:.2,D(HL(I)):.2,D(HH(
I)).S.V.. I..... 2.......... . --- UPDA
TE SCORE FILE.$.. . "............SAVING
HIGH SCORES"./.. . 8120.P.D". 2,8,2,"0:S
COREFILE,S,R" :..].(#. INITLZ.J.*#. 1,8,
15...,#. HS(6),HL(6),HH(6)...2#. "NOVICE
","INTRODUCTION","INTERMEDIATE"...3#. "O
FFICIAL WARGLE","ADVANCED WARGLE","TOURN
AMENT WARGLE"...<#. I.1 . 6:. L$(I):....
F#. 8000.$..#. SET ADDRESSES.M..#. CHANG
E BY JH TO USE VECTORS AT FRONT OF ML IN
LIEU OF LOOKING UP IN....#. LISTING EVER
Y TIME YOU REASSEMBLE....#ZZ . 8.4096:.B
ASE OF MACHINE LANG....#ZK .B(ZZ.3.0).B(
ZZ.3.1).256....#ZL .B(ZZ.3.2).B(ZZ.3.3).
256....#ZS .B(ZZ.3.4).B(ZZ.3.5).256.'..#
ZB.ZS.2.-. #..3..#..@..#LV.B(ZL).M..#B0.
B(ZB).S.S$..F.T$. NON-LISTER.|.^$LS.90
9:LF.987:C.0...H$. I.LS . LF:. A:. I,A:C
.C.A:....R$. LS....$. 169,76,133,115,169
,154,133,116,169,3,133,117,96,230,122,20
8.'..$. 2,230,123,72,152,72,160,0,177,12
2,201,155,240,8,201,148.I..$. 240,4,201,
213,208,19,169,143,145,122,152,200,145,1
19,160,16....$. 185,203,3,32,210,255,136
,208,247,104,168,104,76,121,0,13....$. 3
3,84,65,72,84,32,79,68,32,84,39,78,79,68
,13....'.....*. DISPLAY LOGO SCREEN.+.F+
A$(0)." Q Q QQ QQQ QQ Q QQQ
Q".[.P+A$(1)." Q Q Q Q Q Q Q
Q Q Q"...Z+A$(2)." Q Q Q Q Q Q
QQ Q QQ Q QQ Q"....+A$(3)." QQ Q
Q QQQQ Q Q Q Q Q Q"....+A$(4)."
Q Q Q Q Q Q QQ QQQ QQQ Q"....+A$(5
)." Z Z ZZ ZZZ ZZ Z ZZZ Z".
G..+A$(6)." Z Z Z Z Z Z Z Z
Z Z".W..+A$(7)." Z Z Z Z Z ZZZ
Z ZZ Z ZZ Z"....+A$(8)." ZZ ZZ ZZ
ZZ Z Z Z Z Z Z".S..+A$(9)." Z
Z Z Z Z Z ZZ ZZZ ZZZ Z"...J+A$(10)."
BY MARK BERNSTEIN".).O+A$(11
)." EASTGATE SYSTEMS ".T.T+A$
(12)." COPYRIGHT (C) 1983"....
+A$(13)." HAYDEN BOOK COMPANY.INC
. "....+. 53281,0:. 53280,1....+C$."....
....":C%.8.A..+. ".";:C.0.O..,. ".....".
...,. I.0 . 4:C.C.1:. C.C% . C.1....,. J
(C$,C,1)A$(I):....$,. "..".5..,. I.10 .
13:C.C.1:. C.C% . C.1.O.8,. J(C$,C,1)"."
A$(I):..].B,. ".....".~.L,. I.5 . 9:C.C.
1:. C.C% . C.1...V,. J(C$,C,1)A$(I):.. .
`,. "..".C.J,. I.10 . 13:C.C.1:. C.C% .
C.1...T,. J(C$,C,1)"."A$(I):....~,....R
> CLICK IMAGE PREVIEW FOR FULL MODAL