DFS-ED

Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » DFS-ED

DFS-ED

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

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

Tape/disk:	Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav
Filename:	DFS-ED
Read OK:	✔
File size:	0F6D bytes
Load address:	2000
Exec address:	1900

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » database » database_5_25_discs_Electron-User-7-04_D-E704.ssd » DFS-ED
AEW website » database » database_tapes_Electron-User-7-04_EU7-4_E.uef » DFS-ED
Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » DFS-ED

File contents

   10REM  ************************** 
   20REM  *     DFS DISC EDITOR    *
   30REM  * Written By  Wayne Boyd *
   40REM  *     (c)1989 W.Boyd     *
   50REM  **************************
   60REM          VER 1.1
   70: MODE0: PROCsetup: PROCtitle: REPEAT
  120 PROCinput: REPEAT: PROCread: PROCdis: UNTIL happy: happy=FALSE
  180 PROCedit
  190 PROCcheck: IF load=TRUE THEN load=FALSE:GOTO 120 
  210 IF write=TRUE THEN write=FALSE ELSE GOTO 180
  220 PROCwrite: GOTO 190: UNTIL FALSE: END
  260 DEFPROCsetup: happy=FALSE: write=FALSE: load=FALSE: omit=FALSE:VDU 19,0,0;0;:DIM buffer 256:DIM block 16:osword=&FFF1: ENDPROC 
  360DEFPROCtitle:PRINTSTRING$(80,"*"):PRINTTAB(31)" DFS DISC EDITOR":PRINT'TAB(27)" Written By Wayne G Boyd ":PRINT'STRING$(80,"*"):VDU28,1,31,79,25: PRINT'':CLS: ENDPROC 
  420DEFPROCread:IF da$="" da$="00"
  440dadd=EVAL("&"+da$):?block=0 :REM error number
  460block!1=buffer :REM load address
  470block?5=3
  480block?6=&53
  490block?7=dadd DIV 10
  491block?8=dadd MOD 10
  520block?9=&21
  530A%=&7F:X%=block MOD 256:Y%=block DIV 256:CALL osword:
  580@%=&000904:ENDPROC
  600 DEFPROCmaindis:cu=0:FOR I%=1 TO 16:a$="":PRINT"   ";:FOR K%=1 TO 16:cu=cu+1:byte=?(buffer+cu):IF byte<32 OR byte>126 THEN a$=a$+"." ELSE a$=a$+CHR$(byte)  
  710PRINT" ";~byte DIV 16;~byte MOD 16;: NEXT: PRINT"    ";a$: NEXT:ENDPROC
  760DEFPROCdis:VDU28,0,24,79,8: CLS:PROCmaindis:VDU28,1,31,79,25:CLS:PRINT" Enter new sector address : &";:PRINT"        OR         USE THE CURSOR KEYS": *FX4,1
  830PRINTSPC(47)" TO ADJUST THE SECTOR":PRINTSPC(47)" USE ONLY THE UP & DOWN":PRINTSPC(47)" CORSOR KEYS":PRINTSPC(47)" 'H' When happy.":PRINTTAB(2,2)"Sector address : ";dadd;" / &";STR$~dadd:PRINTTAB(2,3)"Track : ";dadd DIV 10:
  831 PRINTTAB(2,4)"sector : ";dadd MOD 10
  900PRINTTAB(29,0);"   ";:PRINTTAB(29,0);:G$=GET$: IF ASC(G$)=135 THEN back=TRUE:PROCprintout
  930 IF G$="H" THEN happy=TRUE:ENDPROC
  940 IF ASC(G$)=138 THEN dadd=dadd-1:da$=STR$~dadd:ENDPROC
  950 IF ASC(G$)=139 THEN dadd=dadd+1:da$=STR$~dadd:ENDPROC 
  960 IF ASC(G$)<48 OR ASC(G$)>70 THEN GOTO 900
  970PRINTG$;:GG$=GET$:IF ASC(GG$)=13 THEN GGG$="":GOTO 1030
 1000 PRINTGG$;:GGG$=GET$: PRINTGGG$;
 1030 da$=G$+GG$+GGG$: ENDPROC
 1050DEFPROCinput: VDU28,0,24,79,8: CLS: PRINTTAB(3,5)" By pressing the [COPY] key in the EDITOR or the SEARCHER sections of this ": PRINTTAB(2,6)" program you will get a print out of the sector being worked on at that time": VDU28,1,31,79,25:CLS
 1110INPUT ''"Enter the sector address : &"da$:ENDPROC
 1130DEFPROCedit_controls: PRINTTAB(0,0)SPC(80):PRINTTAB(40,1)SPC(40):PRINTTAB(40,2)SPC(40):PRINTTAB(40,3)SPC(40):PRINTTAB(40,4)SPC(40):PRINTTAB(40,0)"      ....EDIT....":PRINTTAB(40,2)"  Use cursor keys to ":PRINTTAB(40,3)"  move cursor and enter":PRINTTAB(40,4)"  the values required":PRINTTAB(40,5)"  [RETURN] when happy": ENDPROC
 1210 DEFPROCasc_ch: yy=(total-1) DIV 16: col=(total-1) MOD 16: xx=6+col-2+(col*2): PRINTTAB(xx,yy);~G DIV 16;~G MOD 16;: ENDPROC
 1270DEFPROCsnd
 1280GG=GET:IF GG>47 AND GG<71 THEN ELSE GOTO 1280
 1300PRINTCHR$(GG);:input$=CHR$(G)+CHR$(GG):input=EVAL("&"+input$): xx=((x-4)DIV 3)-1+56: yy=y: yval=y*16:xval=xx-55:total=yval+xval+1:?(buffer+total)=input: IF input>31 AND input<127 THEN PRINTTAB(xx,yy);CHR$(input); ELSE PRINTTAB(xx,yy);".";
 1370 ENDPROC
 1380DEFPROCedit:PROCedit_controls: x=4:y=0:VDU28,0,24,79,8: st=3: chr=FALSE:REPEAT:PRINTTAB(x,y);:G=GET:IF G=135 THEN back=FALSE:PROCprintout
 1480 IF G=13 THEN ENDPROC
 1490IF G=138 THEN y=y+1
 1500IF G=139 THEN y=y-1
 1510IF G=137 THEN x=x+st
 1520IF G=136 THEN x=x-st
 1530IF x<4 THEN x=49
 1540IF x>49 AND chr=FALSE THEN x=55:chr=TRUE:st=1  
 1550IF x<55 AND chr=TRUE THEN x=49:chr=FALSE:st=3
 1560IF x>70 AND chr=TRUE THEN x=55
 1570IF y>15 THEN y=0
 1580IF y<0 THEN y=15
 1590 PRINTTAB(x,y);: IF chr=TRUE AND G>31 AND G<127 THEN PRINTCHR$(G);:yval=y*16:xval=x-55:total=yval+xval+1:?(buffer+total)=G:PROCasc_ch:x=x+1:PRINTTAB(x,y);
 1610 IF chr=FALSE AND G>47 AND G<71 THEN PRINTCHR$(G);:PROCsnd:x=x+3:PRINTTAB(x,y);
 1620 UNTIL FALSE
 1630DEFPROCcheck:VDU28,1,31,79,25:PRINTTAB(0,0)SPC(80):PRINTTAB(40,1)SPC(40):PRINTTAB(40,2)SPC(40):PRINTTAB(40,3)SPC(40):PRINTTAB(40,4)SPC(40):PRINTTAB(40,5)SPC(38): IF omit=TRUE THEN omit=FALSE:GOTO 1740
 1670 PRINTTAB(47,2)"DO YOU WANT TO WRITE": PRINTTAB(47,3)"THIS SECTOR TO THE ": PRINTTAB(47,4)"DISC   (Y/N) :";:G$=GET$:IF G$="Y" THEN write=TRUE:PRINT"YES":ENDPROC 
 1720PRINT"NO":PRINTTAB(0,0)SPC(80):PRINTTAB(40,1)SPC(40):PRINTTAB(40,2)SPC(40):PRINTTAB(40,3)SPC(40):PRINTTAB(40,4)SPC(40):PRINTTAB(40,5)SPC(38)
 1740PRINTTAB(40,0)"  You can now choose to :-":PRINTTAB(40,2)"  1. RE-EDIT SECTOR":PRINTTAB(40,3)"  2. LOAD NEW SECTOR":PRINTTAB(40,4)"  3. QUIT PROGRAM":PRINTTAB(40,5)"  :";
 1790G$=GET$:IF G$="1" THEN load=FALSE:write=FALSE:ENDPROC
 1810IF G$="2" THEN load=TRUE:write=FALSE:ENDPROC
 1820IF G$="3" THEN CALL!-4
 1830GOTO 1790:ENDPROC
 1850DEFPROCwrite:?block=0:block!1=buffer:block?5=3:block?6=&4B:block?7=dadd DIV 10:block?8=dadd MOD 10:block?9=&21:A%=&7F:X%=block MOD 256:Y%=block DIV 256:CALL osword:IF ?block>0 PRINT"Disc error":END
 1990 omit=TRUE:ENDPROC
 2010DEFPROCprintout: VDU28,0,24,79,8: VDU2: PRINT'"    SECTOR : &";STR$~dadd: PROCmaindis: PRINT: VDU3: CLS:PROCmaindis: IF back=TRUE THEN VDU28,1,31,79,25
 2070 ENDPROC


