=*=|?q\6 D:\!6o>D123452 R.Koning 2000 OPUSPC 720K  dubbeldool 6program by B..Koning Niehove NL august 1986 23658j\,8:capslock  8000@ 2000:matrix -p$(19,22):h$(502,3) Rf=319:.003xD,40(-3*f:.003xD,44,-3*f g=222 p:p$(f,g)=p g:f: 0,0,1,1,4,8,8,8,8,8,8,8,8,8,8,8,2,1,0,0,1,1,0,8,8,0,0,8,8,8,8,8,8,8,8,8,8,0,0,8,8,1,4,8,1,8,4,8,2,8,8,8,8,8,8,8,8,8,0,8,4,8,0 0,8,8,1,1,8,8,1,8,8,8,8,8,8,8,8,1,8,8,1,0,4,8,8,8,0,8,8,8,0,8,8,8,8,8,8,0,1,8,8,8,4,1,8,8,0,1,8,8,0,8,8,8,8,8,8,8,0,8,8,8,1,1  0,8,2,8,0,8,1,8,8,8,0,8,8,8,4,8,8,8,0,8,4,0,1,8,8,0,1,8,8,8,8,8,8,8,1,8,8,8,0,8,8,0,1,8,8,8,4,1,8,8,8,8,8,8,2,1,4,0,1,1,2,0,0 0,8,8,1,0,8,8,8,8,8,8,8,8,0,8,8,8,8,8,8,8,0,8,1,8,2,8,8,8,8,8,8,8,8,8,0,8,8,8,8,8,2,1,0,8,8,1,8,8,8,8,8,8,8,8,8,8,1,8,8,8,8,1  2,8,8,8,0,0,0,1,9 ,9 ,9 ,9 ,9 ,1,4,0,1,1,0,0,0,1,0,8,8,0,8,8,8,8,8,8,8,1,8,8,8,0,8,8,8,8,0,8,1,8,1,8,8,8,8,8,8,8,2,8,8,8,0,8,8,8,8 *Q0,8,8,1,1,8,8,8,8,8,8,8,0,8,8,8,1,8,8,8,8,1,1,2,0,0,0,8,8,1,8,8,1,2,0,1,1,2,0,1,1,8 >f=110 :.0003uIQ+f/1000,40(+f:f: +.005y# =,15:.005y# =,5: :57000: 5:1 d5:20,26;"START?":0:20,26;"stop=s" v7:3,6;1;2;"A";3,9 ;" ";3,18;"B";3,15;" " 3200 ay=3:ax=6 by=3:bx=18 *5x(w$y)=4*(w$(1)-64@)-2 45y(w$y)=4*(w$(2)-480)-1 > t=0: 5:input !#1;"Which pawn: A or B ?" 0:q$= q$="S"6120 3q$<65Aůq$>66B3250 :3520 /3,27;q$;" ":.2~L,40( "Which destination? ";w$ Ew$(1)<65Aůw$(1)>70F3250 :3540 Ew$(2)<491ůw$(2)>5353250 :3540 x2=x(w$)  y2=y(w$)  kontrole klh=(y3+1,x3+1) $4x1=18y1=19klp=121y:3650B .(klp=((y1+y2)/2,(x1+x2)/2) 80rip=p$(y2-(y2>y1)+(y2x1)+(x22000:0:1:1:7::5900  }^7:15,6;" idea: Robert Abbot";20,5;" Instructions? (j/n) " 0:a$=:a$="N" 6:1:0: 4;d$;''"In this labyrinth you are in control of BOTH pawns A and B."''"Your task is to bring one of thepawns to the field marked 'EINDE'" {'"The direction in which a pawn isallowed to move is determined bythe colour of the field on whichthe other pawn stands." '"Take your time, this is a rathercomplicated labyrinth! The road to 'EINDE' is long and winding and there are many possibilitiesto get there." 3:3200 %''" Press any key....":0 + X einde b@#1;1;2;" C O N G R A T U L A T I O N S ! " l n=110 :3200 vn  9000(# @ program J6500d:regels ^3300 :scherm r3500 :input |3700t:kontrole 3900<:verslag  8050r #(:56999:*1;"ddoolE"57000,7000X: #20#1;"One more time? (j/n)":0:A$= #<A$="J"8030^ '9f=23755\65:f;" ";f,¾fƾf>31:f '(tr=128:s=6:q=32768 'V@tr,s,q:q=q+512:s=s+1:9992'+(s>9 )+10 *(q>65535) ' Ttr=tr+(128*(tr<128))-(127*(tr128)):s=1:9992' ' 1f=23755\30900x:(f+90135#),f:f ' '.:*1;"ddoolE"9000:*1;"ddoolE"57000,7000 lxx '9994 ' xx:(f+90135#),f:f <'!@ A``@A@`@@A A A````AxB||~@x<<@B<~@ <<| AP`<|  AA< <AA<`PP`ADBBB@@DBB@BB@A@888 @BB Ah8D8( 0`B B`@PA@fAZ`` `ZAA888B` 0 0P`Ah8D88BB|||@BBB@~B|A@@ <BB ATDDD 0`B| 0 0A|@ <A00 0AAD` 0 0 0`ATDDD@>>>BBBB@@BBB@BB@>>>A@<8>?~|ATD(x 0` ~B(A?A A>>AD<<` 0 0(`ATD(x8DBBB@@DBB@BB@A@D@BBD<ATD(@ 0`BB 0@AA Z Z A ADD@` 0 0`ATD(@x<||~~x<<~B<@A~ `B |` 0AA<<A@@A8 < ~` 0 0`AT8Bx~PAAZZZA  ABP`` P 0AfA `AA` 0@bD@ P 0A||A A  A 0`  0@ 0@ 0A<|A 0AA( 0 0|RB|@ 0@ 0A A   A >A(`( 0A A A>>AH 0@JB@( 0A  A0A <AB` 0 0AAZ Z ZA<A~ 0 0@FD@ 0A 0 A0`0A0f@A< 0` `@ 0@ AA<< <Af@@A` ~>Bx~@ 0@ A@@`A``A@`@A ` `AA0A@A` `A@@@A`AA`A@@AA@A<0<AA~ P AA<|`A( 0A A~B@B@@@AZZA<<AB@ 0 0 0AABBBD@@@A<<A@ffA< 0 ``AAB|<x~@@AA@A `AA @xxyyyyz{|}~xyz{|}~xyyyyxxx}xhxxxxy||| xyzyxhxxyxy|y|xzxyxzzzxyyyyx}xxxxy|||xxxxyxxxxzzzyx}xy|yyy|zzzyx|||xyyx}x|||yxxxzxxxy||||yxhx|y|yxyxyxyxyyxxxyyyy|y|yxhx|||yxxxyxxxyxxy|||yx}xyxyzzxyxxy|||yyxx|yyx}xyyyz|||yyyxxyz||yyyxxxxyx}xyyyy|y|xxxxyzzz|yyyzxyxyx}xyyyy|||xyyyyzzzxyyyzxxxyx}xyxyyyz yxxyyyyzyyx}xyzyyxxxyxyxxxyx}xzzzyxy x|yyyxxyxyx}xzzzy x|yyyxxxxyx}xyx yzyyyxyx}xyyyyxxxyzyyyzyx}xyyyzxyxyzzzyzzzyx}xyyyyxxxyzzzyzzzyx}x}@(NMMMW P P M3yy3-yy*3w*I*@RvxJ>!@ A``@A@`@@A A A````AxB||~@x<<@B<~@ <<| AP`<|  AA< <AA<`PP`ADBBB@@DBB@BB@A@888 @BB Ah8D8( 0`B B`@PA@fAZ`` `ZAA888B` 0 0P`Ah8D88BB|||@BBB@~B|A@@ <BB ATDDD 0`B| 0 0A|@ <A00 0AAD` 0 0 0`ATDDD@>>>BBBB@@BBB@BB@>>>A@<8>?~|ATD(x 0` ~B(A?A A>>AD<<` 0 0(`ATD(x8DBBB@@DBB@BB@A@D@BBD<ATD(@ 0`BB 0@AA Z Z A ADD@` 0 0`ATD(@x<||~~x<<~B<@A~ `B |` 0AA<<A@@A8 < ~` 0 0`AT8Bx~PAAZZZA  ABP`` P 0AfA `AA` 0@bD@ P 0A||A A  A 0`  0@ 0@ 0A<|A 0AA( 0 0|RB|@ 0@ 0A A   A >A(`( 0A A A>>AH 0@JB@( 0A  A0A <AB` 0 0AAZ Z ZA<A~ 0 0@FD@ 0A 0 A0`0A0f@A< 0` `@ 0@ AA<< <Af@@A` ~>Bx~@ 0@ A@@`A``A@`@A ` `AA0A@A` `A@@@A`AA`A@@AA@A<0<AA~ P AA<|`A( 0A A~B@B@@@AZZA<<AB@ 0 0 0AABBBD@@@A<<A@ffA< 0 ``AAB|<x~@@AA@A `AA @xxyyyyz{|}~xyz{|}~xyyyyxxx}xhxxxxy||| xyzyxhxxyxy|y|xzxyxzzzxyyyyx}xxxxy|||xxxxyxxxxzzzyx}xy|yyy|zzzyx|||xyyx}x|||yxxxzxxxy||||yxhx|y|yxyxyxyxyyxxxyyyy|y|yxhx|||yxxxyxxxyxxy|||yx}xyxyzzxyxxy|||yyxx|yyx}xyyyz|||yyyxxyz||yyyxxxxyx}xyyyy|y|xxxxyzzz|yyyzxyxyx}xyyyy|||xyyyyzzzxyyyzxxxyx}xyxyyyz yxxyyyyzyyx}xyzyyxxxyxyxxxyx}xzzzyxy x|yyyxxyxyx}xzzzy x|yyyxxxxyx}xyx yzyyyxyx}xyyyyxxxyzyyyzyx}xyyyzxyxyzzzyzzzyx}xyyyyxxxyzzzyzzzyx}x}@(i P P P 3\MWeGWq !v>>BB<DHpHDB@~BfZBBBBbRJFBf=110 :.0003uIQ+f/1000,40(+f:f: +.005y# =,15:.005y# =,5: :57000: 5:1 d5:20,26;"START?":0:20,26;"stop=s" v7:3,6;1;2;"A";3,9 ;" ";3,18;"B";3,15;" " 3200 ay=3:ax=6 by=3:bx=18 *5x(w$)z)=4*(w$(1)-64@)-2 45y(w$)z)=4*(w$(2)-480)-1 > t=0: 5:input !#1;"Which pawn: A or B ?" 0:q$= q$="S"6120 3q$<65Aůq$>66B3250 :3520 /3,27;q$;" ":.2~L,40( "Which destination? ";w$ Ew$(1)<65Aůw$(1)>70F3250 :3540 Ew$(2)<491ůw$(2)>5353250 :3540 x2=x(w$)  y2=y(w$)  kontrole klh=(y3+1,x3+1) $4x1=18y1=19klp=121y:3650B .(klp=((y1+y2)/2,(x1+x2)/2) 80rip=p$(y2-(y2>y1)+(y2x1)+(x22000:0:1:1:7::5900  }7:15,6;" idea: Robert Abbot";17,6;" program: Bert Koning";20,5;" Instructions? (y/n) " 0:a$=:a$="N" 6:1:0: 4;d$;''"In this labyrinth you are in control of BOTH pawns A and B."''"Your task is to bring one of thepawns to the field marked 'EINDE'" {'"The direction in which a pawn isallowed to move is determined bythe colour of the field on whichthe other pawn stands." '"Take your time, this is a rathercomplicated labyrinth! The road to 'EINDE' is long and winding and there are many possibilitiesto get there." 3:3200 %''" Press any key....":0 + X einde b@#1;1;2;" C O N G R A T U L A T I O N S ! " l n=110 :3200 vn  9000(# @ program J6500d:regels ^3300 :scherm r3500 :input |3700t:kontrole 3900<:verslag  8050r #(:56999:*1;"ddoolE"57000,7000X: #20#1;"One more time? (y/n)":0:A$= #<A$="Y"A$="y"8030^ ' '.:*1;"ddoolE"9000:*1;"ddoolE"57000,7000 D D U B B E L D O O L Ч-  p ț2 p w':15,6;" idea: Robert Abbot";17,6;" program: Bert Koning";20,5;" Instructions? (y/n) "  M9 AWMy2 P P P 37zMOTOGWq !vr>