0 IFPEEK(36864)<>169THENLOAD"LABYRI",8,1
2 POKE53280,0:POKE53281,0:POKE52,64:POKE51,0:POKE56,64:POKE55,0:CLR
5 DIMF(16):XL=1:YL=1:XP=38:YP=23:POKE650,128
10 LA=10:BR=18:GW=255:GZ=255:FW=10:FL=5
15 FORI=0TO68:READA:POKE832+I,A:NEXT
20 FORI=0TO15:READF(I):NEXT:READMA
25 FORI=0TO10:READFL(I):NEXT:FORI=0TO5:READFW(I):NEXT
30 FORI=0TOMA:POKE40705+I,F(I):POKE40705+2*MA-I,F(I):NEXT:POKE40704,2*MA
50 PRINT"[147][158][204]AENGE    "LA"[157][157][157][157][157]";:INPUTLA
55 PRINT"[194]REITE    "BR"[157][157][157][157][157]";:INPUTBR
60 IFLA>54ORBR>70ORLA<1ORBR<1THEN50
70 PRINT"[215]URMGESCHWINDIGKEIT HIN        "GW"[157][157][157][157][157][157]";:INPUTGW
75 PRINT"[215]URMGESCHWINDIGKEIT ZURUECK    "GZ"[157][157][157][157][157][157]";:INPUTGZ
80 POKE39538,256-GW:POKE39543,256-GW:POKE39553,256-GZ:POKE39558,256-GZ
85 PRINT"[198]ARBE [215]URM ";:POKE646,FW:INPUTZ$:FW=PEEK(646):POKE55629,FW
90 POKE1357,160:PRINT"[158][198]ARBE [204]ABYRINTH ";:POKE646,FL:INPUTZ$:FL=PEEK(646)
95 POKE1442,160:POKE55714,FL
97 PRINT"[158][194]ILDSCHIRMVERFOLGUNG (Y/J/N) ?"
100 GETZ$:IFZ$<>"J"ANDZ$<>"N"ANDZ$<>"Y"THEN100
102 POKE39562,32:POKE39568,32:IFZ$="N"THENPOKE39562,76:POKE39568,76
105 GOSUB400:FORI=0TO10:POKE40192+FL(I),FL:NEXT
110 A=16530+2*INT(RND(TI)*BR):E=16818+2*INT(RND(1)*BR)+288*LA
111 POKE39980,2*BR+1:POKE39988,2*LA+3:POKE40000,2*BR+2:SYS39936
115 FORI=0TO5:POKE40192+FW(I),FW:NEXT
120 R(0)=1:R(1)=-144:R(2)=-1:R(3)=144
125 REM --------------------
130 REM -- DER REIHE NACH --
135 REM --------------------
140 SYS37056:POKE38660,BR:POKE38405,LA:SYS38400:T=0
145 IFPEEK(34816+T)<>0THENT=T+1:PRINT"[158]"T:GOTO145
150 REM -------------------
155 REM -- WEG VERFOLGEN --
160 REM -------------------
170 Z=E:POKEE,42
175 HI=E/256:LO=E-INT(HI)*256:HI=INT(HI):POKE36869,LO:POKE36865,HI
180 SYS36864:I=0
185 REM -------------------------------
190 REM -- WEG AUS ABGESCHL. IRRGANG --
195 REM -------------------------------
200 LO=PEEK(32768+I):HI=PEEK(34816+I):Z=256*HI+LO
205 IFPEEK(Z)<>32THEN240
210 IFZ=0THEN245
215 POKE37633,HI:POKE37637,LO:SYS37632:C=PEEK(183)
220 IFC=0THENPOKE886,32:SYS869:POKE886,42:POKE32769+I,LO:POKE34817+I,HI:T=T+1
225 R=INT(RND(1)*C):Z=PEEK(38144+R)*256+PEEK(37888+R):R=INT(RND(1)*4)
230 IFPEEK(Z+2*R(R))<>42THENR=R+1+4*(R=3):GOTO230
235 POKEZ+R(R),42:SYS869
240 PRINT"[158]"T-I"[157] ":I=I+1:IFI<TTHEN200
245 DATA169,64,133,255,169,0,133,254,160,0,162,160,177,254,41,96,201,96,240
250 DATA2,162,32,138,145,254,200,208,238,230,255,165,255,201,128,208,228,96,169
255 DATA64,133,255,169,0,133,254,160,0,177,254,201,81,208,4,169,42,145,254,200
260 DATA208,243,230,255,165,255,201,128,208,233,96
265 REM ----------------
270 REM -- WEG FINDEN --
275 REM ----------------
277 FORI=0TO7:POKE1024+I,P(I):NEXT
280 SYS832:PRINT"";:Z=E:SYS40832:POKEE,32:POKEA,32
285 POKEZ,93
290 DATA0,11,2,10,7,4,10,8,12,5,7,13,3,14,15,1,4
295 DATA112,110,109,125,93,64,107,115,113,114,91,85,73,74,75,66,67
330 POKEE+144,96
335 POKEA-144,102:R=INT(RND(1)*4):HI=INT(A/256):LO=A-INT(A/256)*256
337 POKE40542,LO:POKE40546,HI
340 HI=Z/256:LO=Z-INT(HI)*256:HI=INT(HI):POKE39185,LO:POKE39189,HI:SYS40760
345 POKEA,66
350 POKE40614,2:POKE40703,0:POKE40702,0:SYS40541:GOTO50
400 PRINT"[216]-POSITION LINKE OBERE [197]CKE    "XL"[157][157][157][157][157]";:INPUTXL
405 PRINT"[217]-POSITION LINKE OBERE [197]CKE    "YL"[157][157][157][157][157]";:INPUTYL
410 PRINT"[193]USDEHNUNG [216]-[210]ICHTUNG          "XP"[157][157][157][157][157]";:INPUTXP:XR=XP+XL
415 PRINT"[193]USDEHNUNG [217]-[210]ICHTUNG          "YP"[157][157][157][157][157]";:INPUTYP:YR=YP+YL
417 IFYR>24ORYL<1ORXL<1ORXR>39THENPRINT"[145][145][145][145][145][145][145][145]";:GOTO400
420 Z=INT(XP/2)+40*INT(YP/2):PO=Z-INT(Z/40)*40+144*INT(Z/40)
425 HI=INT(PO/256):LO=PO-HI*256:POKE40452,HI:POKE40459,LO
430 Z=1024+XL+YL*40:HI=INT(Z/256):LO=Z-HI*256:POKE40467,LO:POKE40471,HI
435 POKE40503,XR-XL:Z=Z+YP*40:HI=INT(Z/256):LO=Z-HI*256:POKE40531,HI
440 POKE40537,LO:PRINT"[147][142]";
445 FORI=983+YL*40+XLTO984+XR+YL*40:POKEI,160:POKEI+54272,7:POKEI+YP*40+40,160
450 POKEI+54312+YP*40,7:NEXT
455 FORI=983+YL*40+XLTO983+YR*40+XLSTEP40:POKEI,160:POKEI+54272,7
460 POKEI+XP+1,160:POKEI+54272+XP+1,7:NEXT:VO=XP*YP:X=30000-VO*30000/874
465 POKE40665,INT(X/255)+1:POKE40670,X-INT(X/255)*255+1
470 FORI=0TO7:P(I)=PEEK(1024+I):NEXT:RETURN