Home » CEEFAX disks » telesoftware9.adl » 30-09-88/DSCEDIT

30-09-88/DSCEDIT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware9.adl
Filename: 30-09-88/DSCEDIT
Read OK:
File size: 1076 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
    0*|"�DScedit�(C)M.Goldfinch�7/87
   10IFQ%ORR%DIMI%40ELSEI%=&8D0
   20DIMU%(580):e%=0:PROCa("FX4,2"):PROCa("DR."+STR$N%)
   30REPEATONERRORPROCe
   40PROCC:MODEM%:VDU23,0,10,67;0;0;0;:PROCA:UNTILe%:MODE7:PROCa("DR.0"):PROCa("FX225,1"):PROCF:END
 1000DEFPROCd(H%)G%=INKEY(H%*100):ENDPROC
 1010DEFPROCCPROCa("FX144,0,1"):ENDPROC
 1020DEFPROCa($I%)X%=I%:Y%=I%DIV256:CALL&FFF7:ENDPROC
 1030DEFPROCS(K%)IFM%=1ANDK%COLOUR131:COLOUR2:ENDPROCELSEIFK%COLOUR129:COLOUR0:ENDPROCELSECOLOUR128:COLOUR1:ENDPROC
 1040DEFPROCGIFM%=0 U%=2:ENDPROCELSEU%=1:ENDPROC
 1050DEFPROC_(A%)REPEATN%=GET-48:VDU7:UNTILN%<A%ANDN%>-1:ENDPROC
 1060DEFPROCEVDU29,108;72;:H%=1160:F%=600:MOVE0,F%:DRAW0,0:MOVEH%,0:DRAW0,0:MOVE0,F%:DRAWH%,F%:DRAWH%,0:G%=0:FORA%=120TO480STEP120:MOVE0,A%:PLOT21,H%,A%:G%=G%+232:MOVEG%,F%:PLOT21,G%,0:NEXT:MOVE0,0:G%=0:FORA%=60TOF%STEP60:MOVE0,A%:DRAW20,A%:G%=G%+116:MOVEG%,0:DRAWG%,20:NEXT:ENDPROC
 1070DEFPROCb(K%,F%,J%,P%):VDU28,K%,F%,J%,P%:ENDPROC
 1080DEFPROClVDU26:ENDPROC
 1090DEFPROCjPROCl:PROC3:PRINTTAB(0,10)H$:PROCb(0,8,39,2):ENDPROC
 1100DEFPROC3IFs%H$="log":ENDPROCELSEH$="lin":ENDPROC
 1110DEFFNI(G%,H%)B$="":PRINTSTRING$(H%,"-");:VDU31,POS-H%,VPOS;:PROCk
 1120C$=GET$:K%=ASCC$:IFK%=&DTHEN1130ELSEIFK%=&7FANDB$=""THEN1120ELSEIFK%=&7F B$=LEFT$(B$,LENB$-1):PRINTC$;:GOTO1120ELSEIFK%>&FCORK%<&20ORLENB$=H%VDU7:GOTO1120ELSEIF(K%>&2FANDK%<&3A)ORK%=&20OR(G%=1ANDASCC$=&2E)ORG%=0PRINTC$;:B$=B$+C$:GOTO1120ELSEVDU7:GOTO1120
 1130=B$
 1140DEFFNP(X%,Y%,L$,G%,H%):PRINTTAB(X%,Y%);L$;:B$=FNI(G%,H%):=B$
 1150DEFPROCkREPEATB$=INKEY$0:UNTILB$="":ENDPROC
 1160DEFFNY(A%,D%,L$)PROCa("FX21"):PRINTTAB(A%,D%)SPC39:PROCS(-1):PRINTTAB(A%,D%);L$;"? (Y/N)";:PROCS(0):REPEATB$=GET$:UNTILINSTR("yYnN",B$)<>0:IFINSTR("yY",B$)=0THEN=0ELSE=-1
 1170DEFFNC(A%)PROCa("FX21"):REPEATA$=GET$:IFVALA$<1ORVALA$>A%VDU7
 1180UNTILA$>"0"ANDA$<=CHR$(48+A%):=VALA$
 1190DEFPROCIPROCl:PROCG:IFr%PRINTTAB(20,30);T/2TAB(39,30)"0"TAB(36,30);T;:VDU11:ELSEPRINTTAB(10*U%,30)SPC(29*U%);TAB(22*U%-(LEN(STR$(x%/2))),30);x%/2TAB(40*U%-(LENSTR$(x%)),30);x%;
 1200IFM%=0PRINTTAB(20,30)SPC59:IFr%PRINTTAB(41,30);T/2TAB(79,30)"0"TAB(76,30);T;:VDU11:ELSEIFM%=0PRINTTAB(44-(LEN(STR$(x%/2))),30);x%/2TAB(80-(LENSTR$(x%)),30);x%;:VDU11
 1210GCOL0,1:VDU29,108;72;11,5,25,4,0;-10;-3,4,28,0,30,0,11:CLS:COLOUR1:PRINTSPC7"volts":PROCl:PRINTTAB(10*U%,31)SPC29;TAB(20*U%,31)G$;:VDU11,29,108;72;5:MOVE-68,596:VDU-2,-1:MOVE-56,16:VDU-3,4:MOVE0,0:ENDPROC
 1220DEFPROCh T$="�(C)M.Goldfinch�":ENDPROC
 1230DEFPROCoREPEATF$=FNP(0,3,"File ",0,9):UNTILF$<>"":ENDPROC
 1240DEFPROCsONERRORPROCe:PROCs:GOTO30
 1250R$="low":PRINTTAB(0,9)SPC38:PROCb(0,8,39,2):VDU7:CLS:PRINT'"Select disc storage resolution"''"[1] high"'"[2] low":B%=FNC(2):IFB%=1 R$="high"
 1260REPEATCLS:PRINT'R$;" resolution":PROCo:IFNOTO%T$=FNP(0,3,"Data heading:",0,15)
 1270L%=FNY(0,3,"Update EXISTING file"):IFL%S%=OPENUPF$ELSES%=OPENOUTF$
 1280IFS%=0CLS:PRINT''"File not found: open new file":CLOSE#0:PROCd(5):UNTILS%>0
 1290PRINT#S%,O%:IFO%PRINT#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
 1300PRINT#S%,B,r%,T,s%,G$,T$,B%,T%,x%:PROCu:PROCH(D):CLOSE#S%:CLS:VDU7:PRINT''F$;" saved":PROCd(5):B%=1:CLS:ENDPROC
 1310DEFPROCuPROC3:IFr%D=B/TELSEIFT%<7OR(T%<18ANDs%)D=(B/T%)*B%ELSED=B%*2
 1320IFQ%ORR%THEN1330ELSEENDPROC
 1330IFr%D=B/TELSEIFT%<4OR(T%<12ANDs%)D=(B/T%)*B%ELSED=B%*2
 1340ENDPROC
 1350DEFPROCrONERRORPROCe:PROCr:GOTO30
 1360CLOSE#0:GCOL0,3:PROCE:PROCb(0,8,39,2):COLOUR1:PRINT'"Load data":COLOUR3:PROCo:S%=OPENUPF$:INPUT#S%,O%:IFO%INPUT#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
 1370INPUT#S%,B,r%,T,s%,G$,T$,B%,T%,x%:E$="high":IFB%=2 E$="low"
 1380CLS:PRINT'"File ";F$''E$;" resolution":PROCu:VDU29,108;72;:MOVE0,0:PROCJ(D):CLOSE#S%:MOVE0,0:VDU7:PROCd(2):CLS:PROCj:PROCI:PROCS(-1):ENDPROC
 1390DEFPROCJ(C)FORX=0TO1159STEPC:INPUT#S%,U%(XDIV2):DRAWX,U%(XDIV2):NEXT:ENDPROC
 1400DEFPROCH(C)FORI=0TO1159STEPC:PRINT#S%,U%(IDIV2):NEXT:ENDPROC
 1410DEFPROCAVDU19,0,6;0;19,3,4;0;19,2,3;0;19,1,1;0;:PROCh:PROCr:COLOUR2:PRINTTAB(0,0)"EDITOR |"
 1420PRINTTAB(0,9)SPC40;:PROCb(0,8,39,2):PROCS(-1):CLS:COLOUR0:PRINT'"Cursor keys set sector <Shift>=fast thenKey <E> to edit":VDU29,108;72;5:G=D/2:A=0:REPEATIFINKEY-26ANDA>0 A=A-GELSEIFINKEY-122ANDA<558 A=A+G
 1430IFINKEY-1 G=2*DELSEG=D/2
 1440VDU4:PRINTTAB(0,4)SPC4TAB(0,4)"x:";ADIV1;:VDU5:PROCD:PROCD:UNTILINKEY-35:VDU4:IFA<0 A=0ELSEIFA>570 A=558
 1450PROCD:PROCl:COLOUR2:PRINTTAB(9,0)"<P> scan <TAB> edit + <RETURN>":PROCb(0,8,39,2):PROCl:PROCb(0,1,39,1):COLOUR129:CLS:GCOL0,2:MOVE0,960:DRAW1279,960:COLOUR0:PRINTTAB(1,0)"x"TAB(8,0)"y"TAB(14,0)"x"TAB(21,0)"y"TAB(27,0)"x"TAB(34,0)"y";:PROCS(-1):PROCb(0,8,39,2):CLS:A%=0:_%=0:H=A:FORE=HTOH+19STEPD/2
 1460PRINTTAB(A%,_%)" ";E*2DIV1;:PRINTSTRING$(7-LENSTR$(E*2DIV1),".");U%(E);:_%=_%+1:IF_%>6_%=0:A%=A%+13
 1470NEXT:GCOL88,2:MOVE0,738:DRAW1279,738:GCOL0,1:PROCS(0)
 1480PROCl:PRINTTAB(0,9)SPC40;:PROCb(0,8,39,2):A%=8:_%=0:E=A:REPEATPRINTTAB(A%,_%);U%(E);:REPEATA$=GET$:UNTILINSTR("pP"+CHR$9,A$):IFA$=CHR$9THEN1520
 1490PROCS(-1):PRINTTAB(A%,_%);U%(E);:PROCS(0):E=E+D/2:IFE>A+19 E=A:_%=6:A%=23
 1500_%=_%+1:IF_%>6_%=0:A%=A%+13
 1510IFA%>34A%=8
 1520UNTILA$=CHR$9:A%=A%-2:REPEATD$=FNP(A%,_%,"y:",2,3):VDU7:UNTILVALD$>-1ANDVALD$<601:U%(E)=VALD$:PROCl:L%=FNY(0,9,"Replot with new data"):IFL%PROCB
 1530VDU7:L%=FNY(0,9,"Continue editing this sector"):IFL%THEN1480ELSEVDU29,108;72;:PROCD:L%=FNY(0,9,"Edit new sector of this data"):IFL%THEN1420ELSEL%=FNY(0,9,"Save edited data"):IFL%PROCs
 1540L%=FNY(0,9,"Load NEW data"):IFL%PROCl:CLS:PROCAELSEe%=-1:ENDPROC
 1550DEFPROCDGCOL3,1:F%=600:G%=A*2:MOVEG%,0:DRAWG%,F%:MOVEG%+48,F%:DRAWG%+48,0:GCOL0,1:ENDPROC
 1560DEFPROCBPRINTTAB(0,9)"Red dotted line shows edited data":VDU29,108;72;:MOVE0,0:FORF=0TO1159STEPD:PLOT21,F,U%(FDIV2):NEXT:VDU7:PROCd(3):ENDPROC
 1570DEFPROCF:PRINTTAB(0,9)"�������Insert�DATASCOPE�master disc"'" ���in DRIVE 0�and key <SPACE>":REPEATUNTILINKEY-99:CLS:PRINTTAB(0,9)"���Loading�DScopeM":IFQ%ORR%THEN1580ELSEPAGE=&1900
 1580CHAIN"DScopeM":ENDPROC
 1590DEFPROCeIFERR=17ANDINKEY-119THEN1600ELSEIFERR=17RUNELSEIFE%=2PROCa("FX21"):REPORT:PROCd(5):ENDPROCELSEONERROROFF:VDU3,7:CLS:REPORT:PRINT'"@ ";ERL:PROCd(8)
 1600PROCa("FX4"):PROCa("FX12"):VDU22,7:END