"�  ************************** 
!�  *     DFS DISC EDITOR    *
!�  * Written By  Wayne Boyd *
(!�  *     (c)1989 W.Boyd     *
2!�  **************************
<�          VER 1.1
F: �0: �setup: �title: �
x- �input: �: �read: �dis: � happy: happy=�
�
 �edit
�& �check: � load=� � load=�:� �Dx@ 
�! � write=� � write=� � � �tt@
� �write: � �t~@: � �: �
c ��setup: happy=�: write=�: load=�: omit=�:� 19,0,0;0;:� buffer 256:� block 16:osword=&FFF1: � 
ht��title:��80,"*"):�31)" DFS DISC EDITOR":�'�27)" Written By Wayne G Boyd ":�'�80,"*"):�28,1,31,79,25: �'':�: � 
���read:� da$="" da$="00"
�,dadd=�("&"+da$):?block=0 :� error number
�"block!1=buffer :� load address
�
block?5=3
�block?6=&53
�block?7=dadd � 10
�block?8=dadd � 10
block?9=&21
2A%=&7F:X%=block � 256:Y%=block � 256:� osword:
D@%=&000904:�
X� ��maindis:cu=0:� I%=1 � 16:a$="":�"   ";:� K%=1 � 16:cu=cu+1:byte=?(buffer+cu):� byte<32 � byte>126 � a$=a$+"." � a$=a$+�(byte)  
�3�" ";~byte � 16;~byte � 16;: �: �"    ";a$: �:�
����dis:�28,0,24,79,8: �:�maindis:�28,1,31,79,25:�:�" Enter new sector address : &";:�"        OR         USE THE CURSOR KEYS": *FX4,1
>��(47)" TO ADJUST THE SECTOR":�(47)" USE ONLY THE UP & DOWN":�(47)" CORSOR KEYS":�(47)" 'H' When happy.":�2,2)"Sector address : ";dadd;" / &";�~dadd:�2,3)"Track : ";dadd � 10:
?  �2,4)"sector : ";dadd � 10
�@�29,0);"   ";:�29,0);:G$=�: � �(G$)=135 � back=�:�printout
� � G$="H" � happy=�:�
�+ � �(G$)=138 � dadd=dadd-1:da$=�~dadd:�
�, � �(G$)=139 � dadd=dadd+1:da$=�~dadd:� 
�# � �(G$)<48 � �(G$)>70 � � �tDC
�+�G$;:GG$=�:� �(GG$)=13 � GGG$="":� �TFD
� �GG$;:GGG$=�: �GGG$;
 da$=G$+GG$+GGG$: �
