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