labyrinth /1 1983 Christof Buening 4354 Datteln Gruener Weg 50  6:7:0:  9100# x=2:y=19 r=2 e=1 e>39600% r=1300, r=2400 r=3500 r=4600X , z=1 6$a$(y-z,x)="x"laenge=z:340T @ z=z+1 J 3106 T 1000  z=1 $a$(y,x+z)="x"laenge=z:440  z=z+1  410  1000  z=1 $a$(y+z,x)="x"laenge=z:540  z=z+1  510  1000 X z=1 b$a$(y,x-z)="x"laenge=z:640 l z=z+1 v 610b  1000 b$="" k=0laenge-1 r=1b$=b$+a$(y-k,x) r=2b$=b$+a$(y,x+k) r=3b$=b$+a$(y+k,x) r=4b$=b$+a$(y,x-k) k  4000 Ne=2x=14y=18e=2x=5y=16e=2x=2y=14e=2x=14y=11 e=2x=5y=7e=2x=9 y=6e=2x=16y=6e=2x=5y=2e=2x=9 y=2e=3x=14y=16e=3x=5y=15e=3x=7y=14e=3x=15y=11 e=3x=6y=8e=3x=16y=8e=3x=8y=5e=3x=9 y=4e=3x=6y=39900&:8200 :180  8200 c$=:c$=""1026 0.1}L,9 )c$"5"c$"6"c$"7"c$"8"1011 c$="8"r=r+1 c$="5"r=r-1  r<1r=4  r>4r=1  u=x:v=y c$="6"2000 8c$="7"21004 B 8200 La$(y,x)="x"0,0;" Sie laufen genau vor die Wand !":y=v:x=u:o=1100d:o:o=140(:0.2~L,40(-o:o  180 r=1y=y+1 r=2x=x-1 r=3y=y-1 r=4x=x+1  4r=1y=y-1 >r=2x=x+1 Hr=3y=y+1 Rr=4x=x-1 \  Mp=10 *laenge:q=255-20*laenge:s=175-20*laenge _0,0:255,0:0,175:-255,0:0,-175 '0,0:p,p:q,0:p,-p )0,175:p,-p:q,0:p,p p,p:0,s 255-p,p:0,s 0,16;e >y=19r=4x9 11 ,12 ;"Eingang" y4x=12 r=110 ,10 ;"Ausgang":e=e+1:8200 :o=1100d:o:o=18:0.8L,o:o:r=2:x=2:y=19:180 k=2̱b$  i$=b$(kk) i$="a"44000  i$="k"6000p:6100 ,i$="e"4160@:4200h:44000  i$="b"4160@:4280  44000 @0o1=0:o2=0:o3=0:o4=0 A j=y:h=x Br=1j=j-k+1 Cr=2h=h+k-1 Dr=3j=j+k-1 Er=4h=h-k+1 F!a$(j-1,h)"x"o1=1 H!a$(j,h+1)"x"o2=1 I!a$(j+1,h)"x"o3=1 J!a$(j,h-1)"x"o4=1 ^ hr=1o3=1o4=1r=2o1=1o4=1r=3o1=1o2=1r=4o2=1o3=162008 rr=1o2=1o3=1r=2o3=1o4=1r=3o1=1o4=1r=4o1=1o2=16300  ar=1o4=0r=2o1=0r=3o2=0r=4o3=06100 ar=1o2=0r=2o3=0r=3o4=0r=4o1=06000p mr=1o1=0r=2o2=0r=3o3=0r=4o4=062008:6300 0k  1009 p10 *k-6,10 *k-6:0,170-20*k:10 -k,-10 +k:0,-150+18*k:-3+k/4,0:0,150-18*k:2-k/4,0 z 261-10 *k,10 *k-6:0,170-20*k:-10 +k,-10 +k:0,-150+18*k:2.5 -k/4,0:0,150-18*k:-2+k/4,0  8sp-6,p-6:1;6,6:1;0,s:1;-6,6:0,-s-12 9#255-p,p:-q-6,0 :-255-p,175-p:-q-6,0 ;)0,175:p-6,-p+6 B u261-p,p-6:1;-6,6:1;0,s:1;6,6:0,-s-12 p,p:q+6,0 "p,175-p:q+6,0 ,255,175:-p+6,-p+6  te=1a$(11 ,10 )="a":a$(11 ,11 )="x":a$(9 ,3)="b":a$(10 ,3)="a" ~e=2e=3a$(11 ,10 )="e":a$(11 ,11 )="a":a$(9 ,3)="e":a$(10 ,3)="x" 0 #V1;1;"DAS HAUS DES W A H N S I N N S " #u:"Das Haus besteht aus drei Etagen ! Jede Etage stellt sich Ihnen als dreidimensionales Labyrinth dar !" #"Sie sollen den Ausgang" #61;1;" ( und nicht den Eingang ) " #^"von jeder Etage suchen ! Am Ausgang der dritten Etage befindet sich ein Schatz !" #W"Aber Vorsicht ! Treffen Sie auf eine Falltuer, so fallen Sie eine Etage tiefer !" #:"Mit den Tasten 6 und 7 gehen Sie vor oder zurueck, mit den Tasten 5 und 8 drehen Sie sich nach links oder nach rechts !" $:"Druecken Sie eine Taste !" $,=""9260,$ $6:"Sobald Sie sich einer Tuer oder einer Abzweigung naehern und sie aus Ihrem Gesichtskreis (Bildschirm) verschwunden ist, stehen Sie direkt neben ihr !" $PY:"Die Zahl auf dem Bildschirm gibt Ihnen an, in welcher Etage Sie sich befinden !" $Rw:"Sobald Sie den Ausgang einer Etage gefunden haben, gelangen Sie automatisch zum Eingang der naechsten Etage !" $TD1;1;"Sie duerfen niemals CLEAR oder RUN benutzen !" $X::"Druecken Sie eine Taste, wenn Sie starten wollen !" $Z=""9306Z$ $] $r 160 %Aa=201-1:0.1}L,a:a::"Bravo! Bravo !" %8:"Sie haben es geschafft und den Schatz gefunden ! " % %"Tschuess !!" &H 9996 ' &e=e-1:0,0;"Schade, Sie sind auf eine Falltuer getreten ! ":o=1100d:o:o=140(:0.2~L,40(-o:o:o=160<:23692\,200::o & '  '  ' ' xxxxxxxxxxxxxxxxxxxxxxabababaexaxaxabaexxxxaxaxaxaxaxaxxaxaxxxxaxaxbababaexakaexxxababxaxxxxxxxxaxxxxxxxxaxbabaaaxeakaxxxxeaabxaxaxxxxaxaxxxxxaxxaxxxaxxeababaexxxbaabaaabxxaxxxxxaxxxaxxxxaxaxxaxxxxxaxxxaxxxxxxaxabaaexxaxxabaexxxxxxxxxxaxxaxxxxxaxxxeaaaaexbaaexxeaakaexaxxxxaxaxxxxxaxxaxaxaxxxxaxaxeaxxeaakabxbaexxaxaxaxxxxxxaxaxaxaxakakabxxxxxxaxaxaxaxxaxaxaxxxaaababaexeaaexxxxxxxxxxxxxxxxxxxxxxxxxx= Uaaababaexeaaexxxxxxyrezaeng pPq_sjh uv)(LBaaababaeIeC