4MODE7 5REM BC-3 subs vs 3.7 dd 870316 10GOTO1000 20RV=RND(-TIME):CLEAR:A%=135:OM=(&700 00 ANDUSR&FFF4)DIV&10000:OM=OM+(OM=2)+(O M=5):MODE128+OM:@%=0:HO=39-40*((OM=0)+(O M=3)):VE=24-7*(OM MOD4<2):GOSUB100:SV=7: *FX4,1 21Og=4+4*(OM<2):A%=129:X%=0:Y%=&FF:HG =320*(1-(Og=0)):VG=256:O%=0:DIMOF(7):*FX 143,48 22Oh%=HO:Ov%=VE:A%=0:Y%=0:Of=&FF ANDU SR&FFDA:Os=Of:*FX21,3 23A%=ADVAL-4:VDU2,1,32,1,8,3:Op=ADVAL -4=A%:NF$="bc3":ONERRORGOSUB951:REPORT:P RINT" at line ";ERL:END 24GOTO1010 100MODE128+OM:VDU23,1,0;0;0;0;:RETURN 110PRINTTAB(HO,VE);:RETURN 120HO=POS:VE=VPOS:RETURN 150A%=135:IFOM=7THEN155 152VDU32:COLOUR0:COLOUR129-2*(OM=1):PR INT" "SR$" "; 153COLOUR1-2*(OM=1):COLOUR128:PRINT" " ;:RETURN 155PRINT" "SR$" ";:RETURN 200IN$=INKEY$0:GOTO211 210OSCLI"FX21":VDU23,1,1;0;0;0;:IN$=GE T$:VDU23,1,0;0;0;0; 211IFIN$=""IN=0 ELSEIN=ASCIN$:IFIN>128 IN=IN-108 212IFIN>95ANDIN<126IN=IN-32 213IFIN=7IN=9:RETURN ELSERETURN 220O1=POS:O2=VPOS:A%=135:GOSUB110 221IN=(USR(&FFF4)AND&FF00)DIV256:IFIN< 32THENIN=0 222IFIN>95THENIN=IN-32:IFIN>95 THENIN= 32 223PRINTTAB(O1,O2);:IFHO>Oh%ORVE>Ov%OR HO<0ORVE<0IN=0:RETURN ELSERETURN 250VDU7:RETURN 260RV=RND(1):RETURN 270FR=(?5-?3)*256+?4-?2:RETURN 280IFFR=0THEN*FX200 281IFFR=1THEN*FX200,1 282RETURN 300SR$=STR$SR:RETURN 310@%=&1020000+CN*256+CT:SR$=STR$SR:IF VALSR$=0SR$=STR$0 311@%=0:IFMID$(SR$,LENSR$-CN,1)<>"."OR INSTR(SR$,"E")SR$=STRING$(CT,"*"):RETURN 312IFCN=0SR$=LEFT$(SR$,LENSR$-1) 313IFLENSR$>CT SR$=STRING$(CT,"*") 314SR$=STRING$(CT-LENSR$," ")+SR$:RETU RN 330O1$=SR$:SR$="":FOR O2=1TOLENO1$:O1= ASCMID$(O1$,O2):IFO1>95O1=O1-32 331IFO1>0THEN SR$=SR$+CHR$(O1) 332NEXT:RETURN 350*FX3,26 351IFOp PRINTSR$; 352*FX3 353RETURN 360*FX3,26 361IFOp PRINT 362GOTO352 400SOUND1,-SV,4*SP-187,2*SD:SOUND1,0,0 ,0:REPEATUNTILADVAL-6=15:RETURN 450TIME=-SD*10:VDU23,1,1;0;0;0;:REPEAT IN$=INKEY$0:UNTILIN$>"" ORTIME>=0 451VDU23,1,0;0;0;0;:SD=-.1*TIME:IFSD<0 SD=0 452GOTO211 500IFOF(NF)>0PRINT"Bestand is al open" :END 501IN=0:IFNF>2THEN503 502A%=234:X%=0:Y%=255:IFO%+(&FF00 ANDU SR&FFF4)=0DIMO%0:DIMO%1534-O%MOD256:O%=( O%+255)AND&FF00 503A%=143:X%=18:IFNF<2Y%=67:CALL&FFF4 ELSEY%=Of:CALL&FFF4 505Os=Y%:IFNF<4THEN507 506A%=0:Y%=0:IFOf<4PRINT"Geen schijfee nheid beschikbaar":END 507IF(1ANDNF)=0OF(NF)=OPENIN(NF$):RETU RN ELSEOF(NF)=OPENOUT(NF$):RETURN 540IN=0:IN$="":IFNF>1THEN548 541IN=-EOF#OF(NF):IFIN RETURN 542REPEATO1=BGET#OF(NF):IFO1>31IN$=IN$ +CHR$O1 543IFO1<32ANDO1<>13IN$=IN$+"#":IN=-1 544UNTILO1=13OREOF#OF(NF):IFEOF#OF(NF) IN=2*IN+1:RETURN ELSERETURN 548IFOF(NF)=0PRINT"Bestand met NF=";NF " is niet geopend.":END 549IN=-EOF#OF(NF):IFIN RETURN ELSEINPU T#OF(NF),IN$:IN=-EOF#OF(NF):RETURN 560IN=0:IFOF(NF)=0 PRINT"Bestand met N F=";NF" is niet geopend.":END 561IFNF>1PRINT#OF(NF),SR$:RETURN 562IFSR$>""FORO1=1TOLENSR$:BPUT#OF(NF) ,ASCMID$(SR$,O1):NEXT 563BPUT#OF(NF),13:RETURN 580IN=0:IFOF(NF)=0 PRINT"Bestand met N F=";NF" is niet geopend.":END 581CLOSE#OF(NF):OF(NF)=0:A%=143:X%=18: Y%=Of:CALL&FFF4:RETURN 600MODE128+Og:VDU23,1,0;0;0;0;:Oa=0:Ob =0:RETURN 620O1=69:GOTO631 630O1=5 631PLOTO1+CN+CN,HO*1280,1023-VE*1024:R ETURN 650MOVEHO*1280,1023-VE*1024:GCOL0,1-CN :VDU5:PRINTSR$;:VDU4:GCOL0,1:RETURN 950GOSUB951:END 951VDU23,1,1;0;0;0;:*FX4 952IFOf<>Os A%=143:X%=18:Y%=Of:CALL&FF F4 953ONERROROFF:MODE128+OM:*FX200 954RETURN 1000A=500:GOTO20:REM SLIDER-SOLUTIONS 1 -28 1010HT=HO:VT=VE:WI$="" 1020FORI=0 TOHT:WI$=WI$+" ":NEXTI 1030GOSUB1850:REM **EERSTE SCHERM** 1040GOSUB1750:REM **BORDRAND** 1050GOTO1210 1060REM **WELK VELD** 1070VE=VT-2:HO=INT((HT-18)/2+0.5)-3:GOS UB110 1080SR$="Which screen? (1-28) ":GOSUB15 0:INPUTZ$ 1090Z=VAL(Z$):IF(Z<1)OR(Z>28)THEN GOSUB 250:GOTO1070 1100KZ=100+Z:RETURN 1110REM ***NOG EEN?*** 1120VE=VT-2:HO=0:GOSUB110:PRINTWI$; 1130SR$="Another one? (Y/N) " 1140HO=INT(HT-15)/2-3:GOSUB110:GOSUB150 1150GOSUB210:IFIN<>89 THEN1970:REM N 1160FORVE=3 TO16:HO=H:GOSUB110 1170PRINTLEFT$(WI$,20);:NEXTVE:PA=0 1180VE=VT-4:HO=0:GOSUB110:PRINTWI$; 1190VE=VT-2:GOSUB110:PRINTWI$;:GOSUB107 0:RETURN 1200REM ***DANGER, MAN AT WORK*** 1210RESTORE 1220READX$:X=VAL(X$):IFX<>KZ THEN1220 1230READR$,K$:R=VAL(R$):K=VAL(K$) 1240N1=R:R=R+2:L$=CHR$(K+ASC("A")-1):K= K+H-1 1250FORI=1 TO14:P1$="":READB$:IFB$="" T HEN1340 1260FORJ=1 TOLEN(B$):X$=MID$(B$,J,1) 1270IF(ASC(X$)<48)OR(ASC(X$)>57)THEN131 0 1280X=VAL(X$):P2$="" 1290FORL=1 TOX:P2$=P2$+MID$(B$,J+1,1):N EXTL 1300J=J+1:X$=P2$:GOTO1320 1310IFX$="o" THENX$="O" 1320P1$=P1$+X$ 1330NEXTJ 1340VE=I+2:HO=H:GOSUB110:PRINTP1$; 1350NEXTI 1360VE=VT-4:HO=HT-22:GOSUB110:PRINT"Num ber of moves: "; 1370REM ***SCHUIVERIJ*** 1380READS$,T$,U$,V$,W$:Y$="" 1390READZ$:IFZ$="?" THEN GOSUB1120:GOTO 1210 1400FORI=1 TOLEN(Z$):X$=MID$(Z$,I,1) 1410IFX$="$" THENY$=Y$+S$:GOTO1470 1420IFX$="!" THENY$=Y$+T$:GOTO1470 1430IFX$="U" THENY$=Y$+U$:GOTO1470 1440IFX$="V" THENY$=Y$+V$:GOTO1470 1450IFX$="W" THENY$=Y$+W$:GOTO1470 1460Y$=Y$+X$ 1470NEXTI 1480Z$=Y$:Y$="" 1490FORI=1 TOLEN(Z$):X$=MID$(Z$,I,1) 1500GOSUB210 1510IFX$="." THENN2=VAL(MID$(Z$,I+1,2)) :I=I+2:GOTO1620 1520IF(ASC(X$)>47)AND(ASC(X$)<58)THENN2 =VAL(X$):GOTO1620 1530REM HOR.MOVE 1540DK=ASC(X$)-ASC(L$):S=1:IFDK<0 THENS =-1 1550FORJ=1 TOABS(DK) 1560HO=K:VE=R:GOSUB110:PRINT" "; 1570HO=K+S:C=HO:GOSUB220 1580IFIN=ASC("O")THENHO=HO+S:GOSUB110:P RINT"O"; 1590HO=C:GOSUB1720 1600K=C:NEXTJ:L$=X$ 1610GOTO1690 1620DR=N2-N1:S=1:IFDR<0 THENS=-1:REM VE RT. MOVE 1630FORJ=1 TOABS(DR) 1640VE=R:HO=K:GOSUB110:PRINT" "; 1650VE=VE+S:V=VE:GOSUB220 1660IFIN=ASC("O")THENVE=VE+S:GOSUB110:P RINT"O"; 1670VE=V:GOSUB1720 1680R=V:NEXTJ:N1=N2 1690NEXTI 1700GOTO1390 1710REM STAPPENTELLER 1720GOSUB110:PRINT"X";:PA=PA+1:VE=VT-4 1730HO=HT-6:GOSUB110:PRINTPA;:RETURN 1740REM ***BORDRAND*** 1750LE$="ABCDEFGHIJKLMNOPQRST" 1760HO=INT(HT/2-9.5):VE=2:GOSUB110:H=HO 1770PRINTLE$;:VE=17:GOSUB110:PRINTLE$; 1780FORI=1 TO14:SR=I:GOSUB300 1790IFLEN(SR$)<2 THENSR$=" "+SR$:GOTO17 90 1800N$=SR$+LEFT$(WI$,22)+SR$:VE=2+I 1810HO=INT(HT/2-12.5):GOSUB110:PRINTN$; 1820NEXTI:GOSUB1070 1830RETURN 1840REM ***EERSTE SCHERM*** 1850H$="":FORI=1 TOHT:H$=H$+"*":NEXTI 1860GOSUB100:VE=0:HO=0:GOSUB110:PRINTH$ ; 1870VE=VT:GOSUB110:PRINTH$; 1880H$="*"+LEFT$(WI$,HT-2)+"*" 1890FORVE=1 TOVT-1:GOSUB110:PRINTH$;:NE XTVE 1900VE=INT(VT/2)-2:HO=INT(HT/2-13.5):GO SUB110 1910SR$="S L I D E R":GOSUB150 1920VE=VE+4:HO=INT(HT/2-10.5):GOSUB110 1930PRINT"S O L U T I O N S"; 1940SD=20:GOSUB450:GOSUB100 1950RETURN 1960REM ***LAATSTE SCHERM*** 1970GOSUB100:H=INT(HT/2-8):V=INT(VT/2) 1980VE=V-8:HO=H-10:GOSUB110:SR$="AU REV OIR":GOSUB150 1990VE=V-4:HO=H-6:GOSUB110:SR$="AUF WIE DERSEHEN" 2000GOSUB150:VE=V:HO=H:GOSUB110:SR$="DO ZVIDANYA" 2010GOSUB150:VE=V+4:HO=H+6:GOSUB110:SR$ ="TOT ZIENS" 2020GOSUB150:VE=V+8:HO=H+10:GOSUB110:SR $="GOOD BYE" 2030GOSUB150:SD=75:GOSUB450:GOTO950 25000DATA"101","10","13" 25005DATA"5 5#","5 #3 #","5 #O #","3 3# O##" 25010DATA"3 # O O #"," 3# # ## #"," #3 # ## #3 6#" 25015DATA" # O O3 5# **#"," 5#9 **#" ,"5 # 3# #X## **#" 25020DATA"5 #5 9#","5 7#","","" 25025DATA".10Q9P8","P9J5H2","G4I5J8I9"," 4G75E8I" 25030DATA"8IG5J8I9P","9J5I4G5E8IE5UR","J 5IVUQ" 25035DATA"J5HVUP8Q9P.10R","P9G8E7CW$R"," !G75EW$Q" 25040DATA"!I4G8J5HVG5J8I9P8Q9P.10Q","?" 25045DATA"102","6","9",""," 9#3#"," #** #5 3#" 25050DATA" #** # O O #"," #** #O4# #" 25055DATA" #**3 OX ## #"," #** # # O ##"," 6# ##O O #" 25060DATA"3 # O3 O O #","3 #5 #4 #","3 9#3#"," "," "," " 25065DATA"9I.10H79","7J6E7D","6J7","7J6" ,".10H79" 25070DATA"D5CUL$L!4E3DUK8L$KVDJ7L.10N$K! 5E4D" 25075DATA"UK9N8L7K8L$K!6E5DUK8M6N4M8N$K! 4" 25080DATA"UM4L3H53L4M!56H3J4I3H53L4M!6" 25085DATA"H3L4I3H54MVEH.10F9GWKVF5E6F7E" ,"?" 25090DATA"103","3","17","","9 8#","9 # 5 X#" 25095DATA"9 # O#O ##","9 # O O#","9 ##O O #" 25100DATA" 9## O # 3#"," #4*3 ## O O # "," #3*6 O O3 #" 25105DATA" #4*3 9##"," 9#","","","" 25110DATA"","","N8O9","9G.10F9","F.10E9" 25115DATA"P5N9D.10C9N8P9D" 25120DATA"R8P9N5P8Q9E8D9E.10D9N6O5P8Q9EP 8OP6UWF8E" 25125DATA"9L8M9P6UF8E9WL7M8P6UFP3O5P6O5U G.10F9G8F9P3L5" 25130DATA"O4P8Q9G8FVN5M8NVM5L3M8N9H8G9H. 10G","?" 25135DATA"104","11","11","9 2 8#","9#3# 4*#" 25140DATA"#4 # O O 4*#","# 3O#O2 O # 4*#" 25145DATA"# O5 O # 4*#","# OO #O O O# 4*#","# O #5 8#" 25150DATA"## 9#","#4 #4 ##","#6 O ##"," # OO#OO X#" 25155DATA"#4 #4 ##","9#3#","" 25160DATA"2N5M6","4N3M2","M3H5","5J6K4J3 M",".10D.11C6B" 25165DATA"I9G.10C7B5H4J3QJ4H3PH7J4I3OJ5K 4J3N" 25170DATA"J7K4J3M!QM3HV!PM3J7I4H3M!O" 25175DATA"UB3C4BV!NUC3D4CV2N3M4QUD3E4DV2 N3M4P" 25180DATA"UB7C6BV2N3M4O","UE6D5B7C6BV2N3 M4N" 25185DATA"M3G4H5E4CV2N4M5Q","M3H7G6H5E4C V2N4M5P" 25190DATA"UC.12D.10E9D.10C6BV2N4M5OUE7D6 C9B.11C6BV2N4M5N" 25195DATA"UC.10G9IWV$QUC.10I.12H.11IWV$P " 25200DATA"UC.10H.12G.11HWV$OUC.12E.11D.1 0G9IWV$N","?" 25205DATA"105","8","17","9 5#","9 #3 5 #" 25210DATA"9 # #O## #","9 #4 O #"," 9# 3#3 #" 25215DATA" #4* ## O O3#"," #4*4 O OO ##" 25220DATA" #4* ##O O X#"," 9# O ## " 25225DATA"9 # O O #","9 3# ## #","9 3 #4 #","9 3 6#","" 25230DATA"Q.12N8O","I7","M9L8M","7I8H7I6 ","7I6H7I8" 25235DATA"P6N7EN6P7FP9O8P7GU7HO8UVE!M9NL .10M8P.10$" 25240DATA"VF!P9M.10L8MVG!P.10O$VH!L4P9N. 12" 25245DATA"Q.10O$WE!P5R3Q4R5Q4P9N.12Q.10O $" 25250DATA"WF!N6MP4L6MWG!L2N32L6P4MN2L6MW H","?" 25255DATA"106","3","13","","3 6# 3#","3 #** # ##X##" 25260DATA"3 #** 3#3 #","3 #**5 OO #","3 #** # # O #" 25265DATA"3 #**3# # O #","3 4# O #O #", "6 # O# O #" 25270DATA"6 # O O #","6 # ##3 #","6 9 #","","" 25275DATA"","","6N5","L6M5","9H8I9J6.10L 5H6G" 25280DATA"4N6MN8M9N6M7N4M5F4E65N7MUF4E5M 7VFN9MUG6F4G3F" 25285DATA"5M9VG6F5G4F5N.11MUG4F65M.11VG4 F5L.10J6.10L5G" 25290DATA"JW5H4G5J9H.11IW4H3G","?" 25295DATA"107","3","8","9 5#","3 7#3 ##" ," ## # X## OO #" 25300DATA" #5 O5 #"," # O 3#3 #"," 3# 5#O3#" 25305DATA" # O 3# **#"," # O O O 3*#" ," #4 3#3*#" 25310DATA" # OO # #3*#"," # 3# 5#"," 4#","","" 25315DATA"","","F5E4K3","L7K8","9F8" 25320DATA"4L9M.10L4K2L95N3M2L8K9L8M" 25325DATA"9L5N4M3L84E5F9D8E9UVL7M8L4F8D7 E8UVL" 25330DATA"4F9D.11E9G.10F7G8KF7D8JD.11E8D 7E8UM5V" 25335DATA"7L5M3L64H5G4F7EWK7LK8F.10GWJUL 6","?" 25340DATA"108","11","3","9 7#","9 # 3*#" 25345DATA"7 5# 3*#","7 #6 * *#","7 # # # 3*#" 25350DATA"7 ## ## 3*#","6 3# 8#","6 # 3 O ##" 25355DATA" 5# O O 5#"," ##3 #O O3 #3 # " 25360DATA" #X O O4 O O #"," 6# OO O 5# ","6 #6 #","6 8#" 25365DATA".10M9K.10",".11O.10Q.11K.12"," J5I4" 25370DATA"M3N",".11F.10D.11I.12" 25375DATA"D.10F.11KI9H.11K9UPJ9K.11UO5P3 O2P4J.11K.13UO5P4O" 25380DATA"3P4J.10H9I.10UO3P4O5P4J9H8I9UO 3P5O6P4J.13I9" 25385DATA"H8I9UO5P34J$UO5P4J9L8K9UNJ.13M .12K.13UV" 25390DATA"4M5ON4J.12L$UV5M6OM4J.12M!" 25395DATA"UV5M6N4J9M.10L!UV4M5N4JWU" 25400DATA"M5N3M2N4J.13H.12IWUM5N4V","?" 25405DATA"109","5","9"," 8#8#"," #7 7 #" ," # # 6#5 #" 25410DATA" # # O O O O# #"," # #3 OXO3 ## ##" 25415DATA" # # #O O O3#3*#"," # #3 O O ##3*#" 25420DATA" # 3#3O O ##3*#"," #5 # ## ##3 *#" 25425DATA" 5#3 ## ##3*#","5 5#5 3#","9 # 5 #","9 7#","" 25430DATA".11L7","I.10G5F4","L5M4L3O2P" 25435DATA"8K7L.107I4M3P.10O.12K.11N.12O" ,"3L5" 25440DATA"J6I8J7L.11O6P3U6O7P8Q7O$I5J4U6 O7P" 25445DATA"3L4J5H4U7O8P2E4U8O9P2C9G.10I5H 4U9O.10P" 25450DATA"O$JV7P3L4J7IV8P3L4F5I4J7IV9PWK 4J7IV.10" 25455DATA"$J5K7JV$I5E7J8K5J4U9WI7G5F4U8W I7H5G4U7" 25460DATA"W!U6WI8H!U5","?" 25465DATA"110","5","7","3 9#"," ##3 ## 6#" 25470DATA"3#5 # #4 3#","# O #O # # 3 * #" 25475DATA"# # O#XO## # #*#* #","# # #O #4 * * #" 25480DATA"# O4 O # # #*#* #","#3 ## ##O O * * #" 25485DATA"# O #3 # #O#*#* #","## O O3 O O3* #" 25490DATA" #O 6#4 ## #"," # #4 9##"," 4#","" 25495DATA"5R4",".10H",".10PM8R.11Q" 25500DATA".10L.11M9.10K8","9C.10PC8" 25505DATA"7E4D3E7G6H5G7E2G5H6I7H.10K.11M .10PO8R.11Q9R8PQ" 25510DATA"6O8Q.10M.11K48PO6R9Q7R6PQ4O6Q. 10M9.11K8PM.10Q" 25515DATA"$P3O4M8KU$P3M6K4J2K9JU$Q!9FU5! 5G3" 25520DATA"H9G.10PM8R.11Q6K!3G2E7GE2G3H9G U7!7G9F" 25525DATA".10L.11M78K6NK!5G9FU8!3G2E3F2G 9FU.10" 25530DATA"G7D8BWD9CVPK.10D.12C.10D8B9C8D 9C.10O" 25535DATA"C8B7G6H9GVNM.10C6B4D5E4D3F2G9F .10N","?" 25540DATA"111","4","13","9 3 6#","8 5#4 #","3 6#3 # O #" 25545DATA"3 #4 # O XO3 #","3 # O # # O ##" 25550DATA"3 3#O O ## 3#","5 #3 ## OO#", "5 3#O##3 #" 25555DATA"5 #3*O O ##","5 #*o* #4 #","5 #**# #O O #" 25560DATA"5 #**## 4#","5 #5*##","5 7#" 25565DATA"H.12G.13","G6H5I","N9M.11O.10M .11L.10M9" 25570DATA"JN4K6I9J.10","JM7N4L3J4K6I9J.1 0" 25575DATA"O5P4M5N8L7M8N48M.10L9M7N4L3J4K 6I9H.11G.13K.12L" 25580DATA".11M9J.10I9M.11L.10O.11M7N4L3J 4K6I9G.13K.12L.11" 25585DATA"M8N9M.11L.12K.13G.11$JG9$IH9J. 10" 25590DATA"I9$H9M.11L.10M9WI9H.129M.11O.1 0M.11L" 25595DATA".10M9WH9G.129M7L8M9WH9G.119M8U WI9H.119N4Q2UW" 25600DATA"H9G.10I6K4M5N4Q2UVI9H.109N4P5O 4UVH9N2P3Q4OP2UVI" 25605DATA"9N4P3O2UHI5GI7!95H4G54E5G4H5I7 !86K4N9I" 25610DATA"5H4F5G4H5!8","?" 25615DATA"112","11","5","5 9##","5 #** #3 #" 25620DATA"5 #**6 #","5 #** # 4#","4 7# 2 #2 ##" 25625DATA"4 #9 3 #","4 # # ## # #"," 2 4# ## 4# ##" 25630DATA" # O 5# # #"," # # O O # O #" 25635DATA" # XO O3 #3 ##"," 4# ## 7#" ,"5 #4 #","5 6#" 25640DATA".10H",".13J.11","P.11N.10O.11P 7Q6N7M4L2N3" 25645DATA"G7F6O5P9Q.10","L6G" 25650DATA"D9F.10G!I.10J.13G.11HG$F9D.11F $9G6" 25655DATA"UHW.10F.11D9F.10VUI4H3I2H3W$.1 1G.13J$.11" 25660DATA"VUI2H3I4H3W!HJ.13VUIW.11L$.11V UJ4I3J2" 25665DATA"I3W9D.11F.10J.13VUJ2I3J4I","?" 25670DATA"113","3","14" 25675DATA"5 9###","5 # * #3 #","5 # #* 4 X #" 25680DATA" 5# ##**# 4#","## # **3#5 3#" 25685DATA"# O #3*3 O # O #","#4 ** ## ## ## #" 25690DATA"4#O##O# O #3 # #"," ## #4 #O OO # #" 25695DATA" # O # # # O## #"," #9 6 # " 25700DATA" # 8#3# #"," 4#9 4#","" 25705DATA"3M5O.11","6H7E.10F" 25710DATA"O6P5NO.11F.10E7H6M46H5G2I3M2O3 ",".10D.12E8" 25715DATA"79O5M6","M!E7H6M5O8N98P9O5L!.1 1" 25720DATA"UK4J$R6PR.11UK2J3M6L9N8O6R.11U K2I3J2K" 25725DATA"$N.10O5L9N.10UJK2J3M6H7G67D5C6 B7FE.10F.11" 25730DATA"I9H6F7GEV.11I9H7G6H7D6B7F6H9G. 109I.11FV.10G9H6" 25735DATA"F7D6B7E.10G9J8K6GM5O9LWH9I.11L WI","?" 25740DATA"114","8","4","4 7#","4 # # 4 #" 25745DATA"5# O#O # ##","#** # # #3 #" 25750DATA"#** # O#O # O4#","#* #5 #O # #" 25755DATA"#**3 O# # O4 #","#**X# #O #O # #" 25760DATA"#** # O#5 O# #","#** # #OO#O # ##" 25765DATA"#** # O# # O#O #","#** # # #3 #3 #" 25770DATA"##* 4# 5#3 #"," 4# 4#3 5#" 25775DATA"Q.11R.12Q.13P8Q7M6L8M9J.10" 25780DATA"F6I5J8I9L8N9J.10","I7J6G5F6G7" ,"D7G6J" 25785DATA"M.10N8M7P6Q.11","7F6J9M57Q.12P 9Q7WR.12Q.13P.11" 25790DATA"Q7M9I.11J.10I9WR.12Q7M9L.109J7 I9J4I6F8G7F6I5J8" 25795DATA"I9W7M9J6F4G5F6I5J8I9LUD6C.12V. 11UC6B.11V2I5J6G" 25800DATA"5F6G7C6B.10V.13UC6B9V9L.10N9J. 10UC6B8V9M7L8M9J" 25805DATA".10UC8B5V9M.12L.10M9J.10UC8B6V 9M5L8M9J.10UC8B7" 25810DATA"G6J9L3M8N9J.10UCG6J9N7Q9P8Q7M6 L8M9J.10UD6C7D8C" 25815DATA"V9N7Q.11P8Q7M6L8M9J.10UD6C.11V 9N7Q.11R.13P8Q7" 25820DATA"M6L8M9J.10UD6C.10V9N7$UD6C9V9M .12N8M7P6$UD6C8" 25825DATA"V9M4N6M7P6$UD8C5D7F2G5!UD8C6D7 F.10G7!UD6C7" 25830DATA"F.12G7!UD","?" 25835DATA"115","10","16" 25840DATA"3 7#","3 # # 5#"," ## # # 3*3#" 25845DATA" # O# #3* #"," # O #OO 3* #" 25850DATA" # O#3 3* *#"," #3 # O8#"," ##O7 O O #" 25855DATA" ## # OO #3 #","3 6# ##OOX #","7 #7 ##" 25860DATA"7 9#","","" 25865DATA"5I8J.11","I8F","8J9I6H5","9E8F 6D7E6F7E8H9I6H5" 25870DATA"F7E8H9I7H6","9N8I7H6NH45L6M4K6 I9H8K9J.11K9J8" 25875DATA"H9I8J9LUK6L4K6I9K.11J9KUJ6K46I 8N9PUL6M$N9OU" 25880DATA"K6L$O9PUJ6K5!7D4E5F4D7E67F6VLH 7!VKI2H7!VJ" 25885DATA"!6D4WL!4E2WK!4D5E4WJ","?" 25890DATA"116","12","11" 25895DATA" 9#8#"," #3*3 #4 #3 ##","##5* O## # #O #" 25900DATA"#6*# O #4 #","#6*# # # # #","9# O O O #" 25905DATA" #5 #O##O ##O##"," ##3 O4 # O 4 #" 25910DATA" # ## 3# # ##O #"," # O OO5 O O #" 25915DATA" # O4 O##O 6#"," 7# X ##","7 6#","" 25920DATA"6KM","3J8","4M2J3",".10L.11M7N 6KM" 25925DATA".10K8J56L4J5I4J3","L.11M.10N8Q 68M6LU2M4L6M8N" 25930DATA".10K8F7D9C.11G.10.11C9D7H8K.10 N8M6LUI5J75I3J" 25935DATA"2M4L6M8N.10K8HJ48K.10N8M6L4J5I UD2C4D5C3J2M4J" 25940DATA"5I4J3D2C43J4L6KM8NWD2C3D4C3J6M 8Q6R4O$8NWD2C3" 25945DATA"J6O4R$8NWG4F3G2D3J4M5L6J8K.10N 8Q$8NWDJ4M6O4" 25950DATA"Q5R$8NWE2D4!K.10M78Q$WE2D3J4M8 N78Q$WEJ6O2Q5" 25955DATA"R$WF4E3F2E3J6Q8R.10N6J8KVWF2E4 3J6N.10Q6R4Q5" 25960DATA"R$WF2E!H7D9C.11GVWFJ8H7D9C.11E VWG4F3G2F!K" 25965DATA".10G.11CVWG2F4!H7F8E7D9CVWG2F! E7D9CVWGJ8G" 25970DATA"98DVWH2G4!K.10L.12I.11HVWH2G!G .10F.11H.10L.12I" 25975DATA".11HVWH","?" 25980DATA"117","5","12" 25985DATA"5#","#3 ##","# O 9#","## # #7 6#" 25990DATA"## #3 O#O#X #3 #","# #6 O #3 O #" 25995DATA"# 3# 9# ##" 26000DATA"# ## **o5* # ##","## ## o*o** o*o # ##" 26005DATA"# O9## ##O #","# O3 O O4 O #" 26010DATA"# #3 #3 #3 # #","9#9##","" 26015DATA"G6L5N6P5R6Q.10R.12Q.11","G6L5N 6P5" 26020DATA"Q.10R.11O.12N9O8",".11Q6N5L6G5 E3D2" 26025DATA".11M.12N9O8","6G8H9J8O9N8J9H8F 9I$O.12M.11ON8H9" 26030DATA"G6L4G8F9H8N.11K.12I.11M.12O.11 MN8G5E3D2B3C.10B" 26035DATA".12C8.11E.12G.11DI.12K.11GM.12 O.11KN8$MN8!R6U" 26040DATA"H9F8!UJNVB3C6B8C.10B.12C.11E.1 2G.11I.12KWKN.11" 26045DATA"K.12IWLN.11G.12EWMNVB3C6B8C.10 BWN.11C8B6C.10B" 26050DATA".11M.12N9VC.10B.11M.12N.10.11C 3E6F5G8F9G4J54" 26055DATA"L6HJ4G84H54J6H5G7","?" 26060DATA"118","6","6" 26065DATA"7 9#2#","7 #3 #5 #","5# #5 O O #" 26070DATA"#3 5# O## # ##","# O ##3 # ## O #" 26075DATA"# O XOO # ##3O #","## 3#3 # # #4 #" 26080DATA"## #3 3# 5#O#","## #5 O #4*#" 26085DATA"# 3# ## O #4*##","# O3 O #3 # **O* #" 26090DATA"# ## O # ##4* #","5#3 6#3*## ","4 5#4 5#" 26095DATA".10P.12R.11","6B4C5B6G5I6H5G8F 9","6C.10B.12C" 26100DATA"5N3K9G","J.10K4J3O2P6O7P6Q" 26105DATA"D4BU.11F.13H.11GH.12G9J.11L9G8 E9F8G.119J.11K" 26110DATA".10L9GK4J2K.10L.11K3M2O3K2I3J2 K93O2Q3KP5Q.12" 26115DATA".10P.12Q7N47Q5P62M3N7P6Q.11R.1 2P.11O.12Q7N6P5" 26120DATA"Q.11R.12OQ5P2N3O2P6O7P6Q$P.12O .10P9OQ6N5ON3P6" 26125DATA"O7P6Q$OQ5N3K2I3O2P6O7P6Q$P.12O .10Q5N3K9L.11K4" 26130DATA"J3O2P6O7P6Q$Q.12P.10QV8E9W$P.1 2O.11P.10OQ5N3K" 26135DATA".12J.10K9G8E9W$P.12O.11QV7I5G8 F9W$PQV7I6H5G8" 26140DATA"F9W.11R.12PQV6D4B6G5I6H5G8F9W$ Q.12P.11QV6D4" 26145DATA"C5B6G5I6H5G8F9W.11R.12QV.11H.1 3G7H5G8F9W.11" 26150DATA"VU!W.10V.11DGU!W9V.13F.12G.11D GU!W8","?" 26155DATA"119","12","8" 26160DATA"9 2 4#","6 6# ##","6 # O O3 # #" 26165DATA"3 4# O O O 3#","3 # O O3 OO4 #" 26170DATA"3 # # O3 O O #","3 ## 5# 6#" ,"4 #3 #3* #" 26175DATA"4 # O 4*#","4 # O #4*#","4 ## O#4*#" 26180DATA"5 ##X6#","6 3#","" 26185DATA"5L9M.10","M3L9M.10","6MO4L8M9" 26190DATA"4L86H5F8H9L","5K4L8" 26195DATA".11G9L8M.10L6K4L.105I6K$L9K.10 L3N4!K9J.10L4" 26200DATA"OUK.10J9L6O5QUL.10K9L4M54O6M$K L5I4K5!L4J3L4H" 26205DATA"3J6H5L9F6E5JF9H8G9F6E5I6JWM9HL 4N2M3N4M3L96O5" 26210DATA"MV8M9L6I3LH4L9H8F5KV5N4MN2M3L8 5N4M3L76H5F9J" 26215DATA"G.11H.10G9I","?" 26220DATA"120","3","14" 26225DATA"","3 9#6#","3 #4 ## #X3 #","3 # OO # O 3#O #" 26230DATA"3 ## O #O # O #","3 ##8 O3 # ","3 # 7# 4#" 26235DATA"3 # O#4 O4*##","3 #3 OO# 5*#" 26240DATA"3 # # O ## #3*#","3 # # O O #**##" 26245DATA"3 4#6 #*3#","3 9#6#","" 26250DATA".10.11I8L9",".11L.12M9L8M9N8H9 E7F6N8M9O8P" 26255DATA"N6F7E9H8I.10","6G5F8E9H8I.10", "H.11L.12M" 26260DATA"Q6N9K8H9E7F96H3F7E9H8K9N6HQ3P5 Q6N5O6P5N9K8H9E7" 26265DATA"F3H6N5P6O5N8M9PN5Q3P5Q6O5N8M9O 8P9O.10P8N6H3F6N" 26270DATA"5P6O5N8M9N8O.119K8M9N8H9E7F6N8 M9N8O.109M.12K!.10" 26275DATA"9M.12H!9M.11H.10.11J.10I.11M8I .10J.12W$N8O9" 26280DATA"UJ.12W$OM.11H.10I8UW$N8H9E.11F .10E9H.10I9H8O" 26285DATA"H9E7F8E9H.10I9H8N6H4G3F8E9H8I. 10W$M8N6H5G4F" 26290DATA"8E9H.10I9H8MH9F6L3K5LVW9K8H9F6 K4J5KVW.10","?" 26295DATA"121","11","14" 26300DATA"9 4#","4 7# 4#","4 #4 O 4*# " 26305DATA" 3#3 # # **#*#"," # OO # # 4*#" 26310DATA" #4 # O# **#*#"," ##O3#O 3# #" 26315DATA"3 # # O O4 #" 26320DATA"3 #4 O O #O #","3 # O## O ## ##" 26325DATA"3 ## 4# # X##","4 #3 # O ##", "4 3#5 ##","6 7#" 26330DATA"J47I8H9F8E6G3","O.10N.11M.12", "K9J8O9P" 26335DATA"L2M4","L2M5",".10O9P3H4G6E8F.1 09H8I7K9M8O9P4" 26340DATA"8M9K8O9P5L3H4F3N5P8K7$M5P8K9$W L6M5P9!L.13J" 26345DATA".12U69!L.13U78H9I.10$VL5NL3J8! K9L8K9$VL5M" 26350DATA"L3J5I7J9H8I9$L2M3L4M3G6F56D5FE 8F9J3F43J7I8" 26355DATA"H9F8E6G4F3W3G6E5F6G4F3V3J9F.10 E6D5F6G4F3L2" 26360DATA"M3J.10K.13H.12F.10E9I.10$L","? " 26365DATA"122","3","14","","9 2 4#","5 7 # X#" 26370DATA"5 #5 O #","5 #3 O## O#","5 ## #3*# #" 26375DATA"6 #OO3* ##","6 # #* *# #","6 #3 # #O #" 26380DATA"6 #O O4 #","6 # 7#","6 4#"," ","" 26385DATA"O.10J9H.11I.10H9I.10J","H67J4G 5I4","9H7J","","" 26390DATA"4I5H7K8L7N5M4J6K8JU6K7J8K7L8J. 10I.11H9J7N8$7" 26395DATA"N9O.10J9H.11I.10H9.10N7H9I.10J 89H7KJ.10N5M4" 26400DATA"J6K8JU8K7J4M3N84I5G4MJ7!J7H9I. 11!J5H9J8U.10O" 26405DATA"8N9$8.10N5M3N9$9.10L9","?" 26410DATA"123","3","18","6 8#","3 4#6 6# " 26415DATA"3 #4 ## O O3 X#","3 # ## ##O#O O O##" 26420DATA" 3# 6*# OO ##"," #3 6*# #3 # " 26425DATA" # # 6*#O O #"," # # 6* OO# O #" 26430DATA" # O3# 3#O O ##"," 3#3 O O O O #" 26435DATA"3 #3 O O O O #","3 6#3 6#"," 8 5#","" 26440DATA".10F.11E79C6","K.12J.11K.10J.1 1I","G7I5H6I7" 26445DATA"M7N8JM.10I","7N6M7N8","Q6R8Q.1 0O9N8GI.10G.11E" 26450DATA"79C6G7H5I$F7G6I8N9O.11L$E7F6E3 H2K62M3L2K5J8N9O" 26455DATA".10Q8R6Q3L2K42H3E.10L.12K.11L$ I.10!8H7I.10G.11" 26460DATA"I.10!6H5I8N.10O.11!9.11N8HN.10 J.11I9.10N8IM9N$" 26465DATA"UGI.10Q.11K.12J.11K$UHI.10Q9N8 M9N$GE.10I5H6I8M" 26470DATA"9Q8R6Q3N9O$GE.10N6M9N$FE3H42M9 N$E3H2M3P4N3V68N" 26475DATA"4Q6P5Q4N3V78N4P5N4V8N9QWJN9P8Q WKN5Q6RWL","?" 26480DATA"124","9","10","","8 7#","4 5# # 4#" 26485DATA"4 #3 #3 O4 #"," 4# #OO ## ## #" 26490DATA"##6 # # ## 3#","# 3# O#O O O #" 26495DATA"#3*4 # ## #3 #","#3*#4 X # 3# ##" 26500DATA"#3*# 3# O O #","8# ##3 #3 #","9 9#","","" 26505DATA"5J9G.10F9G8",".10N.11","M.10K9 G.10F9G8" 26510DATA"7G6F4H","4J87","79K.10L.11N.10 P.11Q!L.10PM8N7P" 26515DATA"4N3M4J84P7N8UD9B7C9B.10C6HV54F 6G9K.10M8N7KPWUD" 26520DATA"9B7C96F4H5IH4F6G9J7PWUC7B98G7H 8V6$D9B7C8B9C6H8" 26525DATA"$C7B8H9K.10P.11R!M8N7KPWUDG6C8 H5J4M64P7KMWUCH9" 26530DATA"J7P8Q98R7KMWUDH9K.10P.11R!M8N7 KMWUE","?" 26535DATA"125","10","8" 26540DATA" 5# 4#"," #3*# # 4#"," #3* 3# O #" 26545DATA" #4*## O O3#"," ##4*##3 O #" 26550DATA" 3#3* ## O O #"," # ##4 # O #" 26555DATA" # ## # 3# 4#"," # O # #O O4 #" 26560DATA" # O X O4 O #"," #3 # O OO O 3#" 26565DATA" # 6# 3#"," # ##4 4#"," 3 #" 26570DATA".10I.11H7I6","5H.10","H7G6H5", "G6F5G4" 26575DATA"L4J2K3J4M3N9O","J9L.10N7L5K4L7 P5MP7N6MN.10L9M" 26580DATA".10N7.10O9J.10M.12L.11M9J.11K. 10H.11IH7J9K$UV" 26585DATA"F5E3F2E!K9M$UVF5E3!K9O$UVF5E4F 3E!K9Q$UVE!M.12" 26590DATA"L.11M$UG6F35H.11K.10M.12L.11M$ UVF5E4!O.11M.12" 26595DATA"L.11M$UG6F4!N7M5N9O$UVF!N7M3N9 O$UFH.10N7P6O7M" 26600DATA"5N9O$UG6F!N7P5O6M4N9O$H7G!N4K5 M4N9O$UGH.10N7L" 26605DATA"6M4K5M4N9O$H7G6H.10N7W.10I.11H 6.10N7M3W$GH.10" 26610DATA"F.11D.10H.11J$H.10D8E9D.10H.11 J.10I.11H7","?" 26615DATA"126","12","11" 26620DATA"9 3 6#","9 3 #4 #"," 5#3 3# # # #" 26625DATA" #** 5# O # #"," #**5 O3 O# #" 26630DATA" #** ## ##3 # #"," #** ## O #O O# #" 26635DATA" #** #5 O # #"," #** # O 3 #O #" 26640DATA" #** # O O O 3#"," 3# ## # O4 #" 26645DATA"4 #4 #X## O #","4 9# ##","9 3 4#" 26650DATA"J68M5","O.12N.11O.10L","O.10N. 12P.11" 26655DATA".11K9.10O8K9","E4D","9J8H.10I. 12F5M6N48O98M6N5" 26660DATA"W95N8O9Q2N5F.12I.10H8J9K.10J7K 8M$W85J.10K9J5M8" 26665DATA"K9$W75J8H9I8K.10$W6F.12I9H8I9$ W5N2Q9O8K9$EJ.10M" 26670DATA".11O.10J5F.12I9H8I9$F6E5F4E5J. 10K.11L.10N.13O" 26675DATA".12P.11!.11K9J5M8K9$F4E95J8U!V $F4E85J.10L.11M" 26680DATA".10!V$F4E75N7M8K.10O8K9$F4E65N 6U!V$G6E4F65N4U" 26685DATA"!V$F6E5L4M8O9Q2N4O5FJ.10I.12F7 .12I8J5G6F","?" 26690DATA"127","7","7","" 26695DATA"9 4#"," 9# ##","## O6 O 5#", "#3 ## ##3 ##3*#" 26700DATA"# #OO O OO#O##3*#","# #3 X3 #3 3*#" 26705DATA"# O# 3#OO3 3*#","# O OO O # #4*#" 26710DATA"3#O7 7#"," # 7#"," 4#",""," " 26715DATA"9J.10K9J8","O9P8L5K3L75J8O",". 10G9F7J8P9Q" 26720DATA"F9G.10","8K.10I","VI9JU68J7VK9 U7W$P9Q8J.10G$" 26725DATA"PJ7D67J5L75J8O7P8!9P68J7H6I7J8 L5JW$O9P78J7F6I" 26730DATA"G4KJW$!J7D6IG4JW$N7O8N9O8J9D8B $N9O68J6D8C$N9O" 26735DATA"78J9E.11D.10E9D8B$M7O9N8O7N8J. 10F9D.11E.10D$N7O" 26740DATA"8J9B5C4D8C$NJ7D4K3L7NL5J8M7N8" ,"?" 26745DATA"128","7","3" 26750DATA"4 4#","5# #","# O O # 7#","# 3 O # #o*o*o#" 26755DATA"## O O 3#*o*o*#"," #O O # o* o*o#" 26760DATA" #XO O4 *o*o##"," #O O # o*o *o#" 26765DATA"## O O 3#*o*o*#","#3 O # #o*o *o#" 26770DATA"# O O # 7#","5# #","4 4#","" 26775DATA".11F.12G8F7I","G6F7K8L","L8M", "F6G8E7" 26780DATA"E6D7K6L","8E7I6J7K687L59NL5N9U 9N5L6M5N8M6L5M7E9" 26785DATA"F.10G89E7M8N7G9F8E7L6M7U7G.12F 8E7U67G4VL6M87G" 26790DATA"2VU7E8C7MG5W87G3W7K8L7G4C5F4!6 7D4C3F2!7I8K7C4" 26795DATA"B3F2G6F7LG.11E8D7KG.10D8C7JD.1 0C$8J7I6J7C.10" 26800DATA"B$6J7I8J","?" 30000REM Met dank aan Olaf Krause voor h et 30010REM SLIDER programma in BASICODE.3 30020REM Geschreven en getest op CPC 612 8, Spectrum, 30030REM BBC-B en MSX-1, Juli/Aug 1991 30040REM De gegeven oplossingen zijn nie t noodzakelijk 30050REM de kortst mogelijke, wegens geb ruik van 30060REM 'standaard routes' voor de schu iver terwille 30070REM van minder lange DATA-sets en n atuurlijk 30080REM mijn eigen tekortkomingen als b iervatduwer... 32000REM Louis Payne 32010REM High View, Shawcross Road, 32020REM West Runton, Cromer, 32030REM Norfolk. NR27 9NA 32040REM Groot Brittannie 32050REM (0)26 375 606 32060REM 32070REM TROS-RADIO dd 920129