1 REM BOOT 10 DIM b$(2):INK 1,26:INK 2,11:INK 3,0:SYMBOL AFTER 245:SPEED KEY 1,1:SYMBOL 245,0,0,0,0,0,57,31,15:SYMBOL 246,1,33,35,51,127,255,255,255:SYMBOL 247,0,4,6,204,252,255,255,255:SYMBOL 248,0,0,0,0,32,236,252,248:SYMBOL 249,0,119,65,73,28,73,65,119 20 SYMBOL 250,0,0,0,0,0,15,63,31:SYMBOL 251,0,0,1,7,255,255,255,255:SYMBOL 252,128,130,130,227,255,255,255,255:SYMBOL 253,0,0,0,192,192,254,252,240:b$(1)=CHR$(250)+CHR$(251)+CHR$(252)+CHR$(253):b$(2)=CHR$(245)+CHR$(246)+CHR$(247)+CHR$(248) 30 ENV 1,2,2,1,15,-1,7:c$="  "+CHR$(249)+"  ":MODE 1:WINDOW #1,1,40,1,3:PAPER #1,2:CLS #1:GRAPHICS PAPER 2:LOCATE 3,24:PRINT "Score: 0":LOCATE 25,24:PRINT "Torpeden: 0":TAG:FRAME 40 FOR a=1 TO 10:st=1+INT(4*RND):IF RND>0.49 THEN s=-63:e=639:b=1 ELSE s=639:e=-63:st=-st:b=2 50 FOR x=s TO e STEP st:a$=INKEY$:IF t=0 THEN z=z+(UPPER$(a$)="Z")-(UPPER$(a$)="X"):z=z-(z<-17)+(z>18):TAGOFF:LOCATE z+18,4:PRINT c$:TAG 60 MOVE x,366:GRAPHICS PEN 3:PRINT b$(b); 70 IF a$=" " AND t=0 THEN t=1:xt=327:yt=0:d=INT(z/3+0.4):sct=sct+1:TAGOFF:LOCATE z+20,4:PRINT CHR$(32):LOCATE 34,24:PRINT sct:TAG:SOUND 129,100,1000,7,0,0,1 80 IF t=1 THEN MOVE xt-d,yt-7:DRAWR d,7,0:DRAWR d,7,1:xt=xt+d:yt=yt+7 90 IF t=2 THEN t=0:IF xt+d+4>x AND xt+d<x+60 THEN sc=sc+1:SOUND 129,3700,-1,11,1,0,8:MOVE x,366:PRINT SPACE$(4);:MOVE xt,yt:DRAWR -d,-7,3:TAGOFF:LOCATE 9,24:PRINT sc:TAG:GOTO 120  100 IF t=1 AND yt>348 THEN t=2:SOUND 129,0,0,0 110 NEXT 120 NEXT:PAPER #1,0:WINDOW #1,1,40,1,23:CLS #1:PRINT #1,"Noch einmal? [J]a - [N]ein":SPEED KEY 10,2 130 a$=INKEY$:IF UPPER$(a$)="J" THEN RUN ELSE IF UPPER$(a$)<>"N" THEN 130