� Shoplist Program
� By Eric Ellis
� (c) The Micro User
( � 7:maxrecs=288:N%=0:file%=7
2chng=�:quit=�:cat=�
<:list=�:fname$="":� 1,1,0,0,0,0,0,0,127,-2,-2,-1,126,90
F4� M$(maxrecs+1,3),list%(maxrecs),blank$(3),A$(3)
Pblank$(1)=�20," ")
Zblank$(2)="0.00"
dblank$(3)=�6," "):A$(1)=" "
nA$(2)=" #":A$(3)="  "
x� � �error:�
�
*FX4,2
�*FX225,128
�*FX226,144
�*FX12,3
�
�valid
�:�heading("SHOPLIST PROGRAM","Use example date format")
�,�5,2)�133"Enter date >"�24,2)"<"�18,2);
�,date$=�edit("01 Jan",cap$+low$+num$+" ")
�=� Master series replace line with "date$=MID$(TIME$,5,6)"
��file:� � �error
�� � edit%=�
��menu(A%):� quit
�]� chng A%=5:�message(""):�';:� �yn("Do you want to save changed data?  <Y/N>")="Y" quit=�

� quit:�:�end

�

:

"� �load(f$):� I%,J%,ch%

,#�:�11,5)�129�136"LOADING DATA"

6ch%=�(f$):I%=0

@� I%=I%+1:� J%=1 � 3

J�#ch%,M$(I%,J%):�

T� M$(I%,1)=�20," ")

^$�#ch%:N%=I%-1:� N%=0 A%=1 � A%=2

h � I%=1 � maxrecs:list%(I%)=0

r�:list=�:�

|:

�� �quit:quit=�:�

�:

�
� �end

��23,1,1;0;0;0;:�26

�
*FX4,0

�*FX225,1

�*FX226,128

�*FX12,8

��

�:

�� �file:fname$=�getfilename

��load(fname$):�

�:
� �getfilename:� ch%,f$
2� �heading("SELECT SHOP","*CAT for catalogue")
8� �5,2)�134"Enter Listname >"�22+file%,2)"<"�22,2);
&/f$=�edit(�file%," "),cap$+low$+num$+"_/*.")
0-� f$<>�file%," ") � f$<>"*"+�file%-1," ")
:/� �f$,2)="*." � �f$,4)="*CAT" cat=�:�':*CAT
D=� cat �'�5)�130"Press SPACE to continue":cat=�:���=32:� �
Nch%=�(f$):�# ch%
X,� ch%=0 �7:�10,4)�131"Not found":�:*CAT
bP� ch%=0 �'�134;:� �yn("Do you want to start a new list? <Y/N>")="Y" �newfile
l� ch%>0:A%=1:=f$
v:
�� �valid
�%cap$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
�%low$="abcdefghijklmnopqrstuvwxyz"
� pun$=",.;:*+/?-=""()&'!^\` "
�num$="1234567890":�
�:
�� �edit(a$,valid$)
��len,x,y,pos,g:x=�:y=�
��23,1,1;0;0;0;:len=�a$
�� � pos=len pos=pos-1
��x,y)a$�x+pos,y);:*FX21
�g=�:� g=13 � �:=a$
�E� g=140 � pos=0 � g=141 � pos+1=len � g=127 � a$=�len," ") �7:� �
1� g=140 pos=pos-1:� � � � g=141 pos=pos+1:� �
}� g=127 � �a$,len-pos)=�len-pos," ") pos=pos-1:a$=�a$,pos)+�len-pos," "):� � � � g=127 a$=�a$,pos)+�a$,len-pos-1)+" ":� �
4� g=139 a$=�a$,pos)+" "+�a$,pos+1,len-pos-1):� �
 a� �valid$,�g)=0 �7:� � � a$=�a$,pos)+�g+�a$,pos+2,len-pos-1):pos=pos+1:� pos=len � 3,1,136,16
*� �
4:
>� �error
H�#0:�6:A%=7
R� �=17 �
\D�message(�11):�:�" at line ";�:�;:� �yn("Continue? <Y/N>")="Y" �
f�quit:�end:�:�
p:
z� �yn(m$):� A$:�m$" ";
�� A$=�(��&5F)
�� �"YN",A$)>0:=A$
�:
�� �menu(choice)
�� I%
��23,1,0;0;0;0;
�G�heading("MAIN MENU","CURSOR KEYS to select then "+�134+"<RETURN>")
�
� �dtK
�I%=�menu(choice)
�-� I% � �dhC,�drC,�d|C,�TFD,�TPD,�TZD,�TdD
��edit:�
��compile:�
��printlist:�
�printmaster:�
�save:�
�file:�
$�quit:�
.:
8� �menu(I)
B� J,V,H,A$
LV=1:H=9:� options
V+� J=1 � options:� A$:�H+1,V+(J*2))A$:�
`�
j�H,V+(I*2))�129:*FX21,0
tg=�
~� g=13 � �:�26:=I
�%� g=142 � g=143 �H,V+(I*2))�135;
�7� g=142 � I<options I=I+1 � � g=142 � I=options I=1
�1� g=143 � I>1 I=I-1 � � g=143 � I=1 I=options
�� �
�:
�� �heading(A$,B$)
�� H,H1:�26:�
�H=19-(�(A$)+1)�2
�H1=19-(�(B$)+1)�2
�%�H,0)�134A$�H,1)�134 ĩ(A$),"=")
�$�H1,2)�131B$�0,3)�131 �38,"_");
��28,0,23,39,4:�
:

� �screen(start,finish)
� I%,J%,end,A$
#� finish>N% end=N% � end=finish
(�:�
2� I%=start � end:� J%=1 � 3
<D� (J%=1 � list%(I%) � � edit%) A$=�129 � � J%=2 A$=" `" � A$=" "
F�(129+J%)A$M$(I%,J%);:�
P� I%<finish �
Z�:�
d:
n� �edit
x� H%,htab,vtab,g,page,lines
�� fname$="" A%=6:�
�7htab=2:lines=18:page=0:start=1:finish=lines:edit%=�
�H�heading("ENTER/EDIT ITEMS","Cursor keys to move - SPACE to change")
�\�26:�0,23)�131�38,"_")�0,24)�131"COPY=Insert    DELETE=Delete at cursor";:�28,0,22,39,4
�(�23,1,1;0;0;0;:�screen(start,finish)
�� N%=0 �newline
�
I%=1:H%=1
��
� � N%=maxrecs full=� � full=�
�)� I%<=lines firstpage=� � firstpage=�
�0� N%<=(page+1)*lines lastpage=� � lastpage=�
�vtab=I%-(page*lines)
�>�1,0)�133"Total Items=";N%;�22,0)"Current Item=";I%;"  ";
"temp$="":�htab,vtab);:*FX21,0
g=�
�� g=32 � N%<1 �7:� � � � g=32 � H%=1 � �8�134;:temp$=�edit(M$(I%,H%),cap$+low$+num$+pun$) � � g=32 � H%=2 � �8�134"`";:temp$=�edit(M$(I%,H%),num$+".")
"�� g=32 � temp$<>M$(I%,H%) � temp$<>�20," ") M$(I%,H%)=temp$:M$(I%,3)=date$:chng=�:�screen(start,finish):� � � � g=32 �screen(start,finish):� �
,2�(g=143 � I%=1) � (g=159 � firstpage=�) �7:� �
6~�(g=143 � I%=start) � g=159 �dec:� g=143 I%=I%-1:�screen(start,finish):� � � � g=159 I%=I%-lines:�screen(start,finish):� �
@� g=143 I%=I%-1
J5�(g=158 � lastpage) � (g=142 � I%=maxrecs) �7:� �
T>� g=158 � I%>N%-lines I%=N%:�inc:�screen(start,finish):� �
^��(g=142 � I%=N% � I%=finish � � full)� g=158 �inc:� g=142 I%=I%+1:�newline:�screen(start,finish):� � � � g=158 I%=I%+lines:�screen(start,finish):� �
h1� g=142 � I%=N% � � full I%=I%+1:�newline:� �
rG� g=142 � I%=finish � � full I%=I%+1:�inc:�screen(start,finish):� �
|� g=142 I%=I%+1
�� g=140 � H%=1 �7:� �
�� g=140 H%=1:htab=2
�� g=141 � H%=2 �7:� �
�� g=141 H%=2:htab=24
�2� (g=139 � N%=maxrecs) � (g=139 � I%<1) �7:� �
�� g=139 �insert
�F� g=127 � I%=start � I%>lines � I%=N% �dec � � g=127 � I%<1 �7:� �
�� g=127 �delete:� �
�� g=13:� chng A%=5 � A%=7
��
�:
�� �inc:start=start+lines
�#page=page+1:finish=finish+lines
�
:
� �dec:start=start-lines
&#page=page-1:finish=finish-lines
0�
::
D
� �insert
N/� I,J:�message("MAKING ROOM - PLEASE WAIT")
X� I=N%+1 � I%+1 �-1
b!� J=1 � 3:M$(I,J)=M$(I-1,J):�
l� list list%(I)=list%(I-1)
v�:� list list%(I%)=�
��newline:�
�:
�� �newline:�newrecord
�!N%=N%+1:�screen(start,finish)
��
�:
�� �newrecord
ƍ�0,5)�40�133;�38,"=");�161�133;�38,"=")�41;�4,8)�134"Enter Item  ";:�:M$(I%,1)=�edit(blank$(1),cap$+low$+pun$+num$):� M$(I%,1)<>�20," ")
�A�4,9)�134"Enter Price `";:M$(I%,2)=�edit(blank$(2),num$+".")
�,M$(I%,3)=date$:chng=�:� list list%(I%)=�
��
�:
�� �delete:� I,J
0� I%=N% � �TtH � �message("DELETING RECORD")
� I=I% � N%-1
!� J=1 � 3:M$(I,J)=M$(I+1,J):�
 � list list%(I)=list%(I+1)
