SUB HUNT
FILE INFORMATION
FILENAME(S): SUB HUNT
FILE TYPE(S): DEL
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 21:28:29
APPEARS ON: 1 disk(s)
FILE HASH
f3d3a33fab733c02172a84f2ffd53971af9f1240d2c6377100fc49491c7768cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DDSC SOFT RUN | SUB HUNT | DEL | DuncanTwain | 30 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: A7 48 28 2A 20 D3 55 42 20 C8 55 4E 54 20 28 32 |.H(* .UB .UNT (2|
00000010: 35 29 20 2A 29 0D 28 2A 0D D3 55 42 20 C8 55 4E |5) *).(*..UB .UN|
00000020: 54 20 2D 20 41 20 53 55 42 4D 41 52 49 4E 45 20 |T - A SUBMARINE |
00000030: 47 41 4D 45 0D 10 8B 57 52 49 54 54 45 4E 20 42 |GAME...WRITTEN B|
00000040: 59 0D 10 8B D3 55 45 20 C7 4F 42 42 45 54 54 20 |Y....UE .OBBETT |
00000050: 85 0D 10 8B C7 41 4D 42 49 54 20 C7 41 4D 45 53 |.....AMBIT .AMES|
00000060: 2E 0D 0D C1 54 20 50 52 45 53 45 4E 54 20 54 48 |....T PRESENT TH|
00000070: 49 53 20 47 41 4D 45 20 4F 4E 4C 59 20 52 45 41 |IS GAME ONLY REA|
00000080: 44 53 0D 49 4E 50 55 54 20 46 52 4F 4D 20 50 41 |DS.INPUT FROM PA|
00000090: 44 44 4C 45 53 2E 20 C8 4F 57 45 56 45 52 20 54 |DDLES. .OWEVER T|
000000A0: 48 45 52 45 0D 49 53 20 53 4F 4D 45 20 50 52 4F |HERE.IS SOME PRO|
000000B0: 56 49 53 49 4F 4E 20 9A 4A 4F 59 53 54 49 43 4B |VISION .JOYSTICK|
000000C0: 53 0D 8A 4B 45 59 42 4F 41 52 44 20 43 4F 4E 54 |S..KEYBOARD CONT|
000000D0: 52 4F 4C 2E 0D 0D C4 49 53 54 52 49 42 55 54 45 |ROL....ISTRIBUTE|
000000E0: 44 20 57 49 54 48 20 C7 2D D0 41 53 43 41 4C 2E |D WITH .-.ASCAL.|
000000F0: 0D 0D 2A 29 0D 82 0D 54 52 55 45 20 3D 20 31 3B |..*)...TRUE = 1;|
00000100: 20 46 41 4C 53 45 20 3D 20 30 3B 0D 59 45 53 20 | FALSE = 0;.YES |
00000110: 3D 20 54 52 55 45 3B 20 4E 4F 20 3D 20 46 41 4C |= TRUE; NO = FAL|
00000120: 53 45 3B 0D 4F 4E 20 3D 20 54 52 55 45 3B 20 4F |SE;.ON = TRUE; O|
00000130: 46 46 20 3D 20 46 41 4C 53 45 3B 0D 43 4C 45 41 |FF = FALSE;.CLEA|
00000140: 52 53 43 52 45 45 4E 20 3D 20 31 34 37 3B 0D 43 |RSCREEN = 147;.C|
00000150: 52 20 3D 20 31 33 3B 0D 49 4E 56 45 52 53 45 20 |R = 13;.INVERSE |
00000160: 3D 20 31 38 3B 0D 4E 4F 52 4D 41 4C 20 3D 20 31 |= 18;.NORMAL = 1|
00000170: 34 36 3B 0D 50 41 44 44 4C 45 4E 4F 20 3D 20 32 |46;.PADDLENO = 2|
00000180: 3B 0D 44 45 4D 4F 20 3D 20 30 3B 0D 43 4F 4C 4F |;.DEMO = 0;.COLO|
00000190: 55 52 20 3D 20 31 3B 0D 50 4F 49 4E 54 20 3D 20 |UR = 1;.POINT = |
000001A0: 32 3B 0D 4D 55 4C 54 49 43 4F 4C 4F 55 52 53 50 |2;.MULTICOLOURSP|
000001B0: 52 49 54 45 20 3D 20 33 3B 0D 45 58 50 41 4E 44 |RITE = 3;.EXPAND|
000001C0: 58 20 3D 20 34 3B 0D 45 58 50 41 4E 44 59 20 3D |X = 4;.EXPANDY =|
000001D0: 20 35 3B 0D 42 45 48 49 4E 44 42 41 43 4B 47 52 | 5;.BEHINDBACKGR|
000001E0: 4F 55 4E 44 20 3D 20 36 3B 0D 41 43 54 49 56 45 |OUND = 6;.ACTIVE|
000001F0: 20 3D 20 37 3B 0D 42 4F 52 44 45 52 20 3D 20 31 | = 7;.BORDER = 1|
00000200: 31 3B 0D 42 41 43 4B 47 52 4F 55 4E 44 20 3D 20 |1;.BACKGROUND = |
00000210: 31 32 3B 0D 43 48 41 52 5F 43 4F 4C 4F 55 52 20 |12;.CHAR_COLOUR |
00000220: 3D 20 31 30 3B 0D 44 49 53 50 4C 41 59 20 3D 20 |= 10;.DISPLAY = |
00000230: 36 3B 0D 0D 42 4C 41 43 4B 20 3D 20 30 3B 0D 57 |6;..BLACK = 0;.W|
00000240: 48 49 54 45 20 3D 20 31 3B 0D 52 45 44 20 3D 20 |HITE = 1;.RED = |
00000250: 32 3B 0D 43 59 41 4E 20 3D 20 33 3B 0D 50 55 52 |2;.CYAN = 3;.PUR|
00000260: 50 4C 45 20 3D 20 34 3B 0D 47 52 45 45 4E 20 3D |PLE = 4;.GREEN =|
00000270: 20 35 3B 0D 42 4C 55 45 20 3D 20 36 3B 0D 59 45 | 5;.BLUE = 6;.YE|
00000280: 4C 4C 4F 57 20 3D 20 37 3B 0D 4F 52 41 4E 47 45 |LLOW = 7;.ORANGE|
00000290: 20 3D 20 38 3B 0D 42 52 4F 57 4E 20 3D 20 39 3B | = 8;.BROWN = 9;|
000002A0: 0D 50 49 4E 4B 20 3D 20 31 30 3B 0D 4C 49 47 48 |.PINK = 10;.LIGH|
000002B0: 54 42 4C 55 45 20 3D 20 31 34 3B 0D 47 52 45 59 |TBLUE = 14;.GREY|
000002C0: 33 20 3D 20 31 35 3B 0D 0D 46 52 45 51 55 45 4E |3 = 15;..FREQUEN|
000002D0: 43 59 20 3D 20 31 3B 0D 57 49 44 54 48 20 3D 20 |CY = 1;.WIDTH = |
000002E0: 32 3B 0D 46 49 4C 54 45 52 20 3D 20 33 3B 0D 41 |2;.FILTER = 3;.A|
000002F0: 54 54 41 43 4B 20 3D 20 34 3B 0D 44 45 43 41 59 |TTACK = 4;.DECAY|
00000300: 20 3D 20 35 3B 0D 53 55 53 54 41 49 4E 20 3D 20 | = 5;.SUSTAIN = |
00000310: 36 3B 0D 52 45 4C 45 41 53 45 20 3D 20 37 3B 0D |6;.RELEASE = 7;.|
00000320: 50 4C 41 59 20 3D 20 38 3B 0D 53 59 4E 43 20 3D |PLAY = 8;.SYNC =|
00000330: 20 39 3B 0D 54 52 49 41 4E 47 4C 45 20 3D 20 31 | 9;.TRIANGLE = 1|
00000340: 31 3B 0D 53 41 57 54 4F 4F 54 48 20 3D 20 31 32 |1;.SAWTOOTH = 12|
00000350: 3B 0D 50 55 4C 53 45 20 3D 20 31 33 3B 0D 4E 4F |;.PULSE = 13;.NO|
00000360: 49 53 45 20 3D 20 31 34 3B 0D 54 45 53 54 20 3D |ISE = 14;.TEST =|
00000370: 20 31 35 3B 0D 0D 46 49 4C 54 45 52 46 52 45 51 | 15;..FILTERFREQ|
00000380: 20 3D 20 32 3B 0D 44 45 4C 41 59 20 3D 20 33 3B | = 2;.DELAY = 3;|
00000390: 0D 56 4F 4C 55 4D 45 20 3D 20 34 3B 0D 52 45 53 |.VOLUME = 4;.RES|
000003A0: 4F 4E 41 4E 43 45 20 3D 20 35 3B 0D 4C 4F 57 50 |ONANCE = 5;.LOWP|
000003B0: 41 53 53 20 3D 20 36 3B 0D 42 41 4E 44 50 41 53 |ASS = 6;.BANDPAS|
000003C0: 53 20 3D 20 37 3B 0D 48 49 47 48 50 41 53 53 20 |S = 7;.HIGHPASS |
000003D0: 3D 20 38 3B 0D 0D 46 31 20 3D 20 31 33 33 3B 0D |= 8;..F1 = 133;.|
000003E0: 0D 0D 0D 83 0D 58 49 4E 43 2C 59 49 4E 43 2C 50 |.....XINC,YINC,P|
000003F0: 4F 49 4E 54 53 2C 0D 44 49 52 2C 53 49 5A 45 0D |OINTS,.DIR,SIZE.|
00000400: 20 3A 20 84 5B 38 5D 20 85 FE 3B 0D 0D 53 48 49 | : .[8] ..;..SHI|
00000410: 50 58 2C 53 48 49 50 58 49 4E 43 2C 0D 53 48 49 |PX,SHIPXINC,.SHI|
00000420: 50 5F 50 4F 49 4E 54 53 2C 53 48 49 50 5F 44 49 |P_POINTS,SHIP_DI|
00000430: 52 2C 0D 53 48 49 50 5F 53 49 5A 45 2C 0D 53 48 |R,.SHIP_SIZE,.SH|
00000440: 49 50 5F 50 54 52 2C 0D 53 48 49 50 5F 43 4F 4C |IP_PTR,.SHIP_COL|
00000450: 4F 55 52 0D 20 3A 20 84 5B 31 30 5D 20 85 FE 3B |OUR. : .[10] ..;|
00000460: 0D 0D 46 49 52 49 4E 47 2C 0D 4C 4F 57 5F 4D 49 |..FIRING,.LOW_MI|
00000470: 4E 45 2C 0D 54 4F 52 50 5F 44 45 4C 41 59 2C 0D |NE,.TORP_DELAY,.|
00000480: 4D 49 4E 45 4C 41 4E 45 2C 0D 44 45 4D 4F 5F 43 |MINELANE,.DEMO_C|
00000490: 4E 54 52 2C 0D 44 45 4D 4F 5F 49 4E 43 2C 0D 53 |NTR,.DEMO_INC,.S|
000004A0: 48 49 50 53 5F 53 55 4E 4B 2C 0D 53 48 49 50 2C |HIPS_SUNK,.SHIP,|
000004B0: 0D 53 43 4F 52 45 2C 0D 4D 4F 44 45 2C 0D 48 49 |.SCORE,.MODE,.HI|
000004C0: 47 48 53 43 4F 52 45 2C 0D 43 4F 55 4E 54 45 52 |GHSCORE,.COUNTER|
000004D0: 2C 0D 53 49 47 48 54 59 0D 20 3A 20 FE 3B 0D 0D |,.SIGHTY. : .;..|
000004E0: 44 55 4D 4D 59 0D 3A A1 3B 0D 0D 4C 41 4E 45 59 |DUMMY.:.;..LANEY|
000004F0: 20 3A 20 84 5B 31 30 5D 20 85 FE 3B 0D 0D 0D 0D | : .[10] ..;....|
00000500: 86 4B 49 4C 4C 5F 54 4F 52 50 45 44 4F 3B 0D 28 |.KILL_TORPEDO;.(|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 29 0D 88 0D DF 28 38 2C 41 43 54 |*****)....(8,ACT|
00000530: 49 56 45 2C 4E 4F 29 3B 0D 46 49 52 49 4E 47 20 |IVE,NO);.FIRING |
00000540: 3A 3D 20 46 41 4C 53 45 3B 0D 59 49 4E 43 5B 38 |:= FALSE;.YINC[8|
00000550: 5D 20 3A 3D 20 30 3B 0D E1 28 33 2C 50 4C 41 59 |] := 0;..(3,PLAY|
00000560: 2C 4F 46 46 29 3B 0D AD 28 30 29 3B 0D 89 3B 0D |,OFF);..(0);..;.|
00000570: 0D 86 47 49 56 45 5F 53 43 4F 52 45 28 49 29 3B |..GIVE_SCORE(I);|
00000580: 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(**************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 92 4D 4F 44 |********)....MOD|
000005A0: 45 20 3C 3E 20 44 45 4D 4F 20 93 0D 10 82 88 0D |E <> DEMO ......|
000005B0: 10 82 53 43 4F 52 45 20 3A 3D 20 53 43 4F 52 45 |..SCORE := SCORE|
000005C0: 20 2B 20 49 3B 0D 10 82 92 53 43 4F 52 45 20 3E | + I;....SCORE >|
000005D0: 20 48 49 47 48 53 43 4F 52 45 20 93 0D 10 84 48 | HIGHSCORE ....H|
000005E0: 49 47 48 53 43 4F 52 45 20 3A 3D 20 53 43 4F 52 |IGHSCORE := SCOR|
000005F0: 45 3B 0D 10 82 89 3B 0D A3 28 32 34 2C 31 29 3B |E;....;..(24,1);|
00000600: 0D 9D 28 22 D3 43 4F 52 45 20 3A 20 22 2C 53 43 |..(".CORE : ",SC|
00000610: 4F 52 45 2C 22 20 20 20 20 20 22 29 3B 0D A3 28 |ORE," ");..(|
00000620: 32 34 2C 32 38 29 3B 0D 9D 28 22 D3 55 4E 4B 20 |24,28);..(".UNK |
00000630: 3A 20 22 2C 53 48 49 50 53 5F 53 55 4E 4B 2C 22 |: ",SHIPS_SUNK,"|
00000640: 20 20 22 29 3B 0D A3 28 32 35 2C 31 29 3B 0D 9D | ");..(25,1);..|
00000650: 28 22 C8 49 47 48 20 53 43 4F 52 45 20 3A 20 22 |(".IGH SCORE : "|
00000660: 2C 0D 10 82 48 49 47 48 53 43 4F 52 45 29 3B 0D |,...HIGHSCORE);.|
00000670: 89 3B 0D 0D 86 49 4E 49 54 3B 0D 28 2A 2A 2A 2A |.;...INIT;.(****|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 83 49 20 3A 20 |*********)..I : |
00000690: FE 3B 0D 0D 86 53 45 54 5F 53 48 49 50 28 41 2C |.;...SET_SHIP(A,|
000006A0: 42 2C 43 2C 44 2C 45 2C 46 2C 47 29 3B 0D 28 2A |B,C,D,E,F,G);.(*|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D |-------------*).|
000006D0: 88 0D 53 48 49 50 58 5B 49 5D 20 3A 3D 20 41 3B |..SHIPX[I] := A;|
000006E0: 0D 53 48 49 50 58 49 4E 43 5B 49 5D 20 3A 3D 20 |.SHIPXINC[I] := |
000006F0: 42 20 8E 36 3B 0D 53 48 49 50 5F 50 4F 49 4E 54 |B .6;.SHIP_POINT|
00000700: 53 5B 49 5D 20 3A 3D 20 43 3B 0D 53 48 49 50 5F |S[I] := C;.SHIP_|
00000710: 43 4F 4C 4F 55 52 5B 49 5D 20 3A 3D 20 44 3B 0D |COLOUR[I] := D;.|
00000720: 53 48 49 50 5F 44 49 52 5B 49 5D 20 3A 3D 20 45 |SHIP_DIR[I] := E|
00000730: 3B 0D 53 48 49 50 5F 53 49 5A 45 5B 49 5D 20 3A |;.SHIP_SIZE[I] :|
00000740: 3D 20 46 3B 0D 53 48 49 50 5F 50 54 52 5B 49 5D |= F;.SHIP_PTR[I]|
00000750: 20 3A 3D 20 47 3B 0D 49 20 3A 3D 20 49 20 2B 20 | := G;.I := I + |
00000760: 31 3B 0D 89 3B 0D 0D 88 0D 28 2A 20 53 49 47 48 |1;..;....(* SIGH|
00000770: 54 20 DF 44 45 46 49 4E 49 54 49 4F 4E 20 2A 29 |T .DEFINITION *)|
00000780: 0D A5 28 31 32 38 2C 0D 10 82 24 31 30 30 30 2C |..(128,...$1000,|
00000790: 24 31 30 30 30 2C 24 31 30 30 30 2C 24 31 30 30 |$1000,$1000,$100|
000007A0: 30 2C 0D 10 82 24 31 30 30 30 2C 24 31 30 30 30 |0,...$1000,$1000|
000007B0: 2C 30 2C 30 2C 0D 10 82 30 2C 30 2C 24 37 45 30 |,0,0,...0,0,$7E0|
000007C0: 30 46 43 2C 30 2C 30 2C 0D 10 82 30 2C 30 2C 24 |0FC,0,0,...0,0,$|
000007D0: 31 30 30 30 2C 24 31 30 30 30 2C 0D 10 82 24 31 |1000,$1000,...$1|
000007E0: 30 30 30 2C 24 31 30 30 30 2C 24 31 30 30 30 2C |000,$1000,$1000,|
000007F0: 24 31 30 30 30 29 3B 0D 28 2A 20 53 48 49 50 20 |$1000);.(* SHIP |
00000800: DF 44 45 46 49 4E 49 54 49 4F 4E 53 20 2A 29 0D |.DEFINITIONS *).|
00000810: A5 28 31 33 30 2C 0D 10 82 24 30 33 38 30 30 30 |.(130,...$038000|
00000820: 2C 24 30 33 38 30 30 30 2C 24 30 33 38 30 30 30 |,$038000,$038000|
00000830: 2C 24 31 46 46 46 38 30 2C 0D 10 82 24 46 46 46 |,$1FFF80,...$FFF|
00000840: 46 46 46 2C 24 37 46 46 46 46 45 2C 24 33 46 46 |FFF,$7FFFFE,$3FF|
00000850: 46 46 38 2C 24 31 46 46 46 45 30 29 3B 0D A5 28 |FF8,$1FFFE0);..(|
00000860: 31 33 31 2C 0D 10 82 24 30 30 30 31 43 30 2C 24 |131,...$0001C0,$|
00000870: 30 30 30 31 43 30 2C 24 30 30 33 31 43 30 2C 24 |0001C0,$0031C0,$|
00000880: 30 31 46 46 46 38 2C 0D 10 82 24 46 46 46 46 46 |01FFF8,...$FFFFF|
00000890: 46 2C 24 37 46 46 46 46 45 2C 24 31 46 46 46 46 |F,$7FFFFE,$1FFFF|
000008A0: 43 2C 24 30 37 46 46 46 38 29 3B 0D A5 28 31 33 |C,$07FFF8);..(13|
000008B0: 32 2C 0D 10 82 24 30 43 30 30 2C 24 30 43 30 30 |2,...$0C00,$0C00|
000008C0: 2C 24 31 46 30 30 2C 24 46 46 46 45 2C 0D 10 82 |,$1F00,$FFFE,...|
000008D0: 24 37 46 46 43 2C 24 33 46 46 30 29 3B 0D A5 28 |$7FFC,$3FF0);..(|
000008E0: 31 33 33 2C 0D 10 82 24 30 30 33 30 2C 24 30 30 |133,...$0030,$00|
000008F0: 33 30 2C 24 30 30 46 38 2C 24 37 46 46 46 2C 0D |30,$00F8,$7FFF,.|
00000900: 10 82 24 33 46 46 45 2C 24 30 46 46 43 29 3B 0D |..$3FFE,$0FFC);.|
00000910: A5 28 31 33 34 2C 0D 10 82 24 30 43 30 30 30 2C |.(134,...$0C000,|
00000920: 24 31 45 31 30 30 2C 24 31 45 33 38 30 2C 24 46 |$1E100,$1E380,$F|
00000930: 46 46 46 46 2C 0D 10 82 24 37 46 46 46 45 2C 24 |FFFF,...$7FFFE,$|
00000940: 33 46 46 46 38 29 3B 0D A5 28 31 33 35 2C 0D 10 |3FFF8);..(135,..|
00000950: 82 24 30 30 30 33 30 2C 24 30 30 38 37 38 2C 24 |.$00030,$00878,$|
00000960: 30 31 43 37 38 2C 24 46 46 46 46 46 2C 0D 10 82 |01C78,$FFFFF,...|
00000970: 24 37 46 46 46 45 2C 24 31 46 46 46 43 29 3B 0D |$7FFFE,$1FFFC);.|
00000980: A5 28 31 33 36 2C 0D 10 82 24 30 30 30 43 30 30 |.(136,...$000C00|
00000990: 2C 24 30 30 30 43 30 30 2C 24 30 31 33 46 31 30 |,$000C00,$013F10|
000009A0: 2C 24 30 33 46 46 46 30 2C 0D 10 82 24 30 31 46 |,$03FFF0,...$01F|
000009B0: 46 45 30 2C 24 30 33 46 46 46 30 2C 24 30 37 46 |FE0,$03FFF0,$07F|
000009C0: 46 46 38 2C 24 31 46 46 46 46 45 2C 0D 10 82 24 |FF8,$1FFFFE,...$|
000009D0: 31 46 46 46 46 45 2C 24 30 46 46 46 46 43 29 3B |1FFFFE,$0FFFFC);|
000009E0: 0D 28 2A 20 54 4F 52 50 45 44 4F 20 DF 44 45 46 |.(* TORPEDO .DEF|
000009F0: 49 4E 49 54 49 4F 4E 53 20 2A 29 0D A5 28 31 32 |INITIONS *)..(12|
00000A00: 39 2C 0D 10 82 24 31 30 30 30 2C 24 33 38 30 30 |9,...$1000,$3800|
00000A10: 2C 24 33 38 30 30 2C 24 33 38 30 30 2C 0D 10 82 |,$3800,$3800,...|
00000A20: 24 33 38 30 30 2C 24 33 38 30 30 2C 24 33 38 30 |$3800,$3800,$380|
00000A30: 30 2C 24 33 38 30 30 2C 0D 10 82 24 33 38 30 30 |0,$3800,...$3800|
00000A40: 2C 24 33 38 30 30 29 3B 0D A5 28 31 33 37 2C 0D |,$3800);..(137,.|
00000A50: 10 82 24 33 30 30 30 2C 24 33 38 30 30 2C 24 33 |..$3000,$3800,$3|
00000A60: 38 30 30 2C 24 31 43 30 30 2C 0D 10 82 24 31 43 |800,$1C00,...$1C|
00000A70: 30 30 2C 24 30 45 30 30 2C 24 30 45 30 30 2C 24 |00,$0E00,$0E00,$|
00000A80: 30 37 30 30 2C 0D 10 82 24 30 37 30 30 29 3B 0D |0700,...$0700);.|
00000A90: A5 28 31 33 38 2C 0D 10 82 24 31 30 30 30 2C 24 |.(138,...$1000,$|
00000AA0: 33 38 30 30 2C 24 33 38 30 30 2C 24 33 43 30 30 |3800,$3800,$3C00|
00000AB0: 2C 0D 10 82 24 31 43 30 30 2C 24 31 43 30 30 2C |,...$1C00,$1C00,|
00000AC0: 24 31 45 30 30 2C 24 30 45 30 30 2C 0D 10 82 24 |$1E00,$0E00,...$|
00000AD0: 30 45 30 30 29 3B 0D A5 28 31 33 39 2C 0D 10 82 |0E00);..(139,...|
00000AE0: 24 31 30 30 30 2C 24 33 38 30 30 2C 24 33 38 30 |$1000,$3800,$380|
00000AF0: 30 2C 24 37 38 30 30 2C 0D 10 82 24 37 30 30 30 |0,$7800,...$7000|
00000B00: 2C 24 37 30 30 30 2C 24 46 30 30 30 2C 24 45 30 |,$7000,$F000,$E0|
00000B10: 30 30 2C 0D 10 82 24 45 30 30 30 29 3B 0D A5 28 |00,...$E000);..(|
00000B20: 31 34 30 2C 0D 10 82 24 30 33 30 30 30 2C 24 30 |140,...$03000,$0|
00000B30: 37 30 30 30 2C 24 30 37 30 30 30 2C 24 30 45 30 |7000,$07000,$0E0|
00000B40: 30 30 2C 0D 10 82 24 30 45 30 30 30 2C 24 31 43 |00,...$0E000,$1C|
00000B50: 30 30 30 2C 24 31 43 30 30 30 2C 24 30 33 38 30 |000,$1C000,$0380|
00000B60: 30 2C 0D 10 82 24 30 33 38 30 30 29 3B 0D 0D 53 |0,...$03800);..S|
00000B70: 49 47 48 54 59 20 3A 3D 20 36 32 3B 0D DF 28 0D |IGHTY := 62;..(.|
00000B80: 10 82 31 2C 43 4F 4C 4F 55 52 2C 57 48 49 54 45 |..1,COLOUR,WHITE|
00000B90: 2C 0D 10 82 31 2C 45 58 50 41 4E 44 58 2C 59 45 |,...1,EXPANDX,YE|
00000BA0: 53 2C 0D 10 82 31 2C 45 58 50 41 4E 44 59 2C 59 |S,...1,EXPANDY,Y|
00000BB0: 45 53 2C 0D 10 82 31 2C 50 4F 49 4E 54 2C 31 32 |ES,...1,POINT,12|
00000BC0: 38 2C 0D 10 82 31 2C 41 43 54 49 56 45 2C 59 45 |8,...1,ACTIVE,YE|
00000BD0: 53 2C 0D 10 82 32 2C 45 58 50 41 4E 44 58 2C 59 |S,...2,EXPANDX,Y|
00000BE0: 45 53 2C 0D 10 82 33 2C 45 58 50 41 4E 44 58 2C |ES,...3,EXPANDX,|
00000BF0: 59 45 53 2C 0D 10 82 34 2C 45 58 50 41 4E 44 58 |YES,...4,EXPANDX|
00000C00: 2C 59 45 53 2C 0D 10 82 35 2C 43 4F 4C 4F 55 52 |,YES,...5,COLOUR|
00000C10: 2C 42 4C 41 43 4B 2C 0D 10 82 35 2C 45 58 50 41 |,BLACK,...5,EXPA|
00000C20: 4E 44 58 2C 59 45 53 2C 0D 10 82 35 2C 50 4F 49 |NDX,YES,...5,POI|
00000C30: 4E 54 2C 31 33 36 2C 0D 10 82 36 2C 43 4F 4C 4F |NT,136,...6,COLO|
00000C40: 55 52 2C 42 4C 41 43 4B 2C 0D 10 82 36 2C 45 58 |UR,BLACK,...6,EX|
00000C50: 50 41 4E 44 58 2C 59 45 53 2C 0D 10 82 36 2C 50 |PANDX,YES,...6,P|
00000C60: 4F 49 4E 54 2C 31 33 36 2C 0D 10 82 37 2C 43 4F |OINT,136,...7,CO|
00000C70: 4C 4F 55 52 2C 42 4C 41 43 4B 2C 0D 10 82 37 2C |LOUR,BLACK,...7,|
00000C80: 45 58 50 41 4E 44 58 2C 59 45 53 2C 0D 10 82 37 |EXPANDX,YES,...7|
00000C90: 2C 50 4F 49 4E 54 2C 31 33 36 2C 0D 10 82 38 2C |,POINT,136,...8,|
00000CA0: 43 4F 4C 4F 55 52 2C 4C 49 47 48 54 42 4C 55 45 |COLOUR,LIGHTBLUE|
00000CB0: 29 3B 0D E3 28 56 4F 4C 55 4D 45 2C 31 35 29 3B |);..(VOLUME,15);|
00000CC0: 0D E1 28 0D 10 82 32 2C 46 52 45 51 55 45 4E 43 |..(...2,FREQUENC|
00000CD0: 59 2C 31 32 37 30 30 2C 0D 10 82 32 2C 57 49 44 |Y,12700,...2,WID|
00000CE0: 54 48 2C 31 30 30 30 2C 0D 10 82 32 2C 44 45 43 |TH,1000,...2,DEC|
00000CF0: 41 59 2C 31 30 2C 0D 10 82 32 2C 52 45 4C 45 41 |AY,10,...2,RELEA|
00000D00: 53 45 2C 38 2C 0D 10 82 32 2C 54 52 49 41 4E 47 |SE,8,...2,TRIANG|
00000D10: 4C 45 2C 4F 4E 29 3B 0D E1 28 0D 10 82 33 2C 46 |LE,ON);..(...3,F|
00000D20: 52 45 51 55 45 4E 43 59 2C 36 34 30 30 30 2C 0D |REQUENCY,64000,.|
00000D30: 10 82 33 2C 4E 4F 49 53 45 2C 4F 4E 29 3B 0D 0D |..3,NOISE,ON);..|
00000D40: 4B 49 4C 4C 5F 54 4F 52 50 45 44 4F 3B 0D 49 20 |KILL_TORPEDO;.I |
00000D50: 3A 3D 20 31 3B 0D 53 45 54 5F 53 48 49 50 0D 10 |:= 1;.SET_SHIP..|
00000D60: 82 28 30 2C 34 2C 31 30 30 2C 59 45 4C 4C 4F 57 |.(0,4,100,YELLOW|
00000D70: 2C 31 2C 35 30 2C 31 33 30 29 3B 0D 53 45 54 5F |,1,50,130);.SET_|
00000D80: 53 48 49 50 0D 10 82 28 33 35 30 2C 2D 34 2C 31 |SHIP...(350,-4,1|
00000D90: 30 30 2C 47 52 45 59 33 2C 32 2C 35 30 2C 31 33 |00,GREY3,2,50,13|
00000DA0: 31 29 3B 0D 53 45 54 5F 53 48 49 50 0D 10 82 28 |1);.SET_SHIP...(|
00000DB0: 30 2C 35 2C 35 30 30 2C 47 52 45 45 4E 2C 31 2C |0,5,500,GREEN,1,|
00000DC0: 33 32 2C 31 33 32 29 3B 0D 53 45 54 5F 53 48 49 |32,132);.SET_SHI|
00000DD0: 50 0D 10 82 28 33 35 30 2C 2D 35 2C 35 30 30 2C |P...(350,-5,500,|
00000DE0: 50 49 4E 4B 2C 32 2C 33 32 2C 31 33 33 29 3B 0D |PINK,2,32,133);.|
00000DF0: 53 45 54 5F 53 48 49 50 0D 10 82 28 30 2C 34 2C |SET_SHIP...(0,4,|
00000E00: 32 30 30 2C 4F 52 41 4E 47 45 2C 31 2C 34 32 2C |200,ORANGE,1,42,|
00000E10: 31 33 34 29 3B 0D 53 45 54 5F 53 48 49 50 0D 10 |134);.SET_SHIP..|
00000E20: 82 28 33 35 30 2C 2D 34 2C 32 30 30 2C 43 59 41 |.(350,-4,200,CYA|
00000E30: 4E 2C 32 2C 34 32 2C 31 33 35 29 3B 0D 0D 4C 41 |N,2,42,135);..LA|
00000E40: 4E 45 59 5B 31 5D 20 3A 3D 20 37 38 3B 0D 4C 41 |NEY[1] := 78;.LA|
00000E50: 4E 45 59 5B 32 5D 20 3A 3D 20 38 32 3B 0D 4C 41 |NEY[2] := 82;.LA|
00000E60: 4E 45 59 5B 33 5D 20 3A 3D 20 38 36 3B 0D 4C 41 |NEY[3] := 86;.LA|
00000E70: 4E 45 59 5B 34 5D 20 3A 3D 20 39 30 3B 0D 4C 41 |NEY[4] := 90;.LA|
00000E80: 4E 45 59 5B 35 5D 20 3A 3D 20 39 34 3B 0D 4C 41 |NEY[5] := 94;.LA|
00000E90: 4E 45 59 5B 36 5D 20 3A 3D 20 39 38 3B 0D 4C 41 |NEY[6] := 98;.LA|
00000EA0: 4E 45 59 5B 37 5D 20 3A 3D 20 31 34 30 3B 0D 4C |NEY[7] := 140;.L|
00000EB0: 41 4E 45 59 5B 38 5D 20 3A 3D 20 31 36 30 3B 0D |ANEY[8] := 160;.|
00000EC0: 4C 41 4E 45 59 5B 39 5D 20 3A 3D 20 31 38 30 3B |LANEY[9] := 180;|
00000ED0: 0D 4C 41 4E 45 59 5B 31 30 5D 20 3A 3D 20 32 30 |.LANEY[10] := 20|
00000EE0: 30 3B 0D 0D 53 43 4F 52 45 20 3A 3D 20 30 3B 0D |0;..SCORE := 0;.|
00000EF0: 48 49 47 48 53 43 4F 52 45 20 3A 3D 20 30 3B 0D |HIGHSCORE := 0;.|
00000F00: 53 48 49 50 53 5F 53 55 4E 4B 20 3A 3D 20 30 3B |SHIPS_SUNK := 0;|
00000F10: 0D E2 28 44 49 53 50 4C 41 59 2C 59 45 53 29 3B |..(DISPLAY,YES);|
00000F20: 0D 89 3B 0D 0D 0D 86 45 58 50 4C 4F 53 49 4F 4E |..;....EXPLOSION|
00000F30: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000F40: 2A 2A 2A 2A 2A 29 0D 83 49 20 3A FE 3B 0D 88 0D |*****)..I :.;...|
00000F50: E3 28 0D 10 82 46 49 4C 54 45 52 46 52 45 51 2C |.(...FILTERFREQ,|
00000F60: 31 30 30 30 2C 0D 10 82 4C 4F 57 50 41 53 53 2C |1000,...LOWPASS,|
00000F70: 4F 4E 2C 0D 10 82 48 49 47 48 50 41 53 53 2C 4F |ON,...HIGHPASS,O|
00000F80: 46 46 2C 0D 10 82 52 45 53 4F 4E 41 4E 43 45 2C |FF,...RESONANCE,|
00000F90: 31 35 29 3B 0D E1 28 0D 10 82 33 2C 46 52 45 51 |15);..(...3,FREQ|
00000FA0: 55 45 4E 43 59 2C 34 30 30 2C 0D 10 82 33 2C 57 |UENCY,400,...3,W|
00000FB0: 49 44 54 48 2C 33 30 30 30 2C 0D 10 82 33 2C 50 |IDTH,3000,...3,P|
00000FC0: 4C 41 59 2C 4F 46 46 2C 0D 10 82 33 2C 41 54 54 |LAY,OFF,...3,ATT|
00000FD0: 41 43 4B 2C 31 2C 0D 10 82 33 2C 44 45 43 41 59 |ACK,1,...3,DECAY|
00000FE0: 2C 31 32 2C 0D 10 82 33 2C 53 55 53 54 41 49 4E |,12,...3,SUSTAIN|
00000FF0: 2C 31 32 2C 0D 10 82 33 2C 52 45 4C 45 41 53 45 |,12,...3,RELEASE|
00001000: 2C 31 32 2C 0D 10 82 33 2C 46 49 4C 54 45 52 2C |,12,...3,FILTER,|
00001010: 4F 4E 2C 0D 10 82 33 2C 4E 4F 49 53 45 2C 4F 4E |ON,...3,NOISE,ON|
00001020: 2C 0D 10 82 33 2C 50 4C 41 59 2C 4F 4E 29 3B 0D |,...3,PLAY,ON);.|
00001030: E1 28 0D 10 82 31 2C 46 52 45 51 55 45 4E 43 59 |.(...1,FREQUENCY|
00001040: 2C 31 30 30 30 30 2C 0D 10 82 31 2C 50 4C 41 59 |,10000,...1,PLAY|
00001050: 2C 4F 46 46 2C 0D 10 82 31 2C 57 49 44 54 48 2C |,OFF,...1,WIDTH,|
00001060: 32 30 34 38 2C 0D 10 82 31 2C 41 54 54 41 43 4B |2048,...1,ATTACK|
00001070: 2C 33 2C 0D 10 82 31 2C 44 45 43 41 59 2C 31 30 |,3,...1,DECAY,10|
00001080: 2C 0D 10 82 31 2C 53 55 53 54 41 49 4E 2C 31 30 |,...1,SUSTAIN,10|
00001090: 2C 0D 10 82 31 2C 52 45 4C 45 41 53 45 2C 31 30 |,...1,RELEASE,10|
000010A0: 2C 0D 10 82 31 2C 46 49 4C 54 45 52 2C 4F 4E 2C |,...1,FILTER,ON,|
000010B0: 0D 10 82 31 2C 50 55 4C 53 45 2C 4F 46 46 2C 0D |...1,PULSE,OFF,.|
000010C0: 10 82 31 2C 53 59 4E 43 2C 4F 46 46 2C 0D 10 82 |..1,SYNC,OFF,...|
000010D0: 31 2C 53 41 57 54 4F 4F 54 48 2C 4F 46 46 2C 0D |1,SAWTOOTH,OFF,.|
000010E0: 10 82 31 2C 54 52 49 41 4E 47 4C 45 2C 4F 46 46 |..1,TRIANGLE,OFF|
000010F0: 2C 0D 10 82 31 2C 4E 4F 49 53 45 2C 4F 4E 2C 0D |,...1,NOISE,ON,.|
00001100: 10 82 31 2C 50 4C 41 59 2C 4F 4E 29 3B 0D E2 28 |..1,PLAY,ON);..(|
00001110: 0D 10 82 42 41 43 4B 47 52 4F 55 4E 44 2C 52 45 |...BACKGROUND,RE|
00001120: 44 2C 42 4F 52 44 45 52 2C 52 45 44 29 3B 0D E3 |D,BORDER,RED);..|
00001130: 28 44 45 4C 41 59 2C 35 29 3B 0D AA 28 32 38 35 |(DELAY,5);..(285|
00001140: 29 3B 0D E2 28 0D 10 82 42 41 43 4B 47 52 4F 55 |);..(...BACKGROU|
00001150: 4E 44 2C 42 4C 55 45 2C 42 4F 52 44 45 52 2C 42 |ND,BLUE,BORDER,B|
00001160: 4C 41 43 4B 29 3B 0D E3 28 44 45 4C 41 59 2C 35 |LACK);..(DELAY,5|
00001170: 29 3B 0D AA 28 32 38 35 29 3B 0D E2 28 0D 10 82 |);..(285);..(...|
00001180: 42 41 43 4B 47 52 4F 55 4E 44 2C 52 45 44 2C 42 |BACKGROUND,RED,B|
00001190: 4F 52 44 45 52 2C 52 45 44 29 3B 0D E3 28 44 45 |ORDER,RED);..(DE|
000011A0: 4C 41 59 2C 35 29 3B 0D AA 28 32 38 35 29 3B 0D |LAY,5);..(285);.|
000011B0: E2 28 0D 10 82 42 41 43 4B 47 52 4F 55 4E 44 2C |.(...BACKGROUND,|
000011C0: 42 4C 55 45 2C 42 4F 52 44 45 52 2C 42 4C 41 43 |BLUE,BORDER,BLAC|
000011D0: 4B 29 3B 0D E1 28 31 2C 20 50 4C 41 59 2C 20 4F |K);..(1, PLAY, O|
000011E0: 46 46 2C 0D 10 87 33 2C 20 50 4C 41 59 2C 20 4F |FF,...3, PLAY, O|
000011F0: 46 46 29 3B 0D 89 3B 0D 0D 86 43 48 45 43 4B 5F |FF);..;...CHECK_|
00001200: 43 4F 4C 4C 53 4E 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |COLLSN;.(*******|
00001210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D |**************).|
00001220: 83 49 20 3A FE 3B 0D 88 0D 9A 49 20 3A 3D 20 32 |.I :.;....I := 2|
00001230: 20 9B 37 20 97 0D 10 82 92 FD 8D 0D 10 84 28 31 | .7 ..........(1|
00001240: 20 8E 28 49 20 2D 20 31 29 29 20 3C 3E 20 30 20 | .(I - 1)) <> 0 |
00001250: 93 0D 10 84 92 F8 28 0D 10 87 EC 28 38 29 20 2D |......(....(8) -|
00001260: 20 EC 28 49 29 29 0D 10 87 3C 20 53 49 5A 45 5B | .(I))...< SIZE[|
00001270: 49 5D 20 93 0D 10 86 88 0D 10 86 44 49 52 5B 49 |I] ........DIR[I|
00001280: 5D 20 3A 3D 20 2D 32 30 3B 0D 10 86 DF 28 49 2C |] := -20;....(I,|
00001290: 0D 10 88 41 43 54 49 56 45 2C 4E 4F 29 3B 0D 10 |...ACTIVE,NO);..|
000012A0: 86 45 58 50 4C 4F 53 49 4F 4E 3B 0D 10 86 92 49 |.EXPLOSION;....I|
000012B0: 20 3C 20 35 20 93 0D 10 88 88 0D 10 88 92 4D 4F | < 5 .........MO|
000012C0: 44 45 20 3C 3E 20 44 45 4D 4F 20 93 0D 10 8A 53 |DE <> DEMO ....S|
000012D0: 48 49 50 53 5F 53 55 4E 4B 20 3A 3D 0D 10 8C 53 |HIPS_SUNK :=...S|
000012E0: 48 49 50 53 5F 53 55 4E 4B 20 2B 20 31 3B 0D 10 |HIPS_SUNK + 1;..|
000012F0: 88 47 49 56 45 5F 53 43 4F 52 45 28 50 4F 49 4E |.GIVE_SCORE(POIN|
00001300: 54 53 5B 49 5D 29 3B 0D 10 88 89 0D 10 86 94 0D |TS[I]);.........|
00001310: 10 88 47 49 56 45 5F 53 43 4F 52 45 28 2D 37 35 |..GIVE_SCORE(-75|
00001320: 29 3B 0D 10 86 89 0D 10 84 94 0D 10 86 F6 28 49 |);............(I|
00001330: 29 3B 0D 4B 49 4C 4C 5F 54 4F 52 50 45 44 4F 3B |);.KILL_TORPEDO;|
00001340: 0D 89 3B 0D 0D 86 4D 4F 56 45 5F 53 49 47 48 54 |..;...MOVE_SIGHT|
00001350: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00001360: 2A 2A 2A 2A 2A 2A 29 0D 83 49 2C 4A 2C 4D 4F 56 |******)..I,J,MOV|
00001370: 45 53 2C 4B 0D 3A FE 3B 0D 88 0D DF 28 31 2C 41 |ES,K.:.;....(1,A|
00001380: 43 54 49 56 45 2C 59 45 53 29 3B 0D 92 4D 4F 44 |CTIVE,YES);..MOD|
00001390: 45 20 3D 20 44 45 4D 4F 20 93 0D 10 82 88 0D 10 |E = DEMO .......|
000013A0: 82 92 F3 28 31 29 20 3D 20 30 20 93 0D 10 84 88 |...(1) = 0 .....|
000013B0: 0D 10 84 49 20 3A 3D 20 EF 3B 0D 10 84 4A 20 3A |...I := .;...J :|
000013C0: 3D 20 EC 28 31 29 3B 0D 10 84 92 49 20 3C 20 4A |= .(1);....I < J|
000013D0: 20 93 0D 10 86 88 0D 10 86 4B 20 3A 3D 20 2D 31 | ........K := -1|
000013E0: 3B 0D 10 86 4D 4F 56 45 53 20 3A 3D 20 4A 20 2D |;...MOVES := J -|
000013F0: 20 49 3B 0D 10 86 89 0D 10 84 94 0D 10 86 88 0D | I;.............|
00001400: 10 86 4B 20 3A 3D 20 31 3B 0D 10 86 4D 4F 56 45 |..K := 1;...MOVE|
00001410: 53 20 3A 3D 20 49 20 2D 20 4A 3B 0D 10 86 89 3B |S := I - J;....;|
00001420: 0D 10 84 F4 28 31 2C EC 28 31 29 2C 0D 10 86 53 |....(1,.(1),...S|
00001430: 49 47 48 54 59 2C 28 4B 20 2A 20 32 35 36 29 2C |IGHTY,(K * 256),|
00001440: 30 2C 4D 4F 56 45 53 29 3B 0D 10 84 89 3B 0D 10 |0,MOVES);....;..|
00001450: 82 89 0D 94 0D 10 82 E0 28 31 2C 28 33 30 30 20 |........(1,(300 |
00001460: 2D 0D 10 84 28 EB 28 50 41 44 44 4C 45 4E 4F 29 |-...(.(PADDLENO)|
00001470: 20 8D 24 46 46 29 29 0D 10 84 2C 53 49 47 48 54 | .$FF))...,SIGHT|
00001480: 59 29 3B 0D 89 3B 0D 0D 87 46 49 52 45 5F 54 4F |Y);..;...FIRE_TO|
00001490: 52 50 45 44 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A |RPEDO;.(********|
000014A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D |************)...|
000014B0: 92 4D 4F 44 45 20 3D 20 44 45 4D 4F 20 93 0D 10 |.MODE = DEMO ...|
000014C0: 82 88 0D 10 82 54 4F 52 50 5F 44 45 4C 41 59 20 |.....TORP_DELAY |
000014D0: 3A 3D 0D 10 84 54 4F 52 50 5F 44 45 4C 41 59 20 |:=...TORP_DELAY |
000014E0: 2D 20 31 3B 0D 10 82 92 54 4F 52 50 5F 44 45 4C |- 1;....TORP_DEL|
000014F0: 41 59 20 3D 20 30 20 93 0D 10 84 88 0D 10 84 54 |AY = 0 ........T|
00001500: 4F 52 50 5F 44 45 4C 41 59 20 3A 3D 0D 10 86 32 |ORP_DELAY :=...2|
00001510: 30 20 2B 20 28 EF 20 8C 31 30 29 3B 0D 10 84 46 |0 + (. .10);...F|
00001520: 49 52 45 5F 54 4F 52 50 45 44 4F 20 3A 3D 20 54 |IRE_TORPEDO := T|
00001530: 52 55 45 3B 0D 10 84 89 0D 10 82 94 0D 10 84 46 |RUE;...........F|
00001540: 49 52 45 5F 54 4F 52 50 45 44 4F 20 3A 3D 20 46 |IRE_TORPEDO := F|
00001550: 41 4C 53 45 3B 0D 10 82 89 0D 94 0D 10 82 46 49 |ALSE;.........FI|
00001560: 52 45 5F 54 4F 52 50 45 44 4F 20 3A 3D 0D 10 84 |RE_TORPEDO :=...|
00001570: ED 28 50 41 44 44 4C 45 4E 4F 29 20 3C 3E 20 30 |.(PADDLENO) <> 0|
00001580: 3B 0D 89 3B 0D 0D 86 53 54 41 52 54 5F 47 41 4D |;..;...START_GAM|
00001590: 45 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E;.(************|
000015A0: 2A 2A 2A 2A 2A 2A 2A 29 0D 83 49 20 3A FE 3B 0D |*******)..I :.;.|
000015B0: 88 0D 4D 49 4E 45 4C 41 4E 45 20 3A 3D 20 37 3B |..MINELANE := 7;|
000015C0: 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 |..I := 1 .8 ....|
000015D0: 88 0D 10 82 44 49 52 5B 49 5D 20 3A 3D 20 30 3B |....DIR[I] := 0;|
000015E0: 10 82 28 2A 49 4E 41 43 54 49 56 45 2A 29 0D 10 |..(*INACTIVE*)..|
000015F0: 82 DF 28 49 2C 41 43 54 49 56 45 2C 4E 4F 29 3B |..(I,ACTIVE,NO);|
00001600: 0D 10 82 F5 28 49 29 3B 0D 10 82 89 3B 0D 9A 49 |....(I);....;..I|
00001610: 20 3A 3D 20 31 20 9B 33 20 97 0D 10 82 E1 28 49 | := 1 .3 .....(I|
00001620: 2C 20 50 4C 41 59 2C 20 4F 46 46 29 3B 0D 44 49 |, PLAY, OFF);.DI|
00001630: 52 5B 32 5D 20 3A 3D 20 2D 31 30 3B 0D 44 49 52 |R[2] := -10;.DIR|
00001640: 5B 33 5D 20 3A 3D 20 2D 32 30 3B 0D 44 49 52 5B |[3] := -20;.DIR[|
00001650: 37 5D 20 3A 3D 20 2D 32 30 3B 0D 92 4D 4F 44 45 |7] := -20;..MODE|
00001660: 20 3D 20 44 45 4D 4F 20 93 0D 10 82 88 0D 10 82 | = DEMO ........|
00001670: E2 28 0D 10 84 44 49 53 50 4C 41 59 2C 4F 46 46 |.(...DISPLAY,OFF|
00001680: 2C 0D 10 84 43 48 41 52 5F 43 4F 4C 4F 55 52 2C |,...CHAR_COLOUR,|
00001690: 52 45 44 2C 0D 10 84 42 41 43 4B 47 52 4F 55 4E |RED,...BACKGROUN|
000016A0: 44 2C 52 45 44 2C 0D 10 84 42 4F 52 44 45 52 2C |D,RED,...BORDER,|
000016B0: 52 45 44 29 3B 0D 10 82 9D 28 AB 28 43 4C 45 41 |RED);....(.(CLEA|
000016C0: 52 53 43 52 45 45 4E 29 29 3B 0D 10 82 E2 28 43 |RSCREEN));....(C|
000016D0: 48 41 52 5F 43 4F 4C 4F 55 52 2C 57 48 49 54 45 |HAR_COLOUR,WHITE|
000016E0: 29 3B 0D 10 82 9D 28 AB 28 4E 4F 52 4D 41 4C 29 |);....(.(NORMAL)|
000016F0: 29 3B 0D 10 82 A3 28 31 2C 20 31 30 29 3B 0D 10 |);....(1, 10);..|
00001700: 82 9D 28 22 20 2D 2D 2D 20 D3 55 42 20 C8 55 4E |..(" --- .UB .UN|
00001710: 54 20 2D 2D 2D 22 29 3B 0D 10 82 A3 28 34 2C 20 |T ---");....(4, |
00001720: 31 30 29 3B 0D 10 82 9D 28 22 20 42 59 20 C7 41 |10);....(" BY .A|
00001730: 4D 42 49 54 20 C7 41 4D 45 53 22 29 3B 0D 10 82 |MBIT .AMES");...|
00001740: A3 28 37 2C 20 31 30 29 3B 0D 10 82 9D 28 22 D5 |.(7, 10);....(".|
00001750: 53 45 20 D0 41 44 44 4C 45 53 20 49 4E 20 D0 4F |SE .ADDLES IN .O|
00001760: 52 54 20 32 22 29 3B 0D 10 82 A3 28 31 31 2C 20 |RT 2");....(11, |
00001770: 31 30 29 3B 0D 10 82 9D 28 22 D0 52 45 53 53 20 |10);....(".RESS |
00001780: 22 22 46 31 22 22 20 54 4F 20 53 54 41 52 54 22 |""F1"" TO START"|
00001790: 29 3B 0D 10 82 A3 28 31 35 2C 20 32 35 29 3B 0D |);....(15, 25);.|
000017A0: 10 82 9D 28 22 20 3D 20 20 22 2C 53 48 49 50 5F |...(" = ",SHIP_|
000017B0: 50 4F 49 4E 54 53 5B 31 5D 2C 0D 10 85 22 20 50 |POINTS[1],..." P|
000017C0: 4F 49 4E 54 53 22 29 3B 0D 10 82 A3 28 31 37 2C |OINTS");....(17,|
000017D0: 20 32 35 29 3B 0D 10 82 9D 28 22 20 3D 20 20 22 | 25);....(" = "|
000017E0: 2C 53 48 49 50 5F 50 4F 49 4E 54 53 5B 35 5D 2C |,SHIP_POINTS[5],|
000017F0: 0D 10 85 22 20 50 4F 49 4E 54 53 22 29 3B 0D 10 |..." POINTS");..|
00001800: 82 A3 28 31 39 2C 20 32 35 29 3B 0D 10 82 9D 28 |..(19, 25);....(|
00001810: 22 20 3D 20 20 22 2C 53 48 49 50 5F 50 4F 49 4E |" = ",SHIP_POIN|
00001820: 54 53 5B 33 5D 2C 0D 10 85 22 20 50 4F 49 4E 54 |TS[3],..." POINT|
00001830: 53 22 29 3B 0D 10 82 A3 28 32 31 2C 20 32 35 29 |S");....(21, 25)|
00001840: 3B 0D 10 82 9D 28 22 20 3D 20 20 22 2C 28 2D 37 |;....(" = ",(-7|
00001850: 35 29 2C 0D 10 85 22 20 50 4F 49 4E 54 53 22 29 |5),..." POINTS")|
00001860: 3B 0D 10 82 E2 28 44 49 53 50 4C 41 59 2C 20 4F |;....(DISPLAY, O|
00001870: 4E 29 3B 0D 10 82 DF 28 0D 10 84 32 2C 20 43 4F |N);....(...2, CO|
00001880: 4C 4F 55 52 2C 20 53 48 49 50 5F 43 4F 4C 4F 55 |LOUR, SHIP_COLOU|
00001890: 52 5B 31 5D 2C 0D 10 84 32 2C 20 50 4F 49 4E 54 |R[1],...2, POINT|
000018A0: 2C 20 53 48 49 50 5F 50 54 52 20 5B 31 5D 2C 0D |, SHIP_PTR [1],.|
000018B0: 10 84 33 2C 20 43 4F 4C 4F 55 52 2C 20 53 48 49 |..3, COLOUR, SHI|
000018C0: 50 5F 43 4F 4C 4F 55 52 5B 33 5D 2C 0D 10 84 33 |P_COLOUR[3],...3|
000018D0: 2C 20 50 4F 49 4E 54 2C 20 53 48 49 50 5F 50 54 |, POINT, SHIP_PT|
000018E0: 52 20 5B 33 5D 2C 0D 10 84 34 2C 20 43 4F 4C 4F |R [3],...4, COLO|
000018F0: 55 52 2C 20 53 48 49 50 5F 43 4F 4C 4F 55 52 5B |UR, SHIP_COLOUR[|
00001900: 35 5D 2C 0D 10 84 34 2C 20 50 4F 49 4E 54 2C 20 |5],...4, POINT, |
00001910: 53 48 49 50 5F 50 54 52 20 5B 35 5D 29 3B 0D 10 |SHIP_PTR [5]);..|
00001920: 82 F4 28 0D 10 84 32 2C 34 30 2C 31 36 30 2C 28 |..(...2,40,160,(|
00001930: 32 20 8E 36 29 2C 30 2C 32 34 30 2C 0D 10 84 34 |2 .6),0,240,...4|
00001940: 2C 34 30 2C 31 37 37 2C 28 32 20 8E 36 29 2C 30 |,40,177,(2 .6),0|
00001950: 2C 32 34 30 2C 0D 10 84 33 2C 34 30 2C 31 39 33 |,240,...3,40,193|
00001960: 2C 28 32 20 8E 36 29 2C 30 2C 32 34 30 2C 0D 10 |,(2 .6),0,240,..|
00001970: 84 37 2C 34 30 2C 32 30 38 2C 28 32 20 8E 36 29 |.7,40,208,(2 .6)|
00001980: 2C 30 2C 32 34 30 29 3B 0D 10 82 47 49 56 45 5F |,0,240);...GIVE_|
00001990: 53 43 4F 52 45 20 28 30 29 3B 0D 10 82 44 55 4D |SCORE (0);...DUM|
000019A0: 4D 59 20 3A 3D 20 30 3B 0D 10 82 98 0D 10 84 44 |MY := 0;.......D|
000019B0: 55 4D 4D 59 20 3A 3D 20 A7 3B 0D 10 82 99 28 44 |UMMY := .;....(D|
000019C0: 55 4D 4D 59 20 3D 20 46 31 29 20 8A 0D 10 84 28 |UMMY = F1) ....(|
000019D0: 28 F3 28 31 29 20 3D 20 30 29 20 8D 0D 10 85 28 |(.(1) = 0) ....(|
000019E0: F3 28 32 29 20 3D 20 30 29 20 8D 0D 10 85 28 F3 |.(2) = 0) ....(.|
000019F0: 28 33 29 20 3D 20 30 29 29 3B 0D 10 82 92 44 55 |(3) = 0));....DU|
00001A00: 4D 4D 59 20 3D 20 46 31 20 93 0D 10 84 4D 4F 44 |MMY = F1 ....MOD|
00001A10: 45 20 3A 3D 20 44 55 4D 4D 59 0D 10 82 94 0D 10 |E := DUMMY......|
00001A20: 84 E3 28 44 45 4C 41 59 2C 35 30 29 3B 0D 10 82 |..(DELAY,50);...|
00001A30: DF 28 0D 10 84 32 2C 20 41 43 54 49 56 45 2C 20 |.(...2, ACTIVE, |
00001A40: 4E 4F 2C 0D 10 84 33 2C 20 41 43 54 49 56 45 2C |NO,...3, ACTIVE,|
00001A50: 20 4E 4F 2C 0D 10 84 34 2C 20 41 43 54 49 56 45 | NO,...4, ACTIVE|
00001A60: 2C 20 4E 4F 2C 0D 10 84 37 2C 20 41 43 54 49 56 |, NO,...7, ACTIV|
00001A70: 45 2C 20 4E 4F 29 3B 0D 10 82 54 4F 52 50 5F 44 |E, NO);...TORP_D|
00001A80: 45 4C 41 59 20 3A 3D 20 32 35 3B 0D 10 82 89 3B |ELAY := 25;....;|
00001A90: 0D 92 4D 4F 44 45 20 3D 20 44 45 4D 4F 20 93 0D |..MODE = DEMO ..|
00001AA0: 10 82 88 0D 10 82 43 4F 55 4E 54 45 52 20 3A 3D |......COUNTER :=|
00001AB0: 0D 10 84 28 31 30 20 2B 20 28 EF 20 8C 35 29 29 |...(10 + (. .5))|
00001AC0: 20 8E 34 3B 0D 10 82 44 45 4D 4F 5F 43 4E 54 52 | .4;...DEMO_CNTR|
00001AD0: 20 3A 3D 20 30 3B 0D 10 82 89 0D 94 0D 10 82 88 | := 0;..........|
00001AE0: 0D 10 82 53 48 49 50 53 5F 53 55 4E 4B 20 3A 3D |...SHIPS_SUNK :=|
00001AF0: 20 30 3B 0D 10 82 43 4F 55 4E 54 45 52 20 3A 3D | 0;...COUNTER :=|
00001B00: 20 31 30 30 20 8E 34 3B 0D 10 82 53 43 4F 52 45 | 100 .4;...SCORE|
00001B10: 20 3A 3D 20 30 3B 0D 10 82 89 3B 0D E2 28 0D 10 | := 0;....;..(..|
00001B20: 82 44 49 53 50 4C 41 59 2C 4F 46 46 2C 0D 10 82 |.DISPLAY,OFF,...|
00001B30: 42 41 43 4B 47 52 4F 55 4E 44 2C 42 4C 55 45 2C |BACKGROUND,BLUE,|
00001B40: 0D 10 82 43 48 41 52 5F 43 4F 4C 4F 55 52 2C 4C |...CHAR_COLOUR,L|
00001B50: 49 47 48 54 42 4C 55 45 2C 0D 10 82 42 4F 52 44 |IGHTBLUE,...BORD|
00001B60: 45 52 2C 42 4C 41 43 4B 29 3B 0D 9D 28 AB 28 43 |ER,BLACK);..(.(C|
00001B70: 4C 45 41 52 53 43 52 45 45 4E 29 29 3B 0D A3 28 |LEARSCREEN));..(|
00001B80: 31 2C 31 29 3B 0D 9D 28 AB 28 49 4E 56 45 52 53 |1,1);..(.(INVERS|
00001B90: 45 29 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 36 |E));..I := 1 .16|
00001BA0: 30 20 97 0D 10 82 9D 28 22 20 22 29 3B 0D 9D 28 |0 .....(" ");..(|
00001BB0: AB 28 4E 4F 52 4D 41 4C 29 2C AB 28 35 29 29 3B |.(NORMAL),.(5));|
00001BC0: 0D 47 49 56 45 5F 53 43 4F 52 45 28 30 29 3B 0D |.GIVE_SCORE(0);.|
00001BD0: 46 49 52 49 4E 47 20 3A 3D 20 46 41 4C 53 45 3B |FIRING := FALSE;|
00001BE0: 0D DF 28 31 2C 20 41 43 54 49 56 45 2C 20 59 45 |..(1, ACTIVE, YE|
00001BF0: 53 29 3B 0D E2 28 44 49 53 50 4C 41 59 2C 4F 4E |S);..(DISPLAY,ON|
00001C00: 29 3B 0D 89 3B 0D 0D 86 53 48 4F 4F 54 5F 53 48 |);..;...SHOOT_SH|
00001C10: 49 50 53 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |IPS;.(**********|
00001C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 83 49 2C 4A |**********)..I,J|
00001C30: 2C 4B 2C 54 45 4D 50 20 3A FE 3B 0D 88 0D 43 4F |,K,TEMP :.;...CO|
00001C40: 55 4E 54 45 52 20 3A 3D 20 43 4F 55 4E 54 45 52 |UNTER := COUNTER|
00001C50: 20 2D 20 31 3B 0D 92 28 43 4F 55 4E 54 45 52 20 | - 1;..(COUNTER |
00001C60: 8D 24 31 46 29 20 3D 20 31 30 20 93 0D 10 82 88 |.$1F) = 10 .....|
00001C70: 0D 10 82 A3 28 32 35 2C 32 38 29 3B 0D 10 82 9D |....(25,28);....|
00001C80: 28 22 D4 49 4D 45 20 3A 20 22 2C 0D 10 84 28 43 |(".IME : ",...(C|
00001C90: 4F 55 4E 54 45 52 20 8F 34 29 2C 22 20 20 22 29 |OUNTER .4)," ")|
00001CA0: 3B 0D 10 82 89 3B 0D 92 90 46 49 52 49 4E 47 20 |;....;...FIRING |
00001CB0: 93 0D 10 82 4D 4F 56 45 5F 53 49 47 48 54 0D 94 |....MOVE_SIGHT..|
00001CC0: 0D 92 28 F3 28 38 29 20 3D 20 30 29 20 8D 0D 10 |..(.(8) = 0) ...|
00001CD0: 83 28 90 FD 29 20 93 0D 10 82 4B 49 4C 4C 5F 54 |.(..) ....KILL_T|
00001CE0: 4F 52 50 45 44 4F 3B 0D 92 46 49 52 45 5F 54 4F |ORPEDO;..FIRE_TO|
00001CF0: 52 50 45 44 4F 20 8D 28 90 46 49 52 49 4E 47 29 |RPEDO .(.FIRING)|
00001D00: 0D 10 83 93 0D 10 82 88 0D 10 82 58 49 4E 43 5B |...........XINC[|
00001D10: 38 5D 20 3A 3D 0D 10 84 28 28 EC 28 31 29 20 2D |8] :=...((.(1) -|
00001D20: 20 31 36 30 29 20 8E 38 29 0D 10 84 2F 20 28 32 | 160) .8).../ (2|
00001D30: 34 34 20 2D 20 53 49 47 48 54 59 29 3B 0D 10 82 |44 - SIGHTY);...|
00001D40: 92 58 49 4E 43 5B 38 5D 20 3C 20 2D 37 30 20 93 |.XINC[8] < -70 .|
00001D50: 0D 10 84 49 20 3A 3D 20 31 33 37 0D 10 82 94 0D |...I := 137.....|
00001D60: 10 82 92 58 49 4E 43 5B 38 5D 20 3C 20 2D 32 35 |...XINC[8] < -25|
00001D70: 20 93 0D 10 84 49 20 3A 3D 20 31 33 38 0D 10 82 | ....I := 138...|
00001D80: 94 0D 10 84 88 0D 10 84 49 20 3A 3D 20 31 32 39 |........I := 129|
00001D90: 3B 0D 10 84 92 58 49 4E 43 5B 38 5D 20 3E 20 32 |;....XINC[8] > 2|
00001DA0: 35 20 93 0D 10 86 49 20 3A 3D 20 31 33 39 0D 10 |5 ....I := 139..|
00001DB0: 84 94 0D 10 84 92 58 49 4E 43 5B 38 5D 20 3E 20 |......XINC[8] > |
00001DC0: 37 30 20 93 0D 10 86 49 20 3A 3D 20 31 34 30 3B |70 ....I := 140;|
00001DD0: 0D 10 84 89 3B 0D 10 82 DF 28 31 2C 41 43 54 49 |....;....(1,ACTI|
00001DE0: 56 45 2C 4E 4F 29 3B 0D 10 82 DF 28 38 2C 50 4F |VE,NO);....(8,PO|
00001DF0: 49 4E 54 2C 49 29 3B 0D 10 82 AD 28 24 38 30 29 |INT,I);....($80)|
00001E00: 3B 0D 10 82 F4 28 38 2C 31 37 32 2C 32 36 35 2C |;....(8,172,265,|
00001E10: 0D 10 84 58 49 4E 43 5B 38 5D 2C 2D 32 35 36 2C |...XINC[8],-256,|
00001E20: 28 32 35 32 20 2D 20 53 49 47 48 54 59 29 29 3B |(252 - SIGHTY));|
00001E30: 0D 10 82 46 49 52 49 4E 47 20 3A 3D 20 54 52 55 |...FIRING := TRU|
00001E40: 45 3B 0D 10 82 44 49 52 5B 38 5D 20 3A 3D 20 33 |E;...DIR[8] := 3|
00001E50: 3B 0D 10 82 E3 28 0D 10 84 46 49 4C 54 45 52 46 |;....(...FILTERF|
00001E60: 52 45 51 2C 31 30 30 30 30 2C 0D 10 84 52 45 53 |REQ,10000,...RES|
00001E70: 4F 4E 41 4E 43 45 2C 31 35 2C 0D 10 84 4C 4F 57 |ONANCE,15,...LOW|
00001E80: 50 41 53 53 2C 4F 46 46 2C 0D 10 84 48 49 47 48 |PASS,OFF,...HIGH|
00001E90: 50 41 53 53 2C 4F 4E 29 3B 0D 10 82 E1 28 0D 10 |PASS,ON);....(..|
00001EA0: 84 33 2C 46 52 45 51 55 45 4E 43 59 2C 36 34 30 |.3,FREQUENCY,640|
00001EB0: 30 30 2C 0D 10 84 33 2C 50 4C 41 59 2C 4F 46 46 |00,...3,PLAY,OFF|
00001EC0: 2C 0D 10 84 33 2C 41 54 54 41 43 4B 2C 34 2C 0D |,...3,ATTACK,4,.|
00001ED0: 10 84 33 2C 44 45 43 41 59 2C 31 34 2C 0D 10 84 |..3,DECAY,14,...|
00001EE0: 33 2C 53 55 53 54 41 49 4E 2C 32 2C 0D 10 84 33 |3,SUSTAIN,2,...3|
00001EF0: 2C 52 45 4C 45 41 53 45 2C 33 2C 0D 10 84 33 2C |,RELEASE,3,...3,|
00001F00: 46 49 4C 54 45 52 2C 4F 4E 2C 0D 10 84 33 2C 4E |FILTER,ON,...3,N|
00001F10: 4F 49 53 45 2C 4F 4E 2C 0D 10 84 33 2C 50 4C 41 |OISE,ON,...3,PLA|
00001F20: 59 2C 4F 4E 29 3B 0D 10 82 89 3B 0D 28 2A 20 4D |Y,ON);....;.(* M|
00001F30: 4F 56 45 20 53 48 49 50 53 20 2A 29 0D 9A 49 20 |OVE SHIPS *)..I |
00001F40: 3A 3D 20 32 20 9B 37 20 97 0D 10 82 92 44 49 52 |:= 2 .7 .....DIR|
00001F50: 5B 49 5D 20 3C 20 30 20 93 0D 10 84 44 49 52 5B |[I] < 0 ....DIR[|
00001F60: 49 5D 20 3A 3D 0D 10 86 44 49 52 5B 49 5D 20 2B |I] :=...DIR[I] +|
00001F70: 20 31 0D 10 82 94 0D 10 82 92 44 49 52 5B 49 5D | 1........DIR[I]|
00001F80: 20 3E 20 30 20 93 0D 10 84 92 F3 28 49 29 20 3D | > 0 ......(I) =|
00001F90: 20 30 20 93 0D 10 84 92 90 FD 93 0D 10 84 88 0D | 0 .............|
00001FA0: 10 86 DF 28 49 2C 20 41 43 54 49 56 45 2C 20 4E |...(I, ACTIVE, N|
00001FB0: 4F 29 3B 0D 10 86 44 49 52 5B 49 5D 20 3A 3D 20 |O);...DIR[I] := |
00001FC0: 30 3B 0D 10 84 89 3B 0D 92 46 49 52 49 4E 47 20 |0;....;..FIRING |
00001FD0: 93 0D 10 82 92 FD 93 0D 10 85 43 48 45 43 4B 5F |..........CHECK_|
00001FE0: 43 4F 4C 4C 53 4E 3B 0D 9A 49 20 3A 3D 20 32 20 |COLLSN;..I := 2 |
00001FF0: 9B 34 20 2B 20 28 53 43 4F 52 45 20 3E 3D 20 31 |.4 + (SCORE >= 1|
00002000: 30 30 30 29 0D 10 90 2B 20 28 53 43 4F 52 45 20 |000)...+ (SCORE |
00002010: 3E 3D 20 33 30 30 30 29 0D 10 90 2B 20 28 53 43 |>= 3000)...+ (SC|
00002020: 4F 52 45 20 3E 3D 20 35 30 30 30 29 0D 10 90 97 |ORE >= 5000)....|
00002030: 0D 10 82 92 44 49 52 5B 49 5D 20 3D 20 30 20 93 |....DIR[I] = 0 .|
00002040: 0D 10 84 88 0D 10 84 53 48 49 50 20 3A 3D 20 28 |.......SHIP := (|
00002050: EF 20 8C 36 29 20 2B 20 31 3B 0D 10 84 4A 20 3A |. .6) + 1;...J :|
00002060: 3D 20 38 20 2D 20 28 20 28 28 49 20 2D 20 31 29 |= 8 - ( ((I - 1)|
00002070: 20 2A 20 32 29 20 2B 0D 10 8B 28 EF 20 8C 32 29 | * 2) +...(. .2)|
00002080: 20 29 3B 0D 10 84 44 49 52 5B 49 5D 20 3A 3D 20 | );...DIR[I] := |
00002090: 53 48 49 50 5F 44 49 52 5B 53 48 49 50 5D 3B 0D |SHIP_DIR[SHIP];.|
000020A0: 10 84 92 49 20 3E 20 34 20 93 0D 10 86 88 0D 10 |...I > 4 .......|
000020B0: 86 50 4F 49 4E 54 53 20 5B 49 5D 20 3A 3D 20 2D |.POINTS [I] := -|
000020C0: 37 35 3B 0D 10 86 4D 49 4E 45 4C 41 4E 45 20 3A |75;...MINELANE :|
000020D0: 3D 20 4D 49 4E 45 4C 41 4E 45 20 2B 20 31 3B 0D |= MINELANE + 1;.|
000020E0: 10 86 92 4D 49 4E 45 4C 41 4E 45 20 3E 20 31 30 |...MINELANE > 10|
000020F0: 20 93 0D 10 88 4D 49 4E 45 4C 41 4E 45 20 3A 3D | ....MINELANE :=|
00002100: 20 37 3B 0D 10 86 53 49 5A 45 20 5B 49 5D 20 3A | 7;...SIZE [I] :|
00002110: 3D 20 31 30 30 3B 0D 10 86 DF 28 49 2C 41 43 54 |= 100;....(I,ACT|
00002120: 49 56 45 2C 59 45 53 29 3B 0D 10 86 4A 20 3A 3D |IVE,YES);...J :=|
00002130: 20 53 48 49 50 58 49 4E 43 5B 53 48 49 50 5D 20 | SHIPXINC[SHIP] |
00002140: 8F 32 3B 0D 10 86 F4 28 49 2C 0D 10 88 53 48 49 |.2;....(I,...SHI|
00002150: 50 58 5B 53 48 49 50 5D 2C 0D 10 88 4C 41 4E 45 |PX[SHIP],...LANE|
00002160: 59 5B 4D 49 4E 45 4C 41 4E 45 5D 2C 0D 10 88 4A |Y[MINELANE],...J|
00002170: 2C 30 2C 28 28 33 35 30 20 8E 38 29 20 2F 20 4A |,0,((350 .8) / J|
00002180: 29 29 3B 0D 10 86 89 0D 10 84 94 0D 10 86 88 0D |));.............|
00002190: 10 86 50 4F 49 4E 54 53 5B 49 5D 20 3A 3D 20 53 |..POINTS[I] := S|
000021A0: 48 49 50 5F 50 4F 49 4E 54 53 5B 53 48 49 50 5D |HIP_POINTS[SHIP]|
000021B0: 3B 0D 10 86 53 49 5A 45 5B 49 5D 20 3A 3D 20 53 |;...SIZE[I] := S|
000021C0: 48 49 50 5F 53 49 5A 45 5B 53 48 49 50 5D 3B 0D |HIP_SIZE[SHIP];.|
000021D0: 10 86 DF 28 49 2C 0D 10 88 43 4F 4C 4F 55 52 2C |...(I,...COLOUR,|
000021E0: 53 48 49 50 5F 43 4F 4C 4F 55 52 5B 53 48 49 50 |SHIP_COLOUR[SHIP|
000021F0: 5D 2C 0D 10 88 49 2C 50 4F 49 4E 54 2C 53 48 49 |],...I,POINT,SHI|
00002200: 50 5F 50 54 52 5B 53 48 49 50 5D 29 3B 0D 10 86 |P_PTR[SHIP]);...|
00002210: F4 28 49 2C 0D 10 88 53 48 49 50 58 5B 53 48 49 |.(I,...SHIPX[SHI|
00002220: 50 5D 2C 4C 41 4E 45 59 5B 4A 5D 2C 0D 10 88 53 |P],LANEY[J],...S|
00002230: 48 49 50 58 49 4E 43 5B 53 48 49 50 5D 2C 30 2C |HIPXINC[SHIP],0,|
00002240: 0D 10 88 28 28 33 35 30 20 8E 38 29 20 2F 20 F8 |...((350 .8) / .|
00002250: 28 53 48 49 50 58 49 4E 43 5B 53 48 49 50 5D 29 |(SHIPXINC[SHIP])|
00002260: 29 29 3B 0D 10 86 89 3B 0D 10 84 89 3B 0D 44 55 |));....;....;.DU|
00002270: 4D 4D 59 20 3A 3D 20 30 3B 0D 92 4D 4F 44 45 20 |MMY := 0;..MODE |
00002280: 3D 20 44 45 4D 4F 20 93 0D 10 82 44 55 4D 4D 59 |= DEMO ....DUMMY|
00002290: 20 3A 3D 20 A7 3B 0D 89 3B 0D 0D 86 47 41 4D 45 | := .;..;...GAME|
000022A0: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
000022B0: 29 0D 88 0D 53 54 41 52 54 5F 47 41 4D 45 3B 0D |)...START_GAME;.|
000022C0: 98 0D 10 82 53 48 4F 4F 54 5F 53 48 49 50 53 0D |....SHOOT_SHIPS.|
000022D0: 99 0D 10 82 28 53 43 4F 52 45 20 3C 20 30 29 20 |....(SCORE < 0) |
000022E0: 8A 0D 10 82 28 43 4F 55 4E 54 45 52 20 8F 34 20 |....(COUNTER .4 |
000022F0: 3D 20 30 29 20 8A 0D 10 82 28 44 55 4D 4D 59 20 |= 0) ....(DUMMY |
00002300: 3D 20 46 31 29 3B 0D 92 4D 4F 44 45 20 3D 20 44 |= F1);..MODE = D|
00002310: 45 4D 4F 20 93 0D 10 82 92 44 55 4D 4D 59 20 3D |EMO .....DUMMY =|
00002320: 20 46 31 20 93 0D 10 84 4D 4F 44 45 20 3A 3D 20 | F1 ....MODE := |
00002330: 46 31 0D 10 82 94 0D 94 0D 10 82 4D 4F 44 45 20 |F1.........MODE |
00002340: 3A 3D 20 44 45 4D 4F 3B 0D 89 3B 0D 0D 0D 88 28 |:= DEMO;..;....(|
00002350: 2A 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 2A |* MAIN PROGRAM *|
00002360: 29 0D 49 4E 49 54 3B 0D 4D 4F 44 45 20 3A 3D 20 |).INIT;.MODE := |
00002370: 44 45 4D 4F 3B 0D 98 0D 10 82 47 41 4D 45 0D 99 |DEMO;.....GAME..|
00002380: 46 41 4C 53 45 0D 89 2E 0D 00 |FALSE..... |
.H(* SUB HUNT (25) *).(*.SUB HUNT - A SU
BMARINE GAME...WRITTEN BY...SUE GOBBETT
....GAMBIT GAMES...AT PRESENT THIS GAME
ONLY READS.INPUT FROM PADDLES. HOWEVER T
HERE.IS SOME PROVISION .JOYSTICKS..KEYBO
ARD CONTROL...DISTRIBUTED WITH G-PASCAL.
..*)...TRUE = 1; FALSE = 0;.YES = TRUE;
NO = FALSE;.ON = TRUE; OFF = FALSE;.CLEA
RSCREEN = 147;.CR = 13;.INVERSE = 18;.NO
RMAL = 146;.PADDLENO = 2;.DEMO = 0;.COLO
UR = 1;.POINT = 2;.MULTICOLOURSPRITE = 3
;.EXPANDX = 4;.EXPANDY = 5;.BEHINDBACKGR
OUND = 6;.ACTIVE = 7;.BORDER = 11;.BACKG
ROUND = 12;.CHAR_COLOUR = 10;.DISPLAY =
6;..BLACK = 0;.WHITE = 1;.RED = 2;.CYAN
= 3;.PURPLE = 4;.GREEN = 5;.BLUE = 6;.YE
LLOW = 7;.ORANGE = 8;.BROWN = 9;.PINK =
10;.LIGHTBLUE = 14;.GREY3 = 15;..FREQUEN
CY = 1;.WIDTH = 2;.FILTER = 3;.ATTACK =
4;.DECAY = 5;.SUSTAIN = 6;.RELEASE = 7;.
PLAY = 8;.SYNC = 9;.TRIANGLE = 11;.SAWTO
OTH = 12;.PULSE = 13;.NOISE = 14;.TEST =
15;..FILTERFREQ = 2;.DELAY = 3;.VOLUME
= 4;.RESONANCE = 5;.LOWPASS = 6;.BANDPAS
S = 7;.HIGHPASS = 8;..F1 = 133;......XIN
C,YINC,POINTS,.DIR,SIZE. : .[8] ..;..SHI
PX,SHIPXINC,.SHIP_POINTS,SHIP_DIR,.SHIP_
SIZE,.SHIP_PTR,.SHIP_COLOUR. : .[10] ..;
..FIRING,.LOW_MINE,.TORP_DELAY,.MINELANE
,.DEMO_CNTR,.DEMO_INC,.SHIPS_SUNK,.SHIP,
.SCORE,.MODE,.HIGHSCORE,.COUNTER,.SIGHTY
. : .;..DUMMY.:.;..LANEY : .[10] ..;....
.KILL_TORPEDO;.(*********************)..
..(8,ACTIVE,NO);.FIRING := FALSE;.YINC[8
] := 0;..(3,PLAY,OFF);..(0);..;...GIVE_S
CORE(I);.(**********************)....MOD
E <> DEMO ........SCORE := SCORE + I;...
.SCORE > HIGHSCORE ....HIGHSCORE := SCOR
E;....;..(24,1);..("SCORE : ",SCORE,"
");..(24,28);..("SUNK : ",SHIPS_SUNK,"
");..(25,1);..("HIGH SCORE : ",...HIGH
SCORE);..;...INIT;.(*************)..I :
.;...SET_SHIP(A,B,C,D,E,F,G);.(*--------
---------------------*)...SHIPX[I] := A;
.SHIPXINC[I] := B .6;.SHIP_POINTS[I] :=
C;.SHIP_COLOUR[I] := D;.SHIP_DIR[I] := E
;.SHIP_SIZE[I] := F;.SHIP_PTR[I] := G;.I
:= I + 1;..;....(* SIGHT .DEFINITION *)
..(128,...$1000,$1000,$1000,$1000,...$10
00,$1000,0,0,...0,0,$7E00FC,0,0,...0,0,$
1000,$1000,...$1000,$1000,$1000,$1000);.
(* SHIP .DEFINITIONS *)..(130,...$038000
,$038000,$038000,$1FFF80,...$FFFFFF,$7FF
FFE,$3FFFF8,$1FFFE0);..(131,...$0001C0,$
0001C0,$0031C0,$01FFF8,...$FFFFFF,$7FFFF
E,$1FFFFC,$07FFF8);..(132,...$0C00,$0C00
,$1F00,$FFFE,...$7FFC,$3FF0);..(133,...$
0030,$0030,$00F8,$7FFF,...$3FFE,$0FFC);.
.(134,...$0C000,$1E100,$1E380,$FFFFF,...
$7FFFE,$3FFF8);..(135,...$00030,$00878,$
01C78,$FFFFF,...$7FFFE,$1FFFC);..(136,..
.$000C00,$000C00,$013F10,$03FFF0,...$01F
FE0,$03FFF0,$07FFF8,$1FFFFE,...$1FFFFE,$
0FFFFC);.(* TORPEDO .DEFINITIONS *)..(12
9,...$1000,$3800,$3800,$3800,...$3800,$3
800,$3800,$3800,...$3800,$3800);..(137,.
..$3000,$3800,$3800,$1C00,...$1C00,$0E00
,$0E00,$0700,...$0700);..(138,...$1000,$
3800,$3800,$3C00,...$1C00,$1C00,$1E00,$0
E00,...$0E00);..(139,...$1000,$3800,$380
0,$7800,...$7000,$7000,$F000,$E000,...$E
000);..(140,...$03000,$07000,$07000,$0E0
00,...$0E000,$1C000,$1C000,$03800,...$03
800);..SIGHTY := 62;..(...1,COLOUR,WHITE
,...1,EXPANDX,YES,...1,EXPANDY,YES,...1,
POINT,128,...1,ACTIVE,YES,...2,EXPANDX,Y
ES,...3,EXPANDX,YES,...4,EXPANDX,YES,...
5,COLOUR,BLACK,...5,EXPANDX,YES,...5,POI
NT,136,...6,COLOUR,BLACK,...6,EXPANDX,YE
S,...6,POINT,136,...7,COLOUR,BLACK,...7,
EXPANDX,YES,...7,POINT,136,...8,COLOUR,L
IGHTBLUE);..(VOLUME,15);..(...2,FREQUENC
Y,12700,...2,WIDTH,1000,...2,DECAY,10,..
.2,RELEASE,8,...2,TRIANGLE,ON);..(...3,F
REQUENCY,64000,...3,NOISE,ON);..KILL_TOR
PEDO;.I := 1;.SET_SHIP...(0,4,100,YELLOW
,1,50,130);.SET_SHIP...(350,-4,100,GREY3
,2,50,131);.SET_SHIP...(0,5,500,GREEN,1,
32,132);.SET_SHIP...(350,-5,500,PINK,2,3
2,133);.SET_SHIP...(0,4,200,ORANGE,1,42,
134);.SET_SHIP...(350,-4,200,CYAN,2,42,1
35);..LANEY[1] := 78;.LANEY[2] := 82;.LA
NEY[3] := 86;.LANEY[4] := 90;.LANEY[5] :
= 94;.LANEY[6] := 98;.LANEY[7] := 140;.L
ANEY[8] := 160;.LANEY[9] := 180;.LANEY[1
0] := 200;..SCORE := 0;.HIGHSCORE := 0;.
SHIPS_SUNK := 0;..(DISPLAY,YES);..;....E
XPLOSION;.(******************)..I :.;...
.(...FILTERFREQ,1000,...LOWPASS,ON,...HI
GHPASS,OFF,...RESONANCE,15);..(...3,FREQ
UENCY,400,...3,WIDTH,3000,...3,PLAY,OFF,
...3,ATTACK,1,...3,DECAY,12,...3,SUSTAIN
,12,...3,RELEASE,12,...3,FILTER,ON,...3,
NOISE,ON,...3,PLAY,ON);..(...1,FREQUENCY
,10000,...1,PLAY,OFF,...1,WIDTH,2048,...
1,ATTACK,3,...1,DECAY,10,...1,SUSTAIN,10
,...1,RELEASE,10,...1,FILTER,ON,...1,PUL
SE,OFF,...1,SYNC,OFF,...1,SAWTOOTH,OFF,.
..1,TRIANGLE,OFF,...1,NOISE,ON,...1,PLAY
,ON);..(...BACKGROUND,RED,BORDER,RED);..
(DELAY,5);..(285);..(...BACKGROUND,BLUE,
BORDER,BLACK);..(DELAY,5);..(285);..(...
BACKGROUND,RED,BORDER,RED);..(DELAY,5);.
.(285);..(...BACKGROUND,BLUE,BORDER,BLAC
K);..(1, PLAY, OFF,...3, PLAY, OFF);..;.
..CHECK_COLLSN;.(*********************).
.I :.;....I := 2 .7 ..........(1 .(I - 1
)) <> 0 ......(....(8) - .(I))...< SIZE[
I] ........DIR[I] := -20;....(I,...ACTIV
E,NO);...EXPLOSION;....I < 5 .........MO
DE <> DEMO ....SHIPS_SUNK :=...SHIPS_SUN
K + 1;...GIVE_SCORE(POINTS[I]);.........
..GIVE_SCORE(-75);............(I);.KILL_
TORPEDO;..;...MOVE_SIGHT;.(*************
******)..I,J,MOVES,K.:.;....(1,ACTIVE,YE
S);..MODE = DEMO ..........(1) = 0 .....
...I := .;...J := .(1);....I < J .......
.K := -1;...MOVES := J - I;.............
..K := 1;...MOVES := I - J;....;....(1,.
(1),...SIGHTY,(K * 256),0,MOVES);....;..
........(1,(300 -...(.(PADDLENO) .$FF)).
..,SIGHTY);..;...FIRE_TORPEDO;.(********
************)....MODE = DEMO ........TOR
P_DELAY :=...TORP_DELAY - 1;....TORP_DEL
AY = 0 ........TORP_DELAY :=...20 + (. .
10);...FIRE_TORPEDO := TRUE;...........F
IRE_TORPEDO := FALSE;.........FIRE_TORPE
DO :=....(PADDLENO) <> 0;..;...START_GAM
E;.(*******************)..I :.;...MINELA
NE := 7;..I := 1 .8 ........DIR[I] := 0;
..(*INACTIVE*)....(I,ACTIVE,NO);....(I);
....;..I := 1 .3 .....(I, PLAY, OFF);.DI
R[2] := -10;.DIR[3] := -20;.DIR[7] := -2
0;..MODE = DEMO .........(...DISPLAY,OFF
,...CHAR_COLOUR,RED,...BACKGROUND,RED,..
.BORDER,RED);....(.(CLEARSCREEN));....(C
HAR_COLOUR,WHITE);....(.(NORMAL));....(1
, 10);....(" --- SUB HUNT ---");....(4,
10);....(" BY GAMBIT GAMES");....(7, 10)
;....("USE PADDLES IN PORT 2");....(11,
10);....("PRESS ""F1"" TO START");....(1
5, 25);....(" = ",SHIP_POINTS[1],..." P
OINTS");....(17, 25);....(" = ",SHIP_PO
INTS[5],..." POINTS");....(19, 25);....(
" = ",SHIP_POINTS[3],..." POINTS");....
(21, 25);....(" = ",(-75),..." POINTS")
;....(DISPLAY, ON);....(...2, COLOUR, SH
IP_COLOUR[1],...2, POINT, SHIP_PTR [1],.
..3, COLOUR, SHIP_COLOUR[3],...3, POINT,
SHIP_PTR [3],...4, COLOUR, SHIP_COLOUR[
5],...4, POINT, SHIP_PTR [5]);....(...2,
40,160,(2 .6),0,240,...4,40,177,(2 .6),0
,240,...3,40,193,(2 .6),0,240,...7,40,20
8,(2 .6),0,240);...GIVE_SCORE (0);...DUM
MY := 0;.......DUMMY := .;....(DUMMY = F
1) ....((.(1) = 0) ....(.(2) = 0) ....(.
(3) = 0));....DUMMY = F1 ....MODE := DUM
MY........(DELAY,50);....(...2, ACTIVE,
NO,...3, ACTIVE, NO,...4, ACTIVE, NO,...
7, ACTIVE, NO);...TORP_DELAY := 25;....;
..MODE = DEMO ........COUNTER :=...(10 +
(. .5)) .4;...DEMO_CNTR := 0;..........
...SHIPS_SUNK := 0;...COUNTER := 100 .4;
...SCORE := 0;....;..(...DISPLAY,OFF,...
BACKGROUND,BLUE,...CHAR_COLOUR,LIGHTBLUE
,...BORDER,BLACK);..(.(CLEARSCREEN));..(
1,1);..(.(INVERSE));..I := 1 .160 .....(
" ");..(.(NORMAL),.(5));.GIVE_SCORE(0);.
FIRING := FALSE;..(1, ACTIVE, YES);..(DI
SPLAY,ON);..;...SHOOT_SHIPS;.(**********
**********)..I,J,K,TEMP :.;...COUNTER :=
COUNTER - 1;..(COUNTER .$1F) = 10 .....
....(25,28);....("TIME : ",...(COUNTER .
4)," ");....;...FIRING ....MOVE_SIGHT..
..(.(8) = 0) ....(..) ....KILL_TORPEDO;.
.FIRE_TORPEDO .(.FIRING)...........XINC[
8] :=...((.(1) - 160) .8).../ (244 - SIG
HTY);....XINC[8] < -70 ....I := 137.....
...XINC[8] < -25 ....I := 138...........
I := 129;....XINC[8] > 25 ....I := 139..
......XINC[8] > 70 ....I := 140;....;...
.(1,ACTIVE,NO);....(8,POINT,I);....($80)
;....(8,172,265,...XINC[8],-256,(252 - S
IGHTY));...FIRING := TRUE;...DIR[8] := 3
;....(...FILTERFREQ,10000,...RESONANCE,1
5,...LOWPASS,OFF,...HIGHPASS,ON);....(..
.3,FREQUENCY,64000,...3,PLAY,OFF,...3,AT
TACK,4,...3,DECAY,14,...3,SUSTAIN,2,...3
,RELEASE,3,...3,FILTER,ON,...3,NOISE,ON,
...3,PLAY,ON);....;.(* MOVE SHIPS *)..I
:= 2 .7 .....DIR[I] < 0 ....DIR[I] :=...
DIR[I] + 1........DIR[I] > 0 ......(I) =
0 ................(I, ACTIVE, NO);...DI
R[I] := 0;....;..FIRING ..........CHECK_
COLLSN;..I := 2 .4 + (SCORE >= 1000)...+
(SCORE >= 3000)...+ (SCORE >= 5000)....
....DIR[I] = 0 ........SHIP := (. .6) +
1;...J := 8 - ( ((I - 1) * 2) +...(. .2)
);...DIR[I] := SHIP_DIR[SHIP];....I > 4
........POINTS [I] := -75;...MINELANE :
= MINELANE + 1;....MINELANE > 10 ....MIN
ELANE := 7;...SIZE [I] := 100;....(I,ACT
IVE,YES);...J := SHIPXINC[SHIP] .2;....(
I,...SHIPX[SHIP],...LANEY[MINELANE],...J
,0,((350 .8) / J));...............POINTS
[I] := SHIP_POINTS[SHIP];...SIZE[I] := S
HIP_SIZE[SHIP];....(I,...COLOUR,SHIP_COL
OUR[SHIP],...I,POINT,SHIP_PTR[SHIP]);...
.(I,...SHIPX[SHIP],LANEY[J],...SHIPXINC[
SHIP],0,...((350 .8) / .(SHIPXINC[SHIP])
));....;....;.DUMMY := 0;..MODE = DEMO .
...DUMMY := .;..;...GAME;.(*************
)...START_GAME;.....SHOOT_SHIPS.....(SCO
RE < 0) ....(COUNTER .4 = 0) ....(DUMMY
= F1);..MODE = DEMO .....DUMMY = F1 ....
MODE := F1.........MODE := DEMO;..;....(
* MAIN PROGRAM *).INIT;.MODE := DEMO;...
..GAME..FALSE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL