M k MAULWURF IM WUERFELLABYRINT COPYRIGHT (C) 1984  BY$ ALEXANDER KULBARTSCH. KLIPPE 1068 5620 VELBERT 11BLV`%j-------------------------------!t VARIABELN AUFBEREITEN%~------------------------------- W(@)W():W():W():W(@):W(): W( )@:W(@)@:W(`):W():W() : W( )@:W(0)`JMA:SC:PORT:R :LV:PXFfff:PY@%-------------------------------# DIM. VON WUERFEL & FELD%-------------------------------) K$(`,),F(@,)%------------------------------- DEF. VON WUERFEL%-------------------------------/ I :K$(,I)"":K$(,)" "K$(,)" " K$(,)" "K$(,@)" "K$(,)"ĉ"(K$(,)"È"2K$(,)" "<K$(,)" "FK$(,@)" "PK$(,)" "ZK$(@,)"È"dK$(@,)" "nK$(@,)" "xK$(@,@)" "K$(@,)" "K$(,)" "K$(,)" "K$(,)" "K$(,@)" "K$(,)"ĉ"K$( ,)"È"K$( ,)""K$( ,)" "K$( ,@)""K$( ,)"ĉ"K$(@,)" "K$(@,)" "K$(@,)" "K$(@,@)" "K$(@,)" ""K$(`,)" ",K$(`,)" "6K$(`,)" "@K$(`,@)" "JK$(`,)" "=T------------------------------- 510 REM EINLEITUNG%^-------------------------------h,,,:'r" "%|" ")" "-" "-" ")" ",,`" {{ "" "" "" ""*" y}y "*" z~z "*" } y "*" ~ z "[&" HALTE DAS TIER '";:,,,`:"h";:,,`,:"' IN DEN GAENGEN."0,, :):" STEUERE MIT DEN CURSOR-TASTEN."D,,@:+N" DRUECKE SPACE-TASTE ZUM STARTEN."X,,:+b" (C) 1984 BY ALEXANDER KULBARTSCH"l A$: A$" " lv,,`,:-"HI-SCORE: SCORE: LEBEN:",,@:"LEVEL:"%" ^ ^"%" @ "&" "'" "*" "+" "+" "+" @ @"+" "-" "." @ @ "." ". " "." @ @". " ".*" "-4" "'>" "&H" "%R" @ "%\" "Xf ,: HS: 8,: SC: @,: LV: MA zYp,,,@: I MA: I,:"h"::,,@,z,,@, I (  ,I:" "%-------------------------------# ZUF. LAB. BAUEN & ZEICHN.%------------------------------- I @ J A(()@) W(A) F(I,J)W(A):W(A)  J,I I @ J  K ! F(I,J) ,,-$  (I ), (J )K. K$(F(I,J),K)8 ,,@B KHL F(I,J) XI:YJ:X1 (I ):Y1 (J ) V J,I%` -------------------------------$j TASTATURABFRAGE & AUSWERT.%t -------------------------------"~ I  LV X2:Y2: A$ A$"" Y2 :  A$"" Y2:  A$"" X2 :  A$"" X2:  A$()  Z  FELDER BEWEGEN" (Y2 )(Y) " (Y2)(Y) " (X2 )(X@) " (X2)(X) s (YY2(PY))(XX2(PX)) POPO(X2 )( Y2 ):PXPXX2:PYPYY2:FL: J : X1,Y1J: K$(F(XX2,YY2),J):T F(X,Y)F(XX2,YY2):XXX2:YYY2:X1X1X2 :Y1Y1Y2 :F(X,Y);( FL FL: PO,O: PO,`M2 ,,: J : X1,Y1J: K$(F(X,Y),J):J:,,@:%< -------------------------------F MAULWURF BEWEGEN%P -------------------------------Z PE(POR)d PE* SCSC : LV SCSC : LV SCSC : LV@ SCSC : LV SCSC .n PE* CC: C x PE* N PE PO,: PO,B:POPO4:PYfff: O PE0 PO,: PO,B:POPO4:PY:  PE  a ((PY))((PY)@)((PX))((PX)) PO,B:  PO,@7 PO,:POPOR: PO,O: PO,` R PYPY~L R  PYPY~L R  PXPX~L R PXPX~L 8,: SC ~ $ RICHTUNG AENDERN O. VERLOREN# (R)(R) , h ((PO))((PO)*)((PO))((PO)*) h F ((PO))((PO)*) R: Z " R: Z h, ((PO ))((PO )*)((PO ))((PO )*) h F6 ((PO ))((PO )*) R : Z @ R : Z %J -------------------------------T VERLOREN%^ -------------------------------h "+B4+G1+E+C4A1GE5r PO,:"R1"| PO,~:"R1" PO,z:"R1" PO,y:"R" PO,x:"R" PO,>:"R" PO,? MAMA:LVLV W():W():W():W(@):W(): W( )@:W(@)@:W(`):W():W() : W( )@:W(0)`B PORT:R :LVLV:PXFfff:PY@:C LV LV MA v SCHS HSSC" SC:LV:MA h