Die Zahlen werden auf die Buchstaben I,J,K abgebildet. SPIELERKLAERUNG _______________ ES WIRD VON RECHTS JEWEILS EINE WURFTAUBE IN DEN BILDSCHIRM GESCHOSSEN.DIESE KOENNEN SIE ABSCHIESSEN.DAZU BEFINDET SICH AUF DEM BILDSCHIRM (UNTEN) EIN GEWEHR. DURCH DRUECKEN DER TASTE S4 (AUF DER TASTATUR IN DER MITTE DER UNTERSTEN ZEILE) KOENNEN SIE EINEN SCHUSS AUSLOESEN.SIE HABEN PRO TAUBE NUR EINEN SCHUSS !! NACH 50 VERSUCHEN WIRD DAS SPIEL BEENDET UND AUSGEWERTET.

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    5 REM
   10 REM SKEET
   11 REM
   12 REM DIESES PROGRAMM WURDE    
   13 REM VON JENS MOECKEL                                    
   14 REM 8400 RIESA,MAGDEBURGER   
   15 REM STRASSE 1b GESCHRIEBEN.  
   16 REM DIE WEITERGABE AN DRITTE
   17 REM IST ERLAUBT,WENN DIE UR-
   18 REM HEBERSCHAFT NICHT VER-  
   19 REM AENDERT BZW VERSCHLEIERT
   20 REM WIRD.
   25 REM
   30 REM 1.BILD
   31 REM
   33 GOSUB2010
   35 REM
   37 K=1
   40 OUTC.12
   60 F.I=1TO10;P.
   61 N.I
   62 GOSUB80
   63 P."            "
   64 GOSUB80
   65 P."                         ",
   66 GOSUB80
   67 P."                        "
   68 GOSUB80
   69 P."                 "
   70 GOSUB80
   71 P."                       "
   72 GOSUB80
   73 P."                       "
   74 GOSUB80
   75 P."              "
   76 GOSUB80
   78 GOTO210
   80 F.I=1 TO 300
   82 N.I
   84 RETURN
  210 P.;P.
  211 P.;P.;P.;P.
  220 P."          JENS MOECKEL"
  221 P.
  222 P."             RIESA"
  230 POKEH.(EF40),32
  250 F.I=1 TO 2000
  255 N.I
  290 POKE H.(2C),H.(EC);POKE H.(2B),0
  300 F.I=1TO26
  310 P.
  312 F.X=1 TO 150
  313 N.X
  320 NEXT I
  399 O=H.(3FE2)
  400 POKEH.(3FE0),H.(CD)
  402 POKEH.(3FE1),H.(30)
  404 POKEO,H.(F1)
  406 POKEO+1,H.(32)
  408 POKEO+2,H.(FF)
  410 POKEO+3,H.(3F)
  412 POKEO+4,H.(C9)
  500 OUTC.12;P.;P.;P.
  510 P."WUENSCHEN SIE";P.
  520 P."SPIELERKLAERUNGEN ? (NEIN=ENT):",
  525 Z=INC.;OUTC.Z
  530 IFZ=13G.1110
  799 REM
  800 REM SPIELERKLAERUNG
  810 REM
  820 OUTC.12
  830 P.
  850 P."        SPIELERKLAERUNG"
  860 P."        ";P.
  900 P.;P."ES WIRD VON RECHTS JEWEILS EINE"
  910 P.
  920 P."WURFTAUBE IN DEN BILDSCHIRM GE-"
  930 P.
  940 P."SCHOSSEN.DIESE KOENNEN SIE AB-"
  945 P.
  950 P."SCHIESSEN.DAZU BEFINDET SICH AUF"
  960 P."DEM BILDSCHIRM (UNTEN) EIN GE-"
  965 P.
  970 P."WEHR.DURCH DRUECKEN DER TASTE S4"
  980 P."(AUF DER TASTATUR IN DER MITTE"
  985 P.
  990 P."DER UNTERSTEN ZEILE) KOENNEN SIE"
 1000 P."EINEN SCHUSS AUSLOESEN.SIE HABEN"
 1010 P."PRO TAUBE NUR EINEN SCHUSS !!"
 1012 P.
 1015 P."NACH 50 VERSUCHEN WIRD DAS SPIEL"
 1017 P."BEENDET UND AUSGEWERTET."
 1020 P.;P.
 1030 P."                     >ENTER<"
 1040 POKE H.(EFE0),32
 1100 @(4)=INC.
 1110 GOS.2010
 1112 OUTC.12
 1119 P.;P.;P.
 1120 P.;P.;P.;P."SCHWIERIGKEITSGRAD ? (1/2/3):",
 1125 I=224
 1130 CALLH.(3FE0)
 1135 IFPEEK(H.(3FFF))<76IFPEEK(H.(3FFF))>72GOTO1142
 1137 IFI=248I=224
 1138 POKEH.(ECDD),I;I=I+1
 1140 GOTO1130
 1142 @(111)=PEEK(H.(3FFF))-72
 1143 F.I=1TO5;POKEH.(ECDD),@(111)+48;F.O=1TO400;N.O
 1144 OUT(0)=0;PO.H.(ECDD),32;F.O=1TO300;N.O;OUT(0)=K;N.I
 1145 K=0;H=0
 1146 OUTC.12
 1147 U=26
 1148 OUT(0)=0;F.I=1TO200;N.I
 1149 P.;P.;P.
 1150 P.;P.;P.;P.;P."   GLEICH GEHT'S LOS !!"
 1155 GOSUB2010
 1160 P.;P.;P.;P.;P.
 1170 F.I=1 TO 1200
 1180 N.I
 1190 P."        ACHTUNG"
 1191 Y=2
 1195 GOSUB2010
 1200 F.I=1 TO 1200
 1210 N.I
 1220 P.;P.;P.;P."        FERTIG"
 1229 Y=2
 1230 GOSUB2010
 1250 F.I=1 TO 1200
 1260 N.I
 1270 P.;P.;P.;P."        LOS !!!"
 1273 Y=1
 1275 GOSUB2010
 1276 Y=1;GOSUB2010
 1280 F.I=1 TO 1000
 1300 N.I
 1399 Y=2
 1400 GOSUB2010
 1409 Y=2
 1410 GOSUB2010
 1419 Y=2
 1420 GOSUB2010
 1429 Y=2
 1430 GOSUB2010
 2000 GOTO7000
 2010 REM BEEP
 2011 Y=1
 2015 OUT(1)=207;OUT(1)=0;OUT(0)=Y
 2020 IFY=2F.I=1TO100;N.I
 2050 OUT(0)=0
 2100 RETURN
 6997 REM
 6998 REM SPIELBEGINN
 6999 REM
 7000 B=0
 7010 OUT(2)=95
 7050 O=0
 7100 E=0
 7150 G=0
 7200 P=0;H=0
 7300 OUTC.12
 7800 F.I=1 TO 28
 7850 P.;N.I
 7900 W=58
 8000 P.""
 8100 P."VERSUCHE:            TREFFER:",
 8500 POKE -4163,48
 8501 POKE -4162,48
 8550 @(95)=26
 8560 @(96)=20
 8600 IF @(111)=3 @(112)=1;@(95)=28
 8610 IF @(111)=3 @(96)=16;@(112)=1
 9000 IF @(111)=1 @(112)=20
 9100 IF @(111)=2 @(112)=1
