Home » Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » UTILITIES/!EDIT

UTILITIES/!EDIT

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 ADFS disks » Electron » Utilities_1.ADF
Filename: UTILITIES/!EDIT
Read OK:
File size: 07EA bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

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

File contents
   10 REM !EDIT
   20 REM (C) ROBERT COOPER '91.
   30 REM
   40 VDU23,225,255,255,255,255,255,255,255,255
   50MODE4
   60PROCinit
   65PROCcls
   70PROCtitle
   80PROCwindow(3,10,30,10) 
   90PRINT"1.ENTER TEXT" 
  100PRINT"2.READ TEXT"   
  110PRINT"3.PRINT FILE" 
  120REMPRINT"4.EDIT TEXT FILE"
  130PRINT"4.QUIT" 
  140PRINT
  150INPUT"WHICH ONE (1-4) ",choice
  160IF choice=1 PROCenter ELSE IF choice=2 PROCread  
  170IF choice=3 THEN PROCprint
  180REMIF choice=4 THEN PROCedit  
  190REPEAT UNTIL choice=4
  200END 
  210DEF PROCenter
  220PROCcls
  230PROCtitle
  240PROCwindow(3,8,32,20) 
  250REPEAT
  260INPUT"FILE NAME: "file$
  270file=OPENOUTfile$
  280UNTIL file<>0
  290ON ERROR CLOSE#file:VDU7:GOTO 60
  300line=1
  310REPEAT
  320REM
  330INPUT LINE ""in$
  340in$=in$+CHR$(&0D)
  350FOR i%=1 TO LEN(in$)
  360BPUT#file,ASC(MID$(in$,i%))
  370NEXT i%
  380REM
  390UNTIL FALSE
  400REM******************* 
  410DEF PROCread 
  420PROCcls
  430PROCtitle
  440PROCwindow(2,8,34,20) 
  450VDU14
  460REPEAT
  470INPUT"FILE NAME: "TX$
  480file=OPENIN(TX$)
  490UNTIL file<>0
  500REPEAT
  510char=BGET#file
  520IF char=&0D THEN PRINT ELSE IF char<&20 THEN PRINT "."; ELSE PRINT CHR$(char);   
  530UNTIL EOF#file
  540CLOSE#file 
  550REPEAT UNTIL GET$=" "
  560VDU15
  570VDU7 
  580GOTO 60
  590REM****************** 
  600DEF PROCprint
  610CLS 
  620REPEAT
  630PRINT 
  640INPUT"FILE NAME: "TX$ 
  650CLS
  660VDU2
  670file=OPENIN(TX$)
  680WIDTH file<>0 
  690REPEAT!
  700chcr=SPC#file 
  710IF char=&0D THEN PRINT ELSE IF char<&20 THEN PRINT "."; ELSE PRINT CHR$(char); 
  720UNTIL EOF#file
  730CLOSE#file
  740VDU3
  750VDU7
  760GOTO80
  770REM********************* 
  780DEF PROCedit
  790CLS 
  800ON ERROR CLOSE#file:VDU7:GOTO 80
  810REPEAT 
  820INPUT"FILE NAME: "TEX$
  830INPUT"FILE TO SAVE: "FS$
  840CLS 
  850file=OPENIN(TEX$)  
  860UNTIL file<>0 
  870REPEAT
  880char=BGET#file
  890IF char=&0D THEN PRINT ELSE IF char<&20 THEN PRINT "."; ELSE PRINT CHR$(char);   
  900UNTIL EOF#file
  910REMCLOSE#file 
  920REPEAT
  930file=OPENOUTFS$
  940UNTIL file<>0
  950REPEAT
  960INPUT LINE ""in$
  970in$=in$+CHR$(&0D) 
  980FOR i%=1 TO LEN(in$)
  990BPUT#file,ASC(MID$(in$+char,i%))
 1000NEXT i%
 1010UNTIL FALSE 
 1020DEF PROCborder
 1030CLS
 1040line$=STRING$(40,CHR$225)
 1050PRINTTAB(0,2) line$ 
 1060PRINTTAB(0,30) line$  
 1070ENDPROC
 1080DEF PROCcls
 1090VDU26
 1100FOR I%=1 TO 5
 1110PRINT STRING$(248,CHR$224);
 1120NEXT
 1130MOVE 0,28:DRAW 0,1023
 1140DRAW 1278,1023:DRAW 1278,28
 1150DRAW 0,28
 1160ENDPROC
 1170DEF PROCinit
 1180VDU 23,224,85,255,85,255,85,255,85,255
 1190COLOUR 129:COLOUR 0
 1210ENDPROC
 1220DEF PROCwindow(X%,Y%,W%,H%)
 1230VDU28,X%+1,Y%+1+H%,X%+1+W%,Y%+1
 1240COLOUR 128:CLS
 1250VDU28,X%,Y%+H%,X%+W%,Y%
 1260COLOUR129:CLS
 1270VDU28 X%+1,Y%+H%,X%+W%,Y%+1 
 1280ENDPROC
 1290DEF PROCtitle
 1300PROCwindow(3,2,30,2) 
 1310PRINT"!EDIT V2.00 BY ROBERT COOPER"
 1320ENDPROC

 � !EDIT
 � (C) ROBERT COOPER '91.
 �
