Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » DIAGRAM/DIAGRAM2

DIAGRAM/DIAGRAM2

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF
Filename: DIAGRAM/DIAGRAM2
Read OK: ✔
File size: 0D9E bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM >DIAGRAM
   20REM (c) EUG 1994
   30MODE0:PROCfx_off:*FX4,1
   40X%=600:Y%=500:A%=16:B%=16:Z%=64:D%=0:E%=0:P%=FALSE:I%=TRUE:M%=FALSE
   50a$="AZSXT,.FMPOKL"+CHR$127+CHR$135+CHR$136+CHR$137+CHR$138+CHR$139+"CQ/"+CHR$13+"c"
   60b$=CHR$136+CHR$137+CHR$138+CHR$139+"Q"
   70PRINTTAB(36,0)"DIAGRAM"TAB(0,2)STRING$(80,"_")TAB(0,26)STRING$(80,"_")
   80$&C00="COPY Pen up/dn   DELETE draw/erase   Draw Up/Dn/Lf/Rt Arrows   Q Quit   A/Z Angle   S/X Speed   T Text   < Load   > Save   P/O/K/L Diagonal   C Clear   ? Print   F Fill   M Move   "
   90PROCmenu:MOVEX%,Y%:PROCcross
  100REPEAT
  110PRINTTAB(0,28)A%"=Angle"B%"=Speed"X%"=X"Y%"=Y   Pen ";:IF P% PRINT"down"; ELSE PRINT"up  ";
  120IF I% PRINT"  drawing" ELSE PRINT"  erasing"
  130*FX21,0
  140REPEAT:C%=INSTR(a$,GET$):UNTIL C%
  150PROCcross
  160IF C%=1 PROCangle(1)
  170IF C%=2 PROCangle(-1)
  180IF C%=3 PROCspeed(1)
  190IF C%=4 PROCspeed(-1)
  200IF C%=5 PROCtext
  210IF C%=6 PROCload
  220IF C%=7 PROCsave
  230IF C%=8 PROCfill
  240IF C%=9 PROCmove
  250IF C%=10 PROCup:PROCright(A%)
  260IF C%=11 PROCup:PROCleft(A%)
  270IF C%=12 PROCdown:PROCleft(A%)
  280IF C%=13 PROCdown:PROCright(A%)
  290IF C%=14 PROCerase
  300IF C%=15 PROCpen
  310IF C%=16 PROCleft(B%)
  320IF C%=17 PROCright(B%)
  330IF C%=18 PROCdown
  340IF C%=19 PROCup
  350IF C%=20 RUN
  360IF C%=22 PROCprint
  370IF C%=23 PROCmenu
  375IF C%=24 PROCcircle 
  380IF C%>4 AND C%<8 PROCfx_off
  390IF X%<20 X%=20
  400IF Y%<200 Y%=200
  410IF Y%>900 Y%=900
  420IF X%>1260 X%=1260
  430IF P%=FALSE MOVEX%,Y% ELSE DRAWX%,Y%
  440PROCcross
  450UNTIL C%=21:PROCfx_on:*FX4,0
  460END
  470 
  480DEFPROCspeed(a%):B%=B%+a%:ENDPROC
  490DEFPROCangle(a%):A%=A%+a%:ENDPROC
  500DEFPROCpen:P%=NOTP%:ENDPROC
  510DEFPROCerase:I%=NOTI%:ENDPROC 
  520DEFPROCleft(b%):X%=X%-b%:ENDPROC
  530DEFPROCright(b%):X%=X%+b%:ENDPROC
  540DEFPROCdown:Y%=Y%-B%:ENDPROC
  550DEFPROCup:Y%=Y%+B%:ENDPROC
  560DEFFNadd:IF INKEY-256=-1 THEN =(!&D6 AND &FFFF)+1280 ELSE =(!&D4 AND &FFFF)+1280
  570 
  580DEFPROCsave
  590PROCfx_on
  600INPUTTAB(0,1)"Name of file to save "name$:IF name$="" ENDPROC
  610OSCLI"SAVE "+name$+" 3780 70F7"
  620ENDPROC
  630 
  640DEFPROCtext
  650PROCfx_on
  660INPUTLINETAB(0,1)"Enter text between quotes - "m$:IF m$="" ENDPROC
  670VDU5
  680m$=EVAL(m$):PRINTm$
  690P%=FALSE
  700VDU4
  710ENDPROC
  720 
  730DEFPROCload
  740PROCfx_on:INPUTTAB(0,1)"Name of file to load "name$:IF name$="" ENDPROC
  750OSCLI"LOAD "+name$
  760P%=FALSE
  770ENDPROC
  780 
  790DEFPROCprint
  795VDU2:PRINT':VDU3:A=INKEY(10):IF ADVAL(-4)<63 PRINTTAB(0,0)"PRINTER NOT ON LINE":ENDPROC
  800OSCLI"LOAD UCODE0"
  804CALL &90A
  806VDU3:PRINT"DONE"
  810ENDPROC
  820 
  830DEFPROCcross:GCOL3,1:PLOT0,-Z%,0:PLOT1,Z%*2,0:PLOT0,-Z%,-Z%:PLOT1,0,Z%*2:PLOT0,0,-Z%:IF I% GCOL0,1:ENDPROC ELSE GCOL0,0:ENDPROC
  840 
  850DEFPROCfx_on
  860*FX12,0
  870*FX21,0
  880VDU23,1,1;0;0;0;
  890ENDPROC
  900 
  910DEFPROCfx_off
  920PRINTTAB(0,1)SPC(79)
  930VDU23,1,0;0;0;0;
  940*FX11,20
  950ENDPROC
  960 
  970DEFPROCfill
  980IF D%=0 AND E%=0 D%=X%:E%=Y%:PRINTTAB(0,1)"Fill routine started":ENDPROC
  990MOVED%,Y%:MOVED%,E%:PLOT85,X%,Y%:PLOT85,X%,E%:D%=0:E%=0:PROCfx_off:ENDPROC
 1000 
 1010DEFPROCmenu:Q%=1+INSTR($&C00,"  "):n$=LEFT$($&C00,Q%):$&C00=$&C00+n$:$&C00=RIGHT$($&C00,LEN$&C00-Q%):PRINTTAB(0,30)LEFT$($&C00,79):ENDPROC
 1020 
 1030DEFPROCmove
 1040IF NOT M% M%=TRUE:s_add%=FNadd:PRINTTAB(0,1)"Move routine started":ENDPROC
 1050e_add%=FNadd:depth%=(e_add%-s_add%)DIV640:width%=e_add%-(s_add%+640*depth%)
 1060PRINTTAB(0,30)" Q Quit   Up/Dn/Lf/Rt cursor keys"SPC(46)
 1070REPEAT *FX21,0
 1080REPEAT F%=INSTR(b$,GET$):UNTIL F%
 1090IF F%=1 PROCshift(s_add%,e_add%,-640,-8,8)
 1100IF F%=2 PROCshift(s_add%+width%,e_add%,-640,8,-8)
 1110IF F%=3 PROCshift(e_add%-width%,s_add%,640,640,8)
 1120IF F%=4 PROCshift(s_add%,e_add%,-640,-640,8)
 1130UNTIL F%=5:PROCfx_off:PROCmenu:M%=FALSE
 1140ENDPROC
 1150 
 1160DEFPROCshift(start%,end%,step%,move%,lr%)
 1170REPEAT a%=start%
 1180REPEAT !(a%+move%)=!a%:!(a%+4+move%)=!(a%+4):a%=a%+lr%
 1190IF F%=2 UNTIL a%<start%-width% ELSE UNTIL a%>start%+width%
 1200start%=start%+(step%*-1)
 1210IF F%=3 UNTIL start%<end% ELSE UNTIL start%>end%
 1220IF F%=3 OR F%=4 a%=start%:REPEAT:!(a%+step%)=0:!(a%+4+step%)=0:a%=a%+8:UNTIL a%>start%+width%
 1230IF F%=1 a%=s_add%+width% ELSE IF F%=2 a%=s_add%
 1240IF F%=1 OR F%=2 REPEAT:!a%=0:!(a%+4)=0:a%=a%+step%*-1:UNTIL a%>end%
 1250s_add%=s_add%+move%:e_add%=e_add%+move%
 1260ENDPROC
 1500DEFPROCcircle:INPUTTAB(0,0)"SIZE" R:INPUTTAB(0,1)"ARC" Q%:N%=25:T=Q%/PI/N%:S=SIN(T):C=COS(T):X1=R:Y1=0:MOVEX%+R,Y%+Y1:FORM%=1TON%:X=R*C-Y1*S:Y=R*S+Y1*C:DRAWX%+X,Y%+Y:R=X:Y1=Y:NEXTM%:ENDPROC 


