Z1013 Software-Datenbank Eintrag

Steuerung: S1 S4 ⇦ ⇨ Interessante Abwandlung: Ziegelsteine fallen, man kann den Schläger in 4 Richtungen bewegen... Grafik ist ähnlich [27be4cb3005bddf3ee975db7386c1d2e], aber ansonsten sind es verschiedene Programme
Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)

    1 REM.@cBB% - .cBB% - IIIII
    2 OU.12
    3 REM %) I
    4 REM!"0(#FF qUCII
    5 REM*                
   10 FORI=H.(11A1)TOH.(11A4)
   12 PO.I,32;N.I
   14 A=10
   20 OU.12;PR.;PR.
   30 PR."         
   32 PR."         
   34 PR."          
   36 PR."       
   38 PR."        
   40 PR."        
   42 PR."    
   44 PR."    
   45 PR.;PR.
   46 PR."
   50 PR.;PR.;PR.;PR.
   51 IFA=10G.14000
   52 PR."VERSUCHEN SIE SO VIEL WIE MOEG-";PR.
   54 PR."LICH ZIEGEL VON DER AUFGE-";PR.
   56 PR."BAUTEN WAND ABZUSCHIESSEN.";PR.
   58 PR."UEBER 6 BAELLE VERFUEGEN SIE.";PR.
   60 PR."DRUECKEN SIE JETZT >ENTER< UND";PR.
   62 PR."LESEN SIE BITTE DIE SPIELREGELN.";PR.
   63 W=INCH.;OU.12
   65 PR.;PR.;PR.;PR."SPIELREGELN :";PR.;PR.
   67 PR."MIT DEN TASTEN  (<- und  ->)";PR.
   68 PR."KOENNEN SIE DEN SCHLAEGER NACH";PR.
   69 PR."LINKS bzw. RECHTS BEWEGEN.";PR.
   70 PR."DER BALL JEDOCH,ZERSTOERT NACH";PR.
   71 PR."u.NACH IHRE HILFSLINIEN,AUF DIE"
   72 PR.;PR."SIE ABER ACHTEN MUESSEN,WENN SIE
   73 PR."DEN BALL VON UNTEN RANSCHIESSEN";PR.
   74 PR.;PR."WENN ES LOS GEHEN KANN,
   75 PR.;PR."DRUECKEN SIE (>ENTER<)!
   76 W=INCH.;OU.12;PR."ACH,..NOCH EINE ERGAENZUNG...:
   78 PR.;PR.
   79 PR."MIT DEN TASTEN (S1) u. (S2)
   80 PR.;PR."KOENNEN SIE DEN SCHLAEGER
   82 PR.;PR."HOCH bzw.RUNTER BEWEGEN !!
   84 PR.;PR.;PR."UM SO SCHNELLER SIE IHRE";PR.
   85 PR."AUFGABE BEWAELTIGEN,DESTO";PR.
   86 PR."HOEHER IST DIE GESAMTPUNKTZAHL!
   87 PR.;PR.;PR."Dieses Spiel laeuft mit
   88 PR.;PR."akustischer Untermalung !";PR.
   89 PR."Schalten Sie Ihr Tonband deshalb";PR.
   90 PR."auf -Aufnahme- .";PR.;PR.;PR.;PR."                 >ENTER<
   94 W=IN.;OU.12;G.12000
   95 W=0;Y=0;U=0;V=0;Z=1;OU.12
   96 T=H
  100 A=HEX(EC00);B=HEX(EC1F);C=HEX(EFE0);D=HEX(EFFF)
  102 E=HEX(EFCC);PR.;PR.;PR.
  104 PR."  
  106 PR."  
  107 PR."  
  108 PR."  
  109 PR."  
  110 PR."  
  111 PR."  
  114 F=HEX(EE22);G=HEX(EE26);FORI=FTOG;PO.I,160;NE.I
  116 F=F+18;G=G+18;FORI=FTOG;PO.I,160;NE.I;FORI=ATOB;PO.I,160
  119 NE.I;FORI=BTODST.32;PO.I,161;NE.I;FORI=ATOCST.32;PO.I,161
  140 NE.I;PO.A,168;PO.B,169;PO.E,193;PO.E+1,137
  146 PO.C,167;PO.D,170
  160 FORI=HEX(EF81)TOHEX(EF85);PO.I,160;NE.I
  180 FORI=HEX(EF9A)TOHEX(EF9E);PO.I,160;NE.I
  190 GOTO600
  200 REM
  210 FORJ=ITOI+896ST.32
  212 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
  218 IFJ>H.(EFE0)RE.
  220 PO.J-32,32;PO.J,197
  224 IFPE.(J+32)=32N.J
  230 IFPE.(J+32)=137G.300
  240 IFPE.(J+32)=193G.300
  250 RE.
  300 PO.J,32;PO.J+32,197
  310 G.15000
  600 Q=8+RND(8);R=HEX(EDA0)+Q;PO.R,140
  640 FORI=0TO100;CA.HEX(F3F1);NE.I
  670 L=0
  700 FORI=RTOHEX(EFE0)+QST.32;PO.I-32,32;PO.I,207
  800 IFI=E-32GOTO900
  810 IFI=E-31GOTO1000
  820 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
  830 W=W+1;IFI>EGOTO860
  840 NE.I
  860 FORA=0TO40;C.H.(F3D0)
  862 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
  870 N.A;PO.I,32;G.6000
  900 I=I-33
  901 FORI=ITOI-1024ST.-33
  902 PO.I+33,32;PO.I,207
  905 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
  908 W=W+1
  909 F.J=1TOT;N.J
  910 IFPE.(I-33)=32N.I
  920 IFPE.(I-33)=161G.1000
  930 IFPE.(I-33)=160G.1200
  935 IFPE.(I-33)=168G.1600
  940 PO.I-33,32;GOS.200
  950 C.H.(F3D0);V=V+2;G.1200
 1000 I=I-31
 1001 FORI=ITOI-1056ST.-31
 1002 PO.I+31,32;PO.I,207
 1005 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
 1008 W=W+1
 1009 F.J=1TOT;N.J
 1010 IFPE.(I-31)=32N.I
 1020 IFPE.(I-31)=161GOTO900
 1030 IFPE.(I-31)=160GOTO1600
 1035 IFPE.(I-31)=169GOTO1300
 1040 PO.I-31,32;GOS.200
 1050 CA.HEX(F3D0);V=V+2;GOTO1600
 1130 IFPE.(I+32)=193GOTO900
 1200 I=I+30
 1201 F.I=ITOI+1024ST.30
 1202 PO.I-30,32;PO.I,207
 1205 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
 1208 W=W+1;IFI>EG.860
 1209 F.J=1TOT;N.J
 1210 IFPE.(I+30)=32N.I
 1230 IFPE.(I+30)=161G.1600
 1240 IFPE.(I+30)=137G.1000
 1260 G.900
 1300 I=I+31
 1301 FORI=ITOI+1056ST.31
 1302 PO.I-31,32;PO.I,207
 1305 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
 1308 W=W+1;IFI>EG.860
 1309 FORJ=1TOT;NE.J
 1310 IFPE.(I+31)=32N.I
 1320 IFPE.(I-1)=161G.1362
 1325 IFPE.(I+32)=160G.900
 1330 IFPE.(I+31)=193GOTO900
 1340 IFPE.(I+31)=137GOTO1000
 1350 PO.I,32;I=I+31
 1360 CALLHEX(F3D0);V=V+1;GOTO900
 1362 IFPE.(I+32)=160G.1000
 1600 I=I+33
 1601 FORI=ITOI+1056ST.33
 1602 PO.I-33,32;PO.I,207
 1605 C.H.(11AC);IFPE.(H.(3000))#223GOS.5000
 1608 W=W+1;IFI>EG.860
 1609 F.J=1TOT;N.J
 1610 IFPE.(I+33)=32N.I
 1620 IFPE.(I+1)=161G.1662
 1625 IFPE.(I+32)=160G.1000
 1630 IFPE.(I+33)=193GOTO900
 1640 IFPE.(I+33)=137GOTO1000
 1650 PO.I,32;PO.I+33,207;I=I+33
 1660 C.H.(F3D0);V=V+1;G.1000
 1662 IFPE.(I+32)=160G.900
 1664 G.1300
 5000 W=W+1;X=PE.(H.(3000))
 5008 IFPE.(E-1)#32G.5020
 5012 IFX=221E=E-1;PO.E+2,32;PO.E+1,137;PO.E,193;RE.
 5020 IFPE.(E+2)#32G.5030
 5026 IFX=222E=E+1;PO.E-1,32;PO.E+1,137;PO.E,193;RE.
 5030 IFX=219E=E-32;PO.E+32,32;PO.E+33,32;PO.E+1,137;PO.E,193;RE.
 5035 IFPE.(E-32)#32RE.
 5040 IFX=220E=E+32;PO.E-32,32;PO.E-31,32;PO.E+1,137;PO.E,193
 5050 IFE>-4128E=E-32;PO.E+32,32;PO.E+33,32;PO.E+1,137;PO.E,193
 5051 RET.
 6000 Z=Z+1;IFZ=10G.6010
 6005 G.600
 6010 PR.
 6020 PR."Nach",#2,Z," Spielbaellen haben Sie";PR.
 6022 PR."mit einem Schwierigkeitsgrad";PR.
 6023 H=(H/50)-4;H=ABS(H)
 6024 PR."VON",H," "
 6025 PR.;PR."   ",V,"  Ziegel abgeschossen."
 6026 C.H.(1157);L=L+1;IFL<10G.6026
 6030 GOS.6100;PR.;PR.;PR."DAS MACHT BEI EINER SPIELZEIT";PR.
 6034 PR."VON  ",U,",",#1,T,"  Minuten";PR.;PR.
 6035 Y=Y*(H+1)
 6036 PR."EINE GESAMTPUNKTZAHL";PR.;PR.
 6037 PR."VON    ",Y,"  PUNKTEN !!"
 6038 M=H.(11A1);N=H.(11A4);GOS.10200
 6039 PR.
 6040 PR."NOCH EINMAL? (Nein=N)
 6060 W=IN.;IFW#'N'G.12000
 6070 OU.12;F.I=1TO12;PR.;N.I
 6080 PR."      Please game over.......";PR.;PR.;PR.;PR.;PR.;ST.
 6100 W=W/(8+H)
 6102 U=W/60;T=U*60;T=W-T;T=T/6
 6110 S=V/(U+1);Y=V/(T+1);Y=(Y+S)*10+(2*V);RET.
