Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_23.ADF » P/CAD+

P/CAD+

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_23.ADF
Filename: P/CAD+
Read OK: ✔
File size: 0BDA bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

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

File contents
   10ONERRORGOTO100
   20LOMEM=TOP+&500:top$=STR$~(TOP-2)
   30PROCchfile(0)
   40MODE0:VDU23,1,0;0;0;0;
   50PROCinit:REPEAT:K%=INKEY(0):PROCcur
   60IFINKEY-20:IFINKEY-65:IFINKEY-1PROCwipe
   70IFK%>=240ANDK%<=249PROCopt
   80IFK%>64ANDK%<73a%=K%-64:PROCcomps
   90UNTILFALSE
  100PROCerr:GOTO50
  110END
  120DEFPROCerr:PROCtwdw(0,1,79,0,12):VDU7:PRINTTAB(1,0);:REPORT:PRINT;" at ";ERL;:AA%=INKEY(200):CLS:ENDPROC
  130DEFPROCtext:PROCtwdw(1,30,78,3,0):OSCLI"FX12":OSCLI"FX21":VDU23,1,1;0;0;0;31,40,12:REPEAT:K%=INKEY(0)
  140IFPOS=77ANDVPOS=27VDU8
  150IFK%=136ANDPOS>=1VDU8
  160IFK%=137ANDPOS<=79VDU9
  170IFK%=138ANDVPOS<=26VDU10
  180IFK%=139ANDVPOS>=1VDU11
  190IFK%>=32ANDK%<=127VDUK%:VDU7
  200UNTILK%=240:OSCLI"FX11":VDU23,1,0;0;0;0;:PROCtxtgr:ENDPROC
  210DEFPROCopt
  220IFK%=240PROCtxtgr
  230IFK%=241PROCarrows
  240IFK%=242PROCerase
  250IFK%=243PROClink
  260IFK%=244PROCnode
  270IFK%=246PROCosf(&FF)
  280IFK%=247PROCosf(&00)
  290IFK%=248PROCscdump
  300IFK%=249PROCchfile(1)
  310ENDPROC
  320DEFPROCscdump:OSCLI"UCODE":PROCcondis:ENDPROC
  330DEFPROCnode:node%=1:PROCcondis:REPEAT:PROCcur:AA%=INKEY(0)
  340IFAA%=135VDU7:PROCclstr(69)
  350IFAA%=242 PROCerase
  360UNTILAA%=244:node%=0:PROCcondis:ENDPROC
  370DEFPROCtwdw(a%,b%,c%,d%,e%):VDU28,a%,b%,c%,d%,e%:ENDPROC
  380DEFPROCgwdw:VDU24,10;10;1270;940;:ENDPROC
  390DEFPROCwipe:VDU7:PROCtwdw(1,30,78,4,12):VDU16:ENDPROC
  400DEFPROClink:link%=1:PROCcondis:REPEAT:REPEAT:PROCcur:PROClinkey:UNTILAA%=135ORlink%=0
  410IFlink%=0THEN450
  420X1%=XX%:Y1%=YY%:VDU7:REPEAT:PROCcur:PROCline(6,X1%,Y1%,XX%,YY%):PROCline(6,X1%,Y1%,XX%,YY%):PROClinkey:UNTILAA%=135ORlink%=0
  430IFlink%=0THEN450
  440PROCline(5,X1%,Y1%,XX%,YY%):VDU7
  450UNTILlink%=0:PROCcondis:ENDPROC
  460DEFPROCline(K%,X1%,Y1%,X2%,Y2%):VDU25,4,X1%;Y1%;25,K%,X2%;Y2%;:ENDPROC
  470DEFPROClinkey:AA%=INKEY(0)
  480IFAA%=242 PROCerase
  490IFAA%=243link%=0
  500ENDPROC
  510DEFPROCtxtgr:TG%=TG%+13
  520IFTG%>84TG%=71
  530PROCcondis
  540IFTG%=84PROCtext
  550ENDPROC
  560DEFPROCerase:erase%=erase%+1
  570IFerase%>1erase%=0
  580PROCcondis:VDU18,0,1-erase%:ENDPROC
  590DEFPROCarrows:D%=DIR%:DIR%=DIR%+1
  600IFDIR%>243DIR%=240
  610PROCcondis:ENDPROC
  620DEFPROCcur
  630IFINKEY(-1)x%=50ELSEx%=5
  640IFINKEY(-26)XX%=XX%-x%
  650IFINKEY(-122)XX%=XX%+x%
  660IFINKEY(-58)YY%=YY%+x%
  670IFINKEY(-42)YY%=YY%-x%
  680IFXX%>1270XX%=10
  690IFXX%<10XX%=1270
  700IFYY%>940YY%=10
  710IFYY%<10YY%=940
  720PROCclstr(70):PROCclstr(70):ENDPROC
  730DEFPROCcomps:VDU7:PROCclstr(69)
  740RESTORE(1100+a%*10)
  750READZ%
  760MOVEXX%,YY%:FORn%=1TOZ%:PROCadv:NEXT:ENDPROC
  770DEFPROCadv:READv%,x%,y%
  780IFD%=240VDU25,v%,XX%+x%;YY%+y%;
  790IFD%=241VDU25,v%,XX%-y%;YY%-x%;
  800IFD%=242VDU25,v%,XX%-x%;YY%+y%;
  810IFD%=243VDU25,v%,XX%-y%;YY%+x%;
  820ENDPROC
  830DEFPROCclstr(L%)
  840RESTORE850:FORn%=1TO8:READx%,y%:VDU25,L%,XX%+x%;YY%+y%;:NEXT:ENDPROC
  850DATA -4,4,0,4,4,4,-4,0,4,0,-4,-4,0,-4,4,-4
  860DEFPROCcondis:PROCtwdw(0,1,79,0,12):VDU7:PRINTTAB(1,1);"Window:";CHR$(TG%);TAB(12,1);"Advance:";CHR$(D%);TAB(24,1);"Erase:";erase%;TAB(34,1);"Link:";link%;TAB(43,1);"Node:";node%;:ENDPROC
  870DEFPROCosf(A%):VDU7:PROCtwdw(0,1,79,0,12):VDU23,1,1;0;0;0;
  880IFA%=&FF m$="LOAD" ELSEm$="SAVE"
  890PRINTTAB(1,1);"Enter circuit name to "+m$+" <max=7> ";:INPUT;nm$:nm$=LEFT$(nm$,7)
  900IFA%=&FF OSCLI"LOAD "+nm$+" 3000"
  910IFA%=&00 OSCLI"SAVE "+nm$+" 3000 8000"
  920VDU12,23,1,0;0;0;0;:PROCcondis:ENDPROC
  930DEFPROCinit:OSCLI"FX213,180":OSCLI"FX214,3":OSCLI"FX4,1":OSCLI"FX11":OSCLI"FX225,240":VDU19,128,4;0;:XX%=660:YY%=470:DIR%=241:D%=240:M%=0:N%=0:TG%=71:erase%=0:link%=0:node%=0
  940VDU23,1,0;0;0;0;23,240,12,6,3,255,255,3,6,12,23,241,24,24,24,24,153,219,126,60,23,242,48,96,192,255,255,192,96,48,23,243,60,126,219,153,24,24,24,24:PROCbdry:PROCgwdw:PROCcondis:ENDPROC
  950DEFPROCbdry:VDU25,4,0;0;25,5,1279;0;25,5,1279;950;25,5,0;950;25,5,0;0;:ENDPROC
  960DEFPROCovr(new$)
  970OSCLI"LOAD "+new$+" "+top$:ENDPROC
  980DEFPROCchfile(s%):PROCtwdw(0,1,79,0,12):PRINTTAB(1,1);"Character filename ";:INPUT;new$:PROCovr(new$)
  990IFs%=0ENDPROC ELSEPROCcondis:ENDPROC