� >DIAGRAM
� (c) EUG 1994
�0:�fx_off:*FX4,1
(<X%=600:Y%=500:A%=16:B%=16:Z%=64:D%=0:E%=0:P%=�:I%=�:M%=�
2Ba$="AZSXT,.FMPOKL"+�127+�135+�136+�137+�138+�139+"CQ/"+�13+"c"
<b$=�136+�137+�138+�139+"Q"
F/�36,0)"DIAGRAM"�0,2)�80,"_")�0,26)�80,"_")
P�$&C00="COPY Pen up/dn   DELETE draw/erase   Draw Up/Dn/Lf/Rt Arrows   Q Quit   A/Z Angle   S/X Speed   T Text   < Load   > Save   P/O/K/L Diagonal   C Clear   ? Print   F Fill   M Move   "
Z�menu:�X%,Y%:�cross
d�
nL�0,28)A%"=Angle"B%"=Speed"X%"=X"Y%"=Y   Pen ";:� P% �"down"; � �"up  ";
x$� I% �"  drawing" � �"  erasing"
�*FX21,0
��:C%=�a$,�):� C%
�
�cross
�� C%=1 �angle(1)
�� C%=2 �angle(-1)
�� C%=3 �speed(1)
�� C%=4 �speed(-1)
�� C%=5 �text
�� C%=6 �load
�� C%=7 �save
�� C%=8 �fill
�� C%=9 �move
�� C%=10 �up:�right(A%)
� C%=11 �up:�left(A%)
� C%=12 �down:�left(A%)
� C%=13 �down:�right(A%)
"� C%=14 �erase
,� C%=15 �pen
6� C%=16 �left(B%)
@� C%=17 �right(B%)
J� C%=18 �down
T� C%=19 �up
^
� C%=20 �
h� C%=22 �print
r� C%=23 �menu
w� C%=24 �circle 
|� C%>4 � C%<8 �fx_off
�� X%<20 X%=20
�� Y%<200 Y%=200
�� Y%>900 Y%=900
�� X%>1260 X%=1260
�� P%=� �X%,Y% � �X%,Y%
�
�cross
�� C%=21:�fx_on:*FX4,0
��
� 
���speed(a%):B%=B%+a%:�
���angle(a%):A%=A%+a%:�
���pen:P%=�P%:�
���erase:I%=�I%:� 
��left(b%):X%=X%-b%:�
��right(b%):X%=X%+b%:�
��down:Y%=Y%-B%:�
&��up:Y%=Y%+B%:�
0Bݤadd:� �-256=-1 � =(!&D6 � &FFFF)+1280 � =(!&D4 � &FFFF)+1280
: 
D
��save
N
�fx_on
X3�0,1)"Name of file to save "name$:� name$="" �
b�"SAVE "+name$+" 3780 70F7"
l�
v 
�
��text
�
�fx_on
�5膊0,1)"Enter text between quotes - "m$:� m$="" �
��5
�m$=�(m$):�m$
�P%=�
��4
��
� 
�
��load
�:�fx_on:�0,1)"Name of file to load "name$:� name$="" �
��"LOAD "+name$
�P%=�
�
 
