� Design Program

 
� �initialise

�mainloop
( 
2ݤinitialise
<lenshape=300
F� shape lenshape
P�
Z  � "Mode (0 - 2) ?" mode
d�mode >=0 � mode <=2
n
� �df@
x�I%=0 � mode
�
� pixbits
��I%
�
� �dp@
��I%=0 � mode
�
  � W%
��I%
�
� �dz@
��I%=0 � mode
�  � pixelperbyte
��I%
�
� 1, 2, 4
�
� 2, 4, 8
�
� 8, 4, 2

 �"Width in X-direction:" NX%

 �"Width in Y-direction:" NY%

byteNX% = NX%�pixelperbyte

"byteNY% = NY%-1

,SX% = (1024 � NX%) � &FFF0

6SY% = (1024 � NY%) � &FFF8

@
�clear

JcursorX = 0: cursorY = 0

T*FX 4 1

^5command$ = "VvHhLlSs" + �&88 + �&89 + �&8A + �&8B

h1colour$ = "001!2""3#4$5%6&7'8(9)AaBbCcDdEeFf"

r$length = NX% * NY% * pixbits � 8

|
= mode

� 

���mainloop

��cursor

��

�  �

�    key$=�

�'  ��colour$,key$) � �command$,key$)

�#  C% = (�colour$,key$) + 1) � 2

�x  � C% � �colour(C%-1) � � �command$, key$) � �t^B, �t^B, �TLC, �TLC, �DvB, �DvB, �tJB, �tJB, �d~A, �T\B, �TzB, �DXB

�� �

��

� 

�#� cursorX > 0 � �docursor(-1,0)
�
 
