5 CROFF 10 COL 0,$e6,0 15 CLS 20 TLOAD 2,"fontkc.dat",16,11 30 STILE 2 32 TLOAD 15,"man.dat",1,1 35 MBOUND 0,463,623,463 37 MOUSE 1,1 40 f(0)=$e6 50 f(1)=0 60 f(2)=$56 70 e=50 80 p=0 100 WAVE 1,4 200 ADSR 1,1,0,255,10 1000 a(0)=32 1010 a(1)=165 1020 b(0)=32 1030 b(1)=12 1040 b(2)=13 1050 c=20:REM cursor 1100 s=0 1200 GOSUB 6000 2000 k=MB (0) 2010 c=MGET (1) 2100 REM ziel darstellen 2130 IF t(3)=0 THEN GOSUB 6000 2140 IF TIMER c(1)=1 THEN t(4)=0 2150 IF t(4)=0 THEN TILE 32,$e6,0,0,t(1),t(2) 2160 IF t(4)=0 THEN t(3)=0 2170 IF k=255 THEN GOSUB 10000 2230 IF s<0 THEN s=0 3000 GOTO 2000 5000 REM 5020 s=s-1 5030 IF s<0 THEN RETURN 5040 TILE 124,f(0),f(1),f(2),d,s 5080 IF d=t(1) AND s=t(2) THEN t(3)=0 5085 TILE 32,f(0),f(1),f(2),d,s 5090 IF t(3)=0 THEN NOTE 1,60 5100 IF t(3)=0 THEN s=-1 5110 IF t(3)=0 THEN p=p+1 5120 IF t(3)=0 THEN e=e-1 5125 IF t(3)=0 THEN GOSUB 7000 5130 IF e=0 THEN GOTO 8000 5140 NTOFF 1 5900 GOTO 5000 6000 t(1)=FN int(RND (38)) 6010 t(2)=FN int(RND (24))+2 6020 TILE 128,$e6,0,0,t(1),t(2) 6030 t(3)=1 6040 TIMER s(1,15) 6050 t(4)=1 6900 RETURN 7000 POS 0,0 7010 PRINT "Punkte:";p;TAB (12);"Feinde:";e;" ";TAB (24);"Schuss:";m 7900 RETURN 8000 REM ende 8010 CLS :NTOFF 1 8020 x=m-50 8030 IF !x<5 THEN #a="Superschuetze" 8040 IF !x>4 THEN #a="sehr guter Schuetze" 8050 IF !x>8 THEN #a="guter Schuetze" 8060 IF !x>10 THEN #a="maessiger Schuetze" 8070 IF !x>15 THEN #a="lausiger Schuetze" 8080 IF !x>19 THEN #a="absoluter Blindgaenger" 8100 PRINT "Sie haben alle Feinde vernichtet." 8110 PRINT "und haben dafuer ";m;" Schuss" 8120 PRINT "benoetigt!" 8130 PRINT "Sie sind ein ";#a 8200 MOUSE 0,0 8500 END 10000 NOTE 1,75:NTOFF 1 10010 IF s=0 THEN d=c 10020 IF s=0 THEN s=29 10030 IF s=29 THEN GOSUB 5000 10040 m=m+1 10050 GOSUB 7000 10060 RETURN