Home » CEEFAX disks » telesoftware6.adl » 20-03-88/DSCIMAG

20-03-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 » telesoftware6.adl
Filename: 20-03-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:

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
20-03-88/DSCIMAG.m0
20-03-88/DSCIMAG.m1
20-03-88/DSCIMAG.m2
20-03-88/DSCIMAG.m4
20-03-88/DSCIMAG.m5