1 REM CATCH 2 MODE1:SYMBOL252,3,12,16,38,70,64,128,128:SYMBOL253,192,48,8,100,98,2,1,1:SYMBOL254,128,132,71,67,33,16,12,3:SYMBOL255,1,33,226,194,132,8,48,192:DEFSTR a,c-e,z:z=STRING$(2,8)+CHR$(10):c=CHR$(252)+CHR$(253)+z+CHR$(254)+CHR$(255) 3 d=STRING$(2,32)+z+STRING$(2,32):e=STRING$(2,143)+z+STRING$(2,143):f=0:FORg=8TO632STEP48:MOVEg,8:DRAWg,392:MOVE8,g:DRAW632,g:NEXT:h=2:i=2:j=38:k=23:GOSUB17:GOSUB18:EVERY50GOSUB12 4 a=INKEY$:IFa<CHR$(240)ORa>CHR$(243)THEN4 5 GOSUB15:IFASC(a)=240ANDi>2THENi=i-3 6 IFASC(a)=241ANDi<23THENi=i+3 7 IFASC(a)=242ANDh>2THENh=h-3 8 IFASC(a)=243ANDh<38THENh=h+3 9 GOSUB17:IF(h=j)AND(i=k)THEN11 10 f=f+1:GOTO4 11 g=REMAIN(0):l=100-f:LOCATE16,3:PRINT"Gewonnen":LOCATE15,5:PRINT"Score :"l:CALL&BB18:CLS:GOTO3 12 GOSUB16 13 j=INT(RND*13)*3+2:k=INT(RND*6)*3+2:IF(j=h)AND(k=i)THEN13 14 GOSUB18:RETURN 15 DI:LOCATEh,i:PRINTd:EI:RETURN 16 DI:LOCATEj,k:PRINTd:EI:RETURN 17 DI:LOCATEh,i:PRINTe:EI:RETURN 18 DI:LOCATEj,k:PRINTc:EI:RETURN