ZXTape! 0Created with Ramsoft MakeTZXVorspann " $!X>w\# ww+wR<\!͵!͵eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee n1:1:1::"""16384":f=15:"23760":f:9 :19,0;"":"" ISS-LOGO @+g%          `@       ?        ?        ?                                              O _   G      ?`  / _  ?'     / _      `@     O _                                           !!?  \cf A. .c?  """""""I"!!""!  """"""*">> >  """""!"*" ! "    w> 8>8iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii3D-Laby kVGVomVG 3D-LABYRINTH  1983    by CHRISTIAN SCHILD  La=120.5:.01z# =,20-a:a:.1}L,-20: *64103g:"gr"64104h,1432 7::6:"":1;6;10 ,0;1,,,,,,,,:m$=" STOP THE TAPE! ":m$=m$:65211,2:65084<:m=19 :23692\,255:21,31;" ":m:7,10 ;2;"PROGRAMM :";9 ,0;2;6;,,,,,,,,,,,,:0,100d:255,0:0,59;:255,0:m$="3D-LABYRINTH ":m$=m$:65211,2:65084<:16,0;1;2,,"  1983 by CHRISTIAN SCHILD ",,:0,44,:255,0:0,28:255,0:20,0;" Druecken Sie irgendeine Taste! ":0,0:255,0:0,175:-255,0:0,-175  0 #lab=0:k$="00" $[20,1;" Wollen Sie selbstdefinierte ";21,7;"Labyrinthe laden ?" (x$ *#x$"n"x$"j"10 :40( +x$="n"480 ,,,,,,," BITTE STARTEN SIE IHREN KASSETTENREKORDER ":7:"":"Labyrinthe"m$():k$=m$:m$="":lab=k$(12) -F23692\,255:lab=1,,"Es wurde 1 Labyrinth geladen" .7lab>1,,"Es wurden ";lab;" Labyrinthe geladen" 0r(100d) 1 2f=197a4 <r(f)=-1 Fr(f+1)=-20 Pr(f+2)=1 Zr(f+3)=20 df uFa=12:23692\,255:21,31;" ":a xG" SPIELANLEITUNG "," " "Versuchen Sie im Labyrinth den","geheimnisvollen Schatz zu finden"," ","Mit folgenden Tasten koennen Sie"," sich bewegen: " !" "," ""5"" = Nach links drehen ( 00 )"," ""8"" = Nach rechts drehen ( 00 )"," ""y"" = Vorwaerts gehen ( 10 )"," ""1"" = Uebersichtskarte ( 60 )"," ","Die Zahlen in Klammern bedeuten"," Punktabzug. " " ","Die Symbole in der Uebersichts- ","karte haben folgende Bedeutung :"," "," """" = Ihre momentane Position"," "," """" = Hier liegt der Schatz"," " a=122 a$:23692\,255:a$ a Q0,0;:a=122:7;1;1,,:a:1 c19,2;1;1;1;1;7;" ";21,2;1;" " 1 ""Wieviele Mitspieler ? (1-9) ";s *s<1s>9 10 :185 2"Wollen Sie selbst ein Labyrinth eingeben ? ";x$ x$="j"7000X x$"n"10 :200 lab=0j$="a":235 "Wollen Sie a) nur mit den vor- definierten, b) nur mit den selbst definierten, oder c) mit beiden Labyrinthtypen spielen ?",j$ +j$"a"j$"b"j$"c"10 :231 6::6 ,d(2*s) x=13  y=1s d(y)=1060$ D"" G"j$="a"rnd=(*4+1) Jj$="b"rnd=(*lab+5) L(j$="c"rnd=(*(4+lab)+1) Nrnd>48000@ Xrnd*100d+600X a$=" " "p=342V+(*3)*3 %y$="022024033039047114135199237268"  1090B  a$=" " *"p=35#+(*3)*22 H%y$="148165167205269288359362373282" z 1090B a$=" " "p=84T+(*3)*40( %y$="036079082116216293315333365379"  1090B a$=" " "p=349]+(*3)*4 %y$="022039097083088147199222262288" Bo=480+(*4) Cz=((*10 ))*3 Dz=(y$(z+1z+3)) Gy$="" Ld(y)=d(y)-60< N+236066\,0:236077\,60< Pd(y)05280 R a$(p)="" [ a$(z)="" jf=1381}20 tA4;7;1+f/20,11 ;a$(ff+19) ~f r0;87W,7:0;161,0:0,161:-161,0:0,-161 9 ,0;1;y;".SPIELER";11 ,0;x;".DURCHG.";16,0;;"""""=SCHATZ";18,0;"""""=POS." (p/20-.01z# =)+1,p-20*(p/20-.01z# =)+10 ;1;1;1;7;1;" ";(z/20-.01z# =)+1,z-20*(z/20-.01z# =)+10 ;1;" " %2;3,0;"" x236066\,59;:236077\,250:2;5,1;d(y):236066\,0:236077\,60<  a$(z)=" "  a$(p)=" " "1"1200 -236066\,59;:236077\,250 l$(704) f=35#611c32 4l$(ff+27)="!"+l$(f+1f+26)+"""" f 9l$(643670)="`"+l$(644669)+"a" $a$(p+r(o-1))=" "3500 l$(3)="%" l$(673674)=",+" $a$(p+r(o+1))=" "3550 l$(30)="&" l$(703704)=")*" a$(p+r(o))=" "2053 Xa$(p+r(o-1))=" "a$(p+r(o)+r(o-1))=" "l$(3)="|":l$(643)="}" Ya$(p+r(o+1))=" "a$(p+r(o)+r(o+1))=" "l$(30)="~":l$(670)="" Ca$(p+r(o))=""l$(429)="$$$$$$$$$$$$$$$$$$$$$$$$$$" Fa$(p+r(o))=""l$(644669)="dddddddddddddddddddddddddd" a$(p+r(o))=""5000 * f=233553)32 /4l$(ff+15)=""""+l$(f+1f+14)+"!" 4f >)a$(p+r(o-1)+r(o))=" "3600 Hl$(36$168)="%"+l$(37%68D)+"%"+l$(70F101e)+"%"+l$(103g134)+"%"+l$(136167)+"%" MWl$(583G644)=",+"+l$(585I612d)+",+"+l$(615g643)+"+" R)a$(p+r(o+1)+r(o))=" "3650B \l$(61=185)="&"+l$(62>91[)+"&"+l$(93]122z)+"&"+l$(124|153)+"&"+l$(155184)+"&" aWl$(601Y669)=")*"+l$(603[634z)+")*"+l$(637}668)+")" foa$(p+2*r(o))=""l$(2015688)="e##############f"+l$(217552()+";$$$$$$$$$$$$$$:" p$a$(p+2*r(o))=""5000 zHl$(332L533)=""" !"+l$(342V363k)+""" !"+l$(374v395)+""" !"+l$(406427)+""" !"+l$(438459)+""" !"+l$(470491)+""" !"+l$(502523 )+"# #":a$(p+3*r(o))=" "l$(533)=".":l$(524 )="-" 2 a$(p+r(o-1)+2*r(o))=" "3700t Ul$(201267 )="^"+l$(202233)+"%"+l$(235266 )+"%" :l$(523 554*)=","+l$(524 552()+"/+" 1a$(p+r(o+1)+2*r(o))=" "3750 Ul$(216278)="_"+l$(217246)+"&"+l$(248277)+"&" :l$(5345688)="*"+l$(5355666)+")]" ca$(p+3*r(o))=""l$(300,533)="e########f"+l$(3106523 )+">@@@@@@@@?" $a$(p+3*r(o))=""5000 1a$(p+r(o-1)+3*r(o))=" "3800 Ul$(300,493)="^"+l$(301-332L)+"%"+l$(334N492)+"," 1a$(p+r(o+1)+3*r(o))=" "3850  Ul$(3095500)="_"+l$(3106339S)+"&"+l$(341U499)+"*" a$(p+4*r(o))=""l$(366n499)="e####f"+l$(372t397)+""" !"+l$(404429)+""" !"+l$(436461)+""" !"+l$(468493)+">@@@@?" $a$(p+4*r(o))=""5000 l$(366n499)="^ _"+l$(372t397)+"""e##f!"+l$(404429)+""""" !!"+l$(436461)+""";$$:!"+l$(468493)+"- ." a$(p+r(o-1)+4*r(o))=" "l$(366n494)=""""+l$(367o397)+"e"+l$(399461)+";"+l$(463493)+"=" a$(p+r(o+1)+4*r(o))=" "l$(371s499)="!"+l$(372t402)+"f"+l$(404466)+":"+l$(468498)+"<" $a$(p+5*r(o))=""5000 $^l$(399466)="^ _"+l$(403430)+"A##A"+l$(435462)+"BddC" .za$(p+r(o+1)+5*r(o))=" "l$(402466)="!"+l$(403433)+"I"+l$(435465)+"H" 8{a$(p+r(o-1)+5*r(o))=" "l$(399463)=""""+l$(400430)+"I"+l$(432462)+"J" B$a$(p+6*r(o))=""5000 G<l$(464465)="":l$(432433)="" K$a$(p+7*r(o))=" "5000 L<l$(464465)="ij":l$(432433)="gh" NKa$(p+6*r(o)+r(o-1))=" "l$(464)="l":l$(432)="k" PKa$(p+6*r(o)+r(o+1))=" "l$(465)="":l$(433)="m" 5000 8a$(p+r(o)+r(o-1))=""l$(13)="$$$" <a$(p+r(o)+r(o-1))=""l$(641643)="ddb" )a$(p+r(o)+r(o-1))=""2030 l$(3)="'" l$(643)="<" ba$(p+r(o-1)+2*r(o))=""l$(193547#)="##f"+l$(196544 )+"$$:" 1a$(p+r(o-1)+2*r(o))=""2030 Xl$(225515)="*"+l$(226257)+")L"+l$(260512)+"VWo" 2030 :a$(p+r(o)+r(o+1))=""l$(3032 )="$$$" <a$(p+r(o)+r(o+1))=""l$(670672)="cdd" )a$(p+r(o)+r(o+1))=""2050 l$(30)="(" l$(670)="=" ba$(p+r(o+1)+2*r(o))=""l$(222576@)="e##"+l$(225573=)+";$$" 1a$(p+r(o+1)+2*r(o))=""2050 Yl$(256544 )=","+l$(257285)+"K+ "+l$(289!541)+"nPQ"  2050 ja$(p+r(o-1)+2*r(o))=""l$(196553))="#####"""+l$(202547#)+"$$$$$""" 1a$(p+r(o-1)+2*r(o))=""2130R fa$(p+r(o-1)+3*r(o))=""l$(292$520)="#####"+l$(297)515)+"#####" 1a$(p+r(o-1)+3*r(o))=""2130R $wl$(260488)=")*"+l$(262293%)+")*"+l$(296(327G)+")"+l$(329I483)+"TUVWX" = 2130R Bha$(p+r(o+1)+2*r(o))=""l$(216573=)="!#####"+l$(2225677)+"!$$$$$" G1a$(p+r(o+1)+2*r(o))=""2150f Lfa$(p+r(o+1)+3*r(o))=""l$(3139541)="#####"+l$(318>536)+"#####" Q1a$(p+r(o+1)+3*r(o))=""2150f Vwl$(284509)=",+"+l$(2863139)+",+"+l$(316<344X)+"+"+l$(346Z504)+"OPQRS" o 2150f tba$(p+r(o-1)+3*r(o))=""l$(297)523 )="e##"+l$(300,520)+"M@@" wl$(201)="""" y1a$(p+r(o-1)+3*r(o))=""2200 ~ba$(p+r(o-1)+4*r(o))=""l$(361i491)="e##"+l$(364l488)+"e##" 1a$(p+r(o-1)+4*r(o))=""2200 ul$(329I459)="Y"+l$(330J361i)+")*"+l$(364l457)+"ut":l$(489490)="wv"  2200 ba$(p+r(o+1)+3*r(o))=""l$(3106536)="##f"+l$(3139533)+"@@N" l$(216)="!" 1a$(p+r(o+1)+3*r(o))=""2220 ba$(p+r(o+1)+4*r(o))=""l$(374v504)="##f"+l$(377y501)+"##f" 1a$(p+r(o+1)+4*r(o))=""2220 ul$(344X471)="Z"+l$(345Y373u)+",+"+l$(376x469)+"pq":l$(503504)="rs"  2220 `a$(p+r(o-1)+4*r(o))=""l$(364l493)="e#"+l$(366n491)+"M@" :l$(300,524 )=""""+l$(301-523 )+"=" 1a$(p+r(o-1)+4*r(o))=""2260 l$(460461)="xy" Ca$(p+r(o-1)+5*r(o))=""l$(396397)="e#" 1a$(p+r(o-1)+5*r(o))=""2260 l$(396397)="[*"  2260  `a$(p+r(o+1)+4*r(o))=""l$(372t501)="#f"+l$(374v499)+"@N"  9l$(3095533)="!"+l$(3106532)+"<" 1a$(p+r(o+1)+4*r(o))=""2280 l$(468469)="z{" Ca$(p+r(o+1)+5*r(o))=""l$(404405)="#f" 1a$(p+r(o+1)+5*r(o))=""2280 l$(404405)=",\" 7 2280 a0,0;l$;4,11 ;2;"";d(y):0.1}L,d(y)/20-20 p=z5200P d(y)05280 =""5020 i$= i$="1"1100L #i$="y"a$(p+r(o))=""5020 i$="8"o=o+1 i$="y"d(y)=d(y)-10 i$="5"o=o-1 i$="y"p=p+r(o) "i$="5"i$="8"i$="y"2000  5020 P236066\,0:236077\,60<:7,4;1;"HERZLICHEN GLUECKWUNSCH";9 ,6;"Sie haben den Schatz";10 ,7;"gefunden und noch";11 ,11 ;d(y);" Punkte" Z&0,.4L,5,.4L,5,.4L,7,.4L,7,.4L,12 ,.6,9 ,.2~L,5,.4L,9 ,.2~L,5,.2~L,2,.4L,10 ,.8L,4,.4L,5,.1}L,0,.1}L,-3,.1}L,-7,.4L d#5210Z:c=502*-25 nd=117 x a,b:b,a+c d  5300 236066\,0:236077\,60<:9 ,8;1;1;"Sie haben diesen";10 ,7;"Durchgang verloren" Ba=120:.03{u\,20-a:a:0.1}L,-20 d(y)=0 ""5300:0  y e$(s,5) Q4;4;"DIE ERGEBNISLISTE NACH";,6;"DEM ";x;".DURCHGANG :",,,  f=1s d(s+f)=d(s+f)+d(f) e$(f,14)=d(s+f) e$(f,5)=f 72;f;".Spieler : ";d(s+f);19;"-> PLATZ:" f  f=0 i=1s-1 Ce$(i+1,14)ǰe$(i,14)5589 h=e$(i,14) 9e$(i,14)=(e$(i+1,14)) "e$(i+1,14)=h  f=1 i f>05582  7500L e=1s:f=1s ُd(s+e)=e$(f,14)e+2,29;e$(f,5):e$(f,5)="1"1;1;1;1;e+2,0,, f:e Ix<318,0;"Zum Weiterspielen Taste druecken" x=35650  "":x  5620 d14,0;" Wollen Sie nocheinmal spielen? ",, a$ +a$="n"9000(# 0a$="j":36$ :10 :5660 X6:6:0: Z"EINGABE","VON NEUEM","LABYRINTH","","","Steuern","Sie mit","den Kur-","sortasten","und mit","CAPS SHIFT","den blin-","kenden","Kursor.","","","Beenden","mit ENTER" \$7000X:a=118:x$ ]Sa,0;(a<4)+(a>4a<16)*2+(a>16)*4;x$:a aYg$(400):a=140020:g$(aa+19)="":a b 21,10 ;7;,, la=88X2488 q=1;20-(a-88X)/8,10 ;7,, va,7:0,159 (89Y,a-81Q:159,0 a 88X,167 '0,10 ;1;7,, "z=0:k=10 :t=0 (z,k)"F"7075 4(z,k)="F"l=-11:m=-11 ](z+l,k+m)="F"z+l,k+m;7;0;"":g$((z+l-1)*20+k+m-10 )="" m:l %z,k;1;3;4;" "  zz=z:kk=k i= Qi=0(i<8i>11 )(i<535i>568)i13 7090 #i=8t=1:k=k-1 #i=9 t=1:k=k+1 $i=10 t=1:z=z+1 $i=11 t=1:z=z-1 $i=535t=0:k=k-1 $i=568t=0:k=k+1 $i=546t=0:z=z+1 $i=557t=0:z=z-1 i=13 7300 /z>21z<0z=21*(z>21) Fk>31k<10 k=31*(k>31)+10 *(k<10 ) Czz=21kk>10 kk<31zz,kk;7;0;"" Bkk=31zz>0zz<21zz,kk;7;0;"" 7zz=21kk=317;0;zz,kk;""  R(zz<22kk=10 )(zz=0kk<32 )7;0;zz,kk;" "  t=2 (t=0zz>0zz<21kk>10 kk<31)(t=1((zz=1kk>10 kk<31)(kk=11 zz>1zz<20)(zz=20kk>10 kk<31)(kk=30zz>1zz<20)))zz,kk;7;0;"" Xt=1zz>1zz<20kk>11 kk<30zz,kk;7;0;""  <zz<1zz>20kk>30kk<11 7070 *et=1zz>1zz<20kk<30kk>11 g$((zz-1)*20+kk-10 )=" " 46t=0g$((zz-1)*20+kk-10 )="" z 7070 Zt=2:7140:20,0;"Bitte war-";21,0;"ten  TEST " Nzz<21zz>0kk<31kk>10 zz,kk;7;0;"" a=22358f Ag$(aa+1)=" "g$(a+20a+21)=" "7800x a lab=lab+1:k$=k$+g$ 5k$(12)=(k$(12)+1) ?20,0;" ";21,0;" " "Wollen Sie a) Unterprogramm be- enden b) Noch ein Labyrinth eingeben c) Die selbstdef. Labyrinthe auf Kasette speichern ";x$ x$="a"230 x$="b"7000X mx$="c"16,0;" Character array : Labyrinthe ":m$(k$):m$=k$:"Labyrinthe"m$():7340 10 :7340 Lf=1s-1 VAe$(f,14)e$(f+1,14)7590 `{v1=e$(f,5):v2=e$(f+1,5):e$(f,5)=((v1("= (= (= y :[O>( = y  :[O>(= >(= =[6\y[{\yB = w$!W:[( = y A:[ ( = y   :[w@  @ @0 0  0 01 ~BFJRbB~~~@@@~~~~BBB~~@@~~@@@~BBB~~~BB~BBB~~BB~1 @ (H08 1 >|>| 1 11  !A 00 @ ?>|?*M\##~2K#~2L"I!G6#6*IKGCG ~ `( ( != *6\$RG !PGN>2M!N>&#2W>2V:W_!_H0 ~w$$0 ~w$$B !O~'w+~w+B   :V=2V :M=2M *GKKB '~BB~@@@@BBBBBBB~bbRRJJFFDHP`PHDB~@@~@@@~@ (08 $ZZ$B$$BBBBBB<