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

   10 OUT(1)=207;OUT(1)=0
   11 OUT(0)=1;OUT(0)=0
   20 OUT(0)=2;F.I=1TO400;N.I;OUT(0)=0
   25 OUTC.12
   30 P.;P.;P.;P.;P.;P.
   31 P.
   35 P."              "
   40 P."                   "
   45 P."                 "
   50 P."                  "
   55 P."          "
   58 P.;P.
   60 P."             "
   65 P."                  "
   68 P."                 "
   71 P."                    "
   74 P."               "
   76 P.;P.;P.;P.
   77 P.;P.
   78 P."          JENS MOECKEL"
   79 P.;P."             RIESA"
   80 F.I=H.(EFA0)TOH.(ECE0)STEP-1
   81 A=B
   82 POKEI,32
   84 N.I
  100 REM
  198 REM
  200 REM VERFASSER:JENS MOECKEL   8400 RIESA,MAGDEBURGER STR.1B
  210 REM DIE URHEBERSCHAFT DARF  BEI WEITERGABE DES PROGRAMMS
  220 REM NICHT VERAENDERT ODER   VERSCHLEIERT WERDEN.
  230 REM RIESA,JUNI 1986
  240 REM
  990 A=H.(3F20)
  992 B=H.(3F7F)
  994 W=4
  995 W=4;OUTC.12;P.;P.;P.
  996 INPUT"SCHWIERIGKEIT (1/2/3/4/5)"V
  997 OUT(0)=1;OUT(0)=0;IFV>2W=5
  998 IF V>0 IF V<7 GOTO1000
  999 GOTO995
 1000 F.I=ATOB
 1010 POKEI,32
 1020 N.I
 1025 D=H.(CB)
 1026 @(5)=0
 1030 F.I=1TO3
 1040 F.C=1TOW
 1050 POKEB,D
 1055 B=B-1
 1060 N.C
 1065 B=B-27
 1066 IFI=1IFW=5B=B+1
 1067 IFI=2IFW=4B=B-2
 1068 IFI=2IFW=5B=B-1
 1070 N.I
 1075 P.;P.;P."KANN'S LOSGEHEN ? (ENT):",;U=INC.
 1100 OUTC.12
 1102 OUT(2)=95
 1105 G=H.(EFF9)
 1108 P.
 1109 P." ****** The Killer Comet ******"
 1110 PO.H.(EC40),32
 1111 POKEG+1,162
 1112 P.;P.
 1113 PO.H.(EC80),32
 1500 REM
 1503 N=W*3
 1504 J=0
 1505 E=80;F=H.(EC)
 1506 IFV=2F=H.(ED)
 1507 IFV=4F=H.(ED)
 1508 IFV=5F=H.(ED);E=E+72
 1509 IF V=6F=H.(ED);E=253
 1510 POKEH.(1B),H.(20)
 1520 POKEH.(1C),H.(3F)
 1522 POKEH.(23),96
 1523 H=1
 1525 F.I=HTO949
 1528 E=E+1
 1530 POKEH.(1D),E
 1540 POKEH.(1E),F
 1560 CALLH.(F51D)
 1562 IFPEEK(G+1)=DJ=1;GOTO5000
 1563 POKEG+1,162
 1564 IFE>254F=F+1;E=0
 1565 IFIN(2)#95GOTO2000
 1600 N.I
 1610 OUT(0)=0
 1620 IFJ=1GOTO3000
 1800 STOP
 2000 REM
 2010 @(5)=@(5)+1
 2090 H=I
 2095 K=G-31
 2096 L=213
 2097 M=32-E/32-(F-236)*8
 2098 M=M-1
 2100 F.I=1TOM
 2103 POKEK,L
 2105 E=E+1
 2120 IFE=255F=F+1;E=0
 2130 POKEH.(1D),E
 2140 POKEH.(1E),F
 2160 CALLH.(F51D)
 2200 IFPEEK(G+1)=DJ=1;GOTO5000
 2201 IFPEEK(G)=DJ=1;GOTO5000
 2205 POKEG+1,162
 2209 IFPEEK(K)=DOUT(0)=1;GOTO4000
 2250 POKEK,32;K=K-32
 2300 N.I
 2310 IFJ=1GOTO3000
 2400 E=E+1;IFE=255E=0;F=F+1
 2410 GOTO1525
 4000 REM
 4010 H=H+I
 4050 N=N-1
 4060 IFN=0GOTO4600
 4090 P=K
 4095 Q=0
 4096 T=-1
 4098 OUT(0)=0
 4100 F.P=KTOK-70STEP-1
 4105 POKEK,42
 4110 IFPEEK(P)=DQ=Q+1
 4115 POKEK,32
 4130 N.P
 4200 S=H.(3F3C)
 4210 F.I=H.(3F20)TOH.(3F7F)
 4230 IFPEEK(I)=DT=T+1;IFT=QGOTO4300
 4270 N.I
 4300 REM
 4310 POKEI,32
 4500 OUT(0)=0
 4510 GOTO1525
 4600 OUT(0)=0
 4620 POKEK,42
 4622 POKEK+1,42
 4624 POKEK-32,42
 4625 GOSUB4990
 4626 POKEK-33,42
 4628 POKEK-1,42
 4630 GOSUB4990
 4632 POKEK,32
 4634 POKEK-32,42
 4636 POKEK+33,42
 4637 GOSUB4990
 4638 POKEK+29,42
 4640 POKEK-65,42
 4642 POKEK-33,32
 4643 GOSUB4990
 4644 POKEK+63,42
 4646 POKEK-34,42
 4648 POKEK+1,32
 4650 GOSUB4990
 4670 POKEK-1,32
 4672 POKEK-32,32
 4674 POKEK+33,32
 4676 POKEK-98,42
 4678 POKEK+29,32
 4679 GOSUB4990
 4680 POKEK-65,32
 4682 POKEK+63,32
 4683 GOSUB4990
 4684 POKEK-34,32
 4690 POKEK-98,32
 4700 IFJ=1GOTO5111
 4800 F.I=1TO30
 4810 OUT(0)=1
 4820 F.J=1TO40-I;N.J
 4830 OUT(0)=0
 4840 F.J=1TO60-I;N.J
 4855 N.I
 4890 P.;P.;P.;P.
 4900 P."SIE HABEN DEN KILLERKOMETEN"
 4905 P.;P."MIT ",#1,@(5)," SCHUESSEN ZERSTOERT !"
 4908 G.4900+RND(4)*10
 4910 P.;P."MEINE GRATULATION !!"
 4919 G.4950
 4920 P.;P."HERZLICHEN GLUECKWUNSCH !!"
 4929 G.4950
 4930 P.;P."MEINEN GLUECKWUNSCH !!"
 4939 G.4950
 4940 P.;P."-LICHEN GLUECKWUNSCH !!"
 4950 REM
 4970 P.;P.
 4975 G.31960
 4989 G.100
 4990 F.I=1TO50;N.I
 4991 RETURN
 4999 GOTO990
 5000 REM
 5010 POKEG+1,42
 5015 R=H.(EFFF)
 5020 F.I=1TO3
 5030 F.O=1TO11
 5040 POKER,32
 5050 R=R-1
 5060 N.O
 5070 R=R-21
 5080 N.I
 5100 K=G+1-32
 5110 GOTO4620
 5111 REM
 5112 GOSUB5500
 5120 G.30000
 5490 P.;P."NOCH EIN SPIEL ? (JA=ENT):",;U=INC.
 5491 IFU#1 IFU#'C'STOP
 5498 GOTO990
 5499 ST.
 5500 F.I=1TO12
 5505 TAB(I*2)
 5508 P."PLAUTZ !"
 5509 P.
 5510 N.I
 5600 RETURN
