PROGS/TRANS/EDIT

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » PROGS/TRANS/EDIT

PROGS/TRANS/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_User_Group » EUG_16.ADF
Filename:	PROGS/TRANS/EDIT
Read OK:	✔
File size:	169E bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

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

AEW website » eug » eug_5_25_discs_Eug-16_D-EUG16.dsd » U.vocabED
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_16.ADF » PROGS/TRANS/EDIT

File contents

   10 REM File Editor
   20 REM By C.Weber 1994 :^)
   30 REM Version 1.2
   40 REM
   50 REM Array Load/Save Is
   60 REM Partly Coded Using The
   70 REM Data Base Program From
   80 REM EUG Issue 14
   90 REM 
  100 
  110 MODE4
  120 VDU23,1,0;0;0;0;
  130 VDU19,0,4,0,0,0
  140 VDU23,224,24,60,126,24,24,24,24,24
  150 VDU23,225,24,24,24,24,24,126,60,24   
  160 FI$=""
  170 DIM A$(100)
  180 DIM B$(100)
  190 DIM D$(100)
  200 C$=""
  210 YN%=0
  220 RN%=0
  230 RE%=0
  240 AD%=0
  250 ST%=0
  260 TE%=0
  270 NW%=0
  280 NT%=0
  290 DEL%=0
  300 Q%=0
  310 C%=1
  320 CL%=0
  330 J%=0
  340 ED%=0
  350 TB%=0
  360 SEAR%=0
  370 SAV%=0
  380 CHAN%=0
  390 NEWS%=0 
  400 CLS
  410 *FX21,0
  420 PROCscreen
  430 GOTO560
  440 DEFPROCscreen
  450 FOR RI%=1 TO 38
  460   PRINTTAB(RI%,1)"*"
  470   PRINTTAB(RI%,3)"*"
  480   PRINTTAB(RI%,30)"*"
  490 NEXT RI%
  500 PRINTTAB(5,2)"Vocab. Editor  By  C.Weber 1994" 
  510 FOR DO%=1 TO 30
  520   PRINTTAB(1,DO%)"*"
  530   PRINTTAB(38,DO%)"*"
  540 NEXT DO%
  550 ENDPROC
  560 INPUTTAB(3,5)"Edit a file (Y/N)";NI$ 
  570 IF NI$="Y" THENGOTO610ELSECHAIN"MENU"
  580 
  590 REM *** Load File ***
  600 
  610 CLS:*.
  620 PRINT:INPUT"Enter Filename : ";FI$ 
  630 IF FI$="" THENGOTO620
  640 A=OPENIN (FI$)
  650 INPUT# A,X
  660 FOR Z=1 TO X
  670   INPUT# A,A$(Z),B$(Z),NW%,E%
  680 NEXTZ
  690 CLOSE# A
  700 
  710 CLS
  720 PROCscreen
  730 PRINTTAB(3,5)"Viewing file  : ";FI$  
  740 FORRI%=1TO38
  750   PRINTTAB(RI%,13)"*" 
  760   PRINTTAB(RI%,26)"*" 
  770 NEXTRI%
  780 PRINTTAB(3,15)"";CHR$224;"&";CHR$225;" to move UP and DOWN the list" 
  790 PRINTTAB(3,16)"(A) to ADD  to the list" 
  800 PRINTTAB(3,17)"(D) to DELETE current list position" 
  810 PRINTTAB(3,18)"(E) to EDIT current list position" 
  820 PRINTTAB(3,19)"(R) to RETURN to the main menu"  
  830 PRINTTAB(3,20)"(J) to JUMP to a position" 
  840 PRINTTAB(3,21)"(W) to SEARCH for a word"  
  850 PRINTTAB(3,22)"(S) to SAVE list to disk" 
  860 PRINTTAB(3,23)"(N) for a NEW list"
  870 PRINTTAB(3,24)"(Q) to QUIT the program" 
  880 REPEAT
  890   PRINTTAB(3,6)"List position : ";C%  
  900   PRINTTAB(3,10)"Word 1 : ";A$(C%)
  910   PRINTTAB(3,11)"Word 2 : ";B$(C%)
  920   PROCinput
  930   IFAD%=1THENPROCadd
  940   IFDEL%=1THENPROCdelete 
  950   IFJ%=1THENPROCjump
  960   IFED%=1THENPROCedit 
  970   IFSEAR%=1THENPROCsearch 
  980   IFSAV%=1THENPROCsave
  990   IFNEWS%=1THENPROCnew 
 1000   IFYN%=1THENNEWS%=0:GOTO200
 1010   IFRE%=1THENPROCreturn  
 1020   IFRN%=1THENCLS:CHAIN"MENU"
 1030 UNTILQ%=1
 1040 CLS:END
 1050 
 1060 REM *** Read Keyboard ***
 1070 
 1080 DEFPROCinput
 1090 IF INKEY(-51)THENDEL%=1:TB%=1
 1100 IF INKEY(-66)THENAD%=1:TB%=1
 1110 IF INKEY(-52)THENRE%=1:TB%=1
 1120 IF INKEY(-17)THENPROCquit
 1130 IF INKEY(-86)THENNEWS%=1:TB%=1 
 1140 IF INKEY(-70)THENJ%=1:TB%=1
 1150 IF INKEY(-34)THENSEAR%=1:TB%=1
 1160 IF INKEY(-35)THENED%=1:TB%=1 
 1170 IF INKEY(-82)THENSAV%=1:TB%=1
 1180 IF INKEY(-58)THENC%=C%-1:CL%=1:TB%=1
 1190 IF C%<=1 THENC%=1:COLOUR131:COLOUR2:PRINTTAB(3,9)"At top of the list!"
 1200 IF INKEY(-42)THENC%=C%+1:CL%=1:TB%=1
 1210 IF C%>NW% THENC%=C%-1:COLOUR131:COLOUR2:PRINTTAB(3,12)"At bottom of the list!"
 1220 COLOUR130:COLOUR1
 1230 IF C%>1THENPRINTTAB(3,9)"                            "
 1240 IF C%<NW%THENPRINTTAB(3,12)"                            " 
 1250 IF CL%=1 THENPRINTTAB(3,10)"Word 1 :                           ":PRINTTAB(3,11)"Word 2 :                           ":CL%=0 
 1260   IF TB%=1 THENPRINTTAB(3,28)"                        " 
 1270 ENDPROC
 1280 REM *** Edit List ***
 1290 
 1300 DEFPROCedit
 1310 ED%=0
 1320 CHAN%=1
 1330 *FX21,0
 1340 PRINTTAB(3,5)"Editing file  : ";FI$
 1350 PRINTTAB(3,10)"Word 1 :                           ":PRINTTAB(3,11)"Word 2 :                           "
 1360 INPUTTAB(3,10)"Word 1 :";A$(C%)
 1370 INPUTTAB(3,11)"Word 2 :";B$(C%)
 1380 ENDPROC
 1390 
 1400 REM *** Jump To A Position ***
 1410 
 1420 DEFPROCjump
 1430 *FX21,0
 1440 INPUTTAB(3,28)"Jump To Position No. : ";N% 
 1450 IF N%=0 THEN N%=C%
 1460 IF N%<=NW% THEN C%=N%:PRINTTAB(3,10)"Word 1 :                           ":PRINTTAB(3,11)"Word 2 :                           "
 1470 PRINTTAB(3,28)"                              "
 1480 IF N%>NW% THENCOLOUR131:COLOUR2:PRINTTAB(3,28)"Invalid position!":N%=0:COLOUR130:COLOUR1  
 1490 J%=0
 1500 TB%=0
 1510 ENDPROC
 1520 
 1530 REM *** Search For A Word ***
 1540 
 1550 DEFPROCsearch
 1560 SEAR%=0
 1570 *FX21,0
 1580 INPUTTAB(3,28)"Word To Find : ";W$
 1590 IF W$="" THEN ENDPROC  
 1600 PRINTTAB(3,28)"                         "
 1610 TE%=C%
 1620 C%=0
 1630 ST%=0
 1640 REPEAT
 1650   C%=C%+1
 1660   IF W$=A$(C%) THEN CL%=1:ST%=1
 1670   IF W$=B$(C%) THEN CL%=1:ST%=1
 1680   IF C%>NW%THENCOLOUR131:COLOUR2:PRINTTAB(3,28)"Word not found!":COLOUR130:COLOUR1:C%=TE%:TB%=0:ST%=1 
 1690 UNTILST%=1
 1700 ENDPROC
 1710 
 1720 REM *** Save List To Disk ***
 1730 REM
 1740 DEFPROCsave
 1750 *FX21,0
 1760 CHAN%=0
 1770 TE%=C%
 1780 C%=1
 1790 SAV%=0
 1800 REM X=C%  
 1810 COLOUR131:COLOUR2
 1820 INPUTTAB(3,28)"Enter filename : ";FI$
 1830 COLOUR130:COLOUR1
 1840 IF FI$="" THENENDPROC
 1850 A=OPENOUT(FI$)
 1860 PRINT# A,NW%
 1870 FORC%=1TONW%
 1880   PRINT# A,A$(C%),B$(C%),NW%,E%
 1890 NEXTC%
 1900 CLOSE# A
 1910 PRINTTAB(3,28)"                                "
 1920 C%=TE%
 1930 ENDPROC
 1940 
 1950 REM *** Add To List ***
 1960 
 1970 DEFPROCadd
 1980 AD%=0
 1990 CHAN%=1
 2000 *FX21,0
 2010 NW%=NW%+1
 2020 C%=NW%
 2030 PRINTTAB(3,5)"Editing file  : ";FI$
 2040 PRINTTAB(3,6)"List position : ";C%  
 2050 PRINTTAB(3,10)"Word 1 :                           ":PRINTTAB(3,11)"Word 2 :                           "
 2060 PRINTTAB(3,9)"                   "
 2070 INPUTTAB(3,10)"Word 1 :";A$(C%)
 2080 INPUTTAB(3,11)"Word 2 :";B$(C%)
 2090 ENDPROC
 2100 
 2110 REM *** Quit Program ***
 2120 
 2130 DEFPROCquit
 2140 *FX21,0
 2150 IF CHAN%=0 THENQ%=1:ENDPROC
 2160 IF CHAN%=1 THENCOLOUR131:COLOUR2:INPUTTAB(3,28)"Save Changes (Y/N)";C$ 
 2170 COLOUR130:COLOUR1
 2180 IF C$="Y" THEN Q%=0:SAV%=1:TB%=1
 2190 IF C$<>"Y" THEN Q%=1
 2200 ENDPROC
 2210 
 2220 REM *** New List ***
 2230 
 2240 DEFPROCnew
 2250 *FX21,0
 2260 YN%=0
 2270 IF CHAN%=0 THENYN%=1:ENDPROC
 2280 IF CHAN%=1 THENCOLOUR131:COLOUR2:INPUTTAB(3,28)"Save Changes (Y/N)";C$ 
 2290 COLOUR130:COLOUR1 
 2300 IF C$="Y" THEN YN%=0:NEWS%=0:SAV%=1:TB%=1  
 2310 IF C$<>"Y" THEN NEWS%=0:YN%=1 
 2320 ENDPROC
 2330 
 2340 REM *** Return To Main ***
 2350 
 2360 DEFPROCreturn
 2370 *FX21,0
 2380 RN%=0
 2390 IF CHAN%=0 THENRN%=1:ENDPROC
 2400 IF CHAN%=1 THENCOLOUR131:COLOUR2:INPUTTAB(3,28)"Save Changes (Y/N)";C$ 
 2410 COLOUR130:COLOUR1 
 2420 IF C$="Y" THEN RN%=0:RE%=0:SAV%=1:TB%=1 
 2430 IF C$<>"Y" THEN RE%=0:RN%=1 
 2440 ENDPROC
 2450 
 2460 REM *** Delete Current Pos. ***
 2470 
 2480 DEFPROCdelete
 2490 *FX21,0
 2500 DEL%=0
 2510 COLOUR131:COLOUR2
 2520 INPUTTAB(3,28)"Delete (Y/N)";C$
 2530 COLOUR130:COLOUR1
 2540 IF C$<>"Y"THENENDPROC
 2550 A$(C%)=" "
 2560 B$(C%)=" "
 2570 COLOUR131:COLOUR2
 2580 PRINTTAB(3,28)"Deleting. Please wait..."
 2590 COLOUR130:COLOUR1
 2600 C%=1
 2610 D%=1
 2620 NT%=NW%
 2630 FORC%=1TONW%
 2640   MIS%=0
 2650   IF A$(C%)=" "THENMIS%=1:C%=C%+1
 2660   D$(D%)=A$(C%)
 2670   D%=D%+1
 2680 NEXTC%
 2690 D1%=D%-1
 2700 C%=1
 2710 FORC%=1TOD1%
 2720   A$(C%)=D$(C%) 
 2730 NEXTC%
 2740 C%=1
 2750 D%=1
 2760 NW%=NT%
 2770 FORC%=1TONW%
 2780   MIS%=0
 2790   IF B$(C%)=" "THENMIS%=1:C%=C%+1
 2800   D$(D%)=B$(C%)
 2810   D%=D%+1
 2820 NEXTC%
 2830 NW%=D%
 2840 D1%=D%-1 
 2850 C%=1
 2860 FORC%=1TOD1%
 2870   B$(C%)=D$(C%)
 2880 NEXTC%
 2890 CHAN%=1
 2900 NW%=NW%-1
 2910 ENDPROC


 � File Editor
 � By C.Weber 1994 :^)
 � Version 1.2
