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

    1 G.10
    2 F.A=H.(1100)TOH.(3FFF);OUTC.(PEEK(A));N.A
   10 OUT(1)=207;OUT(1)=0;OUT(2)=95
   15 OUT(0)=2;F.I=1TO500;N.I;OUT(0)=0
   20 G.5000
   30 REM
   35 OUT(0)=1;OUT(0)=0
   50 REM
   52 REM VERFASSER:JENS MOECKEL    8400 RIESA,MAGDEBURGER STR.1B
   53 REM WEITERGABE NUR,WENN DIE   URHEBERSCHAFT NICHT VERAEN-
   54 REM DERT ODER VERSCHLEIERT    WIRD. RIESA,JULI 1986
   80 OUTC.12;P.;P.;P.;P.
   82 INPUT"SCHWIERIGKEITSGRAD (1/2/3)"O
   84 IFO>0IFO<4G.86
   85 G.80
   86 P.;P.;P.;P."KANN'S LOSGEHEN  ? (ENT):",;Z=INC.;P."START"
   87 OUT(0)=1;OUT(0)=0
   90 OUTC.12
   92 OUT(0)=1;OUT(0)=0
   94 P.;P.
   95 P." ********* STERNTALER *********"
   96 M=0;L=0
   99 F.I=1TO24;P.;N.I
  100 F.I=1TO20
  110 POKEH.(EC80)+RND(192),42
  120 N.I
  129 O=-O+4
  130 C=13;TAB(C);F.I=1TOO;OUTC.24;N.I
  131 O=-O+4
  132 P.
  135 P.;TAB(3)
  140 P."VERSUCHE:",#1,L,
  142 TAB(5)
  145 P."PUNKTE:",#1,M,
  800 A=RND(299)/100
  806 B=A+31
  830 E=RND(6)
  840 IFB=33D=RND(10);E=59/(D*10);E=RND(E+1);D=H.(EC80)+D-1+E*32
  843 IFB=31D=RND(10);E=599/(D*100)+1;D=H.(ECC0)-D+E*32
  844 IFB=32D=RND(24)+4+H.(EC80)+RND(6)*32
  980 F.I=DTOH.(EF5F)STEPB
  990 POKEI,42
  995 POKEI-B,32
 1010 IFIN(2)=94IFC>0C=C-1;POKEH.(2B),H.(60);GOSUB 1020+O*2
 1015 IFIN(2)=87IFC<27+OC=C+1;POKEH.(2B),H.(60);GOSUB1021+O*2
 1016 PO.H.(EF80),32
 1017 IFI>-1G.3020
 1018 N.I
 1020 G.1210
 1022 TAB(C);P."";RETURN
 1023 TAB(C);P."";RETURN
 1024 TAB(C);P."";RETURN
 1025 TAB(C);P."";RETURN
 1026 TAB(C);P."";RETURN
 1027 TAB(C);P."";RETURN
 1100 IFI>-1G.3020
 1210 G=H.(EF40)
 1220 L=L+1
 1231 I=I-B
 1245 G.1249+O
 1250 IFPEEK(G+C+2)=42G.1260
 1251 IFPEEK(G+C+1)=42G.1260
 1252 IFPEEK(G+C)=42G.1260
 1255 G.2000
 1260 F.J=1TO10
 1270 POKEI,42
 1275 F.K=1TO300;N.K
 1280 POKEI,32
 1285 F.K=1TO300;N.K
 1290 N.J
 1295 M=M+1
 1999 G.2999
 2000 REM
 2010 POKEI,32
 2012 POKEI+32,42
 2013 F.J=1TO200;N.J
 2014 POKEI+32,32
 2016 POKEI+64,42
 2900 IFL=30G.3030
 2999 N=I
 3000 F.I=1TORND(40)+((-O+4)*10)
 3010 G.1010
 3020 N.I
 3030 POKEN,32
 3035 POKEH.(2B),H.(80)
 3040 P.
 3041 TAB(3)
 3042 P."VERSUCHE:",#1,L,
 3043 TAB(5)
 3044 P."PUNKTE:",#1,M
 3045 PO.H.(EFC0),32
 3050 OUT(0)=1;OUT(0)=0
 3095 IFL=30G.31610
 3100 G.800
 4100 P.;P.;P.
 5000 OUTC.12
 5001 P.;P.
 5002 G.5030
 5005 F.I=1TOJ
 5006 F.L=1TO2;N.L
 5010 OUTC.K
 5020 N.I
 5021 RETURN
 5030 J=356;K=42;GOS.5005
 5035 J=24;K=32;GOS.5005
 5037 J=8;K=42;GOS.5005
 5039 OUT(0)=1
 5040 P."  S T E R N T A L E R  ",
 5041 OUT(0)=0
 5050 OUTC.32
 5060 J=8;K=42;GOS.5005
 5070 J=24;K=32;GOS.5005
 5080 J=236;K=42;GOS.5005
 5090 P."  JENS MOECKEL  ",
 5100 J=16;GOS.5005
 5110 J=16;K=32;GOS.5005;K=42;GOS.5005
 5120 P."      RIESA     ",
 5130 J=160;GOS.5005
 5140 J=8;GOS.5005
 5200 PO.H.(EFE0),32
 5300 F.I=1TO4000;N.I
 5310 GOTO30
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 FINGEN ",#1,M," VON 30 TALERN"
31710 K=M
31724 K=K*5/3
31745 K=K+(O-1)*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."BEI DER LEISTUNG HILFT NUR RUHIG"
31904 P."BLEIBEN UND NERVEN BEHALTEN !"
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 IFO=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 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
32011 G.32010+RND(2)*2
32012 P."DAS IST AUSGEZEICHNET !!"
32013 G.32060
32014 P."HERVORRAGEND !!";P.;P."DAFUER MUESSEN SIE EINEN AUS-"
32015 P.;P."GEBEN !";G.32060
32019 IF K>48 GOTO32030
32020 P."SIE SIND SUPER !"
32025 GOTO32060
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.":",
32115 Y=INC.;OUTC.Y
32118 OUT(0)=1;OUT(0)=0
32120 IFY=13G.30
32121 IFY='C'G.30
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=32OUTC.12;OUT(0)=2;F.I=1TO500;N.I;OUT(0)=0;ST.
32295 Q=32
32300 J=H.(EC00)+9*32;GOTO32170
32310 A=1
32320 OUTC.A;P.A;A=A+1;GOTO32320