10000 F.I=H.(1100)TOH.(3FFF)
10001 OUTC.(PEEK(I));N.I
30000 REM
30010 F.I=1TO6000;N.I
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 MIT ",#1,@(5)," SCHUESSEN"
31702 P.
31705 P.-N+W*3," MAL !!"
31720 K=(-N+14)*20/13+RND(49)/10+V/2
31730 IFV<3K=K-1;K=K*13/15
31740 K=K-(@(5)-(-N+W*3))/4
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 IFV=1G.32060
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 REM
31952 P."SIE SOLLTEN MEHR UEBEN !!"
31959 GOTO32060
31960 REM
31962 IFV<3@(5)=@(5)*15/12
31963 K=66-@(5)
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.32026+RND(2)*2
32020 P."SIE SIND JA EIN RICHTIGER";P.
32022 P."MEISTERSCHUETZE !!!!"
32025 GOTO32060
32028 P."SIE SIND SUPER !!";G.32060
32030 P."DAFUER HABEN SIE EINEN";P.;P."ORDEN VERDIENT !!"
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.":",
32120 Y=INC.;OUTC.Y
32121 OUT(0)=1;OUT(0)=0
32122 IFY=13G.100
32123 IFY='C'G.100
32124 REM
32125 REM SCHLUSSBILD
32126 REM
32128 F.I=1TO300;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 IFQ=32OUT(0)=1;F.I=1TO500;N.I;OUT(0)=0;OUTC.12;ST.
32295 Q=32
32300 J=H.(EC00)+9*32;GOTO32170
32310 A=1
32320 OUTC.A;P.A;A=A+1;GOTO32320