10 CLS:MEMSET&HB00:WIDTH20,8
20 OPTIONBASE0:DEFINTA-Z
30 LOCATES0,0,0:GOSUB2780
40 K=1:FORI=1TO2:FORJ=1TO56:K=(K*J)MOD56+1:SOUNDK,1:NEXTJ,I
50 DIMB(1,9,9),C(255),D(7,3),E(9,9),M(49),N(49),T(49),W(2,2),X(1,1),Y(1,1),Z(599)
60 POKE&H11E,&HA:POKE&H11F,&H40
70 FORI=&HA40 TO&HA6F:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
80 FORI=0TO255:C(I)=9:NEXTI
90 FORI=0TO80:J=64*(I\27)+16*(I\9MOD3)+4*(I\3MOD3)+I MOD3:READC(J):NEXTI
100 FORJ=0TO3:FORI=0TO7:READD(I,J):NEXTI,J
110 FORK=1TO6:READTILE(K):NEXTK
120 RANDOMIZE((VAL(LEFT$(TIME$,2))MOD6)*3600)+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
130 I=4:J=4:W0=-8000:X(0,0)=9:X(0,1)=0:Y(0,0)=9:Y(0,1)=0:GCLS
140 REM @@@@@@@@@@@@@@@@ PHONE @@@@@@@@@@@@@@@@
150 USER=0:GOSUB380
160 LOCATES0,1,0
170 X=I+10*(J\5):Y=J MOD5+J\5:K=7
180 SOUND20,1
190 A$=INKEY$:IFA$<>""THEN220
200 LOCATEX,Y:PRINTCHR$(224+K);:FORL=1TO50:NEXTL
210 LOCATEX,Y:PRINTCHR$(224+E(I,J));:FORL=1TO50:NEXTL
220 IFA$=""THEN190ELSEA=ASC(A$)
230 IFA=13THEN480ELSEIFA=32THENGOSUB290:GOTO180
240 IFA<28ORA>31THEN180ELSEONA-27GOSUB250,260,270,280:GOTO170
250 I=(I+1)MOD10:RETURN
260 I=(I+9)MOD10:RETURN
270 J=(J+9)MOD10:RETURN
280 J=(J+1)MOD10:RETURN
290 IFK=7THENK=0
300 K=K MOD6+1:RETURN
310 FORM0=X(1,0)TOX(1,1):FORN0=Y(1,0)TOY(1,1)
320 B(1,M0,N0)=B(0,M0,N0):NEXTN0,M0:RETURN
330 FORM0=0TO9:FORN0=0TO9
340 B(1,M0,N0)=B(0,M0,N0):NEXTN0,M0:RETURN
350 FORR=1TO8:FORS=1TO8
360 IFC(B(1,R,S))=7THENE(R,S)=0ELSEE(R,S)=C(B(1,R,S))
370 NEXTS,R:RETURN
380 FORM0=1TO8:FORN0=0TO9STEP9:E(M0,N0)=-91:NEXTN0,M0
390 FORM0=0TO9STEP9:FORN0=1TO8:E(M0,N0)=-90:NEXTN0,M0
400 FORM0=0TO1:FORN0=0TO1:E(M0*9,N0*9)=M0+N0+N0-89:NEXTN0,M0:RETURN
410 FORM0=0TO9:FORN0=0TO9STEP9:E(M0,N0)=0:NEXTN0,M0
420 FORM0=0TO9STEP9:FORN0=0TO9:E(M0,N0)=0:NEXTN0,M0
430 RETURN
440 FORN0=0TO9:B(1,8,N0)=B(0,9,N0):B(1,9,N0)=0:NEXTN0:RETURN
450 FORN0=0TO9:B(1,1,N0)=B(0,0,N0):B(1,0,N0)=0:NEXTN0:RETURN
460 FORM0=0TO9:B(1,M0,8)=B(0,M0,9):B(1,M0,9)=0:NEXTM0:RETURN
470 FORM0=0TO9:B(1,M0,1)=B(0,M0,0):B(1,M0,0)=0:NEXTM0:RETURN
480 LOCATEX,Y:PRINTCHR$(224+K);
490 IFK=7ORC(B(1,I,J))<>7ANDE0=1THEN180
500 M=I:N=J
510 FORL0=0TO1:X(1,L0)=X(0,L0):Y(1,L0)=Y(0,L0):NEXTL0
520 IFM=9THEN:IFX(1,0)=0THEN180ELSEGOSUB1300
530 IFM=0THEN:IFX(1,1)=9THEN180ELSEGOSUB1330
540 IFN=9THEN:IFY(1,0)=0THEN180ELSEGOSUB1360
550 IFN=0THEN:IFY(1,1)=9THEN180ELSEGOSUB1390
560 IFM<=X(1,0)THENX(1,0)=M-1
570 IFM=>X(1,1)THENX(1,1)=M+1
580 IFN<=Y(1,0)THENY(1,0)=N-1
590 IFN=>Y(1,1)THENY(1,1)=N+1
600 L=0:M(L)=M:N(L)=N
610 IF(TILE(K)ANDB(1,M(L),N(L)))=B(1,M(L),N(L))THENB(1,M(L),N(L))=TILE(K):GOTO650ELSE180
620 FORL0=1TO6
630 IF(TILE(L0)ANDB(1,M(L),N(L)))=B(1,M(L),N(L))THENB(1,M(L),N(L))=TILE(L0)
640 NEXTL0
650 TILE0=B(1,M(L),N(L))\16+(B(1,M(L),N(L))MOD16)*16
660 B(1,M(L)+1,N(L))=(B(1,M(L)+1,N(L))OR(TILE0 AND3))
670 B(1,M(L),N(L)-1)=(B(1,M(L),N(L)-1)OR(TILE0 AND12))
680 B(1,M(L)-1,N(L))=(B(1,M(L)-1,N(L))OR(TILE0 AND48))
690 B(1,M(L),N(L)+1)=(B(1,M(L),N(L)+1)OR(TILE0 AND192))
700 L=L+1
710 T(L)=1:IFM(L)<9THENM(L)=M(L-1)+1:N(L)=N(L-1):GOTO760
720 T(L)=2:IFN(L)>0THENM(L)=M(L-1):N(L)=N(L-1)-1:GOTO760
730 T(L)=3:IFM(L)>0THENM(L)=M(L-1)-1:N(L)=N(L-1):GOTO760
740 T(L)=4:IFN(L)<9THENM(L)=M(L-1):N(L)=N(L-1)+1:GOTO760
750 L=L-1:IFL<>0THEN780ELSE790
760 IFC(B(1,M(L),N(L)))=8THEN620
770 IFC(B(1,M(L),N(L)))=9THEN180
780 ONT(L)GOTO720,730,740,750
790 FORM0=0TO9:FORN0=0TO9:B(0,M0,N0)=B(1,M0,N0):NEXTN0,M0
800 FORL0=0TO1:X(0,L0)=X(1,L0):Y(0,L0)=Y(1,L0):NEXTL0
810 FORL0=0TO599:Z(L0)=-8192:NEXTL0
820 GOSUB350:GOSUB380:FORN0=0TO9:FORM0=0TO9
830 X=M0+10*(N0\5):Y=N0 MOD5+N0\5
840 LOCATEX,Y:PRINTCHR$(224+E(M0,N0));
850 NEXTM0,N0:LOCATES0,1,0:GOSUB410:Z1=0
860 FORR=1TO8:FORS=1TO8
870 IFE(R,S)=0THEN900ELSER0=R:S0=S
880 ONE(R,S)GOSUB2180,2180,2150,2170,2170,2160:GOSUB2000
890 IFR0=R ANDS0=S THENZ1=Z1-1
900 NEXTS,R:GOSUB1970
910 FORR=1TO8:FORS=1TO8
920 IFE(R,S)=0THEN950ELSER0=R:S0=S
930 ONE(R,S)GOSUB2160,2170,2170,2150,2180,2180:GOSUB2000
940 IFR0=R ANDS0=S THENZ1=Z1+1
950 NEXTS,R:GOSUB1970
960 R=1:FORS=1TO8
970 IFE(R,S)=0THEN1010ELSER0=R:S0=S:T=0
980 ONE(R,S)GOSUB2200,2190,2200,2190,2200,2190:GOSUB2030
990 IFR0=9ANDE=0THENZ1=Z1+1
1000 IFR0=9ANDE=1THENZ1=Z1-1
1010 NEXTS
1020 S=1:FORR=1TO8
1030 IFE(R,S)=0THEN1070ELSER0=R:S0=S:T=3
1040 ONE(R,S)GOSUB2200,2200,2190,2200,2190,2190:GOSUB2030
1050 IFS0=9ANDE=0THENZ1=Z1+1
1060 IFS0=9ANDE=1THENZ1=Z1-1
1070 NEXTR
1080 ONSGN(Z1)+2GOTO2580,1090,2560
1090 E0=0:FORR=1TO8:FORS=1TO8:IFE(R,S)=0THENE0=1:R=8:S=8
1100 NEXTS,R:IFE0=0THEN2600
1110 IFUSER=0THEN1120ELSE:GOSUB2520:GOSUB2540:GOTO140
1120 REM @@@@@@@@@@@@@@@@ GLASS @@@@@@@@@@@@@@@@
1130 USER=1
1140 FORI=X(0,0)TOX(0,1):FORJ=Y(0,0)TOY(0,1)
1150 ONC(B(1,I,J))+1GOSUB2270,2250,2300,2280,2310,2330,2340,2360
1160 NEXTJ,I
1170 FORI=X(0,0)TOX(0,1):FORJ=Y(0,0)TOY(0,1)
1180 IFC(B(1,I,J))<>7THEN2440
1190 M=I:N=J
1200 FORL0=0TO1:X(1,L0)=X(0,L0):Y(1,L0)=Y(0,L0):NEXTL0
1210 IFM=9THEN:IFX(1,0)=0THEN2440ELSEGOSUB1300:GOTO1420
1220 IFM=0THEN:IFX(1,1)=9THEN2440ELSEGOSUB1330:GOTO1420
1230 IFN=9THEN:IFY(1,0)=0THEN2440ELSEGOSUB1360:GOTO1420
1240 IFN=0THEN:IFY(1,1)=9THEN2440ELSEGOSUB1390:GOTO1420
1250 IFM=X(1,0)THENX(1,0)=M-1:GOTO1420
1260 IFM=X(1,1)THENX(1,1)=M+1:GOTO1420
1270 IFN=Y(1,0)THENY(1,0)=N-1:GOTO1420
1280 IFN=Y(1,1)THENY(1,1)=N+1:GOTO1420
1290 F=0:GOTO1420
1300 FORN0=0TO9:FORM0=0TO8
1310 B(1,M0,N0)=B(1,M0+1,N0):NEXTM0:B(1,9,N0)=0:NEXTN0
1320 M=M-1:X(1,0)=X(1,0)-1:F=1:RETURN
1330 FORN0=0TO9:FORM0=9TO1STEP-1
1340 B(1,M0,N0)=B(1,M0-1,N0):NEXTM0:B(1,0,N0)=0:NEXTN0
1350 M=M+1:X(1,1)=X(1,1)+1:F=2:RETURN
1360 FORM0=0TO9:FORN0=0TO8
1370 B(1,M0,N0)=B(1,M0,N0+1):NEXTN0:B(1,M0,9)=0:NEXTM0
1380 N=N-1:Y(1,0)=Y(1,0)-1:F=3:RETURN
1390 FORM0=0TO9:FORN0=9TO1STEP-1
1400 B(1,M0,N0)=B(1,M0,N0-1):NEXTN0:B(1,M0,0)=0:NEXTM0
1410 N=N+1:Y(1,1)=Y(1,1)+1:F=4:RETURN
1420 L=0:M(L)=M:N(L)=N
1430 FORK=1TO6
1440 IF(TILE(K)ANDB(1,M(L),N(L)))=B(1,M(L),N(L))THENB(1,M(L),N(L))=TILE(K):O=8192:GOSUB2860:GOTO1480ELSE2420
1450 FORL0=1TO6
1460 IF(TILE(L0)ANDB(1,M(L),N(L)))=B(1,M(L),N(L))THENB(1,M(L),N(L))=TILE(L0)
1470 NEXTL0
1480 TILE0=B(1,M(L),N(L))\16+(B(1,M(L),N(L))MOD16)*16
1490 B(1,M(L)+1,N(L))=(B(1,M(L)+1,N(L))OR(TILE0 AND3))
1500 B(1,M(L),N(L)-1)=(B(1,M(L),N(L)-1)OR(TILE0 AND12))
1510 B(1,M(L)-1,N(L))=(B(1,M(L)-1,N(L))OR(TILE0 AND48))
1520 B(1,M(L),N(L)+1)=(B(1,M(L),N(L)+1)OR(TILE0 AND192))
1530 L=L+1:O=O+1
1540 T(L)=1:IFM(L)<X(1,1)THENM(L)=M(L-1)+1:N(L)=N(L-1):GOTO1590
1550 T(L)=2:IFN(L)>Y(1,0)THENM(L)=M(L-1):N(L)=N(L-1)-1:GOTO1590
1560 T(L)=3:IFM(L)>X(1,0)THENM(L)=M(L-1)-1:N(L)=N(L-1):GOTO1590
1570 T(L)=4:IFN(L)<Y(1,1)THENM(L)=M(L-1):N(L)=N(L-1)+1:GOTO1590
1580 L=L-1:IFL<>0THEN1610ELSE1620
1590 IFC(B(1,M(L),N(L)))=8THEN1450
1600 IFC(B(1,M(L),N(L)))=9THEN2410
1610 ONT(L)GOTO1550,1560,1570,1580
1620 Z=K*100+I*10+J-100:Z(Z)=Z(Z)+O
1630 GOSUB1970
1640 R=M:S=N:R0=R:S0=S
1650 ONE(R,S)GOSUB2180,2180,2150,2170,2170,2160:GOSUB2000
1660 IFR0=R ANDS0=S THENZ(Z)=Z(Z)+1024
1670 GOSUB1970
1680 R=M:S=N:R0=R:S0=S
1690 ONE(R,S)GOSUB2160,2170,2170,2150,2180,2180:GOSUB2000
1700 IFR0=R ANDS0=S THENZ(Z)=Z(Z)-1024
1710 GOSUB1970
1720 FORS=Y(1,0)TOY(1,1):FORR=X(1,0)TOX(1,1)
1730 IFE(R,S)=0THEN1770ELSER0=R:S0=S
1740 ONE(R,S)GOSUB2200,2190,2200,2190,2200,2190
1750 T=0:T0=0:GOSUB2030:L1=ABS(R-R0):L2=ABS(S-S0):R=X(1,1)
1760 ON(T XORT0)+1GOSUB2060,2090,2120,2090
1770 NEXTR,S
1780 FORR=X(1,0)TOX(1,1):FORS=Y(1,1)TOY(1,0)STEP-1
1790 IFE(R,S)=0THEN1830ELSER0=R:S0=S
1800 ONE(R,S)GOSUB2190,2200,2200,2190,2190,2200
1810 T=1:T0=1:GOSUB2030:L1=ABS(S-S0):L2=ABS(R-R0):S=Y(1,0)
1820 ON(T XORT0)+1GOSUB2060,2090,2120,2090
1830 NEXTS,R
1840 FORS=Y(1,0)TOY(1,1):FORR=X(1,1)TOX(1,0)STEP-1
1850 IFE(R,S)=0THEN1890ELSER0=R:S0=S
1860 ONE(R,S)GOSUB2190,2190,2190,2200,2200,2200
1870 T=2:T0=2:GOSUB2030:L1=ABS(R-R0):L2=ABS(S-S0):R=X(1,0)
1880 ON(T XORT0)+1GOSUB2060,2090,2120,2090
1890 NEXTR,S
1900 FORR=X(1,0)TOX(1,1):FORS=Y(1,0)TOY(1,1)
1910 IFE(R,S)=0THEN1950ELSER0=R:S0=S
1920 ONE(R,S)GOSUB2200,2200,2190,2200,2190,2190
1930 T=3:T0=3:GOSUB2030:L1=ABS(S-S0):L2=ABS(R-R0):S=Y(1,1)
1940 ON(T XORT0)+1GOSUB2060,2090,2120,2090
1950 NEXTS,R
1960 GOTO2410
1970 FORR=X(1,0)TOX(1,1):FORS=Y(1,0)TOY(1,1)
1980 IFC(B(1,R,S))=>7THENE(R,S)=0ELSEE(R,S)=C(B(1,R,S))
1990 NEXTS,R:RETURN
2000 T=D(E(R0,S0),T):E(R0,S0)=0
2010 ONT+1GOSUB2210,2220,2230,2240
2020 IFE(R0,S0)=0THENRETURNELSE2000
2030 T=D(E(R0,S0),T)
2040 ONT+1GOSUB2210,2220,2230,2240
2050 IFE(R0,S0)=0THENRETURNELSE2030
2060 IFE=0THENZ(Z)=Z(Z)-8*L1+2*L2-(L1\8)*448-(L2\8)*2
2070 IFE=1THENZ(Z)=Z(Z)+4*L1-1*L2+(L1\8)*224+(L2\8)*1
2080 RETURN
2090 IFE=0THENZ(Z)=Z(Z)-(L1-L2+8)\2
2100 IFE=1THENZ(Z)=Z(Z)+(L1-L2+8)\4
2110 RETURN
2120 IFE=0THENZ(Z)=Z(Z)-144+16*L2+8*L1
2130 IFE=1THENZ(Z)=Z(Z)+72-8*L2-4*L1
2140 RETURN
2150 T=0:RETURN
2160 T=1:RETURN
2170 T=2:RETURN
2180 T=3:RETURN
2190 E=0:RETURN
2200 E=1:RETURN
2210 R0=R0+1:RETURN
2220 S0=S0-1:RETURN
2230 R0=R0-1:RETURN
2240 S0=S0+1:RETURN
2250 GOSUB2370
2260 IF((W(0,2)=6ANDW(0,1)=7ANDW(0,0)=7ANDW(1,0)=6)OR(W(0,1)=6ANDW(0,0)=7ANDW(1,0)=7ANDW(2,0)=6))THENZ(10*I+J-11)=W0
2270 RETURN
2280 GOSUB2370
2290 IF((W(2,2)=4ANDW(1,2)=7ANDW(0,2)=7ANDW(0,1)=4)OR(W(1,2)=4ANDW(0,2)=7ANDW(0,1)=7ANDW(0,0)=4))THENZ(10*I+J+291)=W0
2300 RETURN
2310 GOSUB2370
2320 IF((W(0,0)=3ANDW(1,0)=7ANDW(2,0)=7ANDW(2,1)=3)OR(W(1,0)=3ANDW(2,0)=7ANDW(2,1)=7ANDW(2,2)=3))THENZ(10*I+J+309)=W0
2330 RETURN
2340 GOSUB2370
2350 IF((W(2,0)=1ANDW(2,1)=7ANDW(2,2)=7ANDW(1,2)=1)OR(W(2,1)=1ANDW(2,2)=7ANDW(1,2)=7ANDW(0,2)=1))THENZ(10*I+J+511)=W0
2360 RETURN
2370 FORM=0TO2:FORN=0TO2
2380 W(M,N)=C(B(1,I+M-1,J+N-1))
2390 NEXTN,M
2400 RETURN
2410 ONF+1GOSUB310,440,450,460,470:GOSUB2880
2420 NEXTK
2430 IFF<>0THENF=0:GOSUB310
2440 NEXTJ,I
2450 Z1=-8192:Z0=599:FORL0=0TO599
2460 ONSGN(Z(L0)-Z1)+2GOTO2490,2470,2480
2470 ONSGN(INT(RND*3))+1GOTO2490,2480
2480 Z1=Z(L0):Z0=L0
2490 NEXTL0:I=(Z0 MOD100)\10:J=Z0 MOD10:K=Z0\100+1
2500 GOSUB330:GOSUB350:GOTO500
2510 REM @@@@@@@@@@@@@@@@ SCULL @@@@@@@@@@@@@@@@
2520 FORI0=1TO3:FORJ0=56TO51STEP-1:SOUNDJ0,1:SOUND51,1:SOUND56,1:NEXTJ0,I0
2530 RETURN
2540 FORI0=1TO2:FORJ0=56TO1STEP-4:SOUNDJ0,1:SOUNDJ0+1,1:NEXTJ0,I0
2550 RETURN
2560 LOCATES0,1,0:FORI=9TO10:FORJ=1TO4:LOCATEI,J:PRINTCHR$(150);:NEXTJ,I
2570 GOTO2620
2580 LOCATES0,1,0:FORI=9TO10:FORJ=1TO4:LOCATEI,J:PRINTCHR$(153);:NEXTJ,I
2590 GOTO2620
2600 LOCATES0,1,0:FORI=9TO10:FORJ=1TO4:LOCATEI,J:PRINTCHR$(131);:NEXTJ,I
2610 FORI=4TO11:FORJ=8TO15:K=(I*I*J)MOD56+1:SOUNDK,1:SOUNDK+28,1:NEXTJ,I
2620 FORK=0TO999:NEXTK
2630 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
2640 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K
2650 END
2660 DATA 0,0,0,0,0,0
2670 DATA 5D,FA,1F,0F,E5,A6,65,A6,FF,FF,65,A6,5D,BF,F8,F0,67,A6
2680 DATA 65,E6,0F,1F,FD,BA,5D,FF,18,18,FF,BA,65,A7,F0,F8,5F,BA
2690 DATA 56,25,2F,25,56,0
2700 DATA 0,7,7,7,8,7,7,7,8,7,8,7,8,9,8,7,8,8
2710 DATA 7,7,8,7,8,8,8,8,9,7,8,7,8,9,8,7,8,8
2720 DATA 8,9,8,9,9,9,8,9,3,7,8,8,8,9,5,8,6,9
2730 DATA 7,7,8,7,8,8,8,8,9,7,8,8,8,9,1,8,2,9
2740 DATA 8,8,9,8,4,9,9,9,9
2750 DATA 2,1,0,3,3,0,1,2,3,0,1,2,2,1,0,3
2760 DATA 0,3,2,1,1,2,3,0,1,2,3,0,0,3,2,1
2770 DATA &H96,&H99,&H5A,&HA5,&H66,&H69
2780 RESTORE2800:FORO=1TO58:READI,J,K,L
2790 LINE(I,J)-(K,L),PSET:NEXTO:RESTORE:RETURN
2800 DATA 24,8,39,8,24,9,39,9,24,10,39,10,24,11,39,11,30,14,30,23,31,14,31,23,32,14,32,23,33,14,33,23
2810 DATA 42,8,54,8,42,9,56,9,42,10,56,10,42,11,57,11,57,11,57,14,56,9,56,14,55,9,55,15,54,8,54,15,57,23,57,17,56,23,56,16
2820 DATA 55,23,55,16,54,23,54,16,55,14,42,14,55,15,42,15,56,16,42,16,57,17,42,17,42,14,42,23,43,14,43,23,44,14,44,23,45,14,45,23
2830 DATA 60,8,72,8,60,9,74,9,60,10,74,10,60,11,75,11,75,11,75,23,74,9,74,23,73,9,73,23,72,8,72,23,75,23,63,23,75,22,61,22
2840 DATA 75,21,61,21,75,20,60,20,60,20,60,17,61,22,61,15,62,22,62,15,63,23,63,14,63,14,69,14,61,15,69,15,61,16,69,16,60,17,69,17
2850 DATA 78,8,89,23,79,8,90,23,80,8,91,23,81,8,92,23,82,8,93,23,82,23,93,8,81,23,92,8,80,23,91,8,79,23,90,8,78,23,89,8
2860 X=M(0)+10*(N(0)\5):Y=N(0)MOD5+N(0)\5
2870 LOCATEX,Y:PRINTCHR$(224+K);:RETURN
2880 LOCATEX,Y:PRINTCHR$(C(B(0,M,N))MOD7+224);:RETURN
