� > <BasicSave$dir>.DEFINE5
� by Mike Goldberg
� (c) The Micro User
(�5:�19,3,4;0;23,1,0;0;0;0;
2�grid:�init
<��keys:�0:�
F:
P��init:B$=�224:X%=0
Z�23,224,0,96,96,96,96,96,0;
d#Y%=768:A%=836:B%=732:C%=2:M%=24
n%�4:�2:�14,20)"Old"�13,21)"Image"
x�0,2)"L= Load SAVEd image"
��0,4)"S= SAVE your design"
��5:�c:�
�:
���grid:�0,1
��I%=0�768�24
��I%�192=0�0,3 � �0,1
��0,I%:�1,768,0:�
��I%=0�768�24
��I%�192=0�0,3 � �0,1
��I%,0:�1,0,768:�
��0,3:�box(820,748)
��box(820,748-192):�
�:

��box(A,B)�A,B:�1,280,0

�1,0,-160:�1,-280,0

�1,0,160:�

":

,
��keys

6�-26�move(-M%,0,-8,0)

@�-122�move(M%,0,8,0)

J�-58�move(0,M%,0,4)

T�-42�move(0,-M%,0,-4)

^�-82�ikon("S")

h�-87�ikon("L")

r�-40�draw(0)

|�-19�draw(0)

��-49�draw(1)

��-50�draw(2)

��-18�draw(3)

��

�:

���move(x%,y%,a%,b%)

��X%+x%<0�X%+x%>744�

��Y%+y%<24�Y%+y%>768�

��c:X%=X%+x%:Y%=Y%+y%

�A%=A%+a%:B%=B%+b%:�c:�

�:

���draw(c%)�F%=1c%=c%+8

��c:�0,c%:�X%,Y%:�B$
�69,A%,B%:�c:�
:
��ikon(W$):*FX21
&�3:�c:�W$="L"�load
0screen%=&6410:mem%=&5600
:�J%=0�3:�I%=0�63
D�W$="L"screen%?I%=mem%?I%
N$�W$="L"screen%?(I%+1920)=mem%?I%
X�W$="S"mem%?I%=screen%?I%
b�:mem%=mem%+64
lscreen%=screen%+320:�
v�W$="S"�save
��W$="L"�drawload
��7:�c:�
�:
���load:�X%,Y%:�4:*FX21
��0,0)"LOAD "name$
��cli("LOAD "+name$+" 5600")
��0,0)�17:�3
��0,6)�19�0,6)name$
��5:�
�:
���drawload:�5:�X%,Y%
�X%=0:Y%=768:�J%=732�608�-4
��I%=836�1084�8
K%=�I%,J%):�0,K%
�X%,Y%:�B$:X%=X%+24:�
X%=0:Y%=Y%-24:�:�
 :
