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:
- CEEFAX disks » telesoftware6.adl » 20-03-88/DSCEDIT
- CEEFAX disks » telesoftware9.adl » 30-09-88/DSCEDIT
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
.