23-07-89/Draw

Home » CEEFAX disks » telesoftware16.adl » 23-07-89/Draw

23-07-89/Draw

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 » telesoftware16.adl
Filename:	23-07-89/Draw
Read OK:	✔
File size:	1381 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

File contents

   10REM EASYDRAW V. 4.01
   20*K.0"�"
   30*FX 200,0
   40*FX 200,2
   50ONERRORGOTO610
   60VDU23;8202;0;0;0;:B$="":A=0:R%=0:S%=0:Q%=0:VDU4,29,0;100;:E=0:K=0:J=0:Q=X%:U=Y%:F=0:C=32:R=0:G=0:PROCA:PROCH
   70PROCQ:IFC$=""GOTO70
   80IFLEFT$(C$,1)=" "C$=RIGHT$(C$,LENC$-1):GOTO80
   90IFRIGHT$(C$,1)=" "C$=LEFT$(C$,LENC$-1):GOTO90
  100IFLEFT$(C$,3)="MOD"N=FNA:IFN<>0ANDN<>3ANDN<>6ANDN>0ANDN<6 M%=N:MODEM%:PROCH:VDU5:PROCA:VDU23;8202;0;0;0;
  110IFLEFT$(C$,3)="REP"ANDB$<>""PRINT';":";B$;:C$=B$:GOTO100
  120IFLEFT$(C$,3)="MOV"O=0:PROCG
  130IFLEFT$(C$,3)="CUR"G=0:PROCA
  140IFLEFT$(C$,3)="DRA"O=1:PROCG
  150IFLEFT$(C$,3)="COL"VDU5:PROCA:GCOL0,FNA:P%=FNA:PROCA:PROCC(X%,Y%,90):IFP%<0ORP%>15 P%=1:PROCA:PROCC(X%,Y%,90)
  160IFLEFT$(C$,3)="BAC"VDU5:PROCA:GCOL0,FNA+128:CLG:PROCH:PROCA
  170IFLEFT$(C$,3)="CLR"ORLEFT$(C$,3)="CLS"MODEM%:PROCH:VDU5:PROCA:VDU23;8202;0;0;0;
  180IFLEFT$(C$,3)="ELL"B$=C$:PROCA:M=FNA:C$=LEFT$(C$,LENC$-(B+1)):P=FNA:C$=LEFT$(C$,LENC$-(B+1)):X=FNA:C$=B$:PROCD(M,P,X+90):PROCA
  190IFLEFT$(C$,3)="JOY"CHAIN"DRAW3"
  200IFLEFT$(C$,3)="DUM"PROCA:PROCB:PROCA
  210IFLEFT$(C$,3)="CIR"PROCA:PROCD(FNA,FNA,0):PROCA
  220IFLEFT$(C$,3)="DOT"O=2:PROCG
  230IFLEFT$(C$,3)="FIL"PROCA:R%=0:CHAIN"DRAW2"
  240IFLEFT$(C$,3)="CUB"PROCI
  250IFLEFT$(C$,3)="TRI"PROCJ
  260IFLEFT$(C$,3)="BMO"PROCA:H%=FNA:C$=LEFT$(C$,LENC$-(B+1)):G%=FNA:C$=LEFT$(C$,LENC$-(B+1)):F%=FNA:C$=LEFT$(C$,LENC$-(B+1)):E%=FNA:J%=1:CHAIN"BOX"
  270IFLEFT$(C$,3)="BCO"PROCA:H%=FNA:C$=LEFT$(C$,LENC$-(B+1)):G%=FNA:C$=LEFT$(C$,LENC$-(B+1)):F%=FNA:C$=LEFT$(C$,LENC$-(B+1)):E%=FNA:J%=0:CHAIN"BOX"
  280IFLEFT$(C$,3)="BSA"PROCA:F%=FNA:C$=LEFT$(C$,LENC$-(B+1)):E%=FNA:J%=2:CHAIN"BOX"
  290IFLEFT$(C$,3)="BLO"PROCA:J%=3:CHAIN"BOX"
  300IFLEFT$(C$,3)="PRI"PROCS:PROCA
  310IFLEFT$(C$,3)="SAV"PROCZ
  320IFLEFT$(C$,3)="LOA"PRINT''''"LOADING."';:INPUT;"INPUT NAME ";,S$:OSCLI("LOAD "+S$):GCOL0,7:MOVE0,-8:MOVE1280,-100:PLOT85,0,-100:MOVE0,-8:MOVE1280,-100:PLOT85,1280,-8:PROCH:VDU5:PROCA:VDU23;8202;0;0;0;
  330IFLEFT$(C$,3)="RUB"ANDR=0 R=1:PRINT'"RUBBER ON.";ELSEIFLEFT$(C$,3)="RUB"ANDR=1 R=0:PRINT'"RUBBER OFF.";
  340IFLEFT$(C$,1)="*"ANDRIGHT$(C$,LENC$-1)<>"B."ANDRIGHT$(C$,LENC$-1)<>"BA."ANDRIGHT$(C$,LENC$-1)<>"BAS."ANDRIGHT$(C$,LENC$-1)<>"BASI."ANDRIGHT$(C$,LENC$-1)<>"BASIC"VDU14:OSCLI(RIGHT$(C$,LENC$-1)):VDU15
  350IFLEFT$(C$,1)="H"PROCL
  360IFLEFT$(C$,3)="PIX"PROCA:CHAIN"PIXEL"
  370IFLEFT$(C$,3)="MIX"R%=1:PROCA:Q%=FNA:C$=LEFT$(C$,LENC$-(B+1)):S%=FNA:CHAIN"DRAW2"
  380IFLEFT$(C$,3)="DEF"S%=FNA:C$=LEFT$(C$,LENC$-1):Q%=FNA:VDU19,Q%,S%,0,0,0
  390B$=C$:GOTO70
  400DEFPROCH:IFM%=1ORM%=4ORM%=6VDU4,28,0,31,39,30:PRINTTAB(1,27);:COLOUR135:CLS:COLOUR0
  410IFM%=2ORM%=5VDU4,28,0,31,19,30:PRINTTAB(1,27);:COLOUR135:CLS:COLOUR0
  420VDU29,0;100;:GCOL0,7:MOVE0,-8:MOVE1280,-100:PLOT85,0,-100:MOVE0,-8:MOVE1280,-100:PLOT85,1280,-8:MOVE0,-3:DRAW1280,-3:PROCC(-1000,0,0):ENDPROC
  430DEFPROCR:F=VALRIGHT$(C$,1):IFF<>1ANDF<>2ANDF<>4ANDF<>5 F=0:ENDPROC
  440M%=F:ENDPROC
  450DEFFNA:B=1
  460IFMID$(C$,LENC$-B,1)=" "=VALRIGHT$(C$,B)
  470RESTORE500:I=1
  480READA$:IFMID$(C$,LENC$-B,1)=A$=VALRIGHT$(C$,B)ELSEI=I+1:IFI<>7GOTO480
  490B=B+1:IFB=5=0ELSEGOTO460
  500DATAA,V,L,D,R,C
  510DEFPROCG:IFRIGHT$(C$,1)="C"D=640:H=462:GOTO540
  520IFC$="MOV"ORC$="MOVE"ENDPROC
  530H=FNA:C$=LEFT$(C$,LENC$-(B+1)):D=FNA
  540VDU5:PROCA:IFO=1MOVEX%,Y%:GCOL0,P%:DRAWD,H
  550IFO=2MOVEX%,Y%:GCOL0,P%:PLOT21,D,H
  560X%=D:Y%=H:PROCA:PROCC(-1000,0,0):ENDPROC
  570DEFPROCA:MOVEX%,Y%:VDU5:GCOL3,P%:VDU158:GCOL0,P%:IFG=0 G=1ELSEG=0
  580ENDPROC
  590DEFPROCL:PROCA:IFM%<3OSCLI"SAVE S.SCREEN 3000 8000"ELSEOSCLI"SAVE S.SCREEN 5800 8000"
  600CHAIN"HELP"
  610VDU15,3:IFERR=17GOTO70
  620PROCH:VDU4:REPORT:PRINT;:GOTO70
  630DEFPROCQ:VDU4,15:*FX 4,1
  640PRINT';":";:GCOL0,P%:C$="":L=0
  650VDU4:A$=INKEY$8:IFA$=""GOTO650
  660IFASCA$=127ANDL>0 L=L-1:C$=LEFT$(C$,LENC$-1):VDU127:GOTO650ELSEIFASCA$=127ANDL=0GOTO650
  670IFASCA$=13ENDPROC
  680IFASCA$=44PRINT;A$;:C$=C$+" ":GOTO650
  690T=0:VDU5:D=X%:H=Y%:W=P%:IFASCA$=137ANDX%+C<1280PROCA:X%=X%+C:T=1:*FX 15,1
  700IFASCA$=136ANDX%-C>-8PROCA:X%=X%-C:T=1:*FX 15,1
  710IFASCA$=139ANDY%+C<924PROCA:Y%=Y%+C:T=1:*FX 15,1
  720IFASCA$=138ANDY%-C>20PROCA:Y%=Y%-C:T=1:*FX 15,1
  730IFASCA$>135ANDASCA$<140IFR=1MOVEX%,Y%:GCOL0,0:VDU159
  740IFASCA$=135ANDC=32 C=8:GOTO650ELSEIFASCA$=135ANDC=8 C=32:GOTO650
  750IFASCA$>135ANDASCA$<140IFT=1PROCC(D,H,W):PROCA:GOTO650
  760IFASCA$>135ANDASCA$<140ANDT=0 A$=""
  770IFASCA$=128PROCA:GCOL0,P%:MOVEQ,U:DRAWX%,Y%:Q=X%:U=Y%:PROCA:GOTO650
  780IFASCA$=129 Q=X%:U=Y%:SOUND3,-15,180,3:GOTO650
  790IFASCA$=130PROCA:P%=P%+1:PROCA:SOUND3,-15,120,1:PROCC(X%,Y%,-1):GOTO650
  800VDU4:PRINT;A$;:C$=C$+A$:L=L+1:GOTO650
  810DEFPROCC(D,H,W):VDU5:IFX%<>DORD=-1000MOVE0,-8:GCOL0,7:PRINT;"�������";:MOVE0,-8:GCOL0,0:PRINT;"X=";X%
  820IFY%<>HORD=-1000MOVE448,-8:GCOL0,7:PRINT;"�������";:MOVE448,-8:GCOL0,0:PRINT;"Y=";Y%
  830IFP%<>WORD=-1000MOVE896,-8:GCOL0,7:PRINT;"������";:MOVE896,-8:GCOL0,0:PRINT;"COL=";P%
  840ENDPROC
  850DEFPROCS:VDU4:INPUT''"INPUT TEXT "T$:PRINT''"(S)INGLE OR "'"(D)OUBLE HEIGHT?";:GCOL0,P%:PROCA
  860A$=GET$:IFA$="S"VDU5:MOVEX%,Y%:PRINT;T$:ENDPROC
  870IFA$="D"PROCE(T$):ENDPROCELSEGOTO860
  880DEFPROCE(t$):VDU5:MOVEX%,Y%:LOCALc,z,X%,Y%:z=&901:FORc=1TOLENt$:?&900=ASCMID$(t$,c):X%=0:Y%=9:A%=&A:CALL&FFF1:VDU57367;?z,?z,!z;z?1,z!1;z?2,224,8,10,57367;z!2;z?3,z!3;z?4,z!4;224,8,10,57367;z?5,z!5;z?6,z!6;z?7,z?7,224,11,11:NEXT:ENDPROC
  890DEFPROCZ:PROCA:VDU4:PRINT''''"SAVING."';:INPUT;"INPUT NAME ";,S$:C%=FNB(S$):IFC%>0GOSUB920
  900GCOL0,0:MOVE0,0:MOVE1290,-100:PLOT85,0,-100:MOVE0,0:MOVE1290,-100:PLOT85,1290,0:IFM%=4ORM%=5OSCLI("SAVE "+S$+" 5700 8000")ELSEOSCLI("SAVE "+S$+" 3000 8000")
  910PROCH:PROCA:ENDPROC
  920PRINT'"REPLACE? (Y/N)";
  930A$=GET$:IFA$="N"PROCA:ENDPROC
  940IFA$="Y"RETURN
  950GOTO930
  960DEFFNB(D$):C%=0:IFLEND$<11 C%=OPENUPD$
  970CLOSE#C%:=C%:ENDPROC
  980DEFPROCJ:VDU5:PROCA:IFRIGHT$(C$,1)="F"F=1:C$=LEFT$(C$,LENC$-1)ELSEF=0
  990H=FNA:C$=LEFT$(C$,LENC$-(B+1)):G=FNA:C$=LEFT$(C$,LENC$-(B+1)):K=FNA:C$=LEFT$(C$,LENC$-(B+1)):J=FNA:GCOL0,P%:MOVEX%,Y%:DRAWG,H:DRAWJ,K:DRAWX%,Y%:IFF=1MOVEX%,Y%:MOVEG,H:PLOT85,J,K
 1000PROCA:ENDPROC
 1010DEFPROCI:VDU5:PROCA:IFRIGHT$(C$,1)="F"F=1:C$=LEFT$(C$,LENC$-1)ELSEF=0
 1020H=FNA:C$=LEFT$(C$,LENC$-(B+1)):G=FNA:GCOL0,P%:MOVEX%,Y%:DRAWX%,Y%+H:DRAWX%+G,Y%+H:DRAWX%+G,Y%:DRAWX%,Y%:IFF=1MOVEX%,Y%+H:MOVEX%,Y%:PLOT85,X%+G,Y%+H:PLOT85,X%+G,Y%
 1030PROCA:ENDPROC
 1040DEFPROCD(v,w,S):GCOL0,P%:IFRIGHT$(C$,1)="F"I%=1ELSEI%=0
 1050FORs=0TO2*PI+(PI/50)STEPPI/50:IFS=0FORs=0TO2*PI+(PI/25)STEPPI/25
 1060V=v*SINs:`=w*COSs:IFS<>0 B%=V*COS(PI/(360/S/2))-`*SIN(PI/(360/S/2)):D%=V*SIN(PI/(360/S/2))+`*COS(PI/(360/S/2)):V=B%+X%:`=D%+Y%ELSEV=V+X%:`=`+Y%
 1070IFs=0MOVEV,`
 1080IF`<0MOVEV,`:NEXT
 1090IFI%=0DRAWV,`ELSEMOVEX%,Y%:PLOT85,V,`
 1100NEXT:ENDPROC
 1110DEFPROCB:MOVE0,0:VDU2,1,27,1,65,1,8,1,10:FORy%=924TO100STEP-16:VDU1,27,1,76,1,192,1,3:FORx%=0TO1276STEP4:A%=0:B%=0:FORz%=0TO12STEP4:A%=A%*4+3*POINT(x%,y%-z%):B%=B%*4+3*POINT(x%+2,y%-z%):NEXT:VDU1,A%,1,A%,1,B%:NEXT:VDU1,10:NEXT:VDU1,27,1,64,3:ENDPROC


� EASYDRAW V. 4.01
*K.0"�"

*FX 200,0
(
*FX 200,2
2��DbB
<f�23;8202;0;0;0;:B$="":A=0:R%=0:S%=0:Q%=0:�4,29,0;100;:E=0:K=0:J=0:Q=X%:U=Y%:F=0:C=32:R=0:G=0:�A:�H
F�Q:�C$=""�DF@
P"�C$,1)=" "C$=�C$,�C$-1):�DP@
Z"��C$,1)=" "C$=�C$,�C$-1):�DZ@
dO�C$,3)="MOD"N=�A:�N<>0�N<>3�N<>6�N>0�N<6 M%=N:�M%:�H:�5:�A:�23;8202;0;0;0;
n.�C$,3)="REP"�B$<>""�';":";B$;:C$=B$:�Dd@
x�C$,3)="MOV"O=0:�G
��C$,3)="CUR"G=0:�A
��C$,3)="DRA"O=1:�G
�S�C$,3)="COL"�5:�A:�0,�A:P%=�A:�A:�C(X%,Y%,90):�P%<0�P%>15 P%=1:�A:�C(X%,Y%,90)
�(�C$,3)="BAC"�5:�A:�0,�A+128:�:�H:�A
�:�C$,3)="CLR"��C$,3)="CLS"�M%:�H:�5:�A:�23;8202;0;0;0;
�b�C$,3)="ELL"B$=C$:�A:M=�A:C$=�C$,�C$-(B+1)):P=�A:C$=�C$,�C$-(B+1)):X=�A:C$=B$:�D(M,P,X+90):�A
��C$,3)="JOY"�"DRAW3"
��C$,3)="DUM"�A:�B:�A
�"�C$,3)="CIR"�A:�D(�A,�A,0):�A
��C$,3)="DOT"O=2:�G
�!�C$,3)="FIL"�A:R%=0:�"DRAW2"
��C$,3)="CUB"�I
��C$,3)="TRI"�J
m�C$,3)="BMO"�A:H%=�A:C$=�C$,�C$-(B+1)):G%=�A:C$=�C$,�C$-(B+1)):F%=�A:C$=�C$,�C$-(B+1)):E%=�A:J%=1:�"BOX"
m�C$,3)="BCO"�A:H%=�A:C$=�C$,�C$-(B+1)):G%=�A:C$=�C$,�C$-(B+1)):F%=�A:C$=�C$,�C$-(B+1)):E%=�A:J%=0:�"BOX"
=�C$,3)="BSA"�A:F%=�A:C$=�C$,�C$-(B+1)):E%=�A:J%=2:�"BOX"
"�C$,3)="BLO"�A:J%=3:�"BOX"
,�C$,3)="PRI"�S:�A
6�C$,3)="SAV"�Z
@��C$,3)="LOA"�''''"LOADING."';:�;"INPUT NAME ";,S$:�("LOAD "+S$):�0,7:�0,-8:�1280,-100:�85,0,-100:�0,-8:�1280,-100:�85,1280,-8:�H:�5:�A:�23;8202;0;0;0;
JP�C$,3)="RUB"�R=0 R=1:�'"RUBBER ON.";��C$,3)="RUB"�R=1 R=0:�'"RUBBER OFF.";
T��C$,1)="*"��C$,�C$-1)<>"B."��C$,�C$-1)<>"BA."��C$,�C$-1)<>"BAS."��C$,�C$-1)<>"BASI."��C$,�C$-1)<>"BASIC"�14:�(�C$,�C$-1)):�15
^�C$,1)="H"�L
h�C$,3)="PIX"�A:�"PIXEL"
r?�C$,3)="MIX"R%=1:�A:Q%=�A:C$=�C$,�C$-(B+1)):S%=�A:�"DRAW2"
|:�C$,3)="DEF"S%=�A:C$=�C$,�C$-1):Q%=�A:�19,Q%,S%,0,0,0
�B$=C$:�DF@
�:��H:�M%=1�M%=4�M%=6�4,28,0,31,39,30:�1,27);:�135:�:�0
�1�M%=2�M%=5�4,28,0,31,19,30:�1,27);:�135:�:�0
�k�29,0;100;:�0,7:�0,-8:�1280,-100:�85,0,-100:�0,-8:�1280,-100:�85,1280,-8:�0,-3:�1280,-3:�C(-1000,0,0):�
�,��R:F=��C$,1):�F<>1�F<>2�F<>4�F<>5 F=0:�
�
M%=F:�
�ݤA:B=1
��C$,�C$-B,1)=" "=��C$,B)
�
��dtA:I=1
�1�A$:�C$,�C$-B,1)=A$=��C$,B)�I=I+1:�I<>7�d`A
�B=B+1:�B=5=0��dLA
��A,V,L,D,R,C
�$��G:��C$,1)="C"D=640:H=462:�T\B
�C$="MOV"�C$="MOVE"�
H=�A:C$=�C$,�C$-(B+1)):D=�A
�5:�A:�O=1�X%,Y%:�0,P%:�D,H
&�O=2�X%,Y%:�0,P%:�21,D,H
0 X%=D:Y%=H:�A:�C(-1000,0,0):�
:/��A:�X%,Y%:�5:�3,P%:�158:�0,P%:�G=0 G=1�G=0
D�
NE��L:�A:�M%<3�"SAVE S.SCREEN 3000 8000"��"SAVE S.SCREEN 5800 8000"
X�"HELP"
b�15,3:�=17�DF@
l�H:�4:�:�;:�DF@
v��Q:�4,15:*FX 4,1
��';":";:�0,P%:C$="":L=0
��4:A$=�8:�A$=""�tJB
�A�A$=127�L>0 L=L-1:C$=�C$,�C$-1):�127:�tJB��A$=127�L=0�tJB
��A$=13�
� �A$=44�;A$;:C$=C$+" ":�tJB
�CT=0:�5:D=X%:H=Y%:W=P%:�A$=137�X%+C<1280�A:X%=X%+C:T=1:*FX 15,1
�+�A$=136�X%-C>-8�A:X%=X%-C:T=1:*FX 15,1
�,�A$=139�Y%+C<924�A:Y%=Y%+C:T=1:*FX 15,1
�+�A$=138�Y%-C>20�A:Y%=Y%-C:T=1:*FX 15,1
�(�A$>135��A$<140�R=1�X%,Y%:�0,0:�159
�3�A$=135�C=32 C=8:�tJB��A$=135�C=8 C=32:�tJB
�*�A$>135��A$<140�T=1�C(D,H,W):�A:�tJB
��A$>135��A$<140�T=0 A$=""
3�A$=128�A:�0,P%:�Q,U:�X%,Y%:Q=X%:U=Y%:�A:�tJB
)�A$=129 Q=X%:U=Y%:�3,-15,180,3:�tJB
9�A$=130�A:P%=P%+1:�A:�3,-15,120,1:�C(X%,Y%,-1):�tJB
 !�4:�;A$;:C$=C$+A$:L=L+1:�tJB
