Steuerung: ⇦ ⇨ U ␣

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

   10 OUTCHAR(12)
   11 PRINT;PRINT;PRINT;  
   12 PRINT"********************************"
   13 PRINT"*                              *"
   14 PRINT"*     H I N T E R H A L T      *"
   15 PRINT"*                              *"
   16 PRINT"********************************"
   17 PRINT;PRINT;PRINT;
   20 PRINT"SINN DIESES SPIELES IST ES,DEN"
   21 PRINT
   22 PRINT"SPIELSTEIN (*) SOLANGE WIE"
   23 PRINT
   25 PRINT"MOEGLICH ZU BEWEGEN"
   26 PRINT;PRINT
   27 PRINT"SPIELTASTEN FUER RICHTUNG"
   35 FORI=1TO8000;N.I
   50 B=30;A=7;Z=-1;OUTCHAR(12)
   60 FORI=0TO31
   65 POKEHEX(ECC0)+I,35
   67 POKEHEX(EEC0)+I,35
   70 N.I
   80 FORI=0TO15
   85 POKEHEX(ECE0)+I*32,35
   87 POKEHEX(ECFF)+I*32,35
   88 N.I
   90 Z=Z+1
  100 W=42;GOSUB2000
  110 E=INCHAR
  125 W=32;GOSUB2000
  127 C=A;D=B
  130 IFE=85C=A-1
  140 IFE=32C=A+1
  150 IFE=8D=B-1
  160 IFE=9D=B+1
  170 GOSUB500
  180 IFPEEK(HEX(ECC0)+M)=16GOTO300
  190 IFPEEK(HEX(ECC0)+M)=35GOTO100
  205 A=C;B=D;W=42;GOSUB2000
  206 C=A;D=B
  210 Q=RND(4) 
  220 IFQ=4C=A+1
  230 IFQ=3C=A-1
  240 IFQ=2D=B+1
  250 IFQ=1D=B-1
  260 GOSUB500
  270 IFPEEK(HEX(ECC0)+M)=35GOTO206
  274 IFPEEK(HEX(ECC0)+M)=16GOTO206
  280 POKEHEX(ECC0)+M,16
  290 GOTO90
  300 OUTCHAR(12)
  308 PRINT;PRINT;PRINT;
  310 IFZ<=50PRINT"STRENG DICH MAL AN,NUR",#4,Z," ZUEGE";GOTO350
  320 IFZ<=100PRINT"DAS GEHT GERADE NOCH",#4,Z," ZUEGE";GOTO350
  325 PRINT"********************************"  
  326 PRINT"*                              *"
  330 PRINT"* GRATULIERE ZUM SIEG          *"
  331 PRINT"*                              *"
  333 PRINT"********************************"
  335 PRINT;PRINT;PRINT;
  336 PRINT"DU HAST",#4,Z," ZUEGE GESCHAFFT"
  350 PRINT;PRINT;PRINT;PRINT;
  352 PRINT"NOCH EIN SPIEL? J=JA"
  355 K=INCHAR
  360 IFK=74GOTO50
  370 STOP
  500 M=(32*C)+D
  510 RETURN
 2000 POKEHEX(ECC0)+(32*A)+B,W
 2010 RETURN