*�:list%(N%)=�
4"� J=1 � 3:M$(N%,J)=blank$(J):�
>N%=N%-1
H� I%>N% I%=N%
R chng=�:�screen(start,finish)
\�
f:
p��printercheck
z� �printertest �
��:*FX15
�2�5,10)�131�157�129"PRINTER NOT ON LINE  "�156
��7:X=�(300)
�� �printertest:�:�
�:
�� �printertest
��2,1,32,1,127,3:X=�(10)
�=(�(-4)=63)
�:
�� �save:� I%,J%
�� N%=0 A%=6:�
�z� � chng �message("No need to save. Data not changed."):�'�131;:� �yn("since last save. Abort save? <Y/N>")="Y" A%=7:�
�#�:�12,13)�129�136"SAVING DATA"
	ch%=�(fname$)
	� I%=1 � N%
	 � J%=1 � 3:�#ch%,M$(I%,J%):�
	$�
	.!� J%=1 � 3:�#ch%,blank$(J%):�
	8�#ch%:chng=�:A%=7
	B�
	L:
	V� �newfile:� I%,J%
	`0�:�4,10)�129�136"PLEASE WAIT - CREATING "f$
	j
ch%=�(f$)
	t� I%=1 � maxrecs+1
	~!� J%=1 � 3:�#ch%,blank$(J%):�
	�
�:�#ch%:�
	�:
	�� �printmaster
	�� I%,J%,column%
	�� N%=0 A%=6:�
	�
column%=4
	�G�heading("PRINT MASTER LIST","Prints full list of available items")
	��28,0,24,39,4
	�E�3,8)�131;:� �yn("Do you want to print list?  <Y/N>")="N" A%=4:�
	��printercheck
	�)�8,10)�129�136"PRINTING MASTER LIST"
	�*�2,21,1,27,1,82,1,3,1,27,1,78,1,4,1,15
,�" Master List: "fname$;�10;N%" items":�

I%=0:� I%=I%+1
*� I%>N% � �:�6,1,12,1,27,1,64,3:A%=7:�
�J%=1�2:�A$(J%)M$(I%,J%);:�
(&� I% � column%=0 � I%=N% � � � �6;
2� �
<:
F� �compile
P� htab,vtab,page,lines,g
Z� N%=0 A%=6:�
d/htab=2:lines=18:page=0:start=1:finish=lines
nM�heading("COMPILE SHOPPING LIST","Cursor keys to move - SPACE to select")
xN�26:�0,23)�131�38,"_");�7,24)�131"RETURN to end selection";:�28,0,22,39,4
�-�23,1,1;0;0;0;:�screen(start,finish):I%=1
��
�vtab=I%-(page*lines)
�>�1,0)�133"Total Items=";N%;�22,0)"Current Item=";I%;"  ";
��htab,vtab);:*FX21,0
�g=�
�V� g=32 � � list%(I%) � �8�129;:list%(I%)=� � � g=32 � list%(I%) �8,130:list%(I%)=�
�� g=143 � I%=1 �7:� �
�F� g=143 � page>0 � I%=start I%=I%-1:�dec:�screen(start,finish):� �
�� g=143 I%=I%-1
�� g=142 � I%=N% �7:� �
�>� g=142 � I%=finish I%=I%+1:�inc:�screen(start,finish):� �
�� g=142 I%=I%+1
� g=13:A%=3:list=�
� I=1 � maxrecs
� list%(I)=� list=�
"�:�
,:
6� �printlist:� I%,J%
@� N%=0 A%=6:�
J� � list A%=2:�
TC�heading("PRINT SHOPPING LIST","Print out selected items only")
^�28,0,24,39,4
hE�3,8)�131;:� �yn("Do you want to print list?  <Y/N>")="N" A%=3:�
r�printercheck
|+�8,10)�129�136"PRINTING SHOPPING LIST"
�%�2,21,1,27,1,82,1,3,1,27,1,78,1,4
�(�" Shopping List: "fname$;�4;date$:�
�� I%=1 � N%
�2� list%(I%) � J%=1 � 3:� A$(J%);M$(I%,J%);:�:�
��
��6,1,12,1,27,1,64,3:A%=5:�
�:
�� �message(a$)
�-�0,5)�40�133�38,"=")�161�133�38,"=")�40;
��0,8)�131a$;:�
�:
�|� 7,Enter/Edit Items,Compile Shopping List,Print Shopping List,Print Master List,Save Data,Change Shop File,Quit Program
�

00000000  0d 00 0a 16 f4 20 53 68  6f 70 6c 69 73 74 20 50  |..... Shoplist P|
00000010  72 6f 67 72 61 6d 0d 00  14 13 f4 20 42 79 20 45  |rogram..... By E|
00000020  72 69 63 20 45 6c 6c 69  73 0d 00 1e 18 f4 20 28  |ric Ellis..... (|
00000030  63 29 20 54 68 65 20 4d  69 63 72 6f 20 55 73 65  |c) The Micro Use|
00000040  72 0d 00 28 20 eb 20 37  3a 6d 61 78 72 65 63 73  |r..( . 7:maxrecs|
00000050  3d 32 38 38 3a 4e 25 3d  30 3a 66 69 6c 65 25 3d  |=288:N%=0:file%=|
00000060  37 0d 00 32 17 63 68 6e  67 3d a3 3a 71 75 69 74  |7..2.chng=.:quit|
00000070  3d a3 3a 63 61 74 3d a3  0d 00 3c 3a 6c 69 73 74  |=.:cat=...<:list|
00000080  3d a3 3a 66 6e 61 6d 65  24 3d 22 22 3a e2 20 31  |=.:fname$="":. 1|
00000090  2c 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,1,0,0,0,0,0,0,1|
000000a0  32 37 2c 2d 32 2c 2d 32  2c 2d 31 2c 31 32 36 2c  |27,-2,-2,-1,126,|
000000b0  39 30 0d 00 46 34 de 20  4d 24 28 6d 61 78 72 65  |90..F4. M$(maxre|
000000c0  63 73 2b 31 2c 33 29 2c  6c 69 73 74 25 28 6d 61  |cs+1,3),list%(ma|
000000d0  78 72 65 63 73 29 2c 62  6c 61 6e 6b 24 28 33 29  |xrecs),blank$(3)|
000000e0  2c 41 24 28 33 29 0d 00  50 16 62 6c 61 6e 6b 24  |,A$(3)..P.blank$|
000000f0  28 31 29 3d c4 32 30 2c  22 20 22 29 0d 00 5a 14  |(1)=.20," ")..Z.|
00000100  62 6c 61 6e 6b 24 28 32  29 3d 22 30 2e 30 30 22  |blank$(2)="0.00"|
00000110  0d 00 64 1f 62 6c 61 6e  6b 24 28 33 29 3d c4 36  |..d.blank$(3)=.6|
00000120  2c 22 20 22 29 3a 41 24  28 31 29 3d 22 20 22 0d  |," "):A$(1)=" ".|
00000130  00 6e 19 41 24 28 32 29  3d 22 20 23 22 3a 41 24  |.n.A$(2)=" #":A$|
00000140  28 33 29 3d 22 20 20 22  0d 00 78 10 ee 20 85 20  |(3)="  "..x.. . |
00000150  f2 65 72 72 6f 72 3a e0  0d 00 82 0a 2a 46 58 34  |.error:.....*FX4|
00000160  2c 32 0d 00 8c 0e 2a 46  58 32 32 35 2c 31 32 38  |,2....*FX225,128|
00000170  0d 00 96 0e 2a 46 58 32  32 36 2c 31 34 34 0d 00  |....*FX226,144..|
00000180  a0 0b 2a 46 58 31 32 2c  33 0d 00 aa 0a f2 76 61  |..*FX12,3.....va|
00000190  6c 69 64 0d 00 b4 3a f2  68 65 61 64 69 6e 67 28  |lid...:.heading(|
000001a0  22 53 48 4f 50 4c 49 53  54 20 50 52 4f 47 52 41  |"SHOPLIST PROGRA|
000001b0  4d 22 2c 22 55 73 65 20  65 78 61 6d 70 6c 65 20  |M","Use example |
000001c0  64 61 74 65 20 66 6f 72  6d 61 74 22 29 0d 00 be  |date format")...|
000001d0  2c f1 8a 35 2c 32 29 bd  31 33 33 22 45 6e 74 65  |,..5,2).133"Ente|
000001e0  72 20 64 61 74 65 20 3e  22 8a 32 34 2c 32 29 22  |r date >".24,2)"|
000001f0  3c 22 8a 31 38 2c 32 29  3b 0d 00 c8 2c 64 61 74  |<".18,2);...,dat|
00000200  65 24 3d a4 65 64 69 74  28 22 30 31 20 4a 61 6e  |e$=.edit("01 Jan|
00000210  22 2c 63 61 70 24 2b 6c  6f 77 24 2b 6e 75 6d 24  |",cap$+low$+num$|
00000220  2b 22 20 22 29 0d 00 d2  3d f4 20 4d 61 73 74 65  |+" ")...=. Maste|
00000230  72 20 73 65 72 69 65 73  20 72 65 70 6c 61 63 65  |r series replace|
00000240  20 6c 69 6e 65 20 77 69  74 68 20 22 64 61 74 65  | line with "date|
00000250  24 3d 4d 49 44 24 28 54  49 4d 45 24 2c 35 2c 36  |$=MID$(TIME$,5,6|
00000260  29 22 0d 00 dc 14 f2 66  69 6c 65 3a ee 20 85 20  |)".....file:. . |
00000270  f2 65 72 72 6f 72 0d 00  e6 0f f5 20 f5 20 65 64  |.error..... . ed|
00000280  69 74 25 3d a3 0d 00 f0  14 f2 6d 65 6e 75 28 41  |it%=......menu(A|
00000290  25 29 3a fd 20 71 75 69  74 0d 00 fa 5d e7 20 63  |%):. quit...]. c|
000002a0  68 6e 67 20 41 25 3d 35  3a f2 6d 65 73 73 61 67  |hng A%=5:.messag|
000002b0  65 28 22 22 29 3a f1 27  3b 3a e7 20 a4 79 6e 28  |e(""):.';:. .yn(|
000002c0  22 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |"Do you want to |
000002d0  73 61 76 65 20 63 68 61  6e 67 65 64 20 64 61 74  |save changed dat|
000002e0  61 3f 20 20 3c 59 2f 4e  3e 22 29 3d 22 59 22 20  |a?  <Y/N>")="Y" |
000002f0  71 75 69 74 3d a3 0d 01  04 11 fd 20 71 75 69 74  |quit=...... quit|
00000300  3a db 3a f2 65 6e 64 0d  01 0e 05 e0 0d 01 18 05  |:.:.end.........|
00000310  3a 0d 01 22 1b dd 20 f2  6c 6f 61 64 28 66 24 29  |:..".. .load(f$)|
00000320  3a ea 20 49 25 2c 4a 25  2c 63 68 25 0d 01 2c 23  |:. I%,J%,ch%..,#|
00000330  db 3a f1 8a 31 31 2c 35  29 bd 31 32 39 bd 31 33  |.:..11,5).129.13|
00000340  36 22 4c 4f 41 44 49 4e  47 20 44 41 54 41 22 0d  |6"LOADING DATA".|
00000350  01 36 12 63 68 25 3d ad  28 66 24 29 3a 49 25 3d  |.6.ch%=.(f$):I%=|
00000360  30 0d 01 40 18 f5 20 49  25 3d 49 25 2b 31 3a e3  |0..@.. I%=I%+1:.|
00000370  20 4a 25 3d 31 20 b8 20  33 0d 01 4a 15 e8 23 63  | J%=1 . 3..J..#c|
00000380  68 25 2c 4d 24 28 49 25  2c 4a 25 29 3a ed 0d 01  |h%,M$(I%,J%):...|
00000390  54 17 fd 20 4d 24 28 49  25 2c 31 29 3d c4 32 30  |T.. M$(I%,1)=.20|
000003a0  2c 22 20 22 29 0d 01 5e  24 d9 23 63 68 25 3a 4e  |," ")..^$.#ch%:N|
000003b0  25 3d 49 25 2d 31 3a e7  20 4e 25 3d 30 20 41 25  |%=I%-1:. N%=0 A%|
000003c0  3d 31 20 8b 20 41 25 3d  32 0d 01 68 20 e3 20 49  |=1 . A%=2..h . I|
000003d0  25 3d 31 20 b8 20 6d 61  78 72 65 63 73 3a 6c 69  |%=1 . maxrecs:li|
000003e0  73 74 25 28 49 25 29 3d  30 0d 01 72 0e ed 3a 6c  |st%(I%)=0..r..:l|
000003f0  69 73 74 3d a3 3a e1 0d  01 7c 05 3a 0d 01 86 14  |ist=.:...|.:....|
00000400  dd 20 f2 71 75 69 74 3a  71 75 69 74 3d b9 3a e1  |. .quit:quit=.:.|
00000410  0d 01 90 05 3a 0d 01 9a  0a dd 20 f2 65 6e 64 0d  |....:..... .end.|
00000420  01 a4 16 ef 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |....23,1,1;0;0;0|
00000430  3b 3a ef 32 36 0d 01 ae  0a 2a 46 58 34 2c 30 0d  |;:.26....*FX4,0.|
00000440  01 b8 0c 2a 46 58 32 32  35 2c 31 0d 01 c2 0e 2a  |...*FX225,1....*|
00000450  46 58 32 32 36 2c 31 32  38 0d 01 cc 0b 2a 46 58  |FX226,128....*FX|
00000460  31 32 2c 38 0d 01 d6 05  e1 0d 01 e0 05 3a 0d 01  |12,8.........:..|
00000470  ea 1f dd 20 f2 66 69 6c  65 3a 66 6e 61 6d 65 24  |... .file:fname$|
00000480  3d a4 67 65 74 66 69 6c  65 6e 61 6d 65 0d 01 f4  |=.getfilename...|
00000490  13 f2 6c 6f 61 64 28 66  6e 61 6d 65 24 29 3a e1  |..load(fname$):.|
000004a0  0d 01 fe 05 3a 0d 02 08  1b dd 20 a4 67 65 74 66  |....:..... .getf|
000004b0  69 6c 65 6e 61 6d 65 3a  ea 20 63 68 25 2c 66 24  |ilename:. ch%,f$|
000004c0  0d 02 12 32 f5 20 f2 68  65 61 64 69 6e 67 28 22  |...2. .heading("|
000004d0  53 45 4c 45 43 54 20 53  48 4f 50 22 2c 22 2a 43  |SELECT SHOP","*C|
000004e0  41 54 20 66 6f 72 20 63  61 74 61 6c 6f 67 75 65  |AT for catalogue|
000004f0  22 29 0d 02 1c 38 f5 20  f1 8a 35 2c 32 29 bd 31  |")...8. ..5,2).1|
00000500  33 34 22 45 6e 74 65 72  20 4c 69 73 74 6e 61 6d  |34"Enter Listnam|
00000510  65 20 3e 22 8a 32 32 2b  66 69 6c 65 25 2c 32 29  |e >".22+file%,2)|
00000520  22 3c 22 8a 32 32 2c 32  29 3b 0d 02 26 2f 66 24  |"<".22,2);..&/f$|
00000530  3d a4 65 64 69 74 28 c4  66 69 6c 65 25 2c 22 20  |=.edit(.file%," |
00000540  22 29 2c 63 61 70 24 2b  6c 6f 77 24 2b 6e 75 6d  |"),cap$+low$+num|
00000550  24 2b 22 5f 2f 2a 2e 22  29 0d 02 30 2d fd 20 66  |$+"_/*.")..0-. f|
00000560  24 3c 3e c4 66 69 6c 65  25 2c 22 20 22 29 20 80  |$<>.file%," ") .|
00000570  20 66 24 3c 3e 22 2a 22  2b c4 66 69 6c 65 25 2d  | f$<>"*"+.file%-|
00000580  31 2c 22 20 22 29 0d 02  3a 2f e7 20 c0 66 24 2c  |1," ")..:/. .f$,|
00000590  32 29 3d 22 2a 2e 22 20  84 20 c0 66 24 2c 34 29  |2)="*." . .f$,4)|
000005a0  3d 22 2a 43 41 54 22 20  63 61 74 3d b9 3a f1 27  |="*CAT" cat=.:.'|
000005b0  3a 2a 43 41 54 0d 02 44  3d e7 20 63 61 74 20 f1  |:*CAT..D=. cat .|
000005c0  27 8a 35 29 bd 31 33 30  22 50 72 65 73 73 20 53  |'.5).130"Press S|
000005d0  50 41 43 45 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |PACE to continue|
000005e0  22 3a 63 61 74 3d a3 3a  f5 fd a5 3d 33 32 3a fd  |":cat=.:...=32:.|
000005f0  20 a3 0d 02 4e 14 63 68  25 3d ad 28 66 24 29 3a  | ...N.ch%=.(f$):|
00000600  d9 23 20 63 68 25 0d 02  58 2c e7 20 63 68 25 3d  |.# ch%..X,. ch%=|
00000610  30 20 ef 37 3a f1 8a 31  30 2c 34 29 bd 31 33 31  |0 .7:..10,4).131|
00000620  22 4e 6f 74 20 66 6f 75  6e 64 22 3a f1 3a 2a 43  |"Not found":.:*C|
00000630  41 54 0d 02 62 50 e7 20  63 68 25 3d 30 20 f1 27  |AT..bP. ch%=0 .'|
00000640  bd 31 33 34 3b 3a e7 20  a4 79 6e 28 22 44 6f 20  |.134;:. .yn("Do |
00000650  79 6f 75 20 77 61 6e 74  20 74 6f 20 73 74 61 72  |you want to star|
00000660  74 20 61 20 6e 65 77 20  6c 69 73 74 3f 20 3c 59  |t a new list? <Y|
00000670  2f 4e 3e 22 29 3d 22 59  22 20 f2 6e 65 77 66 69  |/N>")="Y" .newfi|
00000680  6c 65 0d 02 6c 14 fd 20  63 68 25 3e 30 3a 41 25  |le..l.. ch%>0:A%|
00000690  3d 31 3a 3d 66 24 0d 02  76 05 3a 0d 02 80 0c dd  |=1:=f$..v.:.....|
000006a0  20 f2 76 61 6c 69 64 0d  02 8a 25 63 61 70 24 3d  | .valid...%cap$=|
000006b0  22 41 42 43 44 45 46 47  48 49 4a 4b 4c 4d 4e 4f  |"ABCDEFGHIJKLMNO|
000006c0  50 51 52 53 54 55 56 57  58 59 5a 22 0d 02 94 25  |PQRSTUVWXYZ"...%|
000006d0  6c 6f 77 24 3d 22 61 62  63 64 65 66 67 68 69 6a  |low$="abcdefghij|
000006e0  6b 6c 6d 6e 6f 70 71 72  73 74 75 76 77 78 79 7a  |klmnopqrstuvwxyz|
000006f0  22 0d 02 9e 20 70 75 6e  24 3d 22 2c 2e 3b 3a 2a  |"... pun$=",.;:*|
00000700  2b 2f 3f 2d 3d 22 22 28  29 26 27 21 5e 5c 60 20  |+/?-=""()&'!^\` |
00000710  22 0d 02 a8 17 6e 75 6d  24 3d 22 31 32 33 34 35  |"....num$="12345|
00000720  36 37 38 39 30 22 3a e1  0d 02 b2 05 3a 0d 02 bc  |67890":.....:...|
00000730  16 dd 20 a4 65 64 69 74  28 61 24 2c 76 61 6c 69  |.. .edit(a$,vali|
00000740  64 24 29 0d 02 c6 1a ea  6c 65 6e 2c 78 2c 79 2c  |d$).....len,x,y,|
00000750  70 6f 73 2c 67 3a 78 3d  b1 3a 79 3d bc 0d 02 d0  |pos,g:x=.:y=....|
00000760  1a ef 32 33 2c 31 2c 31  3b 30 3b 30 3b 30 3b 3a  |..23,1,1;0;0;0;:|
00000770  6c 65 6e 3d a9 61 24 0d  02 da 19 f5 20 e7 20 70  |len=.a$..... . p|
00000780  6f 73 3d 6c 65 6e 20 70  6f 73 3d 70 6f 73 2d 31  |os=len pos=pos-1|
00000790  0d 02 e4 1c f1 8a 78 2c  79 29 61 24 8a 78 2b 70  |......x,y)a$.x+p|
000007a0  6f 73 2c 79 29 3b 3a 2a  46 58 32 31 0d 02 ee 16  |os,y);:*FX21....|
000007b0  67 3d a5 3a e7 20 67 3d  31 33 20 fd 20 b9 3a 3d  |g=.:. g=13 . .:=|
000007c0  61 24 0d 02 f8 45 e7 20  67 3d 31 34 30 20 80 20  |a$...E. g=140 . |
000007d0  70 6f 73 3d 30 20 84 20  67 3d 31 34 31 20 80 20  |pos=0 . g=141 . |
000007e0  70 6f 73 2b 31 3d 6c 65  6e 20 84 20 67 3d 31 32  |pos+1=len . g=12|
000007f0  37 20 80 20 61 24 3d c4  6c 65 6e 2c 22 20 22 29  |7 . a$=.len," ")|
00000800  20 ef 37 3a fd 20 a3 0d  03 02 31 e7 20 67 3d 31  | .7:. ....1. g=1|
00000810  34 30 20 70 6f 73 3d 70  6f 73 2d 31 3a fd 20 a3  |40 pos=pos-1:. .|
00000820  20 8b 20 e7 20 67 3d 31  34 31 20 70 6f 73 3d 70  | . . g=141 pos=p|
00000830  6f 73 2b 31 3a fd 20 a3  0d 03 0c 7d e7 20 67 3d  |os+1:. ....}. g=|
00000840  31 32 37 20 80 20 c2 61  24 2c 6c 65 6e 2d 70 6f  |127 . .a$,len-po|
00000850  73 29 3d c4 6c 65 6e 2d  70 6f 73 2c 22 20 22 29  |s)=.len-pos," ")|
00000860  20 70 6f 73 3d 70 6f 73  2d 31 3a 61 24 3d c0 61  | pos=pos-1:a$=.a|
00000870  24 2c 70 6f 73 29 2b c4  6c 65 6e 2d 70 6f 73 2c  |$,pos)+.len-pos,|
00000880  22 20 22 29 3a fd 20 a3  20 8b 20 e7 20 67 3d 31  |" "):. . . . g=1|
00000890  32 37 20 61 24 3d c0 61  24 2c 70 6f 73 29 2b c2  |27 a$=.a$,pos)+.|
000008a0  61 24 2c 6c 65 6e 2d 70  6f 73 2d 31 29 2b 22 20  |a$,len-pos-1)+" |
000008b0  22 3a fd 20 a3 0d 03 16  34 e7 20 67 3d 31 33 39  |":. ....4. g=139|
000008c0  20 61 24 3d c0 61 24 2c  70 6f 73 29 2b 22 20 22  | a$=.a$,pos)+" "|
000008d0  2b c1 61 24 2c 70 6f 73  2b 31 2c 6c 65 6e 2d 70  |+.a$,pos+1,len-p|
000008e0  6f 73 2d 31 29 3a fd 20  a3 0d 03 20 61 e7 20 a7  |os-1):. ... a. .|
000008f0  76 61 6c 69 64 24 2c bd  67 29 3d 30 20 ef 37 3a  |valid$,.g)=0 .7:|
00000900  fd 20 a3 20 8b 20 61 24  3d c0 61 24 2c 70 6f 73  |. . . a$=.a$,pos|
00000910  29 2b bd 67 2b c1 61 24  2c 70 6f 73 2b 32 2c 6c  |)+.g+.a$,pos+2,l|
00000920  65 6e 2d 70 6f 73 2d 31  29 3a 70 6f 73 3d 70 6f  |en-pos-1):pos=po|
00000930  73 2b 31 3a e7 20 70 6f  73 3d 6c 65 6e 20 d4 20  |s+1:. pos=len . |
00000940  33 2c 31 2c 31 33 36 2c  31 36 0d 03 2a 07 fd 20  |3,1,136,16..*.. |
00000950  a3 0d 03 34 05 3a 0d 03  3e 0c dd 20 f2 65 72 72  |...4.:..>.. .err|
00000960  6f 72 0d 03 48 0f d9 23  30 3a ef 36 3a 41 25 3d  |or..H..#0:.6:A%=|
00000970  37 0d 03 52 0c e7 20 9f  3d 31 37 20 e1 0d 03 5c  |7..R.. .=17 ...\|
00000980  44 f2 6d 65 73 73 61 67  65 28 bd 31 31 29 3a f6  |D.message(.11):.|
00000990  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |:." at line ";.:|
000009a0  f1 3b 3a e7 20 a4 79 6e  28 22 43 6f 6e 74 69 6e  |.;:. .yn("Contin|
000009b0  75 65 3f 20 3c 59 2f 4e  3e 22 29 3d 22 59 22 20  |ue? <Y/N>")="Y" |
000009c0  e1 0d 03 66 12 f2 71 75  69 74 3a f2 65 6e 64 3a  |...f..quit:.end:|
000009d0  db 3a e0 0d 03 70 05 3a  0d 03 7a 1a dd 20 a4 79  |.:...p.:..z.. .y|
000009e0  6e 28 6d 24 29 3a ea 20  41 24 3a f1 6d 24 22 20  |n(m$):. A$:.m$" |
000009f0  22 3b 0d 03 84 11 f5 20  41 24 3d bd 28 a5 80 26  |";..... A$=.(..&|
00000a00  35 46 29 0d 03 8e 15 fd  20 a7 22 59 4e 22 2c 41  |5F)..... ."YN",A|
00000a10  24 29 3e 30 3a 3d 41 24  0d 03 98 05 3a 0d 03 a2  |$)>0:=A$....:...|
00000a20  13 dd 20 f2 6d 65 6e 75  28 63 68 6f 69 63 65 29  |.. .menu(choice)|
00000a30  0d 03 ac 08 ea 20 49 25  0d 03 b6 12 ef 32 33 2c  |..... I%.....23,|
00000a40  31 2c 30 3b 30 3b 30 3b  30 3b 0d 03 c0 47 f2 68  |1,0;0;0;0;...G.h|
00000a50  65 61 64 69 6e 67 28 22  4d 41 49 4e 20 4d 45 4e  |eading("MAIN MEN|
00000a60  55 22 2c 22 43 55 52 53  4f 52 20 4b 45 59 53 20  |U","CURSOR KEYS |
00000a70  74 6f 20 73 65 6c 65 63  74 20 74 68 65 6e 20 22  |to select then "|
00000a80  2b bd 31 33 34 2b 22 3c  52 45 54 55 52 4e 3e 22  |+.134+"<RETURN>"|
00000a90  29 0d 03 ca 0a f7 20 8d  64 74 4b 0d 03 d4 14 49  |)..... .dtK....I|
00000aa0  25 3d a4 6d 65 6e 75 28  63 68 6f 69 63 65 29 0d  |%=.menu(choice).|
00000ab0  03 de 2d ee 20 49 25 20  e5 20 8d 64 68 43 2c 8d  |..-. I% . .dhC,.|
00000ac0  64 72 43 2c 8d 64 7c 43  2c 8d 54 46 44 2c 8d 54  |drC,.d|C,.TFD,.T|
00000ad0  50 44 2c 8d 54 5a 44 2c  8d 54 64 44 0d 03 e8 0b  |PD,.TZD,.TdD....|
00000ae0  f2 65 64 69 74 3a e1 0d  03 f2 0e f2 63 6f 6d 70  |.edit:......comp|
00000af0  69 6c 65 3a e1 0d 03 fc  10 f2 70 72 69 6e 74 6c  |ile:......printl|
00000b00  69 73 74 3a e1 0d 04 06  12 f2 70 72 69 6e 74 6d  |ist:......printm|
00000b10  61 73 74 65 72 3a e1 0d  04 10 0b f2 73 61 76 65  |aster:......save|
00000b20  3a e1 0d 04 1a 0b f2 66  69 6c 65 3a e1 0d 04 24  |:......file:...$|
00000b30  0b f2 71 75 69 74 3a e1  0d 04 2e 05 3a 0d 04 38  |..quit:.....:..8|
00000b40  0e dd 20 a4 6d 65 6e 75  28 49 29 0d 04 42 0e ea  |.. .menu(I)..B..|
00000b50  20 4a 2c 56 2c 48 2c 41  24 0d 04 4c 15 56 3d 31  | J,V,H,A$..L.V=1|
00000b60  3a 48 3d 39 3a f3 20 6f  70 74 69 6f 6e 73 0d 04  |:H=9:. options..|
00000b70  56 2b e3 20 4a 3d 31 20  b8 20 6f 70 74 69 6f 6e  |V+. J=1 . option|
00000b80  73 3a f3 20 41 24 3a f1  8a 48 2b 31 2c 56 2b 28  |s:. A$:..H+1,V+(|
00000b90  4a 2a 32 29 29 41 24 3a  ed 0d 04 60 05 f5 0d 04  |J*2))A$:...`....|
00000ba0  6a 1c f1 8a 48 2c 56 2b  28 49 2a 32 29 29 bd 31  |j...H,V+(I*2)).1|
00000bb0  32 39 3a 2a 46 58 32 31  2c 30 0d 04 74 07 67 3d  |29:*FX21,0..t.g=|
00000bc0  a5 0d 04 7e 15 e7 20 67  3d 31 33 20 fd 20 b9 3a  |...~.. g=13 . .:|
00000bd0  ef 32 36 3a 3d 49 0d 04  88 25 e7 20 67 3d 31 34  |.26:=I...%. g=14|
00000be0  32 20 84 20 67 3d 31 34  33 20 f1 8a 48 2c 56 2b  |2 . g=143 ..H,V+|
00000bf0  28 49 2a 32 29 29 bd 31  33 35 3b 0d 04 92 37 e7  |(I*2)).135;...7.|
00000c00  20 67 3d 31 34 32 20 80  20 49 3c 6f 70 74 69 6f  | g=142 . I<optio|
00000c10  6e 73 20 49 3d 49 2b 31  20 8b 20 e7 20 67 3d 31  |ns I=I+1 . . g=1|
00000c20  34 32 20 80 20 49 3d 6f  70 74 69 6f 6e 73 20 49  |42 . I=options I|
00000c30  3d 31 0d 04 9c 31 e7 20  67 3d 31 34 33 20 80 20  |=1...1. g=143 . |
00000c40  49 3e 31 20 49 3d 49 2d  31 20 8b 20 e7 20 67 3d  |I>1 I=I-1 . . g=|
00000c50  31 34 33 20 80 20 49 3d  31 20 49 3d 6f 70 74 69  |143 . I=1 I=opti|
00000c60  6f 6e 73 0d 04 a6 07 fd  20 a3 0d 04 b0 05 3a 0d  |ons..... .....:.|
00000c70  04 ba 15 dd 20 f2 68 65  61 64 69 6e 67 28 41 24  |.... .heading(A$|
00000c80  2c 42 24 29 0d 04 c4 10  ea 20 48 2c 48 31 3a ef  |,B$)..... H,H1:.|
00000c90  32 36 3a db 0d 04 ce 14  48 3d 31 39 2d 28 a9 28  |26:.....H=19-(.(|
00000ca0  41 24 29 2b 31 29 81 32  0d 04 d8 15 48 31 3d 31  |A$)+1).2....H1=1|
00000cb0  39 2d 28 a9 28 42 24 29  2b 31 29 81 32 0d 04 e2  |9-(.(B$)+1).2...|
00000cc0  25 f1 8a 48 2c 30 29 bd  31 33 34 41 24 8a 48 2c  |%..H,0).134A$.H,|
00000cd0  31 29 bd 31 33 34 20 c4  a9 28 41 24 29 2c 22 3d  |1).134 ..(A$),"=|
00000ce0  22 29 0d 04 ec 24 f1 8a  48 31 2c 32 29 bd 31 33  |")...$..H1,2).13|
00000cf0  31 42 24 8a 30 2c 33 29  bd 31 33 31 20 c4 33 38  |1B$.0,3).131 .38|
00000d00  2c 22 5f 22 29 3b 0d 04  f6 13 ef 32 38 2c 30 2c  |,"_");.....28,0,|
00000d10  32 33 2c 33 39 2c 34 3a  e1 0d 05 00 05 3a 0d 05  |23,39,4:.....:..|
00000d20  0a 1b dd 20 f2 73 63 72  65 65 6e 28 73 74 61 72  |... .screen(star|
00000d30  74 2c 66 69 6e 69 73 68  29 0d 05 14 12 ea 20 49  |t,finish)..... I|
00000d40  25 2c 4a 25 2c 65 6e 64  2c 41 24 0d 05 1e 23 e7  |%,J%,end,A$...#.|
00000d50  20 66 69 6e 69 73 68 3e  4e 25 20 65 6e 64 3d 4e  | finish>N% end=N|
00000d60  25 20 8b 20 65 6e 64 3d  66 69 6e 69 73 68 0d 05  |% . end=finish..|
00000d70  28 07 db 3a f1 0d 05 32  1f e3 20 49 25 3d 73 74  |(..:...2.. I%=st|
00000d80  61 72 74 20 b8 20 65 6e  64 3a e3 20 4a 25 3d 31  |art . end:. J%=1|
00000d90  20 b8 20 33 0d 05 3c 44  e7 20 28 4a 25 3d 31 20  | . 3..<D. (J%=1 |
00000da0  80 20 6c 69 73 74 25 28  49 25 29 20 80 20 ac 20  |. list%(I%) . . |
00000db0  65 64 69 74 25 29 20 41  24 3d bd 31 32 39 20 8b  |edit%) A$=.129 .|
00000dc0  20 e7 20 4a 25 3d 32 20  41 24 3d 22 20 60 22 20  | . J%=2 A$=" `" |
00000dd0  8b 20 41 24 3d 22 20 22  0d 05 46 1c f1 bd 28 31  |. A$=" "..F...(1|
00000de0  32 39 2b 4a 25 29 41 24  4d 24 28 49 25 2c 4a 25  |29+J%)A$M$(I%,J%|
00000df0  29 3b 3a ed 0d 05 50 11  e7 20 49 25 3c 66 69 6e  |);:...P.. I%<fin|
00000e00  69 73 68 20 f1 0d 05 5a  07 ed 3a e1 0d 05 64 05  |ish ...Z..:...d.|
00000e10  3a 0d 05 6e 0b dd 20 f2  65 64 69 74 0d 05 78 1f  |:..n.. .edit..x.|
00000e20  ea 20 48 25 2c 68 74 61  62 2c 76 74 61 62 2c 67  |. H%,htab,vtab,g|
00000e30  2c 70 61 67 65 2c 6c 69  6e 65 73 0d 05 82 16 e7  |,page,lines.....|
00000e40  20 66 6e 61 6d 65 24 3d  22 22 20 41 25 3d 36 3a  | fname$="" A%=6:|
00000e50  e1 0d 05 8c 37 68 74 61  62 3d 32 3a 6c 69 6e 65  |....7htab=2:line|
00000e60  73 3d 31 38 3a 70 61 67  65 3d 30 3a 73 74 61 72  |s=18:page=0:star|
00000e70  74 3d 31 3a 66 69 6e 69  73 68 3d 6c 69 6e 65 73  |t=1:finish=lines|
00000e80  3a 65 64 69 74 25 3d b9  0d 05 96 48 f2 68 65 61  |:edit%=....H.hea|
00000e90  64 69 6e 67 28 22 45 4e  54 45 52 2f 45 44 49 54  |ding("ENTER/EDIT|
00000ea0  20 49 54 45 4d 53 22 2c  22 43 75 72 73 6f 72 20  | ITEMS","Cursor |
00000eb0  6b 65 79 73 20 74 6f 20  6d 6f 76 65 20 2d 20 53  |keys to move - S|
00000ec0  50 41 43 45 20 74 6f 20  63 68 61 6e 67 65 22 29  |PACE to change")|
00000ed0  0d 05 a0 5c ef 32 36 3a  f1 8a 30 2c 32 33 29 bd  |...\.26:..0,23).|
00000ee0  31 33 31 c4 33 38 2c 22  5f 22 29 8a 30 2c 32 34  |131.38,"_").0,24|
00000ef0  29 bd 31 33 31 22 43 4f  50 59 3d 49 6e 73 65 72  |).131"COPY=Inser|
00000f00  74 20 20 20 20 44 45 4c  45 54 45 3d 44 65 6c 65  |t    DELETE=Dele|
00000f10  74 65 20 61 74 20 63 75  72 73 6f 72 22 3b 3a ef  |te at cursor";:.|
00000f20  32 38 2c 30 2c 32 32 2c  33 39 2c 34 0d 05 aa 28  |28,0,22,39,4...(|
00000f30  ef 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 3a f2  |.23,1,1;0;0;0;:.|
00000f40  73 63 72 65 65 6e 28 73  74 61 72 74 2c 66 69 6e  |screen(start,fin|
00000f50  69 73 68 29 0d 05 b4 13  e7 20 4e 25 3d 30 20 f2  |ish)..... N%=0 .|
00000f60  6e 65 77 6c 69 6e 65 0d  05 be 0d 49 25 3d 31 3a  |newline....I%=1:|
00000f70  48 25 3d 31 0d 05 c8 05  f5 0d 05 d2 20 e7 20 4e  |H%=1........ . N|
00000f80  25 3d 6d 61 78 72 65 63  73 20 66 75 6c 6c 3d b9  |%=maxrecs full=.|
00000f90  20 8b 20 66 75 6c 6c 3d  a3 0d 05 dc 29 e7 20 49  | . full=....). I|
00000fa0  25 3c 3d 6c 69 6e 65 73  20 66 69 72 73 74 70 61  |%<=lines firstpa|
00000fb0  67 65 3d b9 20 8b 20 66  69 72 73 74 70 61 67 65  |ge=. . firstpage|
00000fc0  3d a3 0d 05 e6 30 e7 20  4e 25 3c 3d 28 70 61 67  |=....0. N%<=(pag|
00000fd0  65 2b 31 29 2a 6c 69 6e  65 73 20 6c 61 73 74 70  |e+1)*lines lastp|
00000fe0  61 67 65 3d b9 20 8b 20  6c 61 73 74 70 61 67 65  |age=. . lastpage|
00000ff0  3d a3 0d 05 f0 18 76 74  61 62 3d 49 25 2d 28 70  |=.....vtab=I%-(p|
00001000  61 67 65 2a 6c 69 6e 65  73 29 0d 05 fa 3e f1 8a  |age*lines)...>..|
00001010  31 2c 30 29 bd 31 33 33  22 54 6f 74 61 6c 20 49  |1,0).133"Total I|
00001020  74 65 6d 73 3d 22 3b 4e  25 3b 8a 32 32 2c 30 29  |tems=";N%;.22,0)|
00001030  22 43 75 72 72 65 6e 74  20 49 74 65 6d 3d 22 3b  |"Current Item=";|
00001040  49 25 3b 22 20 20 22 3b  0d 06 04 22 74 65 6d 70  |I%;"  ";..."temp|
00001050  24 3d 22 22 3a f1 8a 68  74 61 62 2c 76 74 61 62  |$="":..htab,vtab|
00001060  29 3b 3a 2a 46 58 32 31  2c 30 0d 06 0e 07 67 3d  |);:*FX21,0....g=|
00001070  a5 0d 06 18 9a e7 20 67  3d 33 32 20 80 20 4e 25  |...... g=32 . N%|
00001080  3c 31 20 ef 37 3a fd 20  a3 20 8b 20 e7 20 67 3d  |<1 .7:. . . . g=|
00001090  33 32 20 80 20 48 25 3d  31 20 f1 20 bd 38 bd 31  |32 . H%=1 . .8.1|
000010a0  33 34 3b 3a 74 65 6d 70  24 3d a4 65 64 69 74 28  |34;:temp$=.edit(|
000010b0  4d 24 28 49 25 2c 48 25  29 2c 63 61 70 24 2b 6c  |M$(I%,H%),cap$+l|
000010c0  6f 77 24 2b 6e 75 6d 24  2b 70 75 6e 24 29 20 8b  |ow$+num$+pun$) .|
000010d0  20 e7 20 67 3d 33 32 20  80 20 48 25 3d 32 20 f1  | . g=32 . H%=2 .|
000010e0  20 bd 38 bd 31 33 34 22  60 22 3b 3a 74 65 6d 70  | .8.134"`";:temp|
000010f0  24 3d a4 65 64 69 74 28  4d 24 28 49 25 2c 48 25  |$=.edit(M$(I%,H%|
00001100  29 2c 6e 75 6d 24 2b 22  2e 22 29 0d 06 22 92 e7  |),num$+".").."..|
00001110  20 67 3d 33 32 20 80 20  74 65 6d 70 24 3c 3e 4d  | g=32 . temp$<>M|
00001120  24 28 49 25 2c 48 25 29  20 80 20 74 65 6d 70 24  |$(I%,H%) . temp$|
00001130  3c 3e c4 32 30 2c 22 20  22 29 20 4d 24 28 49 25  |<>.20," ") M$(I%|
00001140  2c 48 25 29 3d 74 65 6d  70 24 3a 4d 24 28 49 25  |,H%)=temp$:M$(I%|
00001150  2c 33 29 3d 64 61 74 65  24 3a 63 68 6e 67 3d b9  |,3)=date$:chng=.|
00001160  3a f2 73 63 72 65 65 6e  28 73 74 61 72 74 2c 66  |:.screen(start,f|
00001170  69 6e 69 73 68 29 3a fd  20 a3 20 8b 20 e7 20 67  |inish):. . . . g|
00001180  3d 33 32 20 f2 73 63 72  65 65 6e 28 73 74 61 72  |=32 .screen(star|
00001190  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 0d 06 2c  |t,finish):. ...,|
000011a0  32 e7 28 67 3d 31 34 33  20 80 20 49 25 3d 31 29  |2.(g=143 . I%=1)|
000011b0  20 84 20 28 67 3d 31 35  39 20 80 20 66 69 72 73  | . (g=159 . firs|
000011c0  74 70 61 67 65 3d b9 29  20 ef 37 3a fd 20 a3 0d  |tpage=.) .7:. ..|
000011d0  06 36 7e e7 28 67 3d 31  34 33 20 80 20 49 25 3d  |.6~.(g=143 . I%=|
000011e0  73 74 61 72 74 29 20 84  20 67 3d 31 35 39 20 f2  |start) . g=159 .|
000011f0  64 65 63 3a e7 20 67 3d  31 34 33 20 49 25 3d 49  |dec:. g=143 I%=I|
00001200  25 2d 31 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |%-1:.screen(star|
00001210  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 20 8b 20  |t,finish):. . . |
00001220  e7 20 67 3d 31 35 39 20  49 25 3d 49 25 2d 6c 69  |. g=159 I%=I%-li|
00001230  6e 65 73 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |nes:.screen(star|
00001240  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 0d 06 40  |t,finish):. ...@|
00001250  13 e7 20 67 3d 31 34 33  20 49 25 3d 49 25 2d 31  |.. g=143 I%=I%-1|
00001260  0d 06 4a 35 e7 28 67 3d  31 35 38 20 80 20 6c 61  |..J5.(g=158 . la|
00001270  73 74 70 61 67 65 29 20  84 20 28 67 3d 31 34 32  |stpage) . (g=142|
00001280  20 80 20 49 25 3d 6d 61  78 72 65 63 73 29 20 ef  | . I%=maxrecs) .|
00001290  37 3a fd 20 a3 0d 06 54  3e e7 20 67 3d 31 35 38  |7:. ...T>. g=158|
000012a0  20 80 20 49 25 3e 4e 25  2d 6c 69 6e 65 73 20 49  | . I%>N%-lines I|
000012b0  25 3d 4e 25 3a f2 69 6e  63 3a f2 73 63 72 65 65  |%=N%:.inc:.scree|
000012c0  6e 28 73 74 61 72 74 2c  66 69 6e 69 73 68 29 3a  |n(start,finish):|
000012d0  fd 20 a3 0d 06 5e 98 e7  28 67 3d 31 34 32 20 80  |. ...^..(g=142 .|
000012e0  20 49 25 3d 4e 25 20 80  20 49 25 3d 66 69 6e 69  | I%=N% . I%=fini|
000012f0  73 68 20 80 20 ac 20 66  75 6c 6c 29 84 20 67 3d  |sh . . full). g=|
00001300  31 35 38 20 f2 69 6e 63  3a e7 20 67 3d 31 34 32  |158 .inc:. g=142|
00001310  20 49 25 3d 49 25 2b 31  3a f2 6e 65 77 6c 69 6e  | I%=I%+1:.newlin|
00001320  65 3a f2 73 63 72 65 65  6e 28 73 74 61 72 74 2c  |e:.screen(start,|
00001330  66 69 6e 69 73 68 29 3a  fd 20 a3 20 8b 20 e7 20  |finish):. . . . |
00001340  67 3d 31 35 38 20 49 25  3d 49 25 2b 6c 69 6e 65  |g=158 I%=I%+line|
00001350  73 3a f2 73 63 72 65 65  6e 28 73 74 61 72 74 2c  |s:.screen(start,|
00001360  66 69 6e 69 73 68 29 3a  fd 20 a3 0d 06 68 31 e7  |finish):. ...h1.|
00001370  20 67 3d 31 34 32 20 80  20 49 25 3d 4e 25 20 80  | g=142 . I%=N% .|
00001380  20 ac 20 66 75 6c 6c 20  49 25 3d 49 25 2b 31 3a  | . full I%=I%+1:|
00001390  f2 6e 65 77 6c 69 6e 65  3a fd 20 a3 0d 06 72 47  |.newline:. ...rG|
000013a0  e7 20 67 3d 31 34 32 20  80 20 49 25 3d 66 69 6e  |. g=142 . I%=fin|
000013b0  69 73 68 20 80 20 ac 20  66 75 6c 6c 20 49 25 3d  |ish . . full I%=|
000013c0  49 25 2b 31 3a f2 69 6e  63 3a f2 73 63 72 65 65  |I%+1:.inc:.scree|
000013d0  6e 28 73 74 61 72 74 2c  66 69 6e 69 73 68 29 3a  |n(start,finish):|
000013e0  fd 20 a3 0d 06 7c 13 e7  20 67 3d 31 34 32 20 49  |. ...|.. g=142 I|
000013f0  25 3d 49 25 2b 31 0d 06  86 19 e7 20 67 3d 31 34  |%=I%+1..... g=14|
00001400  30 20 80 20 48 25 3d 31  20 ef 37 3a fd 20 a3 0d  |0 . H%=1 .7:. ..|
00001410  06 90 17 e7 20 67 3d 31  34 30 20 48 25 3d 31 3a  |.... g=140 H%=1:|
00001420  68 74 61 62 3d 32 0d 06  9a 19 e7 20 67 3d 31 34  |htab=2..... g=14|
00001430  31 20 80 20 48 25 3d 32  20 ef 37 3a fd 20 a3 0d  |1 . H%=2 .7:. ..|
00001440  06 a4 18 e7 20 67 3d 31  34 31 20 48 25 3d 32 3a  |.... g=141 H%=2:|
00001450  68 74 61 62 3d 32 34 0d  06 ae 32 e7 20 28 67 3d  |htab=24...2. (g=|
00001460  31 33 39 20 80 20 4e 25  3d 6d 61 78 72 65 63 73  |139 . N%=maxrecs|
00001470  29 20 84 20 28 67 3d 31  33 39 20 80 20 49 25 3c  |) . (g=139 . I%<|
00001480  31 29 20 ef 37 3a fd 20  a3 0d 06 b8 13 e7 20 67  |1) .7:. ...... g|
00001490  3d 31 33 39 20 f2 69 6e  73 65 72 74 0d 06 c2 46  |=139 .insert...F|
000014a0  e7 20 67 3d 31 32 37 20  80 20 49 25 3d 73 74 61  |. g=127 . I%=sta|
000014b0  72 74 20 80 20 49 25 3e  6c 69 6e 65 73 20 80 20  |rt . I%>lines . |
000014c0  49 25 3d 4e 25 20 f2 64  65 63 20 8b 20 e7 20 67  |I%=N% .dec . . g|
000014d0  3d 31 32 37 20 80 20 49  25 3c 31 20 ef 37 3a fd  |=127 . I%<1 .7:.|
000014e0  20 a3 0d 06 cc 17 e7 20  67 3d 31 32 37 20 f2 64  | ...... g=127 .d|
000014f0  65 6c 65 74 65 3a fd 20  a3 0d 06 d6 1d fd 20 67  |elete:. ...... g|
00001500  3d 31 33 3a e7 20 63 68  6e 67 20 41 25 3d 35 20  |=13:. chng A%=5 |
00001510  8b 20 41 25 3d 37 0d 06  e0 05 e1 0d 06 ea 05 3a  |. A%=7.........:|
00001520  0d 06 f4 1c dd 20 f2 69  6e 63 3a 73 74 61 72 74  |..... .inc:start|
00001530  3d 73 74 61 72 74 2b 6c  69 6e 65 73 0d 06 fe 23  |=start+lines...#|
00001540  70 61 67 65 3d 70 61 67  65 2b 31 3a 66 69 6e 69  |page=page+1:fini|
00001550  73 68 3d 66 69 6e 69 73  68 2b 6c 69 6e 65 73 0d  |sh=finish+lines.|
00001560  07 08 05 e1 0d 07 12 05  3a 0d 07 1c 1c dd 20 f2  |........:..... .|
00001570  64 65 63 3a 73 74 61 72  74 3d 73 74 61 72 74 2d  |dec:start=start-|
00001580  6c 69 6e 65 73 0d 07 26  23 70 61 67 65 3d 70 61  |lines..&#page=pa|
00001590  67 65 2d 31 3a 66 69 6e  69 73 68 3d 66 69 6e 69  |ge-1:finish=fini|
000015a0  73 68 2d 6c 69 6e 65 73  0d 07 30 05 e1 0d 07 3a  |sh-lines..0....:|
000015b0  05 3a 0d 07 44 0d dd 20  f2 69 6e 73 65 72 74 0d  |.:..D.. .insert.|
000015c0  07 4e 2f ea 20 49 2c 4a  3a f2 6d 65 73 73 61 67  |.N/. I,J:.messag|
000015d0  65 28 22 4d 41 4b 49 4e  47 20 52 4f 4f 4d 20 2d  |e("MAKING ROOM -|
000015e0  20 50 4c 45 41 53 45 20  57 41 49 54 22 29 0d 07  | PLEASE WAIT")..|
000015f0  58 17 e3 20 49 3d 4e 25  2b 31 20 b8 20 49 25 2b  |X.. I=N%+1 . I%+|
00001600  31 20 88 2d 31 0d 07 62  21 e3 20 4a 3d 31 20 b8  |1 .-1..b!. J=1 .|
00001610  20 33 3a 4d 24 28 49 2c  4a 29 3d 4d 24 28 49 2d  | 3:M$(I,J)=M$(I-|
00001620  31 2c 4a 29 3a ed 0d 07  6c 1e e7 20 6c 69 73 74  |1,J):...l.. list|
00001630  20 6c 69 73 74 25 28 49  29 3d 6c 69 73 74 25 28  | list%(I)=list%(|
00001640  49 2d 31 29 0d 07 76 18  ed 3a e7 20 6c 69 73 74  |I-1)..v..:. list|
00001650  20 6c 69 73 74 25 28 49  25 29 3d b9 0d 07 80 0e  | list%(I%)=.....|
00001660  f2 6e 65 77 6c 69 6e 65  3a e1 0d 07 8a 05 3a 0d  |.newline:.....:.|
00001670  07 94 19 dd 20 f2 6e 65  77 6c 69 6e 65 3a f2 6e  |.... .newline:.n|
00001680  65 77 72 65 63 6f 72 64  0d 07 9e 21 4e 25 3d 4e  |ewrecord...!N%=N|
00001690  25 2b 31 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |%+1:.screen(star|
000016a0  74 2c 66 69 6e 69 73 68  29 0d 07 a8 05 e1 0d 07  |t,finish).......|
000016b0  b2 05 3a 0d 07 bc 10 dd  20 f2 6e 65 77 72 65 63  |..:..... .newrec|
000016c0  6f 72 64 0d 07 c6 8d f1  8a 30 2c 35 29 89 34 30  |ord......0,5).40|
000016d0  bd 31 33 33 3b c4 33 38  2c 22 3d 22 29 3b 89 31  |.133;.38,"=");.1|
000016e0  36 31 bd 31 33 33 3b c4  33 38 2c 22 3d 22 29 89  |61.133;.38,"=").|
000016f0  34 31 3b 8a 34 2c 38 29  bd 31 33 34 22 45 6e 74  |41;.4,8).134"Ent|
00001700  65 72 20 49 74 65 6d 20  20 22 3b 3a f5 3a 4d 24  |er Item  ";:.:M$|
00001710  28 49 25 2c 31 29 3d a4  65 64 69 74 28 62 6c 61  |(I%,1)=.edit(bla|
00001720  6e 6b 24 28 31 29 2c 63  61 70 24 2b 6c 6f 77 24  |nk$(1),cap$+low$|
00001730  2b 70 75 6e 24 2b 6e 75  6d 24 29 3a fd 20 4d 24  |+pun$+num$):. M$|
00001740  28 49 25 2c 31 29 3c 3e  c4 32 30 2c 22 20 22 29  |(I%,1)<>.20," ")|
00001750  0d 07 d0 41 f1 8a 34 2c  39 29 bd 31 33 34 22 45  |...A..4,9).134"E|
00001760  6e 74 65 72 20 50 72 69  63 65 20 60 22 3b 3a 4d  |nter Price `";:M|
00001770  24 28 49 25 2c 32 29 3d  a4 65 64 69 74 28 62 6c  |$(I%,2)=.edit(bl|
00001780  61 6e 6b 24 28 32 29 2c  6e 75 6d 24 2b 22 2e 22  |ank$(2),num$+"."|
00001790  29 0d 07 da 2c 4d 24 28  49 25 2c 33 29 3d 64 61  |)...,M$(I%,3)=da|
000017a0  74 65 24 3a 63 68 6e 67  3d b9 3a e7 20 6c 69 73  |te$:chng=.:. lis|
000017b0  74 20 6c 69 73 74 25 28  49 25 29 3d b9 0d 07 e4  |t list%(I%)=....|
000017c0  05 e1 0d 07 ee 05 3a 0d  07 f8 13 dd 20 f2 64 65  |......:..... .de|
000017d0  6c 65 74 65 3a ea 20 49  2c 4a 0d 08 02 30 e7 20  |lete:. I,J...0. |
000017e0  49 25 3d 4e 25 20 e5 20  8d 54 74 48 20 8b 20 f2  |I%=N% . .TtH . .|
000017f0  6d 65 73 73 61 67 65 28  22 44 45 4c 45 54 49 4e  |message("DELETIN|
00001800  47 20 52 45 43 4f 52 44  22 29 0d 08 0c 11 e3 20  |G RECORD")..... |
00001810  49 3d 49 25 20 b8 20 4e  25 2d 31 0d 08 16 21 e3  |I=I% . N%-1...!.|
00001820  20 4a 3d 31 20 b8 20 33  3a 4d 24 28 49 2c 4a 29  | J=1 . 3:M$(I,J)|
00001830  3d 4d 24 28 49 2b 31 2c  4a 29 3a ed 0d 08 20 1e  |=M$(I+1,J):... .|
00001840  e7 20 6c 69 73 74 20 6c  69 73 74 25 28 49 29 3d  |. list list%(I)=|
00001850  6c 69 73 74 25 28 49 2b  31 29 0d 08 2a 11 ed 3a  |list%(I+1)..*..:|
00001860  6c 69 73 74 25 28 4e 25  29 3d a3 0d 08 34 22 e3  |list%(N%)=...4".|
00001870  20 4a 3d 31 20 b8 20 33  3a 4d 24 28 4e 25 2c 4a  | J=1 . 3:M$(N%,J|
00001880  29 3d 62 6c 61 6e 6b 24  28 4a 29 3a ed 0d 08 3e  |)=blank$(J):...>|
00001890  0b 4e 25 3d 4e 25 2d 31  0d 08 48 11 e7 20 49 25  |.N%=N%-1..H.. I%|
000018a0  3e 4e 25 20 49 25 3d 4e  25 0d 08 52 20 63 68 6e  |>N% I%=N%..R chn|
000018b0  67 3d b9 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |g=.:.screen(star|
000018c0  74 2c 66 69 6e 69 73 68  29 0d 08 5c 05 e1 0d 08  |t,finish)..\....|
000018d0  66 05 3a 0d 08 70 12 dd  f2 70 72 69 6e 74 65 72  |f.:..p...printer|
000018e0  63 68 65 63 6b 0d 08 7a  14 e7 20 a4 70 72 69 6e  |check..z.. .prin|
000018f0  74 65 72 74 65 73 74 20  e1 0d 08 84 0b f5 3a 2a  |tertest ......:*|
00001900  46 58 31 35 0d 08 8e 32  f1 8a 35 2c 31 30 29 bd  |FX15...2..5,10).|
00001910  31 33 31 bd 31 35 37 bd  31 32 39 22 50 52 49 4e  |131.157.129"PRIN|
00001920  54 45 52 20 4e 4f 54 20  4f 4e 20 4c 49 4e 45 20  |TER NOT ON LINE |
00001930  20 22 bd 31 35 36 0d 08  98 0f ef 37 3a 58 3d a6  | ".156.....7:X=.|
00001940  28 33 30 30 29 0d 08 a2  16 fd 20 a4 70 72 69 6e  |(300)..... .prin|
00001950  74 65 72 74 65 73 74 3a  db 3a e1 0d 08 ac 05 3a  |tertest:.:.....:|
00001960  0d 08 b6 12 dd 20 a4 70  72 69 6e 74 65 72 74 65  |..... .printerte|
00001970  73 74 0d 08 c0 1b ef 32  2c 31 2c 33 32 2c 31 2c  |st.....2,1,32,1,|
00001980  31 32 37 2c 33 3a 58 3d  a6 28 31 30 29 0d 08 ca  |127,3:X=.(10)...|
00001990  0f 3d 28 96 28 2d 34 29  3d 36 33 29 0d 08 d4 05  |.=(.(-4)=63)....|
000019a0  3a 0d 08 de 13 dd 20 f2  73 61 76 65 3a ea 20 49  |:..... .save:. I|
000019b0  25 2c 4a 25 0d 08 e8 11  e7 20 4e 25 3d 30 20 41  |%,J%..... N%=0 A|
000019c0  25 3d 36 3a e1 0d 08 f2  7a e7 20 ac 20 63 68 6e  |%=6:....z. . chn|
000019d0  67 20 f2 6d 65 73 73 61  67 65 28 22 4e 6f 20 6e  |g .message("No n|
000019e0  65 65 64 20 74 6f 20 73  61 76 65 2e 20 44 61 74  |eed to save. Dat|
000019f0  61 20 6e 6f 74 20 63 68  61 6e 67 65 64 2e 22 29  |a not changed.")|
00001a00  3a f1 27 bd 31 33 31 3b  3a e7 20 a4 79 6e 28 22  |:.'.131;:. .yn("|
00001a10  73 69 6e 63 65 20 6c 61  73 74 20 73 61 76 65 2e  |since last save.|
00001a20  20 41 62 6f 72 74 20 73  61 76 65 3f 20 3c 59 2f  | Abort save? <Y/|
00001a30  4e 3e 22 29 3d 22 59 22  20 41 25 3d 37 3a e1 0d  |N>")="Y" A%=7:..|
00001a40  08 fc 23 db 3a f1 8a 31  32 2c 31 33 29 bd 31 32  |..#.:..12,13).12|
00001a50  39 bd 31 33 36 22 53 41  56 49 4e 47 20 44 41 54  |9.136"SAVING DAT|
00001a60  41 22 0d 09 06 11 63 68  25 3d ad 28 66 6e 61 6d  |A"....ch%=.(fnam|
00001a70  65 24 29 0d 09 10 0f e3  20 49 25 3d 31 20 b8 20  |e$)..... I%=1 . |
00001a80  4e 25 0d 09 1a 20 e3 20  4a 25 3d 31 20 b8 20 33  |N%... . J%=1 . 3|
00001a90  3a f1 23 63 68 25 2c 4d  24 28 49 25 2c 4a 25 29  |:.#ch%,M$(I%,J%)|
00001aa0  3a ed 0d 09 24 05 ed 0d  09 2e 21 e3 20 4a 25 3d  |:...$.....!. J%=|
00001ab0  31 20 b8 20 33 3a f1 23  63 68 25 2c 62 6c 61 6e  |1 . 3:.#ch%,blan|
00001ac0  6b 24 28 4a 25 29 3a ed  0d 09 38 15 d9 23 63 68  |k$(J%):...8..#ch|
00001ad0  25 3a 63 68 6e 67 3d a3  3a 41 25 3d 37 0d 09 42  |%:chng=.:A%=7..B|
00001ae0  05 e1 0d 09 4c 05 3a 0d  09 56 16 dd 20 f2 6e 65  |....L.:..V.. .ne|
00001af0  77 66 69 6c 65 3a ea 20  49 25 2c 4a 25 0d 09 60  |wfile:. I%,J%..`|
00001b00  30 db 3a f1 8a 34 2c 31  30 29 bd 31 32 39 bd 31  |0.:..4,10).129.1|
00001b10  33 36 22 50 4c 45 41 53  45 20 57 41 49 54 20 2d  |36"PLEASE WAIT -|
00001b20  20 43 52 45 41 54 49 4e  47 20 22 66 24 0d 09 6a  | CREATING "f$..j|
00001b30  0d 63 68 25 3d ae 28 66  24 29 0d 09 74 16 e3 20  |.ch%=.(f$)..t.. |
00001b40  49 25 3d 31 20 b8 20 6d  61 78 72 65 63 73 2b 31  |I%=1 . maxrecs+1|
00001b50  0d 09 7e 21 e3 20 4a 25  3d 31 20 b8 20 33 3a f1  |..~!. J%=1 . 3:.|
00001b60  23 63 68 25 2c 62 6c 61  6e 6b 24 28 4a 25 29 3a  |#ch%,blank$(J%):|
00001b70  ed 0d 09 88 0d ed 3a d9  23 63 68 25 3a e1 0d 09  |......:.#ch%:...|
00001b80  92 05 3a 0d 09 9c 12 dd  20 f2 70 72 69 6e 74 6d  |..:..... .printm|
00001b90  61 73 74 65 72 0d 09 a6  13 ea 20 49 25 2c 4a 25  |aster..... I%,J%|
00001ba0  2c 63 6f 6c 75 6d 6e 25  0d 09 b0 11 e7 20 4e 25  |,column%..... N%|
00001bb0  3d 30 20 41 25 3d 36 3a  e1 0d 09 ba 0d 63 6f 6c  |=0 A%=6:.....col|
00001bc0  75 6d 6e 25 3d 34 0d 09  c4 47 f2 68 65 61 64 69  |umn%=4...G.headi|
00001bd0  6e 67 28 22 50 52 49 4e  54 20 4d 41 53 54 45 52  |ng("PRINT MASTER|
00001be0  20 4c 49 53 54 22 2c 22  50 72 69 6e 74 73 20 66  | LIST","Prints f|
00001bf0  75 6c 6c 20 6c 69 73 74  20 6f 66 20 61 76 61 69  |ull list of avai|
00001c00  6c 61 62 6c 65 20 69 74  65 6d 73 22 29 0d 09 ce  |lable items")...|
00001c10  11 ef 32 38 2c 30 2c 32  34 2c 33 39 2c 34 0d 09  |..28,0,24,39,4..|
00001c20  d8 45 f1 8a 33 2c 38 29  bd 31 33 31 3b 3a e7 20  |.E..3,8).131;:. |
00001c30  a4 79 6e 28 22 44 6f 20  79 6f 75 20 77 61 6e 74  |.yn("Do you want|
00001c40  20 74 6f 20 70 72 69 6e  74 20 6c 69 73 74 3f 20  | to print list? |
00001c50  20 3c 59 2f 4e 3e 22 29  3d 22 4e 22 20 41 25 3d  | <Y/N>")="N" A%=|
00001c60  34 3a e1 0d 09 e2 11 f2  70 72 69 6e 74 65 72 63  |4:......printerc|
00001c70  68 65 63 6b 0d 09 ec 29  f1 8a 38 2c 31 30 29 bd  |heck...)..8,10).|
00001c80  31 32 39 bd 31 33 36 22  50 52 49 4e 54 49 4e 47  |129.136"PRINTING|
00001c90  20 4d 41 53 54 45 52 20  4c 49 53 54 22 0d 09 f6  | MASTER LIST"...|
00001ca0  2a ef 32 2c 32 31 2c 31  2c 32 37 2c 31 2c 38 32  |*.2,21,1,27,1,82|
00001cb0  2c 31 2c 33 2c 31 2c 32  37 2c 31 2c 37 38 2c 31  |,1,3,1,27,1,78,1|
00001cc0  2c 34 2c 31 2c 31 35 0d  0a 00 2c f1 22 20 4d 61  |,4,1,15...,." Ma|
00001cd0  73 74 65 72 20 4c 69 73  74 3a 20 22 66 6e 61 6d  |ster List: "fnam|
00001ce0  65 24 3b 89 31 30 3b 4e  25 22 20 69 74 65 6d 73  |e$;.10;N%" items|
00001cf0  22 3a f1 0d 0a 0a 12 49  25 3d 30 3a f5 20 49 25  |":.....I%=0:. I%|
00001d00  3d 49 25 2b 31 0d 0a 14  2a e7 20 49 25 3e 4e 25  |=I%+1...*. I%>N%|
00001d10  20 fd 20 b9 3a ef 36 2c  31 2c 31 32 2c 31 2c 32  | . .:.6,1,12,1,2|
00001d20  37 2c 31 2c 36 34 2c 33  3a 41 25 3d 37 3a e1 0d  |7,1,64,3:A%=7:..|
00001d30  0a 1e 1f e3 4a 25 3d 31  b8 32 3a f1 41 24 28 4a  |....J%=1.2:.A$(J|
00001d40  25 29 4d 24 28 49 25 2c  4a 25 29 3b 3a ed 0d 0a  |%)M$(I%,J%);:...|
00001d50  28 26 e7 20 49 25 20 83  20 63 6f 6c 75 6d 6e 25  |(&. I% . column%|
00001d60  3d 30 20 84 20 49 25 3d  4e 25 20 f1 20 8b 20 f1  |=0 . I%=N% . . .|
00001d70  20 89 36 3b 0d 0a 32 07  fd 20 a3 0d 0a 3c 05 3a  | .6;..2.. ...<.:|
00001d80  0d 0a 46 0e dd 20 f2 63  6f 6d 70 69 6c 65 0d 0a  |..F.. .compile..|
00001d90  50 1c ea 20 68 74 61 62  2c 76 74 61 62 2c 70 61  |P.. htab,vtab,pa|
00001da0  67 65 2c 6c 69 6e 65 73  2c 67 0d 0a 5a 11 e7 20  |ge,lines,g..Z.. |
00001db0  4e 25 3d 30 20 41 25 3d  36 3a e1 0d 0a 64 2f 68  |N%=0 A%=6:...d/h|
00001dc0  74 61 62 3d 32 3a 6c 69  6e 65 73 3d 31 38 3a 70  |tab=2:lines=18:p|
00001dd0  61 67 65 3d 30 3a 73 74  61 72 74 3d 31 3a 66 69  |age=0:start=1:fi|
00001de0  6e 69 73 68 3d 6c 69 6e  65 73 0d 0a 6e 4d f2 68  |nish=lines..nM.h|
00001df0  65 61 64 69 6e 67 28 22  43 4f 4d 50 49 4c 45 20  |eading("COMPILE |
00001e00  53 48 4f 50 50 49 4e 47  20 4c 49 53 54 22 2c 22  |SHOPPING LIST","|
00001e10  43 75 72 73 6f 72 20 6b  65 79 73 20 74 6f 20 6d  |Cursor keys to m|
00001e20  6f 76 65 20 2d 20 53 50  41 43 45 20 74 6f 20 73  |ove - SPACE to s|
00001e30  65 6c 65 63 74 22 29 0d  0a 78 4e ef 32 36 3a f1  |elect")..xN.26:.|
00001e40  8a 30 2c 32 33 29 bd 31  33 31 c4 33 38 2c 22 5f  |.0,23).131.38,"_|
00001e50  22 29 3b 8a 37 2c 32 34  29 bd 31 33 31 22 52 45  |");.7,24).131"RE|
00001e60  54 55 52 4e 20 74 6f 20  65 6e 64 20 73 65 6c 65  |TURN to end sele|
00001e70  63 74 69 6f 6e 22 3b 3a  ef 32 38 2c 30 2c 32 32  |ction";:.28,0,22|
00001e80  2c 33 39 2c 34 0d 0a 82  2d ef 32 33 2c 31 2c 31  |,39,4...-.23,1,1|
00001e90  3b 30 3b 30 3b 30 3b 3a  f2 73 63 72 65 65 6e 28  |;0;0;0;:.screen(|
00001ea0  73 74 61 72 74 2c 66 69  6e 69 73 68 29 3a 49 25  |start,finish):I%|
00001eb0  3d 31 0d 0a 8c 05 f5 0d  0a 96 18 76 74 61 62 3d  |=1.........vtab=|
00001ec0  49 25 2d 28 70 61 67 65  2a 6c 69 6e 65 73 29 0d  |I%-(page*lines).|
00001ed0  0a a0 3e f1 8a 31 2c 30  29 bd 31 33 33 22 54 6f  |..>..1,0).133"To|
00001ee0  74 61 6c 20 49 74 65 6d  73 3d 22 3b 4e 25 3b 8a  |tal Items=";N%;.|
00001ef0  32 32 2c 30 29 22 43 75  72 72 65 6e 74 20 49 74  |22,0)"Current It|
00001f00  65 6d 3d 22 3b 49 25 3b  22 20 20 22 3b 0d 0a aa  |em=";I%;"  ";...|
00001f10  19 f1 8a 68 74 61 62 2c  76 74 61 62 29 3b 3a 2a  |...htab,vtab);:*|
00001f20  46 58 32 31 2c 30 0d 0a  b4 07 67 3d a5 0d 0a be  |FX21,0....g=....|
00001f30  56 e7 20 67 3d 33 32 20  e7 20 ac 20 6c 69 73 74  |V. g=32 . . list|
00001f40  25 28 49 25 29 20 f1 20  bd 38 bd 31 32 39 3b 3a  |%(I%) . .8.129;:|
00001f50  6c 69 73 74 25 28 49 25  29 3d b9 20 8b 20 e7 20  |list%(I%)=. . . |
00001f60  67 3d 33 32 20 e7 20 6c  69 73 74 25 28 49 25 29  |g=32 . list%(I%)|
00001f70  20 ef 38 2c 31 33 30 3a  6c 69 73 74 25 28 49 25  | .8,130:list%(I%|
00001f80  29 3d a3 0d 0a c8 19 e7  20 67 3d 31 34 33 20 e7  |)=...... g=143 .|
00001f90  20 49 25 3d 31 20 ef 37  3a fd 20 a3 0d 0a d2 46  | I%=1 .7:. ....F|
00001fa0  e7 20 67 3d 31 34 33 20  e7 20 70 61 67 65 3e 30  |. g=143 . page>0|
00001fb0  20 e7 20 49 25 3d 73 74  61 72 74 20 49 25 3d 49  | . I%=start I%=I|
00001fc0  25 2d 31 3a f2 64 65 63  3a f2 73 63 72 65 65 6e  |%-1:.dec:.screen|
00001fd0  28 73 74 61 72 74 2c 66  69 6e 69 73 68 29 3a fd  |(start,finish):.|
00001fe0  20 a3 0d 0a dc 13 e7 20  67 3d 31 34 33 20 49 25  | ...... g=143 I%|
00001ff0  3d 49 25 2d 31 0d 0a e6  1a e7 20 67 3d 31 34 32  |=I%-1..... g=142|
00002000  20 e7 20 49 25 3d 4e 25  20 ef 37 3a fd 20 a3 0d  | . I%=N% .7:. ..|
00002010  0a f0 3e e7 20 67 3d 31  34 32 20 e7 20 49 25 3d  |..>. g=142 . I%=|
00002020  66 69 6e 69 73 68 20 49  25 3d 49 25 2b 31 3a f2  |finish I%=I%+1:.|
00002030  69 6e 63 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |inc:.screen(star|
00002040  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 0d 0a fa  |t,finish):. ....|
00002050  13 e7 20 67 3d 31 34 32  20 49 25 3d 49 25 2b 31  |.. g=142 I%=I%+1|
00002060  0d 0b 04 16 fd 20 67 3d  31 33 3a 41 25 3d 33 3a  |..... g=13:A%=3:|
00002070  6c 69 73 74 3d a3 0d 0b  0e 13 e3 20 49 3d 31 20  |list=...... I=1 |
00002080  b8 20 6d 61 78 72 65 63  73 0d 0b 18 17 e7 20 6c  |. maxrecs..... l|
00002090  69 73 74 25 28 49 29 3d  b9 20 6c 69 73 74 3d b9  |ist%(I)=. list=.|
000020a0  0d 0b 22 07 ed 3a e1 0d  0b 2c 05 3a 0d 0b 36 18  |.."..:...,.:..6.|
000020b0  dd 20 f2 70 72 69 6e 74  6c 69 73 74 3a ea 20 49  |. .printlist:. I|
000020c0  25 2c 4a 25 0d 0b 40 11  e7 20 4e 25 3d 30 20 41  |%,J%..@.. N%=0 A|
000020d0  25 3d 36 3a e1 0d 0b 4a  13 e7 20 ac 20 6c 69 73  |%=6:...J.. . lis|
000020e0  74 20 41 25 3d 32 3a e1  0d 0b 54 43 f2 68 65 61  |t A%=2:...TC.hea|
000020f0  64 69 6e 67 28 22 50 52  49 4e 54 20 53 48 4f 50  |ding("PRINT SHOP|
00002100  50 49 4e 47 20 4c 49 53  54 22 2c 22 50 72 69 6e  |PING LIST","Prin|
00002110  74 20 6f 75 74 20 73 65  6c 65 63 74 65 64 20 69  |t out selected i|
00002120  74 65 6d 73 20 6f 6e 6c  79 22 29 0d 0b 5e 11 ef  |tems only")..^..|
00002130  32 38 2c 30 2c 32 34 2c  33 39 2c 34 0d 0b 68 45  |28,0,24,39,4..hE|
00002140  f1 8a 33 2c 38 29 bd 31  33 31 3b 3a e7 20 a4 79  |..3,8).131;:. .y|
00002150  6e 28 22 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  |n("Do you want t|
00002160  6f 20 70 72 69 6e 74 20  6c 69 73 74 3f 20 20 3c  |o print list?  <|
00002170  59 2f 4e 3e 22 29 3d 22  4e 22 20 41 25 3d 33 3a  |Y/N>")="N" A%=3:|
00002180  e1 0d 0b 72 11 f2 70 72  69 6e 74 65 72 63 68 65  |...r..printerche|
00002190  63 6b 0d 0b 7c 2b f1 8a  38 2c 31 30 29 bd 31 32  |ck..|+..8,10).12|
000021a0  39 bd 31 33 36 22 50 52  49 4e 54 49 4e 47 20 53  |9.136"PRINTING S|
000021b0  48 4f 50 50 49 4e 47 20  4c 49 53 54 22 0d 0b 86  |HOPPING LIST"...|
000021c0  25 ef 32 2c 32 31 2c 31  2c 32 37 2c 31 2c 38 32  |%.2,21,1,27,1,82|
000021d0  2c 31 2c 33 2c 31 2c 32  37 2c 31 2c 37 38 2c 31  |,1,3,1,27,1,78,1|
000021e0  2c 34 0d 0b 90 28 f1 22  20 53 68 6f 70 70 69 6e  |,4...(." Shoppin|
000021f0  67 20 4c 69 73 74 3a 20  22 66 6e 61 6d 65 24 3b  |g List: "fname$;|
00002200  89 34 3b 64 61 74 65 24  3a f1 0d 0b 9a 0f e3 20  |.4;date$:...... |
00002210  49 25 3d 31 20 b8 20 4e  25 0d 0b a4 32 e7 20 6c  |I%=1 . N%...2. l|
00002220  69 73 74 25 28 49 25 29  20 e3 20 4a 25 3d 31 20  |ist%(I%) . J%=1 |
00002230  b8 20 33 3a f1 20 41 24  28 4a 25 29 3b 4d 24 28  |. 3:. A$(J%);M$(|
00002240  49 25 2c 4a 25 29 3b 3a  ed 3a f1 0d 0b ae 05 ed  |I%,J%);:.:......|
00002250  0d 0b b8 1e ef 36 2c 31  2c 31 32 2c 31 2c 32 37  |.....6,1,12,1,27|
00002260  2c 31 2c 36 34 2c 33 3a  41 25 3d 35 3a e1 0d 0b  |,1,64,3:A%=5:...|
00002270  c2 05 3a 0d 0b cc 12 dd  20 f2 6d 65 73 73 61 67  |..:..... .messag|
00002280  65 28 61 24 29 0d 0b d6  2d f1 8a 30 2c 35 29 89  |e(a$)...-..0,5).|
00002290  34 30 bd 31 33 33 c4 33  38 2c 22 3d 22 29 89 31  |40.133.38,"=").1|
000022a0  36 31 bd 31 33 33 c4 33  38 2c 22 3d 22 29 89 34  |61.133.38,"=").4|
000022b0  30 3b 0d 0b e0 13 f1 8a  30 2c 38 29 bd 31 33 31  |0;......0,8).131|
000022c0  61 24 3b 3a e1 0d 0b ea  05 3a 0d 0b f4 7c dc 20  |a$;:.....:...|. |
000022d0  37 2c 45 6e 74 65 72 2f  45 64 69 74 20 49 74 65  |7,Enter/Edit Ite|
000022e0  6d 73 2c 43 6f 6d 70 69  6c 65 20 53 68 6f 70 70  |ms,Compile Shopp|
000022f0  69 6e 67 20 4c 69 73 74  2c 50 72 69 6e 74 20 53  |ing List,Print S|
00002300  68 6f 70 70 69 6e 67 20  4c 69 73 74 2c 50 72 69  |hopping List,Pri|
00002310  6e 74 20 4d 61 73 74 65  72 20 4c 69 73 74 2c 53  |nt Master List,S|
00002320  61 76 65 20 44 61 74 61  2c 43 68 61 6e 67 65 20  |ave Data,Change |
00002330  53 68 6f 70 20 46 69 6c  65 2c 51 75 69 74 20 50  |Shop File,Quit P|
00002340  72 6f 67 72 61 6d 0d ff                           |rogram..|
00002348