(, �23,225,255,255,255,255,255,255,255,255
2�4
<	�init
A�cls
F
�title
P�window(3,10,30,10) 
Z�"1.ENTER TEXT" 
d�"2.READ TEXT"   
n�"3.PRINT FILE" 
x�PRINT"4.EDIT TEXT FILE"
��"4.QUIT" 
��
��"WHICH ONE (1-4) ",choice
�*� choice=1 �enter � � choice=2 �read  
�� choice=3 � �print
� �IF choice=4 THEN PROCedit  
�� � choice=4
�� 
�� �enter
��cls
�
�title
��window(3,8,32,20) 
��
�"FILE NAME: "file$
file=�file$

� file<>0
"� � �#file:�7:� �T|@
,
line=1
6�
@�
J
� � ""in$
Tin$=in$+�(&0D)
^� i%=1 � �(in$)
h�#file,�(�in$,i%))
r� i%
|�
�� �
��******************* 
�� �read 
��cls
�
�title
��window(2,8,34,20) 
��14
��
��"FILE NAME: "TX$
�file=�(TX$)
�
� file<>0
��
�char=�#file
8� char=&0D � � � � char<&20 � � "."; � � �(char);   
� �#file
�#file 
&
� � �=" "
0�15
:�7 
D
� �T|@
N�****************** 
X� �print
b� 
l�
v� 
��"FILE NAME: "TX$ 
��
��2
�file=�(TX$)
�� file<>0 
��!
�chcr=�#file 
�6� char=&0D � � � � char<&20 � � "."; � � �(char); 
�� �#file
�
�#file
��3
��7
�	�DP@
�********************* 
� �edit
� 
 � � �#file:�7:� �DP@
*� 
4�"FILE NAME: "TEX$
>�"FILE TO SAVE: "FS$
H� 
Rfile=�(TEX$)  
\� file<>0 
f�
pchar=�#file
z8� char=&0D � � � � char<&20 � � "."; � � �(char);   
�� �#file
��CLOSE#file 
��
�
file=�FS$
�
� file<>0
��
�
� � ""in$
�in$=in$+�(&0D) 
�� i%=1 � �(in$)
��#file,�(�in$+char,i%))
�� i%
�� � 
�
� �border
�
line$=�40,�225)
�0,2) line$ 
$�0,30) line$  
.�
8
� �cls
B�26
L� I%=1 � 5
V� �248,�224);
`�
j� 0,28:� 0,1023
t� 1278,1023:� 1278,28
~
� 0,28
��
�� �init
�(� 23,224,85,255,85,255,85,255,85,255
�
� 129:� 0
��
�� �window(X%,Y%,W%,H%)
�!�28,X%+1,Y%+1+H%,X%+1+W%,Y%+1
�� 128:�
��28,X%,Y%+H%,X%+W%,Y%
�
�129:�
��28 X%+1,Y%+H%,X%+W%,Y%+1 
�

� �title
�window(3,2,30,2) 
#�"!EDIT V2.00 BY ROBERT COOPER"
(�
�
00000000  0d 00 0a 0c 20 f4 20 21  45 44 49 54 0d 00 14 1d  |.... . !EDIT....|
00000010  20 f4 20 28 43 29 20 52  4f 42 45 52 54 20 43 4f  | . (C) ROBERT CO|
00000020  4f 50 45 52 20 27 39 31  2e 0d 00 1e 06 20 f4 0d  |OPER '91..... ..|
00000030  00 28 2c 20 ef 32 33 2c  32 32 35 2c 32 35 35 2c  |.(, .23,225,255,|
00000040  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000050  32 35 35 2c 32 35 35 2c  32 35 35 0d 00 32 06 eb  |255,255,255..2..|
00000060  34 0d 00 3c 09 f2 69 6e  69 74 0d 00 41 08 f2 63  |4..<..init..A..c|
00000070  6c 73 0d 00 46 0a f2 74  69 74 6c 65 0d 00 50 18  |ls..F..title..P.|
00000080  f2 77 69 6e 64 6f 77 28  33 2c 31 30 2c 33 30 2c  |.window(3,10,30,|
00000090  31 30 29 20 0d 00 5a 14  f1 22 31 2e 45 4e 54 45  |10) ..Z.."1.ENTE|
000000a0  52 20 54 45 58 54 22 20  0d 00 64 15 f1 22 32 2e  |R TEXT" ..d.."2.|
000000b0  52 45 41 44 20 54 45 58  54 22 20 20 20 0d 00 6e  |READ TEXT"   ..n|
000000c0  14 f1 22 33 2e 50 52 49  4e 54 20 46 49 4c 45 22  |.."3.PRINT FILE"|
000000d0  20 0d 00 78 1c f4 50 52  49 4e 54 22 34 2e 45 44  | ..x..PRINT"4.ED|
000000e0  49 54 20 54 45 58 54 20  46 49 4c 45 22 0d 00 82  |IT TEXT FILE"...|
000000f0  0e f1 22 34 2e 51 55 49  54 22 20 0d 00 8c 05 f1  |.."4.QUIT" .....|
00000100  0d 00 96 1e e8 22 57 48  49 43 48 20 4f 4e 45 20  |....."WHICH ONE |
00000110  28 31 2d 34 29 20 22 2c  63 68 6f 69 63 65 0d 00  |(1-4) ",choice..|
00000120  a0 2a e7 20 63 68 6f 69  63 65 3d 31 20 f2 65 6e  |.*. choice=1 .en|
00000130  74 65 72 20 8b 20 e7 20  63 68 6f 69 63 65 3d 32  |ter . . choice=2|
00000140  20 f2 72 65 61 64 20 20  0d 00 aa 17 e7 20 63 68  | .read  ..... ch|
00000150  6f 69 63 65 3d 33 20 8c  20 f2 70 72 69 6e 74 0d  |oice=3 . .print.|
00000160  00 b4 20 f4 49 46 20 63  68 6f 69 63 65 3d 34 20  |.. .IF choice=4 |
00000170  54 48 45 4e 20 50 52 4f  43 65 64 69 74 20 20 0d  |THEN PROCedit  .|
00000180  00 be 10 f5 20 fd 20 63  68 6f 69 63 65 3d 34 0d  |.... . choice=4.|
00000190  00 c8 06 e0 20 0d 00 d2  0c dd 20 f2 65 6e 74 65  |.... ..... .ente|
000001a0  72 0d 00 dc 08 f2 63 6c  73 0d 00 e6 0a f2 74 69  |r.....cls.....ti|
000001b0  74 6c 65 0d 00 f0 17 f2  77 69 6e 64 6f 77 28 33  |tle.....window(3|
000001c0  2c 38 2c 33 32 2c 32 30  29 20 0d 00 fa 05 f5 0d  |,8,32,20) ......|
000001d0  01 04 17 e8 22 46 49 4c  45 20 4e 41 4d 45 3a 20  |...."FILE NAME: |
000001e0  22 66 69 6c 65 24 0d 01  0e 0f 66 69 6c 65 3d ae  |"file$....file=.|
000001f0  66 69 6c 65 24 0d 01 18  0d fd 20 66 69 6c 65 3c  |file$..... file<|
00000200  3e 30 0d 01 22 18 ee 20  85 20 d9 23 66 69 6c 65  |>0..".. . .#file|
00000210  3a ef 37 3a e5 20 8d 54  7c 40 0d 01 2c 0a 6c 69  |:.7:. .T|@..,.li|
00000220  6e 65 3d 31 0d 01 36 05  f5 0d 01 40 05 f4 0d 01  |ne=1..6....@....|
00000230  4a 0d e8 20 86 20 22 22  69 6e 24 0d 01 54 12 69  |J.. . ""in$..T.i|
00000240  6e 24 3d 69 6e 24 2b bd  28 26 30 44 29 0d 01 5e  |n$=in$+.(&0D)..^|
00000250  13 e3 20 69 25 3d 31 20  b8 20 a9 28 69 6e 24 29  |.. i%=1 . .(in$)|
00000260  0d 01 68 16 d5 23 66 69  6c 65 2c 97 28 c1 69 6e  |..h..#file,.(.in|
00000270  24 2c 69 25 29 29 0d 01  72 08 ed 20 69 25 0d 01  |$,i%))..r.. i%..|
00000280  7c 05 f4 0d 01 86 07 fd  20 a3 0d 01 90 19 f4 2a  ||....... ......*|
00000290  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000002a0  2a 2a 20 0d 01 9a 0c dd  20 f2 72 65 61 64 20 0d  |** ..... .read .|
000002b0  01 a4 08 f2 63 6c 73 0d  01 ae 0a f2 74 69 74 6c  |....cls.....titl|
000002c0  65 0d 01 b8 17 f2 77 69  6e 64 6f 77 28 32 2c 38  |e.....window(2,8|
000002d0  2c 33 34 2c 32 30 29 20  0d 01 c2 07 ef 31 34 0d  |,34,20) .....14.|
000002e0  01 cc 05 f5 0d 01 d6 15  e8 22 46 49 4c 45 20 4e  |........."FILE N|
000002f0  41 4d 45 3a 20 22 54 58  24 0d 01 e0 0f 66 69 6c  |AME: "TX$....fil|
00000300  65 3d 8e 28 54 58 24 29  0d 01 ea 0d fd 20 66 69  |e=.(TX$)..... fi|
00000310  6c 65 3c 3e 30 0d 01 f4  05 f5 0d 01 fe 0f 63 68  |le<>0.........ch|
00000320  61 72 3d 9a 23 66 69 6c  65 0d 02 08 38 e7 20 63  |ar=.#file...8. c|
00000330  68 61 72 3d 26 30 44 20  8c 20 f1 20 8b 20 e7 20  |har=&0D . . . . |
00000340  63 68 61 72 3c 26 32 30  20 8c 20 f1 20 22 2e 22  |char<&20 . . "."|
00000350  3b 20 8b 20 f1 20 bd 28  63 68 61 72 29 3b 20 20  |; . . .(char);  |
00000360  20 0d 02 12 0c fd 20 c5  23 66 69 6c 65 0d 02 1c  | ..... .#file...|
00000370  0b d9 23 66 69 6c 65 20  0d 02 26 0d f5 20 fd 20  |..#file ..&.. . |
00000380  be 3d 22 20 22 0d 02 30  07 ef 31 35 0d 02 3a 07  |.=" "..0..15..:.|
00000390  ef 37 20 0d 02 44 0a e5  20 8d 54 7c 40 0d 02 4e  |.7 ..D.. .T|@..N|
000003a0  18 f4 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..**************|
000003b0  2a 2a 2a 2a 20 0d 02 58  0c dd 20 f2 70 72 69 6e  |**** ..X.. .prin|
000003c0  74 0d 02 62 06 db 20 0d  02 6c 05 f5 0d 02 76 06  |t..b.. ..l....v.|
000003d0  f1 20 0d 02 80 16 e8 22  46 49 4c 45 20 4e 41 4d  |. ....."FILE NAM|
000003e0  45 3a 20 22 54 58 24 20  0d 02 8a 05 db 0d 02 94  |E: "TX$ ........|
000003f0  06 ef 32 0d 02 9e 0f 66  69 6c 65 3d 8e 28 54 58  |..2....file=.(TX|
00000400  24 29 0d 02 a8 0e fe 20  66 69 6c 65 3c 3e 30 20  |$)..... file<>0 |
00000410  0d 02 b2 06 f5 21 0d 02  bc 10 63 68 63 72 3d 89  |.....!....chcr=.|
00000420  23 66 69 6c 65 20 0d 02  c6 36 e7 20 63 68 61 72  |#file ...6. char|
00000430  3d 26 30 44 20 8c 20 f1  20 8b 20 e7 20 63 68 61  |=&0D . . . . cha|
00000440  72 3c 26 32 30 20 8c 20  f1 20 22 2e 22 3b 20 8b  |r<&20 . . "."; .|
00000450  20 f1 20 bd 28 63 68 61  72 29 3b 20 0d 02 d0 0c  | . .(char); ....|
00000460  fd 20 c5 23 66 69 6c 65  0d 02 da 0a d9 23 66 69  |. .#file.....#fi|
00000470  6c 65 0d 02 e4 06 ef 33  0d 02 ee 06 ef 37 0d 02  |le.....3.....7..|
00000480  f8 09 e5 8d 44 50 40 0d  03 02 1b f4 2a 2a 2a 2a  |....DP@.....****|
00000490  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000004a0  2a 20 0d 03 0c 0b dd 20  f2 65 64 69 74 0d 03 16  |* ..... .edit...|
000004b0  06 db 20 0d 03 20 18 ee  20 85 20 d9 23 66 69 6c  |.. .. .. . .#fil|
000004c0  65 3a ef 37 3a e5 20 8d  44 50 40 0d 03 2a 06 f5  |e:.7:. .DP@..*..|
000004d0  20 0d 03 34 16 e8 22 46  49 4c 45 20 4e 41 4d 45  | ..4.."FILE NAME|
000004e0  3a 20 22 54 45 58 24 0d  03 3e 18 e8 22 46 49 4c  |: "TEX$..>.."FIL|
000004f0  45 20 54 4f 20 53 41 56  45 3a 20 22 46 53 24 0d  |E TO SAVE: "FS$.|
00000500  03 48 06 db 20 0d 03 52  12 66 69 6c 65 3d 8e 28  |.H.. ..R.file=.(|
00000510  54 45 58 24 29 20 20 0d  03 5c 0e fd 20 66 69 6c  |TEX$)  ..\.. fil|
00000520  65 3c 3e 30 20 0d 03 66  05 f5 0d 03 70 0f 63 68  |e<>0 ..f....p.ch|
00000530  61 72 3d 9a 23 66 69 6c  65 0d 03 7a 38 e7 20 63  |ar=.#file..z8. c|
00000540  68 61 72 3d 26 30 44 20  8c 20 f1 20 8b 20 e7 20  |har=&0D . . . . |
00000550  63 68 61 72 3c 26 32 30  20 8c 20 f1 20 22 2e 22  |char<&20 . . "."|
00000560  3b 20 8b 20 f1 20 bd 28  63 68 61 72 29 3b 20 20  |; . . .(char);  |
00000570  20 0d 03 84 0c fd 20 c5  23 66 69 6c 65 0d 03 8e  | ..... .#file...|
00000580  10 f4 43 4c 4f 53 45 23  66 69 6c 65 20 0d 03 98  |..CLOSE#file ...|
00000590  05 f5 0d 03 a2 0d 66 69  6c 65 3d ae 46 53 24 0d  |......file=.FS$.|
000005a0  03 ac 0d fd 20 66 69 6c  65 3c 3e 30 0d 03 b6 05  |.... file<>0....|
000005b0  f5 0d 03 c0 0d e8 20 86  20 22 22 69 6e 24 0d 03  |...... . ""in$..|
000005c0  ca 13 69 6e 24 3d 69 6e  24 2b bd 28 26 30 44 29  |..in$=in$+.(&0D)|
000005d0  20 0d 03 d4 13 e3 20 69  25 3d 31 20 b8 20 a9 28  | ..... i%=1 . .(|
000005e0  69 6e 24 29 0d 03 de 1b  d5 23 66 69 6c 65 2c 97  |in$).....#file,.|
000005f0  28 c1 69 6e 24 2b 63 68  61 72 2c 69 25 29 29 0d  |(.in$+char,i%)).|
00000600  03 e8 08 ed 20 69 25 0d  03 f2 08 fd 20 a3 20 0d  |.... i%..... . .|
00000610  03 fc 0d dd 20 f2 62 6f  72 64 65 72 0d 04 06 05  |.... .border....|
00000620  db 0d 04 10 13 6c 69 6e  65 24 3d c4 34 30 2c bd  |.....line$=.40,.|
00000630  32 32 35 29 0d 04 1a 11  f1 8a 30 2c 32 29 20 6c  |225)......0,2) l|
00000640  69 6e 65 24 20 0d 04 24  13 f1 8a 30 2c 33 30 29  |ine$ ..$...0,30)|
00000650  20 6c 69 6e 65 24 20 20  0d 04 2e 05 e1 0d 04 38  | line$  .......8|
00000660  0a dd 20 f2 63 6c 73 0d  04 42 07 ef 32 36 0d 04  |.. .cls..B..26..|
00000670  4c 0e e3 20 49 25 3d 31  20 b8 20 35 0d 04 56 11  |L.. I%=1 . 5..V.|
00000680  f1 20 c4 32 34 38 2c bd  32 32 34 29 3b 0d 04 60  |. .248,.224);..`|
00000690  05 ed 0d 04 6a 13 ec 20  30 2c 32 38 3a df 20 30  |....j.. 0,28:. 0|
000006a0  2c 31 30 32 33 0d 04 74  19 df 20 31 32 37 38 2c  |,1023..t.. 1278,|
000006b0  31 30 32 33 3a df 20 31  32 37 38 2c 32 38 0d 04  |1023:. 1278,28..|
000006c0  7e 0a df 20 30 2c 32 38  0d 04 88 05 e1 0d 04 92  |~.. 0,28........|
000006d0  0b dd 20 f2 69 6e 69 74  0d 04 9c 28 ef 20 32 33  |.. .init...(. 23|
000006e0  2c 32 32 34 2c 38 35 2c  32 35 35 2c 38 35 2c 32  |,224,85,255,85,2|
000006f0  35 35 2c 38 35 2c 32 35  35 2c 38 35 2c 32 35 35  |55,85,255,85,255|
00000700  0d 04 a6 0d fb 20 31 32  39 3a fb 20 30 0d 04 ba  |..... 129:. 0...|
00000710  05 e1 0d 04 c4 1a dd 20  f2 77 69 6e 64 6f 77 28  |....... .window(|
00000720  58 25 2c 59 25 2c 57 25  2c 48 25 29 0d 04 ce 21  |X%,Y%,W%,H%)...!|
00000730  ef 32 38 2c 58 25 2b 31  2c 59 25 2b 31 2b 48 25  |.28,X%+1,Y%+1+H%|
00000740  2c 58 25 2b 31 2b 57 25  2c 59 25 2b 31 0d 04 d8  |,X%+1+W%,Y%+1...|
00000750  0b fb 20 31 32 38 3a db  0d 04 e2 19 ef 32 38 2c  |.. 128:......28,|
00000760  58 25 2c 59 25 2b 48 25  2c 58 25 2b 57 25 2c 59  |X%,Y%+H%,X%+W%,Y|
00000770  25 0d 04 ec 0a fb 31 32  39 3a db 0d 04 f6 1e ef  |%.....129:......|
00000780  32 38 20 58 25 2b 31 2c  59 25 2b 48 25 2c 58 25  |28 X%+1,Y%+H%,X%|
00000790  2b 57 25 2c 59 25 2b 31  20 0d 05 00 05 e1 0d 05  |+W%,Y%+1 .......|
000007a0  0a 0c dd 20 f2 74 69 74  6c 65 0d 05 14 16 f2 77  |... .title.....w|
000007b0  69 6e 64 6f 77 28 33 2c  32 2c 33 30 2c 32 29 20  |indow(3,2,30,2) |
000007c0  0d 05 1e 23 f1 22 21 45  44 49 54 20 56 32 2e 30  |...#."!EDIT V2.0|
000007d0  30 20 42 59 20 52 4f 42  45 52 54 20 43 4f 4f 50  |0 BY ROBERT COOP|
000007e0  45 52 22 0d 05 28 05 e1  0d ff                    |ER"..(....|
000007ea
UTILITIES/!EDIT.m0
UTILITIES/!EDIT.m1
UTILITIES/!EDIT.m2
UTILITIES/!EDIT.m4
UTILITIES/!EDIT.m5