I "FORI = ITO 12:FQR11 = ITOi 2:?CS (11,1) ; : NE X T11:?:NEX TI 5 CLEAR200:COLOR1,4,7:SCREEN2,2 II KB = 4:KC=1:DIMD2$(7),N2$ (7) ,L2$<7) , T2$i7,4S,T3$(144),CM(16,16) , CS ! 16,16 i ,SL(16,16),KD(7),SI(12,12) 12 RESTORE50100: FQF: I = 1T07: FlEADRE: KD (I !=RE:NEXTI:FORI=0TO351:READRE:VPOKE14 336+1, RE:NEXT 13 F0RI=2T095:VP0KE146S8 + 1,0:NEXT 14 RESTORE50200:FOR1=01095:READRE:VPO KEI 4784 + 1 ,RE:NEXI 15 0OSU81800 16 SOSUB530 25 CLS:LINE(16,16)-(112,112) ,15,BF:LI NE (152,16)-<248,1 12),15,BF 30 FORI=24TQ104STEP8 40 LINE(16,1)-(112,1),7:LINE(152,1)-( 248,1),7:NEXT 68 F O RI = 1 ó T 010 4 S T E F' 8 70 LINEXI, 165 - (I,112),7:NEXT:FORI = 160 T O 2 4 0 S T E P S:LIN E(I,1Ó)-(I,112),7:NEXT 88 ' 98 PRESET (17,6):PRINT#!,"ABCDEFGHIJKL H 120 PRESET(153,6):PRINTttl,HABCDEF6HIJ KL" 140 FORI=8TO100STEP8 160 PRESET (115, 1 + 10):PRINT#1 ,I\S:NEXT 173 PRESET(178,123):PRINTil,"V/H" 180 PRESET(214,123):PRINT#!,"L N" 190 PRESET(8,134):PRINT#1,"Viegtuigma edersch i p" 210 PRESET(8,142):PRINT#!,"Kruiser H 230 PRESET(8,150):PR INT#1,"Kruiser 1! 250 PRESET(8,158):PRINTil /'Onderzeer !! 270 PRESET(8,1665:PRINT#!,"Onderzeer IS 290 PRESET(8,174):PRINT#!,"Torpedoboo t 310 PRESET(8,182):PRINT#1,"Tarpedoboo t 312 FOR Y =1T07 319 IFY>5THENPRESET(186,126+(8*Y)):PR INT#!,"-":GOTO 370 320 D1 $(Y) ="":IN$ ="":IN$ = INKEY$:IFINf = "11T Fi E N 3 2 0 E L S EIFIN $ =" H" 0 RIN $ =" V" T H E N 3 40ELSE320 340 Dit(Y)= IN$:PRESET(186,126+ (B*Y>): PRINT#!,IN $ 350 IN$="":IN$ = INKEY$:IFIN$ =""THEN350 ELSEIFINKC'HR*(13)THEN370 360 IFIN$ = CHRK8)THENC0L0R7:PRESET (iB 6,12 6 + (8 * Y)):PRINT#!,"|":COLORi:GOTO 320ELSE6OTO 358 370 L1$(Y)="":IN$=INKEY$:IFIN$=""THEN 370ELSEIFASC(IN$)>64ANDASCUNS)<77THE N G O T O 3 9 8 E L S E G O T O 3 7 0 390 PRESET(214,126+<8*Y)):PRINT#!,INI : L1KY) = I Nf 400 IN $ ="":IN$=INKEY$:IFIN$=""THEN480 ELSEIFI N$=CHR$(13)THENGOTQ420 410 IFIN$=CHR$(85 THENCQL0R7:PRESET(21 4,126+(8*Y)):PRINT#!,"1":COLOR1:GOTO3 78ELBEGOTO480 420 Nl$(Y)="":INKINKEYKIFIN$=""THEN 420ELSEIFVAL(INI) = >1ANDVAL(INI)=<9THE N425ELSE428 425 N1KY)=IN* 430 PRESET(238,126+(B*Y>):PRINT#1,N1* (Y) 440 IN$ ="11: IN$=INKEY$: IFIN$ =""THEN440 ELSEI FI N$=CHRt(13)THEN495 450 IFIN$=CHRK8)THENCÜL0R7:PRESET(23 8,126+ <8*Y)!:PRINT#!,"1":COLOR1:GOTO4 20ELSEGOTD 468 468 IFASCdNK=>48ANDASC(INI)=<50ANDV AL (N1KY))=!THEN470ELSE440 478 N1 $(Y)=N1$(Y)+1H$:C0L0R7:PRESET(2 38, 126+(8*Y)):PR I NT#1,"1":COLOR1:PRES ET(230,126+(8*Y)):PR I NT#1,NiKY) 480 IN$=H":IN$=INKEYf:IFIN$=""THEN480 ELSEI FIN$ = CHR$(13)THEN495 490 IFINKCHRf(8)THENC0L0R7:PRESET(23 0,126+ (B*Y)) : PRINT# 1, " ü": COLOR 1: NIK Y)=LEFT$ (N1KY) , 1) : SOTO430ELSE4B8 495 X X (Y) = ASC (L1K Y) i -65: YY < Y! =VAL (N1 $ (Y) ) 496 V1=272 + 256*YY (Y)+8*XX(Y) 500 IFSlf(Y)="V"THENONYGOSUB10800,101 00,18100,10388,10300ELSEONYGOSUB10058 ,10150,10150,10350,10350,10508,10500 510 NEXT Y 515 LI NE(0,192!-(255,1 17),7,BF:COLOR1 :SQTQ670 530 FORY=lT07 535 FORI=0TOINT(RND(-TIME)*58):NEXT 540 IFY>5THEN560 550 RN=INT(RND(-TIME)*2):IFRN=0THEND2 = 1 568 L2=INT(RND(-TIME)*12)+1:N2=INT(RN D(-TIME)*12)+1 578 IFD2=1THENGOSUB600ELSEGOSUB610 580 NEXTY:RETURN 600 IFN2>9+Y\2THENY=Y-1:RETURNELSEGOS UB45010:RETURN 610 IFL2>9+Y\2THENY=Y-1:RETURNELSEGOS UB45020:RETURN 670 IFINT (RND (TIME) *2)= 1THEN700ELSE80 0 700 IFCC$ = "C!'ORGH=lTHENGuSUB45480 710 KF = 0:KG=0:3G=1:DS = 1:L3=INT(RND(TI ME) *12) +1:N3=I NT(RND(TI ME i * 12)+1: IFSL !L3,N3)< >8THEN718 711 GOSUB62000 720 IFKE=0THEN735 730 FORI = 1T07: IFKD(I)=KETHENKD(I)=0:G 0T0731ELSENEXTI 731 FOR I=7T01STEP-1:IFKD(I)>0THENKC = K D ! I):G0TQ735ELSENEXTI 735 KE = 0:PRESET (30,15*8):PR I NT# 1 ," I k kies : ";CHR$(L3 + 64);N3 740 IFCM(L3,N3)=0THEN760ELSEKA=KA+i:C C $ =" C": Z X = Z X +1: L 6=L 3: L 4=L 3: N 6=N 3: N 4=N 3: S L (L 3 , N 3) = 2 750 GH=0:VPQKE6913,4+8*L3:VPOKE6912,i 92:VP0KE6915,12:ST=(19 2-4-N 3 * 8 i7 56:CS =192:GOSUB55800:IFZX=16THEN60080 755 C0L0R7:PRESET(30,15*8):PRINT#1, "Ë IfliiiilillilliSlii":COLOR1:GOTO 700 768 CC$="":SL(L3,N3)=1:VP0KE6913,4 + 8* L3:VPOKE6912,192:VP0KE6915,12:S T =(19 2 -4-N3+8)/56:CS=192:L6=L3:N6=N3:60SUB5 6880 765 C0L0R7:PRESET(30,15*85 :PRINT#1,"| 11I1III1II8IIII8II :COLOR1 880 PRESET(30,15*8):PRINT#1,"Jij kies t : 810 L6$="":IN$ = INKEY$:IFIN$=""THEN810 ELSEIFASC(INK>64ANDASC!INf)<77THENG0 TO820ELSEGOTO818 820 PRESET(30 + 14*8,15*8):PRINT#1,IN$: L6*=IN$ 830 IN$ = "": INKINKEYK IFIN$ = ""THEN830 ELSEIFINf = CHR$(13)THENGQTQ850 840 IFINt = CHR$(8)THENC0L0R7:PRESET(30 + 14*8,15*8) : PRINT#!,"|'!: CQLOR1: GOTO81 0ELSEGOTOB30 850 N6$=:IN$ =INKEYI:IFINf=""THEN850 ELSEI FVAL(INJ)=>1ANDVAL(IN$)=<9THEN35 5ELSE850 S55 N6$=INI 860 PRESET(30+18*8,15*8):PRINT#! , N6$ 870 IN$ = "11: IN$= INKEY$: IFI N$=" "THEN87B ELSEIFINI=CHR$(13)THEN925 880 IFINf=CHR$(3)THENC0L0R7:PRESET(30 + 18*8,15*8! : PRINT#! , "l!i: COLOR1: 60T085 BELSEGuTO 89B 890 IFASC(INI)=>4BANDASC(INI)=<50ANDV AL(N6Ii =1THEN9B0EL3E870 900 N6*=N6*+IN$:CQL0R7:PRESET(30+18*8 , 8* 15i : PRINT#!,11 i": COLOR 1: PRESET (30 + 1 7*8,8*15):PR I NT#1,N6f 910' IN$="":IN$=INKEY$:IFINf =""THEN910 ELSEIFIN$=CHR$<13)THEN925 920 IFIN$=CHR*(85THENC0LGR7:PRESET(30 + 17*8,15*8) : PRINT#!,!i II : COLOR 1: N6$=L EFT$(N6$,1):GOTOS60ELSE?10 925 L6=A5C(L6$)-64:N6=VAL(N6$) 930 IFSI(L6,N6>=1THEN765 935 SI(L6,N6)=1 940 IFCS(L6,N6)=1THENZZ=ZZ+1ELSE960 950 VPÜKE6913,142 + 8*L6: VF'OKE6912,192: VP0KE6915,12:BU=136:ST=(19 2-4-N 6 * 8 i/5 6:CS=192:6OSUB55000:IFZZ=16THEN60050 955 C0L0R7:PRESET(30,15*85:PRINT#!,"I lülliBlliüiliilir : CQLOR1: GOTO SBB 968 VP0KE6913,142+8*L6:VP0KE6912,192: VP0KE6915,12: SU= 136: ST= (192 -4 - N6*8) / 5 6:CS=192:GOSUB56000 965 C0LGR7:PRESET(30,15*3):PRINT#!,"1 ililSSliiillISilifl":COLOR1:GOTO700 999 GOTO 60000 1000 LI NE(0,0)-(255,48),7,BF 101B F ORI = 1T015:K X = INT(RND(-TIME)*248 i:KY=I NT(RND(-TIME)*140)+50 102B DRAW"BM=KX;,=KY;C7E2F2R1E1F2R2E3 F2 " 1030 NEXTI 1 040 PUTSPRITE14,(30,60), 1 :PUTSPR1 TE 1 5, (46,60),1:PUTSPRITE 16,(62,60),1 105B FGRI=4TQ1ÓSTEP4 106B VP0KE6912+I,76:VP0KE6915+I,8:NEX TI 1070 YY-2967:RESTORE50200:F0RI-1T06:F 0RY=1TQ2:FORI1 = 1T08:READRE:VPOKEYY+11 , RE:VP0KE8192 + YY+11,4 1080 NEXT11: YY = YY + 256:NEXT Y:YY = YY-504 :NEXTI 1090 VPGKE6914,40:Y=80:X=150:VP0KE691 5,15 1091 FORI=0TO13:SGUNDI,0:NEXTI 1 094 S0UND7, ÊtH3E: SOUNDS , &HB 1110 F O R K = 4.9 T 01.S84STEP-.05 1120 SOUND0,ABS(K/.05-98)+16;X=X-1.48 :Y=72+42*C0S(K):VPOKE6913,X:VP0KE6912 , Y:NEXTK:SOUND0,0 1121 S0UND6 , a< H F F: S0UND7 , &HF: SOUNDS , &H 10:S0UND9,&H10:SOUND 10,&H10:SOUND 12,& H60:SOUND13,&HF0 1130 FORI=1T07:FORII=0TO15:VP0KE6915, 11:FORIY = 0TO3:NEX TIY:NE X T11:VP0KEÓ914 , 1*4:NEXTI:VP0KE6912,209:VP0KE6914,0 1140 FORI=60TO76:VP0KE6968,I:VP0KE697 2,1:VP0KE6976,I:FOR11 = 1TOl00:NEXT11,1 1240 FORI=32TO0STEP-1:VP0KE6912+I*4,2 09:NEXTI 1250 CLOSE:OPEN"GRP:"FOROUTPUTAS#! 1260 COLOR,7:PSET(63,9):PRINT#1, " Z E E S L A G ":PSET(55,18):PRINT#!, 1270 FORI =0TO 13: SOUNDI,0: NEXTI: S0UND7 ,62:PLAY"T11505V15L8DF+BF+C+F+DF+04B0 5F+Ö4A+05F+04805F+BF+C+FDF+04805F+04A +05F+DF+D048D5GEC+EC+04A05F+D" 1280 PLAY"05AEF+AF+DQ4A05CL2D" 1300 RETURN 9999 6OTO60000 10000 IFYY(Y)>9THENGOSUB45000:RETURN 1B005 RESTORE50000:FORI=1TO4:FORI1=1T 08 10010 READCC:VPOKE0+V1+II-1,CC:VP0KE8 192+V1 + 11-1,31 10020 NEXT11:V1 = V1+256:CM (X X (Y) +1,YY( Y)-1 +1)=1:NEXTI:RETURN 10050 IFXX(Y)>8THENGOSUB45000:RETURN 10055 RESTORE50040:FORII=0TO31 10060 READCC:VPOKE0+V1+II,CC:VP0KES19 2 + V1 + 11,31 1 0065 CM (XX (Y)+1 + 11\8,YY(Y)5 = 1 10070 NEXTII:RETURN 10i00 IFYY(Y)>10THENGOSUB45000:RETURN 1B101 XI (Y)=XX(Y)+1:F0RI = 1T03:FORI1 = 1 TOS 10102 IF V P E E K (319 2 + V1 +11 -1) 0127ANDVP EEK (8192+V1 + 11-1!<>247THENGOSUB45000: RETURN 10103 NEXTII:V1=V1+256:NEXTI:Vl=Vl-76 8 10105 IFCM(X1 !Y),YY(Y)-1)<>0QRCM(X1(Y ) ,YY(Y)+3X+0THENGOSUB450B0:RETURN 10106 FORXI=0102 10107 IFCM(X1(Y) +1,YY(Y)+ XI)< >0ORCM(X 1 (YJ -1 ,YY(Y> +X l) < >0THENGOSUB45000:F;ET URN 10108 NEXTXI 10114 RESTORE50010:F0RI=1T03:FORII=1T 08 10115 READCC:VPOKE0+V1+II-1,CC:VPOKEB 192+V1+I1-1,31 10120 NEXTII: VI = Vl + 256:CM(XX(Y) +1,YY ( Y!-1 +1; = i:NEXTI:RETURN 10150 IFXX(Y)>9THENGOSUB45000:RETURN 10151 XI (Y)=XX(Y)+1:FORI=0TO23 10152 IFVPEEK(8192 + V1 + I)< >127ANDVPEEK >247THENSOSUB45000:RETURN 10153 10155 ) + 3, Y 'ï 10156 10157 1 !Y) +) URN Y (Y) ) < > 0 O R C M ( X1 (Y UB45000:RETURN N E X TI IF C M {X1 (Y) - 1, 0ORCM I, YY(Y i-1)<>0THENGOSUB45000: R 10163 RESTORE50050:FORI I = 0TO23 10164 READCC:VPOKE0+V1+II,CC:VP0KE819 2+Vi+II,31 10165 CM (X X(Y) +1 +11\8,Y Y(Y))=1 10170 NEXTII:RETURN 10300 IFYY(Y)M1THENGOSUB45000:RETURN 10301 XI (Y)=XX127ANDVP EEK (S192 + V1 +11 -1) O247THENGOSUB45000: RETURN 10303 NEXTII:VI=V1+256:NEXTI:V1=V1-51 10304 IFCM(XI !Y),YY0ORCM(X1(Y ) , YY < Y) +2) O0THENGOSUB45000: RETURN 10305 FORXI = 0T01 10306 I FCM < X1 10THENGOBUB45000:RETURN 10351 XI !Y)=XX (Y)+1:FGRI-0TO15 103! 'EEK (S19 l + V1 +1) \ . 1 / 7 A N u V P t E f:*. !)<>247THEN6OSUB45000:RETURN 10: NEXTI 55 IFCH(XI(Y)-1,YY(Y))< >0ORCM(XI(Y ,YY(Yi i < X0THENGOSUB45000:RETURN 56 FORXI=0TO1 10357 IFCM(XKY) 1< Y)+ XI,YY< Y)-1) URN XI,YY(Y)+1)< >0uRCM(X >0THENGOSUB45000:RET 10358 N h X T XI 10359 RESTORE50060:FORII=0TO15 10360 READCC:VPOKE0 + V1 + II, CC:VP0KES19 2+Vi+II ,31 10365 CM < X X(Y)+1 + II\8,YY(Y))=1 10370 NEXTII:RETURN 10500 XI (Y)=XX(Y) + 1:F0RI = 1T0B 10501 IFVPEEK ! S192 + V 1 + 1-1)0127ANDVPE EK <8192+V1 +1-1)< >247THENGOSUB45000:RE TURN 10502 NEXTI 10504 IFCM(XI(Y),YY(Y)-15< >0ORCM(X1(Y ) , YY (Y)+1 i <>0THENGOSUB45000:RETURN 10506 IFCM(XI(Y)+l, YY(Y)!< >0ORCM(X1(Y ) - 1, YY < Y))<>0THENGOSUB45000:RETURN 10509 RESTORE50030:FORII=1T08 10510 READCC:VPOKE0+V1+I1-1,CC:VPOKEB 192+V1 + 11-1,31 10520 NEXT11:CM < XX (Y) +1,YY (Y)) = 1:RETU RN 45000 C0L0R6:PRESET(164,126+Y*8):PRIN T#1,"■lllilllllS":PRESET(164,126+Y*8) :C0L0R7:PRINT#!,"ünmogelijk ":FORI = 1TO 800:NEXT:PRESET(164,126 + Y*8):PRINT#i , "illllillliir:COLORl:Y=Y-1:RETURN 45010 FOR¥I=0TO3-Y\2:IFCS(L2,N2+YÏ)<> 0THENY=Y-1:YI=4-Y\2:RETURN 45011 NEXTYI 45012 FORIY=0TO3-Y\2:CS(L2,N2+IY)=1 45013 CS(L2+1,N2+1Y)=2 45014 CS(L2-1,N2+IY)=2:NEXTIY 45015 CS(L2,N2-1)=2:CS 0THENY = Y-1:YI=4-Y\2:RETURN 45021 NEXTYI 45022 FORIY=0TO3-Y\2:CS(L2+IY,N2)=1 45023 CS(L2+IY,N2+15 =2 45024 CS{L2 +1Y,N2 - 1)=2:NEXTIY 45025 CS (L2-1, N2)=2:CS 0 T H E N KB = K D( 121:KE=KA:KA=0:CC$=U":GH=0:GÜSUB61000 :RETURN7i0ELSENEXTI2ELSENEXTI:KE = KA:K A = 0:CCf="" :GH = 0:GOSUB61000:RETURN710 45401 BH=1: IFSKL4 + 1, N4) =2GRSL (14-1 ,N 4)=2THEN45440 45405 IFN4 =1THEN45420 45410 IFSL (L4,N4-1) O0THEN45420 45415 IFCH0THENDS=DS+1 45456 L3=L4+1:N3=N4:GDT0735 45460 IFL4-DS+1=1THEN45480 4547 0 IFSL (L4-DS , N4)< >0THEN454B0 45475 L3=L4-DS:N3=N4:DS=1:60T0735 45480 CC$ = "":GH=0 45500 GOSUBó1000 45600 KE=KA:KA=0:GOTO 700 50000 DATA 24,60,126,126,239,199,171, 239,23?,239,255,255,255,255,159,159,1 59,159,159,159,255,255,255,255,251,24 i ,234,251,251,251,126,126 50010 DATAl6,56,56,124,198,146,170,19 8,130 198,170,170,186,186,186,170,130 ,254,186,186,198,84,84,56 50020 DATA 16,40,40,108,108,108,6S,10 8,108,68,108,108,84,108,40,56 50030 DATA 15,25,61,111,246,156,152,2 40 50040 DAT Al 5,63,1.24,251,240,123,61,15 ,255,255,255,255,63,252,252,255,255,2 55,255,255,255,31,31,255,220,191,3,19 1,223,255,255,252 50050 DATA0,15,25,114,244,114,25,15,0 ,255,65,62,14,62,65,255,0,248,78,113, 119,113,78,248 50060 DATA0 ,0,31,125,128,125,31,0,0 ,2 •" er r? ? x. -J x. , 183,9, 183,252,0 50100 DATA4 ,3,3,2,2,1,1,0,0,0,0,0,1 T 7 1 f 1,2,0, 0 , 0.0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 X.' Ö , 12 8,128 ,0,128 ,0,0,0,0,0 50110 DATA0,0,0,0,0,2,4,3,4,2,0,0,0,0 ,0,0,0,0,0,0,0,128,192,64,128,128,0,0 , 0,0,0,0 50120 DATA0,0,0,1,2,12,2,8,18,5,8,5,0 ,0,0,0,0,0,0,0,80,160,16,160,8,48,64, 32.128.0. 0.0 50130 DATA0,0,2,8,10,16,4,8,56,2,21,4 ,10,0,0,0,0,0,64,144,32,136,40,0,24,3 2.80.8.160.128.0. 0 50140 DATA0,70,18,73,44,80,40,208,32, 72.32.20.40.7.17.2.144.160.40.86.16.1 3.9.4.10.24.68.208.36.88.0. 0 50150 DATA0,4,18,9,52,0,56,32,24,0,42 ,19,10,0,0,0,0,64,208,40,64,16,44,32, 136.40.160.16.64.0. 0.0 50160 DATA0,0,0,0,2,9,22,0,26,1,13,1, 0,0,0,0,0,0,0,0,0,96,128,32,192,32,64 , 0,0,0,0,0 50170 DATA0,0,0,0,0,2,1,6,2,4,0,0,0,0 ,0,0,0,0,0,0,0,0,64,128,128,192,0,0,0 ,0,0,0 50180 DATAl5,16,39,72,83,148, 169,170, 170,169,140,83,72,39,16,15,224,24,204 ,36,210,41,149,85,85,149,73,146,108,2 00,32,224 50190 DATA 16,47,88,183,172,107,86,85, 85,86,107,172,183,SS,47, 16,24,228,50, 219,45,214,106,170,170,90, 182,109,146 ,108,208,16 50195 DATA0,0,0,0,0,0,0,1,1,0,0,0,0,0 ,0,0,0,0,0,0,0,0,0,128,128,0,0,0,0,0, 0,0 50200 DATA0,0,0,0,1 , 15,15,31,30,63,60 ,15,0,31,7,1,0,0,0,0,239,247,195,247, 239.127.63.127.0. 255.255.255 50210 DATA3,3,7,i5,224,239,239,175,20 8.15.223.191.0. 255.255.255.128.128.20 8.176.48.183.183.1 73,30,248,254,253, S3 •"! «r c; n er er n er er , X. w , iUÜ 9 X. u.' ü 50220 DATA0,0,0,0,0,255,239,247,195,i 19.239.255.0. 255.255.255.0.0.0.0.0.19 0,221,13,219,182,244,236,24,208,160,1 60 55000 FORI=0TG13:SOUNDI,0:NEXTI 55003 SDUND7,&H3E:SOUNDS,&HB 55005 FORI = 2 K BÜRKS=>KBTHENRETURNELSER ETURN7 1 0 62100 RETURN