Home » Archimedes archive » Micro User » MU 1990-11.adf » Listings » OldLists/Snake
OldLists/Snake
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1990-11.adf » Listings |
| Filename: | OldLists/Snake |
| Read OK: | ✔ |
| File size: | 10B1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Archimedes archive » Micro User » MU 1990-06.adf » Snake
- Archimedes archive » Micro User » MU 1990-11.adf » Listings » OldLists/Snake
- AEW website » mu » mu_5_25_discs_Micro_User_08_04_D-MU08_04.ssd » Snake
File contents
10REM Magic (Rubik) Snake
20REM by Jim Paterson
30REM (c) The Micro User
40:
50ON ERROR GOTO 350
60A$="ROWJLUMTSDVEGXBQPAIHFKCN"
70B$="424224244141141421211212"
80C$="011001100011110010011001"
90D$="ABCDKLIJEIFBDHKGFLHCAGJE"
100N=39:DIM O%N,V%(N),D(N),Z%N
110DIM N%3,d(2),min(2),max(2)
120DIM u(2,2),C(7,2)
130MODE1
140C%=1:PROCcolours
150VDU23,1,0;0;0;0;29,640;540;
160T$="LRLRRLRLLRRLLRLRRLRLLRR"
170$Z%=T$+STRING$(N-LEN(T$)," ")
180PROCexpand:PROCview(2)
190*FX4,1
200:
210REPEAT
220IF INKEY-26 PROCturnu(1,-1)
230IF INKEY-122 PROCturnu(1,1)
240IF INKEY-42 PROCturnu(0,1)
250IF INKEY-58 PROCturnu(0,-1)
260IF INKEY-103 PROCturnu(2,-1)
270IF INKEY-104 PROCturnu(2,1)
280IF INKEY-67 PROCview(0)
290IF INKEY-69 PROCview(1)
300IF INKEY-98 PROCview(2)
310IF INKEY-99 PROCcolours
320IF INKEY-97 Q%=0:PROCinput
330UNTILFALSE
340:
350MODE 7
360REPORT:PRINT" at line ";ERL
370*FX4,0
380END
390:
400DEFPROCinput:E$=" ":U%=0
410*FX15,1
420REPEAT:R%=0
430COLOUR0:COLOUR131
440H$=CHR$(Z%?Q%)
450PRINTTAB(Q%,31)H$;
460G=INKEY(0)
470IF G>96 AND G<128 THEN G=G-32
480G$=CHR$G
490IF G=136 AND Q%>0 R%=-1
500IF G=137 AND Q%<N-1 AND H$<>" " R%=1
510IF INSTR("DRUL ",G$)=0 G$=H$ ELSE E$=" ":IF Q%<N-1 AND G$<>" " R%=1
520Z%?Q%=ASC(G$)
530COLOUR3:COLOUR128
540PRINTTAB(U%,30)E$;
550PRINTTAB(Q%,31)G$;
560IF G$=" " $(Z%+Q%)=STRING$(39-Q%," "):PRINTTAB(Q%,31)$(Z%+Q%);
570Q%=Q%+R%:UNTIL G=13
580PROCexpand
590IF Q%<>255 U%=Q%-3:E$="ERROR":GOTO 410
600PROCscale
610ENDPROC
620:
630DEFPROCexpand
640?O%=0:V%(0)=2631720:J%=0
650L%=INSTR($Z%," ")-1
660IF L%=-1 L%=N ELSEIF L%=0 GOTO770
670FOR I%=1 TO L%:P%=O%?J%
680M%=P% MOD 4:D%=P% DIV 4
690W%=256^(D%DIV2)
700IF D%MOD2=1 W%=-W%
710V%(I%)=V%(J%)+W%
720W$=CHR$(Z%?(I%-1))
730M%=(M%+INSTR("DLUR",W$)-1)MOD4
740O%?I%=ASC(MID$(A$,D%*4+M%+1,1))-ASC("A")
750J%=I%
760NEXT
770Q%=255
780FOR J%=0 TO 2:min(J%)=100:max(J%)=0:NEXT
790FOR I%=0 TO L%:!N%=V%(I%)
800IF I%=0 GOTO 840
810FOR K%=0 TO I%-1
820IF V%(I%)=V%(K%) AND ASC(MID$(D$,O%?I%+1,1))+ASC(MID$(D$,O%?K%+1,1))-ASC("A")-ASC("A")<>11 THEN Q%=I%-1:I%=L%:K%=L%
830NEXT
840FOR J%=0 TO 2
850IF N%?J%<min(J%) min(J%)=N%?J%
860IF N%?J%>max(J%) max(J%)=N%?J%
870NEXT,
880IF Q%<>255 ENDPROC
890d=0:FOR J%=0 TO 2
900d(J%)=(max(J%)-min(J%)+1)/2:d=d+d(J%)*d(J%)
910NEXT
920T%=S%:d=SQR(d):S%=480/d
930min=min(0)+min(1)*256+min(2)*256*256
940FOR I%=0 TO L%
950V%(I%)=V%(I%)-min
960NEXT
970ENDPROC
980:
990DEFPROCcolours
1000C%=4-C%:VDU19,1,C%;0;
1010C%=4-C%:VDU19,2,C%;0;
1020C%=4-C%
1030FOR I%=0TO1500:NEXT
1040ENDPROC
1050:
1060DEFPROCview(axis%)
1070FOR I%=0 TO 2:FOR J%=0TO 2
1080IF I%=(J%+axis%)MOD3 u(I%,J%)=S% ELSE u(I%,J%)=0
1090NEXT,
1100PROCcoords:PROCdisplay
1110ENDPROC
1120:
1130DEFPROCscale
1140FOR I%=0 TO 2:FOR J%=0TO 2
1150u(I%,J%)=u(I%,J%)*S%/T%:NEXT,
1160PROCcoords:PROCdisplay
1170ENDPROC
1180:
1190DEFPROCturnu(axis%,sign%)
1200IF INKEY-1 a=PI/6 ELSE IF INKEY-2 a=PI/36 ELSE a=PI/12
1210cos=COS(a):sin=SIN(a)
1220c1%=(axis%+1)MOD3
1230c2%=(axis%+2)MOD3
1240FOR I%=0 TO 2
1250W=u(I%,c1%)*cos+sign%*u(I%,c2%)*sin
1260u(I%,c2%)=u(I%,c2%)*cos-sign%*u(I%,c1%)*sin
1270u(I%,c1%)=W
1280NEXT
1290PROCcoords:PROCdisplay
1300ENDPROC
1310:
1320DEFPROCcoords
1330FOR I%=0 TO 2
1340C(0,I%)=0
1350C(1,I%)=u(0,I%)
1360C(2,I%)=u(1,I%)
1370C(4,I%)=u(2,I%)
1380C(3,I%)=C(1,I%)+C(2,I%)
1390C(5,I%)=C(1,I%)+C(4,I%)
1400C(6,I%)=C(2,I%)+C(4,I%)
1410C(7,I%)=C(6,I%)+C(1,I%)
1420NEXT
1430ENDPROC
1440:
1450DEFPROCdisplay:CLS
1460PRINTTAB(0,31)$Z%;
1470FOR I%=0 TO L%
1480D(I%)=0:!N%=V%(I%)
1490FOR J%=0 TO 2
1500D(I%)=D(I%)+(N%?J%)*u(J%,2)
1510NEXT,
1520FOR G%=0 TO L%:MAXZ=-1000
1530FOR K%=0 TO L%
1540IF D(K%)>MAXZ I%=K%:MAXZ=D(I%)
1550IF D(K%)=MAXZ PROCsamecube
1560NEXT
1570D(I%)=-1000:!N%=V%(I%)
1580X=0:Y=0
1590FOR J%=0 TO 2
1600X=X+((N%?J%)-d(J%))*u(J%,0)
1610Y=Y+((N%?J%)-d(J%))*u(J%,1)
1620NEXT
1630PROCdrawcube
1640NEXT
1650ENDPROC
1660:
1670DEFPROCsamecube
1680IF V%(I%)<>V%(K%) ENDPROC
1690PROCapex
1700IF C(A1%,2)+C(A2%,2)>C(A1% EOR 7,2)+C(A2% EOR 7,2) ENDPROC
1710I%=K%:MAXZ=D(I%)
1720ENDPROC
1730:
1740DEFPROCapex
1750P%=O%?I%
1760C2%=2^(P% DIV 8)
1770S2%=1-(P% DIV 4)MOD 2
1780C1%=VAL(MID$(B$,P%+1,1))
1790S1%=VAL(MID$(C$,P%+1,1))
1800C3%=7-C2%-C1%
1810A1%=C1%*S1%+C2%*S2%:A2%=A1%+C3%
1820ENDPROC
1830:
1840DEFPROCdrawcube
1850PROCapex
1860B%=I%MOD2+1
1870E1%=A1% EOR C1%:E2%=A2% EOR C1%
1880E3%=A1% EOR C2%:E4%=A2% EOR C2%
1890REM square face
1900IF C(A1%,2)+C(A2%,2)>C(A1% EOR 7,2)+C(A2% EOR 7,2) THEN PROCshape(E1%,E2%,E3%,E4%)
1910REM triangular face
1920IF C(C3%,2)<0 PROCshape(A2%,E2%,E4%,E4%) ELSE IF C(C3%,2)>0 PROCshape(A1%,E1%,E3%,E3%)
1930IF I%=0 PROCsquare1
1940IF I%=L% PROCsquare2
1950ENDPROC
1960:
1970DEFPROCshape(a%,b%,c%,d%)
1980GCOL 0,B%
1990MOVE X+C(a%,0),Y+C(a%,1)
2000MOVE X+C(b%,0),Y+C(b%,1)
2010PLOT 85,X+C(c%,0),Y+C(c%,1)
2020IF d%<>c% PLOT 85,X+C(d%,0),Y+C(d%,1)
2030GCOL 0,0
2040DRAW X+C(b%,0),Y+C(b%,1)
2050DRAW X+C(a%,0),Y+C(a%,1)
2060DRAW X+C(c%,0),Y+C(c%,1)
2070IF d%<>c% DRAW X+C(d%,0),Y+C(d%,1)
2080ENDPROC
2090:
2100DEFPROCsquare1
2110IF C(C1%,2)<=0 AND S1%=0 ENDPROC
2120IF C(C1%,2)>=0 AND S1%=1 ENDPROC
2130PROCshape(A1%,A2%,E3%,E4%)
2140ENDPROC
2150:
2160DEFPROCsquare2
2170IF C(C2%,2)<=0 AND S2%=0 ENDPROC
2180IF C(C2%,2)>=0 AND S2%=1 ENDPROC
2190PROCshape(A1%,A2%,E1%,E2%)
2200ENDPROC
� Magic (Rubik) Snake
� by Jim Paterson
� (c) The Micro User
(:
2� � � �D^A
<!A$="ROWJLUMTSDVEGXBQPAIHFKCN"
F!B$="424224244141141421211212"
P!C$="011001100011110010011001"
Z!D$="ABCDKLIJEIFBDHKGFLHCAGJE"
d N=39:� O%N,V%(N),D(N),Z%N
n � N%3,d(2),min(2),max(2)
x� u(2,2),C(7,2)
��1
�C%=1:�colours
� �23,1,0;0;0;0;29,640;540;
� T$="LRLRRLRLLRRLLRLRRLRLLRR"
�$Z%=T$+�N-�(T$)," ")
��expand:�view(2)
�
*FX4,1
�:
��
�� �-26 �turnu(1,-1)
�� �-122 �turnu(1,1)
�� �-42 �turnu(0,1)
�� �-58 �turnu(0,-1)
� �-103 �turnu(2,-1)
� �-104 �turnu(2,1)
� �-67 �view(0)
"� �-69 �view(1)
,� �-98 �view(2)
6� �-99 �colours
@� �-97 Q%=0:�input
J��
T:
^� 7
h�:�" at line ";�
r
*FX4,0
|�
�:
���input:E$=" ":U%=0
� *FX15,1
�
�:R%=0
� �0:�131
�H$=�(Z%?Q%)
��Q%,31)H$;
�
G=�(0)
�� G>96 � G<128 � G=G-32
� G$=�G
�� G=136 � Q%>0 R%=-1
�#� G=137 � Q%<N-1 � H$<>" " R%=1
�?� �"DRUL ",G$)=0 G$=H$ � E$=" ":� Q%<N-1 � G$<>" " R%=1
Z%?Q%=�(G$)
�3:�128
�U%,30)E$;
&�Q%,31)G$;
03� G$=" " $(Z%+Q%)=�39-Q%," "):�Q%,31)$(Z%+Q%);
:Q%=Q%+R%:� G=13
D �expand
N'� Q%<>255 U%=Q%-3:E$="ERROR":� �tZA
X
�scale
b�
l:
v ��expand
� ?O%=0:V%(0)=2631720:J%=0
�L%=�$Z%," ")-1
� � L%=-1 L%=N �� L%=0 �TBC
�� I%=1 � L%:P%=O%?J%
�M%=P% � 4:D%=P% � 4
�W%=256^(D%�2)
�� D%�2=1 W%=-W%
�V%(I%)=V%(J%)+W%
�W$=�(Z%?(I%-1))
�M%=(M%+�"DLUR",W$)-1)�4
�$O%?I%=�(�A$,D%*4+M%+1,1))-�("A")
� J%=I%
��
Q%=255
&� J%=0 � 2:min(J%)=100:max(J%)=0:�
� I%=0 � L%:!N%=V%(I%)
� I%=0 � �DHC
*� K%=0 � I%-1
4a� V%(I%)=V%(K%) � �(�D$,O%?I%+1,1))+�(�D$,O%?K%+1,1))-�("A")-�("A")<>11 � Q%=I%-1:I%=L%:K%=L%
>�
H� J%=0 � 2
R!� N%?J%<min(J%) min(J%)=N%?J%
\!� N%?J%>max(J%) max(J%)=N%?J%
f�,
p� Q%<>255 �
zd=0:� J%=0 � 2
�/d(J%)=(max(J%)-min(J%)+1)/2:d=d+d(J%)*d(J%)
��
�T%=S%:d=�(d):S%=480/d
�(min=min(0)+min(1)*256+min(2)*256*256
�� I%=0 � L%
�V%(I%)=V%(I%)-min
��
��
�:
�
��colours
�C%=4-C%:�19,1,C%;0;
�C%=4-C%:�19,2,C%;0;
� C%=4-C%
� I%=0�1500:�
�
:
$��view(axis%)
.� I%=0 � 2:� J%=0� 2
8.� I%=(J%+axis%)�3 u(I%,J%)=S% � u(I%,J%)=0
B�,
L�coords:�display
V�
`:
j ��scale
t� I%=0 � 2:� J%=0� 2
~ u(I%,J%)=u(I%,J%)*S%/T%:�,
��coords:�display
��
�:
���turnu(axis%,sign%)
�'� �-1 a=�/6 � � �-2 a=�/36 � a=�/12
�cos=�(a):sin=�(a)
�c1%=(axis%+1)�3
�c2%=(axis%+2)�3
�� I%=0 � 2
�'W=u(I%,c1%)*cos+sign%*u(I%,c2%)*sin
�/u(I%,c2%)=u(I%,c2%)*cos-sign%*u(I%,c1%)*sin
�u(I%,c1%)=W
�
�coords:�display
�
:
( ��coords
2� I%=0 � 2
<
C(0,I%)=0
FC(1,I%)=u(0,I%)
PC(2,I%)=u(1,I%)
ZC(4,I%)=u(2,I%)
dC(3,I%)=C(1,I%)+C(2,I%)
nC(5,I%)=C(1,I%)+C(4,I%)
xC(6,I%)=C(2,I%)+C(4,I%)
�C(7,I%)=C(6,I%)+C(1,I%)
��
��
�:
���display:�
��0,31)$Z%;
�� I%=0 � L%
�D(I%)=0:!N%=V%(I%)
�� J%=0 � 2
� D(I%)=D(I%)+(N%?J%)*u(J%,2)
��,
�� G%=0 � L%:MAXZ=-1000
�� K%=0 � L%
!� D(K%)>MAXZ I%=K%:MAXZ=D(I%)
� D(K%)=MAXZ �samecube
�
"D(I%)=-1000:!N%=V%(I%)
, X=0:Y=0
6� J%=0 � 2
@ X=X+((N%?J%)-d(J%))*u(J%,0)
J Y=Y+((N%?J%)-d(J%))*u(J%,1)
T�
^
�drawcube
h�
r�
|:
���samecube
�� V%(I%)<>V%(K%) �
� �apex
�3� C(A1%,2)+C(A2%,2)>C(A1% � 7,2)+C(A2% � 7,2) �
�I%=K%:MAXZ=D(I%)
��
�:
�
��apex
� P%=O%?I%
�C2%=2^(P% � 8)
�S2%=1-(P% � 4)� 2
�C1%=�(�B$,P%+1,1))
�S1%=�(�C$,P%+1,1))
C3%=7-C2%-C1%
#A1%=C1%*S1%+C2%*S2%:A2%=A1%+C3%
�
&:
0��drawcube
: �apex
D
B%=I%�2+1
N E1%=A1% � C1%:E2%=A2% � C1%
X E3%=A1% � C2%:E4%=A2% � C2%
b� square face
lK� C(A1%,2)+C(A2%,2)>C(A1% � 7,2)+C(A2% � 7,2) � �shape(E1%,E2%,E3%,E4%)
v� triangular face
�O� C(C3%,2)<0 �shape(A2%,E2%,E4%,E4%) � � C(C3%,2)>0 �shape(A1%,E1%,E3%,E3%)
�� I%=0 �square1
�� I%=L% �square2
��
�:
���shape(a%,b%,c%,d%)
�
� 0,B%
�� X+C(a%,0),Y+C(a%,1)
�� X+C(b%,0),Y+C(b%,1)
� � 85,X+C(c%,0),Y+C(c%,1)
�%� d%<>c% � 85,X+C(d%,0),Y+C(d%,1)
� � 0,0
�� X+C(b%,0),Y+C(b%,1)
� X+C(a%,0),Y+C(a%,1)
� X+C(c%,0),Y+C(c%,1)
"� d%<>c% � X+C(d%,0),Y+C(d%,1)
�
*:
4
��square1
>� C(C1%,2)<=0 � S1%=0 �
H� C(C1%,2)>=0 � S1%=1 �
R�shape(A1%,A2%,E3%,E4%)
\�
f:
p
��square2
z� C(C2%,2)<=0 � S2%=0 �
�� C(C2%,2)>=0 � S2%=1 �
��shape(A1%,A2%,E1%,E2%)
��
� 00000000 0d 00 0a 19 f4 20 4d 61 67 69 63 20 28 52 75 62 |..... Magic (Rub|
00000010 69 6b 29 20 53 6e 61 6b 65 0d 00 14 15 f4 20 62 |ik) Snake..... b|
00000020 79 20 4a 69 6d 20 50 61 74 65 72 73 6f 6e 0d 00 |y Jim Paterson..|
00000030 1e 18 f4 20 28 63 29 20 54 68 65 20 4d 69 63 72 |... (c) The Micr|
00000040 6f 20 55 73 65 72 0d 00 28 05 3a 0d 00 32 0e ee |o User..(.:..2..|
00000050 20 85 20 e5 20 8d 44 5e 41 0d 00 3c 21 41 24 3d | . . .D^A..<!A$=|
00000060 22 52 4f 57 4a 4c 55 4d 54 53 44 56 45 47 58 42 |"ROWJLUMTSDVEGXB|
00000070 51 50 41 49 48 46 4b 43 4e 22 0d 00 46 21 42 24 |QPAIHFKCN"..F!B$|
00000080 3d 22 34 32 34 32 32 34 32 34 34 31 34 31 31 34 |="42422424414114|
00000090 31 34 32 31 32 31 31 32 31 32 22 0d 00 50 21 43 |1421211212"..P!C|
000000a0 24 3d 22 30 31 31 30 30 31 31 30 30 30 31 31 31 |$="0110011000111|
000000b0 31 30 30 31 30 30 31 31 30 30 31 22 0d 00 5a 21 |10010011001"..Z!|
000000c0 44 24 3d 22 41 42 43 44 4b 4c 49 4a 45 49 46 42 |D$="ABCDKLIJEIFB|
000000d0 44 48 4b 47 46 4c 48 43 41 47 4a 45 22 0d 00 64 |DHKGFLHCAGJE"..d|
000000e0 1d 4e 3d 33 39 3a de 20 4f 25 4e 2c 56 25 28 4e |.N=39:. O%N,V%(N|
000000f0 29 2c 44 28 4e 29 2c 5a 25 4e 0d 00 6e 1c de 20 |),D(N),Z%N..n.. |
00000100 4e 25 33 2c 64 28 32 29 2c 6d 69 6e 28 32 29 2c |N%3,d(2),min(2),|
00000110 6d 61 78 28 32 29 0d 00 78 13 de 20 75 28 32 2c |max(2)..x.. u(2,|
00000120 32 29 2c 43 28 37 2c 32 29 0d 00 82 06 eb 31 0d |2),C(7,2).....1.|
00000130 00 8c 11 43 25 3d 31 3a f2 63 6f 6c 6f 75 72 73 |...C%=1:.colours|
00000140 0d 00 96 1d ef 32 33 2c 31 2c 30 3b 30 3b 30 3b |.....23,1,0;0;0;|
00000150 30 3b 32 39 2c 36 34 30 3b 35 34 30 3b 0d 00 a0 |0;29,640;540;...|
00000160 20 54 24 3d 22 4c 52 4c 52 52 4c 52 4c 4c 52 52 | T$="LRLRRLRLLRR|
00000170 4c 4c 52 4c 52 52 4c 52 4c 4c 52 52 22 0d 00 aa |LLRLRRLRLLRR"...|
00000180 18 24 5a 25 3d 54 24 2b c4 4e 2d a9 28 54 24 29 |.$Z%=T$+.N-.(T$)|
00000190 2c 22 20 22 29 0d 00 b4 14 f2 65 78 70 61 6e 64 |," ").....expand|
000001a0 3a f2 76 69 65 77 28 32 29 0d 00 be 0a 2a 46 58 |:.view(2)....*FX|
000001b0 34 2c 31 0d 00 c8 05 3a 0d 00 d2 05 f5 0d 00 dc |4,1....:........|
000001c0 18 e7 20 a6 2d 32 36 20 20 f2 74 75 72 6e 75 28 |.. .-26 .turnu(|
000001d0 31 2c 2d 31 29 0d 00 e6 17 e7 20 a6 2d 31 32 32 |1,-1)..... .-122|
000001e0 20 f2 74 75 72 6e 75 28 31 2c 31 29 0d 00 f0 17 | .turnu(1,1)....|
000001f0 e7 20 a6 2d 34 32 20 20 f2 74 75 72 6e 75 28 30 |. .-42 .turnu(0|
00000200 2c 31 29 0d 00 fa 18 e7 20 a6 2d 35 38 20 20 f2 |,1)..... .-58 .|
00000210 74 75 72 6e 75 28 30 2c 2d 31 29 0d 01 04 18 e7 |turnu(0,-1).....|
00000220 20 a6 2d 31 30 33 20 f2 74 75 72 6e 75 28 32 2c | .-103 .turnu(2,|
00000230 2d 31 29 0d 01 0e 17 e7 20 a6 2d 31 30 34 20 f2 |-1)..... .-104 .|
00000240 74 75 72 6e 75 28 32 2c 31 29 0d 01 18 14 e7 20 |turnu(2,1)..... |
00000250 a6 2d 36 37 20 20 f2 76 69 65 77 28 30 29 0d 01 |.-67 .view(0)..|
00000260 22 14 e7 20 a6 2d 36 39 20 20 f2 76 69 65 77 28 |".. .-69 .view(|
00000270 31 29 0d 01 2c 14 e7 20 a6 2d 39 38 20 20 f2 76 |1)..,.. .-98 .v|
00000280 69 65 77 28 32 29 0d 01 36 14 e7 20 a6 2d 39 39 |iew(2)..6.. .-99|
00000290 20 20 f2 63 6f 6c 6f 75 72 73 0d 01 40 17 e7 20 | .colours..@.. |
000002a0 a6 2d 39 37 20 20 51 25 3d 30 3a f2 69 6e 70 75 |.-97 Q%=0:.inpu|
000002b0 74 0d 01 4a 06 fd a3 0d 01 54 05 3a 0d 01 5e 07 |t..J.....T.:..^.|
000002c0 eb 20 37 0d 01 68 14 f6 3a f1 22 20 61 74 20 6c |. 7..h..:." at l|
000002d0 69 6e 65 20 22 3b 9e 0d 01 72 0a 2a 46 58 34 2c |ine ";...r.*FX4,|
000002e0 30 0d 01 7c 05 e0 0d 01 86 05 3a 0d 01 90 1b dd |0..|......:.....|
000002f0 f2 69 6e 70 75 74 3a 45 24 3d 22 20 20 20 20 20 |.input:E$=" |
00000300 22 3a 55 25 3d 30 0d 01 9a 0b 2a 46 58 31 35 2c |":U%=0....*FX15,|
00000310 31 0d 01 a4 0a f5 3a 52 25 3d 30 0d 01 ae 0b fb |1.....:R%=0.....|
00000320 30 3a fb 31 33 31 0d 01 b8 0f 48 24 3d bd 28 5a |0:.131....H$=.(Z|
00000330 25 3f 51 25 29 0d 01 c2 0f f1 8a 51 25 2c 33 31 |%?Q%)......Q%,31|
00000340 29 48 24 3b 0d 01 cc 0a 47 3d a6 28 30 29 0d 01 |)H$;....G=.(0)..|
00000350 d6 1b e7 20 47 3e 39 36 20 80 20 47 3c 31 32 38 |... G>96 . G<128|
00000360 20 8c 20 47 3d 47 2d 33 32 0d 01 e0 09 47 24 3d | . G=G-32....G$=|
00000370 bd 47 0d 01 ea 18 e7 20 47 3d 31 33 36 20 80 20 |.G..... G=136 . |
00000380 51 25 3e 30 20 52 25 3d 2d 31 0d 01 f4 23 e7 20 |Q%>0 R%=-1...#. |
00000390 47 3d 31 33 37 20 80 20 51 25 3c 4e 2d 31 20 80 |G=137 . Q%<N-1 .|
000003a0 20 48 24 3c 3e 22 20 22 20 52 25 3d 31 0d 01 fe | H$<>" " R%=1...|
000003b0 3f e7 20 a7 22 44 52 55 4c 20 22 2c 47 24 29 3d |?. ."DRUL ",G$)=|
000003c0 30 20 47 24 3d 48 24 20 8b 20 45 24 3d 22 20 20 |0 G$=H$ . E$=" |
000003d0 20 20 20 22 3a e7 20 51 25 3c 4e 2d 31 20 80 20 | ":. Q%<N-1 . |
000003e0 47 24 3c 3e 22 20 22 20 52 25 3d 31 0d 02 08 0f |G$<>" " R%=1....|
000003f0 5a 25 3f 51 25 3d 97 28 47 24 29 0d 02 12 0b fb |Z%?Q%=.(G$).....|
00000400 33 3a fb 31 32 38 0d 02 1c 0f f1 8a 55 25 2c 33 |3:.128......U%,3|
00000410 30 29 45 24 3b 0d 02 26 0f f1 8a 51 25 2c 33 31 |0)E$;..&...Q%,31|
00000420 29 47 24 3b 0d 02 30 33 e7 20 47 24 3d 22 20 22 |)G$;..03. G$=" "|
00000430 20 24 28 5a 25 2b 51 25 29 3d c4 33 39 2d 51 25 | $(Z%+Q%)=.39-Q%|
00000440 2c 22 20 22 29 3a f1 8a 51 25 2c 33 31 29 24 28 |," "):..Q%,31)$(|
00000450 5a 25 2b 51 25 29 3b 0d 02 3a 13 51 25 3d 51 25 |Z%+Q%);..:.Q%=Q%|
00000460 2b 52 25 3a fd 20 47 3d 31 33 0d 02 44 0b f2 65 |+R%:. G=13..D..e|
00000470 78 70 61 6e 64 0d 02 4e 27 e7 20 51 25 3c 3e 32 |xpand..N'. Q%<>2|
00000480 35 35 20 55 25 3d 51 25 2d 33 3a 45 24 3d 22 45 |55 U%=Q%-3:E$="E|
00000490 52 52 4f 52 22 3a e5 20 8d 74 5a 41 0d 02 58 0a |RROR":. .tZA..X.|
000004a0 f2 73 63 61 6c 65 0d 02 62 05 e1 0d 02 6c 05 3a |.scale..b....l.:|
000004b0 0d 02 76 0c dd f2 65 78 70 61 6e 64 0d 02 80 1c |..v...expand....|
000004c0 3f 4f 25 3d 30 3a 56 25 28 30 29 3d 32 36 33 31 |?O%=0:V%(0)=2631|
000004d0 37 32 30 3a 4a 25 3d 30 0d 02 8a 12 4c 25 3d a7 |720:J%=0....L%=.|
000004e0 24 5a 25 2c 22 20 22 29 2d 31 0d 02 94 1e e7 20 |$Z%," ")-1..... |
000004f0 4c 25 3d 2d 31 20 4c 25 3d 4e 20 8b e7 20 4c 25 |L%=-1 L%=N .. L%|
00000500 3d 30 20 e5 8d 54 42 43 0d 02 9e 18 e3 20 49 25 |=0 ..TBC..... I%|
00000510 3d 31 20 b8 20 4c 25 3a 50 25 3d 4f 25 3f 4a 25 |=1 . L%:P%=O%?J%|
00000520 0d 02 a8 17 4d 25 3d 50 25 20 83 20 34 3a 44 25 |....M%=P% . 4:D%|
00000530 3d 50 25 20 81 20 34 0d 02 b2 11 57 25 3d 32 35 |=P% . 4....W%=25|
00000540 36 5e 28 44 25 81 32 29 0d 02 bc 13 e7 20 44 25 |6^(D%.2)..... D%|
00000550 83 32 3d 31 20 57 25 3d 2d 57 25 0d 02 c6 14 56 |.2=1 W%=-W%....V|
00000560 25 28 49 25 29 3d 56 25 28 4a 25 29 2b 57 25 0d |%(I%)=V%(J%)+W%.|
00000570 02 d0 13 57 24 3d bd 28 5a 25 3f 28 49 25 2d 31 |...W$=.(Z%?(I%-1|
00000580 29 29 0d 02 da 1b 4d 25 3d 28 4d 25 2b a7 22 44 |))....M%=(M%+."D|
00000590 4c 55 52 22 2c 57 24 29 2d 31 29 83 34 0d 02 e4 |LUR",W$)-1).4...|
000005a0 24 4f 25 3f 49 25 3d 97 28 c1 41 24 2c 44 25 2a |$O%?I%=.(.A$,D%*|
000005b0 34 2b 4d 25 2b 31 2c 31 29 29 2d 97 28 22 41 22 |4+M%+1,1))-.("A"|
000005c0 29 0d 02 ee 09 4a 25 3d 49 25 0d 02 f8 05 ed 0d |)....J%=I%......|
000005d0 03 02 0a 51 25 3d 32 35 35 0d 03 0c 26 e3 20 4a |...Q%=255...&. J|
000005e0 25 3d 30 20 b8 20 32 3a 6d 69 6e 28 4a 25 29 3d |%=0 . 2:min(J%)=|
000005f0 31 30 30 3a 6d 61 78 28 4a 25 29 3d 30 3a ed 0d |100:max(J%)=0:..|
00000600 03 16 1a e3 20 49 25 3d 30 20 b8 20 4c 25 3a 21 |.... I%=0 . L%:!|
00000610 4e 25 3d 56 25 28 49 25 29 0d 03 20 11 e7 20 49 |N%=V%(I%).. .. I|
00000620 25 3d 30 20 e5 20 8d 44 48 43 0d 03 2a 11 e3 20 |%=0 . .DHC..*.. |
00000630 4b 25 3d 30 20 b8 20 49 25 2d 31 0d 03 34 61 e7 |K%=0 . I%-1..4a.|
00000640 20 56 25 28 49 25 29 3d 56 25 28 4b 25 29 20 80 | V%(I%)=V%(K%) .|
00000650 20 97 28 c1 44 24 2c 4f 25 3f 49 25 2b 31 2c 31 | .(.D$,O%?I%+1,1|
00000660 29 29 2b 97 28 c1 44 24 2c 4f 25 3f 4b 25 2b 31 |))+.(.D$,O%?K%+1|
00000670 2c 31 29 29 2d 97 28 22 41 22 29 2d 97 28 22 41 |,1))-.("A")-.("A|
00000680 22 29 3c 3e 31 31 20 8c 20 51 25 3d 49 25 2d 31 |")<>11 . Q%=I%-1|
00000690 3a 49 25 3d 4c 25 3a 4b 25 3d 4c 25 0d 03 3e 05 |:I%=L%:K%=L%..>.|
000006a0 ed 0d 03 48 0e e3 20 4a 25 3d 30 20 b8 20 32 0d |...H.. J%=0 . 2.|
000006b0 03 52 21 e7 20 4e 25 3f 4a 25 3c 6d 69 6e 28 4a |.R!. N%?J%<min(J|
000006c0 25 29 20 6d 69 6e 28 4a 25 29 3d 4e 25 3f 4a 25 |%) min(J%)=N%?J%|
000006d0 0d 03 5c 21 e7 20 4e 25 3f 4a 25 3e 6d 61 78 28 |..\!. N%?J%>max(|
000006e0 4a 25 29 20 6d 61 78 28 4a 25 29 3d 4e 25 3f 4a |J%) max(J%)=N%?J|
000006f0 25 0d 03 66 06 ed 2c 0d 03 70 0f e7 20 51 25 3c |%..f..,..p.. Q%<|
00000700 3e 32 35 35 20 e1 0d 03 7a 12 64 3d 30 3a e3 20 |>255 ...z.d=0:. |
00000710 4a 25 3d 30 20 b8 20 32 0d 03 84 2f 64 28 4a 25 |J%=0 . 2.../d(J%|
00000720 29 3d 28 6d 61 78 28 4a 25 29 2d 6d 69 6e 28 4a |)=(max(J%)-min(J|
00000730 25 29 2b 31 29 2f 32 3a 64 3d 64 2b 64 28 4a 25 |%)+1)/2:d=d+d(J%|
00000740 29 2a 64 28 4a 25 29 0d 03 8e 05 ed 0d 03 98 19 |)*d(J%).........|
00000750 54 25 3d 53 25 3a 64 3d b6 28 64 29 3a 53 25 3d |T%=S%:d=.(d):S%=|
00000760 34 38 30 2f 64 0d 03 a2 28 6d 69 6e 3d 6d 69 6e |480/d...(min=min|
00000770 28 30 29 2b 6d 69 6e 28 31 29 2a 32 35 36 2b 6d |(0)+min(1)*256+m|
00000780 69 6e 28 32 29 2a 32 35 36 2a 32 35 36 0d 03 ac |in(2)*256*256...|
00000790 0f e3 20 49 25 3d 30 20 b8 20 4c 25 0d 03 b6 15 |.. I%=0 . L%....|
000007a0 56 25 28 49 25 29 3d 56 25 28 49 25 29 2d 6d 69 |V%(I%)=V%(I%)-mi|
000007b0 6e 0d 03 c0 05 ed 0d 03 ca 05 e1 0d 03 d4 05 3a |n..............:|
000007c0 0d 03 de 0d dd f2 63 6f 6c 6f 75 72 73 0d 03 e8 |......colours...|
000007d0 17 43 25 3d 34 2d 43 25 3a ef 31 39 2c 31 2c 43 |.C%=4-C%:.19,1,C|
000007e0 25 3b 30 3b 0d 03 f2 17 43 25 3d 34 2d 43 25 3a |%;0;....C%=4-C%:|
000007f0 ef 31 39 2c 32 2c 43 25 3b 30 3b 0d 03 fc 0b 43 |.19,2,C%;0;....C|
00000800 25 3d 34 2d 43 25 0d 04 06 11 e3 20 49 25 3d 30 |%=4-C%..... I%=0|
00000810 b8 31 35 30 30 3a ed 0d 04 10 05 e1 0d 04 1a 05 |.1500:..........|
00000820 3a 0d 04 24 11 dd f2 76 69 65 77 28 61 78 69 73 |:..$...view(axis|
00000830 25 29 0d 04 2e 18 e3 20 49 25 3d 30 20 b8 20 32 |%)..... I%=0 . 2|
00000840 3a e3 20 4a 25 3d 30 b8 20 32 0d 04 38 2e e7 20 |:. J%=0. 2..8.. |
00000850 49 25 3d 28 4a 25 2b 61 78 69 73 25 29 83 33 20 |I%=(J%+axis%).3 |
00000860 75 28 49 25 2c 4a 25 29 3d 53 25 20 8b 20 75 28 |u(I%,J%)=S% . u(|
00000870 49 25 2c 4a 25 29 3d 30 0d 04 42 06 ed 2c 0d 04 |I%,J%)=0..B..,..|
00000880 4c 14 f2 63 6f 6f 72 64 73 3a f2 64 69 73 70 6c |L..coords:.displ|
00000890 61 79 0d 04 56 05 e1 0d 04 60 05 3a 0d 04 6a 0b |ay..V....`.:..j.|
000008a0 dd f2 73 63 61 6c 65 0d 04 74 18 e3 20 49 25 3d |..scale..t.. I%=|
000008b0 30 20 b8 20 32 3a e3 20 4a 25 3d 30 b8 20 32 0d |0 . 2:. J%=0. 2.|
000008c0 04 7e 1e 75 28 49 25 2c 4a 25 29 3d 75 28 49 25 |.~.u(I%,J%)=u(I%|
000008d0 2c 4a 25 29 2a 53 25 2f 54 25 3a ed 2c 0d 04 88 |,J%)*S%/T%:.,...|
000008e0 14 f2 63 6f 6f 72 64 73 3a f2 64 69 73 70 6c 61 |..coords:.displa|
000008f0 79 0d 04 92 05 e1 0d 04 9c 05 3a 0d 04 a6 18 dd |y.........:.....|
00000900 f2 74 75 72 6e 75 28 61 78 69 73 25 2c 73 69 67 |.turnu(axis%,sig|
00000910 6e 25 29 0d 04 b0 27 e7 20 a6 2d 31 20 61 3d af |n%)...'. .-1 a=.|
00000920 2f 36 20 8b 20 e7 20 a6 2d 32 20 61 3d af 2f 33 |/6 . . .-2 a=./3|
00000930 36 20 8b 20 61 3d af 2f 31 32 0d 04 ba 15 63 6f |6 . a=./12....co|
00000940 73 3d 9b 28 61 29 3a 73 69 6e 3d b5 28 61 29 0d |s=.(a):sin=.(a).|
00000950 04 c4 13 63 31 25 3d 28 61 78 69 73 25 2b 31 29 |...c1%=(axis%+1)|
00000960 83 33 0d 04 ce 13 63 32 25 3d 28 61 78 69 73 25 |.3....c2%=(axis%|
00000970 2b 32 29 83 33 0d 04 d8 0e e3 20 49 25 3d 30 20 |+2).3..... I%=0 |
00000980 b8 20 32 0d 04 e2 27 57 3d 75 28 49 25 2c 63 31 |. 2...'W=u(I%,c1|
00000990 25 29 2a 63 6f 73 2b 73 69 67 6e 25 2a 75 28 49 |%)*cos+sign%*u(I|
000009a0 25 2c 63 32 25 29 2a 73 69 6e 0d 04 ec 2f 75 28 |%,c2%)*sin.../u(|
000009b0 49 25 2c 63 32 25 29 3d 75 28 49 25 2c 63 32 25 |I%,c2%)=u(I%,c2%|
000009c0 29 2a 63 6f 73 2d 73 69 67 6e 25 2a 75 28 49 25 |)*cos-sign%*u(I%|
000009d0 2c 63 31 25 29 2a 73 69 6e 0d 04 f6 0f 75 28 49 |,c1%)*sin....u(I|
000009e0 25 2c 63 31 25 29 3d 57 0d 05 00 05 ed 0d 05 0a |%,c1%)=W........|
000009f0 14 f2 63 6f 6f 72 64 73 3a f2 64 69 73 70 6c 61 |..coords:.displa|
00000a00 79 0d 05 14 05 e1 0d 05 1e 05 3a 0d 05 28 0c dd |y.........:..(..|
00000a10 f2 63 6f 6f 72 64 73 0d 05 32 0e e3 20 49 25 3d |.coords..2.. I%=|
00000a20 30 20 b8 20 32 0d 05 3c 0d 43 28 30 2c 49 25 29 |0 . 2..<.C(0,I%)|
00000a30 3d 30 0d 05 46 13 43 28 31 2c 49 25 29 3d 75 28 |=0..F.C(1,I%)=u(|
00000a40 30 2c 49 25 29 0d 05 50 13 43 28 32 2c 49 25 29 |0,I%)..P.C(2,I%)|
00000a50 3d 75 28 31 2c 49 25 29 0d 05 5a 13 43 28 34 2c |=u(1,I%)..Z.C(4,|
00000a60 49 25 29 3d 75 28 32 2c 49 25 29 0d 05 64 1b 43 |I%)=u(2,I%)..d.C|
00000a70 28 33 2c 49 25 29 3d 43 28 31 2c 49 25 29 2b 43 |(3,I%)=C(1,I%)+C|
00000a80 28 32 2c 49 25 29 0d 05 6e 1b 43 28 35 2c 49 25 |(2,I%)..n.C(5,I%|
00000a90 29 3d 43 28 31 2c 49 25 29 2b 43 28 34 2c 49 25 |)=C(1,I%)+C(4,I%|
00000aa0 29 0d 05 78 1b 43 28 36 2c 49 25 29 3d 43 28 32 |)..x.C(6,I%)=C(2|
00000ab0 2c 49 25 29 2b 43 28 34 2c 49 25 29 0d 05 82 1b |,I%)+C(4,I%)....|
00000ac0 43 28 37 2c 49 25 29 3d 43 28 36 2c 49 25 29 2b |C(7,I%)=C(6,I%)+|
00000ad0 43 28 31 2c 49 25 29 0d 05 8c 05 ed 0d 05 96 05 |C(1,I%).........|
00000ae0 e1 0d 05 a0 05 3a 0d 05 aa 0f dd f2 64 69 73 70 |.....:......disp|
00000af0 6c 61 79 3a db 0d 05 b4 0f f1 8a 30 2c 33 31 29 |lay:.......0,31)|
00000b00 24 5a 25 3b 0d 05 be 0f e3 20 49 25 3d 30 20 b8 |$Z%;..... I%=0 .|
00000b10 20 4c 25 0d 05 c8 16 44 28 49 25 29 3d 30 3a 21 | L%....D(I%)=0:!|
00000b20 4e 25 3d 56 25 28 49 25 29 0d 05 d2 0e e3 20 4a |N%=V%(I%)..... J|
00000b30 25 3d 30 20 b8 20 32 0d 05 dc 1f 44 28 49 25 29 |%=0 . 2....D(I%)|
00000b40 3d 44 28 49 25 29 2b 28 4e 25 3f 4a 25 29 2a 75 |=D(I%)+(N%?J%)*u|
00000b50 28 4a 25 2c 32 29 0d 05 e6 06 ed 2c 0d 05 f0 1a |(J%,2).....,....|
00000b60 e3 20 47 25 3d 30 20 b8 20 4c 25 3a 4d 41 58 5a |. G%=0 . L%:MAXZ|
00000b70 3d 2d 31 30 30 30 0d 05 fa 0f e3 20 4b 25 3d 30 |=-1000..... K%=0|
00000b80 20 b8 20 4c 25 0d 06 04 21 e7 20 44 28 4b 25 29 | . L%...!. D(K%)|
00000b90 3e 4d 41 58 5a 20 49 25 3d 4b 25 3a 4d 41 58 5a |>MAXZ I%=K%:MAXZ|
00000ba0 3d 44 28 49 25 29 0d 06 0e 1a e7 20 44 28 4b 25 |=D(I%)..... D(K%|
00000bb0 29 3d 4d 41 58 5a 20 f2 73 61 6d 65 63 75 62 65 |)=MAXZ .samecube|
00000bc0 0d 06 18 05 ed 0d 06 22 1a 44 28 49 25 29 3d 2d |.......".D(I%)=-|
00000bd0 31 30 30 30 3a 21 4e 25 3d 56 25 28 49 25 29 0d |1000:!N%=V%(I%).|
00000be0 06 2c 0b 58 3d 30 3a 59 3d 30 0d 06 36 0e e3 20 |.,.X=0:Y=0..6.. |
00000bf0 4a 25 3d 30 20 b8 20 32 0d 06 40 1f 58 3d 58 2b |J%=0 . 2..@.X=X+|
00000c00 28 28 4e 25 3f 4a 25 29 2d 64 28 4a 25 29 29 2a |((N%?J%)-d(J%))*|
00000c10 75 28 4a 25 2c 30 29 0d 06 4a 1f 59 3d 59 2b 28 |u(J%,0)..J.Y=Y+(|
00000c20 28 4e 25 3f 4a 25 29 2d 64 28 4a 25 29 29 2a 75 |(N%?J%)-d(J%))*u|
00000c30 28 4a 25 2c 31 29 0d 06 54 05 ed 0d 06 5e 0d f2 |(J%,1)..T....^..|
00000c40 64 72 61 77 63 75 62 65 0d 06 68 05 ed 0d 06 72 |drawcube..h....r|
00000c50 05 e1 0d 06 7c 05 3a 0d 06 86 0e dd f2 73 61 6d |....|.:......sam|
00000c60 65 63 75 62 65 0d 06 90 16 e7 20 56 25 28 49 25 |ecube..... V%(I%|
00000c70 29 3c 3e 56 25 28 4b 25 29 20 e1 0d 06 9a 09 f2 |)<>V%(K%) ......|
00000c80 61 70 65 78 0d 06 a4 33 e7 20 43 28 41 31 25 2c |apex...3. C(A1%,|
00000c90 32 29 2b 43 28 41 32 25 2c 32 29 3e 43 28 41 31 |2)+C(A2%,2)>C(A1|
00000ca0 25 20 82 20 37 2c 32 29 2b 43 28 41 32 25 20 82 |% . 7,2)+C(A2% .|
00000cb0 20 37 2c 32 29 20 e1 0d 06 ae 14 49 25 3d 4b 25 | 7,2) .....I%=K%|
00000cc0 3a 4d 41 58 5a 3d 44 28 49 25 29 0d 06 b8 05 e1 |:MAXZ=D(I%).....|
00000cd0 0d 06 c2 05 3a 0d 06 cc 0a dd f2 61 70 65 78 0d |....:......apex.|
00000ce0 06 d6 0c 50 25 3d 4f 25 3f 49 25 0d 06 e0 12 43 |...P%=O%?I%....C|
00000cf0 32 25 3d 32 5e 28 50 25 20 81 20 38 29 0d 06 ea |2%=2^(P% . 8)...|
00000d00 15 53 32 25 3d 31 2d 28 50 25 20 81 20 34 29 83 |.S2%=1-(P% . 4).|
00000d10 20 32 0d 06 f4 16 43 31 25 3d bb 28 c1 42 24 2c | 2....C1%=.(.B$,|
00000d20 50 25 2b 31 2c 31 29 29 0d 06 fe 16 53 31 25 3d |P%+1,1))....S1%=|
00000d30 bb 28 c1 43 24 2c 50 25 2b 31 2c 31 29 29 0d 07 |.(.C$,P%+1,1))..|
00000d40 08 11 43 33 25 3d 37 2d 43 32 25 2d 43 31 25 0d |..C3%=7-C2%-C1%.|
00000d50 07 12 23 41 31 25 3d 43 31 25 2a 53 31 25 2b 43 |..#A1%=C1%*S1%+C|
00000d60 32 25 2a 53 32 25 3a 41 32 25 3d 41 31 25 2b 43 |2%*S2%:A2%=A1%+C|
00000d70 33 25 0d 07 1c 05 e1 0d 07 26 05 3a 0d 07 30 0e |3%.......&.:..0.|
00000d80 dd f2 64 72 61 77 63 75 62 65 0d 07 3a 09 f2 61 |..drawcube..:..a|
00000d90 70 65 78 0d 07 44 0d 42 25 3d 49 25 83 32 2b 31 |pex..D.B%=I%.2+1|
00000da0 0d 07 4e 1f 45 31 25 3d 41 31 25 20 82 20 43 31 |..N.E1%=A1% . C1|
00000db0 25 3a 45 32 25 3d 41 32 25 20 82 20 43 31 25 0d |%:E2%=A2% . C1%.|
00000dc0 07 58 1f 45 33 25 3d 41 31 25 20 82 20 43 32 25 |.X.E3%=A1% . C2%|
00000dd0 3a 45 34 25 3d 41 32 25 20 82 20 43 32 25 0d 07 |:E4%=A2% . C2%..|
00000de0 62 11 f4 20 73 71 75 61 72 65 20 66 61 63 65 0d |b.. square face.|
00000df0 07 6c 4b e7 20 43 28 41 31 25 2c 32 29 2b 43 28 |.lK. C(A1%,2)+C(|
00000e00 41 32 25 2c 32 29 3e 43 28 41 31 25 20 82 20 37 |A2%,2)>C(A1% . 7|
00000e10 2c 32 29 2b 43 28 41 32 25 20 82 20 37 2c 32 29 |,2)+C(A2% . 7,2)|
00000e20 20 8c 20 f2 73 68 61 70 65 28 45 31 25 2c 45 32 | . .shape(E1%,E2|
00000e30 25 2c 45 33 25 2c 45 34 25 29 0d 07 76 15 f4 20 |%,E3%,E4%)..v.. |
00000e40 74 72 69 61 6e 67 75 6c 61 72 20 66 61 63 65 0d |triangular face.|
00000e50 07 80 4f e7 20 43 28 43 33 25 2c 32 29 3c 30 20 |..O. C(C3%,2)<0 |
00000e60 f2 73 68 61 70 65 28 41 32 25 2c 45 32 25 2c 45 |.shape(A2%,E2%,E|
00000e70 34 25 2c 45 34 25 29 20 8b 20 e7 20 43 28 43 33 |4%,E4%) . . C(C3|
00000e80 25 2c 32 29 3e 30 20 f2 73 68 61 70 65 28 41 31 |%,2)>0 .shape(A1|
00000e90 25 2c 45 31 25 2c 45 33 25 2c 45 33 25 29 0d 07 |%,E1%,E3%,E3%)..|
00000ea0 8a 13 e7 20 49 25 3d 30 20 f2 73 71 75 61 72 65 |... I%=0 .square|
00000eb0 31 0d 07 94 14 e7 20 49 25 3d 4c 25 20 f2 73 71 |1..... I%=L% .sq|
00000ec0 75 61 72 65 32 0d 07 9e 05 e1 0d 07 a8 05 3a 0d |uare2.........:.|
00000ed0 07 b2 18 dd f2 73 68 61 70 65 28 61 25 2c 62 25 |.....shape(a%,b%|
00000ee0 2c 63 25 2c 64 25 29 0d 07 bc 0a e6 20 30 2c 42 |,c%,d%)..... 0,B|
00000ef0 25 0d 07 c6 19 ec 20 58 2b 43 28 61 25 2c 30 29 |%..... X+C(a%,0)|
00000f00 2c 59 2b 43 28 61 25 2c 31 29 0d 07 d0 19 ec 20 |,Y+C(a%,1)..... |
00000f10 58 2b 43 28 62 25 2c 30 29 2c 59 2b 43 28 62 25 |X+C(b%,0),Y+C(b%|
00000f20 2c 31 29 0d 07 da 1c f0 20 38 35 2c 58 2b 43 28 |,1)..... 85,X+C(|
00000f30 63 25 2c 30 29 2c 59 2b 43 28 63 25 2c 31 29 0d |c%,0),Y+C(c%,1).|
00000f40 07 e4 25 e7 20 64 25 3c 3e 63 25 20 f0 20 38 35 |..%. d%<>c% . 85|
00000f50 2c 58 2b 43 28 64 25 2c 30 29 2c 59 2b 43 28 64 |,X+C(d%,0),Y+C(d|
00000f60 25 2c 31 29 0d 07 ee 09 e6 20 30 2c 30 0d 07 f8 |%,1)..... 0,0...|
00000f70 19 df 20 58 2b 43 28 62 25 2c 30 29 2c 59 2b 43 |.. X+C(b%,0),Y+C|
00000f80 28 62 25 2c 31 29 0d 08 02 19 df 20 58 2b 43 28 |(b%,1)..... X+C(|
00000f90 61 25 2c 30 29 2c 59 2b 43 28 61 25 2c 31 29 0d |a%,0),Y+C(a%,1).|
00000fa0 08 0c 19 df 20 58 2b 43 28 63 25 2c 30 29 2c 59 |.... X+C(c%,0),Y|
00000fb0 2b 43 28 63 25 2c 31 29 0d 08 16 22 e7 20 64 25 |+C(c%,1)...". d%|
00000fc0 3c 3e 63 25 20 df 20 58 2b 43 28 64 25 2c 30 29 |<>c% . X+C(d%,0)|
00000fd0 2c 59 2b 43 28 64 25 2c 31 29 0d 08 20 05 e1 0d |,Y+C(d%,1).. ...|
00000fe0 08 2a 05 3a 0d 08 34 0d dd f2 73 71 75 61 72 65 |.*.:..4...square|
00000ff0 31 0d 08 3e 1b e7 20 43 28 43 31 25 2c 32 29 3c |1..>.. C(C1%,2)<|
00001000 3d 30 20 80 20 53 31 25 3d 30 20 e1 0d 08 48 1b |=0 . S1%=0 ...H.|
00001010 e7 20 43 28 43 31 25 2c 32 29 3e 3d 30 20 80 20 |. C(C1%,2)>=0 . |
00001020 53 31 25 3d 31 20 e1 0d 08 52 1b f2 73 68 61 70 |S1%=1 ...R..shap|
00001030 65 28 41 31 25 2c 41 32 25 2c 45 33 25 2c 45 34 |e(A1%,A2%,E3%,E4|
00001040 25 29 0d 08 5c 05 e1 0d 08 66 05 3a 0d 08 70 0d |%)..\....f.:..p.|
00001050 dd f2 73 71 75 61 72 65 32 0d 08 7a 1b e7 20 43 |..square2..z.. C|
00001060 28 43 32 25 2c 32 29 3c 3d 30 20 80 20 53 32 25 |(C2%,2)<=0 . S2%|
00001070 3d 30 20 e1 0d 08 84 1b e7 20 43 28 43 32 25 2c |=0 ...... C(C2%,|
00001080 32 29 3e 3d 30 20 80 20 53 32 25 3d 31 20 e1 0d |2)>=0 . S2%=1 ..|
00001090 08 8e 1b f2 73 68 61 70 65 28 41 31 25 2c 41 32 |....shape(A1%,A2|
000010a0 25 2c 45 31 25 2c 45 32 25 29 0d 08 98 05 e1 0d |%,E1%,E2%)......|
000010b0 ff |.|
000010b1 
.