27-03-89/Prog2

Home » CEEFAX disks » telesoftware14.adl » 27-03-89/Prog2

27-03-89/Prog2

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 » CEEFAX disks » telesoftware14.adl
Filename:	27-03-89/Prog2
Read OK:	✔
File size:	13CB bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10 REM Modification of Digital Images
   20 
   30 REM First Year Cybernetics Project
   40 REM               By
   50 REM A.M. Errington and R. Anderson
   60 REM Main program - V.2 by Andy
   70 
   80DIMbrush$(14)
   90PROCinit
  100ON ERROR PROCerror
  110REPEAT:REPEAT
  120IFaction%=2ANDX%<1024THENPROCcallzoom
  130PROCgetpos:PROCmovecursor
  140UNTILFNbutton
  150IFX%>1020THENPROCmenuELSEPROCaction
  160UNTILquit%
  170VDU26,30,17,3,17,128:SOUND&10,-15,7,-1:FORI%=31TO0STEP-1:SOUND&11,0,I%*8,1:VDU30,11:FORJ%=0TO(I%*I%)/1.5:NEXT,:SOUND&10,0,0,0
  180END
  190DEFFNbutton:IFD%=0THEN=INKEY(-74)ELSE=-(ADVAL(0)AND3)
  200DEFPROCmenu
  210icon%=((X%-1056)DIV64)+((Y%-32)DIV64)*3
  220PROCdelcursor
  230IFicon%=0ANDF%<>2THENF%=2:PROCcolouriconsELSEIFicon%=0THENREPEATPC2%=(PC2%+1)MOD8:UNTIL((PC2%<>PC0%)AND(PC2%<>PC1%)AND(PC2%<>PC3%)):VDU19,2,PC2%;0;
  240IFicon%=1ANDF%<>3THENF%=3:PROCcolouriconsELSEIFicon%=1THENREPEATPC3%=(PC3%+1)MOD8:UNTIL((PC3%<>PC0%)AND(PC3%<>PC1%)AND(PC3%<>PC2%)):VDU19,3,PC3%;0;
  250IFicon%=3ANDF%<>0THENF%=0:PROCcolouriconsELSEIFicon%=3THENREPEATPC0%=(PC0%+1)MOD8:UNTIL((PC0%<>PC1%)AND(PC0%<>PC2%)AND(PC0%<>PC3%)):VDU19,0,PC0%;0;
  260IFicon%=4ANDF%<>1THENF%=1:PROCcolouriconsELSEIFicon%=4THENREPEATPC1%=(PC1%+1)MOD8:UNTIL((PC1%<>PC0%)AND(PC1%<>PC2%)AND(PC1%<>PC3%)):VDU19,1,PC1%;0;
  270IFicon%=5THENPROCeditfill:icon%=9
  280IFicon%>29ANDicon%<45THENB%=icon%-30:PROCselectbrush:icon%=10
  290IFicon%=9ANDaction%<>0THENaction%=0:PROCutilicons
  300IFicon%=10ANDaction%<>1THENaction%=1:PROCutilicons
  310IFicon%=11ANDaction%<>2THENaction%=2:PROCutilicons
  320IFicon%=15THENPROCsave
  330PROCdelcursor:REPEATUNTILNOTFNbutton:ENDPROC
  340DEFPROCbrushicons
  350VDU4,28,33,10,38,1,12,26,5,18,0,0,18,0,131:FORI%=0TO14:VDU18,0,0,25,4,1088+(I%MOD3)*64;702+(I%DIV3)*64;:PRINTbrush$(I%):NEXT:VDU18,3,1,25,4,1088+(B%MOD3)*64;702+(B%DIV3)*64;:PRINTbrush$(0):VDU4:ENDPROC
  360DEFPROCselectbrush:IFB%=OB%THENENDPROC
  370VDU5,18,3,1,25,4,1088+(OB%MOD3)*64;702+(OB%DIV3)*64;:PRINTbrush$(0):VDU25,4,1088+(B%MOD3)*64;702+(B%DIV3)*64;:PRINTbrush$(0):VDU4:OB%=B%:ENDPROC
  380DEFPROCkillbrushes:FORI%=33TO38:FORJ%=1TO20:PRINTTAB(I%,J%);CHR$165;:NEXT,:ENDPROC
  390DEFPROCaction
  400IFaction%=0THENPROCfill:ENDPROC
  410IF (X%<32)OR(X%>998)OR(Y%<32)OR(Y%>998) THEN ENDPROC
  420PROCdelcursor:VDU25,4,X%;Y%;18,0,F%,5:PRINTbrush$(B%):VDU4:PROCdelcursor:ENDPROC
  430DEFPROCdelcursor:VDU4,18,3,3,25,4,X%;0;25,5,X%;1020;25,4,0;Y%;25,5,1276;Y%;:E%=NOT E%:ENDPROC
  440DEFPROCgetpos
  450IFD%<>0THENGOTO500
  460IFINKEY(-1)THENI%=32ELSEI%=4
  470IFINKEY(-98)ANDX%>0THENX%=X%-I%ELSEIFINKEY(-67)ANDX%<1276THENX%=X%+I%
  480IFINKEY(-73)ANDY%<1020THENY%=Y%+I%ELSEIFINKEY(-105)ANDY%>0THENY%=Y%-I%
  490ENDPROC
  500X%=((1280-ADVAL(1)/51.2)+OX%)DIV8*4:Y%=(OY%+ADVAL(2)/64)DIV6*3:ENDPROC
  510DEFPROCmovecursor:GCOL3,3
  520IFX%<>OX%THENVDU25,4,OX%;0;25,5,OX%;1020;25,4,X%;0;25,5,X%;1020;:OX%=X%
  530IFY%=OY%THENENDPROCELSEVDU25,4,0;OY%;25,5,1276;OY%;25,4,0;Y%;25,5,1276;Y%;:OY%=Y%:ENDPROC
  540DEFPROCicon(C1%,C2%,C3%,C4%,IX%,IY%,FC%,BC%):VDU31,IX%,IY%,17,FC%,17,BC%OR128,C1%,C2%,8,8,10,C3%,C4%:ENDPROC
  550DEFPROCfillicon
  560LOCALC1%,C2%,C3%,C4%
  570C1%=(C%AND&C0)DIV64:C2%=(C%AND&30)DIV16:C3%=(C%AND&0C)DIV4:C4%=(C%AND&03)
  580VDU4,17,C1%,31,37,27,166,17,C2%,166,8,8,10,17,C3%,166,17,C4%,166,5,25,4,1184;92;18,0,C1%,154,154,8,8,10,154,154,8,8,11,18,0,C2%,155,155,8,8,10,155,155,8,8,11,18,0,C3%,156,156,8,8,10,156,156,8,8,11,18,0,C4%,157,157,8,8,10,157,157,4
  590ENDPROC
  600DEFPROCeditfill
  610LOCALC1%,C2%,C3%,C4%,part%
  620part%=((X%-1184)DIV32)+((Y%-96)DIV32)*2
  630C1%=(C%AND&C0)DIV64:C2%=(C%AND&30)DIV16:C3%=(C%AND&0C)DIV4:C4%=(C%AND&03)
  640IFpart%=0THENC3%=(C3%+1)MOD4
  650IFpart%=1THENC4%=(C4%+1)MOD4
  660IFpart%=2THENC1%=(C1%+1)MOD4
  670IFpart%=3THENC2%=(C2%+1)MOD4
  680C%=(64*C1%)+(16*C2%)+(4*C3%)+C4%:PROCfillicon:ENDPROC
  690DEFPROCfill:PROCdelcursor:VDU24,0;0;1020;1020;:GCOL0,POINT(X%,Y%)+128:?&1472=POINT(X%,Y%):CALLcolfill,X%,Y%,C%:VDU26:PROCdelcursor:ENDPROC
  700DEFPROCdiscicon
  710VDU4,17,3,17,128:FORI%=33TO38:FORJ%=17TO20:PRINTTAB(I%,J%);CHR$165;:NEXT,:PROCicon(172,173,174,175,33,19,0,3)
  720ENDPROC
  730DEFPROCsave
  740VDU4,17,0,17,131,28,33,20,38,17,12:*FX15
  750INPUT"Save: "F$:IFF$<>""THENOSCLI("SAVE "+F$+" 3000 8000")
  760CLS:PRINT"QUIT?"'"(Y/N)":REPEATG$=GET$:UNTIL((G$="Y")OR(G$="N")):IFG$="Y"THENquit%=TRUE
  770VDU26
  780PROCdiscicon
  790ENDPROC
  800DEFPROCcallzoom
  810PROCdelcursor:PROCkillbrushes:PAGE=&1D00:CHAIN"ZOOM"
  820DEFPROCinit
  830VDU23;8202;0;0;0;4
  840colfill=&1200:*LO.COLFILL 1200
  850F%=3:PC0%=?&36F:PC1%=?&370:PC2%=?&371:PC3%=?&372
  860quit%=FALSE:action%=A%
  870SC$=CHR$25+CHR$0+CHR$244+CHR$255+CHR$12+CHR$0:BS$=CHR$8:UP$=CHR$11:DN$=CHR$10
  880brush$(0)=BS$+UP$+CHR$132+CHR$133+BS$+BS$+DN$+CHR$134+CHR$135
  890brush$(1)=BS$+UP$+CHR$136+CHR$137+BS$+BS$+DN$+CHR$138+CHR$139
  900brush$(3)=SC$+CHR$166
  910brush$(4)=BS$+UP$+CHR$140+CHR$141+BS$+BS$+DN$+CHR$142+CHR$143
  920brush$(6)=SC$+CHR$131
  930brush$(7)=BS$+UP$+CHR$148+CHR$149+BS$+BS$+DN$+CHR$150+CHR$151
  940brush$(9)=SC$+CHR$130
  950brush$(10)=SC$+CHR$152
  960brush$(11)=BS$+UP$+CHR$159+CHR$160+BS$+BS$+DN$+CHR$161+CHR$162
  970brush$(12)=SC$+CHR$129
  980brush$(13)=SC$+CHR$153 
  990brush$(14)=SC$+CHR$158
 1000PROCcolouricons:PROCutilicons:PROCdiscicon
 1010B%=12:OB%=B%
 1020PROCbrushicons
 1030IFZ%=0THENPROCcoldstartELSEPROCdelcursor:PROCfillicon
 1035action%=A%
 1040OX%=X%:OY%=Y%
 1050*FX 16,2
 1060ENDPROC
 1070DEFPROCcoldstart
 1080X%=512:Y%=512
 1090C%=&42:PROCfillicon
 1100PROCdelcursor
 1110A%=1:E%=TRUE
 1120SOUND&10,-15,7,-1:FORI%=0TO80:SOUND&11,0,I%*3,20:?&FE00=1:?&FE01=I%:FORJ%=1TO60:NEXT:NEXT:SOUND&10,0,0,0
 1130D%=-1:REPEATIF(ADVAL(0)AND3)=1THEND%=1ELSEIFINKEY(-99)THEND%=0
 1140UNTILD%<>-1
 1150REPEATUNTILNOTFNbutton
 1160ENDPROC
 1170DEFPROCcolouricons:PROCicon(32,32,32,32,33,27,0,0):PROCicon(32,32,32,32,35,27,0,1):PROCicon(32,32,32,32,33,29,0,2):PROCicon(32,32,32,32,35,29,0,3):PROCicon(188,189,190,191,33+(F%MOD2)*2,27+(F%DIV2)*2,F%EOR3,F%):ENDPROC
 1180DEFPROCutilicons
 1190IFaction%=0THENPROCicon(176,177,178,179,33,23,3,0)ELSEPROCicon(176,177,178,179,33,23,0,3)
 1200IFaction%=1THENPROCicon(180,181,182,183,35,23,3,0)ELSEPROCicon(180,181,182,183,35,23,0,3)
 1210IFaction%=2THENPROCicon(184,185,186,187,37,23,3,0)ELSEPROCicon(184,185,186,187,37,23,0,3)
 1220ENDPROC
 1230DEFPROCerror
 1240REM IF ERR=17 THEN ENDPROC
 1250VDU4,28,33,20,38,15,12:REPORT:PRINTERL
 1260G$=GET$:VDU26,17,3,17,128:FORI%=33TO38:FORJ%=15TO16:PRINTTAB(I%,J%);CHR$165;:NEXT,:PROCdiscicon
 1270IF NOT E% THENPROCdelcursor
 1280ENDPROC