#*|"�DScedit�(C)M.Goldfinch�7/87

�Q%�R%�I%40�I%=&8D0
+�U%(580):e%=0:�a("FX4,2"):�a("DR."+�N%)
	���e
(E�C:�M%:�23,0,10,67;0;0;0;:�A:�e%:�7:�a("DR.0"):�a("FX225,1"):�F:�
���d(H%)G%=�(H%*100):�
���C�a("FX144,0,1"):�
�$��a($I%)X%=I%:Y%=I%�256:�&FFF7:�
3��S(K%)�M%=1�K%�131:�2:��K%�129:�0:�128:�1:�
��G�M%=0 U%=2:�U%=1:�
%��_(A%)�N%=�-48:�7:�N%<A%�N%>-1:�
$���E�29,108;72;:H%=1160:F%=600:�0,F%:�0,0:�H%,0:�0,0:�0,F%:�H%,F%:�H%,0:G%=0:�A%=120�480�120:�0,A%:�21,H%,A%:G%=G%+232:�G%,F%:�21,G%,0:�:�0,0:G%=0:�A%=60�F%�60:�0,A%:�20,A%:G%=G%+116:�G%,0:�G%,20:�:�
.&��b(K%,F%,J%,P%):�28,K%,F%,J%,P%:�
8��l�26:�
B%��j�l:�3:�0,10)H$:�b(0,8,39,2):�
L��3�s%H$="log":�H$="lin":�
V-ݤI(G%,H%)B$="":��H%,"-");:�31,�-H%,�;:�k
`�C$=�:K%=�C$:�K%=&D��DjD��K%=&7F�B$=""��D`D��K%=&7F B$=�B$,�B$-1):�C$;:�D`D��K%>&FC�K%<&20��B$=H%�7:�D`D��(K%>&2F�K%<&3A)�K%=&20�(G%=1��C$=&2E)�G%=0�C$;:B$=B$+C$:�D`D��7:�D`D
j=B$
t5ݤP(X%,Y%,L$,G%,H%):�X%,Y%);L$;:B$=�I(G%,H%):=B$
~��k�B$=�0:�B$="":�
�uݤY(A%,D%,L$)�a("FX21"):�A%,D%)�39:�S(-1):�A%,D%);L$;"? (Y/N)";:�S(0):�B$=�:��"yYnN",B$)<>0:�"yY",B$)=0�=0�=-1
�+ݤC(A%)�a("FX21"):�A$=�:�A$<1��A$>A%�7
��A$>"0"�A$<=�(48+A%):=�A$
�}��I�l:�G:�r%�20,30);T/2�39,30)"0"�36,30);T;:�11:��10*U%,30)�(29*U%);�22*U%-(�(�(x%/2))),30);x%/2�40*U%-(��(x%)),30);x%;
�u�M%=0�20,30)�59:�r%�41,30);T/2�79,30)"0"�76,30);T;:�11:��M%=0�44-(�(�(x%/2))),30);x%/2�80-(��(x%)),30);x%;:�11
���0,1:�29,108;72;11,5,25,4,0;-10;-3,4,28,0,30,0,11:�:�1:�7"volts":�l:�10*U%,31)�29;�20*U%,31)G$;:�11,29,108;72;5:�-68,596:�-2,-1:�-56,16:�-3,4:�0,0:�
���h T$="�(C)M.Goldfinch�":�
�(��o�F$=�P(0,3,"File ",0,9):�F$<>"":�
���s��e:�s:�T^@
�zR$="low":�0,9)�38:�b(0,8,39,2):�7:�:�'"Select disc storage resolution"''"[1] high"'"[2] low":B%=�C(2):�B%=1 R$="high"
�@��:�'R$;" resolution":�o:�O%T$=�P(0,3,"Data heading:",0,15)
�6L%=�Y(0,3,"Update EXISTING file"):�L%S%=�F$�S%=�F$
=�S%=0�:�''"File not found: open new file":�#0:�d(5):�S%>0

1�#S%,O%:�O%�#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
R�#S%,B,r%,T,s%,G$,T$,B%,T%,x%:�u:�H(D):�#S%:�:�7:�''F$;" saved":�d(5):B%=1:�:�
5��u�3:�r%D=B/T��T%<7�(T%<18�s%)D=(B/T%)*B%�D=B%*2
(�Q%�R%��TrE��
2/�r%D=B/T��T%<4�(T%<12�s%)D=(B/T%)*B%�D=B%*2
<�
F��r��e:�r:�T^@
Ph�#0:�0,3:�E:�b(0,8,39,2):�1:�'"Load data":�3:�o:S%=�F$:�#S%,O%:�O%�#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
Z:�#S%,B,r%,T,s%,G$,T$,B%,T%,x%:E$="high":�B%=2 E$="low"
db�:�'"File ";F$''E$;" resolution":�u:�29,108;72;:�0,0:�J(D):�#S%:�0,0:�7:�d(2):�:�j:�I:�S(-1):�
n1��J(C)�X=0�1159�C:�#S%,U%(X�2):�X,U%(X�2):�:�
x&��H(C)�I=0�1159�C:�#S%,U%(I�2):�:�
�F��A�19,0,6;0;19,3,4;0;19,2,3;0;19,1,1;0;:�h:�r:�2:�0,0)"EDITOR |"
���0,9)�40;:�b(0,8,39,2):�S(-1):�:�0:�'"Cursor keys set sector <Shift>=fast thenKey <E> to edit":�29,108;72;5:G=D/2:A=0:��-26�A>0 A=A-G��-122�A<558 A=A+G
��-1 G=2*D�G=D/2
�E�4:�0,4)�4�0,4)"x:";A�1;:�5:�D:�D:��-35:�4:�A<0 A=0��A>570 A=558
���D:�l:�2:�9,0)"<P> scan <TAB> edit + <RETURN>":�b(0,8,39,2):�l:�b(0,1,39,1):�129:�:�0,2:�0,960:�1279,960:�0:�1,0)"x"�8,0)"y"�14,0)"x"�21,0)"y"�27,0)"x"�34,0)"y";:�S(-1):�b(0,8,39,2):�:A%=0:_%=0:H=A:�E=H�H+19�D/2
�K�A%,_%)" ";E*2�1;:��7-��(E*2�1),".");U%(E);:_%=_%+1:�_%>6_%=0:A%=A%+13
�'�:�88,2:�0,738:�1279,738:�0,1:�S(0)
�]�l:�0,9)�40;:�b(0,8,39,2):A%=8:_%=0:E=A:��A%,_%);U%(E);:�A$=�:��"pP"+�9,A$):�A$=�9��dpE
�?�S(-1):�A%,_%);U%(E);:�S(0):E=E+D/2:�E>A+19 E=A:_%=6:A%=23
�_%=_%+1:�_%>6_%=0:A%=A%+13
��A%>34A%=8
�q�A$=�9:A%=A%-2:�D$=�P(A%,_%,"y:",2,3):�7:��D$>-1��D$<601:U%(E)=�D$:�l:L%=�Y(0,9,"Replot with new data"):�L%�B
���7:L%=�Y(0,9,"Continue editing this sector"):�L%��dHE��29,108;72;:�D:L%=�Y(0,9,"Edit new sector of this data"):�L%��tLE�L%=�Y(0,9,"Save edited data"):�L%�s
1L%=�Y(0,9,"Load NEW data"):�L%�l:�:�A�e%=-1:�
@��D�3,1:F%=600:G%=A*2:�G%,0:�G%,F%:�G%+48,F%:�G%+48,0:�0,1:�
h��B�0,9)"Red dotted line shows edited data":�29,108;72;:�0,0:�F=0�1159�D:�21,F,U%(F�2):�:�7:�d(3):�
"���F:�0,9)"�������Insert�DATASCOPE�master disc"'" ���in DRIVE 0�and key <SPACE>":���-99:�:�0,9)"���Loading�DScopeM":�Q%�R%��TlF��=&1900
,�"DScopeM":�
6T��e�=17��-119��D@F��=17���E%=2�a("FX21"):�:�d(5):�:�3,7:�:�:�'"@ ";�:�d(8)
@ �a("FX4"):�a("FX12"):�22,7:�
�
00000000  0d 00 00 23 2a 7c 22 82  44 53 63 65 64 69 74 83  |...#*|".DScedit.|
00000010  28 43 29 4d 2e 47 6f 6c  64 66 69 6e 63 68 86 37  |(C)M.Goldfinch.7|
00000020  2f 38 37 0d 00 0a 17 e7  51 25 84 52 25 de 49 25  |/87.....Q%.R%.I%|
00000030  34 30 8b 49 25 3d 26 38  44 30 0d 00 14 2b de 55  |40.I%=&8D0...+.U|
00000040  25 28 35 38 30 29 3a 65  25 3d 30 3a f2 61 28 22  |%(580):e%=0:.a("|
00000050  46 58 34 2c 32 22 29 3a  f2 61 28 22 44 52 2e 22  |FX4,2"):.a("DR."|
00000060  2b c3 4e 25 29 0d 00 1e  09 f5 ee 85 f2 65 0d 00  |+.N%)........e..|
00000070  28 45 f2 43 3a eb 4d 25  3a ef 32 33 2c 30 2c 31  |(E.C:.M%:.23,0,1|
00000080  30 2c 36 37 3b 30 3b 30  3b 30 3b 3a f2 41 3a fd  |0,67;0;0;0;:.A:.|
00000090  65 25 3a eb 37 3a f2 61  28 22 44 52 2e 30 22 29  |e%:.7:.a("DR.0")|
000000a0  3a f2 61 28 22 46 58 32  32 35 2c 31 22 29 3a f2  |:.a("FX225,1"):.|
000000b0  46 3a e0 0d 03 e8 19 dd  f2 64 28 48 25 29 47 25  |F:.......d(H%)G%|
000000c0  3d a6 28 48 25 2a 31 30  30 29 3a e1 0d 03 f2 18  |=.(H%*100):.....|
000000d0  dd f2 43 f2 61 28 22 46  58 31 34 34 2c 30 2c 31  |..C.a("FX144,0,1|
000000e0  22 29 3a e1 0d 03 fc 24  dd f2 61 28 24 49 25 29  |"):....$..a($I%)|
000000f0  58 25 3d 49 25 3a 59 25  3d 49 25 81 32 35 36 3a  |X%=I%:Y%=I%.256:|
00000100  d6 26 46 46 46 37 3a e1  0d 04 06 33 dd f2 53 28  |.&FFF7:....3..S(|
00000110  4b 25 29 e7 4d 25 3d 31  80 4b 25 fb 31 33 31 3a  |K%).M%=1.K%.131:|
00000120  fb 32 3a e1 8b e7 4b 25  fb 31 32 39 3a fb 30 3a  |.2:...K%.129:.0:|
00000130  e1 8b fb 31 32 38 3a fb  31 3a e1 0d 04 10 1a dd  |...128:.1:......|
00000140  f2 47 e7 4d 25 3d 30 20  55 25 3d 32 3a e1 8b 55  |.G.M%=0 U%=2:..U|
00000150  25 3d 31 3a e1 0d 04 1a  25 dd f2 5f 28 41 25 29  |%=1:....%.._(A%)|
00000160  f5 4e 25 3d a5 2d 34 38  3a ef 37 3a fd 4e 25 3c  |.N%=.-48:.7:.N%<|
00000170  41 25 80 4e 25 3e 2d 31  3a e1 0d 04 24 ca dd f2  |A%.N%>-1:...$...|
00000180  45 ef 32 39 2c 31 30 38  3b 37 32 3b 3a 48 25 3d  |E.29,108;72;:H%=|
00000190  31 31 36 30 3a 46 25 3d  36 30 30 3a ec 30 2c 46  |1160:F%=600:.0,F|
000001a0  25 3a df 30 2c 30 3a ec  48 25 2c 30 3a df 30 2c  |%:.0,0:.H%,0:.0,|
000001b0  30 3a ec 30 2c 46 25 3a  df 48 25 2c 46 25 3a df  |0:.0,F%:.H%,F%:.|
000001c0  48 25 2c 30 3a 47 25 3d  30 3a e3 41 25 3d 31 32  |H%,0:G%=0:.A%=12|
000001d0  30 b8 34 38 30 88 31 32  30 3a ec 30 2c 41 25 3a  |0.480.120:.0,A%:|
000001e0  f0 32 31 2c 48 25 2c 41  25 3a 47 25 3d 47 25 2b  |.21,H%,A%:G%=G%+|
000001f0  32 33 32 3a ec 47 25 2c  46 25 3a f0 32 31 2c 47  |232:.G%,F%:.21,G|
00000200  25 2c 30 3a ed 3a ec 30  2c 30 3a 47 25 3d 30 3a  |%,0:.:.0,0:G%=0:|
00000210  e3 41 25 3d 36 30 b8 46  25 88 36 30 3a ec 30 2c  |.A%=60.F%.60:.0,|
00000220  41 25 3a df 32 30 2c 41  25 3a 47 25 3d 47 25 2b  |A%:.20,A%:G%=G%+|
00000230  31 31 36 3a ec 47 25 2c  30 3a df 47 25 2c 32 30  |116:.G%,0:.G%,20|
00000240  3a ed 3a e1 0d 04 2e 26  dd f2 62 28 4b 25 2c 46  |:.:....&..b(K%,F|
00000250  25 2c 4a 25 2c 50 25 29  3a ef 32 38 2c 4b 25 2c  |%,J%,P%):.28,K%,|
00000260  46 25 2c 4a 25 2c 50 25  3a e1 0d 04 38 0c dd f2  |F%,J%,P%:...8...|
00000270  6c ef 32 36 3a e1 0d 04  42 25 dd f2 6a f2 6c 3a  |l.26:...B%..j.l:|
00000280  f2 33 3a f1 8a 30 2c 31  30 29 48 24 3a f2 62 28  |.3:..0,10)H$:.b(|
00000290  30 2c 38 2c 33 39 2c 32  29 3a e1 0d 04 4c 1f dd  |0,8,39,2):...L..|
000002a0  f2 33 e7 73 25 48 24 3d  22 6c 6f 67 22 3a e1 8b  |.3.s%H$="log":..|
000002b0  48 24 3d 22 6c 69 6e 22  3a e1 0d 04 56 2d dd a4  |H$="lin":...V-..|
000002c0  49 28 47 25 2c 48 25 29  42 24 3d 22 22 3a f1 c4  |I(G%,H%)B$="":..|
000002d0  48 25 2c 22 2d 22 29 3b  3a ef 33 31 2c b1 2d 48  |H%,"-");:.31,.-H|
000002e0  25 2c bc 3b 3a f2 6b 0d  04 60 b5 43 24 3d be 3a  |%,.;:.k..`.C$=.:|
000002f0  4b 25 3d 97 43 24 3a e7  4b 25 3d 26 44 8c 8d 44  |K%=.C$:.K%=&D..D|
00000300  6a 44 8b e7 4b 25 3d 26  37 46 80 42 24 3d 22 22  |jD..K%=&7F.B$=""|
00000310  8c 8d 44 60 44 8b e7 4b  25 3d 26 37 46 20 42 24  |..D`D..K%=&7F B$|
00000320  3d c0 42 24 2c a9 42 24  2d 31 29 3a f1 43 24 3b  |=.B$,.B$-1):.C$;|
00000330  3a e5 8d 44 60 44 8b e7  4b 25 3e 26 46 43 84 4b  |:..D`D..K%>&FC.K|
00000340  25 3c 26 32 30 84 a9 42  24 3d 48 25 ef 37 3a e5  |%<&20..B$=H%.7:.|
00000350  8d 44 60 44 8b e7 28 4b  25 3e 26 32 46 80 4b 25  |.D`D..(K%>&2F.K%|
00000360  3c 26 33 41 29 84 4b 25  3d 26 32 30 84 28 47 25  |<&3A).K%=&20.(G%|
00000370  3d 31 80 97 43 24 3d 26  32 45 29 84 47 25 3d 30  |=1..C$=&2E).G%=0|
00000380  f1 43 24 3b 3a 42 24 3d  42 24 2b 43 24 3a e5 8d  |.C$;:B$=B$+C$:..|
00000390  44 60 44 8b ef 37 3a e5  8d 44 60 44 0d 04 6a 07  |D`D..7:..D`D..j.|
000003a0  3d 42 24 0d 04 74 35 dd  a4 50 28 58 25 2c 59 25  |=B$..t5..P(X%,Y%|
000003b0  2c 4c 24 2c 47 25 2c 48  25 29 3a f1 8a 58 25 2c  |,L$,G%,H%):..X%,|
000003c0  59 25 29 3b 4c 24 3b 3a  42 24 3d a4 49 28 47 25  |Y%);L$;:B$=.I(G%|
000003d0  2c 48 25 29 3a 3d 42 24  0d 04 7e 16 dd f2 6b f5  |,H%):=B$..~...k.|
000003e0  42 24 3d bf 30 3a fd 42  24 3d 22 22 3a e1 0d 04  |B$=.0:.B$="":...|
000003f0  88 75 dd a4 59 28 41 25  2c 44 25 2c 4c 24 29 f2  |.u..Y(A%,D%,L$).|
00000400  61 28 22 46 58 32 31 22  29 3a f1 8a 41 25 2c 44  |a("FX21"):..A%,D|
00000410  25 29 89 33 39 3a f2 53  28 2d 31 29 3a f1 8a 41  |%).39:.S(-1):..A|
00000420  25 2c 44 25 29 3b 4c 24  3b 22 3f 20 28 59 2f 4e  |%,D%);L$;"? (Y/N|
00000430  29 22 3b 3a f2 53 28 30  29 3a f5 42 24 3d be 3a  |)";:.S(0):.B$=.:|
00000440  fd a7 22 79 59 6e 4e 22  2c 42 24 29 3c 3e 30 3a  |.."yYnN",B$)<>0:|
00000450  e7 a7 22 79 59 22 2c 42  24 29 3d 30 8c 3d 30 8b  |.."yY",B$)=0.=0.|
00000460  3d 2d 31 0d 04 92 2b dd  a4 43 28 41 25 29 f2 61  |=-1...+..C(A%).a|
00000470  28 22 46 58 32 31 22 29  3a f5 41 24 3d be 3a e7  |("FX21"):.A$=.:.|
00000480  bb 41 24 3c 31 84 bb 41  24 3e 41 25 ef 37 0d 04  |.A$<1..A$>A%.7..|
00000490  9c 1d fd 41 24 3e 22 30  22 80 41 24 3c 3d bd 28  |...A$>"0".A$<=.(|
000004a0  34 38 2b 41 25 29 3a 3d  bb 41 24 0d 04 a6 7d dd  |48+A%):=.A$...}.|
000004b0  f2 49 f2 6c 3a f2 47 3a  e7 72 25 f1 8a 32 30 2c  |.I.l:.G:.r%..20,|
000004c0  33 30 29 3b 54 2f 32 8a  33 39 2c 33 30 29 22 30  |30);T/2.39,30)"0|
000004d0  22 8a 33 36 2c 33 30 29  3b 54 3b 3a ef 31 31 3a  |".36,30);T;:.11:|
000004e0  8b f1 8a 31 30 2a 55 25  2c 33 30 29 89 28 32 39  |...10*U%,30).(29|
000004f0  2a 55 25 29 3b 8a 32 32  2a 55 25 2d 28 a9 28 c3  |*U%);.22*U%-(.(.|
00000500  28 78 25 2f 32 29 29 29  2c 33 30 29 3b 78 25 2f  |(x%/2))),30);x%/|
00000510  32 8a 34 30 2a 55 25 2d  28 a9 c3 28 78 25 29 29  |2.40*U%-(..(x%))|
00000520  2c 33 30 29 3b 78 25 3b  0d 04 b0 75 e7 4d 25 3d  |,30);x%;...u.M%=|
00000530  30 f1 8a 32 30 2c 33 30  29 89 35 39 3a e7 72 25  |0..20,30).59:.r%|
00000540  f1 8a 34 31 2c 33 30 29  3b 54 2f 32 8a 37 39 2c  |..41,30);T/2.79,|
00000550  33 30 29 22 30 22 8a 37  36 2c 33 30 29 3b 54 3b  |30)"0".76,30);T;|
00000560  3a ef 31 31 3a 8b e7 4d  25 3d 30 f1 8a 34 34 2d  |:.11:..M%=0..44-|
00000570  28 a9 28 c3 28 78 25 2f  32 29 29 29 2c 33 30 29  |(.(.(x%/2))),30)|
00000580  3b 78 25 2f 32 8a 38 30  2d 28 a9 c3 28 78 25 29  |;x%/2.80-(..(x%)|
00000590  29 2c 33 30 29 3b 78 25  3b 3a ef 31 31 0d 04 ba  |),30);x%;:.11...|
000005a0  9a e6 30 2c 31 3a ef 32  39 2c 31 30 38 3b 37 32  |..0,1:.29,108;72|
000005b0  3b 31 31 2c 35 2c 32 35  2c 34 2c 30 3b 2d 31 30  |;11,5,25,4,0;-10|
000005c0  3b 2d 33 2c 34 2c 32 38  2c 30 2c 33 30 2c 30 2c  |;-3,4,28,0,30,0,|
000005d0  31 31 3a db 3a fb 31 3a  f1 89 37 22 76 6f 6c 74  |11:.:.1:..7"volt|
000005e0  73 22 3a f2 6c 3a f1 8a  31 30 2a 55 25 2c 33 31  |s":.l:..10*U%,31|
000005f0  29 89 32 39 3b 8a 32 30  2a 55 25 2c 33 31 29 47  |).29;.20*U%,31)G|
00000600  24 3b 3a ef 31 31 2c 32  39 2c 31 30 38 3b 37 32  |$;:.11,29,108;72|
00000610  3b 35 3a ec 2d 36 38 2c  35 39 36 3a ef 2d 32 2c  |;5:.-68,596:.-2,|
00000620  2d 31 3a ec 2d 35 36 2c  31 36 3a ef 2d 33 2c 34  |-1:.-56,16:.-3,4|
00000630  3a ec 30 2c 30 3a e1 0d  04 c4 1f dd f2 68 20 54  |:.0,0:.......h T|
00000640  24 3d 22 98 28 43 29 4d  2e 47 6f 6c 64 66 69 6e  |$=".(C)M.Goldfin|
00000650  63 68 9c 22 3a e1 0d 04  ce 28 dd f2 6f f5 46 24  |ch.":....(..o.F$|
00000660  3d a4 50 28 30 2c 33 2c  22 46 69 6c 65 20 22 2c  |=.P(0,3,"File ",|
00000670  30 2c 39 29 3a fd 46 24  3c 3e 22 22 3a e1 0d 04  |0,9):.F$<>"":...|
00000680  d8 14 dd f2 73 ee 85 f2  65 3a f2 73 3a e5 8d 54  |....s...e:.s:..T|
00000690  5e 40 0d 04 e2 7a 52 24  3d 22 6c 6f 77 22 3a f1  |^@...zR$="low":.|
000006a0  8a 30 2c 39 29 89 33 38  3a f2 62 28 30 2c 38 2c  |.0,9).38:.b(0,8,|
000006b0  33 39 2c 32 29 3a ef 37  3a db 3a f1 27 22 53 65  |39,2):.7:.:.'"Se|
000006c0  6c 65 63 74 20 64 69 73  63 20 73 74 6f 72 61 67  |lect disc storag|
000006d0  65 20 72 65 73 6f 6c 75  74 69 6f 6e 22 27 27 22  |e resolution"''"|
000006e0  5b 31 5d 20 68 69 67 68  22 27 22 5b 32 5d 20 6c  |[1] high"'"[2] l|
000006f0  6f 77 22 3a 42 25 3d a4  43 28 32 29 3a e7 42 25  |ow":B%=.C(2):.B%|
00000700  3d 31 20 52 24 3d 22 68  69 67 68 22 0d 04 ec 40  |=1 R$="high"...@|
00000710  f5 db 3a f1 27 52 24 3b  22 20 72 65 73 6f 6c 75  |..:.'R$;" resolu|
00000720  74 69 6f 6e 22 3a f2 6f  3a e7 ac 4f 25 54 24 3d  |tion":.o:..O%T$=|
00000730  a4 50 28 30 2c 33 2c 22  44 61 74 61 20 68 65 61  |.P(0,3,"Data hea|
00000740  64 69 6e 67 3a 22 2c 30  2c 31 35 29 0d 04 f6 36  |ding:",0,15)...6|
00000750  4c 25 3d a4 59 28 30 2c  33 2c 22 55 70 64 61 74  |L%=.Y(0,3,"Updat|
00000760  65 20 45 58 49 53 54 49  4e 47 20 66 69 6c 65 22  |e EXISTING file"|
00000770  29 3a e7 4c 25 53 25 3d  ad 46 24 8b 53 25 3d ae  |):.L%S%=.F$.S%=.|
00000780  46 24 0d 05 00 3d e7 53  25 3d 30 db 3a f1 27 27  |F$...=.S%=0.:.''|
00000790  22 46 69 6c 65 20 6e 6f  74 20 66 6f 75 6e 64 3a  |"File not found:|
000007a0  20 6f 70 65 6e 20 6e 65  77 20 66 69 6c 65 22 3a  | open new file":|
000007b0  d9 23 30 3a f2 64 28 35  29 3a fd 53 25 3e 30 0d  |.#0:.d(5):.S%>0.|
000007c0  05 0a 31 f1 23 53 25 2c  4f 25 3a e7 4f 25 f1 23  |..1.#S%,O%:.O%.#|
000007d0  53 25 2c 61 24 2c 62 24  2c 63 24 2c 64 24 2c 65  |S%,a$,b$,c$,d$,e|
000007e0  24 2c 66 24 2c 67 24 2c  68 24 2c 69 24 2c 6a 24  |$,f$,g$,h$,i$,j$|
000007f0  0d 05 14 52 f1 23 53 25  2c 42 2c 72 25 2c 54 2c  |...R.#S%,B,r%,T,|
00000800  73 25 2c 47 24 2c 54 24  2c 42 25 2c 54 25 2c 78  |s%,G$,T$,B%,T%,x|
00000810  25 3a f2 75 3a f2 48 28  44 29 3a d9 23 53 25 3a  |%:.u:.H(D):.#S%:|
00000820  db 3a ef 37 3a f1 27 27  46 24 3b 22 20 73 61 76  |.:.7:.''F$;" sav|
00000830  65 64 22 3a f2 64 28 35  29 3a 42 25 3d 31 3a db  |ed":.d(5):B%=1:.|
00000840  3a e1 0d 05 1e 35 dd f2  75 f2 33 3a e7 72 25 44  |:....5..u.3:.r%D|
00000850  3d 42 2f 54 8b e7 54 25  3c 37 84 28 54 25 3c 31  |=B/T..T%<7.(T%<1|
00000860  38 80 73 25 29 44 3d 28  42 2f 54 25 29 2a 42 25  |8.s%)D=(B/T%)*B%|
00000870  8b 44 3d 42 25 2a 32 0d  05 28 11 e7 51 25 84 52  |.D=B%*2..(..Q%.R|
00000880  25 8c 8d 54 72 45 8b e1  0d 05 32 2f e7 72 25 44  |%..TrE....2/.r%D|
00000890  3d 42 2f 54 8b e7 54 25  3c 34 84 28 54 25 3c 31  |=B/T..T%<4.(T%<1|
000008a0  32 80 73 25 29 44 3d 28  42 2f 54 25 29 2a 42 25  |2.s%)D=(B/T%)*B%|
000008b0  8b 44 3d 42 25 2a 32 0d  05 3c 05 e1 0d 05 46 14  |.D=B%*2..<....F.|
000008c0  dd f2 72 ee 85 f2 65 3a  f2 72 3a e5 8d 54 5e 40  |..r...e:.r:..T^@|
000008d0  0d 05 50 68 d9 23 30 3a  e6 30 2c 33 3a f2 45 3a  |..Ph.#0:.0,3:.E:|
000008e0  f2 62 28 30 2c 38 2c 33  39 2c 32 29 3a fb 31 3a  |.b(0,8,39,2):.1:|
000008f0  f1 27 22 4c 6f 61 64 20  64 61 74 61 22 3a fb 33  |.'"Load data":.3|
00000900  3a f2 6f 3a 53 25 3d ad  46 24 3a e8 23 53 25 2c  |:.o:S%=.F$:.#S%,|
00000910  4f 25 3a e7 4f 25 e8 23  53 25 2c 61 24 2c 62 24  |O%:.O%.#S%,a$,b$|
00000920  2c 63 24 2c 64 24 2c 65  24 2c 66 24 2c 67 24 2c  |,c$,d$,e$,f$,g$,|
00000930  68 24 2c 69 24 2c 6a 24  0d 05 5a 3a e8 23 53 25  |h$,i$,j$..Z:.#S%|
00000940  2c 42 2c 72 25 2c 54 2c  73 25 2c 47 24 2c 54 24  |,B,r%,T,s%,G$,T$|
00000950  2c 42 25 2c 54 25 2c 78  25 3a 45 24 3d 22 68 69  |,B%,T%,x%:E$="hi|
00000960  67 68 22 3a e7 42 25 3d  32 20 45 24 3d 22 6c 6f  |gh":.B%=2 E$="lo|
00000970  77 22 0d 05 64 62 db 3a  f1 27 22 46 69 6c 65 20  |w"..db.:.'"File |
00000980  22 3b 46 24 27 27 45 24  3b 22 20 72 65 73 6f 6c  |";F$''E$;" resol|
00000990  75 74 69 6f 6e 22 3a f2  75 3a ef 32 39 2c 31 30  |ution":.u:.29,10|
000009a0  38 3b 37 32 3b 3a ec 30  2c 30 3a f2 4a 28 44 29  |8;72;:.0,0:.J(D)|
000009b0  3a d9 23 53 25 3a ec 30  2c 30 3a ef 37 3a f2 64  |:.#S%:.0,0:.7:.d|
000009c0  28 32 29 3a db 3a f2 6a  3a f2 49 3a f2 53 28 2d  |(2):.:.j:.I:.S(-|
000009d0  31 29 3a e1 0d 05 6e 31  dd f2 4a 28 43 29 e3 58  |1):...n1..J(C).X|
000009e0  3d 30 b8 31 31 35 39 88  43 3a e8 23 53 25 2c 55  |=0.1159.C:.#S%,U|
000009f0  25 28 58 81 32 29 3a df  58 2c 55 25 28 58 81 32  |%(X.2):.X,U%(X.2|
00000a00  29 3a ed 3a e1 0d 05 78  26 dd f2 48 28 43 29 e3  |):.:...x&..H(C).|
00000a10  49 3d 30 b8 31 31 35 39  88 43 3a f1 23 53 25 2c  |I=0.1159.C:.#S%,|
00000a20  55 25 28 49 81 32 29 3a  ed 3a e1 0d 05 82 46 dd  |U%(I.2):.:....F.|
00000a30  f2 41 ef 31 39 2c 30 2c  36 3b 30 3b 31 39 2c 33  |.A.19,0,6;0;19,3|
00000a40  2c 34 3b 30 3b 31 39 2c  32 2c 33 3b 30 3b 31 39  |,4;0;19,2,3;0;19|
00000a50  2c 31 2c 31 3b 30 3b 3a  f2 68 3a f2 72 3a fb 32  |,1,1;0;:.h:.r:.2|
00000a60  3a f1 8a 30 2c 30 29 22  45 44 49 54 4f 52 20 7c  |:..0,0)"EDITOR ||
00000a70  22 0d 05 8c 9e f1 8a 30  2c 39 29 89 34 30 3b 3a  |"......0,9).40;:|
00000a80  f2 62 28 30 2c 38 2c 33  39 2c 32 29 3a f2 53 28  |.b(0,8,39,2):.S(|
00000a90  2d 31 29 3a db 3a fb 30  3a f1 27 22 43 75 72 73  |-1):.:.0:.'"Curs|
00000aa0  6f 72 20 6b 65 79 73 20  73 65 74 20 73 65 63 74  |or keys set sect|
00000ab0  6f 72 20 3c 53 68 69 66  74 3e 3d 66 61 73 74 20  |or <Shift>=fast |
00000ac0  74 68 65 6e 4b 65 79 20  3c 45 3e 20 74 6f 20 65  |thenKey <E> to e|
00000ad0  64 69 74 22 3a ef 32 39  2c 31 30 38 3b 37 32 3b  |dit":.29,108;72;|
00000ae0  35 3a 47 3d 44 2f 32 3a  41 3d 30 3a f5 e7 a6 2d  |5:G=D/2:A=0:...-|
00000af0  32 36 80 41 3e 30 20 41  3d 41 2d 47 8b e7 a6 2d  |26.A>0 A=A-G...-|
00000b00  31 32 32 80 41 3c 35 35  38 20 41 3d 41 2b 47 0d  |122.A<558 A=A+G.|
00000b10  05 96 14 e7 a6 2d 31 20  47 3d 32 2a 44 8b 47 3d  |.....-1 G=2*D.G=|
00000b20  44 2f 32 0d 05 a0 45 ef  34 3a f1 8a 30 2c 34 29  |D/2...E.4:..0,4)|
00000b30  89 34 8a 30 2c 34 29 22  78 3a 22 3b 41 81 31 3b  |.4.0,4)"x:";A.1;|
00000b40  3a ef 35 3a f2 44 3a f2  44 3a fd a6 2d 33 35 3a  |:.5:.D:.D:..-35:|
00000b50  ef 34 3a e7 41 3c 30 20  41 3d 30 8b e7 41 3e 35  |.4:.A<0 A=0..A>5|
00000b60  37 30 20 41 3d 35 35 38  0d 05 aa d9 f2 44 3a f2  |70 A=558.....D:.|
00000b70  6c 3a fb 32 3a f1 8a 39  2c 30 29 22 3c 50 3e 20  |l:.2:..9,0)"<P> |
00000b80  73 63 61 6e 20 3c 54 41  42 3e 20 65 64 69 74 20  |scan <TAB> edit |
00000b90  2b 20 3c 52 45 54 55 52  4e 3e 22 3a f2 62 28 30  |+ <RETURN>":.b(0|
00000ba0  2c 38 2c 33 39 2c 32 29  3a f2 6c 3a f2 62 28 30  |,8,39,2):.l:.b(0|
00000bb0  2c 31 2c 33 39 2c 31 29  3a fb 31 32 39 3a db 3a  |,1,39,1):.129:.:|
00000bc0  e6 30 2c 32 3a ec 30 2c  39 36 30 3a df 31 32 37  |.0,2:.0,960:.127|
00000bd0  39 2c 39 36 30 3a fb 30  3a f1 8a 31 2c 30 29 22  |9,960:.0:..1,0)"|
00000be0  78 22 8a 38 2c 30 29 22  79 22 8a 31 34 2c 30 29  |x".8,0)"y".14,0)|
00000bf0  22 78 22 8a 32 31 2c 30  29 22 79 22 8a 32 37 2c  |"x".21,0)"y".27,|
00000c00  30 29 22 78 22 8a 33 34  2c 30 29 22 79 22 3b 3a  |0)"x".34,0)"y";:|
00000c10  f2 53 28 2d 31 29 3a f2  62 28 30 2c 38 2c 33 39  |.S(-1):.b(0,8,39|
00000c20  2c 32 29 3a db 3a 41 25  3d 30 3a 5f 25 3d 30 3a  |,2):.:A%=0:_%=0:|
00000c30  48 3d 41 3a e3 45 3d 48  b8 48 2b 31 39 88 44 2f  |H=A:.E=H.H+19.D/|
00000c40  32 0d 05 b4 4b f1 8a 41  25 2c 5f 25 29 22 20 22  |2...K..A%,_%)" "|
00000c50  3b 45 2a 32 81 31 3b 3a  f1 c4 37 2d a9 c3 28 45  |;E*2.1;:..7-..(E|
00000c60  2a 32 81 31 29 2c 22 2e  22 29 3b 55 25 28 45 29  |*2.1),".");U%(E)|
00000c70  3b 3a 5f 25 3d 5f 25 2b  31 3a e7 5f 25 3e 36 5f  |;:_%=_%+1:._%>6_|
00000c80  25 3d 30 3a 41 25 3d 41  25 2b 31 33 0d 05 be 27  |%=0:A%=A%+13...'|
00000c90  ed 3a e6 38 38 2c 32 3a  ec 30 2c 37 33 38 3a df  |.:.88,2:.0,738:.|
00000ca0  31 32 37 39 2c 37 33 38  3a e6 30 2c 31 3a f2 53  |1279,738:.0,1:.S|
00000cb0  28 30 29 0d 05 c8 5d f2  6c 3a f1 8a 30 2c 39 29  |(0)...].l:..0,9)|
00000cc0  89 34 30 3b 3a f2 62 28  30 2c 38 2c 33 39 2c 32  |.40;:.b(0,8,39,2|
00000cd0  29 3a 41 25 3d 38 3a 5f  25 3d 30 3a 45 3d 41 3a  |):A%=8:_%=0:E=A:|
00000ce0  f5 f1 8a 41 25 2c 5f 25  29 3b 55 25 28 45 29 3b  |...A%,_%);U%(E);|
00000cf0  3a f5 41 24 3d be 3a fd  a7 22 70 50 22 2b bd 39  |:.A$=.:.."pP"+.9|
00000d00  2c 41 24 29 3a e7 41 24  3d bd 39 8c 8d 64 70 45  |,A$):.A$=.9..dpE|
00000d10  0d 05 d2 3f f2 53 28 2d  31 29 3a f1 8a 41 25 2c  |...?.S(-1):..A%,|
00000d20  5f 25 29 3b 55 25 28 45  29 3b 3a f2 53 28 30 29  |_%);U%(E);:.S(0)|
00000d30  3a 45 3d 45 2b 44 2f 32  3a e7 45 3e 41 2b 31 39  |:E=E+D/2:.E>A+19|
00000d40  20 45 3d 41 3a 5f 25 3d  36 3a 41 25 3d 32 33 0d  | E=A:_%=6:A%=23.|
00000d50  05 dc 1e 5f 25 3d 5f 25  2b 31 3a e7 5f 25 3e 36  |..._%=_%+1:._%>6|
00000d60  5f 25 3d 30 3a 41 25 3d  41 25 2b 31 33 0d 05 e6  |_%=0:A%=A%+13...|
00000d70  0e e7 41 25 3e 33 34 41  25 3d 38 0d 05 f0 71 fd  |..A%>34A%=8...q.|
00000d80  41 24 3d bd 39 3a 41 25  3d 41 25 2d 32 3a f5 44  |A$=.9:A%=A%-2:.D|
00000d90  24 3d a4 50 28 41 25 2c  5f 25 2c 22 79 3a 22 2c  |$=.P(A%,_%,"y:",|
00000da0  32 2c 33 29 3a ef 37 3a  fd bb 44 24 3e 2d 31 80  |2,3):.7:..D$>-1.|
00000db0  bb 44 24 3c 36 30 31 3a  55 25 28 45 29 3d bb 44  |.D$<601:U%(E)=.D|
00000dc0  24 3a f2 6c 3a 4c 25 3d  a4 59 28 30 2c 39 2c 22  |$:.l:L%=.Y(0,9,"|
00000dd0  52 65 70 6c 6f 74 20 77  69 74 68 20 6e 65 77 20  |Replot with new |
00000de0  64 61 74 61 22 29 3a e7  4c 25 f2 42 0d 05 fa 9f  |data"):.L%.B....|
00000df0  ef 37 3a 4c 25 3d a4 59  28 30 2c 39 2c 22 43 6f  |.7:L%=.Y(0,9,"Co|
00000e00  6e 74 69 6e 75 65 20 65  64 69 74 69 6e 67 20 74  |ntinue editing t|
00000e10  68 69 73 20 73 65 63 74  6f 72 22 29 3a e7 4c 25  |his sector"):.L%|
00000e20  8c 8d 64 48 45 8b ef 32  39 2c 31 30 38 3b 37 32  |..dHE..29,108;72|
00000e30  3b 3a f2 44 3a 4c 25 3d  a4 59 28 30 2c 39 2c 22  |;:.D:L%=.Y(0,9,"|
00000e40  45 64 69 74 20 6e 65 77  20 73 65 63 74 6f 72 20  |Edit new sector |
00000e50  6f 66 20 74 68 69 73 20  64 61 74 61 22 29 3a e7  |of this data"):.|
00000e60  4c 25 8c 8d 74 4c 45 8b  4c 25 3d a4 59 28 30 2c  |L%..tLE.L%=.Y(0,|
00000e70  39 2c 22 53 61 76 65 20  65 64 69 74 65 64 20 64  |9,"Save edited d|
00000e80  61 74 61 22 29 3a e7 4c  25 f2 73 0d 06 04 31 4c  |ata"):.L%.s...1L|
00000e90  25 3d a4 59 28 30 2c 39  2c 22 4c 6f 61 64 20 4e  |%=.Y(0,9,"Load N|
00000ea0  45 57 20 64 61 74 61 22  29 3a e7 4c 25 f2 6c 3a  |EW data"):.L%.l:|
00000eb0  db 3a f2 41 8b 65 25 3d  2d 31 3a e1 0d 06 0e 40  |.:.A.e%=-1:....@|
00000ec0  dd f2 44 e6 33 2c 31 3a  46 25 3d 36 30 30 3a 47  |..D.3,1:F%=600:G|
00000ed0  25 3d 41 2a 32 3a ec 47  25 2c 30 3a df 47 25 2c  |%=A*2:.G%,0:.G%,|
00000ee0  46 25 3a ec 47 25 2b 34  38 2c 46 25 3a df 47 25  |F%:.G%+48,F%:.G%|
00000ef0  2b 34 38 2c 30 3a e6 30  2c 31 3a e1 0d 06 18 68  |+48,0:.0,1:....h|
00000f00  dd f2 42 f1 8a 30 2c 39  29 22 52 65 64 20 64 6f  |..B..0,9)"Red do|
00000f10  74 74 65 64 20 6c 69 6e  65 20 73 68 6f 77 73 20  |tted line shows |
00000f20  65 64 69 74 65 64 20 64  61 74 61 22 3a ef 32 39  |edited data":.29|
00000f30  2c 31 30 38 3b 37 32 3b  3a ec 30 2c 30 3a e3 46  |,108;72;:.0,0:.F|
00000f40  3d 30 b8 31 31 35 39 88  44 3a f0 32 31 2c 46 2c  |=0.1159.D:.21,F,|
00000f50  55 25 28 46 81 32 29 3a  ed 3a ef 37 3a f2 64 28  |U%(F.2):.:.7:.d(|
00000f60  33 29 3a e1 0d 06 22 8c  dd f2 46 3a f1 8a 30 2c  |3):..."...F:..0,|
00000f70  39 29 22 88 82 9d 84 ff  89 81 49 6e 73 65 72 74  |9)".......Insert|
00000f80  84 44 41 54 41 53 43 4f  50 45 81 6d 61 73 74 65  |.DATASCOPE.maste|
00000f90  72 20 64 69 73 63 22 27  22 20 84 9d 83 69 6e 20  |r disc"'" ...in |
00000fa0  44 52 49 56 45 20 30 87  61 6e 64 20 6b 65 79 20  |DRIVE 0.and key |
00000fb0  3c 53 50 41 43 45 3e 22  3a f5 fd a6 2d 39 39 3a  |<SPACE>":...-99:|
00000fc0  db 3a f1 8a 30 2c 39 29  22 84 9d 83 4c 6f 61 64  |.:..0,9)"...Load|
00000fd0  69 6e 67 82 44 53 63 6f  70 65 4d 22 3a e7 51 25  |ing.DScopeM":.Q%|
00000fe0  84 52 25 8c 8d 54 6c 46  8b d0 3d 26 31 39 30 30  |.R%..TlF..=&1900|
00000ff0  0d 06 2c 10 d7 22 44 53  63 6f 70 65 4d 22 3a e1  |..,.."DScopeM":.|
00001000  0d 06 36 54 dd f2 65 e7  9f 3d 31 37 80 a6 2d 31  |..6T..e..=17..-1|
00001010  31 39 8c 8d 44 40 46 8b  e7 9f 3d 31 37 f9 8b e7  |19..D@F...=17...|
00001020  45 25 3d 32 f2 61 28 22  46 58 32 31 22 29 3a f6  |E%=2.a("FX21"):.|
00001030  3a f2 64 28 35 29 3a e1  8b ee 85 87 3a ef 33 2c  |:.d(5):.....:.3,|
00001040  37 3a db 3a f6 3a f1 27  22 40 20 22 3b 9e 3a f2  |7:.:.:.'"@ ";.:.|
00001050  64 28 38 29 0d 06 40 20  f2 61 28 22 46 58 34 22  |d(8)..@ .a("FX4"|
00001060  29 3a f2 61 28 22 46 58  31 32 22 29 3a ef 32 32  |):.a("FX12"):.22|
00001070  2c 37 3a e0 0d ff                                 |,7:...|
00001076
30-09-88/DSCEDIT.m0
30-09-88/DSCEDIT.m1
30-09-88/DSCEDIT.m2
30-09-88/DSCEDIT.m4
30-09-88/DSCEDIT.m5