U-BOOTJAGD
FILE INFORMATION
FILENAME(S): U-BOOTJAGD
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-12-02 23:21:56
APPEARS ON: 1 disk(s)
FILE HASH
79dfa4b93bf2602a8ffedd502d28c18c84d18297fa188f0161ba4a952306bb5d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIEL SPASS | U-BOOTJAGD | PRG | swasti, dinkel | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..$.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 00 47 08 14 00 8F 20 2A 2A 20 36 34 |****.G.... ** 64| 00000030: 20 50 52 4F 47 52 41 4D 4D 49 4E 47 20 50 52 4F | PROGRAMMING PRO| 00000040: 4A 45 43 54 20 2A 2A 00 6A 08 1E 00 8F 20 2A 2A |JECT **.j.... **| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 08 5A 00 97 |**********...Z..| 00000070: 35 35 2C 30 3A 97 35 36 2C 34 38 3A 9C 3A 8F 20 |55,0:.56,48:.:. | 00000080: 4C 4F 57 45 52 20 4D 45 4D 54 4F 50 00 A2 08 64 |LOWER MEMTOP...d| 00000090: 00 56 B2 35 33 32 34 38 3A 46 4C B2 30 3A 53 43 |.V.53248:FL.0:SC| 000000A0: B2 30 00 BB 08 6E 00 8D 31 30 30 30 3A 8F 20 53 |.0...n..1000:. S| 000000B0: 43 52 45 45 4E 20 53 45 54 55 50 00 D7 08 78 00 |CREEN SETUP...x.| 000000C0: 8D 32 30 30 30 3A 8F 20 53 50 52 49 54 45 20 43 |.2000:. SPRITE C| 000000D0: 52 45 41 54 49 4F 4E 00 F2 08 82 00 8D 32 35 30 |REATION......250| 000000E0: 30 3A 8F 20 53 45 54 20 53 55 42 20 43 4F 4F 52 |0:. SET SUB COOR| 000000F0: 44 53 00 03 09 8C 00 54 49 24 B2 22 30 30 30 30 |DS.....TI$."0000| 00000100: 30 30 22 00 1D 09 C8 00 8F 20 2A 2A 2A 2A 20 4D |00"...... **** M| 00000110: 41 49 4E 20 4C 4F 4F 50 20 2A 2A 2A 2A 00 31 09 |AIN LOOP ****.1.| 00000120: D2 00 8F 20 20 20 2A 2A 20 54 49 4D 45 52 20 2A |... ** TIMER *| 00000130: 2A 00 64 09 DC 00 99 C7 28 31 39 29 3B 3A 99 A3 |*.d.....(19);:..| 00000140: 31 34 29 C7 28 35 29 3B 22 54 49 4D 45 20 22 CA |14).(5);"TIME ".| 00000150: 28 54 49 24 2C 33 2C 32 29 22 3A 22 C9 28 54 49 |(TI$,3,2)":".(TI| 00000160: 24 2C 32 29 00 85 09 E1 00 8B C5 28 54 49 24 29 |$,2).......(TI$)| 00000170: B1 32 35 39 20 A7 20 34 30 30 3A 8F 20 45 4E 44 |.259 . 400:. END| 00000180: 20 47 41 4D 45 00 8D 09 E6 00 A1 41 24 00 B6 09 | GAME......A$...| 00000190: F0 00 8B 20 41 24 B2 22 5A 22 20 A7 20 58 30 B2 |... A$."Z" . X0.| 000001A0: 58 30 AB 31 2E 35 3A 8B 20 58 30 B3 32 34 20 A7 |X0.1.5:. X0.24 .| 000001B0: 20 58 30 B2 32 34 00 E1 09 FA 00 8B 20 41 24 B2 | X0.24...... A$.| 000001C0: 22 58 22 20 A7 20 58 30 B2 58 30 AA 31 2E 35 3A |"X" . X0.X0.1.5:| 000001D0: 8B 20 58 30 B1 32 34 35 20 A7 20 58 30 B2 32 34 |. X0.245 . X0.24| 000001E0: 35 00 15 0A 04 01 8B 20 41 24 B2 22 4D 22 20 AF |5...... A$."M" .| 000001F0: 20 46 4C B2 30 20 A7 20 8D 20 33 30 30 30 3A 8F | FL.0 . . 3000:.| 00000200: 20 53 45 54 20 55 50 20 44 45 50 54 48 20 43 48 | SET UP DEPTH CH| 00000210: 41 52 47 45 53 00 2B 0A 0E 01 8F 20 2A 2A 20 4D |ARGES.+.... ** M| 00000220: 4F 56 45 20 53 48 49 50 20 2A 2A 00 36 0A 22 01 |OVE SHIP **.6.".| 00000230: 97 20 56 2C 58 30 00 4B 0A 2C 01 8F 20 2A 2A 20 |. V,X0.K.,.. ** | 00000240: 4D 4F 56 45 20 53 55 42 20 2A 2A 00 58 0A 36 01 |MOVE SUB **.X.6.| 00000250: 58 33 B2 58 33 AA 44 58 00 7E 0A 40 01 8F 20 2A |X3.X3.DX.~.@.. *| 00000260: 2A 49 46 20 53 55 42 20 52 45 41 43 48 20 45 44 |*IF SUB REACH ED| 00000270: 47 45 20 4F 46 20 53 43 52 45 45 4E 2A 2A 00 A0 |GE OF SCREEN**..| 00000280: 0A 4A 01 8B 20 58 33 B1 33 36 30 20 A7 20 44 53 |.J.. X3.360 . DS| 00000290: B2 AB 31 3A 8D 20 35 35 30 30 3A 8D 32 35 30 30 |..1:. 5500:.2500| 000002A0: 00 BE 0A 54 01 48 33 B2 B5 28 58 33 AD 32 35 36 |...T.H3..(X3.256| 000002B0: 29 3A 4C 33 B2 58 33 AB 32 35 36 AC 48 33 00 CB |):L3.X3.256.H3..| 000002C0: 0A 5E 01 97 20 56 AA 36 2C 4C 33 00 EE 0A 68 01 |.^.. V.6,L3...h.| 000002D0: 8B 20 48 33 B2 31 20 A7 20 97 20 56 AA 31 36 2C |. H3.1 . . V.16,| 000002E0: C2 28 56 AA 31 36 29 B0 38 3A 89 33 38 30 00 06 |.(V.16).8:.380..| 000002F0: 0B 72 01 97 20 56 AA 31 36 2C C2 28 56 AA 31 36 |.r.. V.16,.(V.16| 00000300: 29 AF 20 32 34 37 00 2E 0B 7C 01 8B 20 46 4C B2 |). 247...|.. FL.| 00000310: 31 20 A7 20 8D 20 34 30 30 30 3A 8F 20 4D 4F 56 |1 . . 4000:. MOV| 00000320: 45 20 44 45 50 54 48 20 43 48 41 52 47 45 00 4C |E DEPTH CHARGE.L| 00000330: 0B 86 01 89 20 32 30 30 3A 8F 20 52 45 53 54 41 |.... 200:. RESTA| 00000340: 52 54 20 4D 41 49 4E 20 4C 4F 4F 50 00 73 0B 90 |RT MAIN LOOP.s..| 00000350: 01 8F 20 2A 2A 2A 2A 20 45 4E 44 20 4F 46 20 47 |.. **** END OF G| 00000360: 41 4D 45 20 43 4F 4E 44 49 54 49 4F 4E 53 20 2A |AME CONDITIONS *| 00000370: 2A 2A 2A 00 92 0B 9A 01 8F 20 20 20 2A 2A 20 54 |***...... ** T| 00000380: 55 52 4E 20 4F 46 46 20 53 50 52 49 54 45 53 20 |URN OFF SPRITES | 00000390: 2A 2A 00 9F 0B A4 01 97 20 56 AA 32 31 2C 30 00 |**...... V.21,0.| 000003A0: C5 0B AE 01 8F 20 20 20 2A 2A 20 52 45 53 45 54 |..... ** RESET| 000003B0: 20 53 55 42 20 26 20 53 48 49 50 20 43 4F 4F 52 | SUB & SHIP COOR| 000003C0: 44 53 20 2A 2A 00 D7 0B B8 01 58 30 B2 31 36 30 |DS **.....X0.160| 000003D0: 3A 8D 20 32 35 30 30 00 F5 0B C2 01 85 22 41 4E |:. 2500......"AN| 000003E0: 4F 54 48 45 52 20 47 41 4D 45 20 28 59 2F 4E 29 |OTHER GAME (Y/N)| 000003F0: 22 3B 41 4E 24 00 08 0C CC 01 8B 20 41 4E 24 B3 |";AN$...... AN$.| 00000400: B1 22 59 22 20 A7 20 80 00 25 0C E0 01 8F 20 20 |."Y" . ..%.... | 00000410: 20 2A 2A 20 52 55 42 4F 55 54 20 4D 45 53 53 41 | ** RUBOUT MESSA| 00000420: 47 45 20 2A 2A 00 3F 0C EA 01 99 20 C7 28 31 39 |GE **.?.... .(19| 00000430: 29 3A 8F 20 48 4F 4D 45 20 43 55 52 53 4F 52 00 |):. HOME CURSOR.| 00000440: 4F 0C F4 01 81 20 49 B2 31 20 A4 20 31 32 30 00 |O.... I.1 . 120.| 00000450: 5A 0C FE 01 99 20 22 20 22 3B 00 62 0C 08 02 82 |Z.... " ";.b....| 00000460: 20 49 00 7D 0C 1C 02 8F 20 20 20 2A 2A 20 53 45 | I.}.... ** SE| 00000470: 54 20 48 49 20 53 43 4F 52 45 20 2A 2A 00 90 0C |T HI SCORE **...| 00000480: 26 02 8B 20 53 43 B1 48 53 A7 20 48 53 B2 53 43 |&.. SC.HS. HS.SC| 00000490: 00 B4 0C 30 02 99 20 C7 28 31 39 29 3B C7 28 31 |...0.. .(19);.(1| 000004A0: 34 34 29 3B 22 53 43 4F 52 45 20 30 30 30 22 3A |44);"SCORE 000":| 000004B0: 53 43 B2 30 00 C1 0C 3A 02 99 20 C7 28 31 39 29 |SC.0...:.. .(19)| 000004C0: 3B 00 E2 0C 44 02 99 20 A3 32 36 29 3B C7 28 31 |;...D.. .26);.(1| 000004D0: 34 34 29 3B 22 48 49 20 53 43 4F 52 45 22 22 3B |44);"HI SCORE"";| 000004E0: 48 53 00 05 0D 58 02 8F 20 20 20 2A 2A 20 52 45 |HS...X.. ** RE| 000004F0: 53 45 54 20 54 49 4D 45 52 20 41 4E 44 20 46 4C |SET TIMER AND FL| 00000500: 41 47 20 2A 2A 00 1B 0D 62 02 54 49 24 B2 22 30 |AG **...b.TI$."0| 00000510: 30 30 30 30 30 22 3A 46 4C B2 30 00 3D 0D 76 02 |00000":FL.0.=.v.| 00000520: 8F 20 20 20 2A 2A 20 54 55 52 4E 20 4F 4E 20 53 |. ** TURN ON S| 00000530: 55 42 20 25 26 20 53 48 49 50 20 2A 2A 00 4A 0D |UB %& SHIP **.J.| 00000540: 80 02 97 20 56 AA 32 31 2C 39 00 63 0D 94 02 89 |... V.21,9.c....| 00000550: 32 30 30 3A 20 8F 20 52 45 53 54 41 52 54 20 4C |200: . RESTART L| 00000560: 4F 4F 50 00 80 0D E8 03 8F 20 2A 2A 2A 2A 20 53 |OOP...... **** S| 00000570: 43 52 45 45 4E 20 53 45 54 55 50 20 2A 2A 2A 2A |CREEN SETUP ****| 00000580: 00 9C 0D F2 03 99 20 C7 28 31 34 37 29 3A 8F 20 |...... .(147):. | 00000590: 43 4C 45 41 52 20 53 43 52 45 45 4E 00 B5 0D 06 |CLEAR SCREEN....| 000005A0: 04 8F 20 20 20 2A 2A 20 43 4F 4C 4F 55 52 20 53 |.. ** COLOUR S| 000005B0: 45 41 20 2A 2A 00 CE 0D 10 04 97 20 35 33 32 38 |EA **...... 5328| 000005C0: 31 2C 31 34 3A 97 20 35 33 32 38 30 2C 36 00 E2 |1,14:. 53280,6..| 000005D0: 0D 1A 04 81 20 49 B2 31 32 36 34 20 A4 20 31 39 |.... I.1264 . 19| 000005E0: 34 33 00 FA 0D 24 04 97 20 49 2C 31 36 30 3A 97 |43...$.. I,160:.| 000005F0: 20 49 AA 35 34 32 37 32 2C 36 00 00 0E 2E 04 82 | I.54272,6......| 00000600: 00 19 0E 42 04 8F 20 20 20 2A 2A 20 53 45 41 20 |...B.. ** SEA | 00000610: 42 4F 54 54 4F 4D 20 2A 2A 00 2C 0E 4C 04 81 49 |BOTTOM **.,.L..I| 00000620: B2 31 39 34 34 20 A4 20 32 30 32 33 00 44 0E 56 |.1944 . 2023.D.V| 00000630: 04 97 20 49 2C 31 30 32 3A 97 20 49 AA 35 34 32 |.. I,102:. I.542| 00000640: 37 32 2C 39 00 4A 0E 60 04 82 00 66 0E 6A 04 97 |72,9.J.`...f.j..| 00000650: 20 36 35 30 2C 31 32 38 3A 8F 20 52 45 50 45 41 | 650,128:. REPEA| 00000660: 54 20 4B 45 59 53 00 7A 0E 7E 04 8F 20 20 20 2A |T KEYS.z.~.. *| 00000670: 2A 20 53 43 4F 52 45 20 2A 2A 00 AC 0E 88 04 99 |* SCORE **......| 00000680: 20 C7 28 31 39 29 3B C7 28 31 34 34 29 3B 22 20 | .(19);.(144);" | 00000690: 53 43 4F 52 45 20 30 30 30 22 3B A6 31 36 29 3B |SCORE 000";.16);| 000006A0: 48 49 20 53 43 B0 45 20 30 30 30 22 00 B2 0E 92 |HI SC.E 000"....| 000006B0: 04 8E 00 D2 0E D0 07 8F 20 2A 2A 2A 2A 20 53 50 |........ **** SP| 000006C0: 52 49 54 45 20 43 52 45 41 54 49 4F 4E 20 2A 2A |RITE CREATION **| 000006D0: 2A 2A 00 EF 0E E4 07 8F 20 20 20 2A 2A 20 52 45 |**...... ** RE| 000006E0: 41 44 20 53 48 49 50 20 44 41 54 41 20 2A 2A 00 |AD SHIP DATA **.| 000006F0: 06 0F EE 07 81 20 49 B2 20 31 32 32 38 38 20 A4 |..... I. 12288 .| 00000700: 20 31 32 33 35 30 00 18 0F F8 07 87 20 41 3A 97 | 12350...... A:.| 00000710: 20 49 2C 41 3A 82 20 49 00 34 0F 0C 08 8F 20 20 | I,A:. I.4.... | 00000720: 20 2A 2A 20 52 45 41 44 20 53 55 42 20 44 41 54 | ** READ SUB DAT| 00000730: 41 20 2A 2A 00 4A 0F 16 08 81 20 49 B2 31 32 33 |A **.J.... I.123| 00000740: 35 32 20 A4 20 31 32 34 31 34 00 5A 0F 20 08 87 |52 . 12414.Z. ..| 00000750: 20 41 3A 97 20 49 2C 41 3A 82 00 7A 0F 34 08 8F | A:. I,A:..z.4..| 00000760: 20 20 20 2A 2A 20 52 45 41 44 20 43 48 41 52 47 | ** READ CHARG| 00000770: 45 53 20 44 41 54 41 20 2A 2A 00 90 0F 3E 08 81 |ES DATA **...>..| 00000780: 20 49 B2 31 32 34 31 36 20 A4 20 31 32 34 37 38 | I.12416 . 12478| 00000790: 00 A0 0F 48 08 87 20 41 3A 97 20 49 2C 41 3A 82 |...H.. A:. I,A:.| 000007A0: 00 C2 0F 5C 08 8F 20 20 20 2A 2A 20 52 45 41 44 |...\.. ** READ| 000007B0: 20 45 58 50 4C 4F 53 49 4F 4E 20 44 41 54 41 20 | EXPLOSION DATA | 000007C0: 2A 2A 00 DA 0F 66 08 81 20 49 20 B2 20 31 32 34 |**...f.. I . 124| 000007D0: 38 30 20 A4 20 31 32 35 34 32 00 E9 0F 70 08 87 |80 . 12542...p..| 000007E0: 20 41 3A 97 49 2C 41 3A 82 00 04 10 84 08 8F 20 | A:.I,A:....... | 000007F0: 20 20 2A 2A 20 53 45 54 20 50 4F 49 4E 54 45 52 | ** SET POINTER| 00000800: 53 20 2A 2A 00 29 10 8E 08 97 20 32 30 34 30 2C |S **.).... 2040,| 00000810: 31 39 32 3A 97 20 32 30 34 31 2C 31 39 33 3A 97 |192:. 2041,193:.| 00000820: 20 32 30 34 32 2C 31 39 34 00 38 10 98 08 97 20 | 2042,194.8.... | 00000830: 32 30 34 33 2C 31 39 35 00 52 10 AC 08 8F 20 20 |2043,195.R.... | 00000840: 20 2A 2A 20 53 45 54 20 43 4F 4C 4F 55 52 53 20 | ** SET COLOURS | 00000850: 2A 2A 00 71 10 B6 08 97 20 56 AA 33 39 2C 30 3A |**.q.... V.39,0:| 00000860: 97 20 56 AA 34 30 2C 31 3A 97 20 56 AA 34 31 2C |. V.40,1:. V.41,| 00000870: 30 00 7E 10 C0 08 97 20 56 AA 34 32 2C 30 00 9F |0.~.... V.42,0..| 00000880: 10 D4 08 8F 20 20 20 2A 2A 20 53 45 54 20 49 4E |.... ** SET IN| 00000890: 49 54 49 41 4C 20 43 4F 4F 52 44 53 20 2A 2A 00 |ITIAL COORDS **.| 000008A0: C2 10 DE 08 97 20 56 AA 31 2C 38 30 3A 58 30 B2 |..... V.1,80:X0.| 000008B0: 31 36 30 3A 20 8F 20 53 48 49 50 20 43 4F 4F 52 |160: . SHIP COOR| 000008C0: 44 53 00 D9 10 E8 08 97 20 56 AA 32 39 2C 31 35 |DS...... V.29,15| 000008D0: 3A 97 20 56 AA 32 33 2C 32 00 FD 10 FC 08 8F 20 |:. V.23,2...... | 000008E0: 20 20 2A 2A 20 54 55 52 4E 20 4F 4E 20 53 50 52 | ** TURN ON SPR| 000008F0: 49 54 45 53 20 4F 20 26 20 33 20 2A 2A 00 0A 11 |ITES O & 3 **...| 00000900: 06 09 97 20 56 AA 32 31 2C 39 00 10 11 10 09 8E |... V.21,9......| 00000910: 00 31 11 C4 09 8F 20 2A 2A 2A 2A 20 52 45 53 45 |.1.... **** RESE| 00000920: 54 20 53 55 42 20 43 4F 4F 52 44 53 20 2A 2A 2A |T SUB COORDS ***| 00000930: 2A 00 49 11 CE 09 59 33 B2 31 31 30 AA B5 28 BB |*.I...Y3.110..(.| 00000940: 28 54 49 29 AC 31 30 35 29 00 5E 11 D8 09 97 20 |(TI).105).^.... | 00000950: 56 AA 37 2C 59 33 3A 97 20 56 AA 36 2C 30 00 74 |V.7,Y3:. V.6,0.t| 00000960: 11 E2 09 58 33 B2 30 3A 44 58 B2 BB 28 54 49 29 |...X3.0:DX..(TI)| 00000970: AC 33 AA 31 00 81 11 EC 09 97 20 56 AA 31 36 2C |.3.1...... V.16,| 00000980: 30 00 87 11 F6 09 8E 00 AB 11 B8 0B 8F 20 2A 2A |0............ **| 00000990: 2A 2A 20 53 45 54 55 50 20 44 45 50 54 48 20 43 |** SETUP DEPTH C| 000009A0: 48 41 52 47 45 53 20 2A 2A 2A 2A 00 C2 11 CC 0B |HARGES ****.....| 000009B0: 8F 20 20 20 2A 2A 20 53 45 54 20 46 4C 41 47 20 |. ** SET FLAG | 000009C0: 2A 2A 00 CC 11 D6 0B 46 4C 20 B2 31 00 E5 11 EA |**.....FL .1....| 000009D0: 0B 8F 20 20 20 2A 2A 20 53 45 54 20 43 4F 4F 52 |.. ** SET COOR| 000009E0: 44 53 20 2A 2A 00 F5 11 F4 0B 59 32 B2 39 35 3A |DS **.....Y2.95:| 000009F0: 58 32 B2 58 30 00 0B 12 FE 0B 97 20 56 AA 34 2C |X2.X0...... V.4,| 00000A00: 58 32 3A 97 20 56 AA 35 2C 59 32 00 2A 12 12 0C |X2:. V.5,Y2.*...| 00000A10: 8F 20 20 20 2A 2A 20 54 55 52 4E 20 4F 4E 20 53 |. ** TURN ON S| 00000A20: 50 52 49 54 45 20 32 20 2A 2A 00 3F 12 1C 0C 97 |PRITE 2 **.?....| 00000A30: 20 56 AA 32 31 2C C2 28 56 AA 32 31 29 B0 34 00 | V.21,.(V.21).4.| 00000A40: 45 12 26 0C 8E 00 67 12 A0 0F 8F 20 2A 2A 2A 2A |E.&...g.... ****| 00000A50: 20 4D 4F 56 45 20 44 45 50 54 48 20 43 48 52 41 | MOVE DEPTH CHRA| 00000A60: 47 45 20 2A 2A 2A 2A 00 86 12 B4 0F 8F 20 20 20 |GE ****...... | 00000A70: 2A 2A 20 44 45 43 52 45 41 53 45 20 59 20 43 4F |** DECREASE Y CO| 00000A80: 4F 52 44 20 2A 2A 00 92 12 BE 0F 59 32 B2 59 32 |ORD **.....Y2.Y2| 00000A90: AA 32 00 B8 12 D2 0F 8F 20 20 20 2A 2A 20 54 45 |.2...... ** TE| 00000AA0: 53 54 20 53 45 41 20 42 54 4D 20 26 20 54 55 52 |ST SEA BTM & TUR| 00000AB0: 4E 20 4F 46 46 20 2A 2A 00 E9 12 DC 0F 8B 20 59 |N OFF **...... Y| 00000AC0: 32 B1 59 33 AA 32 35 20 B0 20 59 32 B1 32 31 36 |2.Y3.25 . Y2.216| 00000AD0: A7 20 97 56 AA 32 31 2C C2 28 56 AA 32 31 29 AF |. .V.21,.(V.21).| 00000AE0: 20 32 35 31 3A 46 4C B2 30 00 F6 12 E6 0F 97 20 | 251:FL.0...... | 00000AF0: 56 AA 35 2C 59 32 00 18 13 FA 0F 8F 20 20 20 2A |V.5,Y2...... *| 00000B00: 2A 20 54 45 53 54 20 46 4F 52 20 48 49 54 20 4F |* TEST FOR HIT O| 00000B10: 4E 20 53 55 42 20 2A 2A 00 40 13 04 10 8B 20 C2 |N SUB **.@.... .| 00000B20: 28 56 AA 33 30 29 B2 31 32 20 A7 20 8D 20 35 30 |(V.30).12 . . 50| 00000B30: 30 30 3A 8F 20 48 49 54 20 52 4F 55 54 49 4E 45 |00:. HIT ROUTINE| 00000B40: 00 46 13 0E 10 8E 00 62 13 88 13 8F 20 2A 2A 2A |.F.....b.... ***| 00000B50: 2A 20 48 49 54 20 52 4F 55 54 49 4E 45 20 2A 2A |* HIT ROUTINE **| 00000B60: 2A 2A 00 85 13 92 13 97 20 56 AA 33 30 2C 30 3A |**...... V.30,0:| 00000B70: 8F 20 43 4C 52 20 43 4F 4C 4C 49 53 49 4F 4E 47 |. CLR COLLISIONG| 00000B80: 20 52 45 47 2E 00 AB 13 9C 13 8F 20 20 20 2A 2A | REG....... **| 00000B90: 20 54 55 52 4E 20 4F 4E 20 45 58 50 4C 4F 53 49 | TURN ON EXPLOSI| 00000BA0: 4F 4E 20 53 50 52 49 54 45 20 2A 00 C4 13 A6 13 |ON SPRITE *.....| 00000BB0: 97 20 56 AA 32 2C 58 32 AA 31 30 3A 97 20 56 AA |. V.2,X2.10:. V.| 00000BC0: 33 2C 59 33 00 D9 13 B0 13 97 20 56 AA 32 31 2C |3,Y3...... V.21,| 00000BD0: C2 28 56 AA 32 31 29 B0 32 00 F5 13 C4 13 8F 20 |.(V.21).2...... | 00000BE0: 20 20 2A 2A 20 46 4C 41 53 48 20 43 4F 4C 4F 55 | ** FLASH COLOU| 00000BF0: 52 53 20 2A 2A 00 04 14 CE 13 81 20 49 B2 31 20 |RS **...... I.1 | 00000C00: A4 20 32 30 00 12 14 D8 13 81 20 4A B2 31 A4 20 |. 20...... J.1. | 00000C10: 31 35 00 1F 14 E2 13 97 20 56 AA 34 30 2C 4A 00 |15...... V.40,J.| 00000C20: 2B 14 EC 13 82 20 4A 3A 82 20 49 00 51 14 00 14 |+.... J:. I.Q...| 00000C30: 8F 20 20 20 2A 2A 20 54 55 52 4E 20 4F 46 46 20 |. ** TURN OFF | 00000C40: 53 50 52 49 54 45 53 20 31 2C 32 20 26 20 33 2A |SPRITES 1,2 & 3*| 00000C50: 2A 00 69 14 0A 14 97 20 56 AA 32 31 2C C2 28 56 |*.i.... V.21,.(V| 00000C60: AA 32 31 29 AF 20 32 34 31 00 84 14 1E 14 8F 20 |.21). 241...... | 00000C70: 20 20 2A 2A 20 55 50 44 41 54 45 20 53 43 4F 52 | ** UPDATE SCOR| 00000C80: 45 20 2A 2A 00 94 14 28 14 44 53 B2 31 3A 8D 20 |E **...(.DS.1:. | 00000C90: 35 35 30 30 00 BA 14 3C 14 8F 20 20 20 2A 2A 20 |5500...<.. ** | 00000CA0: 52 45 53 45 54 20 53 55 42 20 43 4F 4F 52 44 53 |RESET SUB COORDS| 00000CB0: 20 26 20 46 4C 41 47 20 2A 2A 00 CA 14 46 14 46 | & FLAG **...F.F| 00000CC0: 4C B2 30 3A 8D 20 32 35 30 30 00 E9 14 5A 14 8F |L.0:. 2500...Z..| 00000CD0: 20 20 20 2A 2A 20 54 55 52 4E 20 53 55 42 20 42 | ** TURN SUB B| 00000CE0: 41 43 4B 20 4F 4E 20 2A 2A 00 FE 14 64 14 97 20 |ACK ON **...d.. | 00000CF0: 56 AA 32 31 2C C2 28 56 AA 32 31 29 B0 38 00 04 |V.21,.(V.21).8..| 00000D00: 15 6E 14 8E 00 21 15 7C 15 8F 20 2A 2A 2A 2A 20 |.n...!.|.. **** | 00000D10: 55 50 44 41 54 45 20 53 43 4F 52 45 20 2A 2A 2A |UPDATE SCORE ***| 00000D20: 2A 00 3A 15 86 15 53 43 B2 53 43 AA B5 28 59 33 |*.:...SC.SC..(Y3| 00000D30: AA 44 58 AC 33 30 29 AC 44 53 00 4C 15 90 15 8B |.DX.30).DS.L....| 00000D40: 20 53 43 B3 30 20 A7 20 53 43 B2 30 00 79 15 9A | SC.0 . SC.0.y..| 00000D50: 15 99 20 C7 28 31 39 29 3B C7 28 31 34 34 29 3B |.. .(19);.(144);| 00000D60: 22 20 53 43 4F 52 45 22 3B 53 43 3B C7 28 31 35 |" SCORE";SC;.(15| 00000D70: 37 29 3B 22 20 20 20 20 22 00 7F 15 A4 15 8E 00 |7);" ".......| 00000D80: 99 15 70 17 8F 20 2A 2A 2A 2A 20 53 48 49 50 20 |..p.. **** SHIP | 00000D90: 44 41 54 41 20 2A 2A 2A 2A 00 B1 15 7A 17 83 20 |DATA ****...z.. | 00000DA0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00000DB0: 30 00 CF 15 84 17 83 20 30 2C 31 32 38 2C 30 2C |0...... 0,128,0,| 00000DC0: 30 2C 31 39 32 2C 30 2C 30 2C 31 39 32 2C 30 00 |0,192,0,0,192,0.| 00000DD0: ED 15 8E 17 83 20 30 2C 31 39 32 2C 30 2C 31 2C |..... 0,192,0,1,| 00000DE0: 32 32 34 2C 30 2C 31 2C 32 32 34 2C 30 00 0E 16 |224,0,1,224,0...| 00000DF0: 98 17 83 20 31 33 2C 32 32 34 2C 30 2C 33 2C 32 |... 13,224,0,3,2| 00000E00: 34 38 2C 31 32 38 2C 33 2C 32 35 33 2C 38 00 34 |48,128,3,253,8.4| 00000E10: 16 A2 17 83 20 31 35 2C 32 35 34 2C 31 36 2C 33 |.... 15,254,16,3| 00000E20: 31 2C 32 35 35 2C 34 38 2C 32 35 35 2C 32 35 35 |1,255,48,255,255| 00000E30: 2C 32 35 35 00 5C 16 AC 17 83 20 31 32 37 2C 32 |,255.\.... 127,2| 00000E40: 35 35 2C 32 35 34 2C 36 33 2C 32 35 35 2C 32 35 |55,254,63,255,25| 00000E50: 34 2C 33 31 2C 32 35 35 2C 32 35 32 00 74 16 B6 |4,31,255,252.t..| 00000E60: 17 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |.. 0,0,0,0,0,0,0| 00000E70: 2C 30 2C 30 00 93 16 D4 17 8F 20 2A 2A 2A 2A 20 |,0,0...... **** | 00000E80: 45 58 50 4C 4F 53 49 4F 4E 20 44 41 54 41 20 2A |EXPLOSION DATA *| 00000E90: 2A 2A 2A 00 B7 16 DE 17 83 20 30 2C 30 2C 30 2C |***...... 0,0,0,| 00000EA0: 30 2C 30 2C 30 2C 30 2C 31 36 2C 30 2C 30 2C 38 |0,0,0,0,16,0,0,8| 00000EB0: 2C 30 2C 34 2C 31 36 00 DA 16 E8 17 83 20 30 2C |,0,4,16...... 0,| 00000EC0: 33 2C 32 2C 36 34 2C 31 2C 35 36 2C 31 32 38 2C |3,2,64,1,56,128,| 00000ED0: 31 32 2C 32 35 35 2C 31 34 34 00 FC 16 F2 17 83 |12,255,144......| 00000EE0: 20 31 2C 32 33 38 2C 34 30 2C 35 2C 31 35 31 2C | 1,238,40,5,151,| 00000EF0: 30 2C 31 31 2C 31 32 31 2C 30 2C 31 00 20 17 FC |0,11,121,0,1. ..| 00000F00: 17 83 20 31 38 33 2C 30 2C 32 35 2C 32 31 34 2C |.. 183,0,25,214,| 00000F10: 39 36 2C 30 2C 32 33 36 2C 34 38 2C 36 2C 32 34 |96,0,236,48,6,24| 00000F20: 00 43 17 06 18 83 20 31 35 32 2C 33 2C 39 38 2C |.C.... 152,3,98,| 00000F30: 30 2C 38 2C 35 31 2C 30 2C 30 2C 39 36 2C 31 32 |0,8,51,0,0,96,12| 00000F40: 38 2C 30 00 5A 17 10 18 83 20 36 34 2C 30 2C 30 |8,0.Z.... 64,0,0| 00000F50: 2C 30 2C 30 2C 30 2C 30 2C 30 00 7E 17 1A 18 83 |,0,0,0,0,0.~....| 00000F60: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0| 00000F70: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 A1 |,0,0,0,0,0,0,0..| 00000F80: 17 38 18 8F 20 2A 2A 2A 2A 20 44 45 50 54 48 20 |.8.. **** DEPTH | 00000F90: 43 48 41 52 47 45 53 20 44 41 54 41 20 2A 2A 2A |CHARGES DATA ***| 00000FA0: 2A 00 C3 17 42 18 83 20 30 2C 30 2C 30 2C 30 2C |*...B.. 0,0,0,0,| 00000FB0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00000FC0: 30 2C 30 00 E9 17 4C 18 83 20 30 2C 30 2C 30 2C |0,0...L.. 0,0,0,| 00000FD0: 33 32 2C 30 2C 30 2C 33 32 2C 30 2C 30 2C 33 32 |32,0,0,32,0,0,32| 00000FE0: 2C 30 2C 30 2C 33 32 2C 30 00 FD 17 56 18 83 20 |,0,0,32,0...V.. | 00000FF0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 1B 18 |0,0,0,0,0,0,0...| 00001000: 60 18 83 20 32 2E 30 2C 30 2C 32 2C 30 2C 30 2C |`.. 2.0,0,2,0,0,| 00001010: 32 2C 30 2C 30 2C 32 2C 30 2C 30 00 31 18 6A 18 |2,0,0,2,0,0.1.j.| 00001020: 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |. 0,0,0,0,0,0,0,| 00001030: 30 00 47 18 74 18 83 20 30 2C 30 2C 30 2C 30 2C |0.G.t.. 0,0,0,0,| 00001040: 30 2C 30 2C 30 2C 30 00 66 18 9C 18 8F 20 2A 2A |0,0,0,0.f.... **| 00001050: 2A 2A 20 53 55 42 4D 41 52 49 4E 45 20 44 41 54 |** SUBMARINE DAT| 00001060: 41 20 2A 2A 2A 2A 00 84 18 A6 18 83 20 30 2C 30 |A ****...... 0,0| 00001070: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0| 00001080: 2C 30 2C 30 00 9E 18 B0 18 83 20 30 2C 38 2C 30 |,0,0...... 0,8,0| 00001090: 2C 30 2C 31 32 2C 30 2C 30 2C 31 32 2C 30 00 B9 |,0,12,0,0,12,0..| 000010A0: 18 BA 18 83 20 30 2C 31 32 2C 30 2C 30 2C 32 38 |.... 0,12,0,0,28| 000010B0: 2C 30 2C 30 2C 36 30 2C 30 00 D3 18 C4 18 83 20 |,0,0,60,0...... | 000010C0: 30 2C 31 32 36 2C 30 2C 31 39 39 2C 32 35 35 2C |0,126,0,199,255,| 000010D0: 32 35 35 00 F1 18 CE 18 83 20 32 33 39 2C 32 35 |255...... 239,25| 000010E0: 35 2C 32 35 35 2C 31 32 37 2C 32 35 35 2C 32 35 |5,255,127,255,25| 000010F0: 35 00 0F 19 D8 18 83 20 32 35 35 2C 32 35 35 2C |5...... 255,255,| 00001100: 32 35 34 2C 31 39 39 2C 32 35 35 2C 32 35 34 00 |254,199,255,254.| 00001110: 33 19 E2 18 83 20 30 2C 30 2C 30 2C 30 2C 30 2C |3.... 0,0,0,0,0,| 00001120: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00001130: 30 2C 30 00 00 00 |0,0... |
..$.... ****************************.G.. .. ** 64 PROGRAMMING PROJECT **.J.... ** **************************...Z..55,0:.56 ,48:.:. LOWER MEMTOP...D.V.53248:FL.0:SC .0...N..1000:. SCREEN SETUP.W.X..2000:. SPRITE CREATION......2500:. SET SUB COOR DS.....TI$."000000"...H.. **** MAIN LOOP ****.1.R.. ** TIMER **.D....G(19);:.. 14)G(5);"TIME "J(TI$,3,2)":"I(TI$,2).... ..E(TI$).259 . 400:. END GAME......A$... ... A$."Z" . X0.X0.1.5:. X0.24 . X0.24.. .... A$."X" . X0.X0.1.5:. X0.245 . X0.24 5...... A$."M" . FL.0 . . 3000:. SET UP DEPTH CHARGES.+.... ** MOVE SHIP **.6.". . V,X0.K.,.. ** MOVE SUB **.X.6.X3.X3.DX .~.@.. **IF SUB REACH EDGE OF SCREEN**. .J.. X3.360 . DS..1:. 5500:.2500...T.H3. .(X3.256):L3.X3.256.H3.K.^.. V.6,L3...H. . H3.1 . . V.16,B(V.16).8:.380...R.. V.1 6,B(V.16). 247...|.. FL.1 . . 4000:. MOV E DEPTH CHARGE.L.... 200:. RESTART MAIN LOOP.S.... **** END OF GAME CONDITIONS * ***...... ** TURN OFF SPRITES **...... V.21,0.E.... ** RESET SUB & SHIP COOR DS **.W...X0.160:. 2500...B.."ANOTHER GA ME (Y/N)";AN$...L.. AN$.."Y" . ..%.... ** RUBOUT MESSAGE **.?.... G(19):. HOME CURSOR.O.... I.1 . 120.Z.... " ";.B.... I.}.... ** SET HI SCORE **...&.. SC.H S. HS.SC...0.. G(19);G(144);"SCORE 000": SC.0.A.:.. G(19);...D.. .26);G(144);"HI SCORE"";HS...X.. ** RESET TIMER AND FL AG **...B.TI$."000000":FL.0.=.V.. ** T URN ON SUB %& SHIP **.J.... V.21,9.C.... 200: . RESTART LOOP...... **** SCREEN SE TUP ****...... G(147):. CLEAR SCREEN.... .. ** COLOUR SEA **.N.... 53281,14:. 5 3280,6...... I.1264 . 1943...$.. I,160:. I.54272,6.........B.. ** SEA BOTTOM * *.,.L..I.1944 . 2023.D.V.. I,102:. I.542 72,9.J.`...F.J.. 650,128:. REPEAT KEYS.Z .~.. ** SCORE **...... G(19);G(144);" SCORE 000";.16);HI SC.E 000".......R.P.. **** SPRITE CREATION ****...... ** RE AD SHIP DATA **...... I. 12288 . 12350.. .... A:. I,A:. I.4.... ** READ SUB DAT A **.J.... I.12352 . 12414.Z. .. A:. I,A :..Z.4.. ** READ CHARGES DATA **...>.. I.12416 . 12478. .H.. A:. I,A:..B.\.. ** READ EXPLOSION DATA **.Z.F.. I . 124 80 . 12542...P.. A:.I,A:....... ** SET POINTERS **.).... 2040,192:. 2041,193:. 2042,194.8.... 2043,195.R.... ** SET COLOURS **.Q.... V.39,0:. V.40,1:. V.41, 0.~.... V.42,0...T.. ** SET INITIAL CO ORDS **.B.... V.1,80:X0.160: . SHIP COOR DS.Y.... V.29,15:. V.23,2...... ** TUR N ON SPRITES O & 3 **...... V.21,9...... .1.D.. **** RESET SUB COORDS ****.I.N.Y3 .110..(.(TI).105).^.X.. V.7,Y3:. V.6,0.T ...X3.0:DX..(TI).3.1...... V.16,0....... ..... **** SETUP DEPTH CHARGES ****.B.L. . ** SET FLAG **.L.V.FL .1...... ** SET COORDS **.....Y2.95:X2.X0...... V.4, X2:. V.5,Y2.*.... ** TURN ON SPRITE 2 **.?.... V.21,B(V.21).4.E.&...G. .. **** MOVE DEPTH CHRAGE ****...... ** DECRE ASE Y COORD **.....Y2.Y2.2...R.. ** TE ST SEA BTM & TURN OFF **...... Y2.Y3.25 . Y2.216. .V.21,B(V.21). 251:FL.0...... V.5,Y2...... ** TEST FOR HIT ON SUB ** .@.... B(V.30).12 . . 5000:. HIT ROUTINE .F.....B.... **** HIT ROUTINE ****...... V.30,0:. CLR COLLISIONG REG....... ** TURN ON EXPLOSION SPRITE *.D.... V.2,X2 .10:. V.3,Y3.Y.... V.21,B(V.21).2...D.. ** FLASH COLOURS **...N.. I.1 . 20...X .. J.1. 15...... V.40,J.+.... J:. I.Q... . ** TURN OFF SPRITES 1,2 & 3**.I.... V.21,B(V.21). 241...... ** UPDATE SCOR E **...(.DS.1:. 5500...<.. ** RESET SU B COORDS & FLAG **.J.F.FL.0:. 2500...Z.. ** TURN SUB BACK ON **...D.. V.21,B(V .21).8...N...!.|.. **** UPDATE SCORE *** *.:...SC.SC..(Y3.DX.30).DS.L.... SC.0 . SC.0.Y.... G(19);G(144);" SCORE";SC;G(15 7);" "........P.. **** SHIP DATA *** *...Z.. 0,0,0,0,0,0,0,0,0.O.... 0,128,0, 0,192,0,0,192,0...... 0,192,0,1,224,0,1, 224,0...... 13,224,0,3,248,128,3,253,8.4 .... 15,254,16,31,255,48,255,255,255.\.. .. 127,255,254,63,255,254,31,255,252.T.. .. 0,0,0,0,0,0,0,0,0...T.. **** EXPLOSIO N DATA ****...... 0,0,0,0,0,0,0,16,0,0,8 ,0,4,16.Z.... 0,3,2,64,1,56,128,12,255,1 44...... 1,238,40,5,151,0,11,121,0,1. .. .. 183,0,25,214,96,0,236,48,6,24.C.... 1 52,3,98,0,8,51,0,0,96,128,0.Z.... 64,0,0 ,0,0,0,0,0.~.... 0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0...8.. **** DEPTH CHARGES DATA *** *.C.B.. 0,0,0,0,0,0,0,0,0,0,0,0,0,0...L. . 0,0,0,32,0,0,32,0,0,32,0,0,32,0...V.. 0,0,0,0,0,0,0...`.. 2.0,0,2,0,0,2,0,0,2, 0,0.1.J.. 0,0,0,0,0,0,0,0.G.T.. 0,0,0,0, 0,0,0,0.F.... **** SUBMARINE DATA ****.. .... 0,0,0,0,0,0,0,0,0,0,0,0...... 0,8,0 ,0,12,0,0,12,0...... 0,12,0,0,28,0,0,60, 0.S.D.. 0,126,0,199,255,255...N.. 239,25 5,255,127,255,255...X.. 255,255,254,199, 255,254.3.... 0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL