Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » CAD/CADNew/BACK/CAD2
CAD/CADNew/BACK/CAD2
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 » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf |
| Filename: | CAD/CADNew/BACK/CAD2 |
| Read OK: | ✔ |
| File size: | 1DEA bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10REM Advanced CAD - Main program
20REM (C) Dominic Ford 1998
30HIMEM=&4000:PROCinit:stop=FALSE:joy=(?&5210=1):mouse=(?&5211=1):REPEATIFmouse THENPROCmoucur ELSEPROCcursor
40PROCcompsel:IFFNfire THENPROCmenu
50UNTILstop:MODE7:OSCLI"FX15,1":END
60DEFFNfire:IFINKEY(-74)THEN=1ELSEIFjoy THENA%=&80:X%=0:IF(USR(&FFF4)AND(512+256))<>0THEN=1
70=0
80DEFPROCinit
90drawcomps=&5200:whatover=&5203:delete=&5206:getlink=&5209:pinbase=&520C:x=640:y=512:DIMmenu$(10),t%(15,1):!&47FC=0:?&4800=0:$&4801=" <Untitled> ":st$="":READc%:DIMcnam$(c%+1):FORc=1TOc%:READcnam$(c)
100cnam$(c)=cnam$(c)+STRING$(15-LEN(cnam$(c))," "):NEXT:cnam$(0)=STRING$(15," "):cnam$(c%+1)=STRING$(15," "):cp%=1:PROCdrawscr:ENDPROC
110DEFPROCdrawscr
120CLS:PRINT" Advanced CAD V1.0 by Dominic Ford 1998"
130GCOL0,1:MOVE0,992:DRAW1280,992:MOVE0,892:DRAW1280,892:MOVE0,884:DRAW1280,884
140GCOL0,1:CALLdrawcomps:PROCdraw(x,y):VDU23,1,0;0;0;0;
150PRINTTAB(0,1)cnam$(cp%-1):COLOUR129:COLOUR0:PRINTcnam$(cp%):COLOUR128:COLOUR1:PRINTcnam$(cp%+1);
160T=TIME:REPEATUNTIL(TIME>T+25)OR(NOT(INKEY(-58)ORINKEY(-42)))
170PRINTTAB(16,1)"Status: Ready ":PRINTTAB(16,3);:FORr=0TO14:PRINTCHR$?(&4801+r);:NEXT
180ENDPROC
190DEFPROCcompsel
200co%=cp%:IFINKEY(-58)ANDcp%<>1THENcp%=cp%-1
210IFINKEY(-42)ANDcp%<>c%THENcp%=cp%+1
220IFcp%<>co%THEN150
230ENDPROC
240DEFPROCput
250IF?&4800=160THENVDU7:ENDPROC
260?&4800=?&4800+1:c=&4800+16*?&4800:IFcp%=8THEN?(c+5)=FNpins
270?c=cp%-1:!(c+1)=x+65536*y:FORr=c+8TOc+15:?r=32:NEXT:PROCdraw(x,y)
280REPEATUNTILNOTINKEY(-74)
290ENDPROC
300DEFFNpins
310xm=xm+32*(w%+1):IFxm>(1248-32*w%)THENxm=xm-64*(w%+1)
320n%=10:IFym>(n%+3)*32THENym=ym-32ELSEym=(n%+2)*32
330w%=3:menu$(0)="Pin":menu$(1)=" 6":menu$(2)=" 8":menu$(3)=" 14":menu$(4)=" 16":menu$(5)=" 18":menu$(6)=" 20":menu$(7)=" 24":menu$(8)=" 28":menu$(9)=" 32":menu$(10)=" 40":PROCdomenu
340=?(!pinbase+mo%)
350DEFPROCmenu
360PROCdraw(x,y):!&70=x:!&72=y:CALLwhatover
370n%=6:w%=6:IFx<1248-32*w%THENxm=(x AND &FFE0)ELSExm=1248-32*w%
380IFy>32*(n%+2)THENym=(y AND &FFE0)ELSEym=32*(n%+2)
390IF?&77=0THENPROCcadmenu:GOTO460
400menu$(0)="Object":menu$(1)="File "+CHR$255:menu$(2)="Move ":menu$(3)="Delete":menu$(4)="Label"+CHR$255:menu$(5)="Link "+CHR$255:menu$(6)="Cancel":PROCdomenu
410IFmo%=0THENPROCfile:GOTO460
420IFmo%=1THENPROCmove:GOTO460
430IFmo%=2THENIFFNsure("Delete Object")THENCALLdelete:GOTO460
440IFmo%=3THENPROClabel:GOTO460
450IFmo%=4THENPROClink
460PROCdrawscr
470ENDPROC
480DEFPROCcadmenu
490n%=3:menu$(0)="AdvCAD":menu$(1)="File "+CHR$255:menu$(2)="Add ":menu$(3)="Cancel":PROCdomenu
500IFmo%=0THENPROCfile:GOTO520
510IFmo%=1THENPROCput
520ENDPROC
530DEFPROCfile
540xm=xm+32*(w%+1):IFxm>(1248-32*w%)THENxm=xm-64*(w%+1)
550n%=9:IFym>(n%+3)*32THENym=ym-32ELSEym=(n%+2)*32
560menu$(0)=" File ":menu$(1)="New ":menu$(2)="Open ":menu$(3)="Save ":menu$(4)="SaveAs":menu$(5)="Export":menu$(6)="Name "+CHR$255:menu$(7)="MOS(*)":menu$(8)="Exit ":menu$(9)="Cancel":PROCdomenu
570IFmo%=0THENIFFNsure("Clear Circuit")THEN!&47FC=0:?&4800=0:$&4801=" <Untitled> ":st$="":ENDPROC
580IFmo%=1THENPROCopen:ENDPROC
590IFmo%=2THENPROCsave(0):ENDPROC
600IFmo%=3THENPROCsave(1):ENDPROC
610IFmo%=4THENPROCexport:ENDPROC
620IFmo%=5THENPROCname:ENDPROC
630IFmo%=6THENPROCmos:ENDPROC
640IFmo%=7THENIFFNsure("Exit CAD")THENstop=TRUE:ENDPROC
650ENDPROC
660DEFPROCopen
670w%=7:n%=0:ym=ym-64:xm=768:FORrx=0TO6:t%(rx,0)=32:NEXT:PROCtextbox
680st$="":FORrx=0TO6:st$=st$+CHR$t%(rx,0):NEXT:OSCLI"LOAD "+st$
690ENDPROC
700DEFPROCsave(st)
710IFst=1ORst$=""THENw%=7:n%=0:ym=ym-64:xm=768:FORrx=0TO6:t%(rx,0)=32:NEXT:PROCtextbox:st$="":FORrx=0TO6:st$=st$+CHR$t%(rx,0):NEXT
720min=&47FC-4*!&47FC:max=&4810+16*?&4800:OSCLI"SAVE "+st$+" "+STR$~min+" "+STR$~max
730ENDPROC
740DEFPROCexport
750w%=7:n%=0:ym=ym-64:xm=768:FORrx=0TO6:t%(rx,0)=32:NEXT:PROCtextbox
760st$="":FORrx=0TO6:st$=st$+CHR$t%(rx,0):NEXT:CLS:CALLdrawcomps:OSCLI"SAVE "+st$+" 5800 8000"
770ENDPROC
780DEFPROCdomenu
790xc=xm DIV32:yc=32-(ym DIV32):FORr=0TOn%:PRINTTAB(xc,yc+r)menu$(r);:NEXT
800GCOL0,1:MOVExm-4,ym+4:DRAWxm+32*w%+4,ym+4:DRAWxm+32*w%+4,ym-32*n%-36:DRAWxm-4,ym-32*n%-36:DRAWxm-4,ym+4:MOVExm-12,ym+12:DRAWxm+32*w%+12,ym+12:DRAWxm+32*w%+12,ym-32*n%-44:DRAWxm-12,ym-32*n%-44:DRAWxm-12,ym+12
810MOVExm-4,ym-32:DRAWxm+32*w%+4,ym-32
820ad=&5800+&140*yc+8*xc:FORr=ad TOad+8*w%-1:?r=?r EOR255:NEXT
830GCOL3,1:mi%=0:REPEAT ad=&5940+&140*(yc+mi%)+8*xc:FORr=ad TOad+8*w%-1:?r=?r EOR255:NEXT:mo%=mi%
840REPEATUNTILNOT(INKEY(-58)ORINKEY(-42)ORINKEY(-73)ORINKEY(-105))
850IFjoy THENREPEATUNTILADVAL(2)<40000ANDADVAL(2)>24000
860REPEAT IFINKEY(-58)ORINKEY(-73)OR(joy ANDADVAL(2)>40000)THENmi%=mi%-1
870IFINKEY(-42)ORINKEY(-105)OR(joy ANDADVAL(2)<24000)THENmi%=mi%+1
880IFFNfire THENmi%=-5
890UNTILmi%<>mo%:IFmi%<>-5THENmi%=(mi%+n%)MODn%
900IFmi%<>-5THENFORr=ad TOad+8*w%-1:?r=?r EOR255:NEXT
910UNTILmi%=-5
920ENDPROC
930DEFFNsure(s$)
940FORr=0TO3:PRINTTAB(14,14+r)SPC(13):NEXT:PRINTTAB(20-INT(0.5*LEN(s$)),14)s$;TAB(14,16)"Are you sure?";TAB(14,17)"(Y)es or (N)o":FORr=&69F0TO&6A57:?r=?r EOR255:NEXT
950GCOL0,1:MOVE448,448:DRAW864,448:DRAW864,576:DRAW448,576:DRAW448,448:MOVE440,440:DRAW872,440:DRAW872,584:DRAW440,584:DRAW440,440
960r=-5:REPEAT IFINKEY(-69)THENr=TRUE
970IFINKEY(-86)THENr=FALSE
980UNTILr<>-5:=r
990DEFPROCmos
1000CLS:PRINT"MOS Command Prompt"''"Enter blank line to return to CAD"'
1010OSCLI"FX15,1":REPEAT PRINT:INPUT"*"s$:OSCLIs$
1020UNTILs$=""
1030ENDPROC
1040DEFPROCname
1050w%=15:n%=0:ym=ym-256:xm=768:FORrx=0TO15:t%(rx,0)=?(&4801+rx):NEXT:PROCtextbox
1060FORrx=0TO15:?(&4801+rx)=t%(rx,0):NEXT
1070ENDPROC
1080DEFPROClabel
1090xm=xm+32*(w%+1):IFxm>(1248-32*w%)THENxm=xm-64*(w%+1)
1100n%=1:ym=ym-128:w%=4:FORrx=0TOw%-1:FORry=0TOn%:t%(rx,ry)=?(&4808+16*?&77+rx+4*ry):NEXT,:PROCtextbox
1110FORrx=0TO3:FORry=0TO1:?(&4808+16*?&77+rx+4*ry)=t%(rx,ry):NEXT,
1120ENDPROC
1130DEFPROCtextbox
1140xc=xm DIV32:yc=32-(ym DIV32):mx=0:my=0:GCOL0,1:MOVExm-4,ym+4:DRAWxm+32*w%+4,ym+4:DRAWxm+32*w%+4,ym-32*n%-36:DRAWxm-4,ym-32*n%-36:DRAWxm-4,ym+4
1150MOVExm-12,ym+12:DRAWxm+32*w%+12,ym+12:DRAWxm+32*w%+12,ym-32*n%-44:DRAWxm-12,ym-32*n%-44:DRAWxm-12,ym+12
1160REPEAT FORry=0TOn%:PRINTTAB(xc,yc+ry);:FORrx=0TOw%-1:PRINTCHR$t%(rx,ry);:NEXT,:ad=&5800+8*(xc+mx)+&140*(yc+my):FORr=ad TOad+7:?r=?r EOR255:NEXT
1170st=0:REPEATUNTILINKEY(0)=-1:REPEAT IFINKEY(-58)ANDmy<>0THENmy=my-1:st=1
1180IFINKEY(-42)ANDmy<>n%THENmy=my+1:st=1
1190IFINKEY(-26)ANDmx<>0THENmx=mx-1:st=1
1200IFINKEY(-122)ANDmx<>(w%-1)THENmx=mx+1:st=1
1210IFINKEY(-74)THENst=2
1220IFst=0THENr=INKEY(0):IFr>31ANDr<127THENt%(mx,my)=r:st=1:IFmx<>(w%-1)THENmx=mx+1
1230UNTILst<>0:UNTILst=2
1240ENDPROC
1250DEFPROClink
1260co1%=?&77:xm=xm+32*(w%+1):ym=ym-160:PROCprelinks:IFmo%=n%-1THENENDPROC
1270cp1%=mo%:PROCdrawscr:PRINTTAB(16,1)"Status: Linking ":REPEATUNTILNOTFNfire
1280REPEAT PROCcursor:UNTILFNfire:!&70=x:!&72=y:CALLwhatover:IF?&77=0THENVDU7:REPEATUNTILNOTFNfire:GOTO1280
1290co2%=?&77:xm=(x AND &FFE0):ym=(y AND &FFE0):PROCprelinks
1300IFmo%=n%-1THENENDPROC
1310!&47FC=!&47FC+1:ad=&47FC-4*!&47FC:?ad=co1%:?(ad+1)=cp1%:?(ad+2)=co2%:?(ad+3)=mo%
1320ENDPROC
1330DEFPROCprelinks
1340?&70=?(&4800+16*?&77):CALLgetlink:n%=-1:w%=7:IFxm>(1248-32*w%)THENxm=xm-64*(w%+1)
1350IF?&73=10AND?&72=160THENPROCleads:GOTO1390
1360ad=?&72+256*?&73:REPEAT n%=n%+1:menu$(n%)="":FORr=ad TOad+6:menu$(n%)=menu$(n%)+CHR$?r:NEXT:ad=ad+8:UNTIL?(ad-1)=0:n%=n%+1:menu$(n%)="Cancel "
1370IFym<(n%+2)*32THENym=(n%+2)*32
1380PROCdomenu
1390ENDPROC
1400DEFPROCleads
1410ml%=?(&4805+16*?&77)*2:n%=(ml%DIV5)+2:menu$(0)="Lead No":menu$(1)="1 - 4 ":FORr=2TOn%-1
1420IF(5*(r-1))=ml%THENmenu$(r)=STR$(5*(r-1)):GOTO1440
1430IF(5*(r-1)+4)>=ml%THENmenu$(r)=STR$(5*(r-1))+" - "+STR$(ml%)ELSEmenu$(r)=STR$(5*(r-1))+" - "+STR$(5*r-1)
1440IFLEN(menu$(r))<7THENmenu$(r)=menu$(r)+STRING$(7-LEN(menu$(r))," ")
1450NEXT:menu$(n%)="Cancel ":IFym<(n%+2)*32THENym=(n%+2)*32
1460PROCdomenu:IFmo%=n%-1THENENDPROC
1470IF(mo%=n%-1)AND(ml%MOD5)=0THENmo%=ml%-1:n%=999:ENDPROC
1480min=VAL(menu$(mo%+1)):max=VAL(MID$(menu$(mo%+1),5,3)):FORr=min TOmax:menu$(1+r-min)=STRING$(7-LEN(STR$r)," ")+STR$r:NEXT:n%=max-min+2:menu$(n%)="Cancel ":IFym<(n%+2)*32THENym=(n%+2)*32
1490xm=xm+32*(w%+1):IFxm>(1248-32*w%)THENxm=xm-96*(w%+1)
1500PROCdomenu:IFmo%=n%-1THENENDPROC
1510mo%=mo%+min:n%=999:ENDPROC
1520ENDPROC
1530DEFPROCmove
1540PROCdrawscr:PROCdraw(x,y):PRINTTAB(16,1)"Status: Moving ":REPEATUNTILNOTFNfire
1550!&70=x:!&72=y:CALLwhatover:ad=&4801+16*?&77:x=?ad+256*?(ad+1):y=?(ad+2)+256*?(ad+3):PROCbox(x,y)
1560REPEAT xold=x:yold=y:PROCmovecur:PROCbox(xold,yold):PROCbox(x,y):UNTILFNfire
1570!ad=x+65536*y
1580ENDPROC
1590DEFPROCbox(x,y)
1600GCOL3,1:MOVEx,y:DRAWx,y-64:DRAWx+64,y-64:DRAWx+64,y:DRAWx,y
1610ENDPROC
1620DEFPROCcursor
1630xold=x:yold=y:PROCmovecur
1640IF(x=xold)AND(y=yold)THENENDPROC
1650PROCdraw(xold,yold)
1660PROCdraw(x,y)
1670ENDPROC
1680DEFPROCmoucur
1690xold=x:yold=y:PROCmovemou
1700GOTO1640
1710DEFPROCmovemou
1720ENDPROC
1730DEFPROCdraw(x,y)
1740GCOL3,1:MOVEx,y-20:DRAWx,y+20:MOVEx-20,y:DRAWx+20,y
1750ENDPROC
1760DEFPROCmovecur
1770PROCcheckmove:IFx<0THENx=0 ELSEIFx>1280THENx=1280
1780IFy<0THENy=0 ELSEIFy>884THENy=884
1790ENDPROC
1800DEFPROCcheckmove
1810step=4:IFINKEY(-1)THENstep=40
1820IFINKEY(-98)OR(joy ANDADVAL(1)>40000)THENx=x-step
1830IFINKEY(-67)OR(joy ANDADVAL(1)<24000)THENx=x+step
1840IFINKEY(-73)OR(joy ANDADVAL(2)>40000)THENy=y+step
1850IFINKEY(-105)OR(joy ANDADVAL(2)<24000)THENy=y-step
1860IFNOTjoy THENENDPROC
1870IFADVAL(1)>55000THENx=x-step*9
1880IFADVAL(1)<10000THENx=x+step*9
1890IFADVAL(2)<10000THENy=y-step*9
1900IFADVAL(2)>55000THENy=y+step*9
1910ENDPROC
1920:
1930DATA20,"Capacitor","Capacitor(E)","Cell","Battery","Diode","Diode(Zener)","Ground","IC","Inductor","Logic AND","Logic NOT","Logic OR","Node","OpAmp","Resistor","Resistor(Var)"
1940DATA"Switch","Transistor(NPN)","Transistor(PNP)","Transistor(FET)"
!� Advanced CAD - Main program
� (C) Dominic Ford 1998
R�=&4000:�init:stop=�:joy=(?&5210=1):mouse=(?&5211=1):��mouse ��moucur ��cursor
(�compsel:�fire ��menu
2�stop:�7:�"FX15,1":�
<Cݤfire:�(-74)�=1��joy �A%=&80:X%=0:�(�(&FFF4)�(512+256))<>0�=1
F=0
P
��init
Z�drawcomps=&5200:whatover=&5203:delete=&5206:getlink=&5209:pinbase=&520C:x=640:y=512:�menu$(10),t%(15,1):!&47FC=0:?&4800=0:$&4801=" <Untitled> ":st$="":�c%:�cnam$(c%+1):�c=1�c%:�cnam$(c)
ddcnam$(c)=cnam$(c)+�15-�(cnam$(c))," "):�:cnam$(0)=�15," "):cnam$(c%+1)=�15," "):cp%=1:�drawscr:�
n
��drawscr
x0�:�" Advanced CAD V1.0 by Dominic Ford 1998"
�;�0,1:�0,992:�1280,992:�0,892:�1280,892:�0,884:�1280,884
�-�0,1:�drawcomps:�draw(x,y):�23,1,0;0;0;0;
�A�0,1)cnam$(cp%-1):�129:�0:�cnam$(cp%):�128:�1:�cnam$(cp%+1);
�%T=�:��(�>T+25)�(�(�(-58)��(-42)))
�B�16,1)"Status: Ready ":�16,3);:�r=0�14:�?(&4801+r);:�
��
�
��compsel
�$co%=cp%:�(-58)�cp%<>1�cp%=cp%-1
� �(-42)�cp%<>c%�cp%=cp%+1
��cp%<>co%��tV@
��
� ��put
��?&4800=160��7:�
9?&4800=?&4800+1:c=&4800+16*?&4800:�cp%=8�?(c+5)=�pins
<?c=cp%-1:!(c+1)=x+65536*y:�r=c+8�c+15:?r=32:�:�draw(x,y)
����(-74)
"�
,
ݤpins
64xm=xm+32*(w%+1):�xm>(1248-32*w%)�xm=xm-64*(w%+1)
@-n%=10:�ym>(n%+3)*32�ym=ym-32�ym=(n%+2)*32
J�w%=3:menu$(0)="Pin":menu$(1)=" 6":menu$(2)=" 8":menu$(3)=" 14":menu$(4)=" 16":menu$(5)=" 18":menu$(6)=" 20":menu$(7)=" 24":menu$(8)=" 28":menu$(9)=" 32":menu$(10)=" 40":�domenu
T=?(!pinbase+mo%)
^
��menu
h&�draw(x,y):!&70=x:!&72=y:�whatover
r8n%=6:w%=6:�x<1248-32*w%�xm=(x � &FFE0)�xm=1248-32*w%
|,�y>32*(n%+2)�ym=(y � &FFE0)�ym=32*(n%+2)
��?&77=0��cadmenu:�dLA
��menu$(0)="Object":menu$(1)="File "+�255:menu$(2)="Move ":menu$(3)="Delete":menu$(4)="Label"+�255:menu$(5)="Link "+�255:menu$(6)="Cancel":�domenu
��mo%=0��file:�dLA
��mo%=1��move:�dLA
�0�mo%=2��sure("Delete Object")��delete:�dLA
��mo%=3��label:�dLA
��mo%=4��link
� �drawscr
��
�
��cadmenu
�\n%=3:menu$(0)="AdvCAD":menu$(1)="File "+�255:menu$(2)="Add ":menu$(3)="Cancel":�domenu
��mo%=0��file:�THB
��mo%=1��put
�
��file
4xm=xm+32*(w%+1):�xm>(1248-32*w%)�xm=xm-64*(w%+1)
&,n%=9:�ym>(n%+3)*32�ym=ym-32�ym=(n%+2)*32
0�menu$(0)=" File ":menu$(1)="New ":menu$(2)="Open ":menu$(3)="Save ":menu$(4)="SaveAs":menu$(5)="Export":menu$(6)="Name "+�255:menu$(7)="MOS(*)":menu$(8)="Exit ":menu$(9)="Cancel":�domenu
:V�mo%=0��sure("Clear Circuit")�!&47FC=0:?&4800=0:$&4801=" <Untitled> ":st$="":�
D�mo%=1��open:�
N�mo%=2��save(0):�
X�mo%=3��save(1):�
b�mo%=4��export:�
l�mo%=5��name:�
v�mo%=6��mos:�
�&�mo%=7��sure("Exit CAD")�stop=�:�
��
�
��open
�<w%=7:n%=0:ym=ym-64:xm=768:�rx=0�6:t%(rx,0)=32:�:�textbox
�3st$="":�rx=0�6:st$=st$+�t%(rx,0):�:�"LOAD "+st$
��
���save(st)
�l�st=1�st$=""�w%=7:n%=0:ym=ym-64:xm=768:�rx=0�6:t%(rx,0)=32:�:�textbox:st$="":�rx=0�6:st$=st$+�t%(rx,0):�
�Kmin=&47FC-4*!&47FC:max=&4810+16*?&4800:�"SAVE "+st$+" "+�~min+" "+�~max
��
� ��export
�<w%=7:n%=0:ym=ym-64:xm=768:�rx=0�6:t%(rx,0)=32:�:�textbox
�Mst$="":�rx=0�6:st$=st$+�t%(rx,0):�:�:�drawcomps:�"SAVE "+st$+" 5800 8000"
�
��domenu
:xc=xm �32:yc=32-(ym �32):�r=0�n%:�xc,yc+r)menu$(r);:�
��0,1:�xm-4,ym+4:�xm+32*w%+4,ym+4:�xm+32*w%+4,ym-32*n%-36:�xm-4,ym-32*n%-36:�xm-4,ym+4:�xm-12,ym+12:�xm+32*w%+12,ym+12:�xm+32*w%+12,ym-32*n%-44:�xm-12,ym-32*n%-44:�xm-12,ym+12
*!�xm-4,ym-32:�xm+32*w%+4,ym-32
47ad=&5800+&140*yc+8*xc:�r=ad �ad+8*w%-1:?r=?r �255:�
>R�3,1:mi%=0:� ad=&5940+&140*(yc+mi%)+8*xc:�r=ad �ad+8*w%-1:?r=?r �255:�:mo%=mi%
H%���(�(-58)��(-42)��(-73)��(-105))
R!�joy ����(2)<40000��(2)>24000
\0� �(-58)��(-73)�(joy ��(2)>40000)�mi%=mi%-1
f/�(-42)��(-105)�(joy ��(2)<24000)�mi%=mi%+1
p�fire �mi%=-5
z&�mi%<>mo%:�mi%<>-5�mi%=(mi%+n%)�n%
�*�mi%<>-5��r=ad �ad+8*w%-1:?r=?r �255:�
� �mi%=-5
��
�ݤsure(s$)
�~�r=0�3:�14,14+r)�(13):�:�20-�(0.5*�(s$)),14)s$;�14,16)"Are you sure?";�14,17)"(Y)es or (N)o":�r=&69F0�&6A57:?r=?r �255:�
�b�0,1:�448,448:�864,448:�864,576:�448,576:�448,448:�440,440:�872,440:�872,584:�440,584:�440,440
�r=-5:� �(-69)�r=�
��(-86)�r=�
�
�r<>-5:=r
� ��mos
�A�:�"MOS Command Prompt"''"Enter blank line to return to CAD"'
� �"FX15,1":� �:�"*"s$:�s$
�
�s$=""
�
��name
Hw%=15:n%=0:ym=ym-256:xm=768:�rx=0�15:t%(rx,0)=?(&4801+rx):�:�textbox
$#�rx=0�15:?(&4801+rx)=t%(rx,0):�
.�
8 ��label
B4xm=xm+32*(w%+1):�xm>(1248-32*w%)�xm=xm-64*(w%+1)
LZn%=1:ym=ym-128:w%=4:�rx=0�w%-1:�ry=0�n%:t%(rx,ry)=?(&4808+16*?&77+rx+4*ry):�,:�textbox
V9�rx=0�3:�ry=0�1:?(&4808+16*?&77+rx+4*ry)=t%(rx,ry):�,
`�
j
��textbox
t|xc=xm �32:yc=32-(ym �32):mx=0:my=0:�0,1:�xm-4,ym+4:�xm+32*w%+4,ym+4:�xm+32*w%+4,ym-32*n%-36:�xm-4,ym-32*n%-36:�xm-4,ym+4
~\�xm-12,ym+12:�xm+32*w%+12,ym+12:�xm+32*w%+12,ym-32*n%-44:�xm-12,ym-32*n%-44:�xm-12,ym+12
�o� �ry=0�n%:�xc,yc+ry);:�rx=0�w%-1:�t%(rx,ry);:�,:ad=&5800+8*(xc+mx)+&140*(yc+my):�r=ad �ad+7:?r=?r �255:�
�/st=0:���(0)=-1:� �(-58)�my<>0�my=my-1:st=1
� �(-42)�my<>n%�my=my+1:st=1
� �(-26)�mx<>0�mx=mx-1:st=1
�$�(-122)�mx<>(w%-1)�mx=mx+1:st=1
��(-74)�st=2
�A�st=0�r=�(0):�r>31�r<127�t%(mx,my)=r:st=1:�mx<>(w%-1)�mx=mx+1
��st<>0:�st=2
��
�
��link
�=co1%=?&77:xm=xm+32*(w%+1):ym=ym-160:�prelinks:�mo%=n%-1��
�<cp1%=mo%:�drawscr:�16,1)"Status: Linking ":����fire
F� �cursor:��fire:!&70=x:!&72=y:�whatover:�?&77=0��7:����fire:�T@E
5co2%=?&77:xm=(x � &FFE0):ym=(y � &FFE0):�prelinks
�mo%=n%-1��
T!&47FC=!&47FC+1:ad=&47FC-4*!&47FC:?ad=co1%:?(ad+1)=cp1%:?(ad+2)=co2%:?(ad+3)=mo%
(�
2��prelinks
<N?&70=?(&4800+16*?&77):�getlink:n%=-1:w%=7:�xm>(1248-32*w%)�xm=xm-64*(w%+1)
F"�?&73=10�?&72=160��leads:�DnE
P�ad=?&72+256*?&73:� n%=n%+1:menu$(n%)="":�r=ad �ad+6:menu$(n%)=menu$(n%)+�?r:�:ad=ad+8:�?(ad-1)=0:n%=n%+1:menu$(n%)="Cancel "
Z �ym<(n%+2)*32�ym=(n%+2)*32
d �domenu
n�
x ��leads
�Wml%=?(&4805+16*?&77)*2:n%=(ml%�5)+2:menu$(0)="Lead No":menu$(1)="1 - 4 ":�r=2�n%-1
�,�(5*(r-1))=ml%�menu$(r)=�(5*(r-1)):�t`E
�Y�(5*(r-1)+4)>=ml%�menu$(r)=�(5*(r-1))+" - "+�(ml%)�menu$(r)=�(5*(r-1))+" - "+�(5*r-1)
�8�(menu$(r))<7�menu$(r)=menu$(r)+�7-�(menu$(r))," ")
�4�:menu$(n%)="Cancel ":�ym<(n%+2)*32�ym=(n%+2)*32
��domenu:�mo%=n%-1��
�,�(mo%=n%-1)�(ml%�5)=0�mo%=ml%-1:n%=999:�
țmin=�(menu$(mo%+1)):max=�(�menu$(mo%+1),5,3)):�r=min �max:menu$(1+r-min)=�7-�(�r)," ")+�r:�:n%=max-min+2:menu$(n%)="Cancel ":�ym<(n%+2)*32�ym=(n%+2)*32
�4xm=xm+32*(w%+1):�xm>(1248-32*w%)�xm=xm-96*(w%+1)
��domenu:�mo%=n%-1��
�mo%=mo%+min:n%=999:�
��
�
��move
>�drawscr:�draw(x,y):�16,1)"Status: Moving ":����fire
^!&70=x:!&72=y:�whatover:ad=&4801+16*?&77:x=?ad+256*?(ad+1):y=?(ad+2)+256*?(ad+3):�box(x,y)
=� xold=x:yold=y:�movecur:�box(xold,yold):�box(x,y):��fire
"!ad=x+65536*y
,�
6��box(x,y)
@-�3,1:�x,y:�x,y-64:�x+64,y-64:�x+64,y:�x,y
J�
T ��cursor
^xold=x:yold=y:�movecur
h�(x=xold)�(y=yold)��
r�draw(xold,yold)
|�draw(x,y)
��
� ��moucur
�xold=x:yold=y:�movemou
� �DhF
�
��movemou
��
���draw(x,y)
�(�3,1:�x,y-20:�x,y+20:�x-20,y:�x+20,y
��
�
��movecur
�'�checkmove:�x<0�x=0 ��x>1280�x=1280
��y<0�y=0 ��y>884�y=884
��
��checkmove
step=4:�(-1)�step=40
&�(-98)�(joy ��(1)>40000)�x=x-step
&&�(-67)�(joy ��(1)<24000)�x=x+step
0&�(-73)�(joy ��(2)>40000)�y=y+step
:'�(-105)�(joy ��(2)<24000)�y=y-step
D �joy ��
N�(1)>55000�x=x-step*9
X�(1)<10000�x=x+step*9
b�(2)<10000�y=y-step*9
l�(2)>55000�y=y+step*9
v�
�:
���20,"Capacitor","Capacitor(E)","Cell","Battery","Diode","Diode(Zener)","Ground","IC","Inductor","Logic AND","Logic NOT","Logic OR","Node","OpAmp","Resistor","Resistor(Var)"
�C�"Switch","Transistor(NPN)","Transistor(PNP)","Transistor(FET)"
� 00000000 0d 00 0a 21 f4 20 41 64 76 61 6e 63 65 64 20 43 |...!. Advanced C|
00000010 41 44 20 2d 20 4d 61 69 6e 20 70 72 6f 67 72 61 |AD - Main progra|
00000020 6d 0d 00 14 1b f4 20 28 43 29 20 44 6f 6d 69 6e |m..... (C) Domin|
00000030 69 63 20 46 6f 72 64 20 31 39 39 38 0d 00 1e 52 |ic Ford 1998...R|
00000040 d3 3d 26 34 30 30 30 3a f2 69 6e 69 74 3a 73 74 |.=&4000:.init:st|
00000050 6f 70 3d a3 3a 6a 6f 79 3d 28 3f 26 35 32 31 30 |op=.:joy=(?&5210|
00000060 3d 31 29 3a 6d 6f 75 73 65 3d 28 3f 26 35 32 31 |=1):mouse=(?&521|
00000070 31 3d 31 29 3a f5 e7 6d 6f 75 73 65 20 8c f2 6d |1=1):..mouse ..m|
00000080 6f 75 63 75 72 20 8b f2 63 75 72 73 6f 72 0d 00 |oucur ..cursor..|
00000090 28 1a f2 63 6f 6d 70 73 65 6c 3a e7 a4 66 69 72 |(..compsel:..fir|
000000a0 65 20 8c f2 6d 65 6e 75 0d 00 32 18 fd 73 74 6f |e ..menu..2..sto|
000000b0 70 3a eb 37 3a ff 22 46 58 31 35 2c 31 22 3a e0 |p:.7:."FX15,1":.|
000000c0 0d 00 3c 43 dd a4 66 69 72 65 3a e7 a6 28 2d 37 |..<C..fire:..(-7|
000000d0 34 29 8c 3d 31 8b e7 6a 6f 79 20 8c 41 25 3d 26 |4).=1..joy .A%=&|
000000e0 38 30 3a 58 25 3d 30 3a e7 28 ba 28 26 46 46 46 |80:X%=0:.(.(&FFF|
000000f0 34 29 80 28 35 31 32 2b 32 35 36 29 29 3c 3e 30 |4).(512+256))<>0|
00000100 8c 3d 31 0d 00 46 06 3d 30 0d 00 50 0a dd f2 69 |.=1..F.=0..P...i|
00000110 6e 69 74 0d 00 5a c0 64 72 61 77 63 6f 6d 70 73 |nit..Z.drawcomps|
00000120 3d 26 35 32 30 30 3a 77 68 61 74 6f 76 65 72 3d |=&5200:whatover=|
00000130 26 35 32 30 33 3a 64 65 6c 65 74 65 3d 26 35 32 |&5203:delete=&52|
00000140 30 36 3a 67 65 74 6c 69 6e 6b 3d 26 35 32 30 39 |06:getlink=&5209|
00000150 3a 70 69 6e 62 61 73 65 3d 26 35 32 30 43 3a 78 |:pinbase=&520C:x|
00000160 3d 36 34 30 3a 79 3d 35 31 32 3a de 6d 65 6e 75 |=640:y=512:.menu|
00000170 24 28 31 30 29 2c 74 25 28 31 35 2c 31 29 3a 21 |$(10),t%(15,1):!|
00000180 26 34 37 46 43 3d 30 3a 3f 26 34 38 30 30 3d 30 |&47FC=0:?&4800=0|
00000190 3a 24 26 34 38 30 31 3d 22 20 20 3c 55 6e 74 69 |:$&4801=" <Unti|
000001a0 74 6c 65 64 3e 20 20 20 22 3a 73 74 24 3d 22 22 |tled> ":st$=""|
000001b0 3a f3 63 25 3a de 63 6e 61 6d 24 28 63 25 2b 31 |:.c%:.cnam$(c%+1|
000001c0 29 3a e3 63 3d 31 b8 63 25 3a f3 63 6e 61 6d 24 |):.c=1.c%:.cnam$|
000001d0 28 63 29 0d 00 64 64 63 6e 61 6d 24 28 63 29 3d |(c)..ddcnam$(c)=|
000001e0 63 6e 61 6d 24 28 63 29 2b c4 31 35 2d a9 28 63 |cnam$(c)+.15-.(c|
000001f0 6e 61 6d 24 28 63 29 29 2c 22 20 22 29 3a ed 3a |nam$(c))," "):.:|
00000200 63 6e 61 6d 24 28 30 29 3d c4 31 35 2c 22 20 22 |cnam$(0)=.15," "|
00000210 29 3a 63 6e 61 6d 24 28 63 25 2b 31 29 3d c4 31 |):cnam$(c%+1)=.1|
00000220 35 2c 22 20 22 29 3a 63 70 25 3d 31 3a f2 64 72 |5," "):cp%=1:.dr|
00000230 61 77 73 63 72 3a e1 0d 00 6e 0d dd f2 64 72 61 |awscr:...n...dra|
00000240 77 73 63 72 0d 00 78 30 db 3a f1 22 20 41 64 76 |wscr..x0.:." Adv|
00000250 61 6e 63 65 64 20 43 41 44 20 56 31 2e 30 20 62 |anced CAD V1.0 b|
00000260 79 20 44 6f 6d 69 6e 69 63 20 46 6f 72 64 20 31 |y Dominic Ford 1|
00000270 39 39 38 22 0d 00 82 3b e6 30 2c 31 3a ec 30 2c |998"...;.0,1:.0,|
00000280 39 39 32 3a df 31 32 38 30 2c 39 39 32 3a ec 30 |992:.1280,992:.0|
00000290 2c 38 39 32 3a df 31 32 38 30 2c 38 39 32 3a ec |,892:.1280,892:.|
000002a0 30 2c 38 38 34 3a df 31 32 38 30 2c 38 38 34 0d |0,884:.1280,884.|
000002b0 00 8c 2d e6 30 2c 31 3a d6 64 72 61 77 63 6f 6d |..-.0,1:.drawcom|
000002c0 70 73 3a f2 64 72 61 77 28 78 2c 79 29 3a ef 32 |ps:.draw(x,y):.2|
000002d0 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 00 96 41 |3,1,0;0;0;0;...A|
000002e0 f1 8a 30 2c 31 29 63 6e 61 6d 24 28 63 70 25 2d |..0,1)cnam$(cp%-|
000002f0 31 29 3a fb 31 32 39 3a fb 30 3a f1 63 6e 61 6d |1):.129:.0:.cnam|
00000300 24 28 63 70 25 29 3a fb 31 32 38 3a fb 31 3a f1 |$(cp%):.128:.1:.|
00000310 63 6e 61 6d 24 28 63 70 25 2b 31 29 3b 0d 00 a0 |cnam$(cp%+1);...|
00000320 25 54 3d 91 3a f5 fd 28 91 3e 54 2b 32 35 29 84 |%T=.:..(.>T+25).|
00000330 28 ac 28 a6 28 2d 35 38 29 84 a6 28 2d 34 32 29 |(.(.(-58)..(-42)|
00000340 29 29 0d 00 aa 42 f1 8a 31 36 2c 31 29 22 53 74 |))...B..16,1)"St|
00000350 61 74 75 73 3a 20 52 65 61 64 79 20 20 20 20 20 |atus: Ready |
00000360 20 20 22 3a f1 8a 31 36 2c 33 29 3b 3a e3 72 3d | ":..16,3);:.r=|
00000370 30 b8 31 34 3a f1 bd 3f 28 26 34 38 30 31 2b 72 |0.14:..?(&4801+r|
00000380 29 3b 3a ed 0d 00 b4 05 e1 0d 00 be 0d dd f2 63 |);:............c|
00000390 6f 6d 70 73 65 6c 0d 00 c8 24 63 6f 25 3d 63 70 |ompsel...$co%=cp|
000003a0 25 3a e7 a6 28 2d 35 38 29 80 63 70 25 3c 3e 31 |%:..(-58).cp%<>1|
000003b0 8c 63 70 25 3d 63 70 25 2d 31 0d 00 d2 1d e7 a6 |.cp%=cp%-1......|
000003c0 28 2d 34 32 29 80 63 70 25 3c 3e 63 25 8c 63 70 |(-42).cp%<>c%.cp|
000003d0 25 3d 63 70 25 2b 31 0d 00 dc 12 e7 63 70 25 3c |%=cp%+1.....cp%<|
000003e0 3e 63 6f 25 8c 8d 74 56 40 0d 00 e6 05 e1 0d 00 |>co%..tV@.......|
000003f0 f0 09 dd f2 70 75 74 0d 00 fa 14 e7 3f 26 34 38 |....put.....?&48|
00000400 30 30 3d 31 36 30 8c ef 37 3a e1 0d 01 04 39 3f |00=160..7:....9?|
00000410 26 34 38 30 30 3d 3f 26 34 38 30 30 2b 31 3a 63 |&4800=?&4800+1:c|
00000420 3d 26 34 38 30 30 2b 31 36 2a 3f 26 34 38 30 30 |=&4800+16*?&4800|
00000430 3a e7 63 70 25 3d 38 8c 3f 28 63 2b 35 29 3d a4 |:.cp%=8.?(c+5)=.|
00000440 70 69 6e 73 0d 01 0e 3c 3f 63 3d 63 70 25 2d 31 |pins...<?c=cp%-1|
00000450 3a 21 28 63 2b 31 29 3d 78 2b 36 35 35 33 36 2a |:!(c+1)=x+65536*|
00000460 79 3a e3 72 3d 63 2b 38 b8 63 2b 31 35 3a 3f 72 |y:.r=c+8.c+15:?r|
00000470 3d 33 32 3a ed 3a f2 64 72 61 77 28 78 2c 79 29 |=32:.:.draw(x,y)|
00000480 0d 01 18 0d f5 fd ac a6 28 2d 37 34 29 0d 01 22 |........(-74).."|
00000490 05 e1 0d 01 2c 0a dd a4 70 69 6e 73 0d 01 36 34 |....,...pins..64|
000004a0 78 6d 3d 78 6d 2b 33 32 2a 28 77 25 2b 31 29 3a |xm=xm+32*(w%+1):|
000004b0 e7 78 6d 3e 28 31 32 34 38 2d 33 32 2a 77 25 29 |.xm>(1248-32*w%)|
000004c0 8c 78 6d 3d 78 6d 2d 36 34 2a 28 77 25 2b 31 29 |.xm=xm-64*(w%+1)|
000004d0 0d 01 40 2d 6e 25 3d 31 30 3a e7 79 6d 3e 28 6e |..@-n%=10:.ym>(n|
000004e0 25 2b 33 29 2a 33 32 8c 79 6d 3d 79 6d 2d 33 32 |%+3)*32.ym=ym-32|
000004f0 8b 79 6d 3d 28 6e 25 2b 32 29 2a 33 32 0d 01 4a |.ym=(n%+2)*32..J|
00000500 b6 77 25 3d 33 3a 6d 65 6e 75 24 28 30 29 3d 22 |.w%=3:menu$(0)="|
00000510 50 69 6e 22 3a 6d 65 6e 75 24 28 31 29 3d 22 20 |Pin":menu$(1)=" |
00000520 20 36 22 3a 6d 65 6e 75 24 28 32 29 3d 22 20 20 | 6":menu$(2)=" |
00000530 38 22 3a 6d 65 6e 75 24 28 33 29 3d 22 20 31 34 |8":menu$(3)=" 14|
00000540 22 3a 6d 65 6e 75 24 28 34 29 3d 22 20 31 36 22 |":menu$(4)=" 16"|
00000550 3a 6d 65 6e 75 24 28 35 29 3d 22 20 31 38 22 3a |:menu$(5)=" 18":|
00000560 6d 65 6e 75 24 28 36 29 3d 22 20 32 30 22 3a 6d |menu$(6)=" 20":m|
00000570 65 6e 75 24 28 37 29 3d 22 20 32 34 22 3a 6d 65 |enu$(7)=" 24":me|
00000580 6e 75 24 28 38 29 3d 22 20 32 38 22 3a 6d 65 6e |nu$(8)=" 28":men|
00000590 75 24 28 39 29 3d 22 20 33 32 22 3a 6d 65 6e 75 |u$(9)=" 32":menu|
000005a0 24 28 31 30 29 3d 22 20 34 30 22 3a f2 64 6f 6d |$(10)=" 40":.dom|
000005b0 65 6e 75 0d 01 54 14 3d 3f 28 21 70 69 6e 62 61 |enu..T.=?(!pinba|
000005c0 73 65 2b 6d 6f 25 29 0d 01 5e 0a dd f2 6d 65 6e |se+mo%)..^...men|
000005d0 75 0d 01 68 26 f2 64 72 61 77 28 78 2c 79 29 3a |u..h&.draw(x,y):|
000005e0 21 26 37 30 3d 78 3a 21 26 37 32 3d 79 3a d6 77 |!&70=x:!&72=y:.w|
000005f0 68 61 74 6f 76 65 72 0d 01 72 38 6e 25 3d 36 3a |hatover..r8n%=6:|
00000600 77 25 3d 36 3a e7 78 3c 31 32 34 38 2d 33 32 2a |w%=6:.x<1248-32*|
00000610 77 25 8c 78 6d 3d 28 78 20 80 20 26 46 46 45 30 |w%.xm=(x . &FFE0|
00000620 29 8b 78 6d 3d 31 32 34 38 2d 33 32 2a 77 25 0d |).xm=1248-32*w%.|
00000630 01 7c 2c e7 79 3e 33 32 2a 28 6e 25 2b 32 29 8c |.|,.y>32*(n%+2).|
00000640 79 6d 3d 28 79 20 80 20 26 46 46 45 30 29 8b 79 |ym=(y . &FFE0).y|
00000650 6d 3d 33 32 2a 28 6e 25 2b 32 29 0d 01 86 1a e7 |m=32*(n%+2).....|
00000660 3f 26 37 37 3d 30 8c f2 63 61 64 6d 65 6e 75 3a |?&77=0..cadmenu:|
00000670 e5 8d 64 4c 41 0d 01 90 95 6d 65 6e 75 24 28 30 |..dLA....menu$(0|
00000680 29 3d 22 4f 62 6a 65 63 74 22 3a 6d 65 6e 75 24 |)="Object":menu$|
00000690 28 31 29 3d 22 46 69 6c 65 20 22 2b bd 32 35 35 |(1)="File "+.255|
000006a0 3a 6d 65 6e 75 24 28 32 29 3d 22 4d 6f 76 65 20 |:menu$(2)="Move |
000006b0 20 22 3a 6d 65 6e 75 24 28 33 29 3d 22 44 65 6c | ":menu$(3)="Del|
000006c0 65 74 65 22 3a 6d 65 6e 75 24 28 34 29 3d 22 4c |ete":menu$(4)="L|
000006d0 61 62 65 6c 22 2b bd 32 35 35 3a 6d 65 6e 75 24 |abel"+.255:menu$|
000006e0 28 35 29 3d 22 4c 69 6e 6b 20 22 2b bd 32 35 35 |(5)="Link "+.255|
000006f0 3a 6d 65 6e 75 24 28 36 29 3d 22 43 61 6e 63 65 |:menu$(6)="Cance|
00000700 6c 22 3a f2 64 6f 6d 65 6e 75 0d 01 9a 16 e7 6d |l":.domenu.....m|
00000710 6f 25 3d 30 8c f2 66 69 6c 65 3a e5 8d 64 4c 41 |o%=0..file:..dLA|
00000720 0d 01 a4 16 e7 6d 6f 25 3d 31 8c f2 6d 6f 76 65 |.....mo%=1..move|
00000730 3a e5 8d 64 4c 41 0d 01 ae 30 e7 6d 6f 25 3d 32 |:..dLA...0.mo%=2|
00000740 8c e7 a4 73 75 72 65 28 22 44 65 6c 65 74 65 20 |...sure("Delete |
00000750 4f 62 6a 65 63 74 22 29 8c d6 64 65 6c 65 74 65 |Object")..delete|
00000760 3a e5 8d 64 4c 41 0d 01 b8 17 e7 6d 6f 25 3d 33 |:..dLA.....mo%=3|
00000770 8c f2 6c 61 62 65 6c 3a e5 8d 64 4c 41 0d 01 c2 |..label:..dLA...|
00000780 10 e7 6d 6f 25 3d 34 8c f2 6c 69 6e 6b 0d 01 cc |..mo%=4..link...|
00000790 0c f2 64 72 61 77 73 63 72 0d 01 d6 05 e1 0d 01 |..drawscr.......|
000007a0 e0 0d dd f2 63 61 64 6d 65 6e 75 0d 01 ea 5c 6e |....cadmenu...\n|
000007b0 25 3d 33 3a 6d 65 6e 75 24 28 30 29 3d 22 41 64 |%=3:menu$(0)="Ad|
000007c0 76 43 41 44 22 3a 6d 65 6e 75 24 28 31 29 3d 22 |vCAD":menu$(1)="|
000007d0 46 69 6c 65 20 22 2b bd 32 35 35 3a 6d 65 6e 75 |File "+.255:menu|
000007e0 24 28 32 29 3d 22 41 64 64 20 20 20 22 3a 6d 65 |$(2)="Add ":me|
000007f0 6e 75 24 28 33 29 3d 22 43 61 6e 63 65 6c 22 3a |nu$(3)="Cancel":|
00000800 f2 64 6f 6d 65 6e 75 0d 01 f4 16 e7 6d 6f 25 3d |.domenu.....mo%=|
00000810 30 8c f2 66 69 6c 65 3a e5 8d 54 48 42 0d 01 fe |0..file:..THB...|
00000820 0f e7 6d 6f 25 3d 31 8c f2 70 75 74 0d 02 08 05 |..mo%=1..put....|
00000830 e1 0d 02 12 0a dd f2 66 69 6c 65 0d 02 1c 34 78 |.......file...4x|
00000840 6d 3d 78 6d 2b 33 32 2a 28 77 25 2b 31 29 3a e7 |m=xm+32*(w%+1):.|
00000850 78 6d 3e 28 31 32 34 38 2d 33 32 2a 77 25 29 8c |xm>(1248-32*w%).|
00000860 78 6d 3d 78 6d 2d 36 34 2a 28 77 25 2b 31 29 0d |xm=xm-64*(w%+1).|
00000870 02 26 2c 6e 25 3d 39 3a e7 79 6d 3e 28 6e 25 2b |.&,n%=9:.ym>(n%+|
00000880 33 29 2a 33 32 8c 79 6d 3d 79 6d 2d 33 32 8b 79 |3)*32.ym=ym-32.y|
00000890 6d 3d 28 6e 25 2b 32 29 2a 33 32 0d 02 30 c3 6d |m=(n%+2)*32..0.m|
000008a0 65 6e 75 24 28 30 29 3d 22 20 46 69 6c 65 20 22 |enu$(0)=" File "|
000008b0 3a 6d 65 6e 75 24 28 31 29 3d 22 4e 65 77 20 20 |:menu$(1)="New |
000008c0 20 22 3a 6d 65 6e 75 24 28 32 29 3d 22 4f 70 65 | ":menu$(2)="Ope|
000008d0 6e 20 20 22 3a 6d 65 6e 75 24 28 33 29 3d 22 53 |n ":menu$(3)="S|
000008e0 61 76 65 20 20 22 3a 6d 65 6e 75 24 28 34 29 3d |ave ":menu$(4)=|
000008f0 22 53 61 76 65 41 73 22 3a 6d 65 6e 75 24 28 35 |"SaveAs":menu$(5|
00000900 29 3d 22 45 78 70 6f 72 74 22 3a 6d 65 6e 75 24 |)="Export":menu$|
00000910 28 36 29 3d 22 4e 61 6d 65 20 22 2b bd 32 35 35 |(6)="Name "+.255|
00000920 3a 6d 65 6e 75 24 28 37 29 3d 22 4d 4f 53 28 2a |:menu$(7)="MOS(*|
00000930 29 22 3a 6d 65 6e 75 24 28 38 29 3d 22 45 78 69 |)":menu$(8)="Exi|
00000940 74 20 20 22 3a 6d 65 6e 75 24 28 39 29 3d 22 43 |t ":menu$(9)="C|
00000950 61 6e 63 65 6c 22 3a f2 64 6f 6d 65 6e 75 0d 02 |ancel":.domenu..|
00000960 3a 56 e7 6d 6f 25 3d 30 8c e7 a4 73 75 72 65 28 |:V.mo%=0...sure(|
00000970 22 43 6c 65 61 72 20 43 69 72 63 75 69 74 22 29 |"Clear Circuit")|
00000980 8c 21 26 34 37 46 43 3d 30 3a 3f 26 34 38 30 30 |.!&47FC=0:?&4800|
00000990 3d 30 3a 24 26 34 38 30 31 3d 22 20 20 3c 55 6e |=0:$&4801=" <Un|
000009a0 74 69 74 6c 65 64 3e 20 20 20 22 3a 73 74 24 3d |titled> ":st$=|
000009b0 22 22 3a e1 0d 02 44 12 e7 6d 6f 25 3d 31 8c f2 |"":...D..mo%=1..|
000009c0 6f 70 65 6e 3a e1 0d 02 4e 15 e7 6d 6f 25 3d 32 |open:...N..mo%=2|
000009d0 8c f2 73 61 76 65 28 30 29 3a e1 0d 02 58 15 e7 |..save(0):...X..|
000009e0 6d 6f 25 3d 33 8c f2 73 61 76 65 28 31 29 3a e1 |mo%=3..save(1):.|
000009f0 0d 02 62 14 e7 6d 6f 25 3d 34 8c f2 65 78 70 6f |..b..mo%=4..expo|
00000a00 72 74 3a e1 0d 02 6c 12 e7 6d 6f 25 3d 35 8c f2 |rt:...l..mo%=5..|
00000a10 6e 61 6d 65 3a e1 0d 02 76 11 e7 6d 6f 25 3d 36 |name:...v..mo%=6|
00000a20 8c f2 6d 6f 73 3a e1 0d 02 80 26 e7 6d 6f 25 3d |..mos:....&.mo%=|
00000a30 37 8c e7 a4 73 75 72 65 28 22 45 78 69 74 20 43 |7...sure("Exit C|
00000a40 41 44 22 29 8c 73 74 6f 70 3d b9 3a e1 0d 02 8a |AD").stop=.:....|
00000a50 05 e1 0d 02 94 0a dd f2 6f 70 65 6e 0d 02 9e 3c |........open...<|
00000a60 77 25 3d 37 3a 6e 25 3d 30 3a 79 6d 3d 79 6d 2d |w%=7:n%=0:ym=ym-|
00000a70 36 34 3a 78 6d 3d 37 36 38 3a e3 72 78 3d 30 b8 |64:xm=768:.rx=0.|
00000a80 36 3a 74 25 28 72 78 2c 30 29 3d 33 32 3a ed 3a |6:t%(rx,0)=32:.:|
00000a90 f2 74 65 78 74 62 6f 78 0d 02 a8 33 73 74 24 3d |.textbox...3st$=|
00000aa0 22 22 3a e3 72 78 3d 30 b8 36 3a 73 74 24 3d 73 |"":.rx=0.6:st$=s|
00000ab0 74 24 2b bd 74 25 28 72 78 2c 30 29 3a ed 3a ff |t$+.t%(rx,0):.:.|
00000ac0 22 4c 4f 41 44 20 22 2b 73 74 24 0d 02 b2 05 e1 |"LOAD "+st$.....|
00000ad0 0d 02 bc 0e dd f2 73 61 76 65 28 73 74 29 0d 02 |......save(st)..|
00000ae0 c6 6c e7 73 74 3d 31 84 73 74 24 3d 22 22 8c 77 |.l.st=1.st$="".w|
00000af0 25 3d 37 3a 6e 25 3d 30 3a 79 6d 3d 79 6d 2d 36 |%=7:n%=0:ym=ym-6|
00000b00 34 3a 78 6d 3d 37 36 38 3a e3 72 78 3d 30 b8 36 |4:xm=768:.rx=0.6|
00000b10 3a 74 25 28 72 78 2c 30 29 3d 33 32 3a ed 3a f2 |:t%(rx,0)=32:.:.|
00000b20 74 65 78 74 62 6f 78 3a 73 74 24 3d 22 22 3a e3 |textbox:st$="":.|
00000b30 72 78 3d 30 b8 36 3a 73 74 24 3d 73 74 24 2b bd |rx=0.6:st$=st$+.|
00000b40 74 25 28 72 78 2c 30 29 3a ed 0d 02 d0 4b 6d 69 |t%(rx,0):....Kmi|
00000b50 6e 3d 26 34 37 46 43 2d 34 2a 21 26 34 37 46 43 |n=&47FC-4*!&47FC|
00000b60 3a 6d 61 78 3d 26 34 38 31 30 2b 31 36 2a 3f 26 |:max=&4810+16*?&|
00000b70 34 38 30 30 3a ff 22 53 41 56 45 20 22 2b 73 74 |4800:."SAVE "+st|
00000b80 24 2b 22 20 22 2b c3 7e 6d 69 6e 2b 22 20 22 2b |$+" "+.~min+" "+|
00000b90 c3 7e 6d 61 78 0d 02 da 05 e1 0d 02 e4 0c dd f2 |.~max...........|
00000ba0 65 78 70 6f 72 74 0d 02 ee 3c 77 25 3d 37 3a 6e |export...<w%=7:n|
00000bb0 25 3d 30 3a 79 6d 3d 79 6d 2d 36 34 3a 78 6d 3d |%=0:ym=ym-64:xm=|
00000bc0 37 36 38 3a e3 72 78 3d 30 b8 36 3a 74 25 28 72 |768:.rx=0.6:t%(r|
00000bd0 78 2c 30 29 3d 33 32 3a ed 3a f2 74 65 78 74 62 |x,0)=32:.:.textb|
00000be0 6f 78 0d 02 f8 4d 73 74 24 3d 22 22 3a e3 72 78 |ox...Mst$="":.rx|
00000bf0 3d 30 b8 36 3a 73 74 24 3d 73 74 24 2b bd 74 25 |=0.6:st$=st$+.t%|
00000c00 28 72 78 2c 30 29 3a ed 3a db 3a d6 64 72 61 77 |(rx,0):.:.:.draw|
00000c10 63 6f 6d 70 73 3a ff 22 53 41 56 45 20 22 2b 73 |comps:."SAVE "+s|
00000c20 74 24 2b 22 20 35 38 30 30 20 38 30 30 30 22 0d |t$+" 5800 8000".|
00000c30 03 02 05 e1 0d 03 0c 0c dd f2 64 6f 6d 65 6e 75 |..........domenu|
00000c40 0d 03 16 3a 78 63 3d 78 6d 20 81 33 32 3a 79 63 |...:xc=xm .32:yc|
00000c50 3d 33 32 2d 28 79 6d 20 81 33 32 29 3a e3 72 3d |=32-(ym .32):.r=|
00000c60 30 b8 6e 25 3a f1 8a 78 63 2c 79 63 2b 72 29 6d |0.n%:..xc,yc+r)m|
00000c70 65 6e 75 24 28 72 29 3b 3a ed 0d 03 20 b2 e6 30 |enu$(r);:... ..0|
00000c80 2c 31 3a ec 78 6d 2d 34 2c 79 6d 2b 34 3a df 78 |,1:.xm-4,ym+4:.x|
00000c90 6d 2b 33 32 2a 77 25 2b 34 2c 79 6d 2b 34 3a df |m+32*w%+4,ym+4:.|
00000ca0 78 6d 2b 33 32 2a 77 25 2b 34 2c 79 6d 2d 33 32 |xm+32*w%+4,ym-32|
00000cb0 2a 6e 25 2d 33 36 3a df 78 6d 2d 34 2c 79 6d 2d |*n%-36:.xm-4,ym-|
00000cc0 33 32 2a 6e 25 2d 33 36 3a df 78 6d 2d 34 2c 79 |32*n%-36:.xm-4,y|
00000cd0 6d 2b 34 3a ec 78 6d 2d 31 32 2c 79 6d 2b 31 32 |m+4:.xm-12,ym+12|
00000ce0 3a df 78 6d 2b 33 32 2a 77 25 2b 31 32 2c 79 6d |:.xm+32*w%+12,ym|
00000cf0 2b 31 32 3a df 78 6d 2b 33 32 2a 77 25 2b 31 32 |+12:.xm+32*w%+12|
00000d00 2c 79 6d 2d 33 32 2a 6e 25 2d 34 34 3a df 78 6d |,ym-32*n%-44:.xm|
00000d10 2d 31 32 2c 79 6d 2d 33 32 2a 6e 25 2d 34 34 3a |-12,ym-32*n%-44:|
00000d20 df 78 6d 2d 31 32 2c 79 6d 2b 31 32 0d 03 2a 21 |.xm-12,ym+12..*!|
00000d30 ec 78 6d 2d 34 2c 79 6d 2d 33 32 3a df 78 6d 2b |.xm-4,ym-32:.xm+|
00000d40 33 32 2a 77 25 2b 34 2c 79 6d 2d 33 32 0d 03 34 |32*w%+4,ym-32..4|
00000d50 37 61 64 3d 26 35 38 30 30 2b 26 31 34 30 2a 79 |7ad=&5800+&140*y|
00000d60 63 2b 38 2a 78 63 3a e3 72 3d 61 64 20 b8 61 64 |c+8*xc:.r=ad .ad|
00000d70 2b 38 2a 77 25 2d 31 3a 3f 72 3d 3f 72 20 82 32 |+8*w%-1:?r=?r .2|
00000d80 35 35 3a ed 0d 03 3e 52 e6 33 2c 31 3a 6d 69 25 |55:...>R.3,1:mi%|
00000d90 3d 30 3a f5 20 61 64 3d 26 35 39 34 30 2b 26 31 |=0:. ad=&5940+&1|
00000da0 34 30 2a 28 79 63 2b 6d 69 25 29 2b 38 2a 78 63 |40*(yc+mi%)+8*xc|
00000db0 3a e3 72 3d 61 64 20 b8 61 64 2b 38 2a 77 25 2d |:.r=ad .ad+8*w%-|
00000dc0 31 3a 3f 72 3d 3f 72 20 82 32 35 35 3a ed 3a 6d |1:?r=?r .255:.:m|
00000dd0 6f 25 3d 6d 69 25 0d 03 48 25 f5 fd ac 28 a6 28 |o%=mi%..H%...(.(|
00000de0 2d 35 38 29 84 a6 28 2d 34 32 29 84 a6 28 2d 37 |-58)..(-42)..(-7|
00000df0 33 29 84 a6 28 2d 31 30 35 29 29 0d 03 52 21 e7 |3)..(-105))..R!.|
00000e00 6a 6f 79 20 8c f5 fd 96 28 32 29 3c 34 30 30 30 |joy ....(2)<4000|
00000e10 30 80 96 28 32 29 3e 32 34 30 30 30 0d 03 5c 30 |0..(2)>24000..\0|
00000e20 f5 20 e7 a6 28 2d 35 38 29 84 a6 28 2d 37 33 29 |. ..(-58)..(-73)|
00000e30 84 28 6a 6f 79 20 80 96 28 32 29 3e 34 30 30 30 |.(joy ..(2)>4000|
00000e40 30 29 8c 6d 69 25 3d 6d 69 25 2d 31 0d 03 66 2f |0).mi%=mi%-1..f/|
00000e50 e7 a6 28 2d 34 32 29 84 a6 28 2d 31 30 35 29 84 |..(-42)..(-105).|
00000e60 28 6a 6f 79 20 80 96 28 32 29 3c 32 34 30 30 30 |(joy ..(2)<24000|
00000e70 29 8c 6d 69 25 3d 6d 69 25 2b 31 0d 03 70 12 e7 |).mi%=mi%+1..p..|
00000e80 a4 66 69 72 65 20 8c 6d 69 25 3d 2d 35 0d 03 7a |.fire .mi%=-5..z|
00000e90 26 fd 6d 69 25 3c 3e 6d 6f 25 3a e7 6d 69 25 3c |&.mi%<>mo%:.mi%<|
00000ea0 3e 2d 35 8c 6d 69 25 3d 28 6d 69 25 2b 6e 25 29 |>-5.mi%=(mi%+n%)|
00000eb0 83 6e 25 0d 03 84 2a e7 6d 69 25 3c 3e 2d 35 8c |.n%...*.mi%<>-5.|
00000ec0 e3 72 3d 61 64 20 b8 61 64 2b 38 2a 77 25 2d 31 |.r=ad .ad+8*w%-1|
00000ed0 3a 3f 72 3d 3f 72 20 82 32 35 35 3a ed 0d 03 8e |:?r=?r .255:....|
00000ee0 0b fd 6d 69 25 3d 2d 35 0d 03 98 05 e1 0d 03 a2 |..mi%=-5........|
00000ef0 0e dd a4 73 75 72 65 28 73 24 29 0d 03 ac 7e e3 |...sure(s$)...~.|
00000f00 72 3d 30 b8 33 3a f1 8a 31 34 2c 31 34 2b 72 29 |r=0.3:..14,14+r)|
00000f10 89 28 31 33 29 3a ed 3a f1 8a 32 30 2d a8 28 30 |.(13):.:..20-.(0|
00000f20 2e 35 2a a9 28 73 24 29 29 2c 31 34 29 73 24 3b |.5*.(s$)),14)s$;|
00000f30 8a 31 34 2c 31 36 29 22 41 72 65 20 79 6f 75 20 |.14,16)"Are you |
00000f40 73 75 72 65 3f 22 3b 8a 31 34 2c 31 37 29 22 28 |sure?";.14,17)"(|
00000f50 59 29 65 73 20 6f 72 20 28 4e 29 6f 22 3a e3 72 |Y)es or (N)o":.r|
00000f60 3d 26 36 39 46 30 b8 26 36 41 35 37 3a 3f 72 3d |=&69F0.&6A57:?r=|
00000f70 3f 72 20 82 32 35 35 3a ed 0d 03 b6 62 e6 30 2c |?r .255:....b.0,|
00000f80 31 3a ec 34 34 38 2c 34 34 38 3a df 38 36 34 2c |1:.448,448:.864,|
00000f90 34 34 38 3a df 38 36 34 2c 35 37 36 3a df 34 34 |448:.864,576:.44|
00000fa0 38 2c 35 37 36 3a df 34 34 38 2c 34 34 38 3a ec |8,576:.448,448:.|
00000fb0 34 34 30 2c 34 34 30 3a df 38 37 32 2c 34 34 30 |440,440:.872,440|
00000fc0 3a df 38 37 32 2c 35 38 34 3a df 34 34 30 2c 35 |:.872,584:.440,5|
00000fd0 38 34 3a df 34 34 30 2c 34 34 30 0d 03 c0 16 72 |84:.440,440....r|
00000fe0 3d 2d 35 3a f5 20 e7 a6 28 2d 36 39 29 8c 72 3d |=-5:. ..(-69).r=|
00000ff0 b9 0d 03 ca 0f e7 a6 28 2d 38 36 29 8c 72 3d a3 |.......(-86).r=.|
00001000 0d 03 d4 0d fd 72 3c 3e 2d 35 3a 3d 72 0d 03 de |.....r<>-5:=r...|
00001010 09 dd f2 6d 6f 73 0d 03 e8 41 db 3a f1 22 4d 4f |...mos...A.:."MO|
00001020 53 20 43 6f 6d 6d 61 6e 64 20 50 72 6f 6d 70 74 |S Command Prompt|
00001030 22 27 27 22 45 6e 74 65 72 20 62 6c 61 6e 6b 20 |"''"Enter blank |
00001040 6c 69 6e 65 20 74 6f 20 72 65 74 75 72 6e 20 74 |line to return t|
00001050 6f 20 43 41 44 22 27 0d 03 f2 1c ff 22 46 58 31 |o CAD"'....."FX1|
00001060 35 2c 31 22 3a f5 20 f1 3a e8 22 2a 22 73 24 3a |5,1":. .:."*"s$:|
00001070 ff 73 24 0d 03 fc 0a fd 73 24 3d 22 22 0d 04 06 |.s$.....s$=""...|
00001080 05 e1 0d 04 10 0a dd f2 6e 61 6d 65 0d 04 1a 48 |........name...H|
00001090 77 25 3d 31 35 3a 6e 25 3d 30 3a 79 6d 3d 79 6d |w%=15:n%=0:ym=ym|
000010a0 2d 32 35 36 3a 78 6d 3d 37 36 38 3a e3 72 78 3d |-256:xm=768:.rx=|
000010b0 30 b8 31 35 3a 74 25 28 72 78 2c 30 29 3d 3f 28 |0.15:t%(rx,0)=?(|
000010c0 26 34 38 30 31 2b 72 78 29 3a ed 3a f2 74 65 78 |&4801+rx):.:.tex|
000010d0 74 62 6f 78 0d 04 24 23 e3 72 78 3d 30 b8 31 35 |tbox..$#.rx=0.15|
000010e0 3a 3f 28 26 34 38 30 31 2b 72 78 29 3d 74 25 28 |:?(&4801+rx)=t%(|
000010f0 72 78 2c 30 29 3a ed 0d 04 2e 05 e1 0d 04 38 0b |rx,0):........8.|
00001100 dd f2 6c 61 62 65 6c 0d 04 42 34 78 6d 3d 78 6d |..label..B4xm=xm|
00001110 2b 33 32 2a 28 77 25 2b 31 29 3a e7 78 6d 3e 28 |+32*(w%+1):.xm>(|
00001120 31 32 34 38 2d 33 32 2a 77 25 29 8c 78 6d 3d 78 |1248-32*w%).xm=x|
00001130 6d 2d 36 34 2a 28 77 25 2b 31 29 0d 04 4c 5a 6e |m-64*(w%+1)..LZn|
00001140 25 3d 31 3a 79 6d 3d 79 6d 2d 31 32 38 3a 77 25 |%=1:ym=ym-128:w%|
00001150 3d 34 3a e3 72 78 3d 30 b8 77 25 2d 31 3a e3 72 |=4:.rx=0.w%-1:.r|
00001160 79 3d 30 b8 6e 25 3a 74 25 28 72 78 2c 72 79 29 |y=0.n%:t%(rx,ry)|
00001170 3d 3f 28 26 34 38 30 38 2b 31 36 2a 3f 26 37 37 |=?(&4808+16*?&77|
00001180 2b 72 78 2b 34 2a 72 79 29 3a ed 2c 3a f2 74 65 |+rx+4*ry):.,:.te|
00001190 78 74 62 6f 78 0d 04 56 39 e3 72 78 3d 30 b8 33 |xtbox..V9.rx=0.3|
000011a0 3a e3 72 79 3d 30 b8 31 3a 3f 28 26 34 38 30 38 |:.ry=0.1:?(&4808|
000011b0 2b 31 36 2a 3f 26 37 37 2b 72 78 2b 34 2a 72 79 |+16*?&77+rx+4*ry|
000011c0 29 3d 74 25 28 72 78 2c 72 79 29 3a ed 2c 0d 04 |)=t%(rx,ry):.,..|
000011d0 60 05 e1 0d 04 6a 0d dd f2 74 65 78 74 62 6f 78 |`....j...textbox|
000011e0 0d 04 74 7c 78 63 3d 78 6d 20 81 33 32 3a 79 63 |..t|xc=xm .32:yc|
000011f0 3d 33 32 2d 28 79 6d 20 81 33 32 29 3a 6d 78 3d |=32-(ym .32):mx=|
00001200 30 3a 6d 79 3d 30 3a e6 30 2c 31 3a ec 78 6d 2d |0:my=0:.0,1:.xm-|
00001210 34 2c 79 6d 2b 34 3a df 78 6d 2b 33 32 2a 77 25 |4,ym+4:.xm+32*w%|
00001220 2b 34 2c 79 6d 2b 34 3a df 78 6d 2b 33 32 2a 77 |+4,ym+4:.xm+32*w|
00001230 25 2b 34 2c 79 6d 2d 33 32 2a 6e 25 2d 33 36 3a |%+4,ym-32*n%-36:|
00001240 df 78 6d 2d 34 2c 79 6d 2d 33 32 2a 6e 25 2d 33 |.xm-4,ym-32*n%-3|
00001250 36 3a df 78 6d 2d 34 2c 79 6d 2b 34 0d 04 7e 5c |6:.xm-4,ym+4..~\|
00001260 ec 78 6d 2d 31 32 2c 79 6d 2b 31 32 3a df 78 6d |.xm-12,ym+12:.xm|
00001270 2b 33 32 2a 77 25 2b 31 32 2c 79 6d 2b 31 32 3a |+32*w%+12,ym+12:|
00001280 df 78 6d 2b 33 32 2a 77 25 2b 31 32 2c 79 6d 2d |.xm+32*w%+12,ym-|
00001290 33 32 2a 6e 25 2d 34 34 3a df 78 6d 2d 31 32 2c |32*n%-44:.xm-12,|
000012a0 79 6d 2d 33 32 2a 6e 25 2d 34 34 3a df 78 6d 2d |ym-32*n%-44:.xm-|
000012b0 31 32 2c 79 6d 2b 31 32 0d 04 88 6f f5 20 e3 72 |12,ym+12...o. .r|
000012c0 79 3d 30 b8 6e 25 3a f1 8a 78 63 2c 79 63 2b 72 |y=0.n%:..xc,yc+r|
000012d0 79 29 3b 3a e3 72 78 3d 30 b8 77 25 2d 31 3a f1 |y);:.rx=0.w%-1:.|
000012e0 bd 74 25 28 72 78 2c 72 79 29 3b 3a ed 2c 3a 61 |.t%(rx,ry);:.,:a|
000012f0 64 3d 26 35 38 30 30 2b 38 2a 28 78 63 2b 6d 78 |d=&5800+8*(xc+mx|
00001300 29 2b 26 31 34 30 2a 28 79 63 2b 6d 79 29 3a e3 |)+&140*(yc+my):.|
00001310 72 3d 61 64 20 b8 61 64 2b 37 3a 3f 72 3d 3f 72 |r=ad .ad+7:?r=?r|
00001320 20 82 32 35 35 3a ed 0d 04 92 2f 73 74 3d 30 3a | .255:..../st=0:|
00001330 f5 fd a6 28 30 29 3d 2d 31 3a f5 20 e7 a6 28 2d |...(0)=-1:. ..(-|
00001340 35 38 29 80 6d 79 3c 3e 30 8c 6d 79 3d 6d 79 2d |58).my<>0.my=my-|
00001350 31 3a 73 74 3d 31 0d 04 9c 1f e7 a6 28 2d 34 32 |1:st=1......(-42|
00001360 29 80 6d 79 3c 3e 6e 25 8c 6d 79 3d 6d 79 2b 31 |).my<>n%.my=my+1|
00001370 3a 73 74 3d 31 0d 04 a6 1e e7 a6 28 2d 32 36 29 |:st=1......(-26)|
00001380 80 6d 78 3c 3e 30 8c 6d 78 3d 6d 78 2d 31 3a 73 |.mx<>0.mx=mx-1:s|
00001390 74 3d 31 0d 04 b0 24 e7 a6 28 2d 31 32 32 29 80 |t=1...$..(-122).|
000013a0 6d 78 3c 3e 28 77 25 2d 31 29 8c 6d 78 3d 6d 78 |mx<>(w%-1).mx=mx|
000013b0 2b 31 3a 73 74 3d 31 0d 04 ba 10 e7 a6 28 2d 37 |+1:st=1......(-7|
000013c0 34 29 8c 73 74 3d 32 0d 04 c4 41 e7 73 74 3d 30 |4).st=2...A.st=0|
000013d0 8c 72 3d a6 28 30 29 3a e7 72 3e 33 31 80 72 3c |.r=.(0):.r>31.r<|
000013e0 31 32 37 8c 74 25 28 6d 78 2c 6d 79 29 3d 72 3a |127.t%(mx,my)=r:|
000013f0 73 74 3d 31 3a e7 6d 78 3c 3e 28 77 25 2d 31 29 |st=1:.mx<>(w%-1)|
00001400 8c 6d 78 3d 6d 78 2b 31 0d 04 ce 10 fd 73 74 3c |.mx=mx+1.....st<|
00001410 3e 30 3a fd 73 74 3d 32 0d 04 d8 05 e1 0d 04 e2 |>0:.st=2........|
00001420 0a dd f2 6c 69 6e 6b 0d 04 ec 3d 63 6f 31 25 3d |...link...=co1%=|
00001430 3f 26 37 37 3a 78 6d 3d 78 6d 2b 33 32 2a 28 77 |?&77:xm=xm+32*(w|
00001440 25 2b 31 29 3a 79 6d 3d 79 6d 2d 31 36 30 3a f2 |%+1):ym=ym-160:.|
00001450 70 72 65 6c 69 6e 6b 73 3a e7 6d 6f 25 3d 6e 25 |prelinks:.mo%=n%|
00001460 2d 31 8c e1 0d 04 f6 3c 63 70 31 25 3d 6d 6f 25 |-1.....<cp1%=mo%|
00001470 3a f2 64 72 61 77 73 63 72 3a f1 8a 31 36 2c 31 |:.drawscr:..16,1|
00001480 29 22 53 74 61 74 75 73 3a 20 4c 69 6e 6b 69 6e |)"Status: Linkin|
00001490 67 20 20 20 20 20 22 3a f5 fd ac a4 66 69 72 65 |g ":....fire|
000014a0 0d 05 00 46 f5 20 f2 63 75 72 73 6f 72 3a fd a4 |...F. .cursor:..|
000014b0 66 69 72 65 3a 21 26 37 30 3d 78 3a 21 26 37 32 |fire:!&70=x:!&72|
000014c0 3d 79 3a d6 77 68 61 74 6f 76 65 72 3a e7 3f 26 |=y:.whatover:.?&|
000014d0 37 37 3d 30 8c ef 37 3a f5 fd ac a4 66 69 72 65 |77=0..7:....fire|
000014e0 3a e5 8d 54 40 45 0d 05 0a 35 63 6f 32 25 3d 3f |:..T@E...5co2%=?|
000014f0 26 37 37 3a 78 6d 3d 28 78 20 80 20 26 46 46 45 |&77:xm=(x . &FFE|
00001500 30 29 3a 79 6d 3d 28 79 20 80 20 26 46 46 45 30 |0):ym=(y . &FFE0|
00001510 29 3a f2 70 72 65 6c 69 6e 6b 73 0d 05 14 0f e7 |):.prelinks.....|
00001520 6d 6f 25 3d 6e 25 2d 31 8c e1 0d 05 1e 54 21 26 |mo%=n%-1.....T!&|
00001530 34 37 46 43 3d 21 26 34 37 46 43 2b 31 3a 61 64 |47FC=!&47FC+1:ad|
00001540 3d 26 34 37 46 43 2d 34 2a 21 26 34 37 46 43 3a |=&47FC-4*!&47FC:|
00001550 3f 61 64 3d 63 6f 31 25 3a 3f 28 61 64 2b 31 29 |?ad=co1%:?(ad+1)|
00001560 3d 63 70 31 25 3a 3f 28 61 64 2b 32 29 3d 63 6f |=cp1%:?(ad+2)=co|
00001570 32 25 3a 3f 28 61 64 2b 33 29 3d 6d 6f 25 0d 05 |2%:?(ad+3)=mo%..|
00001580 28 05 e1 0d 05 32 0e dd f2 70 72 65 6c 69 6e 6b |(....2...prelink|
00001590 73 0d 05 3c 4e 3f 26 37 30 3d 3f 28 26 34 38 30 |s..<N?&70=?(&480|
000015a0 30 2b 31 36 2a 3f 26 37 37 29 3a d6 67 65 74 6c |0+16*?&77):.getl|
000015b0 69 6e 6b 3a 6e 25 3d 2d 31 3a 77 25 3d 37 3a e7 |ink:n%=-1:w%=7:.|
000015c0 78 6d 3e 28 31 32 34 38 2d 33 32 2a 77 25 29 8c |xm>(1248-32*w%).|
000015d0 78 6d 3d 78 6d 2d 36 34 2a 28 77 25 2b 31 29 0d |xm=xm-64*(w%+1).|
000015e0 05 46 22 e7 3f 26 37 33 3d 31 30 80 3f 26 37 32 |.F".?&73=10.?&72|
000015f0 3d 31 36 30 8c f2 6c 65 61 64 73 3a e5 8d 44 6e |=160..leads:..Dn|
00001600 45 0d 05 50 80 61 64 3d 3f 26 37 32 2b 32 35 36 |E..P.ad=?&72+256|
00001610 2a 3f 26 37 33 3a f5 20 6e 25 3d 6e 25 2b 31 3a |*?&73:. n%=n%+1:|
00001620 6d 65 6e 75 24 28 6e 25 29 3d 22 22 3a e3 72 3d |menu$(n%)="":.r=|
00001630 61 64 20 b8 61 64 2b 36 3a 6d 65 6e 75 24 28 6e |ad .ad+6:menu$(n|
00001640 25 29 3d 6d 65 6e 75 24 28 6e 25 29 2b bd 3f 72 |%)=menu$(n%)+.?r|
00001650 3a ed 3a 61 64 3d 61 64 2b 38 3a fd 3f 28 61 64 |:.:ad=ad+8:.?(ad|
00001660 2d 31 29 3d 30 3a 6e 25 3d 6e 25 2b 31 3a 6d 65 |-1)=0:n%=n%+1:me|
00001670 6e 75 24 28 6e 25 29 3d 22 43 61 6e 63 65 6c 20 |nu$(n%)="Cancel |
00001680 22 0d 05 5a 1e e7 79 6d 3c 28 6e 25 2b 32 29 2a |"..Z..ym<(n%+2)*|
00001690 33 32 8c 79 6d 3d 28 6e 25 2b 32 29 2a 33 32 0d |32.ym=(n%+2)*32.|
000016a0 05 64 0b f2 64 6f 6d 65 6e 75 0d 05 6e 05 e1 0d |.d..domenu..n...|
000016b0 05 78 0b dd f2 6c 65 61 64 73 0d 05 82 57 6d 6c |.x...leads...Wml|
000016c0 25 3d 3f 28 26 34 38 30 35 2b 31 36 2a 3f 26 37 |%=?(&4805+16*?&7|
000016d0 37 29 2a 32 3a 6e 25 3d 28 6d 6c 25 81 35 29 2b |7)*2:n%=(ml%.5)+|
000016e0 32 3a 6d 65 6e 75 24 28 30 29 3d 22 4c 65 61 64 |2:menu$(0)="Lead|
000016f0 20 4e 6f 22 3a 6d 65 6e 75 24 28 31 29 3d 22 31 | No":menu$(1)="1|
00001700 20 2d 20 34 20 20 22 3a e3 72 3d 32 b8 6e 25 2d | - 4 ":.r=2.n%-|
00001710 31 0d 05 8c 2c e7 28 35 2a 28 72 2d 31 29 29 3d |1...,.(5*(r-1))=|
00001720 6d 6c 25 8c 6d 65 6e 75 24 28 72 29 3d c3 28 35 |ml%.menu$(r)=.(5|
00001730 2a 28 72 2d 31 29 29 3a e5 8d 74 60 45 0d 05 96 |*(r-1)):..t`E...|
00001740 59 e7 28 35 2a 28 72 2d 31 29 2b 34 29 3e 3d 6d |Y.(5*(r-1)+4)>=m|
00001750 6c 25 8c 6d 65 6e 75 24 28 72 29 3d c3 28 35 2a |l%.menu$(r)=.(5*|
00001760 28 72 2d 31 29 29 2b 22 20 2d 20 22 2b c3 28 6d |(r-1))+" - "+.(m|
00001770 6c 25 29 8b 6d 65 6e 75 24 28 72 29 3d c3 28 35 |l%).menu$(r)=.(5|
00001780 2a 28 72 2d 31 29 29 2b 22 20 2d 20 22 2b c3 28 |*(r-1))+" - "+.(|
00001790 35 2a 72 2d 31 29 0d 05 a0 38 e7 a9 28 6d 65 6e |5*r-1)...8..(men|
000017a0 75 24 28 72 29 29 3c 37 8c 6d 65 6e 75 24 28 72 |u$(r))<7.menu$(r|
000017b0 29 3d 6d 65 6e 75 24 28 72 29 2b c4 37 2d a9 28 |)=menu$(r)+.7-.(|
000017c0 6d 65 6e 75 24 28 72 29 29 2c 22 20 22 29 0d 05 |menu$(r))," ")..|
000017d0 aa 34 ed 3a 6d 65 6e 75 24 28 6e 25 29 3d 22 43 |.4.:menu$(n%)="C|
000017e0 61 6e 63 65 6c 20 22 3a e7 79 6d 3c 28 6e 25 2b |ancel ":.ym<(n%+|
000017f0 32 29 2a 33 32 8c 79 6d 3d 28 6e 25 2b 32 29 2a |2)*32.ym=(n%+2)*|
00001800 33 32 0d 05 b4 17 f2 64 6f 6d 65 6e 75 3a e7 6d |32.....domenu:.m|
00001810 6f 25 3d 6e 25 2d 31 8c e1 0d 05 be 2c e7 28 6d |o%=n%-1.....,.(m|
00001820 6f 25 3d 6e 25 2d 31 29 80 28 6d 6c 25 83 35 29 |o%=n%-1).(ml%.5)|
00001830 3d 30 8c 6d 6f 25 3d 6d 6c 25 2d 31 3a 6e 25 3d |=0.mo%=ml%-1:n%=|
00001840 39 39 39 3a e1 0d 05 c8 9b 6d 69 6e 3d bb 28 6d |999:.....min=.(m|
00001850 65 6e 75 24 28 6d 6f 25 2b 31 29 29 3a 6d 61 78 |enu$(mo%+1)):max|
00001860 3d bb 28 c1 6d 65 6e 75 24 28 6d 6f 25 2b 31 29 |=.(.menu$(mo%+1)|
00001870 2c 35 2c 33 29 29 3a e3 72 3d 6d 69 6e 20 b8 6d |,5,3)):.r=min .m|
00001880 61 78 3a 6d 65 6e 75 24 28 31 2b 72 2d 6d 69 6e |ax:menu$(1+r-min|
00001890 29 3d c4 37 2d a9 28 c3 72 29 2c 22 20 22 29 2b |)=.7-.(.r)," ")+|
000018a0 c3 72 3a ed 3a 6e 25 3d 6d 61 78 2d 6d 69 6e 2b |.r:.:n%=max-min+|
000018b0 32 3a 6d 65 6e 75 24 28 6e 25 29 3d 22 43 61 6e |2:menu$(n%)="Can|
000018c0 63 65 6c 20 22 3a e7 79 6d 3c 28 6e 25 2b 32 29 |cel ":.ym<(n%+2)|
000018d0 2a 33 32 8c 79 6d 3d 28 6e 25 2b 32 29 2a 33 32 |*32.ym=(n%+2)*32|
000018e0 0d 05 d2 34 78 6d 3d 78 6d 2b 33 32 2a 28 77 25 |...4xm=xm+32*(w%|
000018f0 2b 31 29 3a e7 78 6d 3e 28 31 32 34 38 2d 33 32 |+1):.xm>(1248-32|
00001900 2a 77 25 29 8c 78 6d 3d 78 6d 2d 39 36 2a 28 77 |*w%).xm=xm-96*(w|
00001910 25 2b 31 29 0d 05 dc 17 f2 64 6f 6d 65 6e 75 3a |%+1).....domenu:|
00001920 e7 6d 6f 25 3d 6e 25 2d 31 8c e1 0d 05 e6 18 6d |.mo%=n%-1......m|
00001930 6f 25 3d 6d 6f 25 2b 6d 69 6e 3a 6e 25 3d 39 39 |o%=mo%+min:n%=99|
00001940 39 3a e1 0d 05 f0 05 e1 0d 05 fa 0a dd f2 6d 6f |9:............mo|
00001950 76 65 0d 06 04 3e f2 64 72 61 77 73 63 72 3a f2 |ve...>.drawscr:.|
00001960 64 72 61 77 28 78 2c 79 29 3a f1 8a 31 36 2c 31 |draw(x,y):..16,1|
00001970 29 22 53 74 61 74 75 73 3a 20 4d 6f 76 69 6e 67 |)"Status: Moving|
00001980 20 20 20 20 20 20 22 3a f5 fd ac a4 66 69 72 65 | ":....fire|
00001990 0d 06 0e 5e 21 26 37 30 3d 78 3a 21 26 37 32 3d |...^!&70=x:!&72=|
000019a0 79 3a d6 77 68 61 74 6f 76 65 72 3a 61 64 3d 26 |y:.whatover:ad=&|
000019b0 34 38 30 31 2b 31 36 2a 3f 26 37 37 3a 78 3d 3f |4801+16*?&77:x=?|
000019c0 61 64 2b 32 35 36 2a 3f 28 61 64 2b 31 29 3a 79 |ad+256*?(ad+1):y|
000019d0 3d 3f 28 61 64 2b 32 29 2b 32 35 36 2a 3f 28 61 |=?(ad+2)+256*?(a|
000019e0 64 2b 33 29 3a f2 62 6f 78 28 78 2c 79 29 0d 06 |d+3):.box(x,y)..|
000019f0 18 3d f5 20 78 6f 6c 64 3d 78 3a 79 6f 6c 64 3d |.=. xold=x:yold=|
00001a00 79 3a f2 6d 6f 76 65 63 75 72 3a f2 62 6f 78 28 |y:.movecur:.box(|
00001a10 78 6f 6c 64 2c 79 6f 6c 64 29 3a f2 62 6f 78 28 |xold,yold):.box(|
00001a20 78 2c 79 29 3a fd a4 66 69 72 65 0d 06 22 11 21 |x,y):..fire..".!|
00001a30 61 64 3d 78 2b 36 35 35 33 36 2a 79 0d 06 2c 05 |ad=x+65536*y..,.|
00001a40 e1 0d 06 36 0e dd f2 62 6f 78 28 78 2c 79 29 0d |...6...box(x,y).|
00001a50 06 40 2d e6 33 2c 31 3a ec 78 2c 79 3a df 78 2c |.@-.3,1:.x,y:.x,|
00001a60 79 2d 36 34 3a df 78 2b 36 34 2c 79 2d 36 34 3a |y-64:.x+64,y-64:|
00001a70 df 78 2b 36 34 2c 79 3a df 78 2c 79 0d 06 4a 05 |.x+64,y:.x,y..J.|
00001a80 e1 0d 06 54 0c dd f2 63 75 72 73 6f 72 0d 06 5e |...T...cursor..^|
00001a90 1a 78 6f 6c 64 3d 78 3a 79 6f 6c 64 3d 79 3a f2 |.xold=x:yold=y:.|
00001aa0 6d 6f 76 65 63 75 72 0d 06 68 18 e7 28 78 3d 78 |movecur..h..(x=x|
00001ab0 6f 6c 64 29 80 28 79 3d 79 6f 6c 64 29 8c e1 0d |old).(y=yold)...|
00001ac0 06 72 14 f2 64 72 61 77 28 78 6f 6c 64 2c 79 6f |.r..draw(xold,yo|
00001ad0 6c 64 29 0d 06 7c 0e f2 64 72 61 77 28 78 2c 79 |ld)..|..draw(x,y|
00001ae0 29 0d 06 86 05 e1 0d 06 90 0c dd f2 6d 6f 75 63 |)...........mouc|
00001af0 75 72 0d 06 9a 1a 78 6f 6c 64 3d 78 3a 79 6f 6c |ur....xold=x:yol|
00001b00 64 3d 79 3a f2 6d 6f 76 65 6d 6f 75 0d 06 a4 09 |d=y:.movemou....|
00001b10 e5 8d 44 68 46 0d 06 ae 0d dd f2 6d 6f 76 65 6d |..DhF......movem|
00001b20 6f 75 0d 06 b8 05 e1 0d 06 c2 0f dd f2 64 72 61 |ou...........dra|
00001b30 77 28 78 2c 79 29 0d 06 cc 28 e6 33 2c 31 3a ec |w(x,y)...(.3,1:.|
00001b40 78 2c 79 2d 32 30 3a df 78 2c 79 2b 32 30 3a ec |x,y-20:.x,y+20:.|
00001b50 78 2d 32 30 2c 79 3a df 78 2b 32 30 2c 79 0d 06 |x-20,y:.x+20,y..|
00001b60 d6 05 e1 0d 06 e0 0d dd f2 6d 6f 76 65 63 75 72 |.........movecur|
00001b70 0d 06 ea 27 f2 63 68 65 63 6b 6d 6f 76 65 3a e7 |...'.checkmove:.|
00001b80 78 3c 30 8c 78 3d 30 20 8b e7 78 3e 31 32 38 30 |x<0.x=0 ..x>1280|
00001b90 8c 78 3d 31 32 38 30 0d 06 f4 1a e7 79 3c 30 8c |.x=1280.....y<0.|
00001ba0 79 3d 30 20 8b e7 79 3e 38 38 34 8c 79 3d 38 38 |y=0 ..y>884.y=88|
00001bb0 34 0d 06 fe 05 e1 0d 07 08 0f dd f2 63 68 65 63 |4...........chec|
00001bc0 6b 6d 6f 76 65 0d 07 12 19 73 74 65 70 3d 34 3a |kmove....step=4:|
00001bd0 e7 a6 28 2d 31 29 8c 73 74 65 70 3d 34 30 0d 07 |..(-1).step=40..|
00001be0 1c 26 e7 a6 28 2d 39 38 29 84 28 6a 6f 79 20 80 |.&..(-98).(joy .|
00001bf0 96 28 31 29 3e 34 30 30 30 30 29 8c 78 3d 78 2d |.(1)>40000).x=x-|
00001c00 73 74 65 70 0d 07 26 26 e7 a6 28 2d 36 37 29 84 |step..&&..(-67).|
00001c10 28 6a 6f 79 20 80 96 28 31 29 3c 32 34 30 30 30 |(joy ..(1)<24000|
00001c20 29 8c 78 3d 78 2b 73 74 65 70 0d 07 30 26 e7 a6 |).x=x+step..0&..|
00001c30 28 2d 37 33 29 84 28 6a 6f 79 20 80 96 28 32 29 |(-73).(joy ..(2)|
00001c40 3e 34 30 30 30 30 29 8c 79 3d 79 2b 73 74 65 70 |>40000).y=y+step|
00001c50 0d 07 3a 27 e7 a6 28 2d 31 30 35 29 84 28 6a 6f |..:'..(-105).(jo|
00001c60 79 20 80 96 28 32 29 3c 32 34 30 30 30 29 8c 79 |y ..(2)<24000).y|
00001c70 3d 79 2d 73 74 65 70 0d 07 44 0c e7 ac 6a 6f 79 |=y-step..D...joy|
00001c80 20 8c e1 0d 07 4e 1a e7 96 28 31 29 3e 35 35 30 | ....N...(1)>550|
00001c90 30 30 8c 78 3d 78 2d 73 74 65 70 2a 39 0d 07 58 |00.x=x-step*9..X|
00001ca0 1a e7 96 28 31 29 3c 31 30 30 30 30 8c 78 3d 78 |...(1)<10000.x=x|
00001cb0 2b 73 74 65 70 2a 39 0d 07 62 1a e7 96 28 32 29 |+step*9..b...(2)|
00001cc0 3c 31 30 30 30 30 8c 79 3d 79 2d 73 74 65 70 2a |<10000.y=y-step*|
00001cd0 39 0d 07 6c 1a e7 96 28 32 29 3e 35 35 30 30 30 |9..l...(2)>55000|
00001ce0 8c 79 3d 79 2b 73 74 65 70 2a 39 0d 07 76 05 e1 |.y=y+step*9..v..|
00001cf0 0d 07 80 05 3a 0d 07 8a b0 dc 32 30 2c 22 43 61 |....:.....20,"Ca|
00001d00 70 61 63 69 74 6f 72 22 2c 22 43 61 70 61 63 69 |pacitor","Capaci|
00001d10 74 6f 72 28 45 29 22 2c 22 43 65 6c 6c 22 2c 22 |tor(E)","Cell","|
00001d20 42 61 74 74 65 72 79 22 2c 22 44 69 6f 64 65 22 |Battery","Diode"|
00001d30 2c 22 44 69 6f 64 65 28 5a 65 6e 65 72 29 22 2c |,"Diode(Zener)",|
00001d40 22 47 72 6f 75 6e 64 22 2c 22 49 43 22 2c 22 49 |"Ground","IC","I|
00001d50 6e 64 75 63 74 6f 72 22 2c 22 4c 6f 67 69 63 20 |nductor","Logic |
00001d60 41 4e 44 22 2c 22 4c 6f 67 69 63 20 4e 4f 54 22 |AND","Logic NOT"|
00001d70 2c 22 4c 6f 67 69 63 20 4f 52 22 2c 22 4e 6f 64 |,"Logic OR","Nod|
00001d80 65 22 2c 22 4f 70 41 6d 70 22 2c 22 52 65 73 69 |e","OpAmp","Resi|
00001d90 73 74 6f 72 22 2c 22 52 65 73 69 73 74 6f 72 28 |stor","Resistor(|
00001da0 56 61 72 29 22 0d 07 94 43 dc 22 53 77 69 74 63 |Var)"...C."Switc|
00001db0 68 22 2c 22 54 72 61 6e 73 69 73 74 6f 72 28 4e |h","Transistor(N|
00001dc0 50 4e 29 22 2c 22 54 72 61 6e 73 69 73 74 6f 72 |PN)","Transistor|
00001dd0 28 50 4e 50 29 22 2c 22 54 72 61 6e 73 69 73 74 |(PNP)","Transist|
00001de0 6f 72 28 46 45 54 29 22 0d ff |or(FET)"..|
00001dea 
CAD/CADNew/BACK/CAD2.m0
CAD/CADNew/BACK/CAD2.m1
CAD/CADNew/BACK/CAD2.m2
CAD/CADNew/BACK/CAD2.m4
CAD/CADNew/BACK/CAD2.m5
.