4 op 'n ryî îCðÿ ê*********************** ê* * ê* VIER OP EEN RIJ * (ê* * 2ê*********************** <ê Fê*********************** Pê* HOOFD-PROGRAMMA * Zê*********************** dê ní1000è:ñspeler=0 o_úzet=42*Ëõ¬2,0;"Gelijk spel,bord vol !":ëi=0Ì60<:×.01z#× =,i:ói:÷ púspeler=uitËí4000 :ñb(kolom1,rij1)=speler:í3000¸ :ñspeler=Ãspeler:údacht=kolom1Ëõ#0;¬0,0;s$;¬0,0;"dat dacht ik al..." s$ëx=1Ì7:ñv(x)=9 :óx ‚Ží2000Ð:ñhoog1=hoog:ñkolom1=kolom:ñrij1=rij:õ#0;¬0,0;s$;:õ#0;¬0,0;"als ik nu kolom ";kolom1;" doe..." Œoñb(kolom1,rij1)=speler:ñspeler=Ãspeler:í2000Ð:ñhoog2=hoog:ñkolom2=kolom:ñrij2=rij:ñb(kolom1,rij1)=9 –~ñspeler=Ãspeler:úhoog1È125}Ëñb(kolom1,rij1)=speler:í3000¸ :õ¬2,0;"EUREKA,ik heb gewonnen.":í9000(#:÷ ›Uñdacht=kolom2:õ#0;¬1,0;"dan doe jij natuurlijk kolom ";kolom2;" !"  «úhoog2<125}Ëò502:õ#0;¬0,0;s$;¬0,0;"ik doe lekker kolom ";kolom1;" !":ñb(kolom1,rij1)=speler:í3000¸ :ñspeler=Ãspeler:ì111o ¥‚ò502:õ#0;¬0,0;s$;¬0,0;"ik kan kolom ";kolom1;" beter";¬1,0;"toch maar niet doen !" ª›ñv(kolom1)=speler:ñy=0:ëx=1Ì7:ñy=y+(v(x)=spelerÅm(x,1)=7):óx:úy=7Ëõ¬2,0;"Ik kap ermee,aju !":í9500%:÷ ´ ì130‚ çê èê*********************** éê* INITIALISATIE * êê*********************** ëê ò°ñdacht=4:és$(64@):ñzet=0:éb(7,6):ém(7,2):év(7):ëx=1Ì7:ëy=1Ì6:ñb(x,y)=9 :óy:ñm(x,1)=1:óx ü í6000p #î"Wilt u (W)it of (Z)wart ? >";Êk$ (úk$="z"Åk$="Z"Ëñuit=1:ì1060$ (úk$="w"Åk$="W"Ëñuit=0:ì1060$ ×1,1:ì1030 $/å1065):ëi=À"a"ÌÀ"a"+63?:ãj:ôi,j:ói:þ )ä3,12 ,28,32 ,64@,64@,128€,128€,192À,480,8,4,6,6,1,1,128€,128€,64@,64@,32 ,28,12 ,3,1,1,6,6,4,8,480,192À .7ä3,15,31,63?,127,127,255ÿ,255ÿ,192À,240ð,248ø,252ü,254þ,254þ,255ÿ,255ÿ,255ÿ,255ÿ,127,127,63?,31,15,3,255ÿ,255ÿ,254þ,254þ,252ü,248ø,240ð,192À Ðê Ñê*********************** Òê* PROBEER ZET * Óê*********************** Ôê Ú5ëx=1Ì7:×.005y#× =,¥*40(:ñy=7 ä<úy>1Ëúb(x,y-1)=9 Ëñy=y-1:ì2020ä î)ñm(x,1)=y:ñm(x,2)=0:óx óXëx=1Ì7:×.005y#× =,¥*40(:úm(x,1)=7Åv(x)=spelerËì2050 ø_ñy=m(x,1):ñb(x,y)=speler:í21004:í2200˜:í2300ü:í2400` :ñb(x,y)=9 óx:í2500Ä :þ 4ê 5ê*********************** 6ê* PUNTEN HORIZONTAAL * 7ê*********************** 8ê >ñxx=x:ñpunten=1 H?úxx>1Ëúb(xx-1,y)=spelerËñxx=xx-1:ì2120H RNñxx=xx+1:úxx<8Ëúb(xx,y)=spelerËñpunten=punten*5:ì2130R \$ñm(x,2)=m(x,2)+punten:þ ˜ê ™ê*********************** šê* PUNTEN VERTICAAL * ›ê*********************** œê ¢ñyy=y:ñpunten=1 ¬Nñyy=yy-1:úyy>0Ëúb(x,yy)=spelerËñpunten=punten*5:ì2220¬ ¶$ñm(x,2)=m(x,2)+punten:þ üê ýê*********************** þê* PUNTEN Y=X+C * ÿê*********************** ê ñxx=x:ñyy=y:ñpunten=1 búxx>1Æyy>1Ëúb(xx-1,yy-1)=spelerËñxx=xx-1:ñyy=yy-1:ì2320 yúxx<7Æyy<6Ëúb(xx+1,yy+1)=spelerËñpunten=punten*5:ñxx=xx+1:ñyy=yy+1:ì2330 $$ñm(x,2)=m(x,2)+punten:þ `ê aê*********************** bê* PUNTEN -Y=X+C * cê*********************** dê jñxx=x:ñyy=y:ñpunten=1 tbúxx>1Æyy<6Ëúb(xx-1,yy+1)=spelerËñxx=xx-1:ñyy=yy+1:ì2420t ~yúxx<7Æyy>1Ëúb(xx+1,yy-1)=spelerËñpunten=punten*5:ñxx=xx+1:ñyy=yy-1:ì2430~ ˆ$ñm(x,2)=m(x,2)+punten:þ Äê Åê*********************** Æê* BEPAAL DE BESTE ZET * Çê*********************** Èê Îqñkolom=0:ñhoog=0:ëx=1Ì7:úhoog";kolom1 ´cúkolom1>0Ækolom1<8Ækolom1=ºkolom1Ëúm(kolom1,1)<7Ëñrij1=m(kolom1,1):þ ¾×1,1:ì4010ª pê*********************** qê* PRINT SPEELBORD * sê*********************** tê zÙ0:Ú7:ç7:û |õ" VIER OP EEN RIJ" bëk=1Ì8:ök*16,16:ü0,96`:ü-1,0:ü0,-96`:ók „wö15,15:ëk=1Ì7:ö16,k*16:ü112p,0:ü0,-1:ü-112p,0:ók Ž-ëi=1Ì7:õ¬21,i*2;i:ói ˜¨ö239ï,16:ü15,0:ü0,31:ü-15,0:ü0,-32 :ü16,0:ü0,33!:ü-17,0:ü0,-33! ¢7ëi=15Ì480:ö215×,i:ü18,0:ói ¬þ #(ê #)ê*********************** #*ê* OVERWINNINGSSONG * #+ê*********************** #,ê #2=ä37%,10 ,34",2,34",1,34",1,32 ,1,34",1,35#,3,34",2,34",1,32 ,2,32 ,1,32 ,1,30,1,32 ,1,34",3,30,2,32 ,1,34",2,34",1,34",1,32 ,1,34",1,35#,2,37%,1,39',10 ,39',1,37%,1,39',1,37%,1,35#,1,34",1,32 ,1,30,5,-1 #7 å90102# #<ãs1:ús1=-1Ëþ #F(ãs2:×s2/8,s1-30:ì9020<# %ê %ê*********************** %ê* TREURLIED * %ê*********************** % ê %&Jëi=60<Ì-20Í-.3™™™:×.005y#× =,i:×.008zn—,40(-i:ói:þ ×