% � Modification of Digital Images
 
% � First Year Cybernetics Project
( �               By
2% � A.M. Errington and R. Anderson
<! � Main program - V.2 by Andy
F 
P�brush$(14)
Z	�init
d� � �error
n�:�
x �action%=2�X%<1024��callzoom
��getpos:�movecursor
���button
��X%>1020��menu��action
�
�quit%
�e�26,30,17,3,17,128:�&10,-15,7,-1:�I%=31�0�-1:�&11,0,I%*8,1:�30,11:�J%=0�(I%*I%)/1.5:�,:�&10,0,0,0
��
�%ݤbutton:�D%=0�=�(-74)�=-(�(0)�3)
�
��menu
�'icon%=((X%-1056)�64)+((Y%-32)�64)*3
��delcursor
�v�icon%=0�F%<>2�F%=2:�colouricons��icon%=0��PC2%=(PC2%+1)�8:�((PC2%<>PC0%)�(PC2%<>PC1%)�(PC2%<>PC3%)):�19,2,PC2%;0;
�v�icon%=1�F%<>3�F%=3:�colouricons��icon%=1��PC3%=(PC3%+1)�8:�((PC3%<>PC0%)�(PC3%<>PC1%)�(PC3%<>PC2%)):�19,3,PC3%;0;
�v�icon%=3�F%<>0�F%=0:�colouricons��icon%=3��PC0%=(PC0%+1)�8:�((PC0%<>PC1%)�(PC0%<>PC2%)�(PC0%<>PC3%)):�19,0,PC0%;0;
v�icon%=4�F%<>1�F%=1:�colouricons��icon%=4��PC1%=(PC1%+1)�8:�((PC1%<>PC0%)�(PC1%<>PC2%)�(PC1%<>PC3%)):�19,1,PC1%;0;
�icon%=5��editfill:icon%=9
8�icon%>29�icon%<45�B%=icon%-30:�selectbrush:icon%=10
",�icon%=9�action%<>0�action%=0:�utilicons
,-�icon%=10�action%<>1�action%=1:�utilicons
6-�icon%=11�action%<>2�action%=2:�utilicons
@�icon%=15��save
J�delcursor:����button:�
T��brushicons
^��4,28,33,10,38,1,12,26,5,18,0,0,18,0,131:�I%=0�14:�18,0,0,25,4,1088+(I%�3)*64;702+(I%�3)*64;:�brush$(I%):�:�18,3,1,25,4,1088+(B%�3)*64;702+(B%�3)*64;:�brush$(0):�4:�
h��selectbrush:�B%=OB%��
rx�5,18,3,1,25,4,1088+(OB%�3)*64;702+(OB%�3)*64;:�brush$(0):�25,4,1088+(B%�3)*64;702+(B%�3)*64;:�brush$(0):�4:OB%=B%:�
|8��killbrushes:�I%=33�38:�J%=1�20:�I%,J%);�165;:�,:�
���action
��action%=0��fill:�
�+� (X%<32)�(X%>998)�(Y%<32)�(Y%>998) � �
�@�delcursor:�25,4,X%;Y%;18,0,F%,5:�brush$(B%):�4:�delcursor:�
�R��delcursor:�4,18,3,3,25,4,X%;0;25,5,X%;1020;25,4,0;Y%;25,5,1276;Y%;:E%=� E%:�
���getpos
��D%<>0��dtA
��(-1)�I%=32�I%=4
�2�(-98)�X%>0�X%=X%-I%��(-67)�X%<1276�X%=X%+I%
�3�(-73)�Y%<1020�Y%=Y%+I%��(-105)�Y%>0�Y%=Y%-I%
��
�8X%=((1280-�(1)/51.2)+OX%)�8*4:Y%=(OY%+�(2)/64)�6*3:�
���movecursor:�3,3
E�X%<>OX%��25,4,OX%;0;25,5,OX%;1020;25,4,X%;0;25,5,X%;1020;:OX%=X%
H�Y%=OY%���25,4,0;OY%;25,5,1276;OY%;25,4,0;Y%;25,5,1276;Y%;:OY%=Y%:�
b��icon(C1%,C2%,C3%,C4%,IX%,IY%,FC%,BC%):�31,IX%,IY%,17,FC%,17,BC%�128,C1%,C2%,8,8,10,C3%,C4%:�
&��fillicon
0�C1%,C2%,C3%,C4%
:?C1%=(C%�&C0)�64:C2%=(C%�&30)�16:C3%=(C%�&0C)�4:C4%=(C%�&03)
D��4,17,C1%,31,37,27,166,17,C2%,166,8,8,10,17,C3%,166,17,C4%,166,5,25,4,1184;92;18,0,C1%,154,154,8,8,10,154,154,8,8,11,18,0,C2%,155,155,8,8,10,155,155,8,8,11,18,0,C3%,156,156,8,8,10,156,156,8,8,11,18,0,C4%,157,157,8,8,10,157,157,4
N�
X��editfill
b�C1%,C2%,C3%,C4%,part%
l'part%=((X%-1184)�32)+((Y%-96)�32)*2
v?C1%=(C%�&C0)�64:C2%=(C%�&30)�16:C3%=(C%�&0C)�4:C4%=(C%�&03)
��part%=0�C3%=(C3%+1)�4
��part%=1�C4%=(C4%+1)�4
��part%=2�C1%=(C1%+1)�4
��part%=3�C2%=(C2%+1)�4
�0C%=(64*C1%)+(16*C2%)+(4*C3%)+C4%:�fillicon:�
�i��fill:�delcursor:�24,0;0;1020;1020;:�0,�X%,Y%)+128:?&1472=�X%,Y%):�colfill,X%,Y%,C%:�26:�delcursor:�
���discicon
�Y�4,17,3,17,128:�I%=33�38:�J%=17�20:�I%,J%);�165;:�,:�icon(172,173,174,175,33,19,0,3)
��
�
��save
�*�4,17,0,17,131,28,33,20,38,17,12:*FX15
�2�"Save: "F$:�F$<>""��("SAVE "+F$+" 3000 8000")
�A�:�"QUIT?"'"(Y/N)":�G$=�:�((G$="Y")�(G$="N")):�G$="Y"�quit%=�
�26