��print
=�2:�':�3:A=�(10):� �(-4)<63 �0,0)"PRINTER NOT ON LINE":�
 �"LOAD UCODE0"
$
� &90A
&�3:�"DONE"
*�
4 
>V��cross:�3,1:�0,-Z%,0:�1,Z%*2,0:�0,-Z%,-Z%:�1,0,Z%*2:�0,0,-Z%:� I% �0,1:� � �0,0:�
H 
R��fx_on
\*FX12,0
f*FX21,0
p�23,1,1;0;0;0;
z�
� 
���fx_off
��0,1)�(79)
��23,1,0;0;0;0;
�*FX11,20
��
� 
�
��fill
�<� D%=0 � E%=0 D%=X%:E%=Y%:�0,1)"Fill routine started":�
�9�D%,Y%:�D%,E%:�85,X%,Y%:�85,X%,E%:D%=0:E%=0:�fx_off:�
� 
�e��menu:Q%=1+�$&C00,"  "):n$=�$&C00,Q%):$&C00=$&C00+n$:$&C00=�$&C00,�$&C00-Q%):�0,30)�$&C00,79):�
� 

��move
:� � M% M%=�:s_add%=�add:�0,1)"Move routine started":�
Le_add%=�add:depth%=(e_add%-s_add%)�640:width%=e_add%-(s_add%+640*depth%)
$3�0,30)" Q Quit   Up/Dn/Lf/Rt cursor keys"�(46)
.
� *FX21,0
8� F%=�b$,�):� F%
B*� F%=1 �shift(s_add%,e_add%,-640,-8,8)
L1� F%=2 �shift(s_add%+width%,e_add%,-640,8,-8)
V1� F%=3 �shift(e_add%-width%,s_add%,640,640,8)
`,� F%=4 �shift(s_add%,e_add%,-640,-640,8)
j� F%=5:�fx_off:�menu:M%=�
t�
~ 
�(��shift(start%,end%,step%,move%,lr%)
�� a%=start%
�5� !(a%+move%)=!a%:!(a%+4+move%)=!(a%+4):a%=a%+lr%
�2� F%=2 � a%<start%-width% � � a%>start%+width%
�start%=start%+(step%*-1)
�(� F%=3 � start%<end% � � start%>end%
�V� F%=3 � F%=4 a%=start%:�:!(a%+step%)=0:!(a%+4+step%)=0:a%=a%+8:� a%>start%+width%
�.� F%=1 a%=s_add%+width% � � F%=2 a%=s_add%
�<� F%=1 � F%=2 �:!a%=0:!(a%+4)=0:a%=a%+step%*-1:� a%>end%
�+s_add%=s_add%+move%:e_add%=e_add%+move%
��
ܘ��circle:�0,0)"SIZE" R:�0,1)"ARC" Q%:N%=25:T=Q%/�/N%:S=�(T):C=�(T):X1=R:Y1=0:�X%+R,Y%+Y1:�M%=1�N%:X=R*C-Y1*S:Y=R*S+Y1*C:�X%+X,Y%+Y:R=X:Y1=Y:�M%:� 
�
00000000  0d 00 0a 0e f4 20 3e 44  49 41 47 52 41 4d 0d 00  |..... >DIAGRAM..|
00000010  14 12 f4 20 28 63 29 20  45 55 47 20 31 39 39 34  |... (c) EUG 1994|
00000020  0d 00 1e 15 eb 30 3a f2  66 78 5f 6f 66 66 3a 2a  |.....0:.fx_off:*|
00000030  46 58 34 2c 31 0d 00 28  3c 58 25 3d 36 30 30 3a  |FX4,1..(<X%=600:|
00000040  59 25 3d 35 30 30 3a 41  25 3d 31 36 3a 42 25 3d  |Y%=500:A%=16:B%=|
00000050  31 36 3a 5a 25 3d 36 34  3a 44 25 3d 30 3a 45 25  |16:Z%=64:D%=0:E%|
00000060  3d 30 3a 50 25 3d a3 3a  49 25 3d b9 3a 4d 25 3d  |=0:P%=.:I%=.:M%=|
00000070  a3 0d 00 32 42 61 24 3d  22 41 5a 53 58 54 2c 2e  |...2Ba$="AZSXT,.|
00000080  46 4d 50 4f 4b 4c 22 2b  bd 31 32 37 2b bd 31 33  |FMPOKL"+.127+.13|
00000090  35 2b bd 31 33 36 2b bd  31 33 37 2b bd 31 33 38  |5+.136+.137+.138|
000000a0  2b bd 31 33 39 2b 22 43  51 2f 22 2b bd 31 33 2b  |+.139+"CQ/"+.13+|
000000b0  22 63 22 0d 00 3c 1e 62  24 3d bd 31 33 36 2b bd  |"c"..<.b$=.136+.|
000000c0  31 33 37 2b bd 31 33 38  2b bd 31 33 39 2b 22 51  |137+.138+.139+"Q|
000000d0  22 0d 00 46 2f f1 8a 33  36 2c 30 29 22 44 49 41  |"..F/..36,0)"DIA|
000000e0  47 52 41 4d 22 8a 30 2c  32 29 c4 38 30 2c 22 5f  |GRAM".0,2).80,"_|
000000f0  22 29 8a 30 2c 32 36 29  c4 38 30 2c 22 5f 22 29  |").0,26).80,"_")|
00000100  0d 00 50 c0 24 26 43 30  30 3d 22 43 4f 50 59 20  |..P.$&C00="COPY |
00000110  50 65 6e 20 75 70 2f 64  6e 20 20 20 44 45 4c 45  |Pen up/dn   DELE|
00000120  54 45 20 64 72 61 77 2f  65 72 61 73 65 20 20 20  |TE draw/erase   |
00000130  44 72 61 77 20 55 70 2f  44 6e 2f 4c 66 2f 52 74  |Draw Up/Dn/Lf/Rt|
00000140  20 41 72 72 6f 77 73 20  20 20 51 20 51 75 69 74  | Arrows   Q Quit|
00000150  20 20 20 41 2f 5a 20 41  6e 67 6c 65 20 20 20 53  |   A/Z Angle   S|
00000160  2f 58 20 53 70 65 65 64  20 20 20 54 20 54 65 78  |/X Speed   T Tex|
00000170  74 20 20 20 3c 20 4c 6f  61 64 20 20 20 3e 20 53  |t   < Load   > S|
00000180  61 76 65 20 20 20 50 2f  4f 2f 4b 2f 4c 20 44 69  |ave   P/O/K/L Di|
00000190  61 67 6f 6e 61 6c 20 20  20 43 20 43 6c 65 61 72  |agonal   C Clear|
000001a0  20 20 20 3f 20 50 72 69  6e 74 20 20 20 46 20 46  |   ? Print   F F|
000001b0  69 6c 6c 20 20 20 4d 20  4d 6f 76 65 20 20 20 22  |ill   M Move   "|
000001c0  0d 00 5a 17 f2 6d 65 6e  75 3a ec 58 25 2c 59 25  |..Z..menu:.X%,Y%|
000001d0  3a f2 63 72 6f 73 73 0d  00 64 05 f5 0d 00 6e 4c  |:.cross..d....nL|
000001e0  f1 8a 30 2c 32 38 29 41  25 22 3d 41 6e 67 6c 65  |..0,28)A%"=Angle|
000001f0  22 42 25 22 3d 53 70 65  65 64 22 58 25 22 3d 58  |"B%"=Speed"X%"=X|
00000200  22 59 25 22 3d 59 20 20  20 50 65 6e 20 22 3b 3a  |"Y%"=Y   Pen ";:|
00000210  e7 20 50 25 20 f1 22 64  6f 77 6e 22 3b 20 8b 20  |. P% ."down"; . |
00000220  f1 22 75 70 20 20 22 3b  0d 00 78 24 e7 20 49 25  |."up  ";..x$. I%|
00000230  20 f1 22 20 20 64 72 61  77 69 6e 67 22 20 8b 20  | ."  drawing" . |
00000240  f1 22 20 20 65 72 61 73  69 6e 67 22 0d 00 82 0b  |."  erasing"....|
00000250  2a 46 58 32 31 2c 30 0d  00 8c 14 f5 3a 43 25 3d  |*FX21,0.....:C%=|
00000260  a7 61 24 2c be 29 3a fd  20 43 25 0d 00 96 0a f2  |.a$,.):. C%.....|
00000270  63 72 6f 73 73 0d 00 a0  14 e7 20 43 25 3d 31 20  |cross..... C%=1 |
00000280  f2 61 6e 67 6c 65 28 31  29 0d 00 aa 15 e7 20 43  |.angle(1)..... C|
00000290  25 3d 32 20 f2 61 6e 67  6c 65 28 2d 31 29 0d 00  |%=2 .angle(-1)..|
000002a0  b4 14 e7 20 43 25 3d 33  20 f2 73 70 65 65 64 28  |... C%=3 .speed(|
000002b0  31 29 0d 00 be 15 e7 20  43 25 3d 34 20 f2 73 70  |1)..... C%=4 .sp|
000002c0  65 65 64 28 2d 31 29 0d  00 c8 10 e7 20 43 25 3d  |eed(-1)..... C%=|
000002d0  35 20 f2 74 65 78 74 0d  00 d2 10 e7 20 43 25 3d  |5 .text..... C%=|
000002e0  36 20 f2 6c 6f 61 64 0d  00 dc 10 e7 20 43 25 3d  |6 .load..... C%=|
000002f0  37 20 f2 73 61 76 65 0d  00 e6 10 e7 20 43 25 3d  |7 .save..... C%=|
00000300  38 20 f2 66 69 6c 6c 0d  00 f0 10 e7 20 43 25 3d  |8 .fill..... C%=|
00000310  39 20 f2 6d 6f 76 65 0d  00 fa 1a e7 20 43 25 3d  |9 .move..... C%=|
00000320  31 30 20 f2 75 70 3a f2  72 69 67 68 74 28 41 25  |10 .up:.right(A%|
00000330  29 0d 01 04 19 e7 20 43  25 3d 31 31 20 f2 75 70  |)..... C%=11 .up|
00000340  3a f2 6c 65 66 74 28 41  25 29 0d 01 0e 1b e7 20  |:.left(A%)..... |
00000350  43 25 3d 31 32 20 f2 64  6f 77 6e 3a f2 6c 65 66  |C%=12 .down:.lef|
00000360  74 28 41 25 29 0d 01 18  1c e7 20 43 25 3d 31 33  |t(A%)..... C%=13|
00000370  20 f2 64 6f 77 6e 3a f2  72 69 67 68 74 28 41 25  | .down:.right(A%|
00000380  29 0d 01 22 12 e7 20 43  25 3d 31 34 20 f2 65 72  |)..".. C%=14 .er|
00000390  61 73 65 0d 01 2c 10 e7  20 43 25 3d 31 35 20 f2  |ase..,.. C%=15 .|
000003a0  70 65 6e 0d 01 36 15 e7  20 43 25 3d 31 36 20 f2  |pen..6.. C%=16 .|
000003b0  6c 65 66 74 28 42 25 29  0d 01 40 16 e7 20 43 25  |left(B%)..@.. C%|
000003c0  3d 31 37 20 f2 72 69 67  68 74 28 42 25 29 0d 01  |=17 .right(B%)..|
000003d0  4a 11 e7 20 43 25 3d 31  38 20 f2 64 6f 77 6e 0d  |J.. C%=18 .down.|
000003e0  01 54 0f e7 20 43 25 3d  31 39 20 f2 75 70 0d 01  |.T.. C%=19 .up..|
000003f0  5e 0d e7 20 43 25 3d 32  30 20 f9 0d 01 68 12 e7  |^.. C%=20 ...h..|
00000400  20 43 25 3d 32 32 20 f2  70 72 69 6e 74 0d 01 72  | C%=22 .print..r|
00000410  11 e7 20 43 25 3d 32 33  20 f2 6d 65 6e 75 0d 01  |.. C%=23 .menu..|
00000420  77 14 e7 20 43 25 3d 32  34 20 f2 63 69 72 63 6c  |w.. C%=24 .circl|
00000430  65 20 0d 01 7c 19 e7 20  43 25 3e 34 20 80 20 43  |e ..|.. C%>4 . C|
00000440  25 3c 38 20 f2 66 78 5f  6f 66 66 0d 01 86 11 e7  |%<8 .fx_off.....|
00000450  20 58 25 3c 32 30 20 58  25 3d 32 30 0d 01 90 13  | X%<20 X%=20....|
00000460  e7 20 59 25 3c 32 30 30  20 59 25 3d 32 30 30 0d  |. Y%<200 Y%=200.|
00000470  01 9a 13 e7 20 59 25 3e  39 30 30 20 59 25 3d 39  |.... Y%>900 Y%=9|
00000480  30 30 0d 01 a4 15 e7 20  58 25 3e 31 32 36 30 20  |00..... X%>1260 |
00000490  58 25 3d 31 32 36 30 0d  01 ae 1a e7 20 50 25 3d  |X%=1260..... P%=|
000004a0  a3 20 ec 58 25 2c 59 25  20 8b 20 df 58 25 2c 59  |. .X%,Y% . .X%,Y|
000004b0  25 0d 01 b8 0a f2 63 72  6f 73 73 0d 01 c2 19 fd  |%.....cross.....|
000004c0  20 43 25 3d 32 31 3a f2  66 78 5f 6f 6e 3a 2a 46  | C%=21:.fx_on:*F|
000004d0  58 34 2c 30 0d 01 cc 05  e0 0d 01 d6 05 20 0d 01  |X4,0......... ..|
000004e0  e0 1a dd f2 73 70 65 65  64 28 61 25 29 3a 42 25  |....speed(a%):B%|
000004f0  3d 42 25 2b 61 25 3a e1  0d 01 ea 1a dd f2 61 6e  |=B%+a%:.......an|
00000500  67 6c 65 28 61 25 29 3a  41 25 3d 41 25 2b 61 25  |gle(a%):A%=A%+a%|
00000510  3a e1 0d 01 f4 12 dd f2  70 65 6e 3a 50 25 3d ac  |:.......pen:P%=.|
00000520  50 25 3a e1 0d 01 fe 15  dd f2 65 72 61 73 65 3a  |P%:.......erase:|
00000530  49 25 3d ac 49 25 3a e1  20 0d 02 08 19 dd f2 6c  |I%=.I%:. ......l|
00000540  65 66 74 28 62 25 29 3a  58 25 3d 58 25 2d 62 25  |eft(b%):X%=X%-b%|
00000550  3a e1 0d 02 12 1a dd f2  72 69 67 68 74 28 62 25  |:.......right(b%|
00000560  29 3a 58 25 3d 58 25 2b  62 25 3a e1 0d 02 1c 15  |):X%=X%+b%:.....|
00000570  dd f2 64 6f 77 6e 3a 59  25 3d 59 25 2d 42 25 3a  |..down:Y%=Y%-B%:|
00000580  e1 0d 02 26 13 dd f2 75  70 3a 59 25 3d 59 25 2b  |...&...up:Y%=Y%+|
00000590  42 25 3a e1 0d 02 30 42  dd a4 61 64 64 3a e7 20  |B%:...0B..add:. |
000005a0  a6 2d 32 35 36 3d 2d 31  20 8c 20 3d 28 21 26 44  |.-256=-1 . =(!&D|
000005b0  36 20 80 20 26 46 46 46  46 29 2b 31 32 38 30 20  |6 . &FFFF)+1280 |
000005c0  8b 20 3d 28 21 26 44 34  20 80 20 26 46 46 46 46  |. =(!&D4 . &FFFF|
000005d0  29 2b 31 32 38 30 0d 02  3a 05 20 0d 02 44 0a dd  |)+1280..:. ..D..|
000005e0  f2 73 61 76 65 0d 02 4e  0a f2 66 78 5f 6f 6e 0d  |.save..N..fx_on.|
000005f0  02 58 33 e8 8a 30 2c 31  29 22 4e 61 6d 65 20 6f  |.X3..0,1)"Name o|
00000600  66 20 66 69 6c 65 20 74  6f 20 73 61 76 65 20 22  |f file to save "|
00000610  6e 61 6d 65 24 3a e7 20  6e 61 6d 65 24 3d 22 22  |name$:. name$=""|
00000620  20 e1 0d 02 62 1f ff 22  53 41 56 45 20 22 2b 6e  | ...b.."SAVE "+n|
00000630  61 6d 65 24 2b 22 20 33  37 38 30 20 37 30 46 37  |ame$+" 3780 70F7|
00000640  22 0d 02 6c 05 e1 0d 02  76 05 20 0d 02 80 0a dd  |"..l....v. .....|
00000650  f2 74 65 78 74 0d 02 8a  0a f2 66 78 5f 6f 6e 0d  |.text.....fx_on.|
00000660  02 94 35 e8 86 8a 30 2c  31 29 22 45 6e 74 65 72  |..5...0,1)"Enter|
00000670  20 74 65 78 74 20 62 65  74 77 65 65 6e 20 71 75  | text between qu|
00000680  6f 74 65 73 20 2d 20 22  6d 24 3a e7 20 6d 24 3d  |otes - "m$:. m$=|
00000690  22 22 20 e1 0d 02 9e 06  ef 35 0d 02 a8 10 6d 24  |"" ......5....m$|
000006a0  3d a0 28 6d 24 29 3a f1  6d 24 0d 02 b2 08 50 25  |=.(m$):.m$....P%|
000006b0  3d a3 0d 02 bc 06 ef 34  0d 02 c6 05 e1 0d 02 d0  |=......4........|
000006c0  05 20 0d 02 da 0a dd f2  6c 6f 61 64 0d 02 e4 3a  |. ......load...:|
000006d0  f2 66 78 5f 6f 6e 3a e8  8a 30 2c 31 29 22 4e 61  |.fx_on:..0,1)"Na|
000006e0  6d 65 20 6f 66 20 66 69  6c 65 20 74 6f 20 6c 6f  |me of file to lo|
000006f0  61 64 20 22 6e 61 6d 65  24 3a e7 20 6e 61 6d 65  |ad "name$:. name|
00000700  24 3d 22 22 20 e1 0d 02  ee 12 ff 22 4c 4f 41 44  |$="" ......"LOAD|
00000710  20 22 2b 6e 61 6d 65 24  0d 02 f8 08 50 25 3d a3  | "+name$....P%=.|
00000720  0d 03 02 05 e1 0d 03 0c  05 20 0d 03 16 0b dd f2  |......... ......|
00000730  70 72 69 6e 74 0d 03 1b  3d ef 32 3a f1 27 3a ef  |print...=.2:.':.|
00000740  33 3a 41 3d a6 28 31 30  29 3a e7 20 96 28 2d 34  |3:A=.(10):. .(-4|
00000750  29 3c 36 33 20 f1 8a 30  2c 30 29 22 50 52 49 4e  |)<63 ..0,0)"PRIN|
00000760  54 45 52 20 4e 4f 54 20  4f 4e 20 4c 49 4e 45 22  |TER NOT ON LINE"|
00000770  3a e1 0d 03 20 12 ff 22  4c 4f 41 44 20 55 43 4f  |:... .."LOAD UCO|
00000780  44 45 30 22 0d 03 24 0a  d6 20 26 39 30 41 0d 03  |DE0"..$.. &90A..|
00000790  26 0e ef 33 3a f1 22 44  4f 4e 45 22 0d 03 2a 05  |&..3:."DONE"..*.|
000007a0  e1 0d 03 34 05 20 0d 03  3e 56 dd f2 63 72 6f 73  |...4. ..>V..cros|
000007b0  73 3a e6 33 2c 31 3a f0  30 2c 2d 5a 25 2c 30 3a  |s:.3,1:.0,-Z%,0:|
000007c0  f0 31 2c 5a 25 2a 32 2c  30 3a f0 30 2c 2d 5a 25  |.1,Z%*2,0:.0,-Z%|
000007d0  2c 2d 5a 25 3a f0 31 2c  30 2c 5a 25 2a 32 3a f0  |,-Z%:.1,0,Z%*2:.|
000007e0  30 2c 30 2c 2d 5a 25 3a  e7 20 49 25 20 e6 30 2c  |0,0,-Z%:. I% .0,|
000007f0  31 3a e1 20 8b 20 e6 30  2c 30 3a e1 0d 03 48 05  |1:. . .0,0:...H.|
00000800  20 0d 03 52 0b dd f2 66  78 5f 6f 6e 0d 03 5c 0b  | ..R...fx_on..\.|
00000810  2a 46 58 31 32 2c 30 0d  03 66 0b 2a 46 58 32 31  |*FX12,0..f.*FX21|
00000820  2c 30 0d 03 70 12 ef 32  33 2c 31 2c 31 3b 30 3b  |,0..p..23,1,1;0;|
00000830  30 3b 30 3b 0d 03 7a 05  e1 0d 03 84 05 20 0d 03  |0;0;..z...... ..|
00000840  8e 0c dd f2 66 78 5f 6f  66 66 0d 03 98 0f f1 8a  |....fx_off......|
00000850  30 2c 31 29 89 28 37 39  29 0d 03 a2 12 ef 32 33  |0,1).(79).....23|
00000860  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 03 ac 0c 2a  |,1,0;0;0;0;....*|
00000870  46 58 31 31 2c 32 30 0d  03 b6 05 e1 0d 03 c0 05  |FX11,20.........|
00000880  20 0d 03 ca 0a dd f2 66  69 6c 6c 0d 03 d4 3c e7  | ......fill...<.|
00000890  20 44 25 3d 30 20 80 20  45 25 3d 30 20 44 25 3d  | D%=0 . E%=0 D%=|
000008a0  58 25 3a 45 25 3d 59 25  3a f1 8a 30 2c 31 29 22  |X%:E%=Y%:..0,1)"|
000008b0  46 69 6c 6c 20 72 6f 75  74 69 6e 65 20 73 74 61  |Fill routine sta|
000008c0  72 74 65 64 22 3a e1 0d  03 de 39 ec 44 25 2c 59  |rted":....9.D%,Y|
000008d0  25 3a ec 44 25 2c 45 25  3a f0 38 35 2c 58 25 2c  |%:.D%,E%:.85,X%,|
000008e0  59 25 3a f0 38 35 2c 58  25 2c 45 25 3a 44 25 3d  |Y%:.85,X%,E%:D%=|
000008f0  30 3a 45 25 3d 30 3a f2  66 78 5f 6f 66 66 3a e1  |0:E%=0:.fx_off:.|
00000900  0d 03 e8 05 20 0d 03 f2  65 dd f2 6d 65 6e 75 3a  |.... ...e..menu:|
00000910  51 25 3d 31 2b a7 24 26  43 30 30 2c 22 20 20 22  |Q%=1+.$&C00,"  "|
00000920  29 3a 6e 24 3d c0 24 26  43 30 30 2c 51 25 29 3a  |):n$=.$&C00,Q%):|
00000930  24 26 43 30 30 3d 24 26  43 30 30 2b 6e 24 3a 24  |$&C00=$&C00+n$:$|
00000940  26 43 30 30 3d c2 24 26  43 30 30 2c a9 24 26 43  |&C00=.$&C00,.$&C|
00000950  30 30 2d 51 25 29 3a f1  8a 30 2c 33 30 29 c0 24  |00-Q%):..0,30).$|
00000960  26 43 30 30 2c 37 39 29  3a e1 0d 03 fc 05 20 0d  |&C00,79):..... .|
00000970  04 06 0a dd f2 6d 6f 76  65 0d 04 10 3a e7 20 ac  |.....move...:. .|
00000980  20 4d 25 20 4d 25 3d b9  3a 73 5f 61 64 64 25 3d  | M% M%=.:s_add%=|
00000990  a4 61 64 64 3a f1 8a 30  2c 31 29 22 4d 6f 76 65  |.add:..0,1)"Move|
000009a0  20 72 6f 75 74 69 6e 65  20 73 74 61 72 74 65 64  | routine started|
000009b0  22 3a e1 0d 04 1a 4c 65  5f 61 64 64 25 3d a4 61  |":....Le_add%=.a|
000009c0  64 64 3a 64 65 70 74 68  25 3d 28 65 5f 61 64 64  |dd:depth%=(e_add|
000009d0  25 2d 73 5f 61 64 64 25  29 81 36 34 30 3a 77 69  |%-s_add%).640:wi|
000009e0  64 74 68 25 3d 65 5f 61  64 64 25 2d 28 73 5f 61  |dth%=e_add%-(s_a|
000009f0  64 64 25 2b 36 34 30 2a  64 65 70 74 68 25 29 0d  |dd%+640*depth%).|
00000a00  04 24 33 f1 8a 30 2c 33  30 29 22 20 51 20 51 75  |.$3..0,30)" Q Qu|
00000a10  69 74 20 20 20 55 70 2f  44 6e 2f 4c 66 2f 52 74  |it   Up/Dn/Lf/Rt|
00000a20  20 63 75 72 73 6f 72 20  6b 65 79 73 22 89 28 34  | cursor keys".(4|
00000a30  36 29 0d 04 2e 0d f5 20  2a 46 58 32 31 2c 30 0d  |6)..... *FX21,0.|
00000a40  04 38 14 f5 20 46 25 3d  a7 62 24 2c be 29 3a fd  |.8.. F%=.b$,.):.|
00000a50  20 46 25 0d 04 42 2a e7  20 46 25 3d 31 20 f2 73  | F%..B*. F%=1 .s|
00000a60  68 69 66 74 28 73 5f 61  64 64 25 2c 65 5f 61 64  |hift(s_add%,e_ad|
00000a70  64 25 2c 2d 36 34 30 2c  2d 38 2c 38 29 0d 04 4c  |d%,-640,-8,8)..L|
00000a80  31 e7 20 46 25 3d 32 20  f2 73 68 69 66 74 28 73  |1. F%=2 .shift(s|
00000a90  5f 61 64 64 25 2b 77 69  64 74 68 25 2c 65 5f 61  |_add%+width%,e_a|
00000aa0  64 64 25 2c 2d 36 34 30  2c 38 2c 2d 38 29 0d 04  |dd%,-640,8,-8)..|
00000ab0  56 31 e7 20 46 25 3d 33  20 f2 73 68 69 66 74 28  |V1. F%=3 .shift(|
00000ac0  65 5f 61 64 64 25 2d 77  69 64 74 68 25 2c 73 5f  |e_add%-width%,s_|
00000ad0  61 64 64 25 2c 36 34 30  2c 36 34 30 2c 38 29 0d  |add%,640,640,8).|
00000ae0  04 60 2c e7 20 46 25 3d  34 20 f2 73 68 69 66 74  |.`,. F%=4 .shift|
00000af0  28 73 5f 61 64 64 25 2c  65 5f 61 64 64 25 2c 2d  |(s_add%,e_add%,-|
00000b00  36 34 30 2c 2d 36 34 30  2c 38 29 0d 04 6a 1d fd  |640,-640,8)..j..|
00000b10  20 46 25 3d 35 3a f2 66  78 5f 6f 66 66 3a f2 6d  | F%=5:.fx_off:.m|
00000b20  65 6e 75 3a 4d 25 3d a3  0d 04 74 05 e1 0d 04 7e  |enu:M%=...t....~|
00000b30  05 20 0d 04 88 28 dd f2  73 68 69 66 74 28 73 74  |. ...(..shift(st|
00000b40  61 72 74 25 2c 65 6e 64  25 2c 73 74 65 70 25 2c  |art%,end%,step%,|
00000b50  6d 6f 76 65 25 2c 6c 72  25 29 0d 04 92 0f f5 20  |move%,lr%)..... |
00000b60  61 25 3d 73 74 61 72 74  25 0d 04 9c 35 f5 20 21  |a%=start%...5. !|
00000b70  28 61 25 2b 6d 6f 76 65  25 29 3d 21 61 25 3a 21  |(a%+move%)=!a%:!|
00000b80  28 61 25 2b 34 2b 6d 6f  76 65 25 29 3d 21 28 61  |(a%+4+move%)=!(a|
00000b90  25 2b 34 29 3a 61 25 3d  61 25 2b 6c 72 25 0d 04  |%+4):a%=a%+lr%..|
00000ba0  a6 32 e7 20 46 25 3d 32  20 fd 20 61 25 3c 73 74  |.2. F%=2 . a%<st|
00000bb0  61 72 74 25 2d 77 69 64  74 68 25 20 8b 20 fd 20  |art%-width% . . |
00000bc0  61 25 3e 73 74 61 72 74  25 2b 77 69 64 74 68 25  |a%>start%+width%|
00000bd0  0d 04 b0 1c 73 74 61 72  74 25 3d 73 74 61 72 74  |....start%=start|
00000be0  25 2b 28 73 74 65 70 25  2a 2d 31 29 0d 04 ba 28  |%+(step%*-1)...(|
00000bf0  e7 20 46 25 3d 33 20 fd  20 73 74 61 72 74 25 3c  |. F%=3 . start%<|
00000c00  65 6e 64 25 20 8b 20 fd  20 73 74 61 72 74 25 3e  |end% . . start%>|
00000c10  65 6e 64 25 0d 04 c4 56  e7 20 46 25 3d 33 20 84  |end%...V. F%=3 .|
00000c20  20 46 25 3d 34 20 61 25  3d 73 74 61 72 74 25 3a  | F%=4 a%=start%:|
00000c30  f5 3a 21 28 61 25 2b 73  74 65 70 25 29 3d 30 3a  |.:!(a%+step%)=0:|
00000c40  21 28 61 25 2b 34 2b 73  74 65 70 25 29 3d 30 3a  |!(a%+4+step%)=0:|
00000c50  61 25 3d 61 25 2b 38 3a  fd 20 61 25 3e 73 74 61  |a%=a%+8:. a%>sta|
00000c60  72 74 25 2b 77 69 64 74  68 25 0d 04 ce 2e e7 20  |rt%+width%..... |
00000c70  46 25 3d 31 20 61 25 3d  73 5f 61 64 64 25 2b 77  |F%=1 a%=s_add%+w|
00000c80  69 64 74 68 25 20 8b 20  e7 20 46 25 3d 32 20 61  |idth% . . F%=2 a|
00000c90  25 3d 73 5f 61 64 64 25  0d 04 d8 3c e7 20 46 25  |%=s_add%...<. F%|
00000ca0  3d 31 20 84 20 46 25 3d  32 20 f5 3a 21 61 25 3d  |=1 . F%=2 .:!a%=|
00000cb0  30 3a 21 28 61 25 2b 34  29 3d 30 3a 61 25 3d 61  |0:!(a%+4)=0:a%=a|
00000cc0  25 2b 73 74 65 70 25 2a  2d 31 3a fd 20 61 25 3e  |%+step%*-1:. a%>|
00000cd0  65 6e 64 25 0d 04 e2 2b  73 5f 61 64 64 25 3d 73  |end%...+s_add%=s|
00000ce0  5f 61 64 64 25 2b 6d 6f  76 65 25 3a 65 5f 61 64  |_add%+move%:e_ad|
00000cf0  64 25 3d 65 5f 61 64 64  25 2b 6d 6f 76 65 25 0d  |d%=e_add%+move%.|
00000d00  04 ec 05 e1 0d 05 dc 98  dd f2 63 69 72 63 6c 65  |..........circle|
00000d10  3a e8 8a 30 2c 30 29 22  53 49 5a 45 22 20 52 3a  |:..0,0)"SIZE" R:|
00000d20  e8 8a 30 2c 31 29 22 41  52 43 22 20 51 25 3a 4e  |..0,1)"ARC" Q%:N|
00000d30  25 3d 32 35 3a 54 3d 51  25 2f af 2f 4e 25 3a 53  |%=25:T=Q%/./N%:S|
00000d40  3d b5 28 54 29 3a 43 3d  9b 28 54 29 3a 58 31 3d  |=.(T):C=.(T):X1=|
00000d50  52 3a 59 31 3d 30 3a ec  58 25 2b 52 2c 59 25 2b  |R:Y1=0:.X%+R,Y%+|
00000d60  59 31 3a e3 4d 25 3d 31  b8 4e 25 3a 58 3d 52 2a  |Y1:.M%=1.N%:X=R*|
00000d70  43 2d 59 31 2a 53 3a 59  3d 52 2a 53 2b 59 31 2a  |C-Y1*S:Y=R*S+Y1*|
00000d80  43 3a df 58 25 2b 58 2c  59 25 2b 59 3a 52 3d 58  |C:.X%+X,Y%+Y:R=X|
00000d90  3a 59 31 3d 59 3a ed 4d  25 3a e1 20 0d ff        |:Y1=Y:.M%:. ..|
00000d9e
DIAGRAM/DIAGRAM2.m0
DIAGRAM/DIAGRAM2.m1
DIAGRAM/DIAGRAM2.m2
DIAGRAM/DIAGRAM2.m4
DIAGRAM/DIAGRAM2.m5

© Dominic Ford 2021–2024.

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