0100 24ff 0103 C ... KNOSSOST [b]    
Am Anfang etwas warten, bevor es los geht.


Erlaeuterungen zur Eingabe:

Space      - 1 Schritt vorwaerts

Kursor re. - Drehung rechts

Kursor li. - Drehung links

Q          - Programmende
                       
10 REM *** KNOSSOST ***       
20 REM Programm vom
22 REM ZX-81
25 REM Ueberarbeitet fuer 
26 REM Z 1013
30 REM MATTHIAS DRECHSEL u.
35 REM ROLF ZIMMER
40 REM W.-Pieck-Str. 17  
50 REM KAMENZ, 8290
60 REM *** 12.12.86 ***       
102 OUTC.12
104 P.;P.;P.;P.;P.;P."   Bitte  W A R T E N !!!"
106 P.;P."       Ich arbeite !!"
108 P.;P.;P.;P."Erlaeuterungen zur Eingabe:"
110 P.;P."Space      - 1 Schritt vorwaerts"
112 P."Kursor re. - Drehung rechts"
114 P.;P."Kursor li. - Drehung links"
116 P.;P."Q          - Programmende"
118 P.; P.;P.;P.; P.
150 G.2000
190 REM UP ZUM LABYRINTHAUFBAU
200 A=8192;F.I=0TO24;F.J=0TO24STEP4
210 PO.A+25*I+J,1;PO.A+25*J+I,1
211 IFI<2G.250
212 IFI>22G.250
220 PO.A+25*I+2,1;PO.A+25*I+22,1;PO.A+50+I,1
221 PO.A+550+I,1;IFI<6G.250
223 IFI>18G.250
230 PO.A+25*I+6,1;PO.A+25*I+18,1;PO.A+150+I,1
231 PO.A+450+I,1;IFI<10G.250
232 IFI>14G.250
240 PO.A+25*I+10,1;PO.A+25*I+14,1
241 PO.A+250+I,1;PO.A+350+I,1
250 N.J;N.I;PO.A+261,0;PO.A+622,0
260 X=3;Y=3;GOS.280
262 X=3;Y=21;GOS.280
264 X=7;Y=7;GOS.280
266 X=7;Y=17;GOS.280
268 X=17;Y=7;GOS.280
270 X=17;Y=17;GOS.280
272 X=21;Y=3;GOS.280
274 X=21;Y=21;GOS.280
276 G.290
280 V=(2*RND(9))/10;W=1-V
282 PO.A+(X+V)*25+Y+W,0;RE.
290 F.I=2TO4STEP2;F.J=6TO18STEP4;GOS.300;N.J;N.I
293 F.I=6TO8STEP2;F.J=10TO14STEP4;GOS.300;N.J;N.I
296 G.310
300 PO.A+I*25+J+(3*RND(9))/10-1,0
302 PO.A+(24-I)*25+J+(3*RND(9))/10-1,0
304 PO.A+(J+(3*RND(9))/10-1)*25+I,0
306 PO.A+(J+(3*RND(9))/10-1)*25+24-I,0
308 RE.
310 I=4;X=2;GOS.330
312 I=8;X=4;GOS.330
314 I=12;X=5;GOS.330
316 I=16;X=4;GOS.330
318 I=20;X=2;GOS.330
320 RE.
330 PO.A+25*I+1+(X*RND(9))/10*2,0
332 PO.A+25*I+23-(X*RND(9))/10*2,0
334 PO.A+(1+(X*RND(9))/10*2)*25+I,0
336 PO.A+(23-(X*RND(9))/10*2)*25+I,0
338 RE.
2000 A=8192;F.I=ATOA+624;PO.I,0
2002 N.I;GOS.200
2010 OUTC.12;F.I=0TO24;F.J=0TO24
2012 IFPE.(A+25*I+J)=0OUTC.32;G.2030
2020 OUTC.255
2030 N.J;PR.;N.I
2032 F.K=1TO5000;N.K;B=0;X=25;Y=22
2034 PO.8913,B;PO.8911,X;PO.8912,Y
2036 OUTC.12
2040 REM WINDOW
2042 PO.27,H.(C0);PO.28,H.(EF)
2044 PO.29,0;PO.30,H.(F0)
2046 C.H.(F6D1)
2048 C.H.(2400)
2050 C.8914
2052 B=PE.(8913);X=PE.(8911);Y=PE.(8912)
2054 IFX=11IFY=11IFB=2C.H.(2451)
2056 IFX=10IFY=11IFB=2C.H.(2442)
2057 IFX>128X=X-256
2058 IFY>128Y=Y-256
2060 PR.X,Y
2070 C=INC.
2075 C.H.(2427)
2080 IFC=8G.2100
2081 IFC=9G.2100
2082 IFC=32G.2100
2083 IFC=81G.5000
2089 G.2070
2100 IFC#8G.2110
2102 IFB=0B=4
2104 B=B-1
2106 G.2115
2110 IFC#9G.2115
2112 IFB=3B=-1
2114 B=B+1
2115 PO.8913,B
2120 IFC#32G.2130
2122 IFB=0X=X-1;G.2130
2124 IFB=1Y=Y+1;G.2130
2126 IFB=2X=X+1;G.2130
2128 IFB=3Y=Y-1
2130 IFPE.(A+25*X+Y)=0G.2160
2132 IFX>24G.2160
2134 IFY>24G.2160
2136 IFX<0G.2160
2138 IFY<0G.2160
2140 C.H.(2460)
2150 G.2050
2160 PO.8911,X
2170 PO.8912,Y
2180 G.2050
5000 PO.27,0;PO.28,H.(EC)
5010 PO.29,0;PO.30,H.(F0)
5020 C.H.(F6D1)
10000 STOP
...unvollständig... hat wohl jemand eine Schutzfunktion genutzt