(� cursorX < NX% - 1 � �docursor(1,0)
&�
0 
:#� cursorY > 0 � �docursor(0,-1)
D�
N 
X(� cursorY < NY% - 1 � �docursor(0,1)
b�
l 
v7�load:�22,mode:�shape(�,byteNX%,byteNY%):�display:�
� 
�7�save:�22,mode:�shape(�,byteNX%,byteNY%):�display:�
� 
��I%=0�NX%-1
�  �J%=0�(NY%-1)�2
�    temp=�point(I%,J%)
�(    �plot(I%,J%,�point(I%,NY%-1-J%))
�    �plot(I%,NY%-1-J%,temp)
�	  �J%
��I%
��shape(�,byteNX%,byteNY%)
��display
��
 
�J%=0�NY%-1
  �I%=0�(NX%-1)�2
     temp=�point(I%,J%)
*(    �plot(I%,J%,�point(NX%-1-I%,J%))
4    �plot(NX%-1-I%,J%,temp)
>	  �I%
H�J%
R�shape(�,byteNX%,byteNY%)
\�display
f�
p 
z��plot(X,Y,col)
�
�0,col
�� 69, X*W%+1024, Y*4+640
��
� 
�ݤpoint(X,Y)
�=�X*W%+1024, Y*4+640)
� 
�
��sq(X,Y)
��0,�point(X,Y)
�� X * SX%, Y * SY%
�� 0, SX% - 4, 0
�� 81, 4 - SX%, SY% - 4
�� 81, SX% - 4, 0
�
 

��display
$
� X, Y
.� X = 0 � NX% - 1
8  � Y = 0 � NY% - 1
B    �sq(X, Y)
L	  � Y
V� X
`�cursor
j�
t 
~��cursor
��5
�
� 3, 3
�2� SX% * (cursorX + .25), SY% * (cursorY + .25)
�� 1, SX% � 2 - 4, 0
�� 1, 0, SY% � 2 - 4
�� 1, 4 - SX% � 2, 0
�� 1, 0, 4 - SY% � 2
��
� 
�
��load
�� I%, channel
��shape(�,byteNX%,byteNY%)
channel=�open(�)

� channel = � �

�clear
� I%= 0 � (byteNX% * NY%)-1
(  shape? I% = �#channel
2� I%
<
�#channel
F�
P 
Z
��save
d� I%,channel
n�shape(�,byteNX%,byteNY%)
xchannel=�open(�)
�� channel = � �
�� I%= 0 � (byteNX% * NY%)-1
�  �#channel, shape? I%
�� I%
�
�#channel
��
� 
�ݤopen(in)
�� W$
�	�22,7
��"File name ?"W$
�� W$ = "" = �
�� in � = �(W$) � = �(W$)
 
��colour(colour)
�cursor
"!�plot(cursorX,cursorY,colour)
,�sq(cursorX,cursorY)
6�cursor
@�
J 
T��docursor(X,Y)
^�cursor
hcursorX = cursorX + X
rcursorY = cursorY + Y
|�cursor
��
� 
���clear
�� clear
� � clear = 0 � lenshape-4 � 4
�  clear!shape = 0
�� clear
��
� 
���shape(flag, X, Y)
�� I%, J%, tempx, tempy
�� I%=0 � X
�  � J%=0 � Y
    tempx=I%+1024 � 16
"    tempy=((J%+640 � 4)�&FF)�8
L    �access(flag, (tempy*&280+tempx*8+((J% � 7)� 7)+&3000), Y+1, J%, I%)
&
  � J%
0� I%
:�
D 
N#��access(flag, addr, Y, J%, I%)
XF� flag � shape?(I%*Y+(Y-J%-1))=?addr � ?addr=shape?(I%*Y+(Y-J%-1))
b�
�

00000000  0d 00 00 14 f4 20 44 65  73 69 67 6e 20 50 72 6f  |..... Design Pro|
00000010  67 72 61 6d 0d 00 0a 05  20 0d 00 14 11 eb 20 a4  |gram.... ..... .|
00000020  69 6e 69 74 69 61 6c 69  73 65 0d 00 1e 0d f2 6d  |initialise.....m|
00000030  61 69 6e 6c 6f 6f 70 0d  00 28 05 20 0d 00 32 10  |ainloop..(. ..2.|
00000040  dd a4 69 6e 69 74 69 61  6c 69 73 65 0d 00 3c 10  |..initialise..<.|
00000050  6c 65 6e 73 68 61 70 65  3d 33 30 30 0d 00 46 14  |lenshape=300..F.|
00000060  de 20 73 68 61 70 65 20  6c 65 6e 73 68 61 70 65  |. shape lenshape|
00000070  0d 00 50 05 f5 0d 00 5a  1d 20 20 e8 20 22 4d 6f  |..P....Z.  . "Mo|
00000080  64 65 20 28 30 20 2d 20  32 29 20 3f 22 20 6d 6f  |de (0 - 2) ?" mo|
00000090  64 65 0d 00 64 18 fd 6d  6f 64 65 20 3e 3d 30 20  |de..d..mode >=0 |
000000a0  80 20 6d 6f 64 65 20 3c  3d 32 0d 00 6e 0a f7 20  |. mode <=2..n.. |
000000b0  8d 64 66 40 0d 00 78 10  e3 49 25 3d 30 20 b8 20  |.df@..x..I%=0 . |
000000c0  6d 6f 64 65 0d 00 82 0d  f3 20 70 69 78 62 69 74  |mode..... pixbit|
000000d0  73 0d 00 8c 07 ed 49 25  0d 00 96 0a f7 20 8d 64  |s.....I%..... .d|
000000e0  70 40 0d 00 a0 10 e3 49  25 3d 30 20 b8 20 6d 6f  |p@.....I%=0 . mo|
000000f0  64 65 0d 00 aa 0a 20 20  f3 20 57 25 0d 00 b4 07  |de....  . W%....|
00000100  ed 49 25 0d 00 be 0a f7  20 8d 64 7a 40 0d 00 c8  |.I%..... .dz@...|
00000110  10 e3 49 25 3d 30 20 b8  20 6d 6f 64 65 0d 00 d2  |..I%=0 . mode...|
00000120  14 20 20 f3 20 70 69 78  65 6c 70 65 72 62 79 74  |.  . pixelperbyt|
00000130  65 0d 00 dc 07 ed 49 25  0d 00 e6 0d dc 20 31 2c  |e.....I%..... 1,|
00000140  20 32 2c 20 34 0d 00 f0  0d dc 20 32 2c 20 34 2c  | 2, 4..... 2, 4,|
00000150  20 38 0d 00 fa 0d dc 20  38 2c 20 34 2c 20 32 0d  | 8..... 8, 4, 2.|
00000160  01 04 20 e8 22 57 69 64  74 68 20 69 6e 20 58 2d  |.. ."Width in X-|
00000170  64 69 72 65 63 74 69 6f  6e 3a 22 20 4e 58 25 0d  |direction:" NX%.|
00000180  01 0e 20 e8 22 57 69 64  74 68 20 69 6e 20 59 2d  |.. ."Width in Y-|
00000190  64 69 72 65 63 74 69 6f  6e 3a 22 20 4e 59 25 0d  |direction:" NY%.|
000001a0  01 18 1e 62 79 74 65 4e  58 25 20 3d 20 4e 58 25  |...byteNX% = NX%|
000001b0  81 70 69 78 65 6c 70 65  72 62 79 74 65 0d 01 22  |.pixelperbyte.."|
000001c0  13 62 79 74 65 4e 59 25  20 3d 20 4e 59 25 2d 31  |.byteNY% = NY%-1|
000001d0  0d 01 2c 1e 53 58 25 20  3d 20 28 31 30 32 34 20  |..,.SX% = (1024 |
000001e0  81 20 4e 58 25 29 20 80  20 26 46 46 46 30 0d 01  |. NX%) . &FFF0..|
000001f0  36 1e 53 59 25 20 3d 20  28 31 30 32 34 20 81 20  |6.SY% = (1024 . |
00000200  4e 59 25 29 20 80 20 26  46 46 46 38 0d 01 40 0a  |NY%) . &FFF8..@.|
00000210  f2 63 6c 65 61 72 0d 01  4a 1c 63 75 72 73 6f 72  |.clear..J.cursor|
00000220  58 20 3d 20 30 3a 20 63  75 72 73 6f 72 59 20 3d  |X = 0: cursorY =|
00000230  20 30 0d 01 54 0b 2a 46  58 20 34 20 31 0d 01 5e  | 0..T.*FX 4 1..^|
00000240  35 63 6f 6d 6d 61 6e 64  24 20 3d 20 22 56 76 48  |5command$ = "VvH|
00000250  68 4c 6c 53 73 22 20 2b  20 bd 26 38 38 20 2b 20  |hLlSs" + .&88 + |
00000260  bd 26 38 39 20 2b 20 bd  26 38 41 20 2b 20 bd 26  |.&89 + .&8A + .&|
00000270  38 42 0d 01 68 31 63 6f  6c 6f 75 72 24 20 3d 20  |8B..h1colour$ = |
00000280  22 30 30 31 21 32 22 22  33 23 34 24 35 25 36 26  |"001!2""3#4$5%6&|
00000290  37 27 38 28 39 29 41 61  42 62 43 63 44 64 45 65  |7'8(9)AaBbCcDdEe|
000002a0  46 66 22 0d 01 72 24 6c  65 6e 67 74 68 20 3d 20  |Ff"..r$length = |
000002b0  4e 58 25 20 2a 20 4e 59  25 20 2a 20 70 69 78 62  |NX% * NY% * pixb|
000002c0  69 74 73 20 81 20 38 0d  01 7c 0a 3d 20 6d 6f 64  |its . 8..|.= mod|
000002d0  65 0d 01 86 05 20 0d 01  90 0e dd f2 6d 61 69 6e  |e.... ......main|
000002e0  6c 6f 6f 70 0d 01 9a 0b  f2 63 75 72 73 6f 72 0d  |loop.....cursor.|
000002f0  01 a4 05 f5 0d 01 ae 07  20 20 f5 0d 01 b8 0e 20  |........  ..... |
00000300  20 20 20 6b 65 79 24 3d  be 0d 01 c2 27 20 20 fd  |   key$=....'  .|
00000310  a7 63 6f 6c 6f 75 72 24  2c 6b 65 79 24 29 20 84  |.colour$,key$) .|
00000320  20 a7 63 6f 6d 6d 61 6e  64 24 2c 6b 65 79 24 29  | .command$,key$)|
00000330  0d 01 cc 23 20 20 43 25  20 3d 20 28 a7 63 6f 6c  |...#  C% = (.col|
00000340  6f 75 72 24 2c 6b 65 79  24 29 20 2b 20 31 29 20  |our$,key$) + 1) |
00000350  81 20 32 0d 01 d6 78 20  20 e7 20 43 25 20 8c 20  |. 2...x  . C% . |
00000360  f2 63 6f 6c 6f 75 72 28  43 25 2d 31 29 20 8b 20  |.colour(C%-1) . |
00000370  ee 20 a7 63 6f 6d 6d 61  6e 64 24 2c 20 6b 65 79  |. .command$, key|
00000380  24 29 20 e4 20 8d 74 5e  42 2c 20 8d 74 5e 42 2c  |$) . .t^B, .t^B,|
00000390  20 8d 54 4c 43 2c 20 8d  54 4c 43 2c 20 8d 44 76  | .TLC, .TLC, .Dv|
000003a0  42 2c 20 8d 44 76 42 2c  20 8d 74 4a 42 2c 20 8d  |B, .DvB, .tJB, .|
000003b0  74 4a 42 2c 20 8d 64 7e  41 2c 20 8d 54 5c 42 2c  |tJB, .d~A, .T\B,|
000003c0  20 8d 54 7a 42 2c 20 8d  44 58 42 0d 01 e0 07 fd  | .TzB, .DXB.....|
000003d0  20 a3 0d 01 ea 05 e1 0d  01 f4 05 20 0d 01 fe 23  | .......... ...#|
000003e0  e7 20 63 75 72 73 6f 72  58 20 3e 20 30 20 8c 20  |. cursorX > 0 . |
000003f0  f2 64 6f 63 75 72 73 6f  72 28 2d 31 2c 30 29 0d  |.docursor(-1,0).|
00000400  02 08 05 f8 0d 02 12 05  20 0d 02 1c 28 e7 20 63  |........ ...(. c|
00000410  75 72 73 6f 72 58 20 3c  20 4e 58 25 20 2d 20 31  |ursorX < NX% - 1|
00000420  20 8c 20 f2 64 6f 63 75  72 73 6f 72 28 31 2c 30  | . .docursor(1,0|
00000430  29 0d 02 26 05 f8 0d 02  30 05 20 0d 02 3a 23 e7  |)..&....0. ..:#.|
00000440  20 63 75 72 73 6f 72 59  20 3e 20 30 20 8c 20 f2  | cursorY > 0 . .|
00000450  64 6f 63 75 72 73 6f 72  28 30 2c 2d 31 29 0d 02  |docursor(0,-1)..|
00000460  44 05 f8 0d 02 4e 05 20  0d 02 58 28 e7 20 63 75  |D....N. ..X(. cu|
00000470  72 73 6f 72 59 20 3c 20  4e 59 25 20 2d 20 31 20  |rsorY < NY% - 1 |
00000480  8c 20 f2 64 6f 63 75 72  73 6f 72 28 30 2c 31 29  |. .docursor(0,1)|
00000490  0d 02 62 05 f8 0d 02 6c  05 20 0d 02 76 37 f2 6c  |..b....l. ..v7.l|
000004a0  6f 61 64 3a ef 32 32 2c  6d 6f 64 65 3a f2 73 68  |oad:.22,mode:.sh|
000004b0  61 70 65 28 a3 2c 62 79  74 65 4e 58 25 2c 62 79  |ape(.,byteNX%,by|
000004c0  74 65 4e 59 25 29 3a f2  64 69 73 70 6c 61 79 3a  |teNY%):.display:|
000004d0  f8 0d 02 80 05 20 0d 02  8a 37 f2 73 61 76 65 3a  |..... ...7.save:|
000004e0  ef 32 32 2c 6d 6f 64 65  3a f2 73 68 61 70 65 28  |.22,mode:.shape(|
000004f0  a3 2c 62 79 74 65 4e 58  25 2c 62 79 74 65 4e 59  |.,byteNX%,byteNY|
00000500  25 29 3a f2 64 69 73 70  6c 61 79 3a f8 0d 02 94  |%):.display:....|
00000510  05 20 0d 02 9e 0f e3 49  25 3d 30 b8 4e 58 25 2d  |. .....I%=0.NX%-|
00000520  31 0d 02 a8 15 20 20 e3  4a 25 3d 30 b8 28 4e 59  |1....  .J%=0.(NY|
00000530  25 2d 31 29 81 32 0d 02  b2 1a 20 20 20 20 74 65  |%-1).2....    te|
00000540  6d 70 3d a4 70 6f 69 6e  74 28 49 25 2c 4a 25 29  |mp=.point(I%,J%)|
00000550  0d 02 bc 28 20 20 20 20  f2 70 6c 6f 74 28 49 25  |...(    .plot(I%|
00000560  2c 4a 25 2c a4 70 6f 69  6e 74 28 49 25 2c 4e 59  |,J%,.point(I%,NY|
00000570  25 2d 31 2d 4a 25 29 29  0d 02 c6 1f 20 20 20 20  |%-1-J%))....    |
00000580  f2 70 6c 6f 74 28 49 25  2c 4e 59 25 2d 31 2d 4a  |.plot(I%,NY%-1-J|
00000590  25 2c 74 65 6d 70 29 0d  02 d0 09 20 20 ed 4a 25  |%,temp)....  .J%|
000005a0  0d 02 da 07 ed 49 25 0d  02 e4 1d f2 73 68 61 70  |.....I%.....shap|
000005b0  65 28 b9 2c 62 79 74 65  4e 58 25 2c 62 79 74 65  |e(.,byteNX%,byte|
000005c0  4e 59 25 29 0d 02 ee 0c  f2 64 69 73 70 6c 61 79  |NY%).....display|
000005d0  0d 02 f8 05 f8 0d 03 02  05 20 0d 03 0c 0f e3 4a  |......... .....J|
000005e0  25 3d 30 b8 4e 59 25 2d  31 0d 03 16 15 20 20 e3  |%=0.NY%-1....  .|
000005f0  49 25 3d 30 b8 28 4e 58  25 2d 31 29 81 32 0d 03  |I%=0.(NX%-1).2..|
00000600  20 1a 20 20 20 20 74 65  6d 70 3d a4 70 6f 69 6e  | .    temp=.poin|
00000610  74 28 49 25 2c 4a 25 29  0d 03 2a 28 20 20 20 20  |t(I%,J%)..*(    |
00000620  f2 70 6c 6f 74 28 49 25  2c 4a 25 2c a4 70 6f 69  |.plot(I%,J%,.poi|
00000630  6e 74 28 4e 58 25 2d 31  2d 49 25 2c 4a 25 29 29  |nt(NX%-1-I%,J%))|
00000640  0d 03 34 1f 20 20 20 20  f2 70 6c 6f 74 28 4e 58  |..4.    .plot(NX|
00000650  25 2d 31 2d 49 25 2c 4a  25 2c 74 65 6d 70 29 0d  |%-1-I%,J%,temp).|
00000660  03 3e 09 20 20 ed 49 25  0d 03 48 07 ed 4a 25 0d  |.>.  .I%..H..J%.|
00000670  03 52 1d f2 73 68 61 70  65 28 b9 2c 62 79 74 65  |.R..shape(.,byte|
00000680  4e 58 25 2c 62 79 74 65  4e 59 25 29 0d 03 5c 0c  |NX%,byteNY%)..\.|
00000690  f2 64 69 73 70 6c 61 79  0d 03 66 05 f8 0d 03 70  |.display..f....p|
000006a0  05 20 0d 03 7a 13 dd f2  70 6c 6f 74 28 58 2c 59  |. ..z...plot(X,Y|
000006b0  2c 63 6f 6c 29 0d 03 84  0a e6 30 2c 63 6f 6c 0d  |,col).....0,col.|
000006c0  03 8e 1c f0 20 36 39 2c  20 58 2a 57 25 2b 31 30  |.... 69, X*W%+10|
000006d0  32 34 2c 20 59 2a 34 2b  36 34 30 0d 03 98 05 e1  |24, Y*4+640.....|
000006e0  0d 03 a2 05 20 0d 03 ac  10 dd a4 70 6f 69 6e 74  |.... ......point|
000006f0  28 58 2c 59 29 0d 03 b6  19 3d b0 58 2a 57 25 2b  |(X,Y)....=.X*W%+|
00000700  31 30 32 34 2c 20 59 2a  34 2b 36 34 30 29 0d 03  |1024, Y*4+640)..|
00000710  c0 05 20 0d 03 ca 0d dd  f2 73 71 28 58 2c 59 29  |.. ......sq(X,Y)|
00000720  0d 03 d4 12 e6 30 2c a4  70 6f 69 6e 74 28 58 2c  |.....0,.point(X,|
00000730  59 29 0d 03 de 16 ec 20  58 20 2a 20 53 58 25 2c  |Y)..... X * SX%,|
00000740  20 59 20 2a 20 53 59 25  0d 03 e8 13 f0 20 30 2c  | Y * SY%..... 0,|
00000750  20 53 58 25 20 2d 20 34  2c 20 30 0d 03 f2 1a f0  | SX% - 4, 0.....|
00000760  20 38 31 2c 20 34 20 2d  20 53 58 25 2c 20 53 59  | 81, 4 - SX%, SY|
00000770  25 20 2d 20 34 0d 03 fc  14 f0 20 38 31 2c 20 53  |% - 4..... 81, S|
00000780  58 25 20 2d 20 34 2c 20  30 0d 04 06 05 e1 0d 04  |X% - 4, 0.......|
00000790  10 05 20 0d 04 1a 0d dd  f2 64 69 73 70 6c 61 79  |.. ......display|
000007a0  0d 04 24 0a ea 20 58 2c  20 59 0d 04 2e 15 e3 20  |..$.. X, Y..... |
000007b0  58 20 3d 20 30 20 b8 20  4e 58 25 20 2d 20 31 0d  |X = 0 . NX% - 1.|
000007c0  04 38 17 20 20 e3 20 59  20 3d 20 30 20 b8 20 4e  |.8.  . Y = 0 . N|
000007d0  59 25 20 2d 20 31 0d 04  42 11 20 20 20 20 f2 73  |Y% - 1..B.    .s|
000007e0  71 28 58 2c 20 59 29 0d  04 4c 09 20 20 ed 20 59  |q(X, Y)..L.  . Y|
000007f0  0d 04 56 07 ed 20 58 0d  04 60 0b f2 63 75 72 73  |..V.. X..`..curs|
00000800  6f 72 0d 04 6a 05 e1 0d  04 74 05 20 0d 04 7e 0c  |or..j....t. ..~.|
00000810  dd f2 63 75 72 73 6f 72  0d 04 88 06 ef 35 0d 04  |..cursor.....5..|
00000820  92 0a e6 20 33 2c 20 33  0d 04 9c 32 ec 20 53 58  |... 3, 3...2. SX|
00000830  25 20 2a 20 28 63 75 72  73 6f 72 58 20 2b 20 2e  |% * (cursorX + .|
00000840  32 35 29 2c 20 53 59 25  20 2a 20 28 63 75 72 73  |25), SY% * (curs|
00000850  6f 72 59 20 2b 20 2e 32  35 29 0d 04 a6 17 f0 20  |orY + .25)..... |
00000860  31 2c 20 53 58 25 20 81  20 32 20 2d 20 34 2c 20  |1, SX% . 2 - 4, |
00000870  30 0d 04 b0 17 f0 20 31  2c 20 30 2c 20 53 59 25  |0..... 1, 0, SY%|
00000880  20 81 20 32 20 2d 20 34  0d 04 ba 17 f0 20 31 2c  | . 2 - 4..... 1,|
00000890  20 34 20 2d 20 53 58 25  20 81 20 32 2c 20 30 0d  | 4 - SX% . 2, 0.|
000008a0  04 c4 17 f0 20 31 2c 20  30 2c 20 34 20 2d 20 53  |.... 1, 0, 4 - S|
000008b0  59 25 20 81 20 32 0d 04  ce 05 e1 0d 04 d8 05 20  |Y% . 2......... |
000008c0  0d 04 e2 0a dd f2 6c 6f  61 64 0d 04 ec 11 ea 20  |......load..... |
000008d0  49 25 2c 20 63 68 61 6e  6e 65 6c 0d 04 f6 1d f2  |I%, channel.....|
000008e0  73 68 61 70 65 28 b9 2c  62 79 74 65 4e 58 25 2c  |shape(.,byteNX%,|
000008f0  62 79 74 65 4e 59 25 29  0d 05 00 14 63 68 61 6e  |byteNY%)....chan|
00000900  6e 65 6c 3d a4 6f 70 65  6e 28 b9 29 0d 05 0a 13  |nel=.open(.)....|
00000910  e7 20 63 68 61 6e 6e 65  6c 20 3d 20 a3 20 e1 0d  |. channel = . ..|
00000920  05 14 0a f2 63 6c 65 61  72 0d 05 1e 1f e3 20 49  |....clear..... I|
00000930  25 3d 20 30 20 b8 20 28  62 79 74 65 4e 58 25 20  |%= 0 . (byteNX% |
00000940  2a 20 4e 59 25 29 2d 31  0d 05 28 1b 20 20 73 68  |* NY%)-1..(.  sh|
00000950  61 70 65 3f 20 49 25 20  3d 20 9a 23 63 68 61 6e  |ape? I% = .#chan|
00000960  6e 65 6c 0d 05 32 08 ed  20 49 25 0d 05 3c 0d d9  |nel..2.. I%..<..|
00000970  23 63 68 61 6e 6e 65 6c  0d 05 46 05 e1 0d 05 50  |#channel..F....P|
00000980  05 20 0d 05 5a 0a dd f2  73 61 76 65 0d 05 64 10  |. ..Z...save..d.|
00000990  ea 20 49 25 2c 63 68 61  6e 6e 65 6c 0d 05 6e 1d  |. I%,channel..n.|
000009a0  f2 73 68 61 70 65 28 b9  2c 62 79 74 65 4e 58 25  |.shape(.,byteNX%|
000009b0  2c 62 79 74 65 4e 59 25  29 0d 05 78 14 63 68 61  |,byteNY%)..x.cha|
000009c0  6e 6e 65 6c 3d a4 6f 70  65 6e 28 a3 29 0d 05 82  |nnel=.open(.)...|
000009d0  13 e7 20 63 68 61 6e 6e  65 6c 20 3d 20 a3 20 e1  |.. channel = . .|
000009e0  0d 05 8c 1f e3 20 49 25  3d 20 30 20 b8 20 28 62  |..... I%= 0 . (b|
000009f0  79 74 65 4e 58 25 20 2a  20 4e 59 25 29 2d 31 0d  |yteNX% * NY%)-1.|
00000a00  05 96 1a 20 20 d5 23 63  68 61 6e 6e 65 6c 2c 20  |...  .#channel, |
00000a10  73 68 61 70 65 3f 20 49  25 0d 05 a0 08 ed 20 49  |shape? I%..... I|
00000a20  25 0d 05 aa 0d d9 23 63  68 61 6e 6e 65 6c 0d 05  |%.....#channel..|
00000a30  b4 05 e1 0d 05 be 05 20  0d 05 c8 0e dd a4 6f 70  |....... ......op|
00000a40  65 6e 28 69 6e 29 0d 05  d2 08 ea 20 57 24 0d 05  |en(in)..... W$..|
00000a50  dc 09 ef 32 32 2c 37 0d  05 e6 14 e8 22 46 69 6c  |...22,7....."Fil|
00000a60  65 20 6e 61 6d 65 20 3f  22 57 24 0d 05 f0 11 e7  |e name ?"W$.....|
00000a70  20 57 24 20 3d 20 22 22  20 3d 20 a3 0d 05 fa 1c  | W$ = "" = .....|
00000a80  e7 20 69 6e 20 8c 20 3d  20 8e 28 57 24 29 20 8b  |. in . = .(W$) .|
00000a90  20 3d 20 ae 28 57 24 29  0d 06 04 05 20 0d 06 0e  | = .(W$).... ...|
00000aa0  14 dd f2 63 6f 6c 6f 75  72 28 63 6f 6c 6f 75 72  |...colour(colour|
00000ab0  29 0d 06 18 0b f2 63 75  72 73 6f 72 0d 06 22 21  |).....cursor.."!|
00000ac0  f2 70 6c 6f 74 28 63 75  72 73 6f 72 58 2c 63 75  |.plot(cursorX,cu|
00000ad0  72 73 6f 72 59 2c 63 6f  6c 6f 75 72 29 0d 06 2c  |rsorY,colour)..,|
00000ae0  18 f2 73 71 28 63 75 72  73 6f 72 58 2c 63 75 72  |..sq(cursorX,cur|
00000af0  73 6f 72 59 29 0d 06 36  0b f2 63 75 72 73 6f 72  |sorY)..6..cursor|
00000b00  0d 06 40 05 e1 0d 06 4a  05 20 0d 06 54 13 dd f2  |..@....J. ..T...|
00000b10  64 6f 63 75 72 73 6f 72  28 58 2c 59 29 0d 06 5e  |docursor(X,Y)..^|
00000b20  0b f2 63 75 72 73 6f 72  0d 06 68 19 63 75 72 73  |..cursor..h.curs|
00000b30  6f 72 58 20 3d 20 63 75  72 73 6f 72 58 20 2b 20  |orX = cursorX + |
00000b40  58 0d 06 72 19 63 75 72  73 6f 72 59 20 3d 20 63  |X..r.cursorY = c|
00000b50  75 72 73 6f 72 59 20 2b  20 59 0d 06 7c 0b f2 63  |ursorY + Y..|..c|
00000b60  75 72 73 6f 72 0d 06 86  05 e1 0d 06 90 05 20 0d  |ursor......... .|
00000b70  06 9a 0b dd f2 63 6c 65  61 72 0d 06 a4 0b ea 20  |.....clear..... |
00000b80  63 6c 65 61 72 0d 06 ae  20 e3 20 63 6c 65 61 72  |clear... . clear|
00000b90  20 3d 20 30 20 b8 20 6c  65 6e 73 68 61 70 65 2d  | = 0 . lenshape-|
00000ba0  34 20 88 20 34 0d 06 b8  15 20 20 63 6c 65 61 72  |4 . 4....  clear|
00000bb0  21 73 68 61 70 65 20 3d  20 30 0d 06 c2 0b ed 20  |!shape = 0..... |
00000bc0  63 6c 65 61 72 0d 06 cc  05 e1 0d 06 d6 05 20 0d  |clear......... .|
00000bd0  06 e0 17 dd f2 73 68 61  70 65 28 66 6c 61 67 2c  |.....shape(flag,|
00000be0  20 58 2c 20 59 29 0d 06  ea 1a ea 20 49 25 2c 20  | X, Y)..... I%, |
00000bf0  4a 25 2c 20 74 65 6d 70  78 2c 20 74 65 6d 70 79  |J%, tempx, tempy|
00000c00  0d 06 f4 0e e3 20 49 25  3d 30 20 b8 20 58 0d 06  |..... I%=0 . X..|
00000c10  fe 10 20 20 e3 20 4a 25  3d 30 20 b8 20 59 0d 07  |..  . J%=0 . Y..|
00000c20  08 1a 20 20 20 20 74 65  6d 70 78 3d 49 25 2b 31  |..    tempx=I%+1|
00000c30  30 32 34 20 81 20 31 36  0d 07 12 22 20 20 20 20  |024 . 16..."    |
00000c40  74 65 6d 70 79 3d 28 28  4a 25 2b 36 34 30 20 81  |tempy=((J%+640 .|
00000c50  20 34 29 82 26 46 46 29  81 38 0d 07 1c 4c 20 20  | 4).&FF).8...L  |
00000c60  20 20 f2 61 63 63 65 73  73 28 66 6c 61 67 2c 20  |  .access(flag, |
00000c70  28 74 65 6d 70 79 2a 26  32 38 30 2b 74 65 6d 70  |(tempy*&280+temp|
00000c80  78 2a 38 2b 28 28 4a 25  20 80 20 37 29 82 20 37  |x*8+((J% . 7). 7|
00000c90  29 2b 26 33 30 30 30 29  2c 20 59 2b 31 2c 20 4a  |)+&3000), Y+1, J|
00000ca0  25 2c 20 49 25 29 0d 07  26 0a 20 20 ed 20 4a 25  |%, I%)..&.  . J%|
00000cb0  0d 07 30 08 ed 20 49 25  0d 07 3a 05 e1 0d 07 44  |..0.. I%..:....D|
00000cc0  05 20 0d 07 4e 23 dd f2  61 63 63 65 73 73 28 66  |. ..N#..access(f|
00000cd0  6c 61 67 2c 20 61 64 64  72 2c 20 59 2c 20 4a 25  |lag, addr, Y, J%|
00000ce0  2c 20 49 25 29 0d 07 58  46 e7 20 66 6c 61 67 20  |, I%)..XF. flag |
00000cf0  8c 20 73 68 61 70 65 3f  28 49 25 2a 59 2b 28 59  |. shape?(I%*Y+(Y|
00000d00  2d 4a 25 2d 31 29 29 3d  3f 61 64 64 72 20 8b 20  |-J%-1))=?addr . |
00000d10  3f 61 64 64 72 3d 73 68  61 70 65 3f 28 49 25 2a  |?addr=shape?(I%*|
00000d20  59 2b 28 59 2d 4a 25 2d  31 29 29 0d 07 62 05 e1  |Y+(Y-J%-1))..b..|
00000d30  0d ff                                             |..|
00000d32