10000 C=H.(EC00)+159
10001 A=RND(@(95));C=H.(EBFF)+A*32
10002 IF A<@(96) GOTO10001
10003 D=-4243
10004 GOSUB24000
10005 Z=32
10006 X=A
10008 A=RND(60)/20;IF A>1 GOTO11444
10009 IF X=28 C=C-1;Z=31;REM GERADE FLUGBAHN
10010 F.I=1 TO Z
10025 POKE C+1,32
10030 POKE C,U
10035 C=C-1
10045 IFIN(2)#95OUT(0)=1;G.30100
10050 F.V=1 TO @(112)
10052 N.V
10100 N.I
10101 POKE C+1,32
10200 GOTO10000
11222 REM
11230 REM SCHRAEGE FLUGBAHN
11444 D=D-32
11900 C=H.(EC00)-65
11910 @(44)=0;IF @(95)=26 GOTO12000
11920 @(44)=RND(10)/3
11930 IF @(44)=2 C=C+64
11940 IF @(44)#2 @(44)=0
12000 F.I=-2 TO 28-@(44)
12003 IF I=4 S=1
12008 POKE C-31,32
12010 POKE C,U
12011 C=C+31
12016 IFIN(2)#95OUT(0)=1;G.30800
12020 F.V=1 TO @(112)
12022 N.V
12040 N.I
12100 POKE C-31,32
13000 GOTO10000
22500 REM
22555 REM TREFFER
22556 REM
22560 OUT(0)=2
22600 POKE D,42
22605 POKE D+32,42
22610 POKE D-31,32
22620 POKE D+1,42;POKE D-1,42
22630 POKE D,32;POKE D-32,42;POKE D+33,42
22635 F.I=1 TO 20
22636 N.I
22637 OUT(1)=207;OUT(1)=0;OUT(0)=0
22640 POKE D+29,42;POKE D-65,42
22645 POKE D+32,32
22650 POKE D+63,42
22660 POKE D-34,42
22670 F.I=1 TO 20
22675 N.I
22700 POKE D+1,32;POKE D-1,32
22750 POKE D-32,32;POKE D+33,32
22760 POKE D-98,42
22780 F.I=1 TO 20
22785 N.I
22800 POKE D+29,32;POKE D-65,32
22810 F.I=1 TO 20
22820 N.I
22900 POKE D+63,32;POKE D-34,32
22910 POKE D-98,32
22911 A=X
22912 IF A>26 POKE H.(EF8C),160
23000 P=P+1;H=H+1
23002 IF P=10 E=E+1
23005 IF P=10 P=0
23100 POKE -4163,E+48
23400 POKE -4162,P+48
23500 GOTO10000
23590 REM
23595 REM ANZEIGE VERSUCHE
23596 REM
24000 B=B+1
24010 O=O+1
24011 IF O=51 GOTO31600
24012 IF B=10 G=G+1
24014 POKE -4183,G+48
24800 IF B=10 B=0
25002 L=B+48
25005 Q=-4182
25010 POKE Q,L
30000 RETURN
30099 REM
30100 REM SCHUSS GERADE
30101 REM
30102 OUT(1)=207;OUT(1)=0;OUT(0)=0
30105 Z=32-I
30106 IF X=28 Z=31-I
30110 F.I=1 TO Z
30115 POKE C+1,32
30120 POKE D,58;D=D-32
30140 POKE D+32,32
30160 POKE C,U
30165 C=C-1
30200 IF C+1=D GOTO22555
30220 IF C+1=D+32 GOTO22555
30400 N.I
30450 POKE C+1,32
30600 GOTO10000
30799 REM
30800 REM SCHUSS SCHRAEG
30801 REM
30850 OUT(1)=207;OUT(1)=0;OUT(0)=0
30900 Z=28-I-@(44)
30910 F.I=1 TO Z
30920 POKE C-31,32
30930 POKE D,58;D=D-32
30940 POKE D+32,32
30950 POKE C,U;C=C+31
30960 IF C-31=D GOTO22555
30970 IF C-31=D+32 GOTO22555
31000 N.I
31200 POKE C-31,32
31400 GOTO10000
31599 REM
31600 REM TREFFERAUSWERTUNG
31601 REM
31610 Z=1
31615 F.I=1 TO 20
31620 OUT(0)=Z
31621 IF Z=1 Z=2;GOTO31625
31622 Z=1
31625 N.I
31630 OUT(1)=207;OUT(1)=0;OUT(0)=0
31655 OUTC.12
31660 F.I=1 TO 6
31670 P.
31680 N.I
31700 P."SIE TRAFEN ",#1,H," VON 50 TAUBEN."
31720 K=H
31730 IF @(112)=1 K=K+5
31740 IF @(96)=16 K=K+3
31750 P.;P.;P.;P.;P.
31800 IF K>10 GOTO31822
31810 P."SIE SOLLTEN LIEBER DIE FINGER";P.
31820 P."DAVON LASSEN !!!!"
31821 GOTO32060
31822 IF K>13 GOTO31850
31824 P."ES IST ZWECKLOS MIT IHNEN !!!"
31849 GOTO32060
31850 IF K>15 GOTO31870
31855 P."SIE SOLLTEN LIEBER";P.
31860 P."MURMELN SPIELEN !!!"
31869 GOTO32060
31870 IF K>18 GOTO31900
31872 P."DAS WAERE MIR NIE PASSIERT !!"
31874 GOTO32060
31900 IF K>20 GOTO31907
31902 P."EIN MEISTERSCHUETZE SIND SIE";P.
31904 P."JA NICHT GERADE !"
31905 GOTO32060
31907 IF K>23 GOTO31920
31908 P."DAS WAR UNTER ALLER WUERDE !!"
31919 GOTO32060
31920 IF K>25 GOTO31940
31922 P."ICH HAB' SCHON GEGEN BESSERE"
31923 P.
31924 P."GESPIELT !!"
31925 IF @(112)#1 GOTO32060
31926 P.;P."SIE SOLLTEN ES VIELLEICHT MIT"
31927 P.;P."DER 1.SCHWIERIGKETSSTUFE";P.;P."VERSUCHEN !!"
31939 GOTO32060
31940 IF K>29 GOTO31950
31942 P."NA JA ..."
31944 P.;P."DAS GEHT AUCH BESSER !"
31945 GOTO32060
31950 IF K>32 GOTO31960
31952 P."SIE SOLLTEN MEHR UEBEN !!"
31959 GOTO32060
31960 IF K>35 GOTO31970
31962 P."DAS IST GAR NICHT SO SCHLECHT !!"
31965 GOTO32060
31970 IF K>38 GOTO31980
31972 P."SIE HABEN GUT GESPIELT !!"
31979 GOTO32060
31980 IF K>40 GOTO32000
31982 P."MEIN KOMPLIMENT !"
31999 GOTO32060
32000 IF K>42 GOTO32010
32001 GOTORND(2)*2+32000
32002 P."DAS IST WIRKLICH BEMERKENSWERT !"
32003 GOTO32060
32004 P."SAUBER !!"
32005 GOTO32060
32010 IF K>45 GOTO32019
32012 P."DAS IST AUSGEZEICHNET !!"
32015 GOTO32060
32019 IFK>48G.32028+RND(2)*2
32020 P."SIE SIND JA EIN RICHTIGER";P.
32022 P."MEISTERSCHUETZE !!!!"
32025 GOTO32060
32030 P."DAFUER HABEN SIE EINEN";P.;P."ORDEN VERDIENT !!"
32031 G.32060
32032 REM
32033 P."SIE SIND SUPER !"
32060 P.;P.;P.;P.;P.;P.
32070 F.I=1 TO 500
32080 N.I
32090 K=1
32100 P.;P."WOLLEN SIE NOCH EINMAL";P.
32110 P."SPIELEN ? (JA=ENT;NEIN=N)",
32111 P.":",
32112 CALLH.(3FE0)
32113 IFPEEK(H.(3FFF))=78GOTO32124
32114 IFPEEK(H.(3FFF))=13GOTO1110
32115 GOTO32112
32116 GOSUB2010
32124 REM
32125 REM SCHLUSSBILD
32126 REM
32128 OUTC.78;F.I=1TO200;N.I
32130 Q=203
32140 OUTC.12
32145 J=H.(EC00)+9*32
32150 F.I=1 TO 14
32155 P.
32160 N.I
32165 P."       AUF  WIEDERSEH'N";P.;P.;P.;P.
32170 F.I=1 TO 32
32175 POKE J,Q
32180 J=J+1
32185 N.I
32190 F.I=1 TO 11
32195 POKE J-1,Q
32200 J=J+32
32210 N.I
32220 F.I=1 TO 32
32225 POKE J-33,Q
32230 J=J-1
32240 N.I
32250 F.I=1 TO 10
32255 POKE J-32,Q
32260 J=J-32
32270 N.I
32280 F.I=1 TO 2200
32290 N.I
32292 IF Q=32 OUTC.12;STOP
32295 Q=32
32300 J=H.(EC00)+9*32;GOTO32170
32310 A=1
32320 OUTC.A;P.A;A=A+1;GOTO32320