(� > <BasicSave$Dir>.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:�X%,Z%:*FX15
�%Z%=�(-4):�2,1,32,1,127,3:X%=�(20)
�=(�(-4)=Z%)
�:
�� �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 28 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...(. > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  53 68 6f 70 6c 69 73 74  |ve$Dir>.Shoplist|
00000020  20 50 72 6f 67 72 61 6d  0d 00 14 13 f4 20 42 79  | Program..... By|
00000030  20 45 72 69 63 20 45 6c  6c 69 73 0d 00 1e 18 f4  | Eric Ellis.....|
00000040  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000050  73 65 72 0d 00 28 20 eb  20 37 3a 6d 61 78 72 65  |ser..( . 7:maxre|
00000060  63 73 3d 32 38 38 3a 4e  25 3d 30 3a 66 69 6c 65  |cs=288:N%=0:file|
00000070  25 3d 37 0d 00 32 17 63  68 6e 67 3d a3 3a 71 75  |%=7..2.chng=.:qu|
00000080  69 74 3d a3 3a 63 61 74  3d a3 0d 00 3c 3a 6c 69  |it=.:cat=...<:li|
00000090  73 74 3d a3 3a 66 6e 61  6d 65 24 3d 22 22 3a e2  |st=.:fname$="":.|
000000a0  20 31 2c 31 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  | 1,1,0,0,0,0,0,0|
000000b0  2c 31 32 37 2c 2d 32 2c  2d 32 2c 2d 31 2c 31 32  |,127,-2,-2,-1,12|
000000c0  36 2c 39 30 0d 00 46 34  de 20 4d 24 28 6d 61 78  |6,90..F4. M$(max|
000000d0  72 65 63 73 2b 31 2c 33  29 2c 6c 69 73 74 25 28  |recs+1,3),list%(|
000000e0  6d 61 78 72 65 63 73 29  2c 62 6c 61 6e 6b 24 28  |maxrecs),blank$(|
000000f0  33 29 2c 41 24 28 33 29  0d 00 50 16 62 6c 61 6e  |3),A$(3)..P.blan|
00000100  6b 24 28 31 29 3d c4 32  30 2c 22 20 22 29 0d 00  |k$(1)=.20," ")..|
00000110  5a 14 62 6c 61 6e 6b 24  28 32 29 3d 22 30 2e 30  |Z.blank$(2)="0.0|
00000120  30 22 0d 00 64 1f 62 6c  61 6e 6b 24 28 33 29 3d  |0"..d.blank$(3)=|
00000130  c4 36 2c 22 20 22 29 3a  41 24 28 31 29 3d 22 20  |.6," "):A$(1)=" |
00000140  22 0d 00 6e 19 41 24 28  32 29 3d 22 20 23 22 3a  |"..n.A$(2)=" #":|
00000150  41 24 28 33 29 3d 22 20  20 22 0d 00 78 10 ee 20  |A$(3)="  "..x.. |
00000160  85 20 f2 65 72 72 6f 72  3a e0 0d 00 82 0a 2a 46  |. .error:.....*F|
00000170  58 34 2c 32 0d 00 8c 0e  2a 46 58 32 32 35 2c 31  |X4,2....*FX225,1|
00000180  32 38 0d 00 96 0e 2a 46  58 32 32 36 2c 31 34 34  |28....*FX226,144|
00000190  0d 00 a0 0b 2a 46 58 31  32 2c 33 0d 00 aa 0a f2  |....*FX12,3.....|
000001a0  76 61 6c 69 64 0d 00 b4  3a f2 68 65 61 64 69 6e  |valid...:.headin|
000001b0  67 28 22 53 48 4f 50 4c  49 53 54 20 50 52 4f 47  |g("SHOPLIST PROG|
000001c0  52 41 4d 22 2c 22 55 73  65 20 65 78 61 6d 70 6c  |RAM","Use exampl|
000001d0  65 20 64 61 74 65 20 66  6f 72 6d 61 74 22 29 0d  |e date format").|
000001e0  00 be 2c f1 8a 35 2c 32  29 bd 31 33 33 22 45 6e  |..,..5,2).133"En|
000001f0  74 65 72 20 64 61 74 65  20 3e 22 8a 32 34 2c 32  |ter date >".24,2|
00000200  29 22 3c 22 8a 31 38 2c  32 29 3b 0d 00 c8 2c 64  |)"<".18,2);...,d|
00000210  61 74 65 24 3d a4 65 64  69 74 28 22 30 31 20 4a  |ate$=.edit("01 J|
00000220  61 6e 22 2c 63 61 70 24  2b 6c 6f 77 24 2b 6e 75  |an",cap$+low$+nu|
00000230  6d 24 2b 22 20 22 29 0d  00 d2 3d f4 20 4d 61 73  |m$+" ")...=. Mas|
00000240  74 65 72 20 73 65 72 69  65 73 20 72 65 70 6c 61  |ter series repla|
00000250  63 65 20 6c 69 6e 65 20  77 69 74 68 20 22 64 61  |ce line with "da|
00000260  74 65 24 3d 4d 49 44 24  28 54 49 4d 45 24 2c 35  |te$=MID$(TIME$,5|
00000270  2c 36 29 22 0d 00 dc 14  f2 66 69 6c 65 3a ee 20  |,6)".....file:. |
00000280  85 20 f2 65 72 72 6f 72  0d 00 e6 0f f5 20 f5 20  |. .error..... . |
00000290  65 64 69 74 25 3d a3 0d  00 f0 14 f2 6d 65 6e 75  |edit%=......menu|
000002a0  28 41 25 29 3a fd 20 71  75 69 74 0d 00 fa 5d e7  |(A%):. quit...].|
000002b0  20 63 68 6e 67 20 41 25  3d 35 3a f2 6d 65 73 73  | chng A%=5:.mess|
000002c0  61 67 65 28 22 22 29 3a  f1 27 3b 3a e7 20 a4 79  |age(""):.';:. .y|
000002d0  6e 28 22 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  |n("Do you want t|
000002e0  6f 20 73 61 76 65 20 63  68 61 6e 67 65 64 20 64  |o save changed d|
000002f0  61 74 61 3f 20 20 3c 59  2f 4e 3e 22 29 3d 22 59  |ata?  <Y/N>")="Y|
00000300  22 20 71 75 69 74 3d a3  0d 01 04 11 fd 20 71 75  |" quit=...... qu|
00000310  69 74 3a db 3a f2 65 6e  64 0d 01 0e 05 e0 0d 01  |it:.:.end.......|
00000320  18 05 3a 0d 01 22 1b dd  20 f2 6c 6f 61 64 28 66  |..:..".. .load(f|
00000330  24 29 3a ea 20 49 25 2c  4a 25 2c 63 68 25 0d 01  |$):. I%,J%,ch%..|
00000340  2c 23 db 3a f1 8a 31 31  2c 35 29 bd 31 32 39 bd  |,#.:..11,5).129.|
00000350  31 33 36 22 4c 4f 41 44  49 4e 47 20 44 41 54 41  |136"LOADING DATA|
00000360  22 0d 01 36 12 63 68 25  3d ad 28 66 24 29 3a 49  |"..6.ch%=.(f$):I|
00000370  25 3d 30 0d 01 40 18 f5  20 49 25 3d 49 25 2b 31  |%=0..@.. I%=I%+1|
00000380  3a e3 20 4a 25 3d 31 20  b8 20 33 0d 01 4a 15 e8  |:. J%=1 . 3..J..|
00000390  23 63 68 25 2c 4d 24 28  49 25 2c 4a 25 29 3a ed  |#ch%,M$(I%,J%):.|
000003a0  0d 01 54 17 fd 20 4d 24  28 49 25 2c 31 29 3d c4  |..T.. M$(I%,1)=.|
000003b0  32 30 2c 22 20 22 29 0d  01 5e 24 d9 23 63 68 25  |20," ")..^$.#ch%|
000003c0  3a 4e 25 3d 49 25 2d 31  3a e7 20 4e 25 3d 30 20  |:N%=I%-1:. N%=0 |
000003d0  41 25 3d 31 20 8b 20 41  25 3d 32 0d 01 68 20 e3  |A%=1 . A%=2..h .|
000003e0  20 49 25 3d 31 20 b8 20  6d 61 78 72 65 63 73 3a  | I%=1 . maxrecs:|
000003f0  6c 69 73 74 25 28 49 25  29 3d 30 0d 01 72 0e ed  |list%(I%)=0..r..|
00000400  3a 6c 69 73 74 3d a3 3a  e1 0d 01 7c 05 3a 0d 01  |:list=.:...|.:..|
00000410  86 14 dd 20 f2 71 75 69  74 3a 71 75 69 74 3d b9  |... .quit:quit=.|
00000420  3a e1 0d 01 90 05 3a 0d  01 9a 0a dd 20 f2 65 6e  |:.....:..... .en|
00000430  64 0d 01 a4 16 ef 32 33  2c 31 2c 31 3b 30 3b 30  |d.....23,1,1;0;0|
00000440  3b 30 3b 3a ef 32 36 0d  01 ae 0a 2a 46 58 34 2c  |;0;:.26....*FX4,|
00000450  30 0d 01 b8 0c 2a 46 58  32 32 35 2c 31 0d 01 c2  |0....*FX225,1...|
00000460  0e 2a 46 58 32 32 36 2c  31 32 38 0d 01 cc 0b 2a  |.*FX226,128....*|
00000470  46 58 31 32 2c 38 0d 01  d6 05 e1 0d 01 e0 05 3a  |FX12,8.........:|
00000480  0d 01 ea 1f dd 20 f2 66  69 6c 65 3a 66 6e 61 6d  |..... .file:fnam|
00000490  65 24 3d a4 67 65 74 66  69 6c 65 6e 61 6d 65 0d  |e$=.getfilename.|
000004a0  01 f4 13 f2 6c 6f 61 64  28 66 6e 61 6d 65 24 29  |....load(fname$)|
000004b0  3a e1 0d 01 fe 05 3a 0d  02 08 1b dd 20 a4 67 65  |:.....:..... .ge|
000004c0  74 66 69 6c 65 6e 61 6d  65 3a ea 20 63 68 25 2c  |tfilename:. ch%,|
000004d0  66 24 0d 02 12 32 f5 20  f2 68 65 61 64 69 6e 67  |f$...2. .heading|
000004e0  28 22 53 45 4c 45 43 54  20 53 48 4f 50 22 2c 22  |("SELECT SHOP","|
000004f0  2a 43 41 54 20 66 6f 72  20 63 61 74 61 6c 6f 67  |*CAT for catalog|
00000500  75 65 22 29 0d 02 1c 38  f5 20 f1 8a 35 2c 32 29  |ue")...8. ..5,2)|
00000510  bd 31 33 34 22 45 6e 74  65 72 20 4c 69 73 74 6e  |.134"Enter Listn|
00000520  61 6d 65 20 3e 22 8a 32  32 2b 66 69 6c 65 25 2c  |ame >".22+file%,|
00000530  32 29 22 3c 22 8a 32 32  2c 32 29 3b 0d 02 26 2f  |2)"<".22,2);..&/|
00000540  66 24 3d a4 65 64 69 74  28 c4 66 69 6c 65 25 2c  |f$=.edit(.file%,|
00000550  22 20 22 29 2c 63 61 70  24 2b 6c 6f 77 24 2b 6e  |" "),cap$+low$+n|
00000560  75 6d 24 2b 22 5f 2f 2a  2e 22 29 0d 02 30 2d fd  |um$+"_/*.")..0-.|
00000570  20 66 24 3c 3e c4 66 69  6c 65 25 2c 22 20 22 29  | f$<>.file%," ")|
00000580  20 80 20 66 24 3c 3e 22  2a 22 2b c4 66 69 6c 65  | . f$<>"*"+.file|
00000590  25 2d 31 2c 22 20 22 29  0d 02 3a 2f e7 20 c0 66  |%-1," ")..:/. .f|
000005a0  24 2c 32 29 3d 22 2a 2e  22 20 84 20 c0 66 24 2c  |$,2)="*." . .f$,|
000005b0  34 29 3d 22 2a 43 41 54  22 20 63 61 74 3d b9 3a  |4)="*CAT" cat=.:|
000005c0  f1 27 3a 2a 43 41 54 0d  02 44 3d e7 20 63 61 74  |.':*CAT..D=. cat|
000005d0  20 f1 27 8a 35 29 bd 31  33 30 22 50 72 65 73 73  | .'.5).130"Press|
000005e0  20 53 50 41 43 45 20 74  6f 20 63 6f 6e 74 69 6e  | SPACE to contin|
000005f0  75 65 22 3a 63 61 74 3d  a3 3a f5 fd a5 3d 33 32  |ue":cat=.:...=32|
00000600  3a fd 20 a3 0d 02 4e 14  63 68 25 3d ad 28 66 24  |:. ...N.ch%=.(f$|
00000610  29 3a d9 23 20 63 68 25  0d 02 58 2c e7 20 63 68  |):.# ch%..X,. ch|
00000620  25 3d 30 20 ef 37 3a f1  8a 31 30 2c 34 29 bd 31  |%=0 .7:..10,4).1|
00000630  33 31 22 4e 6f 74 20 66  6f 75 6e 64 22 3a f1 3a  |31"Not found":.:|
00000640  2a 43 41 54 0d 02 62 50  e7 20 63 68 25 3d 30 20  |*CAT..bP. ch%=0 |
00000650  f1 27 bd 31 33 34 3b 3a  e7 20 a4 79 6e 28 22 44  |.'.134;:. .yn("D|
00000660  6f 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 73 74  |o you want to st|
00000670  61 72 74 20 61 20 6e 65  77 20 6c 69 73 74 3f 20  |art a new list? |
00000680  3c 59 2f 4e 3e 22 29 3d  22 59 22 20 f2 6e 65 77  |<Y/N>")="Y" .new|
00000690  66 69 6c 65 0d 02 6c 14  fd 20 63 68 25 3e 30 3a  |file..l.. ch%>0:|
000006a0  41 25 3d 31 3a 3d 66 24  0d 02 76 05 3a 0d 02 80  |A%=1:=f$..v.:...|
000006b0  0c dd 20 f2 76 61 6c 69  64 0d 02 8a 25 63 61 70  |.. .valid...%cap|
000006c0  24 3d 22 41 42 43 44 45  46 47 48 49 4a 4b 4c 4d  |$="ABCDEFGHIJKLM|
000006d0  4e 4f 50 51 52 53 54 55  56 57 58 59 5a 22 0d 02  |NOPQRSTUVWXYZ"..|
000006e0  94 25 6c 6f 77 24 3d 22  61 62 63 64 65 66 67 68  |.%low$="abcdefgh|
000006f0  69 6a 6b 6c 6d 6e 6f 70  71 72 73 74 75 76 77 78  |ijklmnopqrstuvwx|
00000700  79 7a 22 0d 02 9e 20 70  75 6e 24 3d 22 2c 2e 3b  |yz"... pun$=",.;|
00000710  3a 2a 2b 2f 3f 2d 3d 22  22 28 29 26 27 21 5e 5c  |:*+/?-=""()&'!^\|
00000720  60 20 22 0d 02 a8 17 6e  75 6d 24 3d 22 31 32 33  |` "....num$="123|
00000730  34 35 36 37 38 39 30 22  3a e1 0d 02 b2 05 3a 0d  |4567890":.....:.|
00000740  02 bc 16 dd 20 a4 65 64  69 74 28 61 24 2c 76 61  |.... .edit(a$,va|
00000750  6c 69 64 24 29 0d 02 c6  1a ea 6c 65 6e 2c 78 2c  |lid$).....len,x,|
00000760  79 2c 70 6f 73 2c 67 3a  78 3d b1 3a 79 3d bc 0d  |y,pos,g:x=.:y=..|
00000770  02 d0 1a ef 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |....23,1,1;0;0;0|
00000780  3b 3a 6c 65 6e 3d a9 61  24 0d 02 da 19 f5 20 e7  |;:len=.a$..... .|
00000790  20 70 6f 73 3d 6c 65 6e  20 70 6f 73 3d 70 6f 73  | pos=len pos=pos|
000007a0  2d 31 0d 02 e4 1c f1 8a  78 2c 79 29 61 24 8a 78  |-1......x,y)a$.x|
000007b0  2b 70 6f 73 2c 79 29 3b  3a 2a 46 58 32 31 0d 02  |+pos,y);:*FX21..|
000007c0  ee 16 67 3d a5 3a e7 20  67 3d 31 33 20 fd 20 b9  |..g=.:. g=13 . .|
000007d0  3a 3d 61 24 0d 02 f8 45  e7 20 67 3d 31 34 30 20  |:=a$...E. g=140 |
000007e0  80 20 70 6f 73 3d 30 20  84 20 67 3d 31 34 31 20  |. pos=0 . g=141 |
000007f0  80 20 70 6f 73 2b 31 3d  6c 65 6e 20 84 20 67 3d  |. pos+1=len . g=|
00000800  31 32 37 20 80 20 61 24  3d c4 6c 65 6e 2c 22 20  |127 . a$=.len," |
00000810  22 29 20 ef 37 3a fd 20  a3 0d 03 02 31 e7 20 67  |") .7:. ....1. g|
00000820  3d 31 34 30 20 70 6f 73  3d 70 6f 73 2d 31 3a fd  |=140 pos=pos-1:.|
00000830  20 a3 20 8b 20 e7 20 67  3d 31 34 31 20 70 6f 73  | . . . g=141 pos|
00000840  3d 70 6f 73 2b 31 3a fd  20 a3 0d 03 0c 7d e7 20  |=pos+1:. ....}. |
00000850  67 3d 31 32 37 20 80 20  c2 61 24 2c 6c 65 6e 2d  |g=127 . .a$,len-|
00000860  70 6f 73 29 3d c4 6c 65  6e 2d 70 6f 73 2c 22 20  |pos)=.len-pos," |
00000870  22 29 20 70 6f 73 3d 70  6f 73 2d 31 3a 61 24 3d  |") pos=pos-1:a$=|
00000880  c0 61 24 2c 70 6f 73 29  2b c4 6c 65 6e 2d 70 6f  |.a$,pos)+.len-po|
00000890  73 2c 22 20 22 29 3a fd  20 a3 20 8b 20 e7 20 67  |s," "):. . . . g|
000008a0  3d 31 32 37 20 61 24 3d  c0 61 24 2c 70 6f 73 29  |=127 a$=.a$,pos)|
000008b0  2b c2 61 24 2c 6c 65 6e  2d 70 6f 73 2d 31 29 2b  |+.a$,len-pos-1)+|
000008c0  22 20 22 3a fd 20 a3 0d  03 16 34 e7 20 67 3d 31  |" ":. ....4. g=1|
000008d0  33 39 20 61 24 3d c0 61  24 2c 70 6f 73 29 2b 22  |39 a$=.a$,pos)+"|
000008e0  20 22 2b c1 61 24 2c 70  6f 73 2b 31 2c 6c 65 6e  | "+.a$,pos+1,len|
000008f0  2d 70 6f 73 2d 31 29 3a  fd 20 a3 0d 03 20 61 e7  |-pos-1):. ... a.|
00000900  20 a7 76 61 6c 69 64 24  2c bd 67 29 3d 30 20 ef  | .valid$,.g)=0 .|
00000910  37 3a fd 20 a3 20 8b 20  61 24 3d c0 61 24 2c 70  |7:. . . a$=.a$,p|
00000920  6f 73 29 2b bd 67 2b c1  61 24 2c 70 6f 73 2b 32  |os)+.g+.a$,pos+2|
00000930  2c 6c 65 6e 2d 70 6f 73  2d 31 29 3a 70 6f 73 3d  |,len-pos-1):pos=|
00000940  70 6f 73 2b 31 3a e7 20  70 6f 73 3d 6c 65 6e 20  |pos+1:. pos=len |
00000950  d4 20 33 2c 31 2c 31 33  36 2c 31 36 0d 03 2a 07  |. 3,1,136,16..*.|
00000960  fd 20 a3 0d 03 34 05 3a  0d 03 3e 0c dd 20 f2 65  |. ...4.:..>.. .e|
00000970  72 72 6f 72 0d 03 48 0f  d9 23 30 3a ef 36 3a 41  |rror..H..#0:.6:A|
00000980  25 3d 37 0d 03 52 0c e7  20 9f 3d 31 37 20 e1 0d  |%=7..R.. .=17 ..|
00000990  03 5c 44 f2 6d 65 73 73  61 67 65 28 bd 31 31 29  |.\D.message(.11)|
000009a0  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
000009b0  9e 3a f1 3b 3a e7 20 a4  79 6e 28 22 43 6f 6e 74  |.:.;:. .yn("Cont|
000009c0  69 6e 75 65 3f 20 3c 59  2f 4e 3e 22 29 3d 22 59  |inue? <Y/N>")="Y|
000009d0  22 20 e1 0d 03 66 12 f2  71 75 69 74 3a f2 65 6e  |" ...f..quit:.en|
000009e0  64 3a db 3a e0 0d 03 70  05 3a 0d 03 7a 1a dd 20  |d:.:...p.:..z.. |
000009f0  a4 79 6e 28 6d 24 29 3a  ea 20 41 24 3a f1 6d 24  |.yn(m$):. A$:.m$|
00000a00  22 20 22 3b 0d 03 84 11  f5 20 41 24 3d bd 28 a5  |" ";..... A$=.(.|
00000a10  80 26 35 46 29 0d 03 8e  15 fd 20 a7 22 59 4e 22  |.&5F)..... ."YN"|
00000a20  2c 41 24 29 3e 30 3a 3d  41 24 0d 03 98 05 3a 0d  |,A$)>0:=A$....:.|
00000a30  03 a2 13 dd 20 f2 6d 65  6e 75 28 63 68 6f 69 63  |.... .menu(choic|
00000a40  65 29 0d 03 ac 08 ea 20  49 25 0d 03 b6 12 ef 32  |e)..... I%.....2|
00000a50  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 03 c0 47  |3,1,0;0;0;0;...G|
00000a60  f2 68 65 61 64 69 6e 67  28 22 4d 41 49 4e 20 4d  |.heading("MAIN M|
00000a70  45 4e 55 22 2c 22 43 55  52 53 4f 52 20 4b 45 59  |ENU","CURSOR KEY|
00000a80  53 20 74 6f 20 73 65 6c  65 63 74 20 74 68 65 6e  |S to select then|
00000a90  20 22 2b bd 31 33 34 2b  22 3c 52 45 54 55 52 4e  | "+.134+"<RETURN|
00000aa0  3e 22 29 0d 03 ca 0a f7  20 8d 64 74 4b 0d 03 d4  |>")..... .dtK...|
00000ab0  14 49 25 3d a4 6d 65 6e  75 28 63 68 6f 69 63 65  |.I%=.menu(choice|
00000ac0  29 0d 03 de 2d ee 20 49  25 20 e5 20 8d 64 68 43  |)...-. I% . .dhC|
00000ad0  2c 8d 64 72 43 2c 8d 64  7c 43 2c 8d 54 46 44 2c  |,.drC,.d|C,.TFD,|
00000ae0  8d 54 50 44 2c 8d 54 5a  44 2c 8d 54 64 44 0d 03  |.TPD,.TZD,.TdD..|
00000af0  e8 0b f2 65 64 69 74 3a  e1 0d 03 f2 0e f2 63 6f  |...edit:......co|
00000b00  6d 70 69 6c 65 3a e1 0d  03 fc 10 f2 70 72 69 6e  |mpile:......prin|
00000b10  74 6c 69 73 74 3a e1 0d  04 06 12 f2 70 72 69 6e  |tlist:......prin|
00000b20  74 6d 61 73 74 65 72 3a  e1 0d 04 10 0b f2 73 61  |tmaster:......sa|
00000b30  76 65 3a e1 0d 04 1a 0b  f2 66 69 6c 65 3a e1 0d  |ve:......file:..|
00000b40  04 24 0b f2 71 75 69 74  3a e1 0d 04 2e 05 3a 0d  |.$..quit:.....:.|
00000b50  04 38 0e dd 20 a4 6d 65  6e 75 28 49 29 0d 04 42  |.8.. .menu(I)..B|
00000b60  0e ea 20 4a 2c 56 2c 48  2c 41 24 0d 04 4c 15 56  |.. J,V,H,A$..L.V|
00000b70  3d 31 3a 48 3d 39 3a f3  20 6f 70 74 69 6f 6e 73  |=1:H=9:. options|
00000b80  0d 04 56 2b e3 20 4a 3d  31 20 b8 20 6f 70 74 69  |..V+. J=1 . opti|
00000b90  6f 6e 73 3a f3 20 41 24  3a f1 8a 48 2b 31 2c 56  |ons:. A$:..H+1,V|
00000ba0  2b 28 4a 2a 32 29 29 41  24 3a ed 0d 04 60 05 f5  |+(J*2))A$:...`..|
00000bb0  0d 04 6a 1c f1 8a 48 2c  56 2b 28 49 2a 32 29 29  |..j...H,V+(I*2))|
00000bc0  bd 31 32 39 3a 2a 46 58  32 31 2c 30 0d 04 74 07  |.129:*FX21,0..t.|
00000bd0  67 3d a5 0d 04 7e 15 e7  20 67 3d 31 33 20 fd 20  |g=...~.. g=13 . |
00000be0  b9 3a ef 32 36 3a 3d 49  0d 04 88 25 e7 20 67 3d  |.:.26:=I...%. g=|
00000bf0  31 34 32 20 84 20 67 3d  31 34 33 20 f1 8a 48 2c  |142 . g=143 ..H,|
00000c00  56 2b 28 49 2a 32 29 29  bd 31 33 35 3b 0d 04 92  |V+(I*2)).135;...|
00000c10  37 e7 20 67 3d 31 34 32  20 80 20 49 3c 6f 70 74  |7. g=142 . I<opt|
00000c20  69 6f 6e 73 20 49 3d 49  2b 31 20 8b 20 e7 20 67  |ions I=I+1 . . g|
00000c30  3d 31 34 32 20 80 20 49  3d 6f 70 74 69 6f 6e 73  |=142 . I=options|
00000c40  20 49 3d 31 0d 04 9c 31  e7 20 67 3d 31 34 33 20  | I=1...1. g=143 |
00000c50  80 20 49 3e 31 20 49 3d  49 2d 31 20 8b 20 e7 20  |. I>1 I=I-1 . . |
00000c60  67 3d 31 34 33 20 80 20  49 3d 31 20 49 3d 6f 70  |g=143 . I=1 I=op|
00000c70  74 69 6f 6e 73 0d 04 a6  07 fd 20 a3 0d 04 b0 05  |tions..... .....|
00000c80  3a 0d 04 ba 15 dd 20 f2  68 65 61 64 69 6e 67 28  |:..... .heading(|
00000c90  41 24 2c 42 24 29 0d 04  c4 10 ea 20 48 2c 48 31  |A$,B$)..... H,H1|
00000ca0  3a ef 32 36 3a db 0d 04  ce 14 48 3d 31 39 2d 28  |:.26:.....H=19-(|
00000cb0  a9 28 41 24 29 2b 31 29  81 32 0d 04 d8 15 48 31  |.(A$)+1).2....H1|
00000cc0  3d 31 39 2d 28 a9 28 42  24 29 2b 31 29 81 32 0d  |=19-(.(B$)+1).2.|
00000cd0  04 e2 25 f1 8a 48 2c 30  29 bd 31 33 34 41 24 8a  |..%..H,0).134A$.|
00000ce0  48 2c 31 29 bd 31 33 34  20 c4 a9 28 41 24 29 2c  |H,1).134 ..(A$),|
00000cf0  22 3d 22 29 0d 04 ec 24  f1 8a 48 31 2c 32 29 bd  |"=")...$..H1,2).|
00000d00  31 33 31 42 24 8a 30 2c  33 29 bd 31 33 31 20 c4  |131B$.0,3).131 .|
00000d10  33 38 2c 22 5f 22 29 3b  0d 04 f6 13 ef 32 38 2c  |38,"_");.....28,|
00000d20  30 2c 32 33 2c 33 39 2c  34 3a e1 0d 05 00 05 3a  |0,23,39,4:.....:|
00000d30  0d 05 0a 1b dd 20 f2 73  63 72 65 65 6e 28 73 74  |..... .screen(st|
00000d40  61 72 74 2c 66 69 6e 69  73 68 29 0d 05 14 12 ea  |art,finish).....|
00000d50  20 49 25 2c 4a 25 2c 65  6e 64 2c 41 24 0d 05 1e  | I%,J%,end,A$...|
00000d60  23 e7 20 66 69 6e 69 73  68 3e 4e 25 20 65 6e 64  |#. finish>N% end|
00000d70  3d 4e 25 20 8b 20 65 6e  64 3d 66 69 6e 69 73 68  |=N% . end=finish|
00000d80  0d 05 28 07 db 3a f1 0d  05 32 1f e3 20 49 25 3d  |..(..:...2.. I%=|
00000d90  73 74 61 72 74 20 b8 20  65 6e 64 3a e3 20 4a 25  |start . end:. J%|
00000da0  3d 31 20 b8 20 33 0d 05  3c 44 e7 20 28 4a 25 3d  |=1 . 3..<D. (J%=|
00000db0  31 20 80 20 6c 69 73 74  25 28 49 25 29 20 80 20  |1 . list%(I%) . |
00000dc0  ac 20 65 64 69 74 25 29  20 41 24 3d bd 31 32 39  |. edit%) A$=.129|
00000dd0  20 8b 20 e7 20 4a 25 3d  32 20 41 24 3d 22 20 60  | . . J%=2 A$=" `|
00000de0  22 20 8b 20 41 24 3d 22  20 22 0d 05 46 1c f1 bd  |" . A$=" "..F...|
00000df0  28 31 32 39 2b 4a 25 29  41 24 4d 24 28 49 25 2c  |(129+J%)A$M$(I%,|
00000e00  4a 25 29 3b 3a ed 0d 05  50 11 e7 20 49 25 3c 66  |J%);:...P.. I%<f|
00000e10  69 6e 69 73 68 20 f1 0d  05 5a 07 ed 3a e1 0d 05  |inish ...Z..:...|
00000e20  64 05 3a 0d 05 6e 0b dd  20 f2 65 64 69 74 0d 05  |d.:..n.. .edit..|
00000e30  78 1f ea 20 48 25 2c 68  74 61 62 2c 76 74 61 62  |x.. H%,htab,vtab|
00000e40  2c 67 2c 70 61 67 65 2c  6c 69 6e 65 73 0d 05 82  |,g,page,lines...|
00000e50  16 e7 20 66 6e 61 6d 65  24 3d 22 22 20 41 25 3d  |.. fname$="" A%=|
00000e60  36 3a e1 0d 05 8c 37 68  74 61 62 3d 32 3a 6c 69  |6:....7htab=2:li|
00000e70  6e 65 73 3d 31 38 3a 70  61 67 65 3d 30 3a 73 74  |nes=18:page=0:st|
00000e80  61 72 74 3d 31 3a 66 69  6e 69 73 68 3d 6c 69 6e  |art=1:finish=lin|
00000e90  65 73 3a 65 64 69 74 25  3d b9 0d 05 96 48 f2 68  |es:edit%=....H.h|
00000ea0  65 61 64 69 6e 67 28 22  45 4e 54 45 52 2f 45 44  |eading("ENTER/ED|
00000eb0  49 54 20 49 54 45 4d 53  22 2c 22 43 75 72 73 6f  |IT ITEMS","Curso|
00000ec0  72 20 6b 65 79 73 20 74  6f 20 6d 6f 76 65 20 2d  |r keys to move -|
00000ed0  20 53 50 41 43 45 20 74  6f 20 63 68 61 6e 67 65  | SPACE to change|
00000ee0  22 29 0d 05 a0 5c ef 32  36 3a f1 8a 30 2c 32 33  |")...\.26:..0,23|
00000ef0  29 bd 31 33 31 c4 33 38  2c 22 5f 22 29 8a 30 2c  |).131.38,"_").0,|
00000f00  32 34 29 bd 31 33 31 22  43 4f 50 59 3d 49 6e 73  |24).131"COPY=Ins|
00000f10  65 72 74 20 20 20 20 44  45 4c 45 54 45 3d 44 65  |ert    DELETE=De|
00000f20  6c 65 74 65 20 61 74 20  63 75 72 73 6f 72 22 3b  |lete at cursor";|
00000f30  3a ef 32 38 2c 30 2c 32  32 2c 33 39 2c 34 0d 05  |:.28,0,22,39,4..|
00000f40  aa 28 ef 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.(.23,1,1;0;0;0;|
00000f50  3a f2 73 63 72 65 65 6e  28 73 74 61 72 74 2c 66  |:.screen(start,f|
00000f60  69 6e 69 73 68 29 0d 05  b4 13 e7 20 4e 25 3d 30  |inish)..... N%=0|
00000f70  20 f2 6e 65 77 6c 69 6e  65 0d 05 be 0d 49 25 3d  | .newline....I%=|
00000f80  31 3a 48 25 3d 31 0d 05  c8 05 f5 0d 05 d2 20 e7  |1:H%=1........ .|
00000f90  20 4e 25 3d 6d 61 78 72  65 63 73 20 66 75 6c 6c  | N%=maxrecs full|
00000fa0  3d b9 20 8b 20 66 75 6c  6c 3d a3 0d 05 dc 29 e7  |=. . full=....).|
00000fb0  20 49 25 3c 3d 6c 69 6e  65 73 20 66 69 72 73 74  | I%<=lines first|
00000fc0  70 61 67 65 3d b9 20 8b  20 66 69 72 73 74 70 61  |page=. . firstpa|
00000fd0  67 65 3d a3 0d 05 e6 30  e7 20 4e 25 3c 3d 28 70  |ge=....0. N%<=(p|
00000fe0  61 67 65 2b 31 29 2a 6c  69 6e 65 73 20 6c 61 73  |age+1)*lines las|
00000ff0  74 70 61 67 65 3d b9 20  8b 20 6c 61 73 74 70 61  |tpage=. . lastpa|
00001000  67 65 3d a3 0d 05 f0 18  76 74 61 62 3d 49 25 2d  |ge=.....vtab=I%-|
00001010  28 70 61 67 65 2a 6c 69  6e 65 73 29 0d 05 fa 3e  |(page*lines)...>|
00001020  f1 8a 31 2c 30 29 bd 31  33 33 22 54 6f 74 61 6c  |..1,0).133"Total|
00001030  20 49 74 65 6d 73 3d 22  3b 4e 25 3b 8a 32 32 2c  | Items=";N%;.22,|
00001040  30 29 22 43 75 72 72 65  6e 74 20 49 74 65 6d 3d  |0)"Current Item=|
00001050  22 3b 49 25 3b 22 20 20  22 3b 0d 06 04 22 74 65  |";I%;"  ";..."te|
00001060  6d 70 24 3d 22 22 3a f1  8a 68 74 61 62 2c 76 74  |mp$="":..htab,vt|
00001070  61 62 29 3b 3a 2a 46 58  32 31 2c 30 0d 06 0e 07  |ab);:*FX21,0....|
00001080  67 3d a5 0d 06 18 9a e7  20 67 3d 33 32 20 80 20  |g=...... g=32 . |
00001090  4e 25 3c 31 20 ef 37 3a  fd 20 a3 20 8b 20 e7 20  |N%<1 .7:. . . . |
000010a0  67 3d 33 32 20 80 20 48  25 3d 31 20 f1 20 bd 38  |g=32 . H%=1 . .8|
000010b0  bd 31 33 34 3b 3a 74 65  6d 70 24 3d a4 65 64 69  |.134;:temp$=.edi|
000010c0  74 28 4d 24 28 49 25 2c  48 25 29 2c 63 61 70 24  |t(M$(I%,H%),cap$|
000010d0  2b 6c 6f 77 24 2b 6e 75  6d 24 2b 70 75 6e 24 29  |+low$+num$+pun$)|
000010e0  20 8b 20 e7 20 67 3d 33  32 20 80 20 48 25 3d 32  | . . g=32 . H%=2|
000010f0  20 f1 20 bd 38 bd 31 33  34 22 60 22 3b 3a 74 65  | . .8.134"`";:te|
00001100  6d 70 24 3d a4 65 64 69  74 28 4d 24 28 49 25 2c  |mp$=.edit(M$(I%,|
00001110  48 25 29 2c 6e 75 6d 24  2b 22 2e 22 29 0d 06 22  |H%),num$+".").."|
00001120  92 e7 20 67 3d 33 32 20  80 20 74 65 6d 70 24 3c  |.. g=32 . temp$<|
00001130  3e 4d 24 28 49 25 2c 48  25 29 20 80 20 74 65 6d  |>M$(I%,H%) . tem|
00001140  70 24 3c 3e c4 32 30 2c  22 20 22 29 20 4d 24 28  |p$<>.20," ") M$(|
00001150  49 25 2c 48 25 29 3d 74  65 6d 70 24 3a 4d 24 28  |I%,H%)=temp$:M$(|
00001160  49 25 2c 33 29 3d 64 61  74 65 24 3a 63 68 6e 67  |I%,3)=date$:chng|
00001170  3d b9 3a f2 73 63 72 65  65 6e 28 73 74 61 72 74  |=.:.screen(start|
00001180  2c 66 69 6e 69 73 68 29  3a fd 20 a3 20 8b 20 e7  |,finish):. . . .|
00001190  20 67 3d 33 32 20 f2 73  63 72 65 65 6e 28 73 74  | g=32 .screen(st|
000011a0  61 72 74 2c 66 69 6e 69  73 68 29 3a fd 20 a3 0d  |art,finish):. ..|
000011b0  06 2c 32 e7 28 67 3d 31  34 33 20 80 20 49 25 3d  |.,2.(g=143 . I%=|
000011c0  31 29 20 84 20 28 67 3d  31 35 39 20 80 20 66 69  |1) . (g=159 . fi|
000011d0  72 73 74 70 61 67 65 3d  b9 29 20 ef 37 3a fd 20  |rstpage=.) .7:. |
000011e0  a3 0d 06 36 7e e7 28 67  3d 31 34 33 20 80 20 49  |...6~.(g=143 . I|
000011f0  25 3d 73 74 61 72 74 29  20 84 20 67 3d 31 35 39  |%=start) . g=159|
00001200  20 f2 64 65 63 3a e7 20  67 3d 31 34 33 20 49 25  | .dec:. g=143 I%|
00001210  3d 49 25 2d 31 3a f2 73  63 72 65 65 6e 28 73 74  |=I%-1:.screen(st|
00001220  61 72 74 2c 66 69 6e 69  73 68 29 3a fd 20 a3 20  |art,finish):. . |
00001230  8b 20 e7 20 67 3d 31 35  39 20 49 25 3d 49 25 2d  |. . g=159 I%=I%-|
00001240  6c 69 6e 65 73 3a f2 73  63 72 65 65 6e 28 73 74  |lines:.screen(st|
00001250  61 72 74 2c 66 69 6e 69  73 68 29 3a fd 20 a3 0d  |art,finish):. ..|
00001260  06 40 13 e7 20 67 3d 31  34 33 20 49 25 3d 49 25  |.@.. g=143 I%=I%|
00001270  2d 31 0d 06 4a 35 e7 28  67 3d 31 35 38 20 80 20  |-1..J5.(g=158 . |
00001280  6c 61 73 74 70 61 67 65  29 20 84 20 28 67 3d 31  |lastpage) . (g=1|
00001290  34 32 20 80 20 49 25 3d  6d 61 78 72 65 63 73 29  |42 . I%=maxrecs)|
000012a0  20 ef 37 3a fd 20 a3 0d  06 54 3e e7 20 67 3d 31  | .7:. ...T>. g=1|
000012b0  35 38 20 80 20 49 25 3e  4e 25 2d 6c 69 6e 65 73  |58 . I%>N%-lines|
000012c0  20 49 25 3d 4e 25 3a f2  69 6e 63 3a f2 73 63 72  | I%=N%:.inc:.scr|
000012d0  65 65 6e 28 73 74 61 72  74 2c 66 69 6e 69 73 68  |een(start,finish|
000012e0  29 3a fd 20 a3 0d 06 5e  98 e7 28 67 3d 31 34 32  |):. ...^..(g=142|
000012f0  20 80 20 49 25 3d 4e 25  20 80 20 49 25 3d 66 69  | . I%=N% . I%=fi|
00001300  6e 69 73 68 20 80 20 ac  20 66 75 6c 6c 29 84 20  |nish . . full). |
00001310  67 3d 31 35 38 20 f2 69  6e 63 3a e7 20 67 3d 31  |g=158 .inc:. g=1|
00001320  34 32 20 49 25 3d 49 25  2b 31 3a f2 6e 65 77 6c  |42 I%=I%+1:.newl|
00001330  69 6e 65 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |ine:.screen(star|
00001340  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 20 8b 20  |t,finish):. . . |
00001350  e7 20 67 3d 31 35 38 20  49 25 3d 49 25 2b 6c 69  |. g=158 I%=I%+li|
00001360  6e 65 73 3a f2 73 63 72  65 65 6e 28 73 74 61 72  |nes:.screen(star|
00001370  74 2c 66 69 6e 69 73 68  29 3a fd 20 a3 0d 06 68  |t,finish):. ...h|
00001380  31 e7 20 67 3d 31 34 32  20 80 20 49 25 3d 4e 25  |1. g=142 . I%=N%|
00001390  20 80 20 ac 20 66 75 6c  6c 20 49 25 3d 49 25 2b  | . . full I%=I%+|
000013a0  31 3a f2 6e 65 77 6c 69  6e 65 3a fd 20 a3 0d 06  |1:.newline:. ...|
000013b0  72 47 e7 20 67 3d 31 34  32 20 80 20 49 25 3d 66  |rG. g=142 . I%=f|
000013c0  69 6e 69 73 68 20 80 20  ac 20 66 75 6c 6c 20 49  |inish . . full I|
000013d0  25 3d 49 25 2b 31 3a f2  69 6e 63 3a f2 73 63 72  |%=I%+1:.inc:.scr|
000013e0  65 65 6e 28 73 74 61 72  74 2c 66 69 6e 69 73 68  |een(start,finish|
000013f0  29 3a fd 20 a3 0d 06 7c  13 e7 20 67 3d 31 34 32  |):. ...|.. g=142|
00001400  20 49 25 3d 49 25 2b 31  0d 06 86 19 e7 20 67 3d  | I%=I%+1..... g=|
00001410  31 34 30 20 80 20 48 25  3d 31 20 ef 37 3a fd 20  |140 . H%=1 .7:. |
00001420  a3 0d 06 90 17 e7 20 67  3d 31 34 30 20 48 25 3d  |...... g=140 H%=|
00001430  31 3a 68 74 61 62 3d 32  0d 06 9a 19 e7 20 67 3d  |1:htab=2..... g=|
00001440  31 34 31 20 80 20 48 25  3d 32 20 ef 37 3a fd 20  |141 . H%=2 .7:. |
00001450  a3 0d 06 a4 18 e7 20 67  3d 31 34 31 20 48 25 3d  |...... g=141 H%=|
00001460  32 3a 68 74 61 62 3d 32  34 0d 06 ae 32 e7 20 28  |2:htab=24...2. (|
00001470  67 3d 31 33 39 20 80 20  4e 25 3d 6d 61 78 72 65  |g=139 . N%=maxre|
00001480  63 73 29 20 84 20 28 67  3d 31 33 39 20 80 20 49  |cs) . (g=139 . I|
00001490  25 3c 31 29 20 ef 37 3a  fd 20 a3 0d 06 b8 13 e7  |%<1) .7:. ......|
000014a0  20 67 3d 31 33 39 20 f2  69 6e 73 65 72 74 0d 06  | g=139 .insert..|
000014b0  c2 46 e7 20 67 3d 31 32  37 20 80 20 49 25 3d 73  |.F. g=127 . I%=s|
000014c0  74 61 72 74 20 80 20 49  25 3e 6c 69 6e 65 73 20  |tart . I%>lines |
000014d0  80 20 49 25 3d 4e 25 20  f2 64 65 63 20 8b 20 e7  |. I%=N% .dec . .|
000014e0  20 67 3d 31 32 37 20 80  20 49 25 3c 31 20 ef 37  | g=127 . I%<1 .7|
000014f0  3a fd 20 a3 0d 06 cc 17  e7 20 67 3d 31 32 37 20  |:. ...... g=127 |
00001500  f2 64 65 6c 65 74 65 3a  fd 20 a3 0d 06 d6 1d fd  |.delete:. ......|
00001510  20 67 3d 31 33 3a e7 20  63 68 6e 67 20 41 25 3d  | g=13:. chng A%=|
00001520  35 20 8b 20 41 25 3d 37  0d 06 e0 05 e1 0d 06 ea  |5 . A%=7........|
00001530  05 3a 0d 06 f4 1c dd 20  f2 69 6e 63 3a 73 74 61  |.:..... .inc:sta|
00001540  72 74 3d 73 74 61 72 74  2b 6c 69 6e 65 73 0d 06  |rt=start+lines..|
00001550  fe 23 70 61 67 65 3d 70  61 67 65 2b 31 3a 66 69  |.#page=page+1:fi|
00001560  6e 69 73 68 3d 66 69 6e  69 73 68 2b 6c 69 6e 65  |nish=finish+line|
00001570  73 0d 07 08 05 e1 0d 07  12 05 3a 0d 07 1c 1c dd  |s.........:.....|
00001580  20 f2 64 65 63 3a 73 74  61 72 74 3d 73 74 61 72  | .dec:start=star|
00001590  74 2d 6c 69 6e 65 73 0d  07 26 23 70 61 67 65 3d  |t-lines..&#page=|
000015a0  70 61 67 65 2d 31 3a 66  69 6e 69 73 68 3d 66 69  |page-1:finish=fi|
000015b0  6e 69 73 68 2d 6c 69 6e  65 73 0d 07 30 05 e1 0d  |nish-lines..0...|
000015c0  07 3a 05 3a 0d 07 44 0d  dd 20 f2 69 6e 73 65 72  |.:.:..D.. .inser|
000015d0  74 0d 07 4e 2f ea 20 49  2c 4a 3a f2 6d 65 73 73  |t..N/. I,J:.mess|
000015e0  61 67 65 28 22 4d 41 4b  49 4e 47 20 52 4f 4f 4d  |age("MAKING ROOM|
000015f0  20 2d 20 50 4c 45 41 53  45 20 57 41 49 54 22 29  | - PLEASE WAIT")|
00001600  0d 07 58 17 e3 20 49 3d  4e 25 2b 31 20 b8 20 49  |..X.. I=N%+1 . I|
00001610  25 2b 31 20 88 2d 31 0d  07 62 21 e3 20 4a 3d 31  |%+1 .-1..b!. J=1|
00001620  20 b8 20 33 3a 4d 24 28  49 2c 4a 29 3d 4d 24 28  | . 3:M$(I,J)=M$(|
00001630  49 2d 31 2c 4a 29 3a ed  0d 07 6c 1e e7 20 6c 69  |I-1,J):...l.. li|
00001640  73 74 20 6c 69 73 74 25  28 49 29 3d 6c 69 73 74  |st list%(I)=list|
00001650  25 28 49 2d 31 29 0d 07  76 18 ed 3a e7 20 6c 69  |%(I-1)..v..:. li|
00001660  73 74 20 6c 69 73 74 25  28 49 25 29 3d b9 0d 07  |st list%(I%)=...|
00001670  80 0e f2 6e 65 77 6c 69  6e 65 3a e1 0d 07 8a 05  |...newline:.....|
00001680  3a 0d 07 94 19 dd 20 f2  6e 65 77 6c 69 6e 65 3a  |:..... .newline:|
00001690  f2 6e 65 77 72 65 63 6f  72 64 0d 07 9e 21 4e 25  |.newrecord...!N%|
000016a0  3d 4e 25 2b 31 3a f2 73  63 72 65 65 6e 28 73 74  |=N%+1:.screen(st|
000016b0  61 72 74 2c 66 69 6e 69  73 68 29 0d 07 a8 05 e1  |art,finish).....|
000016c0  0d 07 b2 05 3a 0d 07 bc  10 dd 20 f2 6e 65 77 72  |....:..... .newr|
000016d0  65 63 6f 72 64 0d 07 c6  8d f1 8a 30 2c 35 29 89  |ecord......0,5).|
000016e0  34 30 bd 31 33 33 3b c4  33 38 2c 22 3d 22 29 3b  |40.133;.38,"=");|
000016f0  89 31 36 31 bd 31 33 33  3b c4 33 38 2c 22 3d 22  |.161.133;.38,"="|
00001700  29 89 34 31 3b 8a 34 2c  38 29 bd 31 33 34 22 45  |).41;.4,8).134"E|
00001710  6e 74 65 72 20 49 74 65  6d 20 20 22 3b 3a f5 3a  |nter Item  ";:.:|
00001720  4d 24 28 49 25 2c 31 29  3d a4 65 64 69 74 28 62  |M$(I%,1)=.edit(b|
00001730  6c 61 6e 6b 24 28 31 29  2c 63 61 70 24 2b 6c 6f  |lank$(1),cap$+lo|
00001740  77 24 2b 70 75 6e 24 2b  6e 75 6d 24 29 3a fd 20  |w$+pun$+num$):. |
00001750  4d 24 28 49 25 2c 31 29  3c 3e c4 32 30 2c 22 20  |M$(I%,1)<>.20," |
00001760  22 29 0d 07 d0 41 f1 8a  34 2c 39 29 bd 31 33 34  |")...A..4,9).134|
00001770  22 45 6e 74 65 72 20 50  72 69 63 65 20 60 22 3b  |"Enter Price `";|
00001780  3a 4d 24 28 49 25 2c 32  29 3d a4 65 64 69 74 28  |:M$(I%,2)=.edit(|
00001790  62 6c 61 6e 6b 24 28 32  29 2c 6e 75 6d 24 2b 22  |blank$(2),num$+"|
000017a0  2e 22 29 0d 07 da 2c 4d  24 28 49 25 2c 33 29 3d  |.")...,M$(I%,3)=|
000017b0  64 61 74 65 24 3a 63 68  6e 67 3d b9 3a e7 20 6c  |date$:chng=.:. l|
000017c0  69 73 74 20 6c 69 73 74  25 28 49 25 29 3d b9 0d  |ist list%(I%)=..|
000017d0  07 e4 05 e1 0d 07 ee 05  3a 0d 07 f8 13 dd 20 f2  |........:..... .|
000017e0  64 65 6c 65 74 65 3a ea  20 49 2c 4a 0d 08 02 30  |delete:. I,J...0|
000017f0  e7 20 49 25 3d 4e 25 20  e5 20 8d 54 74 48 20 8b  |. I%=N% . .TtH .|
00001800  20 f2 6d 65 73 73 61 67  65 28 22 44 45 4c 45 54  | .message("DELET|
00001810  49 4e 47 20 52 45 43 4f  52 44 22 29 0d 08 0c 11  |ING RECORD")....|
00001820  e3 20 49 3d 49 25 20 b8  20 4e 25 2d 31 0d 08 16  |. I=I% . N%-1...|
00001830  21 e3 20 4a 3d 31 20 b8  20 33 3a 4d 24 28 49 2c  |!. J=1 . 3:M$(I,|
00001840  4a 29 3d 4d 24 28 49 2b  31 2c 4a 29 3a ed 0d 08  |J)=M$(I+1,J):...|
00001850  20 1e e7 20 6c 69 73 74  20 6c 69 73 74 25 28 49  | .. list list%(I|
00001860  29 3d 6c 69 73 74 25 28  49 2b 31 29 0d 08 2a 11  |)=list%(I+1)..*.|
00001870  ed 3a 6c 69 73 74 25 28  4e 25 29 3d a3 0d 08 34  |.:list%(N%)=...4|
00001880  22 e3 20 4a 3d 31 20 b8  20 33 3a 4d 24 28 4e 25  |". J=1 . 3:M$(N%|
00001890  2c 4a 29 3d 62 6c 61 6e  6b 24 28 4a 29 3a ed 0d  |,J)=blank$(J):..|
000018a0  08 3e 0b 4e 25 3d 4e 25  2d 31 0d 08 48 11 e7 20  |.>.N%=N%-1..H.. |
000018b0  49 25 3e 4e 25 20 49 25  3d 4e 25 0d 08 52 20 63  |I%>N% I%=N%..R c|
000018c0  68 6e 67 3d b9 3a f2 73  63 72 65 65 6e 28 73 74  |hng=.:.screen(st|
000018d0  61 72 74 2c 66 69 6e 69  73 68 29 0d 08 5c 05 e1  |art,finish)..\..|
000018e0  0d 08 66 05 3a 0d 08 70  12 dd f2 70 72 69 6e 74  |..f.:..p...print|
000018f0  65 72 63 68 65 63 6b 0d  08 7a 14 e7 20 a4 70 72  |ercheck..z.. .pr|
00001900  69 6e 74 65 72 74 65 73  74 20 e1 0d 08 84 0b f5  |intertest ......|
00001910  3a 2a 46 58 31 35 0d 08  8e 32 f1 8a 35 2c 31 30  |:*FX15...2..5,10|
00001920  29 bd 31 33 31 bd 31 35  37 bd 31 32 39 22 50 52  |).131.157.129"PR|
00001930  49 4e 54 45 52 20 4e 4f  54 20 4f 4e 20 4c 49 4e  |INTER NOT ON LIN|
00001940  45 20 20 22 bd 31 35 36  0d 08 98 0f ef 37 3a 58  |E  ".156.....7:X|
00001950  3d a6 28 33 30 30 29 0d  08 a2 16 fd 20 a4 70 72  |=.(300)..... .pr|
00001960  69 6e 74 65 72 74 65 73  74 3a db 3a e1 0d 08 ac  |intertest:.:....|
00001970  05 3a 0d 08 b6 1f dd 20  a4 70 72 69 6e 74 65 72  |.:..... .printer|
00001980  74 65 73 74 3a ea 58 25  2c 5a 25 3a 2a 46 58 31  |test:.X%,Z%:*FX1|
00001990  35 0d 08 c0 25 5a 25 3d  96 28 2d 34 29 3a ef 32  |5...%Z%=.(-4):.2|
000019a0  2c 31 2c 33 32 2c 31 2c  31 32 37 2c 33 3a 58 25  |,1,32,1,127,3:X%|
000019b0  3d a6 28 32 30 29 0d 08  ca 0f 3d 28 96 28 2d 34  |=.(20)....=(.(-4|
000019c0  29 3d 5a 25 29 0d 08 d4  05 3a 0d 08 de 13 dd 20  |)=Z%)....:..... |
000019d0  f2 73 61 76 65 3a ea 20  49 25 2c 4a 25 0d 08 e8  |.save:. I%,J%...|
000019e0  11 e7 20 4e 25 3d 30 20  41 25 3d 36 3a e1 0d 08  |.. N%=0 A%=6:...|
000019f0  f2 7a e7 20 ac 20 63 68  6e 67 20 f2 6d 65 73 73  |.z. . chng .mess|
00001a00  61 67 65 28 22 4e 6f 20  6e 65 65 64 20 74 6f 20  |age("No need to |
00001a10  73 61 76 65 2e 20 44 61  74 61 20 6e 6f 74 20 63  |save. Data not c|
00001a20  68 61 6e 67 65 64 2e 22  29 3a f1 27 bd 31 33 31  |hanged."):.'.131|
00001a30  3b 3a e7 20 a4 79 6e 28  22 73 69 6e 63 65 20 6c  |;:. .yn("since l|
00001a40  61 73 74 20 73 61 76 65  2e 20 41 62 6f 72 74 20  |ast save. Abort |
00001a50  73 61 76 65 3f 20 3c 59  2f 4e 3e 22 29 3d 22 59  |save? <Y/N>")="Y|
00001a60  22 20 41 25 3d 37 3a e1  0d 08 fc 23 db 3a f1 8a  |" A%=7:....#.:..|
00001a70  31 32 2c 31 33 29 bd 31  32 39 bd 31 33 36 22 53  |12,13).129.136"S|
00001a80  41 56 49 4e 47 20 44 41  54 41 22 0d 09 06 11 63  |AVING DATA"....c|
00001a90  68 25 3d ad 28 66 6e 61  6d 65 24 29 0d 09 10 0f  |h%=.(fname$)....|
00001aa0  e3 20 49 25 3d 31 20 b8  20 4e 25 0d 09 1a 20 e3  |. I%=1 . N%... .|
00001ab0  20 4a 25 3d 31 20 b8 20  33 3a f1 23 63 68 25 2c  | J%=1 . 3:.#ch%,|
00001ac0  4d 24 28 49 25 2c 4a 25  29 3a ed 0d 09 24 05 ed  |M$(I%,J%):...$..|
00001ad0  0d 09 2e 21 e3 20 4a 25  3d 31 20 b8 20 33 3a f1  |...!. J%=1 . 3:.|
00001ae0  23 63 68 25 2c 62 6c 61  6e 6b 24 28 4a 25 29 3a  |#ch%,blank$(J%):|
00001af0  ed 0d 09 38 15 d9 23 63  68 25 3a 63 68 6e 67 3d  |...8..#ch%:chng=|
00001b00  a3 3a 41 25 3d 37 0d 09  42 05 e1 0d 09 4c 05 3a  |.:A%=7..B....L.:|
00001b10  0d 09 56 16 dd 20 f2 6e  65 77 66 69 6c 65 3a ea  |..V.. .newfile:.|
00001b20  20 49 25 2c 4a 25 0d 09  60 30 db 3a f1 8a 34 2c  | I%,J%..`0.:..4,|
00001b30  31 30 29 bd 31 32 39 bd  31 33 36 22 50 4c 45 41  |10).129.136"PLEA|
00001b40  53 45 20 57 41 49 54 20  2d 20 43 52 45 41 54 49  |SE WAIT - CREATI|
00001b50  4e 47 20 22 66 24 0d 09  6a 0d 63 68 25 3d ae 28  |NG "f$..j.ch%=.(|
00001b60  66 24 29 0d 09 74 16 e3  20 49 25 3d 31 20 b8 20  |f$)..t.. I%=1 . |
00001b70  6d 61 78 72 65 63 73 2b  31 0d 09 7e 21 e3 20 4a  |maxrecs+1..~!. J|
00001b80  25 3d 31 20 b8 20 33 3a  f1 23 63 68 25 2c 62 6c  |%=1 . 3:.#ch%,bl|
00001b90  61 6e 6b 24 28 4a 25 29  3a ed 0d 09 88 0d ed 3a  |ank$(J%):......:|
00001ba0  d9 23 63 68 25 3a e1 0d  09 92 05 3a 0d 09 9c 12  |.#ch%:.....:....|
00001bb0  dd 20 f2 70 72 69 6e 74  6d 61 73 74 65 72 0d 09  |. .printmaster..|
00001bc0  a6 13 ea 20 49 25 2c 4a  25 2c 63 6f 6c 75 6d 6e  |... I%,J%,column|
00001bd0  25 0d 09 b0 11 e7 20 4e  25 3d 30 20 41 25 3d 36  |%..... N%=0 A%=6|
00001be0  3a e1 0d 09 ba 0d 63 6f  6c 75 6d 6e 25 3d 34 0d  |:.....column%=4.|
00001bf0  09 c4 47 f2 68 65 61 64  69 6e 67 28 22 50 52 49  |..G.heading("PRI|
00001c00  4e 54 20 4d 41 53 54 45  52 20 4c 49 53 54 22 2c  |NT MASTER LIST",|
00001c10  22 50 72 69 6e 74 73 20  66 75 6c 6c 20 6c 69 73  |"Prints full lis|
00001c20  74 20 6f 66 20 61 76 61  69 6c 61 62 6c 65 20 69  |t of available i|
00001c30  74 65 6d 73 22 29 0d 09  ce 11 ef 32 38 2c 30 2c  |tems").....28,0,|
00001c40  32 34 2c 33 39 2c 34 0d  09 d8 45 f1 8a 33 2c 38  |24,39,4...E..3,8|
00001c50  29 bd 31 33 31 3b 3a e7  20 a4 79 6e 28 22 44 6f  |).131;:. .yn("Do|
00001c60  20 79 6f 75 20 77 61 6e  74 20 74 6f 20 70 72 69  | you want to pri|
00001c70  6e 74 20 6c 69 73 74 3f  20 20 3c 59 2f 4e 3e 22  |nt list?  <Y/N>"|
00001c80  29 3d 22 4e 22 20 41 25  3d 34 3a e1 0d 09 e2 11  |)="N" A%=4:.....|
00001c90  f2 70 72 69 6e 74 65 72  63 68 65 63 6b 0d 09 ec  |.printercheck...|
00001ca0  29 f1 8a 38 2c 31 30 29  bd 31 32 39 bd 31 33 36  |)..8,10).129.136|
00001cb0  22 50 52 49 4e 54 49 4e  47 20 4d 41 53 54 45 52  |"PRINTING MASTER|
00001cc0  20 4c 49 53 54 22 0d 09  f6 2a ef 32 2c 32 31 2c  | LIST"...*.2,21,|
00001cd0  31 2c 32 37 2c 31 2c 38  32 2c 31 2c 33 2c 31 2c  |1,27,1,82,1,3,1,|
00001ce0  32 37 2c 31 2c 37 38 2c  31 2c 34 2c 31 2c 31 35  |27,1,78,1,4,1,15|
00001cf0  0d 0a 00 2c f1 22 20 4d  61 73 74 65 72 20 4c 69  |...,." Master Li|
00001d00  73 74 3a 20 22 66 6e 61  6d 65 24 3b 89 31 30 3b  |st: "fname$;.10;|
00001d10  4e 25 22 20 69 74 65 6d  73 22 3a f1 0d 0a 0a 12  |N%" items":.....|
00001d20  49 25 3d 30 3a f5 20 49  25 3d 49 25 2b 31 0d 0a  |I%=0:. I%=I%+1..|
00001d30  14 2a e7 20 49 25 3e 4e  25 20 fd 20 b9 3a ef 36  |.*. I%>N% . .:.6|
00001d40  2c 31 2c 31 32 2c 31 2c  32 37 2c 31 2c 36 34 2c  |,1,12,1,27,1,64,|
00001d50  33 3a 41 25 3d 37 3a e1  0d 0a 1e 1f e3 4a 25 3d  |3:A%=7:......J%=|
00001d60  31 b8 32 3a f1 41 24 28  4a 25 29 4d 24 28 49 25  |1.2:.A$(J%)M$(I%|
00001d70  2c 4a 25 29 3b 3a ed 0d  0a 28 26 e7 20 49 25 20  |,J%);:...(&. I% |
00001d80  83 20 63 6f 6c 75 6d 6e  25 3d 30 20 84 20 49 25  |. column%=0 . I%|
00001d90  3d 4e 25 20 f1 20 8b 20  f1 20 89 36 3b 0d 0a 32  |=N% . . . .6;..2|
00001da0  07 fd 20 a3 0d 0a 3c 05  3a 0d 0a 46 0e dd 20 f2  |.. ...<.:..F.. .|
00001db0  63 6f 6d 70 69 6c 65 0d  0a 50 1c ea 20 68 74 61  |compile..P.. hta|
00001dc0  62 2c 76 74 61 62 2c 70  61 67 65 2c 6c 69 6e 65  |b,vtab,page,line|
00001dd0  73 2c 67 0d 0a 5a 11 e7  20 4e 25 3d 30 20 41 25  |s,g..Z.. N%=0 A%|
00001de0  3d 36 3a e1 0d 0a 64 2f  68 74 61 62 3d 32 3a 6c  |=6:...d/htab=2:l|
00001df0  69 6e 65 73 3d 31 38 3a  70 61 67 65 3d 30 3a 73  |ines=18:page=0:s|
00001e00  74 61 72 74 3d 31 3a 66  69 6e 69 73 68 3d 6c 69  |tart=1:finish=li|
00001e10  6e 65 73 0d 0a 6e 4d f2  68 65 61 64 69 6e 67 28  |nes..nM.heading(|
00001e20  22 43 4f 4d 50 49 4c 45  20 53 48 4f 50 50 49 4e  |"COMPILE SHOPPIN|
00001e30  47 20 4c 49 53 54 22 2c  22 43 75 72 73 6f 72 20  |G LIST","Cursor |
00001e40  6b 65 79 73 20 74 6f 20  6d 6f 76 65 20 2d 20 53  |keys to move - S|
00001e50  50 41 43 45 20 74 6f 20  73 65 6c 65 63 74 22 29  |PACE to select")|
00001e60  0d 0a 78 4e ef 32 36 3a  f1 8a 30 2c 32 33 29 bd  |..xN.26:..0,23).|
00001e70  31 33 31 c4 33 38 2c 22  5f 22 29 3b 8a 37 2c 32  |131.38,"_");.7,2|
00001e80  34 29 bd 31 33 31 22 52  45 54 55 52 4e 20 74 6f  |4).131"RETURN to|
00001e90  20 65 6e 64 20 73 65 6c  65 63 74 69 6f 6e 22 3b  | end selection";|
00001ea0  3a ef 32 38 2c 30 2c 32  32 2c 33 39 2c 34 0d 0a  |:.28,0,22,39,4..|
00001eb0  82 2d ef 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.-.23,1,1;0;0;0;|
00001ec0  3a f2 73 63 72 65 65 6e  28 73 74 61 72 74 2c 66  |:.screen(start,f|
00001ed0  69 6e 69 73 68 29 3a 49  25 3d 31 0d 0a 8c 05 f5  |inish):I%=1.....|
00001ee0  0d 0a 96 18 76 74 61 62  3d 49 25 2d 28 70 61 67  |....vtab=I%-(pag|
00001ef0  65 2a 6c 69 6e 65 73 29  0d 0a a0 3e f1 8a 31 2c  |e*lines)...>..1,|
00001f00  30 29 bd 31 33 33 22 54  6f 74 61 6c 20 49 74 65  |0).133"Total Ite|
00001f10  6d 73 3d 22 3b 4e 25 3b  8a 32 32 2c 30 29 22 43  |ms=";N%;.22,0)"C|
00001f20  75 72 72 65 6e 74 20 49  74 65 6d 3d 22 3b 49 25  |urrent Item=";I%|
00001f30  3b 22 20 20 22 3b 0d 0a  aa 19 f1 8a 68 74 61 62  |;"  ";......htab|
00001f40  2c 76 74 61 62 29 3b 3a  2a 46 58 32 31 2c 30 0d  |,vtab);:*FX21,0.|
00001f50  0a b4 07 67 3d a5 0d 0a  be 56 e7 20 67 3d 33 32  |...g=....V. g=32|
00001f60  20 e7 20 ac 20 6c 69 73  74 25 28 49 25 29 20 f1  | . . list%(I%) .|
00001f70  20 bd 38 bd 31 32 39 3b  3a 6c 69 73 74 25 28 49  | .8.129;:list%(I|
00001f80  25 29 3d b9 20 8b 20 e7  20 67 3d 33 32 20 e7 20  |%)=. . . g=32 . |
00001f90  6c 69 73 74 25 28 49 25  29 20 ef 38 2c 31 33 30  |list%(I%) .8,130|
00001fa0  3a 6c 69 73 74 25 28 49  25 29 3d a3 0d 0a c8 19  |:list%(I%)=.....|
00001fb0  e7 20 67 3d 31 34 33 20  e7 20 49 25 3d 31 20 ef  |. g=143 . I%=1 .|
00001fc0  37 3a fd 20 a3 0d 0a d2  46 e7 20 67 3d 31 34 33  |7:. ....F. g=143|
00001fd0  20 e7 20 70 61 67 65 3e  30 20 e7 20 49 25 3d 73  | . page>0 . I%=s|
00001fe0  74 61 72 74 20 49 25 3d  49 25 2d 31 3a f2 64 65  |tart I%=I%-1:.de|
00001ff0  63 3a f2 73 63 72 65 65  6e 28 73 74 61 72 74 2c  |c:.screen(start,|
00002000  66 69 6e 69 73 68 29 3a  fd 20 a3 0d 0a dc 13 e7  |finish):. ......|
00002010  20 67 3d 31 34 33 20 49  25 3d 49 25 2d 31 0d 0a  | g=143 I%=I%-1..|
00002020  e6 1a e7 20 67 3d 31 34  32 20 e7 20 49 25 3d 4e  |... g=142 . I%=N|
00002030  25 20 ef 37 3a fd 20 a3  0d 0a f0 3e e7 20 67 3d  |% .7:. ....>. g=|
00002040  31 34 32 20 e7 20 49 25  3d 66 69 6e 69 73 68 20  |142 . I%=finish |
00002050  49 25 3d 49 25 2b 31 3a  f2 69 6e 63 3a f2 73 63  |I%=I%+1:.inc:.sc|
00002060  72 65 65 6e 28 73 74 61  72 74 2c 66 69 6e 69 73  |reen(start,finis|
00002070  68 29 3a fd 20 a3 0d 0a  fa 13 e7 20 67 3d 31 34  |h):. ...... g=14|
00002080  32 20 49 25 3d 49 25 2b  31 0d 0b 04 16 fd 20 67  |2 I%=I%+1..... g|
00002090  3d 31 33 3a 41 25 3d 33  3a 6c 69 73 74 3d a3 0d  |=13:A%=3:list=..|
000020a0  0b 0e 13 e3 20 49 3d 31  20 b8 20 6d 61 78 72 65  |.... I=1 . maxre|
000020b0  63 73 0d 0b 18 17 e7 20  6c 69 73 74 25 28 49 29  |cs..... list%(I)|
000020c0  3d b9 20 6c 69 73 74 3d  b9 0d 0b 22 07 ed 3a e1  |=. list=..."..:.|
000020d0  0d 0b 2c 05 3a 0d 0b 36  18 dd 20 f2 70 72 69 6e  |..,.:..6.. .prin|
000020e0  74 6c 69 73 74 3a ea 20  49 25 2c 4a 25 0d 0b 40  |tlist:. I%,J%..@|
000020f0  11 e7 20 4e 25 3d 30 20  41 25 3d 36 3a e1 0d 0b  |.. N%=0 A%=6:...|
00002100  4a 13 e7 20 ac 20 6c 69  73 74 20 41 25 3d 32 3a  |J.. . list A%=2:|
00002110  e1 0d 0b 54 43 f2 68 65  61 64 69 6e 67 28 22 50  |...TC.heading("P|
00002120  52 49 4e 54 20 53 48 4f  50 50 49 4e 47 20 4c 49  |RINT SHOPPING LI|
00002130  53 54 22 2c 22 50 72 69  6e 74 20 6f 75 74 20 73  |ST","Print out s|
00002140  65 6c 65 63 74 65 64 20  69 74 65 6d 73 20 6f 6e  |elected items on|
00002150  6c 79 22 29 0d 0b 5e 11  ef 32 38 2c 30 2c 32 34  |ly")..^..28,0,24|
00002160  2c 33 39 2c 34 0d 0b 68  45 f1 8a 33 2c 38 29 bd  |,39,4..hE..3,8).|
00002170  31 33 31 3b 3a e7 20 a4  79 6e 28 22 44 6f 20 79  |131;:. .yn("Do y|
00002180  6f 75 20 77 61 6e 74 20  74 6f 20 70 72 69 6e 74  |ou want to print|
00002190  20 6c 69 73 74 3f 20 20  3c 59 2f 4e 3e 22 29 3d  | list?  <Y/N>")=|
000021a0  22 4e 22 20 41 25 3d 33  3a e1 0d 0b 72 11 f2 70  |"N" A%=3:...r..p|
000021b0  72 69 6e 74 65 72 63 68  65 63 6b 0d 0b 7c 2b f1  |rintercheck..|+.|
000021c0  8a 38 2c 31 30 29 bd 31  32 39 bd 31 33 36 22 50  |.8,10).129.136"P|
000021d0  52 49 4e 54 49 4e 47 20  53 48 4f 50 50 49 4e 47  |RINTING SHOPPING|
000021e0  20 4c 49 53 54 22 0d 0b  86 25 ef 32 2c 32 31 2c  | LIST"...%.2,21,|
000021f0  31 2c 32 37 2c 31 2c 38  32 2c 31 2c 33 2c 31 2c  |1,27,1,82,1,3,1,|
00002200  32 37 2c 31 2c 37 38 2c  31 2c 34 0d 0b 90 28 f1  |27,1,78,1,4...(.|
00002210  22 20 53 68 6f 70 70 69  6e 67 20 4c 69 73 74 3a  |" Shopping List:|
00002220  20 22 66 6e 61 6d 65 24  3b 89 34 3b 64 61 74 65  | "fname$;.4;date|
00002230  24 3a f1 0d 0b 9a 0f e3  20 49 25 3d 31 20 b8 20  |$:...... I%=1 . |
00002240  4e 25 0d 0b a4 32 e7 20  6c 69 73 74 25 28 49 25  |N%...2. list%(I%|
00002250  29 20 e3 20 4a 25 3d 31  20 b8 20 33 3a f1 20 41  |) . J%=1 . 3:. A|
00002260  24 28 4a 25 29 3b 4d 24  28 49 25 2c 4a 25 29 3b  |$(J%);M$(I%,J%);|
00002270  3a ed 3a f1 0d 0b ae 05  ed 0d 0b b8 1e ef 36 2c  |:.:...........6,|
00002280  31 2c 31 32 2c 31 2c 32  37 2c 31 2c 36 34 2c 33  |1,12,1,27,1,64,3|
00002290  3a 41 25 3d 35 3a e1 0d  0b c2 05 3a 0d 0b cc 12  |:A%=5:.....:....|
000022a0  dd 20 f2 6d 65 73 73 61  67 65 28 61 24 29 0d 0b  |. .message(a$)..|
000022b0  d6 2d f1 8a 30 2c 35 29  89 34 30 bd 31 33 33 c4  |.-..0,5).40.133.|
000022c0  33 38 2c 22 3d 22 29 89  31 36 31 bd 31 33 33 c4  |38,"=").161.133.|
000022d0  33 38 2c 22 3d 22 29 89  34 30 3b 0d 0b e0 13 f1  |38,"=").40;.....|
000022e0  8a 30 2c 38 29 bd 31 33  31 61 24 3b 3a e1 0d 0b  |.0,8).131a$;:...|
000022f0  ea 05 3a 0d 0b f4 7c dc  20 37 2c 45 6e 74 65 72  |..:...|. 7,Enter|
00002300  2f 45 64 69 74 20 49 74  65 6d 73 2c 43 6f 6d 70  |/Edit Items,Comp|
00002310  69 6c 65 20 53 68 6f 70  70 69 6e 67 20 4c 69 73  |ile Shopping Lis|
00002320  74 2c 50 72 69 6e 74 20  53 68 6f 70 70 69 6e 67  |t,Print Shopping|
00002330  20 4c 69 73 74 2c 50 72  69 6e 74 20 4d 61 73 74  | List,Print Mast|
00002340  65 72 20 4c 69 73 74 2c  53 61 76 65 20 44 61 74  |er List,Save Dat|
00002350  61 2c 43 68 61 6e 67 65  20 53 68 6f 70 20 46 69  |a,Change Shop Fi|
00002360  6c 65 2c 51 75 69 74 20  50 72 6f 67 72 61 6d 0d  |le,Quit Program.|
00002370  ff                                                |.|
00002371