�discicon
�
 ��callzoom
*+�delcursor:�killbrushes:�=&1D00:�"ZOOM"
4
��init
>�23;8202;0;0;0;4
H"colfill=&1200:*LO.COLFILL 1200
R4F%=3:PC0%=?&36F:PC1%=?&370:PC2%=?&371:PC3%=?&372
\quit%=�:action%=A%
f6SC$=�25+�0+�244+�255+�12+�0:BS$=�8:UP$=�11:DN$=�10
p5brush$(0)=BS$+UP$+�132+�133+BS$+BS$+DN$+�134+�135
z5brush$(1)=BS$+UP$+�136+�137+BS$+BS$+DN$+�138+�139
�brush$(3)=SC$+�166
�5brush$(4)=BS$+UP$+�140+�141+BS$+BS$+DN$+�142+�143
�brush$(6)=SC$+�131
�5brush$(7)=BS$+UP$+�148+�149+BS$+BS$+DN$+�150+�151
�brush$(9)=SC$+�130
�brush$(10)=SC$+�152
�6brush$(11)=BS$+UP$+�159+�160+BS$+BS$+DN$+�161+�162
�brush$(12)=SC$+�129
�brush$(13)=SC$+�153 
�brush$(14)=SC$+�158
�%�colouricons:�utilicons:�discicon
�B%=12:OB%=B%
��brushicons
)�Z%=0��coldstart��delcursor:�fillicon
action%=A%
OX%=X%:OY%=Y%
*FX 16,2
$�
.��coldstart
8X%=512:Y%=512
BC%=&42:�fillicon
L�delcursor
V
A%=1:E%=�
`T�&10,-15,7,-1:�I%=0�80:�&11,0,I%*3,20:?&FE00=1:?&FE01=I%:�J%=1�60:�:�:�&10,0,0,0
j(D%=-1:��(�(0)�3)=1�D%=1��(-99)�D%=0
t�D%<>-1
~����button
��
����colouricons:�icon(32,32,32,32,33,27,0,0):�icon(32,32,32,32,35,27,0,1):�icon(32,32,32,32,33,29,0,2):�icon(32,32,32,32,35,29,0,3):�icon(188,189,190,191,33+(F%�2)*2,27+(F%�2)*2,F%�3,F%):�
���utilicons
�P�action%=0��icon(176,177,178,179,33,23,3,0)��icon(176,177,178,179,33,23,0,3)
�P�action%=1��icon(180,181,182,183,35,23,3,0)��icon(180,181,182,183,35,23,0,3)
�P�action%=2��icon(184,185,186,187,37,23,3,0)��icon(184,185,186,187,37,23,0,3)
��
���error
�� IF ERR=17 THEN ENDPROC
��4,28,33,20,38,15,12:�:�
�HG$=�:�26,17,3,17,128:�I%=33�38:�J%=15�16:�I%,J%);�165;:�,:�discicon
�� � E% ��delcursor
�
�

00000000  0d 00 0a 25 20 f4 20 4d  6f 64 69 66 69 63 61 74  |...% . Modificat|
00000010  69 6f 6e 20 6f 66 20 44  69 67 69 74 61 6c 20 49  |ion of Digital I|
00000020  6d 61 67 65 73 0d 00 14  05 20 0d 00 1e 25 20 f4  |mages.... ...% .|
00000030  20 46 69 72 73 74 20 59  65 61 72 20 43 79 62 65  | First Year Cybe|
00000040  72 6e 65 74 69 63 73 20  50 72 6f 6a 65 63 74 0d  |rnetics Project.|
00000050  00 28 17 20 f4 20 20 20  20 20 20 20 20 20 20 20  |.(. .           |
00000060  20 20 20 20 42 79 0d 00  32 25 20 f4 20 41 2e 4d  |    By..2% . A.M|
00000070  2e 20 45 72 72 69 6e 67  74 6f 6e 20 61 6e 64 20  |. Errington and |
00000080  52 2e 20 41 6e 64 65 72  73 6f 6e 0d 00 3c 21 20  |R. Anderson..<! |
00000090  f4 20 4d 61 69 6e 20 70  72 6f 67 72 61 6d 20 2d  |. Main program -|
000000a0  20 56 2e 32 20 62 79 20  41 6e 64 79 0d 00 46 05  | V.2 by Andy..F.|
000000b0  20 0d 00 50 0f de 62 72  75 73 68 24 28 31 34 29  | ..P..brush$(14)|
000000c0  0d 00 5a 09 f2 69 6e 69  74 0d 00 64 0e ee 20 85  |..Z..init..d.. .|
000000d0  20 f2 65 72 72 6f 72 0d  00 6e 07 f5 3a f5 0d 00  | .error..n..:...|
000000e0  78 20 e7 61 63 74 69 6f  6e 25 3d 32 80 58 25 3c  |x .action%=2.X%<|
000000f0  31 30 32 34 8c f2 63 61  6c 6c 7a 6f 6f 6d 0d 00  |1024..callzoom..|
00000100  82 17 f2 67 65 74 70 6f  73 3a f2 6d 6f 76 65 63  |...getpos:.movec|
00000110  75 72 73 6f 72 0d 00 8c  0c fd a4 62 75 74 74 6f  |ursor......butto|
00000120  6e 0d 00 96 1a e7 58 25  3e 31 30 32 30 8c f2 6d  |n.....X%>1020..m|
00000130  65 6e 75 8b f2 61 63 74  69 6f 6e 0d 00 a0 0a fd  |enu..action.....|
00000140  71 75 69 74 25 0d 00 aa  65 ef 32 36 2c 33 30 2c  |quit%...e.26,30,|
00000150  31 37 2c 33 2c 31 37 2c  31 32 38 3a d4 26 31 30  |17,3,17,128:.&10|
00000160  2c 2d 31 35 2c 37 2c 2d  31 3a e3 49 25 3d 33 31  |,-15,7,-1:.I%=31|
00000170  b8 30 88 2d 31 3a d4 26  31 31 2c 30 2c 49 25 2a  |.0.-1:.&11,0,I%*|
00000180  38 2c 31 3a ef 33 30 2c  31 31 3a e3 4a 25 3d 30  |8,1:.30,11:.J%=0|
00000190  b8 28 49 25 2a 49 25 29  2f 31 2e 35 3a ed 2c 3a  |.(I%*I%)/1.5:.,:|
000001a0  d4 26 31 30 2c 30 2c 30  2c 30 0d 00 b4 05 e0 0d  |.&10,0,0,0......|
000001b0  00 be 25 dd a4 62 75 74  74 6f 6e 3a e7 44 25 3d  |..%..button:.D%=|
000001c0  30 8c 3d a6 28 2d 37 34  29 8b 3d 2d 28 96 28 30  |0.=.(-74).=-(.(0|
000001d0  29 80 33 29 0d 00 c8 0a  dd f2 6d 65 6e 75 0d 00  |).3)......menu..|
000001e0  d2 27 69 63 6f 6e 25 3d  28 28 58 25 2d 31 30 35  |.'icon%=((X%-105|
000001f0  36 29 81 36 34 29 2b 28  28 59 25 2d 33 32 29 81  |6).64)+((Y%-32).|
00000200  36 34 29 2a 33 0d 00 dc  0e f2 64 65 6c 63 75 72  |64)*3.....delcur|
00000210  73 6f 72 0d 00 e6 76 e7  69 63 6f 6e 25 3d 30 80  |sor...v.icon%=0.|
00000220  46 25 3c 3e 32 8c 46 25  3d 32 3a f2 63 6f 6c 6f  |F%<>2.F%=2:.colo|
00000230  75 72 69 63 6f 6e 73 8b  e7 69 63 6f 6e 25 3d 30  |uricons..icon%=0|
00000240  8c f5 50 43 32 25 3d 28  50 43 32 25 2b 31 29 83  |..PC2%=(PC2%+1).|
00000250  38 3a fd 28 28 50 43 32  25 3c 3e 50 43 30 25 29  |8:.((PC2%<>PC0%)|
00000260  80 28 50 43 32 25 3c 3e  50 43 31 25 29 80 28 50  |.(PC2%<>PC1%).(P|
00000270  43 32 25 3c 3e 50 43 33  25 29 29 3a ef 31 39 2c  |C2%<>PC3%)):.19,|
00000280  32 2c 50 43 32 25 3b 30  3b 0d 00 f0 76 e7 69 63  |2,PC2%;0;...v.ic|
00000290  6f 6e 25 3d 31 80 46 25  3c 3e 33 8c 46 25 3d 33  |on%=1.F%<>3.F%=3|
000002a0  3a f2 63 6f 6c 6f 75 72  69 63 6f 6e 73 8b e7 69  |:.colouricons..i|
000002b0  63 6f 6e 25 3d 31 8c f5  50 43 33 25 3d 28 50 43  |con%=1..PC3%=(PC|
000002c0  33 25 2b 31 29 83 38 3a  fd 28 28 50 43 33 25 3c  |3%+1).8:.((PC3%<|
000002d0  3e 50 43 30 25 29 80 28  50 43 33 25 3c 3e 50 43  |>PC0%).(PC3%<>PC|
000002e0  31 25 29 80 28 50 43 33  25 3c 3e 50 43 32 25 29  |1%).(PC3%<>PC2%)|
000002f0  29 3a ef 31 39 2c 33 2c  50 43 33 25 3b 30 3b 0d  |):.19,3,PC3%;0;.|
00000300  00 fa 76 e7 69 63 6f 6e  25 3d 33 80 46 25 3c 3e  |..v.icon%=3.F%<>|
00000310  30 8c 46 25 3d 30 3a f2  63 6f 6c 6f 75 72 69 63  |0.F%=0:.colouric|
00000320  6f 6e 73 8b e7 69 63 6f  6e 25 3d 33 8c f5 50 43  |ons..icon%=3..PC|
00000330  30 25 3d 28 50 43 30 25  2b 31 29 83 38 3a fd 28  |0%=(PC0%+1).8:.(|
00000340  28 50 43 30 25 3c 3e 50  43 31 25 29 80 28 50 43  |(PC0%<>PC1%).(PC|
00000350  30 25 3c 3e 50 43 32 25  29 80 28 50 43 30 25 3c  |0%<>PC2%).(PC0%<|
00000360  3e 50 43 33 25 29 29 3a  ef 31 39 2c 30 2c 50 43  |>PC3%)):.19,0,PC|
00000370  30 25 3b 30 3b 0d 01 04  76 e7 69 63 6f 6e 25 3d  |0%;0;...v.icon%=|
00000380  34 80 46 25 3c 3e 31 8c  46 25 3d 31 3a f2 63 6f  |4.F%<>1.F%=1:.co|
00000390  6c 6f 75 72 69 63 6f 6e  73 8b e7 69 63 6f 6e 25  |louricons..icon%|
000003a0  3d 34 8c f5 50 43 31 25  3d 28 50 43 31 25 2b 31  |=4..PC1%=(PC1%+1|
000003b0  29 83 38 3a fd 28 28 50  43 31 25 3c 3e 50 43 30  |).8:.((PC1%<>PC0|
000003c0  25 29 80 28 50 43 31 25  3c 3e 50 43 32 25 29 80  |%).(PC1%<>PC2%).|
000003d0  28 50 43 31 25 3c 3e 50  43 33 25 29 29 3a ef 31  |(PC1%<>PC3%)):.1|
000003e0  39 2c 31 2c 50 43 31 25  3b 30 3b 0d 01 0e 1e e7  |9,1,PC1%;0;.....|
000003f0  69 63 6f 6e 25 3d 35 8c  f2 65 64 69 74 66 69 6c  |icon%=5..editfil|
00000400  6c 3a 69 63 6f 6e 25 3d  39 0d 01 18 38 e7 69 63  |l:icon%=9...8.ic|
00000410  6f 6e 25 3e 32 39 80 69  63 6f 6e 25 3c 34 35 8c  |on%>29.icon%<45.|
00000420  42 25 3d 69 63 6f 6e 25  2d 33 30 3a f2 73 65 6c  |B%=icon%-30:.sel|
00000430  65 63 74 62 72 75 73 68  3a 69 63 6f 6e 25 3d 31  |ectbrush:icon%=1|
00000440  30 0d 01 22 2c e7 69 63  6f 6e 25 3d 39 80 61 63  |0..",.icon%=9.ac|
00000450  74 69 6f 6e 25 3c 3e 30  8c 61 63 74 69 6f 6e 25  |tion%<>0.action%|
00000460  3d 30 3a f2 75 74 69 6c  69 63 6f 6e 73 0d 01 2c  |=0:.utilicons..,|
00000470  2d e7 69 63 6f 6e 25 3d  31 30 80 61 63 74 69 6f  |-.icon%=10.actio|
00000480  6e 25 3c 3e 31 8c 61 63  74 69 6f 6e 25 3d 31 3a  |n%<>1.action%=1:|
00000490  f2 75 74 69 6c 69 63 6f  6e 73 0d 01 36 2d e7 69  |.utilicons..6-.i|
000004a0  63 6f 6e 25 3d 31 31 80  61 63 74 69 6f 6e 25 3c  |con%=11.action%<|
000004b0  3e 32 8c 61 63 74 69 6f  6e 25 3d 32 3a f2 75 74  |>2.action%=2:.ut|
000004c0  69 6c 69 63 6f 6e 73 0d  01 40 13 e7 69 63 6f 6e  |ilicons..@..icon|
000004d0  25 3d 31 35 8c f2 73 61  76 65 0d 01 4a 1b f2 64  |%=15..save..J..d|
000004e0  65 6c 63 75 72 73 6f 72  3a f5 fd ac a4 62 75 74  |elcursor:....but|
000004f0  74 6f 6e 3a e1 0d 01 54  10 dd f2 62 72 75 73 68  |ton:...T...brush|
00000500  69 63 6f 6e 73 0d 01 5e  a9 ef 34 2c 32 38 2c 33  |icons..^..4,28,3|
00000510  33 2c 31 30 2c 33 38 2c  31 2c 31 32 2c 32 36 2c  |3,10,38,1,12,26,|
00000520  35 2c 31 38 2c 30 2c 30  2c 31 38 2c 30 2c 31 33  |5,18,0,0,18,0,13|
00000530  31 3a e3 49 25 3d 30 b8  31 34 3a ef 31 38 2c 30  |1:.I%=0.14:.18,0|
00000540  2c 30 2c 32 35 2c 34 2c  31 30 38 38 2b 28 49 25  |,0,25,4,1088+(I%|
00000550  83 33 29 2a 36 34 3b 37  30 32 2b 28 49 25 81 33  |.3)*64;702+(I%.3|
00000560  29 2a 36 34 3b 3a f1 62  72 75 73 68 24 28 49 25  |)*64;:.brush$(I%|
00000570  29 3a ed 3a ef 31 38 2c  33 2c 31 2c 32 35 2c 34  |):.:.18,3,1,25,4|
00000580  2c 31 30 38 38 2b 28 42  25 83 33 29 2a 36 34 3b  |,1088+(B%.3)*64;|
00000590  37 30 32 2b 28 42 25 81  33 29 2a 36 34 3b 3a f1  |702+(B%.3)*64;:.|
000005a0  62 72 75 73 68 24 28 30  29 3a ef 34 3a e1 0d 01  |brush$(0):.4:...|
000005b0  68 1b dd f2 73 65 6c 65  63 74 62 72 75 73 68 3a  |h...selectbrush:|
000005c0  e7 42 25 3d 4f 42 25 8c  e1 0d 01 72 78 ef 35 2c  |.B%=OB%....rx.5,|
000005d0  31 38 2c 33 2c 31 2c 32  35 2c 34 2c 31 30 38 38  |18,3,1,25,4,1088|
000005e0  2b 28 4f 42 25 83 33 29  2a 36 34 3b 37 30 32 2b  |+(OB%.3)*64;702+|
000005f0  28 4f 42 25 81 33 29 2a  36 34 3b 3a f1 62 72 75  |(OB%.3)*64;:.bru|
00000600  73 68 24 28 30 29 3a ef  32 35 2c 34 2c 31 30 38  |sh$(0):.25,4,108|
00000610  38 2b 28 42 25 83 33 29  2a 36 34 3b 37 30 32 2b  |8+(B%.3)*64;702+|
00000620  28 42 25 81 33 29 2a 36  34 3b 3a f1 62 72 75 73  |(B%.3)*64;:.brus|
00000630  68 24 28 30 29 3a ef 34  3a 4f 42 25 3d 42 25 3a  |h$(0):.4:OB%=B%:|
00000640  e1 0d 01 7c 38 dd f2 6b  69 6c 6c 62 72 75 73 68  |...|8..killbrush|
00000650  65 73 3a e3 49 25 3d 33  33 b8 33 38 3a e3 4a 25  |es:.I%=33.38:.J%|
00000660  3d 31 b8 32 30 3a f1 8a  49 25 2c 4a 25 29 3b bd  |=1.20:..I%,J%);.|
00000670  31 36 35 3b 3a ed 2c 3a  e1 0d 01 86 0c dd f2 61  |165;:.,:.......a|
00000680  63 74 69 6f 6e 0d 01 90  16 e7 61 63 74 69 6f 6e  |ction.....action|
00000690  25 3d 30 8c f2 66 69 6c  6c 3a e1 0d 01 9a 2b e7  |%=0..fill:....+.|
000006a0  20 28 58 25 3c 33 32 29  84 28 58 25 3e 39 39 38  | (X%<32).(X%>998|
000006b0  29 84 28 59 25 3c 33 32  29 84 28 59 25 3e 39 39  |).(Y%<32).(Y%>99|
000006c0  38 29 20 8c 20 e1 0d 01  a4 40 f2 64 65 6c 63 75  |8) . ....@.delcu|
000006d0  72 73 6f 72 3a ef 32 35  2c 34 2c 58 25 3b 59 25  |rsor:.25,4,X%;Y%|
000006e0  3b 31 38 2c 30 2c 46 25  2c 35 3a f1 62 72 75 73  |;18,0,F%,5:.brus|
000006f0  68 24 28 42 25 29 3a ef  34 3a f2 64 65 6c 63 75  |h$(B%):.4:.delcu|
00000700  72 73 6f 72 3a e1 0d 01  ae 52 dd f2 64 65 6c 63  |rsor:....R..delc|
00000710  75 72 73 6f 72 3a ef 34  2c 31 38 2c 33 2c 33 2c  |ursor:.4,18,3,3,|
00000720  32 35 2c 34 2c 58 25 3b  30 3b 32 35 2c 35 2c 58  |25,4,X%;0;25,5,X|
00000730  25 3b 31 30 32 30 3b 32  35 2c 34 2c 30 3b 59 25  |%;1020;25,4,0;Y%|
00000740  3b 32 35 2c 35 2c 31 32  37 36 3b 59 25 3b 3a 45  |;25,5,1276;Y%;:E|
00000750  25 3d ac 20 45 25 3a e1  0d 01 b8 0c dd f2 67 65  |%=. E%:.......ge|
00000760  74 70 6f 73 0d 01 c2 10  e7 44 25 3c 3e 30 8c e5  |tpos.....D%<>0..|
00000770  8d 64 74 41 0d 01 cc 15  e7 a6 28 2d 31 29 8c 49  |.dtA......(-1).I|
00000780  25 3d 33 32 8b 49 25 3d  34 0d 01 d6 32 e7 a6 28  |%=32.I%=4...2..(|
00000790  2d 39 38 29 80 58 25 3e  30 8c 58 25 3d 58 25 2d  |-98).X%>0.X%=X%-|
000007a0  49 25 8b e7 a6 28 2d 36  37 29 80 58 25 3c 31 32  |I%...(-67).X%<12|
000007b0  37 36 8c 58 25 3d 58 25  2b 49 25 0d 01 e0 33 e7  |76.X%=X%+I%...3.|
000007c0  a6 28 2d 37 33 29 80 59  25 3c 31 30 32 30 8c 59  |.(-73).Y%<1020.Y|
000007d0  25 3d 59 25 2b 49 25 8b  e7 a6 28 2d 31 30 35 29  |%=Y%+I%...(-105)|
000007e0  80 59 25 3e 30 8c 59 25  3d 59 25 2d 49 25 0d 01  |.Y%>0.Y%=Y%-I%..|
000007f0  ea 05 e1 0d 01 f4 38 58  25 3d 28 28 31 32 38 30  |......8X%=((1280|
00000800  2d 96 28 31 29 2f 35 31  2e 32 29 2b 4f 58 25 29  |-.(1)/51.2)+OX%)|
00000810  81 38 2a 34 3a 59 25 3d  28 4f 59 25 2b 96 28 32  |.8*4:Y%=(OY%+.(2|
00000820  29 2f 36 34 29 81 36 2a  33 3a e1 0d 01 fe 15 dd  |)/64).6*3:......|
00000830  f2 6d 6f 76 65 63 75 72  73 6f 72 3a e6 33 2c 33  |.movecursor:.3,3|
00000840  0d 02 08 45 e7 58 25 3c  3e 4f 58 25 8c ef 32 35  |...E.X%<>OX%..25|
00000850  2c 34 2c 4f 58 25 3b 30  3b 32 35 2c 35 2c 4f 58  |,4,OX%;0;25,5,OX|
00000860  25 3b 31 30 32 30 3b 32  35 2c 34 2c 58 25 3b 30  |%;1020;25,4,X%;0|
00000870  3b 32 35 2c 35 2c 58 25  3b 31 30 32 30 3b 3a 4f  |;25,5,X%;1020;:O|
00000880  58 25 3d 58 25 0d 02 12  48 e7 59 25 3d 4f 59 25  |X%=X%...H.Y%=OY%|
00000890  8c e1 8b ef 32 35 2c 34  2c 30 3b 4f 59 25 3b 32  |....25,4,0;OY%;2|
000008a0  35 2c 35 2c 31 32 37 36  3b 4f 59 25 3b 32 35 2c  |5,5,1276;OY%;25,|
000008b0  34 2c 30 3b 59 25 3b 32  35 2c 35 2c 31 32 37 36  |4,0;Y%;25,5,1276|
000008c0  3b 59 25 3b 3a 4f 59 25  3d 59 25 3a e1 0d 02 1c  |;Y%;:OY%=Y%:....|
000008d0  62 dd f2 69 63 6f 6e 28  43 31 25 2c 43 32 25 2c  |b..icon(C1%,C2%,|
000008e0  43 33 25 2c 43 34 25 2c  49 58 25 2c 49 59 25 2c  |C3%,C4%,IX%,IY%,|
000008f0  46 43 25 2c 42 43 25 29  3a ef 33 31 2c 49 58 25  |FC%,BC%):.31,IX%|
00000900  2c 49 59 25 2c 31 37 2c  46 43 25 2c 31 37 2c 42  |,IY%,17,FC%,17,B|
00000910  43 25 84 31 32 38 2c 43  31 25 2c 43 32 25 2c 38  |C%.128,C1%,C2%,8|
00000920  2c 38 2c 31 30 2c 43 33  25 2c 43 34 25 3a e1 0d  |,8,10,C3%,C4%:..|
00000930  02 26 0e dd f2 66 69 6c  6c 69 63 6f 6e 0d 02 30  |.&...fillicon..0|
00000940  14 ea 43 31 25 2c 43 32  25 2c 43 33 25 2c 43 34  |..C1%,C2%,C3%,C4|
00000950  25 0d 02 3a 3f 43 31 25  3d 28 43 25 80 26 43 30  |%..:?C1%=(C%.&C0|
00000960  29 81 36 34 3a 43 32 25  3d 28 43 25 80 26 33 30  |).64:C2%=(C%.&30|
00000970  29 81 31 36 3a 43 33 25  3d 28 43 25 80 26 30 43  |).16:C3%=(C%.&0C|
00000980  29 81 34 3a 43 34 25 3d  28 43 25 80 26 30 33 29  |).4:C4%=(C%.&03)|
00000990  0d 02 44 e8 ef 34 2c 31  37 2c 43 31 25 2c 33 31  |..D..4,17,C1%,31|
000009a0  2c 33 37 2c 32 37 2c 31  36 36 2c 31 37 2c 43 32  |,37,27,166,17,C2|
000009b0  25 2c 31 36 36 2c 38 2c  38 2c 31 30 2c 31 37 2c  |%,166,8,8,10,17,|
000009c0  43 33 25 2c 31 36 36 2c  31 37 2c 43 34 25 2c 31  |C3%,166,17,C4%,1|
000009d0  36 36 2c 35 2c 32 35 2c  34 2c 31 31 38 34 3b 39  |66,5,25,4,1184;9|
000009e0  32 3b 31 38 2c 30 2c 43  31 25 2c 31 35 34 2c 31  |2;18,0,C1%,154,1|
000009f0  35 34 2c 38 2c 38 2c 31  30 2c 31 35 34 2c 31 35  |54,8,8,10,154,15|
00000a00  34 2c 38 2c 38 2c 31 31  2c 31 38 2c 30 2c 43 32  |4,8,8,11,18,0,C2|
00000a10  25 2c 31 35 35 2c 31 35  35 2c 38 2c 38 2c 31 30  |%,155,155,8,8,10|
00000a20  2c 31 35 35 2c 31 35 35  2c 38 2c 38 2c 31 31 2c  |,155,155,8,8,11,|
00000a30  31 38 2c 30 2c 43 33 25  2c 31 35 36 2c 31 35 36  |18,0,C3%,156,156|
00000a40  2c 38 2c 38 2c 31 30 2c  31 35 36 2c 31 35 36 2c  |,8,8,10,156,156,|
00000a50  38 2c 38 2c 31 31 2c 31  38 2c 30 2c 43 34 25 2c  |8,8,11,18,0,C4%,|
00000a60  31 35 37 2c 31 35 37 2c  38 2c 38 2c 31 30 2c 31  |157,157,8,8,10,1|
00000a70  35 37 2c 31 35 37 2c 34  0d 02 4e 05 e1 0d 02 58  |57,157,4..N....X|
00000a80  0e dd f2 65 64 69 74 66  69 6c 6c 0d 02 62 1a ea  |...editfill..b..|
00000a90  43 31 25 2c 43 32 25 2c  43 33 25 2c 43 34 25 2c  |C1%,C2%,C3%,C4%,|
00000aa0  70 61 72 74 25 0d 02 6c  27 70 61 72 74 25 3d 28  |part%..l'part%=(|
00000ab0  28 58 25 2d 31 31 38 34  29 81 33 32 29 2b 28 28  |(X%-1184).32)+((|
00000ac0  59 25 2d 39 36 29 81 33  32 29 2a 32 0d 02 76 3f  |Y%-96).32)*2..v?|
00000ad0  43 31 25 3d 28 43 25 80  26 43 30 29 81 36 34 3a  |C1%=(C%.&C0).64:|
00000ae0  43 32 25 3d 28 43 25 80  26 33 30 29 81 31 36 3a  |C2%=(C%.&30).16:|
00000af0  43 33 25 3d 28 43 25 80  26 30 43 29 81 34 3a 43  |C3%=(C%.&0C).4:C|
00000b00  34 25 3d 28 43 25 80 26  30 33 29 0d 02 80 1a e7  |4%=(C%.&03).....|
00000b10  70 61 72 74 25 3d 30 8c  43 33 25 3d 28 43 33 25  |part%=0.C3%=(C3%|
00000b20  2b 31 29 83 34 0d 02 8a  1a e7 70 61 72 74 25 3d  |+1).4.....part%=|
00000b30  31 8c 43 34 25 3d 28 43  34 25 2b 31 29 83 34 0d  |1.C4%=(C4%+1).4.|
00000b40  02 94 1a e7 70 61 72 74  25 3d 32 8c 43 31 25 3d  |....part%=2.C1%=|
00000b50  28 43 31 25 2b 31 29 83  34 0d 02 9e 1a e7 70 61  |(C1%+1).4.....pa|
00000b60  72 74 25 3d 33 8c 43 32  25 3d 28 43 32 25 2b 31  |rt%=3.C2%=(C2%+1|
00000b70  29 83 34 0d 02 a8 30 43  25 3d 28 36 34 2a 43 31  |).4...0C%=(64*C1|
00000b80  25 29 2b 28 31 36 2a 43  32 25 29 2b 28 34 2a 43  |%)+(16*C2%)+(4*C|
00000b90  33 25 29 2b 43 34 25 3a  f2 66 69 6c 6c 69 63 6f  |3%)+C4%:.fillico|
00000ba0  6e 3a e1 0d 02 b2 69 dd  f2 66 69 6c 6c 3a f2 64  |n:....i..fill:.d|
00000bb0  65 6c 63 75 72 73 6f 72  3a ef 32 34 2c 30 3b 30  |elcursor:.24,0;0|
00000bc0  3b 31 30 32 30 3b 31 30  32 30 3b 3a e6 30 2c b0  |;1020;1020;:.0,.|
00000bd0  58 25 2c 59 25 29 2b 31  32 38 3a 3f 26 31 34 37  |X%,Y%)+128:?&147|
00000be0  32 3d b0 58 25 2c 59 25  29 3a d6 63 6f 6c 66 69  |2=.X%,Y%):.colfi|
00000bf0  6c 6c 2c 58 25 2c 59 25  2c 43 25 3a ef 32 36 3a  |ll,X%,Y%,C%:.26:|
00000c00  f2 64 65 6c 63 75 72 73  6f 72 3a e1 0d 02 bc 0e  |.delcursor:.....|
00000c10  dd f2 64 69 73 63 69 63  6f 6e 0d 02 c6 59 ef 34  |..discicon...Y.4|
00000c20  2c 31 37 2c 33 2c 31 37  2c 31 32 38 3a e3 49 25  |,17,3,17,128:.I%|
00000c30  3d 33 33 b8 33 38 3a e3  4a 25 3d 31 37 b8 32 30  |=33.38:.J%=17.20|
00000c40  3a f1 8a 49 25 2c 4a 25  29 3b bd 31 36 35 3b 3a  |:..I%,J%);.165;:|
00000c50  ed 2c 3a f2 69 63 6f 6e  28 31 37 32 2c 31 37 33  |.,:.icon(172,173|
00000c60  2c 31 37 34 2c 31 37 35  2c 33 33 2c 31 39 2c 30  |,174,175,33,19,0|
00000c70  2c 33 29 0d 02 d0 05 e1  0d 02 da 0a dd f2 73 61  |,3)...........sa|
00000c80  76 65 0d 02 e4 2a ef 34  2c 31 37 2c 30 2c 31 37  |ve...*.4,17,0,17|
00000c90  2c 31 33 31 2c 32 38 2c  33 33 2c 32 30 2c 33 38  |,131,28,33,20,38|
00000ca0  2c 31 37 2c 31 32 3a 2a  46 58 31 35 0d 02 ee 32  |,17,12:*FX15...2|
00000cb0  e8 22 53 61 76 65 3a 20  22 46 24 3a e7 46 24 3c  |."Save: "F$:.F$<|
00000cc0  3e 22 22 8c ff 28 22 53  41 56 45 20 22 2b 46 24  |>""..("SAVE "+F$|
00000cd0  2b 22 20 33 30 30 30 20  38 30 30 30 22 29 0d 02  |+" 3000 8000")..|
00000ce0  f8 41 db 3a f1 22 51 55  49 54 3f 22 27 22 28 59  |.A.:."QUIT?"'"(Y|
00000cf0  2f 4e 29 22 3a f5 47 24  3d be 3a fd 28 28 47 24  |/N)":.G$=.:.((G$|
00000d00  3d 22 59 22 29 84 28 47  24 3d 22 4e 22 29 29 3a  |="Y").(G$="N")):|
00000d10  e7 47 24 3d 22 59 22 8c  71 75 69 74 25 3d b9 0d  |.G$="Y".quit%=..|
00000d20  03 02 07 ef 32 36 0d 03  0c 0d f2 64 69 73 63 69  |....26.....disci|
00000d30  63 6f 6e 0d 03 16 05 e1  0d 03 20 0e dd f2 63 61  |con....... ...ca|
00000d40  6c 6c 7a 6f 6f 6d 0d 03  2a 2b f2 64 65 6c 63 75  |llzoom..*+.delcu|
00000d50  72 73 6f 72 3a f2 6b 69  6c 6c 62 72 75 73 68 65  |rsor:.killbrushe|
00000d60  73 3a d0 3d 26 31 44 30  30 3a d7 22 5a 4f 4f 4d  |s:.=&1D00:."ZOOM|
00000d70  22 0d 03 34 0a dd f2 69  6e 69 74 0d 03 3e 14 ef  |"..4...init..>..|
00000d80  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 34 0d  |23;8202;0;0;0;4.|
00000d90  03 48 22 63 6f 6c 66 69  6c 6c 3d 26 31 32 30 30  |.H"colfill=&1200|
00000da0  3a 2a 4c 4f 2e 43 4f 4c  46 49 4c 4c 20 31 32 30  |:*LO.COLFILL 120|
00000db0  30 0d 03 52 34 46 25 3d  33 3a 50 43 30 25 3d 3f  |0..R4F%=3:PC0%=?|
00000dc0  26 33 36 46 3a 50 43 31  25 3d 3f 26 33 37 30 3a  |&36F:PC1%=?&370:|
00000dd0  50 43 32 25 3d 3f 26 33  37 31 3a 50 43 33 25 3d  |PC2%=?&371:PC3%=|
00000de0  3f 26 33 37 32 0d 03 5c  16 71 75 69 74 25 3d a3  |?&372..\.quit%=.|
00000df0  3a 61 63 74 69 6f 6e 25  3d 41 25 0d 03 66 36 53  |:action%=A%..f6S|
00000e00  43 24 3d bd 32 35 2b bd  30 2b bd 32 34 34 2b bd  |C$=.25+.0+.244+.|
00000e10  32 35 35 2b bd 31 32 2b  bd 30 3a 42 53 24 3d bd  |255+.12+.0:BS$=.|
00000e20  38 3a 55 50 24 3d bd 31  31 3a 44 4e 24 3d bd 31  |8:UP$=.11:DN$=.1|
00000e30  30 0d 03 70 35 62 72 75  73 68 24 28 30 29 3d 42  |0..p5brush$(0)=B|
00000e40  53 24 2b 55 50 24 2b bd  31 33 32 2b bd 31 33 33  |S$+UP$+.132+.133|
00000e50  2b 42 53 24 2b 42 53 24  2b 44 4e 24 2b bd 31 33  |+BS$+BS$+DN$+.13|
00000e60  34 2b bd 31 33 35 0d 03  7a 35 62 72 75 73 68 24  |4+.135..z5brush$|
00000e70  28 31 29 3d 42 53 24 2b  55 50 24 2b bd 31 33 36  |(1)=BS$+UP$+.136|
00000e80  2b bd 31 33 37 2b 42 53  24 2b 42 53 24 2b 44 4e  |+.137+BS$+BS$+DN|
00000e90  24 2b bd 31 33 38 2b bd  31 33 39 0d 03 84 16 62  |$+.138+.139....b|
00000ea0  72 75 73 68 24 28 33 29  3d 53 43 24 2b bd 31 36  |rush$(3)=SC$+.16|
00000eb0  36 0d 03 8e 35 62 72 75  73 68 24 28 34 29 3d 42  |6...5brush$(4)=B|
00000ec0  53 24 2b 55 50 24 2b bd  31 34 30 2b bd 31 34 31  |S$+UP$+.140+.141|
00000ed0  2b 42 53 24 2b 42 53 24  2b 44 4e 24 2b bd 31 34  |+BS$+BS$+DN$+.14|
00000ee0  32 2b bd 31 34 33 0d 03  98 16 62 72 75 73 68 24  |2+.143....brush$|
00000ef0  28 36 29 3d 53 43 24 2b  bd 31 33 31 0d 03 a2 35  |(6)=SC$+.131...5|
00000f00  62 72 75 73 68 24 28 37  29 3d 42 53 24 2b 55 50  |brush$(7)=BS$+UP|
00000f10  24 2b bd 31 34 38 2b bd  31 34 39 2b 42 53 24 2b  |$+.148+.149+BS$+|
00000f20  42 53 24 2b 44 4e 24 2b  bd 31 35 30 2b bd 31 35  |BS$+DN$+.150+.15|
00000f30  31 0d 03 ac 16 62 72 75  73 68 24 28 39 29 3d 53  |1....brush$(9)=S|
00000f40  43 24 2b bd 31 33 30 0d  03 b6 17 62 72 75 73 68  |C$+.130....brush|
00000f50  24 28 31 30 29 3d 53 43  24 2b bd 31 35 32 0d 03  |$(10)=SC$+.152..|
00000f60  c0 36 62 72 75 73 68 24  28 31 31 29 3d 42 53 24  |.6brush$(11)=BS$|
00000f70  2b 55 50 24 2b bd 31 35  39 2b bd 31 36 30 2b 42  |+UP$+.159+.160+B|
00000f80  53 24 2b 42 53 24 2b 44  4e 24 2b bd 31 36 31 2b  |S$+BS$+DN$+.161+|
00000f90  bd 31 36 32 0d 03 ca 17  62 72 75 73 68 24 28 31  |.162....brush$(1|
00000fa0  32 29 3d 53 43 24 2b bd  31 32 39 0d 03 d4 18 62  |2)=SC$+.129....b|
00000fb0  72 75 73 68 24 28 31 33  29 3d 53 43 24 2b bd 31  |rush$(13)=SC$+.1|
00000fc0  35 33 20 0d 03 de 17 62  72 75 73 68 24 28 31 34  |53 ....brush$(14|
00000fd0  29 3d 53 43 24 2b bd 31  35 38 0d 03 e8 25 f2 63  |)=SC$+.158...%.c|
00000fe0  6f 6c 6f 75 72 69 63 6f  6e 73 3a f2 75 74 69 6c  |olouricons:.util|
00000ff0  69 63 6f 6e 73 3a f2 64  69 73 63 69 63 6f 6e 0d  |icons:.discicon.|
00001000  03 f2 10 42 25 3d 31 32  3a 4f 42 25 3d 42 25 0d  |...B%=12:OB%=B%.|
00001010  03 fc 0f f2 62 72 75 73  68 69 63 6f 6e 73 0d 04  |....brushicons..|
00001020  06 29 e7 5a 25 3d 30 8c  f2 63 6f 6c 64 73 74 61  |.).Z%=0..coldsta|
00001030  72 74 8b f2 64 65 6c 63  75 72 73 6f 72 3a f2 66  |rt..delcursor:.f|
00001040  69 6c 6c 69 63 6f 6e 0d  04 0b 0e 61 63 74 69 6f  |illicon....actio|
00001050  6e 25 3d 41 25 0d 04 10  11 4f 58 25 3d 58 25 3a  |n%=A%....OX%=X%:|
00001060  4f 59 25 3d 59 25 0d 04  1a 0c 2a 46 58 20 31 36  |OY%=Y%....*FX 16|
00001070  2c 32 0d 04 24 05 e1 0d  04 2e 0f dd f2 63 6f 6c  |,2..$........col|
00001080  64 73 74 61 72 74 0d 04  38 11 58 25 3d 35 31 32  |dstart..8.X%=512|
00001090  3a 59 25 3d 35 31 32 0d  04 42 14 43 25 3d 26 34  |:Y%=512..B.C%=&4|
000010a0  32 3a f2 66 69 6c 6c 69  63 6f 6e 0d 04 4c 0e f2  |2:.fillicon..L..|
000010b0  64 65 6c 63 75 72 73 6f  72 0d 04 56 0d 41 25 3d  |delcursor..V.A%=|
000010c0  31 3a 45 25 3d b9 0d 04  60 54 d4 26 31 30 2c 2d  |1:E%=...`T.&10,-|
000010d0  31 35 2c 37 2c 2d 31 3a  e3 49 25 3d 30 b8 38 30  |15,7,-1:.I%=0.80|
000010e0  3a d4 26 31 31 2c 30 2c  49 25 2a 33 2c 32 30 3a  |:.&11,0,I%*3,20:|
000010f0  3f 26 46 45 30 30 3d 31  3a 3f 26 46 45 30 31 3d  |?&FE00=1:?&FE01=|
00001100  49 25 3a e3 4a 25 3d 31  b8 36 30 3a ed 3a ed 3a  |I%:.J%=1.60:.:.:|
00001110  d4 26 31 30 2c 30 2c 30  2c 30 0d 04 6a 28 44 25  |.&10,0,0,0..j(D%|
00001120  3d 2d 31 3a f5 e7 28 96  28 30 29 80 33 29 3d 31  |=-1:..(.(0).3)=1|
00001130  8c 44 25 3d 31 8b e7 a6  28 2d 39 39 29 8c 44 25  |.D%=1...(-99).D%|
00001140  3d 30 0d 04 74 0b fd 44  25 3c 3e 2d 31 0d 04 7e  |=0..t..D%<>-1..~|
00001150  0e f5 fd ac a4 62 75 74  74 6f 6e 0d 04 88 05 e1  |.....button.....|
00001160  0d 04 92 be dd f2 63 6f  6c 6f 75 72 69 63 6f 6e  |......colouricon|
00001170  73 3a f2 69 63 6f 6e 28  33 32 2c 33 32 2c 33 32  |s:.icon(32,32,32|
00001180  2c 33 32 2c 33 33 2c 32  37 2c 30 2c 30 29 3a f2  |,32,33,27,0,0):.|
00001190  69 63 6f 6e 28 33 32 2c  33 32 2c 33 32 2c 33 32  |icon(32,32,32,32|
000011a0  2c 33 35 2c 32 37 2c 30  2c 31 29 3a f2 69 63 6f  |,35,27,0,1):.ico|
000011b0  6e 28 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 33  |n(32,32,32,32,33|
000011c0  2c 32 39 2c 30 2c 32 29  3a f2 69 63 6f 6e 28 33  |,29,0,2):.icon(3|
000011d0  32 2c 33 32 2c 33 32 2c  33 32 2c 33 35 2c 32 39  |2,32,32,32,35,29|
000011e0  2c 30 2c 33 29 3a f2 69  63 6f 6e 28 31 38 38 2c  |,0,3):.icon(188,|
000011f0  31 38 39 2c 31 39 30 2c  31 39 31 2c 33 33 2b 28  |189,190,191,33+(|
00001200  46 25 83 32 29 2a 32 2c  32 37 2b 28 46 25 81 32  |F%.2)*2,27+(F%.2|
00001210  29 2a 32 2c 46 25 82 33  2c 46 25 29 3a e1 0d 04  |)*2,F%.3,F%):...|
00001220  9c 0f dd f2 75 74 69 6c  69 63 6f 6e 73 0d 04 a6  |....utilicons...|
00001230  50 e7 61 63 74 69 6f 6e  25 3d 30 8c f2 69 63 6f  |P.action%=0..ico|
00001240  6e 28 31 37 36 2c 31 37  37 2c 31 37 38 2c 31 37  |n(176,177,178,17|
00001250  39 2c 33 33 2c 32 33 2c  33 2c 30 29 8b f2 69 63  |9,33,23,3,0)..ic|
00001260  6f 6e 28 31 37 36 2c 31  37 37 2c 31 37 38 2c 31  |on(176,177,178,1|
00001270  37 39 2c 33 33 2c 32 33  2c 30 2c 33 29 0d 04 b0  |79,33,23,0,3)...|
00001280  50 e7 61 63 74 69 6f 6e  25 3d 31 8c f2 69 63 6f  |P.action%=1..ico|
00001290  6e 28 31 38 30 2c 31 38  31 2c 31 38 32 2c 31 38  |n(180,181,182,18|
000012a0  33 2c 33 35 2c 32 33 2c  33 2c 30 29 8b f2 69 63  |3,35,23,3,0)..ic|
000012b0  6f 6e 28 31 38 30 2c 31  38 31 2c 31 38 32 2c 31  |on(180,181,182,1|
000012c0  38 33 2c 33 35 2c 32 33  2c 30 2c 33 29 0d 04 ba  |83,35,23,0,3)...|
000012d0  50 e7 61 63 74 69 6f 6e  25 3d 32 8c f2 69 63 6f  |P.action%=2..ico|
000012e0  6e 28 31 38 34 2c 31 38  35 2c 31 38 36 2c 31 38  |n(184,185,186,18|
000012f0  37 2c 33 37 2c 32 33 2c  33 2c 30 29 8b f2 69 63  |7,37,23,3,0)..ic|
00001300  6f 6e 28 31 38 34 2c 31  38 35 2c 31 38 36 2c 31  |on(184,185,186,1|
00001310  38 37 2c 33 37 2c 32 33  2c 30 2c 33 29 0d 04 c4  |87,37,23,0,3)...|
00001320  05 e1 0d 04 ce 0b dd f2  65 72 72 6f 72 0d 04 d8  |........error...|
00001330  1c f4 20 49 46 20 45 52  52 3d 31 37 20 54 48 45  |.. IF ERR=17 THE|
00001340  4e 20 45 4e 44 50 52 4f  43 0d 04 e2 1d ef 34 2c  |N ENDPROC.....4,|
00001350  32 38 2c 33 33 2c 32 30  2c 33 38 2c 31 35 2c 31  |28,33,20,38,15,1|
00001360  32 3a f6 3a f1 9e 0d 04  ec 48 47 24 3d be 3a ef  |2:.:.....HG$=.:.|
00001370  32 36 2c 31 37 2c 33 2c  31 37 2c 31 32 38 3a e3  |26,17,3,17,128:.|
00001380  49 25 3d 33 33 b8 33 38  3a e3 4a 25 3d 31 35 b8  |I%=33.38:.J%=15.|
00001390  31 36 3a f1 8a 49 25 2c  4a 25 29 3b bd 31 36 35  |16:..I%,J%);.165|
000013a0  3b 3a ed 2c 3a f2 64 69  73 63 69 63 6f 6e 0d 04  |;:.,:.discicon..|
000013b0  f6 16 e7 20 ac 20 45 25  20 8c f2 64 65 6c 63 75  |... . E% ..delcu|
000013c0  72 73 6f 72 0d 05 00 05  e1 0d ff                 |rsor.......|
000013cb

27-03-89/Prog2.m0

27-03-89/Prog2.m1

27-03-89/Prog2.m2

27-03-89/Prog2.m4

27-03-89/Prog2.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .