� > <BasicSave$Dir>.WRITE1
� by Mike Goldberg
� (c) Acorn Computing
(�1
2�23,1,0;0;0;0;0;
<�19,3,4;0;
F�23,255,0,0,24,60,60,24,0,0
PA$=�255
Z�5
d�0,2
n
x� == START CO-ORDINATES
�SX%=352:SY%=640
�� ******************
�
�X%=SX%:Y%=SY%
�
�write
�SX%=SX%+120:SY%=SY%-64
�X%=SX%:Y%=SY%
�
�write
��
�� ==WRITE-PROC
���write
��X%,Y%:�A$
��

TT%=�+1

�x%,y%:x%=x%*4:y%=y%*4

X%=X%+x%

"Y%=Y%+y%

,�0,2

6�x%=-4000�y%=32�D^A

@� == LASER WRITING

J)� GCOL3,1:MOVE640,320:DRAWX%+28,Y%-32

T� == ORDINARY WRITING

^�0,2:�X%,Y%:�A$

h

r� == TWO COLOURS

|#� GCOL0,3:MOVEX%+8,Y%+8:PRINTA$

��� �>TT%

�
�x%=-4000

��

�� =="D"

�x�0,-1,0,-1,-1,-3,-1,-3,-1,-3,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-1,-1,-1,-1,-1,-2,-1,-2,-1,-3,-1,-2,0,-2,1

���-1,1,-1,2,0,1,0,1,0,1,1,1,2,1,1,0,1,0,1,0,2,-1,2,-1,8,-7,1,0,2,0,2,0,2,0,1,0,3,1,3,1,2,1,2,1,1,1,1,1,1,1,1,1,1,2,1,2,1,3,1,3,0,2,0,2,0,2,-1,3,-1,3,-2,3,-2,2,-2,1,-2,1,-3,1,-2,0,-2,0,-3,-1,-2,-1,-2,-1,-1,-2,-1,-3

��-1000,0

�� =="O"

�@�-1,0,-3,-1,-2,-1,-1,-1,-1,-2,-1,-2,0,-2,0,-1,1,-3,1,-1,2,-1

��1,0,2,0,3,1,2,1,2,2

��1,2,0,1,0,2,-1,2

�� =="M" 1st leg

��1,1,2,1,2,1,3,1
�1,0,2,0,1,-1,-2,-2
�-1,-2,-1,-2,-1,-2
�-1,-2,-1,-2,-1,-2
&� =="M" 2nd leg
0<�11,15,1,0,2,-1,0,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
:� =="M" 3rd leg
D
�9,14,2,1
N*�1,0,2,-1,0,-2,-1,-2,-1,-2,-1,-2,-1,-2
X�-1,-2,0,-1,1,-1
b� =="I"
l�2,0,1,0,2,1,2,2,2,3
v�2,3,2,3,1,3
��3,8,-3,-8
�� =="N" UP STROKE
��-6,-15
�$�2,0,1,0,2,1,2,2,2,3,2,3,2,3,1,3
�"�-1,-3,-1,-3,-1,-3,-1,-3,-1,-3
�� =="N" DOWN STROKE
��7,14,2,1,1,0,1,0
�*�1,0,2,-1,0,-2,-1,-2,-1,-2,-1,-2,-1,-2
��-1,-2,0,-1,1,-1
��2,0,1,0,2,1,2,2,2,3
�� == 2nd "O" in DominOes
��9,9
�e�-1,0,-3,-1,-2,-1,-1,-1,-1,-2,-1,-2,0,-2,0,-1,1,-3,1,-1,2,-1,1,0,2,0,3,1,2,1,2,2,1,2,0,1,0,2,-1,2
� ==THE "E"
�2,-1,2,-1,2,-1,2,-1,3,-1
�2,0,3,1,2,1,1,1
 �0,2,-1,2,-1,1,-2,1
