10 COLOR6,0,0:SCREEN3:COLOR0:CLS:SCREEN0,,,,,1:KEYOFF:WINDOW:CLS:MAXFILES=4:CLEAR200:IFPEEK(&HFEBA)=201THENMAXFILES=2
11 DEFINTA-Z:DIMCC(3):M=VAL("&H"+HEX$(PEEK(&HFBB6)+256*PEEK(&HFBB7))):IFPEEK(&HFEFD)=201THENCLEAR200,M-455:POKE&HFEFD,0:GOTO11
12 O$(1)="01e5c521**650e990605db98e60220fa3ee0d399db981f30fbeda220f7c1e1c9db98e60428fac50e983e49d399ed69ed61c1c9d5c50e985fdb98e60220fa3e30d399db98e60220faed59c1d1c9fd0d350d770cc40b1b0b7b0ae5095609d0085208da0769070000000000000000
13 O$(2)="6ddb98e62020fadb98e62028fa3e13d39d0e9cafcbbfd39e060821**65f5ed782f772310f9f1cbffd39e060821**65edb33c20e03e12d39dc9eb46235e23560405c81afe613807fe7f3003d620121318ef
14 O$(3)="bdf637f5060021fd1bcd**01cd**202bf1383bd9cde100cde100cde100cde400d8d923a847d97ad9ee80cd**33cb6cd928ebd92b1139b9e3e3e3e31b7ab320f7cd**2078cd**332a**65cd**20c9db98e60428fa3e4cd3993e02d3983e04d398d3983eb0d399d9cdea00d923db981f30fbdb99cb6c2803781806
15 O$(4)="36ee80f5a847f1d9f5cded00f1d9cb6c28e02a**65cd**20afc3e30b23237ed6153004c60c30fcfe603804d60c18f80601fe0c380504d60c18f7876f260011**4d195e235621200005280dcb3acb1bcb3ccb1d10f630011319afcd93005a556c3cfe0420f5c9
16 O$(5)="9b3e80d3a82110800e9c3e13d39dafd39e0608edb33c20f73ea0d3a83e12d39dc9
17 BLOAD"ZS.ZG",Z:LOCATE4,10,0:PRINT"A U G E N B L I C K":FORO=1TO5:I=VAL("&H"+MID$(O$(O),1,2)):IFO>=4THENI=I+256
18 FORT=3TOLEN(O$(O))STEP2:D$=MID$(O$(O),T,2):D=VAL("&H"+D$):IFD$="**"THENF=-1ELSEIFNOTFTHENPOKEM+I,D:I=I+1ELSEPOKEM+I,255AND(M+D):POKEM+I+1,255ANDINT((M+D)/256):I=I+2:F=0
19 NEXTT,O:CLS:GOTO1000
20 ONERRORGOTO951:IFA<200THENA=200
21 CLEARA:COLOR6,0,0:DEFSNGA-Z:DEFINTO:O=VAL("&H"+HEX$(PEEK(&HFBB6)+256*PEEK(&HFBB7))):DEFUSR=O+&H6D:DEFUSR1=O+&HA5:DEFUSR2=O+&HBD:DEFUSR3=O+&HBE:DEFUSR4=O+&H151:DEFUSR5=O+&H19B:SV=RND(-TIME):SV=7:ONSTOPGOSUB950:STOPON:OPEN"GRP:"AS1:ONERRORGOTO951
22 OX=230:OY=200:OW=45:OS=5
23 OZ=40:OQ=2048
24 O=USR(OQ):CC(0)=7:CC(1)=0
25 LOCATE,0:HO=OZ-1:VE=24:HG=OX:VG=OY:GOTO1010
100 SCREEN0:CC(2)=CC(0):CC(3)=CC(1):GOSUB152:WINDOW0,24,0,39:CLS:RETURN
110 LOCATEVEAND255ANDVE>-1,HOAND255ANDHO>-1:GOSUB152:RETURN
120 HO=POS(0):VE=CSRLIN:RETURN
150 GOSUB152:PRINT" ";:O$="  "+SR$+"  ":FORO=1TOLEN(O$):PRINTCHR$(128+ASC(MID$(O$,O)));:NEXT:PRINT" ";
151 COLORASC(MID$("094<:;>?",CC(2)+1,1))-48,ASC(MID$("01452367",CC(3)+1,1))-48:RETURN
152 COLORASC(MID$("094<:;>?",CC(0)+1,1))-48,ASC(MID$("01452367",CC(1)+1,1))-48:RETURN
200 IN=0:IN$=INKEY$:IFIN$=""THENRETURNELSEIN=ASC(IN$)
201 IFIN>27ANDIN<32THENIN=INXOR1
202 IFIN=8ORIN=127THENIN=127:IFPOS(0)THENIN$=CHR$(127)ELSEIN$=""
203 IFIN<>13ANDIN<28ORIN>127THENIN=-IN:IN$=CHR$(240)
204 IFIN>96ANDIN<127THENIN=IN-32:RETURNELSERETURN
210 TIME=0:LOCATE,,1
211 GOSUB200:IFIN=0THENIFTIME>18GOTO210ELSE211ELSELOCATE,,0
212 RETURN
220 IFHO<0ORVE<0ORHO>=OZORVE>24THENIN=0:RETURN
221 IN=VDEEK(VE*OZ+HO)AND127:IFIN<32THENIN=32
222 CN=0:IFIN>96ANDIN<127THENIN=IN-32:CN=32:RETURNELSERETURN
250 BEEP:RETURN
260 RV=RND(1):RETURN
270 FR=FRE(0)+FRE("")-50:RETURN
280 POKE&HFC09,0:POKE&HFA8D,FR:RETURN
950 CLEAR200:MAXFILES=1:GOSUB952:END
951 CLEAR200:MAXFILES=1:GOSUB952:O=INT(ERL/256):POKE&HF2E2,ERL-256*O:POKE&HF2E3,O:ERRORERR
952 COLOR6,0,0::DEFUSR=&H90:O=USR(0):O=USR5(0):KEYON:SCREEN0:WINDOW0,23,0,39:POKE&HFC09,0:POKE&HFA8D,0:CLS:RETURN
1000 A=500:GOTO 20:REM kubus
1010 DIM A(9,12):A$="":GOTO 3000
1020 IF KE$="H" THEN GOTO 1080
1030 IF KE$="O" THEN GOTO 1340
1040 IF KE$="L" THEN GOTO 1600
1050 IF KE$="U" THEN GOTO 1860
1060 IF KE$="R" THEN GOTO 2120
1070 IF KE$="V" THEN GOTO 2380
1080 L=A(4,10)
1090 A(4,10)=A(6,10)
1100 A(6,10)=A(6,12)
1110 A(6,12)=A(4,12)
1120 A(4,12)=L
1130 L=A(4,11)
1140 A(4,11)=A(5,10)
1150 A(5,10)=A(6,11)
1160 A(6,11)=A(5,12)
1170 A(5,12)=L
1180 L=A(1,4)
1190 A(1,4)=A(4,9)
1200 A(4,9)=A(9,6)
1210 A(9,6)=A(6,1)
1220 A(6,1)=L
1230 L=A(1,6)
1240 A(1,6)=A(6,9)
1250 A(6,9)=A(9,4)
1260 A(9,4)=A(4,1)
1270 A(4,1)=L
1280 L=A(1,5)
1290 A(1,5)=A(5,9)
1300 A(5,9)=A(9,5)
1310 A(9,5)=A(5,1)
1320 A(5,1)=L
1330 RETURN
1340 L=A(1,4)
1350 A(1,4)=A(3,4)
1360 A(3,4)=A(3,6)
1370 A(3,6)=A(1,6)
1380 A(1,6)=L
1390 L=A(1,5)
1400 A(1,5)=A(2,4)
1410 A(2,4)=A(3,5)
1420 A(3,5)=A(2,6)
1430 A(2,6)=L
1440 L=A(4,1)
1450 A(4,1)=A(4,4)
1460 A(4,4)=A(4,7)
1470 A(4,7)=A(4,10)
1480 A(4,10)=L
1490 L=A(4,2)
1500 A(4,2)=A(4,5)
1510 A(4,5)=A(4,8)
1520 A(4,8)=A(4,11)
1530 A(4,11)=L
1540 L=A(4,3)
1550 A(4,3)=A(4,6)
1560 A(4,6)=A(4,9)
1570 A(4,9)=A(4,12)
1580 A(4,12)=L
1590 RETURN
1600 L=A(4,1)
1610 A(4,1)=A(6,1)
1620 A(6,1)=A(6,3)
1630 A(6,3)=A(4,3)
1640 A(4,3)=L
1650 L=A(4,2)
1660 A(4,2)=A(5,1)
1670 A(5,1)=A(6,2)
1680 A(6,2)=A(5,3)
1690 A(5,3)=L
1700 L=A(1,4)
1710 A(1,4)=A(6,12)
1720 A(6,12)=A(7,4)
1730 A(7,4)=A(4,4)
1740 A(4,4)=L
1750 L=A(2,4)
1760 A(2,4)=A(5,12)
1770 A(5,12)=A(8,4)
1780 A(8,4)=A(5,4)
1790 A(5,4)=L
1800 L=A(3,4)
1810 A(3,4)=A(4,12)
1820 A(4,12)=A(9,4)
1830 A(9,4)=A(6,4)
1840 A(6,4)=L
1850 RETURN
1860 L=A(7,4)
1870 A(7,4)=A(9,4)
1880 A(9,4)=A(9,6)
1890 A(9,6)=A(7,6)
1900 A(7,6)=L
1910 L=A(7,5)
1920 A(7,5)=A(8,4)
1930 A(8,4)=A(9,5)
1940 A(9,5)=A(8,6)
1950 A(8,6)=L
1960 L=A(6,1)
1970 A(6,1)=A(6,10)
1980 A(6,10)=A(6,7)
1990 A(6,7)=A(6,4)
2000 A(6,4)=L
2010 L=A(6,2)
2020 A(6,2)=A(6,11)
2030 A(6,11)=A(6,8)
2040 A(6,8)=A(6,5)
2050 A(6,5)=L
2060 L=A(6,3)
2070 A(6,3)=A(6,12)
2080 A(6,12)=A(6,9)
2090 A(6,9)=A(6,6)
2100 A(6,6)=L
2110 RETURN
2120 L=A(4,7)
2130 A(4,7)=A(6,7)
2140 A(6,7)=A(6,9)
2150 A(6,9)=A(4,9)
2160 A(4,9)=L
2170 L=A(4,8)
2180 A(4,8)=A(5,7)
2190 A(5,7)=A(6,8)
2200 A(6,8)=A(5,9)
2210 A(5,9)=L
2220 L=A(1,6)
2230 A(1,6)=A(4,6)
2240 A(4,6)=A(7,6)
2250 A(7,6)=A(6,10)
2260 A(6,10)=L
2270 L=A(2,6)
2280 A(2,6)=A(5,6)
2290 A(5,6)=A(8,6)
2300 A(8,6)=A(5,10)
2310 A(5,10)=L
2320 L=A(3,6)
2330 A(3,6)=A(6,6)
2340 A(6,6)=A(9,6)
2350 A(9,6)=A(4,10)
2360 A(4,10)=L
2370 RETURN
2380 L=A(4,4)
2390 A(4,4)=A(6,4)
2400 A(6,4)=A(6,6)
2410 A(6,6)=A(4,6)
2420 A(4,6)=L
2430 L=A(4,5)
2440 A(4,5)=A(5,4)
2450 A(5,4)=A(6,5)
2460 A(6,5)=A(5,6)
2470 A(5,6)=L
2480 L=A(3,4)
2490 A(3,4)=A(6,3)
2500 A(6,3)=A(7,6)
2510 A(7,6)=A(4,7)
2520 A(4,7)=L
2530 L=A(3,5)
2540 A(3,5)=A(5,3)
2550 A(5,3)=A(7,5)
2560 A(7,5)=A(5,7)
2570 A(5,7)=L
2580 L=A(3,6)
2590 A(3,6)=A(4,3)
2600 A(4,3)=A(7,4)
2610 A(7,4)=A(6,7)
2620 A(6,7)=L
2630 RETURN
3000 GOSUB 100
3010 VE=0:HO=8:GOSUB 110:PRINT"WILLKOMMEN BEI 'KUBUS'!"
3020 VE=1:HO=8:GOSUB 110:PRINT"======================="
3030 PRINT:PRINT:PRINT"BITTE WAEHLEN SIE"
3040 VE=6:HO=4:GOSUB 110:PRINT"A  SELBST ETWAS PROBIEREN"
3050 VE=8:HO=4:GOSUB 110
3060 PRINT"B  ICH LOESE EINE STELLUNG AUF"
3070 VE=10:HO=4:GOSUB 110:PRINT"C  SCHOENE FIGUREN"
3080 VE=12:HO=4:GOSUB 110:PRINT"D  ERKLAERUNG"
3090 VE=14:HO=4:GOSUB 110:PRINT"E  ENDE"
3100 VE=16:HO=4:GOSUB 110:GOSUB 210:T$=IN$
3110 IF T$="A" THEN 6550
3120 IF T$="B" THEN 4000
3130 IF T$="C" THEN 6990
3140 IF T$="D" THEN 6060
3150 IF T$<>"E" THEN 3000
3160 GOSUB 100:PRINT"**********************"
3170 PRINT"*                    *"
3180 PRINT"*       KUBUS!       *"
3190 PRINT"*                    *"
3200 PRINT"*    GEMAAKT DOOR    *"
3210 PRINT"*                    *"
3220 PRINT"*    JAN  BROECKX    *"
3230 PRINT"*                    *"
3240 PRINT"* KARMELIETENSTR. 66 *"
3250 PRINT"*                    *"
3260 PRINT"*    2600 BERCHEM    *"
3270 PRINT"*                    *"
3280 PRINT"*       BELGIE       *"
3290 PRINT"*                    *"
3300 PRINT"**********************"
3310 GOSUB 210:GOTO 950
4000 GOSUB 100
4010 PRINT"    1  2  3  4  5  6  7  8  9 10 11 12"
4020 PRINT:PRINT 
4030 FOR I=1 TO 9:HO=0:VE=3+I:GOSUB 110
4040 PRINT I:NEXT I
4050 B=0:C=0:D=0:E=0:G=0:S=0:F=1:A=0
4060 VE=19:HO=0:GOSUB 110
4070 PRINT"GELB=Y / ROT=R / GRUEN=G / MAGENTA=O"
4080 VE=20:HO=0:GOSUB 110
4090 PRINT"WEISS=W / BLAU=B / FEHLER=F / MENU=M"
4100 ON F GOTO 4110,4120,4130,4140,4150,4160,4320
4110 I1=1:I2=3:J1=4:J2=6:GOTO 4170
4120 I1=4:I2=6:J1=1:J2=3:GOTO 4170
4130 I1=4:I2=6:J1=4:J2=6:GOTO 4170
4140 I1=4:I2=6:J1=7:J2=9:GOTO 4170
4150 I1=4:I2=6:J1=10:J2=12:GOTO 4170
4160 I1=7:I2=9:J1=4:J2=6
4170 AA=0:FF=0:FOR I=I1 TO I2:FOR J=J1 TO J2
4175 IF A<0 THEN GT=4000:GOTO 4312
4180 IF A$="F" THEN GT=4000:AA=1:GOTO 4312
4190 IF A$="M" THEN GT=3000:AA=1:GOTO 4312
4200 HO=J*3:VE=I+3:GOSUB 110:PRINT"??"
4210 VE=21:HO=0:GOSUB 110
4220 PRINT"WELCHE FARBE HAT DAS FELD (";I;",";J;")  ?";
4230 GOSUB 210:A$=IN$:PRINT A$
4231 IF A$="Y" THEN CC(0)=6
4232 IF A$="O" THEN CC(0)=3
4233 IF A$="B" THEN CC(0)=1
4234 IF A$="R" THEN CC(0)=2
4235 IF A$="G" THEN CC(0)=4
4240 HO=J*3:VE=I+3:GOSUB 110:PRINT CHR$(160);CHR$(160):CC(0)=7
4250 IF A$="F" THEN GT=4000:AA=1:GOTO 4312
4260 IF A$="M" THEN GT=3000:AA=1:GOTO 4312
4270 GOSUB 10000:IF A=0 THEN 4200
4280 IF A<0 THEN GT=4000:GOTO 4312
4290 A(I,J)=A
4300 VE=21:HO=35:GOSUB 110:PRINT"  "
4310 GT=4100:FF=1
4312 NEXT J:NEXT I:IF FF=1 THEN F=F+1:FF=0
4314 IF AA=1 THEN A$="":AA=0
4316 IF GT=3000 THEN GOTO 3000
4318 IF GT=4100 THEN GOTO 4100
4319 GOTO 4000
4320 REM
4330 REM juist zetten van rb
4340 PO=A(2,5):P=A(5,5):GOSUB 10130:IF A<0 THEN 4000
4350 IF A>6 THEN 4380
4360 ON A GOSUB 10420,10430,10440,10450,10460,10470
4370 GOTO 4390
4380 ON A-6 GOSUB 10480,10490,10500,10510,10520,10530
4390 GOSUB 10540
4400 PO=A(2,5):P=A(5,2):GOSUB 10130:IF A<0 THEN 4000
4410 IF A>6 THEN 4440
4420 ON A GOSUB 10670,10450,10680,1,10690,10700
4430 GOTO 4450
4440 ON A-6 GOSUB 10710,10720,10730,10740,10750,10760
4450 GOSUB 10540
4460 PO=A(2,5):P=A(5,11):GOSUB 10130:IF A<0 THEN 4000
4470 IF A>6 THEN 4500
4480 ON A GOSUB 10450,1,10770,1,10780,10790
4490 GOTO 4510
4500 ON A-6 GOSUB 10800,10810,10820,10830,10840,10850
4510 GOSUB 10540
4520 PO=A(2,5):P=A(5,8):GOSUB 10130:IF A<0 THEN 4000
4530 IF A>6 THEN 4560
4540 ON A GOSUB 1,1,10450,1,10860,10870
4550 GOTO 4570
4560 ON A-6 GOSUB 10880,10890,10900,10910,10920,10930
4570 GOSUB 10540
4580 PO=A(5,2):P=A(5,11):GOSUB 10130:IF A<0 THEN 4000
4590 IF A>6 THEN 4620
4600 ON A GOSUB 1,1,1,1,10450,10940
4610 GOTO 4630
4620 ON A-6 GOSUB 10950,10960,10970,10980,10990,11000
4630 GOSUB 10540
4640 PO=A(5,2):P=A(5,5):GOSUB 10130:IF A<0 THEN 4000
4650 IF A>6 THEN 4680
4660 ON A GOSUB 1,1,1,1,1,10450
4670 GOTO 4690
4680 ON A-6 GOSUB 11010,11020,11030,11040,11050,11060
4690 GOSUB 10540
4700 PO=A(5,5):P=A(5,8):GOSUB 10130:IF A<0 THEN 4000
4710 IF A>6 THEN 4740
4720 ON A GOSUB 1,1,1,1,1,1
4730 GOTO 4750
4740 ON A-6 GOSUB 10450,11070,11080,11090,11100,11110
4750 GOSUB 10540
4760 PO=A(5,8):P=A(5,11):GOSUB 10130:IF A<0 THEN 4000
4770 ON A GOSUB 1,1,1,1,1,1,1,10450,11120,11130,11140,11150
4780 GOSUB 10540
4790 PO=A(8,5):P=A(5,5):GOSUB 10130:IF A<0 THEN 4000
4800 ON A GOSUB 1,1,1,1,1,1,1,1,10450,11160,11170,11180
4810 GOSUB 10540
4820 PO=A(8,5):P=A(5,2):GOSUB 10130:IF A<0 THEN 4000
4830 ON A GOSUB 1,1,1,1,1,1,1,1,1,10450,11190,11200
4840 GOSUB 10540
4850 PO=A(8,5):P=A(5,8):GOSUB 10130:IF A<0 THEN 4000
4860 ON A GOSUB 1,1,1,1,1,1,1,1,1,1,10450,11210
4870 GOSUB 10540
4880 REM juist orienteren van rb
4890 IF A(3,5)<>A(2,5) THEN A$="-VLV-LO-L-OL":GOSUB 10540
4900 IF A(2,4)<>A(2,5) THEN A$="-LHL-HO-H-OH":GOSUB 10540
4910 IF A(1,5)<>A(2,5) THEN A$="-HRH-RO-R-OR":GOSUB 10540
4920 IF A(2,6)<>A(2,5) THEN A$="-VOV-OR-O-RO":GOSUB 10540
4930 IF A(5,6)<>A(5,5) THEN A$="-UVU-VR-V-RV":GOSUB 10540
4940 IF A(6,8)<>A(5,8) THEN A$="-HUH-UR-U-RU":GOSUB 10540
4950 IF A(5,9)<>A(5,8) THEN A$="-URU-RH-R-HR":GOSUB 10540
4960 IF A(6,11)<>A(5,11) THEN A$="-LUL-UH-U-HU":GOSUB 10540
4970 IF A(5,12)<>A(5,11) THEN A$="-UHU-HL-H-LH":GOSUB 10540
4980 IF A(8,4)<>A(8,5) THEN A$="-VUV-UL-U-LU":GOSUB 10540
4990 IF A(5,4)<>A(5,5) THEN A$="-ULU-LV-L-VL":GOSUB 10540
5000 IF A(6,5)<>A(5,5) THEN 5360
5010 REM juist zetten van hb
5020 PO=A(2,5):P=A(5,5):M=A(5,2):GOSUB 11220:IF A<0 THEN 4000
5030 IF A>4 THEN 5060
5040 ON A GOSUB 10450,11450,11460,11470
5050 GOTO 5070
5060 ON A-4 GOSUB 11480,11490,11500,11510
5070 GOSUB 10540
5080 PO=A(2,5):P=A(5,8):M=A(5,5):GOSUB 11220:IF A<0 THEN 4000
5090 ON A GOSUB 1,10450,11520,11530,11540,11550,11560,11570
5100 GOSUB 10540
5110 PO=A(2,5):P=A(5,2):M=A(5,11):GOSUB 11220:IF A<0 THEN 4000
5120 ON A GOSUB 1,1,10450,11580,11590,11600,11610,11620
5130 GOSUB 10540
5140 PO=A(5,11):P=A(5,8):M=A(2,5):GOSUB 11220:IF A<0 THEN 4000
5150 ON A GOSUB 1,1,1,10450,11630,11640,11650,11660
5160 GOSUB 10540
5170 PO=A(5,2):P=A(5,5):M=A(8,5):GOSUB 11220:IF A<0 THEN 4000
5180 ON A GOSUB 1,1,1,1,10450,11670,11680,11690
5190 GOSUB 10540
5200 PO=A(5,5):P=A(5,8):M=A(8,5):GOSUB 11220:IF A<0 THEN 4000
5210 ON A GOSUB 1,1,1,1,1,10450,11700,11710
5220 GOSUB 10540
5230 PO=A(5,2):P=A(8,5):M=A(5,11):GOSUB 11220:IF A<0 THEN 4000
5240 ON A GOSUB 1,1,1,1,1,1,10450,11160
5250 IF A$="O" THEN 5360
5260 REM juist orienteren van hb
5270 IF (A(3,4)<>A(2,5)) OR (A(4,4)<>A(5,5)) THEN 5300
5280 IF A(4,3)<>A(5,2) THEN 5300
5290 GOTO 5390
5300 IF (A(3,4)=A(4,4)) OR (A(3,4)=A(4,3)) THEN 5360
5310 IF A(4,4)=A(4,3) THEN 5360
5320 IF A(4,4)=A(2,5) THEN A$="O-H-O-L-HL-V-LHLOH-OV"
5330 IF A(4,4)=A(2,5) THEN GOSUB 10540:GOTO 5270
5340 IF A(4,3)=A(2,5) THEN A$="-VO-H-O-L-HLV-LHLOH-O"
5350 IF A(4,3)=A(2,5) THEN GOSUB 10540:GOTO 5270
5360 GOSUB 100:VE=21:HO=0:GOSUB 110
5370 PRINT"KEINE LOESUNG MOEGLICH!!"
5380 PRINT:PRINT"<RETURN> DRUECKEN";:INPUT T$:GOTO 3000
5390 IF A(3,6)<>A(2,5) OR A(4,7)<>A(5,8) THEN 5420
5400 IF A(4,6)<>A(5,5) THEN 5420
5410 GOTO 5490
5420 IF A(3,6)=A(4,7) OR A(3,6)=A(4,6) THEN 5360
5430 IF A(4,6)=A(4,7) THEN 5360
5440 IF A(4,7)=A(2,5) THEN A$="O-L-O-V-LV-R-VLVOL-OR"
5450 IF A(4,7)=A(2,5) THEN GOSUB 10540:GOTO 5390
5460 IF A(4,6)=A(2,5) THEN A$="-RO-L-O-V-LVR-VLVOL-O"
5470 IF A(4,6)=A(2,5) THEN GOSUB 10540:GOTO 5390
5480 GOTO 5360
5490 IF A(1,6)<>A(2,5) OR A(4,10)<>A(5,11) THEN 5520
5500 IF A(4,9)<>A(5,8) THEN 5520
5510 GOTO 5590
5520 IF A(1,6)=A(4,10) OR A(1,6)=A(4,9) THEN 5360
5530 IF A(4,10)=A(4,9) THEN 5360
5540 IF A(4,10)=A(2,5) THEN A$="O-V-O-R-VR-H-RVROV-OH"
5550 IF A(4,10)=A(2,5) THEN GOSUB 10540:GOTO 5490
5560 IF A(4,9)=A(2,5) THEN A$="-HO-V-O-R-VRH-RVROV-O"
5570 IF A(4,9)=A(2,5) THEN GOSUB 10540:GOTO 5490
5580 GOTO 5360
5590 IF A(1,4)<>A(2,5) OR A(4,1)<>A(5,2) THEN 5620
5600 IF A(4,12)<>A(5,11) THEN 5620
5610 GOTO 5690
5620 IF A(1,4)=A(4,1) OR A(1,4)=A(4,12) THEN 5360
5630 IF A(4,1)=A(4,12) THEN 5360
5640 IF A(4,12)=A(2,5) THEN A$="-HL-V-L-O-VOH-OVOLV-L"
5650 IF A(4,12)=A(2,5) THEN GOSUB 10540:GOTO 5590
5660 IF A(4,1)=A(2,5) THEN A$="L-V-L-O-VO-H-OVOLV-LH"
5670 IF A(4,1)=A(2,5) THEN GOSUB 10540:GOTO 5590
5680 GOTO 5360
5690 IF A(6,1)<>A(5,2) OR A(9,4)<>A(8,5) THEN 5720
5700 IF A(6,12)<>A(5,11) THEN 5720
5710 GOTO 5790
5720 IF A(6,1)=A(9,4) OR A(6,1)=A(6,12) THEN 5360
5730 IF A(9,4)=A(6,12) THEN 5360
5740 IF A(6,12)=A(8,5) THEN A$="U-V-U-L-VL-H-LVLUV-UH"
5750 IF A(6,12)=A(8,5) THEN GOSUB 10540:GOTO 5690
5760 IF A(6,1)=A(8,5) THEN A$="-HU-V-U-L-VLH-LVLUV-U"
5770 IF A(6,1)=A(8,5) THEN GOSUB 10540:GOTO 5690
5780 GOTO 5360
5790 IF A(9,6)<>A(8,5) OR A(6,9)<>A(5,8) THEN 5820
5800 IF A(6,10)<>A(5,11) THEN 5820
5810 GOTO 5890
5820 IF A(9,6)=A(6,9) OR A(9,6)=A(6,10) THEN 5360
5830 IF A(6,9)=A(6,10) THEN 5360
5840 IF A(6,9)=A(8,5) THEN A$="U-L-U-H-LH-R-HLHUL-UR"
5850 IF A(6,9)=A(8,5) THEN GOSUB 10540:GOTO 5790
5860 IF A(6,10)=A(8,5) THEN A$="-RU-L-U-H-LHR-HLHUL-U"
5870 IF A(6,10)=A(8,5) THEN GOSUB 10540:GOTO 5790
5880 GOTO 5360
5890 IF A(6,6)<>A(5,5) OR A(7,6)<>A(8,5) THEN 5920
5900 IF A(6,7)<>A(5,8) THEN 5920
5910 GOTO 5990
5920 IF A(6,6)=A(7,6) OR A(6,6)=A(6,7) THEN 5360
5930 IF A(7,6)=A(6,7) THEN 5360
5940 IF A(6,6)=A(8,5) THEN A$="U-H-U-R-HR-V-RHRUH-UV"
5950 IF A(6,6)=A(8,5) THEN GOSUB 10540:GOTO 5890
5960 IF A(6,7)=A(8,5) THEN A$="-VU-H-U-R-HRV-RHRUH-U"
5970 IF A(6,7)=A(8,5) THEN GOSUB 10540:GOTO 5890
5980 GOTO 5360
5990 IF A(6,3)<>A(5,2) OR A(6,4)<>A(5,5) THEN 5360
6000 IF A(7,4)<>A(8,5) THEN 5360
6010 HO=0:VE=20:GOSUB 110
6020 PRINT"                         "
6030 HO=0:VE=20:GOSUB 110:PRINT"VOILA!!":HO=0
6040 VE=22:GOSUB 110:PRINT"<RETURN> DRUECKEN";
6050 GOSUB 210:GOTO 3000
6060 RETURN
6400 GOSUB 210:GOTO 3000
6410 REM zelf wat proberen
6420 HO=0:VE=20:GOSUB 110
6430 PRINT"SIND SIE FERTIG ? (J/N)";:GOSUB 210
6440 T$=IN$:HO=0:VE=20:GOSUB 110
6450 PRINT"                       "
6460 IF T$="N" THEN 6630
6470 IF T$<>"J" THEN 6420
6480 HO=0:VE=20:GOSUB 110
6490 PRINT"SOLL ICH LOESEN ? (J/N)";:GOSUB 210
6500 T$=IN$:HO=0:VE=20:GOSUB 110
6510 PRINT"                             "
6520 IF T$="N" THEN 3000
6530 IF T$<>"J" THEN 6480
6540 GOTO 4320
6550 GOSUB 100:GOSUB 6570:GOSUB 6760
6560 GOTO 6630
6570 FOR I=1 TO 3:FOR J=4 TO 6:A(I,J)=1:NEXT J:NEXT I
6580 FOR I=4 TO 6:FOR J=1 TO 3:A(I,J)=2:NEXT J:NEXT I
6590 FOR I=4 TO 6:FOR J=4 TO 6:A(I,J)=3:NEXT J:NEXT I
6600 FOR I=4 TO 6:FOR J=7 TO 9:A(I,J)=4:NEXT J:NEXT I
6610 FOR I=4 TO 6:FOR J=10 TO 12:A(I,J)=5:NEXT J:NEXT I
6620 FOR I=7 TO 9:FOR J=4 TO 6:A(I,J)=6:NEXT J:NEXT I:RETURN
6630 HO=0:VE=20:GOSUB 110:PRINT"WELCHE EBENE ?";
6640 GOSUB 210:KE$=IN$:PRINT KE$;
6650 IF KE$="-" THEN GOSUB 210:T$=IN$:PRINT T$:KE$=KE$+T$
6660 IF KE$="H" OR KE$="O" OR KE$="L" THEN 6710
6670 IF KE$="U" OR KE$="R" OR KE$="V" THEN 6710
6680 IF KE$="-H" OR KE$="-O" OR KE$="-L" THEN 6710
6690 IF KE$="-U" OR KE$="-R" OR KE$="-V" THEN 6710
6700 GOTO 6630
6710 HO=0:VE=20:GOSUB 110:PRINT"                "
6720 IF LEFT$(KE$,1)="-" THEN KE$=RIGHT$(KE$,1)
6730 FOR H=1 TO 3:GOSUB 1020:NEXT H
6740 GOSUB 6760:GOTO 6410
6750 GOSUB 1020:GOSUB 6760:GOTO 6410
6760 REM tekenroutine
6770 VE=0:HO=0:GOSUB 110
6780 PRINT"    1  2  3  4  5  6  7  8  9 10 11 12"
6790 PRINT:PRINT 
6800 FOR I=1 TO 9:HO=0:VE=3+I:GOSUB 110:PRINT I:NEXT I
6810 FOR I=1 TO 6
6820 ON I GOTO 6830,6840,6850,6860,6870,6880
6830 B=1:C=3:D=4:E=6:GOTO 6890
6840 B=4:C=6:D=1:E=3:GOTO 6890
6850 B=4:C=6:D=4:E=6:GOTO 6890
6860 B=4:C=6:D=7:E=9:GOTO 6890
6870 B=4:C=6:D=10:E=12:GOTO 6890
6880 B=7:C=9:D=4:E=6
6890 FOR J=B TO C:FOR K=D TO E
6900 HO=K*3:VE=J+3:GOSUB 110
6910 ON A(J,K) GOTO 6920,6930,6940,6950,6960,6970
6920 CC(0)=6:GOTO 6970
6930 CC(0)=3:GOTO 6970
6940 CC(0)=1:GOTO 6970
6950 CC(0)=2:GOTO 6970
6960 CC(0)=4
6970 GOSUB 110:PRINT CHR$(160);CHR$(160):CC(0)=7
6980 GOSUB 110:NEXT K:NEXT J:NEXT I:RETURN
6990 GOSUB 100:GOSUB 6570:VE=0:HO=11
7000 GOSUB 110:PRINT"SCHOENE FIGUREN!":VE=1:HO=11
7010 GOSUB 110:PRINT"================":PRINT 
7020 PRINT"BITTE WAEHLEN SIE":PRINT 
7030 GOSUB 11720:PRINT"A  BLOEMEN":PRINT 
7040 GOSUB 11720:PRINT"B  4-STIP":PRINT 
7050 GOSUB 11720:PRINT"C  6-STIP":PRINT 
7060 GOSUB 11720:PRINT"D  GUIRLANDE":PRINT 
7070 GOSUB 11720:PRINT"E  TTTT":PRINT 
7080 GOSUB 11720:PRINT"F  TEMPELPOORTEN":PRINT 
7090 GOSUB 11720:PRINT"G  SLANG":PRINT 
7100 GOSUB 11720:PRINT"H  WORM":PRINT 
7110 GOSUB 11720:PRINT"I  (WEITER)":PRINT 
7120 GOSUB 11720:GOSUB 210:T$=IN$:GOSUB 100
7130 IF T$="A" THEN A$="LLRROOUUVVHH":GOSUB 10540:GOTO 6990
7140 IF T$="B" THEN A$="O-URRLLO-UVVHH":GOSUB 10540:GOTO 6990
7150 IF T$="C" THEN A$="L-RO-UV-HL-R":GOSUB 10540:GOTO 6990
7160 IF T$="D" THEN A$="RLVHRLVHRLVH":GOSUB 10540:GOTO 6990
7170 IF T$="E" THEN A$="U-OVVHH-U-ORRLL-URRLLOORRLL-U"
7180 IF T$="E" THEN GOSUB 10540:GOTO 6990
7190 IF T$="F" THEN A$="U-OVVHH-U-ORRLL-URRLLOORRLL-UOO"
7200 IF T$="F" THEN GOSUB 10540:GOTO 6990
7210 IF T$="G" THEN A$="H-LR-URRUL-R-HRROHHU-ORR-U"
7220 IF T$="G" THEN GOSUB 10540:GOTO 6990
7230 IF T$="H" THEN A$="ROVV-U-LRV-H-U-V-"
7240 IF T$="H" THEN A1$="RVVROOVRR-V-R-O-VOOVR"
7250 IF T$="H" THEN A$=A$+A1$
7260 IF T$="H" THEN GOSUB 10540:GOTO 6990
7270 IF T$<>"I" THEN 6990
7280 GOSUB 100:PRINT"BITTE WAEHLEN SIE":PRINT 
7290 GOSUB 11720:PRINT"A  DUBBELKUBUS":PRINT 
7300 GOSUB 11720:PRINT"B  2-RINGEN":PRINT 
7310 GOSUB 11720:PRINT"C  4-ZETTER":PRINT 
7320 GOSUB 11720:PRINT"D  4-ZETPLUSSER":PRINT 
7330 GOSUB 11720:PRINT"E  4-PLUSSER":PRINT 
7340 GOSUB 11720:PRINT"F  6-PLUSSER":PRINT 
7350 GOSUB 11720:PRINT"G  HAHAHAHAHAHA":PRINT 
7360 GOSUB 11720:PRINT"H  12-ELLER":PRINT 
7370 GOSUB 11720:PRINT"I  PUINHOOP":PRINT 
7380 GOSUB 11720:PRINT"J  (WEITER)":PRINT 
7390 GOSUB 11720:GOSUB 210:T$=IN$:GOSUB 100
7400 IF T$="A" THEN A$="H-LUULU-VUUV-U-H-VR"
7410 IF T$="A" THEN A1$="OO-R-OHOO-HOV":A$=A$+A1$
7420 IF T$="A" THEN GOSUB 10540:GOTO 6990
7430 IF T$="B" THEN A$="H-LR-URRUL-R-HRROHHU-OHHLROO-L-RHH-U"
7440 IF T$="B" THEN GOSUB 10540:GOTO 6990
7450 IF T$="C" THEN A$="RLVHRLVHRLVHOOUU"
7460 IF T$="C" THEN GOSUB 10540:GOTO 6990
7470 IF T$="D" THEN A$="-R-LOU-R-LOU-R-LOUVVHH"
7480 IF T$="D" THEN GOSUB 10540:GOTO 6990
7490 IF T$="E" THEN A$="VHRLVHRLVHRRLLVHRLVHRLVH"
7500 IF T$="E" THEN GOSUB 10540:GOTO 6990
7510 IF T$="F" THEN A$="RVVHHRRLLOOVVHHRRLLUU-R"
7520 IF T$="F" THEN GOSUB 10540:GOTO 6990
7530 IF T$="G" THEN A$="RLVHOOUURRLLVH-R-L"
7540 IF T$="G" THEN GOSUB 10540:GOTO 6990
7550 IF T$="H" THEN A$="RLOU-V-HRL":GOSUB 10540:GOTO 6990
7560 IF T$="I" THEN A$="VVHHRRLLOO-UROLU"
7570 IF T$="I" THEN GOSUB 10540:GOTO 6990
7580 IF T$<>"J" THEN 7280
7590 GOSUB 100:PRINT"BITTE WAEHLEN SIE":PRINT 
7600 GOSUB 11720:PRINT"A  MUILKORVEN":PRINT 
7610 GOSUB 11720:PRINT"B  Y-ER":PRINT 
7620 GOSUB 11720:PRINT"C  VLAGGEN":PRINT 
7630 GOSUB 11720:PRINT"D  WIJZER":PRINT 
7640 GOSUB 11720:PRINT"E  MENU":PRINT 
7650 GOSUB 11720:GOSUB 210:T$=IN$:GOSUB 100
7660 IF T$="A" THEN A$="LOORRUUOORRUU-L":GOSUB 10540:GOTO 6990
7670 IF T$="B" THEN A$="RRLLUURRLLVVHHUUVVHHUU"
7680 IF T$="B" THEN GOSUB 10540:GOTO 6990
7690 IF T$="C" THEN A$="RRVURR-URHH-RURR-U-VRR"
7700 IF T$="C" THEN A1$="LLHULL-ULVV-LULL-U-H"
7710 IF T$="C" THEN A2$="LLVVRRLLHHR"
7720 IF T$="C" THEN A$=A$+A1$+A2$
7730 IF T$="C" THEN GOSUB 10540:GOTO 6990
7740 IF T$="D" THEN A$="-RV-ULV-LUL-V-L-VRHHRU-R-"
7750 IF T$="D" THEN A1$="URU-R-U-OUR-U-RUR-U-ROHH"
7760 IF T$="D" THEN A$=A$+A1$:GOSUB 10540:GOTO 6990
7770 IF T$<>"E" THEN 7590
7780 GOTO 3000
10000 REM
10010 IF A$="Y" THEN A=1:B=B+1:GOTO 10080
10020 IF A$="B" THEN A=3:C=C+1:GOTO 10080
10030 IF A$="W" THEN A=6:D=D+1:GOTO 10080
10040 IF A$="R" THEN A=4:E=E+1:GOTO 10080
10050 IF A$="G" THEN A=5:G=G+1:GOTO 10080
10060 IF A$="O" THEN A=2:S=S+1:GOTO 10080
10070 A=0:RETURN
10080 IF B>9 OR C>9 OR D>9 THEN 10110
10090 IF E>9 OR G>9 OR S>9 THEN 10110
10100 RETURN
10110 PRINT"NICHT RICHTIG!! NEU ANFANGEN!!"
10120 FOR K=1 TO 1000:NEXT K:A=-1:RETURN
10130 REM zoeken rb
10140 S=0
10150 IF A(1,5)<>PO THEN 10170
10160 IF A(4,11)=P THEN A=1:RETURN
10170 IF A(2,4)<>PO THEN 10190
10180 IF A(4,2)=P THEN A=2:RETURN
10190 IF A(2,6)<>PO THEN 10210
10200 IF A(4,8)=P THEN A=3:RETURN
10210 IF A(3,5)<>PO THEN 10230
10220 IF A(4,5)=P THEN A=4:RETURN
10230 IF A(5,1)<>PO THEN 10250
10240 IF A(5,12)=P THEN A=5:RETURN
10250 IF A(5,3)<>PO THEN 10270
10260 IF A(5,4)=P THEN A=6:RETURN
10270 IF A(5,6)<>PO THEN 10290
10280 IF A(5,7)=P THEN A=7:RETURN
10290 IF A(5,9)<>PO THEN 10310
10300 IF A(5,10)=P THEN A=8:RETURN
10310 IF A(7,5)<>PO THEN 10330
10320 IF A(6,5)=P THEN A=9:RETURN
10330 IF A(8,4)<>PO THEN 10350
10340 IF A(6,2)=P THEN A=10:RETURN
10350 IF A(8,6)<>PO THEN 10370
10360 IF A(6,8)=P THEN A=11:RETURN
10370 IF A(9,5)<>PO THEN 10390
10380 IF A(6,11)=P THEN A=12:RETURN
10390 S=S+1:IF S=1 THEN A=PO:PO=P:P=A:GOTO 10150
10400 PRINT:PRINT"LEIDER FALSCH!! NOCH EINMAL!!"
10410 FOR K=1 TO 1500:NEXT K:A=-1:RETURN
10420 A$="OO":RETURN
10430 A$="-O":RETURN
10440 A$="O":RETURN
10450 A$="":RETURN
10460 A$="L-O":RETURN
10470 A$="V":RETURN
10480 A$="-V":RETURN
10490 A$="-RO":RETURN
10500 A$="VV":RETURN
10510 A$="-LV":RETURN
10520 A$="R-V":RETURN
10530 A$="UUVV":RETURN
10540 REM uitvoeren van a$
10550 IF LEN(A$)=0 THEN RETURN
10560 FOR N=1 TO LEN(A$)
10570 IF MID$(A$,N,1)="-" THEN KE$=MID$(A$,N+1,1)
10580 IF MID$(A$,N,1)="-" THEN FOR H=1 TO 3:GOSUB 1020
10590 IF NOT (MID$(A$,N,1)="-") THEN 10600
10595 NEXT H
10600 IF MID$(A$,N,1)="-" THEN N=N+1:GOTO 10620
10610 IF MID$(A$,N,1)<>"-" THEN KE$=MID$(A$,N,1):GOSUB 1020
10620 NEXT N:VE=19:HO=0:GOSUB 110:FOR I=1 TO 4
10630 PRINT"                                    ":NEXT I
10640 VE=20:HO=0:GOSUB 110:PRINT A$:GOSUB 6760
10650 VE=22:HO=0:GOSUB 110:PRINT"<RETURN> DRUECKEN";
10660 GOSUB 210:RETURN
10670 A$="HL":RETURN
10680 A$="RHHL":RETURN
10690 A$="L":RETURN
10700 A$="-L":RETURN
10710 A$="-VOV":RETURN
10720 A$="HHL":RETURN
10730 A$="-ULL":RETURN
10740 A$="LL":RETURN
10750 A$="UULL":RETURN
10760 A$="-HL":RETURN
10770 A$="RH":RETURN
10780 A$="-H":RETURN
10790 A$="-O-LO":RETURN
10800 A$="OR-O":RETURN
10810 A$="H":RETURN
10820 A$="UUHH":RETURN
10830 A$="-UHH":RETURN
10840 A$="UHH":RETURN
10850 A$="HH":RETURN
10860 A$="-O-HO":RETURN
10870 A$="OV-O":RETURN
10880 A$="R":RETURN
10890 A$="-R":RETURN
10900 A$="URR":RETURN
10910 A$="UURR":RETURN
10920 A$="RR":RETURN
10930 A$="-URR":RETURN
10940 A$="-VHUUV-H":RETURN
10950 A$="VHUU-V-H":RETURN
10960 A$="RU-R-LUL":RETURN
10970 A$="-L-UL":RETURN
10980 A$="H-U-H":RETURN
10990 A$="HU-H":RETURN
11000 A$="-LUL":RETURN
11010 A$="-RLUU-LR":RETURN
11020 A$="RLUU-R-L":RETURN
11030 A$="L-U-L":RETURN
11040 A$="-VUV":RETURN
11050 A$="-V-UV":RETURN
11060 A$="LU-L":RETURN
11070 A$="V-HUUH-V":RETURN
11080 A$="-RUR":RETURN
11090 A$="VU-V":RETURN
11100 A$="V-U-V":RETURN
11110 A$="-R-UR":RETURN
11120 A$="RU-R":RETURN
11130 A$="-H-UH":RETURN
11140 A$="-HUH":RETURN
11150 A$="R-U-R":RETURN
11160 A$="U":RETURN
11170 A$="-U":RETURN
11180 A$="UU":RETURN
11190 A$="-R-H-R-URUV-U-VHR":RETURN
11200 A$="-R-URUV-U-V":RETURN
11210 A$="-V-UVUL-U-L":RETURN
11220 REM zoeken van hb
11230 S=0
11240 IF A(3,4)<>PO OR A(4,4)<>P THEN 11260
11250 IF A(4,3)=M THEN A=1:RETURN
11260 IF A(3,6)<>PO OR A(4,7)<>P THEN 11280
11270 IF A(4,6)=M THEN A=2:RETURN
11280 IF A(1,4)<>PO OR A(4,1)<>P THEN 11300
11290 IF A(4,12)=M THEN A=3:RETURN
11300 IF A(1,6)<>PO OR A(4,10)<>P THEN 11320
11310 IF A(4,9)=M THEN A=4:RETURN
11320 IF A(6,3)<>PO OR A(6,4)<>P THEN 11340
11330 IF A(7,4)=M THEN A=5:RETURN
11340 IF A(6,6)<>PO OR A(6,7)<>P THEN 11360
11350 IF A(7,6)=M THEN A=6:RETURN
11360 IF A(6,1)<>PO OR A(9,4)<>P THEN 11380
11370 IF A(6,12)=M THEN A=7:RETURN
11380 IF A(6,9)<>PO OR A(6,10)<>P THEN 11400
11390 IF A(9,6)=M THEN A=8:RETURN
11400 S=S+1:ON S GOTO 11410,11410,11420,11430,11430,11440
11410 A=PO:PO=P:P=M:M=A:GOTO 11240
11420 A=PO:PO=M:M=A:GOTO 11240
11430 A=PO:PO=P:P=M:M=A:GOTO 11240
11440 GOTO 10400
11450 A$="VR-V-LV-R-VL":RETURN
11460 A$="-HLV-LHL-V-L":RETURN
11470 A$="-LOR-OLO-R-O":RETURN
11480 A$="-LVR-VLV-R-V":RETURN
11490 A$="VO-V-UV-O-VU":RETURN
11500 A$="LV-L-HL-V-LH":RETURN
11510 A$="ULV-L-HL-V-LH-U":RETURN
11520 A$="OV-O-HO-V-OH":RETURN
11530 A$="-HOV-OHO-V-O":RETURN
11540 A$="-RVL-VRV-L-V":RETURN
11550 A$="VL-V-RV-L-VR":RETURN
11560 A$="U-RVL-VRV-L-V-U":RETURN
11570 A$="-ORU-ROR-U-R":RETURN
11580 A$="-OHU-HOH-U-H":RETURN
11590 A$="LO-L-UL-O-LU":RETURN
11600 A$="-ULO-L-UL-O-LUU":RETURN
11610 A$="-ULO-LUL-O-L":RETURN
11620 A$="-LHR-HLH-R-H":RETURN
11630 A$="U-HRV-RHR-V-R-U":RETURN
11640 A$="-HRV-RHR-V-R":RETURN
11650 A$="HO-H-UH-O-HU":RETURN
11660 A$="-UHO-HUH-O-H":RETURN
11670 A$="UR-U-LU-R-UL":RETURN
11680 A$="-LUR-ULU-R-U":RETURN
11690 A$="UV-U-HU-V-UH":RETURN
11700 A$="-RUL-URU-L-U":RETURN
11710 A$="UL-U-RU-L-UR":RETURN
11720 GOSUB 120:HO=4:GOSUB 110:RETURN