*L��C(D,H,W):�5:�X%<>D�D=-1000�0,-8:�0,7:�;"�������";:�0,-8:�0,0:�;"X=";X%
4B�Y%<>H�D=-1000�448,-8:�0,7:�;"�������";:�448,-8:�0,0:�;"Y=";Y%
>C�P%<>W�D=-1000�896,-8:�0,7:�;"������";:�896,-8:�0,0:�;"COL=";P%
H�
RL��S:�4:�''"INPUT TEXT "T$:�''"(S)INGLE OR "'"(D)OUBLE HEIGHT?";:�0,P%:�A
\ A$=�:�A$="S"�5:�X%,Y%:�;T$:�
f�A$="D"�E(T$):��D\C
p���E(t$):�5:�X%,Y%:�c,z,X%,Y%:z=&901:�c=1��t$:?&900=��t$,c):X%=0:Y%=9:A%=&A:�&FFF1:�57367;?z,?z,!z;z?1,z!1;z?2,224,8,10,57367;z!2;z?3,z!3;z?4,z!4;224,8,10,57367;z?5,z!5;z?6,z!6;z?7,z?7,224,11,11:�:�
zG��Z:�A:�4:�''''"SAVING."';:�;"INPUT NAME ";,S$:C%=�B(S$):�C%>0�tXC
�~�0,0:�0,0:�1290,-100:�85,0,-100:�0,0:�1290,-100:�85,1290,0:�M%=4�M%=5�("SAVE "+S$+" 5700 8000")��("SAVE "+S$+" 3000 8000")
��H:�A:�
��'"REPLACE? (Y/N)";
�A$=�:�A$="N"�A:�
��A$="Y"�
�	�tbC
�ݤB(D$):C%=0:�D$<11 C%=�D$
��#C%:=C%:�
�.��J:�5:�A:��C$,1)="F"F=1:C$=�C$,�C$-1)�F=0
ރH=�A:C$=�C$,�C$-(B+1)):G=�A:C$=�C$,�C$-(B+1)):K=�A:C$=�C$,�C$-(B+1)):J=�A:�0,P%:�X%,Y%:�G,H:�J,K:�X%,Y%:�F=1�X%,Y%:�G,H:�85,J,K
��A:�
�.��I:�5:�A:��C$,1)="F"F=1:C$=�C$,�C$-1)�F=0
�~H=�A:C$=�C$,�C$-(B+1)):G=�A:�0,P%:�X%,Y%:�X%,Y%+H:�X%+G,Y%+H:�X%+G,Y%:�X%,Y%:�F=1�X%,Y%+H:�X%,Y%:�85,X%+G,Y%+H:�85,X%+G,Y%
�A:�
)��D(v,w,S):�0,P%:��C$,1)="F"I%=1�I%=0
1�s=0�2*�+(�/50)��/50:�S=0�s=0�2*�+(�/25)��/25
$V=v*�s:`=w*�s:�S<>0 B%=V*�(�/(360/S/2))-`*�(�/(360/S/2)):D%=V*�(�/(360/S/2))+`*�(�/(360/S/2)):V=B%+X%:`=D%+Y%�V=V+X%:`=`+Y%
.�s=0�V,`
8�`<0�V,`:�
B�I%=0�V,`��X%,Y%:�85,V,`
L�:�
V���B:�0,0:�2,1,27,1,65,1,8,1,10:�y%=924�100�-16:�1,27,1,76,1,192,1,3:�x%=0�1276�4:A%=0:B%=0:�z%=0�12�4:A%=A%*4+3*�x%,y%-z%):B%=B%*4+3*�x%+2,y%-z%):�:�1,A%,1,A%,1,B%:�:�1,10:�:�1,27,1,64,3:�
�

00000000  0d 00 0a 16 f4 20 45 41  53 59 44 52 41 57 20 56  |..... EASYDRAW V|
00000010  2e 20 34 2e 30 31 0d 00  14 0b 2a 4b 2e 30 22 80  |. 4.01....*K.0".|
00000020  22 0d 00 1e 0d 2a 46 58  20 32 30 30 2c 30 0d 00  |"....*FX 200,0..|
00000030  28 0d 2a 46 58 20 32 30  30 2c 32 0d 00 32 0b ee  |(.*FX 200,2..2..|
00000040  85 e5 8d 44 62 42 0d 00  3c 66 ef 32 33 3b 38 32  |...DbB..<f.23;82|
00000050  30 32 3b 30 3b 30 3b 30  3b 3a 42 24 3d 22 22 3a  |02;0;0;0;:B$="":|
00000060  41 3d 30 3a 52 25 3d 30  3a 53 25 3d 30 3a 51 25  |A=0:R%=0:S%=0:Q%|
00000070  3d 30 3a ef 34 2c 32 39  2c 30 3b 31 30 30 3b 3a  |=0:.4,29,0;100;:|
00000080  45 3d 30 3a 4b 3d 30 3a  4a 3d 30 3a 51 3d 58 25  |E=0:K=0:J=0:Q=X%|
00000090  3a 55 3d 59 25 3a 46 3d  30 3a 43 3d 33 32 3a 52  |:U=Y%:F=0:C=32:R|
000000a0  3d 30 3a 47 3d 30 3a f2  41 3a f2 48 0d 00 46 12  |=0:G=0:.A:.H..F.|
000000b0  f2 51 3a e7 43 24 3d 22  22 e5 8d 44 46 40 0d 00  |.Q:.C$=""..DF@..|
000000c0  50 22 e7 c0 43 24 2c 31  29 3d 22 20 22 43 24 3d  |P"..C$,1)=" "C$=|
000000d0  c2 43 24 2c a9 43 24 2d  31 29 3a e5 8d 44 50 40  |.C$,.C$-1):..DP@|
000000e0  0d 00 5a 22 e7 c2 43 24  2c 31 29 3d 22 20 22 43  |..Z"..C$,1)=" "C|
000000f0  24 3d c0 43 24 2c a9 43  24 2d 31 29 3a e5 8d 44  |$=.C$,.C$-1):..D|
00000100  5a 40 0d 00 64 4f e7 c0  43 24 2c 33 29 3d 22 4d  |Z@..dO..C$,3)="M|
00000110  4f 44 22 4e 3d a4 41 3a  e7 4e 3c 3e 30 80 4e 3c  |OD"N=.A:.N<>0.N<|
00000120  3e 33 80 4e 3c 3e 36 80  4e 3e 30 80 4e 3c 36 20  |>3.N<>6.N>0.N<6 |
00000130  4d 25 3d 4e 3a eb 4d 25  3a f2 48 3a ef 35 3a f2  |M%=N:.M%:.H:.5:.|
00000140  41 3a ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |A:.23;8202;0;0;0|
00000150  3b 0d 00 6e 2e e7 c0 43  24 2c 33 29 3d 22 52 45  |;..n...C$,3)="RE|
00000160  50 22 80 42 24 3c 3e 22  22 f1 27 3b 22 3a 22 3b  |P".B$<>"".';":";|
00000170  42 24 3b 3a 43 24 3d 42  24 3a e5 8d 44 64 40 0d  |B$;:C$=B$:..Dd@.|
00000180  00 78 17 e7 c0 43 24 2c  33 29 3d 22 4d 4f 56 22  |.x...C$,3)="MOV"|
00000190  4f 3d 30 3a f2 47 0d 00  82 17 e7 c0 43 24 2c 33  |O=0:.G......C$,3|
000001a0  29 3d 22 43 55 52 22 47  3d 30 3a f2 41 0d 00 8c  |)="CUR"G=0:.A...|
000001b0  17 e7 c0 43 24 2c 33 29  3d 22 44 52 41 22 4f 3d  |...C$,3)="DRA"O=|
000001c0  31 3a f2 47 0d 00 96 53  e7 c0 43 24 2c 33 29 3d  |1:.G...S..C$,3)=|
000001d0  22 43 4f 4c 22 ef 35 3a  f2 41 3a e6 30 2c a4 41  |"COL".5:.A:.0,.A|
000001e0  3a 50 25 3d a4 41 3a f2  41 3a f2 43 28 58 25 2c  |:P%=.A:.A:.C(X%,|
000001f0  59 25 2c 39 30 29 3a e7  50 25 3c 30 84 50 25 3e  |Y%,90):.P%<0.P%>|
00000200  31 35 20 50 25 3d 31 3a  f2 41 3a f2 43 28 58 25  |15 P%=1:.A:.C(X%|
00000210  2c 59 25 2c 39 30 29 0d  00 a0 28 e7 c0 43 24 2c  |,Y%,90)...(..C$,|
00000220  33 29 3d 22 42 41 43 22  ef 35 3a f2 41 3a e6 30  |3)="BAC".5:.A:.0|
00000230  2c a4 41 2b 31 32 38 3a  da 3a f2 48 3a f2 41 0d  |,.A+128:.:.H:.A.|
00000240  00 aa 3a e7 c0 43 24 2c  33 29 3d 22 43 4c 52 22  |..:..C$,3)="CLR"|
00000250  84 c0 43 24 2c 33 29 3d  22 43 4c 53 22 eb 4d 25  |..C$,3)="CLS".M%|
00000260  3a f2 48 3a ef 35 3a f2  41 3a ef 32 33 3b 38 32  |:.H:.5:.A:.23;82|
00000270  30 32 3b 30 3b 30 3b 30  3b 0d 00 b4 62 e7 c0 43  |02;0;0;0;...b..C|
00000280  24 2c 33 29 3d 22 45 4c  4c 22 42 24 3d 43 24 3a  |$,3)="ELL"B$=C$:|
00000290  f2 41 3a 4d 3d a4 41 3a  43 24 3d c0 43 24 2c a9  |.A:M=.A:C$=.C$,.|
000002a0  43 24 2d 28 42 2b 31 29  29 3a 50 3d a4 41 3a 43  |C$-(B+1)):P=.A:C|
000002b0  24 3d c0 43 24 2c a9 43  24 2d 28 42 2b 31 29 29  |$=.C$,.C$-(B+1))|
000002c0  3a 58 3d a4 41 3a 43 24  3d 42 24 3a f2 44 28 4d  |:X=.A:C$=B$:.D(M|
000002d0  2c 50 2c 58 2b 39 30 29  3a f2 41 0d 00 be 19 e7  |,P,X+90):.A.....|
000002e0  c0 43 24 2c 33 29 3d 22  4a 4f 59 22 d7 22 44 52  |.C$,3)="JOY"."DR|
000002f0  41 57 33 22 0d 00 c8 19  e7 c0 43 24 2c 33 29 3d  |AW3"......C$,3)=|
00000300  22 44 55 4d 22 f2 41 3a  f2 42 3a f2 41 0d 00 d2  |"DUM".A:.B:.A...|
00000310  22 e7 c0 43 24 2c 33 29  3d 22 43 49 52 22 f2 41  |"..C$,3)="CIR".A|
00000320  3a f2 44 28 a4 41 2c a4  41 2c 30 29 3a f2 41 0d  |:.D(.A,.A,0):.A.|
00000330  00 dc 17 e7 c0 43 24 2c  33 29 3d 22 44 4f 54 22  |.....C$,3)="DOT"|
00000340  4f 3d 32 3a f2 47 0d 00  e6 21 e7 c0 43 24 2c 33  |O=2:.G...!..C$,3|
00000350  29 3d 22 46 49 4c 22 f2  41 3a 52 25 3d 30 3a d7  |)="FIL".A:R%=0:.|
00000360  22 44 52 41 57 32 22 0d  00 f0 13 e7 c0 43 24 2c  |"DRAW2"......C$,|
00000370  33 29 3d 22 43 55 42 22  f2 49 0d 00 fa 13 e7 c0  |3)="CUB".I......|
00000380  43 24 2c 33 29 3d 22 54  52 49 22 f2 4a 0d 01 04  |C$,3)="TRI".J...|
00000390  6d e7 c0 43 24 2c 33 29  3d 22 42 4d 4f 22 f2 41  |m..C$,3)="BMO".A|
000003a0  3a 48 25 3d a4 41 3a 43  24 3d c0 43 24 2c a9 43  |:H%=.A:C$=.C$,.C|
000003b0  24 2d 28 42 2b 31 29 29  3a 47 25 3d a4 41 3a 43  |$-(B+1)):G%=.A:C|
000003c0  24 3d c0 43 24 2c a9 43  24 2d 28 42 2b 31 29 29  |$=.C$,.C$-(B+1))|
000003d0  3a 46 25 3d a4 41 3a 43  24 3d c0 43 24 2c a9 43  |:F%=.A:C$=.C$,.C|
000003e0  24 2d 28 42 2b 31 29 29  3a 45 25 3d a4 41 3a 4a  |$-(B+1)):E%=.A:J|
000003f0  25 3d 31 3a d7 22 42 4f  58 22 0d 01 0e 6d e7 c0  |%=1:."BOX"...m..|
00000400  43 24 2c 33 29 3d 22 42  43 4f 22 f2 41 3a 48 25  |C$,3)="BCO".A:H%|
00000410  3d a4 41 3a 43 24 3d c0  43 24 2c a9 43 24 2d 28  |=.A:C$=.C$,.C$-(|
00000420  42 2b 31 29 29 3a 47 25  3d a4 41 3a 43 24 3d c0  |B+1)):G%=.A:C$=.|
00000430  43 24 2c a9 43 24 2d 28  42 2b 31 29 29 3a 46 25  |C$,.C$-(B+1)):F%|
00000440  3d a4 41 3a 43 24 3d c0  43 24 2c a9 43 24 2d 28  |=.A:C$=.C$,.C$-(|
00000450  42 2b 31 29 29 3a 45 25  3d a4 41 3a 4a 25 3d 30  |B+1)):E%=.A:J%=0|
00000460  3a d7 22 42 4f 58 22 0d  01 18 3d e7 c0 43 24 2c  |:."BOX"...=..C$,|
00000470  33 29 3d 22 42 53 41 22  f2 41 3a 46 25 3d a4 41  |3)="BSA".A:F%=.A|
00000480  3a 43 24 3d c0 43 24 2c  a9 43 24 2d 28 42 2b 31  |:C$=.C$,.C$-(B+1|
00000490  29 29 3a 45 25 3d a4 41  3a 4a 25 3d 32 3a d7 22  |)):E%=.A:J%=2:."|
000004a0  42 4f 58 22 0d 01 22 1f  e7 c0 43 24 2c 33 29 3d  |BOX".."...C$,3)=|
000004b0  22 42 4c 4f 22 f2 41 3a  4a 25 3d 33 3a d7 22 42  |"BLO".A:J%=3:."B|
000004c0  4f 58 22 0d 01 2c 16 e7  c0 43 24 2c 33 29 3d 22  |OX"..,...C$,3)="|
000004d0  50 52 49 22 f2 53 3a f2  41 0d 01 36 13 e7 c0 43  |PRI".S:.A..6...C|
000004e0  24 2c 33 29 3d 22 53 41  56 22 f2 5a 0d 01 40 9b  |$,3)="SAV".Z..@.|
000004f0  e7 c0 43 24 2c 33 29 3d  22 4c 4f 41 22 f1 27 27  |..C$,3)="LOA".''|
00000500  27 27 22 4c 4f 41 44 49  4e 47 2e 22 27 3b 3a e8  |''"LOADING."';:.|
00000510  3b 22 49 4e 50 55 54 20  4e 41 4d 45 20 22 3b 2c  |;"INPUT NAME ";,|
00000520  53 24 3a ff 28 22 4c 4f  41 44 20 22 2b 53 24 29  |S$:.("LOAD "+S$)|
00000530  3a e6 30 2c 37 3a ec 30  2c 2d 38 3a ec 31 32 38  |:.0,7:.0,-8:.128|
00000540  30 2c 2d 31 30 30 3a f0  38 35 2c 30 2c 2d 31 30  |0,-100:.85,0,-10|
00000550  30 3a ec 30 2c 2d 38 3a  ec 31 32 38 30 2c 2d 31  |0:.0,-8:.1280,-1|
00000560  30 30 3a f0 38 35 2c 31  32 38 30 2c 2d 38 3a f2  |00:.85,1280,-8:.|
00000570  48 3a ef 35 3a f2 41 3a  ef 32 33 3b 38 32 30 32  |H:.5:.A:.23;8202|
00000580  3b 30 3b 30 3b 30 3b 0d  01 4a 50 e7 c0 43 24 2c  |;0;0;0;..JP..C$,|
00000590  33 29 3d 22 52 55 42 22  80 52 3d 30 20 52 3d 31  |3)="RUB".R=0 R=1|
000005a0  3a f1 27 22 52 55 42 42  45 52 20 4f 4e 2e 22 3b  |:.'"RUBBER ON.";|
000005b0  8b e7 c0 43 24 2c 33 29  3d 22 52 55 42 22 80 52  |...C$,3)="RUB".R|
000005c0  3d 31 20 52 3d 30 3a f1  27 22 52 55 42 42 45 52  |=1 R=0:.'"RUBBER|
000005d0  20 4f 46 46 2e 22 3b 0d  01 54 82 e7 c0 43 24 2c  | OFF.";..T...C$,|
000005e0  31 29 3d 22 2a 22 80 c2  43 24 2c a9 43 24 2d 31  |1)="*"..C$,.C$-1|
000005f0  29 3c 3e 22 42 2e 22 80  c2 43 24 2c a9 43 24 2d  |)<>"B."..C$,.C$-|
00000600  31 29 3c 3e 22 42 41 2e  22 80 c2 43 24 2c a9 43  |1)<>"BA."..C$,.C|
00000610  24 2d 31 29 3c 3e 22 42  41 53 2e 22 80 c2 43 24  |$-1)<>"BAS."..C$|
00000620  2c a9 43 24 2d 31 29 3c  3e 22 42 41 53 49 2e 22  |,.C$-1)<>"BASI."|
00000630  80 c2 43 24 2c a9 43 24  2d 31 29 3c 3e 22 42 41  |..C$,.C$-1)<>"BA|
00000640  53 49 43 22 ef 31 34 3a  ff 28 c2 43 24 2c a9 43  |SIC".14:.(.C$,.C|
00000650  24 2d 31 29 29 3a ef 31  35 0d 01 5e 11 e7 c0 43  |$-1)):.15..^...C|
00000660  24 2c 31 29 3d 22 48 22  f2 4c 0d 01 68 1c e7 c0  |$,1)="H".L..h...|
00000670  43 24 2c 33 29 3d 22 50  49 58 22 f2 41 3a d7 22  |C$,3)="PIX".A:."|
00000680  50 49 58 45 4c 22 0d 01  72 3f e7 c0 43 24 2c 33  |PIXEL"..r?..C$,3|
00000690  29 3d 22 4d 49 58 22 52  25 3d 31 3a f2 41 3a 51  |)="MIX"R%=1:.A:Q|
000006a0  25 3d a4 41 3a 43 24 3d  c0 43 24 2c a9 43 24 2d  |%=.A:C$=.C$,.C$-|
000006b0  28 42 2b 31 29 29 3a 53  25 3d a4 41 3a d7 22 44  |(B+1)):S%=.A:."D|
000006c0  52 41 57 32 22 0d 01 7c  3a e7 c0 43 24 2c 33 29  |RAW2"..|:..C$,3)|
000006d0  3d 22 44 45 46 22 53 25  3d a4 41 3a 43 24 3d c0  |="DEF"S%=.A:C$=.|
000006e0  43 24 2c a9 43 24 2d 31  29 3a 51 25 3d a4 41 3a  |C$,.C$-1):Q%=.A:|
000006f0  ef 31 39 2c 51 25 2c 53  25 2c 30 2c 30 2c 30 0d  |.19,Q%,S%,0,0,0.|
00000700  01 86 0f 42 24 3d 43 24  3a e5 8d 44 46 40 0d 01  |...B$=C$:..DF@..|
00000710  90 3a dd f2 48 3a e7 4d  25 3d 31 84 4d 25 3d 34  |.:..H:.M%=1.M%=4|
00000720  84 4d 25 3d 36 ef 34 2c  32 38 2c 30 2c 33 31 2c  |.M%=6.4,28,0,31,|
00000730  33 39 2c 33 30 3a f1 8a  31 2c 32 37 29 3b 3a fb  |39,30:..1,27);:.|
00000740  31 33 35 3a db 3a fb 30  0d 01 9a 31 e7 4d 25 3d  |135:.:.0...1.M%=|
00000750  32 84 4d 25 3d 35 ef 34  2c 32 38 2c 30 2c 33 31  |2.M%=5.4,28,0,31|
00000760  2c 31 39 2c 33 30 3a f1  8a 31 2c 32 37 29 3b 3a  |,19,30:..1,27);:|
00000770  fb 31 33 35 3a db 3a fb  30 0d 01 a4 6b ef 32 39  |.135:.:.0...k.29|
00000780  2c 30 3b 31 30 30 3b 3a  e6 30 2c 37 3a ec 30 2c  |,0;100;:.0,7:.0,|
00000790  2d 38 3a ec 31 32 38 30  2c 2d 31 30 30 3a f0 38  |-8:.1280,-100:.8|
000007a0  35 2c 30 2c 2d 31 30 30  3a ec 30 2c 2d 38 3a ec  |5,0,-100:.0,-8:.|
000007b0  31 32 38 30 2c 2d 31 30  30 3a f0 38 35 2c 31 32  |1280,-100:.85,12|
000007c0  38 30 2c 2d 38 3a ec 30  2c 2d 33 3a df 31 32 38  |80,-8:.0,-3:.128|
000007d0  30 2c 2d 33 3a f2 43 28  2d 31 30 30 30 2c 30 2c  |0,-3:.C(-1000,0,|
000007e0  30 29 3a e1 0d 01 ae 2c  dd f2 52 3a 46 3d bb c2  |0):....,..R:F=..|
000007f0  43 24 2c 31 29 3a e7 46  3c 3e 31 80 46 3c 3e 32  |C$,1):.F<>1.F<>2|
00000800  80 46 3c 3e 34 80 46 3c  3e 35 20 46 3d 30 3a e1  |.F<>4.F<>5 F=0:.|
00000810  0d 01 b8 0a 4d 25 3d 46  3a e1 0d 01 c2 0b dd a4  |....M%=F:.......|
00000820  41 3a 42 3d 31 0d 01 cc  1d e7 c1 43 24 2c a9 43  |A:B=1......C$,.C|
00000830  24 2d 42 2c 31 29 3d 22  20 22 3d bb c2 43 24 2c  |$-B,1)=" "=..C$,|
00000840  42 29 0d 01 d6 0d f7 8d  64 74 41 3a 49 3d 31 0d  |B)......dtA:I=1.|
00000850  01 e0 31 f3 41 24 3a e7  c1 43 24 2c a9 43 24 2d  |..1.A$:..C$,.C$-|
00000860  42 2c 31 29 3d 41 24 3d  bb c2 43 24 2c 42 29 8b  |B,1)=A$=..C$,B).|
00000870  49 3d 49 2b 31 3a e7 49  3c 3e 37 e5 8d 64 60 41  |I=I+1:.I<>7..d`A|
00000880  0d 01 ea 16 42 3d 42 2b  31 3a e7 42 3d 35 3d 30  |....B=B+1:.B=5=0|
00000890  8b e5 8d 64 4c 41 0d 01  f4 10 dc 41 2c 56 2c 4c  |...dLA.....A,V,L|
000008a0  2c 44 2c 52 2c 43 0d 01  fe 24 dd f2 47 3a e7 c2  |,D,R,C...$..G:..|
000008b0  43 24 2c 31 29 3d 22 43  22 44 3d 36 34 30 3a 48  |C$,1)="C"D=640:H|
000008c0  3d 34 36 32 3a e5 8d 54  5c 42 0d 02 08 18 e7 43  |=462:..T\B.....C|
000008d0  24 3d 22 4d 4f 56 22 84  43 24 3d 22 4d 4f 56 45  |$="MOV".C$="MOVE|
000008e0  22 e1 0d 02 12 1f 48 3d  a4 41 3a 43 24 3d c0 43  |".....H=.A:C$=.C|
000008f0  24 2c a9 43 24 2d 28 42  2b 31 29 29 3a 44 3d a4  |$,.C$-(B+1)):D=.|
00000900  41 0d 02 1c 1f ef 35 3a  f2 41 3a e7 4f 3d 31 ec  |A.....5:.A:.O=1.|
00000910  58 25 2c 59 25 3a e6 30  2c 50 25 3a df 44 2c 48  |X%,Y%:.0,P%:.D,H|
00000920  0d 02 26 1c e7 4f 3d 32  ec 58 25 2c 59 25 3a e6  |..&..O=2.X%,Y%:.|
00000930  30 2c 50 25 3a f0 32 31  2c 44 2c 48 0d 02 30 20  |0,P%:.21,D,H..0 |
00000940  58 25 3d 44 3a 59 25 3d  48 3a f2 41 3a f2 43 28  |X%=D:Y%=H:.A:.C(|
00000950  2d 31 30 30 30 2c 30 2c  30 29 3a e1 0d 02 3a 2f  |-1000,0,0):...:/|
00000960  dd f2 41 3a ec 58 25 2c  59 25 3a ef 35 3a e6 33  |..A:.X%,Y%:.5:.3|
00000970  2c 50 25 3a ef 31 35 38  3a e6 30 2c 50 25 3a e7  |,P%:.158:.0,P%:.|
00000980  47 3d 30 20 47 3d 31 8b  47 3d 30 0d 02 44 05 e1  |G=0 G=1.G=0..D..|
00000990  0d 02 4e 45 dd f2 4c 3a  f2 41 3a e7 4d 25 3c 33  |..NE..L:.A:.M%<3|
000009a0  ff 22 53 41 56 45 20 53  2e 53 43 52 45 45 4e 20  |."SAVE S.SCREEN |
000009b0  33 30 30 30 20 38 30 30  30 22 8b ff 22 53 41 56  |3000 8000".."SAV|
000009c0  45 20 53 2e 53 43 52 45  45 4e 20 35 38 30 30 20  |E S.SCREEN 5800 |
000009d0  38 30 30 30 22 0d 02 58  0b d7 22 48 45 4c 50 22  |8000"..X.."HELP"|
000009e0  0d 02 62 14 ef 31 35 2c  33 3a e7 9f 3d 31 37 e5  |..b..15,3:..=17.|
000009f0  8d 44 46 40 0d 02 6c 14  f2 48 3a ef 34 3a f6 3a  |.DF@..l..H:.4:.:|
00000a00  f1 3b 3a e5 8d 44 46 40  0d 02 76 15 dd f2 51 3a  |.;:..DF@..v...Q:|
00000a10  ef 34 2c 31 35 3a 2a 46  58 20 34 2c 31 0d 02 80  |.4,15:*FX 4,1...|
00000a20  1b f1 27 3b 22 3a 22 3b  3a e6 30 2c 50 25 3a 43  |..';":";:.0,P%:C|
00000a30  24 3d 22 22 3a 4c 3d 30  0d 02 8a 18 ef 34 3a 41  |$="":L=0.....4:A|
00000a40  24 3d bf 38 3a e7 41 24  3d 22 22 e5 8d 74 4a 42  |$=.8:.A$=""..tJB|
00000a50  0d 02 94 41 e7 97 41 24  3d 31 32 37 80 4c 3e 30  |...A..A$=127.L>0|
00000a60  20 4c 3d 4c 2d 31 3a 43  24 3d c0 43 24 2c a9 43  | L=L-1:C$=.C$,.C|
00000a70  24 2d 31 29 3a ef 31 32  37 3a e5 8d 74 4a 42 8b  |$-1):.127:..tJB.|
00000a80  e7 97 41 24 3d 31 32 37  80 4c 3d 30 e5 8d 74 4a  |..A$=127.L=0..tJ|
00000a90  42 0d 02 9e 0c e7 97 41  24 3d 31 33 e1 0d 02 a8  |B......A$=13....|
00000aa0  20 e7 97 41 24 3d 34 34  f1 3b 41 24 3b 3a 43 24  | ..A$=44.;A$;:C$|
00000ab0  3d 43 24 2b 22 20 22 3a  e5 8d 74 4a 42 0d 02 b2  |=C$+" ":..tJB...|
00000ac0  43 54 3d 30 3a ef 35 3a  44 3d 58 25 3a 48 3d 59  |CT=0:.5:D=X%:H=Y|
00000ad0  25 3a 57 3d 50 25 3a e7  97 41 24 3d 31 33 37 80  |%:W=P%:..A$=137.|
00000ae0  58 25 2b 43 3c 31 32 38  30 f2 41 3a 58 25 3d 58  |X%+C<1280.A:X%=X|
00000af0  25 2b 43 3a 54 3d 31 3a  2a 46 58 20 31 35 2c 31  |%+C:T=1:*FX 15,1|
00000b00  0d 02 bc 2b e7 97 41 24  3d 31 33 36 80 58 25 2d  |...+..A$=136.X%-|
00000b10  43 3e 2d 38 f2 41 3a 58  25 3d 58 25 2d 43 3a 54  |C>-8.A:X%=X%-C:T|
00000b20  3d 31 3a 2a 46 58 20 31  35 2c 31 0d 02 c6 2c e7  |=1:*FX 15,1...,.|
00000b30  97 41 24 3d 31 33 39 80  59 25 2b 43 3c 39 32 34  |.A$=139.Y%+C<924|
00000b40  f2 41 3a 59 25 3d 59 25  2b 43 3a 54 3d 31 3a 2a  |.A:Y%=Y%+C:T=1:*|
00000b50  46 58 20 31 35 2c 31 0d  02 d0 2b e7 97 41 24 3d  |FX 15,1...+..A$=|
00000b60  31 33 38 80 59 25 2d 43  3e 32 30 f2 41 3a 59 25  |138.Y%-C>20.A:Y%|
00000b70  3d 59 25 2d 43 3a 54 3d  31 3a 2a 46 58 20 31 35  |=Y%-C:T=1:*FX 15|
00000b80  2c 31 0d 02 da 28 e7 97  41 24 3e 31 33 35 80 97  |,1...(..A$>135..|
00000b90  41 24 3c 31 34 30 e7 52  3d 31 ec 58 25 2c 59 25  |A$<140.R=1.X%,Y%|
00000ba0  3a e6 30 2c 30 3a ef 31  35 39 0d 02 e4 33 e7 97  |:.0,0:.159...3..|
00000bb0  41 24 3d 31 33 35 80 43  3d 33 32 20 43 3d 38 3a  |A$=135.C=32 C=8:|
00000bc0  e5 8d 74 4a 42 8b e7 97  41 24 3d 31 33 35 80 43  |..tJB...A$=135.C|
00000bd0  3d 38 20 43 3d 33 32 3a  e5 8d 74 4a 42 0d 02 ee  |=8 C=32:..tJB...|
00000be0  2a e7 97 41 24 3e 31 33  35 80 97 41 24 3c 31 34  |*..A$>135..A$<14|
00000bf0  30 e7 54 3d 31 f2 43 28  44 2c 48 2c 57 29 3a f2  |0.T=1.C(D,H,W):.|
00000c00  41 3a e5 8d 74 4a 42 0d  02 f8 1e e7 97 41 24 3e  |A:..tJB......A$>|
00000c10  31 33 35 80 97 41 24 3c  31 34 30 80 54 3d 30 20  |135..A$<140.T=0 |
00000c20  41 24 3d 22 22 0d 03 02  33 e7 97 41 24 3d 31 32  |A$=""...3..A$=12|
00000c30  38 f2 41 3a e6 30 2c 50  25 3a ec 51 2c 55 3a df  |8.A:.0,P%:.Q,U:.|
00000c40  58 25 2c 59 25 3a 51 3d  58 25 3a 55 3d 59 25 3a  |X%,Y%:Q=X%:U=Y%:|
00000c50  f2 41 3a e5 8d 74 4a 42  0d 03 0c 29 e7 97 41 24  |.A:..tJB...)..A$|
00000c60  3d 31 32 39 20 51 3d 58  25 3a 55 3d 59 25 3a d4  |=129 Q=X%:U=Y%:.|
00000c70  33 2c 2d 31 35 2c 31 38  30 2c 33 3a e5 8d 74 4a  |3,-15,180,3:..tJ|
00000c80  42 0d 03 16 39 e7 97 41  24 3d 31 33 30 f2 41 3a  |B...9..A$=130.A:|
00000c90  50 25 3d 50 25 2b 31 3a  f2 41 3a d4 33 2c 2d 31  |P%=P%+1:.A:.3,-1|
00000ca0  35 2c 31 32 30 2c 31 3a  f2 43 28 58 25 2c 59 25  |5,120,1:.C(X%,Y%|
00000cb0  2c 2d 31 29 3a e5 8d 74  4a 42 0d 03 20 21 ef 34  |,-1):..tJB.. !.4|
00000cc0  3a f1 3b 41 24 3b 3a 43  24 3d 43 24 2b 41 24 3a  |:.;A$;:C$=C$+A$:|
00000cd0  4c 3d 4c 2b 31 3a e5 8d  74 4a 42 0d 03 2a 4c dd  |L=L+1:..tJB..*L.|
00000ce0  f2 43 28 44 2c 48 2c 57  29 3a ef 35 3a e7 58 25  |.C(D,H,W):.5:.X%|
00000cf0  3c 3e 44 84 44 3d 2d 31  30 30 30 ec 30 2c 2d 38  |<>D.D=-1000.0,-8|
00000d00  3a e6 30 2c 37 3a f1 3b  22 9f 9f 9f 9f 9f 9f 9f  |:.0,7:.;".......|
00000d10  22 3b 3a ec 30 2c 2d 38  3a e6 30 2c 30 3a f1 3b  |";:.0,-8:.0,0:.;|
00000d20  22 58 3d 22 3b 58 25 0d  03 34 42 e7 59 25 3c 3e  |"X=";X%..4B.Y%<>|
00000d30  48 84 44 3d 2d 31 30 30  30 ec 34 34 38 2c 2d 38  |H.D=-1000.448,-8|
00000d40  3a e6 30 2c 37 3a f1 3b  22 9f 9f 9f 9f 9f 9f 9f  |:.0,7:.;".......|
00000d50  22 3b 3a ec 34 34 38 2c  2d 38 3a e6 30 2c 30 3a  |";:.448,-8:.0,0:|
00000d60  f1 3b 22 59 3d 22 3b 59  25 0d 03 3e 43 e7 50 25  |.;"Y=";Y%..>C.P%|
00000d70  3c 3e 57 84 44 3d 2d 31  30 30 30 ec 38 39 36 2c  |<>W.D=-1000.896,|
00000d80  2d 38 3a e6 30 2c 37 3a  f1 3b 22 9f 9f 9f 9f 9f  |-8:.0,7:.;".....|
00000d90  9f 22 3b 3a ec 38 39 36  2c 2d 38 3a e6 30 2c 30  |.";:.896,-8:.0,0|
00000da0  3a f1 3b 22 43 4f 4c 3d  22 3b 50 25 0d 03 48 05  |:.;"COL=";P%..H.|
00000db0  e1 0d 03 52 4c dd f2 53  3a ef 34 3a e8 27 27 22  |...RL..S:.4:.''"|
00000dc0  49 4e 50 55 54 20 54 45  58 54 20 22 54 24 3a f1  |INPUT TEXT "T$:.|
00000dd0  27 27 22 28 53 29 49 4e  47 4c 45 20 4f 52 20 22  |''"(S)INGLE OR "|
00000de0  27 22 28 44 29 4f 55 42  4c 45 20 48 45 49 47 48  |'"(D)OUBLE HEIGH|
00000df0  54 3f 22 3b 3a e6 30 2c  50 25 3a f2 41 0d 03 5c  |T?";:.0,P%:.A..\|
00000e00  20 41 24 3d be 3a e7 41  24 3d 22 53 22 ef 35 3a  | A$=.:.A$="S".5:|
00000e10  ec 58 25 2c 59 25 3a f1  3b 54 24 3a e1 0d 03 66  |.X%,Y%:.;T$:...f|
00000e20  19 e7 41 24 3d 22 44 22  f2 45 28 54 24 29 3a e1  |..A$="D".E(T$):.|
00000e30  8b e5 8d 44 5c 43 0d 03  70 c9 dd f2 45 28 74 24  |...D\C..p...E(t$|
00000e40  29 3a ef 35 3a ec 58 25  2c 59 25 3a ea 63 2c 7a  |):.5:.X%,Y%:.c,z|
00000e50  2c 58 25 2c 59 25 3a 7a  3d 26 39 30 31 3a e3 63  |,X%,Y%:z=&901:.c|
00000e60  3d 31 b8 a9 74 24 3a 3f  26 39 30 30 3d 97 c1 74  |=1..t$:?&900=..t|
00000e70  24 2c 63 29 3a 58 25 3d  30 3a 59 25 3d 39 3a 41  |$,c):X%=0:Y%=9:A|
00000e80  25 3d 26 41 3a d6 26 46  46 46 31 3a ef 35 37 33  |%=&A:.&FFF1:.573|
00000e90  36 37 3b 3f 7a 2c 3f 7a  2c 21 7a 3b 7a 3f 31 2c  |67;?z,?z,!z;z?1,|
00000ea0  7a 21 31 3b 7a 3f 32 2c  32 32 34 2c 38 2c 31 30  |z!1;z?2,224,8,10|
00000eb0  2c 35 37 33 36 37 3b 7a  21 32 3b 7a 3f 33 2c 7a  |,57367;z!2;z?3,z|
00000ec0  21 33 3b 7a 3f 34 2c 7a  21 34 3b 32 32 34 2c 38  |!3;z?4,z!4;224,8|
00000ed0  2c 31 30 2c 35 37 33 36  37 3b 7a 3f 35 2c 7a 21  |,10,57367;z?5,z!|
00000ee0  35 3b 7a 3f 36 2c 7a 21  36 3b 7a 3f 37 2c 7a 3f  |5;z?6,z!6;z?7,z?|
00000ef0  37 2c 32 32 34 2c 31 31  2c 31 31 3a ed 3a e1 0d  |7,224,11,11:.:..|
00000f00  03 7a 47 dd f2 5a 3a f2  41 3a ef 34 3a f1 27 27  |.zG..Z:.A:.4:.''|
00000f10  27 27 22 53 41 56 49 4e  47 2e 22 27 3b 3a e8 3b  |''"SAVING."';:.;|
00000f20  22 49 4e 50 55 54 20 4e  41 4d 45 20 22 3b 2c 53  |"INPUT NAME ";,S|
00000f30  24 3a 43 25 3d a4 42 28  53 24 29 3a e7 43 25 3e  |$:C%=.B(S$):.C%>|
00000f40  30 e4 8d 74 58 43 0d 03  84 7e e6 30 2c 30 3a ec  |0..tXC...~.0,0:.|
00000f50  30 2c 30 3a ec 31 32 39  30 2c 2d 31 30 30 3a f0  |0,0:.1290,-100:.|
00000f60  38 35 2c 30 2c 2d 31 30  30 3a ec 30 2c 30 3a ec  |85,0,-100:.0,0:.|
00000f70  31 32 39 30 2c 2d 31 30  30 3a f0 38 35 2c 31 32  |1290,-100:.85,12|
00000f80  39 30 2c 30 3a e7 4d 25  3d 34 84 4d 25 3d 35 ff  |90,0:.M%=4.M%=5.|
00000f90  28 22 53 41 56 45 20 22  2b 53 24 2b 22 20 35 37  |("SAVE "+S$+" 57|
00000fa0  30 30 20 38 30 30 30 22  29 8b ff 28 22 53 41 56  |00 8000")..("SAV|
00000fb0  45 20 22 2b 53 24 2b 22  20 33 30 30 30 20 38 30  |E "+S$+" 3000 80|
00000fc0  30 30 22 29 0d 03 8e 0b  f2 48 3a f2 41 3a e1 0d  |00").....H:.A:..|
00000fd0  03 98 17 f1 27 22 52 45  50 4c 41 43 45 3f 20 28  |....'"REPLACE? (|
00000fe0  59 2f 4e 29 22 3b 0d 03  a2 14 41 24 3d be 3a e7  |Y/N)";....A$=.:.|
00000ff0  41 24 3d 22 4e 22 f2 41  3a e1 0d 03 ac 0c e7 41  |A$="N".A:......A|
00001000  24 3d 22 59 22 f8 0d 03  b6 09 e5 8d 74 62 43 0d  |$="Y".......tbC.|
00001010  03 c0 1f dd a4 42 28 44  24 29 3a 43 25 3d 30 3a  |.....B(D$):C%=0:|
00001020  e7 a9 44 24 3c 31 31 20  43 25 3d ad 44 24 0d 03  |..D$<11 C%=.D$..|
00001030  ca 0e d9 23 43 25 3a 3d  43 25 3a e1 0d 03 d4 2e  |...#C%:=C%:.....|
00001040  dd f2 4a 3a ef 35 3a f2  41 3a e7 c2 43 24 2c 31  |..J:.5:.A:..C$,1|
00001050  29 3d 22 46 22 46 3d 31  3a 43 24 3d c0 43 24 2c  |)="F"F=1:C$=.C$,|
00001060  a9 43 24 2d 31 29 8b 46  3d 30 0d 03 de 83 48 3d  |.C$-1).F=0....H=|
00001070  a4 41 3a 43 24 3d c0 43  24 2c a9 43 24 2d 28 42  |.A:C$=.C$,.C$-(B|
00001080  2b 31 29 29 3a 47 3d a4  41 3a 43 24 3d c0 43 24  |+1)):G=.A:C$=.C$|
00001090  2c a9 43 24 2d 28 42 2b  31 29 29 3a 4b 3d a4 41  |,.C$-(B+1)):K=.A|
000010a0  3a 43 24 3d c0 43 24 2c  a9 43 24 2d 28 42 2b 31  |:C$=.C$,.C$-(B+1|
000010b0  29 29 3a 4a 3d a4 41 3a  e6 30 2c 50 25 3a ec 58  |)):J=.A:.0,P%:.X|
000010c0  25 2c 59 25 3a df 47 2c  48 3a df 4a 2c 4b 3a df  |%,Y%:.G,H:.J,K:.|
000010d0  58 25 2c 59 25 3a e7 46  3d 31 ec 58 25 2c 59 25  |X%,Y%:.F=1.X%,Y%|
000010e0  3a ec 47 2c 48 3a f0 38  35 2c 4a 2c 4b 0d 03 e8  |:.G,H:.85,J,K...|
000010f0  08 f2 41 3a e1 0d 03 f2  2e dd f2 49 3a ef 35 3a  |..A:.......I:.5:|
00001100  f2 41 3a e7 c2 43 24 2c  31 29 3d 22 46 22 46 3d  |.A:..C$,1)="F"F=|
00001110  31 3a 43 24 3d c0 43 24  2c a9 43 24 2d 31 29 8b  |1:C$=.C$,.C$-1).|
00001120  46 3d 30 0d 03 fc 7e 48  3d a4 41 3a 43 24 3d c0  |F=0...~H=.A:C$=.|
00001130  43 24 2c a9 43 24 2d 28  42 2b 31 29 29 3a 47 3d  |C$,.C$-(B+1)):G=|
00001140  a4 41 3a e6 30 2c 50 25  3a ec 58 25 2c 59 25 3a  |.A:.0,P%:.X%,Y%:|
00001150  df 58 25 2c 59 25 2b 48  3a df 58 25 2b 47 2c 59  |.X%,Y%+H:.X%+G,Y|
00001160  25 2b 48 3a df 58 25 2b  47 2c 59 25 3a df 58 25  |%+H:.X%+G,Y%:.X%|
00001170  2c 59 25 3a e7 46 3d 31  ec 58 25 2c 59 25 2b 48  |,Y%:.F=1.X%,Y%+H|
00001180  3a ec 58 25 2c 59 25 3a  f0 38 35 2c 58 25 2b 47  |:.X%,Y%:.85,X%+G|
00001190  2c 59 25 2b 48 3a f0 38  35 2c 58 25 2b 47 2c 59  |,Y%+H:.85,X%+G,Y|
000011a0  25 0d 04 06 08 f2 41 3a  e1 0d 04 10 29 dd f2 44  |%.....A:....)..D|
000011b0  28 76 2c 77 2c 53 29 3a  e6 30 2c 50 25 3a e7 c2  |(v,w,S):.0,P%:..|
000011c0  43 24 2c 31 29 3d 22 46  22 49 25 3d 31 8b 49 25  |C$,1)="F"I%=1.I%|
000011d0  3d 30 0d 04 1a 31 e3 73  3d 30 b8 32 2a af 2b 28  |=0...1.s=0.2*.+(|
000011e0  af 2f 35 30 29 88 af 2f  35 30 3a e7 53 3d 30 e3  |./50)../50:.S=0.|
000011f0  73 3d 30 b8 32 2a af 2b  28 af 2f 32 35 29 88 af  |s=0.2*.+(./25)..|
00001200  2f 32 35 0d 04 24 7f 56  3d 76 2a b5 73 3a 60 3d  |/25..$.V=v*.s:`=|
00001210  77 2a 9b 73 3a e7 53 3c  3e 30 20 42 25 3d 56 2a  |w*.s:.S<>0 B%=V*|
00001220  9b 28 af 2f 28 33 36 30  2f 53 2f 32 29 29 2d 60  |.(./(360/S/2))-`|
00001230  2a b5 28 af 2f 28 33 36  30 2f 53 2f 32 29 29 3a  |*.(./(360/S/2)):|
00001240  44 25 3d 56 2a b5 28 af  2f 28 33 36 30 2f 53 2f  |D%=V*.(./(360/S/|
00001250  32 29 29 2b 60 2a 9b 28  af 2f 28 33 36 30 2f 53  |2))+`*.(./(360/S|
00001260  2f 32 29 29 3a 56 3d 42  25 2b 58 25 3a 60 3d 44  |/2)):V=B%+X%:`=D|
00001270  25 2b 59 25 8b 56 3d 56  2b 58 25 3a 60 3d 60 2b  |%+Y%.V=V+X%:`=`+|
00001280  59 25 0d 04 2e 0c e7 73  3d 30 ec 56 2c 60 0d 04  |Y%.....s=0.V,`..|
00001290  38 0e e7 60 3c 30 ec 56  2c 60 3a ed 0d 04 42 1c  |8..`<0.V,`:...B.|
000012a0  e7 49 25 3d 30 df 56 2c  60 8b ec 58 25 2c 59 25  |.I%=0.V,`..X%,Y%|
000012b0  3a f0 38 35 2c 56 2c 60  0d 04 4c 07 ed 3a e1 0d  |:.85,V,`..L..:..|
000012c0  04 56 c0 dd f2 42 3a ec  30 2c 30 3a ef 32 2c 31  |.V...B:.0,0:.2,1|
000012d0  2c 32 37 2c 31 2c 36 35  2c 31 2c 38 2c 31 2c 31  |,27,1,65,1,8,1,1|
000012e0  30 3a e3 79 25 3d 39 32  34 b8 31 30 30 88 2d 31  |0:.y%=924.100.-1|
000012f0  36 3a ef 31 2c 32 37 2c  31 2c 37 36 2c 31 2c 31  |6:.1,27,1,76,1,1|
00001300  39 32 2c 31 2c 33 3a e3  78 25 3d 30 b8 31 32 37  |92,1,3:.x%=0.127|
00001310  36 88 34 3a 41 25 3d 30  3a 42 25 3d 30 3a e3 7a  |6.4:A%=0:B%=0:.z|
00001320  25 3d 30 b8 31 32 88 34  3a 41 25 3d 41 25 2a 34  |%=0.12.4:A%=A%*4|
00001330  2b 33 2a b0 78 25 2c 79  25 2d 7a 25 29 3a 42 25  |+3*.x%,y%-z%):B%|
00001340  3d 42 25 2a 34 2b 33 2a  b0 78 25 2b 32 2c 79 25  |=B%*4+3*.x%+2,y%|
00001350  2d 7a 25 29 3a ed 3a ef  31 2c 41 25 2c 31 2c 41  |-z%):.:.1,A%,1,A|
00001360  25 2c 31 2c 42 25 3a ed  3a ef 31 2c 31 30 3a ed  |%,1,B%:.:.1,10:.|
00001370  3a ef 31 2c 32 37 2c 31  2c 36 34 2c 33 3a e1 0d  |:.1,27,1,64,3:..|
00001380  ff                                                |.|
00001381

23-07-89/Draw.m0

23-07-89/Draw.m1

23-07-89/Draw.m2

23-07-89/Draw.m4

23-07-89/Draw.m5

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