SUB HUNT
FILE INFORMATION
FILENAME(S): SUB HUNT
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 19:35:16
APPEARS ON: 1 disk(s)
FILE HASH
dbd927fb3925257f8fd8ab1aed41118f1239ddcf481606a77b76be356d3f96f1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACME A | SUB HUNT | PRG | Curtcool, bitbear | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 28 2A 20 D3 55 42 20 C8 55 4E 54 20 28 32 |.@(* .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 53 20 |FF = FALSE;.CLS |
00000140: 3D 20 31 34 37 3B 0D 43 52 20 3D 20 31 33 3B 0D |= 147;.CR = 13;.|
00000150: 49 4E 56 20 3D 20 31 38 3B 0D 4E 4F 52 4D 41 4C |INV = 18;.NORMAL|
00000160: 20 3D 20 31 34 36 3B 0D 44 45 4D 4F 20 3D 20 30 | = 146;.DEMO = 0|
00000170: 3B 0D 43 4F 4C 20 3D 20 31 3B 0D 50 4F 49 4E 54 |;.COL = 1;.POINT|
00000180: 20 3D 20 32 3B 0D 45 58 50 5F 58 20 3D 20 34 3B | = 2;.EXP_X = 4;|
00000190: 0D 45 58 50 5F 59 20 3D 20 35 3B 0D 41 43 54 49 |.EXP_Y = 5;.ACTI|
000001A0: 56 45 20 3D 20 37 3B 0D 42 4F 52 44 45 52 20 3D |VE = 7;.BORDER =|
000001B0: 20 31 31 3B 0D 42 4B 5F 47 52 44 20 3D 20 31 32 | 11;.BK_GRD = 12|
000001C0: 3B 0D 43 48 41 52 5F 43 4F 4C 20 3D 20 31 30 3B |;.CHAR_COL = 10;|
000001D0: 0D 44 49 53 50 4C 41 59 20 3D 20 36 3B 0D 0D 42 |.DISPLAY = 6;..B|
000001E0: 4C 41 43 4B 20 3D 20 30 3B 0D 57 48 49 54 45 20 |LACK = 0;.WHITE |
000001F0: 3D 20 31 3B 0D 52 45 44 20 3D 20 32 3B 0D 43 59 |= 1;.RED = 2;.CY|
00000200: 41 4E 20 3D 20 33 3B 0D 47 52 45 45 4E 20 3D 20 |AN = 3;.GREEN = |
00000210: 35 3B 0D 42 4C 55 45 20 3D 20 36 3B 0D 59 45 4C |5;.BLUE = 6;.YEL|
00000220: 4C 4F 57 20 3D 20 37 3B 0D 4F 52 41 4E 47 45 20 |LOW = 7;.ORANGE |
00000230: 3D 20 38 3B 0D 42 52 4F 57 4E 20 3D 20 39 3B 0D |= 8;.BROWN = 9;.|
00000240: 50 49 4E 4B 20 3D 20 31 30 3B 0D 4C 54 5F 42 4C |PINK = 10;.LT_BL|
00000250: 55 45 20 3D 20 31 34 3B 0D 47 52 45 59 33 20 3D |UE = 14;.GREY3 =|
00000260: 20 31 35 3B 0D 0D 46 52 45 51 20 3D 20 31 3B 0D | 15;..FREQ = 1;.|
00000270: 57 49 44 54 48 20 3D 20 32 3B 0D 46 49 4C 54 20 |WIDTH = 2;.FILT |
00000280: 3D 20 33 3B 0D 41 54 54 20 3D 20 34 3B 0D 44 45 |= 3;.ATT = 4;.DE|
00000290: 43 20 3D 20 35 3B 0D 53 55 53 20 3D 20 36 3B 0D |C = 5;.SUS = 6;.|
000002A0: 52 45 4C 20 3D 20 37 3B 0D 50 4C 41 59 20 3D 20 |REL = 7;.PLAY = |
000002B0: 38 3B 0D 53 59 4E 43 20 3D 20 39 3B 0D 54 52 49 |8;.SYNC = 9;.TRI|
000002C0: 20 3D 20 31 31 3B 0D 53 41 57 54 20 3D 20 31 32 | = 11;.SAWT = 12|
000002D0: 3B 0D 50 55 4C 53 45 20 3D 20 31 33 3B 0D 4E 4F |;.PULSE = 13;.NO|
000002E0: 49 53 45 20 3D 20 31 34 3B 0D 54 45 53 54 20 3D |ISE = 14;.TEST =|
000002F0: 20 31 35 3B 0D 0D 46 49 4C 54 46 52 45 51 20 3D | 15;..FILTFREQ =|
00000300: 20 32 3B 0D 44 45 4C 41 59 20 3D 20 33 3B 0D 56 | 2;.DELAY = 3;.V|
00000310: 4F 4C 20 3D 20 34 3B 0D 52 45 53 4F 4E 41 4E 43 |OL = 4;.RESONANC|
00000320: 45 20 3D 20 35 3B 0D 4C 4F 57 50 41 53 53 20 3D |E = 5;.LOWPASS =|
00000330: 20 36 3B 0D 42 41 4E 44 50 41 53 53 20 3D 20 37 | 6;.BANDPASS = 7|
00000340: 3B 0D 48 49 47 48 50 41 53 53 20 3D 20 38 3B 0D |;.HIGHPASS = 8;.|
00000350: 0D 46 31 20 3D 20 31 33 33 3B 0D 0D 0D 0D 83 0D |.F1 = 133;......|
00000360: 58 49 4E 43 2C 59 49 4E 43 2C 50 4F 49 4E 54 53 |XINC,YINC,POINTS|
00000370: 2C 0D 44 49 52 2C 53 49 5A 45 0D 20 3A 20 84 5B |,.DIR,SIZE. : .[|
00000380: 38 5D 20 85 FE 3B 0D 0D 53 48 49 50 58 2C 53 48 |8] ..;..SHIPX,SH|
00000390: 49 50 58 49 4E 43 2C 0D 53 48 49 50 5F 50 4F 49 |IPXINC,.SHIP_POI|
000003A0: 4E 54 53 2C 53 48 49 50 5F 44 49 52 2C 0D 53 48 |NTS,SHIP_DIR,.SH|
000003B0: 49 50 5F 53 49 5A 45 2C 0D 53 48 49 50 5F 50 54 |IP_SIZE,.SHIP_PT|
000003C0: 52 2C 0D 53 48 49 50 5F 43 4F 4C 0D 20 3A 20 84 |R,.SHIP_COL. : .|
000003D0: 5B 31 30 5D 20 85 FE 3B 0D 0D 46 49 52 49 4E 47 |[10] ..;..FIRING|
000003E0: 2C 0D 4C 4F 57 5F 4D 49 4E 45 2C 0D 54 4F 52 50 |,.LOW_MINE,.TORP|
000003F0: 5F 44 45 4C 41 59 2C 0D 4D 49 4E 45 4C 41 4E 45 |_DELAY,.MINELANE|
00000400: 2C 0D 44 45 4D 4F 5F 43 4E 54 52 2C 0D 44 45 4D |,.DEMO_CNTR,.DEM|
00000410: 4F 5F 49 4E 43 2C 0D 53 48 49 50 53 5F 53 55 4E |O_INC,.SHIPS_SUN|
00000420: 4B 2C 0D 53 48 49 50 2C 0D 53 43 4F 52 45 2C 0D |K,.SHIP,.SCORE,.|
00000430: 4D 4F 44 45 2C 0D 48 49 53 43 4F 52 45 2C 0D 43 |MODE,.HISCORE,.C|
00000440: 4F 55 4E 54 45 52 2C 0D 53 49 47 48 54 59 2C 50 |OUNTER,.SIGHTY,P|
00000450: 4F 53 5F 53 49 47 48 54 0D 20 3A 20 FE 3B 0D 0D |OS_SIGHT. : .;..|
00000460: 44 55 4D 4D 59 0D 3A A1 3B 0D 0D 4C 41 4E 45 59 |DUMMY.:.;..LANEY|
00000470: 20 3A 20 84 5B 31 30 5D 20 85 FE 3B 0D 0D 0D 0D | : .[10] ..;....|
00000480: 86 4B 49 4C 4C 5F 54 4F 52 50 3B 0D 28 2A 2A 2A |.KILL_TORP;.(***|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 29 0D 88 0D DF 28 38 2C 41 43 54 49 56 45 |**)....(8,ACTIVE|
000004B0: 2C 4E 4F 29 3B 0D 46 49 52 49 4E 47 20 3A 3D 20 |,NO);.FIRING := |
000004C0: 46 41 4C 53 45 3B 0D 59 49 4E 43 5B 38 5D 20 3A |FALSE;.YINC[8] :|
000004D0: 3D 20 30 3B 0D E1 28 33 2C 50 4C 41 59 2C 4F 46 |= 0;..(3,PLAY,OF|
000004E0: 46 29 3B 0D AD 28 30 29 3B 0D 89 3B 0D 0D 86 47 |F);..(0);..;...G|
000004F0: 49 56 45 5F 53 43 4F 52 45 28 49 29 3B 0D 28 2A |IVE_SCORE(I);.(*|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 29 0D 88 0D 92 4D 4F 44 45 20 3C |*****)....MODE <|
00000520: 3E 20 44 45 4D 4F 20 93 0D 10 82 88 0D 10 82 53 |> DEMO ........S|
00000530: 43 4F 52 45 20 3A 3D 20 53 43 4F 52 45 20 2B 20 |CORE := SCORE + |
00000540: 49 3B 0D 10 82 92 53 43 4F 52 45 20 3E 20 48 49 |I;....SCORE > HI|
00000550: 53 43 4F 52 45 20 93 0D 10 84 48 49 53 43 4F 52 |SCORE ....HISCOR|
00000560: 45 20 3A 3D 20 53 43 4F 52 45 3B 0D 10 82 89 3B |E := SCORE;....;|
00000570: 0D A3 28 32 34 2C 31 29 3B 0D 9D 28 22 D3 43 4F |..(24,1);..(".CO|
00000580: 52 45 20 3A 20 22 2C 53 43 4F 52 45 2C 22 20 20 |RE : ",SCORE," |
00000590: 20 20 20 22 29 3B 0D A3 28 32 34 2C 32 38 29 3B | ");..(24,28);|
000005A0: 0D 9D 28 22 D3 55 4E 4B 20 3A 20 22 2C 53 48 49 |..(".UNK : ",SHI|
000005B0: 50 53 5F 53 55 4E 4B 2C 22 20 20 22 29 3B 0D A3 |PS_SUNK," ");..|
000005C0: 28 32 35 2C 31 29 3B 0D 9D 28 22 C8 49 47 48 20 |(25,1);..(".IGH |
000005D0: 53 43 4F 52 45 20 3A 20 22 2C 0D 10 82 48 49 53 |SCORE : ",...HIS|
000005E0: 43 4F 52 45 29 3B 0D 89 3B 0D 0D 86 49 4E 49 54 |CORE);..;...INIT|
000005F0: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000600: 29 0D 83 49 20 3A 20 FE 3B 0D 0D 86 53 45 54 5F |)..I : .;...SET_|
00000610: 53 48 49 50 28 41 2C 42 2C 43 2C 44 2C 45 2C 46 |SHIP(A,B,C,D,E,F|
00000620: 2C 47 29 3B 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D |,G);.(*---------|
00000630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000640: 2D 2D 2D 2D 2A 29 0D 88 0D 53 48 49 50 58 5B 49 |----*)...SHIPX[I|
00000650: 5D 20 3A 3D 20 41 3B 0D 53 48 49 50 58 49 4E 43 |] := A;.SHIPXINC|
00000660: 5B 49 5D 20 3A 3D 20 42 20 8E 36 3B 0D 53 48 49 |[I] := B .6;.SHI|
00000670: 50 5F 50 4F 49 4E 54 53 5B 49 5D 20 3A 3D 20 43 |P_POINTS[I] := C|
00000680: 3B 0D 53 48 49 50 5F 43 4F 4C 5B 49 5D 20 3A 3D |;.SHIP_COL[I] :=|
00000690: 20 44 3B 0D 53 48 49 50 5F 44 49 52 5B 49 5D 20 | D;.SHIP_DIR[I] |
000006A0: 3A 3D 20 45 3B 0D 53 48 49 50 5F 53 49 5A 45 5B |:= E;.SHIP_SIZE[|
000006B0: 49 5D 20 3A 3D 20 46 3B 0D 53 48 49 50 5F 50 54 |I] := F;.SHIP_PT|
000006C0: 52 5B 49 5D 20 3A 3D 20 47 3B 0D 49 20 3A 3D 20 |R[I] := G;.I := |
000006D0: 49 20 2B 20 31 3B 0D 89 3B 0D 0D 88 0D 28 2A 20 |I + 1;..;....(* |
000006E0: 53 49 47 48 54 20 DF 44 45 46 49 4E 49 54 49 4F |SIGHT .DEFINITIO|
000006F0: 4E 20 2A 29 0D A5 28 31 32 38 2C 0D 10 82 24 31 |N *)..(128,...$1|
00000700: 30 30 30 2C 24 31 30 30 30 2C 24 31 30 30 30 2C |000,$1000,$1000,|
00000710: 24 31 30 30 30 2C 0D 10 82 24 31 30 30 30 2C 24 |$1000,...$1000,$|
00000720: 31 30 30 30 2C 30 2C 30 2C 0D 10 82 30 2C 30 2C |1000,0,0,...0,0,|
00000730: 24 37 45 30 30 46 43 2C 30 2C 30 2C 0D 10 82 30 |$7E00FC,0,0,...0|
00000740: 2C 30 2C 24 31 30 30 30 2C 24 31 30 30 30 2C 0D |,0,$1000,$1000,.|
00000750: 10 82 24 31 30 30 30 2C 24 31 30 30 30 2C 24 31 |..$1000,$1000,$1|
00000760: 30 30 30 2C 24 31 30 30 30 29 3B 0D 28 2A 20 53 |000,$1000);.(* S|
00000770: 48 49 50 20 DF 44 45 46 49 4E 49 54 49 4F 4E 53 |HIP .DEFINITIONS|
00000780: 20 2A 29 0D A5 28 31 33 30 2C 0D 10 82 24 30 33 | *)..(130,...$03|
00000790: 38 30 30 30 2C 24 30 33 38 30 30 30 2C 24 30 33 |8000,$038000,$03|
000007A0: 38 30 30 30 2C 24 31 46 46 46 38 30 2C 0D 10 82 |8000,$1FFF80,...|
000007B0: 24 46 46 46 46 46 46 2C 24 37 46 46 46 46 45 2C |$FFFFFF,$7FFFFE,|
000007C0: 24 33 46 46 46 46 38 2C 24 31 46 46 46 45 30 29 |$3FFFF8,$1FFFE0)|
000007D0: 3B 0D A5 28 31 33 31 2C 0D 10 82 24 30 30 30 31 |;..(131,...$0001|
000007E0: 43 30 2C 24 30 30 30 31 43 30 2C 24 30 30 33 31 |C0,$0001C0,$0031|
000007F0: 43 30 2C 24 30 31 46 46 46 38 2C 0D 10 82 24 46 |C0,$01FFF8,...$F|
00000800: 46 46 46 46 46 2C 24 37 46 46 46 46 45 2C 24 31 |FFFFF,$7FFFFE,$1|
00000810: 46 46 46 46 43 2C 24 30 37 46 46 46 38 29 3B 0D |FFFFC,$07FFF8);.|
00000820: A5 28 31 33 32 2C 0D 10 82 24 30 43 30 30 2C 24 |.(132,...$0C00,$|
00000830: 30 43 30 30 2C 24 31 46 30 30 2C 24 46 46 46 45 |0C00,$1F00,$FFFE|
00000840: 2C 0D 10 82 24 37 46 46 43 2C 24 33 46 46 30 29 |,...$7FFC,$3FF0)|
00000850: 3B 0D A5 28 31 33 33 2C 0D 10 82 24 30 30 33 30 |;..(133,...$0030|
00000860: 2C 24 30 30 33 30 2C 24 30 30 46 38 2C 24 37 46 |,$0030,$00F8,$7F|
00000870: 46 46 2C 0D 10 82 24 33 46 46 45 2C 24 30 46 46 |FF,...$3FFE,$0FF|
00000880: 43 29 3B 0D A5 28 31 33 34 2C 0D 10 82 24 30 43 |C);..(134,...$0C|
00000890: 30 30 30 2C 24 31 45 31 30 30 2C 24 31 45 33 38 |000,$1E100,$1E38|
000008A0: 30 2C 24 46 46 46 46 46 2C 0D 10 82 24 37 46 46 |0,$FFFFF,...$7FF|
000008B0: 46 45 2C 24 33 46 46 46 38 29 3B 0D A5 28 31 33 |FE,$3FFF8);..(13|
000008C0: 35 2C 0D 10 82 24 30 30 30 33 30 2C 24 30 30 38 |5,...$00030,$008|
000008D0: 37 38 2C 24 30 31 43 37 38 2C 24 46 46 46 46 46 |78,$01C78,$FFFFF|
000008E0: 2C 0D 10 82 24 37 46 46 46 45 2C 24 31 46 46 46 |,...$7FFFE,$1FFF|
000008F0: 43 29 3B 0D A5 28 31 33 36 2C 0D 10 82 24 30 30 |C);..(136,...$00|
00000900: 30 43 30 30 2C 24 30 30 30 43 30 30 2C 24 30 31 |0C00,$000C00,$01|
00000910: 33 46 31 30 2C 24 30 33 46 46 46 30 2C 0D 10 82 |3F10,$03FFF0,...|
00000920: 24 30 31 46 46 45 30 2C 24 30 33 46 46 46 30 2C |$01FFE0,$03FFF0,|
00000930: 24 30 37 46 46 46 38 2C 24 31 46 46 46 46 45 2C |$07FFF8,$1FFFFE,|
00000940: 0D 10 82 24 31 46 46 46 46 45 2C 24 30 46 46 46 |...$1FFFFE,$0FFF|
00000950: 46 43 29 3B 0D 28 2A 20 54 4F 52 50 20 DF 44 45 |FC);.(* TORP .DE|
00000960: 46 49 4E 49 54 49 4F 4E 53 20 2A 29 0D A5 28 31 |FINITIONS *)..(1|
00000970: 32 39 2C 0D 10 82 24 31 30 30 30 2C 24 33 38 30 |29,...$1000,$380|
00000980: 30 2C 24 33 38 30 30 2C 24 33 38 30 30 2C 0D 10 |0,$3800,$3800,..|
00000990: 82 24 33 38 30 30 2C 24 33 38 30 30 2C 24 33 38 |.$3800,$3800,$38|
000009A0: 30 30 2C 24 33 38 30 30 2C 0D 10 82 24 33 38 30 |00,$3800,...$380|
000009B0: 30 2C 24 33 38 30 30 29 3B 0D A5 28 31 33 37 2C |0,$3800);..(137,|
000009C0: 0D 10 82 24 33 30 30 30 2C 24 33 38 30 30 2C 24 |...$3000,$3800,$|
000009D0: 33 38 30 30 2C 24 31 43 30 30 2C 0D 10 82 24 31 |3800,$1C00,...$1|
000009E0: 43 30 30 2C 24 30 45 30 30 2C 24 30 45 30 30 2C |C00,$0E00,$0E00,|
000009F0: 24 30 37 30 30 2C 0D 10 82 24 30 37 30 30 29 3B |$0700,...$0700);|
00000A00: 0D A5 28 31 33 38 2C 0D 10 82 24 31 30 30 30 2C |..(138,...$1000,|
00000A10: 24 33 38 30 30 2C 24 33 38 30 30 2C 24 33 43 30 |$3800,$3800,$3C0|
00000A20: 30 2C 0D 10 82 24 31 43 30 30 2C 24 31 43 30 30 |0,...$1C00,$1C00|
00000A30: 2C 24 31 45 30 30 2C 24 30 45 30 30 2C 0D 10 82 |,$1E00,$0E00,...|
00000A40: 24 30 45 30 30 29 3B 0D A5 28 31 33 39 2C 0D 10 |$0E00);..(139,..|
00000A50: 82 24 31 30 30 30 2C 24 33 38 30 30 2C 24 33 38 |.$1000,$3800,$38|
00000A60: 30 30 2C 24 37 38 30 30 2C 0D 10 82 24 37 30 30 |00,$7800,...$700|
00000A70: 30 2C 24 37 30 30 30 2C 24 46 30 30 30 2C 24 45 |0,$7000,$F000,$E|
00000A80: 30 30 30 2C 0D 10 82 24 45 30 30 30 29 3B 0D A5 |000,...$E000);..|
00000A90: 28 31 34 30 2C 0D 10 82 24 30 33 30 30 30 2C 24 |(140,...$03000,$|
00000AA0: 30 37 30 30 30 2C 24 30 37 30 30 30 2C 24 30 45 |07000,$07000,$0E|
00000AB0: 30 30 30 2C 0D 10 82 24 30 45 30 30 30 2C 24 31 |000,...$0E000,$1|
00000AC0: 43 30 30 30 2C 24 31 43 30 30 30 2C 24 30 33 38 |C000,$1C000,$038|
00000AD0: 30 30 2C 0D 10 82 24 30 33 38 30 30 29 3B 0D 0D |00,...$03800);..|
00000AE0: 53 49 47 48 54 59 20 3A 3D 20 36 32 3B 0D DF 28 |SIGHTY := 62;..(|
00000AF0: 0D 10 82 31 2C 43 4F 4C 2C 57 48 49 54 45 2C 0D |...1,COL,WHITE,.|
00000B00: 10 82 31 2C 45 58 50 5F 58 2C 59 45 53 2C 0D 10 |..1,EXP_X,YES,..|
00000B10: 82 31 2C 45 58 50 5F 59 2C 59 45 53 2C 0D 10 82 |.1,EXP_Y,YES,...|
00000B20: 31 2C 50 4F 49 4E 54 2C 31 32 38 2C 0D 10 82 31 |1,POINT,128,...1|
00000B30: 2C 41 43 54 49 56 45 2C 59 45 53 2C 0D 10 82 32 |,ACTIVE,YES,...2|
00000B40: 2C 45 58 50 5F 58 2C 59 45 53 2C 0D 10 82 33 2C |,EXP_X,YES,...3,|
00000B50: 45 58 50 5F 58 2C 59 45 53 2C 0D 10 82 34 2C 45 |EXP_X,YES,...4,E|
00000B60: 58 50 5F 58 2C 59 45 53 2C 0D 10 82 35 2C 43 4F |XP_X,YES,...5,CO|
00000B70: 4C 2C 42 4C 41 43 4B 2C 0D 10 82 35 2C 45 58 50 |L,BLACK,...5,EXP|
00000B80: 5F 58 2C 59 45 53 2C 0D 10 82 35 2C 50 4F 49 4E |_X,YES,...5,POIN|
00000B90: 54 2C 31 33 36 2C 0D 10 82 36 2C 43 4F 4C 2C 42 |T,136,...6,COL,B|
00000BA0: 4C 41 43 4B 2C 0D 10 82 36 2C 45 58 50 5F 58 2C |LACK,...6,EXP_X,|
00000BB0: 59 45 53 2C 0D 10 82 36 2C 50 4F 49 4E 54 2C 31 |YES,...6,POINT,1|
00000BC0: 33 36 2C 0D 10 82 37 2C 43 4F 4C 2C 42 4C 41 43 |36,...7,COL,BLAC|
00000BD0: 4B 2C 0D 10 82 37 2C 45 58 50 5F 58 2C 59 45 53 |K,...7,EXP_X,YES|
00000BE0: 2C 0D 10 82 37 2C 50 4F 49 4E 54 2C 31 33 36 2C |,...7,POINT,136,|
00000BF0: 0D 10 82 38 2C 43 4F 4C 2C 4C 54 5F 42 4C 55 45 |...8,COL,LT_BLUE|
00000C00: 29 3B 0D E3 28 56 4F 4C 2C 31 35 29 3B 0D E1 28 |);..(VOL,15);..(|
00000C10: 0D 10 82 32 2C 46 52 45 51 2C 31 32 37 30 30 2C |...2,FREQ,12700,|
00000C20: 0D 10 82 32 2C 57 49 44 54 48 2C 31 30 30 30 2C |...2,WIDTH,1000,|
00000C30: 0D 10 82 32 2C 44 45 43 2C 31 30 2C 0D 10 82 32 |...2,DEC,10,...2|
00000C40: 2C 52 45 4C 2C 38 2C 0D 10 82 32 2C 54 52 49 2C |,REL,8,...2,TRI,|
00000C50: 4F 4E 29 3B 0D E1 28 0D 10 82 33 2C 46 52 45 51 |ON);..(...3,FREQ|
00000C60: 2C 36 34 30 30 30 2C 0D 10 82 33 2C 4E 4F 49 53 |,64000,...3,NOIS|
00000C70: 45 2C 4F 4E 29 3B 0D 0D 4B 49 4C 4C 5F 54 4F 52 |E,ON);..KILL_TOR|
00000C80: 50 3B 0D 49 20 3A 3D 20 31 3B 0D 53 45 54 5F 53 |P;.I := 1;.SET_S|
00000C90: 48 49 50 0D 10 82 28 30 2C 34 2C 31 30 30 2C 59 |HIP...(0,4,100,Y|
00000CA0: 45 4C 4C 4F 57 2C 31 2C 35 30 2C 31 33 30 29 3B |ELLOW,1,50,130);|
00000CB0: 0D 53 45 54 5F 53 48 49 50 0D 10 82 28 33 35 30 |.SET_SHIP...(350|
00000CC0: 2C 2D 34 2C 31 30 30 2C 47 52 45 59 33 2C 32 2C |,-4,100,GREY3,2,|
00000CD0: 35 30 2C 31 33 31 29 3B 0D 53 45 54 5F 53 48 49 |50,131);.SET_SHI|
00000CE0: 50 0D 10 82 28 30 2C 35 2C 35 30 30 2C 47 52 45 |P...(0,5,500,GRE|
00000CF0: 45 4E 2C 31 2C 33 32 2C 31 33 32 29 3B 0D 53 45 |EN,1,32,132);.SE|
00000D00: 54 5F 53 48 49 50 0D 10 82 28 33 35 30 2C 2D 35 |T_SHIP...(350,-5|
00000D10: 2C 35 30 30 2C 50 49 4E 4B 2C 32 2C 33 32 2C 31 |,500,PINK,2,32,1|
00000D20: 33 33 29 3B 0D 53 45 54 5F 53 48 49 50 0D 10 82 |33);.SET_SHIP...|
00000D30: 28 30 2C 34 2C 32 30 30 2C 4F 52 41 4E 47 45 2C |(0,4,200,ORANGE,|
00000D40: 31 2C 34 32 2C 31 33 34 29 3B 0D 53 45 54 5F 53 |1,42,134);.SET_S|
00000D50: 48 49 50 0D 10 82 28 33 35 30 2C 2D 34 2C 32 30 |HIP...(350,-4,20|
00000D60: 30 2C 43 59 41 4E 2C 32 2C 34 32 2C 31 33 35 29 |0,CYAN,2,42,135)|
00000D70: 3B 0D 0D 4C 41 4E 45 59 5B 31 5D 20 3A 3D 20 37 |;..LANEY[1] := 7|
00000D80: 38 3B 0D 4C 41 4E 45 59 5B 32 5D 20 3A 3D 20 38 |8;.LANEY[2] := 8|
00000D90: 32 3B 0D 4C 41 4E 45 59 5B 33 5D 20 3A 3D 20 38 |2;.LANEY[3] := 8|
00000DA0: 36 3B 0D 4C 41 4E 45 59 5B 34 5D 20 3A 3D 20 39 |6;.LANEY[4] := 9|
00000DB0: 30 3B 0D 4C 41 4E 45 59 5B 35 5D 20 3A 3D 20 39 |0;.LANEY[5] := 9|
00000DC0: 34 3B 0D 4C 41 4E 45 59 5B 36 5D 20 3A 3D 20 39 |4;.LANEY[6] := 9|
00000DD0: 38 3B 0D 4C 41 4E 45 59 5B 37 5D 20 3A 3D 20 31 |8;.LANEY[7] := 1|
00000DE0: 34 30 3B 0D 4C 41 4E 45 59 5B 38 5D 20 3A 3D 20 |40;.LANEY[8] := |
00000DF0: 31 36 30 3B 0D 4C 41 4E 45 59 5B 39 5D 20 3A 3D |160;.LANEY[9] :=|
00000E00: 20 31 38 30 3B 0D 4C 41 4E 45 59 5B 31 30 5D 20 | 180;.LANEY[10] |
00000E10: 3A 3D 20 32 30 30 3B 0D 0D 53 43 4F 52 45 20 3A |:= 200;..SCORE :|
00000E20: 3D 20 30 3B 0D 48 49 53 43 4F 52 45 20 3A 3D 20 |= 0;.HISCORE := |
00000E30: 30 3B 0D 53 48 49 50 53 5F 53 55 4E 4B 20 3A 3D |0;.SHIPS_SUNK :=|
00000E40: 20 30 3B 0D E2 28 44 49 53 50 4C 41 59 2C 59 45 | 0;..(DISPLAY,YE|
00000E50: 53 29 3B 0D 89 3B 0D 0D 0D 86 45 58 50 4C 4F 53 |S);..;....EXPLOS|
00000E60: 49 4F 4E 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ION;.(**********|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 83 49 20 3A FE 3B |********)..I :.;|
00000E80: 0D 88 0D E3 28 0D 10 82 46 49 4C 54 46 52 45 51 |....(...FILTFREQ|
00000E90: 2C 31 30 30 30 2C 0D 10 82 4C 4F 57 50 41 53 53 |,1000,...LOWPASS|
00000EA0: 2C 4F 4E 2C 0D 10 82 48 49 47 48 50 41 53 53 2C |,ON,...HIGHPASS,|
00000EB0: 4F 46 46 2C 0D 10 82 52 45 53 4F 4E 41 4E 43 45 |OFF,...RESONANCE|
00000EC0: 2C 31 35 29 3B 0D E1 28 0D 10 82 33 2C 46 52 45 |,15);..(...3,FRE|
00000ED0: 51 2C 34 30 30 2C 0D 10 82 33 2C 57 49 44 54 48 |Q,400,...3,WIDTH|
00000EE0: 2C 33 30 30 30 2C 0D 10 82 33 2C 50 4C 41 59 2C |,3000,...3,PLAY,|
00000EF0: 4F 46 46 2C 0D 10 82 33 2C 41 54 54 2C 31 2C 0D |OFF,...3,ATT,1,.|
00000F00: 10 82 33 2C 44 45 43 2C 31 32 2C 0D 10 82 33 2C |..3,DEC,12,...3,|
00000F10: 53 55 53 2C 31 32 2C 0D 10 82 33 2C 52 45 4C 2C |SUS,12,...3,REL,|
00000F20: 31 32 2C 0D 10 82 33 2C 46 49 4C 54 2C 4F 4E 2C |12,...3,FILT,ON,|
00000F30: 0D 10 82 33 2C 4E 4F 49 53 45 2C 4F 4E 2C 0D 10 |...3,NOISE,ON,..|
00000F40: 82 33 2C 50 4C 41 59 2C 4F 4E 29 3B 0D E1 28 0D |.3,PLAY,ON);..(.|
00000F50: 10 82 31 2C 46 52 45 51 2C 31 30 30 30 30 2C 0D |..1,FREQ,10000,.|
00000F60: 10 82 31 2C 50 4C 41 59 2C 4F 46 46 2C 0D 10 82 |..1,PLAY,OFF,...|
00000F70: 31 2C 57 49 44 54 48 2C 32 30 34 38 2C 0D 10 82 |1,WIDTH,2048,...|
00000F80: 31 2C 41 54 54 2C 33 2C 0D 10 82 31 2C 44 45 43 |1,ATT,3,...1,DEC|
00000F90: 2C 31 30 2C 0D 10 82 31 2C 53 55 53 2C 31 30 2C |,10,...1,SUS,10,|
00000FA0: 0D 10 82 31 2C 52 45 4C 2C 31 30 2C 0D 10 82 31 |...1,REL,10,...1|
00000FB0: 2C 46 49 4C 54 2C 4F 4E 2C 0D 10 82 31 2C 50 55 |,FILT,ON,...1,PU|
00000FC0: 4C 53 45 2C 4F 46 46 2C 0D 10 82 31 2C 53 59 4E |LSE,OFF,...1,SYN|
00000FD0: 43 2C 4F 46 46 2C 0D 10 82 31 2C 53 41 57 54 2C |C,OFF,...1,SAWT,|
00000FE0: 4F 46 46 2C 0D 10 82 31 2C 54 52 49 2C 4F 46 46 |OFF,...1,TRI,OFF|
00000FF0: 2C 0D 10 82 31 2C 4E 4F 49 53 45 2C 4F 4E 2C 0D |,...1,NOISE,ON,.|
00001000: 10 82 31 2C 50 4C 41 59 2C 4F 4E 29 3B 0D E2 28 |..1,PLAY,ON);..(|
00001010: 0D 10 82 42 4B 5F 47 52 44 2C 52 45 44 2C 42 4F |...BK_GRD,RED,BO|
00001020: 52 44 45 52 2C 52 45 44 29 3B 0D E3 28 44 45 4C |RDER,RED);..(DEL|
00001030: 41 59 2C 35 29 3B 0D AA 28 32 38 35 29 3B 0D E2 |AY,5);..(285);..|
00001040: 28 0D 10 82 42 4B 5F 47 52 44 2C 42 4C 55 45 2C |(...BK_GRD,BLUE,|
00001050: 42 4F 52 44 45 52 2C 42 4C 41 43 4B 29 3B 0D E3 |BORDER,BLACK);..|
00001060: 28 44 45 4C 41 59 2C 35 29 3B 0D AA 28 32 38 35 |(DELAY,5);..(285|
00001070: 29 3B 0D E2 28 0D 10 82 42 4B 5F 47 52 44 2C 52 |);..(...BK_GRD,R|
00001080: 45 44 2C 42 4F 52 44 45 52 2C 52 45 44 29 3B 0D |ED,BORDER,RED);.|
00001090: E3 28 44 45 4C 41 59 2C 35 29 3B 0D AA 28 32 38 |.(DELAY,5);..(28|
000010A0: 35 29 3B 0D E2 28 0D 10 82 42 4B 5F 47 52 44 2C |5);..(...BK_GRD,|
000010B0: 42 4C 55 45 2C 42 4F 52 44 45 52 2C 42 4C 41 43 |BLUE,BORDER,BLAC|
000010C0: 4B 29 3B 0D E1 28 31 2C 20 50 4C 41 59 2C 20 4F |K);..(1, PLAY, O|
000010D0: 46 46 2C 0D 10 87 33 2C 20 50 4C 41 59 2C 20 4F |FF,...3, PLAY, O|
000010E0: 46 46 29 3B 0D 89 3B 0D 0D 86 43 48 45 43 4B 5F |FF);..;...CHECK_|
000010F0: 43 4F 4C 4C 53 4E 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |COLLSN;.(*******|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D |**************).|
00001110: 83 49 20 3A FE 3B 0D 88 0D 9A 49 20 3A 3D 20 32 |.I :.;....I := 2|
00001120: 20 9B 37 20 97 0D 10 82 92 FD 8D 0D 10 84 28 31 | .7 ..........(1|
00001130: 20 8E 28 49 20 2D 20 31 29 29 20 3C 3E 20 30 20 | .(I - 1)) <> 0 |
00001140: 93 0D 10 84 92 F8 28 0D 10 87 EC 28 38 29 20 2D |......(....(8) -|
00001150: 20 EC 28 49 29 29 0D 10 87 3C 20 53 49 5A 45 5B | .(I))...< SIZE[|
00001160: 49 5D 20 93 0D 10 86 88 0D 10 86 44 49 52 5B 49 |I] ........DIR[I|
00001170: 5D 20 3A 3D 20 2D 32 30 3B 0D 10 86 DF 28 49 2C |] := -20;....(I,|
00001180: 0D 10 88 41 43 54 49 56 45 2C 4E 4F 29 3B 0D 10 |...ACTIVE,NO);..|
00001190: 86 45 58 50 4C 4F 53 49 4F 4E 3B 0D 10 86 92 49 |.EXPLOSION;....I|
000011A0: 20 3C 20 35 20 93 0D 10 88 88 0D 10 88 92 4D 4F | < 5 .........MO|
000011B0: 44 45 20 3C 3E 20 44 45 4D 4F 20 93 0D 10 8A 53 |DE <> DEMO ....S|
000011C0: 48 49 50 53 5F 53 55 4E 4B 20 3A 3D 0D 10 8C 53 |HIPS_SUNK :=...S|
000011D0: 48 49 50 53 5F 53 55 4E 4B 20 2B 20 31 3B 0D 10 |HIPS_SUNK + 1;..|
000011E0: 88 47 49 56 45 5F 53 43 4F 52 45 28 50 4F 49 4E |.GIVE_SCORE(POIN|
000011F0: 54 53 5B 49 5D 29 3B 0D 10 88 89 0D 10 86 94 0D |TS[I]);.........|
00001200: 10 88 47 49 56 45 5F 53 43 4F 52 45 28 2D 37 35 |..GIVE_SCORE(-75|
00001210: 29 3B 0D 10 86 89 0D 10 84 94 0D 10 86 F6 28 49 |);............(I|
00001220: 29 3B 0D 4B 49 4C 4C 5F 54 4F 52 50 3B 0D 89 3B |);.KILL_TORP;..;|
00001230: 0D 0D 86 4D 4F 56 45 5F 53 49 47 48 54 3B 0D 28 |...MOVE_SIGHT;.(|
00001240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001250: 2A 2A 2A 29 0D 83 49 2C 4A 2C 4D 4F 56 45 53 2C |***)..I,J,MOVES,|
00001260: 4B 0D 3A FE 3B 0D 88 0D DF 28 31 2C 41 43 54 49 |K.:.;....(1,ACTI|
00001270: 56 45 2C 59 45 53 29 3B 0D 92 4D 4F 44 45 20 3D |VE,YES);..MODE =|
00001280: 20 44 45 4D 4F 20 93 0D 10 82 88 0D 10 82 92 F3 | DEMO ..........|
00001290: 28 31 29 20 3D 20 30 20 93 0D 10 84 88 0D 10 84 |(1) = 0 ........|
000012A0: 49 20 3A 3D 20 EF 3B 0D 10 84 4A 20 3A 3D 20 EC |I := .;...J := .|
000012B0: 28 31 29 3B 0D 10 84 92 49 20 3C 20 4A 20 93 0D |(1);....I < J ..|
000012C0: 10 86 88 0D 10 86 4B 20 3A 3D 20 2D 31 3B 0D 10 |......K := -1;..|
000012D0: 86 4D 4F 56 45 53 20 3A 3D 20 4A 20 2D 20 49 3B |.MOVES := J - I;|
000012E0: 0D 10 86 89 0D 10 84 94 0D 10 86 88 0D 10 86 4B |...............K|
000012F0: 20 3A 3D 20 31 3B 0D 10 86 4D 4F 56 45 53 20 3A | := 1;...MOVES :|
00001300: 3D 20 49 20 2D 20 4A 3B 0D 10 86 89 3B 0D 10 84 |= I - J;....;...|
00001310: F4 28 31 2C EC 28 31 29 2C 0D 10 86 53 49 47 48 |.(1,.(1),...SIGH|
00001320: 54 59 2C 28 4B 20 2A 20 32 35 36 29 2C 30 2C 4D |TY,(K * 256),0,M|
00001330: 4F 56 45 53 29 3B 0D 10 84 89 3B 0D 10 82 89 0D |OVES);....;.....|
00001340: 94 0D 92 ED 28 32 29 8D 38 20 93 50 4F 53 5F 53 |....(2).8 .POS_S|
00001350: 49 47 48 54 3A 3D 50 4F 53 5F 53 49 47 48 54 20 |IGHT:=POS_SIGHT |
00001360: 2B 20 35 3B 0D 92 ED 28 32 29 8D 34 20 93 50 4F |+ 5;...(2).4 .PO|
00001370: 53 5F 53 49 47 48 54 3A 3D 50 4F 53 5F 53 49 47 |S_SIGHT:=POS_SIG|
00001380: 48 54 20 2D 20 35 3B 0D 92 50 4F 53 5F 53 49 47 |HT - 5;..POS_SIG|
00001390: 48 54 20 3E 20 33 32 30 20 93 50 4F 53 5F 53 49 |HT > 320 .POS_SI|
000013A0: 47 48 54 3A 3D 33 32 30 3B 0D 92 50 4F 53 5F 53 |GHT:=320;..POS_S|
000013B0: 49 47 48 54 20 3C 20 30 20 93 50 4F 53 5F 53 49 |IGHT < 0 .POS_SI|
000013C0: 47 48 54 3A 3D 30 3B 0D 10 82 E0 28 31 2C 50 4F |GHT:=0;....(1,PO|
000013D0: 53 5F 53 49 47 48 54 0D 10 93 2C 53 49 47 48 54 |S_SIGHT...,SIGHT|
000013E0: 59 29 3B 0D 89 3B 0D 0D 87 46 49 52 45 5F 54 4F |Y);..;...FIRE_TO|
000013F0: 52 50 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RP;.(***********|
00001400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 92 4D 4F |*********)....MO|
00001410: 44 45 20 3D 20 44 45 4D 4F 20 93 0D 10 82 88 0D |DE = DEMO ......|
00001420: 10 82 54 4F 52 50 5F 44 45 4C 41 59 20 3A 3D 0D |..TORP_DELAY :=.|
00001430: 10 84 54 4F 52 50 5F 44 45 4C 41 59 20 2D 20 31 |..TORP_DELAY - 1|
00001440: 3B 0D 10 82 92 54 4F 52 50 5F 44 45 4C 41 59 20 |;....TORP_DELAY |
00001450: 3D 20 30 20 93 0D 10 84 88 0D 10 84 54 4F 52 50 |= 0 ........TORP|
00001460: 5F 44 45 4C 41 59 20 3A 3D 0D 10 86 32 30 20 2B |_DELAY :=...20 +|
00001470: 20 28 EF 20 8C 31 30 29 3B 0D 10 84 46 49 52 45 | (. .10);...FIRE|
00001480: 5F 54 4F 52 50 20 3A 3D 20 54 52 55 45 3B 0D 10 |_TORP := TRUE;..|
00001490: 84 89 0D 10 82 94 0D 10 84 46 49 52 45 5F 54 4F |.........FIRE_TO|
000014A0: 52 50 20 3A 3D 20 46 41 4C 53 45 3B 0D 10 82 89 |RP := FALSE;....|
000014B0: 0D 94 0D 10 82 46 49 52 45 5F 54 4F 52 50 20 3A |.....FIRE_TORP :|
000014C0: 3D 0D 10 82 28 ED 28 32 29 20 8D 31 36 29 3C 3E |=...(.(2) .16)<>|
000014D0: 30 0D 89 3B 0D 0D 86 53 54 41 52 54 5F 47 41 4D |0..;...START_GAM|
000014E0: 45 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E;.(************|
000014F0: 2A 2A 2A 2A 2A 2A 2A 29 0D 83 49 20 3A FE 3B 0D |*******)..I :.;.|
00001500: 88 0D 4D 49 4E 45 4C 41 4E 45 20 3A 3D 20 37 3B |..MINELANE := 7;|
00001510: 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 |..I := 1 .8 ....|
00001520: 88 0D 10 82 44 49 52 5B 49 5D 20 3A 3D 20 30 3B |....DIR[I] := 0;|
00001530: 10 82 28 2A 49 4E 41 43 54 49 56 45 2A 29 0D 10 |..(*INACTIVE*)..|
00001540: 82 DF 28 49 2C 41 43 54 49 56 45 2C 4E 4F 29 3B |..(I,ACTIVE,NO);|
00001550: 0D 10 82 F5 28 49 29 3B 0D 10 82 89 3B 0D 9A 49 |....(I);....;..I|
00001560: 20 3A 3D 20 31 20 9B 33 20 97 0D 10 82 E1 28 49 | := 1 .3 .....(I|
00001570: 2C 20 50 4C 41 59 2C 20 4F 46 46 29 3B 0D 44 49 |, PLAY, OFF);.DI|
00001580: 52 5B 32 5D 20 3A 3D 20 2D 31 30 3B 0D 44 49 52 |R[2] := -10;.DIR|
00001590: 5B 33 5D 20 3A 3D 20 2D 32 30 3B 0D 44 49 52 5B |[3] := -20;.DIR[|
000015A0: 37 5D 20 3A 3D 20 2D 32 30 3B 0D 92 4D 4F 44 45 |7] := -20;..MODE|
000015B0: 20 3D 20 44 45 4D 4F 20 93 0D 10 82 88 0D 10 82 | = DEMO ........|
000015C0: E2 28 0D 10 84 44 49 53 50 4C 41 59 2C 4F 46 46 |.(...DISPLAY,OFF|
000015D0: 2C 0D 10 84 43 48 41 52 5F 43 4F 4C 2C 52 45 44 |,...CHAR_COL,RED|
000015E0: 2C 0D 10 84 42 4B 5F 47 52 44 2C 52 45 44 2C 0D |,...BK_GRD,RED,.|
000015F0: 10 84 42 4F 52 44 45 52 2C 52 45 44 29 3B 0D 10 |..BORDER,RED);..|
00001600: 82 9D 28 AB 28 43 4C 53 29 29 3B 0D 10 82 E2 28 |..(.(CLS));....(|
00001610: 43 48 41 52 5F 43 4F 4C 2C 57 48 49 54 45 29 3B |CHAR_COL,WHITE);|
00001620: 0D 10 82 9D 28 AB 28 4E 4F 52 4D 41 4C 29 29 3B |....(.(NORMAL));|
00001630: 0D 10 82 A3 28 31 2C 20 31 30 29 3B 0D 10 82 9D |....(1, 10);....|
00001640: 28 22 20 2D 2D 2D 20 D3 55 42 20 C8 55 4E 54 20 |(" --- .UB .UNT |
00001650: 2D 2D 2D 22 29 3B 0D 10 82 A3 28 34 2C 20 31 30 |---");....(4, 10|
00001660: 29 3B 0D 10 82 9D 28 22 20 42 59 20 C7 41 4D 42 |);....(" BY .AMB|
00001670: 49 54 20 C7 41 4D 45 53 22 29 3B 0D 10 82 A3 28 |IT .AMES");....(|
00001680: 37 2C 20 31 30 29 3B 0D 10 82 9D 28 22 9D 9D D5 |7, 10);....("...|
00001690: 53 45 20 CA 4F 59 53 54 49 43 4B 20 49 4E 20 D0 |SE .OYSTICK IN .|
000016A0: 4F 52 54 20 32 22 29 3B 0D 10 82 A3 28 31 31 2C |ORT 2");....(11,|
000016B0: 20 31 30 29 3B 0D 10 82 9D 28 22 D0 52 45 53 53 | 10);....(".RESS|
000016C0: 20 22 22 46 31 22 22 20 54 4F 20 53 54 41 52 54 | ""F1"" TO START|
000016D0: 22 29 3B 0D 10 82 A3 28 31 35 2C 20 32 35 29 3B |");....(15, 25);|
000016E0: 0D 10 82 9D 28 22 20 3D 20 20 22 2C 53 48 49 50 |....(" = ",SHIP|
000016F0: 5F 50 4F 49 4E 54 53 5B 31 5D 2C 0D 10 85 22 20 |_POINTS[1],..." |
00001700: 50 4F 49 4E 54 53 22 29 3B 0D 10 82 A3 28 31 37 |POINTS");....(17|
00001710: 2C 20 32 35 29 3B 0D 10 82 9D 28 22 20 3D 20 20 |, 25);....(" = |
00001720: 22 2C 53 48 49 50 5F 50 4F 49 4E 54 53 5B 35 5D |",SHIP_POINTS[5]|
00001730: 2C 0D 10 85 22 20 50 4F 49 4E 54 53 22 29 3B 0D |,..." POINTS");.|
00001740: 10 82 A3 28 31 39 2C 20 32 35 29 3B 0D 10 82 9D |...(19, 25);....|
00001750: 28 22 20 3D 20 20 22 2C 53 48 49 50 5F 50 4F 49 |(" = ",SHIP_POI|
00001760: 4E 54 53 5B 33 5D 2C 0D 10 85 22 20 50 4F 49 4E |NTS[3],..." POIN|
00001770: 54 53 22 29 3B 0D 10 82 A3 28 32 31 2C 20 32 35 |TS");....(21, 25|
00001780: 29 3B 0D 10 82 9D 28 22 20 3D 20 20 22 2C 28 2D |);....(" = ",(-|
00001790: 37 35 29 2C 0D 10 85 22 20 50 4F 49 4E 54 53 22 |75),..." POINTS"|
000017A0: 29 3B 0D 10 82 E2 28 44 49 53 50 4C 41 59 2C 20 |);....(DISPLAY, |
000017B0: 4F 4E 29 3B 0D 10 82 DF 28 0D 10 84 32 2C 20 43 |ON);....(...2, C|
000017C0: 4F 4C 2C 20 53 48 49 50 5F 43 4F 4C 5B 31 5D 2C |OL, SHIP_COL[1],|
000017D0: 0D 10 84 32 2C 20 50 4F 49 4E 54 2C 20 53 48 49 |...2, POINT, SHI|
000017E0: 50 5F 50 54 52 20 5B 31 5D 2C 0D 10 84 33 2C 20 |P_PTR [1],...3, |
000017F0: 43 4F 4C 2C 20 53 48 49 50 5F 43 4F 4C 5B 33 5D |COL, SHIP_COL[3]|
00001800: 2C 0D 10 84 33 2C 20 50 4F 49 4E 54 2C 20 53 48 |,...3, POINT, SH|
00001810: 49 50 5F 50 54 52 20 5B 33 5D 2C 0D 10 84 34 2C |IP_PTR [3],...4,|
00001820: 20 43 4F 4C 2C 20 53 48 49 50 5F 43 4F 4C 5B 35 | COL, SHIP_COL[5|
00001830: 5D 2C 0D 10 84 34 2C 20 50 4F 49 4E 54 2C 20 53 |],...4, POINT, S|
00001840: 48 49 50 5F 50 54 52 20 5B 35 5D 29 3B 0D 10 82 |HIP_PTR [5]);...|
00001850: F4 28 0D 10 84 32 2C 34 30 2C 31 36 30 2C 28 32 |.(...2,40,160,(2|
00001860: 20 8E 36 29 2C 30 2C 32 34 30 2C 0D 10 84 34 2C | .6),0,240,...4,|
00001870: 34 30 2C 31 37 37 2C 28 32 20 8E 36 29 2C 30 2C |40,177,(2 .6),0,|
00001880: 32 34 30 2C 0D 10 84 33 2C 34 30 2C 31 39 33 2C |240,...3,40,193,|
00001890: 28 32 20 8E 36 29 2C 30 2C 32 34 30 2C 0D 10 84 |(2 .6),0,240,...|
000018A0: 37 2C 34 30 2C 32 30 38 2C 28 32 20 8E 36 29 2C |7,40,208,(2 .6),|
000018B0: 30 2C 32 34 30 29 3B 0D 10 82 47 49 56 45 5F 53 |0,240);...GIVE_S|
000018C0: 43 4F 52 45 20 28 30 29 3B 0D 10 82 44 55 4D 4D |CORE (0);...DUMM|
000018D0: 59 20 3A 3D 20 30 3B 0D 10 82 98 0D 10 84 44 55 |Y := 0;.......DU|
000018E0: 4D 4D 59 20 3A 3D 20 A7 3B 0D 10 82 99 28 44 55 |MMY := .;....(DU|
000018F0: 4D 4D 59 20 3D 20 46 31 29 20 8A 0D 10 84 28 28 |MMY = F1) ....((|
00001900: F3 28 31 29 20 3D 20 30 29 20 8D 0D 10 85 28 F3 |.(1) = 0) ....(.|
00001910: 28 32 29 20 3D 20 30 29 20 8D 0D 10 85 28 F3 28 |(2) = 0) ....(.(|
00001920: 33 29 20 3D 20 30 29 29 3B 0D 10 82 92 44 55 4D |3) = 0));....DUM|
00001930: 4D 59 20 3D 20 46 31 20 93 0D 10 84 4D 4F 44 45 |MY = F1 ....MODE|
00001940: 20 3A 3D 20 44 55 4D 4D 59 0D 10 82 94 0D 10 84 | := DUMMY.......|
00001950: E3 28 44 45 4C 41 59 2C 35 30 29 3B 0D 10 82 DF |.(DELAY,50);....|
00001960: 28 0D 10 84 32 2C 20 41 43 54 49 56 45 2C 20 4E |(...2, ACTIVE, N|
00001970: 4F 2C 0D 10 84 33 2C 20 41 43 54 49 56 45 2C 20 |O,...3, ACTIVE, |
00001980: 4E 4F 2C 0D 10 84 34 2C 20 41 43 54 49 56 45 2C |NO,...4, ACTIVE,|
00001990: 20 4E 4F 2C 0D 10 84 37 2C 20 41 43 54 49 56 45 | NO,...7, ACTIVE|
000019A0: 2C 20 4E 4F 29 3B 0D 10 82 54 4F 52 50 5F 44 45 |, NO);...TORP_DE|
000019B0: 4C 41 59 20 3A 3D 20 32 35 3B 0D 10 82 89 3B 0D |LAY := 25;....;.|
000019C0: 92 4D 4F 44 45 20 3D 20 44 45 4D 4F 20 93 0D 10 |.MODE = DEMO ...|
000019D0: 82 88 0D 10 82 43 4F 55 4E 54 45 52 20 3A 3D 0D |.....COUNTER :=.|
000019E0: 10 84 28 31 30 20 2B 20 28 EF 20 8C 35 29 29 20 |..(10 + (. .5)) |
000019F0: 8E 34 3B 0D 10 82 44 45 4D 4F 5F 43 4E 54 52 20 |.4;...DEMO_CNTR |
00001A00: 3A 3D 20 30 3B 0D 10 82 89 0D 94 0D 10 82 88 0D |:= 0;...........|
00001A10: 10 82 53 48 49 50 53 5F 53 55 4E 4B 20 3A 3D 20 |..SHIPS_SUNK := |
00001A20: 30 3B 0D 10 82 43 4F 55 4E 54 45 52 20 3A 3D 20 |0;...COUNTER := |
00001A30: 31 30 30 20 8E 34 3B 0D 10 82 53 43 4F 52 45 20 |100 .4;...SCORE |
00001A40: 3A 3D 20 30 3B 0D 10 82 89 3B 0D E2 28 0D 10 82 |:= 0;....;..(...|
00001A50: 44 49 53 50 4C 41 59 2C 4F 46 46 2C 0D 10 82 42 |DISPLAY,OFF,...B|
00001A60: 4B 5F 47 52 44 2C 42 4C 55 45 2C 0D 10 82 43 48 |K_GRD,BLUE,...CH|
00001A70: 41 52 5F 43 4F 4C 2C 4C 54 5F 42 4C 55 45 2C 0D |AR_COL,LT_BLUE,.|
00001A80: 10 82 42 4F 52 44 45 52 2C 42 4C 41 43 4B 29 3B |..BORDER,BLACK);|
00001A90: 0D 9D 28 AB 28 43 4C 53 29 29 3B 0D A3 28 31 2C |..(.(CLS));..(1,|
00001AA0: 31 29 3B 0D 9D 28 AB 28 49 4E 56 29 29 3B 0D 9A |1);..(.(INV));..|
00001AB0: 49 20 3A 3D 20 31 20 9B 31 36 30 20 97 0D 10 82 |I := 1 .160 ....|
00001AC0: 9D 28 22 20 22 29 3B 0D 9D 28 AB 28 4E 4F 52 4D |.(" ");..(.(NORM|
00001AD0: 41 4C 29 2C AB 28 35 29 29 3B 0D 47 49 56 45 5F |AL),.(5));.GIVE_|
00001AE0: 53 43 4F 52 45 28 30 29 3B 0D 46 49 52 49 4E 47 |SCORE(0);.FIRING|
00001AF0: 20 3A 3D 20 46 41 4C 53 45 3B 0D DF 28 31 2C 20 | := FALSE;..(1, |
00001B00: 41 43 54 49 56 45 2C 20 59 45 53 29 3B 0D E2 28 |ACTIVE, YES);..(|
00001B10: 44 49 53 50 4C 41 59 2C 4F 4E 29 3B 0D 89 3B 0D |DISPLAY,ON);..;.|
00001B20: 0D 86 53 48 4F 4F 54 5F 53 48 49 50 53 3B 0D 28 |..SHOOT_SHIPS;.(|
00001B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B40: 2A 2A 2A 2A 29 0D 83 49 2C 4A 2C 4B 2C 54 45 4D |****)..I,J,K,TEM|
00001B50: 50 20 3A FE 3B 0D 88 0D 43 4F 55 4E 54 45 52 20 |P :.;...COUNTER |
00001B60: 3A 3D 20 43 4F 55 4E 54 45 52 20 2D 20 31 3B 0D |:= COUNTER - 1;.|
00001B70: 92 28 43 4F 55 4E 54 45 52 20 8D 24 31 46 29 20 |.(COUNTER .$1F) |
00001B80: 3D 20 31 30 20 93 0D 10 82 88 0D 10 82 A3 28 32 |= 10 .........(2|
00001B90: 35 2C 32 38 29 3B 0D 10 82 9D 28 22 D4 49 4D 45 |5,28);....(".IME|
00001BA0: 20 3A 20 22 2C 0D 10 84 28 43 4F 55 4E 54 45 52 | : ",...(COUNTER|
00001BB0: 20 8F 34 29 2C 22 20 20 22 29 3B 0D 10 82 89 3B | .4)," ");....;|
00001BC0: 0D 92 90 46 49 52 49 4E 47 20 93 0D 10 82 4D 4F |...FIRING ....MO|
00001BD0: 56 45 5F 53 49 47 48 54 0D 94 0D 92 28 F3 28 38 |VE_SIGHT....(.(8|
00001BE0: 29 20 3D 20 30 29 20 8D 0D 10 83 28 90 FD 29 20 |) = 0) ....(..) |
00001BF0: 93 0D 10 82 4B 49 4C 4C 5F 54 4F 52 50 3B 0D 92 |....KILL_TORP;..|
00001C00: 46 49 52 45 5F 54 4F 52 50 20 8D 28 90 46 49 52 |FIRE_TORP .(.FIR|
00001C10: 49 4E 47 29 0D 10 83 93 0D 10 82 88 0D 10 82 58 |ING)...........X|
00001C20: 49 4E 43 5B 38 5D 20 3A 3D 0D 10 84 28 28 EC 28 |INC[8] :=...((.(|
00001C30: 31 29 20 2D 20 31 36 30 29 20 8E 38 29 0D 10 84 |1) - 160) .8)...|
00001C40: 2F 20 28 32 34 34 20 2D 20 53 49 47 48 54 59 29 |/ (244 - SIGHTY)|
00001C50: 3B 0D 10 82 92 58 49 4E 43 5B 38 5D 20 3C 20 2D |;....XINC[8] < -|
00001C60: 37 30 20 93 0D 10 84 49 20 3A 3D 20 31 33 37 0D |70 ....I := 137.|
00001C70: 10 82 94 0D 10 82 92 58 49 4E 43 5B 38 5D 20 3C |.......XINC[8] <|
00001C80: 20 2D 32 35 20 93 0D 10 84 49 20 3A 3D 20 31 33 | -25 ....I := 13|
00001C90: 38 0D 10 82 94 0D 10 84 88 0D 10 84 49 20 3A 3D |8...........I :=|
00001CA0: 20 31 32 39 3B 0D 10 84 92 58 49 4E 43 5B 38 5D | 129;....XINC[8]|
00001CB0: 20 3E 20 32 35 20 93 0D 10 86 49 20 3A 3D 20 31 | > 25 ....I := 1|
00001CC0: 33 39 0D 10 84 94 0D 10 84 92 58 49 4E 43 5B 38 |39........XINC[8|
00001CD0: 5D 20 3E 20 37 30 20 93 0D 10 86 49 20 3A 3D 20 |] > 70 ....I := |
00001CE0: 31 34 30 3B 0D 10 84 89 3B 0D 10 82 DF 28 31 2C |140;....;....(1,|
00001CF0: 41 43 54 49 56 45 2C 4E 4F 29 3B 0D 10 82 DF 28 |ACTIVE,NO);....(|
00001D00: 38 2C 50 4F 49 4E 54 2C 49 29 3B 0D 10 82 AD 28 |8,POINT,I);....(|
00001D10: 24 38 30 29 3B 0D 10 82 F4 28 38 2C 31 37 32 2C |$80);....(8,172,|
00001D20: 32 36 35 2C 0D 10 84 58 49 4E 43 5B 38 5D 2C 2D |265,...XINC[8],-|
00001D30: 33 36 30 2C 28 32 30 30 20 2D 20 53 49 47 48 54 |360,(200 - SIGHT|
00001D40: 59 29 29 3B 0D 10 82 46 49 52 49 4E 47 20 3A 3D |Y));...FIRING :=|
00001D50: 20 54 52 55 45 3B 0D 10 82 44 49 52 5B 38 5D 20 | TRUE;...DIR[8] |
00001D60: 3A 3D 20 33 3B 0D 10 82 E3 28 0D 10 84 46 49 4C |:= 3;....(...FIL|
00001D70: 54 46 52 45 51 2C 31 30 30 30 30 2C 0D 10 84 52 |TFREQ,10000,...R|
00001D80: 45 53 4F 4E 41 4E 43 45 2C 31 35 2C 0D 10 84 4C |ESONANCE,15,...L|
00001D90: 4F 57 50 41 53 53 2C 4F 46 46 2C 0D 10 84 48 49 |OWPASS,OFF,...HI|
00001DA0: 47 48 50 41 53 53 2C 4F 4E 29 3B 0D 10 82 E1 28 |GHPASS,ON);....(|
00001DB0: 0D 10 84 33 2C 46 52 45 51 2C 36 34 30 30 30 2C |...3,FREQ,64000,|
00001DC0: 0D 10 84 33 2C 50 4C 41 59 2C 4F 46 46 2C 0D 10 |...3,PLAY,OFF,..|
00001DD0: 84 33 2C 41 54 54 2C 34 2C 0D 10 84 33 2C 44 45 |.3,ATT,4,...3,DE|
00001DE0: 43 2C 31 34 2C 0D 10 84 33 2C 53 55 53 2C 32 2C |C,14,...3,SUS,2,|
00001DF0: 0D 10 84 33 2C 52 45 4C 2C 33 2C 0D 10 84 33 2C |...3,REL,3,...3,|
00001E00: 46 49 4C 54 2C 4F 4E 2C 0D 10 84 33 2C 4E 4F 49 |FILT,ON,...3,NOI|
00001E10: 53 45 2C 4F 4E 2C 0D 10 84 33 2C 50 4C 41 59 2C |SE,ON,...3,PLAY,|
00001E20: 4F 4E 29 3B 0D 10 82 89 3B 0D 28 2A 20 4D 4F 56 |ON);....;.(* MOV|
00001E30: 45 20 53 48 49 50 53 20 2A 29 0D 9A 49 20 3A 3D |E SHIPS *)..I :=|
00001E40: 20 32 20 9B 37 20 97 0D 10 82 92 44 49 52 5B 49 | 2 .7 .....DIR[I|
00001E50: 5D 20 3C 20 30 20 93 0D 10 84 44 49 52 5B 49 5D |] < 0 ....DIR[I]|
00001E60: 20 3A 3D 0D 10 86 44 49 52 5B 49 5D 20 2B 20 31 | :=...DIR[I] + 1|
00001E70: 0D 10 82 94 0D 10 82 92 44 49 52 5B 49 5D 20 3E |........DIR[I] >|
00001E80: 20 30 20 93 0D 10 84 92 F3 28 49 29 20 3D 20 30 | 0 ......(I) = 0|
00001E90: 20 93 0D 10 84 92 90 FD 93 0D 10 84 88 0D 10 86 | ...............|
00001EA0: DF 28 49 2C 20 41 43 54 49 56 45 2C 20 4E 4F 29 |.(I, ACTIVE, NO)|
00001EB0: 3B 0D 10 86 44 49 52 5B 49 5D 20 3A 3D 20 30 3B |;...DIR[I] := 0;|
00001EC0: 0D 10 84 89 3B 0D 92 46 49 52 49 4E 47 20 93 0D |....;..FIRING ..|
00001ED0: 10 82 92 FD 93 0D 10 85 43 48 45 43 4B 5F 43 4F |........CHECK_CO|
00001EE0: 4C 4C 53 4E 3B 0D 9A 49 20 3A 3D 20 32 20 9B 34 |LLSN;..I := 2 .4|
00001EF0: 20 2B 20 28 53 43 4F 52 45 20 3E 3D 20 31 30 30 | + (SCORE >= 100|
00001F00: 30 29 0D 10 90 2B 20 28 53 43 4F 52 45 20 3E 3D |0)...+ (SCORE >=|
00001F10: 20 33 30 30 30 29 0D 10 90 2B 20 28 53 43 4F 52 | 3000)...+ (SCOR|
00001F20: 45 20 3E 3D 20 35 30 30 30 29 0D 10 90 97 0D 10 |E >= 5000)......|
00001F30: 82 92 44 49 52 5B 49 5D 20 3D 20 30 20 93 0D 10 |..DIR[I] = 0 ...|
00001F40: 84 88 0D 10 84 53 48 49 50 20 3A 3D 20 28 EF 20 |.....SHIP := (. |
00001F50: 8C 36 29 20 2B 20 31 3B 0D 10 84 4A 20 3A 3D 20 |.6) + 1;...J := |
00001F60: 38 20 2D 20 28 20 28 28 49 20 2D 20 31 29 20 2A |8 - ( ((I - 1) *|
00001F70: 20 32 29 20 2B 0D 10 8B 28 EF 20 8C 32 29 20 29 | 2) +...(. .2) )|
00001F80: 3B 0D 10 84 44 49 52 5B 49 5D 20 3A 3D 20 53 48 |;...DIR[I] := SH|
00001F90: 49 50 5F 44 49 52 5B 53 48 49 50 5D 3B 0D 10 84 |IP_DIR[SHIP];...|
00001FA0: 92 49 20 3E 20 34 20 93 0D 10 86 88 0D 10 86 50 |.I > 4 ........P|
00001FB0: 4F 49 4E 54 53 20 5B 49 5D 20 3A 3D 20 2D 37 35 |OINTS [I] := -75|
00001FC0: 3B 0D 10 86 4D 49 4E 45 4C 41 4E 45 20 3A 3D 20 |;...MINELANE := |
00001FD0: 4D 49 4E 45 4C 41 4E 45 20 2B 20 31 3B 0D 10 86 |MINELANE + 1;...|
00001FE0: 92 4D 49 4E 45 4C 41 4E 45 20 3E 20 31 30 20 93 |.MINELANE > 10 .|
00001FF0: 0D 10 88 4D 49 4E 45 4C 41 4E 45 20 3A 3D 20 37 |...MINELANE := 7|
00002000: 3B 0D 10 86 53 49 5A 45 20 5B 49 5D 20 3A 3D 20 |;...SIZE [I] := |
00002010: 31 30 30 3B 0D 10 86 DF 28 49 2C 41 43 54 49 56 |100;....(I,ACTIV|
00002020: 45 2C 59 45 53 29 3B 0D 10 86 4A 20 3A 3D 20 53 |E,YES);...J := S|
00002030: 48 49 50 58 49 4E 43 5B 53 48 49 50 5D 20 8F 32 |HIPXINC[SHIP] .2|
00002040: 3B 0D 10 86 F4 28 49 2C 0D 10 88 53 48 49 50 58 |;....(I,...SHIPX|
00002050: 5B 53 48 49 50 5D 2C 0D 10 88 4C 41 4E 45 59 5B |[SHIP],...LANEY[|
00002060: 4D 49 4E 45 4C 41 4E 45 5D 2C 0D 10 88 4A 2C 30 |MINELANE],...J,0|
00002070: 2C 28 28 33 35 30 20 8E 38 29 20 2F 20 4A 29 29 |,((350 .8) / J))|
00002080: 3B 0D 10 86 89 0D 10 84 94 0D 10 86 88 0D 10 86 |;...............|
00002090: 50 4F 49 4E 54 53 5B 49 5D 20 3A 3D 20 53 48 49 |POINTS[I] := SHI|
000020A0: 50 5F 50 4F 49 4E 54 53 5B 53 48 49 50 5D 3B 0D |P_POINTS[SHIP];.|
000020B0: 10 86 53 49 5A 45 5B 49 5D 20 3A 3D 20 53 48 49 |..SIZE[I] := SHI|
000020C0: 50 5F 53 49 5A 45 5B 53 48 49 50 5D 3B 0D 10 86 |P_SIZE[SHIP];...|
000020D0: DF 28 49 2C 0D 10 88 43 4F 4C 2C 53 48 49 50 5F |.(I,...COL,SHIP_|
000020E0: 43 4F 4C 5B 53 48 49 50 5D 2C 0D 10 88 49 2C 50 |COL[SHIP],...I,P|
000020F0: 4F 49 4E 54 2C 53 48 49 50 5F 50 54 52 5B 53 48 |OINT,SHIP_PTR[SH|
00002100: 49 50 5D 29 3B 0D 10 86 F4 28 49 2C 0D 10 88 53 |IP]);....(I,...S|
00002110: 48 49 50 58 5B 53 48 49 50 5D 2C 4C 41 4E 45 59 |HIPX[SHIP],LANEY|
00002120: 5B 4A 5D 2C 0D 10 88 53 48 49 50 58 49 4E 43 5B |[J],...SHIPXINC[|
00002130: 53 48 49 50 5D 2C 30 2C 0D 10 88 28 28 33 35 30 |SHIP],0,...((350|
00002140: 20 8E 38 29 20 2F 20 F8 28 53 48 49 50 58 49 4E | .8) / .(SHIPXIN|
00002150: 43 5B 53 48 49 50 5D 29 29 29 3B 0D 10 86 89 3B |C[SHIP])));....;|
00002160: 0D 10 84 89 3B 0D 44 55 4D 4D 59 20 3A 3D 20 30 |....;.DUMMY := 0|
00002170: 3B 0D 92 4D 4F 44 45 20 3D 20 44 45 4D 4F 20 93 |;..MODE = DEMO .|
00002180: 0D 10 82 44 55 4D 4D 59 20 3A 3D 20 A7 3B 0D 89 |...DUMMY := .;..|
00002190: 3B 0D 0D 86 47 41 4D 45 3B 0D 28 2A 2A 2A 2A 2A |;...GAME;.(*****|
000021A0: 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 53 54 41 52 |********)...STAR|
000021B0: 54 5F 47 41 4D 45 3B 0D 98 0D 10 82 53 48 4F 4F |T_GAME;.....SHOO|
000021C0: 54 5F 53 48 49 50 53 0D 99 0D 10 82 28 53 43 4F |T_SHIPS.....(SCO|
000021D0: 52 45 20 3C 20 30 29 20 8A 0D 10 82 28 43 4F 55 |RE < 0) ....(COU|
000021E0: 4E 54 45 52 20 8F 34 20 3D 20 30 29 20 8A 0D 10 |NTER .4 = 0) ...|
000021F0: 82 28 44 55 4D 4D 59 20 3D 20 46 31 29 3B 0D 92 |.(DUMMY = F1);..|
00002200: 4D 4F 44 45 20 3D 20 44 45 4D 4F 20 93 0D 10 82 |MODE = DEMO ....|
00002210: 92 44 55 4D 4D 59 20 3D 20 46 31 20 93 0D 10 84 |.DUMMY = F1 ....|
00002220: 4D 4F 44 45 20 3A 3D 20 46 31 0D 10 82 94 0D 94 |MODE := F1......|
00002230: 0D 10 82 4D 4F 44 45 20 3A 3D 20 44 45 4D 4F 3B |...MODE := DEMO;|
00002240: 0D 89 3B 0D 0D 0D 88 28 2A 20 4D 41 49 4E 20 50 |..;....(* MAIN P|
00002250: 52 4F 47 52 41 4D 20 2A 29 0D 49 4E 49 54 3B 0D |ROGRAM *).INIT;.|
00002260: 4D 4F 44 45 20 3A 3D 20 44 45 4D 4F 3B 0D 98 0D |MODE := DEMO;...|
00002270: 10 82 47 41 4D 45 0D 99 46 41 4C 53 45 0D 89 2E |..GAME..FALSE...|
00002280: 0D 00 00 59 |...Y |
.@(* 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;.CLS
= 147;.CR = 13;.INV = 18;.NORMAL = 146;.
DEMO = 0;.COL = 1;.POINT = 2;.EXP_X = 4;
.EXP_Y = 5;.ACTIVE = 7;.BORDER = 11;.BK_
GRD = 12;.CHAR_COL = 10;.DISPLAY = 6;..B
LACK = 0;.WHITE = 1;.RED = 2;.CYAN = 3;.
GREEN = 5;.BLUE = 6;.YELLOW = 7;.ORANGE
= 8;.BROWN = 9;.PINK = 10;.LT_BLUE = 14;
.GREY3 = 15;..FREQ = 1;.WIDTH = 2;.FILT
= 3;.ATT = 4;.DEC = 5;.SUS = 6;.REL = 7;
.PLAY = 8;.SYNC = 9;.TRI = 11;.SAWT = 12
;.PULSE = 13;.NOISE = 14;.TEST = 15;..FI
LTFREQ = 2;.DELAY = 3;.VOL = 4;.RESONANC
E = 5;.LOWPASS = 6;.BANDPASS = 7;.HIGHPA
SS = 8;..F1 = 133;......XINC,YINC,POINTS
,.DIR,SIZE. : .[8] ..;..SHIPX,SHIPXINC,.
SHIP_POINTS,SHIP_DIR,.SHIP_SIZE,.SHIP_PT
R,.SHIP_COL. : .[10] ..;..FIRING,.LOW_MI
NE,.TORP_DELAY,.MINELANE,.DEMO_CNTR,.DEM
O_INC,.SHIPS_SUNK,.SHIP,.SCORE,.MODE,.HI
SCORE,.COUNTER,.SIGHTY,POS_SIGHT. : .;..
DUMMY.:.;..LANEY : .[10] ..;.....KILL_TO
RP;.(*********************)....(8,ACTIVE
,NO);.FIRING := FALSE;.YINC[8] := 0;..(3
,PLAY,OFF);..(0);..;...GIVE_SCORE(I);.(*
*********************)....MODE <> DEMO .
.......SCORE := SCORE + I;....SCORE > HI
SCORE ....HISCORE := SCORE;....;..(24,1)
;..("SCORE : ",SCORE," ");..(24,28);
..("SUNK : ",SHIPS_SUNK," ");..(25,1);.
.("HIGH SCORE : ",...HISCORE);..;...INIT
;.(*************)..I : .;...SET_SHIP(A,B
,C,D,E,F,G);.(*-------------------------
----*)...SHIPX[I] := A;.SHIPXINC[I] := B
.6;.SHIP_POINTS[I] := C;.SHIP_COL[I] :=
D;.SHIP_DIR[I] := E;.SHIP_SIZE[I] := F;
.SHIP_PTR[I] := G;.I := I + 1;..;....(*
SIGHT .DEFINITION *)..(128,...$1000,$100
0,$1000,$1000,...$1000,$1000,0,0,...0,0,
$7E00FC,0,0,...0,0,$1000,$1000,...$1000,
$1000,$1000,$1000);.(* SHIP .DEFINITIONS
*)..(130,...$038000,$038000,$038000,$1F
FF80,...$FFFFFF,$7FFFFE,$3FFFF8,$1FFFE0)
;..(131,...$0001C0,$0001C0,$0031C0,$01FF
F8,...$FFFFFF,$7FFFFE,$1FFFFC,$07FFF8);.
.(132,...$0C00,$0C00,$1F00,$FFFE,...$7FF
C,$3FF0);..(133,...$0030,$0030,$00F8,$7F
FF,...$3FFE,$0FFC);..(134,...$0C000,$1E1
00,$1E380,$FFFFF,...$7FFFE,$3FFF8);..(13
5,...$00030,$00878,$01C78,$FFFFF,...$7FF
FE,$1FFFC);..(136,...$000C00,$000C00,$01
3F10,$03FFF0,...$01FFE0,$03FFF0,$07FFF8,
$1FFFFE,...$1FFFFE,$0FFFFC);.(* TORP .DE
FINITIONS *)..(129,...$1000,$3800,$3800,
$3800,...$3800,$3800,$3800,$3800,...$380
0,$3800);..(137,...$3000,$3800,$3800,$1C
00,...$1C00,$0E00,$0E00,$0700,...$0700);
..(138,...$1000,$3800,$3800,$3C00,...$1C
00,$1C00,$1E00,$0E00,...$0E00);..(139,..
.$1000,$3800,$3800,$7800,...$7000,$7000,
$F000,$E000,...$E000);..(140,...$03000,$
07000,$07000,$0E000,...$0E000,$1C000,$1C
000,$03800,...$03800);..SIGHTY := 62;..(
...1,COL,WHITE,...1,EXP_X,YES,...1,EXP_Y
,YES,...1,POINT,128,...1,ACTIVE,YES,...2
,EXP_X,YES,...3,EXP_X,YES,...4,EXP_X,YES
,...5,COL,BLACK,...5,EXP_X,YES,...5,POIN
T,136,...6,COL,BLACK,...6,EXP_X,YES,...6
,POINT,136,...7,COL,BLACK,...7,EXP_X,YES
,...7,POINT,136,...8,COL,LT_BLUE);..(VOL
,15);..(...2,FREQ,12700,...2,WIDTH,1000,
...2,DEC,10,...2,REL,8,...2,TRI,ON);..(.
..3,FREQ,64000,...3,NOISE,ON);..KILL_TOR
P;.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,32,1
33);.SET_SHIP...(0,4,200,ORANGE,1,42,134
);.SET_SHIP...(350,-4,200,CYAN,2,42,135)
;..LANEY[1] := 78;.LANEY[2] := 82;.LANEY
[3] := 86;.LANEY[4] := 90;.LANEY[5] := 9
4;.LANEY[6] := 98;.LANEY[7] := 140;.LANE
Y[8] := 160;.LANEY[9] := 180;.LANEY[10]
:= 200;..SCORE := 0;.HISCORE := 0;.SHIPS
_SUNK := 0;..(DISPLAY,YES);..;....EXPLOS
ION;.(******************)..I :.;....(...
FILTFREQ,1000,...LOWPASS,ON,...HIGHPASS,
OFF,...RESONANCE,15);..(...3,FREQ,400,..
.3,WIDTH,3000,...3,PLAY,OFF,...3,ATT,1,.
..3,DEC,12,...3,SUS,12,...3,REL,12,...3,
FILT,ON,...3,NOISE,ON,...3,PLAY,ON);..(.
..1,FREQ,10000,...1,PLAY,OFF,...1,WIDTH,
2048,...1,ATT,3,...1,DEC,10,...1,SUS,10,
...1,REL,10,...1,FILT,ON,...1,PULSE,OFF,
...1,SYNC,OFF,...1,SAWT,OFF,...1,TRI,OFF
,...1,NOISE,ON,...1,PLAY,ON);..(...BK_GR
D,RED,BORDER,RED);..(DELAY,5);..(285);..
(...BK_GRD,BLUE,BORDER,BLACK);..(DELAY,5
);..(285);..(...BK_GRD,RED,BORDER,RED);.
.(DELAY,5);..(285);..(...BK_GRD,BLUE,BOR
DER,BLACK);..(1, PLAY, OFF,...3, PLAY, O
FF);..;...CHECK_COLLSN;.(***************
******)..I :.;....I := 2 .7 ..........(1
.(I - 1)) <> 0 ......(....(8) - .(I))..
.< SIZE[I] ........DIR[I] := -20;....(I,
...ACTIVE,NO);...EXPLOSION;....I < 5 ...
......MODE <> DEMO ....SHIPS_SUNK :=...S
HIPS_SUNK + 1;...GIVE_SCORE(POINTS[I]);.
..........GIVE_SCORE(-75);............(I
);.KILL_TORP;..;...MOVE_SIGHT;.(********
***********)..I,J,MOVES,K.:.;....(1,ACTI
VE,YES);..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);..
..;.........(2).8 .POS_SIGHT:=POS_SIGHT
+ 5;...(2).4 .POS_SIGHT:=POS_SIGHT - 5;.
.POS_SIGHT > 320 .POS_SIGHT:=320;..POS_S
IGHT < 0 .POS_SIGHT:=0;....(1,POS_SIGHT.
..,SIGHTY);..;...FIRE_TORP;.(***********
*********)....MODE = DEMO ........TORP_D
ELAY :=...TORP_DELAY - 1;....TORP_DELAY
= 0 ........TORP_DELAY :=...20 + (. .10)
;...FIRE_TORP := TRUE;...........FIRE_TO
RP := FALSE;.........FIRE_TORP :=...(.(2
) .16)<>0..;...START_GAME;.(************
*******)..I :.;...MINELANE := 7;..I := 1
.8 ........DIR[I] := 0;..(*INACTIVE*)..
..(I,ACTIVE,NO);....(I);....;..I := 1 .3
.....(I, PLAY, OFF);.DIR[2] := -10;.DIR
[3] := -20;.DIR[7] := -20;..MODE = DEMO
.........(...DISPLAY,OFF,...CHAR_COL,RED
,...BK_GRD,RED,...BORDER,RED);....(.(CLS
));....(CHAR_COL,WHITE);....(.(NORMAL));
....(1, 10);....(" --- SUB HUNT ---");..
..(4, 10);....(" BY GAMBIT GAMES");....(
7, 10);....("..USE JOYSTICK IN PORT 2");
....(11, 10);....("PRESS ""F1"" TO START
");....(15, 25);....(" = ",SHIP_POINTS[
1],..." POINTS");....(17, 25);....(" =
",SHIP_POINTS[5],..." POINTS");....(19,
25);....(" = ",SHIP_POINTS[3],..." POIN
TS");....(21, 25);....(" = ",(-75),..."
POINTS");....(DISPLAY, ON);....(...2, C
OL, SHIP_COL[1],...2, POINT, SHIP_PTR [1
],...3, COL, SHIP_COL[3],...3, POINT, SH
IP_PTR [3],...4, COL, SHIP_COL[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,208,(2 .6),
0,240);...GIVE_SCORE (0);...DUMMY := 0;.
......DUMMY := .;....(DUMMY = F1) ....((
.(1) = 0) ....(.(2) = 0) ....(.(3) = 0))
;....DUMMY = F1 ....MODE := DUMMY.......
.(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,...BK_GRD,BL
UE,...CHAR_COL,LT_BLUE,...BORDER,BLACK);
..(.(CLS));..(1,1);..(.(INV));..I := 1 .
160 .....(" ");..(.(NORMAL),.(5));.GIVE_
SCORE(0);.FIRING := FALSE;..(1, ACTIVE,
YES);..(DISPLAY,ON);..;...SHOOT_SHIPS;.(
********************)..I,J,K,TEMP :.;...
COUNTER := COUNTER - 1;..(COUNTER .$1F)
= 10 .........(25,28);....("TIME : ",...
(COUNTER .4)," ");....;...FIRING ....MO
VE_SIGHT....(.(8) = 0) ....(..) ....KILL
_TORP;..FIRE_TORP .(.FIRING)...........X
INC[8] :=...((.(1) - 160) .8).../ (244 -
SIGHTY);....XINC[8] < -70 ....I := 137.
.......XINC[8] < -25 ....I := 138.......
....I := 129;....XINC[8] > 25 ....I := 1
39........XINC[8] > 70 ....I := 140;....
;....(1,ACTIVE,NO);....(8,POINT,I);....(
$80);....(8,172,265,...XINC[8],-360,(200
- SIGHTY));...FIRING := TRUE;...DIR[8]
:= 3;....(...FILTFREQ,10000,...RESONANCE
,15,...LOWPASS,OFF,...HIGHPASS,ON);....(
...3,FREQ,64000,...3,PLAY,OFF,...3,ATT,4
,...3,DEC,14,...3,SUS,2,...3,REL,3,...3,
FILT,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);...DIR[I] := 0;....;..F
IRING ..........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] := SH
IP_DIR[SHIP];....I > 4 ........POINTS [I
] := -75;...MINELANE := MINELANE + 1;...
.MINELANE > 10 ....MINELANE := 7;...SIZE
[I] := 100;....(I,ACTIVE,YES);...J := S
HIPXINC[SHIP] .2;....(I,...SHIPX[SHIP],.
..LANEY[MINELANE],...J,0,((350 .8) / J))
;...............POINTS[I] := SHIP_POINTS
[SHIP];...SIZE[I] := SHIP_SIZE[SHIP];...
.(I,...COL,SHIP_COL[SHIP],...I,POINT,SHI
P_PTR[SHIP]);....(I,...SHIPX[SHIP],LANEY
[J],...SHIPXINC[SHIP],0,...((350 .8) / .
(SHIPXINC[SHIP])));....;....;.DUMMY := 0
;..MODE = DEMO ....DUMMY := .;..;...GAME
;.(*************)...START_GAME;.....SHOO
T_SHIPS.....(SCORE < 0) ....(COUNTER .4
= 0) ....(DUMMY = F1);..MODE = DEMO ....
.DUMMY = F1 ....MODE := F1.........MODE
:= DEMO;..;....(* MAIN PROGRAM *).INIT;.
MODE := DEMO;.....GAME..FALSE......Y
> CLICK IMAGE PREVIEW FOR FULL MODAL