( �
2 � Array Load/Save Is
< � Partly Coded Using The
F � Data Base Program From
P � EUG Issue 14
Z � 
d 
n �4
x �23,1,0;0;0;0;
� �19,0,4,0,0,0
�% �23,224,24,60,126,24,24,24,24,24
�( �23,225,24,24,24,24,24,126,60,24   
� FI$=""
� � A$(100)
� � B$(100)
� � D$(100)
�
 C$=""
�
 YN%=0
�
 RN%=0
�
 RE%=0
�
 AD%=0
�
 ST%=0
 TE%=0

 NW%=0

 NT%=0
" DEL%=0
,	 Q%=0
6	 C%=1
@
 CL%=0
J	 J%=0
T
 ED%=0
^
 TB%=0
h SEAR%=0
r SAV%=0
| CHAN%=0
�
 NEWS%=0 
� �
� *FX21,0
� �screen
�
 �TpB
�
 ��screen
� � RI%=1 � 38
�   �RI%,1)"*"
�   �RI%,3)"*"
�   �RI%,30)"*"
�
 � RI%
�- �5,2)"Vocab. Editor  By  C.Weber 1994" 
� � DO%=1 � 30
   �1,DO%)"*"
   �38,DO%)"*"

 � DO%
& �
0# �3,5)"Edit a file (Y/N)";NI$ 
: � NI$="Y" ��DbB��"MENU"
D 
N � *** Load File ***
X 
b	 �:*.
l  �:�"Enter Filename : ";FI$ 
v � FI$="" ��DlB
� A=� (FI$)
� �# A,X
� � Z=1 � X
�   �# A,A$(Z),B$(Z),NW%,E%
� �Z
�	 �# A
� 
� �
� �screen
�# �3,5)"Viewing file  : ";FI$  
� �RI%=1�38
�   �RI%,13)"*" 
�   �RI%,26)"*" 
	 �RI%
= �3,15)"";�224;"&";�225;" to move UP and DOWN the list" 
& �3,16)"(A) to ADD  to the list" 
 2 �3,17)"(D) to DELETE current list position" 
*0 �3,18)"(E) to EDIT current list position" 
4. �3,19)"(R) to RETURN to the main menu"  
>( �3,20)"(J) to JUMP to a position" 
H( �3,21)"(W) to SEARCH for a word"  
R' �3,22)"(S) to SAVE list to disk" 
\  �3,23)"(N) for a NEW list"
f& �3,24)"(Q) to QUIT the program" 
p �
z$   �3,6)"List position : ";C%  
�    �3,10)"Word 1 : ";A$(C%)
�    �3,11)"Word 2 : ";B$(C%)
�
   �input
�   �AD%=1��add
�   �DEL%=1��delete 
�   �J%=1��jump
�   �ED%=1��edit 
�   �SEAR%=1��search 
�   �SAV%=1��save
�   �NEWS%=1��new 
�   �YN%=1�NEWS%=0:�dH@
�   �RE%=1��return  
�   �RN%=1��:�"MENU"

 �Q%=1
 �:�
 
$ � *** Read Keyboard ***
. 
8 ��input
B � �(-51)�DEL%=1:TB%=1
L � �(-66)�AD%=1:TB%=1
V � �(-52)�RE%=1:TB%=1
` � �(-17)��quit
j � �(-86)�NEWS%=1:TB%=1 
t � �(-70)�J%=1:TB%=1
~ � �(-34)�SEAR%=1:TB%=1
� � �(-35)�ED%=1:TB%=1 
� � �(-82)�SAV%=1:TB%=1
�! � �(-58)�C%=C%-1:CL%=1:TB%=1
�6 � C%<=1 �C%=1:�131:�2:�3,9)"At top of the list!"
�! � �(-42)�C%=C%+1:CL%=1:TB%=1
�> � C%>NW% �C%=C%-1:�131:�2:�3,12)"At bottom of the list!"
� �130:�1
�0 � C%>1��3,9)"                            "
�4 � C%<NW%��3,12)"                            " 
�n � CL%=1 ��3,10)"Word 1 :                           ":�3,11)"Word 2 :                           ":CL%=0 
�2   � TB%=1 ��3,28)"                        " 
� �
 � *** Edit List ***

 
 ��edit

 ED%=0
( CHAN%=1
2 *FX21,0
<! �3,5)"Editing file  : ";FI$
F^ �3,10)"Word 1 :                           ":�3,11)"Word 2 :                           "
P �3,10)"Word 1 :";A$(C%)
Z �3,11)"Word 2 :";B$(C%)
d �
n 
x! � *** Jump To A Position ***
� 
� ��jump
� *FX21,0
�) �3,28)"Jump To Position No. : ";N% 
� � N%=0 � N%=C%
�p � N%<=NW% � C%=N%:�3,10)"Word 1 :                           ":�3,11)"Word 2 :                           "
�, �3,28)"                              "
�@ � N%>NW% ��131:�2:�3,28)"Invalid position!":N%=0:�130:�1  
�	 J%=0
�
 TB%=0
� �
� 
�  � *** Search For A Word ***
 

 ��search
 SEAR%=0
" *FX21,0
,  �3,28)"Word To Find : ";W$
6 � W$="" � �  
@' �3,28)"                         "
J TE%=C%
T	 C%=0
^
 ST%=0
h �
r   C%=C%+1
|    � W$=A$(C%) � CL%=1:ST%=1
�    � W$=B$(C%) � CL%=1:ST%=1
�L   � C%>NW%��131:�2:�3,28)"Word not found!":�130:�1:C%=TE%:TB%=0:ST%=1 
� �ST%=1
� �
� 
�  � *** Save List To Disk ***
� �
� ��save
� *FX21,0
� CHAN%=0
� TE%=C%
�	 C%=1
� SAV%=0

 � X=C%  
 �131:�2
# �3,28)"Enter filename : ";FI$
& �130:�1
0 � FI$="" ��
:
 A=�(FI$)
D
 �# A,NW%
N �C%=1�NW%
X    �# A,A$(C%),B$(C%),NW%,E%
b �C%
l	 �# A
v. �3,28)"                                "
� C%=TE%
� �
� 
� � *** Add To List ***
� 
�
 ��add
�
 AD%=0
� CHAN%=1
� *FX21,0
� NW%=NW%+1
� C%=NW%
�! �3,5)"Editing file  : ";FI$
�" �3,6)"List position : ";C%  
^ �3,10)"Word 1 :                           ":�3,11)"Word 2 :                           "
  �3,9)"                   "
 �3,10)"Word 1 :";A$(C%)
  �3,11)"Word 2 :";B$(C%)
* �
4 
> � *** Quit Program ***
H 
R ��quit
\ *FX21,0
f � CHAN%=0 �Q%=1:�
p7 � CHAN%=1 ��131:�2:�3,28)"Save Changes (Y/N)";C$ 
z �130:�1
�! � C$="Y" � Q%=0:SAV%=1:TB%=1
� � C$<>"Y" � Q%=1
� �
� 
� � *** New List ***
� 
�
 ��new
� *FX21,0
�
 YN%=0
� � CHAN%=0 �YN%=1:�
�7 � CHAN%=1 ��131:�2:�3,28)"Save Changes (Y/N)";C$ 
�
 �130:�1 
�, � C$="Y" � YN%=0:NEWS%=0:SAV%=1:TB%=1  
	 � C$<>"Y" � NEWS%=0:YN%=1 
	 �
	 
	$ � *** Return To Main ***
	. 
	8
 ��return
	B *FX21,0
	L
 RN%=0
	V � CHAN%=0 �RN%=1:�
	`7 � CHAN%=1 ��131:�2:�3,28)"Save Changes (Y/N)";C$ 
	j
 �130:�1 
	t) � C$="Y" � RN%=0:RE%=0:SAV%=1:TB%=1 
	~ � C$<>"Y" � RE%=0:RN%=1 
	� �
	� 
	�" � *** Delete Current Pos. ***
	� 
	�
 ��delete
	� *FX21,0
	� DEL%=0
	� �131:�2
	� �3,28)"Delete (Y/N)";C$
	� �130:�1
	� � C$<>"Y"��
	� A$(C%)=" "
 B$(C%)=" "

 �131:�2
& �3,28)"Deleting. Please wait..."
 �130:�1
(	 C%=1
2	 D%=1
< NT%=NW%
F �C%=1�NW%
P
   MIS%=0
Z"   � A$(C%)=" "�MIS%=1:C%=C%+1
d   D$(D%)=A$(C%)
n   D%=D%+1
x �C%
�
 D1%=D%-1
�	 C%=1
� �C%=1�D1%
�   A$(C%)=D$(C%) 
� �C%
�	 C%=1
�	 D%=1
� NW%=NT%
� �C%=1�NW%
�
   MIS%=0
�"   � B$(C%)=" "�MIS%=1:C%=C%+1
�   D$(D%)=B$(C%)
�   D%=D%+1
 �C%
 NW%=D%
 D1%=D%-1 
"	 C%=1
, �C%=1�D1%
6   B$(C%)=D$(C%)
@ �C%
J CHAN%=1
T NW%=NW%-1
^ �
�

00000000  0d 00 0a 12 20 f4 20 46  69 6c 65 20 45 64 69 74  |.... . File Edit|
00000010  6f 72 0d 00 14 1a 20 f4  20 42 79 20 43 2e 57 65  |or.... . By C.We|
00000020  62 65 72 20 31 39 39 34  20 3a 5e 29 0d 00 1e 12  |ber 1994 :^)....|
00000030  20 f4 20 56 65 72 73 69  6f 6e 20 31 2e 32 0d 00  | . Version 1.2..|
00000040  28 06 20 f4 0d 00 32 19  20 f4 20 41 72 72 61 79  |(. ...2. . Array|
00000050  20 4c 6f 61 64 2f 53 61  76 65 20 49 73 0d 00 3c  | Load/Save Is..<|
00000060  1d 20 f4 20 50 61 72 74  6c 79 20 43 6f 64 65 64  |. . Partly Coded|
00000070  20 55 73 69 6e 67 20 54  68 65 0d 00 46 1d 20 f4  | Using The..F. .|
00000080  20 44 61 74 61 20 42 61  73 65 20 50 72 6f 67 72  | Data Base Progr|
00000090  61 6d 20 46 72 6f 6d 0d  00 50 13 20 f4 20 45 55  |am From..P. . EU|
000000a0  47 20 49 73 73 75 65 20  31 34 0d 00 5a 07 20 f4  |G Issue 14..Z. .|
000000b0  20 0d 00 64 05 20 0d 00  6e 07 20 eb 34 0d 00 78  | ..d. ..n. .4..x|
000000c0  13 20 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |. .23,1,0;0;0;0;|
000000d0  0d 00 82 12 20 ef 31 39  2c 30 2c 34 2c 30 2c 30  |.... .19,0,4,0,0|
000000e0  2c 30 0d 00 8c 25 20 ef  32 33 2c 32 32 34 2c 32  |,0...% .23,224,2|
000000f0  34 2c 36 30 2c 31 32 36  2c 32 34 2c 32 34 2c 32  |4,60,126,24,24,2|
00000100  34 2c 32 34 2c 32 34 0d  00 96 28 20 ef 32 33 2c  |4,24,24...( .23,|
00000110  32 32 35 2c 32 34 2c 32  34 2c 32 34 2c 32 34 2c  |225,24,24,24,24,|
00000120  32 34 2c 31 32 36 2c 36  30 2c 32 34 20 20 20 0d  |24,126,60,24   .|
00000130  00 a0 0b 20 46 49 24 3d  22 22 0d 00 aa 0e 20 de  |... FI$="".... .|
00000140  20 41 24 28 31 30 30 29  0d 00 b4 0e 20 de 20 42  | A$(100).... . B|
00000150  24 28 31 30 30 29 0d 00  be 0e 20 de 20 44 24 28  |$(100).... . D$(|
00000160  31 30 30 29 0d 00 c8 0a  20 43 24 3d 22 22 0d 00  |100).... C$=""..|
00000170  d2 0a 20 59 4e 25 3d 30  0d 00 dc 0a 20 52 4e 25  |.. YN%=0.... RN%|
00000180  3d 30 0d 00 e6 0a 20 52  45 25 3d 30 0d 00 f0 0a  |=0.... RE%=0....|
00000190  20 41 44 25 3d 30 0d 00  fa 0a 20 53 54 25 3d 30  | AD%=0.... ST%=0|
000001a0  0d 01 04 0a 20 54 45 25  3d 30 0d 01 0e 0a 20 4e  |.... TE%=0.... N|
000001b0  57 25 3d 30 0d 01 18 0a  20 4e 54 25 3d 30 0d 01  |W%=0.... NT%=0..|
000001c0  22 0b 20 44 45 4c 25 3d  30 0d 01 2c 09 20 51 25  |". DEL%=0..,. Q%|
000001d0  3d 30 0d 01 36 09 20 43  25 3d 31 0d 01 40 0a 20  |=0..6. C%=1..@. |
000001e0  43 4c 25 3d 30 0d 01 4a  09 20 4a 25 3d 30 0d 01  |CL%=0..J. J%=0..|
000001f0  54 0a 20 45 44 25 3d 30  0d 01 5e 0a 20 54 42 25  |T. ED%=0..^. TB%|
00000200  3d 30 0d 01 68 0c 20 53  45 41 52 25 3d 30 0d 01  |=0..h. SEAR%=0..|
00000210  72 0b 20 53 41 56 25 3d  30 0d 01 7c 0c 20 43 48  |r. SAV%=0..|. CH|
00000220  41 4e 25 3d 30 0d 01 86  0d 20 4e 45 57 53 25 3d  |AN%=0.... NEWS%=|
00000230  30 20 0d 01 90 06 20 db  0d 01 9a 0c 20 2a 46 58  |0 .... ..... *FX|
00000240  32 31 2c 30 0d 01 a4 0c  20 f2 73 63 72 65 65 6e  |21,0.... .screen|
00000250  0d 01 ae 0a 20 e5 8d 54  70 42 0d 01 b8 0d 20 dd  |.... ..TpB.... .|
00000260  f2 73 63 72 65 65 6e 0d  01 c2 11 20 e3 20 52 49  |.screen.... . RI|
00000270  25 3d 31 20 b8 20 33 38  0d 01 cc 12 20 20 20 f1  |%=1 . 38....   .|
00000280  8a 52 49 25 2c 31 29 22  2a 22 0d 01 d6 12 20 20  |.RI%,1)"*"....  |
00000290  20 f1 8a 52 49 25 2c 33  29 22 2a 22 0d 01 e0 13  | ..RI%,3)"*"....|
000002a0  20 20 20 f1 8a 52 49 25  2c 33 30 29 22 2a 22 0d  |   ..RI%,30)"*".|
000002b0  01 ea 0a 20 ed 20 52 49  25 0d 01 f4 2d 20 f1 8a  |... . RI%...- ..|
000002c0  35 2c 32 29 22 56 6f 63  61 62 2e 20 45 64 69 74  |5,2)"Vocab. Edit|
000002d0  6f 72 20 20 42 79 20 20  43 2e 57 65 62 65 72 20  |or  By  C.Weber |
000002e0  31 39 39 34 22 20 0d 01  fe 11 20 e3 20 44 4f 25  |1994" .... . DO%|
000002f0  3d 31 20 b8 20 33 30 0d  02 08 12 20 20 20 f1 8a  |=1 . 30....   ..|
00000300  31 2c 44 4f 25 29 22 2a  22 0d 02 12 13 20 20 20  |1,DO%)"*"....   |
00000310  f1 8a 33 38 2c 44 4f 25  29 22 2a 22 0d 02 1c 0a  |..38,DO%)"*"....|
00000320  20 ed 20 44 4f 25 0d 02  26 06 20 e1 0d 02 30 23  | . DO%..&. ...0#|
00000330  20 e8 8a 33 2c 35 29 22  45 64 69 74 20 61 20 66  | ..3,5)"Edit a f|
00000340  69 6c 65 20 28 59 2f 4e  29 22 3b 4e 49 24 20 0d  |ile (Y/N)";NI$ .|
00000350  02 3a 1d 20 e7 20 4e 49  24 3d 22 59 22 20 8c e5  |.:. . NI$="Y" ..|
00000360  8d 44 62 42 8b d7 22 4d  45 4e 55 22 0d 02 44 05  |.DbB.."MENU"..D.|
00000370  20 0d 02 4e 18 20 f4 20  2a 2a 2a 20 4c 6f 61 64  | ..N. . *** Load|
00000380  20 46 69 6c 65 20 2a 2a  2a 0d 02 58 05 20 0d 02  | File ***..X. ..|
00000390  62 09 20 db 3a 2a 2e 0d  02 6c 20 20 f1 3a e8 22  |b. .:*...l  .:."|
000003a0  45 6e 74 65 72 20 46 69  6c 65 6e 61 6d 65 20 3a  |Enter Filename :|
000003b0  20 22 3b 46 49 24 20 0d  02 76 14 20 e7 20 46 49  | ";FI$ ..v. . FI|
000003c0  24 3d 22 22 20 8c e5 8d  44 6c 42 0d 02 80 0e 20  |$="" ...DlB.... |
000003d0  41 3d 8e 20 28 46 49 24  29 0d 02 8a 0b 20 e8 23  |A=. (FI$).... .#|
000003e0  20 41 2c 58 0d 02 94 0e  20 e3 20 5a 3d 31 20 b8  | A,X.... . Z=1 .|
000003f0  20 58 0d 02 9e 1e 20 20  20 e8 23 20 41 2c 41 24  | X....   .# A,A$|
00000400  28 5a 29 2c 42 24 28 5a  29 2c 4e 57 25 2c 45 25  |(Z),B$(Z),NW%,E%|
00000410  0d 02 a8 07 20 ed 5a 0d  02 b2 09 20 d9 23 20 41  |.... .Z.... .# A|
00000420  0d 02 bc 05 20 0d 02 c6  06 20 db 0d 02 d0 0c 20  |.... .... ..... |
00000430  f2 73 63 72 65 65 6e 0d  02 da 23 20 f1 8a 33 2c  |.screen...# ..3,|
00000440  35 29 22 56 69 65 77 69  6e 67 20 66 69 6c 65 20  |5)"Viewing file |
00000450  20 3a 20 22 3b 46 49 24  20 20 0d 02 e4 0e 20 e3  | : ";FI$  .... .|
00000460  52 49 25 3d 31 b8 33 38  0d 02 ee 14 20 20 20 f1  |RI%=1.38....   .|
00000470  8a 52 49 25 2c 31 33 29  22 2a 22 20 0d 02 f8 14  |.RI%,13)"*" ....|
00000480  20 20 20 f1 8a 52 49 25  2c 32 36 29 22 2a 22 20  |   ..RI%,26)"*" |
00000490  0d 03 02 09 20 ed 52 49  25 0d 03 0c 3d 20 f1 8a  |.... .RI%...= ..|
000004a0  33 2c 31 35 29 22 22 3b  bd 32 32 34 3b 22 26 22  |3,15)"";.224;"&"|
000004b0  3b bd 32 32 35 3b 22 20  74 6f 20 6d 6f 76 65 20  |;.225;" to move |
000004c0  55 50 20 61 6e 64 20 44  4f 57 4e 20 74 68 65 20  |UP and DOWN the |
000004d0  6c 69 73 74 22 20 0d 03  16 26 20 f1 8a 33 2c 31  |list" ...& ..3,1|
000004e0  36 29 22 28 41 29 20 74  6f 20 41 44 44 20 20 74  |6)"(A) to ADD  t|
000004f0  6f 20 74 68 65 20 6c 69  73 74 22 20 0d 03 20 32  |o the list" .. 2|
00000500  20 f1 8a 33 2c 31 37 29  22 28 44 29 20 74 6f 20  | ..3,17)"(D) to |
00000510  44 45 4c 45 54 45 20 63  75 72 72 65 6e 74 20 6c  |DELETE current l|
00000520  69 73 74 20 70 6f 73 69  74 69 6f 6e 22 20 0d 03  |ist position" ..|
00000530  2a 30 20 f1 8a 33 2c 31  38 29 22 28 45 29 20 74  |*0 ..3,18)"(E) t|
00000540  6f 20 45 44 49 54 20 63  75 72 72 65 6e 74 20 6c  |o EDIT current l|
00000550  69 73 74 20 70 6f 73 69  74 69 6f 6e 22 20 0d 03  |ist position" ..|
00000560  34 2e 20 f1 8a 33 2c 31  39 29 22 28 52 29 20 74  |4. ..3,19)"(R) t|
00000570  6f 20 52 45 54 55 52 4e  20 74 6f 20 74 68 65 20  |o RETURN to the |
00000580  6d 61 69 6e 20 6d 65 6e  75 22 20 20 0d 03 3e 28  |main menu"  ..>(|
00000590  20 f1 8a 33 2c 32 30 29  22 28 4a 29 20 74 6f 20  | ..3,20)"(J) to |
000005a0  4a 55 4d 50 20 74 6f 20  61 20 70 6f 73 69 74 69  |JUMP to a positi|
000005b0  6f 6e 22 20 0d 03 48 28  20 f1 8a 33 2c 32 31 29  |on" ..H( ..3,21)|
000005c0  22 28 57 29 20 74 6f 20  53 45 41 52 43 48 20 66  |"(W) to SEARCH f|
000005d0  6f 72 20 61 20 77 6f 72  64 22 20 20 0d 03 52 27  |or a word"  ..R'|
000005e0  20 f1 8a 33 2c 32 32 29  22 28 53 29 20 74 6f 20  | ..3,22)"(S) to |
000005f0  53 41 56 45 20 6c 69 73  74 20 74 6f 20 64 69 73  |SAVE list to dis|
00000600  6b 22 20 0d 03 5c 20 20  f1 8a 33 2c 32 33 29 22  |k" ..\  ..3,23)"|
00000610  28 4e 29 20 66 6f 72 20  61 20 4e 45 57 20 6c 69  |(N) for a NEW li|
00000620  73 74 22 0d 03 66 26 20  f1 8a 33 2c 32 34 29 22  |st"..f& ..3,24)"|
00000630  28 51 29 20 74 6f 20 51  55 49 54 20 74 68 65 20  |(Q) to QUIT the |
00000640  70 72 6f 67 72 61 6d 22  20 0d 03 70 06 20 f5 0d  |program" ..p. ..|
00000650  03 7a 24 20 20 20 f1 8a  33 2c 36 29 22 4c 69 73  |.z$   ..3,6)"Lis|
00000660  74 20 70 6f 73 69 74 69  6f 6e 20 3a 20 22 3b 43  |t position : ";C|
00000670  25 20 20 0d 03 84 20 20  20 20 f1 8a 33 2c 31 30  |%  ...    ..3,10|
00000680  29 22 57 6f 72 64 20 31  20 3a 20 22 3b 41 24 28  |)"Word 1 : ";A$(|
00000690  43 25 29 0d 03 8e 20 20  20 20 f1 8a 33 2c 31 31  |C%)...    ..3,11|
000006a0  29 22 57 6f 72 64 20 32  20 3a 20 22 3b 42 24 28  |)"Word 2 : ";B$(|
000006b0  43 25 29 0d 03 98 0d 20  20 20 f2 69 6e 70 75 74  |C%)....   .input|
000006c0  0d 03 a2 12 20 20 20 e7  41 44 25 3d 31 8c f2 61  |....   .AD%=1..a|
000006d0  64 64 0d 03 ac 17 20 20  20 e7 44 45 4c 25 3d 31  |dd....   .DEL%=1|
000006e0  8c f2 64 65 6c 65 74 65  20 0d 03 b6 12 20 20 20  |..delete ....   |
000006f0  e7 4a 25 3d 31 8c f2 6a  75 6d 70 0d 03 c0 14 20  |.J%=1..jump.... |
00000700  20 20 e7 45 44 25 3d 31  8c f2 65 64 69 74 20 0d  |  .ED%=1..edit .|
00000710  03 ca 18 20 20 20 e7 53  45 41 52 25 3d 31 8c f2  |...   .SEAR%=1..|
00000720  73 65 61 72 63 68 20 0d  03 d4 14 20 20 20 e7 53  |search ....   .S|
00000730  41 56 25 3d 31 8c f2 73  61 76 65 0d 03 de 15 20  |AV%=1..save.... |
00000740  20 20 e7 4e 45 57 53 25  3d 31 8c f2 6e 65 77 20  |  .NEWS%=1..new |
00000750  0d 03 e8 1b 20 20 20 e7  59 4e 25 3d 31 8c 4e 45  |....   .YN%=1.NE|
00000760  57 53 25 3d 30 3a e5 8d  64 48 40 0d 03 f2 17 20  |WS%=0:..dH@.... |
00000770  20 20 e7 52 45 25 3d 31  8c f2 72 65 74 75 72 6e  |  .RE%=1..return|
00000780  20 20 0d 03 fc 17 20 20  20 e7 52 4e 25 3d 31 8c  |  ....   .RN%=1.|
00000790  db 3a d7 22 4d 45 4e 55  22 0d 04 06 0a 20 fd 51  |.:."MENU".... .Q|
000007a0  25 3d 31 0d 04 10 08 20  db 3a e0 0d 04 1a 05 20  |%=1.... .:..... |
000007b0  0d 04 24 1c 20 f4 20 2a  2a 2a 20 52 65 61 64 20  |..$. . *** Read |
000007c0  4b 65 79 62 6f 61 72 64  20 2a 2a 2a 0d 04 2e 05  |Keyboard ***....|
000007d0  20 0d 04 38 0c 20 dd f2  69 6e 70 75 74 0d 04 42  | ..8. ..input..B|
000007e0  1a 20 e7 20 a6 28 2d 35  31 29 8c 44 45 4c 25 3d  |. . .(-51).DEL%=|
000007f0  31 3a 54 42 25 3d 31 0d  04 4c 19 20 e7 20 a6 28  |1:TB%=1..L. . .(|
00000800  2d 36 36 29 8c 41 44 25  3d 31 3a 54 42 25 3d 31  |-66).AD%=1:TB%=1|
00000810  0d 04 56 19 20 e7 20 a6  28 2d 35 32 29 8c 52 45  |..V. . .(-52).RE|
00000820  25 3d 31 3a 54 42 25 3d  31 0d 04 60 13 20 e7 20  |%=1:TB%=1..`. . |
00000830  a6 28 2d 31 37 29 8c f2  71 75 69 74 0d 04 6a 1c  |.(-17)..quit..j.|
00000840  20 e7 20 a6 28 2d 38 36  29 8c 4e 45 57 53 25 3d  | . .(-86).NEWS%=|
00000850  31 3a 54 42 25 3d 31 20  0d 04 74 18 20 e7 20 a6  |1:TB%=1 ..t. . .|
00000860  28 2d 37 30 29 8c 4a 25  3d 31 3a 54 42 25 3d 31  |(-70).J%=1:TB%=1|
00000870  0d 04 7e 1b 20 e7 20 a6  28 2d 33 34 29 8c 53 45  |..~. . .(-34).SE|
00000880  41 52 25 3d 31 3a 54 42  25 3d 31 0d 04 88 1a 20  |AR%=1:TB%=1.... |
00000890  e7 20 a6 28 2d 33 35 29  8c 45 44 25 3d 31 3a 54  |. .(-35).ED%=1:T|
000008a0  42 25 3d 31 20 0d 04 92  1a 20 e7 20 a6 28 2d 38  |B%=1 .... . .(-8|
000008b0  32 29 8c 53 41 56 25 3d  31 3a 54 42 25 3d 31 0d  |2).SAV%=1:TB%=1.|
000008c0  04 9c 21 20 e7 20 a6 28  2d 35 38 29 8c 43 25 3d  |..! . .(-58).C%=|
000008d0  43 25 2d 31 3a 43 4c 25  3d 31 3a 54 42 25 3d 31  |C%-1:CL%=1:TB%=1|
000008e0  0d 04 a6 36 20 e7 20 43  25 3c 3d 31 20 8c 43 25  |...6 . C%<=1 .C%|
000008f0  3d 31 3a fb 31 33 31 3a  fb 32 3a f1 8a 33 2c 39  |=1:.131:.2:..3,9|
00000900  29 22 41 74 20 74 6f 70  20 6f 66 20 74 68 65 20  |)"At top of the |
00000910  6c 69 73 74 21 22 0d 04  b0 21 20 e7 20 a6 28 2d  |list!"...! . .(-|
00000920  34 32 29 8c 43 25 3d 43  25 2b 31 3a 43 4c 25 3d  |42).C%=C%+1:CL%=|
00000930  31 3a 54 42 25 3d 31 0d  04 ba 3e 20 e7 20 43 25  |1:TB%=1...> . C%|
00000940  3e 4e 57 25 20 8c 43 25  3d 43 25 2d 31 3a fb 31  |>NW% .C%=C%-1:.1|
00000950  33 31 3a fb 32 3a f1 8a  33 2c 31 32 29 22 41 74  |31:.2:..3,12)"At|
00000960  20 62 6f 74 74 6f 6d 20  6f 66 20 74 68 65 20 6c  | bottom of the l|
00000970  69 73 74 21 22 0d 04 c4  0c 20 fb 31 33 30 3a fb  |ist!".... .130:.|
00000980  31 0d 04 ce 30 20 e7 20  43 25 3e 31 8c f1 8a 33  |1...0 . C%>1...3|
00000990  2c 39 29 22 20 20 20 20  20 20 20 20 20 20 20 20  |,9)"            |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009b0  22 0d 04 d8 34 20 e7 20  43 25 3c 4e 57 25 8c f1  |"...4 . C%<NW%..|
000009c0  8a 33 2c 31 32 29 22 20  20 20 20 20 20 20 20 20  |.3,12)"         |
000009d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009e0  20 20 20 22 20 0d 04 e2  6e 20 e7 20 43 4c 25 3d  |   " ...n . CL%=|
000009f0  31 20 8c f1 8a 33 2c 31  30 29 22 57 6f 72 64 20  |1 ...3,10)"Word |
00000a00  31 20 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |1 :             |
00000a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 3a  |              ":|
00000a20  f1 8a 33 2c 31 31 29 22  57 6f 72 64 20 32 20 3a  |..3,11)"Word 2 :|
00000a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a40  20 20 20 20 20 20 20 20  20 20 20 22 3a 43 4c 25  |           ":CL%|
00000a50  3d 30 20 0d 04 ec 32 20  20 20 e7 20 54 42 25 3d  |=0 ...2   . TB%=|
00000a60  31 20 8c f1 8a 33 2c 32  38 29 22 20 20 20 20 20  |1 ...3,28)"     |
00000a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a80  20 20 20 22 20 0d 04 f6  06 20 e1 0d 05 00 18 20  |   " .... ..... |
00000a90  f4 20 2a 2a 2a 20 45 64  69 74 20 4c 69 73 74 20  |. *** Edit List |
00000aa0  2a 2a 2a 0d 05 0a 05 20  0d 05 14 0b 20 dd f2 65  |***.... .... ..e|
00000ab0  64 69 74 0d 05 1e 0a 20  45 44 25 3d 30 0d 05 28  |dit.... ED%=0..(|
00000ac0  0c 20 43 48 41 4e 25 3d  31 0d 05 32 0c 20 2a 46  |. CHAN%=1..2. *F|
00000ad0  58 32 31 2c 30 0d 05 3c  21 20 f1 8a 33 2c 35 29  |X21,0..<! ..3,5)|
00000ae0  22 45 64 69 74 69 6e 67  20 66 69 6c 65 20 20 3a  |"Editing file  :|
00000af0  20 22 3b 46 49 24 0d 05  46 5e 20 f1 8a 33 2c 31  | ";FI$..F^ ..3,1|
00000b00  30 29 22 57 6f 72 64 20  31 20 3a 20 20 20 20 20  |0)"Word 1 :     |
00000b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b20  20 20 20 20 20 20 22 3a  f1 8a 33 2c 31 31 29 22  |      ":..3,11)"|
00000b30  57 6f 72 64 20 32 20 3a  20 20 20 20 20 20 20 20  |Word 2 :        |
00000b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b50  20 20 20 22 0d 05 50 1d  20 e8 8a 33 2c 31 30 29  |   "..P. ..3,10)|
00000b60  22 57 6f 72 64 20 31 20  3a 22 3b 41 24 28 43 25  |"Word 1 :";A$(C%|
00000b70  29 0d 05 5a 1d 20 e8 8a  33 2c 31 31 29 22 57 6f  |)..Z. ..3,11)"Wo|
00000b80  72 64 20 32 20 3a 22 3b  42 24 28 43 25 29 0d 05  |rd 2 :";B$(C%)..|
00000b90  64 06 20 e1 0d 05 6e 05  20 0d 05 78 21 20 f4 20  |d. ...n. ..x! . |
00000ba0  2a 2a 2a 20 4a 75 6d 70  20 54 6f 20 41 20 50 6f  |*** Jump To A Po|
00000bb0  73 69 74 69 6f 6e 20 2a  2a 2a 0d 05 82 05 20 0d  |sition ***.... .|
00000bc0  05 8c 0b 20 dd f2 6a 75  6d 70 0d 05 96 0c 20 2a  |... ..jump.... *|
00000bd0  46 58 32 31 2c 30 0d 05  a0 29 20 e8 8a 33 2c 32  |FX21,0...) ..3,2|
00000be0  38 29 22 4a 75 6d 70 20  54 6f 20 50 6f 73 69 74  |8)"Jump To Posit|
00000bf0  69 6f 6e 20 4e 6f 2e 20  3a 20 22 3b 4e 25 20 0d  |ion No. : ";N% .|
00000c00  05 aa 13 20 e7 20 4e 25  3d 30 20 8c 20 4e 25 3d  |... . N%=0 . N%=|
00000c10  43 25 0d 05 b4 70 20 e7  20 4e 25 3c 3d 4e 57 25  |C%...p . N%<=NW%|
00000c20  20 8c 20 43 25 3d 4e 25  3a f1 8a 33 2c 31 30 29  | . C%=N%:..3,10)|
00000c30  22 57 6f 72 64 20 31 20  3a 20 20 20 20 20 20 20  |"Word 1 :       |
00000c40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c50  20 20 20 20 22 3a f1 8a  33 2c 31 31 29 22 57 6f  |    ":..3,11)"Wo|
00000c60  72 64 20 32 20 3a 20 20  20 20 20 20 20 20 20 20  |rd 2 :          |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c80  20 22 0d 05 be 2c 20 f1  8a 33 2c 32 38 29 22 20  | "..., ..3,28)" |
00000c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ca0  20 20 20 20 20 20 20 20  20 20 20 20 20 22 0d 05  |             "..|
00000cb0  c8 40 20 e7 20 4e 25 3e  4e 57 25 20 8c fb 31 33  |.@ . N%>NW% ..13|
00000cc0  31 3a fb 32 3a f1 8a 33  2c 32 38 29 22 49 6e 76  |1:.2:..3,28)"Inv|
00000cd0  61 6c 69 64 20 70 6f 73  69 74 69 6f 6e 21 22 3a  |alid position!":|
00000ce0  4e 25 3d 30 3a fb 31 33  30 3a fb 31 20 20 0d 05  |N%=0:.130:.1  ..|
00000cf0  d2 09 20 4a 25 3d 30 0d  05 dc 0a 20 54 42 25 3d  |.. J%=0.... TB%=|
00000d00  30 0d 05 e6 06 20 e1 0d  05 f0 05 20 0d 05 fa 20  |0.... ..... ... |
00000d10  20 f4 20 2a 2a 2a 20 53  65 61 72 63 68 20 46 6f  | . *** Search Fo|
00000d20  72 20 41 20 57 6f 72 64  20 2a 2a 2a 0d 06 04 05  |r A Word ***....|
00000d30  20 0d 06 0e 0d 20 dd f2  73 65 61 72 63 68 0d 06  | .... ..search..|
00000d40  18 0c 20 53 45 41 52 25  3d 30 0d 06 22 0c 20 2a  |.. SEAR%=0..". *|
00000d50  46 58 32 31 2c 30 0d 06  2c 20 20 e8 8a 33 2c 32  |FX21,0..,  ..3,2|
00000d60  38 29 22 57 6f 72 64 20  54 6f 20 46 69 6e 64 20  |8)"Word To Find |
00000d70  3a 20 22 3b 57 24 0d 06  36 12 20 e7 20 57 24 3d  |: ";W$..6. . W$=|
00000d80  22 22 20 8c 20 e1 20 20  0d 06 40 27 20 f1 8a 33  |"" . .  ..@' ..3|
00000d90  2c 32 38 29 22 20 20 20  20 20 20 20 20 20 20 20  |,28)"           |
00000da0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 0d  |              ".|
00000db0  06 4a 0b 20 54 45 25 3d  43 25 0d 06 54 09 20 43  |.J. TE%=C%..T. C|
00000dc0  25 3d 30 0d 06 5e 0a 20  53 54 25 3d 30 0d 06 68  |%=0..^. ST%=0..h|
00000dd0  06 20 f5 0d 06 72 0e 20  20 20 43 25 3d 43 25 2b  |. ...r.   C%=C%+|
00000de0  31 0d 06 7c 20 20 20 20  e7 20 57 24 3d 41 24 28  |1..|    . W$=A$(|
00000df0  43 25 29 20 8c 20 43 4c  25 3d 31 3a 53 54 25 3d  |C%) . CL%=1:ST%=|
00000e00  31 0d 06 86 20 20 20 20  e7 20 57 24 3d 42 24 28  |1...    . W$=B$(|
00000e10  43 25 29 20 8c 20 43 4c  25 3d 31 3a 53 54 25 3d  |C%) . CL%=1:ST%=|
00000e20  31 0d 06 90 4c 20 20 20  e7 20 43 25 3e 4e 57 25  |1...L   . C%>NW%|
00000e30  8c fb 31 33 31 3a fb 32  3a f1 8a 33 2c 32 38 29  |..131:.2:..3,28)|
00000e40  22 57 6f 72 64 20 6e 6f  74 20 66 6f 75 6e 64 21  |"Word not found!|
00000e50  22 3a fb 31 33 30 3a fb  31 3a 43 25 3d 54 45 25  |":.130:.1:C%=TE%|
00000e60  3a 54 42 25 3d 30 3a 53  54 25 3d 31 20 0d 06 9a  |:TB%=0:ST%=1 ...|
00000e70  0b 20 fd 53 54 25 3d 31  0d 06 a4 06 20 e1 0d 06  |. .ST%=1.... ...|
00000e80  ae 05 20 0d 06 b8 20 20  f4 20 2a 2a 2a 20 53 61  |.. ...  . *** Sa|
00000e90  76 65 20 4c 69 73 74 20  54 6f 20 44 69 73 6b 20  |ve List To Disk |
00000ea0  2a 2a 2a 0d 06 c2 06 20  f4 0d 06 cc 0b 20 dd f2  |***.... ..... ..|
00000eb0  73 61 76 65 0d 06 d6 0c  20 2a 46 58 32 31 2c 30  |save.... *FX21,0|
00000ec0  0d 06 e0 0c 20 43 48 41  4e 25 3d 30 0d 06 ea 0b  |.... CHAN%=0....|
00000ed0  20 54 45 25 3d 43 25 0d  06 f4 09 20 43 25 3d 31  | TE%=C%.... C%=1|
00000ee0  0d 06 fe 0b 20 53 41 56  25 3d 30 0d 07 08 0d 20  |.... SAV%=0.... |
00000ef0  f4 20 58 3d 43 25 20 20  0d 07 12 0c 20 fb 31 33  |. X=C%  .... .13|
00000f00  31 3a fb 32 0d 07 1c 23  20 e8 8a 33 2c 32 38 29  |1:.2...# ..3,28)|
00000f10  22 45 6e 74 65 72 20 66  69 6c 65 6e 61 6d 65 20  |"Enter filename |
00000f20  3a 20 22 3b 46 49 24 0d  07 26 0c 20 fb 31 33 30  |: ";FI$..&. .130|
00000f30  3a fb 31 0d 07 30 10 20  e7 20 46 49 24 3d 22 22  |:.1..0. . FI$=""|
00000f40  20 8c e1 0d 07 3a 0d 20  41 3d ae 28 46 49 24 29  | ....:. A=.(FI$)|
00000f50  0d 07 44 0d 20 f1 23 20  41 2c 4e 57 25 0d 07 4e  |..D. .# A,NW%..N|
00000f60  0e 20 e3 43 25 3d 31 b8  4e 57 25 0d 07 58 20 20  |. .C%=1.NW%..X  |
00000f70  20 20 f1 23 20 41 2c 41  24 28 43 25 29 2c 42 24  |  .# A,A$(C%),B$|
00000f80  28 43 25 29 2c 4e 57 25  2c 45 25 0d 07 62 08 20  |(C%),NW%,E%..b. |
00000f90  ed 43 25 0d 07 6c 09 20  d9 23 20 41 0d 07 76 2e  |.C%..l. .# A..v.|
00000fa0  20 f1 8a 33 2c 32 38 29  22 20 20 20 20 20 20 20  | ..3,28)"       |
00000fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000fc0  20 20 20 20 20 20 20 20  20 22 0d 07 80 0b 20 43  |         ".... C|
00000fd0  25 3d 54 45 25 0d 07 8a  06 20 e1 0d 07 94 05 20  |%=TE%.... ..... |
00000fe0  0d 07 9e 1a 20 f4 20 2a  2a 2a 20 41 64 64 20 54  |.... . *** Add T|
00000ff0  6f 20 4c 69 73 74 20 2a  2a 2a 0d 07 a8 05 20 0d  |o List ***.... .|
00001000  07 b2 0a 20 dd f2 61 64  64 0d 07 bc 0a 20 41 44  |... ..add.... AD|
00001010  25 3d 30 0d 07 c6 0c 20  43 48 41 4e 25 3d 31 0d  |%=0.... CHAN%=1.|
00001020  07 d0 0c 20 2a 46 58 32  31 2c 30 0d 07 da 0e 20  |... *FX21,0.... |
00001030  4e 57 25 3d 4e 57 25 2b  31 0d 07 e4 0b 20 43 25  |NW%=NW%+1.... C%|
00001040  3d 4e 57 25 0d 07 ee 21  20 f1 8a 33 2c 35 29 22  |=NW%...! ..3,5)"|
00001050  45 64 69 74 69 6e 67 20  66 69 6c 65 20 20 3a 20  |Editing file  : |
00001060  22 3b 46 49 24 0d 07 f8  22 20 f1 8a 33 2c 36 29  |";FI$..." ..3,6)|
00001070  22 4c 69 73 74 20 70 6f  73 69 74 69 6f 6e 20 3a  |"List position :|
00001080  20 22 3b 43 25 20 20 0d  08 02 5e 20 f1 8a 33 2c  | ";C%  ...^ ..3,|
00001090  31 30 29 22 57 6f 72 64  20 31 20 3a 20 20 20 20  |10)"Word 1 :    |
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010b0  20 20 20 20 20 20 20 22  3a f1 8a 33 2c 31 31 29  |       ":..3,11)|
000010c0  22 57 6f 72 64 20 32 20  3a 20 20 20 20 20 20 20  |"Word 2 :       |
000010d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010e0  20 20 20 20 22 0d 08 0c  20 20 f1 8a 33 2c 39 29  |    "...  ..3,9)|
000010f0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00001100  20 20 20 20 22 0d 08 16  1d 20 e8 8a 33 2c 31 30  |    ".... ..3,10|
00001110  29 22 57 6f 72 64 20 31  20 3a 22 3b 41 24 28 43  |)"Word 1 :";A$(C|
00001120  25 29 0d 08 20 1d 20 e8  8a 33 2c 31 31 29 22 57  |%).. . ..3,11)"W|
00001130  6f 72 64 20 32 20 3a 22  3b 42 24 28 43 25 29 0d  |ord 2 :";B$(C%).|
00001140  08 2a 06 20 e1 0d 08 34  05 20 0d 08 3e 1b 20 f4  |.*. ...4. ..>. .|
00001150  20 2a 2a 2a 20 51 75 69  74 20 50 72 6f 67 72 61  | *** Quit Progra|
00001160  6d 20 2a 2a 2a 0d 08 48  05 20 0d 08 52 0b 20 dd  |m ***..H. ..R. .|
00001170  f2 71 75 69 74 0d 08 5c  0c 20 2a 46 58 32 31 2c  |.quit..\. *FX21,|
00001180  30 0d 08 66 16 20 e7 20  43 48 41 4e 25 3d 30 20  |0..f. . CHAN%=0 |
00001190  8c 51 25 3d 31 3a e1 0d  08 70 37 20 e7 20 43 48  |.Q%=1:...p7 . CH|
000011a0  41 4e 25 3d 31 20 8c fb  31 33 31 3a fb 32 3a e8  |AN%=1 ..131:.2:.|
000011b0  8a 33 2c 32 38 29 22 53  61 76 65 20 43 68 61 6e  |.3,28)"Save Chan|
000011c0  67 65 73 20 28 59 2f 4e  29 22 3b 43 24 20 0d 08  |ges (Y/N)";C$ ..|
000011d0  7a 0c 20 fb 31 33 30 3a  fb 31 0d 08 84 21 20 e7  |z. .130:.1...! .|
000011e0  20 43 24 3d 22 59 22 20  8c 20 51 25 3d 30 3a 53  | C$="Y" . Q%=0:S|
000011f0  41 56 25 3d 31 3a 54 42  25 3d 31 0d 08 8e 15 20  |AV%=1:TB%=1.... |
00001200  e7 20 43 24 3c 3e 22 59  22 20 8c 20 51 25 3d 31  |. C$<>"Y" . Q%=1|
00001210  0d 08 98 06 20 e1 0d 08  a2 05 20 0d 08 ac 17 20  |.... ..... .... |
00001220  f4 20 2a 2a 2a 20 4e 65  77 20 4c 69 73 74 20 2a  |. *** New List *|
00001230  2a 2a 0d 08 b6 05 20 0d  08 c0 0a 20 dd f2 6e 65  |**.... .... ..ne|
00001240  77 0d 08 ca 0c 20 2a 46  58 32 31 2c 30 0d 08 d4  |w.... *FX21,0...|
00001250  0a 20 59 4e 25 3d 30 0d  08 de 17 20 e7 20 43 48  |. YN%=0.... . CH|
00001260  41 4e 25 3d 30 20 8c 59  4e 25 3d 31 3a e1 0d 08  |AN%=0 .YN%=1:...|
00001270  e8 37 20 e7 20 43 48 41  4e 25 3d 31 20 8c fb 31  |.7 . CHAN%=1 ..1|
00001280  33 31 3a fb 32 3a e8 8a  33 2c 32 38 29 22 53 61  |31:.2:..3,28)"Sa|
00001290  76 65 20 43 68 61 6e 67  65 73 20 28 59 2f 4e 29  |ve Changes (Y/N)|
000012a0  22 3b 43 24 20 0d 08 f2  0d 20 fb 31 33 30 3a fb  |";C$ .... .130:.|
000012b0  31 20 0d 08 fc 2c 20 e7  20 43 24 3d 22 59 22 20  |1 ..., . C$="Y" |
000012c0  8c 20 59 4e 25 3d 30 3a  4e 45 57 53 25 3d 30 3a  |. YN%=0:NEWS%=0:|
000012d0  53 41 56 25 3d 31 3a 54  42 25 3d 31 20 20 0d 09  |SAV%=1:TB%=1  ..|
000012e0  06 1f 20 e7 20 43 24 3c  3e 22 59 22 20 8c 20 4e  |.. . C$<>"Y" . N|
000012f0  45 57 53 25 3d 30 3a 59  4e 25 3d 31 20 0d 09 10  |EWS%=0:YN%=1 ...|
00001300  06 20 e1 0d 09 1a 05 20  0d 09 24 1d 20 f4 20 2a  |. ..... ..$. . *|
00001310  2a 2a 20 52 65 74 75 72  6e 20 54 6f 20 4d 61 69  |** Return To Mai|
00001320  6e 20 2a 2a 2a 0d 09 2e  05 20 0d 09 38 0d 20 dd  |n ***.... ..8. .|
00001330  f2 72 65 74 75 72 6e 0d  09 42 0c 20 2a 46 58 32  |.return..B. *FX2|
00001340  31 2c 30 0d 09 4c 0a 20  52 4e 25 3d 30 0d 09 56  |1,0..L. RN%=0..V|
00001350  17 20 e7 20 43 48 41 4e  25 3d 30 20 8c 52 4e 25  |. . CHAN%=0 .RN%|
00001360  3d 31 3a e1 0d 09 60 37  20 e7 20 43 48 41 4e 25  |=1:...`7 . CHAN%|
00001370  3d 31 20 8c fb 31 33 31  3a fb 32 3a e8 8a 33 2c  |=1 ..131:.2:..3,|
00001380  32 38 29 22 53 61 76 65  20 43 68 61 6e 67 65 73  |28)"Save Changes|
00001390  20 28 59 2f 4e 29 22 3b  43 24 20 0d 09 6a 0d 20  | (Y/N)";C$ ..j. |
000013a0  fb 31 33 30 3a fb 31 20  0d 09 74 29 20 e7 20 43  |.130:.1 ..t) . C|
000013b0  24 3d 22 59 22 20 8c 20  52 4e 25 3d 30 3a 52 45  |$="Y" . RN%=0:RE|
000013c0  25 3d 30 3a 53 41 56 25  3d 31 3a 54 42 25 3d 31  |%=0:SAV%=1:TB%=1|
000013d0  20 0d 09 7e 1d 20 e7 20  43 24 3c 3e 22 59 22 20  | ..~. . C$<>"Y" |
000013e0  8c 20 52 45 25 3d 30 3a  52 4e 25 3d 31 20 0d 09  |. RE%=0:RN%=1 ..|
000013f0  88 06 20 e1 0d 09 92 05  20 0d 09 9c 22 20 f4 20  |.. ..... ..." . |
00001400  2a 2a 2a 20 44 65 6c 65  74 65 20 43 75 72 72 65  |*** Delete Curre|
00001410  6e 74 20 50 6f 73 2e 20  2a 2a 2a 0d 09 a6 05 20  |nt Pos. ***.... |
00001420  0d 09 b0 0d 20 dd f2 64  65 6c 65 74 65 0d 09 ba  |.... ..delete...|
00001430  0c 20 2a 46 58 32 31 2c  30 0d 09 c4 0b 20 44 45  |. *FX21,0.... DE|
00001440  4c 25 3d 30 0d 09 ce 0c  20 fb 31 33 31 3a fb 32  |L%=0.... .131:.2|
00001450  0d 09 d8 1d 20 e8 8a 33  2c 32 38 29 22 44 65 6c  |.... ..3,28)"Del|
00001460  65 74 65 20 28 59 2f 4e  29 22 3b 43 24 0d 09 e2  |ete (Y/N)";C$...|
00001470  0c 20 fb 31 33 30 3a fb  31 0d 09 ec 10 20 e7 20  |. .130:.1.... . |
00001480  43 24 3c 3e 22 59 22 8c  e1 0d 09 f6 0f 20 41 24  |C$<>"Y"...... A$|
00001490  28 43 25 29 3d 22 20 22  0d 0a 00 0f 20 42 24 28  |(C%)=" ".... B$(|
000014a0  43 25 29 3d 22 20 22 0d  0a 0a 0c 20 fb 31 33 31  |C%)=" ".... .131|
000014b0  3a fb 32 0d 0a 14 26 20  f1 8a 33 2c 32 38 29 22  |:.2...& ..3,28)"|
000014c0  44 65 6c 65 74 69 6e 67  2e 20 50 6c 65 61 73 65  |Deleting. Please|
000014d0  20 77 61 69 74 2e 2e 2e  22 0d 0a 1e 0c 20 fb 31  | wait...".... .1|
000014e0  33 30 3a fb 31 0d 0a 28  09 20 43 25 3d 31 0d 0a  |30:.1..(. C%=1..|
000014f0  32 09 20 44 25 3d 31 0d  0a 3c 0c 20 4e 54 25 3d  |2. D%=1..<. NT%=|
00001500  4e 57 25 0d 0a 46 0e 20  e3 43 25 3d 31 b8 4e 57  |NW%..F. .C%=1.NW|
00001510  25 0d 0a 50 0d 20 20 20  4d 49 53 25 3d 30 0d 0a  |%..P.   MIS%=0..|
00001520  5a 22 20 20 20 e7 20 41  24 28 43 25 29 3d 22 20  |Z"   . A$(C%)=" |
00001530  22 8c 4d 49 53 25 3d 31  3a 43 25 3d 43 25 2b 31  |".MIS%=1:C%=C%+1|
00001540  0d 0a 64 14 20 20 20 44  24 28 44 25 29 3d 41 24  |..d.   D$(D%)=A$|
00001550  28 43 25 29 0d 0a 6e 0e  20 20 20 44 25 3d 44 25  |(C%)..n.   D%=D%|
00001560  2b 31 0d 0a 78 08 20 ed  43 25 0d 0a 82 0d 20 44  |+1..x. .C%.... D|
00001570  31 25 3d 44 25 2d 31 0d  0a 8c 09 20 43 25 3d 31  |1%=D%-1.... C%=1|
00001580  0d 0a 96 0e 20 e3 43 25  3d 31 b8 44 31 25 0d 0a  |.... .C%=1.D1%..|
00001590  a0 15 20 20 20 41 24 28  43 25 29 3d 44 24 28 43  |..   A$(C%)=D$(C|
000015a0  25 29 20 0d 0a aa 08 20  ed 43 25 0d 0a b4 09 20  |%) .... .C%.... |
000015b0  43 25 3d 31 0d 0a be 09  20 44 25 3d 31 0d 0a c8  |C%=1.... D%=1...|
000015c0  0c 20 4e 57 25 3d 4e 54  25 0d 0a d2 0e 20 e3 43  |. NW%=NT%.... .C|
000015d0  25 3d 31 b8 4e 57 25 0d  0a dc 0d 20 20 20 4d 49  |%=1.NW%....   MI|
000015e0  53 25 3d 30 0d 0a e6 22  20 20 20 e7 20 42 24 28  |S%=0..."   . B$(|
000015f0  43 25 29 3d 22 20 22 8c  4d 49 53 25 3d 31 3a 43  |C%)=" ".MIS%=1:C|
00001600  25 3d 43 25 2b 31 0d 0a  f0 14 20 20 20 44 24 28  |%=C%+1....   D$(|
00001610  44 25 29 3d 42 24 28 43  25 29 0d 0a fa 0e 20 20  |D%)=B$(C%)....  |
00001620  20 44 25 3d 44 25 2b 31  0d 0b 04 08 20 ed 43 25  | D%=D%+1.... .C%|
00001630  0d 0b 0e 0b 20 4e 57 25  3d 44 25 0d 0b 18 0e 20  |.... NW%=D%.... |
00001640  44 31 25 3d 44 25 2d 31  20 0d 0b 22 09 20 43 25  |D1%=D%-1 ..". C%|
00001650  3d 31 0d 0b 2c 0e 20 e3  43 25 3d 31 b8 44 31 25  |=1..,. .C%=1.D1%|
00001660  0d 0b 36 14 20 20 20 42  24 28 43 25 29 3d 44 24  |..6.   B$(C%)=D$|
00001670  28 43 25 29 0d 0b 40 08  20 ed 43 25 0d 0b 4a 0c  |(C%)..@. .C%..J.|
00001680  20 43 48 41 4e 25 3d 31  0d 0b 54 0e 20 4e 57 25  | CHAN%=1..T. NW%|
00001690  3d 4e 57 25 2d 31 0d 0b  5e 06 20 e1 0d ff        |=NW%-1..^. ...|
0000169e

PROGS/TRANS/EDIT.m0

PROGS/TRANS/EDIT.m1

PROGS/TRANS/EDIT.m2

PROGS/TRANS/EDIT.m4

PROGS/TRANS/EDIT.m5

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