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 SID WAVE(1,4)
200 SID ADSR(1,1,0,15,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 SID NT(1,50)
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 SID NT(1,0)
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 :SID NT(1,0)
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 SID NT(1,75):SID NT(1,0)
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