��Dd@
�=�P+&500:top$=�~(�P-2)
�chfile(0)
(�0:�23,1,0;0;0;0;
2�init:�:K%=�(0):�cur
<�-20:�-65:�-1�wipe
F�K%>=240�K%<=249�opt
P�K%>64�K%<73a%=K%-64:�comps
Z��
d�err:�Tr@
n�
xD��err:�twdw(0,1,79,0,12):�7:�1,0);:�:�;" at ";�;:AA%=�(200):�:�
�N��text:�twdw(1,30,78,3,0):�"FX12":�"FX21":�23,1,1;0;0;0;31,40,12:�:K%=�(0)
��=77��=27�8
��K%=136��>=1�8
��K%=137��<=79�9
��K%=138��<=26�10
��K%=139��>=1�11
��K%>=32�K%<=127�K%:�7
�+�K%=240:�"FX11":�23,1,0;0;0;0;:�txtgr:�
�	��opt
��K%=240�txtgr
��K%=241�arrows
��K%=242�erase
��K%=243�link
�K%=244�node
�K%=246�osf(&FF)
�K%=247�osf(&00)
"�K%=248�scdump
,�K%=249�chfile(1)
6�
@��scdump:�"UCODE":�condis:�
J*��node:node%=1:�condis:�:�cur:AA%=�(0)
T�AA%=135�7:�clstr(69)
^�AA%=242 �erase
h�AA%=244:node%=0:�condis:�
r/��twdw(a%,b%,c%,d%,e%):�28,a%,b%,c%,d%,e%:�
| ��gwdw:�24,10;10;1270;940;:�
�'��wipe:�7:�twdw(1,30,78,4,12):�16:�
�<��link:link%=1:�condis:�:�:�cur:�linkey:�AA%=135�link%=0
��link%=0��dBA
�hX1%=XX%:Y1%=YY%:�7:�:�cur:�line(6,X1%,Y1%,XX%,YY%):�line(6,X1%,Y1%,XX%,YY%):�linkey:�AA%=135�link%=0
��link%=0��dBA
��line(5,X1%,Y1%,XX%,YY%):�7
��link%=0:�condis:�
�=��line(K%,X1%,Y1%,X2%,Y2%):�25,4,X1%;Y1%;25,K%,X2%;Y2%;:�
���linkey:AA%=�(0)
��AA%=242 �erase
��AA%=243link%=0
��
���txtgr:TG%=TG%+13
�TG%>84TG%=71
�condis
�TG%=84�text
&�
0��erase:erase%=erase%+1
:�erase%>1erase%=0
D�condis:�18,0,1-erase%:�
N ��arrows:D%=DIR%:DIR%=DIR%+1
X�DIR%>243DIR%=240
b
�condis:�
l	��cur
v�(-1)x%=50�x%=5
��(-26)XX%=XX%-x%
��(-122)XX%=XX%+x%
��(-58)YY%=YY%+x%
��(-42)YY%=YY%-x%
��XX%>1270XX%=10
��XX%<10XX%=1270
��YY%>940YY%=10
��YY%<10YY%=940
��clstr(70):�clstr(70):�
���comps:�7:�clstr(69)
��(1100+a%*10)
��Z%
��XX%,YY%:�n%=1�Z%:�adv:�:�
��adv:�v%,x%,y%
 �D%=240�25,v%,XX%+x%;YY%+y%;
 �D%=241�25,v%,XX%-y%;YY%-x%;
  �D%=242�25,v%,XX%-x%;YY%+y%;
