Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)

   10 REM
   20 OUTCHAR 12
   30 GOTO 22000
   85 OUTCHAR 12
  100 REM
  110 REM
  120 PRINT"HIER SIND 23 STREICHHOELZER!"
  140 PRINT; PRINT"SIE NEHMEN STETS 1, 2 ODER 3."
  160 PRINT; PRINT"DARAUF NEHME ICH 1, 2 ODER 3."
  180 PRINT; PRINT"WER DAS LETZTE STREICHHOLZ"
  200 PRINT; PRINT"NIMMT, HAT VERLOREN."
  210 PRINT; PRINT
  220 PRINT; PRINT"VERSTANDEN? ES GEHT LOS!!!"
  230 FOR I=1TO10000
  240 NEXT I
  250 OUTCHAR 12
  300 PRINT; PRINT; PRINT; PRINT
  310 M=23
  320 Z=0
  325 IF M=1GOTO1000
  330 PRINT"HIER SIND JETZT",#3,M," HOELZER."
  400 Q=HEX(EE24)
  410 FOR K=1TO5
  420 Z=Z+1
  440 IF Z<=M POKE Q,161
  450 Q=Q+1
  460 NEXT K
  470 Q=Q+1
  480 IF Z<M GOTO410
  500 PRINT
  510 INPUT"WIEVIELE NEHMEN SIE?"N
  515 PRINT
  530 IF N>3GOTO900
  540 IF N<1GOTO900
  550 IF N>MGOTO900
  560 M=M-N
  580 IF M=1GOTO800
  590 R=M-4*(M/4)
  600 IF R#1GOTO650
  610 C=RND(3)
  620 GOTO660
  650 C=3+R-4*((R+3)/4)
  660 M=M-C
  665 IF M=0GOTO800
  670 OUTCHAR 12
  680 PRINT"ICH NEHME",#3,C
  690 PRINT; GOTO320
  800 OUTCHAR 12
  810 FOR I=1TO15
  820 PRINT
  830 NEXT I
  840 PRINT"HERZLICHEN GLUECKWUNSCH,"
  845 PRINT"SIE HABEN GEWONNEN!!!!"
  850 PRINT; INPUT"NOCH EINMAL ? JA=1"A
  880 IF A=1GOTO250
  890 GOTO 22000
  900 PRINT"NA...NICHT MOGELN!!!!"
  910 GOTO510
 1000 FOR I=1TO20
 1010 PRINT
 1020 NEXT I
 1030 PRINT"TJA....DAS LETZTE HOLZ WERDEN"
 1040 PRINT; PRINT"SIE WOHL NEHMEN MUESSEN!!!!"
 1045 A=HEX(EE28)
 1050 Q=A
 1055 POKE Q,207
 1060 Q=Q+1
 1065 FOR I=1TO5
 1070 IF Q<HEX(EE2E) POKE Q,160
 1075 Q=Q+1
 1080 NEXT I
 1090 Z=0
 1095 Q=A-32
 1100 FOR I=1TO5
 1110 POKE Q,127+RND(8)
 1150 Q=Q-32
 1160 NEXT I
 1170 Z=Z+1
 1180 IF Z<4GOTO1095
 1200 Q=A
 1210 FOR I=1TO6
 1220 POKE Q,32
 1230 Q=Q-32
 1240 NEXT I
 1250 A=A+1
 1260 IF A<HEX(EE2E) GOTO1050
 1300 GOTO850
 1500 REM ANFANG NEU
 1510 OUTCHAR 13
 1520 FOR I=1 TO 10
 1530 PR.
 1540 NEXT I
 1550 PR."DAS SPIEL DER"
 1560 PR.
 1570 PR."23 STREICHHOELZER"
 1580 FOR I=1 TO 4000
 1590 NEXT I
 1600 OUTCHAR 12
 1610 FOR I=1 TO 10
 1620 PR.
 1630 NEXT I
 1640 GOTO 100
 2000 REM MASTERMIND
 2010 OUTCHAR 13
 2020 PR.
 2030 PR.
 2040 PR."      M A S T E R M I N D"
 2050 PR."-------------------------------"
 2060 PR.
 2070 PR.
 2100 PR."ICH HABE EINE 4-STELLIGE"
 2110 PR.
 2120 PR."ZUFALLSZAHL ERMITTELT."
 2130 PR.
 2140 PR."RATEN SIE DIESE ZAHL  !!"
 2150 PR."------------------------"
 2160 PR.
 2170 PR."* RICHTIGE STELLE"
 2180 PR.
 2190 PR."# FALSCHE STELLE"
 2200 PR.
 2210 PR."------------------------"
 2220 PR.
 2230 PR."KANN ICH BEGINNEN:(ENTER) ?"
 2240 PR.
 2250 PR."------------------------"
 2260 W=INCHAR;OUTCHAR W
 2300 REM
 2310 OUTCHAR 12
 2320 A=RND(9);M=A
 2330 B=RND(9);N=B
 2340 C=RND(9);O=C
 2350 D=RND(9);P=D
 2360 V=0
 2370 REM
 2380 A=M; B=N
 2390 C=O; D=P
 2400 REM
 2410 V=V+1
 2430 PR.#2,V,".ENGABE ",
 2440 INPUT F
 2450 IF F=19999 GOTO 3560
 2460 G=F/1000
 2470 H=(F-(G*1000))/100
 2480 I=(F-(G*1000)-(H*100))/10
 2490 J=F-(G*1000)-(H*100)-(I*10)
 2495 PR.#3,G,H,I,J
 2496 TAB(20)
 2500 S=0
 2510 IF A#G GOTO 2550
 2520 S=S+1
 2530 PR."* ",
 2540 A=10;G=11
 2550 IF B#H GOTO 2600
 2560 S=S+1
 2570 PR."* ",
 2580 B=10;H=11
 2600 IF C#I GOTO 2650
 2610 S=S+1
 2620 PR."* ",
 2630 C=10;I=11
 2650 IF D#J GOTO 2700
 2660 S=S+1
 2670 PR."* ",
 2680 D=10;J=11
 2690 IF S=4 GOTO 3500
 2700 IF G#B GOTO 2730
 2710 PR."# ",
 2720 B=10; GOTO 2790
 2730 IF G#C GOTO 2760
 2740 PR."# ",
 2750 C=10; GOTO 2790
 2760 IF G#D GOTO 2790
 2770 PR."# ",
 2780 D=10
 2790 IF H#A GOTO 2820
 2800 PR."# ",
 2810 A=10; GOTO 2880
 2820 IF H#C GOTO 2850
 2830 PR."# ",
 2840 C=10; GOTO 2880
 2850 IF H#D GOTO 2880
 2860 PR."# ",
 2870 D=10
 2880 IF I#A GOTO 2910
 2890 PR."# ",
 2900 A=10; GOTO 2970
 2910 IF I#B GOTO 2940
 2920 PR."# ",
 2930 B=10; GOTO 2970
 2940 IF I#D GOTO 2970
 2950 PR."# ",
 2960 D=10
 2970 IF J#A GOTO 3000
 2980 PR."# ",
 2990 A=10; GOTO 3500
 3000 IF J#B GOTO 3030
 3010 PR."# ",
 3020 B=10;GOTO 3500
 3030 IF J#C GOTO 3500
 3040 PR."# ",
 3500 PR.
 3510 IF S=4 GOTO 3700
 3520 IF V<30 GOTO 2370
 3530 PR.
 3540 PR."SCHLUSS AUS - DAS ERGEBNIS WAR"
 3550 PR.
 3560 PR.#3,M,N,O,P
 3570 PR."                                     WAR RICHTIG"
 3575 PR.
 3580 INPUT"NOCHMAL  (JA=1)"Z
 3590 IF Z=1 GOTO 2300
 3600 OUTCHAR 12
 3610 FOR I=1 TO 10
 3620 OUTCHAR 13
 3630 NEXT I
 3640 PR."  DANN EBEN NICHT"
 3650 FOR I=1 TO 1000
 3660 NEXT I
 3670 OUTCHAR 12
 3680 GOTO 22000
 3700 REM
 3710 PR.
 3720 PR."SIE HABEN ES"
 3730 PR.
 3740 PR."     RICHTIG GELOEST !!!"
 3750 GOTO 3550
 4000 REM ZAHLENRATEN
 4010 OUTCHAR 12
 4020 FOR I=1 TO 10
 4030 OUTCHAR 13
 4040 NEXT I
 4050 PR."Z A H L E N R A T E N"
 4060 PR."---------------------"
 4070 PR.
 4100 REM
 4110 INPUT"EINGABE DER GROESTEN ZAHL "L
 4120 PR.;PR.
 4130 PR."ICH ERMITTLE JETZT EINE"
 4140 PR.
 4150 PR."ZAHL ZWISCHEN 1 UND",L
 4160 PR.
 4170 C=RND(L)
 4180 V=0
 4200 REM
 4210 V=V+1
 4220 REM
 4230 PR.
 4240 INPUT"RATE DIE ERMITTELTE ZAHL"M
 4250 PR.
 4300 REM
 4310 IF C<M PR."ZU GROSS";GOTO 4200
 4320 IF C>M PR."ZU KLEIN";GOTO 4200
 4330 PR.
 4340 PR."RICHTIG",#4,M," IST DIE GESUCHTE"
 4350 PR.
 4360 PR."ZAHL. NACH",#3,V," VERSUCHEN !"
 4370 PR.;PR.
 4380 PR."WIE SOLL ES WEITER GEHEN"
 4390 PR."------------------------"
 4400 PR.
 4410 PR."*Ins MENUE           (1)"
 4420 PR."*Neuer ZAHLENBEREICH (2)"
 4430 PR."*Weiter              (3)"
 4440 PR.
 4450 INPUT"EINGABE KENNZIFFER"Z
 4455 OUTCHAR 12
 4460 IF Z=2 PR.;PR.;GOTO 4100
 4470 IF Z=3 GOTO 4120
 4480 PR.;PR.;PR.;PR.;PR.
 4490 PR."KEINE LUST MEHR ????"
 4500 FOR I=1 TO 1000
 4510 NEXT I
 4520 GOTO 22000
 6000 REM ZEICHNEN
 6010 OUTCHAR 12
 6020 U=HEX(EC00)
 6030 PR."GEWUENSCHTES ZEICHEN"
 6040 PR.;PR."Z=ZEILE   S=SPALTE";PR.
 6050 O=INCHAR
 6060 Q=O;OUTCHAR (O+80)
 6065 P=INCHAR
 6070 IF P=64 GOTO 6050
 6075 P=INCHAR
 6080 IF P#13 GOTO 6100
 6090 Q=O+80
 6100 REM ANZEIGE
 6110 FOR I=1 TO 30 STEP 5
 6120 PR.#2,I
 6130 PR.;PR.;PR.;PR.
 6150 NEXT I
 6200 REM EINGABE
 6210 INPUT"Z"V
 6220 INPUT"S"W
 6300 REM POKE
 6310 T=(V-1)*32
 6320 W=W-1
 6330 S=U+T+W
 6340 R=INCHAR
 6350 IF R=13 S=S-32;POKE S,Q
 6360 IF R=8  S=S-1 ;POKE S,Q
 6370 IF R=9  S=S+1 ;POKE S,Q
 6380 IF R=32 S=S+32;POKE S,Q
 6390 IF R=64 GOTO 6000
 6400 REM
 6410 IF R<33 GOTO 6340
 6420 POKE S,R
 6430 GOTO 6340
 6500 GOTO 6340
22000 REM LISTE
22005 OUTCHAR 12
22010 PR.
22020 PR."------------------------------"
22030 PR."-       M E N U E            -"
22040 PR."------------------------------"
22050 PR.
22060 PR."Bitte waehlen Sie !"
22070 PR.
22080 REM
22090 PR."1.....STREICHHOLZSPIEL"
22100 PR.
22110 PR."2.....MASTERMIND"
22120 PR.
22130 PR."3.....ZAHLENRATEN"
22140 PR.
22150 PR."4.....ZEICHNEN"
22370 PR.
22380 PR."------------------------------"
22390 PR.
22400 INPUT"Bitte Kennzahl "X
22410 OUTCHAR 12
22420 IF X<1 GOTO 22000
22430 IF X>9 GOTO 22000
22440 IF X=1 GOTO 1500
22450 IF X=4 GOTO 6000
22460 IF X=3 GOTO 4000
22470 IF X=2 GOTO 2000