*�-2,0,-3,-1
4
�-2,-2
>
�0,-10
H�1,-1,2,-1
R�2,0,1,0,3,1,3,1,2,1
\�1,1,1,1,1,1,1,2,1,2,1,2
f�1,2,1,1
p:
z�1,0,1,0,3,-1,2,-2
��1,-3,1,-3
��0,-2,-1,-2,-3,-2
��-2,0,-2,0
��-2,1,-1,2
��-1000,0
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 42 61 73 69 63 53 61  |..... > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  57 52 49 54 45 31 0d 00  |ve$Dir>.WRITE1..|
00000020  14 16 f4 20 62 79 20 4d  69 6b 65 20 47 6f 6c 64  |... by Mike Gold|
00000030  62 65 72 67 0d 00 1e 19  f4 20 28 63 29 20 41 63  |berg..... (c) Ac|
00000040  6f 72 6e 20 43 6f 6d 70  75 74 69 6e 67 0d 00 28  |orn Computing..(|
00000050  06 eb 31 0d 00 32 14 ef  32 33 2c 31 2c 30 3b 30  |..1..2..23,1,0;0|
00000060  3b 30 3b 30 3b 30 3b 0d  00 3c 0e ef 31 39 2c 33  |;0;0;0;..<..19,3|
00000070  2c 34 3b 30 3b 0d 00 46  1f ef 32 33 2c 32 35 35  |,4;0;..F..23,255|
00000080  2c 30 2c 30 2c 32 34 2c  36 30 2c 36 30 2c 32 34  |,0,0,24,60,60,24|
00000090  2c 30 2c 30 0d 00 50 0b  41 24 3d bd 32 35 35 0d  |,0,0..P.A$=.255.|
000000a0  00 5a 06 ef 35 0d 00 64  08 e6 30 2c 32 0d 00 6e  |.Z..5..d..0,2..n|
000000b0  04 0d 00 78 1b f4 20 3d  3d 20 53 54 41 52 54 20  |...x.. == START |
000000c0  43 4f 2d 4f 52 44 49 4e  41 54 45 53 0d 00 82 13  |CO-ORDINATES....|
000000d0  53 58 25 3d 33 35 32 3a  53 59 25 3d 36 34 30 0d  |SX%=352:SY%=640.|
000000e0  00 8c 18 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... ***********|
000000f0  2a 2a 2a 2a 2a 2a 2a 0d  00 96 04 0d 00 a0 11 58  |*******........X|
00000100  25 3d 53 58 25 3a 59 25  3d 53 59 25 0d 00 aa 0a  |%=SX%:Y%=SY%....|
00000110  f2 77 72 69 74 65 0d 00  b4 1a 53 58 25 3d 53 58  |.write....SX%=SX|
00000120  25 2b 31 32 30 3a 53 59  25 3d 53 59 25 2d 36 34  |%+120:SY%=SY%-64|
00000130  0d 00 be 11 58 25 3d 53  58 25 3a 59 25 3d 53 59  |....X%=SX%:Y%=SY|
00000140  25 0d 00 c8 0a f2 77 72  69 74 65 0d 00 d2 05 e0  |%.....write.....|
00000150  0d 00 dc 12 f4 20 3d 3d  57 52 49 54 45 2d 50 52  |..... ==WRITE-PR|
00000160  4f 43 0d 00 e6 0b dd f2  77 72 69 74 65 0d 00 f0  |OC......write...|
00000170  0e ec 58 25 2c 59 25 3a  f1 41 24 0d 00 fa 05 f5  |..X%,Y%:.A$.....|
00000180  0d 01 04 0b 54 54 25 3d  91 2b 31 0d 01 0e 1a f3  |....TT%=.+1.....|
00000190  78 25 2c 79 25 3a 78 25  3d 78 25 2a 34 3a 79 25  |x%,y%:x%=x%*4:y%|
000001a0  3d 79 25 2a 34 0d 01 18  0c 58 25 3d 58 25 2b 78  |=y%*4....X%=X%+x|
000001b0  25 0d 01 22 0c 59 25 3d  59 25 2b 79 25 0d 01 2c  |%..".Y%=Y%+y%..,|
000001c0  08 e6 30 2c 32 0d 01 36  18 e7 78 25 3d 2d 34 30  |..0,2..6..x%=-40|
000001d0  30 30 84 79 25 3d 33 32  e5 8d 44 5e 41 0d 01 40  |00.y%=32..D^A..@|
000001e0  16 f4 20 3d 3d 20 4c 41  53 45 52 20 57 52 49 54  |.. == LASER WRIT|
000001f0  49 4e 47 0d 01 4a 29 f4  20 47 43 4f 4c 33 2c 31  |ING..J). GCOL3,1|
00000200  3a 4d 4f 56 45 36 34 30  2c 33 32 30 3a 44 52 41  |:MOVE640,320:DRA|
00000210  57 58 25 2b 32 38 2c 59  25 2d 33 32 0d 01 54 19  |WX%+28,Y%-32..T.|
00000220  f4 20 3d 3d 20 4f 52 44  49 4e 41 52 59 20 57 52  |. == ORDINARY WR|
00000230  49 54 49 4e 47 0d 01 5e  13 e6 30 2c 32 3a ec 58  |ITING..^..0,2:.X|
00000240  25 2c 59 25 3a f1 41 24  0d 01 68 04 0d 01 72 14  |%,Y%:.A$..h...r.|
00000250  f4 20 3d 3d 20 54 57 4f  20 43 4f 4c 4f 55 52 53  |. == TWO COLOURS|
00000260  0d 01 7c 23 f4 20 47 43  4f 4c 30 2c 33 3a 4d 4f  |..|#. GCOL0,3:MO|
00000270  56 45 58 25 2b 38 2c 59  25 2b 38 3a 50 52 49 4e  |VEX%+8,Y%+8:PRIN|
00000280  54 41 24 0d 01 86 0c f5  fd 20 91 3e 54 54 25 0d  |TA$...... .>TT%.|
00000290  01 90 0d fd 78 25 3d 2d  34 30 30 30 0d 01 9a 05  |....x%=-4000....|
000002a0  e1 0d 01 a4 0b f4 20 3d  3d 22 44 22 0d 01 ae 78  |...... =="D"...x|
000002b0  dc 30 2c 2d 31 2c 30 2c  2d 31 2c 2d 31 2c 2d 33  |.0,-1,0,-1,-1,-3|
000002c0  2c 2d 31 2c 2d 33 2c 2d  31 2c 2d 33 2c 2d 31 2c  |,-1,-3,-1,-3,-1,|
000002d0  2d 32 2c 2d 31 2c 2d 32  2c 2d 31 2c 2d 32 2c 2d  |-2,-1,-2,-1,-2,-|
000002e0  31 2c 2d 32 2c 2d 31 2c  2d 32 2c 2d 31 2c 2d 32  |1,-2,-1,-2,-1,-2|
000002f0  2c 2d 31 2c 2d 32 2c 2d  31 2c 2d 31 2c 2d 31 2c  |,-1,-2,-1,-1,-1,|
00000300  2d 31 2c 2d 31 2c 2d 31  2c 2d 32 2c 2d 31 2c 2d  |-1,-1,-1,-2,-1,-|
00000310  32 2c 2d 31 2c 2d 33 2c  2d 31 2c 2d 32 2c 30 2c  |2,-1,-3,-1,-2,0,|
00000320  2d 32 2c 31 0d 01 b8 d8  dc 2d 31 2c 31 2c 2d 31  |-2,1.....-1,1,-1|
00000330  2c 32 2c 30 2c 31 2c 30  2c 31 2c 30 2c 31 2c 31  |,2,0,1,0,1,0,1,1|
00000340  2c 31 2c 32 2c 31 2c 31  2c 30 2c 31 2c 30 2c 31  |,1,2,1,1,0,1,0,1|
00000350  2c 30 2c 32 2c 2d 31 2c  32 2c 2d 31 2c 38 2c 2d  |,0,2,-1,2,-1,8,-|
00000360  37 2c 31 2c 30 2c 32 2c  30 2c 32 2c 30 2c 32 2c  |7,1,0,2,0,2,0,2,|
00000370  30 2c 31 2c 30 2c 33 2c  31 2c 33 2c 31 2c 32 2c  |0,1,0,3,1,3,1,2,|
00000380  31 2c 32 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |1,2,1,1,1,1,1,1,|
00000390  31 2c 31 2c 31 2c 31 2c  32 2c 31 2c 32 2c 31 2c  |1,1,1,1,2,1,2,1,|
000003a0  33 2c 31 2c 33 2c 30 2c  32 2c 30 2c 32 2c 30 2c  |3,1,3,0,2,0,2,0,|
000003b0  32 2c 2d 31 2c 33 2c 2d  31 2c 33 2c 2d 32 2c 33  |2,-1,3,-1,3,-2,3|
000003c0  2c 2d 32 2c 32 2c 2d 32  2c 31 2c 2d 32 2c 31 2c  |,-2,2,-2,1,-2,1,|
000003d0  2d 33 2c 31 2c 2d 32 2c  30 2c 2d 32 2c 30 2c 2d  |-3,1,-2,0,-2,0,-|
000003e0  33 2c 2d 31 2c 2d 32 2c  2d 31 2c 2d 32 2c 2d 31  |3,-1,-2,-1,-2,-1|
000003f0  2c 2d 31 2c 2d 32 2c 2d  31 2c 2d 33 0d 01 c2 0c  |,-1,-2,-1,-3....|
00000400  dc 2d 31 30 30 30 2c 30  0d 01 cc 0b f4 20 3d 3d  |.-1000,0..... ==|
00000410  22 4f 22 0d 01 d6 40 dc  2d 31 2c 30 2c 2d 33 2c  |"O"...@.-1,0,-3,|
00000420  2d 31 2c 2d 32 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |-1,-2,-1,-1,-1,-|
00000430  31 2c 2d 32 2c 2d 31 2c  2d 32 2c 30 2c 2d 32 2c  |1,-2,-1,-2,0,-2,|
00000440  30 2c 2d 31 2c 31 2c 2d  33 2c 31 2c 2d 31 2c 32  |0,-1,1,-3,1,-1,2|
00000450  2c 2d 31 0d 01 e0 18 dc  31 2c 30 2c 32 2c 30 2c  |,-1.....1,0,2,0,|
00000460  33 2c 31 2c 32 2c 31 2c  32 2c 32 0d 01 ea 15 dc  |3,1,2,1,2,2.....|
00000470  31 2c 32 2c 30 2c 31 2c  30 2c 32 2c 2d 31 2c 32  |1,2,0,1,0,2,-1,2|
00000480  0d 01 f4 13 f4 20 3d 3d  22 4d 22 20 31 73 74 20  |..... =="M" 1st |
00000490  6c 65 67 0d 01 fe 14 dc  31 2c 31 2c 32 2c 31 2c  |leg.....1,1,2,1,|
000004a0  32 2c 31 2c 33 2c 31 0d  02 08 17 dc 31 2c 30 2c  |2,1,3,1.....1,0,|
000004b0  32 2c 30 2c 31 2c 2d 31  2c 2d 32 2c 2d 32 0d 02  |2,0,1,-1,-2,-2..|
000004c0  12 16 dc 2d 31 2c 2d 32  2c 2d 31 2c 2d 32 2c 2d  |...-1,-2,-1,-2,-|
000004d0  31 2c 2d 32 0d 02 1c 16  dc 2d 31 2c 2d 32 2c 2d  |1,-2.....-1,-2,-|
000004e0  31 2c 2d 32 2c 2d 31 2c  2d 32 0d 02 26 13 f4 20  |1,-2,-1,-2..&.. |
000004f0  3d 3d 22 4d 22 20 32 6e  64 20 6c 65 67 0d 02 30  |=="M" 2nd leg..0|
00000500  3c dc 31 31 2c 31 35 2c  31 2c 30 2c 32 2c 2d 31  |<.11,15,1,0,2,-1|
00000510  2c 30 2c 2d 32 2c 2d 31  2c 2d 32 2c 2d 31 2c 2d  |,0,-2,-1,-2,-1,-|
00000520  32 2c 2d 31 2c 2d 32 2c  2d 31 2c 2d 32 2c 2d 31  |2,-1,-2,-1,-2,-1|
00000530  2c 2d 32 2c 2d 31 2c 2d  32 0d 02 3a 13 f4 20 3d  |,-2,-1,-2..:.. =|
00000540  3d 22 4d 22 20 33 72 64  20 6c 65 67 0d 02 44 0d  |="M" 3rd leg..D.|
00000550  dc 39 2c 31 34 2c 32 2c  31 0d 02 4e 2a dc 31 2c  |.9,14,2,1..N*.1,|
00000560  30 2c 32 2c 2d 31 2c 30  2c 2d 32 2c 2d 31 2c 2d  |0,2,-1,0,-2,-1,-|
00000570  32 2c 2d 31 2c 2d 32 2c  2d 31 2c 2d 32 2c 2d 31  |2,-1,-2,-1,-2,-1|
00000580  2c 2d 32 0d 02 58 14 dc  2d 31 2c 2d 32 2c 30 2c  |,-2..X..-1,-2,0,|
00000590  2d 31 2c 31 2c 2d 31 0d  02 62 0b f4 20 3d 3d 22  |-1,1,-1..b.. =="|
000005a0  49 22 0d 02 6c 18 dc 32  2c 30 2c 31 2c 30 2c 32  |I"..l..2,0,1,0,2|
000005b0  2c 31 2c 32 2c 32 2c 32  2c 33 0d 02 76 10 dc 32  |,1,2,2,2,3..v..2|
000005c0  2c 33 2c 32 2c 33 2c 31  2c 33 0d 02 80 0e dc 33  |,3,2,3,1,3.....3|
000005d0  2c 38 2c 2d 33 2c 2d 38  0d 02 8a 15 f4 20 3d 3d  |,8,-3,-8..... ==|
000005e0  22 4e 22 20 55 50 20 53  54 52 4f 4b 45 0d 02 94  |"N" UP STROKE...|
000005f0  0b dc 2d 36 2c 2d 31 35  0d 02 9e 24 dc 32 2c 30  |..-6,-15...$.2,0|
00000600  2c 31 2c 30 2c 32 2c 31  2c 32 2c 32 2c 32 2c 33  |,1,0,2,1,2,2,2,3|
00000610  2c 32 2c 33 2c 32 2c 33  2c 31 2c 33 0d 02 a8 22  |,2,3,2,3,1,3..."|
00000620  dc 2d 31 2c 2d 33 2c 2d  31 2c 2d 33 2c 2d 31 2c  |.-1,-3,-1,-3,-1,|
00000630  2d 33 2c 2d 31 2c 2d 33  2c 2d 31 2c 2d 33 0d 02  |-3,-1,-3,-1,-3..|
00000640  b2 17 f4 20 3d 3d 22 4e  22 20 44 4f 57 4e 20 53  |... =="N" DOWN S|
00000650  54 52 4f 4b 45 0d 02 bc  15 dc 37 2c 31 34 2c 32  |TROKE.....7,14,2|
00000660  2c 31 2c 31 2c 30 2c 31  2c 30 0d 02 c6 2a dc 31  |,1,1,0,1,0...*.1|
00000670  2c 30 2c 32 2c 2d 31 2c  30 2c 2d 32 2c 2d 31 2c  |,0,2,-1,0,-2,-1,|
00000680  2d 32 2c 2d 31 2c 2d 32  2c 2d 31 2c 2d 32 2c 2d  |-2,-1,-2,-1,-2,-|
00000690  31 2c 2d 32 0d 02 d0 14  dc 2d 31 2c 2d 32 2c 30  |1,-2.....-1,-2,0|
000006a0  2c 2d 31 2c 31 2c 2d 31  0d 02 da 18 dc 32 2c 30  |,-1,1,-1.....2,0|
000006b0  2c 31 2c 30 2c 32 2c 31  2c 32 2c 32 2c 32 2c 33  |,1,0,2,1,2,2,2,3|
000006c0  0d 02 e4 1c f4 20 3d 3d  20 32 6e 64 20 22 4f 22  |..... == 2nd "O"|
000006d0  20 69 6e 20 44 6f 6d 69  6e 4f 65 73 0d 02 ee 08  | in DominOes....|
000006e0  dc 39 2c 39 0d 02 f8 65  dc 2d 31 2c 30 2c 2d 33  |.9,9...e.-1,0,-3|
000006f0  2c 2d 31 2c 2d 32 2c 2d  31 2c 2d 31 2c 2d 31 2c  |,-1,-2,-1,-1,-1,|
00000700  2d 31 2c 2d 32 2c 2d 31  2c 2d 32 2c 30 2c 2d 32  |-1,-2,-1,-2,0,-2|
00000710  2c 30 2c 2d 31 2c 31 2c  2d 33 2c 31 2c 2d 31 2c  |,0,-1,1,-3,1,-1,|
00000720  32 2c 2d 31 2c 31 2c 30  2c 32 2c 30 2c 33 2c 31  |2,-1,1,0,2,0,3,1|
00000730  2c 32 2c 31 2c 32 2c 32  2c 31 2c 32 2c 30 2c 31  |,2,1,2,2,1,2,0,1|
00000740  2c 30 2c 32 2c 2d 31 2c  32 0d 03 02 0f f4 20 3d  |,0,2,-1,2..... =|
00000750  3d 54 48 45 20 22 45 22  0d 03 0c 1d dc 32 2c 2d  |=THE "E".....2,-|
00000760  31 2c 32 2c 2d 31 2c 32  2c 2d 31 2c 32 2c 2d 31  |1,2,-1,2,-1,2,-1|
00000770  2c 33 2c 2d 31 0d 03 16  14 dc 32 2c 30 2c 33 2c  |,3,-1.....2,0,3,|
00000780  31 2c 32 2c 31 2c 31 2c  31 0d 03 20 17 dc 30 2c  |1,2,1,1,1.. ..0,|
00000790  32 2c 2d 31 2c 32 2c 2d  31 2c 31 2c 2d 32 2c 31  |2,-1,2,-1,1,-2,1|
000007a0  0d 03 2a 0f dc 2d 32 2c  30 2c 2d 33 2c 2d 31 0d  |..*..-2,0,-3,-1.|
000007b0  03 34 0a dc 2d 32 2c 2d  32 0d 03 3e 0a dc 30 2c  |.4..-2,-2..>..0,|
000007c0  2d 31 30 0d 03 48 0e dc  31 2c 2d 31 2c 32 2c 2d  |-10..H..1,-1,2,-|
000007d0  31 0d 03 52 18 dc 32 2c  30 2c 31 2c 30 2c 33 2c  |1..R..2,0,1,0,3,|
000007e0  31 2c 33 2c 31 2c 32 2c  31 0d 03 5c 1c dc 31 2c  |1,3,1,2,1..\..1,|
000007f0  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 32 2c 31 2c  |1,1,1,1,1,1,2,1,|
00000800  32 2c 31 2c 32 0d 03 66  0c dc 31 2c 32 2c 31 2c  |2,1,2..f..1,2,1,|
00000810  31 0d 03 70 05 3a 0d 03  7a 16 dc 31 2c 30 2c 31  |1..p.:..z..1,0,1|
00000820  2c 30 2c 33 2c 2d 31 2c  32 2c 2d 32 0d 03 84 0e  |,0,3,-1,2,-2....|
00000830  dc 31 2c 2d 33 2c 31 2c  2d 33 0d 03 8e 15 dc 30  |.1,-3,1,-3.....0|
00000840  2c 2d 32 2c 2d 31 2c 2d  32 2c 2d 33 2c 2d 32 0d  |,-2,-1,-2,-3,-2.|
00000850  03 98 0e dc 2d 32 2c 30  2c 2d 32 2c 30 0d 03 a2  |....-2,0,-2,0...|
00000860  0e dc 2d 32 2c 31 2c 2d  31 2c 32 0d 03 ac 0c dc  |..-2,1,-1,2.....|
00000870  2d 31 30 30 30 2c 30 0d  ff                       |-1000,0..|
00000879