10200 A=Y/1000
10210 B=A*1000;B=Y-B
10220 C=B/100
10230 D=C*100;D=B-D
10240 F=D/10
10250 G=F*10;G=D-G
10255 A=A+32,C=C+32;F=F+32;G=G+32
10260 IFPE.(M)>AGOTO11500
10270 IFPE.(M)=AGOTO10290
10280 GOTO11000
10290 IFPE.(M+1)>CGOTO11500
10300 IFPE.(M+1)=CGOTO10320
10310 GOTO11000
10320 IFPE.(M+2)>FGOTO11500
10330 IFPE.(M+2)=FGOTO10350
10340 GOTO11000
10350 IFPE.(N)>=G GOTO11500
11000 PO.M,A
11010 M=M+1
11020 PO.M,C
11030 M=M+1
11040 PO.M,F
11050 PO.N,G
11060 PR."*******************************
11100 PR."HERZLICHEN GLUECKWUNSCH !!!
11110 PR.;PR."SIE KOENNEN SICH EINTRAGEN.
11120 PR.;PR."NAME:";PR.;PR.
11130 O=H.(11EB);P=H.(11FB)
11140 FORI=OTOP;PO.I,32;NE.I
11150 FORI=OTOP
11160 W=INCHAR
11170 IFW=13PO.I,'*';GOTO11300
11175 IFI=P-1PO.I,'*';GOTO11300
11180 PO.I,W;OU.W;NE.I
11300 RET.
11500 PR."*******************************
11505 PR."Besser als Sie war:";PR.
11510 O=H.(11EB);P=H.(11FB)
11520 FORI=OTOP
11530 OU.(PE.(I))
11540 IFPE.(I)='*'GOTO11600
11550 NE.I
11560 PR.;PR.
11600 PR."MIT ",
11610 FORI=H.(11A1)TOH.(11A4)
11620 OU.(PE.(I)+16)
11630 NE.I;PR." PUNKTE.
11640 RE.
12000 OU.12;F.I=1TO7;PR.;N.I
12010 PR."Nun teilen Sie mir bitte noch";PR.
12012 PR."die Schwierigkeitsstufe mit:";PR.
12014 INP."STUFE (0...4)"W
12020 IFW<0G.13000
12025 IFW>4G.13000
12028 H=4;H=H-W;H=H*50+1
12035 FORI=1TO12;PR.;N.I
12040 TAB(7);PR."Lets go...
12045 F.I=1TO2000;N.I;G.95
13000 OU.12;F.I=1TO10;PR.;N.I
13010 PR."Na,na.....";PR.
13014 PR."Wir wollen doch keinen";PR.
13018 PR."veralbern,oder?";PR.;PR.
13020 PR."Also noch mal !"
13022 F.I=1TO5000;N.I;G.12000
14000 PR."The best of the";PR.;PR.
14010 PR."super game of ball !!!
14020 PR.;PR.;PR.;PR.;PR.
14100 A=0;F.I=1TO7000;N.I;G.20
15000 PR.;PR.;PR.;PR.
15010 PR."Ihr Schlaeger ist durch";PR.
15020 PR."einen Ziegelstein kaputt";PR.
15030 PR."gegangen.";PR.
15040 PR.;PR."Versuchen Sie es";PR.
15050 PR."doch noch mal....."
15060 W=IN.
15070 OU.12;F.I=1TO10;PR.;N.I
15080 PR."Aber passen Sie auf";PR.
15090 PR."auf Ihren Schlaeger auf..."
15095 F.I=1TO4000;N.I
15100 G.12000