���input: �28,0,24,79,8: �: �3,5)" By pressing the [COPY] key in the EDITOR or the SEARCHER sections of this ": �2,6)" program you will get a print out of the sector being worked on at that time": �28,1,31,79,25:�
V+� ''"Enter the sector address : &"da$:�
j���edit_controls: �0,0)�(80):�40,1)�(40):�40,2)�(40):�40,3)�(40):�40,4)�(40):�40,0)"      ....EDIT....":�40,2)"  Use cursor keys to ":�40,3)"  move cursor and enter":�40,4)"  the values required":�40,5)"  [RETURN] when happy": �
�f ��asc_ch: yy=(total-1) � 16: col=(total-1) � 16: xx=6+col-2+(col*2): �xx,yy);~G � 16;~G � 16;: �
�	��snd
#GG=�:� GG>47 � GG<71 � � � �T@E
��(GG);:input$=�(G)+�(GG):input=�("&"+input$): xx=((x-4)� 3)-1+56: yy=y: yval=y*16:xval=xx-55:total=yval+xval+1:?(buffer+total)=input: � input>31 � input<127 � �xx,yy);�(input); � �xx,yy);".";
Z �
df��edit:�edit_controls: x=4:y=0:�28,0,24,79,8: st=3: chr=�:�:�x,y);:G=�:� G=135 � back=�:�printout
� � G=13 � �
�� G=138 � y=y+1
�� G=139 � y=y-1
�� G=137 � x=x+st
�� G=136 � x=x-st
�� x<4 � x=49
&� x>49 � chr=� � x=55:chr=�:st=1  
$� x<55 � chr=� � x=49:chr=�:st=3
� x>70 � chr=� � x=55
"� y>15 � y=0
,� y<0 � y=15
6{ �x,y);: � chr=� � G>31 � G<127 � �(G);:yval=y*16:xval=x-55:total=yval+xval+1:?(buffer+total)=G:�asc_ch:x=x+1:�x,y);
J6 � chr=� � G>47 � G<71 � �(G);:�snd:x=x+3:�x,y);
T � �
^���check:�28,1,31,79,25:�0,0)�(80):�40,1)�(40):�40,2)�(40):�40,3)�(40):�40,4)�(40):�40,5)�(38): � omit=� � omit=�:� �dLF
�| �47,2)"DO YOU WANT TO WRITE": �47,3)"THIS SECTOR TO THE ": �47,4)"DISC   (Y/N) :";:G$=�:� G$="Y" � write=�:�"YES":� 
�V�"NO":�0,0)�(80):�40,1)�(40):�40,2)�(40):�40,3)�(40):�40,4)�(40):�40,5)�(38)
̋�40,0)"  You can now choose to :-":�40,2)"  1. RE-EDIT SECTOR":�40,3)"  2. LOAD NEW SECTOR":�40,4)"  3. QUIT PROGRAM":�40,5)"  :";
�$G$=�:� G$="1" � load=�:write=�:�
� G$="2" � load=�:write=�:�
� G$="3" � �!-4
&� �d~F:�
:���write:?block=0:block!1=buffer:block?5=3:block?6=&4B:block?7=dadd � 10:block?8=dadd � 10:block?9=&21:A%=&7F:X%=block � 256:Y%=block � 256:� osword:� ?block>0 �"Disc error":�
�
 omit=�:�
�t��printout: �28,0,24,79,8: �2: �'"    SECTOR : &";�~dadd: �maindis: �: �3: �:�maindis: � back=� � �28,1,31,79,25
 �
�

00000000  0d 00 0a 22 f4 20 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...".  *********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 20 0d 00 14 21 f4 20  20 2a 20 20 20 20 20 44  |* ...!.  *     D|
00000030  46 53 20 44 49 53 43 20  45 44 49 54 4f 52 20 20  |FS DISC EDITOR  |
00000040  20 20 2a 0d 00 1e 21 f4  20 20 2a 20 57 72 69 74  |  *...!.  * Writ|
00000050  74 65 6e 20 42 79 20 20  57 61 79 6e 65 20 42 6f  |ten By  Wayne Bo|
00000060  79 64 20 2a 0d 00 28 21  f4 20 20 2a 20 20 20 20  |yd *..(!.  *    |
00000070  20 28 63 29 31 39 38 39  20 57 2e 42 6f 79 64 20  | (c)1989 W.Boyd |
00000080  20 20 20 20 2a 0d 00 32  21 f4 20 20 2a 2a 2a 2a  |    *..2!.  ****|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000a0  2a 2a 2a 2a 2a 2a 0d 00  3c 16 f4 20 20 20 20 20  |******..<..     |
000000b0  20 20 20 20 20 56 45 52  20 31 2e 31 0d 00 46 1b  |     VER 1.1..F.|
000000c0  3a 20 eb 30 3a 20 f2 73  65 74 75 70 3a 20 f2 74  |: .0: .setup: .t|
000000d0  69 74 6c 65 3a 20 f5 0d  00 78 2d 20 f2 69 6e 70  |itle: ...x- .inp|
000000e0  75 74 3a 20 f5 3a 20 f2  72 65 61 64 3a 20 f2 64  |ut: .: .read: .d|
000000f0  69 73 3a 20 fd 20 68 61  70 70 79 3a 20 68 61 70  |is: . happy: hap|
00000100  70 79 3d a3 0d 00 b4 0a  20 f2 65 64 69 74 0d 00  |py=..... .edit..|
00000110  be 26 20 f2 63 68 65 63  6b 3a 20 e7 20 6c 6f 61  |.& .check: . loa|
00000120  64 3d b9 20 8c 20 6c 6f  61 64 3d a3 3a e5 20 8d  |d=. . load=.:. .|
00000130  44 78 40 20 0d 00 d2 21  20 e7 20 77 72 69 74 65  |Dx@ ...! . write|
00000140  3d b9 20 8c 20 77 72 69  74 65 3d a3 20 8b 20 e5  |=. . write=. . .|
00000150  20 8d 74 74 40 0d 00 dc  1b 20 f2 77 72 69 74 65  | .tt@.... .write|
00000160  3a 20 e5 20 8d 74 7e 40  3a 20 fd 20 a3 3a 20 e0  |: . .t~@: . .: .|
00000170  0d 01 04 63 20 dd f2 73  65 74 75 70 3a 20 68 61  |...c ..setup: ha|
00000180  70 70 79 3d a3 3a 20 77  72 69 74 65 3d a3 3a 20  |ppy=.: write=.: |
00000190  6c 6f 61 64 3d a3 3a 20  6f 6d 69 74 3d a3 3a ef  |load=.: omit=.:.|
000001a0  20 31 39 2c 30 2c 30 3b  30 3b 3a de 20 62 75 66  | 19,0,0;0;:. buf|
000001b0  66 65 72 20 32 35 36 3a  de 20 62 6c 6f 63 6b 20  |fer 256:. block |
000001c0  31 36 3a 6f 73 77 6f 72  64 3d 26 46 46 46 31 3a  |16:osword=&FFF1:|
000001d0  20 e1 20 0d 01 68 74 dd  f2 74 69 74 6c 65 3a f1  | . ..ht..title:.|
000001e0  c4 38 30 2c 22 2a 22 29  3a f1 8a 33 31 29 22 20  |.80,"*"):..31)" |
000001f0  44 46 53 20 44 49 53 43  20 45 44 49 54 4f 52 22  |DFS DISC EDITOR"|
00000200  3a f1 27 8a 32 37 29 22  20 57 72 69 74 74 65 6e  |:.'.27)" Written|
00000210  20 42 79 20 57 61 79 6e  65 20 47 20 42 6f 79 64  | By Wayne G Boyd|
00000220  20 22 3a f1 27 c4 38 30  2c 22 2a 22 29 3a ef 32  | ":.'.80,"*"):.2|
00000230  38 2c 31 2c 33 31 2c 37  39 2c 32 35 3a 20 f1 27  |8,1,31,79,25: .'|
00000240  27 3a db 3a 20 e1 20 0d  01 a4 1c dd f2 72 65 61  |':.: . ......rea|
00000250  64 3a e7 20 64 61 24 3d  22 22 20 64 61 24 3d 22  |d:. da$="" da$="|
00000260  30 30 22 0d 01 b8 2c 64  61 64 64 3d a0 28 22 26  |00"...,dadd=.("&|
00000270  22 2b 64 61 24 29 3a 3f  62 6c 6f 63 6b 3d 30 20  |"+da$):?block=0 |
00000280  3a f4 20 65 72 72 6f 72  20 6e 75 6d 62 65 72 0d  |:. error number.|
00000290  01 cc 22 62 6c 6f 63 6b  21 31 3d 62 75 66 66 65  |.."block!1=buffe|
000002a0  72 20 3a f4 20 6c 6f 61  64 20 61 64 64 72 65 73  |r :. load addres|
000002b0  73 0d 01 d6 0d 62 6c 6f  63 6b 3f 35 3d 33 0d 01  |s....block?5=3..|
000002c0  e0 0f 62 6c 6f 63 6b 3f  36 3d 26 35 33 0d 01 ea  |..block?6=&53...|
000002d0  15 62 6c 6f 63 6b 3f 37  3d 64 61 64 64 20 81 20  |.block?7=dadd . |
000002e0  31 30 0d 01 eb 15 62 6c  6f 63 6b 3f 38 3d 64 61  |10....block?8=da|
000002f0  64 64 20 83 20 31 30 0d  02 08 0f 62 6c 6f 63 6b  |dd . 10....block|
00000300  3f 39 3d 26 32 31 0d 02  12 32 41 25 3d 26 37 46  |?9=&21...2A%=&7F|
00000310  3a 58 25 3d 62 6c 6f 63  6b 20 83 20 32 35 36 3a  |:X%=block . 256:|
00000320  59 25 3d 62 6c 6f 63 6b  20 81 20 32 35 36 3a d6  |Y%=block . 256:.|
00000330  20 6f 73 77 6f 72 64 3a  0d 02 44 10 40 25 3d 26  | osword:..D.@%=&|
00000340  30 30 30 39 30 34 3a e1  0d 02 58 86 20 dd f2 6d  |000904:...X. ..m|
00000350  61 69 6e 64 69 73 3a 63  75 3d 30 3a e3 20 49 25  |aindis:cu=0:. I%|
00000360  3d 31 20 b8 20 31 36 3a  61 24 3d 22 22 3a f1 22  |=1 . 16:a$="":."|
00000370  20 20 20 22 3b 3a e3 20  4b 25 3d 31 20 b8 20 31  |   ";:. K%=1 . 1|
00000380  36 3a 63 75 3d 63 75 2b  31 3a 62 79 74 65 3d 3f  |6:cu=cu+1:byte=?|
00000390  28 62 75 66 66 65 72 2b  63 75 29 3a e7 20 62 79  |(buffer+cu):. by|
000003a0  74 65 3c 33 32 20 84 20  62 79 74 65 3e 31 32 36  |te<32 . byte>126|
000003b0  20 8c 20 61 24 3d 61 24  2b 22 2e 22 20 8b 20 61  | . a$=a$+"." . a|
000003c0  24 3d 61 24 2b bd 28 62  79 74 65 29 20 20 0d 02  |$=a$+.(byte)  ..|
000003d0  c6 33 f1 22 20 22 3b 7e  62 79 74 65 20 81 20 31  |.3." ";~byte . 1|
000003e0  36 3b 7e 62 79 74 65 20  83 20 31 36 3b 3a 20 ed  |6;~byte . 16;: .|
000003f0  3a 20 f1 22 20 20 20 20  22 3b 61 24 3a 20 ed 3a  |: ."    ";a$: .:|
00000400  e1 0d 02 f8 88 dd f2 64  69 73 3a ef 32 38 2c 30  |.......dis:.28,0|
00000410  2c 32 34 2c 37 39 2c 38  3a 20 db 3a f2 6d 61 69  |,24,79,8: .:.mai|
00000420  6e 64 69 73 3a ef 32 38  2c 31 2c 33 31 2c 37 39  |ndis:.28,1,31,79|
00000430  2c 32 35 3a db 3a f1 22  20 45 6e 74 65 72 20 6e  |,25:.:." Enter n|
00000440  65 77 20 73 65 63 74 6f  72 20 61 64 64 72 65 73  |ew sector addres|
00000450  73 20 3a 20 26 22 3b 3a  f1 22 20 20 20 20 20 20  |s : &";:."      |
00000460  20 20 4f 52 20 20 20 20  20 20 20 20 20 55 53 45  |  OR         USE|
00000470  20 54 48 45 20 43 55 52  53 4f 52 20 4b 45 59 53  | THE CURSOR KEYS|
00000480  22 3a 20 2a 46 58 34 2c  31 0d 03 3e b8 f1 89 28  |": *FX4,1..>...(|
00000490  34 37 29 22 20 54 4f 20  41 44 4a 55 53 54 20 54  |47)" TO ADJUST T|
000004a0  48 45 20 53 45 43 54 4f  52 22 3a f1 89 28 34 37  |HE SECTOR":..(47|
000004b0  29 22 20 55 53 45 20 4f  4e 4c 59 20 54 48 45 20  |)" USE ONLY THE |
000004c0  55 50 20 26 20 44 4f 57  4e 22 3a f1 89 28 34 37  |UP & DOWN":..(47|
000004d0  29 22 20 43 4f 52 53 4f  52 20 4b 45 59 53 22 3a  |)" CORSOR KEYS":|
000004e0  f1 89 28 34 37 29 22 20  27 48 27 20 57 68 65 6e  |..(47)" 'H' When|
000004f0  20 68 61 70 70 79 2e 22  3a f1 8a 32 2c 32 29 22  | happy.":..2,2)"|
00000500  53 65 63 74 6f 72 20 61  64 64 72 65 73 73 20 3a  |Sector address :|
00000510  20 22 3b 64 61 64 64 3b  22 20 2f 20 26 22 3b c3  | ";dadd;" / &";.|
00000520  7e 64 61 64 64 3a f1 8a  32 2c 33 29 22 54 72 61  |~dadd:..2,3)"Tra|
00000530  63 6b 20 3a 20 22 3b 64  61 64 64 20 81 20 31 30  |ck : ";dadd . 10|
00000540  3a 0d 03 3f 20 20 f1 8a  32 2c 34 29 22 73 65 63  |:..?  ..2,4)"sec|
00000550  74 6f 72 20 3a 20 22 3b  64 61 64 64 20 83 20 31  |tor : ";dadd . 1|
00000560  30 0d 03 84 40 f1 8a 32  39 2c 30 29 3b 22 20 20  |0...@..29,0);"  |
00000570  20 22 3b 3a f1 8a 32 39  2c 30 29 3b 3a 47 24 3d  | ";:..29,0);:G$=|
00000580  be 3a 20 e7 20 97 28 47  24 29 3d 31 33 35 20 8c  |.: . .(G$)=135 .|
00000590  20 62 61 63 6b 3d b9 3a  f2 70 72 69 6e 74 6f 75  | back=.:.printou|
000005a0  74 0d 03 a2 19 20 e7 20  47 24 3d 22 48 22 20 8c  |t.... . G$="H" .|
000005b0  20 68 61 70 70 79 3d b9  3a e1 0d 03 ac 2b 20 e7  | happy=.:....+ .|
000005c0  20 97 28 47 24 29 3d 31  33 38 20 8c 20 64 61 64  | .(G$)=138 . dad|
000005d0  64 3d 64 61 64 64 2d 31  3a 64 61 24 3d c3 7e 64  |d=dadd-1:da$=.~d|
000005e0  61 64 64 3a e1 0d 03 b6  2c 20 e7 20 97 28 47 24  |add:...., . .(G$|
000005f0  29 3d 31 33 39 20 8c 20  64 61 64 64 3d 64 61 64  |)=139 . dadd=dad|
00000600  64 2b 31 3a 64 61 24 3d  c3 7e 64 61 64 64 3a e1  |d+1:da$=.~dadd:.|
00000610  20 0d 03 c0 23 20 e7 20  97 28 47 24 29 3c 34 38  | ...# . .(G$)<48|
00000620  20 84 20 97 28 47 24 29  3e 37 30 20 8c 20 e5 20  | . .(G$)>70 . . |
00000630  8d 74 44 43 0d 03 ca 2b  f1 47 24 3b 3a 47 47 24  |.tDC...+.G$;:GG$|
00000640  3d be 3a e7 20 97 28 47  47 24 29 3d 31 33 20 8c  |=.:. .(GG$)=13 .|
00000650  20 47 47 47 24 3d 22 22  3a e5 20 8d 54 46 44 0d  | GGG$="":. .TFD.|
00000660  03 e8 19 20 f1 47 47 24  3b 3a 47 47 47 24 3d be  |... .GG$;:GGG$=.|
00000670  3a 20 f1 47 47 47 24 3b  0d 04 06 17 20 64 61 24  |: .GGG$;.... da$|
00000680  3d 47 24 2b 47 47 24 2b  47 47 47 24 3a 20 e1 0d  |=G$+GG$+GGG$: ..|
00000690  04 1a da dd f2 69 6e 70  75 74 3a 20 ef 32 38 2c  |.....input: .28,|
000006a0  30 2c 32 34 2c 37 39 2c  38 3a 20 db 3a 20 f1 8a  |0,24,79,8: .: ..|
000006b0  33 2c 35 29 22 20 42 79  20 70 72 65 73 73 69 6e  |3,5)" By pressin|
000006c0  67 20 74 68 65 20 5b 43  4f 50 59 5d 20 6b 65 79  |g the [COPY] key|
000006d0  20 69 6e 20 74 68 65 20  45 44 49 54 4f 52 20 6f  | in the EDITOR o|
000006e0  72 20 74 68 65 20 53 45  41 52 43 48 45 52 20 73  |r the SEARCHER s|
000006f0  65 63 74 69 6f 6e 73 20  6f 66 20 74 68 69 73 20  |ections of this |
00000700  22 3a 20 f1 8a 32 2c 36  29 22 20 70 72 6f 67 72  |": ..2,6)" progr|
00000710  61 6d 20 79 6f 75 20 77  69 6c 6c 20 67 65 74 20  |am you will get |
00000720  61 20 70 72 69 6e 74 20  6f 75 74 20 6f 66 20 74  |a print out of t|
00000730  68 65 20 73 65 63 74 6f  72 20 62 65 69 6e 67 20  |he sector being |
00000740  77 6f 72 6b 65 64 20 6f  6e 20 61 74 20 74 68 61  |worked on at tha|
00000750  74 20 74 69 6d 65 22 3a  20 ef 32 38 2c 31 2c 33  |t time": .28,1,3|
00000760  31 2c 37 39 2c 32 35 3a  db 0d 04 56 2b e8 20 27  |1,79,25:...V+. '|
00000770  27 22 45 6e 74 65 72 20  74 68 65 20 73 65 63 74  |'"Enter the sect|
00000780  6f 72 20 61 64 64 72 65  73 73 20 3a 20 26 22 64  |or address : &"d|
00000790  61 24 3a e1 0d 04 6a f1  dd f2 65 64 69 74 5f 63  |a$:...j...edit_c|
000007a0  6f 6e 74 72 6f 6c 73 3a  20 f1 8a 30 2c 30 29 89  |ontrols: ..0,0).|
000007b0  28 38 30 29 3a f1 8a 34  30 2c 31 29 89 28 34 30  |(80):..40,1).(40|
000007c0  29 3a f1 8a 34 30 2c 32  29 89 28 34 30 29 3a f1  |):..40,2).(40):.|
000007d0  8a 34 30 2c 33 29 89 28  34 30 29 3a f1 8a 34 30  |.40,3).(40):..40|
000007e0  2c 34 29 89 28 34 30 29  3a f1 8a 34 30 2c 30 29  |,4).(40):..40,0)|
000007f0  22 20 20 20 20 20 20 2e  2e 2e 2e 45 44 49 54 2e  |"      ....EDIT.|
00000800  2e 2e 2e 22 3a f1 8a 34  30 2c 32 29 22 20 20 55  |...":..40,2)"  U|
00000810  73 65 20 63 75 72 73 6f  72 20 6b 65 79 73 20 74  |se cursor keys t|
00000820  6f 20 22 3a f1 8a 34 30  2c 33 29 22 20 20 6d 6f  |o ":..40,3)"  mo|
00000830  76 65 20 63 75 72 73 6f  72 20 61 6e 64 20 65 6e  |ve cursor and en|
00000840  74 65 72 22 3a f1 8a 34  30 2c 34 29 22 20 20 74  |ter":..40,4)"  t|
00000850  68 65 20 76 61 6c 75 65  73 20 72 65 71 75 69 72  |he values requir|
00000860  65 64 22 3a f1 8a 34 30  2c 35 29 22 20 20 5b 52  |ed":..40,5)"  [R|
00000870  45 54 55 52 4e 5d 20 77  68 65 6e 20 68 61 70 70  |ETURN] when happ|
00000880  79 22 3a 20 e1 0d 04 ba  66 20 dd f2 61 73 63 5f  |y": ....f ..asc_|
00000890  63 68 3a 20 79 79 3d 28  74 6f 74 61 6c 2d 31 29  |ch: yy=(total-1)|
000008a0  20 81 20 31 36 3a 20 63  6f 6c 3d 28 74 6f 74 61  | . 16: col=(tota|
000008b0  6c 2d 31 29 20 83 20 31  36 3a 20 78 78 3d 36 2b  |l-1) . 16: xx=6+|
000008c0  63 6f 6c 2d 32 2b 28 63  6f 6c 2a 32 29 3a 20 f1  |col-2+(col*2): .|
000008d0  8a 78 78 2c 79 79 29 3b  7e 47 20 81 20 31 36 3b  |.xx,yy);~G . 16;|
000008e0  7e 47 20 83 20 31 36 3b  3a 20 e1 0d 04 f6 09 dd  |~G . 16;: ......|
000008f0  f2 73 6e 64 0d 05 00 23  47 47 3d a5 3a e7 20 47  |.snd...#GG=.:. G|
00000900  47 3e 34 37 20 80 20 47  47 3c 37 31 20 8c 20 8b  |G>47 . GG<71 . .|
00000910  20 e5 20 8d 54 40 45 0d  05 14 c6 f1 bd 28 47 47  | . .T@E......(GG|
00000920  29 3b 3a 69 6e 70 75 74  24 3d bd 28 47 29 2b bd  |);:input$=.(G)+.|
00000930  28 47 47 29 3a 69 6e 70  75 74 3d a0 28 22 26 22  |(GG):input=.("&"|
00000940  2b 69 6e 70 75 74 24 29  3a 20 78 78 3d 28 28 78  |+input$): xx=((x|
00000950  2d 34 29 81 20 33 29 2d  31 2b 35 36 3a 20 79 79  |-4). 3)-1+56: yy|
00000960  3d 79 3a 20 79 76 61 6c  3d 79 2a 31 36 3a 78 76  |=y: yval=y*16:xv|
00000970  61 6c 3d 78 78 2d 35 35  3a 74 6f 74 61 6c 3d 79  |al=xx-55:total=y|
00000980  76 61 6c 2b 78 76 61 6c  2b 31 3a 3f 28 62 75 66  |val+xval+1:?(buf|
00000990  66 65 72 2b 74 6f 74 61  6c 29 3d 69 6e 70 75 74  |fer+total)=input|
000009a0  3a 20 e7 20 69 6e 70 75  74 3e 33 31 20 80 20 69  |: . input>31 . i|
000009b0  6e 70 75 74 3c 31 32 37  20 8c 20 f1 8a 78 78 2c  |nput<127 . ..xx,|
000009c0  79 79 29 3b bd 28 69 6e  70 75 74 29 3b 20 8b 20  |yy);.(input); . |
000009d0  f1 8a 78 78 2c 79 79 29  3b 22 2e 22 3b 0d 05 5a  |..xx,yy);".";..Z|
000009e0  06 20 e1 0d 05 64 66 dd  f2 65 64 69 74 3a f2 65  |. ...df..edit:.e|
000009f0  64 69 74 5f 63 6f 6e 74  72 6f 6c 73 3a 20 78 3d  |dit_controls: x=|
00000a00  34 3a 79 3d 30 3a ef 32  38 2c 30 2c 32 34 2c 37  |4:y=0:.28,0,24,7|
00000a10  39 2c 38 3a 20 73 74 3d  33 3a 20 63 68 72 3d a3  |9,8: st=3: chr=.|
00000a20  3a f5 3a f1 8a 78 2c 79  29 3b 3a 47 3d a5 3a e7  |:.:..x,y);:G=.:.|
00000a30  20 47 3d 31 33 35 20 8c  20 62 61 63 6b 3d a3 3a  | G=135 . back=.:|
00000a40  f2 70 72 69 6e 74 6f 75  74 0d 05 c8 0f 20 e7 20  |.printout.... . |
00000a50  47 3d 31 33 20 8c 20 e1  0d 05 d2 13 e7 20 47 3d  |G=13 . ...... G=|
00000a60  31 33 38 20 8c 20 79 3d  79 2b 31 0d 05 dc 13 e7  |138 . y=y+1.....|
00000a70  20 47 3d 31 33 39 20 8c  20 79 3d 79 2d 31 0d 05  | G=139 . y=y-1..|
00000a80  e6 14 e7 20 47 3d 31 33  37 20 8c 20 78 3d 78 2b  |... G=137 . x=x+|
00000a90  73 74 0d 05 f0 14 e7 20  47 3d 31 33 36 20 8c 20  |st..... G=136 . |
00000aa0  78 3d 78 2d 73 74 0d 05  fa 10 e7 20 78 3c 34 20  |x=x-st..... x<4 |
00000ab0  8c 20 78 3d 34 39 0d 06  04 26 e7 20 78 3e 34 39  |. x=49...&. x>49|
00000ac0  20 80 20 63 68 72 3d a3  20 8c 20 78 3d 35 35 3a  | . chr=. . x=55:|
00000ad0  63 68 72 3d b9 3a 73 74  3d 31 20 20 0d 06 0e 24  |chr=.:st=1  ...$|
00000ae0  e7 20 78 3c 35 35 20 80  20 63 68 72 3d b9 20 8c  |. x<55 . chr=. .|
00000af0  20 78 3d 34 39 3a 63 68  72 3d a3 3a 73 74 3d 33  | x=49:chr=.:st=3|
00000b00  0d 06 18 19 e7 20 78 3e  37 30 20 80 20 63 68 72  |..... x>70 . chr|
00000b10  3d b9 20 8c 20 78 3d 35  35 0d 06 22 10 e7 20 79  |=. . x=55..".. y|
00000b20  3e 31 35 20 8c 20 79 3d  30 0d 06 2c 10 e7 20 79  |>15 . y=0..,.. y|
00000b30  3c 30 20 8c 20 79 3d 31  35 0d 06 36 7b 20 f1 8a  |<0 . y=15..6{ ..|
00000b40  78 2c 79 29 3b 3a 20 e7  20 63 68 72 3d b9 20 80  |x,y);: . chr=. .|
00000b50  20 47 3e 33 31 20 80 20  47 3c 31 32 37 20 8c 20  | G>31 . G<127 . |
00000b60  f1 bd 28 47 29 3b 3a 79  76 61 6c 3d 79 2a 31 36  |..(G);:yval=y*16|
00000b70  3a 78 76 61 6c 3d 78 2d  35 35 3a 74 6f 74 61 6c  |:xval=x-55:total|
00000b80  3d 79 76 61 6c 2b 78 76  61 6c 2b 31 3a 3f 28 62  |=yval+xval+1:?(b|
00000b90  75 66 66 65 72 2b 74 6f  74 61 6c 29 3d 47 3a f2  |uffer+total)=G:.|
00000ba0  61 73 63 5f 63 68 3a 78  3d 78 2b 31 3a f1 8a 78  |asc_ch:x=x+1:..x|
00000bb0  2c 79 29 3b 0d 06 4a 36  20 e7 20 63 68 72 3d a3  |,y);..J6 . chr=.|
00000bc0  20 80 20 47 3e 34 37 20  80 20 47 3c 37 31 20 8c  | . G>47 . G<71 .|
00000bd0  20 f1 bd 28 47 29 3b 3a  f2 73 6e 64 3a 78 3d 78  | ..(G);:.snd:x=x|
00000be0  2b 33 3a f1 8a 78 2c 79  29 3b 0d 06 54 08 20 fd  |+3:..x,y);..T. .|
00000bf0  20 a3 0d 06 5e 81 dd f2  63 68 65 63 6b 3a ef 32  | ...^...check:.2|
00000c00  38 2c 31 2c 33 31 2c 37  39 2c 32 35 3a f1 8a 30  |8,1,31,79,25:..0|
00000c10  2c 30 29 89 28 38 30 29  3a f1 8a 34 30 2c 31 29  |,0).(80):..40,1)|
00000c20  89 28 34 30 29 3a f1 8a  34 30 2c 32 29 89 28 34  |.(40):..40,2).(4|
00000c30  30 29 3a f1 8a 34 30 2c  33 29 89 28 34 30 29 3a  |0):..40,3).(40):|
00000c40  f1 8a 34 30 2c 34 29 89  28 34 30 29 3a f1 8a 34  |..40,4).(40):..4|
00000c50  30 2c 35 29 89 28 33 38  29 3a 20 e7 20 6f 6d 69  |0,5).(38): . omi|
00000c60  74 3d b9 20 8c 20 6f 6d  69 74 3d a3 3a e5 20 8d  |t=. . omit=.:. .|
00000c70  64 4c 46 0d 06 86 7c 20  f1 8a 34 37 2c 32 29 22  |dLF...| ..47,2)"|
00000c80  44 4f 20 59 4f 55 20 57  41 4e 54 20 54 4f 20 57  |DO YOU WANT TO W|
00000c90  52 49 54 45 22 3a 20 f1  8a 34 37 2c 33 29 22 54  |RITE": ..47,3)"T|
00000ca0  48 49 53 20 53 45 43 54  4f 52 20 54 4f 20 54 48  |HIS SECTOR TO TH|
00000cb0  45 20 22 3a 20 f1 8a 34  37 2c 34 29 22 44 49 53  |E ": ..47,4)"DIS|
00000cc0  43 20 20 20 28 59 2f 4e  29 20 3a 22 3b 3a 47 24  |C   (Y/N) :";:G$|
00000cd0  3d be 3a e7 20 47 24 3d  22 59 22 20 8c 20 77 72  |=.:. G$="Y" . wr|
00000ce0  69 74 65 3d b9 3a f1 22  59 45 53 22 3a e1 20 0d  |ite=.:."YES":. .|
00000cf0  06 b8 56 f1 22 4e 4f 22  3a f1 8a 30 2c 30 29 89  |..V."NO":..0,0).|
00000d00  28 38 30 29 3a f1 8a 34  30 2c 31 29 89 28 34 30  |(80):..40,1).(40|
00000d10  29 3a f1 8a 34 30 2c 32  29 89 28 34 30 29 3a f1  |):..40,2).(40):.|
00000d20  8a 34 30 2c 33 29 89 28  34 30 29 3a f1 8a 34 30  |.40,3).(40):..40|
00000d30  2c 34 29 89 28 34 30 29  3a f1 8a 34 30 2c 35 29  |,4).(40):..40,5)|
00000d40  89 28 33 38 29 0d 06 cc  8b f1 8a 34 30 2c 30 29  |.(38)......40,0)|
00000d50  22 20 20 59 6f 75 20 63  61 6e 20 6e 6f 77 20 63  |"  You can now c|
00000d60  68 6f 6f 73 65 20 74 6f  20 3a 2d 22 3a f1 8a 34  |hoose to :-":..4|
00000d70  30 2c 32 29 22 20 20 31  2e 20 52 45 2d 45 44 49  |0,2)"  1. RE-EDI|
00000d80  54 20 53 45 43 54 4f 52  22 3a f1 8a 34 30 2c 33  |T SECTOR":..40,3|
00000d90  29 22 20 20 32 2e 20 4c  4f 41 44 20 4e 45 57 20  |)"  2. LOAD NEW |
00000da0  53 45 43 54 4f 52 22 3a  f1 8a 34 30 2c 34 29 22  |SECTOR":..40,4)"|
00000db0  20 20 33 2e 20 51 55 49  54 20 50 52 4f 47 52 41  |  3. QUIT PROGRA|
00000dc0  4d 22 3a f1 8a 34 30 2c  35 29 22 20 20 3a 22 3b  |M":..40,5)"  :";|
00000dd0  0d 06 fe 24 47 24 3d be  3a e7 20 47 24 3d 22 31  |...$G$=.:. G$="1|
00000de0  22 20 8c 20 6c 6f 61 64  3d a3 3a 77 72 69 74 65  |" . load=.:write|
00000df0  3d a3 3a e1 0d 07 12 1f  e7 20 47 24 3d 22 32 22  |=.:...... G$="2"|
00000e00  20 8c 20 6c 6f 61 64 3d  b9 3a 77 72 69 74 65 3d  | . load=.:write=|
00000e10  a3 3a e1 0d 07 1c 13 e7  20 47 24 3d 22 33 22 20  |.:...... G$="3" |
00000e20  8c 20 d6 21 2d 34 0d 07  26 0c e5 20 8d 64 7e 46  |. .!-4..&.. .d~F|
00000e30  3a e1 0d 07 3a b2 dd f2  77 72 69 74 65 3a 3f 62  |:...:...write:?b|
00000e40  6c 6f 63 6b 3d 30 3a 62  6c 6f 63 6b 21 31 3d 62  |lock=0:block!1=b|
00000e50  75 66 66 65 72 3a 62 6c  6f 63 6b 3f 35 3d 33 3a  |uffer:block?5=3:|
00000e60  62 6c 6f 63 6b 3f 36 3d  26 34 42 3a 62 6c 6f 63  |block?6=&4B:bloc|
00000e70  6b 3f 37 3d 64 61 64 64  20 81 20 31 30 3a 62 6c  |k?7=dadd . 10:bl|
00000e80  6f 63 6b 3f 38 3d 64 61  64 64 20 83 20 31 30 3a  |ock?8=dadd . 10:|
00000e90  62 6c 6f 63 6b 3f 39 3d  26 32 31 3a 41 25 3d 26  |block?9=&21:A%=&|
00000ea0  37 46 3a 58 25 3d 62 6c  6f 63 6b 20 83 20 32 35  |7F:X%=block . 25|
00000eb0  36 3a 59 25 3d 62 6c 6f  63 6b 20 81 20 32 35 36  |6:Y%=block . 256|
00000ec0  3a d6 20 6f 73 77 6f 72  64 3a e7 20 3f 62 6c 6f  |:. osword:. ?blo|
00000ed0  63 6b 3e 30 20 f1 22 44  69 73 63 20 65 72 72 6f  |ck>0 ."Disc erro|
00000ee0  72 22 3a e0 0d 07 c6 0d  20 6f 6d 69 74 3d b9 3a  |r":..... omit=.:|
00000ef0  e1 0d 07 da 74 dd f2 70  72 69 6e 74 6f 75 74 3a  |....t..printout:|
00000f00  20 ef 32 38 2c 30 2c 32  34 2c 37 39 2c 38 3a 20  | .28,0,24,79,8: |
00000f10  ef 32 3a 20 f1 27 22 20  20 20 20 53 45 43 54 4f  |.2: .'"    SECTO|
00000f20  52 20 3a 20 26 22 3b c3  7e 64 61 64 64 3a 20 f2  |R : &";.~dadd: .|
00000f30  6d 61 69 6e 64 69 73 3a  20 f1 3a 20 ef 33 3a 20  |maindis: .: .3: |
00000f40  db 3a f2 6d 61 69 6e 64  69 73 3a 20 e7 20 62 61  |.:.maindis: . ba|
00000f50  63 6b 3d b9 20 8c 20 ef  32 38 2c 31 2c 33 31 2c  |ck=. . .28,1,31,|
00000f60  37 39 2c 32 35 0d 08 16  06 20 e1 0d ff           |79,25.... ...|
00000f6d

DFS-ED.m0

DFS-ED.m1

DFS-ED.m2

DFS-ED.m4

DFS-ED.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .