Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_55.ADF » G/CW
G/CW
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_55.ADF |
| Filename: | G/CW |
| Read OK: | ✔ |
| File size: | 0ADB bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF802B |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-55_A-EUG55.adf » G/CW
- AEW website » eug » eug_5_25_discs_Eug-55_D-EUG55.dsd » G.CW
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_55.ADF » G/CW
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_55.adf » G/CW
File contents
10REM Codeword
20REM C.R.Dewhurst, May 2000
30:
40MODE4
50IF?&36B<>9 PROCinit
60VDU19,0,7;0;19,1,0;0;23,0,10,32;0;0;0;
70DIM grid%(11,11),playd% 25
80REPEAT CLS
90PROCmssg("CODEWORD")
100REPEAT INPUTTAB(11,17)"Which puzzle (0-9)",A%
110UNTIL A%>TRUE AND A%<10
130PROCscreen
140win%=0
150REPEAT
160PROCplay
170UNTIL win%
180CLS:PROCmssg("CONGRATULATIONS"):A=INKEY2000
190UNTIL FALSE
200END
210DEF PROCscreen
220CLS:PROCmssg("SHUFFLING"):PROCshuffle:CLS
230FOR Y%=0 TO 11
240FOR X%=0 TO 11
250PROCframe(X%,Y%)
260NEXT
270NEXT
280MOVE 32,223:PLOT 17,768,0:PLOT 17,0,768
290PRINTTAB(29,1)"CODEWORD"TAB(29,2)"--------"
300FOR Y%=2 TO 14:PROCnumber(14,Y%,Y%-1):PROCnumber(17,Y%,Y%+12):NEXT
310FOR X%=0 TO 12:PROCtile(X%,13,X%+1):PROCtile(X%,14,X%+14):NEXT
320FOR Y%=0 TO 11:FOR X%=0 TO 11:A%=grid%(X%,Y%):IF A% PROCnumber(X%,Y%,A%) ELSE PROCtile(X%,Y%,0)
330NEXT:NEXT
340FOR I%=0 TO 2:L%=RND(26)-1:N%=L%?playd%-1
350A%=L%+1:PROCadd:N%?playd%=27
360NEXT
370FOR X%=0 TO 25:IF X%?playd%<27 X%?playd%=0
380NEXT
390ENDPROC
400DEF PROCplay
410REPEAT
420PROCline
430INPUT"Letter and number",A$
440N%=VALRIGHT$(A$,2)-1:L%=ASCLEFT$(A$,1)-65
450UNTIL FNokay
460IF win% ENDPROC
470A%=L%+1
480IF N%=TRUE PROCsub ELSE PROCadd
490ENDPROC
500DEF PROCadd
510PROCblank(L% MOD 13,13+L%DIV13)
520PROCtile(15+N%DIV13*3,2+N% MOD13,A%)
530FOR Y%=0 TO 11:FOR X%=0 TO 11
540IF grid%(X%,Y%)=N%+1 PROCframe(X%,Y%):PROCtile(X%,Y%,A%)
550NEXT:NEXT
560N%?playd%=L%+1
570ENDPROC
580DEF PROCsub
590N%=FNlett(L%):IF N%=26 ENDPROC
600PROCtile(L%MOD13,13+L% DIV13,A%)
610PROCblank(15+N%DIV13*3,2+N% MOD13)
620A%=N%+1
630FOR Y%=0 TO 11:FOR X%=0 TO 11
640IF grid%(X%,Y%)=N%+1 PROCframe(X%,Y%):PROCnumber(X%,Y%,A%)
650NEXT:NEXT
660N%?playd%=0
670ENDPROC
680DEF FNsolvd
690C%=TRUE
700FOR y%=0 TO 11:FOR x%=0 TO 11
710A%=?(M%+y%*13+x%)-64
720B%=?(playd%-1+grid%(x%,y%))
730IF grid%(x%,y%)=0 OR B%=27 GOTO750
740IF A%<>B% C%=FALSE
750NEXT:NEXT
760=C%
770DEF FNokay
780IF A$="" win%=FNsolvd:=win%
790IF N%=TRUE THEN=TRUE
800IF LENA$<>3 OR L%<0 OR L%>25 OR N%>26 PROCerror("Invalid Input"):=0
810IF N%?playd% OR FNlett(L%)<26 PROCerror("Already Used"):=0
820=TRUE
830DEF FNlett(L%)
840X%=TRUE:REPEAT X%=X%+1:UNTIL X%?playd%=L%+1 OR X%=26
850=X%
860DEF PROCerror(A$)
870PROCline:PRINTA$"!";:A=INKEY100
880ENDPROC
890DEF PROCline
900PRINT TAB(0,26)STRING$(26," ")TAB(0,26);
910ENDPROC
920DEF PROCdel(A%)
930TIME=0:REPEATUNTILTIME>A%
940ENDPROC
950DEF PROCblank(X%,Y%)
960VDU 31,1+X%*2,1+Y%*2,32,32,8,8,10,32,32
970ENDPROC
980DEF PROCshuffle
990M%=&1100+A%*157
1000FOR X%=0 TO 25:X%?playd%=0:NEXT
1010FOR N%=1 TO 26:REPEAT
1020L%=RND(26)-1:UNTIL L%?playd%=0
1030L%?playd%=N%:NEXT
1040FOR Y%=0 TO 11:FOR X%=0 TO 11
1050A%=?(M%+X%+Y%*13)-65
1060IFA%>TRUE AND A%<28 grid%(X%,Y%)=A%?playd% ELSE grid%(X%,Y%)=0
1070NEXT:NEXT
1080ENDPROC
1090DEF PROCmssg(A$)
1100X%=(20-LENA$)DIV2
1110FOR I%=1 TO LEN A$:PROCtile(X%,6,ASCMID$(A$,I%,1)-64)
1120X%=X%+1:NEXT
1130ENDPROC
1140DEF PROCnumber(X%,Y%,A%)
1150MOVE 32+X%*64,991-Y%*64
1160VDU 5,232+A% DIV 10
1170PLOT 0,-16,0:VDU 232+A% MOD 10,4
1180ENDPROC
1190DEF PROCtile(X%,Y%,A%)
1200MOVE 32+X%*64,991-Y%*64
1210IFA%=0 VDU5,242,242,10,8,8,242,242,4:ENDPROC
1220A%=124+A%*4:VDU5,A%,A%+1,10,8,8,A%+2,A%+3,4
1230ENDPROC
1240DEF PROCframe(X%,Y%)
1250VDU 31,1+X%*2,1+Y%*2,243,244,10,8,8,245,32
1260ENDPROC
1270DEF PROCinit
1280*L. G.CW-FNTS 900
1290?&367=15:!&36B=&0C0B0A09
1300*L. G.CW-DAT1 1100
1310IF INKEY-256<>253 ENDPROC
1320A%=&900
1330FOR V%=128 TO 255:VDU 23,V%
1340FOR X%=0 TO 7:VDU X%?A%:NEXT
1350A%=A%+8:NEXT
1360ENDPROC
� Codeword
� C.R.Dewhurst, May 2000
:
(�4
2�?&36B<>9 �init
<(�19,0,7;0;19,1,0;0;23,0,10,32;0;0;0;
F � grid%(11,11),playd% 25
P� �
Z�mssg("CODEWORD")
d%� �11,17)"Which puzzle (0-9)",A%
n� A%>� � A%<10
� �screen
�
win%=0
��
� �play
�
� win%
�&�:�mssg("CONGRATULATIONS"):A=�2000
�� �
��
�
� �screen
�#�:�mssg("SHUFFLING"):�shuffle:�
�� Y%=0 � 11
�� X%=0 � 11
��frame(X%,Y%)
�
�
"� 32,223:� 17,768,0:� 17,0,768
"%�29,1)"CODEWORD"�29,2)"--------"
,:� Y%=2 � 14:�number(14,Y%,Y%-1):�number(17,Y%,Y%+12):�
66� X%=0 � 12:�tile(X%,13,X%+1):�tile(X%,14,X%+14):�
@S� Y%=0 � 11:� X%=0 � 11:A%=grid%(X%,Y%):� A% �number(X%,Y%,A%) � �tile(X%,Y%,0)
J�:�
T(� I%=0 � 2:L%=�(26)-1:N%=L%?playd%-1
^ A%=L%+1:�add:N%?playd%=27
h�
r*� X%=0 � 25:� X%?playd%<27 X%?playd%=0
|�
��
� � �play
��
� �line
��"Letter and number",A$
� N%=��A$,2)-1:L%=��A$,1)-65
� � �okay
� � win% �
� A%=L%+1
�� N%=� �sub � �add
��
�
� �add
� �blank(L% � 13,13+L%�13)
!�tile(15+N%�13*3,2+N% �13,A%)
� Y%=0 � 11:� X%=0 � 11
5� grid%(X%,Y%)=N%+1 �frame(X%,Y%):�tile(X%,Y%,A%)
&�:�
0N%?playd%=L%+1
:�
D
� �sub
NN%=�lett(L%):� N%=26 �
X �tile(L%�13,13+L% �13,A%)
b �blank(15+N%�13*3,2+N% �13)
l A%=N%+1
v� Y%=0 � 11:� X%=0 � 11
�7� grid%(X%,Y%)=N%+1 �frame(X%,Y%):�number(X%,Y%,A%)
��:�
�N%?playd%=0
��
� � �solvd
�C%=�
�� y%=0 � 11:� x%=0 � 11
�A%=?(M%+y%*13+x%)-64
� B%=?(playd%-1+grid%(x%,y%))
�"� grid%(x%,y%)=0 � B%=27 �dnB
�� A%<>B% C%=�
��:�
�=C%
� �okay
� A$="" win%=�solvd:=win%
� N%=� �=�
>� �A$<>3 � L%<0 � L%>25 � N%>26 �error("Invalid Input"):=0
*8� N%?playd% � �lett(L%)<26 �error("Already Used"):=0
4=�
>� �lett(L%)
H+X%=�:� X%=X%+1:� X%?playd%=L%+1 � X%=26
R=X%
\� �error(A$)
f�line:�A$"!";:A=�100
p�
z � �line
�� �0,26)�26," ")�0,26);
��
�� �del(A%)
��=0:���>A%
��
�� �blank(X%,Y%)
�)� 31,1+X%*2,1+Y%*2,32,32,8,8,10,32,32
��
�� �shuffle
�M%=&1100+A%*157
� � X%=0 � 25:X%?playd%=0:�
�� N%=1 � 26:�
� L%=�(26)-1:� L%?playd%=0
L%?playd%=N%:�
� Y%=0 � 11:� X%=0 � 11
A%=?(M%+X%+Y%*13)-65
$9�A%>� � A%<28 grid%(X%,Y%)=A%?playd% � grid%(X%,Y%)=0
.�:�
8�
B� �mssg(A$)
LX%=(20-�A$)�2
V+� I%=1 � � A$:�tile(X%,6,��A$,I%,1)-64)
`
X%=X%+1:�
j�
t� �number(X%,Y%,A%)
~� 32+X%*64,991-Y%*64
�� 5,232+A% � 10
� � 0,-16,0:� 232+A% � 10,4
��
�� �tile(X%,Y%,A%)
�� 32+X%*64,991-Y%*64
�'�A%=0 �5,242,242,10,8,8,242,242,4:�
�-A%=124+A%*4:�5,A%,A%+1,10,8,8,A%+2,A%+3,4
��
�� �frame(X%,Y%)
�,� 31,1+X%*2,1+Y%*2,243,244,10,8,8,245,32
��
� � �init
*L. G.CW-FNTS 900
?&367=15:!&36B=&0C0B0A09
*L. G.CW-DAT1 1100
� �-256<>253 �
( A%=&900
2� V%=128 � 255:� 23,V%
<� X%=0 � 7:� X%?A%:�
F
A%=A%+8:�
P�
� 00000000 0d 00 0a 0e f4 20 43 6f 64 65 77 6f 72 64 0d 00 |..... Codeword..|
00000010 14 1c f4 20 43 2e 52 2e 44 65 77 68 75 72 73 74 |... C.R.Dewhurst|
00000020 2c 20 4d 61 79 20 32 30 30 30 0d 00 1e 05 3a 0d |, May 2000....:.|
00000030 00 28 06 eb 34 0d 00 32 13 e7 3f 26 33 36 42 3c |.(..4..2..?&36B<|
00000040 3e 39 20 f2 69 6e 69 74 0d 00 3c 28 ef 31 39 2c |>9 .init..<(.19,|
00000050 30 2c 37 3b 30 3b 31 39 2c 31 2c 30 3b 30 3b 32 |0,7;0;19,1,0;0;2|
00000060 33 2c 30 2c 31 30 2c 33 32 3b 30 3b 30 3b 30 3b |3,0,10,32;0;0;0;|
00000070 0d 00 46 1c de 20 67 72 69 64 25 28 31 31 2c 31 |..F.. grid%(11,1|
00000080 31 29 2c 70 6c 61 79 64 25 20 32 35 0d 00 50 07 |1),playd% 25..P.|
00000090 f5 20 db 0d 00 5a 15 f2 6d 73 73 67 28 22 43 4f |. ...Z..mssg("CO|
000000a0 44 45 57 4f 52 44 22 29 0d 00 64 25 f5 20 e8 8a |DEWORD")..d%. ..|
000000b0 31 31 2c 31 37 29 22 57 68 69 63 68 20 70 75 7a |11,17)"Which puz|
000000c0 7a 6c 65 20 28 30 2d 39 29 22 2c 41 25 0d 00 6e |zle (0-9)",A%..n|
000000d0 12 fd 20 41 25 3e b9 20 80 20 41 25 3c 31 30 0d |.. A%>. . A%<10.|
000000e0 00 82 0b f2 73 63 72 65 65 6e 0d 00 8c 0a 77 69 |....screen....wi|
000000f0 6e 25 3d 30 0d 00 96 05 f5 0d 00 a0 09 f2 70 6c |n%=0..........pl|
00000100 61 79 0d 00 aa 0a fd 20 77 69 6e 25 0d 00 b4 26 |ay..... win%...&|
00000110 db 3a f2 6d 73 73 67 28 22 43 4f 4e 47 52 41 54 |.:.mssg("CONGRAT|
00000120 55 4c 41 54 49 4f 4e 53 22 29 3a 41 3d a6 32 30 |ULATIONS"):A=.20|
00000130 30 30 0d 00 be 07 fd 20 a3 0d 00 c8 05 e0 0d 00 |00..... ........|
00000140 d2 0d dd 20 f2 73 63 72 65 65 6e 0d 00 dc 23 db |... .screen...#.|
00000150 3a f2 6d 73 73 67 28 22 53 48 55 46 46 4c 49 4e |:.mssg("SHUFFLIN|
00000160 47 22 29 3a f2 73 68 75 66 66 6c 65 3a db 0d 00 |G"):.shuffle:...|
00000170 e6 0f e3 20 59 25 3d 30 20 b8 20 31 31 0d 00 f0 |... Y%=0 . 11...|
00000180 0f e3 20 58 25 3d 30 20 b8 20 31 31 0d 00 fa 11 |.. X%=0 . 11....|
00000190 f2 66 72 61 6d 65 28 58 25 2c 59 25 29 0d 01 04 |.frame(X%,Y%)...|
000001a0 05 ed 0d 01 0e 05 ed 0d 01 18 22 ec 20 33 32 2c |..........". 32,|
000001b0 32 32 33 3a f0 20 31 37 2c 37 36 38 2c 30 3a f0 |223:. 17,768,0:.|
000001c0 20 31 37 2c 30 2c 37 36 38 0d 01 22 25 f1 8a 32 | 17,0,768.."%..2|
000001d0 39 2c 31 29 22 43 4f 44 45 57 4f 52 44 22 8a 32 |9,1)"CODEWORD".2|
000001e0 39 2c 32 29 22 2d 2d 2d 2d 2d 2d 2d 2d 22 0d 01 |9,2)"--------"..|
000001f0 2c 3a e3 20 59 25 3d 32 20 b8 20 31 34 3a f2 6e |,:. Y%=2 . 14:.n|
00000200 75 6d 62 65 72 28 31 34 2c 59 25 2c 59 25 2d 31 |umber(14,Y%,Y%-1|
00000210 29 3a f2 6e 75 6d 62 65 72 28 31 37 2c 59 25 2c |):.number(17,Y%,|
00000220 59 25 2b 31 32 29 3a ed 0d 01 36 36 e3 20 58 25 |Y%+12):...66. X%|
00000230 3d 30 20 b8 20 31 32 3a f2 74 69 6c 65 28 58 25 |=0 . 12:.tile(X%|
00000240 2c 31 33 2c 58 25 2b 31 29 3a f2 74 69 6c 65 28 |,13,X%+1):.tile(|
00000250 58 25 2c 31 34 2c 58 25 2b 31 34 29 3a ed 0d 01 |X%,14,X%+14):...|
00000260 40 53 e3 20 59 25 3d 30 20 b8 20 31 31 3a e3 20 |@S. Y%=0 . 11:. |
00000270 58 25 3d 30 20 b8 20 31 31 3a 41 25 3d 67 72 69 |X%=0 . 11:A%=gri|
00000280 64 25 28 58 25 2c 59 25 29 3a e7 20 41 25 20 f2 |d%(X%,Y%):. A% .|
00000290 6e 75 6d 62 65 72 28 58 25 2c 59 25 2c 41 25 29 |number(X%,Y%,A%)|
000002a0 20 8b 20 f2 74 69 6c 65 28 58 25 2c 59 25 2c 30 | . .tile(X%,Y%,0|
000002b0 29 0d 01 4a 07 ed 3a ed 0d 01 54 28 e3 20 49 25 |)..J..:...T(. I%|
000002c0 3d 30 20 b8 20 32 3a 4c 25 3d b3 28 32 36 29 2d |=0 . 2:L%=.(26)-|
000002d0 31 3a 4e 25 3d 4c 25 3f 70 6c 61 79 64 25 2d 31 |1:N%=L%?playd%-1|
000002e0 0d 01 5e 1d 41 25 3d 4c 25 2b 31 3a f2 61 64 64 |..^.A%=L%+1:.add|
000002f0 3a 4e 25 3f 70 6c 61 79 64 25 3d 32 37 0d 01 68 |:N%?playd%=27..h|
00000300 05 ed 0d 01 72 2a e3 20 58 25 3d 30 20 b8 20 32 |....r*. X%=0 . 2|
00000310 35 3a e7 20 58 25 3f 70 6c 61 79 64 25 3c 32 37 |5:. X%?playd%<27|
00000320 20 58 25 3f 70 6c 61 79 64 25 3d 30 0d 01 7c 05 | X%?playd%=0..|.|
00000330 ed 0d 01 86 05 e1 0d 01 90 0b dd 20 f2 70 6c 61 |........... .pla|
00000340 79 0d 01 9a 05 f5 0d 01 a4 09 f2 6c 69 6e 65 0d |y..........line.|
00000350 01 ae 1b e8 22 4c 65 74 74 65 72 20 61 6e 64 20 |...."Letter and |
00000360 6e 75 6d 62 65 72 22 2c 41 24 0d 01 b8 1e 4e 25 |number",A$....N%|
00000370 3d bb c2 41 24 2c 32 29 2d 31 3a 4c 25 3d 97 c0 |=..A$,2)-1:L%=..|
00000380 41 24 2c 31 29 2d 36 35 0d 01 c2 0b fd 20 a4 6f |A$,1)-65..... .o|
00000390 6b 61 79 0d 01 cc 0c e7 20 77 69 6e 25 20 e1 0d |kay..... win% ..|
000003a0 01 d6 0b 41 25 3d 4c 25 2b 31 0d 01 e0 16 e7 20 |...A%=L%+1..... |
000003b0 4e 25 3d b9 20 f2 73 75 62 20 8b 20 f2 61 64 64 |N%=. .sub . .add|
000003c0 0d 01 ea 05 e1 0d 01 f4 0a dd 20 f2 61 64 64 0d |.......... .add.|
000003d0 01 fe 1c f2 62 6c 61 6e 6b 28 4c 25 20 83 20 31 |....blank(L% . 1|
000003e0 33 2c 31 33 2b 4c 25 81 31 33 29 0d 02 08 21 f2 |3,13+L%.13)...!.|
000003f0 74 69 6c 65 28 31 35 2b 4e 25 81 31 33 2a 33 2c |tile(15+N%.13*3,|
00000400 32 2b 4e 25 20 83 31 33 2c 41 25 29 0d 02 12 1b |2+N% .13,A%)....|
00000410 e3 20 59 25 3d 30 20 b8 20 31 31 3a e3 20 58 25 |. Y%=0 . 11:. X%|
00000420 3d 30 20 b8 20 31 31 0d 02 1c 35 e7 20 67 72 69 |=0 . 11...5. gri|
00000430 64 25 28 58 25 2c 59 25 29 3d 4e 25 2b 31 20 f2 |d%(X%,Y%)=N%+1 .|
00000440 66 72 61 6d 65 28 58 25 2c 59 25 29 3a f2 74 69 |frame(X%,Y%):.ti|
00000450 6c 65 28 58 25 2c 59 25 2c 41 25 29 0d 02 26 07 |le(X%,Y%,A%)..&.|
00000460 ed 3a ed 0d 02 30 12 4e 25 3f 70 6c 61 79 64 25 |.:...0.N%?playd%|
00000470 3d 4c 25 2b 31 0d 02 3a 05 e1 0d 02 44 0a dd 20 |=L%+1..:....D.. |
00000480 f2 73 75 62 0d 02 4e 1a 4e 25 3d a4 6c 65 74 74 |.sub..N.N%=.lett|
00000490 28 4c 25 29 3a e7 20 4e 25 3d 32 36 20 e1 0d 02 |(L%):. N%=26 ...|
000004a0 58 1d f2 74 69 6c 65 28 4c 25 83 31 33 2c 31 33 |X..tile(L%.13,13|
000004b0 2b 4c 25 20 81 31 33 2c 41 25 29 0d 02 62 1f f2 |+L% .13,A%)..b..|
000004c0 62 6c 61 6e 6b 28 31 35 2b 4e 25 81 31 33 2a 33 |blank(15+N%.13*3|
000004d0 2c 32 2b 4e 25 20 83 31 33 29 0d 02 6c 0b 41 25 |,2+N% .13)..l.A%|
000004e0 3d 4e 25 2b 31 0d 02 76 1b e3 20 59 25 3d 30 20 |=N%+1..v.. Y%=0 |
000004f0 b8 20 31 31 3a e3 20 58 25 3d 30 20 b8 20 31 31 |. 11:. X%=0 . 11|
00000500 0d 02 80 37 e7 20 67 72 69 64 25 28 58 25 2c 59 |...7. grid%(X%,Y|
00000510 25 29 3d 4e 25 2b 31 20 f2 66 72 61 6d 65 28 58 |%)=N%+1 .frame(X|
00000520 25 2c 59 25 29 3a f2 6e 75 6d 62 65 72 28 58 25 |%,Y%):.number(X%|
00000530 2c 59 25 2c 41 25 29 0d 02 8a 07 ed 3a ed 0d 02 |,Y%,A%).....:...|
00000540 94 0f 4e 25 3f 70 6c 61 79 64 25 3d 30 0d 02 9e |..N%?playd%=0...|
00000550 05 e1 0d 02 a8 0c dd 20 a4 73 6f 6c 76 64 0d 02 |....... .solvd..|
00000560 b2 08 43 25 3d b9 0d 02 bc 1b e3 20 79 25 3d 30 |..C%=...... y%=0|
00000570 20 b8 20 31 31 3a e3 20 78 25 3d 30 20 b8 20 31 | . 11:. x%=0 . 1|
00000580 31 0d 02 c6 18 41 25 3d 3f 28 4d 25 2b 79 25 2a |1....A%=?(M%+y%*|
00000590 31 33 2b 78 25 29 2d 36 34 0d 02 d0 1f 42 25 3d |13+x%)-64....B%=|
000005a0 3f 28 70 6c 61 79 64 25 2d 31 2b 67 72 69 64 25 |?(playd%-1+grid%|
000005b0 28 78 25 2c 79 25 29 29 0d 02 da 22 e7 20 67 72 |(x%,y%))...". gr|
000005c0 69 64 25 28 78 25 2c 79 25 29 3d 30 20 84 20 42 |id%(x%,y%)=0 . B|
000005d0 25 3d 32 37 20 e5 8d 64 6e 42 0d 02 e4 11 e7 20 |%=27 ..dnB..... |
000005e0 41 25 3c 3e 42 25 20 43 25 3d a3 0d 02 ee 07 ed |A%<>B% C%=......|
000005f0 3a ed 0d 02 f8 07 3d 43 25 0d 03 02 0b dd 20 a4 |:.....=C%..... .|
00000600 6f 6b 61 79 0d 03 0c 1d e7 20 41 24 3d 22 22 20 |okay..... A$="" |
00000610 77 69 6e 25 3d a4 73 6f 6c 76 64 3a 3d 77 69 6e |win%=.solvd:=win|
00000620 25 0d 03 16 0e e7 20 4e 25 3d b9 20 8c 3d b9 0d |%..... N%=. .=..|
00000630 03 20 3e e7 20 a9 41 24 3c 3e 33 20 84 20 4c 25 |. >. .A$<>3 . L%|
00000640 3c 30 20 84 20 4c 25 3e 32 35 20 84 20 4e 25 3e |<0 . L%>25 . N%>|
00000650 32 36 20 f2 65 72 72 6f 72 28 22 49 6e 76 61 6c |26 .error("Inval|
00000660 69 64 20 49 6e 70 75 74 22 29 3a 3d 30 0d 03 2a |id Input"):=0..*|
00000670 38 e7 20 4e 25 3f 70 6c 61 79 64 25 20 84 20 a4 |8. N%?playd% . .|
00000680 6c 65 74 74 28 4c 25 29 3c 32 36 20 f2 65 72 72 |lett(L%)<26 .err|
00000690 6f 72 28 22 41 6c 72 65 61 64 79 20 55 73 65 64 |or("Already Used|
000006a0 22 29 3a 3d 30 0d 03 34 06 3d b9 0d 03 3e 0f dd |"):=0..4.=...>..|
000006b0 20 a4 6c 65 74 74 28 4c 25 29 0d 03 48 2b 58 25 | .lett(L%)..H+X%|
000006c0 3d b9 3a f5 20 58 25 3d 58 25 2b 31 3a fd 20 58 |=.:. X%=X%+1:. X|
000006d0 25 3f 70 6c 61 79 64 25 3d 4c 25 2b 31 20 84 20 |%?playd%=L%+1 . |
000006e0 58 25 3d 32 36 0d 03 52 07 3d 58 25 0d 03 5c 10 |X%=26..R.=X%..\.|
000006f0 dd 20 f2 65 72 72 6f 72 28 41 24 29 0d 03 66 18 |. .error(A$)..f.|
00000700 f2 6c 69 6e 65 3a f1 41 24 22 21 22 3b 3a 41 3d |.line:.A$"!";:A=|
00000710 a6 31 30 30 0d 03 70 05 e1 0d 03 7a 0b dd 20 f2 |.100..p....z.. .|
00000720 6c 69 6e 65 0d 03 84 1b f1 20 8a 30 2c 32 36 29 |line..... .0,26)|
00000730 c4 32 36 2c 22 20 22 29 8a 30 2c 32 36 29 3b 0d |.26," ").0,26);.|
00000740 03 8e 05 e1 0d 03 98 0e dd 20 f2 64 65 6c 28 41 |......... .del(A|
00000750 25 29 0d 03 a2 0e d1 3d 30 3a f5 fd 91 3e 41 25 |%).....=0:...>A%|
00000760 0d 03 ac 05 e1 0d 03 b6 13 dd 20 f2 62 6c 61 6e |.......... .blan|
00000770 6b 28 58 25 2c 59 25 29 0d 03 c0 29 ef 20 33 31 |k(X%,Y%)...). 31|
00000780 2c 31 2b 58 25 2a 32 2c 31 2b 59 25 2a 32 2c 33 |,1+X%*2,1+Y%*2,3|
00000790 32 2c 33 32 2c 38 2c 38 2c 31 30 2c 33 32 2c 33 |2,32,8,8,10,32,3|
000007a0 32 0d 03 ca 05 e1 0d 03 d4 0e dd 20 f2 73 68 75 |2.......... .shu|
000007b0 66 66 6c 65 0d 03 de 13 4d 25 3d 26 31 31 30 30 |ffle....M%=&1100|
000007c0 2b 41 25 2a 31 35 37 0d 03 e8 1d e3 20 58 25 3d |+A%*157..... X%=|
000007d0 30 20 b8 20 32 35 3a 58 25 3f 70 6c 61 79 64 25 |0 . 25:X%?playd%|
000007e0 3d 30 3a ed 0d 03 f2 11 e3 20 4e 25 3d 31 20 b8 |=0:...... N%=1 .|
000007f0 20 32 36 3a f5 0d 03 fc 1c 4c 25 3d b3 28 32 36 | 26:.....L%=.(26|
00000800 29 2d 31 3a fd 20 4c 25 3f 70 6c 61 79 64 25 3d |)-1:. L%?playd%=|
00000810 30 0d 04 06 12 4c 25 3f 70 6c 61 79 64 25 3d 4e |0....L%?playd%=N|
00000820 25 3a ed 0d 04 10 1b e3 20 59 25 3d 30 20 b8 20 |%:...... Y%=0 . |
00000830 31 31 3a e3 20 58 25 3d 30 20 b8 20 31 31 0d 04 |11:. X%=0 . 11..|
00000840 1a 18 41 25 3d 3f 28 4d 25 2b 58 25 2b 59 25 2a |..A%=?(M%+X%+Y%*|
00000850 31 33 29 2d 36 35 0d 04 24 39 e7 41 25 3e b9 20 |13)-65..$9.A%>. |
00000860 80 20 41 25 3c 32 38 20 67 72 69 64 25 28 58 25 |. A%<28 grid%(X%|
00000870 2c 59 25 29 3d 41 25 3f 70 6c 61 79 64 25 20 8b |,Y%)=A%?playd% .|
00000880 20 67 72 69 64 25 28 58 25 2c 59 25 29 3d 30 0d | grid%(X%,Y%)=0.|
00000890 04 2e 07 ed 3a ed 0d 04 38 05 e1 0d 04 42 0f dd |....:...8....B..|
000008a0 20 f2 6d 73 73 67 28 41 24 29 0d 04 4c 11 58 25 | .mssg(A$)..L.X%|
000008b0 3d 28 32 30 2d a9 41 24 29 81 32 0d 04 56 2b e3 |=(20-.A$).2..V+.|
000008c0 20 49 25 3d 31 20 b8 20 a9 20 41 24 3a f2 74 69 | I%=1 . . A$:.ti|
000008d0 6c 65 28 58 25 2c 36 2c 97 c1 41 24 2c 49 25 2c |le(X%,6,..A$,I%,|
000008e0 31 29 2d 36 34 29 0d 04 60 0d 58 25 3d 58 25 2b |1)-64)..`.X%=X%+|
000008f0 31 3a ed 0d 04 6a 05 e1 0d 04 74 17 dd 20 f2 6e |1:...j....t.. .n|
00000900 75 6d 62 65 72 28 58 25 2c 59 25 2c 41 25 29 0d |umber(X%,Y%,A%).|
00000910 04 7e 18 ec 20 33 32 2b 58 25 2a 36 34 2c 39 39 |.~.. 32+X%*64,99|
00000920 31 2d 59 25 2a 36 34 0d 04 88 13 ef 20 35 2c 32 |1-Y%*64..... 5,2|
00000930 33 32 2b 41 25 20 81 20 31 30 0d 04 92 1d f0 20 |32+A% . 10..... |
00000940 30 2c 2d 31 36 2c 30 3a ef 20 32 33 32 2b 41 25 |0,-16,0:. 232+A%|
00000950 20 83 20 31 30 2c 34 0d 04 9c 05 e1 0d 04 a6 15 | . 10,4.........|
00000960 dd 20 f2 74 69 6c 65 28 58 25 2c 59 25 2c 41 25 |. .tile(X%,Y%,A%|
00000970 29 0d 04 b0 18 ec 20 33 32 2b 58 25 2a 36 34 2c |)..... 32+X%*64,|
00000980 39 39 31 2d 59 25 2a 36 34 0d 04 ba 27 e7 41 25 |991-Y%*64...'.A%|
00000990 3d 30 20 ef 35 2c 32 34 32 2c 32 34 32 2c 31 30 |=0 .5,242,242,10|
000009a0 2c 38 2c 38 2c 32 34 32 2c 32 34 32 2c 34 3a e1 |,8,8,242,242,4:.|
000009b0 0d 04 c4 2d 41 25 3d 31 32 34 2b 41 25 2a 34 3a |...-A%=124+A%*4:|
000009c0 ef 35 2c 41 25 2c 41 25 2b 31 2c 31 30 2c 38 2c |.5,A%,A%+1,10,8,|
000009d0 38 2c 41 25 2b 32 2c 41 25 2b 33 2c 34 0d 04 ce |8,A%+2,A%+3,4...|
000009e0 05 e1 0d 04 d8 13 dd 20 f2 66 72 61 6d 65 28 58 |....... .frame(X|
000009f0 25 2c 59 25 29 0d 04 e2 2c ef 20 33 31 2c 31 2b |%,Y%)...,. 31,1+|
00000a00 58 25 2a 32 2c 31 2b 59 25 2a 32 2c 32 34 33 2c |X%*2,1+Y%*2,243,|
00000a10 32 34 34 2c 31 30 2c 38 2c 38 2c 32 34 35 2c 33 |244,10,8,8,245,3|
00000a20 32 0d 04 ec 05 e1 0d 04 f6 0b dd 20 f2 69 6e 69 |2.......... .ini|
00000a30 74 0d 05 00 15 2a 4c 2e 20 47 2e 43 57 2d 46 4e |t....*L. G.CW-FN|
00000a40 54 53 20 39 30 30 0d 05 0a 1c 3f 26 33 36 37 3d |TS 900....?&367=|
00000a50 31 35 3a 21 26 33 36 42 3d 26 30 43 30 42 30 41 |15:!&36B=&0C0B0A|
00000a60 30 39 0d 05 14 16 2a 4c 2e 20 47 2e 43 57 2d 44 |09....*L. G.CW-D|
00000a70 41 54 31 20 31 31 30 30 0d 05 1e 12 e7 20 a6 2d |AT1 1100..... .-|
00000a80 32 35 36 3c 3e 32 35 33 20 e1 0d 05 28 0b 41 25 |256<>253 ...(.A%|
00000a90 3d 26 39 30 30 0d 05 32 1a e3 20 56 25 3d 31 32 |=&900..2.. V%=12|
00000aa0 38 20 b8 20 32 35 35 3a ef 20 32 33 2c 56 25 0d |8 . 255:. 23,V%.|
00000ab0 05 3c 18 e3 20 58 25 3d 30 20 b8 20 37 3a ef 20 |.<.. X%=0 . 7:. |
00000ac0 58 25 3f 41 25 3a ed 0d 05 46 0d 41 25 3d 41 25 |X%?A%:...F.A%=A%|
00000ad0 2b 38 3a ed 0d 05 50 05 e1 0d ff |+8:...P....|
00000adb 
G/CW.m0
G/CW.m1
G/CW.m2
G/CW.m4
G/CW.m5
.