*��save:�X%,Y%:�4:*FX21
4�0,0)"SAVE "name$
>$�cli("SAVE "+name$+" 5600 5700")
H�0,0)�17:�5:�
R:
\$��c:�3,C%:�X%,Y%:�B$:�69,A%,B%:�
f$��cli($&700)�X%,Y%:Y%=7:�&FFF7:�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 42 61 73 69 63 53 61  |..... > <BasicSa|
00000010  76 65 24 64 69 72 3e 2e  44 45 46 49 4e 45 35 0d  |ve$dir>.DEFINE5.|
00000020  00 14 16 f4 20 62 79 20  4d 69 6b 65 20 47 6f 6c  |.... by Mike Gol|
00000030  64 62 65 72 67 0d 00 1e  18 f4 20 28 63 29 20 54  |dberg..... (c) T|
00000040  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000050  1e eb 35 3a ef 31 39 2c  33 2c 34 3b 30 3b 32 33  |..5:.19,3,4;0;23|
00000060  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 32 0f f2  |,1,0;0;0;0;..2..|
00000070  67 72 69 64 3a f2 69 6e  69 74 0d 00 3c 0f f5 f2  |grid:.init..<...|
00000080  6b 65 79 73 3a fd 30 3a  e0 0d 00 46 05 3a 0d 00  |keys:.0:...F.:..|
00000090  50 17 dd f2 69 6e 69 74  3a 42 24 3d bd 32 32 34  |P...init:B$=.224|
000000a0  3a 58 25 3d 30 0d 00 5a  1f ef 32 33 2c 32 32 34  |:X%=0..Z..23,224|
000000b0  2c 30 2c 39 36 2c 39 36  2c 39 36 2c 39 36 2c 39  |,0,96,96,96,96,9|
000000c0  36 2c 30 3b 0d 00 64 23  59 25 3d 37 36 38 3a 41  |6,0;..d#Y%=768:A|
000000d0  25 3d 38 33 36 3a 42 25  3d 37 33 32 3a 43 25 3d  |%=836:B%=732:C%=|
000000e0  32 3a 4d 25 3d 32 34 0d  00 6e 25 ef 34 3a fb 32  |2:M%=24..n%.4:.2|
000000f0  3a f1 8a 31 34 2c 32 30  29 22 4f 6c 64 22 8a 31  |:..14,20)"Old".1|
00000100  33 2c 32 31 29 22 49 6d  61 67 65 22 0d 00 78 1f  |3,21)"Image"..x.|
00000110  f1 8a 30 2c 32 29 22 4c  3d 20 4c 6f 61 64 20 53  |..0,2)"L= Load S|
00000120  41 56 45 64 20 69 6d 61  67 65 22 0d 00 82 1f f1  |AVEd image".....|
00000130  8a 30 2c 34 29 22 53 3d  20 53 41 56 45 20 79 6f  |.0,4)"S= SAVE yo|
00000140  75 72 20 64 65 73 69 67  6e 22 0d 00 8c 0b ef 35  |ur design".....5|
00000150  3a f2 63 3a e1 0d 00 96  05 3a 0d 00 a0 0f dd f2  |:.c:.....:......|
00000160  67 72 69 64 3a e6 30 2c  31 0d 00 aa 10 e3 49 25  |grid:.0,1.....I%|
00000170  3d 30 b8 37 36 38 88 32  34 0d 00 b4 18 e7 49 25  |=0.768.24.....I%|
00000180  83 31 39 32 3d 30 e6 30  2c 33 20 8b 20 e6 30 2c  |.192=0.0,3 . .0,|
00000190  31 0d 00 be 14 ec 30 2c  49 25 3a f0 31 2c 37 36  |1.....0,I%:.1,76|
000001a0  38 2c 30 3a ed 0d 00 c8  10 e3 49 25 3d 30 b8 37  |8,0:......I%=0.7|
000001b0  36 38 88 32 34 0d 00 d2  18 e7 49 25 83 31 39 32  |68.24.....I%.192|
000001c0  3d 30 e6 30 2c 33 20 8b  20 e6 30 2c 31 0d 00 dc  |=0.0,3 . .0,1...|
000001d0  14 ec 49 25 2c 30 3a f0  31 2c 30 2c 37 36 38 3a  |..I%,0:.1,0,768:|
000001e0  ed 0d 00 e6 16 e6 30 2c  33 3a f2 62 6f 78 28 38  |......0,3:.box(8|
000001f0  32 30 2c 37 34 38 29 0d  00 f0 17 f2 62 6f 78 28  |20,748).....box(|
00000200  38 32 30 2c 37 34 38 2d  31 39 32 29 3a e1 0d 00  |820,748-192):...|
00000210  fa 05 3a 0d 01 04 1b dd  f2 62 6f 78 28 41 2c 42  |..:......box(A,B|
00000220  29 ec 41 2c 42 3a f0 31  2c 32 38 30 2c 30 0d 01  |).A,B:.1,280,0..|
00000230  0e 17 f0 31 2c 30 2c 2d  31 36 30 3a f0 31 2c 2d  |...1,0,-160:.1,-|
00000240  32 38 30 2c 30 0d 01 18  0e f0 31 2c 30 2c 31 36  |280,0.....1,0,16|
00000250  30 3a e1 0d 01 22 05 3a  0d 01 2c 0a dd f2 6b 65  |0:...".:..,...ke|
00000260  79 73 0d 01 36 1a e7 a6  2d 32 36 f2 6d 6f 76 65  |ys..6...-26.move|
00000270  28 2d 4d 25 2c 30 2c 2d  38 2c 30 29 0d 01 40 19  |(-M%,0,-8,0)..@.|
00000280  e7 a6 2d 31 32 32 f2 6d  6f 76 65 28 4d 25 2c 30  |..-122.move(M%,0|
00000290  2c 38 2c 30 29 0d 01 4a  18 e7 a6 2d 35 38 f2 6d  |,8,0)..J...-58.m|
000002a0  6f 76 65 28 30 2c 4d 25  2c 30 2c 34 29 0d 01 54  |ove(0,M%,0,4)..T|
000002b0  1a e7 a6 2d 34 32 f2 6d  6f 76 65 28 30 2c 2d 4d  |...-42.move(0,-M|
000002c0  25 2c 30 2c 2d 34 29 0d  01 5e 13 e7 a6 2d 38 32  |%,0,-4)..^...-82|
000002d0  f2 69 6b 6f 6e 28 22 53  22 29 0d 01 68 13 e7 a6  |.ikon("S")..h...|
000002e0  2d 38 37 f2 69 6b 6f 6e  28 22 4c 22 29 0d 01 72  |-87.ikon("L")..r|
000002f0  11 e7 a6 2d 34 30 f2 64  72 61 77 28 30 29 0d 01  |...-40.draw(0)..|
00000300  7c 11 e7 a6 2d 31 39 f2  64 72 61 77 28 30 29 0d  ||...-19.draw(0).|
00000310  01 86 11 e7 a6 2d 34 39  f2 64 72 61 77 28 31 29  |.....-49.draw(1)|
00000320  0d 01 90 11 e7 a6 2d 35  30 f2 64 72 61 77 28 32  |......-50.draw(2|
00000330  29 0d 01 9a 11 e7 a6 2d  31 38 f2 64 72 61 77 28  |)......-18.draw(|
00000340  33 29 0d 01 a4 05 e1 0d  01 ae 05 3a 0d 01 b8 17  |3).........:....|
00000350  dd f2 6d 6f 76 65 28 78  25 2c 79 25 2c 61 25 2c  |..move(x%,y%,a%,|
00000360  62 25 29 0d 01 c2 17 e7  58 25 2b 78 25 3c 30 84  |b%).....X%+x%<0.|
00000370  58 25 2b 78 25 3e 37 34  34 e1 0d 01 cc 18 e7 59  |X%+x%>744......Y|
00000380  25 2b 79 25 3c 32 34 84  59 25 2b 79 25 3e 37 36  |%+y%<24.Y%+y%>76|
00000390  38 e1 0d 01 d6 18 f2 63  3a 58 25 3d 58 25 2b 78  |8......c:X%=X%+x|
000003a0  25 3a 59 25 3d 59 25 2b  79 25 0d 01 e0 1a 41 25  |%:Y%=Y%+y%....A%|
000003b0  3d 41 25 2b 61 25 3a 42  25 3d 42 25 2b 62 25 3a  |=A%+a%:B%=B%+b%:|
000003c0  f2 63 3a e1 0d 01 ea 05  3a 0d 01 f4 1a dd f2 64  |.c:.....:......d|
000003d0  72 61 77 28 63 25 29 e7  46 25 3d 31 63 25 3d 63  |raw(c%).F%=1c%=c|
000003e0  25 2b 38 0d 01 fe 17 f2  63 3a e6 30 2c 63 25 3a  |%+8.....c:.0,c%:|
000003f0  ec 58 25 2c 59 25 3a f1  42 24 0d 02 08 12 f0 36  |.X%,Y%:.B$.....6|
00000400  39 2c 41 25 2c 42 25 3a  f2 63 3a e1 0d 02 12 05  |9,A%,B%:.c:.....|
00000410  3a 0d 02 1c 14 dd f2 69  6b 6f 6e 28 57 24 29 3a  |:......ikon(W$):|
00000420  2a 46 58 32 31 0d 02 26  16 fb 33 3a f2 63 3a e7  |*FX21..&..3:.c:.|
00000430  57 24 3d 22 4c 22 f2 6c  6f 61 64 0d 02 30 1c 73  |W$="L".load..0.s|
00000440  63 72 65 65 6e 25 3d 26  36 34 31 30 3a 6d 65 6d  |creen%=&6410:mem|
00000450  25 3d 26 35 36 30 30 0d  02 3a 14 e3 4a 25 3d 30  |%=&5600..:..J%=0|
00000460  b8 33 3a e3 49 25 3d 30  b8 36 33 0d 02 44 1d e7  |.3:.I%=0.63..D..|
00000470  57 24 3d 22 4c 22 73 63  72 65 65 6e 25 3f 49 25  |W$="L"screen%?I%|
00000480  3d 6d 65 6d 25 3f 49 25  0d 02 4e 24 e7 57 24 3d  |=mem%?I%..N$.W$=|
00000490  22 4c 22 73 63 72 65 65  6e 25 3f 28 49 25 2b 31  |"L"screen%?(I%+1|
000004a0  39 32 30 29 3d 6d 65 6d  25 3f 49 25 0d 02 58 1d  |920)=mem%?I%..X.|
000004b0  e7 57 24 3d 22 53 22 6d  65 6d 25 3f 49 25 3d 73  |.W$="S"mem%?I%=s|
000004c0  63 72 65 65 6e 25 3f 49  25 0d 02 62 12 ed 3a 6d  |creen%?I%..b..:m|
000004d0  65 6d 25 3d 6d 65 6d 25  2b 36 34 0d 02 6c 19 73  |em%=mem%+64..l.s|
000004e0  63 72 65 65 6e 25 3d 73  63 72 65 65 6e 25 2b 33  |creen%=screen%+3|
000004f0  32 30 3a ed 0d 02 76 10  e7 57 24 3d 22 53 22 f2  |20:...v..W$="S".|
00000500  73 61 76 65 0d 02 80 14  e7 57 24 3d 22 4c 22 f2  |save.....W$="L".|
00000510  64 72 61 77 6c 6f 61 64  0d 02 8a 0b ef 37 3a f2  |drawload.....7:.|
00000520  63 3a e1 0d 02 94 05 3a  0d 02 9e 1a dd f2 6c 6f  |c:.....:......lo|
00000530  61 64 3a ea 58 25 2c 59  25 3a ef 34 3a 2a 46 58  |ad:.X%,Y%:.4:*FX|
00000540  32 31 0d 02 a8 16 e8 8a  30 2c 30 29 22 4c 4f 41  |21......0,0)"LOA|
00000550  44 20 22 6e 61 6d 65 24  0d 02 b2 1f f2 63 6c 69  |D "name$.....cli|
00000560  28 22 4c 4f 41 44 20 22  2b 6e 61 6d 65 24 2b 22  |("LOAD "+name$+"|
00000570  20 35 36 30 30 22 29 0d  02 bc 10 f1 8a 30 2c 30  | 5600")......0,0|
00000580  29 89 31 37 3a fb 33 0d  02 c6 17 f1 8a 30 2c 36  |).17:.3......0,6|
00000590  29 89 31 39 8a 30 2c 36  29 6e 61 6d 65 24 0d 02  |).19.0,6)name$..|
000005a0  d0 08 ef 35 3a e1 0d 02  da 05 3a 0d 02 e4 18 dd  |...5:.....:.....|
000005b0  f2 64 72 61 77 6c 6f 61  64 3a ef 35 3a ea 58 25  |.drawload:.5:.X%|
000005c0  2c 59 25 0d 02 ee 1e 58  25 3d 30 3a 59 25 3d 37  |,Y%....X%=0:Y%=7|
000005d0  36 38 3a e3 4a 25 3d 37  33 32 b8 36 30 38 88 2d  |68:.J%=732.608.-|
000005e0  34 0d 02 f8 12 e3 49 25  3d 38 33 36 b8 31 30 38  |4.....I%=836.108|
000005f0  34 88 38 0d 03 02 14 4b  25 3d b0 49 25 2c 4a 25  |4.8....K%=.I%,J%|
00000600  29 3a e6 30 2c 4b 25 0d  03 0c 19 ec 58 25 2c 59  |):.0,K%.....X%,Y|
00000610  25 3a f1 42 24 3a 58 25  3d 58 25 2b 32 34 3a ed  |%:.B$:X%=X%+24:.|
00000620  0d 03 16 15 58 25 3d 30  3a 59 25 3d 59 25 2d 32  |....X%=0:Y%=Y%-2|
00000630  34 3a ed 3a e1 0d 03 20  05 3a 0d 03 2a 1a dd f2  |4:.:... .:..*...|
00000640  73 61 76 65 3a ea 58 25  2c 59 25 3a ef 34 3a 2a  |save:.X%,Y%:.4:*|
00000650  46 58 32 31 0d 03 34 16  e8 8a 30 2c 30 29 22 53  |FX21..4...0,0)"S|
00000660  41 56 45 20 22 6e 61 6d  65 24 0d 03 3e 24 f2 63  |AVE "name$..>$.c|
00000670  6c 69 28 22 53 41 56 45  20 22 2b 6e 61 6d 65 24  |li("SAVE "+name$|
00000680  2b 22 20 35 36 30 30 20  35 37 30 30 22 29 0d 03  |+" 5600 5700")..|
00000690  48 12 f1 8a 30 2c 30 29  89 31 37 3a ef 35 3a e1  |H...0,0).17:.5:.|
000006a0  0d 03 52 05 3a 0d 03 5c  24 dd f2 63 3a e6 33 2c  |..R.:..\$..c:.3,|
000006b0  43 25 3a ec 58 25 2c 59  25 3a f1 42 24 3a f0 36  |C%:.X%,Y%:.B$:.6|
000006c0  39 2c 41 25 2c 42 25 3a  e1 0d 03 66 24 dd f2 63  |9,A%,B%:...f$..c|
000006d0  6c 69 28 24 26 37 30 30  29 ea 58 25 2c 59 25 3a  |li($&700).X%,Y%:|
000006e0  59 25 3d 37 3a d6 26 46  46 46 37 3a e1 0d ff     |Y%=7:.&FFF7:...|
000006ef