* �D%=243�25,v%,XX%-y%;YY%+x%;
4�
>��clstr(L%)
H2��DRC:�n%=1�8:�x%,y%:�25,L%,XX%+x%;YY%+y%;:�:�
R+� -4,4,0,4,4,4,-4,0,4,0,-4,-4,0,-4,4,-4
\���condis:�twdw(0,1,79,0,12):�7:�1,1);"Window:";�(TG%);�12,1);"Advance:";�(D%);�24,1);"Erase:";erase%;�34,1);"Link:";link%;�43,1);"Node:";node%;:�
f2��osf(A%):�7:�twdw(0,1,79,0,12):�23,1,1;0;0;0;
p �A%=&FF m$="LOAD" �m$="SAVE"
zE�1,1);"Enter circuit name to "+m$+" <max=7> ";:�;nm$:nm$=�nm$,7)
� �A%=&FF �"LOAD "+nm$+" 3000"
�%�A%=&00 �"SAVE "+nm$+" 3000 8000"
��12,23,1,0;0;0;0;:�condis:�
����init:�"FX213,180":�"FX214,3":�"FX4,1":�"FX11":�"FX225,240":�19,128,4;0;:XX%=660:YY%=470:DIR%=241:D%=240:M%=0:N%=0:TG%=71:erase%=0:link%=0:node%=0
���23,1,0;0;0;0;23,240,12,6,3,255,255,3,6,12,23,241,24,24,24,24,153,219,126,60,23,242,48,96,192,255,255,192,96,48,23,243,60,126,219,153,24,24,24,24:�bdry:�gwdw:�condis:�
�E��bdry:�25,4,0;0;25,5,1279;0;25,5,1279;950;25,5,0;950;25,5,0;0;:�
���ovr(new$)
��"LOAD "+new$+" "+top$:�
�S��chfile(s%):�twdw(0,1,79,0,12):�1,1);"Character filename ";:�;new$:�ovr(new$)
��s%=0� ��condis:�
�
00000000  0d 00 0a 0b ee 85 e5 8d  44 64 40 0d 00 14 1b d2  |........Dd@.....|
00000010  3d b8 50 2b 26 35 30 30  3a 74 6f 70 24 3d c3 7e  |=.P+&500:top$=.~|
00000020  28 b8 50 2d 32 29 0d 00  1e 0e f2 63 68 66 69 6c  |(.P-2).....chfil|
00000030  65 28 30 29 0d 00 28 15  eb 30 3a ef 32 33 2c 31  |e(0)..(..0:.23,1|
00000040  2c 30 3b 30 3b 30 3b 30  3b 0d 00 32 18 f2 69 6e  |,0;0;0;0;..2..in|
00000050  69 74 3a f5 3a 4b 25 3d  a6 28 30 29 3a f2 63 75  |it:.:K%=.(0):.cu|
00000060  72 0d 00 3c 19 e7 a6 2d  32 30 3a e7 a6 2d 36 35  |r..<...-20:..-65|
00000070  3a e7 a6 2d 31 f2 77 69  70 65 0d 00 46 18 e7 4b  |:..-1.wipe..F..K|
00000080  25 3e 3d 32 34 30 80 4b  25 3c 3d 32 34 39 f2 6f  |%>=240.K%<=249.o|
00000090  70 74 0d 00 50 1f e7 4b  25 3e 36 34 80 4b 25 3c  |pt..P..K%>64.K%<|
000000a0  37 33 61 25 3d 4b 25 2d  36 34 3a f2 63 6f 6d 70  |73a%=K%-64:.comp|
000000b0  73 0d 00 5a 06 fd a3 0d  00 64 0e f2 65 72 72 3a  |s..Z.....d..err:|
000000c0  e5 8d 54 72 40 0d 00 6e  05 e0 0d 00 78 44 dd f2  |..Tr@..n....xD..|
000000d0  65 72 72 3a f2 74 77 64  77 28 30 2c 31 2c 37 39  |err:.twdw(0,1,79|
000000e0  2c 30 2c 31 32 29 3a ef  37 3a f1 8a 31 2c 30 29  |,0,12):.7:..1,0)|
000000f0  3b 3a f6 3a f1 3b 22 20  61 74 20 22 3b 9e 3b 3a  |;:.:.;" at ";.;:|
00000100  41 41 25 3d a6 28 32 30  30 29 3a db 3a e1 0d 00  |AA%=.(200):.:...|
00000110  82 4e dd f2 74 65 78 74  3a f2 74 77 64 77 28 31  |.N..text:.twdw(1|
00000120  2c 33 30 2c 37 38 2c 33  2c 30 29 3a ff 22 46 58  |,30,78,3,0):."FX|
00000130  31 32 22 3a ff 22 46 58  32 31 22 3a ef 32 33 2c  |12":."FX21":.23,|
00000140  31 2c 31 3b 30 3b 30 3b  30 3b 33 31 2c 34 30 2c  |1,1;0;0;0;31,40,|
00000150  31 32 3a f5 3a 4b 25 3d  a6 28 30 29 0d 00 8c 10  |12:.:K%=.(0)....|
00000160  e7 b1 3d 37 37 80 bc 3d  32 37 ef 38 0d 00 96 12  |..=77..=27.8....|
00000170  e7 4b 25 3d 31 33 36 80  b1 3e 3d 31 ef 38 0d 00  |.K%=136..>=1.8..|
00000180  a0 13 e7 4b 25 3d 31 33  37 80 b1 3c 3d 37 39 ef  |...K%=137..<=79.|
00000190  39 0d 00 aa 14 e7 4b 25  3d 31 33 38 80 bc 3c 3d  |9.....K%=138..<=|
000001a0  32 36 ef 31 30 0d 00 b4  13 e7 4b 25 3d 31 33 39  |26.10.....K%=139|
000001b0  80 bc 3e 3d 31 ef 31 31  0d 00 be 19 e7 4b 25 3e  |..>=1.11.....K%>|
000001c0  3d 33 32 80 4b 25 3c 3d  31 32 37 ef 4b 25 3a ef  |=32.K%<=127.K%:.|
000001d0  37 0d 00 c8 2b fd 4b 25  3d 32 34 30 3a ff 22 46  |7...+.K%=240:."F|
000001e0  58 31 31 22 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |X11":.23,1,0;0;0|
000001f0  3b 30 3b 3a f2 74 78 74  67 72 3a e1 0d 00 d2 09  |;0;:.txtgr:.....|
00000200  dd f2 6f 70 74 0d 00 dc  11 e7 4b 25 3d 32 34 30  |..opt.....K%=240|
00000210  f2 74 78 74 67 72 0d 00  e6 12 e7 4b 25 3d 32 34  |.txtgr.....K%=24|
00000220  31 f2 61 72 72 6f 77 73  0d 00 f0 11 e7 4b 25 3d  |1.arrows.....K%=|
00000230  32 34 32 f2 65 72 61 73  65 0d 00 fa 10 e7 4b 25  |242.erase.....K%|
00000240  3d 32 34 33 f2 6c 69 6e  6b 0d 01 04 10 e7 4b 25  |=243.link.....K%|
00000250  3d 32 34 34 f2 6e 6f 64  65 0d 01 0e 14 e7 4b 25  |=244.node.....K%|
00000260  3d 32 34 36 f2 6f 73 66  28 26 46 46 29 0d 01 18  |=246.osf(&FF)...|
00000270  14 e7 4b 25 3d 32 34 37  f2 6f 73 66 28 26 30 30  |..K%=247.osf(&00|
00000280  29 0d 01 22 12 e7 4b 25  3d 32 34 38 f2 73 63 64  |).."..K%=248.scd|
00000290  75 6d 70 0d 01 2c 15 e7  4b 25 3d 32 34 39 f2 63  |ump..,..K%=249.c|
000002a0  68 66 69 6c 65 28 31 29  0d 01 36 05 e1 0d 01 40  |hfile(1)..6....@|
000002b0  1f dd f2 73 63 64 75 6d  70 3a ff 22 55 43 4f 44  |...scdump:."UCOD|
000002c0  45 22 3a f2 63 6f 6e 64  69 73 3a e1 0d 01 4a 2a  |E":.condis:...J*|
000002d0  dd f2 6e 6f 64 65 3a 6e  6f 64 65 25 3d 31 3a f2  |..node:node%=1:.|
000002e0  63 6f 6e 64 69 73 3a f5  3a f2 63 75 72 3a 41 41  |condis:.:.cur:AA|
000002f0  25 3d a6 28 30 29 0d 01  54 19 e7 41 41 25 3d 31  |%=.(0)..T..AA%=1|
00000300  33 35 ef 37 3a f2 63 6c  73 74 72 28 36 39 29 0d  |35.7:.clstr(69).|
00000310  01 5e 13 e7 41 41 25 3d  32 34 32 20 f2 65 72 61  |.^..AA%=242 .era|
00000320  73 65 0d 01 68 1e fd 41  41 25 3d 32 34 34 3a 6e  |se..h..AA%=244:n|
00000330  6f 64 65 25 3d 30 3a f2  63 6f 6e 64 69 73 3a e1  |ode%=0:.condis:.|
00000340  0d 01 72 2f dd f2 74 77  64 77 28 61 25 2c 62 25  |..r/..twdw(a%,b%|
00000350  2c 63 25 2c 64 25 2c 65  25 29 3a ef 32 38 2c 61  |,c%,d%,e%):.28,a|
00000360  25 2c 62 25 2c 63 25 2c  64 25 2c 65 25 3a e1 0d  |%,b%,c%,d%,e%:..|
00000370  01 7c 20 dd f2 67 77 64  77 3a ef 32 34 2c 31 30  |.| ..gwdw:.24,10|
00000380  3b 31 30 3b 31 32 37 30  3b 39 34 30 3b 3a e1 0d  |;10;1270;940;:..|
00000390  01 86 27 dd f2 77 69 70  65 3a ef 37 3a f2 74 77  |..'..wipe:.7:.tw|
000003a0  64 77 28 31 2c 33 30 2c  37 38 2c 34 2c 31 32 29  |dw(1,30,78,4,12)|
000003b0  3a ef 31 36 3a e1 0d 01  90 3c dd f2 6c 69 6e 6b  |:.16:....<..link|
000003c0  3a 6c 69 6e 6b 25 3d 31  3a f2 63 6f 6e 64 69 73  |:link%=1:.condis|
000003d0  3a f5 3a f5 3a f2 63 75  72 3a f2 6c 69 6e 6b 65  |:.:.:.cur:.linke|
000003e0  79 3a fd 41 41 25 3d 31  33 35 84 6c 69 6e 6b 25  |y:.AA%=135.link%|
000003f0  3d 30 0d 01 9a 11 e7 6c  69 6e 6b 25 3d 30 8c 8d  |=0.....link%=0..|
00000400  64 42 41 0d 01 a4 68 58  31 25 3d 58 58 25 3a 59  |dBA...hX1%=XX%:Y|
00000410  31 25 3d 59 59 25 3a ef  37 3a f5 3a f2 63 75 72  |1%=YY%:.7:.:.cur|
00000420  3a f2 6c 69 6e 65 28 36  2c 58 31 25 2c 59 31 25  |:.line(6,X1%,Y1%|
00000430  2c 58 58 25 2c 59 59 25  29 3a f2 6c 69 6e 65 28  |,XX%,YY%):.line(|
00000440  36 2c 58 31 25 2c 59 31  25 2c 58 58 25 2c 59 59  |6,X1%,Y1%,XX%,YY|
00000450  25 29 3a f2 6c 69 6e 6b  65 79 3a fd 41 41 25 3d  |%):.linkey:.AA%=|
00000460  31 33 35 84 6c 69 6e 6b  25 3d 30 0d 01 ae 11 e7  |135.link%=0.....|
00000470  6c 69 6e 6b 25 3d 30 8c  8d 64 42 41 0d 01 b8 1f  |link%=0..dBA....|
00000480  f2 6c 69 6e 65 28 35 2c  58 31 25 2c 59 31 25 2c  |.line(5,X1%,Y1%,|
00000490  58 58 25 2c 59 59 25 29  3a ef 37 0d 01 c2 16 fd  |XX%,YY%):.7.....|
000004a0  6c 69 6e 6b 25 3d 30 3a  f2 63 6f 6e 64 69 73 3a  |link%=0:.condis:|
000004b0  e1 0d 01 cc 3d dd f2 6c  69 6e 65 28 4b 25 2c 58  |....=..line(K%,X|
000004c0  31 25 2c 59 31 25 2c 58  32 25 2c 59 32 25 29 3a  |1%,Y1%,X2%,Y2%):|
000004d0  ef 32 35 2c 34 2c 58 31  25 3b 59 31 25 3b 32 35  |.25,4,X1%;Y1%;25|
000004e0  2c 4b 25 2c 58 32 25 3b  59 32 25 3b 3a e1 0d 01  |,K%,X2%;Y2%;:...|
000004f0  d6 15 dd f2 6c 69 6e 6b  65 79 3a 41 41 25 3d a6  |....linkey:AA%=.|
00000500  28 30 29 0d 01 e0 13 e7  41 41 25 3d 32 34 32 20  |(0).....AA%=242 |
00000510  f2 65 72 61 73 65 0d 01  ea 13 e7 41 41 25 3d 32  |.erase.....AA%=2|
00000520  34 33 6c 69 6e 6b 25 3d  30 0d 01 f4 05 e1 0d 01  |43link%=0.......|
00000530  fe 16 dd f2 74 78 74 67  72 3a 54 47 25 3d 54 47  |....txtgr:TG%=TG|
00000540  25 2b 31 33 0d 02 08 11  e7 54 47 25 3e 38 34 54  |%+13.....TG%>84T|
00000550  47 25 3d 37 31 0d 02 12  0b f2 63 6f 6e 64 69 73  |G%=71.....condis|
00000560  0d 02 1c 10 e7 54 47 25  3d 38 34 f2 74 65 78 74  |.....TG%=84.text|
00000570  0d 02 26 05 e1 0d 02 30  1b dd f2 65 72 61 73 65  |..&....0...erase|
00000580  3a 65 72 61 73 65 25 3d  65 72 61 73 65 25 2b 31  |:erase%=erase%+1|
00000590  0d 02 3a 15 e7 65 72 61  73 65 25 3e 31 65 72 61  |..:..erase%>1era|
000005a0  73 65 25 3d 30 0d 02 44  1c f2 63 6f 6e 64 69 73  |se%=0..D..condis|
000005b0  3a ef 31 38 2c 30 2c 31  2d 65 72 61 73 65 25 3a  |:.18,0,1-erase%:|
000005c0  e1 0d 02 4e 20 dd f2 61  72 72 6f 77 73 3a 44 25  |...N ..arrows:D%|
000005d0  3d 44 49 52 25 3a 44 49  52 25 3d 44 49 52 25 2b  |=DIR%:DIR%=DIR%+|
000005e0  31 0d 02 58 15 e7 44 49  52 25 3e 32 34 33 44 49  |1..X..DIR%>243DI|
000005f0  52 25 3d 32 34 30 0d 02  62 0d f2 63 6f 6e 64 69  |R%=240..b..condi|
00000600  73 3a e1 0d 02 6c 09 dd  f2 63 75 72 0d 02 76 14  |s:...l...cur..v.|
00000610  e7 a6 28 2d 31 29 78 25  3d 35 30 8b 78 25 3d 35  |..(-1)x%=50.x%=5|
00000620  0d 02 80 15 e7 a6 28 2d  32 36 29 58 58 25 3d 58  |......(-26)XX%=X|
00000630  58 25 2d 78 25 0d 02 8a  16 e7 a6 28 2d 31 32 32  |X%-x%......(-122|
00000640  29 58 58 25 3d 58 58 25  2b 78 25 0d 02 94 15 e7  |)XX%=XX%+x%.....|
00000650  a6 28 2d 35 38 29 59 59  25 3d 59 59 25 2b 78 25  |.(-58)YY%=YY%+x%|
00000660  0d 02 9e 15 e7 a6 28 2d  34 32 29 59 59 25 3d 59  |......(-42)YY%=Y|
00000670  59 25 2d 78 25 0d 02 a8  13 e7 58 58 25 3e 31 32  |Y%-x%.....XX%>12|
00000680  37 30 58 58 25 3d 31 30  0d 02 b2 13 e7 58 58 25  |70XX%=10.....XX%|
00000690  3c 31 30 58 58 25 3d 31  32 37 30 0d 02 bc 12 e7  |<10XX%=1270.....|
000006a0  59 59 25 3e 39 34 30 59  59 25 3d 31 30 0d 02 c6  |YY%>940YY%=10...|
000006b0  12 e7 59 59 25 3c 31 30  59 59 25 3d 39 34 30 0d  |..YY%<10YY%=940.|
000006c0  02 d0 1b f2 63 6c 73 74  72 28 37 30 29 3a f2 63  |....clstr(70):.c|
000006d0  6c 73 74 72 28 37 30 29  3a e1 0d 02 da 19 dd f2  |lstr(70):.......|
000006e0  63 6f 6d 70 73 3a ef 37  3a f2 63 6c 73 74 72 28  |comps:.7:.clstr(|
000006f0  36 39 29 0d 02 e4 11 f7  28 31 31 30 30 2b 61 25  |69).....(1100+a%|
00000700  2a 31 30 29 0d 02 ee 07  f3 5a 25 0d 02 f8 1e ec  |*10).....Z%.....|
00000710  58 58 25 2c 59 59 25 3a  e3 6e 25 3d 31 b8 5a 25  |XX%,YY%:.n%=1.Z%|
00000720  3a f2 61 64 76 3a ed 3a  e1 0d 03 02 13 dd f2 61  |:.adv:.:.......a|
00000730  64 76 3a f3 76 25 2c 78  25 2c 79 25 0d 03 0c 20  |dv:.v%,x%,y%... |
00000740  e7 44 25 3d 32 34 30 ef  32 35 2c 76 25 2c 58 58  |.D%=240.25,v%,XX|
00000750  25 2b 78 25 3b 59 59 25  2b 79 25 3b 0d 03 16 20  |%+x%;YY%+y%;... |
00000760  e7 44 25 3d 32 34 31 ef  32 35 2c 76 25 2c 58 58  |.D%=241.25,v%,XX|
00000770  25 2d 79 25 3b 59 59 25  2d 78 25 3b 0d 03 20 20  |%-y%;YY%-x%;..  |
00000780  e7 44 25 3d 32 34 32 ef  32 35 2c 76 25 2c 58 58  |.D%=242.25,v%,XX|
00000790  25 2d 78 25 3b 59 59 25  2b 79 25 3b 0d 03 2a 20  |%-x%;YY%+y%;..* |
000007a0  e7 44 25 3d 32 34 33 ef  32 35 2c 76 25 2c 58 58  |.D%=243.25,v%,XX|
000007b0  25 2d 79 25 3b 59 59 25  2b 78 25 3b 0d 03 34 05  |%-y%;YY%+x%;..4.|
000007c0  e1 0d 03 3e 0f dd f2 63  6c 73 74 72 28 4c 25 29  |...>...clstr(L%)|
000007d0  0d 03 48 32 f7 8d 44 52  43 3a e3 6e 25 3d 31 b8  |..H2..DRC:.n%=1.|
000007e0  38 3a f3 78 25 2c 79 25  3a ef 32 35 2c 4c 25 2c  |8:.x%,y%:.25,L%,|
000007f0  58 58 25 2b 78 25 3b 59  59 25 2b 79 25 3b 3a ed  |XX%+x%;YY%+y%;:.|
00000800  3a e1 0d 03 52 2b dc 20  2d 34 2c 34 2c 30 2c 34  |:...R+. -4,4,0,4|
00000810  2c 34 2c 34 2c 2d 34 2c  30 2c 34 2c 30 2c 2d 34  |,4,4,-4,0,4,0,-4|
00000820  2c 2d 34 2c 30 2c 2d 34  2c 34 2c 2d 34 0d 03 5c  |,-4,0,-4,4,-4..\|
00000830  96 dd f2 63 6f 6e 64 69  73 3a f2 74 77 64 77 28  |...condis:.twdw(|
00000840  30 2c 31 2c 37 39 2c 30  2c 31 32 29 3a ef 37 3a  |0,1,79,0,12):.7:|
00000850  f1 8a 31 2c 31 29 3b 22  57 69 6e 64 6f 77 3a 22  |..1,1);"Window:"|
00000860  3b bd 28 54 47 25 29 3b  8a 31 32 2c 31 29 3b 22  |;.(TG%);.12,1);"|
00000870  41 64 76 61 6e 63 65 3a  22 3b bd 28 44 25 29 3b  |Advance:";.(D%);|
00000880  8a 32 34 2c 31 29 3b 22  45 72 61 73 65 3a 22 3b  |.24,1);"Erase:";|
00000890  65 72 61 73 65 25 3b 8a  33 34 2c 31 29 3b 22 4c  |erase%;.34,1);"L|
000008a0  69 6e 6b 3a 22 3b 6c 69  6e 6b 25 3b 8a 34 33 2c  |ink:";link%;.43,|
000008b0  31 29 3b 22 4e 6f 64 65  3a 22 3b 6e 6f 64 65 25  |1);"Node:";node%|
000008c0  3b 3a e1 0d 03 66 32 dd  f2 6f 73 66 28 41 25 29  |;:...f2..osf(A%)|
000008d0  3a ef 37 3a f2 74 77 64  77 28 30 2c 31 2c 37 39  |:.7:.twdw(0,1,79|
000008e0  2c 30 2c 31 32 29 3a ef  32 33 2c 31 2c 31 3b 30  |,0,12):.23,1,1;0|
000008f0  3b 30 3b 30 3b 0d 03 70  20 e7 41 25 3d 26 46 46  |;0;0;..p .A%=&FF|
00000900  20 6d 24 3d 22 4c 4f 41  44 22 20 8b 6d 24 3d 22  | m$="LOAD" .m$="|
00000910  53 41 56 45 22 0d 03 7a  45 f1 8a 31 2c 31 29 3b  |SAVE"..zE..1,1);|
00000920  22 45 6e 74 65 72 20 63  69 72 63 75 69 74 20 6e  |"Enter circuit n|
00000930  61 6d 65 20 74 6f 20 22  2b 6d 24 2b 22 20 3c 6d  |ame to "+m$+" <m|
00000940  61 78 3d 37 3e 20 22 3b  3a e8 3b 6e 6d 24 3a 6e  |ax=7> ";:.;nm$:n|
00000950  6d 24 3d c0 6e 6d 24 2c  37 29 0d 03 84 20 e7 41  |m$=.nm$,7)... .A|
00000960  25 3d 26 46 46 20 ff 22  4c 4f 41 44 20 22 2b 6e  |%=&FF ."LOAD "+n|
00000970  6d 24 2b 22 20 33 30 30  30 22 0d 03 8e 25 e7 41  |m$+" 3000"...%.A|
00000980  25 3d 26 30 30 20 ff 22  53 41 56 45 20 22 2b 6e  |%=&00 ."SAVE "+n|
00000990  6d 24 2b 22 20 33 30 30  30 20 38 30 30 30 22 0d  |m$+" 3000 8000".|
000009a0  03 98 1f ef 31 32 2c 32  33 2c 31 2c 30 3b 30 3b  |....12,23,1,0;0;|
000009b0  30 3b 30 3b 3a f2 63 6f  6e 64 69 73 3a e1 0d 03  |0;0;:.condis:...|
000009c0  a2 97 dd f2 69 6e 69 74  3a ff 22 46 58 32 31 33  |....init:."FX213|
000009d0  2c 31 38 30 22 3a ff 22  46 58 32 31 34 2c 33 22  |,180":."FX214,3"|
000009e0  3a ff 22 46 58 34 2c 31  22 3a ff 22 46 58 31 31  |:."FX4,1":."FX11|
000009f0  22 3a ff 22 46 58 32 32  35 2c 32 34 30 22 3a ef  |":."FX225,240":.|
00000a00  31 39 2c 31 32 38 2c 34  3b 30 3b 3a 58 58 25 3d  |19,128,4;0;:XX%=|
00000a10  36 36 30 3a 59 59 25 3d  34 37 30 3a 44 49 52 25  |660:YY%=470:DIR%|
00000a20  3d 32 34 31 3a 44 25 3d  32 34 30 3a 4d 25 3d 30  |=241:D%=240:M%=0|
00000a30  3a 4e 25 3d 30 3a 54 47  25 3d 37 31 3a 65 72 61  |:N%=0:TG%=71:era|
00000a40  73 65 25 3d 30 3a 6c 69  6e 6b 25 3d 30 3a 6e 6f  |se%=0:link%=0:no|
00000a50  64 65 25 3d 30 0d 03 ac  ab ef 32 33 2c 31 2c 30  |de%=0.....23,1,0|
00000a60  3b 30 3b 30 3b 30 3b 32  33 2c 32 34 30 2c 31 32  |;0;0;0;23,240,12|
00000a70  2c 36 2c 33 2c 32 35 35  2c 32 35 35 2c 33 2c 36  |,6,3,255,255,3,6|
00000a80  2c 31 32 2c 32 33 2c 32  34 31 2c 32 34 2c 32 34  |,12,23,241,24,24|
00000a90  2c 32 34 2c 32 34 2c 31  35 33 2c 32 31 39 2c 31  |,24,24,153,219,1|
00000aa0  32 36 2c 36 30 2c 32 33  2c 32 34 32 2c 34 38 2c  |26,60,23,242,48,|
00000ab0  39 36 2c 31 39 32 2c 32  35 35 2c 32 35 35 2c 31  |96,192,255,255,1|
00000ac0  39 32 2c 39 36 2c 34 38  2c 32 33 2c 32 34 33 2c  |92,96,48,23,243,|
00000ad0  36 30 2c 31 32 36 2c 32  31 39 2c 31 35 33 2c 32  |60,126,219,153,2|
00000ae0  34 2c 32 34 2c 32 34 2c  32 34 3a f2 62 64 72 79  |4,24,24,24:.bdry|
00000af0  3a f2 67 77 64 77 3a f2  63 6f 6e 64 69 73 3a e1  |:.gwdw:.condis:.|
00000b00  0d 03 b6 45 dd f2 62 64  72 79 3a ef 32 35 2c 34  |...E..bdry:.25,4|
00000b10  2c 30 3b 30 3b 32 35 2c  35 2c 31 32 37 39 3b 30  |,0;0;25,5,1279;0|
00000b20  3b 32 35 2c 35 2c 31 32  37 39 3b 39 35 30 3b 32  |;25,5,1279;950;2|
00000b30  35 2c 35 2c 30 3b 39 35  30 3b 32 35 2c 35 2c 30  |5,5,0;950;25,5,0|
00000b40  3b 30 3b 3a e1 0d 03 c0  0f dd f2 6f 76 72 28 6e  |;0;:.......ovr(n|
00000b50  65 77 24 29 0d 03 ca 1c  ff 22 4c 4f 41 44 20 22  |ew$)....."LOAD "|
00000b60  2b 6e 65 77 24 2b 22 20  22 2b 74 6f 70 24 3a e1  |+new$+" "+top$:.|
00000b70  0d 03 d4 53 dd f2 63 68  66 69 6c 65 28 73 25 29  |...S..chfile(s%)|
00000b80  3a f2 74 77 64 77 28 30  2c 31 2c 37 39 2c 30 2c  |:.twdw(0,1,79,0,|
00000b90  31 32 29 3a f1 8a 31 2c  31 29 3b 22 43 68 61 72  |12):..1,1);"Char|
00000ba0  61 63 74 65 72 20 66 69  6c 65 6e 61 6d 65 20 22  |acter filename "|
00000bb0  3b 3a e8 3b 6e 65 77 24  3a f2 6f 76 72 28 6e 65  |;:.;new$:.ovr(ne|
00000bc0  77 24 29 0d 03 de 15 e7  73 25 3d 30 e1 20 8b f2  |w$).....s%=0. ..|
00000bd0  63 6f 6e 64 69 73 3a e1  0d ff                    |condis:...|
00000bda
P/CAD+.m0
P/CAD+.m1
P/CAD+.m2
P/CAD+.m4
P/CAD+.m5

© Dominic Ford 2021–2024.

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