Versuche so viel wie moeglich
Punkte mit Deinem Viereck zu
sammeln. Dabei darft Du aber
nicht der Kugel begegnen. Du
kannst Deine Figur auf den
freien Flaechen mit S1 nach
oben, mit S4 nach unten, mit
→ nach rechts und mit ← nach
links steuern.
Stelle Dein Tonbangeraet noch auf AUFNAHME !
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
1 GOTO90
20 REM> !!!,!Bw# #B+C⇘
III
30 REM>!!!c!!!)wXP #BwC⇘
w#wCP +BwCw+IIIIIIIIIIIIIIIII
40 REMI.&>>!i!Bi!i!i!i!Ji>w⇘
XP #BtCu#>wCP +BtCu+IIII
60 REM!"0(#FF qUCTTTTTTTTT⇘
TT
90 O.12;P.;P.;P.;P.
91 P." C R A S H"
92 P." =================";P.;P.
93 P."Versuche so viel wie moeglich"
94 P."Punkte mit Deinem Viereck zu"
95 P."sammeln. Dabei darft Du aber"
96 P."nicht der Kugel begegnen. Du"
97 P."kannst Deine Figur auf den"
98 P."freien Flaechen mit S1 nach"
99 P."oben,Hmit S4 nach unten, mit"
100 P."-> nach rechts und mit <- nach"
101 P."links steuern."
102 P.;P."Stelle Dein TBG noch auf"
103 P." AUFNAHME !"
104 P.;P.;P."ALLES KLAR ? <ENT>"
105 A=INC.
109 O.12;C.H.(11AC);C.H.(122C)
110 A=HEX(EC1F);FORI=1TO6
120 PO.A,169;A=A+62;NE.I
130 A=HEX(EEAA);FORI=1TO6
140 PO.A,167;A=A+62;NE.I
400 CA.HEX(1160)
600 G=H.(EC30);PO.G,205
620 F=G-1;PO.F,207
660 FORI=0TO100;CA.HEX(F3F1);NE.I
670 FORI=0TO50;NE.I;H=1
680 Y=1;A=2300;V=0
690 B=0
800 GOTO1300
1000 C.H.(12AA);IFPE.(H.(3000))#223GOS.6000
1005 CA.HEX(F3F1)
1010 PO.G,32;PO.G+32,206;G=G+32
1011 IFB=1GOS.A
1012 IFG=FM=206;G.7000
1013 IFPE.(G+32)=213V=V+1;B=B+1;GOTO1000
1020 IFPE.(G+32)=160GOTO1100
1030 B=B+1;GOTO1000
1100 C.H.(12AA);IFPE.(H.(3000))#223GOS.6100
1105 CA.HEX(F3F1)
1110 PO.G,32;PO.G-1,205;G=G-1
1111 IFB=2GOS.A
1112 IFG=FM=205;G.7000
1113 IFPE.(G-1)=213V=V+1;B=B+1;GOTO1100
1120 IFPE.(G-1)=161GOTO1200
1130 B=B+1;GOTO1100
1200 C.H.(12AA);IFPE.(H.(3000))#223GOS.6200
1205 CA.HEX(F3F1)
1210 PO.G,32;PO.G-32,206;G=G-32
1211 IFB=1GOS.A
1212 IFG=FM=206;G.7000
1213 IFPE.(G-32)=213V=V+1;B=B+1;GOTO1200
1220 IFPE.(G-32)=160GOTO1300
1230 B=B+1;GOTO1200
1300 C.H.(12AA);IFPE.(H.(3000))#223GOS.6300
1305 CA.HEX(F3F1)
1310 PO.G,32;PO.G+1,205;G=G+1
1311 IFB=1GOS.A
1312 IFG=FM=205;G.7000
1313 IFPE.(G+1)=213V=V+1;B=B+1;GOTO1300
1320 IFPE.(G+1)=161GOTO1000
1330 B=B+1;GOTO1300
2000 PO.F,PE.(F+32);PO.F+32,207
2001 CA.HEX(F3F1)
2002 B=0
2003 IFG=FM=205;G.7000
2005 F=F+32
2010 IFPE.(F+32)=160A=2100;RE.
2015 IFY=HRE.
2020 IFPE.(F-1)=32GOTO2050
2030 IFPE.(F+1)=32GOTO2050
2040 RE.
2050 IFY<HPO.F,32;F=F+2;Y=Y+1;RE.
2060 IFY>HPO.F,32;F=F-2;Y=Y-1;RE.
2070 RE.
2100 PO.F,PE.(F+1);PO.F+1,207
2101 CA.HEX(F3F1)
2102 B=0
2103 IFG=FM=206;G.7000
2105 F=F+1
2110 IFPE.(F+1)=161A=2200;RE.
2115 IFY=HRE.
2120 IFPE.(F-32)=32GOTO2150
2130 IFPE.(F+32)=32GOTO2150
2140 RE.
2150 IFY<HPO.F,32;F=F-64;Y=Y+1;RE.
2160 IFY>HPO.F,32;F=F+64;Y=Y-1;RE.
2170 RE.
2200 PO.F,PE.(F-32);PO.F-32,207
2201 CA.HEX(F3F1)
2202 B=0
2203 IFG=FM=205;G.7000
2205 F=F-32
2210 IFPE.(F-32)=160A=2300;RE.
2215 IFY=HRE.
2220 IFPE.(F-1)=32GOTO2250
2230 IFPE.(F+1)=32GOTO2250
2240 RE.
2250 IFY<HPO.F,32;F=F-2;Y=Y+1;RE.
2260 IFY>HPO.F,32;F=F+2;Y=Y-1;RE.
2270 RE.
2300 PO.F,PE.(F-1);PO.F-1,207
2301 CA.HEX(F3F1)
2302 B=0
2303 IFG=FM=206;G.7000
2305 F=F-1
2310 IFPE.(F-1)=161A=2000;RE.
2315 IFY=HRE.
2320 IFPE.(F-32)=32GOTO2350
2330 IFPE.(F+32)=32GOTO2350
2340 RE.
2350 IFY<HPO.F,32;F=F+64;Y=Y+1;RE.
2360 IFY>HPO.F,32;F=F-64;Y=Y-1;RE.
2370 RE.
6000 X=PE.(H.(3000))
6010 IFX=221G.6040
6020 IFX=222G.6050
6030 RE.
6040 IFPE.(G-1)=32PO.G,32;G=G-2;H=H+1;RE.
6045 RE.
6050 IFPE.(G+1)=32PO.G,32;G=G+2;H=H-1;RE.
6060 RE.
6100 X=PE.(H.(3000))
6110 IFX=219G.6140
6120 IFX=220G.6150
6130 RE.
6140 IFPE.(G-32)=32PO.G,32;G=G-64;H=H+1;RE.
6145 RE.
6150 IFPE.(G+32)=32PO.G,32;G=G+64;H=H-1;RE.
6160 RE.
6200 X=PE.(H.(3000))
6210 IFX=221G.6240
6220 IFX=222G.6250
6230 RE.
6240 IFPE.(G-1)=32PO.G,32;G=G-2;H=H-1;RE.
6245 RE.
6250 IFPE.(G+1)=32PO.G,32;G=G+2;H=H+1;RE.
6260 RE.
6300 X=PE.(H.(3000))
6310 IFX=219G.6340
6320 IFX=220G.6350
6330 RE.
6340 IFPE.(G-32)=32PO.G,32;G=G-64;H=H-1;RE.
6345 RE.
6350 IFPE.(G+32)=32PO.G,32;G=G+64;H=H+1;RE.
6360 RE.
7000 GOS.7100
7010 K=V/100;V=V-(K*100)
7020 M=V/10
7030 N=V-(M*10);A=HEX(EDEF)
7040 K=K+48;M=M+48;N=N+48
7050 PO.A,K;PO.A+1,M;PO.A+2,N
7060 W=IN.;GOTO7200
7100 FORI=1TO15
7110 PO.F,M;PO.G,207
7125 CA.HEX(F383)
7130 PO.F,207;PO.G,M
7140 NE.I;RE.
7200 CA.HEX(11AC)
7210 CA.HEX(1160)
7220 GOTO600
