1 ONLGOTO115,125,3263,3264,3265,3273,3274,3275 2 IFA=0THENPRINT"[147]BITTE WARTEN":A=1:LOAD"CHAR",8,1 3 IFA=1THENA=2:LOAD"JOYST.",8,1 10 DIMCS(9,9),CB(9,9),SS(9,9),SB(9,9),M$(21) 15 POKE53280,11:POKE53281,6:PRINT"":MU$="==========[146]":POKE650,64 20 GOTO100 21 SC=2:GOSUB130:KX=2:GOSUB575:GOSUB580:KX=17 22 GOSUB750:SC=2:GOSUB130:GOSUB160:GOTO15 100 REM ******* INIT ********* 101 FORI=0TO9:FORT=0TO9:CS(I,T)=0:CB(I,T)=0:SS(I,T)=0:SB(I,T)=0:NEXTT:NEXTI 102 L$="":FORI=0TO23:POKE54272+I,0:NEXT:S=54272:FORI=1TO40:L$=L$+" ":NEXT:FI=0 104 POKES+24,15:GOTO111: 105 GOTO120 106 GOTO21 110 REM ******* LOAD BILD ****** 111 L=1:LOAD"BILD",8,1 115 GOTO105 120 REM ****** LOAD FARBE ****** 122 L=2:LOAD"FARBE",8,1 125 GOTO106 130 REM ******* BILDSCHIRM WAHL ***** 133 IFSC=1THENPOKE648,4:POKE56576,199:POKE53272,(PEEK(53272)AND241)OR4:RETURN 135 IFSC=2THENPOKE648,196:POKE56576,196:POKE53272,19:RETURN 136 REURN 140 REM ******* CURSOR POS ****** 141 POKE211,CX:POKE214,CY:SYS58732:RETURN 160 REM *****SPIEL ROUTINE***** 161 CB=5:SB=5:T=0:CS=0:SS=0:AS=0:AC=0:FL=1:FS=0:XF=1:YF=1:X=INT(RND(1)*10) 162 Y=INT(RND(1)*10):A$="[255]FEIND IN SICHT.DER TANZ BEGINNT...":GOSUB541:AM=10 163 A$="[255]":GOSUB541:KX=2:F1=0:F2=0:F3=0:F4=0:F5=0:GOSUB3351 165 GOSUB501:SS=SS+1:GOSUB3352:W=233:GOSUB3000:IFCB(AX,AY)=2THENT=1:GOSUB3005 166 GOSUB801:IFT=0THENW=6:GOSUB3041 167 IFT=1THENAS=AS+1:IFAS=3THENAS=0:CB=CB-1 168 IFCB=0THENGOSUB5050:GOSUB3390:GOTO3260 169 IFSS=101THENGOSUB3400:RETURN 170 IFT=1THENT=0:GOTO165 173 GOSUB220:CS=CS+1:W=133:GOSUB3000:IFSB(X,Y)=2THENT=1:FS=1:GOSUB3024 175 IFT=1THENAC=AC+1:GOSUB3302:IFAC=3THENAC=0:SB=SB-1:FS=0:XF=1:YF=1:FL=1 177 IFSB=0THEN3360 180 IFT=1THENT=0:CS(X,Y)=2:GOTO173 183 CS(X,Y)=1:T=0:W=15:GOSUB3041:GOTO165 185 REM ---------------------------- 220 REMC64 - SCHUSS ***** 225 IFFS=1THEN255 230 X=X+2 235 IFX=10THENGOSUB240:GOTO238 236 IFX=11THENGOSUB245:GOTO238 238 IFCS(X,Y)<>0THENX=X+1:GOTO235 239 RETURN 240 X=1:Y=Y+1:IFY>9THENY=0:RETURN 241 RETURN 245 X=0:Y=Y+1:IFY>9THENY=0:RETURN 246 RETURN 250 REM *****SPECIALROUTINE***** 255 IFFL=1THENGOSUB261 256 X=XH:Y=YH:IFAC=2THEN270 260 GOTO281 261 XH=X:YH=Y:FL=0:RETURN 265 REM ***X/Y ROUTINEN*** 270 IFRM$="X"THENYF=0:GOTO281 271 XF=0:GOTO313 280 REM ***X+1*** 281 RM$="X":IFX+1>9THEN289 283 IFCS(X+1,Y)<>0THEN289 285 X=X+1:RETURN 287 REM ***X-1*** 289 IFX-1<0THEN297 291 IFCS(X-1,Y)<>0THEN297 293 X=X-1:RETURN 295 REM ***X+2*** 297 IFX+2>9THEN305 299 IFCS(X+2,Y)<>0THEN305 301 X=X+2:RETURN 303 REM ***X-2*** 305 IFX-2<0THEN313 307 IFCS(X-2,Y)<>0THEN313 309 X=X-2:RETURN 311 REM ---Y+1--- 313 RM$="Y":IFY+1>9THEN321 315 IFCS(X,Y+1)<>0THEN321 317 Y=Y+1:RETURN 319 REM ---Y-1--- 321 IFY-1<0THEN329 323 IFCS(X,Y-1)<>0THEN329 325 Y=Y-1:RETURN 327 REM ---Y+2--- 329 IFY+2>9THEN337 331 IFCS(X,Y+2)<>0THEN337 333 Y=Y+2:RETURN 335 REM ---Y-2--- 337 IFY-2<0THENFS=0:XF=1:FL=1:GOTO230 339 IFCS(X,Y-2)<>0THENFS=0:XF=1:FL=1:GOTO230 341 Y=Y-2:RETURN 500 REM ***** CURSOR SPIEL ****** 501 GOTO517 502 SYS49152:REM JOYSTICK 505 IFPEEK(780)=1THEN526 506 IFPEEK(780)=0THEN529 507 IFPEEK(780)=2THEN532 508 IFPEEK(780)=3THEN535 509 IFPEEK(780)=4THENFI=1:GOSUB519:RETURN 515 GOTO501 516 REM AUSFUEHREN DER BEWEGUNG 517 CX=AX+KX:CY=AY+13:GOSUB141:PRINT"\[146]";:GOTO502 518 REM ****** ALT ***** 519 CX=AX+KX:CY=AY+13:GOSUB141:IFSS(AX,AY)=0THENPRINT"[255]":GOSUB561:RETURN 520 IFSS(AX,AY)=1THENPRINT"*[146]":RETURN 521 PRINT"&[146]":RETURN 525 REM ***** AB ****** 526 IFAY+1>9THEN501 527 GOSUB519:AY=AY+1:GOTO517 528 REM *****AUF ***** 529 IFAY-1<0THEN501 530 GOSUB519:AY=AY-1:GOTO517 531 REM ***** LINKS ***** 532 IFAX-1<0THEN501 533 GOSUB519:AX=AX-1:GOTO517 534 REM ***** RECHTS***** 535 IFAX+1>9THEN501 536 GOSUB519:AX=AX+1:GOTO517 540 REM **** AUSGABE ROUTINE ***** 541 PRINT" ";:IFLEFT$(A$,1)="[255]"THENGOSUB566:A$=RIGHT$(A$,LEN(A$)-1):PRINT" "; 545 FORQQ=1TOLEN(A$):PRINT"[157]"MID$(A$,QQ,1)"[146] ";:GOSUB555:NEXTQQ:PRINT"[157] [146]"; 546 RETURN 550 REM ***** AUSGABE SOUND ***** 555 GH=10:GL=30:IFMID$(A$,QQ,1)<>" "THENGL=50:GH=70 556 POKES+24,15:POKES+5,10:POKES+6,95:POKES+4,16:POKES,GL:POKES+1,GH:POKES+4,27:RETURN 560 REM ***** SOUND BEI JOYST.***** 561 POKES+5,10:POKES+6,140:POKES+4,16:POKES,120:POKES+1,15:POKES+4,27:RETURN 565 REM ****** TEXTSCHIRM CLR ********* 566 PRINT"";:FORQQ=1TO9:PRINT""L$"[146]";:NEXT:PRINT"";:RETURN 570 REM ****** ANFANGS TEXT ******** 571 DATA"[255] --- SEESCHLACHT --- " 572 DATA"WRITTEN BY CHRISTIAN BERG IN 1987" 575 RESTORE:FORI=1TO2:READA$:GOSUB541:NEXT:GOSUB3214:RETURN 580 REM ******* SCHIFFE SETZEN ****** 581 A$="[255]BITTE GEBEN SIE IHREN NAMEN EIN:":GOSUB3221 583 GOSUB541:PRINT:LS=10:GOSUB2070:N$=X$:REM CHECK HI SCORE 585 A$="[255]HAUPTQUARTIER AN FLOTTENKOMMANDANT: ":GOSUB541:PRINT; 586 A$=" WIR REGISTRIEREN MIT BESORGNIS WACHSENDEFEINDES AKTIVITAETEN IM "+OT$ 587 A$=A$+" ":GOSUB541:CX=0:CY=3:GOSUB141 588 A$="SIE HABEN DEN BEFEHL MIT IHRER FLOTTE FUER ORDNUNG ZU" 590 GOSUB541:A$="SORGEN.":GOSUB541 591 GETW$:IFW$=""THEN591 592 IFW$="Q"THEN610 593 A$="[255]UNTER IHREM KOMMANDO STEHEN: EIN UBOOTJAEGER" 594 GOSUB541:PRINT:A$=" EIN FLUGZEUGTRAEGER":GOSUB541:PRINT; 595 A$=" EIN UNTERSEEBOOT":GOSUB541:PRINT 596 A$=" EIN SCHLACHTSCHIFF" 597 GOSUB541:PRINT;:A$=" EIN SCHNELLBOOT":GOSUB541 600 PRINT:A$="DIE BETROFFENEN EINHEITEN SIND ALARMIERTUND IN BEREITSCHAFT GESETZT." 602 GOSUB541:POKE198,0:WAIT198,1:A$="[255]BITTE WEISEN SIE IHREN EINHEITEN":GOSUB541 604 A$="IHRE POSITIONSKOORDINATEN ZU.":GOSUB541:PRINT:PRINT:SB=0 605 A$=" VIEL GLUECK." 606 GOSUB541:POKE198,0:WAIT198,1 610 KX=17:A$="[255]UBOOTJAEGER AN FLOTTENKOMMANDANT: ":GOSUB541:F=1:GOSUB3281 613 A$=" WIR BITTEN UM ZUWEISUNG DER KOORDINATEN.":GOSUB541:AX=0:AY=0:RM$="U" 615 GOSUB3100:CX=0:CY=4:GOSUB141 617 A$="SENKRECHT ODER WAAGERECHT":GOSUB541:PRINT 619 GETW$:IFW$=""THEN619 620 IFW$="S"THEN630 :REM SENKR. 621 IFW$="W"THEN640 :REM WAAGER. 623 GOTO619 630 REM **** SENKRECHT **** 631 IFAY+2>9THENA$="KURS IST NICHT MOEGLICH.":GOSUB541:GOTO610 633 SB(AX,AY)=2:SB(AX,AY+1)=2:SB(AX,AY+2)=2 635 REM AUSGEBEN 637 A$="AYE AYE SIR.GEHEN AUF KURS":GOSUB541:SB=1 638 GOTO660 640 REM ***** WAAGERECHT ******* 642 IFAX+2>9THENA$="..DAS IST NICHT MOEGLICH.":GOSUB541:POKE198,0:WAIT198,1:GOTO610 645 SB(AX,AY)=2:SB(AX+1,AY)=2:SB(AX+2,AY)=2:A$="AYE AYE SIR.STEUERN KURS" 650 GOSUB541:SB=1 660 IFW$="S"THENFORI=1TO2:GOSUB725:AY=AY+1:NEXT:GOSUB725:AY=AY-2:GOSUB727 661 IFW$="W"THENFORI=1TO2:GOSUB725:AX=AX+1:NEXT:GOSUB725:AX=AX-2:GOSUB727 664 RM$="F" 665 F=0:GOSUB3281:A$="[255]FLUGZEUGTRAEGER AN FLOTTENKOMMANDANT: ":GOSUB541:SB=2 666 F=1:GOSUB3283 670 A$="[157]ERBITTEN UNSERE KOORDINATEN.":GOSUB541:GOSUB3100:CY=5:CX=0:GOSUB141 675 GOSUB3100:CY=5:CX=0:GOSUB141:A$="KURS SENKRECHT ODER WAAGERECHT":GOSUB541 676 GETW$:IFW$=""THEN676 677 IFW$="S"THENGOSUB702:IFT=0THENGOSUB3292:GOTO681 678 IFW$="W"THENGOSUB710:IFT=0THENGOSUB3292:GOTO681 679 IFT=1THENT=0:ONSB-1GOTO665,684,686,687 680 GOTO676 681 IFW$="S"THENFORI=1TO2:GOSUB725:AY=AY+1:NEXT:GOSUB725:AY=AY-2:GOSUB727 682 IFW$="W"THENFORI=1TO2:GOSUB725:AX=AX+1:NEXT:GOSUB725:AX=AX-2:GOSUB727 683 F=1:SB=SB+1:IFSB=6THENRETURN 684 IFSB=3THENA$="[255]UNTERSEEBOOT AN KOMMANDANT":GOSUB541:F=1:GOSUB3285:RM$="B" 685 IFSB=3THENA$=LEFT$(L$,13)+"ERBITTEN POSITIONSKOORDINATEN":GOSUB541:GOTO675 686 IFSB=4THENA$="[255]SCHLACHTSCHIFF BITTET UM KOORDINATEN.":GOSUB541:GOTO3295 687 IFSB=5THENA$="[255]SCHNELLBOOT BITTET UM KOORDINATEN":GOSUB541:GOTO3297 700 REM SENK/WAAGE 701 REM SENK 702 T=0:IFAY+2>9THENT=1:RETURN 703 IFSB(AX,AY)<>0THENT=1:RETURN 704 IFSB(AX,AY+1)<>0THENT=1:RETURN 705 IFSB(AX,AY+2)<>0THENT=1:RETURN 706 SB(AX,AY)=2:SB(AX,AY+1)=2:SB(AX,AY+2)=2:RETURN 709 REM WAAGE 710 T=0:IFAX+2>9THENT=1:RETURN 711 IFSB(AX,AY)<>0THENT=1:RETURN 712 IFSB(AX+1,AY)<>0THENT=1:RETURN 713 IFSB(AX+2,AY)<>0THENT=1:RETURN 714 SB(AX,AY)=2:SB(AX+1,AY)=2:SB(AX+2,AY)=2:RETURN 720 REM ***** KOORDINATEN UP TO DATE 721 CX=AX+2:CY=AY+13:GOSUB141:IFCB(AX,AY)=0THENPRINT"*[146]":RETURN 722 IFCB(AX,AY)=2THENPRINT"&[146]";:RETURN 723 PRINT"[255]":RETURN 725 CX=17+AX:CY=AY+13:GOSUB141:IFSB(AX,AY)=2THENPRINT"&[146]":RETURN 726 PRINT"&[146]":RETURN 727 IFRM$<>"U"THEN730 728 IFW$="S"THENFORI=0TO2:UX(I+1)=AX:UY(I+1)=AY+I:NEXT:RETURN 729 IFW$="W"THENFORI=0TO2:UX(I+1)=AX+I:UY(I+1)=AY:NEXT:RETURN 730 IFRM$<>"F"THEN733 731 IFW$="S"THENFORI=0TO2:FX(I+1)=AX:FY(I+1)=AY+I:NEXT:RETURN 732 IFW$="W"THENFORI=0TO2:FX(I+1)=AX+I:FY(I+1)=AY:NEXT:RETURN 733 IFRM$<>"B"THEN736 734 IFW$="S"THENFORI=0TO2:BX(I+1)=AX:BY(I+1)=AY+I:NEXT:RETURN 735 IFW$="W"THENFORI=0TO2:BX(I+1)=AX+I:BY(I+1)=AY:NEXT:RETURN 736 IFRM$<>"S"THEN739 737 IFW$="S"THENFORI=0TO2:SX(I+1)=AX:SY(I+1)=AY+I:NEXT:RETURN 738 IFW$="W"THENFORI=0TO2:SX(I+1)=AX+I:SY(I+1)=AY:NEXT:RETURN 739 IFW$="S"THENFORI=0TO2:PX(I+1)=AX:PY(I+1)=AY+I:NEXT:RETURN 740 IFW$="W"THENFORI=0TO2:PX(I+1)=AX+I:PY(I+1)=AY:NEXT:RETURN 741 RETURN 750 REM ***** COMPUTER SETZT SCHIFE ** 751 SZ=1:AA=0:CB=0:X=INT(RND(1)*2):IFX=1THENGOSUB3231:AA=1:CB=5:RETURN 752 GOSUB781:IFNOTCB=5THENONZ+1GOSUB786,791 753 IFT=1THENT=0 756 IFNOTCB=5THEN752 760 RETURN 780 REM AUSWAHL 781 X=INT(RND(1)*8):Y=INT(RND(1)*8):Z=INT(RND(1)*2):RETURN 783 CB(X,Y)=2:CB(X+1,Y)=2:CB(X+2,Y)=2:CB=CB+1:RETURN:REM WAAGE 784 CB(X,Y)=2:CB(X,Y+1)=2:CB(X,Y+2)=2:CB=CB+1:RETURN:REM SENK 785 REM CHECK SENK 786 IFCB(X,Y)<>0THENT=1:RETURN 787 IFCB(X,Y+1)<>0THENT=1:RETURN 788 IFCB(X,Y+2)<>0THENT=1:RETURN 789 GOSUB784:T=0:RETURN 790 REM WAAGE 791 IFCB(X,Y)<>0THENT=1:RETURN 792 IFCB(X+1,Y)<>0THENT=1:RETURN 793 IFCB(X+2,Y)<>0THENT=1:RETURN 794 GOSUB783:T=0:RETURN 800 REM **** EINTRAG IN SS-ARRAY*** 801 IFT=1THENSS(AX,AY)=2:GOSUB721:CB(AX,AY)=0:RETURN 802 SS(AX,AY)=1:GOSUB721:RETURN 2070 REM ------ GET------ 2071 REM LS=MAX LAENGE VON X-STR.MUSS VORHER ANGEGEBEN WERDEN 2075 W$="":X$="":HH$="":LX=0:PRINT" "; 2080 GETW$:IFW$=""THEN2080 2085 IFW$=CHR$(13)THENPRINT"[157] ":RETURN 2090 IFW$=CHR$(20)ANDLX<>0 THENPRINT"[157]"W$" ";:GOSUB2110 :GOTO2080 2091 IFW$=CHR$(20)THEN2080 2095 IFW$=""ORW$="[145]"ORW$=""ORW$="[157]"ORW$="[147]"ORW$=""THEN2080 2100 IFLX=LSTHEN2080 2105 X$=X$+W$:PRINT"[157]"W$" ";:LX=LX+1:GOTO2080 2110 HH$="":FORI=1TOLEN(X$)-1:HH$=HH$+MID$(X$,I,1):NEXT:X$=HH$:LX=LX-1 2115 IFLX=0THENX$="":RETURN 2120 RETURN 3000 POKES+6,05:REM SCHUSS SP. 3001 POKES+0,0:POKES+1,116:POKES+5,45:POKES+22,100:POKES+23,W 3002 POKES+24,53:POKES+4,0:POKES+4,129:FORJ=1TO15:POKES+0,J:NEXT 3003 FORJ=1TO1600:NEXT:RETURN 3005 POKES+6,0:REM TREFFER BEI C64 3006 POKES+0,0:POKES+1,7:POKES+5,46:POKES+22,50:POKES+23,243 3007 POKES+24,53:POKES+4,0:POKES+4,129:FORJ=1TO70:POKES+0,J:NEXT 3008 FORJ=1TO1300:NEXT:POKES+22,0:RETURN 3020 REM ----SOUND FUER TREFFER--- 3024 Q=0:POKES+5,19:POKES+6,187:POKES+22,95:POKES+23,255:GOSUB5080 3026 POKES+24,31:IFQ=30THENQ=25 3028 POKES+1,18:POKES,4:Q=Q+1:IFQ=40THEN3036 3030 POKES+4,129:FORI=1TO03:NEXT:POKES,12 3032 POKES+4,128:FORI=1TO04:NEXT 3034 GOTO3028 3036 RETURN 3040 REM WASSER 3041 POKES+0,0:POKES+1,40:POKES+5,10*16+12:POKES+22,0:POKES+23,0 3042 POKES+24,W:POKES+4,0:POKES+4,129:FORJ=1TO255:POKES+0,J:NEXT 3043 FORQ=1TO2000:NEXT 3044 RETURN 3100 REM ***** CURSOR SPIEL ****** 3102 GOTO3120 3104 SYS49152:REM JOYSTICK 3106 IFPEEK(780)=1THEN3132 3108 IFPEEK(780)=0THEN3138 3110 IFPEEK(780)=2THEN3144 3112 IFPEEK(780)=3THEN3150 3114 IFPEEK(780)=4THENFI=1:GOSUB3124:RETURN 3116 GOTO3102 3118 REM AUSFUEHREN DER BEWEGUNG 3120 CX=AX+KX:CY=AY+13:GOSUB141:PRINT"\[146]";:GOTO3104 3122 REM ****** ALT ***** 3124 CX=AX+KX:CY=AY+13:GOSUB141:IFSB(AX,AY)=0THENPRINT"[255]":GOSUB561:RETURN 3126 IFSB(AX,AY)=1THENPRINT"*[146]":RETURN 3128 PRINT"&[146]":RETURN 3130 REM ***** AB ****** 3132 IFAY+1>9THEN3102 3134 GOSUB3124:AY=AY+1:GOTO3120 3136 REM *****AUF ***** 3138 IFAY-1<0THEN3102 3140 GOSUB3124:AY=AY-1:GOTO3120 3142 REM ***** LINKS ***** 3144 IFAX-1<0THEN3102 3146 GOSUB3124:AX=AX-1:GOTO3120 3148 REM ***** RECHTS***** 3150 IFAX+1>9THEN3102 3152 GOSUB3124:AX=AX+1:GOTO3120 3200 Q=0 3201 POKES+5,9:POKES+6,10:POKES+23,0:POKES+21,1 :POKES+22,1 3202 POKES+24,31:IFQ=30THENQ=25 3203 POKES+1,6:POKES,06:Q=Q+1:IFQ=40THEN3207 3204 POKES+4,129: 3205 POKES+4,128: 3206 GOTO3203 3207 RETURN 3210 REM *MEERE* 3211 DATA"ATLANTIK","MITTELMEER","ROTEN MEER","PAZIFIK","INDISCHEN OZEAN" 3212 DATA"BERING MEER","GOLF VON GUINEA" 3213 DATA"ARABISCHEN MEER","LABRADOR BECKEN","SCHWARZEN MEER","GOLF VON MEXICO" 3214 FORI=1TO11:READM$(I):NEXT:RETURN 3220 REM CHOOSE MEER 3221 X=INT(RND(1)*10)+1:IFX=MTHENX=X+1:IFX>11THENX=1 3222 OT$=M$(X)+".":M=X:RETURN 3230 REM **** SZENARIO WAHL ***** 3231 SZ=INT(RND(1)*8)+1 3232 IFSZ=SATHENSZ=SZ+1:IFSZ>8THENSZ=1 3233 X$="SZENARIO"+STR$(SZ) 3234 SA=SZ:OPEN1,8,2,X$+",S,R" 3236 FORI=0TO9:FORT=0TO9:INPUT#1,X:CB(I,T)=X:NEXTT:NEXTI:CLOSE1:RETURN 3240 CLOSE1:RETURN 3241 REM ---LERNEN 3242 REM 3243 OPEN1,8,15,"S:SZENARIO"+STR$(SZ):CLOSE1 3245 OPEN1,8,2,"SZENARIO"+STR$(SZ)+",S,W" 3247 FORI=0TO9:FORT=0TO9 3248 PRINT#1,SB(I,T):NEXTT:NEXTI:CLOSE1:RETURN 3260 REM ---- SPIELER HAT GEWONNEN 3261 IFSB>=3THENGOSUB3242 3262 SC=1:GOSUB130:GOSUB5045:L=3:LOAD"CHAR 1",8,1 3263 L=4:PRINT"":LOAD"BILD 1",8,1 3264 L=5:LOAD"FARBE 1",8,1 3265 SC=2:GOSUB130:CY=12:FORI=8TO1STEP-1:CY=CY+1:CX=14:GOSUB141:PRINTN$(I):NEXTI 3266 CY=12:FORI=8TO1STEP-1:CY=CY+1:CX=23:GOSUB141:PRINTP(I):NEXT 3270 GETW$:IFW$=""THEN3270 3271 SC=1:GOSUB130 3272 L=6:LOAD"CHAR",8,1 3273 L=7:LOAD"BILD",8,1 3274 L=8:LOAD"FARBE",8,1 3275 SC=2:GOSUB130:GOTO3376 3280 REM **STATUS** 3281 FORQ=55769TO55771:POKEQ,F:NEXT:FORQ=55808TO55812:POKEQ,F:NEXT:RETURN 3282 REM FLUGZEUGTRAEGER 3283 FORQ=55888TO55893:POKEQ,F:NEXT:FORQ=55928TO55933:POKEQ,F:NEXT:RETURN 3284 REM U-BOOT 3285 FORQ=55969TO55970:POKEQ,F:NEXT:FORQ=56008TO56012:POKEQ,F:NEXT:RETURN 3286 REM SCHLACHTSCHFF 3287 FORQ=56048TO56052:POKEQ,F:NEXT:FORQ=56088TO56093:POKEQ,F:NEXT:POKE56049,F 3288 RETURN 3289 REM SCHNELLBOOT 3290 FORQ=56129TO56131:POKEQ,F:NEXT:FORQ=56169TO56172:POKEQ,F:NEXT:RETURN 3291 REM HILF 3292 F=0:ONSB-1GOSUB3283,3285,3287,3290 3293 RETURN 3294 REM HILF 3295 RM$="S":GOSUB3287:GOTO675 3296 REM HILF 3297 GOSUB3290:RM$="P":GOTO675 3300 REM **** SCHIFFSTYP FESTSTELLEN 3302 IFF1=1THEN3305 3303 FORQ=1TO3:IFUX(Q)=XANDUY(Q)=YTHENGOSUB3325:RETURN 3304 NEXTQ 3305 IFF2=1THEN3308 3306 FORQ=1TO3:IFFX(Q)=XANDFY(Q)=YTHENGOSUB3328:RETURN 3307 NEXTQ 3308 IFF3=1THEN3311 3309 FORQ=1TO3:IFBX(Q)=XANDBY(Q)=YTHENGOSUB3331:RETURN 3310 NEXTQ 3311 IFF4=1THEN3314 3312 FORQ=1TO3:IFSX(Q)=XANDSY(Q)=YTHENGOSUB3334:RETURN 3313 NEXTQ 3314 IFF5=1THENRETURN 3315 FORQ=1TO3:IFPX(Q)=XANDPY(Q)=YTHENGOSUB3337:RETURN 3316 NEXTQ 3317 RETURN 3325 IFAC=1THENF=8:GOSUB3281:RETURN 3326 IFAC=2THENF=2:GOSUB3281:RETURN 3327 F=6:GOSUB3281:F1=1:RETURN 3328 IFAC=1THENF=8:GOSUB3283:RETURN 3329 IFAC=2THENF=2:GOSUB3283:RETURN 3330 F=6:GOSUB3283:F2=1:RETURN 3331 IFAC=1THENF=8:GOSUB3285:RETURN 3332 IFAC=2THENF=2:GOSUB3285:RETURN 3333 F=6:GOSUB3285:F3=1:RETURN:REM U-BOOT 3334 IFAC=1THENF=8:GOSUB3287:RETURN 3335 IFAC=2THENF=2:GOSUB3287:RETURN 3336 F=6:GOSUB3287:F4=1:RETURN:REM SCHLACHT. 3337 IFAC=1THENF=8:GOSUB3290:RETURN 3338 IFAC=2THENF=2:GOSUB3290:RETURN 3339 F=6:GOSUB3290:F5=1:RETURN 3350 REM MUNITION 3351 CY=10:CX=8:GOSUB141:A$=LEFT$(MU$,AM+1)+"[146]"+LEFT$(L$,10-AM):PRINTA$;:RETURN 3352 IFSS=10ORSS=20ORSS=30ORSS=40ORSS=50ORSS=60ORSS=70THENAM=AM-1:GOSUB3351:RETURN 3353 IFSS=80ORSS=90ORSS=100THENAM=AM-1:GOSUB3351:RETURN 3354 RETURN 3360 REM ***** SPIELER HAT VERLOREN SB=0 3361 POKES+23,0:POKES+22,0:A$="[255]AN KOMMANDANT "+N$+" VOM HQ:":GOSUB541:PRINT 3362 A$="SIE HABEN IN EINEM HARTEN SEEGEFECHT ALLE SCHIFFE VERLOREN.":GOSUB541 3363 A$="DOCH SIE KONNTEN DEM GEGNER MIT"+STR$(SS)+" SCHUSS ":GOSUB541:A$="" 3365 IFCB=3THENA$="EINIGEN":GOTO3370 3366 IFCB<=2THENA$="SCHWEREN":GOTO3370 3367 A$="GERINGEN" 3370 GOSUB541:CX=0:CY=5:GOSUB141:A$="SCHADEN ZUFUEGEN.":GOSUB541:PRINT 3375 A$="SIE ERREICHTEN"+STR$(P)+" PUNKTE":GOSUB541:POKE198,0:WAIT198,1 3376 A$="[255]WOLLEN SIE IN EINEM WEITEREN SEEGEFECHT AUF PUNKTEJAGD GEHEN J/N?" 3377 GOSUB541 3378 GETW$:IFW$="J"THENRM$="J":SC=1:GOSUB130:GOTO15 3379 IFW$="N"THENSC=1:GOSUB130:POKE650,0:END 3380 GOTO3378 3385 REM PUNKTE ERRECHEN 3390 P=(100-SS)*SB+CB:RETURN 3400 REM **** KEINE MUNITION MEHR**** 3401 A$="[255]HQ AN KOMMANDANT "+N$+":":GOSUB541:PRINT 3403 A$="DA SIE UNFAEHIG SIND EIN SEEGEFECHT ZU FUEHREN SIND SIE VOM DIENST" 3404 GOSUB541:A$="SUSPENDIERT.":GOSUB541 3405 POKE198,0:WAIT198,1:GOTO3376 3410 REM ******* HI-SCORE ******** 3460 REM --- EINORDNEN --- 3461 IFP=P(I)THENNEXTI: 3467 I=I-1 3468 FORT=1TOI:N$(T)=N$(T+1):P(T)=P(T+1):NEXT:P(I)=P:N$(I)=N$:GOSUB5021:RETURN 3500 REM ----- C64 HAT GEWONNEN ---- 5000 REM --- LOAD ---- 5003 OPEN2,8,2,"HI-SCORE,S,R" 5006 FORI=1TO8:P(I)=0:N$(I)="":H$="" 5009 GET#2,X$:IFX$=CHR$(13)THENGET#2,X$:GOTO5015 5012 N$(I)=N$(I)+X$:GOTO5009 5015 GET#2,X$:IFX$=CHR$(13)THENGET#2,X$:P(I)=VAL(H$):NEXT:CLOSE2:RETURN 5018 H$=H$+X$:GOTO5015 5021 REM --- SAVE --- 5024 OPEN1,8,15,"S:HI-SCORE":CLOSE1 5027 OPEN2,8,2,"HI-SCORE,S,W" 5030 FORI=1TO8:FR$=CHR$(13):PRINT#2,N$(I) FR$ STR$(P(I)) FR$:NEXT:CLOSE2:RETURN 5033 REM---DISPLAY-- 5036 FORI=1TO8:PRINTN$(I),P(I):NEXT:RETURN 5039 REM INIT 5042 FORI=1TO8:N$(I)="C.B.":P(I)=I:NEXT:GOSUB5021:RETURN 5045 GOSUB5000:GOSUB3460:RETURN 5050 REM ----- GRATULATION ----- 5055 FORI=STOS+24:POKEI,0:NEXT:A$="[255]HQ AN KOMMANDANT "+N$+":":GOSUB541:PRINT 5060 A$="WIR GRATULIEREN IHNEN ZU DIESEM ERFOLG. SIE HABEN ALLE FEINDLICHEN" 5063 GOSUB541:A$="SCHIFFE VERSENKT.":GOSUB541:PRINT 5065 A$="DAFUER BENOETIGTEN SIE"+STR$(SS)+" SCHUSS.":GOSUB541:PRINT 5066 GOSUB3385:A$="SIE ERREICHTEN"+STR$(P)+" PUNKTE.":GOSUB541 5070 GETW$:IFW$=""THEN5070 5071 RETURN 5075 REM TREFFER BEI SPIELER 5080 POKE53280,1:FORQ=1TO8:POKE53270,Q:NEXT:FORQ=8TO1:POKE53270,Q 5085 NEXT:POKE53280,11:RETURN 5090 POKE53270,PEEK(53270)OR16:RETURN 5095 REM