Home » CEEFAX disks » telesoftware9.adl » 30-09-88/DSCIMAG
30-09-88/DSCIMAG
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/DSCIMAG |
| Read OK: | ✔ |
| File size: | 1209 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/DSCIMAG
- CEEFAX disks » telesoftware9.adl » 30-09-88/DSCIMAG
File contents
0*|"���DScimag�(C) M.GOLDFINCH�7/87
1*|"���v.8.0�BBC B�6502�MASTER
10IFQ%ORR%DIMI%40ELSEI%=&8D0
20PROCa("FX4,2"):REPEATONERRORPROCe
30MODE7:VDU23,1;0;0;0;0;23,0,2,52;0;0;0;:PROCD:IFE%=1PROCE:PROCF:PROCJ:MODEM%:VDU23,0,10,67;0;0;0;:PROCNELSEIFE%=2PROCE:PROCF:PROCAELSEIFE%=3PROCG
40UNTIL0:END
1000DEFPROCnIFH%PRINTTAB(0,4)"��"'"��"
1010SOUND1,-8,132,8:SOUND3,-8,135,8:SOUND1,-8,158,4:SOUND3,-8,161,4:PROCa("FX213,168"):ENDPROC
1020DEFPROCd(H%)o%=INKEY(H%*100):ENDPROC
1030DEFPROCPPROCa("FX202,32"):ENDPROC
1040DEFPROCJPROCa("FX144,0,1"):ENDPROC
1050DEFPROCa($I%)X%=I%:Y%=I%DIV256:CALL&FFF7:ENDPROC
1060DEFPROCS(K%)IFM%=1THEN1070ELSEIFK%COLOUR129:COLOUR0:ENDPROCELSECOLOUR128:COLOUR1:ENDPROC
1070IFK%COLOUR131:COLOUR0:ENDPROCELSECOLOUR128:COLOUR1:ENDPROC
1080DEFPROCQIFM%=0 U%=2:ENDPROCELSEU%=1:ENDPROC
1090DEFPROCRREPEATUNTILINKEY-99:ENDPROC
1100DEFPROC_(A%)REPEATN%=GET-48:VDU7:UNTILN%<A%ANDN%>-1:ENDPROC
1110DEFPROCb(B%,_%,S%,T%):VDU28,B%,_%,S%,T%:ENDPROC
1120DEFPROCM(A%,G%,H%,K%)CLS:VDU&20,A%,&9D:FORD%=1TO2:VDU31,0,D%,G%,&9D,&8D,H%:PRINT;n$;" ";:VDUA%,&9D,31,15,D%,K%:NEXT:VDU31,1,3,A%:PRINTSTRING$(36,V$);:VDU&9D:PRINTTAB(0,4);:ENDPROC
1130DEFPROCDPROCh:PROCM(&94,&86,&95,&81):PROCY:H%=-1:E%=FNC(3):H%=0:ENDPROC
1140DEFPROCY:PRINT"��������c���������73��� ��"'"����������������5%��� ��":PRINT" �";STRING$(25,V$);"�"'" ��"
1150PRINT"���� 1 Load screen image���any�Mode��"'" �"STRING$(33,V$)"�"'"���� 2 Load data file to edit points � �"STRING$(34,V$)"�"'"���� 3 Reload main�Datascope�program��"'" �"STRING$(34,V$)"�"'" ��"'"���� f7 Select this menu���data erased��"
1160VDU11:PRINT" �";STRING$(35,V$);"�":PRINT" ��"'"���� f8 + f7 END program ��";SPC8';:PRINT" �";STRING$(23,V$);"�"'" ��"'" ��"'" ��":PRINTO$;M$'" �";STRING$(35,V$);"�";:VDU30:ENDPROC
1170DEFPROCh n$=STRING$(32," "):O$=STRING$(15," "):M$=n$:O$="���Auraria�v.8":M$="���(C) M.Goldfinch 1987��":n$="DATASCOPE data analysis system":V$=STRING$(1," "):V$="p":ENDPROC
1180DEFPROCoREPEATF$=FNP(1,3,"File name ",0,9):UNTILF$<>"":ENDPROC
1190DEFFNI(m%,n%)B$="":PRINTSTRING$(n%,"-");:VDU31,POS-n%,VPOS;:PROCk
1200C$=GET$:k%=ASCC$:IFk%=&DTHEN1210ELSEIFk%=&7FANDB$=""THEN1200ELSEIFk%=&7F B$=LEFT$(B$,LENB$-1):PRINTC$;:GOTO1200ELSEIFk%>&FCORk%<&20ORLENB$=n%VDU7:GOTO1200ELSEIF(k%>&2FANDk%<&3A)ORk%=&20OR(m%=1ANDASCC$=&2E)ORm%=0PRINTC$;:B$=B$+C$:GOTO1200ELSEPROCn:GOTO1200
1210=B$
1220DEFFNP(X%,Y%,L$,m%,n%):PRINTTAB(X%,Y%);L$;:B$=FNI(m%,n%):=B$
1230DEFPROCkREPEATB$=INKEY$0:UNTILB$="":ENDPROC
1240DEFFNY(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
1250DEFFNC(A%)PROCa("FX21"):REPEATA$=GET$:IFVALA$<1ORVALA$>A%PROCn
1260UNTILA$>"0"ANDA$<=CHR$(48+A%):=VALA$
1270DEFPROCNCLS:ONERRORPROCe:PROCN:GOTO20
1280VDU19,2,0;0;19,3,1;0;19,0,6;0;19,1,4;0;:COLOUR131:COLOUR0:PRINTTAB(1,2)" * SCREEN COLOURS * ":COLOUR128:COLOUR1:PRINT'" After loading, the screen colours can"'" be altered using the following keys:":COLOUR131:COLOUR0:PRINTTAB(1,8)"[1] cycle colour 0 (background)":COLOUR128:COLOUR1
1290PRINT" [2] cycle colour 1":COLOUR128:COLOUR2:PRINT" [3] cycle colour 2":COLOUR128:COLOUR3:PRINT" [4] cycle colour 3":COLOUR1:PRINT'" [F] enable flashing colours"'" [Q] cancel flashing colours"''" [D] select default palette":COLOUR129:COLOUR0:PRINTTAB(1,18)"[C] select chosen colours ":COLOUR128:COLOUR3
1300PRINT'" Keys are summarized on screen":IFM%<>1PRINTTAB(1,11)SPC20
1310PROCT:CLS:COLOUR131:COLOUR0:PRINTTAB(1,2)" * DISPLAY SCREEN * ":COLOUR128:COLOUR1:PRINT'" After selecting the screen colours the"TAB(1,5)"display can be held until a specified"'" security code is input (useful for"'" exhibitions)."
1320COLOUR131:COLOUR0:PRINTTAB(1,10)" * PRINT SCREEN * ":COLOUR128:COLOUR1:PRINT'" An option to print the screen is"'" available before returning to the menu"'" page.":PROCT:COLOUR128:COLOUR3:VDU19,0,7;0;12
1330PRINTTAB(1,1)"Reload mode [";M%;"] screen data image":PROCo:CLS:IFM%=4 J%=&FFFF5800ELSEJ%=&FFFF3000
1340PROCa("L."+F$+" "+STR$~J%):PROCK:PROCL:ENDPROC
1350DEFPROCLVDU20:L%=FNY(0,0,"Print"):IFNOTL%ENDPROC
1360CLS:PROCa("FX21"):VDU29,0;0;:IFV%!18<>&FFC984A5PRINT"Code error";:VDU7:PROCd(9):ENDPROC
1370CALLV%:L%=FNY(0,0,"Repeat"):IFL%THEN1360ELSEENDPROC
1380DEFPROCE A$="]�Mode ":PROCb(0,21,39,4):CLS:PRINT'''" ���� Select�MODE�for reloaded screen �":PROCB:PROC_(3):PROCC:M%=N%^2:PROCd(5):CLS:ENDPROC
1390DEFPROCF:A$="]�Drive "
1400PRINT'''" ���� Select�DRIVE number�(0-3) �":PROCB:PRINTTAB(16,7)"2"'" ���� 3 "A$"3� �selected � �":PROC_(4):PROCC:PROCa("DR."+STR$N%):PROCd(5):CLS:L%=FNY(1,3,"���Disc catalogue�"):IFNOTL%ENDPROCELSEVDU12,14:PRINT"���<SHIFT>�scrolls screen":PROCa("."):PROCH:ENDPROC
1410DEFPROCCPRINTTAB(18,N%+5)"���":ENDPROC
1420DEFPROCBPRINT'" ���� 0 "A$"0� �selected � �"'" ���� 1 "A$"1� �selected � �"'" ���� 2 "A$"4� �selected � �":PRINTTAB(20,5)"�"TAB(20,6)"�"TAB(20,7)"�":ENDPROC
1430DEFPROCHVDU26:PRINTTAB(26,21)"��� <SPACE>�]":PROCR:ENDPROC
1440DEFPROCIPRINTTAB(1,12)"��� key�<SPACE>�] �":PROCR:ENDPROC
1450DEFPROCTPRINTTAB(24,30)" � key <SPACE>";:PROCR:ENDPROC
1460DEFPROCKPROCP:PROCb(0,1,39,1):PROCS(0):CLS:COLOUR3:PRINT"[1-4] [F/Q] flash [D] normal [C] select";:A%=0:P%=0:F%=0:REPEATO%=-1:J%=GET-49:IFJ%=19VDU20:O%=0:ELSEIFJ%=18 F%=-1:O%=0:ELSEIFJ%=21 A%=8:ELSEIFJ%=32 A%=0
1470IFJ%<0ORJ%>3VDU7:O%=0
1480IFO%VDU19,J%,P%;0;
1490P%=P%+1:IFP%>7+A%P%=0
1500UNTILF%:CLS:VDU7:COLOUR131:COLOUR0:PROCP:PRINT"Display graph until set code used? Y/N ";:REPEATB$=GET$:UNTILINSTR("NY",B$)<>0:IFINSTR("Y",B$)=0ENDPROCELSECLS
1510REPEATF$=FNP(0,0,"Type security code sequence:",0,6):UNTILF$<>"":CLS:PRINT"Personal code sequence set..";:PROCd(2):VDU7:PROCS(0):CLS:REPEATD$=FNP(0,0,"",0,6):UNTILD$=F$:ENDPROC
1520DEFPROCAPROCO:PRINTTAB(1,3)"�����Loading�DScedit. �":CHAIN"DScedit":ENDPROC
1530DEFPROCGPROCO:PRINTTAB(1,3)"�����Reloading�Datascope�main program.�":PROCa("FX225,1"):IFQ%ORR%THEN1540ELSEPAGE=&1900
1540CHAIN"DScopeM":ENDPROC
1550DEFPROCOPROCa("DR.0"):PROCb(0,20,39,4):CLS:PRINTTAB(0,3)"�����Option�";E%;"�selected �"''"���Insert�DATASCOPE�master disc �"'"���in DRIVE 0"SPC20"�":PROCI:CLS:ENDPROC
1560DEFPROCeVDU7:IFERR=17ANDINKEY-119THEN1590ELSEIFERR=17RUN
1570IFE%=1REPORT:PROCd(5):ENDPROC
1580ONERROROFF:PROCa("FX21"):VDU3,7:CLS:PRINT':REPORT:PRINT'"@ ";ERL:PROCd(8)
1590PROCa("FX4"):PROCa("FX12"):VDU22,7,7:END
&*|"���DScimag�(C) M.GOLDFINCH�7/87
!*|"���v.8.0�BBC B�6502�MASTER
�Q%�R%�I%40�I%=&8D0
�a("FX4,2"):���e
f�7:�23,1;0;0;0;0;23,0,2,52;0;0;0;:�D:�E%=1�E:�F:�J:�M%:�23,0,10,67;0;0;0;:�N��E%=2�E:�F:�A��E%=3�G
(�0:�
���n�H%�0,4)"��"'"��"
�E�1,-8,132,8:�3,-8,135,8:�1,-8,158,4:�3,-8,161,4:�a("FX213,168"):�
���d(H%)o%=�(H%*100):�
��P�a("FX202,32"):�
��J�a("FX144,0,1"):�
$��a($I%)X%=I%:Y%=I%�256:�&FFF7:�
$,��S(K%)�M%=1��TnD��K%�129:�0:�128:�1:�
.�K%�131:�0:�128:�1:�
8��Q�M%=0 U%=2:�U%=1:�
B��R���-99:�
L%��_(A%)�N%=�-48:�7:�N%<A%�N%>-1:�
V&��b(B%,_%,S%,T%):�28,B%,_%,S%,T%:�
`���M(A%,G%,H%,K%)�:�&20,A%,&9D:�D%=1�2:�31,0,D%,G%,&9D,&8D,H%:�;n$;" ";:�A%,&9D,31,15,D%,K%:�:�31,1,3,A%:��36,V$);:�&9D:�0,4);:�
j6��D�h:�M(&94,&86,&95,&81):�Y:H%=-1:E%=�C(3):H%=0:�
t`��Y:�"������c�������73��� ��"'"�������������5%��� ��":�" �";�25,V$);"�"'" ��"
~��"���� 1 Load screen image���any�Mode��"'" �"�33,V$)"�"'"���� 2 Load data file to edit points � �"�34,V$)"�"'"���� 3 Reload main�Datascope�program��"'" �"�34,V$)"�"'" ��"'"���� f7 Select this menu���data erased��"
���11:�" �";�35,V$);"�":�" ��"'"���� f8 + f7 END program ��";�8';:�" �";�23,V$);"�"'" ��"'" ��"'" ��":�O$;M$'" �";�35,V$);"�";:�30:�
����h n$=�32," "):O$=�15," "):M$=n$:O$="���Auraria�v.8":M$="���(C) M.Goldfinch 1987��":n$="DATASCOPE data analysis system":V$=�1," "):V$="p":�
�-��o�F$=�P(1,3,"File name ",0,9):�F$<>"":�
�-ݤI(m%,n%)B$="":��n%,"-");:�31,�-n%,�;:�k
��C$=�:k%=�C$:�k%=&D��tzD��k%=&7F�B$=""��tpD��k%=&7F B$=�B$,�B$-1):�C$;:�tpD��k%>&FC�k%<&20��B$=n%�7:�tpD��(k%>&2F�k%<&3A)�k%=&20�(m%=1��C$=&2E)�m%=0�C$;:B$=B$+C$:�tpD��n:�tpD
�=B$
�5ݤP(X%,Y%,L$,m%,n%):�X%,Y%);L$;:B$=�I(m%,n%):=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%�n
� �A$>"0"�A$<=�(48+A%):=�A$
���N�:��e:�N:�TT@
��19,2,0;0;19,3,1;0;19,0,6;0;19,1,4;0;:�131:�0:�1,2)" * SCREEN COLOURS * ":�128:�1:�'" After loading, the screen colours can"'" be altered using the following keys:":�131:�0:�1,8)"[1] cycle colour 0 (background)":�128:�1
��" [2] cycle colour 1":�128:�2:�" [3] cycle colour 2":�128:�3:�" [4] cycle colour 3":�1:�'" [F] enable flashing colours"'" [Q] cancel flashing colours"''" [D] select default palette":�129:�0:�1,18)"[C] select chosen colours ":�128:�3
7�'" Keys are summarized on screen":�M%<>1�1,11)�20
��T:�:�131:�0:�1,2)" * DISPLAY SCREEN * ":�128:�1:�'" After selecting the screen colours the"�1,5)"display can be held until a specified"'" security code is input (useful for"'" exhibitions)."
(��131:�0:�1,10)" * PRINT SCREEN * ":�128:�1:�'" An option to print the screen is"'" available before returning to the menu"'" page.":�T:�128:�3:�19,0,7;0;12
2W�1,1)"Reload mode [";M%;"] screen data image":�o:�:�M%=4 J%=&FFFF5800�J%=&FFFF3000
< �a("L."+F$+" "+�~J%):�K:�L:�
F#��L�20:L%=�Y(0,0,"Print"):�L%�
PD�:�a("FX21"):�29,0;0;:�V%!18<>&FFC984A5�"Code error";:�7:�d(9):�
Z&�V%:L%=�Y(0,0,"Repeat"):�L%��DPE��
dq��E A$="]�Mode ":�b(0,21,39,4):�:�'''" ���� Select�MODE�for reloaded screen �":�B:�_(3):�C:M%=N%^2:�d(5):�:�
n��F:A$="]�Drive "
x��'''" ���� Select�DRIVE number�(0-3) �":�B:�16,7)"2"'" ���� 3 "A$"3� �selected � �":�_(4):�C:�a("DR."+�N%):�d(5):�:L%=�Y(1,3,"���Disc catalogue�"):�L%��12,14:�"���<SHIFT>�scrolls screen":�a("."):�H:�
���C�18,N%+5)"���":�
����B�'" ���� 0 "A$"0� �selected � �"'" ���� 1 "A$"1� �selected � �"'" ���� 2 "A$"4� �selected � �":�20,5)"�"�20,6)"�"�20,7)"�":�
�'��H�26:�26,21)"��� <SPACE>�]":�R:�
�)��I�1,12)"��� key�<SPACE>�] �":�R:�
�%��T�24,30)" � key <SPACE>";:�R:�
����K�P:�b(0,1,39,1):�S(0):�:�3:�"[1-4] [F/Q] flash [D] normal [C] select";:A%=0:P%=0:F%=0:�O%=-1:J%=�-49:�J%=19�20:O%=0:��J%=18 F%=-1:O%=0:��J%=21 A%=8:��J%=32 A%=0
��J%<0�J%>3�7:O%=0
��O%�19,J%,P%;0;
�P%=P%+1:�P%>7+A%P%=0
�f�F%:�:�7:�131:�0:�P:�"Display graph until set code used? Y/N ";:�B$=�:��"NY",B$)<>0:�"Y",B$)=0��
�F$=�P(0,0,"Type security code sequence:",0,6):�F$<>"":�:�"Personal code sequence set..";:�d(2):�7:�S(0):�:�D$=�P(0,0,"",0,6):�D$=F$:�
�7��A�O:�1,3)"�����Loading�DScedit. �":�"DScedit":�
�[��G�O:�1,3)"�����Reloading�Datascope�main program.�":�a("FX225,1"):�Q%�R%��TDF��=&1900
�"DScopeM":�
���O�a("DR.0"):�b(0,20,39,4):�:�0,3)"�����Option�";E%;"�selected �"''"���Insert�DATASCOPE�master disc �"'"���in DRIVE 0"�20"�":�I:�:�
!��e�7:�=17��-119��TvF��=17�
"�E%=1�:�d(5):�
,-:�a("FX21"):�3,7:�:�':�:�'"@ ";�:�d(8)
6"�a("FX4"):�a("FX12"):�22,7,7:�
� 00000000 0d 00 00 26 2a 7c 22 84 9d 82 44 53 63 69 6d 61 |...&*|"...DScima|
00000010 67 83 28 43 29 20 4d 2e 47 4f 4c 44 46 49 4e 43 |g.(C) M.GOLDFINC|
00000020 48 83 37 2f 38 37 0d 00 01 21 2a 7c 22 84 9d 81 |H.7/87...!*|"...|
00000030 76 2e 38 2e 30 85 42 42 43 20 42 83 36 35 30 32 |v.8.0.BBC B.6502|
00000040 87 4d 41 53 54 45 52 0d 00 0a 17 e7 51 25 84 52 |.MASTER.....Q%.R|
00000050 25 de 49 25 34 30 8b 49 25 3d 26 38 44 30 0d 00 |%.I%40.I%=&8D0..|
00000060 14 15 f2 61 28 22 46 58 34 2c 32 22 29 3a f5 ee |...a("FX4,2"):..|
00000070 85 f2 65 0d 00 1e 66 eb 37 3a ef 32 33 2c 31 3b |..e...f.7:.23,1;|
00000080 30 3b 30 3b 30 3b 30 3b 32 33 2c 30 2c 32 2c 35 |0;0;0;0;23,0,2,5|
00000090 32 3b 30 3b 30 3b 30 3b 3a f2 44 3a e7 45 25 3d |2;0;0;0;:.D:.E%=|
000000a0 31 f2 45 3a f2 46 3a f2 4a 3a eb 4d 25 3a ef 32 |1.E:.F:.J:.M%:.2|
000000b0 33 2c 30 2c 31 30 2c 36 37 3b 30 3b 30 3b 30 3b |3,0,10,67;0;0;0;|
000000c0 3a f2 4e 8b e7 45 25 3d 32 f2 45 3a f2 46 3a f2 |:.N..E%=2.E:.F:.|
000000d0 41 8b e7 45 25 3d 33 f2 47 0d 00 28 08 fd 30 3a |A..E%=3.G..(..0:|
000000e0 e0 0d 03 e8 19 dd f2 6e e7 48 25 f1 8a 30 2c 34 |.......n.H%..0,4|
000000f0 29 22 83 9d 22 27 22 83 9d 22 0d 03 f2 45 d4 31 |)".."'".."...E.1|
00000100 2c 2d 38 2c 31 33 32 2c 38 3a d4 33 2c 2d 38 2c |,-8,132,8:.3,-8,|
00000110 31 33 35 2c 38 3a d4 31 2c 2d 38 2c 31 35 38 2c |135,8:.1,-8,158,|
00000120 34 3a d4 33 2c 2d 38 2c 31 36 31 2c 34 3a f2 61 |4:.3,-8,161,4:.a|
00000130 28 22 46 58 32 31 33 2c 31 36 38 22 29 3a e1 0d |("FX213,168"):..|
00000140 03 fc 19 dd f2 64 28 48 25 29 6f 25 3d a6 28 48 |.....d(H%)o%=.(H|
00000150 25 2a 31 30 30 29 3a e1 0d 04 06 17 dd f2 50 f2 |%*100):.......P.|
00000160 61 28 22 46 58 32 30 32 2c 33 32 22 29 3a e1 0d |a("FX202,32"):..|
00000170 04 10 18 dd f2 4a f2 61 28 22 46 58 31 34 34 2c |.....J.a("FX144,|
00000180 30 2c 31 22 29 3a e1 0d 04 1a 24 dd f2 61 28 24 |0,1"):....$..a($|
00000190 49 25 29 58 25 3d 49 25 3a 59 25 3d 49 25 81 32 |I%)X%=I%:Y%=I%.2|
000001a0 35 36 3a d6 26 46 46 46 37 3a e1 0d 04 24 2c dd |56:.&FFF7:...$,.|
000001b0 f2 53 28 4b 25 29 e7 4d 25 3d 31 8c 8d 54 6e 44 |.S(K%).M%=1..TnD|
000001c0 8b e7 4b 25 fb 31 32 39 3a fb 30 3a e1 8b fb 31 |..K%.129:.0:...1|
000001d0 32 38 3a fb 31 3a e1 0d 04 2e 1a e7 4b 25 fb 31 |28:.1:......K%.1|
000001e0 33 31 3a fb 30 3a e1 8b fb 31 32 38 3a fb 31 3a |31:.0:...128:.1:|
000001f0 e1 0d 04 38 1a dd f2 51 e7 4d 25 3d 30 20 55 25 |...8...Q.M%=0 U%|
00000200 3d 32 3a e1 8b 55 25 3d 31 3a e1 0d 04 42 0f dd |=2:..U%=1:...B..|
00000210 f2 52 f5 fd a6 2d 39 39 3a e1 0d 04 4c 25 dd f2 |.R...-99:...L%..|
00000220 5f 28 41 25 29 f5 4e 25 3d a5 2d 34 38 3a ef 37 |_(A%).N%=.-48:.7|
00000230 3a fd 4e 25 3c 41 25 80 4e 25 3e 2d 31 3a e1 0d |:.N%<A%.N%>-1:..|
00000240 04 56 26 dd f2 62 28 42 25 2c 5f 25 2c 53 25 2c |.V&..b(B%,_%,S%,|
00000250 54 25 29 3a ef 32 38 2c 42 25 2c 5f 25 2c 53 25 |T%):.28,B%,_%,S%|
00000260 2c 54 25 3a e1 0d 04 60 85 dd f2 4d 28 41 25 2c |,T%:...`...M(A%,|
00000270 47 25 2c 48 25 2c 4b 25 29 db 3a ef 26 32 30 2c |G%,H%,K%).:.&20,|
00000280 41 25 2c 26 39 44 3a e3 44 25 3d 31 b8 32 3a ef |A%,&9D:.D%=1.2:.|
00000290 33 31 2c 30 2c 44 25 2c 47 25 2c 26 39 44 2c 26 |31,0,D%,G%,&9D,&|
000002a0 38 44 2c 48 25 3a f1 3b 6e 24 3b 22 20 20 22 3b |8D,H%:.;n$;" ";|
000002b0 3a ef 41 25 2c 26 39 44 2c 33 31 2c 31 35 2c 44 |:.A%,&9D,31,15,D|
000002c0 25 2c 4b 25 3a ed 3a ef 33 31 2c 31 2c 33 2c 41 |%,K%:.:.31,1,3,A|
000002d0 25 3a f1 c4 33 36 2c 56 24 29 3b 3a ef 26 39 44 |%:..36,V$);:.&9D|
000002e0 3a f1 8a 30 2c 34 29 3b 3a e1 0d 04 6a 36 dd f2 |:..0,4);:...j6..|
000002f0 44 f2 68 3a f2 4d 28 26 39 34 2c 26 38 36 2c 26 |D.h:.M(&94,&86,&|
00000300 39 35 2c 26 38 31 29 3a f2 59 3a 48 25 3d 2d 31 |95,&81):.Y:H%=-1|
00000310 3a 45 25 3d a4 43 28 33 29 3a 48 25 3d 30 3a e1 |:E%=.C(3):H%=0:.|
00000320 0d 04 74 60 dd f2 59 3a f1 22 9a 9d 91 b7 f3 b7 |..t`..Y:."......|
00000330 fb eb b7 fb 63 f7 e3 ff b7 b3 b7 b3 f7 e3 b7 37 |....c..........7|
00000340 33 b7 ef eb 20 94 9d 22 27 22 9a 9d 91 bd a4 b5 |3... .."'"......|
00000350 ee aa b5 ee aa ff ea ff b5 a5 b5 fc ff ea b5 35 |...............5|
00000360 25 b5 fd ea 20 94 9d 22 3a f1 22 20 94 22 3b c4 |%... ..":." .";.|
00000370 32 35 2c 56 24 29 3b 22 9d 22 27 22 20 84 9d 22 |25,V$);"."'" .."|
00000380 0d 04 7e db f1 22 86 9d 81 ff 20 31 20 4c 6f 61 |..~..".... 1 Loa|
00000390 64 20 73 63 72 65 65 6e 20 69 6d 61 67 65 85 ff |d screen image..|
000003a0 85 61 6e 79 81 4d 6f 64 65 84 9d 22 27 22 20 94 |.any.Mode.."'" .|
000003b0 22 c4 33 33 2c 56 24 29 22 9d 22 27 22 86 9d 84 |".33,V$)"."'"...|
000003c0 ff 20 32 20 4c 6f 61 64 20 64 61 74 61 20 66 69 |. 2 Load data fi|
000003d0 6c 65 20 74 6f 20 65 64 69 74 20 70 6f 69 6e 74 |le to edit point|
000003e0 73 20 9d 20 20 20 94 22 c4 33 34 2c 56 24 29 22 |s . .".34,V$)"|
000003f0 9d 22 27 22 85 9d 83 ff 20 33 20 52 65 6c 6f 61 |."'".... 3 Reloa|
00000400 64 20 6d 61 69 6e 87 44 61 74 61 73 63 6f 70 65 |d main.Datascope|
00000410 83 70 72 6f 67 72 61 6d 84 9d 22 27 22 20 94 22 |.program.."'" ."|
00000420 c4 33 34 2c 56 24 29 22 9d 22 27 22 20 84 9d 22 |.34,V$)"."'" .."|
00000430 27 22 82 9d 84 ff 20 66 37 20 53 65 6c 65 63 74 |'".... f7 Select|
00000440 20 74 68 69 73 20 6d 65 6e 75 88 ff 89 64 61 74 | this menu...dat|
00000450 61 20 65 72 61 73 65 64 84 9d 22 0d 04 88 86 ef |a erased..".....|
00000460 31 31 3a f1 22 20 94 22 3b c4 33 35 2c 56 24 29 |11:." .";.35,V$)|
00000470 3b 22 9d 22 3a f1 22 20 84 9d 22 27 22 97 9d 81 |;".":." .."'"...|
00000480 ff 20 66 38 20 2b 20 66 37 20 45 4e 44 20 70 72 |. f8 + f7 END pr|
00000490 6f 67 72 61 6d 20 94 9d 22 3b 89 38 27 3b 3a f1 |ogram ..";.8';:.|
000004a0 22 20 94 22 3b c4 32 33 2c 56 24 29 3b 22 9d 22 |" .";.23,V$);"."|
000004b0 27 22 20 84 9d 22 27 22 20 84 9d 22 27 22 20 84 |'" .."'" .."'" .|
000004c0 9d 22 3a f1 4f 24 3b 4d 24 27 22 20 94 22 3b c4 |.":.O$;M$'" .";.|
000004d0 33 35 2c 56 24 29 3b 22 9d 22 3b 3a ef 33 30 3a |35,V$);".";:.30:|
000004e0 e1 0d 04 92 92 dd f2 68 20 6e 24 3d c4 33 32 2c |.......h n$=.32,|
000004f0 22 20 22 29 3a 4f 24 3d c4 31 35 2c 22 20 22 29 |" "):O$=.15," ")|
00000500 3a 4d 24 3d 6e 24 3a 4f 24 3d 22 81 9d 83 41 75 |:M$=n$:O$="...Au|
00000510 72 61 72 69 61 82 76 2e 38 22 3a 4d 24 3d 22 82 |raria.v.8":M$=".|
00000520 9d 84 28 43 29 20 4d 2e 47 6f 6c 64 66 69 6e 63 |..(C) M.Goldfinc|
00000530 68 20 31 39 38 37 84 9d 22 3a 6e 24 3d 22 44 41 |h 1987..":n$="DA|
00000540 54 41 53 43 4f 50 45 20 20 20 64 61 74 61 20 61 |TASCOPE data a|
00000550 6e 61 6c 79 73 69 73 20 73 79 73 74 65 6d 22 3a |nalysis system":|
00000560 56 24 3d c4 31 2c 22 20 22 29 3a 56 24 3d 22 70 |V$=.1," "):V$="p|
00000570 22 3a e1 0d 04 9c 2d dd f2 6f f5 46 24 3d a4 50 |":....-..o.F$=.P|
00000580 28 31 2c 33 2c 22 46 69 6c 65 20 6e 61 6d 65 20 |(1,3,"File name |
00000590 22 2c 30 2c 39 29 3a fd 46 24 3c 3e 22 22 3a e1 |",0,9):.F$<>"":.|
000005a0 0d 04 a6 2d dd a4 49 28 6d 25 2c 6e 25 29 42 24 |...-..I(m%,n%)B$|
000005b0 3d 22 22 3a f1 c4 6e 25 2c 22 2d 22 29 3b 3a ef |="":..n%,"-");:.|
000005c0 33 31 2c b1 2d 6e 25 2c bc 3b 3a f2 6b 0d 04 b0 |31,.-n%,.;:.k...|
000005d0 b5 43 24 3d be 3a 6b 25 3d 97 43 24 3a e7 6b 25 |.C$=.:k%=.C$:.k%|
000005e0 3d 26 44 8c 8d 74 7a 44 8b e7 6b 25 3d 26 37 46 |=&D..tzD..k%=&7F|
000005f0 80 42 24 3d 22 22 8c 8d 74 70 44 8b e7 6b 25 3d |.B$=""..tpD..k%=|
00000600 26 37 46 20 42 24 3d c0 42 24 2c a9 42 24 2d 31 |&7F B$=.B$,.B$-1|
00000610 29 3a f1 43 24 3b 3a e5 8d 74 70 44 8b e7 6b 25 |):.C$;:..tpD..k%|
00000620 3e 26 46 43 84 6b 25 3c 26 32 30 84 a9 42 24 3d |>&FC.k%<&20..B$=|
00000630 6e 25 ef 37 3a e5 8d 74 70 44 8b e7 28 6b 25 3e |n%.7:..tpD..(k%>|
00000640 26 32 46 80 6b 25 3c 26 33 41 29 84 6b 25 3d 26 |&2F.k%<&3A).k%=&|
00000650 32 30 84 28 6d 25 3d 31 80 97 43 24 3d 26 32 45 |20.(m%=1..C$=&2E|
00000660 29 84 6d 25 3d 30 f1 43 24 3b 3a 42 24 3d 42 24 |).m%=0.C$;:B$=B$|
00000670 2b 43 24 3a e5 8d 74 70 44 8b f2 6e 3a e5 8d 74 |+C$:..tpD..n:..t|
00000680 70 44 0d 04 ba 07 3d 42 24 0d 04 c4 35 dd a4 50 |pD....=B$...5..P|
00000690 28 58 25 2c 59 25 2c 4c 24 2c 6d 25 2c 6e 25 29 |(X%,Y%,L$,m%,n%)|
000006a0 3a f1 8a 58 25 2c 59 25 29 3b 4c 24 3b 3a 42 24 |:..X%,Y%);L$;:B$|
000006b0 3d a4 49 28 6d 25 2c 6e 25 29 3a 3d 42 24 0d 04 |=.I(m%,n%):=B$..|
000006c0 ce 16 dd f2 6b f5 42 24 3d bf 30 3a fd 42 24 3d |....k.B$=.0:.B$=|
000006d0 22 22 3a e1 0d 04 d8 75 dd a4 59 28 41 25 2c 44 |"":....u..Y(A%,D|
000006e0 25 2c 4c 24 29 f2 61 28 22 46 58 32 31 22 29 3a |%,L$).a("FX21"):|
000006f0 f1 8a 41 25 2c 44 25 29 89 33 39 3a f2 53 28 2d |..A%,D%).39:.S(-|
00000700 31 29 3a f1 8a 41 25 2c 44 25 29 3b 4c 24 3b 22 |1):..A%,D%);L$;"|
00000710 3f 20 28 59 2f 4e 29 22 3b 3a f2 53 28 30 29 3a |? (Y/N)";:.S(0):|
00000720 f5 42 24 3d be 3a fd a7 22 79 59 6e 4e 22 2c 42 |.B$=.:.."yYnN",B|
00000730 24 29 3c 3e 30 3a e7 a7 22 79 59 22 2c 42 24 29 |$)<>0:.."yY",B$)|
00000740 3d 30 8c 3d 30 8b 3d 2d 31 0d 04 e2 2b dd a4 43 |=0.=0.=-1...+..C|
00000750 28 41 25 29 f2 61 28 22 46 58 32 31 22 29 3a f5 |(A%).a("FX21"):.|
00000760 41 24 3d be 3a e7 bb 41 24 3c 31 84 bb 41 24 3e |A$=.:..A$<1..A$>|
00000770 41 25 f2 6e 0d 04 ec 1d fd 41 24 3e 22 30 22 80 |A%.n.....A$>"0".|
00000780 41 24 3c 3d bd 28 34 38 2b 41 25 29 3a 3d bb 41 |A$<=.(48+A%):=.A|
00000790 24 0d 04 f6 16 dd f2 4e db 3a ee 85 f2 65 3a f2 |$......N.:...e:.|
000007a0 4e 3a e5 8d 54 54 40 0d 05 00 e2 ef 31 39 2c 32 |N:..TT@.....19,2|
000007b0 2c 30 3b 30 3b 31 39 2c 33 2c 31 3b 30 3b 31 39 |,0;0;19,3,1;0;19|
000007c0 2c 30 2c 36 3b 30 3b 31 39 2c 31 2c 34 3b 30 3b |,0,6;0;19,1,4;0;|
000007d0 3a fb 31 33 31 3a fb 30 3a f1 8a 31 2c 32 29 22 |:.131:.0:..1,2)"|
000007e0 20 2a 20 53 43 52 45 45 4e 20 43 4f 4c 4f 55 52 | * SCREEN COLOUR|
000007f0 53 20 2a 20 22 3a fb 31 32 38 3a fb 31 3a f1 27 |S * ":.128:.1:.'|
00000800 22 20 20 41 66 74 65 72 20 6c 6f 61 64 69 6e 67 |" After loading|
00000810 2c 20 74 68 65 20 73 63 72 65 65 6e 20 63 6f 6c |, the screen col|
00000820 6f 75 72 73 20 63 61 6e 22 27 22 20 62 65 20 61 |ours can"'" be a|
00000830 6c 74 65 72 65 64 20 75 73 69 6e 67 20 74 68 65 |ltered using the|
00000840 20 66 6f 6c 6c 6f 77 69 6e 67 20 6b 65 79 73 3a | following keys:|
00000850 22 3a fb 31 33 31 3a fb 30 3a f1 8a 31 2c 38 29 |":.131:.0:..1,8)|
00000860 22 5b 31 5d 20 63 79 63 6c 65 20 63 6f 6c 6f 75 |"[1] cycle colou|
00000870 72 20 30 20 28 62 61 63 6b 67 72 6f 75 6e 64 29 |r 0 (background)|
00000880 22 3a fb 31 32 38 3a fb 31 0d 05 0a ee f1 22 20 |":.128:.1....." |
00000890 5b 32 5d 20 63 79 63 6c 65 20 63 6f 6c 6f 75 72 |[2] cycle colour|
000008a0 20 31 22 3a fb 31 32 38 3a fb 32 3a f1 22 20 5b | 1":.128:.2:." [|
000008b0 33 5d 20 63 79 63 6c 65 20 63 6f 6c 6f 75 72 20 |3] cycle colour |
000008c0 32 22 3a fb 31 32 38 3a fb 33 3a f1 22 20 5b 34 |2":.128:.3:." [4|
000008d0 5d 20 63 79 63 6c 65 20 63 6f 6c 6f 75 72 20 33 |] cycle colour 3|
000008e0 22 3a fb 31 3a f1 27 22 20 5b 46 5d 20 65 6e 61 |":.1:.'" [F] ena|
000008f0 62 6c 65 20 66 6c 61 73 68 69 6e 67 20 63 6f 6c |ble flashing col|
00000900 6f 75 72 73 22 27 22 20 5b 51 5d 20 63 61 6e 63 |ours"'" [Q] canc|
00000910 65 6c 20 66 6c 61 73 68 69 6e 67 20 63 6f 6c 6f |el flashing colo|
00000920 75 72 73 22 27 27 22 20 5b 44 5d 20 73 65 6c 65 |urs"''" [D] sele|
00000930 63 74 20 64 65 66 61 75 6c 74 20 70 61 6c 65 74 |ct default palet|
00000940 74 65 22 3a fb 31 32 39 3a fb 30 3a f1 8a 31 2c |te":.129:.0:..1,|
00000950 31 38 29 22 5b 43 5d 20 73 65 6c 65 63 74 20 63 |18)"[C] select c|
00000960 68 6f 73 65 6e 20 63 6f 6c 6f 75 72 73 20 22 3a |hosen colours ":|
00000970 fb 31 32 38 3a fb 33 0d 05 14 37 f1 27 22 20 4b |.128:.3...7.'" K|
00000980 65 79 73 20 61 72 65 20 73 75 6d 6d 61 72 69 7a |eys are summariz|
00000990 65 64 20 6f 6e 20 73 63 72 65 65 6e 22 3a e7 4d |ed on screen":.M|
000009a0 25 3c 3e 31 f1 8a 31 2c 31 31 29 89 32 30 0d 05 |%<>1..1,11).20..|
000009b0 1e c5 f2 54 3a db 3a fb 31 33 31 3a fb 30 3a f1 |...T:.:.131:.0:.|
000009c0 8a 31 2c 32 29 22 20 2a 20 44 49 53 50 4c 41 59 |.1,2)" * DISPLAY|
000009d0 20 53 43 52 45 45 4e 20 2a 20 22 3a fb 31 32 38 | SCREEN * ":.128|
000009e0 3a fb 31 3a f1 27 22 20 20 41 66 74 65 72 20 73 |:.1:.'" After s|
000009f0 65 6c 65 63 74 69 6e 67 20 74 68 65 20 73 63 72 |electing the scr|
00000a00 65 65 6e 20 63 6f 6c 6f 75 72 73 20 74 68 65 22 |een colours the"|
00000a10 8a 31 2c 35 29 22 64 69 73 70 6c 61 79 20 63 61 |.1,5)"display ca|
00000a20 6e 20 62 65 20 68 65 6c 64 20 75 6e 74 69 6c 20 |n be held until |
00000a30 61 20 73 70 65 63 69 66 69 65 64 22 27 22 20 73 |a specified"'" s|
00000a40 65 63 75 72 69 74 79 20 63 6f 64 65 20 69 73 20 |ecurity code is |
00000a50 69 6e 70 75 74 20 28 75 73 65 66 75 6c 20 66 6f |input (useful fo|
00000a60 72 22 27 22 20 65 78 68 69 62 69 74 69 6f 6e 73 |r"'" exhibitions|
00000a70 29 2e 22 0d 05 28 a1 fb 31 33 31 3a fb 30 3a f1 |)."..(..131:.0:.|
00000a80 8a 31 2c 31 30 29 22 20 2a 20 50 52 49 4e 54 20 |.1,10)" * PRINT |
00000a90 53 43 52 45 45 4e 20 2a 20 22 3a fb 31 32 38 3a |SCREEN * ":.128:|
00000aa0 fb 31 3a f1 27 22 20 20 41 6e 20 6f 70 74 69 6f |.1:.'" An optio|
00000ab0 6e 20 74 6f 20 70 72 69 6e 74 20 74 68 65 20 73 |n to print the s|
00000ac0 63 72 65 65 6e 20 69 73 22 27 22 20 61 76 61 69 |creen is"'" avai|
00000ad0 6c 61 62 6c 65 20 62 65 66 6f 72 65 20 72 65 74 |lable before ret|
00000ae0 75 72 6e 69 6e 67 20 74 6f 20 74 68 65 20 6d 65 |urning to the me|
00000af0 6e 75 22 27 22 20 70 61 67 65 2e 22 3a f2 54 3a |nu"'" page.":.T:|
00000b00 fb 31 32 38 3a fb 33 3a ef 31 39 2c 30 2c 37 3b |.128:.3:.19,0,7;|
00000b10 30 3b 31 32 0d 05 32 57 f1 8a 31 2c 31 29 22 52 |0;12..2W..1,1)"R|
00000b20 65 6c 6f 61 64 20 6d 6f 64 65 20 5b 22 3b 4d 25 |eload mode [";M%|
00000b30 3b 22 5d 20 73 63 72 65 65 6e 20 64 61 74 61 20 |;"] screen data |
00000b40 69 6d 61 67 65 22 3a f2 6f 3a db 3a e7 4d 25 3d |image":.o:.:.M%=|
00000b50 34 20 4a 25 3d 26 46 46 46 46 35 38 30 30 8b 4a |4 J%=&FFFF5800.J|
00000b60 25 3d 26 46 46 46 46 33 30 30 30 0d 05 3c 20 f2 |%=&FFFF3000..< .|
00000b70 61 28 22 4c 2e 22 2b 46 24 2b 22 20 22 2b c3 7e |a("L."+F$+" "+.~|
00000b80 4a 25 29 3a f2 4b 3a f2 4c 3a e1 0d 05 46 23 dd |J%):.K:.L:...F#.|
00000b90 f2 4c ef 32 30 3a 4c 25 3d a4 59 28 30 2c 30 2c |.L.20:L%=.Y(0,0,|
00000ba0 22 50 72 69 6e 74 22 29 3a e7 ac 4c 25 e1 0d 05 |"Print"):..L%...|
00000bb0 50 44 db 3a f2 61 28 22 46 58 32 31 22 29 3a ef |PD.:.a("FX21"):.|
00000bc0 32 39 2c 30 3b 30 3b 3a e7 56 25 21 31 38 3c 3e |29,0;0;:.V%!18<>|
00000bd0 26 46 46 43 39 38 34 41 35 f1 22 43 6f 64 65 20 |&FFC984A5."Code |
00000be0 65 72 72 6f 72 22 3b 3a ef 37 3a f2 64 28 39 29 |error";:.7:.d(9)|
00000bf0 3a e1 0d 05 5a 26 d6 56 25 3a 4c 25 3d a4 59 28 |:...Z&.V%:L%=.Y(|
00000c00 30 2c 30 2c 22 52 65 70 65 61 74 22 29 3a e7 4c |0,0,"Repeat"):.L|
00000c10 25 8c 8d 44 50 45 8b e1 0d 05 64 71 dd f2 45 20 |%..DPE....dq..E |
00000c20 41 24 3d 22 5d 81 4d 6f 64 65 20 20 22 3a f2 62 |A$="].Mode ":.b|
00000c30 28 30 2c 32 31 2c 33 39 2c 34 29 3a db 3a f1 27 |(0,21,39,4):.:.'|
00000c40 27 27 22 20 84 9d 87 ff 20 53 65 6c 65 63 74 83 |''" .... Select.|
00000c50 4d 4f 44 45 87 66 6f 72 20 72 65 6c 6f 61 64 65 |MODE.for reloade|
00000c60 64 20 73 63 72 65 65 6e 20 9c 22 3a f2 42 3a f2 |d screen .":.B:.|
00000c70 5f 28 33 29 3a f2 43 3a 4d 25 3d 4e 25 5e 32 3a |_(3):.C:M%=N%^2:|
00000c80 f2 64 28 35 29 3a db 3a e1 0d 05 6e 15 dd f2 46 |.d(5):.:...n...F|
00000c90 3a 41 24 3d 22 5d 85 44 72 69 76 65 20 22 0d 05 |:A$="].Drive "..|
00000ca0 78 cf f1 27 27 27 22 20 83 9d 81 ff 20 53 65 6c |x..'''" .... Sel|
00000cb0 65 63 74 84 44 52 49 56 45 20 6e 75 6d 62 65 72 |ect.DRIVE number|
00000cc0 81 28 30 2d 33 29 20 9c 22 3a f2 42 3a f1 8a 31 |.(0-3) .":.B:..1|
00000cd0 36 2c 37 29 22 32 22 27 22 20 86 9d 84 ff 20 33 |6,7)"2"'" .... 3|
00000ce0 20 22 41 24 22 33 88 20 20 86 73 65 6c 65 63 74 | "A$"3. .select|
00000cf0 65 64 20 ff 20 9c 22 3a f2 5f 28 34 29 3a f2 43 |ed . .":._(4):.C|
00000d00 3a f2 61 28 22 44 52 2e 22 2b c3 4e 25 29 3a f2 |:.a("DR."+.N%):.|
00000d10 64 28 35 29 3a db 3a 4c 25 3d a4 59 28 31 2c 33 |d(5):.:L%=.Y(1,3|
00000d20 2c 22 82 9d 84 44 69 73 63 20 63 61 74 61 6c 6f |,"...Disc catalo|
00000d30 67 75 65 81 22 29 3a e7 ac 4c 25 e1 8b ef 31 32 |gue."):..L%...12|
00000d40 2c 31 34 3a f1 22 81 9d 87 3c 53 48 49 46 54 3e |,14:."...<SHIFT>|
00000d50 86 73 63 72 6f 6c 6c 73 20 73 63 72 65 65 6e 22 |.scrolls screen"|
00000d60 3a f2 61 28 22 2e 22 29 3a f2 48 3a e1 0d 05 82 |:.a("."):.H:....|
00000d70 18 dd f2 43 f1 8a 31 38 2c 4e 25 2b 35 29 22 83 |...C..18,N%+5)".|
00000d80 9d 81 22 3a e1 0d 05 8c 87 dd f2 42 f1 27 22 20 |..":.......B.'" |
00000d90 86 9d 84 ff 20 30 20 22 41 24 22 30 88 20 20 81 |.... 0 "A$"0. .|
00000da0 73 65 6c 65 63 74 65 64 20 ff 20 9c 22 27 22 20 |selected . ."'" |
00000db0 86 9d 84 ff 20 31 20 22 41 24 22 31 88 20 20 81 |.... 1 "A$"1. .|
00000dc0 73 65 6c 65 63 74 65 64 20 ff 20 9c 22 27 22 20 |selected . ."'" |
00000dd0 86 9d 84 ff 20 32 20 22 41 24 22 34 88 20 20 81 |.... 2 "A$"4. .|
00000de0 73 65 6c 65 63 74 65 64 20 ff 20 9c 22 3a f1 8a |selected . .":..|
00000df0 32 30 2c 35 29 22 86 22 8a 32 30 2c 36 29 22 86 |20,5)".".20,6)".|
00000e00 22 8a 32 30 2c 37 29 22 86 22 3a e1 0d 05 96 27 |".20,7)".":....'|
00000e10 dd f2 48 ef 32 36 3a f1 8a 32 36 2c 32 31 29 22 |..H.26:..26,21)"|
00000e20 9d 81 ff 20 3c 53 50 41 43 45 3e 88 5d 22 3a f2 |... <SPACE>.]":.|
00000e30 52 3a e1 0d 05 a0 29 dd f2 49 f1 8a 31 2c 31 32 |R:....)..I..1,12|
00000e40 29 22 9d 81 ff 20 6b 65 79 84 3c 53 50 41 43 45 |)"... key.<SPACE|
00000e50 3e 88 5d 20 20 9c 22 3a f2 52 3a e1 0d 05 aa 25 |>.] .":.R:....%|
00000e60 dd f2 54 f1 8a 32 34 2c 33 30 29 22 20 ee 20 6b |..T..24,30)" . k|
00000e70 65 79 20 3c 53 50 41 43 45 3e 22 3b 3a f2 52 3a |ey <SPACE>";:.R:|
00000e80 e1 0d 05 b4 a7 dd f2 4b f2 50 3a f2 62 28 30 2c |.......K.P:.b(0,|
00000e90 31 2c 33 39 2c 31 29 3a f2 53 28 30 29 3a db 3a |1,39,1):.S(0):.:|
00000ea0 fb 33 3a f1 22 5b 31 2d 34 5d 20 5b 46 2f 51 5d |.3:."[1-4] [F/Q]|
00000eb0 20 66 6c 61 73 68 20 5b 44 5d 20 6e 6f 72 6d 61 | flash [D] norma|
00000ec0 6c 20 5b 43 5d 20 73 65 6c 65 63 74 22 3b 3a 41 |l [C] select";:A|
00000ed0 25 3d 30 3a 50 25 3d 30 3a 46 25 3d 30 3a f5 4f |%=0:P%=0:F%=0:.O|
00000ee0 25 3d 2d 31 3a 4a 25 3d a5 2d 34 39 3a e7 4a 25 |%=-1:J%=.-49:.J%|
00000ef0 3d 31 39 ef 32 30 3a 4f 25 3d 30 3a 8b e7 4a 25 |=19.20:O%=0:..J%|
00000f00 3d 31 38 20 46 25 3d 2d 31 3a 4f 25 3d 30 3a 8b |=18 F%=-1:O%=0:.|
00000f10 e7 4a 25 3d 32 31 20 41 25 3d 38 3a 8b e7 4a 25 |.J%=21 A%=8:..J%|
00000f20 3d 33 32 20 41 25 3d 30 0d 05 be 15 e7 4a 25 3c |=32 A%=0.....J%<|
00000f30 30 84 4a 25 3e 33 ef 37 3a 4f 25 3d 30 0d 05 c8 |0.J%>3.7:O%=0...|
00000f40 13 e7 4f 25 ef 31 39 2c 4a 25 2c 50 25 3b 30 3b |..O%.19,J%,P%;0;|
00000f50 0d 05 d2 18 50 25 3d 50 25 2b 31 3a e7 50 25 3e |....P%=P%+1:.P%>|
00000f60 37 2b 41 25 50 25 3d 30 0d 05 dc 66 fd 46 25 3a |7+A%P%=0...f.F%:|
00000f70 db 3a ef 37 3a fb 31 33 31 3a fb 30 3a f2 50 3a |.:.7:.131:.0:.P:|
00000f80 f1 22 44 69 73 70 6c 61 79 20 67 72 61 70 68 20 |."Display graph |
00000f90 75 6e 74 69 6c 20 73 65 74 20 63 6f 64 65 20 75 |until set code u|
00000fa0 73 65 64 3f 20 59 2f 4e 20 22 3b 3a f5 42 24 3d |sed? Y/N ";:.B$=|
00000fb0 be 3a fd a7 22 4e 59 22 2c 42 24 29 3c 3e 30 3a |.:.."NY",B$)<>0:|
00000fc0 e7 a7 22 59 22 2c 42 24 29 3d 30 e1 8b db 0d 05 |.."Y",B$)=0.....|
00000fd0 e6 8a f5 46 24 3d a4 50 28 30 2c 30 2c 22 54 79 |...F$=.P(0,0,"Ty|
00000fe0 70 65 20 73 65 63 75 72 69 74 79 20 63 6f 64 65 |pe security code|
00000ff0 20 73 65 71 75 65 6e 63 65 3a 22 2c 30 2c 36 29 | sequence:",0,6)|
00001000 3a fd 46 24 3c 3e 22 22 3a db 3a f1 22 50 65 72 |:.F$<>"":.:."Per|
00001010 73 6f 6e 61 6c 20 63 6f 64 65 20 73 65 71 75 65 |sonal code seque|
00001020 6e 63 65 20 73 65 74 2e 2e 22 3b 3a f2 64 28 32 |nce set..";:.d(2|
00001030 29 3a ef 37 3a f2 53 28 30 29 3a db 3a f5 44 24 |):.7:.S(0):.:.D$|
00001040 3d a4 50 28 30 2c 30 2c 22 22 2c 30 2c 36 29 3a |=.P(0,0,"",0,6):|
00001050 fd 44 24 3d 46 24 3a e1 0d 05 f0 37 dd f2 41 f2 |.D$=F$:....7..A.|
00001060 4f 3a f1 8a 31 2c 33 29 22 88 9d 84 ff 89 4c 6f |O:..1,3)".....Lo|
00001070 61 64 69 6e 67 81 44 53 63 65 64 69 74 2e 20 20 |ading.DScedit. |
00001080 9c 22 3a d7 22 44 53 63 65 64 69 74 22 3a e1 0d |.":."DScedit":..|
00001090 05 fa 5b dd f2 47 f2 4f 3a f1 8a 31 2c 33 29 22 |..[..G.O:..1,3)"|
000010a0 88 9d 84 ff 89 52 65 6c 6f 61 64 69 6e 67 81 44 |.....Reloading.D|
000010b0 61 74 61 73 63 6f 70 65 85 6d 61 69 6e 20 70 72 |atascope.main pr|
000010c0 6f 67 72 61 6d 2e 87 22 3a f2 61 28 22 46 58 32 |ogram..":.a("FX2|
000010d0 32 35 2c 31 22 29 3a e7 51 25 84 52 25 8c 8d 54 |25,1"):.Q%.R%..T|
000010e0 44 46 8b d0 3d 26 31 39 30 30 0d 06 04 10 d7 22 |DF..=&1900....."|
000010f0 44 53 63 6f 70 65 4d 22 3a e1 0d 06 0e 8b dd f2 |DScopeM":.......|
00001100 4f f2 61 28 22 44 52 2e 30 22 29 3a f2 62 28 30 |O.a("DR.0"):.b(0|
00001110 2c 32 30 2c 33 39 2c 34 29 3a db 3a f1 8a 30 2c |,20,39,4):.:..0,|
00001120 33 29 22 82 9d 84 ff 81 4f 70 74 69 6f 6e 84 22 |3)".....Option."|
00001130 3b 45 25 3b 22 81 73 65 6c 65 63 74 65 64 20 20 |;E%;".selected |
00001140 9c 22 27 27 22 84 9d 83 49 6e 73 65 72 74 87 44 |."''"...Insert.D|
00001150 41 54 41 53 43 4f 50 45 86 6d 61 73 74 65 72 20 |ATASCOPE.master |
00001160 64 69 73 63 20 20 9c 22 27 22 84 9d 83 69 6e 20 |disc ."'"...in |
00001170 44 52 49 56 45 20 30 22 89 32 30 22 9c 22 3a f2 |DRIVE 0".20".":.|
00001180 49 3a db 3a e1 0d 06 18 21 dd f2 65 ef 37 3a e7 |I:.:....!..e.7:.|
00001190 9f 3d 31 37 80 a6 2d 31 31 39 8c 8d 54 76 46 8b |.=17..-119..TvF.|
000011a0 e7 9f 3d 31 37 f9 0d 06 22 12 e7 45 25 3d 31 f6 |..=17..."..E%=1.|
000011b0 3a f2 64 28 35 29 3a e1 0d 06 2c 2d ee 85 87 3a |:.d(5):...,-...:|
000011c0 f2 61 28 22 46 58 32 31 22 29 3a ef 33 2c 37 3a |.a("FX21"):.3,7:|
000011d0 db 3a f1 27 3a f6 3a f1 27 22 40 20 22 3b 9e 3a |.:.':.:.'"@ ";.:|
000011e0 f2 64 28 38 29 0d 06 36 22 f2 61 28 22 46 58 34 |.d(8)..6".a("FX4|
000011f0 22 29 3a f2 61 28 22 46 58 31 32 22 29 3a ef 32 |"):.a("FX12"):.2|
00001200 32 2c 37 2c 37 3a e0 0d ff |2,7,7:...|
00001209 
30-09-88/DSCIMAG.m0
30-09-88/DSCIMAG.m1
30-09-88/DSCIMAG.m2
30-09-88/DSCIMAG.m4
30-09-88/DSCIMAG.m5
.