000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 43 50 44 52 65 61 64 20 76 33 2E 32 34 00 ..CPDRead v3.24.
000030: 29 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 )...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 03 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 00 00 02 09 4E E5 00 00 C1 02 00 00 00 02 ......N.........
000120: 00 00 C6 02 00 00 00 02 00 00 C2 02 00 00 00 02 ................
000130: 00 00 C7 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000140: 00 00 C8 02 00 00 00 02 00 00 C4 02 00 00 00 02 ................
000150: 00 00 C9 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 50 52 4F 44 55 43 54 53 49 4E 46 00 00 00 01 .PRODUCTSINF....
000210: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000220: 00 CF 4D 20 20 20 20 20 20 20 20 20 00 16 00 01 ..M ....
000230: 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000240: 00 CF 4D 49 4E 49 54 20 20 20 20 20 00 74 00 0A ..MINIT .t..
000250: 06 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000260: 00 46 4D 4F 50 54 51 20 20 20 20 20 00 00 00 01 .FMOPTQ ....
000270: 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000280: 00 C6 4D 20 20 20 20 20 20 4D 55 53 00 00 00 01 ..M MUS....
000290: 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002A0: 00 4F 4D 4F 50 54 49 20 20 20 20 20 00 17 00 01 .OMOPTI ....
0002B0: 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002C0: 00 C6 4D 53 54 59 50 45 31 20 20 20 00 00 00 10 ..MSTYPE1 ....
0002D0: 0B 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002E0: 00 CF 4D 53 55 4D 4D 41 52 49 4E 46 00 00 00 01 ..MSUMMARINF....
0002F0: 0E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000300: E5 46 4D 41 44 44 20 20 20 42 41 4B 00 00 00 0F .FMADD BAK....
000310: 1B 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .>..............
000320: 00 CF 4D 49 4E 56 47 45 4E 4E 55 4D 00 0B 00 01 ..MINVGENNUM....
000330: 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !...............
000340: 00 C6 4D 53 54 59 50 45 32 20 20 20 00 00 00 12 ..MSTYPE2 ....
000350: 13 14 15 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000360: 00 41 44 44 52 45 53 53 20 53 45 4C 00 00 00 02 .ADDRESS SEL....
000370: 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000380: 00 CF 4D 53 54 41 47 45 4E 20 20 20 00 3A 00 1C ..MSTAGEN .:..
000390: 2F 44 51 52 00 00 00 00 00 00 00 00 00 00 00 00 /DQR............
0003A0: 00 4F 4D 4F 50 54 53 20 20 20 20 20 00 1A 00 01 .OMOPTS ....
0003B0: 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 $...............
0003C0: 00 4F 4D 4F 50 54 51 20 20 20 20 20 00 19 00 01 .OMOPTQ ....
0003D0: 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &...............
0003E0: 00 4F 4D 4F 50 54 4A 20 20 20 20 20 00 19 00 01 .OMOPTJ ....
0003F0: 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2...............
000400: 78 2C 78 0D 0A 3E 72 76 20 72 75 6C 65 72 31 2C x,x..>rv ruler1,
000410: 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 75 ruler2,ruler3,ru
000420: 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 76 ler4,ruler5..>rv
000430: 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 2C coname,coaddr1,
000440: 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 2C coaddr2,coaddr3,
000450: 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 0D coaddr4,coaddr5.
000460: 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F .>>>..>cf..>df o
000470: 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 76 minvgen.num..>rv
000480: 20 6E 75 6D 62 65 72 2C 74 69 74 6C 65 0D 0A 3E number,title..>
000490: 64 6D 20 22 49 4E 56 47 45 4E 20 76 32 2E 30 30 dm "INVGEN v2.00
0004A0: 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 20 (c) Arnor 1988
0004B0: 20 28 26 74 69 74 6C 65 26 29 22 0D 0A 3E 64 6D (&title&)"..>dm
0004C0: 20 22 20 22 0D 0A 3E 3E 3E 0D 0A 3E 69 64 20 66 " "..>>>..>id f
0004D0: 69 6C 65 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 iledate..>cf..>d
0004E0: 66 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A f ominvgen.dat..
0004F0: 3E 72 76 20 73 79 73 5F 64 61 74 65 0D 0A 3E 65 >rv sys_date..>e
000500: 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 76 61 74 63 i..>>>..>sv vatc
000510: 66 30 3D 31 0D 0A 3E 73 76 20 76 61 74 63 66 31 f0=1..>sv vatcf1
000520: 3D 31 2B 76 61 74 31 09 3B 20 56 41 54 20 63 6F =1+vat1.; VAT co
000530: 6E 76 65 72 73 69 6F 6E 20 66 61 63 74 6F 72 73 nversion factors
000540: 0D 0A 3E 73 76 20 76 61 74 63 66 32 3D 31 2B 76 ..>sv vatcf2=1+v
000550: 61 74 32 0D 0A 3E 73 76 20 76 61 74 63 66 33 3D at2..>sv vatcf3=
000560: 31 2B 76 61 74 33 0D 0A 3E 73 76 20 76 61 74 63 1+vat3..>sv vatc
000570: 66 34 3D 31 2B 76 61 74 34 0D 0A 3E 73 76 20 76 f4=1+vat4..>sv v
000580: 61 74 63 66 35 3D 31 2B 76 61 74 35 0D 0A 3E 3E atcf5=1+vat5..>>
000590: 3E 0D 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 >..>>> read prod
0005A0: 75 63 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 uct info into de
0005B0: 73 63 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 sc1,desc2,...,pr
0005C0: 69 63 65 31 2C 70 72 69 63 65 32 2C 2E 2E 2E 63 ice1,price2,...c
0005D0: 6F 64 65 31 2C 63 6F 64 65 32 2C 2E 2E 2E 0D 0A ode1,code2,.....
0005E0: 3E 3E 3E 0D 0A 3E 73 76 20 6D 61 78 6E 3D 30 0D >>>..>sv maxn=0.
0005F0: 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 .>if useprod="y"
000600: 00 C6 4D 53 54 59 50 45 34 20 20 20 00 00 00 12 ..MSTYPE4 ....
000610: 34 36 37 00 00 00 00 00 00 00 00 00 00 00 00 00 467.............
000620: 00 C6 4D 20 20 20 20 20 20 20 20 20 00 1E 00 01 ..M ....
000630: 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^...............
000640: E5 CF 4D 45 4E 55 20 20 20 42 41 4B 00 66 00 51 ..MENU BAK.f.Q
000650: 07 0F 18 1A 1E 1F 20 23 27 2D 2E 00 00 00 00 00 ...... #'-......
000660: 00 4C 45 54 54 45 52 20 20 50 4D 4D 00 00 00 08 .LETTER PMM....
000670: 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "...............
000680: 00 C6 4D 53 54 59 50 45 33 20 20 20 00 00 00 14 ..MSTYPE3 ....
000690: 17 1C 33 00 00 00 00 00 00 00 00 00 00 00 00 00 ..3.............
0006A0: 00 CF 4D 49 4E 56 47 45 4E 44 41 54 00 0F 00 01 ..MINVGENDAT....
0006B0: 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006C0: 00 C6 4D 20 20 20 20 20 20 58 20 20 00 1A 00 01 ..M X ....
0006D0: 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006E0: 00 C1 44 44 52 45 53 53 20 4E 45 57 00 00 00 02 ..DDRESS NEW....
0006F0: 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000700: 00 C6 4D 53 54 59 50 45 35 20 20 20 00 00 00 14 ..MSTYPE5 ....
000710: 38 3A 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 8:<.............
000720: 00 4F 4D 49 4E 56 47 45 4E 49 4E 46 00 00 00 05 .OMINVGENINF....
000730: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
000740: 00 C6 4D 53 54 59 50 45 36 20 20 20 00 00 00 14 ..MSTYPE6 ....
000750: 43 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 CEF.............
000760: 00 CF 4D 4F 50 54 4C 20 20 20 20 20 00 3E 00 01 ..MOPTL .>..
000770: 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000780: 00 C6 4D 41 44 44 20 20 20 20 20 20 00 3F 00 0F ..MADD .?..
000790: 58 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 XY..............
0007A0: 00 46 4F 24 45 4E 44 24 20 20 20 20 00 00 00 02 .FO$END$ ....
0007B0: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007C0: 00 46 4D 24 50 46 49 24 20 20 20 20 00 00 00 03 .FM$PFI$ ....
0007D0: 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %...............
0007E0: 00 C6 4D 53 54 59 50 45 37 20 20 20 00 00 00 14 ..MSTYPE7 ....
0007F0: 47 48 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 GHM.............
000800: 6C 6F 61 64 20 6F 6D 65 6E 75 0D 0A 79 7C 36 33 load omenu..y|63
000810: 39 7C 70 73 0D 0A 1A 63 65 0D 0A 70 66 20 69 6E 9|ps...ce..pf in
000820: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
000830: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000840: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
000850: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
000860: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
000870: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
000880: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
000890: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
0008A0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
0008B0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
0008C0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
0008D0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
0008E0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0008F0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
000900: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000910: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000920: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000930: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000940: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000950: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
000960: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
000970: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
000980: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
000990: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
0009A0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
0009B0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
0009C0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
0009D0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
0009E0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
0009F0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
000A00: 00 C6 4D 45 4E 55 20 20 20 20 20 20 00 0C 00 35 ..MENU ...5
000A10: 4F 50 53 54 55 56 57 00 00 00 00 00 00 00 00 00 OPSTUVW.........
000A20: 00 CF 4D 45 4E 55 20 20 20 20 20 20 00 66 00 51 ..MENU .f.Q
000A30: 5A 5B 5C 5D 5F 60 61 62 63 64 65 00 00 00 00 00 Z[\]_`abcde.....
000A40: 00 C6 4D 45 44 49 54 20 20 20 20 20 00 00 00 1A ..MEDIT ....
000A50: 49 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 IJKL............
000A60: 00 C6 4D 20 20 20 20 20 20 4F 4E 45 00 00 00 01 ..M ONE....
000A70: 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 N...............
000A80: 00 CF 4D 20 20 20 20 20 20 58 20 20 00 48 00 01 ..M X .H..
000A90: 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AA0: 00 41 44 44 52 45 53 53 20 20 20 20 00 00 00 08 .ADDRESS ....
000AB0: 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,...............
000AC0: 00 CD 55 53 49 43 20 20 20 20 20 20 00 00 00 11 ..USIC ....
000AD0: 19 7C 7D 00 00 00 00 00 00 00 00 00 00 00 00 00 .|}.............
000AE0: 00 CF 4D 49 4E 56 47 45 4E 20 20 20 00 56 00 45 ..MINVGEN .V.E
000AF0: 30 31 35 3B 3D 3F 40 41 42 00 00 00 00 00 00 00 015;=?@AB.......
000B00: 00 CD 55 53 49 43 20 20 20 4E 45 57 00 00 00 02 ..USIC NEW....
000B10: 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ~...............
000B20: 00 C6 4D 4F 50 54 41 20 20 20 20 20 00 00 00 01 ..MOPTA ....
000B30: 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g...............
000B40: 00 C6 4D 4F 50 54 46 20 20 20 20 20 00 00 00 01 ..MOPTF ....
000B50: 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 h...............
000B60: 00 C6 4D 4F 50 54 50 20 20 20 20 20 00 00 00 01 ..MOPTP ....
000B70: 69 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 i...............
000B80: 00 C6 4D 4F 50 54 55 20 20 20 20 20 00 00 00 01 ..MOPTU ....
000B90: 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 j...............
000BA0: 00 46 53 4F 52 54 20 20 20 43 4F 4D 00 00 00 6C .FSORT COM...l
000BB0: 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 00 00 klmnopqrstuvwx..
000BC0: E5 C6 4D 53 54 59 50 45 37 20 20 20 00 20 00 13 ..MSTYPE7 . ..
000BD0: 5C 5D 79 00 00 00 00 00 00 00 00 00 00 00 00 00 \]y.............
000BE0: E5 C1 44 44 52 45 53 53 20 42 41 4B 00 00 00 08 ..DDRESS BAK....
000BF0: 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Q...............
000C00: 20 20 20 20 4C 20 2D 20 4C 69 73 74 20 69 6E 76 L - List inv
000C10: 6F 69 63 65 20 73 75 6D 6D 61 72 79 20 66 69 6C oice summary fil
000C20: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
000C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000C40: 20 2D 20 45 64 69 74 20 63 6F 6E 66 69 67 75 72 - Edit configur
000C50: 61 74 69 6F 6E 20 73 65 74 74 69 6E 67 73 0D 0A ation settings..
000C60: 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 >dm "
000C70: 20 20 20 20 20 20 20 20 20 20 20 20 46 20 2D 20 F -
000C80: 46 69 6C 65 72 20 6D 65 6E 75 0D 0A 3E 64 6D 20 Filer menu..>dm
000C90: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000CA0: 20 20 20 20 20 20 20 20 51 20 2D 20 51 75 69 74 Q - Quit
000CB0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000CD0: 20 20 20 45 6E 74 65 72 20 6F 70 74 69 6F 6E 20 Enter option
000CE0: 6C 65 74 74 65 72 3A 20 22 20 6F 70 74 20 31 0D letter: " opt 1.
000CF0: 0A 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 22 .>>>..>if opt=""
000D00: 0D 0A 3E 73 76 20 6F 70 74 3D 22 20 22 0D 0A 3E ..>sv opt=" "..>
000D10: 65 69 0D 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 ei..>if opt in "
000D20: 71 66 63 73 72 65 6A 22 0D 0A 3E 73 76 20 6F 71 qfcsrej"..>sv oq
000D30: 3D 22 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 ="clear|13|y|639
000D40: 7C 7C 37 36 34 7C 7C 37 36 36 7C 22 0D 0A 3E 73 ||764||766|"..>s
000D50: 76 20 6F 66 3D 22 6C 6F 61 64 20 66 6D 65 6E 75 v of="load fmenu
000D60: 7C 31 33 7C 70 73 22 0D 0A 3E 3E 3E 73 76 20 6F |13|ps"..>>>sv o
000D70: 69 3D 22 6C 6F 61 64 20 6F 6D 69 6E 76 6F 69 63 i="load ominvoic
000D80: 7C 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 |13||16|pf ominv
000D90: 67 65 6E 2E 6E 75 6D 22 0D 0A 3E 73 76 20 6F 63 gen.num"..>sv oc
000DA0: 3D 22 6C 6F 61 64 20 6F 6D 63 72 65 64 69 74 7C ="load omcredit|
000DB0: 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 67 13||16|pf ominvg
000DC0: 65 6E 2E 6E 75 6D 22 0D 0A 3E 3E 3E 73 76 20 6F en.num"..>>>sv o
000DD0: 6E 3D 22 6C 6F 61 64 20 6F 6D 73 65 74 6E 75 6D n="load omsetnum
000DE0: 7C 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 |13||16|pf ominv
000DF0: 67 65 6E 2E 6E 75 6D 22 0D 0A 3E 3E 3E 73 76 20 gen.num"..>>>sv
000E00: E5 4F 4D 49 4E 49 54 20 20 42 41 4B 00 00 00 0B .OMINIT BAK....
000E10: 64 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 de..............
000E20: E5 CF 4D 54 45 4D 50 20 20 42 41 4B 00 43 00 04 ..MTEMP BAK.C..
000E30: 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 z...............
000E40: 00 4D 55 53 49 43 20 20 20 50 46 49 00 00 00 03 .MUSIC PFI....
000E50: 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E60: E5 CF 4D 54 45 4D 50 20 20 24 24 24 00 80 00 00 ..MTEMP $$$....
000E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E80: 00 4D 55 53 49 43 20 20 20 53 45 4C 00 00 00 02 .MUSIC SEL....
000E90: 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000EA0: E5 CF 4D 20 20 20 20 20 20 42 41 4B 00 4C 00 01 ..M BAK.L..
000EB0: 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000EC0: 00 41 44 44 52 45 53 53 20 50 46 49 00 00 00 03 .ADDRESS PFI....
000ED0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
000EE0: 00 C6 4D 50 52 49 4E 54 20 20 20 20 00 02 00 14 ..MPRINT ....
000EF0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 )*+.............
000F00: E5 CF 4D 49 4E 56 47 45 4E 42 41 4B 00 03 00 01 ..MINVGENBAK....
000F10: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F20: 00 C6 4D 46 49 4E 44 20 20 20 20 20 00 19 00 0F ..MFIND ....
000F30: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F40: 00 C6 4D 49 4E 49 54 20 20 20 20 20 00 72 00 19 ..MINIT .r..
000F50: 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F60: 00 C6 4D 4D 45 52 47 45 20 20 20 20 00 47 00 09 ..MMERGE .G..
000F70: 8E 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F80: 00 CC 41 42 45 4C 31 20 20 50 4D 4D 00 16 00 0A ..ABEL1 PMM....
000F90: 90 91 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FA0: 00 CC 41 42 45 4C 32 20 20 50 4D 4D 00 51 00 0D ..ABEL2 PMM.Q..
000FB0: 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FC0: 00 CC 41 42 45 4C 33 20 20 50 4D 4D 00 48 00 0F ..ABEL3 PMM.H..
000FD0: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FE0: E5 CC 45 54 54 45 52 20 20 42 41 4B 00 67 00 08 ..ETTER BAK.g..
000FF0: 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
001010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
001020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
001030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
001040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
001050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
001060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
001070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
001080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
001090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0010A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0010B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0010C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0010D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0010E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0010F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 65 6E 64 end..end.....end
001100: 22 0D 0A 3E 73 76 20 63 70 6D 3D 31 0D 0A 3E 65 "..>sv cpm=1..>e
001110: 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E i..>df ominvgen.
001120: 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 66 69 6C inf..>rv addrfil
001130: 65 2C 69 6E 76 64 72 76 2C 70 72 6F 64 66 69 6C e,invdrv,prodfil
001140: 65 2C 76 61 74 72 65 67 0D 0A 3E 72 76 20 76 61 e,vatreg..>rv va
001150: 74 31 2C 76 61 74 32 2C 76 61 74 33 2C 76 61 74 t1,vat2,vat3,vat
001160: 34 2C 76 61 74 35 2C 69 6E 66 6F 6C 69 6E 65 73 4,vat5,infolines
001170: 2C 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 ,descwidth..>rv
001180: 64 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 discA,discB,disc
001190: 43 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E C,discD,discE..>
0011A0: 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 rv prconame,exor
0011B0: 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B inc,showdisc,ask
0011C0: 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F fn,askcar,usepro
0011D0: 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 d,defdisc..>rv c
0011E0: 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E aline,aline,tlin
0011F0: 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 20 73 e,totline..>rv s
001200: 50 72 6F 74 65 78 74 20 4F 66 66 69 63 65 2C 20 Protext Office,
001210: 33 34 2E 39 35 2C 20 50 4F 2C 20 31 2C 20 31 0D 34.95, PO, 1, 1.
001220: 0A 50 72 6F 74 65 78 74 20 46 69 6C 65 72 2C 20 .Protext Filer,
001230: 32 34 2E 39 35 2C 20 50 46 2C 20 31 2C 20 31 0D 24.95, PF, 1, 1.
001240: 0A 52 6F 6D 62 6F 20 72 6F 6D 20 62 6F 78 2C 20 .Rombo rom box,
001250: 33 34 2E 39 35 2C 20 52 42 2C 20 31 2C 20 32 0D 34.95, RB, 1, 2.
001260: 0A 4D 61 78 61 6D 20 6D 61 6E 75 61 6C 2C 20 35 .Maxam manual, 5
001270: 2E 30 30 2C 20 22 20 22 2C 20 30 2C 20 31 0D 0A .00, " ", 0, 1..
001280: 00 4D 55 53 49 43 20 20 20 53 45 4C 00 00 00 02 .MUSIC SEL....
001290: 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012A0: 00 CF 4D 53 55 4D 4D 41 52 49 4E 46 00 80 00 05 ..MSUMMARINF....
0012B0: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
0012C0: 00 41 44 44 52 45 53 53 20 50 46 49 00 00 00 03 .ADDRESS PFI....
0012D0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
0012E0: 00 C6 4D 50 52 49 4E 54 20 20 20 20 00 02 00 14 ..MPRINT ....
0012F0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 )*+.............
001300: 00 CF 4D 20 20 20 20 20 20 58 20 20 00 48 00 01 ..M X .H..
001310: 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001320: 00 C6 4D 46 49 4E 44 20 20 20 20 20 00 19 00 0F ..MFIND ....
001330: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001340: 00 C6 4D 49 4E 49 54 20 20 20 20 20 00 72 00 19 ..MINIT .r..
001350: 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 ................
001360: 00 C6 4D 4D 45 52 47 45 20 20 20 20 00 47 00 09 ..MMERGE .G..
001370: 8E 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001380: 00 CC 41 42 45 4C 31 20 20 50 4D 4D 00 16 00 0A ..ABEL1 PMM....
001390: 90 91 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0013A0: 00 CC 41 42 45 4C 32 20 20 50 4D 4D 00 51 00 0D ..ABEL2 PMM.Q..
0013B0: 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0013C0: 00 CC 41 42 45 4C 33 20 20 50 4D 4D 00 48 00 0F ..ABEL3 PMM.H..
0013D0: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0013E0: 00 CC 45 54 54 45 52 20 20 50 4D 4D 00 67 00 08 ..ETTER PMM.g..
0013F0: 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 00 00 02 09 4E E5 01 00 C1 02 00 00 00 02 ......N.........
001420: 01 00 C6 02 00 00 00 02 01 00 C2 02 00 00 00 02 ................
001430: 01 00 C7 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001440: 01 00 C8 02 00 00 00 02 01 00 C4 02 00 00 00 02 ................
001450: 01 00 C9 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 2C 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 ,ruler2,ruler3,r
001510: 75 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 uler4,ruler5..>r
001520: 76 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 v coname,coaddr1
001530: 2C 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 ,coaddr2,coaddr3
001540: 2C 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 ,coaddr4,coaddr5
001550: 0D 0A 3E 77 66 20 26 69 6E 76 64 72 76 26 3A 6F ..>wf &invdrv&:o
001560: 6D 74 65 6D 70 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 20 mtemp..>zm..>tm
001570: 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 26 73 &caline&..>sm &s
001580: 69 64 65 26 0D 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A ide&..>>>..>cf..
001590: 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D >df ominvgen.num
0015A0: 0D 0A 3E 72 76 20 6E 75 6D 62 65 72 2C 74 69 74 ..>rv number,tit
0015B0: 6C 65 0D 0A 3E 64 6D 20 22 49 4E 56 47 45 4E 20 le..>dm "INVGEN
0015C0: 76 31 2E 30 30 20 28 63 29 20 41 72 6E 6F 72 20 v1.00 (c) Arnor
0015D0: 31 39 38 38 20 20 28 26 74 69 74 6C 65 26 29 22 1988 (&title&)"
0015E0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 3E 3E 0D 0A ..>dm " "..>>>..
0015F0: 3E 69 64 20 66 69 6C 65 64 61 74 65 0D 0A 3E 63 >id filedate..>c
001600: 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E f..>df ominvgen.
001610: 64 61 74 0D 0A 3E 72 76 20 73 79 73 5F 64 61 74 dat..>rv sys_dat
001620: 65 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 e..>ei..>>>..>sv
001630: 20 76 61 74 63 66 30 3D 31 0D 0A 3E 73 76 20 76 vatcf0=1..>sv v
001640: 61 74 63 66 31 3D 31 2B 76 61 74 31 09 3B 20 56 atcf1=1+vat1.; V
001650: 41 54 20 63 6F 6E 76 65 72 73 69 6F 6E 20 66 61 AT conversion fa
001660: 63 74 6F 72 73 0D 0A 3E 73 76 20 76 61 74 63 66 ctors..>sv vatcf
001670: 32 3D 31 2B 76 61 74 32 0D 0A 3E 73 76 20 76 61 2=1+vat2..>sv va
001680: 74 63 66 33 3D 31 2B 76 61 74 33 0D 0A 3E 73 76 tcf3=1+vat3..>sv
001690: 20 76 61 74 63 66 34 3D 31 2B 76 61 74 34 0D 0A vatcf4=1+vat4..
0016A0: 3E 73 76 20 76 61 74 63 66 35 3D 31 2B 76 61 74 >sv vatcf5=1+vat
0016B0: 35 0D 0A 3E 73 76 20 63 6F 70 79 70 61 74 68 3D 5..>sv copypath=
0016C0: 69 6E 76 64 72 76 2B 22 3A 22 0D 0A 3E 3E 3E 0D invdrv+":"..>>>.
0016D0: 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 63 .>>> read produc
0016E0: 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 63 t info into desc
0016F0: 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 63 1,desc2,...,pric
001700: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
001710: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
001720: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
001730: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
001740: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
001750: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
001760: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
001770: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
001780: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
001790: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
0017A0: 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E =1 filedate=1..>
0017B0: 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 69 66 ei..>iu cpm..>if
0017C0: 20 73 79 73 5F 76 65 72 20 3C 20 33 2E 30 37 0D sys_ver < 3.07.
0017D0: 0A 3E 73 76 20 66 69 6C 65 64 61 74 65 3D 31 0D .>sv filedate=1.
0017E0: 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 73 5F 76 65 .>ei..>if sys_ve
0017F0: 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 66 69 6C 65 r=3.10..>sv file
001800: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
001810: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
001820: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
001830: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
001840: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
001850: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
001860: 4E 20 55 20 20 2A 2A 2A 20 20 28 76 32 2E 30 31 N U *** (v2.01
001870: 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 )..>dm " "..>dm
001880: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
001890: 20 20 20 20 20 20 20 20 49 20 2D 20 50 72 69 6E I - Prin
0018A0: 74 20 61 6E 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 t an Invoice..>d
0018B0: 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 m "
0018C0: 20 20 20 20 20 20 20 20 20 20 43 20 2D 20 50 72 C - Pr
0018D0: 69 6E 74 20 61 20 43 72 65 64 69 74 20 6E 6F 74 int a Credit not
0018E0: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
0018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
001900: 31 35 20 4D 61 72 63 68 20 31 39 38 38 0D 0A 1A 15 March 1988...
001910: 72 6E 6F 72 20 4C 74 64 0D 0A 50 72 6F 74 65 78 rnor Ltd..Protex
001920: 74 20 48 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E t House..Wainman
001930: 20 52 6F 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F Road..Peterboro
001940: 75 67 68 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A ugh..PE2 0BU....
001950: 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .---------------
001960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001980: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
001990: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
0019A0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0019B0: 33 2E 30 36 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.06..>sv fileda
0019C0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
0019D0: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
0019E0: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
0019F0: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
001A00: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
001A10: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
001A20: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
001A30: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
001A40: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
001A50: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
001A60: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
001A70: 2C 64 69 73 63 42 2C 64 69 73 63 00 2C 64 69 73 ,discB,disc.,dis
001A80: 63 44 2C 64 69 73 63 45 0D 0A 3E 72 76 20 70 72 cD,discE..>rv pr
001A90: 63 6F 6E 61 6D 00 00 0F 00 5E 00 AB 00 01 C9 00 conam....^......
001AA0: 00 C9 00 00 C3 BB F2 C3 30 C7 C3 70 A5 C3 83 A5 ........0..p....
001AB0: C3 7C A5 C9 00 00 C9 00 00 07 07 03 00 00 7C 30 .|............|0
001AC0: AF 00 39 00 0B 01 01 00 01 00 00 00 00 00 00 00 ..9.............
001AD0: 00 6D 69 6E 76 67 65 6E 00 69 6E 66 00 68 00 3E .minvgen.inf.h.>
001AE0: 00 01 00 B5 EB B5 EB 42 03 02 02 03 81 B5 EB B5 .......B........
001AF0: EB E8 FC 01 00 46 00 3C 00 01 00 B5 EB B5 EB 42 .....F.<.......B
001B00: 20 2D 20 50 72 69 6E 74 20 61 20 53 74 61 74 65 - Print a State
001B10: 6D 65 6E 74 0D 0A 3E 64 6D 20 22 20 20 20 20 20 ment..>dm "
001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001B30: 20 20 4E 20 2D 20 53 65 74 20 69 6E 76 6F 69 63 N - Set invoic
001B40: 65 20 4E 75 6D 62 65 72 0D 0A 3E 69 64 20 66 69 e Number..>id fi
001B50: 6C 65 64 61 74 65 0D 0A 3E 64 6D 20 22 20 20 20 ledate..>dm "
001B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001B70: 20 20 20 20 44 20 2D 20 53 65 74 20 63 75 72 72 D - Set curr
001B80: 65 6E 74 20 44 61 74 65 0D 0A 3E 65 69 0D 0A 3E ent Date..>ei..>
001B90: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
001BA0: 20 20 20 20 20 20 20 20 20 20 20 52 20 2D 20 52 R - R
001BB0: 65 70 72 69 6E 74 20 64 6F 63 75 6D 65 6E 74 0D eprint document.
001BC0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
001BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 2D L -
001BE0: 20 4C 69 73 74 20 69 6E 76 6F 69 63 65 20 73 75 List invoice su
001BF0: 6D 6D 61 72 79 20 66 69 6C 65 0D 0A 3E 64 6D 20 mmary file..>dm
001C00: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
001C10: 20 20 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 E - Edit
001C20: 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 configuration s
001C30: 65 74 74 69 6E 67 73 0D 0A 3E 64 6D 20 22 20 20 ettings..>dm "
001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001C50: 20 20 20 20 20 46 20 2D 20 46 69 6C 65 72 20 6D F - Filer m
001C60: 65 6E 75 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 enu..>dm "
001C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001C80: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
001C90: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
001CA0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 74 65 Ente
001CB0: 72 20 6F 70 74 69 6F 6E 20 6C 65 74 74 65 72 3A r option letter:
001CC0: 20 22 20 6F 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E " opt 1..>>>..>
001CD0: 69 66 20 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F if opt=""..>sv o
001CE0: 70 74 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 pt=" "..>ei..>if
001CF0: 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 0D 0A 3E opt in "qsj"..>
001D00: 2D 52 22 0D 0A 41 72 6E 6F 72 20 4C 74 64 0D 0A -R"..Arnor Ltd..
001D10: 50 72 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 Protext House..W
001D20: 61 69 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 65 74 ainman Road..Pet
001D30: 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 32 20 30 erborough..PE2 0
001D40: 42 55 0D 0A 0D 0A 1A 30 22 2C 22 22 2C 22 22 2C BU.....0","","",
001D50: 22 22 0D 0A 79 2C 69 2C 6E 2C 79 2C 79 2C 79 2C ""..y,i,n,y,y,y,
001D60: 30 0D 0A 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 30 0..4,12,23,45..0
001D70: 2C 31 34 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A ,14,18,15,17,9..
001D80: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
001D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
001DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D ----------L-----
001DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A ------------R"..
001DD0: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ">-------------!
001DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001DF0: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -!--------------
001E00: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D !---------------
001E10: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E -!--------R"..">
001E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
001E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001E40: 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----.-----------
001E50: 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---.------------
001E60: 2D 2D 2E 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D --.-----R"..">--
001E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001E90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D ---------!------
001EA0: 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D --------L-------
001EB0: 2E 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D .--R"..">-------
001EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001EF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
001F00: 63 31 21 2C 21 72 63 32 21 2C 21 72 63 33 21 2C c1!,!rc2!,!rc3!,
001F10: 21 72 63 34 21 2C 21 72 63 35 21 27 0D 0A 3E 77 !rc4!,!rc5!'..>w
001F20: 6D 20 27 22 21 72 75 6C 65 72 31 21 22 27 0D 0A m '"!ruler1!"'..
001F30: 3E 77 6D 20 27 22 21 72 75 6C 65 72 32 21 22 27 >wm '"!ruler2!"'
001F40: 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 65 72 33 21 ..>wm '"!ruler3!
001F50: 22 27 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 65 72 "'..>wm '"!ruler
001F60: 34 21 22 27 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 4!"'..>wm '"!rul
001F70: 65 72 35 21 22 27 0D 0A 3E 77 6D 20 27 21 63 6F er5!"'..>wm '!co
001F80: 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F name!'..>wm '!co
001F90: 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 addr1!'..>wm '!c
001FA0: 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 oaddr2!'..>wm '!
001FB0: 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 coaddr3!'..>wm '
001FC0: 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 !coaddr4!'..>wm
001FD0: 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 '!coaddr5!'..>wc
001FE0: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 ..>cf..>ex exec
001FF0: 6F 6D 0D 0A 1A 69 6F 6E 0D 0A 3E 3E 3E 0D 0A 3E om...ion..>>>..>
002000: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
002010: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
002020: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
002030: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
002040: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
002050: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
002060: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
002070: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
002080: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
002090: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0020A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0020B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0020C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0020D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0020E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0020F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
002100: 3E 3E 3E 20 69 6E 69 74 69 61 6C 69 73 65 20 49 >>> initialise I
002110: 4E 56 47 45 4E 2E 49 4E 46 20 74 6F 20 64 65 66 NVGEN.INF to def
002120: 61 75 6C 74 20 76 61 6C 75 65 73 0D 0A 3E 3E 3E ault values..>>>
002130: 20 75 73 65 20 74 68 69 73 20 69 66 20 49 4E 56 use this if INV
002140: 47 45 4E 2E 49 4E 46 20 69 73 20 64 65 6C 65 74 GEN.INF is delet
002150: 65 64 20 69 6E 20 65 72 72 6F 72 20 62 65 66 6F ed in error befo
002160: 72 65 20 75 73 69 6E 67 20 6D 65 6E 75 20 27 45 re using menu 'E
002170: 27 20 6F 70 74 69 6F 6E 0D 0A 3E 3E 3E 0D 0A 3E ' option..>>>..>
002180: 73 76 20 61 64 64 72 66 69 6C 65 3D 22 41 44 44 sv addrfile="ADD
002190: 52 45 53 53 22 20 69 6E 76 64 72 76 3D 22 41 22 RESS" invdrv="A"
0021A0: 20 70 72 6F 64 66 69 6C 65 3D 22 70 72 6F 64 75 prodfile="produ
0021B0: 63 74 73 2E 69 6E 66 22 20 76 61 74 72 65 67 3D cts.inf" vatreg=
0021C0: 22 79 22 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A "y" phone?="y"..
0021D0: 3E 73 76 20 69 6E 66 6F 6C 69 6E 65 73 3D 32 32 >sv infolines=22
0021E0: 20 64 65 73 63 77 69 64 74 68 3D 32 30 20 76 61 descwidth=20 va
0021F0: 74 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 70 72 63 tnum=""..>sv prc
002200: 6F 6E 61 6D 65 3D 22 79 22 20 65 78 6F 72 69 6E oname="y" exorin
002210: 63 3D 22 69 22 20 73 68 6F 77 64 69 73 63 3D 22 c="i" showdisc="
002220: 79 22 20 61 73 6B 66 6E 3D 22 79 22 20 61 73 6B y" askfn="y" ask
002230: 63 61 72 3D 22 79 22 20 75 73 65 70 72 6F 64 3D car="y" useprod=
002240: 22 79 22 20 64 65 66 64 69 73 63 3D 22 30 22 0D "y" defdisc="0".
002250: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 34 20 61 6C .>sv caline=4 al
002260: 69 6E 65 3D 31 32 20 74 6C 69 6E 65 3D 32 33 20 ine=12 tline=23
002270: 74 6F 74 6C 69 6E 65 3D 34 35 0D 0A 3E 73 76 20 totline=45..>sv
002280: 73 69 64 65 3D 33 20 72 63 31 3D 31 34 20 72 63 side=3 rc1=14 rc
002290: 32 3D 31 38 20 72 63 33 3D 31 35 20 72 63 34 3D 2=18 rc3=15 rc4=
0022A0: 31 37 20 72 63 35 3D 39 0D 0A 3E 73 76 20 72 75 17 rc5=9..>sv ru
0022B0: 6C 65 72 31 3D 22 22 20 72 75 6C 65 72 32 3D 22 ler1="" ruler2="
0022C0: 22 20 72 75 6C 65 72 33 3D 22 22 20 72 75 6C 65 " ruler3="" rule
0022D0: 72 34 3D 22 22 20 72 75 6C 65 72 35 3D 22 22 0D r4="" ruler5="".
0022E0: 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D 22 22 20 63 .>sv coname="" c
0022F0: 6F 61 64 64 72 31 3D 22 22 20 63 6F 61 64 64 72 oaddr1="" coaddr
002300: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
002310: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
002320: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
002330: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
002340: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
002350: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
002360: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
002370: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
002380: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
002390: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
0023A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
0023B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
0023C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
0023D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
0023E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
0023F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
002400: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
002410: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
002420: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
002430: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
002440: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
002450: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
002460: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
002470: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
002480: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
002490: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
0024A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
0024B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
0024C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
0024D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
0024E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
0024F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
002500: 32 3D 22 22 20 63 6F 61 64 64 72 33 3D 22 22 20 2="" coaddr3=""
002510: 63 6F 61 64 64 72 34 3D 22 22 20 63 6F 61 64 64 coaddr4="" coadd
002520: 72 35 3D 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D r5=""..>sv vat1=
002530: 30 2E 31 35 20 76 61 74 32 3D 30 20 76 61 74 33 0.15 vat2=0 vat3
002540: 3D 30 20 76 61 74 34 3D 30 20 76 61 74 35 3D 30 =0 vat4=0 vat5=0
002550: 0D 0A 3E 73 76 20 64 69 73 63 41 3D 22 32 35 20 ..>sv discA="25
002560: 31 30 20 30 22 20 64 69 73 63 42 3D 22 31 35 20 10 0" discB="15
002570: 31 30 20 30 22 20 64 69 73 63 43 3D 22 30 20 30 10 0" discC="0 0
002580: 20 30 22 20 64 69 73 63 44 3D 22 30 20 30 20 30 0" discD="0 0 0
002590: 22 20 64 69 73 63 45 3D 22 30 20 30 20 30 22 0D " discE="0 0 0".
0025A0: 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 77 66 20 .>df omenu..>wf
0025B0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 77 ominvgen.inf..>w
0025C0: 6D 20 27 21 61 64 64 72 66 69 6C 65 21 2C 21 69 m '!addrfile!,!i
0025D0: 6E 76 64 72 76 21 2C 21 70 72 6F 64 66 69 6C 65 nvdrv!,!prodfile
0025E0: 21 2C 21 76 61 74 72 65 67 21 2C 21 70 68 6F 6E !,!vatreg!,!phon
0025F0: 65 3F 21 27 0D 0A 3E 77 6D 20 27 21 76 61 74 31 e?!'..>wm '!vat1
002600: 21 2C 21 76 61 74 32 21 2C 21 76 61 74 33 21 2C !,!vat2!,!vat3!,
002610: 21 76 61 74 34 21 2C 21 76 61 74 35 21 2C 21 69 !vat4!,!vat5!,!i
002620: 6E 66 6F 6C 69 6E 65 73 21 2C 21 64 65 73 63 77 nfolines!,!descw
002630: 69 64 74 68 21 27 0D 0A 3E 77 6D 20 27 22 21 64 idth!'..>wm '"!d
002640: 69 73 63 41 21 22 2C 22 21 64 69 73 63 42 21 22 iscA!","!discB!"
002650: 2C 22 21 64 69 73 63 43 21 22 2C 22 21 64 69 73 ,"!discC!","!dis
002660: 63 44 21 22 2C 22 21 64 69 73 63 45 21 22 2C 22 cD!","!discE!","
002670: 21 76 61 74 6E 75 6D 21 22 27 0D 0A 3E 77 6D 20 !vatnum!"'..>wm
002680: 27 21 70 72 63 6F 6E 61 6D 65 21 2C 21 65 78 6F '!prconame!,!exo
002690: 72 69 6E 63 21 2C 21 73 68 6F 77 64 69 73 63 21 rinc!,!showdisc!
0026A0: 2C 21 61 73 6B 66 6E 21 2C 21 61 73 6B 63 61 72 ,!askfn!,!askcar
0026B0: 21 2C 21 75 73 65 70 72 6F 64 21 2C 21 64 65 66 !,!useprod!,!def
0026C0: 64 69 73 63 21 27 0D 0A 3E 77 6D 20 27 21 63 61 disc!'..>wm '!ca
0026D0: 6C 69 6E 65 21 2C 21 61 6C 69 6E 65 21 2C 21 74 line!,!aline!,!t
0026E0: 6C 69 6E 65 21 2C 21 74 6F 74 6C 69 6E 65 21 27 line!,!totline!'
0026F0: 0D 0A 3E 77 6D 20 27 21 73 69 64 65 21 2C 21 72 ..>wm '!side!,!r
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 00 02 09 4E E5 02 00 C1 02 00 00 00 02 ......N.........
002720: 02 00 C6 02 00 00 00 02 02 00 C2 02 00 00 00 02 ................
002730: 02 00 C7 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002740: 02 00 C8 02 00 00 00 02 02 00 C4 02 00 00 00 02 ................
002750: 02 00 C9 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
002810: 37 36 34 7C 7C 37 36 36 7C 1A 3E 3E 0D 0A 3E 3E 764||766|.>>..>>
002820: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
002830: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
002840: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
002850: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
002860: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
002870: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
002880: 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 s_ver=""..>sv cp
002890: 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 6E 20 m="1"..>ei..>in
0028A0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 63 3D fm$pfi$..>sv oc=
0028B0: 22 43 20 2D 20 43 6F 75 6E 74 20 72 65 63 6F 72 "C - Count recor
0028C0: 64 73 22 0D 0A 3E 73 76 20 6F 73 3D 22 53 20 2D ds"..>sv os="S -
0028D0: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 22 Select records"
0028E0: 0D 0A 3E 73 76 20 6F 6C 3D 22 4C 20 2D 20 4C 69 ..>sv ol="L - Li
0028F0: 73 74 20 63 75 72 72 65 6E 74 20 66 69 6C 65 20 st current file
002900: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
002910: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
002920: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
002930: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
002940: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
002950: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
002960: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
002970: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
002980: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
002990: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0029A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0029B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0029C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0029D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0029E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0029F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
002A00: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
002A10: 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ; id df..>>>..>i
002A20: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
002A30: 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 31 20 2D dm "Option S.1 -
002A40: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 Select records
002A50: 28 73 69 6E 67 6C 65 20 73 69 6D 70 6C 65 20 63 (single simple c
002A60: 6F 6E 64 69 74 69 6F 6E 29 22 0D 0A 3E 64 6D 20 ondition)"..>dm
002A70: 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 " "..>in fm$pfi$
002A80: 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 ..>sv fv=fv[1] r
002A90: 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 len=rlen[w1]..>i
002AA0: 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C f fv="f"..>sv fl
002AB0: 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A ist=">ru"..>el..
002AC0: 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D >sv flist=">rv".
002AD0: 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E .>ei..>sv n=0..>
002AE0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
002AF0: 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 n[w1]..>sv flist
002B00: 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A =flist+" f&n&"..
002B10: 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 73 76 >un n>=rlen..>sv
002B20: 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E 3D 6E n=n+1 m=n+1 n=n
002B30: 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 [w1] m=m[w1]..>s
002B40: 76 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 3D 22 v f&n&="" f&m&="
002B50: 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 "..>>>..>dm "Fie
002B60: 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 ld names: "..>sv
002B70: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
002B80: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
002B90: 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 v s=n&n&..>dm f&
002BA0: 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 n&: &s&..>un n=r
002BB0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
002BC0: 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 6E 74 "..>dm "When ent
002BD0: 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F 6E 73 ering conditions
002BE0: 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 20 72 below, please r
002BF0: 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 6C 6F emember to enclo
002C00: 3E 72 70 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 >rp..>rv a0,a1,a
002C10: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
002C20: 2C 78 0D 0A 3E 69 66 20 6E 20 69 6E 20 61 30 0D ,x..>if n in a0.
002C30: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 46 6F .>dm " "..>dm Fo
002C40: 75 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 und: '&a0&'..>av
002C50: 20 22 49 73 20 74 68 69 73 20 63 6F 72 72 65 63 "Is this correc
002C60: 74 20 28 59 2F 6E 29 3F 20 22 20 64 20 31 0D 0A t (Y/n)? " d 1..
002C70: 3E 65 69 0D 0A 3E 69 66 20 61 30 3D 22 65 6E 64 >ei..>if a0="end
002C80: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
002C90: 22 41 63 63 6F 75 6E 74 20 6E 6F 74 20 66 6F 75 "Account not fou
002CA0: 6E 64 22 0D 0A 3E 73 76 20 64 3D 22 79 22 0D 0A nd"..>sv d="y"..
002CB0: 3E 65 69 0D 0A 3E 75 6E 20 64 3C 3E 22 6E 22 0D >ei..>un d<>"n".
002CC0: 0A 3E 3E 3E 63 66 0D 0A 3E 65 69 0D 0A 3E 69 66 .>>>cf..>ei..>if
002CD0: 20 61 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 a0="end" ; if
002CE0: 20 6E 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 not searching d
002CF0: 61 74 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 atafile or not f
002D00: 6F 75 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 ound..>sv a3=""
002D10: 61 34 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 a4="" a5="" a6="
002D20: 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 " a7=""..>dm " "
002D30: 0D 0A 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 ..>dm Enter name
002D40: 20 61 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 and address, or
002D50: 20 70 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F press RETURN to
002D60: 20 72 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D return to menu.
002D70: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E .>dm " "..>av "N
002D80: 61 6D 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A ame: " a0..
002D90: 3E 69 66 20 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A >if a0=""..>wc..
002DA0: 3E 73 76 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 >sv number=numbe
002DB0: 72 2D 31 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 r-1 number=numbe
002DC0: 72 5B 77 31 5D 0D 0A 3E 77 66 20 6F 6D 69 6E 76 r[w1]..>wf ominv
002DD0: 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 6D 20 26 6E 75 gen.num..>wm &nu
002DE0: 6D 62 65 72 26 0D 0A 3E 77 63 0D 0A 3E 63 66 0D mber&..>wc..>cf.
002DF0: 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D 0A 3E 73 .>ex exec om..>s
002E00: 73 65 20 73 74 72 69 6E 67 73 20 69 6E 20 71 75 se strings in qu
002E10: 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E 67 2E otes"..>dm 'e.g.
002E20: 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 34 0D "London" in F4.
002E30: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 6B .>dm " "..>sv ok
002E40: 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 22 30 31 ="'" + '"' + "01
002E50: 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 76 20 23456789."..>sv
002E60: 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 n="1"..>rp..>av
002E70: 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 6F 6E "Enter condition
002E80: 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 76 20 65 &n&: " s..>sv e
002E90: 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D 0D 0A 3E rr=0 s=s[w1:]..>
002EA0: 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 66 20 63 sv c&n&=s..>if c
002EB0: 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 1=""..>ex exec f
002EC0: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 69 66 m..>st..>ei..>if
002ED0: 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 s[1]="f"..>if s
002EE0: 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 [2] notin "*1234
002EF0: 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 56789"..>sv err=
002F00: 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 1..>ei..>el..>if
002F10: 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A s[1] notin ok..
002F20: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
002F30: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 73 3D >ei..>>>..>sv s=
002F40: 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 66 20 73 c&n&[w-1]..>if s
002F50: 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 5B 32 [1]="f"..>if s[2
002F60: 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 35 36 ] notin "*123456
002F70: 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 789"..>sv err=1.
002F80: 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 73 .>ei..>el..>if s
002F90: 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A 3E 73 [1] notin ok..>s
002FA0: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
002FB0: 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 72 72 3D i..>>>..>if err=
002FC0: 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 0..>sv n=n+1 n=n
002FD0: 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 [w1]..>el..>dm "
002FE0: 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 22 0D 0A Invalid input"..
002FF0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 31 0D 0A 3E 3E >ei..>un n>1..>>
003000: 6D 0D 0A 1A 45 4C 31 20 20 50 4D 4D 00 00 00 00 m...EL1 PMM....
003010: 00 00 0A 00 00 7A 01 00 DA 04 00 00 00 00 00 00 .....z..........
003020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003040: DA 04 00 FC 04 75 22 0D 0A 3E 73 76 20 66 3D 6E .....u"..>sv f=n
003050: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
003060: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
003070: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
003080: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
003090: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
0030A0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
0030B0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
0030C0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
0030D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
0030E0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
0030F0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
003100: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
003110: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
003120: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
003130: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
003140: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
003150: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
003160: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
003170: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
003180: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
003190: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
0031A0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
0031B0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
0031C0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
0031D0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
0031E0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
0031F0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
003200: 3E 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 >..>sv ff=""..>i
003210: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
003220: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
003230: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
003240: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
003250: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
003260: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
003270: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
003280: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
003290: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
0032A0: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 73 76 20 6E sv f0=f1"..>sv n
0032B0: 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =1..>rp..>sv n=n
0032C0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0032D0: 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E ff=ff+"+f&n&"..>
0032E0: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 un n>=rlen..>ei
0032F0: 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 64 6D 20 ; f* in c1..>dm
003300: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
003310: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
003320: 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A =0..>df fm.mus..
003330: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
003340: 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 f mus="m"..>df &
003350: 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 df& fo$end$..>ei
003360: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
003370: 64 66 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 df &newfile& fo$
003380: 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D end$..>ei..>if m
003390: 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C us="s"..>df &sel
0033A0: 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E file& fo$end$..>
0033B0: 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 ei..>wf &selfile
0033C0: 26 0D 0A 3E 3E 3E 0D 0A 3E 65 69 20 3B 20 69 75 &..>>>..>ei ; iu
0033D0: 20 64 66 0D 0A 1A 0D 0A 3E 69 66 20 66 76 3D 22 df.....>if fv="
0033E0: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
0033F0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
003400: 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 64 ..>if x="yy"..>d
003410: 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 65 m "Discount type
003420: 20 6E 75 6D 62 65 72 73 3A 20 20 20 20 22 0D 0A numbers: "..
003430: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
003440: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 v n=n+1 n=n[w1]
003450: 6D 3D 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E m=n+1 m=m[w1]..>
003460: 73 76 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 sv text = n + "
003470: 3D 20 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 = " + discA[w&n&
003480: 5D 20 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B ] + " " + discB[
003490: 77 26 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 w&n&] + " "..>sv
0034A0: 20 74 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 text = text + d
0034B0: 69 73 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 iscC[w&n&] + " "
0034C0: 20 2B 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B + discD[w&n&] +
0034D0: 20 22 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E " " + discE[w&n
0034E0: 26 5D 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A &]..>dm &text&..
0034F0: 3E 75 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D >un discA[w&m&]=
003500: 22 22 0D 0A 3E 73 76 20 63 75 73 74 64 69 73 63 ""..>sv custdisc
003510: 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 20 75 73 =defdisc..>if us
003520: 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 22 eprod="y"..>av "
003530: 44 69 73 63 6F 75 6E 74 20 74 79 70 65 20 28 6E Discount type (n
003540: 75 6D 62 65 72 2C 20 30 3D 66 75 6C 6C 20 70 72 umber, 0=full pr
003550: 69 63 65 29 20 5B 26 64 65 66 64 69 73 63 26 5D ice) [&defdisc&]
003560: 3A 20 20 20 20 22 2C 78 0D 0A 3E 69 66 20 78 3C : ",x..>if x<
003570: 3E 22 22 0D 0A 3E 73 76 20 63 75 73 74 64 69 73 >""..>sv custdis
003580: 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E c=x..>ei..>ei..>
003590: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 ei..>>>..>sv car
0035A0: 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D =""..>if askcar=
0035B0: 22 79 22 0D 0A 3E 61 76 20 22 43 61 72 72 69 61 "y"..>av "Carria
0035C0: 67 65 3A 20 20 20 20 20 20 20 20 22 2C 63 61 72 ge: ",car
0035D0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 61 72 3D 22 ..>ei..>if car="
0035E0: 22 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A 3E 65 "..>sv car=0..>e
0035F0: 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 65 3D i..>sv footnote=
003600: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
003610: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
003620: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
003630: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
003640: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
003650: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
003660: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
003670: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
003680: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
003690: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0036A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0036B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0036C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0036D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0036E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0036F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
003700: 3E 77 6D 20 26 73 26 0D 0A 3E 69 66 20 73 3D 22 >wm &s&..>if s="
003710: 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E "..>sv n=rlen..>
003720: 65 69 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A ei..>un n=rlen..
003730: 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E >ei ; f/v..>sv n
003740: 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 n=nn+1..>el ; f1
003750: 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B =end..>sv nn=nn[
003760: 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 w1]..>dm " "..>w
003770: 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 t "&nn& records
003780: 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B found. Press a k
003790: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E ey to continue .
0037A0: 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 ....>wc..>cf..>e
0037B0: 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A x exec fm..>st..
0037C0: 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 >ei..>sk 0=0..>e
0037D0: 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A i ; id df..>>>..
0037E0: 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D >iu df..>cs " ".
0037F0: 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 35 .>dm "Option S.5
003800: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
003810: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
003820: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
003830: 3E 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 >el..>sk0=0..>ei
003840: 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E ..>zm..>npoff..>
003850: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
003860: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
003870: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
003880: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
003890: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
0038A0: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
0038B0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0038C0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
0038D0: 6E 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 n&..>if s=""..>s
0038E0: 76 20 73 3D 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D v s=n+1 m=n+2 s=
0038F0: 73 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E s[w1] m=m[w1]..>
003900: 73 76 20 73 3D 66 26 73 26 2B 66 26 6D 26 0D 0A sv s=f&s&+f&m&..
003910: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D >if s=""..>sv n=
003920: 72 6C 65 6E 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 rlen..>el..>sv s
003930: 3D 22 24 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A ="$"..>ei..>ei..
003940: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
003950: 6C 65 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A len..>ei ; f/v..
003960: 3E 73 76 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C >sv nn=nn+1..>el
003970: 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E ; f1=end..>sv n
003980: 6E 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 n=nn[w1]..>dm "
003990: 22 0D 0A 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 "..>wt "&nn& rec
0039A0: 6F 72 64 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 ords found. Pres
0039B0: 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 s a key to conti
0039C0: 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 nue .....>wc..>c
0039D0: 66 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 f.; let exec hav
0039E0: 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 e handle 0..>ex
0039F0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 00 02 09 4E E5 03 00 C1 02 00 00 00 02 ......N.........
003A20: 03 00 C6 02 00 00 00 02 03 00 C2 02 00 00 00 02 ................
003A30: 03 00 C7 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A40: 03 00 C8 02 00 00 00 02 03 00 C4 02 00 00 00 02 ................
003A50: 03 00 C9 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 6F 75 6E discount=discoun
003B10: 74 2F 31 30 30 20 64 69 73 63 6F 75 6E 74 3D 31 t/100 discount=1
003B20: 2D 64 69 73 63 6F 75 6E 74 0D 0A 3E 65 69 0D 0A -discount..>ei..
003B30: 3E 73 76 20 75 70 72 69 63 65 3D 70 72 69 63 65 >sv uprice=price
003B40: 6E 2A 64 69 73 63 6F 75 6E 74 0D 0A 3E 73 76 20 n*discount..>sv
003B50: 70 72 69 63 65 3D 71 75 61 6E 74 6E 2A 75 70 72 price=quantn*upr
003B60: 69 63 65 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 3B ice..>ei..>el ;
003B70: 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C 65 no product file
003B80: 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 63 ..>av "Product c
003B90: 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E 69 ode: " coden..>i
003BA0: 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 f coden=""..>sv
003BB0: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 66 n=maxn..>ei..>if
003BC0: 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 coden<>""..>av
003BD0: 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 22 "Description : "
003BE0: 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 61 descn..>av "Qua
003BF0: 6E 74 69 74 79 20 20 20 20 3A 20 22 20 71 75 61 ntity : " qua
003C00: 6E 74 6E 0D 0A 3E 69 66 20 71 75 61 6E 74 6E 3D ntn..>if quantn=
003C10: 22 22 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D 22 ""..>sv quantn="
003C20: 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 61 "..>ei..>if qua
003C30: 6E 74 6E 5B 31 5D 20 6E 6F 74 69 6E 20 22 30 31 ntn[1] notin "01
003C40: 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 22 23456789"..>dm "
003C50: 4E 6F 74 20 61 20 6E 75 6D 62 65 72 2E 20 50 6C Not a number. Pl
003C60: 65 61 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A ease re-enter"..
003C70: 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 >sv coden=""..>e
003C80: 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 i..>ei..>if code
003C90: 6E 3C 3E 22 22 0D 0A 3E 61 76 20 22 55 6E 69 74 n<>""..>av "Unit
003CA0: 20 70 72 69 63 65 20 20 20 A3 22 20 75 70 72 69 price £" upri
003CB0: 63 65 0D 0A 3E 69 66 20 75 70 72 69 63 65 3D 22 ce..>if uprice="
003CC0: 22 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D 22 20 "..>sv uprice="
003CD0: 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 75 70 72 69 "..>ei..>if upri
003CE0: 63 65 5B 31 5D 20 6E 6F 74 69 6E 20 22 2E 30 31 ce[1] notin ".01
003CF0: 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 22 23456789"..>dm "
003D00: 6C 20 66 6D 69 6E 69 74 7C 31 33 7C 79 7C 36 33 l fminit|13|y|63
003D10: 39 7C 7C 31 36 7C 70 73 0D 0A 1A 00 00 00 00 00 9||16|ps........
003D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D40: 10 00 00 50 02 6C 6F 61 64 20 66 6D 65 6E 75 0D ...P.load fmenu.
003D50: 0A 70 73 0D 0A 1A 20 32 34 34 37 36 39 0D 0A 31 .ps... 244769..1
003D60: 32 61 20 73 74 20 6D 61 72 79 73 20 73 74 72 65 2a st marys stre
003D70: 65 74 0D 0A 66 61 72 63 65 74 0D 0A 70 62 6F 72 et..farcet..pbor
003D80: 45 0D 0A 6E 74 6E 65 78 74 09 09 64 6A 6E 7A 20 E..ntnext..djnz
003D90: 6E 65 67 74 79 70 65 6C 6F 6F 70 0D 0A 0D 0A 49 negtypeloop....I
003DA0: 46 20 64 65 62 75 67 0D 0A 6A 72 20 79 79 79 0D F debug..jr yyy.
003DB0: 0A 6D 2E 79 79 79 20 74 65 78 74 20 22 53 6F 72 .m.yyy text "Sor
003DC0: 74 66 69 65 6C 64 73 20 26 20 74 79 70 65 73 22 tfields & types"
003DD0: 2C 22 20 22 2B 31 32 38 0D 0A 79 79 79 0D 0A 09 ," "+128..yyy...
003DE0: 6C 64 20 68 6C 2C 6D 2E 79 79 79 3A 63 61 6C 6C ld hl,m.yyy:call
003DF0: 20 63 6F 6C 31 74 65 78 74 0D 0A 09 6C 64 20 62 col1text...ld b
003E00: 2C 4D 41 58 4B 45 59 53 0D 0A 09 6C 64 20 64 65 ,MAXKEYS...ld de
003E10: 2C 73 6F 72 74 66 69 65 6C 64 0D 0A 79 79 79 6C ,sortfield..yyyl
003E20: 6F 6F 70 09 70 75 73 68 20 62 63 0D 0A 09 70 75 oop.push bc...pu
003E30: 73 68 20 64 65 0D 0A 09 63 61 6C 6C 20 63 6F 6C sh de...call col
003E40: 31 0D 0A 09 6C 64 20 61 2C 28 64 65 29 0D 0A 09 1...ld a,(de)...
003E50: 6C 64 20 6C 2C 61 3A 6C 64 20 68 2C 30 0D 0A 09 ld l,a:ld h,0...
003E60: 6F 72 20 61 3A 6A 72 20 7A 2C 79 79 79 6E 65 78 or a:jr z,yyynex
003E70: 74 0D 0A 09 63 61 6C 6C 20 64 65 63 6F 75 74 6C t...call decoutl
003E80: 65 66 74 0D 0A 09 63 61 6C 6C 20 73 70 61 63 65 eft...call space
003E90: 0D 0A 09 6C 64 20 61 2C 28 64 65 29 0D 0A 09 62 ...ld a,(de)...b
003EA0: 69 74 20 37 2C 61 3A 6A 72 20 6E 7A 2C 69 73 6E it 7,a:jr nz,isn
003EB0: 65 67 61 0D 0A 09 61 6E 64 20 31 35 0D 0A 09 6C ega...and 15...l
003EC0: 64 20 68 6C 2C 73 6F 72 74 74 79 70 65 3A 63 61 d hl,sorttype:ca
003ED0: 6C 6C 20 61 64 64 68 6C 61 0D 0A 09 6C 64 20 6C ll addhla...ld l
003EE0: 2C 28 68 6C 29 3A 6C 64 20 68 2C 30 3A 63 61 6C ,(hl):ld h,0:cal
003EF0: 6C 20 64 65 63 6F 75 74 6C 65 66 74 3A 63 61 6C l decoutleft:cal
003F00: 3E 7A 6D 0D 0A 3E 63 73 0D 0A 3E 6E 70 6F 66 66 >zm..>cs..>npoff
003F10: 0D 0A 3E 3E 3E 6C 65 6E 20 6D 75 73 74 20 62 65 ..>>>len must be
003F20: 20 31 32 38 6E 20 66 6F 72 20 43 50 2F 4D 0D 0A 128n for CP/M..
003F30: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D >---------!-----
003F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003F50: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 21 2D 2D -------.-----!--
003F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D 0A 0D 0A -----------R....
003F80: 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 ad..Peterborough
003F90: 0D 0A 50 45 32 20 30 42 55 0D 0A EC 0D 0A 0D 0A ..PE2 0BU.......
003FA0: 0D 0A 73 64 0D 0A 0D 0A 0D 0A 09 EC 53 54 41 54 ..sd........STAT
003FB0: 45 4D 45 4E 54 EC 0D 0A 09 0D 0A 09 44 61 74 65 EMENT.......Date
003FC0: 20 20 20 20 20 20 20 31 35 20 4D 61 72 63 68 20 15 March
003FD0: 31 39 38 38 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1988............
003FE0: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D >-------------!-
003FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004000: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 !--------------!
004010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004020: 21 2D 2D 2D 2D 2D 2D 2D 2D 52 0D 0A 44 41 54 45 !--------R..DATE
004030: 09 49 4E 56 4F 49 43 45 20 4E 4F 2E 09 20 20 20 .INVOICE NO..
004040: 44 45 42 49 54 09 20 20 43 52 45 44 49 54 09 42 DEBIT. CREDIT.B
004050: 41 4C 41 4E 43 45 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D ALANCE..>-------
004060: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
004070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
004080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D ------------.---
004090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
0040A0: 2D 52 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A -R..............
0040B0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
0040C0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
0040D0: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 20 0D .. .. .. .. .. .
0040E0: 0A 20 0D 0A 20 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 2D . .. ..>--------
0040F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
004100: 0D 0A 26 73 63 26 21 63 6F 61 35 21 EC 0D 0A 3E ..&sc&!coa5!...>
004110: 65 69 0D 0A 3E 73 76 6E 3D 61 6C 2D 63 61 6C 2D ei..>svn=al-cal-
004120: 36 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 6..>rp..&sc&..>s
004130: 76 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A vn=n-1..>unn=0..
004140: 26 73 63 26 21 61 30 21 0D 0A 26 73 63 26 21 61 &sc&!a0!..&sc&!a
004150: 31 21 0D 0A 26 73 63 26 21 61 32 21 0D 0A 26 73 1!..&sc&!a2!..&s
004160: 63 26 21 61 33 21 09 EC 26 74 26 EC 0D 0A 26 73 c&!a3!..&t&...&s
004170: 63 26 21 61 34 21 09 0D 0A 26 73 63 26 21 61 35 c&!a4!...&sc&!a5
004180: 21 09 44 61 74 65 20 20 20 20 20 20 20 26 68 26 !.Date &h&
004190: 0D 0A 26 73 63 26 21 61 36 21 0D 0A 26 73 63 26 ..&sc&!a6!..&sc&
0041A0: 21 61 37 21 0D 0A 3E 73 76 6E 3D 74 6C 2D 61 6C !a7!..>svn=tl-al
0041B0: 2D 38 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E -8..>rp..&sc&..>
0041C0: 73 76 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D svn=n-1..>unn=0.
0041D0: 0A 3E 77 66 6F 6E 0D 0A 26 72 32 26 0D 0A 3E 77 .>wfon..&r2&..>w
0041E0: 66 6F 66 66 0D 0A 26 73 63 26 44 41 54 45 09 49 foff..&sc&DATE.I
0041F0: 4E 56 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 NVOICE NO.. DE
004200: 42 49 54 09 20 20 43 52 45 44 49 54 09 42 41 4C BIT. CREDIT.BAL
004210: 41 4E 43 45 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 33 ANCE..>wfon..&r3
004220: 26 0D 0A 3E 77 66 6F 66 66 0D 0A 26 73 63 26 0D &..>wfoff..&sc&.
004230: 0A 3E 73 76 62 3D 69 6E 66 6F 6C 73 0D 0A 3E 64 .>svb=infols..>d
004240: 6D 22 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 m"Enter details
004250: 28 52 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A (RETURN to end):
004260: 20 0D 0A 3E 64 6D 22 20 0D 0A 3E 72 70 0D 0A 3E ..>dm" ..>rp..>
004270: 61 76 22 4F 70 65 6E 69 6E 67 20 62 61 6C 61 6E av"Opening balan
004280: 63 65 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 ce (- for credit
004290: 29 3A 20 A3 22 20 74 6F 74 0D 0A 3E 69 66 20 74 ): £" tot..>if t
0042A0: 6F 74 3D 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 ot=""..>sv tot=0
0042B0: 2E 30 30 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 74 6F .00..>ei..>un to
0042C0: 74 5B 31 5D 20 69 6E 20 22 2D 30 31 32 33 34 35 t[1] in "-012345
0042D0: 36 37 38 39 22 0D 0A 3E 73 76 20 74 6F 74 3D 74 6789"..>sv tot=t
0042E0: 6F 74 2B 30 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 ot+0..>if tot<>0
0042F0: 0D 0A 26 73 63 26 43 61 72 72 69 65 64 20 66 77 ..&sc&Carried fw
004300: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
004310: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
004320: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
004330: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
004340: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
004350: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
004360: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
004370: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
004380: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
004390: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
0043A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
0043B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
0043C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0043D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
0043E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
0043F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
004400: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
004410: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
004420: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
004430: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
004440: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
004450: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
004460: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
004470: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
004480: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
004490: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
0044A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
0044B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
0044C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
0044D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
0044E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
0044F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
004500: 70 73 20 41 3A 69 35 2E 70 6F 69 7C 31 33 7C 3B ps A:i5.poi|13|;
004510: 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 Press a key to
004520: 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 continue:|13|pau
004530: 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 se|13|load omenu
004540: 7C 31 33 7C 70 73 0D 0A 1A 0D 0A 3E 3E 3E 0D 0A |13|ps.....>>>..
004550: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
004560: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
004570: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
004580: 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 5D 2B ashes[1:&r2c5&]+
004590: 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 34 3D "R"..>sv ruler4=
0045A0: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
0045B0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 31 ]+"!"+dashes[1:1
0045C0: 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B 31 3A 4]+"L"+dashes[1:
0045D0: 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 20 6E 7]+".--R"..>sv n
0045E0: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
0045F0: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
004600: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
004610: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
004620: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
004630: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
004640: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
004650: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
004660: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
004670: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
004680: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
004690: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
0046A0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
0046B0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
0046C0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
0046D0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
0046E0: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 invgen.inf..>id
0046F0: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 cpm..>ex ren omi
004700: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 6F cf..>ex exec omo
004710: 70 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 pt&opt&..>st..>e
004720: 69 20 3B 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 i ; opt in "qsj"
004730: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
004740: 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 46 >>..>>> OPTION F
004750: 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>
004760: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D >>>>>>..>if opt=
004770: 22 66 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 "f"..>cf..>ex ex
004780: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
004790: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
0047A0: 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 >..>>> OPTION L
0047B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
0047C0: 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 >>>>>..>if opt="
0047D0: 6C 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 l"..>cf..>ex exe
0047E0: 63 20 6F 6D 6F 70 74 6C 0D 0A 3E 73 74 0D 0A 3E c omoptl..>st..>
0047F0: 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ei..>>>>>>>>>>>>
004800: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
004810: 20 44 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E D >>>..>>>>>>>>
004820: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
004830: 74 3D 22 64 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="d"..>cs " "..
004840: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
004850: 6E 2E 64 61 74 0D 0A 3E 72 76 20 64 61 74 65 0D n.dat..>rv date.
004860: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 75 72 72 .>av "Enter curr
004870: 65 6E 74 20 64 61 74 65 20 5B 26 64 61 74 65 26 ent date [&date&
004880: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C 3E 22 ]: " x..>if x<>"
004890: 22 0D 0A 3E 73 76 20 64 61 74 65 3D 78 0D 0A 3E "..>sv date=x..>
0048A0: 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 id cpm..>cf..>df
0048B0: 20 6F 6D 65 6E 75 0D 0A 3E 65 69 0D 0A 3E 77 66 omenu..>ei..>wf
0048C0: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
0048D0: 77 6D 20 26 64 61 74 65 26 0D 0A 3E 77 63 0D 0A wm &date&..>wc..
0048E0: 3E 65 69 20 3B 78 0D 0A 3E 63 66 0D 0A 3E 64 66 >ei ;x..>cf..>df
0048F0: 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D omenu..>sk 0=0.
004900: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
004910: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
004920: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
004930: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
004940: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
004950: 61 34 2C 63 6F 61 35 0D 0A 3E 3E 3E 0D 0A 3E 61 a4,coa5..>>>..>a
004960: 76 20 22 53 74 61 74 65 6D 65 6E 74 20 74 6F 20 v "Statement to
004970: 70 72 69 6E 74 65 72 20 6F 72 20 66 69 6C 65 20 printer or file
004980: 28 70 2F 46 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (p/F)? " x 1..>i
004990: 66 20 78 3D 22 70 22 0D 0A 3E 73 76 20 69 63 3D f x="p"..>sv ic=
0049A0: 22 70 22 20 73 63 3D 22 22 0D 0A 3E 65 6C 0D 0A "p" sc=""..>el..
0049B0: 3E 72 70 0D 0A 3E 61 76 20 22 4E 61 6D 65 20 6F >rp..>av "Name o
0049C0: 66 20 66 69 6C 65 3A 20 22 20 6E 61 6D 65 20 38 f file: " name 8
0049D0: 0D 0A 3E 75 6E 20 6E 61 6D 65 3C 3E 22 22 0D 0A ..>un name<>""..
0049E0: 3E 73 76 20 6E 61 6D 65 3D 22 26 69 6E 76 70 61 >sv name="&invpa
0049F0: 74 68 26 26 6E 61 6D 65 26 2E 70 6F 73 22 0D 0A th&&name&.pos"..
004A00: 3E 73 76 20 69 63 3D 22 70 66 20 26 6E 61 6D 65 >sv ic="pf &name
004A10: 26 22 20 73 63 3D 22 3E 77 6D 20 22 0D 0A 3E 77 &" sc=">wm "..>w
004A20: 66 20 26 6E 61 6D 65 26 0D 0A 3E 65 69 0D 0A 3E f &name&..>ei..>
004A30: 77 66 6F 6E 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 wfon..>zm..>tm&c
004A40: 61 6C 26 0D 0A 3E 73 6D 26 73 69 64 65 26 0D 0A al&..>sm&side&..
004A50: 3E 77 66 6F 66 66 0D 0A 3E 3E 3E 63 66 0D 0A 3E >wfoff..>>>cf..>
004A60: 3E 3E 64 66 6F 6D 73 74 61 67 65 6E 2E 69 6E 66 >>dfomstagen.inf
004A70: 0D 0A 3E 3E 3E 72 76 69 63 0D 0A 3E 69 66 69 63 ..>>>rvic..>ific
004A80: 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 66 6F 6E 0D [2]<>"f"..>wfon.
004A90: 0A 3E 66 66 6F 6E 0D 0A 3E 77 66 6F 66 66 0D 0A .>ffon..>wfoff..
004AA0: 3E 65 69 0D 0A 3E 73 76 74 3D 22 53 54 41 54 45 >ei..>svt="STATE
004AB0: 4D 45 4E 54 22 0D 0A 3E 73 76 6D 6E 3D 30 0D 0A MENT"..>svmn=0..
004AC0: 3E 73 76 64 3D 22 6E 22 20 61 30 3D 22 65 6E 64 >svd="n" a0="end
004AD0: 22 0D 0A 3E 61 76 22 53 65 61 72 63 68 20 64 61 "..>av"Search da
004AE0: 74 61 66 69 6C 65 20 28 79 2F 4E 29 3F 20 22 20 tafile (y/N)? "
004AF0: 78 20 31 0D 0A 3E 69 66 78 3D 22 79 22 0D 0A 3E x 1..>ifx="y"..>
004B00: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A .>ei ; opt="d"..
004B10: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
004B20: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
004B30: 4E 20 4E 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N N >>>..>>>>>>>
004B40: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
004B50: 70 74 3D 22 6E 22 0D 0A 3E 63 73 20 22 20 22 0D pt="n"..>cs " ".
004B60: 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 .>rp..>av "Enter
004B70: 20 6E 65 78 74 20 69 6E 76 6F 69 63 65 20 6E 75 next invoice nu
004B80: 6D 62 65 72 3A 20 22 20 6E 75 6D 0D 0A 3E 69 66 mber: " num..>if
004B90: 20 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 6E 75 6D num=""..>sv num
004BA0: 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E =" "..>ei..>un n
004BB0: 75 6D 5B 31 5D 20 69 6E 20 22 30 31 32 33 34 35 um[1] in "012345
004BC0: 36 37 38 39 22 0D 0A 3E 73 76 20 6E 75 6D 3D 6E 6789"..>sv num=n
004BD0: 75 6D 5B 77 31 5D 0D 0A 3E 69 64 20 63 70 6D 0D um[w1]..>id cpm.
004BE0: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
004BF0: 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 77 66 en.inf..>ei..>wf
004C00: 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E ominvgen.num..>
004C10: 77 6D 20 26 6E 75 6D 26 0D 0A 3E 77 63 0D 0A 3E wm &num&..>wc..>
004C20: 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 sk 0=0..>ei ; op
004C30: 74 3D 22 6E 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="n"..>>>>>>>>>
004C40: 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 >>>>>>>..>>> OPT
004C50: 49 4F 4E 20 49 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E ION I >>>..>>>>>
004C60: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 >>>>>>>>>>>..>if
004C70: 20 6F 70 74 20 69 6E 20 22 69 63 22 0D 0A 3E 63 opt in "ic"..>c
004C80: 73 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 66 20 s " "..>cf..>df
004C90: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 ominvgen.num..>r
004CA0: 76 20 6E 75 6D 0D 0A 3E 69 66 20 6F 70 74 3D 22 v num..>if opt="
004CB0: 69 22 0D 0A 3E 73 76 20 74 69 74 6C 65 3D 22 49 i"..>sv title="I
004CC0: 4E 56 4F 49 43 45 22 0D 0A 3E 65 6C 0D 0A 3E 73 NVOICE"..>el..>s
004CD0: 76 20 74 69 74 6C 65 3D 22 43 52 45 44 49 54 20 v title="CREDIT
004CE0: 4E 4F 54 45 22 0D 0A 3E 65 69 0D 0A 3E 77 66 20 NOTE"..>ei..>wf
004CF0: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 ominvgen.num..>w
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 00 02 09 4E E5 04 00 C1 02 00 00 00 02 ......N.........
004D20: 04 00 C6 02 00 00 00 02 04 00 C2 02 00 00 00 02 ................
004D30: 04 00 C7 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D40: 04 00 C8 02 00 00 00 02 04 00 C4 02 00 00 00 02 ................
004D50: 04 00 C9 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 70 73 20 6F 6D 73 75 6D 6D 61 72 2E 69 6E 66 0D ps omsummar.inf.
004E10: 0A 3B 0D 0A 3B 20 50 72 65 73 73 20 61 20 6B 65 .;..; Press a ke
004E20: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
004E30: 2E 0D 0A 70 61 75 73 65 0D 0A 70 73 0D 0A 1A 1A ...pause..ps....
004E40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
004E50: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
004E60: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
004E70: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
004E80: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
004E90: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
004EA0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
004EB0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
004EC0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
004ED0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
004EE0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
004EF0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
004F00: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
004F10: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
004F20: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
004F30: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
004F40: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
004F50: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
004F60: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
004F70: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
004F80: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
004F90: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
004FA0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
004FB0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
004FC0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
004FD0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
004FE0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
004FF0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
005000: 3E 73 76 20 63 32 3D 22 30 3D 31 22 0D 0A 3E 65 >sv c2="0=1"..>e
005010: 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 i..>sv ff=""..>i
005020: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
005030: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
005040: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
005050: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
005060: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
005070: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
005080: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
005090: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
0050A0: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
0050B0: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B sv f0=f1"..>ei ;
0050C0: 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A f* in c1..>>>..
0050D0: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 >if "f*" in c2[6
0050E0: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
0050F0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
005100: 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A w1]..>if c2[&n&:
005110: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
005120: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
005130: 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 2=c2[1:&n&]+"f0"
005140: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
005150: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
005160: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
005170: 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E ; f* in c2..>>>
005180: 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A 3E 73 ..>if ff<>""..>s
005190: 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=1..>rp..>sv
0051A0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
0051B0: 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 sv ff=ff+"+f&n&"
0051C0: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0051D0: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 ei..>>>..>dm " "
0051E0: 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 6E 67 ..>dm "Searching
0051F0: 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D 30 0D ..."..>sv nn=0.
005200: 2C 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 ,ruler2,ruler3,r
005210: 75 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 uler4,ruler5..>r
005220: 76 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 v coname,coaddr1
005230: 2C 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 ,coaddr2,coaddr3
005240: 2C 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 ,coaddr4,coaddr5
005250: 0D 0A 3E 77 66 20 26 69 6E 76 64 72 76 26 3A 6F ..>wf &invdrv&:o
005260: 6D 74 65 6D 70 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 20 mtemp..>zm..>tm
005270: 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 26 73 &caline&..>sm &s
005280: 69 64 65 26 0D 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A ide&..>>>..>cf..
005290: 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D >df ominvgen.num
0052A0: 0D 0A 3E 72 76 20 6E 75 6D 62 65 72 2C 74 69 74 ..>rv number,tit
0052B0: 6C 65 0D 0A 3E 64 6D 20 22 49 4E 56 47 45 4E 20 le..>dm "INVGEN
0052C0: 76 31 2E 30 30 20 28 63 29 20 41 72 6E 6F 72 20 v1.00 (c) Arnor
0052D0: 31 39 38 38 20 20 28 26 74 69 74 6C 65 26 29 22 1988 (&title&)"
0052E0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 3E 3E 0D 0A ..>dm " "..>>>..
0052F0: 3E 69 64 20 66 69 6C 65 64 61 74 65 0D 0A 3E 63 >id filedate..>c
005300: 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E f..>df ominvgen.
005310: 64 61 74 0D 0A 3E 72 76 20 73 79 73 5F 64 61 74 dat..>rv sys_dat
005320: 65 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 e..>ei..>>>..>sv
005330: 20 76 61 74 63 66 30 3D 31 0D 0A 3E 73 76 20 76 vatcf0=1..>sv v
005340: 61 74 63 66 31 3D 31 2B 76 61 74 31 09 3B 20 56 atcf1=1+vat1.; V
005350: 41 54 20 63 6F 6E 76 65 72 73 69 6F 6E 20 66 61 AT conversion fa
005360: 63 74 6F 72 73 0D 0A 3E 73 76 20 76 61 74 63 66 ctors..>sv vatcf
005370: 32 3D 31 2B 76 61 74 32 0D 0A 3E 73 76 20 76 61 2=1+vat2..>sv va
005380: 74 63 66 33 3D 31 2B 76 61 74 33 0D 0A 3E 73 76 tcf3=1+vat3..>sv
005390: 20 76 61 74 63 66 34 3D 31 2B 76 61 74 34 0D 0A vatcf4=1+vat4..
0053A0: 3E 73 76 20 76 61 74 63 66 35 3D 31 2B 76 61 74 >sv vatcf5=1+vat
0053B0: 35 0D 0A 3E 73 76 20 63 6F 70 79 70 61 74 68 3D 5..>sv copypath=
0053C0: 69 6E 76 64 72 76 2B 22 3A 22 0D 0A 3E 3E 3E 0D invdrv+":"..>>>.
0053D0: 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 63 .>>> read produc
0053E0: 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 63 t info into desc
0053F0: 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 63 1,desc2,...,pric
005400: 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 .>df fm.mus..>rv
005410: 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 20 6D mus..>cf..>if m
005420: 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 64 66 26 us="m"..>df &df&
005430: 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E fo$end$..>ei..>
005440: 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E 64 66 20 if mus="u"..>df
005450: 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 &newfile& fo$end
005460: 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D $..>ei..>if mus=
005470: 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 6C "s"..>df &selfil
005480: 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D e& fo$end$..>ei.
005490: 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 26 0D 0A .>wf &selfile&..
0054A0: 3E 65 69 20 3B 20 69 66 20 75 6E 64 65 66 69 6E >ei ; if undefin
0054B0: 65 64 20 64 66 0D 0A 1A 20 26 63 32 26 0D 0A 3E ed df... &c2&..>
0054C0: 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D el..>sk0=0..>ei.
0054D0: 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 .>ei..>zm..>npof
0054E0: 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 f..>sv n=0..>if
0054F0: 66 76 3D 22 66 22 20 3B 20 66 69 78 65 64 0D 0A fv="f" ; fixed..
005500: 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E n&:]="f*"..>sv n
005510: 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n-1 n=n[w1]..>s
005520: 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 v c3=c3[1:&n&]+"
005530: 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 f0"..>sv n=0..>e
005540: 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 i..>un n=0..>sv
005550: 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A ff=">sv f0=f1"..
005560: 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A >ei ; f* in c3..
005570: 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D >>>..>if ff<>"".
005580: 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E .>sv n=1..>rp..>
005590: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0055A0: 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 ..>sv ff=ff+"+f&
0055B0: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
0055C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 ..>ei..>>>..>dm
0055D0: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
0055E0: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
0055F0: 3D 30 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D =0..>ei ; iu df.
005600: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
005610: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
005620: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
005630: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
005640: 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D el..>sk0=0..>ei.
005650: 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 .>ei..>zm..>npof
005660: 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 f..>sv n=0..>if
005670: 66 76 3D 22 66 22 20 3B 20 66 69 78 65 64 0D 0A fv="f" ; fixed..
005680: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
005690: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
0056A0: 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E n&..>wm !s!..>un
0056B0: 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 n=rlen..>el ; v
0056C0: 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ar..>rp..>sv n=n
0056D0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0056E0: 73 3D 66 26 6E 26 0D 0A 3E 69 66 20 73 3D 22 22 s=f&n&..>if s=""
0056F0: 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E 2B ..>sv s=n+1 m=n+
005700: 32 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 31 2 s=s[w1] m=m[w1
005710: 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 26 ]..>sv s=f&s&+f&
005720: 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 m&..>if s=""..>s
005730: 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C 0D 0A 3E v n=rlen..>el..>
005740: 73 76 20 73 3D 22 24 22 0D 0A 3E 65 69 0D 0A 3E sv s="$"..>ei..>
005750: 65 69 0D 0A 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E ei..>wm !s!..>un
005760: 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 3B 20 66 n=rlen..>ei ; f
005770: 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 2B 31 0D /v..>sv nn=nn+1.
005780: 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E .>el ; f1=end..>
005790: 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 sv nn=nn[w1]..>d
0057A0: 6D 20 22 20 22 0D 0A 3E 77 74 20 22 26 6E 6E 26 m " "..>wt "&nn&
0057B0: 20 72 65 63 6F 72 64 73 20 66 6F 75 6E 64 2E 20 records found.
0057C0: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
0057D0: 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 ontinue .....>wc
0057E0: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 ..>cf..>ex exec
0057F0: 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 fm..>st..>ei..>s
005800: 20 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 20 69 ; real file i
005810: 6E 20 72 65 61 6C 20 66 69 6C 65 20 28 73 69 63 n real file (sic
005820: 29 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 )..>el..>wf &new
005830: 66 69 6C 65 26 20 61 0D 0A 3E 77 63 0D 0A 3E 65 file& a..>wc..>e
005840: 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 i..>dm " "..>dm
005850: 22 57 72 69 74 69 6E 67 20 66 69 6C 65 73 20 2E "Writing files .
005860: 2E 2E 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 63 .."..>id cpm..>c
005870: 66 0D 0A 3E 64 66 20 66 6D 24 70 66 69 24 09 3B f..>df fm$pfi$.;
005880: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 69 0D 0A handle 0..>ei..
005890: 3E 65 69 20 3B 20 69 75 20 70 66 69 66 69 6C 65 >ei ; iu pfifile
0058A0: 0D 0A 3E 3E 3E 20 4E 6F 77 20 77 72 69 74 65 20 ..>>> Now write
0058B0: 74 68 65 6D 20 6F 75 74 0D 0A 3E 77 66 20 26 70 them out..>wf &p
0058C0: 66 69 66 69 6C 65 26 09 3B 20 68 61 6E 64 6C 65 fifile&.; handle
0058D0: 20 31 0D 0A 3E 77 6D 20 27 3E 73 76 20 20 20 20 1..>wm '>sv
0058E0: 20 20 64 66 3D 22 26 64 66 26 22 0D 0A 3E 77 6D df="&df&"..>wm
0058F0: 20 27 3E 73 76 20 6E 65 77 66 69 6C 65 3D 22 26 '>sv newfile="&
005900: 6E 65 77 66 69 6C 65 26 0D 0A 3E 77 6D 20 27 3E newfile&..>wm '>
005910: 73 76 20 73 65 6C 66 69 6C 65 3D 22 26 73 65 6C sv selfile="&sel
005920: 66 69 6C 65 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 file&"..>wm '>sv
005930: 20 66 76 3D 22 26 66 76 26 22 0D 0A 3E 77 6D 20 fv="&fv&"..>wm
005940: 27 3E 73 76 20 72 6C 65 6E 3D 22 26 72 6C 65 6E '>sv rlen="&rlen
005950: 26 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 &"..>sv n=0..>rp
005960: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
005970: 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D w1]..>sv s=n&n&.
005980: 0A 3E 77 6D 20 27 3E 73 76 20 6E 26 6E 26 3D 22 .>wm '>sv n&n&="
005990: 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &s&"..>un n>=rle
0059A0: 6E 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 73 6F 72 n..>wm '>sv fsor
0059B0: 74 6F 70 74 73 3D 22 26 66 73 6F 72 74 6F 70 74 topts="&fsortopt
0059C0: 73 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 6D 61 s&"..>wm '>sv ma
0059D0: 78 77 3D 22 26 6D 61 78 77 26 22 0D 0A 3E 77 6D xw="&maxw&"..>wm
0059E0: 20 27 3E 73 76 20 6C 61 73 74 62 6C 61 6E 6B 3D '>sv lastblank=
0059F0: 22 26 6C 61 73 74 62 6C 61 6E 6B 26 22 0D 0A 3E "&lastblank&"..>
005A00: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 k 0=0..>ei ; id
005A10: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
005A20: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
005A30: 70 74 69 6F 6E 20 53 2E 32 20 2D 20 53 65 6C 65 ption S.2 - Sele
005A40: 63 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E 64 ct records (cond
005A50: 31 20 4F 52 20 63 6F 6E 64 32 29 22 0D 0A 3E 64 1 OR cond2)"..>d
005A60: 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 m " "..>in fm$pf
005A70: 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D i$..>sv fv=fv[1]
005A80: 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A rlen=rlen[w1]..
005A90: 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 >if fv="f"..>sv
005AA0: 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C flist=">ru"..>el
005AB0: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 ..>sv flist=">rv
005AC0: 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D "..>ei..>sv n=0.
005AD0: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
005AE0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 n=n[w1]..>sv fli
005AF0: 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 st=flist+" f&n&"
005B00: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
005B10: 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E sv n=n+1 m=n+1 n
005B20: 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A =n[w1] m=m[w1]..
005B30: 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 >sv f&n&="" f&m&
005B40: 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 =""..>>>..>dm "F
005B50: 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E ield names: "..>
005B60: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
005B70: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
005B80: 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 >sv s=n&n&..>dm
005B90: 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E f&n&: &s&..>un n
005BA0: 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 =rlen..>>>..>dm
005BB0: 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 " "..>dm "When e
005BC0: 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F ntering conditio
005BD0: 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 ns below, please
005BE0: 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 remember to enc
005BF0: 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 6E 20 lose strings in
005C00: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
005C10: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
005C20: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
005C30: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
005C40: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
005C50: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
005C60: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
005C70: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
005C80: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
005C90: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
005CA0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
005CB0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
005CC0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
005CD0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
005CE0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
005CF0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 20 0D 0A end..end..end ..
005D00: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
005D10: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
005D20: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
005D30: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
005D40: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
005D50: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
005D60: 4E 20 55 20 20 2A 2A 2A 0D 0A 3E 64 6D 20 22 20 N U ***..>dm "
005D70: 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 "..>dm "
005D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
005D90: 20 2D 20 50 72 69 6E 74 20 61 6E 20 49 6E 76 6F - Print an Invo
005DA0: 69 63 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 ice..>dm "
005DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005DC0: 20 43 20 2D 20 50 72 69 6E 74 20 61 20 43 72 65 C - Print a Cre
005DD0: 64 69 74 20 6E 6F 74 65 0D 0A 3E 64 6D 20 22 20 dit note..>dm "
005DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005DF0: 20 20 20 20 20 20 53 20 2D 20 50 72 69 6E 74 20 S - Print
005E00: 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E quotes"..>dm 'e.
005E10: 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 g. "London" in F
005E20: 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 4..>dm " "..>sv
005E30: 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 22 ok="'" + '"' + "
005E40: 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 0123456789."..>s
005E50: 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 v n="1"..>rp..>a
005E60: 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 v "Enter conditi
005E70: 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 76 on &n&: " s..>sv
005E80: 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D 0D err=0 s=s[w1:].
005E90: 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 66 .>sv c&n&=s..>if
005EA0: 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 63 c1=""..>ex exec
005EB0: 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E fm..>st..>ei..>
005EC0: 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 if s[1]="f"..>if
005ED0: 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 s[2] notin "*12
005EE0: 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 3456789"..>sv er
005EF0: 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E r=1..>ei..>el..>
005F00: 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B if s[1] notin ok
005F10: 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 ..>sv err=1..>ei
005F20: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 ..>ei..>>>..>sv
005F30: 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 66 s=c&n&[w-1]..>if
005F40: 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 s[1]="f"..>if s
005F50: 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 [2] notin "*1234
005F60: 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 56789"..>sv err=
005F70: 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 1..>ei..>el..>if
005F80: 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A s[1] notin ok..
005F90: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
005FA0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 72 >ei..>>>..>if er
005FB0: 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E r=0..>sv n=n+1 n
005FC0: 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 6D =n[w1]..>el..>dm
005FD0: 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 22 "Invalid input"
005FE0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 32 0D 0A ..>ei..>un n>2..
005FF0: 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 0D 0A >>>..>if c2=""..
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 00 02 09 4E E5 05 00 C1 02 00 00 00 02 ......N.........
006020: 05 00 C6 02 00 00 00 02 05 00 C2 02 00 00 00 02 ................
006030: 05 00 C7 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006040: 05 00 C8 02 00 00 00 02 05 00 C4 02 00 00 00 02 ................
006050: 05 00 C9 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
006110: 4D 61 6B 69 6E 67 20 4D 6F 76 69 65 73 0D 0A 43 Making Movies..C
006120: 44 0D 0A 31 39 38 30 0D 0A 0D 0A 0D 0A 0D 0A 44 D..1980........D
006130: 76 6F 72 08 04 61 6B 0D 0A 53 79 6D 70 68 6F 6E vor..ak..Symphon
006140: 79 20 6E 6F 2E 20 39 20 27 46 72 6F 6D 20 74 68 y no. 9 'From th
006150: 65 20 4E 65 77 20 57 6F 72 6C 64 27 0D 0A 43 44 e New World'..CD
006160: 0D 0A 31 39 38 37 0D 0A 4C 6F 6E 64 6F 6E 20 53 ..1987..London S
006170: 2E 4F 2E 0D 0A 42 61 72 72 79 20 54 75 63 6B 77 .O...Barry Tuckw
006180: 65 6C 6C 0D 0A 0D 0A 45 61 67 6C 65 73 0D 0A 48 ell....Eagles..H
006190: 6F 74 65 6C 20 43 61 6C 69 66 6F 72 6E 69 61 0D otel California.
0061A0: 0A 43 44 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D .CD..1976.......
0061B0: 0A 45 6C 65 63 74 72 69 63 20 4C 69 67 68 74 20 .Electric Light
0061C0: 4F 72 63 68 65 73 74 72 61 0D 0A 4F 75 74 20 6F Orchestra..Out o
0061D0: 66 20 74 68 65 20 42 6C 75 65 0D 0A 52 65 63 6F f the Blue..Reco
0061E0: 72 64 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D 0A rd..1976........
0061F0: 45 6C 67 61 72 0D 0A 45 6E 69 67 6D 61 20 56 61 Elgar..Enigma Va
006200: 72 69 61 74 69 6F 6E 73 0D 0A 43 44 0D 0A 31 39 riations..CD..19
006210: 38 32 0D 0A 42 42 43 20 53 2E 4F 2E 0D 0A 4C 65 82..BBC S.O...Le
006220: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
006230: 0A 0D 0A 47 65 6E 65 73 69 73 0D 0A 46 6F 78 74 ...Genesis..Foxt
006240: 72 6F 74 0D 0A 52 65 63 6F 72 64 0D 0A 31 39 37 rot..Record..197
006250: 34 0D 0A 0D 0A 0D 0A 0D 0A 4A 6F 68 61 6E 6E 20 4........Johann
006260: 53 74 72 61 75 73 73 0D 0A 41 6E 20 64 65 72 20 Strauss..An der
006270: 73 63 68 9F F3 6E 65 6E 20 62 6C 61 75 65 6E 20 sch..nen blauen
006280: 44 6F 6E 61 75 0D 0A 43 44 0D 0A 31 39 38 31 0D Donau..CD..1981.
006290: 0A 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 .Berliner Philha
0062A0: 72 6D 6F 6E 69 6B 65 72 0D 0A 48 65 72 62 65 72 rmoniker..Herber
0062B0: 74 20 76 6F 6E 20 4B 61 72 61 6A 61 6E 0D 0A 0D t von Karajan...
0062C0: 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 6F 6E .Mahler..Symphon
0062D0: 79 20 6E 6F 2E 20 31 0D 0A 43 44 0D 0A 31 39 38 y no. 1..CD..198
0062E0: 32 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 2..Chicago S.O..
0062F0: 0A 43 6C 61 75 64 69 6F 20 41 62 62 61 64 6F 0D .Claudio Abbado.
006300: 42 65 61 74 6C 65 73 0D 0A 41 62 62 65 79 20 52 Beatles..Abbey R
006310: 6F 61 64 0D 0A 43 44 0D 0A 31 39 37 30 0D 0A 0D oad..CD..1970...
006320: 0A 0D 0A 0D 0A 42 65 65 74 68 6F 76 65 6E 0D 0A .....Beethoven..
006330: 53 79 6D 70 68 6F 6E 79 20 6E 6F 2E 20 33 20 27 Symphony no. 3 '
006340: 45 72 6F 69 63 61 27 0D 0A 52 65 63 6F 72 64 0D Eroica'..Record.
006350: 0A 31 39 37 37 0D 0A 53 79 6D 70 68 6F 6E 69 63 .1977..Symphonic
006360: 61 20 6F 66 20 4C 6F 6E 64 6F 6E 0D 0A 57 79 6E a of London..Wyn
006370: 20 4D 6F 72 72 69 73 0D 0A 0D 0A 42 65 65 74 68 Morris....Beeth
006380: 6F 76 65 6E 0D 0A 53 79 6D 70 68 6F 6E 79 20 6E oven..Symphony n
006390: 6F 2E 20 39 0D 0A 43 44 0D 0A 31 39 38 34 0D 0A o. 9..CD..1984..
0063A0: 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 72 Berliner Philhar
0063B0: 6D 6F 6E 69 6B 65 72 20 77 69 74 68 20 74 68 65 moniker with the
0063C0: 20 57 69 65 6E 65 72 20 53 69 6E 67 76 65 72 65 Wiener Singvere
0063D0: 69 6E 0D 0A 48 65 72 62 65 72 74 20 76 6F 6E 20 in..Herbert von
0063E0: 4B 61 72 61 6A 61 6E 0D 0A 0D 0A 42 72 75 63 65 Karajan....Bruce
0063F0: 20 53 70 72 69 6E 67 73 74 65 65 6E 0D 0A 42 6F Springsteen..Bo
006400: 72 6E 20 69 6E 20 74 68 65 20 55 2E 53 2E 41 2E rn in the U.S.A.
006410: 0D 0A 43 44 0D 0A 31 39 38 34 0D 0A 0D 0A 0D 0A ..CD..1984......
006420: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
006430: 41 6C 63 68 65 6D 79 0D 0A 52 65 63 6F 72 64 0D Alchemy..Record.
006440: 0A 31 39 38 34 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 .1984........Dir
006450: 65 20 53 74 72 61 69 74 73 0D 0A 42 72 6F 74 68 e Straits..Broth
006460: 65 72 73 20 69 6E 20 41 72 6D 73 0D 0A 43 44 0D ers in Arms..CD.
006470: 0A 31 39 38 35 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 .1985........Dir
006480: 65 20 53 74 72 61 69 74 73 0D 0A 43 6F 6D 6D 75 e Straits..Commu
006490: 6E 69 71 75 9F E1 0D 0A 43 44 0D 0A 31 39 37 39 niqu....CD..1979
0064A0: 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 65 20 53 74 72 ........Dire Str
0064B0: 61 69 74 73 0D 0A 44 69 72 65 20 53 74 72 61 69 aits..Dire Strai
0064C0: 74 73 0D 0A 43 44 0D 0A 31 39 37 38 0D 0A 0D 0A ts..CD..1978....
0064D0: 0D 0A 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 ....Dire Straits
0064E0: 0D 0A 4C 6F 76 65 20 4F 76 65 72 20 47 6F 6C 64 ..Love Over Gold
0064F0: 0D 0A 43 44 0D 0A 31 39 38 32 0D 0A 0D 0A 0D 0A ..CD..1982......
006500: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
006510: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
006520: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
006530: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
006540: 65 6C 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 65 el..>if &c3&..>e
006550: 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D 0A l..>sk0=0..>ei..
006560: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E >ei..>ei..>zm..>
006570: 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A npoff..>sv n=0..
006580: 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 69 78 >if fv="f" ; fix
006590: 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ed..>rp..>sv n=n
0065A0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0065B0: 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=f&n&..>wm !s!.
0065C0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>un n=rlen..>el
0065D0: 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 ; var..>rp..>sv
0065E0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0065F0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 66 20 >sv s=f&n&..>if
006600: 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 s=""..>sv s=n+1
006610: 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 6D 3D m=n+2 s=s[w1] m=
006620: 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 m[w1]..>sv s=f&s
006630: 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 &+f&m&..>if s=""
006640: 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 ..>sv n=rlen..>e
006650: 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A 3E 65 l..>sv s="$"..>e
006660: 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 21 0D i..>ei..>wm !s!.
006670: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 .>un n=rlen..>ei
006680: 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E ; f/v..>sv nn=n
006690: 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E n+1..>el ; f1=en
0066A0: 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D d..>sv nn=nn[w1]
0066B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 20 22 ..>dm " "..>wt "
0066C0: 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F 75 &nn& records fou
0066D0: 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 nd. Press a key
0066E0: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D to continue ....
0066F0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
006700: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
006710: 4D 61 6B 69 6E 67 20 4D 6F 76 69 65 73 0D 0A 43 Making Movies..C
006720: 44 0D 0A 31 39 38 30 0D 0A 0D 0A 0D 0A 0D 0A 44 D..1980........D
006730: 76 6F 72 08 04 61 6B 0D 0A 53 79 6D 70 68 6F 6E vor..ak..Symphon
006740: 79 20 6E 6F 2E 20 39 20 27 46 72 6F 6D 20 74 68 y no. 9 'From th
006750: 65 20 4E 65 77 20 57 6F 72 6C 64 27 0D 0A 43 44 e New World'..CD
006760: 0D 0A 31 39 38 37 0D 0A 4C 6F 6E 64 6F 6E 20 53 ..1987..London S
006770: 2E 4F 2E 0D 0A 42 61 72 72 79 20 54 75 63 6B 77 .O...Barry Tuckw
006780: 65 6C 6C 0D 0A 0D 0A 45 61 67 6C 65 73 0D 0A 48 ell....Eagles..H
006790: 6F 74 65 6C 20 43 61 6C 69 66 6F 72 6E 69 61 0D otel California.
0067A0: 0A 43 44 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D .CD..1976.......
0067B0: 0A 45 6C 65 63 74 72 69 63 20 4C 69 67 68 74 20 .Electric Light
0067C0: 4F 72 63 68 65 73 74 72 61 0D 0A 4F 75 74 20 6F Orchestra..Out o
0067D0: 66 20 74 68 65 20 42 6C 75 65 0D 0A 52 65 63 6F f the Blue..Reco
0067E0: 72 64 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D 0A rd..1976........
0067F0: 45 6C 67 61 72 0D 0A 45 6E 69 67 6D 61 20 56 61 Elgar..Enigma Va
006800: 72 69 61 74 69 6F 6E 73 0D 0A 43 44 0D 0A 31 39 riations..CD..19
006810: 38 32 0D 0A 42 42 43 20 53 2E 4F 2E 0D 0A 4C 65 82..BBC S.O...Le
006820: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
006830: 0A 0D 0A 47 65 6E 65 73 69 73 0D 0A 46 6F 78 74 ...Genesis..Foxt
006840: 72 6F 74 0D 0A 52 65 63 6F 72 64 0D 0A 31 39 37 rot..Record..197
006850: 34 0D 0A 0D 0A 0D 0A 0D 0A 4A 6F 68 61 6E 6E 20 4........Johann
006860: 53 74 72 61 75 73 73 0D 0A 41 6E 20 64 65 72 20 Strauss..An der
006870: 73 63 68 9F F3 6E 65 6E 20 62 6C 61 75 65 6E 20 sch..nen blauen
006880: 44 6F 6E 61 75 0D 0A 43 44 0D 0A 31 39 38 31 0D Donau..CD..1981.
006890: 0A 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 .Berliner Philha
0068A0: 72 6D 6F 6E 69 6B 65 72 0D 0A 48 65 72 62 65 72 rmoniker..Herber
0068B0: 74 20 76 6F 6E 20 4B 61 72 61 6A 61 6E 0D 0A 0D t von Karajan...
0068C0: 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 6F 6E .Mahler..Symphon
0068D0: 79 20 6E 6F 2E 20 31 0D 0A 43 44 0D 0A 31 39 38 y no. 1..CD..198
0068E0: 32 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 2..Chicago S.O..
0068F0: 0A 43 6C 61 75 64 69 6F 20 41 62 62 61 64 6F 0D .Claudio Abbado.
006900: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
006910: 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B ..>sk 0=0..>ei ;
006920: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
006930: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
006940: 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 m "Option S.3 -
006950: 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 Select records (
006960: 63 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 32 20 6F cond1 OR cond2 o
006970: 72 20 63 6F 6E 64 33 29 22 0D 0A 3E 64 6D 20 22 r cond3)"..>dm "
006980: 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D "..>in fm$pfi$.
006990: 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C .>sv fv=fv[1] rl
0069A0: 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 en=rlen[w1]..>if
0069B0: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
0069C0: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
0069D0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
0069E0: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
0069F0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
006A00: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D [w1]..>sv flist=
006A10: 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E flist+" f&n&"..>
006A20: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 73 76 20 un n>=rlen..>sv
006A30: 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E 3D 6E 5B n=n+1 m=n+1 n=n[
006A40: 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 w1] m=m[w1]..>sv
006A50: 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 3D 22 22 f&n&="" f&m&=""
006A60: 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 6C ..>>>..>dm "Fiel
006A70: 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 d names: "..>sv
006A80: 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D n=0..>rp..>sv n=
006A90: 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n+1 n=n[w1]..>sv
006AA0: 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E s=n&n&..>dm f&n
006AB0: 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 6C &: &s&..>un n=rl
006AC0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 57 68 en..>>>..>dm "Wh
006AD0: 65 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 en entering cond
006AE0: 69 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C itions below, pl
006AF0: 65 61 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F ease remember to
006B00: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
006B10: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
006B20: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---!------------
006B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D --------------R.
006B70: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
006B80: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
006B90: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
006BA0: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
006BB0: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
006BC0: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
006BD0: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
006BE0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
006BF0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
006C00: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
006C10: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
006C20: 6F 72 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 orinc,showdisc,a
006C30: 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 skfn,askcar,usep
006C40: 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 rod,defdisc..>rv
006C50: 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C caline,aline,tl
006C60: 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 ine,totline..>rv
006C70: 20 73 69 64 65 2C 72 63 31 2C 72 63 32 2C 72 63 side,rc1,rc2,rc
006C80: 33 2C 72 63 34 2C 72 63 35 0D 0A 3E 72 76 20 72 3,rc4,rc5..>rv r
006C90: 75 6C 65 72 31 2C 72 75 6C 65 72 32 2C 72 75 6C uler1,ruler2,rul
006CA0: 65 72 33 2C 72 75 6C 65 72 34 2C 72 75 6C 65 72 er3,ruler4,ruler
006CB0: 35 0D 0A 3E 72 76 20 63 6F 6E 61 6D 65 2C 63 6F 5..>rv coname,co
006CC0: 61 64 64 72 31 2C 63 6F 61 64 64 72 32 2C 63 6F addr1,coaddr2,co
006CD0: 61 64 64 72 33 2C 63 6F 61 64 64 72 34 2C 63 6F addr3,coaddr4,co
006CE0: 61 64 64 72 35 0D 0A 3E 63 73 20 22 20 22 0D 0A addr5..>cs " "..
006CF0: 3E 64 6D 20 50 52 4F 54 45 58 54 20 4F 46 46 49 >dm PROTEXT OFFI
006D00: 6D 20 26 6E 75 6D 26 2C 26 74 69 74 6C 65 26 0D m &num&,&title&.
006D10: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
006D20: 78 65 63 20 6F 6D 6F 70 74 69 0D 0A 3E 73 74 0D xec omopti..>st.
006D30: 0A 3E 65 69 20 3B 20 6F 70 74 20 69 6E 20 22 69 .>ei ; opt in "i
006D40: 63 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E c"..>>>>>>>>>>>>
006D50: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
006D60: 20 52 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E R >>>..>>>>>>>>
006D70: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
006D80: 74 3D 22 72 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="r"..>cs " "..
006D90: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
006DA0: 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 64 n.inf..>rv addrd
006DB0: 72 76 2C 69 6E 76 70 61 74 68 0D 0A 3E 64 6D 20 rv,invpath..>dm
006DC0: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 " "..>rp..>av "I
006DD0: 6E 76 6F 69 63 65 2C 20 63 72 65 64 69 74 20 6E nvoice, credit n
006DE0: 6F 74 65 2C 20 6F 72 20 73 74 61 74 65 6D 65 6E ote, or statemen
006DF0: 74 20 28 49 2F 63 2F 73 29 3F 20 22 20 64 74 79 t (I/c/s)? " dty
006E00: 70 65 20 31 0D 0A 3E 69 66 20 64 74 79 70 65 3D pe 1..>if dtype=
006E10: 22 22 0D 0A 3E 73 76 20 64 74 79 70 65 3D 22 69 ""..>sv dtype="i
006E20: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 64 74 79 70 "..>ei..>un dtyp
006E30: 65 20 69 6E 20 22 69 63 73 22 0D 0A 3E 64 6D 20 e in "ics"..>dm
006E40: 22 20 22 0D 0A 3E 64 6D 20 22 4C 69 73 74 20 6F " "..>dm "List o
006E50: 66 20 61 76 61 69 6C 61 62 6C 65 20 66 69 6C 65 f available file
006E60: 73 2E 20 54 68 65 20 66 69 6C 65 20 65 78 74 65 s. The file exte
006E70: 6E 73 69 6F 6E 20 6E 65 65 64 20 6E 6F 74 20 62 nsion need not b
006E80: 65 20 74 79 70 65 64 2E 22 0D 0A 3E 64 6D 20 22 e typed."..>dm "
006E90: 20 22 0D 0A 3E 69 66 20 64 74 79 70 65 3D 22 73 "..>if dtype="s
006EA0: 22 0D 0A 3E 65 78 20 63 61 74 20 26 69 6E 76 70 "..>ex cat &invp
006EB0: 61 74 68 26 2A 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A ath&*.pos..>el..
006EC0: 3E 65 78 20 63 61 74 20 26 69 6E 76 70 61 74 68 >ex cat &invpath
006ED0: 26 26 64 74 79 70 65 26 2A 2E 70 6F 69 0D 0A 3E &&dtype&*.poi..>
006EE0: 65 69 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E ei..>av "Enter n
006EF0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 70 ame of file to p
006F00: 43 45 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E CE CONFIGURATION
006F10: 20 50 52 4F 47 52 41 4D 0D 0A 3E 64 6D 20 22 20 PROGRAM..>dm "
006F20: 22 0D 0A 3E 61 76 20 22 54 79 70 65 20 74 68 65 "..>av "Type the
006F30: 20 6E 61 6D 65 20 6F 66 20 79 6F 75 72 20 62 75 name of your bu
006F40: 73 69 6E 65 73 73 20 5B 26 63 6F 6E 61 6D 65 26 siness [&coname&
006F50: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E ]: " x..>if x <>
006F60: 20 22 22 0D 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D ""..>sv coname=
006F70: 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 45 6E 74 x..>ei..>dm "Ent
006F80: 65 72 20 79 6F 75 72 20 61 64 64 72 65 73 73 20 er your address
006F90: 28 6D 61 78 20 35 20 6C 69 6E 65 73 29 22 0D 0A (max 5 lines)"..
006FA0: 3E 61 76 20 22 4C 69 6E 65 20 31 20 5B 26 63 6F >av "Line 1 [&co
006FB0: 61 64 64 72 31 26 5D 3A 20 22 20 78 0D 0A 3E 69 addr1&]: " x..>i
006FC0: 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 f x <> ""..>sv c
006FD0: 6F 61 64 64 72 31 3D 78 0D 0A 3E 65 69 0D 0A 3E oaddr1=x..>ei..>
006FE0: 61 76 20 22 4C 69 6E 65 20 32 20 5B 26 63 6F 61 av "Line 2 [&coa
006FF0: 64 64 72 32 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 ddr2&]: " x..>if
007000: 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F x <> ""..>sv co
007010: 61 64 64 72 32 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 addr2=x..>ei..>a
007020: 76 20 22 4C 69 6E 65 20 33 20 5B 26 63 6F 61 64 v "Line 3 [&coad
007030: 64 72 33 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 dr3&]: " x..>if
007040: 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 x <> ""..>sv coa
007050: 64 64 72 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 ddr3=x..>ei..>av
007060: 20 22 4C 69 6E 65 20 34 20 5B 26 63 6F 61 64 64 "Line 4 [&coadd
007070: 72 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 r4&]: " x..>if x
007080: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 <> ""..>sv coad
007090: 64 72 34 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 dr4=x..>ei..>av
0070A0: 22 4C 69 6E 65 20 35 20 5B 26 63 6F 61 64 64 72 "Line 5 [&coaddr
0070B0: 35 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 5&]: " x..>if x
0070C0: 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 64 <> ""..>sv coadd
0070D0: 72 35 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 r5=x..>ei..>dm "
0070E0: 20 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E "..>av "Enter n
0070F0: 61 6D 65 20 6F 66 20 61 64 64 72 65 73 73 20 64 ame of address d
007100: 72 69 6E 74 3A 20 22 20 66 6E 20 31 32 0D 0A 3E rint: " fn 12..>
007110: 73 76 20 66 6E 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 sv fn=fn[w1]..>i
007120: 66 20 66 6E 3C 3E 22 22 0D 0A 3E 69 66 20 22 2E f fn<>""..>if ".
007130: 22 20 6E 6F 74 69 6E 20 66 6E 0D 0A 3E 69 66 20 " notin fn..>if
007140: 64 74 79 70 65 3D 22 73 22 0D 0A 3E 73 76 20 66 dtype="s"..>sv f
007150: 6E 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 n=invpath+fn+".p
007160: 6F 73 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E os"..>el..>sv fn
007170: 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 6F =invpath+fn+".po
007180: 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 61 i"..>ei..>ei..>a
007190: 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F 72 v "To printer or
0071A0: 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 22 screen (p/s)? "
0071B0: 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D x 1..>if x<>"".
0071C0: 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 .>wf om.x..>if x
0071D0: 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 ="p"..>wm "load
0071E0: 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C &fn&|13|doc|13||
0071F0: 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 766|p|13|load om
007200: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
007210: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
007220: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
007230: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
007240: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
007250: 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A nu|13|ps"..>ei..
007260: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
007270: 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 ec om.x..>st..>e
007280: 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E 0D i ; x..>ei ; fn.
007290: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D 0A .>ei ; opt="r"..
0072A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0072B0: 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 45 20 3E ..>>> OPTION E >
0072C0: 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>..>>>>>>>>>>>>
0072D0: 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 65 >>>>..>if opt="e
0072E0: 22 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D "..>-------!----
0072F0: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 00 02 09 4E E5 06 00 C1 02 00 00 00 02 ......N.........
007320: 06 00 C6 02 00 00 00 02 06 00 C2 02 00 00 00 02 ................
007330: 06 00 C7 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007340: 06 00 C8 02 00 00 00 02 06 00 C4 02 00 00 00 02 ................
007350: 06 00 C9 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 3E 69 64 20 64 66 20 3B 20 6D 69 73 73 20 6F 6E >id df ; miss on
007410: 20 66 69 72 73 74 20 70 61 73 73 0D 0A 3E 3E 3E first pass..>>>
007420: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
007430: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
007440: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
007450: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
007460: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
007470: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
007480: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
007490: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
0074A0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
0074B0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
0074C0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
0074D0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
0074E0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
0074F0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
007500: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
007510: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
007520: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
007530: 6C 65 6E 3D 6D 61 78 0D 0A 3E 72 70 0D 0A 3E 73 len=max..>rp..>s
007540: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
007550: 0A 3E 69 66 20 70 61 64 3D 22 79 22 0D 0A 3E 73 .>if pad="y"..>s
007560: 76 20 76 26 6E 26 3D 22 22 0D 0A 3E 65 6C 0D 0A v v&n&=""..>el..
007570: 3E 73 76 20 73 3D 70 26 6E 26 0D 0A 3E 61 76 20 >sv s=p&n&..>av
007580: 22 26 73 26 22 20 76 26 6E 26 0D 0A 3E 69 66 20 "&s&" v&n&..>if
007590: 66 76 3D 22 76 22 0D 0A 3E 69 66 20 76 26 6E 26 fv="v"..>if v&n&
0075A0: 3D 22 22 0D 0A 3E 73 76 20 70 61 64 3D 22 79 22 =""..>sv pad="y"
0075B0: 20 76 6C 65 6E 3D 6E 20 63 68 6B 6C 65 6E 3D 6E vlen=n chklen=n
0075C0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 -1..>ei..>ei..>e
0075D0: 69 0D 0A 3E 75 6E 20 6E 3E 3D 6D 61 78 0D 0A 3E i..>un n>=max..>
0075E0: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 >>..>dm " "..>rp
0075F0: 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 20 43 ..>av " C
007600: 78 20 63 61 74 20 26 69 6E 76 64 72 76 26 3A 2A x cat &invdrv&:*
007610: 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 63 .pos..>el..>ex c
007620: 61 74 20 26 69 6E 76 64 72 76 26 3A 26 64 74 79 at &invdrv&:&dty
007630: 70 65 26 2A 2E 70 6F 69 0D 0A 3E 65 69 0D 0A 3E pe&*.poi..>ei..>
007640: 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F av "Enter name o
007650: 66 20 66 69 6C 65 20 74 6F 20 70 72 69 6E 74 3A f file to print:
007660: 20 22 20 66 6E 20 31 32 0D 0A 3E 73 76 20 66 6E " fn 12..>sv fn
007670: 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 6E 3C =fn[w1]..>if fn<
007680: 3E 22 22 0D 0A 3E 69 66 20 22 2E 22 20 6E 6F 74 >""..>if "." not
007690: 69 6E 20 66 6E 0D 0A 3E 69 66 20 64 74 79 70 65 in fn..>if dtype
0076A0: 3D 22 73 22 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 ="s"..>sv fn=inv
0076B0: 64 72 76 2B 22 3A 22 2B 66 6E 2B 22 2E 70 6F 73 drv+":"+fn+".pos
0076C0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E 3D 69 "..>el..>sv fn=i
0076D0: 6E 76 64 72 76 2B 22 3A 22 2B 66 6E 2B 22 2E 70 nvdrv+":"+fn+".p
0076E0: 6F 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E oi"..>ei..>ei..>
0076F0: 61 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F av "To printer o
007700: 72 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 r screen (p/s)?
007710: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
007720: 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 ..>wf om.x..>if
007730: 78 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 x="p"..>wm "load
007740: 20 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C &fn&|13|doc|13|
007750: 7C 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F |766|p|13|load o
007760: 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C menu|13|ps"..>el
007770: 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 ..>wm "ps &fn&|1
007780: 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 3|; Press a key
007790: 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C to continue:|13|
0077A0: 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D pause|13|load om
0077B0: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D enu|13|ps"..>ei.
0077C0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
0077D0: 78 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E xec om.x..>st..>
0077E0: 65 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E ei ; x..>ei ; fn
0077F0: 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D ..>ei ; opt="r".
007800: 6F 72 72 65 63 74 20 5B 59 2F 6E 5D 3F 20 22 20 orrect [Y/n]? "
007810: 63 6F 72 72 20 31 0D 0A 3E 69 66 20 63 6F 72 72 corr 1..>if corr
007820: 3D 22 22 0D 0A 3E 73 76 20 63 6F 72 72 3D 22 79 =""..>sv corr="y
007830: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 63 6F 72 72 "..>ei..>un corr
007840: 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 63 6F in "yn"..>if co
007850: 72 72 3D 22 6E 22 0D 0A 3E 73 6B 20 30 3D 30 0D rr="n"..>sk 0=0.
007860: 0A 3E 65 69 0D 0A 3E 3E 3E 20 69 66 20 22 2C 22 .>ei..>>> if ","
007870: 20 22 27 22 20 6F 72 20 27 22 27 20 63 61 6E 20 "'" or '"' can
007880: 77 65 20 61 64 64 20 71 75 6F 74 65 73 3F 3F 0D we add quotes??.
007890: 0A 3E 73 76 20 6E 3D 30 20 78 3D 22 30 22 0D 0A .>sv n=0 x="0"..
0078A0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0078B0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 76 26 =n[w1]..>sv s=v&
0078C0: 6E 26 0D 0A 3E 69 66 20 22 2C 22 20 69 6E 20 73 n&..>if "," in s
0078D0: 0D 0A 3E 73 76 20 78 3D 22 31 22 0D 0A 3E 65 6C ..>sv x="1"..>el
0078E0: 0D 0A 3E 69 66 20 22 27 22 20 69 6E 20 73 0D 0A ..>if "'" in s..
0078F0: 3E 73 76 20 78 3D 22 31 22 0D 0A 3E 65 6C 0D 0A >sv x="1"..>el..
007900: 3E 69 66 20 27 22 27 20 69 6E 20 73 0D 0A 3E 73 >if '"' in s..>s
007910: 76 20 78 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 65 v x="1"..>ei..>e
007920: 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 78 3D 22 31 i..>ei..>if x="1
007930: 22 0D 0A 3E 69 66 20 27 22 27 20 6E 6F 74 69 6E "..>if '"' notin
007940: 20 73 0D 0A 3E 73 76 20 76 26 6E 26 3D 27 22 27 s..>sv v&n&='"'
007950: 2B 73 2B 27 22 27 0D 0A 3E 65 6C 0D 0A 3E 69 66 +s+'"'..>el..>if
007960: 20 22 27 22 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 "'" notin s..>s
007970: 76 20 76 26 6E 26 3D 22 27 22 2B 73 2B 22 27 22 v v&n&="'"+s+"'"
007980: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 73 76 20 ..>ei..>ei..>sv
007990: 78 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 x="0"..>ei..>un
0079A0: 6E 3E 3D 63 68 6B 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n>=chklen..>>>..
0079B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D >sv n=0..>if fv=
0079C0: 22 66 22 20 3B 20 66 69 78 0D 0A 3E 72 70 0D 0A "f" ; fix..>rp..
0079D0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0079E0: 5D 0D 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E ]..>sv s=v&n&..>
0079F0: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
007A00: 61 74 61 66 69 6C 65 20 5B 26 61 64 64 72 66 69 atafile [&addrfi
007A10: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
007A20: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 64 64 f x<>""..>sv add
007A30: 72 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 69 rfile=x..>ei..>i
007A40: 66 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 73 f phone?="y"..>s
007A50: 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A v y="Y/n"..>el..
007A60: 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E 65 69 >sv y="y/N"..>ei
007A70: 0D 0A 3E 61 76 20 22 44 6F 65 73 20 74 68 65 20 ..>av "Does the
007A80: 61 64 64 72 65 73 73 20 66 69 6C 65 20 68 61 76 address file hav
007A90: 65 20 74 65 6C 65 70 68 6F 6E 65 20 6E 75 6D 62 e telephone numb
007AA0: 65 72 73 20 6F 6E 20 6C 69 6E 65 20 32 20 5B 26 ers on line 2 [&
007AB0: 79 26 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 y&]: " x 1..>if
007AC0: 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 68 6F 6E 65 x<>""..>sv phone
007AD0: 3F 3D 79 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 ?=y..>ei..>dm "
007AE0: 22 0D 0A 3E 64 6D 20 22 57 68 69 63 68 20 64 72 "..>dm "Which dr
007AF0: 69 76 65 20 69 73 20 74 6F 20 62 65 20 75 73 65 ive is to be use
007B00: 64 20 66 6F 72 20 73 74 6F 72 69 6E 67 20 69 6E d for storing in
007B10: 76 6F 69 63 65 73 3F 22 0D 0A 3E 69 64 20 63 70 voices?"..>id cp
007B20: 6D 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D 69 6E m..>sv invdrv=in
007B30: 76 70 61 74 68 5B 31 5D 0D 0A 3E 72 70 0D 0A 3E vpath[1]..>rp..>
007B40: 61 76 20 22 45 6E 74 65 72 20 64 72 69 76 65 20 av "Enter drive
007B50: 6C 65 74 74 65 72 20 5B 26 69 6E 76 64 72 76 26 letter [&invdrv&
007B60: 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C ]: " x 1..>if x<
007B70: 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D >""..>sv invdrv=
007B80: 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 69 6E 76 64 x..>ei..>un invd
007B90: 72 76 20 69 6E 20 22 61 62 63 64 65 66 6D 22 0D rv in "abcdefm".
007BA0: 0A 3E 73 76 20 69 6E 76 70 61 74 68 3D 69 6E 76 .>sv invpath=inv
007BB0: 64 72 76 2B 22 3A 22 0D 0A 3E 65 6C 0D 0A 3E 61 drv+":"..>el..>a
007BC0: 76 20 22 45 6E 74 65 72 20 70 61 74 68 20 6F 6E v "Enter path on
007BD0: 20 77 68 69 63 68 20 74 6F 20 73 74 6F 72 65 20 which to store
007BE0: 69 6E 76 6F 69 63 65 73 20 5B 26 69 6E 76 70 61 invoices [&invpa
007BF0: 74 68 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 th&]: " x..>if x
007C00: 20 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 enclose strings
007C10: 20 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D in quotes"..>dm
007C20: 20 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 'e.g. "London"
007C30: 69 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A in F4..>dm " "..
007C40: 3E 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 >sv ok="'" + '"'
007C50: 20 2B 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 + "0123456789."
007C60: 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 ..>sv n="1"..>rp
007C70: 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E ..>av "Enter con
007C80: 64 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D dition &n&: " s.
007C90: 0A 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 .>sv err=0 s=s[w
007CA0: 31 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 1:]..>sv c&n&=s.
007CB0: 0A 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 .>if c1=""..>ex
007CC0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
007CD0: 69 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D i..>if s[1]="f".
007CE0: 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 .>if s[2] notin
007CF0: 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 "*123456789"..>s
007D00: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
007D10: 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 l..>if s[1] noti
007D20: 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D n ok..>sv err=1.
007D30: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A .>ei..>ei..>>>..
007D40: 3E 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D >sv s=c&n&[w-1].
007D50: 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E .>if s[1]="f"..>
007D60: 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A if s[2] notin "*
007D70: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 123456789"..>sv
007D80: 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D err=1..>ei..>el.
007D90: 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 .>if s[1] notin
007DA0: 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E ok..>sv err=1..>
007DB0: 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 ei..>ei..>>>..>i
007DC0: 66 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E f err=0..>sv n=n
007DD0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D +1 n=n[w1]..>el.
007DE0: 0A 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E .>dm "Invalid in
007DF0: 70 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E put"..>ei..>un n
007E00: 3C 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 70 61 74 <>""..>sv invpat
007E10: 68 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E h=x..>ei..>ei..>
007E20: 64 6D 20 22 20 22 0D 0A 3E 69 66 20 75 73 65 70 dm " "..>if usep
007E30: 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 rod="y"..>sv y="
007E40: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
007E50: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 ="y/N"..>ei..>rp
007E60: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 69 ..>av "Do you wi
007E70: 73 68 20 74 6F 20 75 73 65 20 61 20 70 72 6F 64 sh to use a prod
007E80: 75 63 74 20 66 69 6C 65 20 28 26 79 26 29 3F 20 uct file (&y&)?
007E90: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
007EA0: 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 78 0D ..>sv useprod=x.
007EB0: 0A 3E 65 69 0D 0A 3E 75 6E 20 75 73 65 70 72 6F .>ei..>un usepro
007EC0: 64 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 75 d in "yn"..>if u
007ED0: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 seprod="y"..>av
007EE0: 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F 66 20 70 "Enter name of p
007EF0: 72 6F 64 75 63 74 20 69 6E 66 6F 72 6D 61 74 69 roduct informati
007F00: 6F 6E 20 66 69 6C 65 20 5B 26 70 72 6F 64 66 69 on file [&prodfi
007F10: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
007F20: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 6F f x<>""..>sv pro
007F30: 64 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 dfile=x..>ei..>e
007F40: 69 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D i..>if prconame=
007F50: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
007F60: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
007F70: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
007F80: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 79 v "Do you want y
007F90: 6F 75 72 20 6E 61 6D 65 20 61 6E 64 20 61 64 64 our name and add
007FA0: 72 65 73 73 20 70 72 69 6E 74 65 64 20 6F 6E 20 ress printed on
007FB0: 74 68 65 20 69 6E 76 6F 69 63 65 73 20 28 26 79 the invoices (&y
007FC0: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
007FD0: 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 63 6F 6E 61 <>""..>sv prcona
007FE0: 6D 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 70 me=x..>ei..>un p
007FF0: 72 63 6F 6E 61 6D 65 20 69 6E 20 22 79 6E 22 0D rconame in "yn".
008000: 3E 33 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D >3..>>>..>if c2=
008010: 22 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 31 22 ""..>sv c2="0=1"
008020: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 ..>ei..>if c3=""
008030: 0D 0A 3E 73 76 20 63 33 3D 22 30 3D 31 22 0D 0A ..>sv c3="0=1"..
008040: 3E 65 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A >ei..>sv ff=""..
008050: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 >if "f*" in c1[6
008060: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
008070: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
008080: 77 31 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A w1]..>if c1[&n&:
008090: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
0080A0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
0080B0: 31 3D 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 1=c1[1:&n&]+"f0"
0080C0: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
0080D0: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
0080E0: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
0080F0: 20 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E ; f* in c1..>>>
008100: 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 ..>if "f*" in c2
008110: 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E [6:]..>sv n=5..>
008120: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
008130: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E n[w1]..>if c2[&n
008140: 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D &:]="f*"..>sv n=
008150: 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n-1 n=n[w1]..>sv
008160: 20 63 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 c2=c2[1:&n&]+"f
008170: 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0"..>sv n=0..>ei
008180: 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 ..>un n=0..>sv f
008190: 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E f=">sv f0=f1"..>
0081A0: 65 69 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E ei ; f* in c2..>
0081B0: 3E 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 >>..>if "f*" in
0081C0: 63 33 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D c3[6:]..>sv n=5.
0081D0: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
0081E0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B n=n[w1]..>if c3[
0081F0: 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 &n&:]="f*"..>sv
008200: 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D .>if vatreg="y".
008210: 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 .>sv y="Y/n"..>e
008220: 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A l..>sv y="y/N"..
008230: 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 >ei..>rp..>av "I
008240: 73 20 79 6F 75 72 20 62 75 73 69 6E 65 73 73 20 s your business
008250: 72 65 67 69 73 74 65 72 65 64 20 66 6F 72 20 56 registered for V
008260: 41 54 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D AT (&y&)? " x 1.
008270: 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 .>if x <> ""..>s
008280: 76 20 76 61 74 72 65 67 3D 78 0D 0A 3E 65 69 0D v vatreg=x..>ei.
008290: 0A 3E 75 6E 20 76 61 74 72 65 67 20 69 6E 20 22 .>un vatreg in "
0082A0: 79 6E 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D yn"..>if vatreg=
0082B0: 22 79 22 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D "y"..>if prconam
0082C0: 65 3D 22 79 22 0D 0A 3E 61 76 20 22 45 6E 74 65 e="y"..>av "Ente
0082D0: 72 20 79 6F 75 72 20 56 41 54 20 6E 75 6D 62 65 r your VAT numbe
0082E0: 72 20 5B 26 76 61 74 6E 75 6D 26 5D 3A 20 22 20 r [&vatnum&]: "
0082F0: 78 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 x..>if x<>""..>s
008300: 76 20 76 61 74 6E 75 6D 3D 78 0D 0A 3E 65 69 0D v vatnum=x..>ei.
008310: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 .>ei..>ei..>if v
008320: 61 74 72 65 67 3C 3E 22 79 22 0D 0A 3E 73 76 20 atreg<>"y"..>sv
008330: 65 78 6F 72 69 6E 63 3D 22 78 22 0D 0A 3E 65 6C exorinc="x"..>el
008340: 0D 0A 3E 69 66 20 65 78 6F 72 69 6E 63 3D 22 78 ..>if exorinc="x
008350: 22 0D 0A 3E 73 76 20 79 3D 22 58 2F 69 22 0D 0A "..>sv y="X/i"..
008360: 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 78 2F 49 22 >el..>sv y="x/I"
008370: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>ei..>rp..>av
008380: 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 "Do you want to
008390: 65 6E 74 65 72 20 70 72 69 63 65 73 20 65 78 20 enter prices ex
0083A0: 56 41 54 20 6F 72 20 69 6E 63 20 56 41 54 20 28 VAT or inc VAT (
0083B0: 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 &y&)? " x 1..>if
0083C0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 65 78 6F 72 x<>""..>sv exor
0083D0: 69 6E 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 inc=x..>ei..>un
0083E0: 65 78 6F 72 69 6E 63 20 69 6E 20 22 78 69 22 0D exorinc in "xi".
0083F0: 0A 3E 65 69 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D .>ei..>if askfn=
008400: 6C 6F 61 64 20 6F 6D 69 6E 76 67 65 6E 7C 31 33 load ominvgen|13
008410: 7C 70 73 7C 31 33 7C 1A 0A 3E 3E 3E 0D 0A 3E 3E |ps|13|..>>>..>>
008420: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
008430: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
008440: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
008450: 3E 6E 63 20 32 35 35 0D 0A 3E 73 76 20 73 79 73 >nc 255..>sv sys
008460: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
008470: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
008480: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
008490: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
0084A0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0084B0: 33 2E 30 36 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.06..>sv fileda
0084C0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
0084D0: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
0084E0: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
0084F0: 0D 0A 3E 65 69 0D 0A 3E 63 73 20 22 20 22 0D 0A ..>ei..>cs " "..
008500: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 20 20 >dm " "..>dm "
008510: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 ***
008520: 20 50 20 52 20 4F 20 54 20 45 20 58 20 54 20 20 P R O T E X T
008530: 20 20 4F 20 46 20 46 20 49 20 43 20 45 20 20 20 O F F I C E
008540: 20 4D 20 45 20 4E 20 55 20 20 2A 2A 2A 0D 0A 3E M E N U ***..>
008550: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 20 20 20 dm " "..>dm "
008560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008570: 20 20 20 20 49 20 2D 20 50 72 69 6E 74 20 61 6E I - Print an
008580: 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 6D 20 22 20 Invoice..>dm "
008590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0085A0: 20 20 20 20 20 20 43 20 2D 20 50 72 69 6E 74 20 C - Print
0085B0: 61 20 43 72 65 64 69 74 20 6E 6F 74 65 0D 0A 3E a Credit note..>
0085C0: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0085D0: 20 20 20 20 20 20 20 20 20 20 20 53 20 2D 20 50 S - P
0085E0: 72 69 6E 74 20 61 20 53 74 61 74 65 6D 65 6E 74 rint a Statement
0085F0: 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 ..>dm "
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 00 02 09 4E E5 07 00 C1 02 00 00 00 02 ......N.........
008620: 07 00 C6 02 00 00 00 02 07 00 C2 02 00 00 00 02 ................
008630: 07 00 C7 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008640: 07 00 C8 02 00 00 00 02 07 00 C4 02 00 00 00 02 ................
008650: 07 00 C9 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
008710: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
008720: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
008730: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 v "Do you want t
008740: 6F 20 62 65 20 61 73 6B 65 64 20 66 6F 72 20 66 o be asked for f
008750: 6F 6F 74 6E 6F 74 65 20 65 61 63 68 20 74 69 6D ootnote each tim
008760: 65 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A e (&y&)? " x 1..
008770: 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 >if x<>""..>sv a
008780: 73 6B 66 6E 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E skfn=x..>ei..>un
008790: 20 61 73 6B 66 6E 20 69 6E 20 22 79 6E 22 0D 0A askfn in "yn"..
0087A0: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
0087B0: 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C >sv y="Y/n"..>el
0087C0: 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E ..>sv y="y/N"..>
0087D0: 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 44 6F ei..>rp..>av "Do
0087E0: 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 62 65 20 you want to be
0087F0: 61 73 6B 65 64 20 66 6F 72 20 63 61 72 72 69 61 asked for carria
008800: 67 65 20 65 61 63 68 20 74 69 6D 65 20 28 26 79 ge each time (&y
008810: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
008820: 3C 3E 22 22 0D 0A 3E 73 76 20 61 73 6B 63 61 72 <>""..>sv askcar
008830: 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 61 73 6B =x..>ei..>un ask
008840: 63 61 72 20 69 6E 20 22 79 6E 22 0D 0A 3E 73 76 car in "yn"..>sv
008850: 20 64 61 73 68 65 73 3D 22 2D 2D 2D 2D 2D 2D 2D dashes="-------
008860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0088A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 64 6D 20 ---------"..>dm
0088B0: 22 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 " "..>dm " "..>d
0088C0: 6D 20 4E 4F 57 20 43 4F 4E 46 49 47 55 52 45 20 m NOW CONFIGURE
0088D0: 54 48 45 20 49 4E 56 4F 49 43 45 20 46 4F 52 4D THE INVOICE FORM
0088E0: 41 54 20 46 4F 52 20 59 4F 55 52 20 53 54 41 54 AT FOR YOUR STAT
0088F0: 49 4F 4E 45 52 59 0D 0A 3E 64 6D 20 22 20 22 0D IONERY..>dm " ".
008900: 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 68 65 61 64 65 >>> Common heade
008910: 72 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 r for mail merge
008920: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 49 44 20 templates..>ID
008930: 64 66 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 df..&flist&..>IF
008940: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
008950: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
008960: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
008970: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
008980: 3E 3E 26 66 32 26 20 3B 20 70 68 6F 6E 65 0D 0A >>&f2& ; phone..
008990: 26 66 33 26 0D 0A 26 66 34 26 0D 0A 26 66 35 26 &f3&..&f4&..&f5&
0089A0: 0D 0A 26 66 36 26 0D 0A 26 66 37 26 0D 0A 0D 0A ..&f6&..&f7&....
0089B0: 0D 0A 0D 0A 0D 0A 44 65 61 72 20 43 75 73 74 6F ......Dear Custo
0089C0: 6D 65 72 0D 0A 0D 0A 54 68 61 6E 6B 20 79 6F 75 mer....Thank you
0089D0: 20 66 6F 72 20 79 6F 75 72 20 69 6E 74 65 72 65 for your intere
0089E0: 73 74 20 69 6E 20 6F 75 72 20 72 61 6E 67 65 20 st in our range
0089F0: 6F 66 20 70 72 6F 64 75 63 74 73 2E 20 57 65 20 of products. We
008A00: 68 61 76 65 20 70 6C 65 61 73 75 72 65 20 0D 8A have pleasure ..
008A10: 69 6E 20 65 6E 63 6C 6F 73 69 6E 67 20 74 68 65 in enclosing the
008A20: 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 72 65 71 information req
008A30: 75 65 73 74 65 64 2E 0D 0A 0D 0A 0D 0A 59 6F 75 uested.......You
008A40: 72 73 20 66 61 69 74 68 66 75 6C 6C 79 0D 0A 0D rs faithfully...
008A50: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 45 4E 44 20 4F 46 .>>>..>>> END OF
008A60: 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 45 MAIN MAIL MERGE
008A70: 20 53 45 43 54 49 4F 4E 0D 0A 3E 50 41 0D 0A 3E SECTION..>PA..>
008A80: 53 4B 20 30 3D 30 20 20 20 20 20 20 20 20 3B 20 SK 0=0 ;
008A90: 63 6F 6E 74 69 6E 75 65 20 66 72 6F 6D 20 74 6F continue from to
008AA0: 70 2C 20 77 69 74 68 20 6E 65 78 74 20 64 61 74 p, with next dat
008AB0: 61 0D 0A 3E 45 4C 20 3B 20 66 31 3D 65 6E 64 0D a..>EL ; f1=end.
008AC0: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
008AD0: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
008AE0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
008AF0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
008B00: 0A 3E 61 76 20 22 53 69 64 65 20 6D 61 72 67 69 .>av "Side margi
008B10: 6E 20 5B 26 73 69 64 65 26 5D 3A 20 22 20 6E 0D n [&side&]: " n.
008B20: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
008B30: 73 69 64 65 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 side=n..>ei ..>a
008B40: 76 20 22 57 69 64 74 68 20 6F 66 20 27 63 6F 64 v "Width of 'cod
008B50: 65 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 e' column in cha
008B60: 72 61 63 74 65 72 73 20 5B 26 72 63 31 26 5D 3A racters [&rc1&]:
008B70: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
008B80: 0A 3E 73 76 20 72 63 31 3D 6E 0D 0A 3E 65 69 20 .>sv rc1=n..>ei
008B90: 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 6F 66 20 ..>av "Width of
008BA0: 27 64 65 73 63 72 69 70 74 69 6F 6E 27 20 63 6F 'description' co
008BB0: 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 74 65 lumn in characte
008BC0: 72 73 20 5B 26 72 63 32 26 5D 3A 20 22 20 6E 0D rs [&rc2&]: " n.
008BD0: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
008BE0: 72 63 32 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 76 rc2=n..>ei ..>av
008BF0: 20 22 57 69 64 74 68 20 6F 66 20 27 71 75 61 6E "Width of 'quan
008C00: 74 69 74 79 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 tity' column in
008C10: 63 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 33 characters [&rc3
008C20: 26 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E &]: " n..>if n<>
008C30: 22 22 0D 0A 3E 73 76 20 72 63 33 3D 6E 0D 0A 3E ""..>sv rc3=n..>
008C40: 65 69 20 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 ei ..>av "Width
008C50: 6F 66 20 27 75 6E 69 74 20 70 72 69 63 65 27 20 of 'unit price'
008C60: 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 column in charac
008C70: 74 65 72 73 20 5B 26 72 63 34 26 5D 3A 20 22 20 ters [&rc4&]: "
008C80: 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 n..>if n<>""..>s
008C90: 76 20 72 63 34 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E v rc4=n..>ei ..>
008CA0: 61 76 20 22 57 69 64 74 68 20 6F 66 20 27 74 6F av "Width of 'to
008CB0: 74 61 6C 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 tal' column in c
008CC0: 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 35 26 haracters [&rc5&
008CD0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
008CE0: 22 0D 0A 3E 73 76 20 72 63 35 3D 6E 0D 0A 3E 65 "..>sv rc5=n..>e
008CF0: 69 20 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 i ..>if prconame
008D00: 20 66 31 0D 0A 3E 45 49 20 3B 20 69 64 20 64 66 f1..>EI ; id df
008D10: 0D 0A 3E 3E 3E 0D 0A 3E 63 73 0D 0A 3E 64 6D 20 ..>>>..>cs..>dm
008D20: 22 4D 61 69 6C 20 6D 65 72 67 69 6E 67 20 2E 2E "Mail merging ..
008D30: 2E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 43 6F 6D 6D ...>>>..>>> Comm
008D40: 6F 6E 20 63 6F 64 65 20 66 6F 72 20 6D 61 69 6C on code for mail
008D50: 20 6D 65 72 67 65 20 74 65 6D 70 6C 61 74 65 73 merge templates
008D60: 0D 0A 3E 69 75 20 64 66 0D 0A 3E 64 66 20 66 6D ..>iu df..>df fm
008D70: 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E .mus..>rv mus..>
008D80: 63 66 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D cf..>in fm$pfi$.
008D90: 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C .>sv fv=fv[1] rl
008DA0: 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 en=rlen[w1]..>if
008DB0: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
008DC0: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
008DD0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
008DE0: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
008DF0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
008E00: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 20 [w1]..>sv flist
008E10: 3D 20 66 6C 69 73 74 20 2B 20 22 20 66 26 6E 26 = flist + " f&n&
008E20: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
008E30: 3E 3E 3E 20 73 6F 72 74 20 6F 75 74 20 77 68 69 >>> sort out whi
008E40: 63 68 20 64 61 74 61 66 69 6C 65 20 74 6F 20 75 ch datafile to u
008E50: 73 65 20 28 6D 61 69 6E 2F 75 70 64 61 74 65 2F se (main/update/
008E60: 73 65 6C 65 63 74 69 6F 6E 29 0D 0A 3E 69 66 20 selection)..>if
008E70: 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D 64 mus="m"..>sv f=d
008E80: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D f..>ei..>if mus=
008E90: 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 "u"..>sv f=newfi
008EA0: 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 le..>ei..>if mus
008EB0: 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C 66 ="s"..>sv f=self
008EC0: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 66 ile..>ei..>df &f
008ED0: 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 20 3B & fo$end$..>ei ;
008EE0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A 4F 4E id df..>>>...ON
008EF0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
008F00: 3D 22 79 22 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 ="y"..>av "Line
008F10: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
008F20: 79 6F 75 72 20 63 6F 6D 70 61 6E 79 20 61 64 64 your company add
008F30: 72 65 73 73 20 5B 26 63 61 6C 69 6E 65 26 5D 3A ress [&caline&]:
008F40: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
008F50: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 6E 0D 0A 3E .>sv caline=n..>
008F60: 65 69 20 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 4C ei ..>ei..>av "L
008F70: 69 6E 65 20 6E 75 6D 62 65 72 20 74 6F 20 70 72 ine number to pr
008F80: 69 6E 74 20 72 65 63 69 70 69 65 6E 74 27 73 20 int recipient's
008F90: 61 64 64 72 65 73 73 20 5B 26 61 6C 69 6E 65 26 address [&aline&
008FA0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
008FB0: 22 0D 0A 3E 73 76 20 61 6C 69 6E 65 3D 6E 0D 0A "..>sv aline=n..
008FC0: 3E 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 >ei ..>av "Line
008FD0: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
008FE0: 74 69 74 6C 65 73 20 5B 26 74 6C 69 6E 65 26 5D titles [&tline&]
008FF0: 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 : " n..>if n<>""
009000: 0D 0A 3E 73 76 20 74 6C 69 6E 65 3D 6E 0D 0A 3E ..>sv tline=n..>
009010: 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 6E ei ..>av "Line n
009020: 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 74 umber to print t
009030: 6F 74 61 6C 73 20 5B 26 74 6F 74 6C 69 6E 65 26 otals [&totline&
009040: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
009050: 22 0D 0A 3E 73 76 20 74 6F 74 6C 69 6E 65 3D 6E "..>sv totline=n
009060: 0D 0A 3E 65 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E ..>ei ..>sv nlin
009070: 65 73 3D 74 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 es=totline-tline
009080: 20 6E 6C 69 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 nlines=nlines[w
009090: 31 5D 0D 0A 3E 73 76 20 69 77 69 64 74 68 3D 72 1]..>sv iwidth=r
0090A0: 63 31 2B 72 63 32 2B 72 63 33 2B 72 63 34 2B 72 c1+rc2+rc3+rc4+r
0090B0: 63 35 2B 31 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 c5+1..>sv n=iwid
0090C0: 74 68 2D 33 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A th-31..>dm " "..
0090D0: 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A >if vatreg="y"..
0090E0: 3E 64 6D 20 22 43 4F 4E 46 49 47 55 52 45 20 56 >dm "CONFIGURE V
0090F0: 41 54 20 43 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 AT CODES"..>dm "
009100: 20 22 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 74 "..>sv vat1=vat
009110: 31 2A 31 30 30 20 76 61 74 31 3D 76 61 74 31 5B 1*100 vat1=vat1[
009120: 77 31 5D 0D 0A 3E 73 76 20 76 61 74 32 3D 76 61 w1]..>sv vat2=va
009130: 74 32 2A 31 30 30 20 76 61 74 32 3D 76 61 74 32 t2*100 vat2=vat2
009140: 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 33 3D 76 [w1]..>sv vat3=v
009150: 61 74 33 2A 31 30 30 20 76 61 74 33 3D 76 61 74 at3*100 vat3=vat
009160: 33 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 3[w1]..>sv vat4=
009170: 76 61 74 34 2A 31 30 30 20 76 61 74 34 3D 76 61 vat4*100 vat4=va
009180: 74 34 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 35 t4[w1]..>sv vat5
009190: 3D 76 61 74 35 2A 31 30 30 20 76 61 74 35 3D 76 =vat5*100 vat5=v
0091A0: 61 74 35 5B 77 31 5D 0D 0A 3E 61 76 20 22 50 65 at5[w1]..>av "Pe
0091B0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0091C0: 20 72 61 74 65 20 31 20 5B 26 76 61 74 31 26 5D rate 1 [&vat1&]
0091D0: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
0091E0: 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D 78 0D 0A ""..>sv vat1=x..
0091F0: 3E 65 69 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E >ei..>av "Percen
009200: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
009210: 65 20 32 20 5B 26 76 61 74 32 26 5D 3A 20 22 20 e 2 [&vat2&]: "
009220: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
009230: 3E 73 76 20 76 61 74 32 3D 78 0D 0A 3E 65 69 0D >sv vat2=x..>ei.
009240: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
009250: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 33 20 for VAT rate 3
009260: 5B 26 76 61 74 33 26 5D 3A 20 22 20 78 0D 0A 3E [&vat3&]: " x..>
009270: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
009280: 76 61 74 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 vat3=x..>ei..>av
009290: 20 22 50 65 72 63 65 6E 74 61 67 65 20 66 6F 72 "Percentage for
0092A0: 20 56 41 54 20 72 61 74 65 20 34 20 5B 26 76 61 VAT rate 4 [&va
0092B0: 74 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 t4&]: " x..>if x
0092C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 76 61 74 34 <> ""..>sv vat4
0092D0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 50 65 =x..>ei..>av "Pe
0092E0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0092F0: 20 72 61 74 65 20 35 20 5B 26 76 61 74 35 26 5D rate 5 [&vat5&]
009300: 31 2C 49 4E 56 4F 49 43 45 0D 0A 1A 3E 0D 0A 3E 1,INVOICE...>..>
009310: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
009320: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
009330: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
009340: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
009350: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
009360: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
009370: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
009380: 00 02 1B 40 00 00 02 1B 46 02 1B 45 01 12 01 0F ...@....F..E....
009390: 02 1B 48 02 1B 47 00 02 1B 4D 00 00 00 00 00 00 ..H..G...M......
0093A0: 02 1B 35 02 1B 34 00 00 00 00 03 1B 57 00 03 1B ..5..4......W...
0093B0: 57 01 00 00 00 02 1B 50 00 00 03 1B 70 00 03 1B W......P....p...
0093C0: 70 01 03 1B 78 00 05 1B 28 1B 78 01 00 00 02 1B p...x...(.x.....
0093D0: 54 03 1B 53 01 02 1B 54 03 1B 53 00 03 1B 2D 00 T..S...T..S...-.
0093E0: 03 1B 2D 01 00 00 00 00 00 00 00 00 00 00 2A 03 ..-...........*.
0093F0: 23 04 1B 52 00 23 24 04 1B 52 03 24 40 04 1B 52 #..R.#$..R.$@..R
009400: 03 40 5B 04 1B 52 03 5B 5C 04 1B 52 03 5C 5D 04 .@[..R.[\..R.\].
009410: 1B 52 03 5D 5E 04 1B 52 03 5E 60 04 1B 52 03 60 .R.]^..R.^`..R.`
009420: 7B 04 1B 52 03 7B 7C 04 1B 52 03 7C 7D 04 1B 52 {..R.{|..R.|}..R
009430: 03 7D 7E 04 1B 52 03 7E 93 0A 1B 4B 06 00 20 40 .}~..R.~...K.. @
009440: FE 40 20 00 94 0A 1B 4B 06 00 08 04 FE 04 08 00 .@ ....K........
009450: 95 10 1B 4C 0C 00 10 28 54 00 10 00 10 00 10 00 ...L...(T.......
009460: 00 00 96 10 1B 4C 0C 00 10 00 10 00 10 00 54 28 .....L........T(
009470: 10 00 00 00 9E 0A 1B 4B 06 00 00 80 40 80 00 00 .......K....@...
009480: A0 10 1B 4C 0C 00 12 28 82 28 82 28 82 70 0A 00 ...L...(.(.(.p..
009490: 00 00 A1 10 1B 4C 0C 00 02 70 8A 00 8A 00 8A 70 .....L...p.....p
0094A0: 02 00 00 00 A2 04 1B 52 01 5B A3 04 1B 52 03 23 .......R.[£..R.#
0094B0: A4 10 1B 4C 0C 00 38 44 92 28 82 28 82 00 44 38 ...L..8D.(.(..D8
0094C0: 00 00 A5 10 1B 4C 0C 00 40 00 F0 00 FE 00 80 7E .....L..@......~
0094D0: 80 00 00 00 A6 04 1B 52 01 5D A7 0A 1B 4B 06 00 .......R.]...K..
0094E0: 38 90 FF 90 38 00 A8 10 1B 4C 0C 00 40 00 FA 04 8...8....L..@...
0094F0: 0A 00 1F 00 02 00 00 00 A9 10 1B 4C 0C 00 40 00 ...........L..@.
009500: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
009510: 22 22 0D 0A 3E 73 76 20 76 61 74 35 3D 78 0D 0A ""..>sv vat5=x..
009520: 3E 65 69 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 >ei..>sv vat1=va
009530: 74 31 2F 31 30 30 20 76 61 74 32 3D 76 61 74 32 t1/100 vat2=vat2
009540: 2F 31 30 30 20 76 61 74 33 3D 76 61 74 33 2F 31 /100 vat3=vat3/1
009550: 30 30 20 76 61 74 34 3D 76 61 74 34 2F 31 30 30 00 vat4=vat4/100
009560: 20 76 61 74 35 3D 76 61 74 35 2F 31 30 30 0D 0A vat5=vat5/100..
009570: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 >ei..>dm " "..>i
009580: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
009590: 64 6D 20 22 45 4E 54 45 52 20 50 52 4F 44 55 43 dm "ENTER PRODUC
0095A0: 54 20 41 4E 44 20 43 55 53 54 4F 4D 45 52 20 44 T AND CUSTOMER D
0095B0: 49 53 43 4F 55 4E 54 20 43 4F 44 45 53 22 0D 0A ISCOUNT CODES"..
0095C0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 61 >dm " "..>dm "Ea
0095D0: 63 68 20 70 72 6F 64 75 63 74 20 68 61 73 20 61 ch product has a
0095E0: 6E 20 61 73 73 6F 63 69 61 74 65 64 20 64 69 73 n associated dis
0095F0: 63 6F 75 6E 74 20 6E 75 6D 62 65 72 22 0D 0A 3E count number"..>
009600: 64 6D 20 22 61 6E 64 20 66 6F 72 20 65 61 63 68 dm "and for each
009610: 20 69 6E 76 6F 69 63 65 20 61 20 64 69 73 63 6F invoice a disco
009620: 75 6E 74 20 6C 65 74 74 65 72 20 6D 61 79 20 62 unt letter may b
009630: 65 20 75 73 65 64 22 0D 0A 3E 64 6D 20 22 20 22 e used"..>dm " "
009640: 0D 0A 3E 64 6D 20 22 54 68 75 73 20 74 68 65 20 ..>dm "Thus the
009650: 69 6E 76 6F 69 63 65 20 66 6F 72 20 61 6E 20 6F invoice for an o
009660: 72 64 65 72 20 61 74 20 64 69 73 63 6F 75 6E 74 rder at discount
009670: 20 41 20 77 69 6C 6C 20 62 65 22 0D 0A 3E 64 6D A will be"..>dm
009680: 20 22 63 61 6C 63 75 6C 61 74 65 64 20 75 73 69 "calculated usi
009690: 6E 67 20 64 69 73 63 6F 75 6E 74 20 72 61 74 65 ng discount rate
0096A0: 73 20 41 31 2C 20 41 32 2C 20 41 33 20 65 74 63 s A1, A2, A3 etc
0096B0: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
0096C0: 22 54 68 65 20 76 61 6C 75 65 73 20 65 6E 74 65 "The values ente
0096D0: 72 65 64 20 68 65 72 65 20 73 68 6F 75 6C 64 20 red here should
0096E0: 62 65 20 70 65 72 63 65 6E 74 61 67 65 20 64 69 be percentage di
0096F0: 73 63 6F 75 6E 74 73 22 0D 0A 3E 64 6D 20 22 46 scounts"..>dm "F
009700: 45 49 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D EI ; id df..>>>.
009710: 0A 3E 63 73 0D 0A 3E 64 6D 20 22 4D 61 69 6C 20 .>cs..>dm "Mail
009720: 6D 65 72 67 69 6E 67 20 2E 2E 2E 0D 0A 3E 3E 3E merging .....>>>
009730: 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 ..>>> Common cod
009740: 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 e for mail merge
009750: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 templates..>iu
009760: 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A df..>df fm.mus..
009770: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
009780: 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 n fm$pfi$..>sv f
009790: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
0097A0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
0097B0: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
0097C0: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
0097D0: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
0097E0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
0097F0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
009800: 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 >sv flist = flis
009810: 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E t + " f&n&"..>un
009820: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F n>=rlen..>>> so
009830: 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 rt out which dat
009840: 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 afile to use (ma
009850: 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 in/update/select
009860: 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D ion)..>if mus="m
009870: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
009880: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
009890: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
0098A0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
0098B0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
0098C0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
0098D0: 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 64 20 64 66 nd$..>ei ; id df
0098E0: 0D 0A 3E 3E 3E 0D 0A 1A 20 53 45 43 54 49 4F 4E ..>>>... SECTION
0098F0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 00 02 09 4E E5 08 00 C1 02 00 00 00 02 ......N.........
009920: 08 00 C6 02 00 00 00 02 08 00 C2 02 00 00 00 02 ................
009930: 08 00 C7 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009940: 08 00 C8 02 00 00 00 02 08 00 C4 02 00 00 00 02 ................
009950: 08 00 C9 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 6C 6F 61 64 20 6F 6D 73 74 61 67 65 6E 7C 31 33 load omstagen|13
009A10: 7C 7C 31 36 7C 70 7C 31 33 7C 1A 70 66 20 69 6E ||16|p|13|.pf in
009A20: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
009A30: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
009A40: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
009A50: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
009A60: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
009A70: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
009A80: 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E 61 el..>rp..>av "Na
009A90: 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E 61 me of file: " na
009AA0: 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C 3E me 8..>un name<>
009AB0: 22 22 0D 0A 3E 73 76 20 73 74 61 63 6D 64 3D 22 ""..>sv stacmd="
009AC0: 70 66 20 26 69 6E 76 64 72 76 26 3A 26 6E 61 6D pf &invdrv&:&nam
009AD0: 65 26 2E 70 6F 73 22 0D 0A 3E 65 69 0D 0A 3E 7A e&.pos"..>ei..>z
009AE0: 6D 0D 0A 26 73 74 61 63 6D 64 26 0D 0A 3E 65 78 m..&stacmd&..>ex
009AF0: 20 78 73 20 22 6C 6F 61 64 20 6F 6D 73 74 61 67 xs "load omstag
009B00: 65 6E 7C 31 33 7C 26 73 74 61 63 6D 64 26 7C 31 en|13|&stacmd&|1
009B10: 33 7C 22 0D 0A 3E 73 74 0D 0A 1A 3E 72 76 20 61 3|"..>st...>rv a
009B20: 64 64 72 64 72 76 2C 69 6E 76 64 72 76 0D 0A 3E ddrdrv,invdrv..>
009B30: 63 66 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 cf..>av "Stateme
009B40: 6E 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 nt to printer or
009B50: 20 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 file (p/F)? " x
009B60: 20 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 1..>if x="p"..>
009B70: 73 76 20 73 74 61 63 6D 64 3D 22 70 22 0D 0A 3E sv stacmd="p"..>
009B80: 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 64 descwidth..>rv d
009B90: 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 43 iscA,discB,discC
009BA0: 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E 72 ,discD,discE..>r
009BB0: 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 69 v prconame,exori
009BC0: 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B 66 nc,showdisc,askf
009BD0: 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F 64 n,askcar,useprod
009BE0: 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 61 ,defdisc..>rv ca
009BF0: 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E 65 line,aline,tline
009C00: 26 73 63 26 21 63 6F 61 35 21 EC 0D 0A 3E 65 69 &sc&!coa5!...>ei
009C10: 0D 0A 3E 73 76 6E 3D 61 6C 2D 63 61 6C 2D 36 0D ..>svn=al-cal-6.
009C20: 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 76 6E .>rp..&sc&..>svn
009C30: 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A 26 73 =n-1..>unn=0..&s
009C40: 63 26 21 61 30 21 0D 0A 26 73 63 26 21 61 31 21 c&!a0!..&sc&!a1!
009C50: 0D 0A 26 73 63 26 21 61 32 21 0D 0A 26 73 63 26 ..&sc&!a2!..&sc&
009C60: 21 61 33 21 09 EC 26 74 26 EC 0D 0A 26 73 63 26 !a3!..&t&...&sc&
009C70: 21 61 34 21 09 0D 0A 26 73 63 26 21 61 35 21 09 !a4!...&sc&!a5!.
009C80: 44 61 74 65 20 20 20 20 20 20 20 26 68 26 0D 0A Date &h&..
009C90: 26 73 63 26 21 61 36 21 0D 0A 26 73 63 26 21 61 &sc&!a6!..&sc&!a
009CA0: 37 21 0D 0A 3E 73 76 6E 3D 74 6C 2D 61 6C 2D 38 7!..>svn=tl-al-8
009CB0: 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 76 ..>rp..&sc&..>sv
009CC0: 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A 3E n=n-1..>unn=0..>
009CD0: 77 66 6F 6E 0D 0A 26 72 32 26 0D 0A 3E 77 66 6F wfon..&r2&..>wfo
009CE0: 66 66 0D 0A 26 73 63 26 44 41 54 45 09 49 4E 56 ff..&sc&DATE.INV
009CF0: 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 42 49 OICE NO.. DEBI
009D00: 54 09 20 20 43 52 45 44 49 54 09 42 41 4C 41 4E T. CREDIT.BALAN
009D10: 43 45 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 33 26 0D CE..>wfon..&r3&.
009D20: 0A 3E 77 66 6F 66 66 0D 0A 26 73 63 26 0D 0A 3E .>wfoff..&sc&..>
009D30: 73 76 62 3D 69 6E 66 6F 6C 73 0D 0A 3E 64 6D 22 svb=infols..>dm"
009D40: 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 28 52 Enter details (R
009D50: 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 0D ETURN to end): .
009D60: 0A 3E 64 6D 22 20 0D 0A 3E 72 70 0D 0A 3E 61 76 .>dm" ..>rp..>av
009D70: 22 4F 70 65 6E 69 6E 67 20 62 61 6C 61 6E 63 65 "Opening balance
009D80: 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A (- for credit):
009D90: 20 A3 22 20 74 6F 74 0D 0A 3E 69 66 20 74 6F 74 £" tot..>if tot
009DA0: 3D 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 2E 30 =""..>sv tot=0.0
009DB0: 30 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 74 6F 74 5B 0..>ei..>un tot[
009DC0: 31 5D 20 69 6E 20 22 2D 30 31 32 33 34 35 36 37 1] in "-01234567
009DD0: 38 39 22 0D 0A 3E 73 76 20 74 6F 74 3D 74 6F 74 89"..>sv tot=tot
009DE0: 2B 30 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A +0..>if tot<>0..
009DF0: 26 73 63 26 43 61 72 72 69 65 64 20 66 77 64 2E &sc&Carried fwd.
009E00: 22 0D 0A 41 72 6E 6F 72 20 4C 74 64 0D 0A 50 72 "..Arnor Ltd..Pr
009E10: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
009E20: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 65 74 65 72 nman Road..Peter
009E30: 62 6F 72 6F 75 67 68 0D 0A 50 45 32 20 30 42 55 borough..PE2 0BU
009E40: 0D 0A 0D 0A 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....-----------
009E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
009E80: 6B 73 2E 09 0D 0A 48 50 37 20 39 4C 4C 09 44 61 ks....HP7 9LL.Da
009E90: 74 65 20 20 20 20 20 20 20 31 34 20 4D 61 72 20 te 14 Mar
009EA0: 31 39 38 38 0D 0A 41 74 74 65 6E 74 69 6F 6E 3A 1988..Attention:
009EB0: 46 69 6E 61 6E 63 69 61 6C 20 44 65 70 74 0D 0A Financial Dept..
009EC0: 0D 0A 0D 0A 0D 0A 0D 0A 44 41 54 45 09 49 4E 56 ........DATE.INV
009ED0: 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 42 49 OICE NO.. DEBI
009EE0: 54 09 20 20 43 52 45 44 49 54 09 42 41 4C 41 4E T. CREDIT.BALAN
009EF0: 43 45 0D 0A 0D 0A 31 2E 31 2E 38 38 09 31 30 32 CE....1.1.88.102
009F00: 34 09 39 37 36 2E 34 35 09 09 39 37 36 2E 34 35 4.976.45..976.45
009F10: 0D 0A 32 2E 31 2E 38 38 09 31 30 35 35 09 34 33 ..2.1.88.1055.43
009F20: 35 2E 33 33 09 09 31 34 31 31 2E 37 38 0D 0A 0D 5.33..1411.78...
009F30: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009F40: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009F50: 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 0D 0A 20 0D 0A 20 ......... .. ..
009F60: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 54 68 65 20 61 .. .. .. ..The a
009F70: 6D 6F 75 6E 74 20 64 75 65 20 69 73 20 74 68 65 mount due is the
009F80: 20 6C 61 73 74 20 66 69 67 75 72 65 20 69 6E 20 last figure in
009F90: 74 68 65 20 27 42 41 4C 41 4E 43 45 27 20 63 6F the 'BALANCE' co
009FA0: 6C 75 6D 6E 0D 0A 45 2E 20 26 20 4F 2E 45 2E 0D lumn..E. & O.E..
009FB0: 0A 1A 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009FC0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009FD0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 0D 0A 20 0D 0A 20 ......... .. ..
009FE0: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 54 68 65 20 61 .. .. .. ..The a
009FF0: 6D 6F 75 6E 74 20 64 75 65 20 69 73 20 74 68 65 mount due is the
00A000: 6F 72 20 65 61 63 68 20 64 69 73 63 6F 75 6E 74 or each discount
00A010: 20 6C 65 74 74 65 72 20 65 6E 74 65 72 20 6C 69 letter enter li
00A020: 73 74 20 6F 66 20 64 69 73 63 6F 75 6E 74 73 20 st of discounts
00A030: 66 6F 72 20 22 0D 0A 3E 64 6D 20 22 70 72 6F 64 for "..>dm "prod
00A040: 75 63 74 20 74 79 70 65 31 2C 20 74 79 70 65 32 uct type1, type2
00A050: 2C 20 74 79 70 65 33 20 65 74 63 2C 20 73 65 70 , type3 etc, sep
00A060: 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73 arated by spaces
00A070: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 "..>dm " "..>av
00A080: 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 6F 72 "% Discounts for
00A090: 20 41 20 5B 26 64 69 73 63 41 26 5D 3A 20 22 20 A [&discA&]: "
00A0A0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
00A0B0: 3E 73 76 20 64 69 73 63 61 3D 78 0D 0A 3E 65 69 >sv disca=x..>ei
00A0C0: 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F 75 6E ..>av "% Discoun
00A0D0: 74 73 20 66 6F 72 20 42 20 5B 26 64 69 73 63 42 ts for B [&discB
00A0E0: 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C &]: " x..>if x <
00A0F0: 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 62 3D > ""..>sv discb=
00A100: 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 25 20 44 x..>ei..>av "% D
00A110: 69 73 63 6F 75 6E 74 73 20 66 6F 72 20 43 20 5B iscounts for C [
00A120: 26 64 69 73 63 43 26 5D 3A 20 22 20 78 0D 0A 3E &discC&]: " x..>
00A130: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
00A140: 64 69 73 63 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 discc=x..>ei..>a
00A150: 76 20 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 v "% Discounts f
00A160: 6F 72 20 44 20 5B 26 64 69 73 63 44 26 5D 3A 20 or D [&discD&]:
00A170: 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 " x..>if x <> ""
00A180: 0D 0A 3E 73 76 20 64 69 73 63 64 3D 78 0D 0A 3E ..>sv discd=x..>
00A190: 65 69 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F ei..>av "% Disco
00A1A0: 75 6E 74 73 20 66 6F 72 20 45 20 5B 26 64 69 73 unts for E [&dis
00A1B0: 63 45 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 cE&]: " x..>if x
00A1C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 <> ""..>sv disc
00A1D0: 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E e=x..>ei..>rp..>
00A1E0: 61 76 20 22 45 6E 74 65 72 20 6D 6F 73 74 20 75 av "Enter most u
00A1F0: 73 65 64 20 64 69 73 63 6F 75 6E 74 20 63 6F 64 sed discount cod
00A200: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 6D 75 73 >sv df="mus
00A210: 69 63 22 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 ic"..>sv newfile
00A220: 3D 22 6D 75 73 69 63 2E 6E 65 77 0D 0A 3E 73 76 ="music.new..>sv
00A230: 20 73 65 6C 66 69 6C 65 3D 22 6D 75 73 69 63 2E selfile="music.
00A240: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
00A250: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
00A260: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
00A270: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
00A280: 76 20 6E 32 3D 22 74 69 74 6C 65 22 0D 0A 3E 73 v n2="title"..>s
00A290: 76 20 6E 33 3D 22 6D 65 64 69 75 6D 22 0D 0A 3E v n3="medium"..>
00A2A0: 73 76 20 6E 34 3D 22 79 65 61 72 20 72 65 63 6F sv n4="year reco
00A2B0: 72 64 65 64 22 0D 0A 3E 73 76 20 6E 35 3D 22 6F rded"..>sv n5="o
00A2C0: 72 63 68 65 73 74 72 61 2F 70 65 72 66 6F 72 6D rchestra/perform
00A2D0: 65 72 22 0D 0A 3E 73 76 20 6E 36 3D 22 63 6F 6E er"..>sv n6="con
00A2E0: 64 75 63 74 6F 72 22 0D 0A 3E 73 76 20 6E 37 3D ductor"..>sv n7=
00A2F0: 22 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 ""..>sv fsortopt
00A300: 73 3D 22 2F 66 37 20 2F 73 31 2C 32 20 2F 61 31 s="/f7 /s1,2 /a1
00A310: 20 2F 61 32 22 0D 0A 3E 73 76 20 6D 61 78 77 3D /a2"..>sv maxw=
00A320: 22 32 30 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C "20"..>sv lastbl
00A330: 61 6E 6B 3D 22 79 22 0D 0A 1A 6D 75 73 69 63 2E ank="y"...music.
00A340: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
00A350: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
00A360: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
00A370: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
00A380: 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C 7C |765||233||541||
00A390: 32 33 33 7C 22 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 233|"..>el..>wm
00A3A0: 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 7C "clear|13|y|766|
00A3B0: 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 7C merge fm.one|13|
00A3C0: 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 34 31 7C 7C |765||538||541||
00A3D0: 35 33 38 7C 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 538|"..>ei..>>>>
00A3E0: 77 6D 20 22 6C 20 66 6D 2E 6F 6E 65 7C 31 33 7C wm "l fm.one|13|
00A3F0: 79 7C 36 33 39 7C 7C 37 36 34 7C 7C 32 33 33 7C y|639||764||233|
00A400: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
00A410: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
00A420: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
00A430: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
00A440: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
00A450: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
00A460: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
00A470: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
00A480: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
00A490: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
00A4A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
00A4B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
00A4C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
00A4D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
00A4E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
00A4F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
00A500: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
00A510: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
00A520: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
00A530: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
00A540: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
00A550: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
00A560: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
00A570: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
00A580: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
00A590: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
00A5A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
00A5B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
00A5C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
00A5D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
00A5E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
00A5F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
00A600: 0A 3E 61 76 20 22 4C 69 6E 65 20 6E 75 6D 62 65 .>av "Line numbe
00A610: 72 20 74 6F 20 70 72 69 6E 74 20 74 6F 74 61 6C r to print total
00A620: 73 20 5B 26 74 6F 74 6C 69 6E 65 26 5D 3A 20 22 s [&totline&]: "
00A630: 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E n..>if n<>""..>
00A640: 73 76 20 74 6F 74 6C 69 6E 65 3D 6E 0D 0A 3E 65 sv totline=n..>e
00A650: 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E 65 73 3D 74 i ..>sv nlines=t
00A660: 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 20 6E 6C 69 otline-tline nli
00A670: 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 31 5D 0D 0A nes=nlines[w1]..
00A680: 3E 73 76 20 69 77 69 64 74 68 3D 72 63 31 2B 72 >sv iwidth=rc1+r
00A690: 63 32 2B 72 63 33 2B 72 63 34 2B 72 63 35 2B 31 c2+rc3+rc4+rc5+1
00A6A0: 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 74 68 2D 33 ..>sv n=iwidth-3
00A6B0: 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 66 20 1..>dm " "..>if
00A6C0: 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 64 6D 20 vatreg="y"..>dm
00A6D0: 22 43 4F 4E 46 49 47 55 52 45 20 56 41 54 20 43 "CONFIGURE VAT C
00A6E0: 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ODES"..>dm " "..
00A6F0: 3E 73 76 20 76 61 74 31 3D 76 61 74 31 2A 31 30 >sv vat1=vat1*10
00A700: 30 20 76 61 74 31 3D 76 61 74 31 5B 77 31 5D 0D 0 vat1=vat1[w1].
00A710: 0A 3E 73 76 20 76 61 74 32 3D 76 61 74 32 2A 31 .>sv vat2=vat2*1
00A720: 30 30 20 76 61 74 32 3D 76 61 74 32 5B 77 31 5D 00 vat2=vat2[w1]
00A730: 0D 0A 3E 73 76 20 76 61 74 33 3D 76 61 74 33 2A ..>sv vat3=vat3*
00A740: 31 30 30 20 76 61 74 33 3D 76 61 74 33 5B 77 31 100 vat3=vat3[w1
00A750: 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 76 61 74 34 ]..>sv vat4=vat4
00A760: 2A 31 30 30 20 76 61 74 34 3D 76 61 74 34 5B 77 *100 vat4=vat4[w
00A770: 31 5D 0D 0A 3E 73 76 20 76 61 74 35 3D 76 61 74 1]..>sv vat5=vat
00A780: 35 2A 31 30 30 20 76 61 74 35 3D 76 61 74 35 5B 5*100 vat5=vat5[
00A790: 77 31 5D 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E w1]..>av "Percen
00A7A0: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
00A7B0: 65 20 31 20 5B 26 76 61 74 31 26 5D 3A 20 22 20 e 1 [&vat1&]: "
00A7C0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
00A7D0: 3E 73 76 20 76 61 74 31 3D 78 0D 0A 3E 65 69 0D >sv vat1=x..>ei.
00A7E0: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
00A7F0: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 32 20 for VAT rate 2
00A800: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 61 64 64 >sv df="add
00A810: 72 65 73 73 22 0D 0A 3E 73 76 20 6E 65 77 66 69 ress"..>sv newfi
00A820: 6C 65 3D 22 61 64 64 72 65 73 73 2E 6E 65 77 0D le="address.new.
00A830: 0A 3E 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 .>sv selfile="ad
00A840: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
00A850: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
00A860: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
00A870: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
00A880: 6E 32 3D 22 74 65 6C 65 70 68 6F 6E 65 22 0D 0A n2="telephone"..
00A890: 3E 73 76 20 6E 33 3D 22 61 64 64 72 31 22 0D 0A >sv n3="addr1"..
00A8A0: 3E 73 76 20 6E 34 3D 22 61 64 64 72 32 22 0D 0A >sv n4="addr2"..
00A8B0: 3E 73 76 20 6E 35 3D 22 61 64 64 72 33 22 0D 0A >sv n5="addr3"..
00A8C0: 3E 73 76 20 6E 36 3D 22 61 64 64 72 34 22 0D 0A >sv n6="addr4"..
00A8D0: 3E 73 76 20 6E 37 3D 22 61 64 64 72 35 22 0D 0A >sv n7="addr5"..
00A8E0: 3E 73 76 20 6E 38 3D 22 70 6F 73 74 63 6F 64 65 >sv n8="postcode
00A8F0: 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 "..>sv fsortopts
00A900: 3D 22 2F 76 20 2F 73 31 20 2F 70 31 22 0D 0A 3E ="/v /s1 /p1"..>
00A910: 73 76 20 6D 61 78 77 3D 22 31 30 22 0D 0A 3E 73 sv maxw="10"..>s
00A920: 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 6E 22 0D v lastblank="n".
00A930: 0A 1A 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 ..sv selfile="ad
00A940: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
00A950: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
00A960: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
00A970: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
00A980: 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F "&nn& records fo
00A990: 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 und. Press a key
00A9A0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E to continue ...
00A9B0: 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 ..>wc..>cf..>ex
00A9C0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
00A9D0: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
00A9E0: 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 ;id df..>>>..>iu
00A9F0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
00AA00: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
00AA10: 37 36 34 7C 7C 37 36 36 7C 1A 1A 70 66 20 69 6E 764||766|..pf in
00AA20: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
00AA30: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
00AA40: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
00AA50: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
00AA60: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
00AA70: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
00AA80: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ">--------------
00AA90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AAA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
00AAB0: 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D --------L-------
00AAC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E ----------R"..">
00AAD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
00AAE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
00AAF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D --------------!-
00AB00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
00AB10: 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D --------R"..">--
00AB20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
00AB30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AB40: 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --.-------------
00AB50: 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -.--------------
00AB60: 2E 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D .-----R"..">----
00AB70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AB80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00AB90: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
00ABA0: 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D ------L-------.-
00ABB0: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
00ABC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ABD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ABE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ABF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 00 02 09 4E E5 09 00 C1 02 00 00 00 02 ......N.........
00AC20: 09 00 C6 02 00 00 00 02 09 00 C2 02 00 00 00 02 ................
00AC30: 09 00 C7 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC40: 09 00 C8 02 00 00 00 02 09 00 C4 02 00 00 00 02 ................
00AC50: 09 00 C9 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 72 6F 78 20 42 75 73 69 6E 65 73 73 20 50 61 72 rox Business Par
00AD10: 6B 0D 0A 4D 69 74 63 68 65 6C 64 65 61 6E 0D 0A k..Mitcheldean..
00AD20: 47 6C 6F 73 2E 20 47 4C 31 37 20 30 44 44 0D 0A Glos. GL17 0DD..
00AD30: 0D 0A 41 74 6C 61 6E 74 69 73 20 53 6F 66 74 77 ..Atlantis Softw
00AD40: 61 72 65 20 4C 74 64 0D 0A 32 38 20 53 74 61 74 are Ltd..28 Stat
00AD50: 69 6F 6E 20 52 64 0D 0A 4C 6F 6E 64 6F 6E 0D 0A ion Rd..London..
00AD60: 53 45 32 35 20 35 41 47 0D 0A 0D 0A 41 74 6F 6D SE25 5AG....Atom
00AD70: 69 63 20 43 6F 6D 70 75 74 65 72 20 53 79 73 74 ic Computer Syst
00AD80: 65 6D 73 0D 0A 33 39 20 53 74 61 6E 64 69 73 68 ems..39 Standish
00AD90: 20 53 74 72 65 65 74 0D 0A 42 75 72 6E 6C 65 79 Street..Burnley
00ADA0: 0D 0A 4C 61 6E 63 73 0D 0A 42 42 31 31 20 31 41 ..Lancs..BB11 1A
00ADB0: 50 0D 0A 0D 0A 41 54 54 20 53 79 73 74 65 6D 73 P....ATT Systems
00ADC0: 20 4C 74 64 0D 0A 31 36 20 50 61 63 6B 20 52 6F Ltd..16 Pack Ro
00ADD0: 61 64 0D 0A 4B 65 6E 6E 69 6C 77 6F 72 74 68 0D ad..Kennilworth.
00ADE0: 0A 57 6F 72 63 73 2E 0D 0A 43 56 38 20 32 47 46 .Worcs...CV8 2GF
00ADF0: 0D 0A 0D 0A 42 61 73 69 63 20 45 6E 74 65 72 70 ....Basic Enterp
00AE00: 72 69 73 65 73 0D 0A 32 37 20 47 6F 72 64 6F 6E rises..27 Gordon
00AE10: 20 53 74 72 65 65 74 0D 0A 4B 65 74 74 65 72 69 Street..Ketteri
00AE20: 6E 67 0D 0A 4E 4E 31 36 20 4F 52 55 0D 0A 0D 0A ng..NN16 ORU....
00AE30: 42 26 42 20 4F 66 66 69 63 65 20 4D 61 63 68 69 B&B Office Machi
00AE40: 6E 65 72 79 0D 0A 32 30 32 20 57 68 69 74 68 61 nery..202 Whitha
00AE50: 6D 20 52 6F 61 64 0D 0A 53 68 65 66 66 69 65 6C m Road..Sheffiel
00AE60: 64 0D 0A 53 2E 59 6F 72 6B 73 2E 0D 0A 09 0D 0A d..S.Yorks......
00AE70: 42 65 64 67 65 62 75 72 79 20 53 63 68 6F 6F 6C Bedgebury School
00AE80: 0D 0A 42 65 64 67 65 62 75 72 79 20 50 61 72 6B ..Bedgebury Park
00AE90: 0D 0A 47 6F 75 64 68 75 72 73 74 0D 0A 43 72 61 ..Goudhurst..Cra
00AEA0: 6E 62 72 6F 6F 6B 0D 0A 4B 65 6E 74 0D 0A 54 4E nbrook..Kent..TN
00AEB0: 31 37 20 32 53 48 0D 0A 0D 0A 55 6E 69 76 65 72 17 2SH....Univer
00AEC0: 73 69 74 79 20 6F 66 20 42 61 74 68 0D 0A 55 6E sity of Bath..Un
00AED0: 69 76 65 72 73 69 74 79 20 41 63 63 6F 75 6E 74 iversity Account
00AEE0: 61 6E 74 0D 0A 43 6C 61 76 65 72 74 6F 6E 20 44 ant..Claverton D
00AEF0: 6F 77 6E 0D 0A 42 61 74 68 0D 0A 42 41 32 20 37 own..Bath..BA2 7
00AF00: 73 76 20 6D 69 6E 3D 6E 0D 0A 3E 65 69 20 3B 20 sv min=n..>ei ;
00AF10: 6D 69 6E 3D 30 0D 0A 3E 65 69 20 3B 20 64 6E 3D min=0..>ei ; dn=
00AF20: 22 79 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E "y"..>un n>=rlen
00AF30: 0D 0A 3E 65 69 20 3B 20 61 6C 6C 3D 22 79 22 0D ..>ei ; all="y".
00AF40: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E .>dm " "..>rp..>
00AF50: 61 76 20 22 50 72 69 6E 74 20 61 20 62 6C 61 6E av "Print a blan
00AF60: 6B 20 6C 69 6E 65 20 61 66 74 65 72 20 65 61 63 k line after eac
00AF70: 68 20 72 65 63 6F 72 64 20 5B 59 2F 6E 5D 3F 20 h record [Y/n]?
00AF80: 22 20 62 6C 61 6E 6B 0D 0A 3E 75 6E 20 62 6C 61 " blank..>un bla
00AF90: 6E 6B 20 69 6E 20 22 79 6E 22 0D 0A 3E 64 6D 20 nk in "yn"..>dm
00AFA0: 22 20 22 0D 0A 3E 69 66 20 62 6C 61 6E 6B 3D 22 " "..>if blank="
00AFB0: 6E 22 0D 0A 3E 73 76 20 62 6C 61 6E 6B 3D 22 3E n"..>sv blank=">
00AFC0: 3E 3E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 62 6C >>"..>el..>sv bl
00AFD0: 61 6E 6B 3D 73 63 2B 22 27 22 20 2B 20 22 20 22 ank=sc+"'" + " "
00AFE0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 ..>ei..>>>..>if
00AFF0: 6D 75 73 3D 22 75 22 0D 0A 3E 64 66 20 26 6E 65 mus="u"..>df &ne
00B000: 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A wfile& fo$end$..
00B010: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 >ei..>if mus="m"
00B020: 0D 0A 3E 64 66 20 26 64 66 26 20 66 6F 24 65 6E ..>df &df& fo$en
00B030: 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 d$..>ei..>if mus
00B040: 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 ="s"..>df &selfi
00B050: 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 le& fo$end$..>ei
00B060: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 73 66 70 3D 22 ..>>>..>if sfp="
00B070: 66 22 0D 0A 3E 77 66 20 26 66 26 0D 0A 3E 65 69 f"..>wf &f&..>ei
00B080: 0D 0A 1A 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D ... df..&flist&.
00B090: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
00B0A0: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
00B0B0: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
00B0C0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
00B0D0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
00B0E0: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
00B0F0: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
00B100: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
00B110: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
00B120: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
00B130: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
00B140: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
00B150: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
00B160: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
00B170: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
00B180: 64 6E 3D 22 79 22 0D 0A 3E 75 6E 20 6E 3E 3D 6D dn="y"..>un n>=m
00B190: 61 78 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B ax..!blank!..>sk
00B1A0: 20 22 71 22 3D 22 71 22 0D 0A 3E 65 6C 20 3B 20 "q"="q"..>el ;
00B1B0: 61 6C 6C 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 all..>sv n=0..>i
00B1C0: 66 20 66 76 3D 22 66 22 0D 0A 3E 72 70 0D 0A 3E f fv="f"..>rp..>
00B1D0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
00B1E0: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 ..>sv s=f&n&+" "
00B1F0: 0D 0A 26 73 63 26 21 73 21 0D 0A 3E 75 6E 20 6E ..&sc&!s!..>un n
00B200: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
00B210: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
00B220: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
00B230: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
00B240: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
00B250: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
00B260: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
00B270: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
00B280: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
00B290: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
00B2A0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
00B2B0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
00B2C0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
00B2D0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
00B2E0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
00B2F0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
00B300: 20 53 74 72 65 65 74 0D 0A 4D 61 6E 63 68 65 73 Street..Manches
00B310: 74 65 72 0D 0A 4D 33 20 33 45 52 0D 0A 0D 0A 43 ter..M3 3ER....C
00B320: 61 72 6D 61 72 74 68 65 6E 73 68 69 72 65 20 43 armarthenshire C
00B330: 6F 6C 6C 2E 20 6F 66 20 54 65 63 68 2E 20 61 6E oll. of Tech. an
00B340: 64 20 41 72 74 0D 0A 46 61 63 75 6C 74 79 20 6F d Art..Faculty o
00B350: 66 20 41 72 74 20 26 20 44 65 73 69 67 6E 0D 0A f Art & Design..
00B360: 4A 6F 62 27 73 20 57 65 6C 6C 20 52 6F 61 64 0D Job's Well Road.
00B370: 0A 43 61 72 6D 61 72 74 68 65 6E 0D 0A 44 79 66 .Carmarthen..Dyf
00B380: 65 64 20 53 41 33 31 20 33 48 59 0D 0A 0D 0A 43 ed SA31 3HY....C
00B390: 2E 41 2E 53 2E 53 2E 0D 0A 34 39 2D 35 33 20 48 .A.S.S...49-53 H
00B3A0: 61 7A 65 6C 77 6F 6F 64 20 52 6F 61 64 0D 0A 4E azelwood Road..N
00B3B0: 6F 72 74 68 61 6D 70 74 6F 6E 0D 0A 4E 4E 31 20 orthampton..NN1
00B3C0: 31 4C 47 0D 0A 0D 0A 43 61 73 70 65 6C 6C 20 43 1LG....Caspell C
00B3D0: 6F 6D 70 75 74 65 72 73 0D 0A 34 33 20 45 6D 65 omputers..43 Eme
00B3E0: 72 73 6F 6E 20 52 6F 61 64 0D 0A 50 6F 6F 6C 65 rson Road..Poole
00B3F0: 0D 0A 44 6F 72 73 65 74 0D 0A 42 48 31 35 20 31 ..Dorset..BH15 1
00B400: 51 53 0D 0A 0D 0A 43 61 73 74 6C 65 20 43 6F 6D QS....Castle Com
00B410: 70 75 74 65 72 73 0D 0A 35 20 46 66 72 61 6E 63 puters..5 Ffranc
00B420: 65 73 20 50 61 73 73 61 67 65 0D 0A 4C 61 6E 63 es Passage..Lanc
00B430: 61 73 74 65 72 0D 0A 4C 41 31 20 31 55 47 0D 0A aster..LA1 1UG..
00B440: 0D 0A 43 65 6E 74 72 61 6C 20 52 65 67 69 6F 6E ..Central Region
00B450: 61 6C 20 43 6F 75 6E 63 69 6C 0D 0A 53 6F 63 69 al Council..Soci
00B460: 61 6C 20 57 6F 72 6B 20 44 65 70 74 2E 0D 0A 4C al Work Dept...L
00B470: 61 6E 67 67 61 72 74 68 0D 0A 53 74 69 72 6C 69 anggarth..Stirli
00B480: 6E 67 0D 0A 46 4B 38 20 32 48 41 0D 0A 0D 0A 43 ng..FK8 2HA....C
00B490: 65 6E 74 72 65 73 6F 66 74 20 4C 74 64 0D 0A 55 entresoft Ltd..U
00B4A0: 6E 69 74 73 20 32 20 26 20 33 0D 0A 48 6F 6C 66 nits 2 & 3..Holf
00B4B0: 6F 72 64 20 57 61 79 0D 0A 48 6F 6C 66 6F 72 64 ord Way..Holford
00B4C0: 0D 0A 42 69 72 6D 69 6E 67 68 61 6D 0D 0A 42 36 ..Birmingham..B6
00B4D0: 20 37 41 58 0D 0A 0D 0A 43 65 72 61 63 20 43 6F 7AX....Cerac Co
00B4E0: 6D 70 75 74 65 72 20 53 75 70 70 6C 69 65 73 0D mputer Supplies.
00B4F0: 0A 35 33 20 57 6F 6F 64 63 6F 74 65 20 52 6F 61 .53 Woodcote Roa
00B500: 22 0D 0A 3E 77 74 20 22 50 72 65 73 73 20 61 20 "..>wt "Press a
00B510: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
00B520: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 6C .....>wc..>cf.;l
00B530: 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 6E et exec have han
00B540: 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 dle 0..>ex exec
00B550: 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 66 fm..>st..>ei ; f
00B560: 31 3D 65 6E 64 0D 0A 3E 65 69 20 3B 20 64 65 66 1=end..>ei ; def
00B570: 69 6E 65 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ined df..>>>..>i
00B580: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
00B590: 64 6D 20 22 4F 70 74 69 6F 6E 20 50 20 2D 20 50 dm "Option P - P
00B5A0: 72 69 6E 74 2F 64 69 73 70 6C 61 79 20 72 65 63 rint/display rec
00B5B0: 6F 72 64 73 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ords..>dm " "..>
00B5C0: 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 in fm$pfi$..>sv
00B5D0: 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C fv=fv[1] rlen=rl
00B5E0: 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 en[w1]..>if fv="
00B5F0: 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E f"..>sv flist=">
00B600: 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C ru"..>el..>sv fl
00B610: 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A ist=">rv"..>ei..
00B620: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
00B630: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
00B640: 0A 3E 73 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 .>sv flist=flist
00B650: 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E +" f&n&"..>un n>
00B660: 3D 72 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 =rlen..>sv n=n+1
00B670: 20 6D 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D m=n+1 n=n[w1] m
00B680: 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 66 26 6E 26 =m[w1]..>sv f&n&
00B690: 3D 22 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 3E 3E ="" f&m&=""..>>>
00B6A0: 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 4D 61 ..>dm " M - Ma
00B6B0: 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 26 64 in data file (&d
00B6C0: 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 f&)..>dm " "..>d
00B6D0: 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 74 65 m " U - Update
00B6E0: 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 66 69 file (&newfi
00B6F0: 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E le&)..>dm " "..>
00B700: 7F 41 72 6E 6F 72 20 28 44 65 75 74 73 63 68 6C .Arnor (Deutschl
00B710: 61 6E 64 29 20 4C 74 64 2E 0D 0A 30 31 30 20 34 and) Ltd...010 4
00B720: 39 20 34 30 20 32 32 34 39 34 32 0D 0A 48 61 6E 9 40 224942..Han
00B730: 73 2D 48 65 6E 6E 79 2D 4A 61 68 6E 6E 20 57 65 s-Henny-Jahnn We
00B740: 67 20 32 31 0D 0A 44 32 30 30 30 20 48 61 6D 62 g 21..D2000 Hamb
00B750: 75 72 67 20 37 36 0D 0A 57 65 73 74 20 47 65 72 urg 76..West Ger
00B760: 6D 61 6E 79 0D 0A 0D 0A 7F 41 72 6E 6F 72 20 4C many.....Arnor L
00B770: 74 64 2E 0D 0A 30 37 33 33 20 32 33 39 30 31 31 td...0733 239011
00B780: 0D 0A 50 72 6F 74 65 78 74 20 48 6F 75 73 65 0D ..Protext House.
00B790: 0A 57 61 69 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 .Wainman Road..P
00B7A0: 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 32 eterborough..PE2
00B7B0: 20 30 42 55 0D 0A 0D 0A 7F 43 61 6D 62 72 69 64 0BU.....Cambrid
00B7C0: 67 65 20 57 61 74 65 72 20 43 6F 6D 70 61 6E 79 ge Water Company
00B7D0: 0D 0A 30 32 32 33 20 32 34 37 33 35 31 0D 0A 52 ..0223 247351..R
00B7E0: 75 73 74 61 74 20 52 6F 61 64 0D 0A 43 61 6D 62 ustat Road..Camb
00B7F0: 72 69 64 67 65 0D 0A 43 42 31 20 33 51 53 0D 0A ridge..CB1 3QS..
00B800: 0D 0A 7F 43 61 70 69 74 61 6C 20 52 61 64 69 6F ...Capital Radio
00B810: 0D 0A 30 31 20 33 38 38 20 31 32 38 38 0D 0A 45 ..01 388 1288..E
00B820: 75 73 74 6F 6E 20 43 65 6E 74 72 65 0D 0A 45 75 uston Centre..Eu
00B830: 73 74 6F 6E 20 52 6F 61 64 0D 0A 4C 6F 6E 64 6F ston Road..Londo
00B840: 6E 0D 0A 4E 57 31 0D 0A 0D 0A 7F 45 61 73 74 65 n..NW1.....Easte
00B850: 72 6E 20 45 6C 65 63 74 72 69 63 69 74 79 0D 0A rn Electricity..
00B860: 30 37 33 33 20 32 33 31 30 30 31 0D 0A 53 68 72 0733 231001..Shr
00B870: 65 77 73 62 75 72 79 20 41 76 65 6E 75 65 0D 0A ewsbury Avenue..
00B880: 50 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 Peterborough..PE
00B890: 32 20 30 42 48 0D 0A 0D 0A 45 20 45 20 47 6F 72 2 0BH....E E Gor
00B8A0: 69 6E 67 0D 0A 24 0D 0A 22 27 57 65 73 74 20 54 ing..$.."'West T
00B8B0: 69 70 27 22 0D 0A 4F 6C 64 20 46 61 72 6D 20 4C ip'"..Old Farm L
00B8C0: 61 6E 65 0D 0A 46 6F 6C 6B 73 77 6F 72 74 68 0D ane..Folksworth.
00B8D0: 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 43 .Peterborough..C
00B8E0: 61 6D 62 73 0D 0A 0D 0A 4E 69 67 65 6C 20 48 65 ambs....Nigel He
00B8F0: 62 62 6C 65 74 68 77 61 69 74 65 0D 0A 30 31 20 bblethwaite..01
00B900: 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C 65 63 dm " S - Selec
00B910: 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 6C 66 tion file (&self
00B920: 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A ile&)..>dm " "..
00B930: 3E 3E 3E 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 >>>..>rp..>av "E
00B940: 6E 74 65 72 20 66 69 6C 65 20 74 6F 20 70 72 69 nter file to pri
00B950: 6E 74 2F 64 69 73 70 6C 61 79 20 5B 6D 2F 75 2F nt/display [m/u/
00B960: 73 5D 3A 20 22 20 6D 75 73 20 31 0D 0A 3E 75 6E s]: " mus 1..>un
00B970: 20 6D 75 73 20 69 6E 20 22 6D 75 73 22 0D 0A 3E mus in "mus"..>
00B980: 69 66 20 6D 75 73 3D 22 22 0D 0A 3E 65 78 20 65 if mus=""..>ex e
00B990: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
00B9A0: 0D 0A 3E 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D ..>>>>..>dm " ".
00B9B0: 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 72 69 6E 74 .>rp..>av "Print
00B9C0: 20 74 6F 20 53 63 72 65 65 6E 2C 20 46 69 6C 65 to Screen, File
00B9D0: 20 6F 72 20 50 72 69 6E 74 65 72 20 5B 73 2F 66 or Printer [s/f
00B9E0: 2F 70 5D 3F 20 22 20 73 66 70 20 31 0D 0A 3E 75 /p]? " sfp 1..>u
00B9F0: 6E 20 73 66 70 20 69 6E 20 22 73 66 70 22 0D 0A n sfp in "sfp"..
00BA00: 3E 69 66 20 73 66 70 3D 22 22 0D 0A 3E 65 78 20 >if sfp=""..>ex
00BA10: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
00BA20: 69 0D 0A 3E 69 66 20 73 66 70 3D 22 66 22 0D 0A i..>if sfp="f"..
00BA30: 3E 73 76 20 73 63 3D 22 3E 77 6D 20 22 0D 0A 3E >sv sc=">wm "..>
00BA40: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 45 6E 74 dm " "..>av "Ent
00BA50: 65 72 20 6E 61 6D 65 20 6F 66 20 66 69 6C 65 20 er name of file
00BA60: 74 6F 20 70 72 69 6E 74 20 74 6F 3A 20 22 20 66 to print to: " f
00BA70: 20 31 36 0D 0A 3E 69 66 20 66 3D 22 22 0D 0A 3E 16..>if f=""..>
00BA80: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
00BA90: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 .>ei..>ei..>if s
00BAA0: 66 70 3D 22 73 22 0D 0A 3E 73 76 20 73 63 3D 22 fp="s"..>sv sc="
00BAB0: 3E 64 6D 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 >dm "..>ei..>if
00BAC0: 73 66 70 3D 22 70 22 0D 0A 3E 73 76 20 73 63 3D sfp="p"..>sv sc=
00BAD0: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 69 ""..>ei..>ei ; i
00BAE0: 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 u df..>>>..>dm "
00BAF0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 72 "..>rp..>av "Pr
00BB00: 31 30 33 20 32 37 39 30 0D 0A 31 37 61 20 48 69 103 2790..17a Hi
00BB10: 67 68 20 4C 6F 77 73 0D 0A 48 6F 72 6E 73 65 79 gh Lows..Hornsey
00BB20: 0D 0A 4C 6F 6E 64 6F 6E 0D 0A 4E 38 0D 0A 0D 0A ..London..N8....
00BB30: 7F 4C 6F 67 69 63 20 53 61 6C 65 73 20 4C 74 64 .Logic Sales Ltd
00BB40: 0D 0A 30 37 33 33 20 34 39 36 39 36 0D 0A 36 20 ..0733 49696..6
00BB50: 4D 69 64 67 61 74 65 0D 0A 50 65 74 65 72 62 6F Midgate..Peterbo
00BB60: 72 6F 75 67 68 0D 0A 43 61 6D 62 73 0D 0A 0D 0A rough..Cambs....
00BB70: 5A 61 63 68 61 72 69 61 68 20 4F 27 46 6C 61 68 Zachariah O'Flah
00BB80: 65 72 74 79 0D 0A 24 0D 0A 4D 6F 73 6B 61 75 73 erty..$..Moskaus
00BB90: 74 72 61 BA 65 20 39 38 0D 0A 48 61 75 74 65 73 tra.e 98..Hautes
00BBA0: 2D 50 79 72 65 6E 65 9F E1 73 0D 0A 54 69 6D 62 -Pyrene..s..Timb
00BBB0: 75 6B 74 75 0D 0A 4D 61 6C 69 0D 0A 0D 0A 56 20 uktu..Mali....V
00BBC0: 52 20 50 61 74 65 6C 0D 0A 24 0D 0A 31 39 20 46 R Patel..$..19 F
00BBD0: 6F 72 74 69 73 20 41 76 65 6E 75 65 0D 0A 47 72 ortis Avenue..Gr
00BBE0: 61 6E 74 63 68 65 73 74 65 72 0D 0A 43 61 6D 62 antchester..Camb
00BBF0: 72 69 64 67 65 0D 0A 0D 0A 41 70 72 69 6C 20 53 ridge....April S
00BC00: 68 6F 77 65 72 73 0D 0A 30 32 32 33 20 36 36 31 howers..0223 661
00BC10: 31 36 36 0D 0A 31 37 39 20 4D 69 6C 65 20 4C 6F 166..179 Mile Lo
00BC20: 6E 67 20 52 6F 61 64 0D 0A 43 68 65 73 74 65 72 ng Road..Chester
00BC30: 74 6F 6E 0D 0A 43 61 6D 62 72 69 64 67 65 0D 0A ton..Cambridge..
00BC40: 43 61 6D 62 73 0D 0A 0D 0A 4D 72 20 57 20 4E 20 Cambs....Mr W N
00BC50: 53 69 6D 6D 6F 6E 73 0D 0A 30 37 33 33 20 32 34 Simmons..0733 24
00BC60: 31 31 31 0D 0A 33 37 20 56 69 6F 6C 65 74 20 44 111..37 Violet D
00BC70: 72 69 76 65 0D 0A 57 6F 6F 64 73 74 6F 6E 0D 0A rive..Woodston..
00BC80: 22 50 65 74 65 72 62 6F 72 6F 75 67 68 2C 20 43 "Peterborough, C
00BC90: 61 6D 62 73 22 0D 0A 0D 0A 7F 54 68 6F 6D 70 73 ambs".....Thomps
00BCA0: 6F 6E 20 43 6F 6D 70 75 74 65 72 73 0D 0A 24 0D on Computers..$.
00BCB0: 0A 38 20 48 79 68 6F 6C 6D 65 73 0D 0A 42 72 65 .8 Hyholmes..Bre
00BCC0: 74 74 6F 6E 0D 0A 50 65 74 65 72 62 6F 72 6F 75 tton..Peterborou
00BCD0: 67 68 0D 0A 50 45 33 20 38 4C 47 20 20 20 20 20 gh..PE3 8LG
00BCE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BCF0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 0D 0A ....
00BD00: 69 6E 74 20 61 6C 6C 20 66 69 65 6C 64 73 20 5B int all fields [
00BD10: 59 2F 6E 5D 3F 20 22 20 61 6C 6C 20 31 0D 0A 3E Y/n]? " all 1..>
00BD20: 69 66 20 61 6C 6C 3D 22 22 0D 0A 3E 73 76 20 61 if all=""..>sv a
00BD30: 6C 6C 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E ll="y"..>ei..>un
00BD40: 20 61 6C 6C 20 69 6E 20 22 79 6E 22 0D 0A 3E 3E all in "yn"..>>
00BD50: 3E 0D 0A 3E 69 66 20 61 6C 6C 3D 22 79 22 0D 0A >..>if all="y"..
00BD60: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
00BD70: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
00BD80: 0A 3E 73 76 20 64 26 6E 26 3D 22 79 22 0D 0A 3E .>sv d&n&="y"..>
00BD90: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 6C 20 un n>=rlen..>el
00BDA0: 3B 20 61 6C 6C 3C 3E 22 6E 22 0D 0A 3E 64 6D 20 ; all<>"n"..>dm
00BDB0: 22 20 22 0D 0A 3E 64 6D 20 22 50 72 69 6E 74 20 " "..>dm "Print
00BDC0: 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66 69 the following fi
00BDD0: 65 6C 64 73 3F 22 0D 0A 3E 64 6D 20 22 20 22 0D elds?"..>dm " ".
00BDE0: 0A 3E 73 76 20 6E 3D 30 20 79 6E 3D 22 59 2F 6E .>sv n=0 yn="Y/n
00BDF0: 22 20 6D 69 6E 3D 30 20 64 65 66 3D 22 79 22 0D " min=0 def="y".
00BE00: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
00BE10: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E n=n[w1]..>sv s=n
00BE20: 26 6E 26 0D 0A 3E 69 66 20 73 5B 26 6D 61 78 77 &n&..>if s[&maxw
00BE30: 26 5D 3D 22 22 0D 0A 3E 73 76 20 73 3D 73 2B 22 &]=""..>sv s=s+"
00BE40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BE60: 20 20 20 20 20 20 20 20 22 0D 0A 3E 65 69 0D 0A "..>ei..
00BE70: 3E 73 76 20 73 3D 73 5B 31 3A 26 6D 61 78 77 26 >sv s=s[1:&maxw&
00BE80: 5D 0D 0A 3E 61 76 20 22 66 26 6E 26 3A 20 26 73 ]..>av "f&n&: &s
00BE90: 26 3A 20 5B 26 79 6E 26 5D 3F 20 22 20 64 26 6E &: [&yn&]? " d&n
00BEA0: 26 20 31 0D 0A 3E 69 66 20 64 26 6E 26 3D 22 22 & 1..>if d&n&=""
00BEB0: 0D 0A 3E 73 76 20 64 26 6E 26 3D 64 65 66 0D 0A ..>sv d&n&=def..
00BEC0: 3E 65 69 0D 0A 3E 73 76 20 79 6E 3D 22 79 2F 4E >ei..>sv yn="y/N
00BED0: 22 20 64 65 66 3D 22 6E 22 0D 0A 3E 69 66 20 64 " def="n"..>if d
00BEE0: 26 6E 26 3D 22 79 22 0D 0A 3E 73 76 20 6D 61 78 &n&="y"..>sv max
00BEF0: 3D 6E 0D 0A 3E 69 66 20 6D 69 6E 3D 30 0D 0A 3E =n..>if min=0..>
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 00 02 09 4E E5 0A 00 C1 02 00 00 00 02 ......N.........
00BF20: 0A 00 C6 02 00 00 00 02 0A 00 C2 02 00 00 00 02 ................
00BF30: 0A 00 C7 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF40: 0A 00 C8 02 00 00 00 02 0A 00 C4 02 00 00 00 02 ................
00BF50: 0A 00 C9 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 6B 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 kfn&,&askcar&,&u
00C010: 73 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 seprod&,&defdisc
00C020: 26 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 &'..>wm '&caline
00C030: 26 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 &,&aline&,&tline
00C040: 26 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 &,&totline&'..>w
00C050: 6D 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C m '&side&,&rc1&,
00C060: 26 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 &rc2&,&rc3&,&rc4
00C070: 26 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 &,&rc5&'..>sv rc
00C080: 31 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 1=rc1-1 rc2=rc2-
00C090: 31 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 1 rc3=rc3-1 rc4=
00C0A0: 72 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D rc4-1 rc5=rc5-1.
00C0B0: 0A 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 .>sv r2c1=rc1 r2
00C0C0: 63 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 c2=rc2+3 r2c3=rc
00C0D0: 33 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 3+2 r2c4=rc4-2 r
00C0E0: 32 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 2c5=rc5-3..>sv r
00C0F0: 63 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 c1=rc1[w1] rc2=r
00C100: 63 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 c2[w1] rc3=rc3[w
00C110: 31 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 1] rc4=rc4[w1] r
00C120: 63 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 c5=rc5[w1] ..>sv
00C130: 20 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 ruler1=">"+dash
00C140: 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 es[1:&n&]+"!"+da
00C150: 73 68 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 shes[1:10]+"L"+d
00C160: 61 73 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D ashes[1:17]+"R".
00C170: 0A 3E 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B .>sv ruler2=">"+
00C180: 64 61 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B dashes[1:&rc1&]+
00C190: 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 "!"+dashes[1:&rc
00C1A0: 32 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 2&]+"!"+dashes[1
00C1B0: 3A 26 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 :&rc3&]+"!"..>sv
00C1C0: 20 72 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 ruler2=ruler2+d
00C1D0: 61 73 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 ashes[1:&rc4&]+"
00C1E0: 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 !"+dashes[1:&rc5
00C1F0: 26 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 &]+"R"..>sv r3c3
00C200: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
00C210: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
00C220: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
00C230: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
00C240: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
00C250: 61 34 2C 63 6F 61 35 0D 0A 3E 63 66 0D 0A 3E 3E a4,coa5..>cf..>>
00C260: 3E 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 6E >..>av "Statemen
00C270: 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 t to printer or
00C280: 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 20 file (p/F)? " x
00C290: 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 73 1..>if x="p"..>s
00C2A0: 76 20 69 63 3D 22 70 22 20 73 63 3D 22 22 0D 0A v ic="p" sc=""..
00C2B0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E >el..>rp..>av "N
00C2C0: 61 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E ame of file: " n
00C2D0: 61 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C ame 8..>un name<
00C2E0: 3E 22 22 0D 0A 3E 73 76 20 6E 61 6D 65 3D 22 26 >""..>sv name="&
00C2F0: 69 6E 76 70 61 74 68 26 26 6E 61 6D 65 26 2E 70 invpath&&name&.p
00C300: 6F 73 22 0D 0A 3E 73 76 20 69 63 3D 22 70 66 20 os"..>sv ic="pf
00C310: 26 6E 61 6D 65 26 22 20 73 63 3D 22 3E 77 6D 20 &name&" sc=">wm
00C320: 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 20 "..>id cpm..>df
00C330: 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 6E 61 om..>ei..>wf &na
00C340: 6D 65 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D me&..>ei..>wfon.
00C350: 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A .>zm..>tm&cal&..
00C360: 3E 73 6D 26 73 69 64 65 26 0D 0A 3E 77 66 6F 66 >sm&side&..>wfof
00C370: 66 0D 0A 3E 69 66 69 63 5B 32 5D 3C 3E 22 66 22 f..>ific[2]<>"f"
00C380: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 66 66 6F 6E 0D 0A ..>wfon..>ffon..
00C390: 3E 77 66 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 73 76 >wfoff..>ei..>sv
00C3A0: 74 3D 22 53 54 41 54 45 4D 45 4E 54 22 0D 0A 3E t="STATEMENT"..>
00C3B0: 73 76 6D 6E 3D 30 0D 0A 3E 73 76 64 3D 22 6E 22 svmn=0..>svd="n"
00C3C0: 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 61 76 22 53 a0="end"..>av"S
00C3D0: 65 61 72 63 68 20 64 61 74 61 66 69 6C 65 20 28 earch datafile (
00C3E0: 79 2F 4E 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 y/N)? " x 1..>if
00C3F0: 78 3D 22 79 22 0D 0A 3E 61 76 22 41 63 63 6F 75 x="y"..>av"Accou
00C400: 3D 72 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C =r2c3-2..>sv rul
00C410: 65 72 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 er3=">"+dashes[1
00C420: 3A 26 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 :&r2c1&]+"!"+das
00C430: 68 65 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D hes[1:&r2c2&]+"-
00C440: 2D 2E 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 -."+dashes[1:&r3
00C450: 63 33 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 c3&]+"."..>sv ru
00C460: 6C 65 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 ler3=ruler3+dash
00C470: 65 73 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 es[1:&r2c4&]+"."
00C480: 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 +dashes[1:&r2c5&
00C490: 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 ]+"R"..>sv ruler
00C4A0: 34 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 4=">"+dashes[1:&
00C4B0: 6E 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 n&]+"!"+dashes[1
00C4C0: 3A 31 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B :14]+"L"+dashes[
00C4D0: 31 3A 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 1:7]+".--R"..>sv
00C4E0: 20 6E 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 n=iwidth-2..>sv
00C4F0: 20 72 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 ruler5=">"+dash
00C500: 65 73 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E es[1:&n&]+"R"..>
00C510: 77 6D 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D wm '"&ruler1&"'.
00C520: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 .>wm '"&ruler2&"
00C530: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 '..>wm '"&ruler3
00C540: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
00C550: 72 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 r4&"'..>wm '"&ru
00C560: 6C 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 ler5&"'..>wm '!c
00C570: 6F 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 oname!'..>wm '!c
00C580: 6F 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 oaddr1!'..>wm '!
00C590: 63 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 coaddr2!'..>wm '
00C5A0: 21 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 !coaddr3!'..>wm
00C5B0: 27 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D '!coaddr4!'..>wm
00C5C0: 20 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 '!coaddr5!'..>w
00C5D0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 c..>cf..>ex era
00C5E0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 ominvgen.inf..>i
00C5F0: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F d cpm..>ex ren o
00C600: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
00C610: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
00C620: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
00C630: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
00C640: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
00C650: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
00C660: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
00C670: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
00C680: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
00C690: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
00C6A0: 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 63 22 20 64 ..>sv dc=">dc" d
00C6B0: 70 3D 22 3E 64 70 22 0D 0A 26 64 63 26 20 22 2E p=">dp"..&dc& ".
00C6C0: 22 0D 0A 26 64 70 26 20 33 0D 0A 3E 73 76 20 75 "..&dp& 3..>sv u
00C6D0: 70 72 69 63 65 3D 30 0D 0A 26 64 70 26 20 32 0D price=0..&dp& 2.
00C6E0: 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 33 .>if sys_ver < 3
00C6F0: 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 74 .07..>sv filedat
00C700: 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 e=1..>ei..>if sy
00C710: 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 s_ver=3.10..>sv
00C720: 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 0D filedate=1..>ei.
00C730: 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>ei..>df ominvg
00C740: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
00C750: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
00C760: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
00C770: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
00C780: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
00C790: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
00C7A0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
00C7B0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
00C7C0: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
00C7D0: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
00C7E0: 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 69 73 orincvat,showdis
00C7F0: 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 c,askfn,askcar,u
00C800: 6D 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 minvgen.inf omte
00C810: 6D 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 mp.inf..>el..>ex
00C820: 20 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 ren omtemp.inf
00C830: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 ominvgen.inf..>e
00C840: 69 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 i..>df omenu..>s
00C850: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 k 0=0..>ei ; opt
00C860: 3D 22 65 22 0D 0A 1A 6C 65 0D 0A 3E 6E 63 20 32 ="e"...le..>nc 2
00C870: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
00C880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CA00: 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A seprod,defdisc..
00CA10: 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 >rv caline,aline
00CA20: 2C 74 6C 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A ,tline,totline..
00CA30: 3E 72 76 20 73 69 64 65 2C 78 2C 78 2C 78 2C 78 >rv side,x,x,x,x
00CA40: 2C 78 0D 0A 3E 72 76 20 72 75 6C 65 72 31 2C 72 ,x..>rv ruler1,r
00CA50: 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 75 6C uler2,ruler3,rul
00CA60: 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 76 20 er4,ruler5..>rv
00CA70: 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 2C 63 coname,coaddr1,c
00CA80: 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 2C 63 oaddr2,coaddr3,c
00CA90: 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 0D 0A oaddr4,coaddr5..
00CAA0: 3E 3E 3E 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D >>>..>cf..>df om
00CAB0: 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 76 20 invgen.num..>rv
00CAC0: 6E 75 6D 62 65 72 2C 74 69 74 6C 65 0D 0A 3E 64 number,title..>d
00CAD0: 6D 20 22 49 4E 56 47 45 4E 20 76 32 2E 30 32 20 m "INVGEN v2.02
00CAE0: 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 20 20 (c) Arnor 1988
00CAF0: 28 26 74 69 74 6C 65 26 29 22 0D 0A 3E 64 6D 20 (&title&)"..>dm
00CB00: 22 20 22 0D 0A 3E 3E 3E 0D 0A 3E 69 64 20 66 69 " "..>>>..>id fi
00CB10: 6C 65 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 ledate..>cf..>df
00CB20: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
00CB30: 72 76 20 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 rv sys_date..>ei
00CB40: 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 76 61 74 63 66 ..>>>..>sv vatcf
00CB50: 30 3D 31 0D 0A 3E 73 76 20 76 61 74 63 66 31 3D 0=1..>sv vatcf1=
00CB60: 31 2B 76 61 74 31 09 3B 20 56 41 54 20 63 6F 6E 1+vat1.; VAT con
00CB70: 76 65 72 73 69 6F 6E 20 66 61 63 74 6F 72 73 0D version factors.
00CB80: 0A 3E 73 76 20 76 61 74 63 66 32 3D 31 2B 76 61 .>sv vatcf2=1+va
00CB90: 74 32 0D 0A 3E 73 76 20 76 61 74 63 66 33 3D 31 t2..>sv vatcf3=1
00CBA0: 2B 76 61 74 33 0D 0A 3E 73 76 20 76 61 74 63 66 +vat3..>sv vatcf
00CBB0: 34 3D 31 2B 76 61 74 34 0D 0A 3E 73 76 20 76 61 4=1+vat4..>sv va
00CBC0: 74 63 66 35 3D 31 2B 76 61 74 35 0D 0A 3E 3E 3E tcf5=1+vat5..>>>
00CBD0: 0D 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 ..>>> read produ
00CBE0: 63 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 ct info into des
00CBF0: 63 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 c1,desc2,...,pri
00CC00: 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 Typing anything
00CC10: 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D other than a num
00CC20: 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C ber will skip al
00CC30: 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 l remaining prod
00CC40: 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ucts"..>dm " "..
00CC50: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
00CC60: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
00CC70: 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 .>sv quant&n&="0
00CC80: 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E "..>un n=maxn..>
00CC90: 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 >>..>sv n=0..>rp
00CCA0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
00CCB0: 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D w1]..>sv prompt=
00CCC0: 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F desc&n&..>if pro
00CCD0: 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 mpt[25]=""..>sv
00CCE0: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 prompt=prompt+"
00CCF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD00: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
00CD10: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 prompt=prompt[1
00CD20: 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 :25]..>ei..>av "
00CD30: 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D 0A &prompt& : " x..
00CD40: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
00CD50: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 0..>ei..>sv quan
00CD60: 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C t&n&=x+0..>if x<
00CD70: 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 71 >quant&n&..>sv q
00CD80: 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 76 uant&n&="0"..>sv
00CD90: 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D 0D n=maxn n=n[w1].
00CDA0: 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E .>ei..>if n=maxn
00CDB0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
00CDC0: 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 28 Re-enter order (
00CDD0: 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 0D y/N)? " yesno 1.
00CDE0: 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D 0A .>if yesno="y"..
00CDF0: 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 22 >sv n=0..>dm " "
00CE00: 63 65 31 2C 70 72 69 63 65 32 2C 2E 2E 2E 63 6F ce1,price2,...co
00CE10: 64 65 31 2C 63 6F 64 65 32 2C 2E 2E 2E 0D 0A 3E de1,code2,.....>
00CE20: 3E 3E 0D 0A 3E 73 76 20 6D 61 78 6E 3D 30 0D 0A >>..>sv maxn=0..
00CE30: 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D >if useprod="y".
00CE40: 0A 3E 63 66 0D 0A 3E 64 66 20 26 70 72 6F 64 66 .>cf..>df &prodf
00CE50: 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 64 ile& fo$end$..>d
00CE60: 6D 20 52 65 61 64 69 6E 67 20 70 72 6F 64 75 63 m Reading produc
00CE70: 74 20 64 61 74 61 2E 2E 2E 0D 0A 3E 73 76 20 6E t data.....>sv n
00CE80: 3D 30 20 64 65 73 63 30 3D 30 0D 0A 3E 72 70 0D =0 desc0=0..>rp.
00CE90: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
00CEA0: 31 5D 0D 0A 3E 72 76 20 64 65 73 63 26 6E 26 2C 1]..>rv desc&n&,
00CEB0: 20 70 72 69 63 65 26 6E 26 2C 20 63 6F 64 65 26 price&n&, code&
00CEC0: 6E 26 2C 20 70 72 6F 64 76 61 74 26 6E 26 2C 20 n&, prodvat&n&,
00CED0: 70 72 6F 64 64 69 73 63 26 6E 26 0D 0A 3E 69 66 proddisc&n&..>if
00CEE0: 20 64 65 73 63 26 6E 26 3D 22 22 20 20 20 3B 20 desc&n&="" ;
00CEF0: 69 67 6E 6F 72 65 20 62 6C 61 6E 6B 20 6C 69 6E ignore blank lin
00CF00: 65 73 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 6E 3D es..>sv n=n-1 n=
00CF10: 6E 5B 77 31 5D 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 n[w1]..>ei..>un
00CF20: 64 65 73 63 26 6E 26 3D 22 65 6E 64 22 0D 0A 3E desc&n&="end"..>
00CF30: 3E 3E 63 66 0D 0A 3E 73 76 20 6D 61 78 6E 3D 6E >>cf..>sv maxn=n
00CF40: 2D 31 0D 0A 3E 65 69 09 3B 20 75 73 65 70 72 6F -1..>ei.; usepro
00CF50: 64 3D 22 79 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 d="y"..>>>..>>>
00CF60: 61 73 6B 20 66 6F 72 20 69 6E 76 6F 69 63 65 20 ask for invoice
00CF70: 64 65 74 61 69 6C 73 0D 0A 3E 3E 3E 0D 0A 3E 73 details..>>>..>s
00CF80: 76 20 64 3D 22 6E 22 20 61 30 3D 22 65 6E 64 22 v d="n" a0="end"
00CF90: 0D 0A 3E 61 76 20 22 53 65 61 72 63 68 20 64 61 ..>av "Search da
00CFA0: 74 61 20 66 69 6C 65 20 28 79 2F 4E 29 3F 20 22 ta file (y/N)? "
00CFB0: 20 79 65 73 6E 6F 20 31 0D 0A 3E 69 66 20 79 65 yesno 1..>if ye
00CFC0: 73 6E 6F 3D 22 79 22 0D 0A 3E 61 76 20 22 41 63 sno="y"..>av "Ac
00CFD0: 63 6F 75 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D count name: ",n.
00CFE0: 0A 3E 63 66 0D 0A 3E 64 66 20 26 61 64 64 72 66 .>cf..>df &addrf
00CFF0: 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 72 ile& fo$end$..>r
00D000: 3E 63 73 22 20 0D 0A 3E 64 6D 22 53 74 61 74 65 >cs" ..>dm"State
00D010: 6D 65 6E 74 20 67 65 6E 65 72 61 74 6F 72 20 28 ment generator (
00D020: 63 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E c) Arnor 1988..>
00D030: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
00D040: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
00D050: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
00D060: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
00D070: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
00D080: 3D 22 3E 3E 3E 22 0D 0A 3E 65 69 0D 0A 3E 69 75 =">>>"..>ei..>iu
00D090: 20 63 70 6D 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 cpm..>sv dc=">d
00D0A0: 63 22 20 66 78 6F 6E 3D 22 3E 66 78 6F 6E 22 20 c" fxon=">fxon"
00D0B0: 66 78 6F 66 66 3D 22 3E 66 78 6F 66 66 22 0D 0A fxoff=">fxoff"..
00D0C0: 26 66 78 6F 6E 26 0D 0A 26 64 63 26 20 22 2E 22 &fxon&..&dc& "."
00D0D0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
00D0E0: 33 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.07..>sv fileda
00D0F0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
00D100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
00D110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
00D120: 0D 0A 3E 65 69 0D 0A 3E 69 64 20 66 69 6C 65 64 ..>ei..>id filed
00D130: 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D ate..>cf..>df om
00D140: 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E 72 76 20 invgen.dat..>rv
00D150: 73 79 73 5F 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E sys_date..>cf..>
00D160: 65 69 0D 0A 3E 68 65 0D 0A 3E 66 6F 0D 0A 3E 73 ei..>he..>fo..>s
00D170: 76 66 68 3D 31 20 61 3D 22 41 64 64 72 65 73 73 vfh=1 a="Address
00D180: 20 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D 69 6E line "..>dfomin
00D190: 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 61 74 vgen.inf..>rvdat
00D1A0: 61 66 2C 69 6E 76 70 61 74 68 2C 78 2C 78 2C 70 af,invpath,x,x,p
00D1B0: 68 6F 6E 65 3F 0D 0A 3E 72 76 78 2C 78 2C 78 2C hone?..>rvx,x,x,
00D1C0: 78 2C 78 2C 69 6E 66 6F 6C 73 2C 65 77 0D 0A 3E x,x,infols,ew..>
00D1D0: 72 76 78 2C 78 2C 78 2C 78 2C 78 2C 76 61 74 6E rvx,x,x,x,x,vatn
00D1E0: 75 6D 0D 0A 3E 72 76 70 72 63 6F 6E 61 6D 65 2C um..>rvprconame,
00D1F0: 78 2C 73 6A 2C 61 66 6E 2C 78 2C 78 2C 78 0D 0A x,sj,afn,x,x,x..
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 00 02 09 4E E5 0B 00 C1 02 00 00 00 02 ......N.........
00D220: 0B 00 C6 02 00 00 00 02 0B 00 C2 02 00 00 00 02 ................
00D230: 0B 00 C7 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D240: 0B 00 C8 02 00 00 00 02 0B 00 C4 02 00 00 00 02 ................
00D250: 0B 00 C9 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
00D310: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
00D320: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
00D330: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
00D340: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
00D350: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
00D360: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
00D370: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
00D380: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
00D390: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
00D3A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
00D3B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
00D3C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
00D3D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
00D3E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
00D3F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
00D400: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
00D410: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
00D420: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
00D430: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
00D440: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
00D450: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
00D460: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
00D470: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
00D480: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
00D490: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
00D4A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
00D4B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
00D4C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
00D4D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
00D4E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
00D4F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
00D500: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
00D510: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
00D520: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
00D530: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
00D540: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 69 0D &..>sv x=1..>ei.
00D550: 0A 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E .>ei..>sk x=0..>
00D560: 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 zm..>npoff..>sv
00D570: 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 n=0..>if fv="f"
00D580: 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 ; fixed..>rp..>s
00D590: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
00D5A0: 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D .>sv s=f&n&..>wm
00D5B0: 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E !s!..>un n=rlen
00D5C0: 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 ..>el ; var..>rp
00D5D0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
00D5E0: 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D w1]..>sv s=f&n&.
00D5F0: 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 .>if s=""..>sv s
00D600: 3D 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 =n+1 m=n+2 s=s[w
00D610: 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 1] m=m[w1]..>sv
00D620: 73 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 s=f&s&+f&m&..>if
00D630: 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 s=""..>sv n=rle
00D640: 6E 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 n..>el..>sv s="$
00D650: 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D "..>ei..>ei..>wm
00D660: 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E !s!..>un n=rlen
00D670: 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 ..>ei ; f/v..>sv
00D680: 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 nn=nn+1..>el ;
00D690: 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E f1=end..>sv nn=n
00D6A0: 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A n[w1]..>dm " "..
00D6B0: 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 >wt "&nn& record
00D6C0: 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 s found. Press a
00D6D0: 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 key to continue
00D6E0: 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A .....>wc..>cf..
00D6F0: 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 >ex exec fm..>st
00D700: 6C 6F 61 64 20 6F 6D 69 6E 69 74 7C 31 33 7C 7C load ominit|13||
00D710: 31 36 7C 70 73 7C 31 33 7C 1A 1A 70 66 20 69 6E 16|ps|13|..pf in
00D720: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
00D730: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
00D740: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
00D750: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
00D760: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
00D770: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
00D780: 22 22 0D 0A 22 22 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ""..""..........
00D790: 0D 0A 0D 0A 1A 66 2C 79 0D 0A 30 2E 31 35 2C 30 .....f,y..0.15,0
00D7A0: 2C 30 2C 30 2C 30 2C 32 32 2C 32 30 0D 0A 22 32 ,0,0,0,22,20.."2
00D7B0: 35 20 31 30 22 2C 22 31 35 20 31 30 22 2C 22 22 5 10","15 10",""
00D7C0: 2C 22 22 2C 22 22 0D 0A 79 2C 78 2C 79 2C 79 2C ,"",""..y,x,y,y,
00D7D0: 79 2C 79 2C 30 0D 0A 34 2C 31 32 2C 32 33 2C 34 y,y,0..4,12,23,4
00D7E0: 35 0D 0A 30 2C 31 34 2C 31 38 2C 31 35 2C 31 37 5..0,14,18,15,17
00D7F0: 2C 39 0D 0A 22 22 0D 0A 22 22 0D 0A 22 22 0D 0A ,9..""..""..""..
00D800: 22 0D 0A 3E 73 76 20 63 70 6D 3D 31 0D 0A 3E 65 "..>sv cpm=1..>e
00D810: 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E i..>df ominvgen.
00D820: 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 66 69 6C inf..>rv addrfil
00D830: 65 2C 69 6E 76 64 72 76 2C 70 72 6F 64 66 69 6C e,invdrv,prodfil
00D840: 65 2C 76 61 74 72 65 67 0D 0A 3E 72 76 20 76 61 e,vatreg..>rv va
00D850: 74 31 2C 76 61 74 32 2C 76 61 74 33 2C 76 61 74 t1,vat2,vat3,vat
00D860: 34 2C 76 61 74 35 2C 69 6E 66 6F 6C 69 6E 65 73 4,vat5,infolines
00D870: 2C 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 ,descwidth..>rv
00D880: 64 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 discA,discB,disc
00D890: 43 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E C,discD,discE..>
00D8A0: 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 rv prconame,exor
00D8B0: 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B inc,showdisc,ask
00D8C0: 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F fn,askcar,usepro
00D8D0: 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 d,defdisc..>rv c
00D8E0: 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E aline,aline,tlin
00D8F0: 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 20 73 e,totline..>rv s
00D900: 0D 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A ..>ei..>sk 0=0..
00D910: 3E 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 >ei ; if defined
00D920: 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 df..>>>..>iu df
00D930: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
00D940: 4F 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C Option S.4 - Sel
00D950: 65 63 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E ect records (con
00D960: 64 31 20 41 4E 44 20 63 6F 6E 64 32 29 22 0D 0A d1 AND cond2)"..
00D970: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
00D980: 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B pfi$..>sv fv=fv[
00D990: 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 1] rlen=rlen[w1]
00D9A0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 ..>if fv="f"..>s
00D9B0: 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E v flist=">ru"..>
00D9C0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
00D9D0: 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D rv"..>ei..>sv n=
00D9E0: 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 0..>rp..>sv n=n+
00D9F0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 1 n=n[w1]..>sv f
00DA00: 6C 69 73 74 20 3D 20 66 6C 69 73 74 20 2B 20 22 list = flist + "
00DA10: 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 f&n&"..>un n>=r
00DA20: 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D len..>sv n=n+1 m
00DA30: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D =n+1 n=n[w1] m=m
00DA40: 5B 77 31 5D 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 [w1]..>sv f&n&="
00DA50: 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A " f&m&=""..>>>..
00DA60: 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 >dm "Field names
00DA70: 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 : "..>sv n=0..>r
00DA80: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
00DA90: 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 [w1]..>sv s=n&n&
00DAA0: 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D ..>dm f&n&: &s&.
00DAB0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
00DAC0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
00DAD0: 57 68 65 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F When entering co
00DAE0: 6E 64 69 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 nditions below,
00DAF0: 70 6C 65 61 73 65 20 72 65 6D 65 6D 62 65 72 20 please remember
00DB00: 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C 41 ure in the 'BALA
00DB10: 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 69 NCE' column..>ei
00DB20: 0D 0A 26 73 63 26 45 2E 20 26 20 4F 2E 45 2E 0D ..&sc&E. & O.E..
00DB30: 0A 3E 69 66 69 63 5B 32 5D 3D 22 22 0D 0A 3E 70 .>ific[2]=""..>p
00DB40: 61 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D a..>ei..>ific[2]
00DB50: 3C 3E 22 66 22 0D 0A 3E 65 78 20 65 78 65 63 20 <>"f"..>ex exec
00DB60: 6F 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 om..>st..>ei..>s
00DB70: 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F 73 vfn=ic[w2]+".pos
00DB80: 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 70 "..>av"Send to p
00DB90: 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E rinter or screen
00DBA0: 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E (P/s)? " x 1..>
00DBB0: 69 66 78 3D 22 73 22 0D 0A 3E 65 78 78 73 20 22 ifx="s"..>exxs "
00DBC0: 70 73 20 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 ps &fn&|13|; Pre
00DBD0: 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 ss a key to cont
00DBE0: 69 6E 75 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 inue:|13|pause|1
00DBF0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
00DC00: 70 73 7C 31 33 7C 0D 0A 3E 65 6C 0D 0A 3E 65 78 ps|13|..>el..>ex
00DC10: 78 73 20 22 6C 6F 61 64 20 26 66 6E 26 7C 31 33 xs "load &fn&|13
00DC20: 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 7C 70 7C 31 |doc|13||766|p|1
00DC30: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
00DC40: 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D 0A 3E 73 74 ps|13|..>ei..>st
00DC50: 0D 0A 1A 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D ...line "..>dfom
00DC60: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 invgen.inf..>rvd
00DC70: 61 74 61 66 2C 69 6E 76 64 72 76 2C 78 2C 78 0D ataf,invdrv,x,x.
00DC80: 65 3A 20 22 20 6E 61 6D 65 20 38 0D 0A 3E 75 6E e: " name 8..>un
00DC90: 20 6E 61 6D 65 3C 3E 22 22 0D 0A 3E 73 76 20 6E name<>""..>sv n
00DCA0: 61 6D 65 3D 26 69 6E 76 64 65 76 26 3A 26 6E 61 ame=&invdev&:&na
00DCB0: 6D 65 26 2E 70 6F 73 0D 0A 3E 73 76 20 69 63 3D me&.pos..>sv ic=
00DCC0: 22 70 66 20 26 6E 61 6D 65 26 22 20 73 63 3D 22 "pf &name&" sc="
00DCD0: 3E 77 6D 20 22 0D 0A 3E 77 66 20 26 6E 61 6D 65 >wm "..>wf &name
00DCE0: 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D 0A 3E &..>ei..>wfon..>
00DCF0: 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A 3E 73 zm..>tm&cal&..>s
00DD00: 78 20 65 78 65 63 20 6F 6D 0D 0A 3E 73 74 20 22 x exec om..>st "
00DD10: 20 22 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 41 64 "..>ei..>av "Ad
00DD20: 64 72 65 73 73 20 31 3A 20 22 20 61 31 0D 0A 3E dress 1: " a1..>
00DD30: 61 76 20 22 41 64 64 72 65 73 73 20 32 3A 20 22 av "Address 2: "
00DD40: 20 61 32 0D 0A 3E 69 66 20 61 32 3E 22 22 0D 0A a2..>if a2>""..
00DD50: 3E 61 76 20 22 41 64 64 72 65 73 73 20 33 3A 20 >av "Address 3:
00DD60: 22 20 61 33 0D 0A 3E 69 66 20 61 33 3E 22 22 0D " a3..>if a3>"".
00DD70: 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 34 3A .>av "Address 4:
00DD80: 20 22 20 61 34 0D 0A 3E 69 66 20 61 34 3E 22 22 " a4..>if a4>""
00DD90: 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 35 ..>av "Address 5
00DDA0: 3A 20 22 20 61 35 0D 0A 3E 69 66 20 61 35 3E 22 : " a5..>if a5>"
00DDB0: 22 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 "..>av "Address
00DDC0: 36 3A 20 22 20 61 36 0D 0A 3E 69 66 20 61 36 3E 6: " a6..>if a6>
00DDD0: 22 22 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 ""..>av "Address
00DDE0: 20 37 3A 20 22 20 61 37 0D 0A 3E 65 69 0D 0A 3E 7: " a7..>ei..>
00DDF0: 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 ei..>ei..>ei..>e
00DE00: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 61 76 i..>ei..>>>..>av
00DE10: 20 22 49 6E 76 6F 69 63 65 20 6E 75 6D 62 65 72 "Invoice number
00DE20: 20 5B 26 6E 75 6D 62 65 72 26 5D 3A 20 20 22 2C [&number&]: ",
00DE30: 6E 75 6D 0D 0A 3E 69 66 20 6E 75 6D 3C 3E 22 22 num..>if num<>""
00DE40: 0D 0A 3E 73 76 20 6E 75 6D 62 65 72 3D 6E 75 6D ..>sv number=num
00DE50: 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 6F 6D 69 6E 76 ..>el..>wf ominv
00DE60: 67 65 6E 2E 6E 75 6D 0D 0A 3E 73 76 20 6E 75 6D gen.num..>sv num
00DE70: 3D 6E 75 6D 62 65 72 2B 31 20 6E 75 6D 3D 6E 75 =number+1 num=nu
00DE80: 6D 5B 77 31 5D 0D 0A 3E 77 6D 20 26 6E 75 6D 26 m[w1]..>wm &num&
00DE90: 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 66 20 ..>wc..>ei..>wf
00DEA0: 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D 70 0D &invpath&omtemp.
00DEB0: 0A 3E 77 66 20 6F 6E 0D 0A 3E 7A 6D 0D 0A 3E 74 .>wf on..>zm..>t
00DEC0: 6D 20 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 m &caline&..>sm
00DED0: 26 73 69 64 65 26 0D 0A 3E 77 66 20 6F 66 66 0D &side&..>wf off.
00DEE0: 0A 3E 61 76 20 22 49 6E 76 6F 69 63 65 20 64 61 .>av "Invoice da
00DEF0: 74 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A te [&sys_date&]:
00DF00: 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n-1 n=n[w1]..>
00DF10: 73 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B sv c3=c3[1:&n&]+
00DF20: 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E "f0"..>sv n=0..>
00DF30: 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 ei..>un n=0..>sv
00DF40: 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D ff=">sv f0=f1".
00DF50: 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D .>ei ; f* in c3.
00DF60: 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 .>>>..>if ff<>""
00DF70: 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A ..>sv n=1..>rp..
00DF80: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
00DF90: 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 ]..>sv ff=ff+"+f
00DFA0: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
00DFB0: 6E 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n..>ei..>>>..>dm
00DFC0: 20 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 " "..>dm "Searc
00DFD0: 68 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E hing ..."..>sv n
00DFE0: 6E 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D n=0..>df fm.mus.
00DFF0: 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E .>rv mus..>cf..>
00E000: 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 if mus="m"..>sv
00E010: 66 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D f=df..>ei..>if m
00E020: 75 73 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 us="u"..>sv f=ne
00E030: 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 wfile..>ei..>if
00E040: 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 mus="s"..>sv f=s
00E050: 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 elfile..>ei..>df
00E060: 20 26 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 &f& fo$end$..>w
00E070: 66 20 26 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 f &selfile&..>ei
00E080: 20 3B 20 69 75 20 64 66 0D 0A 1A 69 73 74 26 0D ; iu df...ist&.
00E090: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
00E0A0: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
00E0B0: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
00E0C0: 65 6C 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 65 el..>if &c3&..>e
00E0D0: 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D 0A l..>sk0=0..>ei..
00E0E0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E >ei..>ei..>zm..>
00E0F0: 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A npoff..>sv n=0..
00E100: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
00E110: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
00E120: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
00E130: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
00E140: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
00E150: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
00E160: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
00E170: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
00E180: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
00E190: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
00E1A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
00E1B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
00E1C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
00E1D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
00E1E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
00E1F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
00E200: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
00E210: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
00E220: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
00E230: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
00E240: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
00E250: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
00E260: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
00E270: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
00E280: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
00E290: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
00E2A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
00E2B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
00E2C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
00E2D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
00E2E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
00E2F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
00E300: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
00E310: 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 65 78 ontinue .....>ex
00E320: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
00E330: 65 69 20 3B 20 66 31 0D 0A 3E 65 69 20 3B 20 69 ei ; f1..>ei ; i
00E340: 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 d df..>>>..>iu d
00E350: 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 f..>cs " "..>dm
00E360: 22 4F 70 74 69 6F 6E 20 55 20 2D 20 4D 65 72 67 "Option U - Merg
00E370: 65 20 75 70 64 61 74 65 20 66 69 6C 65 20 69 6E e update file in
00E380: 74 6F 20 6D 61 69 6E 20 66 69 6C 65 0D 0A 3E 64 to main file..>d
00E390: 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 m " "..>in fm$pf
00E3A0: 69 24 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D i$..>sv sys_ver=
00E3B0: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
00E3C0: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
00E3D0: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 ="1"..>ei..>sv f
00E3E0: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
00E3F0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
00E400: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
00E410: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
00E420: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
00E430: 73 76 20 6E 3D 22 30 2E 30 30 22 0D 0A 3E 72 70 sv n="0.00"..>rp
00E440: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D 0A 3E 73 76 ..>sv n=n+1..>sv
00E450: 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 flist=flist+" f
00E460: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
00E470: 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E n..>sv n=n+1 m=n
00E480: 2B 31 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 +1..>sv f&n&=""
00E490: 66 26 6D 26 3D 22 22 0D 0A 3E 69 64 20 63 70 6D f&m&=""..>id cpm
00E4A0: 0D 0A 3E 64 66 20 26 64 66 26 0D 0A 3E 72 76 20 ..>df &df&..>rv
00E4B0: 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 0D 0A s..>if s="end"..
00E4C0: 3E 77 66 20 26 64 66 26 0D 0A 3E 65 6C 0D 0A 3E >wf &df&..>el..>
00E4D0: 77 66 20 26 64 66 26 20 61 0D 0A 3E 65 69 0D 0A wf &df& a..>ei..
00E4E0: 3E 65 6C 0D 0A 3E 77 66 20 26 64 66 26 20 61 0D >el..>wf &df& a.
00E4F0: 0A 3E 65 69 0D 0A 3E 63 66 0D 0A 3E 64 66 20 26 .>ei..>cf..>df &
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 00 02 09 4E E5 0C 00 C1 02 00 00 00 02 ......N.........
00E520: 0C 00 C6 02 00 00 00 02 0C 00 C2 02 00 00 00 02 ................
00E530: 0C 00 C7 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E540: 0C 00 C8 02 00 00 00 02 0C 00 C4 02 00 00 00 02 ................
00E550: 0C 00 C9 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 74 6F 20 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E to enclose strin
00E610: 67 73 20 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E gs in quotes"..>
00E620: 64 6D 20 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E dm 'e.g. "London
00E630: 22 20 69 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 " in F4..>dm " "
00E640: 0D 0A 3E 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 ..>sv ok="'" + '
00E650: 22 27 20 2B 20 22 30 31 32 33 34 35 36 37 38 39 "' + "0123456789
00E660: 2E 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E ."..>sv n="1"..>
00E670: 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 rp..>av "Enter c
00E680: 6F 6E 64 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 ondition &n&: "
00E690: 73 0D 0A 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 s..>sv err=0 s=s
00E6A0: 5B 77 31 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D [w1:]..>sv c&n&=
00E6B0: 73 0D 0A 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 s..>if c1=""..>e
00E6C0: 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A x exec fm..>st..
00E6D0: 3E 65 69 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 >ei..>if s[1]="f
00E6E0: 22 0D 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 "..>if s[2] noti
00E6F0: 6E 20 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A n "*123456789"..
00E700: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
00E710: 3E 65 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F >el..>if s[1] no
00E720: 74 69 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D tin ok..>sv err=
00E730: 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 1..>ei..>ei..>>>
00E740: 0D 0A 3E 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 ..>sv s=c&n&[w-1
00E750: 5D 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D ]..>if s[1]="f".
00E760: 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 .>if s[2] notin
00E770: 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 "*123456789"..>s
00E780: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
00E790: 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 l..>if s[1] noti
00E7A0: 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D n ok..>sv err=1.
00E7B0: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A .>ei..>ei..>>>..
00E7C0: 3E 69 66 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E >if err=0..>sv n
00E7D0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 =n+1 n=n[w1]..>e
00E7E0: 6C 0D 0A 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 l..>dm "Invalid
00E7F0: 69 6E 70 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E input"..>ei..>un
00E800: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
00E810: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
00E820: 65 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D ei ; id df..>>>.
00E830: 0A 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 .>iu df..>cs " "
00E840: 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E ..>dm "Option S.
00E850: 35 20 2D 20 53 65 6C 65 63 74 20 72 65 63 6F 72 5 - Select recor
00E860: 64 73 20 28 63 6F 6E 64 31 20 41 4E 44 20 63 6F ds (cond1 AND co
00E870: 6E 64 32 20 41 4E 44 20 63 6F 6E 64 33 29 22 0D nd2 AND cond3)".
00E880: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D .>dm " "..>in fm
00E890: 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 $pfi$..>sv fv=fv
00E8A0: 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 [1] rlen=rlen[w1
00E8B0: 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E ]..>if fv="f"..>
00E8C0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A sv flist=">ru"..
00E8D0: 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 >el..>sv flist="
00E8E0: 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E >rv"..>ei..>sv n
00E8F0: 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =0..>rp..>sv n=n
00E900: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
00E910: 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 flist=flist+" f&
00E920: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
00E930: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B ..>sv n=n+1 m=n+
00E940: 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 1 n=n[w1] m=m[w1
00E950: 5D 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 ]..>sv f&n&="" f
00E960: 26 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D &m&=""..>>>..>dm
00E970: 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 "Field names: "
00E980: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
00E990: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
00E9A0: 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E ]..>sv s=n&n&..>
00E9B0: 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 dm f&n&: &s&..>u
00E9C0: 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E n n=rlen..>>>..>
00E9D0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 dm " "..>dm "Whe
00E9E0: 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 n entering condi
00E9F0: 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 tions below, ple
00EA00: 20 6E 3E 32 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 n>2..>>>..>if c
00EA10: 32 3D 22 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 2=""..>sv c2="0=
00EA20: 30 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 66 3D 0"..>ei..>sv ff=
00EA30: 22 22 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 ""..>if "f*" in
00EA40: 63 31 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D c1[6:]..>sv n=5.
00EA50: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
00EA60: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 31 5B n=n[w1]..>if c1[
00EA70: 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 &n&:]="f*"..>sv
00EA80: 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n-1 n=n[w1]..>
00EA90: 73 76 20 63 31 3D 63 31 5B 31 3A 26 6E 26 5D 2B sv c1=c1[1:&n&]+
00EAA0: 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E "f0"..>sv n=0..>
00EAB0: 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 ei..>un n=0..>sv
00EAC0: 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D ff=">sv f0=f1".
00EAD0: 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 31 0D .>ei ; f* in c1.
00EAE0: 0A 3E 3E 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 .>>>..>if "f*" i
00EAF0: 6E 20 63 32 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D n c2[6:]..>sv n=
00EB00: 35 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 5..>rp..>sv n=n+
00EB10: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 1 n=n[w1]..>if c
00EB20: 32 5B 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 2[&n&:]="f*"..>s
00EB30: 76 20 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n-1 n=n[w1].
00EB40: 0A 3E 73 76 20 63 32 3D 63 32 5B 31 3A 26 6E 26 .>sv c2=c2[1:&n&
00EB50: 5D 2B 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D ]+"f0"..>sv n=0.
00EB60: 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E .>ei..>un n=0..>
00EB70: 73 76 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 sv ff=">sv f0=f1
00EB80: 22 0D 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 "..>ei ; f* in c
00EB90: 32 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 2..>>>..>if ff<>
00EBA0: 22 22 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 ""..>sv n=1..>rp
00EBB0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
00EBC0: 77 31 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 w1]..>sv ff=ff+"
00EBD0: 2B 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 +f&n&"..>un n>=r
00EBE0: 6C 65 6E 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E len..>ei..>>>..>
00EBF0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 dm " "..>dm "Sea
00EC00: 41 44 44 52 45 53 53 2C 41 3A 2C 70 72 6F 64 75 ADDRESS,A:,produ
00EC10: 63 74 73 2E 69 6E 66 2C 79 2C 79 0D 0A 30 2E 31 cts.inf,y,y..0.1
00EC20: 35 2C 30 2E 30 30 2C 30 2E 30 30 2C 30 2E 30 30 5,0.00,0.00,0.00
00EC30: 2C 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 32 35 ,0.00,22,18.."25
00EC40: 20 31 30 20 30 22 2C 22 31 35 20 31 30 20 30 22 10 0","15 10 0"
00EC50: 2C 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 ,"0 0 0","0 0 0"
00EC60: 2C 22 30 20 30 20 30 22 2C 22 22 0D 0A 79 2C 69 ,"0 0 0",""..y,i
00EC70: 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 32 ,n,y,y,y,0..4,12
00EC80: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
00EC90: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
00ECA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ECB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ECC0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
00ECD0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
00ECE0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
00ECF0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
00ED00: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
00ED10: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
00ED20: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
00ED30: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
00ED40: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
00ED50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
00ED60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
00ED70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
00ED80: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
00ED90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EDA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EDB0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
00EDC0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
00EDD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EDE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EDF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EE00: 72 63 68 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 rching ..."..>sv
00EE10: 20 6E 6E 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 nn=0..>df fm.mu
00EE20: 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D s..>rv mus..>cf.
00EE30: 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 .>if mus="m"..>d
00EE40: 66 20 26 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A f &df& fo$end$..
00EE50: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 >ei..>if mus="u"
00EE60: 0D 0A 3E 64 66 20 26 6E 65 77 66 69 6C 65 26 20 ..>df &newfile&
00EE70: 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 fo$end$..>ei..>i
00EE80: 66 20 6D 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 f mus="s"..>df &
00EE90: 73 65 6C 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 selfile& fo$end$
00EEA0: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 ..>ei..>wf &self
00EEB0: 69 6C 65 26 0D 0A 3E 65 69 20 3B 20 69 66 20 75 ile&..>ei ; if u
00EEC0: 6E 64 65 66 69 6E 65 64 20 64 66 0D 0A 1A 69 0D ndefined df...i.
00EED0: 0A 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E .>ei..>sk x=0..>
00EEE0: 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 zm..>npoff..>sv
00EEF0: 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 n=0..>if fv="f"
00EF00: 20 63 31 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 c1[6:]..>sv n=5
00EF10: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
00EF20: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 31 n=n[w1]..>if c1
00EF30: 5B 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 [&n&:]="f*"..>sv
00EF40: 20 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n-1 n=n[w1]..
00EF50: 3E 73 76 20 63 31 3D 63 31 5B 31 3A 26 6E 26 5D >sv c1=c1[1:&n&]
00EF60: 2B 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A +"f0"..>sv n=0..
00EF70: 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 >ei..>un n=0..>s
00EF80: 76 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 v ff=">sv f0=f1"
00EF90: 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A ..>sv n=1..>rp..
00EFA0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
00EFB0: 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 ]..>sv ff=ff+"+f
00EFC0: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
00EFD0: 6E 0D 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 n..>ei ; f* in c
00EFE0: 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 1..>dm " "..>dm
00EFF0: 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E 22 0D "Searching ...".
00F000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F010: 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 0D 0A 0D 0A --------R"......
00F020: 0D 0A 0D 0A 0D 0A 0D 0A 1A 30 30 2C 30 2E 30 30 .........00,0.00
00F030: 2C 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 32 35 ,0.00,22,18.."25
00F040: 20 31 30 20 30 22 2C 22 31 35 20 31 30 20 30 22 10 0","15 10 0"
00F050: 2C 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 ,"0 0 0","0 0 0"
00F060: 2C 22 30 20 30 20 30 22 2C 22 22 0D 0A 79 2C 78 ,"0 0 0",""..y,x
00F070: 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 32 ,n,y,y,y,0..4,12
00F080: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
00F090: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
00F0A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F0B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F0C0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
00F0D0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
00F0E0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
00F0F0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
00F100: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
00F110: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
00F120: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
00F130: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
00F140: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
00F150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
00F160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
00F170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
00F180: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
00F190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F1A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F1B0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
00F1C0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
00F1D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F1E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F1F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F200: 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 |639||16|ps"..>s
00F210: 76 20 73 66 3D 22 6C 20 66 6D 66 69 6E 64 7C 31 v sf="l fmfind|1
00F220: 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 3|y|639||16|ps".
00F230: 0A 3E 73 76 20 73 61 3D 22 6C 20 66 6D 61 64 64 .>sv sa="l fmadd
00F240: 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 |13|y|639||16|ps
00F250: 22 0D 0A 3E 73 76 20 73 70 3D 22 6C 20 66 6D 70 "..>sv sp="l fmp
00F260: 72 69 6E 74 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 rint|13|y|639||1
00F270: 36 7C 70 22 0D 0A 3E 73 76 20 73 75 3D 22 6C 20 6|p"..>sv su="l
00F280: 66 6D 6D 65 72 67 65 7C 31 33 7C 79 7C 36 33 39 fmmerge|13|y|639
00F290: 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 76 20 73 3D ||16|ps"..>sv s=
00F2A0: 73 26 6F 70 74 26 0D 0A 3E 3E 3E 20 6E 6F 74 65 s&opt&..>>> note
00F2B0: 20 65 78 65 63 20 6E 6F 74 20 69 6E 20 70 72 6F exec not in pro
00F2C0: 67 72 65 73 73 20 68 65 72 65 0D 0A 3E 69 64 20 gress here..>id
00F2D0: 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 20 66 6D cpm..>cf..>df fm
00F2E0: 24 70 66 69 24 09 3B 20 68 61 6E 64 6C 65 20 30 $pfi$.; handle 0
00F2F0: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D 2E 78 09 ..>ei..>wf fm.x.
00F300: 3B 20 68 61 6E 64 6C 65 20 31 0D 0A 3E 77 6D 20 ; handle 1..>wm
00F310: 22 26 73 26 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 "&s&"..>wc..>cf.
00F320: 09 3B 20 66 72 65 65 20 68 61 6E 64 6C 65 20 30 .; free handle 0
00F330: 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 2E 78 09 ..>ex exec fm.x.
00F340: 3B 20 67 65 74 73 20 68 61 6E 64 6C 65 20 30 0D ; gets handle 0.
00F350: 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 6F 70 74 20 .>st..>ei ; opt
00F360: 69 6E 20 22 71 65 69 7A 66 61 70 75 22 0D 0A 3E in "qeizfapu"..>
00F370: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
00F380: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
00F390: 0D 0A 3E 3E 3E 20 63 6C 65 61 72 20 73 63 72 65 ..>>> clear scre
00F3A0: 65 6E 2C 20 70 72 69 6E 74 20 74 69 74 6C 65 20 en, print title
00F3B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
00F3C0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
00F3D0: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 20 >>>>>>..>if opt
00F3E0: 69 6E 20 22 63 6C 73 7A 64 6D 22 0D 0A 3E 73 76 in "clszdm"..>sv
00F3F0: 20 6F 6F 3D 6F 26 6F 70 74 26 0D 0A 3E 63 73 20 oo=o&opt&..>cs
00F400: 61 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 ase remember to
00F410: 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 enclose strings
00F420: 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 in quotes"..>dm
00F430: 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 'e.g. "London" i
00F440: 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E n F4..>dm " "..>
00F450: 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 sv ok="'" + '"'
00F460: 2B 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D + "0123456789.".
00F470: 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D .>sv n="1"..>rp.
00F480: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 .>av "Enter cond
00F490: 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A ition &n&: " s..
00F4A0: 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 >sv err=0 s=s[w1
00F4B0: 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A :]..>sv c&n&=s..
00F4C0: 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 >if c1=""..>ex e
00F4D0: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
00F4E0: 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A ..>if s[1]="f"..
00F4F0: 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 >if s[2] notin "
00F500: 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 *123456789"..>sv
00F510: 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C err=1..>ei..>el
00F520: 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E ..>if s[1] notin
00F530: 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A ok..>sv err=1..
00F540: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E >ei..>ei..>>>..>
00F550: 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A sv s=c&n&[w-1]..
00F560: 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 >if s[1]="f"..>i
00F570: 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 f s[2] notin "*1
00F580: 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 23456789"..>sv e
00F590: 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A rr=1..>ei..>el..
00F5A0: 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F >if s[1] notin o
00F5B0: 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 k..>sv err=1..>e
00F5C0: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 i..>ei..>>>..>if
00F5D0: 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B err=0..>sv n=n+
00F5E0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 1 n=n[w1]..>el..
00F5F0: 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 >dm "Invalid inp
00F600: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
00F610: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
00F620: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
00F630: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
00F640: 26 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 73 76 &..>if &c3&..>sv
00F650: 20 78 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A x=1..>ei..>ei..
00F660: 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A >ei..>sk x=0..>z
00F670: 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E m..>npoff..>sv n
00F680: 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B =0..>if fv="f" ;
00F690: 20 66 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 fixed..>rp..>sv
00F6A0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
00F6B0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 >sv s=f&n&..>wm
00F6C0: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
00F6D0: 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D .>el ; var..>rp.
00F6E0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
00F6F0: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
00F700: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D >if s=""..>sv s=
00F710: 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 n+1 m=n+2 s=s[w1
00F720: 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 ] m=m[w1]..>sv s
00F730: 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 =f&s&+f&m&..>if
00F740: 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E s=""..>sv n=rlen
00F750: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 ..>el..>sv s="$"
00F760: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 ..>ei..>ei..>wm
00F770: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
00F780: 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 .>ei ; f/v..>sv
00F790: 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 nn=nn+1..>el ; f
00F7A0: 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 1=end..>sv nn=nn
00F7B0: 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E [w1]..>dm " "..>
00F7C0: 77 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 wt "&nn& records
00F7D0: 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 found. Press a
00F7E0: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
00F7F0: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 00 02 09 4E E5 0D 00 C1 02 00 00 00 02 ......N.........
00F820: 0D 00 C6 02 00 00 00 02 0D 00 C2 02 00 00 00 02 ................
00F830: 0D 00 C7 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F840: 0D 00 C8 02 00 00 00 02 0D 00 C4 02 00 00 00 02 ................
00F850: 0D 00 C9 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E ut"..>ei..>un n>
00F910: 33 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 3..>>>..>if c2="
00F920: 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 30 22 0D "..>sv c2="0=0".
00F930: 0A 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D .>ei..>if c3="".
00F940: 0A 3E 73 76 20 63 33 3D 22 30 3D 30 22 0D 0A 3E .>sv c3="0=0"..>
00F950: 65 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E ei..>sv ff=""..>
00F960: 69 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A if "f*" in c1[6:
00F970: 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D ]..>sv n=5..>rp.
00F980: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
00F990: 31 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 1]..>if c1[&n&:]
00F9A0: 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 ="f*"..>sv n=n-1
00F9B0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 n=n[w1]..>sv c1
00F9C0: 3D 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D =c1[1:&n&]+"f0".
00F9D0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sv n=0..>ei..>
00F9E0: 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 un n=0..>sv ff="
00F9F0: 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 >sv f0=f1"..>ei
00FA00: 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D ; f* in c1..>>>.
00FA10: 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B .>if "f*" in c2[
00FA20: 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 6:]..>sv n=5..>r
00FA30: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
00FA40: 5B 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 [w1]..>if c2[&n&
00FA50: 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E :]="f*"..>sv n=n
00FA60: 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 -1 n=n[w1]..>sv
00FA70: 63 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 c2=c2[1:&n&]+"f0
00FA80: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D "..>sv n=0..>ei.
00FA90: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 .>un n=0..>sv ff
00FAA0: 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 =">sv f0=f1"..>e
00FAB0: 69 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E i ; f* in c2..>>
00FAC0: 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 >..>if "f*" in c
00FAD0: 33 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3[6:]..>sv n=5..
00FAE0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
00FAF0: 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 =n[w1]..>if c3[&
00FB00: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 ..>ei..>ei..>un
00FB10: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 20 3B 20 75 73 n=maxn..>ei ; us
00FB20: 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 3E 3E 0D 0A eprod="y"..>>>..
00FB30: 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 68 65 >>> print out he
00FB40: 61 64 69 6E 67 20 61 74 20 74 6F 70 20 6F 66 20 ading at top of
00FB50: 73 68 65 65 74 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 sheet..>>>..>dm
00FB60: 22 20 22 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 " "..>
00FB70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB90: 20 21 20 20 20 20 20 20 20 20 20 20 6C 20 20 20 ! l
00FBA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
00FBB0: 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 75 6C 65 72 ..>wf on..&ruler
00FBC0: 31 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D 0D 1&..>wfoff..>wm.
00FBD0: 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 .>if prconame="y
00FBE0: 22 0D 0A 3E 77 6D 20 EC 21 63 6F 6E 61 6D 65 21 "..>wm .!coname!
00FBF0: EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 72 31 ...>wm .!coaddr1
00FC00: 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 72 !...>wm .!coaddr
00FC10: 32 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 2!...>wm .!coadd
00FC20: 72 33 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 r3!...>wm .!coad
00FC30: 64 72 34 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 dr4!...>wm .!coa
00FC40: 64 64 72 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 3E 3E ddr5!...>ei..>>>
00FC50: 20 67 6F 20 74 6F 20 6C 69 6E 65 20 26 61 6C 69 go to line &ali
00FC60: 6E 65 26 0D 0A 3E 73 76 20 6E 3D 61 6C 69 6E 65 ne&..>sv n=aline
00FC70: 2D 63 61 6C 69 6E 65 2D 36 0D 0A 3E 72 70 0D 0A -caline-6..>rp..
00FC80: 3E 77 6D 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A >wm..>sv n=n-1..
00FC90: 3E 75 6E 20 6E 3C 3D 30 0D 0A 3E 77 6D 20 21 61 >un n<=0..>wm !a
00FCA0: 30 21 0D 0A 3E 77 6D 20 21 61 31 21 0D 0A 3E 77 0!..>wm !a1!..>w
00FCB0: 6D 20 21 61 32 21 0D 0A 3E 77 6D 20 21 61 33 21 m !a2!..>wm !a3!
00FCC0: 09 EC 26 54 49 54 4C 45 26 EC 0D 0A 3E 77 6D 20 ..&TITLE&...>wm
00FCD0: 21 61 34 21 09 0D 0A 3E 77 6D 20 21 61 35 21 09 !a4!...>wm !a5!.
00FCE0: 4E 75 6D 62 65 72 20 20 20 20 20 26 6E 75 6D 62 Number &numb
00FCF0: 65 72 26 0D 0A 3E 77 6D 20 21 61 36 21 09 44 61 er&..>wm !a6!.Da
00FD00: 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 .>if x<>""..>sv
00FD10: 63 75 73 74 64 69 73 63 3D 78 0D 0A 3E 65 69 0D custdisc=x..>ei.
00FD20: 0A 3E 75 6E 20 63 75 73 74 64 69 73 63 20 69 6E .>un custdisc in
00FD30: 20 22 30 61 62 63 64 65 22 0D 0A 3E 65 69 0D 0A "0abcde"..>ei..
00FD40: 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A >>>..>sv car=0..
00FD50: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
00FD60: 3E 72 70 0D 0A 3E 61 76 20 22 43 61 72 72 69 61 >rp..>av "Carria
00FD70: 67 65 20 63 68 61 72 67 65 3A 20 22 2C 78 0D 0A ge charge: ",x..
00FD80: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
00FD90: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 61 72 3D 0..>ei..>sv car=
00FDA0: 78 2B 30 0D 0A 3E 75 6E 20 78 3D 63 61 72 0D 0A x+0..>un x=car..
00FDB0: 3E 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 >ei..>sv footnot
00FDC0: 65 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D e=""..>if askfn=
00FDD0: 22 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E 6F "y"..>av "Footno
00FDE0: 74 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D 0A te: ",footnote..
00FDF0: 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >ei..>if vatreg=
00FE00: 22 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 6E "n"..>sv vat?="n
00FE10: 22 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 "..>el..>rp..>av
00FE20: 20 22 49 73 20 56 41 54 20 63 68 61 72 67 65 61 "Is VAT chargea
00FE30: 62 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 74 ble (Y/n)? " vat
00FE40: 3F 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 22 ? 1..>if vat?=""
00FE50: 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D 0A ..>sv vat?="y"..
00FE60: 3E 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 6E >ei..>un vat? in
00FE70: 20 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D "yn"..>ei..>>>.
00FE80: 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 64 .>>> ask for ord
00FE90: 65 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 6B er levels from k
00FEA0: 65 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E 69 eyboard..>>>..>i
00FEB0: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
00FEC0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E 74 dm " "..>dm "Ent
00FED0: 65 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 6F er quantities fo
00FEE0: 72 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 r the following
00FEF0: 70 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 products"..>dm "
00FF00: 74 65 20 20 20 20 20 20 20 26 64 61 74 65 26 0D te &date&.
00FF10: 0A 3E 77 6D 20 21 61 37 21 09 4F 72 64 65 72 20 .>wm !a7!.Order
00FF20: 52 65 66 20 20 26 72 65 66 26 0D 0A 3E 3E 3E 20 Ref &ref&..>>>
00FF30: 67 6F 74 6F 20 6C 69 6E 65 20 26 74 6C 69 6E 65 goto line &tline
00FF40: 26 0D 0A 3E 73 76 20 6E 3D 74 6C 69 6E 65 2D 61 &..>sv n=tline-a
00FF50: 6C 69 6E 65 2D 38 0D 0A 3E 72 70 0D 0A 3E 77 6D line-8..>rp..>wm
00FF60: 20 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 ..>sv n=n-1..>u
00FF70: 6E 20 6E 3C 3D 30 0D 0A 3E 20 20 20 20 20 20 20 n n<=0..>
00FF80: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
00FF90: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
00FFA0: 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 !
00FFB0: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
00FFC0: 20 52 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 75 6C 65 R..>wfon..&rule
00FFD0: 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D r2&..>wfoff..>wm
00FFE0: 20 43 4F 44 45 09 44 45 53 43 52 49 50 54 49 4F CODE.DESCRIPTIO
00FFF0: 4E 09 51 55 41 4E 54 49 54 59 09 55 4E 49 54 20 N.QUANTITY.UNIT
010000: 50 52 49 43 45 09 54 4F 54 41 4C 0D 0A 3E 20 20 PRICE.TOTAL..>
010010: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
010020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010030: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
010040: 20 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010050: 2E 20 20 20 20 20 52 0D 0A 3E 77 66 6F 6E 0D 0A . R..>wfon..
010060: 26 72 75 6C 65 72 33 26 0D 0A 3E 77 66 6F 66 66 &ruler3&..>wfoff
010070: 0D 0A 3E 77 6D 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 ..>wm..>>>..>>>
010080: 70 72 69 6E 74 20 6F 75 74 20 6F 72 64 65 72 20 print out order
010090: 6C 69 6E 65 73 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 lines..>>>..>if
0100A0: 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 64 6D useprod="y"..>dm
0100B0: 20 22 43 61 6C 63 75 6C 61 74 69 6E 67 20 74 6F "Calculating to
0100C0: 74 61 6C 73 2E 2E 2E 22 0D 0A 3E 64 6D 20 22 20 tals..."..>dm "
0100D0: 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 45 6E 74 "..>el..>dm "Ent
0100E0: 65 72 20 64 65 74 61 69 6C 73 20 6F 66 20 65 61 er details of ea
0100F0: 63 68 20 69 74 65 6D 20 28 52 45 54 55 52 4E 20 ch item (RETURN
010100: 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 Typing anything
010110: 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D other than a num
010120: 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C ber will skip al
010130: 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 l remaining prod
010140: 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ucts"..>dm " "..
010150: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
010160: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
010170: 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 .>sv quant&n&="0
010180: 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E "..>un n=maxn..>
010190: 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 >>..>sv n=0..>rp
0101A0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0101B0: 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D w1]..>sv prompt=
0101C0: 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F desc&n&..>if pro
0101D0: 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 mpt[25]=""..>sv
0101E0: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 prompt=prompt+"
0101F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010200: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
010210: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 prompt=prompt[1
010220: 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 :25]..>ei..>av "
010230: 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D 0A &prompt& : " x..
010240: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
010250: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 0..>ei..>sv quan
010260: 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C t&n&=x+0..>if x<
010270: 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 71 >quant&n&..>sv q
010280: 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 76 uant&n&="0"..>sv
010290: 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D 0D n=maxn n=n[w1].
0102A0: 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E .>ei..>if n=maxn
0102B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0102C0: 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 28 Re-enter order (
0102D0: 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 0D y/N)? " yesno 1.
0102E0: 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D 0A .>if yesno="y"..
0102F0: 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 22 >sv n=0..>dm " "
010300: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
010310: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
010320: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 76 26 =n[w1]..>sv s=v&
010330: 6E 26 0D 0A 3E 77 6D 20 26 73 26 0D 0A 3E 75 6E n&..>wm &s&..>un
010340: 20 6E 3E 3D 76 6C 65 6E 0D 0A 3E 65 69 20 3B 20 n>=vlen..>ei ;
010350: 66 2F 76 0D 0A 3E 63 73 20 22 22 0D 0A 3E 73 6B f/v..>cs ""..>sk
010360: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 64 0=0..>ei ; id d
010370: 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D 0A f..>>>..>iu df..
010380: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
010390: 74 69 6F 6E 20 41 20 2D 20 41 64 64 20 72 65 63 tion A - Add rec
0103A0: 6F 72 64 73 20 66 72 6F 6D 20 6B 65 79 62 6F 61 ords from keyboa
0103B0: 72 64 20 74 6F 20 75 70 64 61 74 65 20 66 69 6C rd to update fil
0103C0: 65 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 e..>dm " "..>in
0103D0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 73 79 73 fm$pfi$..>sv sys
0103E0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
0103F0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
010400: 76 20 63 70 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A v cpm="1"..>ei..
010410: 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 >sv fv=fv[1] rle
010420: 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 n=rlen[w1]..>if
010430: 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 fv="f"..>sv flis
010440: 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 t=">ru"..>el..>s
010450: 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E v flist=">rv"..>
010460: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
010470: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
010480: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
010490: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0104A0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0104B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0104C0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0104D0: 0A 3E 73 76 20 70 26 6E 26 3D 6E 26 6E 26 0D 0A .>sv p&n&=n&n&..
0104E0: 3E 69 66 20 70 26 6E 26 5B 26 6D 61 78 77 26 5D >if p&n&[&maxw&]
0104F0: 3D 22 22 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 =""..>sv p&n&=p&
010500: 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E n&:]="f*"..>sv n
010510: 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n-1 n=n[w1]..>s
010520: 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 v c3=c3[1:&n&]+"
010530: 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 f0"..>sv n=0..>e
010540: 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 i..>un n=0..>sv
010550: 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A ff=">sv f0=f1"..
010560: 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A >ei ; f* in c3..
010570: 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D >>>..>if ff<>"".
010580: 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E .>sv n=1..>rp..>
010590: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0105A0: 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 ..>sv ff=ff+"+f&
0105B0: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
0105C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 ..>ei..>>>..>dm
0105D0: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
0105E0: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
0105F0: 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A =0..>df fm.mus..
010600: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
010610: 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 f mus="m"..>df &
010620: 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 df& fo$end$..>ei
010630: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
010640: 64 66 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 df &newfile& fo$
010650: 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D end$..>ei..>if m
010660: 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C us="s"..>df &sel
010670: 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E file& fo$end$..>
010680: 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 ei..>wf &selfile
010690: 26 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D 0A &..>ei ; iu df..
0106A0: 1A 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E .ff&..>sv x=0..>
0106B0: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
0106C0: 26 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 73 76 &..>if &c3&..>sv
0106D0: 20 78 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A x=1..>ei..>ei..
0106E0: 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A >ei..>sk x=0..>z
0106F0: 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E m..>npoff..>sv n
010700: 6E 26 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 n&+"
010710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010720: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 65 "..>e
010730: 69 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 6E 26 i..>sv p&n&=p&n&
010740: 5B 31 3A 26 6D 61 78 77 26 5D 2B 22 3A 20 22 0D [1:&maxw&]+": ".
010750: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
010760: 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 77 66 20 26 ..>iu cpm..>wf &
010770: 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 77 63 0D newfile& a..>wc.
010780: 0A 3E 65 69 0D 0A 3E 64 66 20 26 6E 65 77 66 69 .>ei..>df &newfi
010790: 6C 65 26 0D 0A 3E 72 76 20 73 0D 0A 3E 69 66 20 le&..>rv s..>if
0107A0: 73 3D 22 65 6E 64 22 0D 0A 3E 77 66 20 26 6E 65 s="end"..>wf &ne
0107B0: 77 66 69 6C 65 26 0D 0A 3E 65 6C 0D 0A 3E 77 66 wfile&..>el..>wf
0107C0: 20 26 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 65 &newfile& a..>e
0107D0: 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6D 61 78 3D i..>>>..>sv max=
0107E0: 72 6C 65 6E 0D 0A 3E 69 66 20 6C 61 73 74 62 6C rlen..>if lastbl
0107F0: 61 6E 6B 3D 22 79 22 0D 0A 3E 73 76 20 6D 61 78 ank="y"..>sv max
010800: 3D 72 6C 65 6E 2D 31 20 6D 61 78 3D 6D 61 78 5B =rlen-1 max=max[
010810: 77 31 5D 20 76 26 6D 61 78 26 3D 22 22 0D 0A 3E w1] v&max&=""..>
010820: 65 69 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D ei..>ei ; iu df.
010830: 0A 3E 3E 3E 0D 0A 1A 61 6D 65 73 3A 20 22 0D 0A .>>>...ames: "..
010840: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
010850: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
010860: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
010870: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
010880: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
010890: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0108A0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0108B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0108C0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0108D0: 0A 3E 73 76 20 70 26 6E 26 3D 6E 26 6E 26 0D 0A .>sv p&n&=n&n&..
0108E0: 3E 69 66 20 70 26 6E 26 5B 26 6D 61 78 77 26 5D >if p&n&[&maxw&]
0108F0: 3D 22 22 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 =""..>sv p&n&=p&
010900: 20 66 76 3D 22 66 22 0D 0A 3E 64 6D 20 22 46 69 fv="f"..>dm "Fi
010910: 78 65 64 20 72 65 63 6F 72 64 20 73 69 7A 65 2C xed record size,
010920: 20 63 6F 6E 73 69 73 74 69 6E 67 20 6F 66 20 26 consisting of &
010930: 72 6C 65 6E 26 20 66 69 65 6C 64 73 22 0D 0A 3E rlen& fields"..>
010940: 65 6C 0D 0A 3E 64 6D 20 22 56 61 72 69 61 62 6C el..>dm "Variabl
010950: 65 20 72 65 63 6F 72 64 20 73 69 7A 65 2C 20 63 e record size, c
010960: 6F 6E 73 69 73 74 69 6E 67 20 6F 66 20 75 70 20 onsisting of up
010970: 74 6F 20 26 72 6C 65 6E 26 20 66 69 65 6C 64 73 to &rlen& fields
010980: 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D "..>ei..>dm " ".
010990: 0A 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 .>dm "Field name
0109A0: 73 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E s: "..>sv n=0..>
0109B0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
0109C0: 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E n[w1]..>sv s=n&n
0109D0: 26 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 &..>dm f&n&: &s&
0109E0: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0109F0: 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 70 74 3D dm " "..>sv opt=
010A00: 22 77 74 22 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D "wt"..>ei ; opt=
010A10: 22 6C 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E "l"..>>>>>>>>>>>
010A20: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
010A30: 4E 20 5A 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N Z >>>..>>>>>>>
010A40: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
010A50: 70 74 3D 22 7A 22 0D 0A 3E 72 70 0D 0A 3E 61 76 pt="z"..>rp..>av
010A60: 20 22 55 73 65 20 6F 70 74 69 6F 6E 73 20 28 26 "Use options (&
010A70: 66 73 6F 72 74 6F 70 74 73 26 29 20 5B 59 2F 6E fsortopts&) [Y/n
010A80: 5D 3F 20 22 20 79 6E 0D 0A 3E 75 6E 20 79 6E 20 ]? " yn..>un yn
010A90: 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 79 6E 3D in "yn"..>if yn=
010AA0: 22 22 0D 0A 3E 73 76 20 79 6E 3D 22 79 22 0D 0A ""..>sv yn="y"..
010AB0: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 >ei..>dm " "..>s
010AC0: 76 20 6F 70 74 73 3D 66 73 6F 72 74 6F 70 74 73 v opts=fsortopts
010AD0: 0D 0A 3E 69 66 20 79 6E 3D 22 6E 22 0D 0A 3E 61 ..>if yn="n"..>a
010AE0: 76 20 22 45 6E 74 65 72 20 66 73 6F 72 74 20 6F v "Enter fsort o
010AF0: 70 74 69 6F 6E 73 3A 20 22 20 6F 70 74 73 0D 0A ptions: " opts..
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 00 02 09 4E E5 0E 00 C1 02 00 00 00 02 ......N.........
010B20: 0E 00 C6 02 00 00 00 02 0E 00 C2 02 00 00 00 02 ................
010B30: 0E 00 C7 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B40: 0E 00 C8 02 00 00 00 02 0E 00 C4 02 00 00 00 02 ................
010B50: 0E 00 C9 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 74 6F 20 65 6E 64 29 3A 20 22 0D 0A 3E 64 6D 20 to end): "..>dm
010C10: 22 20 22 0D 0A 3E 73 76 20 6D 61 78 6E 3D 31 30 " "..>sv maxn=10
010C20: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 22 30 0..>ei..>sv n="0
010C30: 22 20 71 75 61 6E 74 30 3D 31 20 64 69 73 63 6F " quant0=1 disco
010C40: 75 6E 74 3D 31 0D 0A 3E 73 76 20 62 6C 61 6E 6B unt=1..>sv blank
010C50: 6C 69 6E 65 73 3D 69 6E 66 6F 6C 69 6E 65 73 20 lines=infolines
010C60: 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 74 6F coden=""..>sv to
010C70: 74 3D 30 2E 30 30 0D 0A 3E 69 66 20 76 61 74 3F t=0.00..>if vat?
010C80: 3D 22 79 22 0D 0A 3E 73 76 20 64 75 65 3D 63 61 ="y"..>sv due=ca
010C90: 72 2A 76 61 74 63 66 31 0D 0A 3E 65 6C 0D 0A 3E r*vatcf1..>el..>
010CA0: 73 76 20 64 75 65 3D 63 61 72 0D 0A 3E 65 69 0D sv due=car..>ei.
010CB0: 0A 3E 73 76 20 76 61 74 3D 64 75 65 2D 63 61 72 .>sv vat=due-car
010CC0: 0D 0A 3E 72 70 0D 0A 3E 69 66 20 75 73 65 70 72 ..>rp..>if usepr
010CD0: 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 6E 3D 6E 2B od="y"..>sv n=n+
010CE0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 71 1 n=n[w1]..>if q
010CF0: 75 61 6E 74 26 6E 26 20 3D 20 30 0D 0A 3E 73 76 uant&n& = 0..>sv
010D00: 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 6C 0D 0A coden=""..>el..
010D10: 3E 73 76 20 64 65 73 63 6E 3D 64 65 73 63 26 6E >sv descn=desc&n
010D20: 26 5B 31 3A 26 64 65 73 63 77 69 64 74 68 26 5D &[1:&descwidth&]
010D30: 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 63 6F 64 65 ..>sv coden=code
010D40: 26 6E 26 0D 0A 3E 69 66 20 63 6F 64 65 6E 3D 22 &n&..>if coden="
010D50: 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 20 22 "..>sv coden=" "
010D60: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 74 ..>ei..>sv quant
010D70: 6E 3D 71 75 61 6E 74 26 6E 26 5B 77 31 5D 0D 0A n=quant&n&[w1]..
010D80: 3E 73 76 20 70 72 69 63 65 6E 3D 70 72 69 63 65 >sv pricen=price
010D90: 26 6E 26 0D 0A 3E 73 76 20 76 72 3D 70 72 6F 64 &n&..>sv vr=prod
010DA0: 76 61 74 26 6E 26 0D 0A 3E 69 66 20 63 75 73 74 vat&n&..>if cust
010DB0: 64 69 73 63 3D 30 0D 0A 3E 73 76 20 64 69 73 63 disc=0..>sv disc
010DC0: 6F 75 6E 74 3D 31 0D 0A 3E 65 6C 0D 0A 3E 73 76 ount=1..>el..>sv
010DD0: 20 70 72 6F 64 64 69 73 63 6E 3D 70 72 6F 64 64 proddiscn=prodd
010DE0: 69 73 63 26 6E 26 0D 0A 3E 73 76 20 64 69 73 63 isc&n&..>sv disc
010DF0: 6F 75 6E 74 3D 64 69 73 63 26 63 75 73 74 64 69 ount=disc&custdi
010E00: 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 74 off..>el..>if t
010E10: 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A 3E 3E 3E itle[1]="i"..>>>
010E20: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 wf on..>wm Terms
010E30: 3A 20 53 74 72 69 63 74 6C 79 20 33 30 20 44 61 : Strictly 30 Da
010E40: 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 66 20 6F 66 ys Net..>>>wf of
010E50: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 74 69 74 6C f..>ei..>if titl
010E60: 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E 3E 77 66 20 e[1]="c"..>>>wf
010E70: 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 54 on..>wm Terms: T
010E80: 68 69 73 20 61 6D 6F 75 6E 74 20 68 61 73 20 62 his amount has b
010E90: 65 65 6E 20 63 72 65 64 69 74 65 64 20 74 6F 20 een credited to
010EA0: 79 6F 75 72 20 61 63 63 6F 75 6E 74 0D 0A 3E 3E your account..>>
010EB0: 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 65 >wf off..>ei..>e
010EC0: 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D i..>>>wf on..>wm
010ED0: 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A 3E 69 66 20 E. & O.E...>if
010EE0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 3E 69 prconame="y"..>i
010EF0: 66 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 77 6D 20 f vat?="y"..>wm
010F00: 56 41 54 20 72 65 67 2E 20 6E 6F 2E 20 26 76 61 VAT reg. no. &va
010F10: 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A 3E 65 69 0D tnum&..>ei..>ei.
010F20: 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 0D .>>>wf off..>wc.
010F30: 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 2B .>sv fn=invpath+
010F40: 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 2B title[1]+number+
010F50: 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 69 ".poi"..>av "Pri
010F60: 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 72 nt invoice to pr
010F70: 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 inter or screen
010F80: 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (P/s)? " x 1..>i
010F90: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 d cpm..>ex ren &
010FA0: 66 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 fn&=&invpath&omt
010FB0: 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 65 72 emp..>el..>ex er
010FC0: 61 20 26 66 6E 26 0D 0A 3E 73 76 20 72 65 6E 66 a &fn&..>sv renf
010FD0: 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 n=title[1]+numbe
010FE0: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 65 r+".poi"..>ex re
010FF0: 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D n &invpath&omtem
011000: 73 63 26 5B 77 26 70 72 6F 64 64 69 73 63 6E 26 sc&[w&proddiscn&
011010: 5D 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D ]..>sv discount=
011020: 64 69 73 63 6F 75 6E 74 2F 31 30 30 20 64 69 73 discount/100 dis
011030: 63 6F 75 6E 74 3D 31 2D 64 69 73 63 6F 75 6E 74 count=1-discount
011040: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 75 70 72 69 63 ..>ei..>sv upric
011050: 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 e=discount*price
011060: 6E 0D 0A 3E 73 76 20 70 72 69 63 65 3D 64 69 73 n..>sv price=dis
011070: 63 6F 75 6E 74 2A 71 75 61 6E 74 6E 2A 70 72 69 count*quantn*pri
011080: 63 65 6E 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 3B cen..>ei..>el ;
011090: 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C 65 no product file
0110A0: 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 63 ..>av "Product c
0110B0: 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E 69 ode: " coden..>i
0110C0: 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 f coden=""..>sv
0110D0: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 66 n=maxn..>ei..>if
0110E0: 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 coden<>""..>av
0110F0: 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 22 "Description : "
011100: 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 61 descn..>av "Qua
011110: 6E 74 69 74 79 20 20 20 20 3A 20 22 20 78 0D 0A ntity : " x..
011120: 3E 73 76 20 71 75 61 6E 74 6E 3D 78 2B 30 20 71 >sv quantn=x+0 q
011130: 75 61 6E 74 6E 3D 71 75 61 6E 74 6E 5B 77 31 5D uantn=quantn[w1]
011140: 0D 0A 3E 69 66 20 78 3C 3E 71 75 61 6E 74 6E 0D ..>if x<>quantn.
011150: 0A 3E 64 6D 20 22 42 61 64 20 71 75 61 6E 74 69 .>dm "Bad quanti
011160: 74 79 2E 20 50 6C 65 61 73 65 20 72 65 2D 65 6E ty. Please re-en
011170: 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D ter"..>sv coden=
011180: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 ""..>ei..>ei..>i
011190: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 f coden<>""..>av
0111A0: 20 22 55 6E 69 74 20 70 72 69 63 65 20 20 20 A3 "Unit price £
0111B0: 22 20 78 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D " x..>sv uprice=
0111C0: 78 2B 30 0D 0A 3E 69 66 20 78 3C 3E 75 70 72 69 x+0..>if x<>upri
0111D0: 63 65 0D 0A 3E 64 6D 20 22 4D 65 61 6E 69 6E 67 ce..>dm "Meaning
0111E0: 6C 65 73 73 20 70 72 69 63 65 2E 20 50 6C 65 61 less price. Plea
0111F0: 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 se re-enter"..>s
011200: 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D 0A p &renfn&..>ei..
011210: 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 6E >wf "omsummar.in
011220: 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D f" a..>-------!-
011230: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
011240: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
011250: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
011260: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E 69 ------!----R..>i
011270: 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A f title[1]="i"..
011280: 3E 73 76 20 73 3D 22 49 20 26 6E 75 6D 62 65 72 >sv s="I &number
011290: 26 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 &.&date&.£&due&.
0112A0: 22 2B 61 30 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 "+a0..>el..>sv d
0112B0: 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D ue=0-due..>sv s=
0112C0: 22 43 20 26 6E 75 6D 62 65 72 26 09 26 64 61 74 "C &number&.&dat
0112D0: 65 26 09 A3 26 64 75 65 26 09 22 2B 61 30 0D 0A e&.£&due&."+a0..
0112E0: 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 >ei..>id cpm..>s
0112F0: 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 v s=s+"
011300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011330: 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D "..>sv s=
011340: 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 s+"
011350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011380: 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A "..>sv s=s[1:
011390: 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 26 126]..>ei..>wm &
0113A0: 73 26 0D 0A 3E 77 63 0D 0A 3E 77 66 20 6F 6D 2E s&..>wc..>wf om.
0113B0: 78 0D 0A 3E 69 66 20 78 3D 22 73 22 0D 0A 3E 77 x..>if x="s"..>w
0113C0: 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 7C 3B 20 m "ps &fn&|13|;
0113D0: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
0113E0: 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 73 ontinue:|13|paus
0113F0: 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C e|13|load omenu|
011400: 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D v coden=""..>ei.
011410: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
011420: 3E 22 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >""..>if vatreg=
011430: 22 79 22 0D 0A 3E 61 76 20 22 56 41 54 20 63 6F "y"..>av "VAT co
011440: 64 65 20 28 30 3D 6E 6F 20 56 41 54 29 20 5B 31 de (0=no VAT) [1
011450: 5D 3A 20 22 20 76 72 20 31 0D 0A 3E 69 66 20 76 ]: " vr 1..>if v
011460: 72 20 6E 6F 74 69 6E 20 22 30 31 32 33 34 35 22 r notin "012345"
011470: 0D 0A 3E 73 76 20 76 72 3D 22 31 22 0D 0A 3E 65 ..>sv vr="1"..>e
011480: 69 0D 0A 3E 69 66 20 76 72 3D 22 22 0D 0A 3E 73 i..>if vr=""..>s
011490: 76 20 76 72 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E v vr="1"..>ei..>
0114A0: 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 ei..>dm " "..>sv
0114B0: 20 70 72 69 63 65 6E 3D 75 70 72 69 63 65 20 70 pricen=uprice p
0114C0: 72 69 63 65 3D 70 72 69 63 65 6E 2A 71 75 61 6E rice=pricen*quan
0114D0: 74 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 tn..>ei..>ei..>i
0114E0: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 f coden<>""..>if
0114F0: 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 73 76 20 76 vat?="y"..>sv v
011500: 61 74 63 66 6E 3D 76 61 74 63 66 26 76 72 26 0D atcfn=vatcf&vr&.
011510: 0A 3E 69 66 20 65 78 6F 72 69 6E 63 76 61 74 20 .>if exorincvat
011520: 3D 20 22 69 22 0D 0A 3E 73 76 20 75 70 72 69 63 = "i"..>sv upric
011530: 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 e=discount*price
011540: 6E 2F 76 61 74 63 66 6E 0D 0A 3E 73 76 20 70 72 n/vatcfn..>sv pr
011550: 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A 71 75 61 ice=discount*qua
011560: 6E 74 6E 2A 70 72 69 63 65 6E 2F 76 61 74 63 66 ntn*pricen/vatcf
011570: 6E 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 3D n..>sv incprice=
011580: 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 6E 2A discount*pricen*
011590: 71 75 61 6E 74 6E 0D 0A 3E 73 76 20 76 61 74 3D quantn..>sv vat=
0115A0: 76 61 74 2B 69 6E 63 70 72 69 63 65 2D 70 72 69 vat+incprice-pri
0115B0: 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 78 3D 70 ce..>el..>sv x=p
0115C0: 72 69 63 65 2A 2E 31 35 20 69 6E 63 70 72 69 63 rice*.15 incpric
0115D0: 65 3D 70 72 69 63 65 2B 78 20 76 61 74 3D 76 61 e=price+x vat=va
0115E0: 74 2B 78 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E t+x..>ei..>el..>
0115F0: 73 76 20 69 6E 63 70 72 69 63 65 3D 70 72 69 63 sv incprice=pric
011600: 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D 0A 3E 77 6D 13|ps"..>el..>wm
011610: 20 22 70 20 26 66 6E 26 7C 31 33 7C 6C 6F 61 64 "p &fn&|13|load
011620: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
011630: 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 ei..>wc..>cf..>e
011640: 78 20 65 78 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 x exec om.x..>st
011650: 20 22 20 22 0D 0A 1A 0D 0A 3E 73 76 20 73 79 73 " ".....>sv sys
011660: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
011670: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
011680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0116A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0116B0: 20 20 20 20 20 20 0D 0A 20 5E 48 20 73 63 72 6F .. ^H scro
0116C0: 6C 6C 73 20 66 6F 72 77 61 72 64 2E 20 20 20 73 lls forward. s
0116D0: 5E 48 20 73 63 72 6F 6C 6C 73 20 62 61 63 6B 2E ^H scrolls back.
0116E0: 20 20 5E 56 48 20 74 75 72 6E 73 20 68 65 6C 70 ^VH turns help
0116F0: 20 6F 66 66 2E 20 20 53 54 4F 50 20 65 6E 74 65 off. STOP ente
011700: 72 73 20 63 6F 6D 6D 61 6E 64 20 6D 6F 64 65 2E rs command mode.
011710: 20 20 0D 0A 20 4B 65 79 3A 20 5E 20 69 73 20 41 .. Key: ^ is A
011720: 4C 54 2C 20 73 20 69 73 20 53 48 49 46 54 2C 20 LT, s is SHIFT,
011730: 6E 20 69 73 20 61 20 64 69 67 69 74 20 28 30 2D n is a digit (0-
011740: 39 29 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 9).
011750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
011770: 0D 0A 20 43 55 52 53 4F 52 20 4D 4F 56 45 4D 45 .. CURSOR MOVEME
011780: 4E 54 20 20 20 95 20 6C 65 66 74 20 20 20 73 95 NT . left s.
011790: 20 77 6F 72 64 20 6C 65 66 74 20 20 20 5E 95 20 word left ^.
0117A0: 6C 69 6E 65 20 6C 65 66 74 20 20 20 20 20 20 5E line left ^
0117B0: 28 20 70 61 67 65 20 75 70 20 20 20 20 5E 44 4F ( page up ^DO
0117C0: 43 20 73 74 72 74 20 74 65 78 74 20 0D 0A 20 20 C strt text ..
0117D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0117E0: 20 96 20 72 69 67 68 74 20 20 73 96 20 77 6F 72 . right s. wor
0117F0: 64 20 72 69 67 68 74 20 20 5E 96 20 6C 69 6E 65 d right ^. line
011800: 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 61 6E e..>ei..>if quan
011810: 74 26 6E 26 3E 30 0D 0A 3E 73 76 20 74 6F 74 3D t&n&>0..>sv tot=
011820: 74 6F 74 2B 70 72 69 63 65 20 20 64 75 65 3D 64 tot+price due=d
011830: 75 65 2B 69 6E 63 70 72 69 63 65 0D 0A 3E 3E 3E ue+incprice..>>>
011840: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 63 6F 64 65 wf on..>wm &code
011850: 6E 26 09 26 64 65 73 63 6E 26 09 26 71 75 61 6E n&.&descn&.&quan
011860: 74 6E 26 09 26 75 70 72 69 63 65 26 09 26 70 72 tn&.&uprice&.&pr
011870: 69 63 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D ice&..>>>wf off.
011880: 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>sv blanklines=
011890: 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 0D 0A 3E 65 blanklines-1..>e
0118A0: 69 0D 0A 3E 65 69 20 3B 20 63 6F 64 65 6E 3C 3E i..>ei ; coden<>
0118B0: 22 22 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E 0D 0A ""..>if n=maxn..
0118C0: 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D >if useprod="y".
0118D0: 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 22 6E 22 .>sv useprod="n"
0118E0: 20 6E 3D 22 30 22 20 64 69 73 63 6F 75 6E 74 3D n="0" discount=
0118F0: 31 0D 0A 3E 64 6D 20 22 45 6E 74 65 72 20 64 65 1..>dm "Enter de
011900: 74 61 69 6C 73 20 6F 66 20 61 6E 79 20 6F 74 68 tails of any oth
011910: 65 72 20 69 74 65 6D 73 20 28 52 45 54 55 52 4E er items (RETURN
011920: 20 74 6F 20 65 6E 64 29 3A 20 22 0D 0A 3E 64 6D to end): "..>dm
011930: 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A " "..>ei..>ei..
011940: 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 3E 3E 0D >un n=maxn..>>>.
011950: 0A 3E 3E 3E 20 64 6F 20 73 75 66 66 69 63 69 65 .>>> do sufficie
011960: 6E 74 20 62 6C 61 6E 6B 20 6C 69 6E 65 73 20 66 nt blank lines f
011970: 6F 72 20 6D 69 73 73 69 6E 67 20 69 74 65 6D 73 or missing items
011980: 0D 0A 3E 69 66 20 62 6C 61 6E 6B 6C 69 6E 65 73 ..>if blanklines
011990: 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E 3E 77 66 20 6F >0..>rp..>>>wf o
0119A0: 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E 3E 77 66 20 6F n..>wm ..>>>wf o
0119B0: 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E ff..>sv blanklin
0119C0: 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 0D es=blanklines-1.
0119D0: 0A 3E 75 6E 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>un blanklines=
0119E0: 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 20 20 0..>ei..>>>..>
0119F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011A00: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
011A10: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
011A20: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
011A30: 69 66 20 26 63 33 26 0D 0A 3E 69 66 20 26 63 31 if &c3&..>if &c1
011A40: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 6C 0D &..>sv x=1..>el.
011A50: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
011A60: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
011A70: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
011A80: 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 .>npoff..>sv n=0
011A90: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
011AA0: 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E ixed..>rp..>sv n
011AB0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
011AC0: 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 v s=f&n&..>wm !s
011AD0: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
011AE0: 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E el ; var..>rp..>
011AF0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
011B00: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 ..>sv s=f&n&..>i
011B10: 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B f s=""..>sv s=n+
011B20: 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 1 m=n+2 s=s[w1]
011B30: 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 m=m[w1]..>sv s=f
011B40: 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D &s&+f&m&..>if s=
011B50: 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A ""..>sv n=rlen..
011B60: 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A >el..>sv s="$"..
011B70: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 >ei..>ei..>wm !s
011B80: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
011B90: 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E ei ; f/v..>sv nn
011BA0: 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D =nn+1..>el ; f1=
011BB0: 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 end..>sv nn=nn[w
011BC0: 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 1]..>dm " "..>wt
011BD0: 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 "&nn& records f
011BE0: 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 ound. Press a ke
011BF0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
011C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011C10: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
011C20: 20 20 20 20 20 20 20 20 20 4C 20 20 20 20 20 20 L
011C30: 2E 20 20 52 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 . R..>wf on..&r
011C40: 75 6C 65 72 34 26 0D 0A 3E 77 66 20 6F 66 66 0D uler4&..>wf off.
011C50: 0A 3E 73 76 20 63 61 72 3D 63 61 72 2B 30 0D 0A .>sv car=car+0..
011C60: 3E 73 76 20 65 78 76 3D 74 6F 74 2B 63 61 72 0D >sv exv=tot+car.
011C70: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 69 66 20 61 .>>>wf on..>if a
011C80: 73 6B 63 61 72 3D 22 79 22 0D 0A 3E 77 6D 20 09 skcar="y"..>wm .
011C90: 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 26 GOODS TOTAL.£.&
011CA0: 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 43 61 72 72 tot&..>wm . Carr
011CB0: 69 61 67 65 09 A3 09 26 63 61 72 26 0D 0A 3E 65 iage.£.&car&..>e
011CC0: 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E l..>wm ..>wm ..>
011CD0: 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 ei..>if vatreg="
011CE0: 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 54 20 54 4F y"..>wm . NET TO
011CF0: 54 41 4C 09 A3 09 26 65 78 76 26 0D 0A 3E 77 6D TAL.£.&exv&..>wm
011D00: 20 09 20 56 41 54 09 A3 09 26 76 61 74 26 0D 0A . VAT.£.&vat&..
011D10: 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D >el..>wm ..>wm .
011D20: 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 41 4D 4F 55 .>ei..>wm . AMOU
011D30: 4E 54 20 44 55 45 09 A3 09 26 64 75 65 26 0D 0A NT DUE.£.&due&..
011D40: 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 20 20 20 >wm ..>wm ..>
011D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011D90: 20 20 20 20 20 52 0D 0A 3E 77 66 20 6F 6E 0D 0A R..>wf on..
011DA0: 26 72 75 6C 65 72 35 26 0D 0A 3E 77 66 6F 66 66 &ruler5&..>wfoff
011DB0: 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D 20 6C 69 6E ..>co bottom lin
011DC0: 65 20 63 6F 6D 6D 65 6E 74 20 68 65 72 65 0D 0A e comment here..
011DD0: 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 3E 22 22 0D >if footnote>"".
011DE0: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 .>>>wf on..>wm &
011DF0: 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E 3E 3E 77 66 footnote&..>>>wf
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 00 02 09 4E E5 0F 00 C1 02 00 00 00 02 ......N.........
011E20: 0F 00 C6 02 00 00 00 02 0F 00 C2 02 00 00 00 02 ................
011E30: 0F 00 C7 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E40: 0F 00 C8 02 00 00 00 02 0F 00 C4 02 00 00 00 02 ................
011E50: 0F 00 C9 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 ...>wc..>cf..>ex
011F10: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
011F20: 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 ei..>sk 0=0..>ei
011F30: 20 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ;id df..>>>..>i
011F40: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
011F50: 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 36 20 2D dm "Option S.6 -
011F60: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 Select records
011F70: 28 20 28 63 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 ( (cond1 OR cond
011F80: 32 29 20 41 4E 44 20 63 6F 6E 64 33 29 0D 0A 3E 2) AND cond3)..>
011F90: 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 dm " "..>in fm$p
011FA0: 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 fi$..>sv fv=fv[1
011FB0: 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D ] rlen=rlen[w1].
011FC0: 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 .>if fv="f"..>sv
011FD0: 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 flist=">ru"..>e
011FE0: 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 l..>sv flist=">r
011FF0: 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 v"..>ei..>sv n=0
012000: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
012010: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C n=n[w1]..>sv fl
012020: 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 ist=flist+" f&n&
012030: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
012040: 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 >sv n=n+1 m=n+1
012050: 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D n=n[w1] m=m[w1].
012060: 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 6D .>sv f&n&="" f&m
012070: 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 &=""..>>>..>dm "
012080: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
012090: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0120A0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0120B0: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
0120C0: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
0120D0: 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n=rlen..>>>..>dm
0120E0: 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 " "..>dm "When
0120F0: 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 entering conditi
012100: 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 6E 26 [w1]..>if c3[&n&
012110: 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E :]="f*"..>sv n=n
012120: 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 -1 n=n[w1]..>sv
012130: 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 66 30 c3=c3[1:&n&]+"f0
012140: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D "..>sv n=0..>ei.
012150: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 .>un n=0..>sv ff
012160: 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 =">sv f0=f1"..>e
012170: 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A 3E 3E i ; f* in c3..>>
012180: 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A 3E >..>if ff<>""..>
012190: 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=1..>rp..>sv
0121A0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0121B0: 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E 26 >sv ff=ff+"+f&n&
0121C0: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
0121D0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 >ei..>>>..>dm "
0121E0: 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 6E "..>dm "Searchin
0121F0: 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D 30 g ..."..>sv nn=0
012200: 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 ..>df fm.mus..>r
012210: 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 20 v mus..>cf..>if
012220: 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D 64 mus="m"..>sv f=d
012230: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D f..>ei..>if mus=
012240: 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 "u"..>sv f=newfi
012250: 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 le..>ei..>if mus
012260: 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C 66 ="s"..>sv f=self
012270: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 66 ile..>ei..>df &f
012280: 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 66 20 26 & fo$end$..>wf &
012290: 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 20 3B 69 selfile&..>ei ;i
0122A0: 75 20 64 66 0D 0A 1A 73 76 20 78 3D 30 0D 0A 3E u df...sv x=0..>
0122B0: 69 66 20 26 63 33 26 0D 0A 3E 69 66 20 26 63 31 if &c3&..>if &c1
0122C0: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 6C 0D &..>sv x=1..>el.
0122D0: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
0122E0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
0122F0: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
012300: 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D 0A 3E 63 nt name: ",n..>c
012310: 66 0D 0A 3E 64 66 26 64 61 74 61 66 26 20 66 6F f..>df&dataf& fo
012320: 24 65 6E 64 24 0D 0A 3E 72 70 0D 0A 3E 69 66 20 $end$..>rp..>if
012330: 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 72 76 20 phone?="y"..>rv
012340: 61 30 2C 78 2C 61 31 2C 61 32 2C 61 33 2C 61 34 a0,x,a1,a2,a3,a4
012350: 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 0A 3E 65 6C ,a5,a6,a7,x..>el
012360: 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 32 2C 61 ..>rv a0,a1,a2,a
012370: 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 3,a4,a5,a6,a7,x.
012380: 0A 3E 65 69 0D 0A 3E 69 66 6E 20 69 6E 20 61 30 .>ei..>ifn in a0
012390: 0D 0A 3E 64 6D 22 20 0D 0A 3E 64 6D 22 46 6F 75 ..>dm" ..>dm"Fou
0123A0: 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 22 nd: '&a0&'..>av"
0123B0: 43 6F 72 72 65 63 74 20 28 59 2F 6E 29 3F 20 22 Correct (Y/n)? "
0123C0: 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 66 61 30 d 1..>ei..>ifa0
0123D0: 3D 22 65 6E 64 22 0D 0A 3E 64 6D 22 20 0D 0A 3E ="end"..>dm" ..>
0123E0: 64 6D 22 4E 6F 74 20 66 6F 75 6E 64 0D 0A 3E 73 dm"Not found..>s
0123F0: 76 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E vd="y"..>ei..>un
012400: 64 3C 3E 22 6E 22 0D 0A 3E 65 69 0D 0A 3E 69 66 d<>"n"..>ei..>if
012410: 61 30 3D 22 65 6E 64 22 0D 0A 3E 73 76 61 33 3D a0="end"..>sva3=
012420: 22 22 20 61 34 3D 22 22 20 61 35 3D 22 22 20 61 "" a4="" a5="" a
012430: 36 3D 22 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 22 6="" a7=""..>dm"
012440: 20 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 61 64 64 ..>dm"Enter add
012450: 72 65 73 73 2C 20 6F 72 20 70 72 65 73 73 20 52 ress, or press R
012460: 45 54 55 52 4E 20 74 6F 20 72 65 74 75 72 6E 20 ETURN to return
012470: 74 6F 20 6D 65 6E 75 0D 0A 3E 64 6D 22 20 0D 0A to menu..>dm" ..
012480: 3E 61 76 22 4E 61 6D 65 3A 20 22 20 61 30 0D 0A >av"Name: " a0..
012490: 3E 69 66 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A 3E >ifa0=""..>wc..>
0124A0: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
0124B0: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
0124C0: 61 76 22 26 61 26 31 3A 20 22 20 61 31 0D 0A 3E av"&a&1: " a1..>
0124D0: 61 76 22 26 61 26 32 3A 20 22 20 61 32 0D 0A 3E av"&a&2: " a2..>
0124E0: 69 66 61 32 3E 22 22 0D 0A 3E 61 76 22 26 61 26 ifa2>""..>av"&a&
0124F0: 33 3A 20 22 20 61 33 0D 0A 3E 69 66 61 33 3E 22 3: " a3..>ifa3>"
012500: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
012510: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
012520: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
012530: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
012540: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
012550: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
012560: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
012570: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
012580: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
012590: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
0125A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
0125B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
0125C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
0125D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
0125E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
0125F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
012600: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
012610: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
012620: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
012630: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
012640: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
012650: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
012660: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
012670: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
012680: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
012690: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
0126A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
0126B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
0126C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
0126D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
0126E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
0126F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
012700: 22 0D 0A 3E 61 76 22 26 61 26 34 3A 20 22 20 61 "..>av"&a&4: " a
012710: 34 0D 0A 3E 69 66 61 34 3E 22 22 0D 0A 3E 61 76 4..>ifa4>""..>av
012720: 22 26 61 26 35 3A 20 22 20 61 35 0D 0A 3E 69 66 "&a&5: " a5..>if
012730: 61 35 3E 22 22 0D 0A 3E 61 76 22 26 61 26 36 3A a5>""..>av"&a&6:
012740: 20 22 20 61 36 0D 0A 3E 69 66 61 36 3E 22 22 0D " a6..>ifa6>"".
012750: 0A 3E 61 76 22 26 61 26 37 3A 20 22 20 61 37 0D .>av"&a&7: " a7.
012760: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A .>ei..>ei..>ei..
012770: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E >ei..>ei..>ei..>
012780: 61 76 22 53 74 61 74 65 6D 65 6E 74 20 64 61 74 av"Statement dat
012790: 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A 20 e [&sys_date&]:
0127A0: 22 2C 68 0D 0A 3E 69 66 68 3D 22 22 0D 0A 3E 73 ",h..>ifh=""..>s
0127B0: 76 68 3D 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 vh=sys_date..>ei
0127C0: 0D 0A 3E 73 76 66 6F 3D 22 22 0D 0A 3E 69 66 61 ..>svfo=""..>ifa
0127D0: 66 6E 3D 22 79 22 0D 0A 3E 61 76 22 46 6F 6F 74 fn="y"..>av"Foot
0127E0: 6E 6F 74 65 3A 20 22 2C 66 6F 0D 0A 3E 65 69 0D note: ",fo..>ei.
0127F0: 0A 3E 64 6D 22 20 0D 0A 3E 20 20 20 20 20 20 20 .>dm" ..>
012800: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
012810: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
012820: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
012830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
012890: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 31 26 0D 0A 3E ..>wfon..&r1&..>
0128A0: 77 66 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 69 66 wfoff..!sc!..>if
0128B0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 21 73 prconame="y"..!s
0128C0: 63 21 EC 21 63 6F 6E 21 0D 0A 21 73 63 21 21 63 c!.!con!..!sc!!c
0128D0: 6F 61 31 21 0D 0A 21 73 63 21 21 63 6F 61 32 21 oa1!..!sc!!coa2!
0128E0: 0D 0A 21 73 63 21 21 63 6F 61 33 21 0D 0A 21 73 ..!sc!!coa3!..!s
0128F0: 63 21 21 63 6F 61 34 21 0D 0A 21 73 63 21 21 63 c!!coa4!..!sc!!c
012900: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
012910: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
012920: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
012930: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
012940: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
012950: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
012960: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
012970: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
012980: 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 .>npoff..>sv n=0
012990: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
0129A0: 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E ixed..>rp..>sv n
0129B0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
0129C0: 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 v s=f&n&..>wm !s
0129D0: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
0129E0: 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E el ; var..>rp..>
0129F0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
012A00: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 ..>sv s=f&n&..>i
012A10: 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B f s=""..>sv s=n+
012A20: 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 1 m=n+2 s=s[w1]
012A30: 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 m=m[w1]..>sv s=f
012A40: 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D &s&+f&m&..>if s=
012A50: 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A ""..>sv n=rlen..
012A60: 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A >el..>sv s="$"..
012A70: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 >ei..>ei..>wm !s
012A80: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
012A90: 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E ei ; f/v..>sv nn
012AA0: 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D =nn+1..>el ; f1=
012AB0: 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 end..>sv nn=nn[w
012AC0: 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 1]..>dm " "..>wt
012AD0: 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 "&nn& records f
012AE0: 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 ound. Press a ke
012AF0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
012B00: 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 ons below, pleas
012B10: 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E e remember to en
012B20: 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 6E close strings in
012B30: 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 quotes"..>dm 'e
012B40: 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 .g. "London" in
012B50: 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 F4..>dm " "..>sv
012B60: 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 ok="'" + '"' +
012B70: 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E "0123456789."..>
012B80: 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E sv n="1"..>rp..>
012B90: 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 av "Enter condit
012BA0: 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 ion &n&: " s..>s
012BB0: 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D v err=0 s=s[w1:]
012BC0: 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 ..>sv c&n&=s..>i
012BD0: 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 f c1=""..>ex exe
012BE0: 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A c fm..>st..>ei..
012BF0: 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 >if s[1]="f"..>i
012C00: 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 f s[2] notin "*1
012C10: 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 23456789"..>sv e
012C20: 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A rr=1..>ei..>el..
012C30: 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F >if s[1] notin o
012C40: 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 k..>sv err=1..>e
012C50: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 i..>ei..>>>..>sv
012C60: 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 s=c&n&[w-1]..>i
012C70: 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 f s[1]="f"..>if
012C80: 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 s[2] notin "*123
012C90: 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 456789"..>sv err
012CA0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 =1..>ei..>el..>i
012CB0: 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D f s[1] notin ok.
012CC0: 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D .>sv err=1..>ei.
012CD0: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 .>ei..>>>..>if e
012CE0: 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 rr=0..>sv n=n+1
012CF0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 n=n[w1]..>el..>d
012D00: 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 ...>wc..>cf..>ex
012D10: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
012D20: 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 ei..>sk 0=0..>ei
012D30: 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E ; id df..>>>..>
012D40: 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A iu df..>cs " "..
012D50: 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 37 20 >dm "Option S.7
012D60: 2D 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 - Select records
012D70: 20 28 20 28 63 6F 6E 64 31 20 41 4E 44 20 63 6F ( (cond1 AND co
012D80: 6E 64 32 29 20 4F 52 20 63 6F 6E 64 33 29 0D 0A nd2) OR cond3)..
012D90: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
012DA0: 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B pfi$..>sv fv=fv[
012DB0: 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 1] rlen=rlen[w1]
012DC0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 ..>if fv="f"..>s
012DD0: 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E v flist=">ru"..>
012DE0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
012DF0: 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D rv"..>ei..>sv n=
012E00: 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 0..>rp..>sv n=n+
012E10: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 1 n=n[w1]..>sv f
012E20: 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E list=flist+" f&n
012E30: 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D &"..>un n>=rlen.
012E40: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 .>sv n=n+1 m=n+1
012E50: 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D n=n[w1] m=m[w1]
012E60: 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 ..>sv f&n&="" f&
012E70: 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 m&=""..>>>..>dm
012E80: 22 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D "Field names: ".
012E90: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
012EA0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
012EB0: 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 ..>sv s=n&n&..>d
012EC0: 6D 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E m f&n&: &s&..>un
012ED0: 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 n=rlen..>>>..>d
012EE0: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E m " "..>dm "When
012EF0: 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 entering condit
012F00: 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 m "Invalid input
012F10: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 33 0D "..>ei..>un n>3.
012F20: 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 0D .>>>..>if c2="".
012F30: 0A 3E 73 76 20 63 32 3D 22 30 3D 31 22 0D 0A 3E .>sv c2="0=1"..>
012F40: 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D 0A 3E ei..>if c3=""..>
012F50: 73 76 20 63 33 3D 22 30 3D 30 22 0D 0A 3E 65 69 sv c3="0=0"..>ei
012F60: 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 66 ..>sv ff=""..>if
012F70: 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D 0D "f*" in c1[6:].
012F80: 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A 3E .>sv n=5..>rp..>
012F90: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
012FA0: 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D 22 ..>if c1[&n&:]="
012FB0: 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 6E f*"..>sv n=n-1 n
012FC0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D 63 =n[w1]..>sv c1=c
012FD0: 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A 3E 1[1:&n&]+"f0"..>
012FE0: 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 6E sv n=0..>ei..>un
012FF0: 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E 73 n=0..>sv ff=">s
013000: 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B 20 v f0=f1"..>ei ;
013010: 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A 3E f* in c1..>>>..>
013020: 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 3A if "f*" in c2[6:
013030: 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D ]..>sv n=5..>rp.
013040: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
013050: 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A 5D 1]..>if c2[&n&:]
013060: 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 ="f*"..>sv n=n-1
013070: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 32 n=n[w1]..>sv c2
013080: 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D =c2[1:&n&]+"f0".
013090: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sv n=0..>ei..>
0130A0: 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 un n=0..>sv ff="
0130B0: 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 >sv f0=f1"..>ei
0130C0: 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E 0D ; f* in c2..>>>.
0130D0: 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 33 5B .>if "f*" in c3[
0130E0: 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 6:]..>sv n=5..>r
0130F0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 00 02 09 4E E5 10 00 C1 02 00 00 00 02 ......N.........
013120: 10 00 C6 02 00 00 00 02 10 00 C2 02 00 00 00 02 ................
013130: 10 00 C7 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013140: 10 00 C8 02 00 00 00 02 10 00 C4 02 00 00 00 02 ................
013150: 10 00 C9 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 ions below, plea
013210: 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 se remember to e
013220: 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 nclose strings i
013230: 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 n quotes"..>dm '
013240: 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E e.g. "London" in
013250: 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 F4..>dm " "..>s
013260: 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B v ok="'" + '"' +
013270: 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A "0123456789."..
013280: 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A >sv n="1"..>rp..
013290: 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 >av "Enter condi
0132A0: 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E tion &n&: " s..>
0132B0: 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A sv err=0 s=s[w1:
0132C0: 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E ]..>sv c&n&=s..>
0132D0: 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 if c1=""..>ex ex
0132E0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
0132F0: 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E .>if s[1]="f"..>
013300: 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A if s[2] notin "*
013310: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 123456789"..>sv
013320: 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D err=1..>ei..>el.
013330: 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 .>if s[1] notin
013340: 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E ok..>sv err=1..>
013350: 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 ei..>ei..>>>..>s
013360: 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E v s=c&n&[w-1]..>
013370: 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 if s[1]="f"..>if
013380: 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 s[2] notin "*12
013390: 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 3456789"..>sv er
0133A0: 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E r=1..>ei..>el..>
0133B0: 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B if s[1] notin ok
0133C0: 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 ..>sv err=1..>ei
0133D0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 ..>ei..>>>..>if
0133E0: 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 err=0..>sv n=n+1
0133F0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E n=n[w1]..>el..>
013400: 22 20 74 33 3D 22 22 0D 0A 3E 69 66 20 66 76 5B " t3=""..>if fv[
013410: 31 5D 3D 22 66 22 0D 0A 3E 73 76 20 66 73 6F 72 1]="f"..>sv fsor
013420: 74 6F 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 topts="/f&rlen&"
013430: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 73 6F 72 74 ..>el..>sv fsort
013440: 6F 70 74 73 3D 22 2F 76 22 0D 0A 3E 65 69 0D 0A opts="/v"..>ei..
013450: 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 46 69 >dm " "..>av "Fi
013460: 72 73 74 20 66 69 65 6C 64 20 6E 75 6D 62 65 72 rst field number
013470: 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F 6E 20 for sorting on
013480: 5B 31 5D 3A 20 22 20 6D 31 0D 0A 3E 69 66 20 6D [1]: " m1..>if m
013490: 31 3D 22 22 0D 0A 3E 73 76 20 6D 31 3D 22 31 22 1=""..>sv m1="1"
0134A0: 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 20 20 20 20 ..>ei..>av "
0134B0: 20 20 20 20 20 20 20 20 73 6F 72 74 20 74 79 70 sort typ
0134C0: 65 20 5B 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 e [A/z/p/w/l/n/d
0134D0: 5D 3A 20 22 20 74 31 0D 0A 3E 69 66 20 74 31 3D ]: " t1..>if t1=
0134E0: 22 22 0D 0A 3E 73 76 20 74 31 3D 22 61 22 0D 0A ""..>sv t1="a"..
0134F0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 >ei..>>>..>dm "
013500: 22 0D 0A 3E 61 76 20 22 53 65 63 6F 6E 64 20 66 "..>av "Second f
013510: 69 65 6C 64 20 6E 75 6D 62 65 72 20 66 6F 72 20 ield number for
013520: 73 6F 72 74 69 6E 67 20 6F 6E 3A 20 22 20 6D 32 sorting on: " m2
013530: 0D 0A 3E 69 66 20 6D 32 3C 3E 22 22 0D 0A 3E 61 ..>if m2<>""..>a
013540: 76 20 22 20 20 20 20 20 20 20 20 20 20 20 20 73 v " s
013550: 6F 72 74 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F ort type [A/z/p/
013560: 77 2F 6C 2F 6E 2F 64 5D 3A 20 22 20 74 32 0D 0A w/l/n/d]: " t2..
013570: 3E 69 66 20 74 32 3D 22 22 0D 0A 3E 73 76 20 74 >if t2=""..>sv t
013580: 32 3D 22 61 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 2="a"..>ei..>>>.
013590: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 54 .>dm " "..>av "T
0135A0: 68 69 72 64 20 66 69 65 6C 64 20 6E 75 6D 62 65 hird field numbe
0135B0: 72 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F 6E r for sorting on
0135C0: 3A 20 22 20 6D 33 0D 0A 3E 69 66 20 6D 33 3C 3E : " m3..>if m3<>
0135D0: 22 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 ""..>av "
0135E0: 20 20 20 20 20 73 6F 72 74 20 74 79 70 65 20 5B sort type [
0135F0: 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 5D 3A 20 A/z/p/w/l/n/d]:
013600: 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 dm "Invalid inpu
013610: 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 33 t"..>ei..>un n>3
013620: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 ..>>>..>if c2=""
013630: 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 30 22 0D 0A ..>sv c2="0=0"..
013640: 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D 0A >ei..>if c3=""..
013650: 3E 73 76 20 63 33 3D 22 30 3D 31 22 0D 0A 3E 65 >sv c3="0=1"..>e
013660: 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 i..>sv ff=""..>i
013670: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
013680: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
013690: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0136A0: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
0136B0: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
0136C0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
0136D0: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
0136E0: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
0136F0: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
013700: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B sv f0=f1"..>ei ;
013710: 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A f* in c1..>>>..
013720: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 >if "f*" in c2[6
013730: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
013740: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
013750: 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A w1]..>if c2[&n&:
013760: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
013770: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
013780: 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 2=c2[1:&n&]+"f0"
013790: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
0137A0: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
0137B0: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
0137C0: 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E ; f* in c2..>>>
0137D0: 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 33 ..>if "f*" in c3
0137E0: 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E [6:]..>sv n=5..>
0137F0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
013800: 22 20 74 33 0D 0A 3E 69 66 20 74 33 3D 22 22 0D " t3..>if t3="".
013810: 0A 3E 73 76 20 74 33 3D 22 61 22 0D 0A 3E 65 69 .>sv t3="a"..>ei
013820: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 ..>ei..>ei..>if
013830: 74 31 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 t1[1] notin "/-"
013840: 0D 0A 3E 73 76 20 74 31 3D 22 2F 22 2B 74 31 0D ..>sv t1="/"+t1.
013850: 0A 3E 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B .>ei..>sv t1=t1+
013860: 6D 31 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 74 32 3C m1..>>>..>if t2<
013870: 3E 22 22 0D 0A 3E 69 66 20 74 32 5B 31 5D 20 6E >""..>if t2[1] n
013880: 6F 74 69 6E 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 otin "/-"..>sv t
013890: 32 3D 22 2F 22 2B 74 32 0D 0A 3E 65 69 0D 0A 3E 2="/"+t2..>ei..>
0138A0: 73 76 20 74 31 3D 74 31 2B 22 20 22 2B 74 32 2B sv t1=t1+" "+t2+
0138B0: 6D 32 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 m2..>ei..>>>..>i
0138C0: 66 20 74 33 3C 3E 22 22 0D 0A 3E 69 66 20 74 33 f t3<>""..>if t3
0138D0: 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 0D 0A [1] notin "/-"..
0138E0: 3E 73 76 20 74 33 3D 22 2F 22 2B 74 33 0D 0A 3E >sv t3="/"+t3..>
0138F0: 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B 22 20 ei..>sv t1=t1+"
013900: 22 2B 74 33 2B 6D 33 0D 0A 3E 65 69 0D 0A 3E 3E "+t3+m3..>ei..>>
013910: 3E 0D 0A 3E 69 66 20 6D 32 3C 3E 22 22 0D 0A 3E >..>if m2<>""..>
013920: 73 76 20 6D 31 3D 6D 31 2B 22 2C 22 2B 6D 32 0D sv m1=m1+","+m2.
013930: 0A 3E 65 69 0D 0A 3E 69 66 20 6D 33 3C 3E 22 22 .>ei..>if m3<>""
013940: 0D 0A 3E 73 76 20 6D 31 3D 6D 31 2B 22 2C 22 2B ..>sv m1=m1+","+
013950: 6D 33 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 m3..>ei..>>>..>s
013960: 76 20 66 73 6F 72 74 6F 70 74 73 20 3D 20 66 73 v fsortopts = fs
013970: 6F 72 74 6F 70 74 73 20 2B 20 22 20 2F 73 22 2B ortopts + " /s"+
013980: 6D 31 20 2B 20 22 20 22 2B 74 31 0D 0A 3E 64 6D m1 + " "+t1..>dm
013990: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 53 4F 52 54 " "..>dm "FSORT
0139A0: 20 6F 70 74 69 6F 6E 73 20 61 72 65 20 6E 6F 77 options are now
0139B0: 20 27 26 66 73 6F 72 74 6F 70 74 73 26 27 2E 22 '&fsortopts&'."
0139C0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0139D0: 50 6C 65 61 73 65 20 65 6E 74 65 72 20 61 6E 79 Please enter any
0139E0: 20 6F 74 68 65 72 20 46 53 4F 52 54 20 6F 70 74 other FSORT opt
0139F0: 69 6F 6E 73 3A 20 22 20 66 6F 70 74 73 0D 0A 3E ions: " fopts..>
013A00: 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 73 5F >sv sys_ver=sys_
013A10: 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 ver..>if sys_ver
013A20: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
013A30: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
013A40: 6C 65 0D 0A 3E 6E 63 20 32 0D 0A 3E 63 73 20 22 le..>nc 2..>cs "
013A50: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
013A60: 45 20 2D 20 45 64 69 74 20 43 75 72 72 65 6E 74 E - Edit Current
013A70: 20 46 69 6C 65 20 49 6E 66 6F 72 6D 61 74 69 6F File Informatio
013A80: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
013A90: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
013AA0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
013AB0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
013AC0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
013AD0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
013AE0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
013AF0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
013B00: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
013B10: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
013B20: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
013B30: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
013B40: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
013B50: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
013B60: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
013B70: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
013B80: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
013B90: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
013BA0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
013BB0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
013BC0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
013BD0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
013BE0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
013BF0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
013C00: 69 66 20 66 6F 70 74 73 3C 3E 22 22 0D 0A 3E 69 if fopts<>""..>i
013C10: 66 20 66 6F 70 74 73 5B 31 5D 20 6E 6F 74 69 6E f fopts[1] notin
013C20: 20 22 2F 2D 22 0D 0A 3E 73 76 20 66 6F 70 74 73 "/-"..>sv fopts
013C30: 3D 22 2F 22 2B 66 6F 70 74 73 0D 0A 3E 65 69 0D ="/"+fopts..>ei.
013C40: 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 3D 66 .>sv fsortopts=f
013C50: 73 6F 72 74 6F 70 74 73 2B 22 20 22 2B 66 6F 70 sortopts+" "+fop
013C60: 74 73 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 64 ts..>ei..>ei..>d
013C70: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 72 69 74 m " "..>dm "Writ
013C80: 69 6E 67 20 66 69 6C 65 73 20 2E 2E 2E 22 0D 0A ing files ..."..
013C90: 3E 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 >id cpm..>cf..>d
013CA0: 66 20 66 6D 24 70 66 69 24 09 3B 20 68 61 6E 64 f fm$pfi$.; hand
013CB0: 6C 65 20 30 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B le 0..>ei..>ei ;
013CC0: 20 69 75 20 70 66 69 66 69 6C 65 0D 0A 3E 3E 3E iu pfifile..>>>
013CD0: 20 4E 6F 77 20 77 72 69 74 65 20 74 68 65 6D 20 Now write them
013CE0: 6F 75 74 0D 0A 3E 77 66 20 26 70 66 69 66 69 6C out..>wf &pfifil
013CF0: 65 26 09 3B 20 68 61 6E 64 6C 65 20 31 0D 0A 3E e&.; handle 1..>
013D00: 77 6D 20 27 3E 73 76 20 20 20 20 20 20 64 66 3D wm '>sv df=
013D10: 22 26 64 66 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 "&df&"..>wm '>sv
013D20: 20 6E 65 77 66 69 6C 65 3D 22 26 6E 65 77 66 69 newfile="&newfi
013D30: 6C 65 26 0D 0A 3E 77 6D 20 27 3E 73 76 20 73 65 le&..>wm '>sv se
013D40: 6C 66 69 6C 65 3D 22 26 73 65 6C 66 69 6C 65 26 lfile="&selfile&
013D50: 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 76 3D 22 "..>wm '>sv fv="
013D60: 26 66 76 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 &fv&"..>wm '>sv
013D70: 72 6C 65 6E 3D 22 26 72 6C 65 6E 26 22 0D 0A 3E rlen="&rlen&"..>
013D80: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
013D90: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
013DA0: 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 77 6D 20 >sv s=n&n&..>wm
013DB0: 27 3E 73 76 20 6E 26 6E 26 3D 22 26 73 26 22 0D '>sv n&n&="&s&".
013DC0: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 77 .>un n>=rlen..>w
013DD0: 6D 20 27 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 m '>sv fsortopts
013DE0: 3D 22 26 66 73 6F 72 74 6F 70 74 73 26 22 0D 0A ="&fsortopts&"..
013DF0: 3E 77 6D 20 27 3E 73 76 20 6D 61 78 77 3D 22 26 >wm '>sv maxw="&
013E00: 6C 65 6E 67 74 68 20 72 65 63 6F 72 64 73 20 5B length records [
013E10: 26 79 26 5D 3F 20 22 20 78 20 31 0D 0A 3E 75 6E &y&]? " x 1..>un
013E20: 20 78 20 69 6E 20 22 66 76 22 0D 0A 3E 64 6D 20 x in "fv"..>dm
013E30: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 69 66 20 78 3C " "..>rp..>if x<
013E40: 3E 22 22 0D 0A 3E 73 76 20 66 76 3D 78 0D 0A 3E >""..>sv fv=x..>
013E50: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 76 3D ei..>>>..>if fv=
013E60: 22 66 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 78 "f"..>sv fv="Fix
013E70: 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 65 72 ed"..>av "Number
013E80: 20 6F 66 20 66 69 65 6C 64 73 20 5B 26 72 6C 65 of fields [&rle
013E90: 6E 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C n&]: " x..>if x<
013EA0: 3E 22 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 78 0D >""..>sv rlen=x.
013EB0: 0A 3E 65 69 0D 0A 3E 69 66 20 6C 61 73 74 62 6C .>ei..>if lastbl
013EC0: 61 6E 6B 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 ank="y"..>sv y="
013ED0: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
013EE0: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 64 6D ="y/N"..>ei..>dm
013EF0: 20 22 20 22 0D 0A 3E 61 76 20 22 49 73 20 74 68 " "..>av "Is th
013F00: 65 20 6C 61 73 74 20 66 69 65 6C 64 20 61 6C 77 e last field alw
013F10: 61 79 73 20 74 6F 20 62 65 20 62 6C 61 6E 6B 20 ays to be blank
013F20: 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (&y&)? " x 1..>i
013F30: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 6C 61 73 f x<>""..>sv las
013F40: 74 62 6C 61 6E 6B 3D 78 0D 0A 3E 65 69 0D 0A 3E tblank=x..>ei..>
013F50: 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 56 61 72 69 el..>sv fv="Vari
013F60: 61 62 6C 65 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A able"..>dm " "..
013F70: 3E 61 76 20 22 4D 61 78 69 6D 75 6D 20 6E 75 6D >av "Maximum num
013F80: 62 65 72 20 6F 66 20 66 69 65 6C 64 73 20 5B 26 ber of fields [&
013F90: 72 6C 65 6E 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 rlen&]: " x..>if
013FA0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 72 6C 65 6E x<>""..>sv rlen
013FB0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 =x..>ei..>ei..>u
013FC0: 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E 3E 3E n rlen>="2"..>>>
013FD0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
013FE0: 50 6C 65 61 73 65 20 65 6E 74 65 72 20 66 69 65 Please enter fie
013FF0: 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 ld names: "..>sv
014000: 6D 61 78 77 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 maxw&"..>wm '>sv
014010: 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 26 6C 61 73 lastblank="&las
014020: 74 62 6C 61 6E 6B 26 22 0D 0A 3E 77 63 0D 0A 3E tblank&"..>wc..>
014030: 3E 3E 0D 0A 3E 69 66 20 70 66 69 66 69 6C 65 5B >>..>if pfifile[
014040: 77 32 5D 3D 22 22 0D 0A 3E 63 66 09 3B 20 6C 65 w2]=""..>cf.; le
014050: 74 20 65 78 65 63 20 68 61 76 65 20 68 61 6E 64 t exec have hand
014060: 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 66 le 0..>ex exec f
014070: 6D 0D 0A 3E 73 74 0D 0A 3E 65 6C 0D 0A 3E 73 76 m..>st..>el..>sv
014080: 20 70 66 69 66 69 6C 65 3D 22 66 6D 24 70 66 69 pfifile="fm$pfi
014090: 24 22 0D 0A 3E 65 69 0D 0A 1A 79 73 5F 76 65 72 $"..>ei...ys_ver
0140A0: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
0140B0: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
0140C0: 6C 65 0D 0A 3E 6E 63 20 32 0D 0A 3E 63 73 20 22 le..>nc 2..>cs "
0140D0: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
0140E0: 45 20 2D 20 45 64 69 74 20 43 75 72 72 65 6E 74 E - Edit Current
0140F0: 20 46 69 6C 65 20 49 6E 66 6F 72 6D 61 74 69 6F File Informatio
014100: 00 00 00 00 00 00 00 00 00 00 00 76 A2 08 00 DF ...........v....
014110: 92 A1 00 00 00 C9 DF 95 A1 00 00 00 C9 DF 98 A1 ................
014120: 00 00 00 C9 DF 9B A1 00 00 00 C9 16 DF 08 49 DF ..............I.
014130: 08 9E DE 08 B6 DE 08 00 00 FF 00 00 DE FF FF FF ................
014140: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
014150: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
014160: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
014170: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
014180: FF FF FF FF FF FF FF FF FF FF 7C 45 52 41 2C 22 ..........|ERA,"
014190: 2A 2E 42 41 4B 22 0D 31 2C 30 3A 42 4F 52 44 45 *.BAK".1,0:BORDE
0141A0: 52 20 31 30 0D 00 00 00 00 00 00 00 00 00 00 00 R 10............
0141B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014200: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
014210: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 =n+1 n=n[w1]..>i
014220: 75 20 6E 26 6E 26 0D 0A 3E 73 76 20 6E 26 6E 26 u n&n&..>sv n&n&
014230: 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 79 3D =""..>ei..>sv y=
014240: 6E 26 6E 26 0D 0A 3E 61 76 20 22 66 69 65 6C 64 n&n&..>av "field
014250: 26 6E 26 20 5B 26 79 26 5D 3A 20 22 20 78 20 34 &n& [&y&]: " x 4
014260: 30 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 0..>if x<>""..>s
014270: 76 20 6E 26 6E 26 3D 78 0D 0A 3E 65 69 0D 0A 3E v n&n&=x..>ei..>
014280: 69 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 if lastblank="y"
014290: 0D 0A 3E 69 66 20 6E 3D 72 6C 65 6E 2D 31 0D 0A ..>if n=rlen-1..
0142A0: 3E 73 76 20 6E 3D 72 6C 65 6E 20 6E 26 72 6C 65 >sv n=rlen n&rle
0142B0: 6E 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D n&=""..>ei..>ei.
0142C0: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E .>un n>=rlen..>>
0142D0: 3E 0D 0A 3E 3E 3E 20 77 6F 72 6B 20 6F 75 74 20 >..>>> work out
0142E0: 6D 61 78 20 66 69 65 6C 64 20 6E 61 6D 65 20 77 max field name w
0142F0: 69 64 74 68 21 0D 0A 3E 73 76 20 6D 61 78 77 3D idth!..>sv maxw=
014300: 22 31 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A "1"..>sv n="1"..
014310: 3E 72 70 0D 0A 3E 69 66 20 6E 26 6E 26 5B 26 6D >rp..>if n&n&[&m
014320: 61 78 77 26 5D 3C 3E 22 22 0D 0A 3E 73 76 20 6D axw&]<>""..>sv m
014330: 61 78 77 3D 6D 61 78 77 2B 31 20 6D 61 78 77 3D axw=maxw+1 maxw=
014340: 6D 61 78 77 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E maxw[w1]..>el..>
014350: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
014360: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C ..>ei..>un n>=rl
014370: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 en..>>>..>dm " "
014380: 0D 0A 3E 64 6D 20 22 43 75 72 72 65 6E 74 20 46 ..>dm "Current F
014390: 53 4F 52 54 20 6F 70 74 69 6F 6E 73 3A 20 27 26 SORT options: '&
0143A0: 66 73 6F 72 74 6F 70 74 73 26 27 0D 0A 3E 72 70 fsortopts&'..>rp
0143B0: 0D 0A 3E 61 76 20 22 43 68 61 6E 67 65 20 74 68 ..>av "Change th
0143C0: 65 6D 20 5B 79 2F 4E 5D 3F 20 22 20 79 6E 0D 0A em [y/N]? " yn..
0143D0: 3E 75 6E 20 79 6E 20 69 6E 20 22 79 6E 22 0D 0A >un yn in "yn"..
0143E0: 3E 69 66 20 79 6E 3D 22 79 22 0D 0A 3E 73 76 20 >if yn="y"..>sv
0143F0: 6D 32 3D 22 22 20 6D 33 3D 22 22 20 74 32 3D 22 m2="" m3="" t2="
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 00 02 09 4E E5 11 00 C1 02 00 00 00 02 ......N.........
014420: 11 00 C6 02 00 00 00 02 11 00 C2 02 00 00 00 02 ................
014430: 11 00 C7 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014440: 11 00 C8 02 00 00 00 02 11 00 C4 02 00 00 00 02 ................
014450: 11 00 C9 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 70 72 6F 64 66 69 6C 65 26 2C 26 76 61 74 72 65 prodfile&,&vatre
014510: 67 26 27 0D 0A 3E 77 6D 20 27 26 76 61 74 31 26 g&'..>wm '&vat1&
014520: 2C 26 76 61 74 32 26 2C 26 76 61 74 33 26 2C 26 ,&vat2&,&vat3&,&
014530: 76 61 74 34 26 2C 26 76 61 74 35 26 2C 26 6E 6C vat4&,&vat5&,&nl
014540: 69 6E 65 73 26 2C 26 72 63 32 26 27 0D 0A 3E 77 ines&,&rc2&'..>w
014550: 6D 20 27 22 26 64 69 73 63 41 26 22 2C 22 26 64 m '"&discA&","&d
014560: 69 73 63 42 26 22 2C 22 26 64 69 73 63 43 26 22 iscB&","&discC&"
014570: 2C 22 26 64 69 73 63 44 26 22 2C 22 26 64 69 73 ,"&discD&","&dis
014580: 63 45 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 63 cE&"'..>wm '&prc
014590: 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 26 oname&,&exorinc&
0145A0: 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 6B ,&showdisc&,&ask
0145B0: 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 73 fn&,&askcar&,&us
0145C0: 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 26 eprod&,&defdisc&
0145D0: 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 26 '..>wm '&caline&
0145E0: 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 26 ,&aline&,&tline&
0145F0: 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 6D ,&totline&'..>wm
014600: 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C 26 '&side&,&rc1&,&
014610: 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 26 rc2&,&rc3&,&rc4&
014620: 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 31 ,&rc5&'..>sv rc1
014630: 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 31 =rc1-1 rc2=rc2-1
014640: 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 72 rc3=rc3-1 rc4=r
014650: 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D 0A c4-1 rc5=rc5-1..
014660: 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 63 >sv r2c1=rc1 r2c
014670: 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 33 2=rc2+3 r2c3=rc3
014680: 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 32 +2 r2c4=rc4-2 r2
014690: 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 63 c5=rc5-3..>sv rc
0146A0: 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 63 1=rc1[w1] rc2=rc
0146B0: 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 31 2[w1] rc3=rc3[w1
0146C0: 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 63 ] rc4=rc4[w1] rc
0146D0: 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 20 5=rc5[w1] ..>sv
0146E0: 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 65 ruler1=">"+dashe
0146F0: 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 73 s[1:&n&]+"!"+das
014700: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
014710: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
014720: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
014730: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
014740: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
014750: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
014760: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
014770: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
014780: 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 s_ver=""..>sv cp
014790: 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 6E 20 m="1"..>ei..>in
0147A0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 63 3D fm$pfi$..>sv oc=
0147B0: 22 43 20 2D 20 43 6F 75 6E 74 20 72 65 63 6F 72 "C - Count recor
0147C0: 64 73 22 0D 0A 3E 73 76 20 6F 73 3D 22 53 20 2D ds"..>sv os="S -
0147D0: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 22 Select records"
0147E0: 0D 0A 3E 73 76 20 6F 6C 3D 22 4C 20 2D 20 4C 69 ..>sv ol="L - Li
0147F0: 73 74 20 63 75 72 72 65 6E 74 20 66 69 6C 65 20 st current file
014800: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
014810: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
014820: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
014830: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
014840: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
014850: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
014860: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
014870: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
014880: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
014890: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0148A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0148B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0148C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0148D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0148E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0148F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
014900: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 6E n[w1]..>if c3[&n
014910: 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D &:]="f*"..>sv n=
014920: 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n-1 n=n[w1]..>sv
014930: 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 66 c3=c3[1:&n&]+"f
014940: 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0"..>sv n=0..>ei
014950: 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 ..>un n=0..>sv f
014960: 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E f=">sv f0=f1"..>
014970: 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A 3E ei ; f* in c3..>
014980: 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A >>..>if ff<>""..
014990: 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=1..>rp..>s
0149A0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0149B0: 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E .>sv ff=ff+"+f&n
0149C0: 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D &"..>un n>=rlen.
0149D0: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 .>ei..>>>..>dm "
0149E0: 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 "..>dm "Searchi
0149F0: 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D ng ..."..>sv nn=
014A00: 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 0..>df fm.mus..>
014A10: 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 rv mus..>cf..>if
014A20: 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D mus="m"..>sv f=
014A30: 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 df..>ei..>if mus
014A40: 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 ="u"..>sv f=newf
014A50: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 ile..>ei..>if mu
014A60: 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C s="s"..>sv f=sel
014A70: 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 file..>ei..>df &
014A80: 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 66 20 f& fo$end$..>wf
014A90: 26 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 20 3B &selfile&..>ei ;
014AA0: 69 75 20 64 66 0D 0A 1A 76 20 78 3D 30 0D 0A 3E iu df...v x=0..>
014AB0: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
014AC0: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
014AD0: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
014AE0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
014AF0: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
014B00: 69 65 6C 64 73 2E 0D 0A 3E 64 6D 20 22 20 22 0D ields...>dm " ".
014B10: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
014B20: 20 20 20 2A 2A 2A 20 20 50 20 52 20 4F 20 54 20 *** P R O T
014B30: 45 20 58 20 54 20 20 20 20 46 20 49 20 4C 20 45 E X T F I L E
014B40: 20 52 20 20 20 20 4D 20 45 20 4E 20 55 20 20 2A R M E N U *
014B50: 2A 2A 20 28 76 32 2E 30 31 29 0D 0A 3E 64 6D 20 ** (v2.01)..>dm
014B60: 22 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 " "..>dm "
014B70: 20 20 20 20 20 20 20 20 20 20 20 20 46 20 2D 20 F -
014B80: 46 69 6E 64 20 73 69 6E 67 6C 65 20 72 65 63 6F Find single reco
014B90: 72 64 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 rd..>dm "
014BA0: 20 20 20 20 20 20 20 20 20 20 20 26 6F 73 26 0D &os&.
014BB0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
014BC0: 20 20 20 20 20 20 20 20 50 20 2D 20 50 72 69 6E P - Prin
014BD0: 74 2F 64 69 73 70 6C 61 79 20 72 65 63 6F 72 64 t/display record
014BE0: 73 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 s..>dm "
014BF0: 20 20 20 20 20 20 20 20 20 20 26 6F 6D 26 0D 0A &om&..
014C00: 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 >dm "
014C10: 20 20 20 20 20 20 20 26 6F 7A 26 0D 0A 3E 64 6D &oz&..>dm
014C20: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
014C30: 20 20 20 20 26 6F 63 26 0D 0A 3E 64 6D 20 22 20 &oc&..>dm "
014C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014C50: 20 41 20 2D 20 41 64 64 20 6E 65 77 20 72 65 63 A - Add new rec
014C60: 6F 72 64 73 20 74 6F 20 75 70 64 61 74 65 20 66 ords to update f
014C70: 69 6C 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 ile..>dm "
014C80: 20 20 20 20 20 20 20 20 20 20 20 20 55 20 2D 20 U -
014C90: 4D 65 72 67 65 20 75 70 64 61 74 65 20 66 69 6C Merge update fil
014CA0: 65 20 69 6E 74 6F 20 6D 61 69 6E 20 66 69 6C 65 e into main file
014CB0: 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 ..>dm "
014CC0: 20 20 20 20 20 20 20 20 20 26 6F 6C 26 0D 0A 3E &ol&..>
014CD0: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
014CE0: 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 20 63 E - Edit c
014CF0: 75 72 72 65 6E 74 20 66 69 6C 65 20 69 6E 66 6F urrent file info
014D00: 22 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 "Typing anything
014D10: 20 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 other than a nu
014D20: 6D 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 mber will skip a
014D30: 6C 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F ll remaining pro
014D40: 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D ducts"..>dm " ".
014D50: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
014D60: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
014D70: 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 ..>sv quant&n&="
014D80: 30 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 0"..>un n=maxn..
014D90: 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >>>..>sv n=0..>r
014DA0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
014DB0: 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 [w1]..>sv prompt
014DC0: 3D 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 =desc&n&..>if pr
014DD0: 6F 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 ompt[25]=""..>sv
014DE0: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 prompt=prompt+"
014DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014E00: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
014E10: 76 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B v prompt=prompt[
014E20: 31 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 1:25]..>ei..>av
014E30: 22 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D "&prompt& : " x.
014E40: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
014E50: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 =0..>ei..>sv qua
014E60: 6E 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 nt&n&=x+0..>if x
014E70: 3C 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 <>quant&n&..>sv
014E80: 71 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 quant&n&="0"..>s
014E90: 76 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D v n=maxn n=n[w1]
014EA0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 ..>ei..>if n=max
014EB0: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 n..>dm " "..>av
014EC0: 22 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 "Re-enter order
014ED0: 28 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 (y/N)? " yesno 1
014EE0: 0D 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D ..>if yesno="y".
014EF0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 .>sv n=0..>dm "
014F00: 72 6D 61 74 69 6F 6E 0D 0A 3E 64 6D 20 22 20 20 rmation..>dm "
014F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F20: 26 6F 64 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 &od&..>dm "
014F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2D I -
014F40: 20 49 6E 69 74 69 61 6C 69 73 65 20 6E 65 77 20 Initialise new
014F50: 64 61 74 61 66 69 6C 65 0D 0A 3E 64 6D 20 22 20 datafile..>dm "
014F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F70: 20 4F 20 2D 20 50 72 6F 74 65 78 74 20 4F 66 66 O - Protext Off
014F80: 69 63 65 20 6D 65 6E 75 0D 0A 3E 64 6D 20 22 20 ice menu..>dm "
014F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014FA0: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
014FB0: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
014FC0: 20 20 20 20 20 20 20 20 45 6E 74 65 72 20 6F 70 Enter op
014FD0: 74 69 6F 6E 20 6C 65 74 74 65 72 3A 20 22 20 6F tion letter: " o
014FE0: 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 66 pt 1..>>>..>sv f
014FF0: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
015000: 6E 5B 77 31 5D 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 n[w1]..>>>..>if
015010: 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 3D opt=""..>sv opt=
015020: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6F 70 " "..>ei..>if op
015030: 74 3D 22 6F 22 0D 0A 3E 65 78 20 65 78 65 63 20 t="o"..>ex exec
015040: 6F 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 3E om..>st..>ei..>>
015050: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
015060: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
015070: 3E 3E 20 4F 50 54 49 4F 4E 53 20 51 2C 45 2C 49 >> OPTIONS Q,E,I
015080: 2C 46 2C 41 2C 50 2C 55 20 3E 3E 3E 0D 0A 3E 3E ,F,A,P,U >>>..>>
015090: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0150A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
0150B0: 69 66 20 6F 70 74 20 69 6E 20 22 71 66 61 70 75 if opt in "qfapu
0150C0: 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 6F 70 "..>ex exec fmop
0150D0: 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 69 t&opt&..>st..>ei
0150E0: 0D 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 71 65 ..>if opt in "qe
0150F0: 69 66 61 70 75 22 0D 0A 3E 73 76 20 73 71 3D 22 ifapu"..>sv sq="
015100: 41 72 6E 6F 72 20 4C 74 64 2E 0D 0A 30 37 33 33 Arnor Ltd...0733
015110: 20 32 33 39 30 31 31 0D 0A 50 72 6F 74 65 78 74 239011..Protext
015120: 20 48 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E 20 House..Wainman
015130: 52 6F 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 Road..Peterborou
015140: 67 68 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A 0D gh..PE2 0BU.....
015150: 0A 1A 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E ..="Variable"..>
015160: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
015170: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
015180: 69 73 20 90 75 73 65 64 20 90 79 6F 75 20 90 77 is .used .you .w
015190: 69 6C 6C 20 90 62 65 20 90 61 73 6B 65 64 20 90 ill .be .asked .
0151A0: 74 6F 20 74 79 70 65 20 69 6E 20 61 20 0D 8A 66 to type in a ..f
0151B0: 69 6C 65 6E 61 6D 65 2E 20 0D 0A 3E 70 61 0D 0A ilename. ..>pa..
0151C0: 1A 52 00 5C 04 90 69 73 20 90 75 73 65 64 20 90 .R.\..is .used .
0151D0: 79 6F 75 20 90 77 69 6C 6C 20 90 62 65 20 90 61 you .will .be .a
0151E0: 73 6B 65 64 20 90 74 6F 20 74 79 70 65 20 69 6E sked .to type in
0151F0: 20 61 20 0D 8A 66 69 6C 65 6E 61 6D 65 2E 20 0D a ..filename. .
015200: 65 63 74 65 64 20 72 65 63 6F 72 64 73 20 61 70 ected records ap
015210: 70 65 61 72 2E 0D 0A 0D 0A 4E 6F 77 20 72 65 70 pear.....Now rep
015220: 65 61 74 20 74 68 69 73 2C 20 62 75 74 20 74 79 eat this, but ty
015230: 70 65 20 27 6E 27 20 90 74 6F 20 90 74 68 65 20 pe 'n' .to .the
015240: 6C 61 73 74 20 71 75 65 73 74 69 6F 6E 2E 20 54 last question. T
015250: 68 69 73 20 65 6E 61 62 6C 65 73 20 79 6F 75 20 his enables you
015260: 0D 8A 74 6F 20 73 65 6C 65 63 74 20 77 68 69 63 ..to select whic
015270: 68 20 66 69 65 6C 64 73 20 61 72 65 20 74 6F 20 h fields are to
015280: 62 65 20 64 69 73 70 6C 61 79 65 64 2E 20 52 65 be displayed. Re
015290: 70 6C 79 20 27 79 27 20 74 6F 20 74 68 65 20 66 ply 'y' to the f
0152A0: 69 72 73 74 20 74 77 6F 20 0D 8A 66 69 65 6C 64 irst two ..field
0152B0: 73 20 61 6E 64 20 27 6E 27 20 28 6F 72 20 70 72 s and 'n' (or pr
0152C0: 65 73 73 20 72 65 74 75 72 6E 29 20 74 6F 20 74 ess return) to t
0152D0: 68 65 20 72 65 73 74 2E 20 54 68 69 73 20 74 69 he rest. This ti
0152E0: 6D 65 20 6A 75 73 74 20 74 68 65 20 6E 61 6D 65 me just the name
0152F0: 73 20 0D 8A 61 6E 64 20 74 65 6C 65 70 68 6F 6E s ..and telephon
015300: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
015310: 37 36 34 7C 7C 37 36 36 7C 22 0D 0A 3E 73 76 20 764||766|"..>sv
015320: 73 65 3D 22 6C 20 66 6D 65 64 69 74 7C 31 33 7C se="l fmedit|13|
015330: 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E y|639||16|ps"..>
015340: 73 76 20 73 69 3D 22 6C 20 66 6D 69 6E 69 74 7C sv si="l fminit|
015350: 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 13|y|639||16|ps"
015360: 0D 0A 3E 73 76 20 73 66 3D 22 6C 20 66 6D 66 69 ..>sv sf="l fmfi
015370: 6E 64 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C nd|13|y|639||16|
015380: 70 73 22 0D 0A 3E 73 76 20 73 61 3D 22 6C 20 66 ps"..>sv sa="l f
015390: 6D 61 64 64 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 madd|13|y|639||1
0153A0: 36 7C 70 73 22 0D 0A 3E 73 76 20 73 70 3D 22 6C 6|ps"..>sv sp="l
0153B0: 20 66 6D 70 72 69 6E 74 7C 31 33 7C 79 7C 36 33 fmprint|13|y|63
0153C0: 39 7C 7C 31 36 7C 70 22 0D 0A 3E 73 76 20 73 75 9||16|p"..>sv su
0153D0: 3D 22 6C 20 66 6D 6D 65 72 67 65 7C 31 33 7C 79 ="l fmmerge|13|y
0153E0: 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 |639||16|ps"..>s
0153F0: 76 20 73 3D 73 26 6F 70 74 26 0D 0A 3E 3E 3E 20 v s=s&opt&..>>>
015400: 6E 6F 74 65 20 65 78 65 63 20 6E 6F 74 20 69 6E note exec not in
015410: 20 70 72 6F 67 72 65 73 73 20 68 65 72 65 0D 0A progress here..
015420: 3E 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 >id cpm..>cf..>d
015430: 66 20 66 6D 24 70 66 69 24 09 3B 20 68 61 6E 64 f fm$pfi$.; hand
015440: 6C 65 20 30 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 le 0..>ei..>wf f
015450: 6D 2E 78 09 3B 20 68 61 6E 64 6C 65 20 31 0D 0A m.x.; handle 1..
015460: 3E 77 6D 20 22 26 73 26 22 0D 0A 3E 77 63 0D 0A >wm "&s&"..>wc..
015470: 3E 63 66 09 09 3B 20 66 72 65 65 20 68 61 6E 64 >cf..; free hand
015480: 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 66 le 0..>ex exec f
015490: 6D 2E 78 09 3B 20 67 65 74 73 20 68 61 6E 64 6C m.x.; gets handl
0154A0: 65 20 30 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 e 0..>st..>ei ;
0154B0: 6F 70 74 20 69 6E 20 22 71 65 69 7A 66 61 70 75 opt in "qeizfapu
0154C0: 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E "..>>>>>>>>>>>>>
0154D0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0154E0: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 63 6C 65 61 72 20 >>>>..>>> clear
0154F0: 73 63 72 65 65 6E 2C 20 70 72 69 6E 74 20 74 69 screen, print ti
015500: 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 4&"'..>wm '"&rul
015510: 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F er5&"'..>wm '!co
015520: 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F name!'..>wm '!co
015530: 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 addr1!'..>wm '!c
015540: 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 oaddr2!'..>wm '!
015550: 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 coaddr3!'..>wm '
015560: 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 !coaddr4!'..>wm
015570: 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 '!coaddr5!'..>wc
015580: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F ..>cf..>ex era o
015590: 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 minvgen.inf..>id
0155A0: 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D cpm..>ex ren om
0155B0: 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D invgen.inf omtem
0155C0: 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 p.inf..>el..>ex
0155D0: 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F ren omtemp.inf o
0155E0: 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 minvgen.inf..>ei
0155F0: 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B ..>df omenu..>sk
015600: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 0=0..>ei ; opt=
015610: 22 65 22 0D 0A 1A 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E "e"...>..>>>..>>
015620: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
015630: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
015640: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
015650: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
015660: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
015670: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
015680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015690: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
0156A0: 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D ------L-------.-
0156B0: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
0156C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0156D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0156E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0156F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 00 02 09 4E E5 12 00 C1 02 00 00 00 02 ......N.........
015720: 12 00 C6 02 00 00 00 02 12 00 C2 02 00 00 00 02 ................
015730: 12 00 C7 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015740: 12 00 C8 02 00 00 00 02 12 00 C4 02 00 00 00 02 ................
015750: 12 00 C9 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 6F 61 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 73 76 6E oa5!...>ei..>svn
015810: 3D 61 6C 2D 63 61 6C 2D 36 0D 0A 3E 72 70 0D 0A =al-cal-6..>rp..
015820: 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D 0A !sc!..>svn=n-1..
015830: 3E 75 6E 6E 3C 3D 30 0D 0A 21 73 63 21 21 61 30 >unn<=0..!sc!!a0
015840: 21 0D 0A 21 73 63 21 21 61 31 21 0D 0A 21 73 63 !..!sc!!a1!..!sc
015850: 21 21 61 32 21 0D 0A 21 73 63 21 21 61 33 21 09 !!a2!..!sc!!a3!.
015860: EC 26 74 26 EC 0D 0A 21 73 63 21 21 61 34 21 09 .&t&...!sc!!a4!.
015870: 0D 0A 21 73 63 21 21 61 35 21 09 44 61 74 65 20 ..!sc!!a5!.Date
015880: 20 20 20 20 20 20 26 68 26 0D 0A 21 73 63 21 21 &h&..!sc!!
015890: 61 36 21 0D 0A 21 73 63 21 21 61 37 21 0D 0A 3E a6!..!sc!!a7!..>
0158A0: 73 76 6E 3D 74 6C 2D 61 6C 2D 38 0D 0A 3E 72 70 svn=tl-al-8..>rp
0158B0: 0D 0A 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 ..!sc!..>svn=n-1
0158C0: 0D 0A 3E 75 6E 6E 3C 3D 30 0D 0A 3E 77 66 6F 6E ..>unn<=0..>wfon
0158D0: 0D 0A 26 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A ..&r2&..>wfoff..
0158E0: 21 73 63 21 44 41 54 45 09 49 4E 56 4F 49 43 45 !sc!DATE.INVOICE
0158F0: 20 4E 4F 2E 09 20 20 20 44 45 42 49 54 09 20 20 NO.. DEBIT.
015900: 43 52 45 44 49 54 09 42 41 4C 41 4E 43 45 0D 0A CREDIT.BALANCE..
015910: 3E 77 66 6F 6E 0D 0A 26 72 33 26 0D 0A 3E 77 66 >wfon..&r3&..>wf
015920: 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D off..!sc!..>svb=
015930: 69 6E 66 6F 6C 73 0D 0A 3E 64 6D 22 45 6E 74 65 infols..>dm"Ente
015940: 72 20 64 65 74 61 69 6C 73 20 28 52 45 54 55 52 r details (RETUR
015950: 4E 20 74 6F 20 65 6E 64 29 3A 20 0D 0A 3E 64 6D N to end): ..>dm
015960: 22 20 0D 0A 3E 72 70 0D 0A 3E 61 76 22 4F 70 65 " ..>rp..>av"Ope
015970: 6E 69 6E 67 20 62 61 6C 61 6E 63 65 20 28 2D 20 ning balance (-
015980: 66 6F 72 20 63 72 65 64 69 74 29 3A 20 A3 22 20 for credit): £"
015990: 78 0D 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 x..>if x=""..>sv
0159A0: 20 78 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 x=0..>ei..>sv t
0159B0: 6F 74 3D 78 2B 30 0D 0A 3E 75 6E 20 74 6F 74 3D ot=x+0..>un tot=
0159C0: 78 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A 21 x..>if tot<>0..!
0159D0: 73 63 21 43 61 72 72 69 65 64 20 66 77 64 2E 09 sc!Carried fwd..
0159E0: 09 09 09 26 74 6F 74 26 0D 0A 3E 73 76 62 3D 62 ...&tot&..>svb=b
0159F0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 64 -1..>ei..>rp..>d
015A00: 70 74 20 69 6E 20 22 6D 75 73 22 0D 0A 3E 64 6D pt in "mus"..>dm
015A10: 20 22 20 22 0D 0A 3E 69 66 20 6D 75 73 6F 70 74 " "..>if musopt
015A20: 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 3D 22 20 22 =""..>sv opt=" "
015A30: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 6F 70 ..>ei..>if musop
015A40: 74 3D 22 6D 22 0D 0A 3E 73 76 20 6D 75 73 66 69 t="m"..>sv musfi
015A50: 6C 65 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 le=df..>ei..>if
015A60: 6D 75 73 6F 70 74 3D 22 75 22 0D 0A 3E 73 76 20 musopt="u"..>sv
015A70: 6D 75 73 66 69 6C 65 3D 6E 65 77 66 69 6C 65 0D musfile=newfile.
015A80: 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 6F 70 74 .>ei..>if musopt
015A90: 3D 22 73 22 0D 0A 3E 73 76 20 6D 75 73 66 69 6C ="s"..>sv musfil
015AA0: 65 3D 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A e=selfile..>ei..
015AB0: 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >ei..>>>>>>>>>>>
015AC0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
015AD0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 >>>>>>>>>>..>>>
015AE0: 69 66 20 77 65 20 6E 65 65 64 20 66 69 65 6C 64 if we need field
015AF0: 20 6C 69 73 74 20 3D 20 66 6C 69 73 74 20 3E 3E list = flist >>
015B00: 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >..>>>>>>>>>>>>>
015B10: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
015B20: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
015B30: 74 20 69 6E 20 22 63 6C 73 7A 22 0D 0A 3E 69 66 t in "clsz"..>if
015B40: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
015B50: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
015B60: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
015B70: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
015B80: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
015B90: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D [w1]..>sv flist=
015BA0: 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E flist+" f&n&"..>
015BB0: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D un n>=rlen..>ei.
015BC0: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
015BD0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
015BE0: 0A 3E 3E 3E 20 69 66 20 77 65 20 6E 65 65 64 20 .>>> if we need
015BF0: 74 6F 20 64 6F 20 61 20 63 61 74 20 3E 3E 3E 0D to do a cat >>>.
015C00: 6D 20 22 20 0D 0A 3E 61 76 22 54 72 61 6E 73 61 m " ..>av"Transa
015C10: 63 74 69 6F 6E 20 64 61 74 65 3A 20 22 20 63 6E ction date: " cn
015C20: 0D 0A 3E 69 66 63 6E 3E 22 22 0D 0A 3E 61 76 22 ..>ifcn>""..>av"
015C30: 49 6E 76 6F 69 63 65 20 6E 75 6D 62 65 72 3A 20 Invoice number:
015C40: 22 20 65 6E 0D 0A 3E 61 76 22 41 6D 6F 75 6E 74 " en..>av"Amount
015C50: 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A (- for credit):
015C60: 20 A3 22 20 78 0D 0A 3E 73 76 20 71 6E 3D 78 2B £" x..>sv qn=x+
015C70: 30 0D 0A 3E 69 66 20 71 6E 3C 3E 78 0D 0A 3E 64 0..>if qn<>x..>d
015C80: 6D 22 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 m"Please re-ente
015C90: 72 0D 0A 3E 73 76 63 6E 3D 22 20 22 20 75 70 3D r..>svcn=" " up=
015CA0: 22 22 20 71 6E 3D 30 0D 0A 3E 65 6C 0D 0A 3E 69 "" qn=0..>el..>i
015CB0: 66 71 6E 3C 30 0D 0A 3E 73 76 75 70 3D 30 2D 71 fqn<0..>svup=0-q
015CC0: 6E 20 71 6E 3D 22 22 20 74 6F 74 3D 74 6F 74 2D n qn="" tot=tot-
015CD0: 75 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 71 6E 3D 30 up..>el..>svqn=0
015CE0: 2B 71 6E 20 75 70 3D 22 22 20 74 6F 74 3D 74 6F +qn up="" tot=to
015CF0: 74 2B 71 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A t+qn..>ei..>ei..
015D00: 3E 69 66 20 71 6E 3C 3E 30 0D 0A 21 73 63 21 26 >if qn<>0..!sc!&
015D10: 63 6E 26 09 26 65 6E 26 09 26 71 6E 26 09 26 75 cn&.&en&.&qn&.&u
015D20: 70 26 09 26 74 6F 74 26 0D 0A 3E 65 69 0D 0A 3E p&.&tot&..>ei..>
015D30: 73 76 62 3D 62 2D 31 0D 0A 3E 65 69 0D 0A 3E 75 svb=b-1..>ei..>u
015D40: 6E 63 6E 3D 22 22 0D 0A 3E 69 66 62 3E 30 0D 0A ncn=""..>ifb>0..
015D50: 3E 72 70 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D >rp..!sc!..>svb=
015D60: 62 2D 31 0D 0A 3E 75 6E 62 3D 30 0D 0A 3E 65 69 b-1..>unb=0..>ei
015D70: 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A ..!sc! ..!sc! ..
015D80: 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 !sc! ..!sc! ..!s
015D90: 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 c! ..!sc! ..!sc!
015DA0: 20 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 35 26 0D 0A ..>wfon..&r5&..
015DB0: 3E 77 66 6F 66 66 0D 0A 3E 69 66 66 6F 3E 22 22 >wfoff..>iffo>""
015DC0: 0D 0A 21 73 63 21 26 66 6F 26 0D 0A 3E 65 6C 0D ..!sc!&fo&..>el.
015DD0: 0A 21 73 63 21 54 68 65 20 61 6D 6F 75 6E 74 20 .!sc!The amount
015DE0: 64 75 65 20 69 73 20 74 68 65 20 6C 61 73 74 20 due is the last
015DF0: 66 69 67 75 72 65 20 69 6E 20 74 68 65 20 27 42 figure in the 'B
015E00: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
015E10: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
015E20: 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 64 6D 22 .>if opt in "dm"
015E30: 0D 0A 3E 73 76 20 6D 64 3D 22 64 61 74 61 22 20 ..>sv md="data"
015E40: 65 78 74 64 3D 22 2E 50 46 49 22 20 61 64 3D 22 extd=".PFI" ad="
015E50: 63 68 61 6E 67 65 20 74 6F 22 0D 0A 3E 73 76 20 change to"..>sv
015E60: 6D 6D 3D 22 6D 61 69 6C 20 6D 65 72 67 65 22 20 mm="mail merge"
015E70: 65 78 74 6D 3D 22 2E 50 4D 4D 22 20 61 6D 3D 22 extm=".PMM" am="
015E80: 70 72 69 6E 74 22 0D 0A 3E 73 76 20 6D 3D 6D 26 print"..>sv m=m&
015E90: 6F 70 74 26 20 65 78 74 3D 65 78 74 26 6F 70 74 opt& ext=ext&opt
015EA0: 26 20 61 3D 61 26 6F 70 74 26 0D 0A 3E 64 6D 20 & a=a&opt&..>dm
015EB0: 22 41 76 61 69 6C 61 62 6C 65 20 26 6D 26 20 66 "Available &m& f
015EC0: 69 6C 65 73 20 61 72 65 20 6C 69 73 74 65 64 20 iles are listed
015ED0: 62 65 6C 6F 77 20 28 77 69 74 68 20 26 65 78 74 below (with &ext
015EE0: 26 20 65 78 74 65 6E 73 69 6F 6E 29 22 0D 0A 3E & extension)"..>
015EF0: 64 6D 20 22 20 22 0D 0A 3E 65 78 20 63 61 74 20 dm " "..>ex cat
015F00: 2A 26 65 78 74 26 0D 0A 3E 64 6D 20 22 20 22 0D *&ext&..>dm " ".
015F10: 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 .>av "Enter name
015F20: 20 6F 66 20 26 6D 26 20 66 69 6C 65 20 74 6F 20 of &m& file to
015F30: 26 61 26 3A 20 22 20 63 61 74 66 20 31 32 0D 0A &a&: " catf 12..
015F40: 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 63 61 74 >dm " "..>sv cat
015F50: 66 3D 63 61 74 66 5B 77 31 5D 0D 0A 3E 69 66 20 f=catf[w1]..>if
015F60: 63 61 74 66 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 catf=""..>sv opt
015F70: 3D 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 63 61 =""..>el..>sv ca
015F80: 74 66 3D 63 61 74 66 2B 65 78 74 0D 0A 3E 64 66 tf=catf+ext..>df
015F90: 20 26 63 61 74 66 26 20 3B 20 63 68 65 63 6B 20 &catf& ; check
015FA0: 65 78 69 73 74 65 6E 63 65 0D 0A 3E 63 66 0D 0A existence..>cf..
015FB0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E >ei..>ei..>>>>>>
015FC0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 >>>>>>>>>>..>>>
015FD0: 4F 50 54 49 4F 4E 20 53 20 3E 3E 3E 0D 0A 3E 3E OPTION S >>>..>>
015FE0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
015FF0: 3E 69 66 20 6F 70 74 3D 22 73 22 0D 0A 3E 64 6D >if opt="s"..>dm
016000: 41 4C 41 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A ALANCE' column..
016010: 3E 65 69 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E >ei..!sc!E. & O.
016020: 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 E...>if prconame
016030: 3D 22 79 22 0D 0A 21 73 63 21 56 41 54 20 72 65 ="y"..!sc!VAT re
016040: 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D g. no. &vatnum&.
016050: 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3D 22 .>ei..>ific[2]="
016060: 22 0D 0A 3E 70 61 0D 0A 3E 65 69 0D 0A 3E 69 66 "..>pa..>ei..>if
016070: 69 63 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 63 0D ic[2]<>"f"..>wc.
016080: 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F .>cf..>ex exec o
016090: 6D 0D 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D m..>st " "..>ei.
0160A0: 0A 3E 73 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E .>svfn=ic[w2]+".
0160B0: 70 6F 73 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 pos"..>av"Send t
0160C0: 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 o printer or scr
0160D0: 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 een (P/s)? " x 1
0160E0: 0D 0A 3E 77 63 0D 0A 3E 69 64 20 63 70 6D 0D 0A ..>wc..>id cpm..
0160F0: 3E 64 66 20 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 >df om..>ei..>wf
016100: 20 6F 6D 2E 78 0D 0A 3E 69 66 78 3D 22 73 22 0D om.x..>ifx="s".
016110: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
016120: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
016130: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
016140: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
016150: 6E 75 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 nu|13|ps|13|..>e
016160: 6C 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 26 66 6E l..>wm "load &fn
016170: 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 &|13|doc|13||766
016180: 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 |p|13|load omenu
016190: 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D |13|ps|13|..>ei.
0161A0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
0161B0: 78 65 63 20 6F 6D 2E 78 0D 0A 1A 79 73 5F 76 65 xec om.x...ys_ve
0161C0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0161D0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0161E0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
0161F0: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
016200: 20 22 53 65 6C 65 63 74 69 6F 6E 73 20 63 61 6E "Selections can
016210: 20 62 65 20 6D 61 64 65 20 66 72 6F 6D 20 74 68 be made from th
016220: 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 63 61 73 65 e following case
016230: 73 3A 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 s:"..>dm " "..>d
016240: 6D 20 22 20 31 20 2D 20 20 63 6F 6E 64 31 20 20 m " 1 - cond1
016250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016260: 20 20 20 20 20 20 20 20 28 73 69 6D 70 6C 65 29 (simple)
016270: 0D 0A 3E 64 6D 20 22 20 32 20 2D 20 20 63 6F 6E ..>dm " 2 - con
016280: 64 31 20 4F 52 20 20 63 6F 6E 64 32 0D 0A 3E 64 d1 OR cond2..>d
016290: 6D 20 22 20 33 20 2D 20 20 63 6F 6E 64 31 20 4F m " 3 - cond1 O
0162A0: 52 20 20 63 6F 6E 64 32 20 20 4F 52 20 20 63 6F R cond2 OR co
0162B0: 6E 64 33 0D 0A 3E 64 6D 20 22 20 34 20 2D 20 20 nd3..>dm " 4 -
0162C0: 63 6F 6E 64 31 20 41 4E 44 20 63 6F 6E 64 32 0D cond1 AND cond2.
0162D0: 0A 3E 64 6D 20 22 20 35 20 2D 20 20 63 6F 6E 64 .>dm " 5 - cond
0162E0: 31 20 41 4E 44 20 63 6F 6E 64 32 20 20 41 4E 44 1 AND cond2 AND
0162F0: 20 63 6F 6E 64 33 0D 0A 3E 64 6D 20 22 20 36 20 cond3..>dm " 6
016300: 2D 20 28 63 6F 6E 64 31 20 4F 52 20 20 63 6F 6E - (cond1 OR con
016310: 64 32 29 20 41 4E 44 20 63 6F 6E 64 33 0D 0A 3E d2) AND cond3..>
016320: 64 6D 20 22 20 37 20 2D 20 28 63 6F 6E 64 31 20 dm " 7 - (cond1
016330: 41 4E 44 20 63 6F 6E 64 32 29 20 4F 52 20 20 63 AND cond2) OR c
016340: 6F 6E 64 33 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ond3..>dm " "..>
016350: 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 74 rp..>av "Enter t
016360: 79 70 65 20 6F 66 20 73 65 6C 65 63 74 69 6F 6E ype of selection
016370: 20 5B 31 20 74 6F 20 37 5D 3A 20 22 20 74 20 31 [1 to 7]: " t 1
016380: 0D 0A 3E 69 66 20 74 3D 22 22 0D 0A 3E 73 76 20 ..>if t=""..>sv
016390: 74 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 t="0"..>ei..>un
0163A0: 74 20 69 6E 20 22 31 32 33 34 35 36 37 22 0D 0A t in "1234567"..
0163B0: 3E 64 6D 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 >dm " "..>cf..>d
0163C0: 66 20 66 6D 2E 6D 75 73 09 3B 20 68 61 6E 64 6C f fm.mus.; handl
0163D0: 65 20 30 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 69 e 0..>rv mus..>i
0163E0: 66 20 6D 75 73 6F 70 74 3C 3E 6D 75 73 0D 0A 3E f musopt<>mus..>
0163F0: 77 66 20 66 6D 2E 6D 75 73 09 3B 20 68 61 6E 64 wf fm.mus.; hand
016400: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
016410: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
016420: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
016430: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
016440: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
016450: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
016460: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
016470: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
016480: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
016490: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
0164A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
0164B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
0164C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0164D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
0164E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
0164F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
016500: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
016510: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
016520: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
016530: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
016540: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
016550: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
016560: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
016570: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
016580: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
016590: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
0165A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
0165B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
0165C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
0165D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
0165E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
0165F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
016600: 6C 65 20 31 0D 0A 3E 77 6D 20 26 6D 75 73 6F 70 le 1..>wm &musop
016610: 74 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 t&..>wc..>ei..>w
016620: 66 20 66 6D 2E 78 09 3B 20 68 61 6E 64 6C 65 20 f fm.x.; handle
016630: 31 0D 0A 3E 77 6D 20 22 6C 20 66 6D 73 74 79 70 1..>wm "l fmstyp
016640: 65 26 74 26 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 e&t&|13|y|639||1
016650: 36 7C 70 73 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 6|ps"..>wc..>cf.
016660: 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 65 .; let exec have
016670: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 handle 0..>ex e
016680: 78 65 63 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E xec fm.x..>st..>
016690: 65 69 20 3B 20 6F 70 74 3D 22 73 22 0D 0A 3E 3E ei ; opt="s"..>>
0166A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
0166B0: 3E 3E 3E 20 4F 50 54 49 4F 4E 20 43 20 3E 3E 3E >>> OPTION C >>>
0166C0: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
0166D0: 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 63 22 0D >>..>if opt="c".
0166E0: 0A 3E 64 66 20 26 6D 75 73 66 69 6C 65 26 20 66 .>df &musfile& f
0166F0: 6F 24 65 6E 64 24 0D 0A 3E 64 6D 20 22 43 6F 75 o$end$..>dm "Cou
016700: 6E 74 69 6E 67 20 2E 2E 2E 20 22 0D 0A 3E 64 6D nting ... "..>dm
016710: 20 22 20 22 0D 0A 3E 73 76 20 63 3D 22 2D 31 22 " "..>sv c="-1"
016720: 0D 0A 3E 72 70 0D 0A 26 66 6C 69 73 74 26 0D 0A ..>rp..&flist&..
016730: 3E 73 76 20 63 3D 63 2B 31 0D 0A 3E 75 6E 20 66 >sv c=c+1..>un f
016740: 31 3D 22 65 6E 64 22 0D 0A 3E 63 66 0D 0A 3E 73 1="end"..>cf..>s
016750: 76 20 63 3D 63 5B 77 31 5D 0D 0A 3E 64 6D 20 22 v c=c[w1]..>dm "
016760: 4E 75 6D 62 65 72 20 6F 66 20 72 65 63 6F 72 64 Number of record
016770: 73 3A 20 26 63 26 22 0D 0A 3E 64 6D 20 22 20 22 s: &c&"..>dm " "
016780: 0D 0A 3E 73 76 20 6F 70 74 3D 22 77 74 22 0D 0A ..>sv opt="wt"..
016790: 3E 65 69 20 3B 20 6F 70 74 3D 22 63 22 0D 0A 3E >ei ; opt="c"..>
0167A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0167B0: 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 3E 3E .>>> OPTION L >>
0167C0: 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >..>>>>>>>>>>>>>
0167D0: 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 6C 22 >>>..>if opt="l"
0167E0: 0D 0A 3E 64 6D 20 22 44 61 74 61 66 69 6C 65 3A ..>dm "Datafile:
0167F0: 20 20 20 20 20 20 20 20 20 20 20 26 64 66 26 22 &df&"
016800: 74 6C 65 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E tle >>>..>>>>>>>
016810: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
016820: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 >>>>>>>>>>..>if
016830: 6F 70 74 20 69 6E 20 22 63 6C 73 7A 64 6D 22 0D opt in "clszdm".
016840: 0A 3E 73 76 20 6F 6F 3D 6F 26 6F 70 74 26 0D 0A .>sv oo=o&opt&..
016850: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
016860: 74 69 6F 6E 20 26 6F 6F 26 22 0D 0A 3E 64 6D 20 tion &oo&"..>dm
016870: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E " "..>ei..>>>>>>
016880: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
016890: 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 4D 20 55 .>>> ask for M U
0168A0: 20 53 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E S >>>..>>>>>>>>
0168B0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
0168C0: 69 66 20 6F 70 74 20 69 6E 20 22 63 73 7A 6D 22 if opt in "cszm"
0168D0: 0D 0A 3E 73 76 20 6D 75 73 73 3D 22 73 65 6C 65 ..>sv muss="sele
0168E0: 63 74 20 66 72 6F 6D 22 0D 0A 3E 73 76 20 6D 75 ct from"..>sv mu
0168F0: 73 63 3D 22 63 6F 75 6E 74 22 0D 0A 3E 73 76 20 sc="count"..>sv
016900: 6D 75 73 7A 3D 22 73 6F 72 74 22 0D 0A 3E 73 76 musz="sort"..>sv
016910: 20 6D 75 73 6D 3D 22 6D 61 69 6C 20 6D 65 72 67 musm="mail merg
016920: 65 22 0D 0A 3E 73 76 20 73 3D 6D 75 73 26 6F 70 e"..>sv s=mus&op
016930: 74 26 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 t&..>dm " M -
016940: 4D 61 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 Main data file (
016950: 26 64 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A &df&)..>dm " "..
016960: 3E 64 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 >dm " U - Upda
016970: 74 65 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 te file (&new
016980: 66 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D file&)..>dm " ".
016990: 0A 3E 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C .>dm " S - Sel
0169A0: 65 63 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 ection file (&se
0169B0: 6C 66 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 lfile&)..>dm " "
0169C0: 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 ..>rp..>av "Ente
0169D0: 72 20 64 61 74 61 20 66 69 6C 65 20 74 6F 20 26 r data file to &
0169E0: 73 26 20 5B 6D 2F 75 2F 73 5D 3A 20 22 20 6D 75 s& [m/u/s]: " mu
0169F0: 73 6F 70 74 20 31 0D 0A 3E 75 6E 20 6D 75 73 6F sopt 1..>un muso
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 00 02 09 4E E5 13 00 C1 02 00 00 00 02 ......N.........
016A20: 13 00 C6 02 00 00 00 02 13 00 C2 02 00 00 00 02 ................
016A30: 13 00 C7 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A40: 13 00 C8 02 00 00 00 02 13 00 C4 02 00 00 00 02 ................
016A50: 13 00 C9 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 0D 0A 3E 64 6D 20 22 55 70 64 61 74 65 20 66 69 ..>dm "Update fi
016B10: 6C 65 6E 61 6D 65 3A 20 20 20 20 26 6E 65 77 66 lename: &newf
016B20: 69 6C 65 26 0D 0A 3E 64 6D 20 22 53 65 6C 65 63 ile&..>dm "Selec
016B30: 74 69 6F 6E 20 66 69 6C 65 6E 61 6D 65 3A 20 26 tion filename: &
016B40: 73 65 6C 66 69 6C 65 26 0D 0A 3E 64 6D 20 22 20 selfile&..>dm "
016B50: 22 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E "..>if fv="f"..>
016B60: 64 6D 20 22 46 69 78 65 64 20 72 65 63 6F 72 64 dm "Fixed record
016B70: 20 73 69 7A 65 2C 20 63 6F 6E 73 69 73 74 69 6E size, consistin
016B80: 67 20 6F 66 20 26 72 6C 65 6E 26 20 66 69 65 6C g of &rlen& fiel
016B90: 64 73 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 56 ds"..>el..>dm "V
016BA0: 61 72 69 61 62 6C 65 20 72 65 63 6F 72 64 20 73 ariable record s
016BB0: 69 7A 65 2C 20 63 6F 6E 73 69 73 74 69 6E 67 20 ize, consisting
016BC0: 6F 66 20 75 70 20 74 6F 20 26 72 6C 65 6E 26 20 of up to &rlen&
016BD0: 66 69 65 6C 64 73 22 0D 0A 3E 65 69 0D 0A 3E 64 fields"..>ei..>d
016BE0: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 46 69 65 6C m " "..>dm "Fiel
016BF0: 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 d names: "..>sv
016C00: 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D n=0..>rp..>sv n=
016C10: 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n+1 n=n[w1]..>sv
016C20: 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E s=n&n&..>dm f&n
016C30: 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 72 &: &s&..>un n>=r
016C40: 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 len..>dm " "..>s
016C50: 76 20 6F 70 74 3D 22 77 74 22 0D 0A 3E 65 69 20 v opt="wt"..>ei
016C60: 3B 20 6F 70 74 3D 22 6C 22 0D 0A 3E 3E 3E 3E 3E ; opt="l"..>>>>>
016C70: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E >>>>>>>>>>>..>>>
016C80: 20 4F 50 54 49 4F 4E 20 5A 20 3E 3E 3E 0D 0A 3E OPTION Z >>>..>
016C90: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
016CA0: 0A 3E 69 66 20 6F 70 74 3D 22 7A 22 0D 0A 3E 72 .>if opt="z"..>r
016CB0: 70 0D 0A 3E 61 76 20 22 55 73 65 20 6F 70 74 69 p..>av "Use opti
016CC0: 6F 6E 73 20 28 26 66 73 6F 72 74 6F 70 74 73 26 ons (&fsortopts&
016CD0: 29 20 5B 59 2F 6E 5D 3F 20 22 20 79 6E 0D 0A 3E ) [Y/n]? " yn..>
016CE0: 75 6E 20 79 6E 20 69 6E 20 22 79 6E 22 0D 0A 3E un yn in "yn"..>
016CF0: 69 66 20 79 6E 3D 22 22 0D 0A 3E 73 76 20 79 6E if yn=""..>sv yn
016D00: 3E 69 64 20 64 66 20 3B 20 6D 69 73 73 20 6F 6E >id df ; miss on
016D10: 20 66 69 72 73 74 20 70 61 73 73 0D 0A 3E 3E 3E first pass..>>>
016D20: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
016D30: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
016D40: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
016D50: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
016D60: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
016D70: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
016D80: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
016D90: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
016DA0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
016DB0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
016DC0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
016DD0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
016DE0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
016DF0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
016E00: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
016E10: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
016E20: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
016E30: 6C 65 6E 3D 6D 61 78 20 76 6C 65 6E 3D 6D 61 78 len=max vlen=max
016E40: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
016E50: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 70 61 n=n[w1]..>if pa
016E60: 64 3D 22 79 22 0D 0A 3E 73 76 20 76 26 6E 26 3D d="y"..>sv v&n&=
016E70: 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 70 ""..>el..>sv s=p
016E80: 26 6E 26 0D 0A 3E 61 76 20 22 26 73 26 22 20 76 &n&..>av "&s&" v
016E90: 26 6E 26 0D 0A 3E 69 66 20 66 76 3D 22 76 22 0D &n&..>if fv="v".
016EA0: 0A 3E 69 66 20 76 26 6E 26 3D 22 22 0D 0A 3E 73 .>if v&n&=""..>s
016EB0: 76 20 70 61 64 3D 22 79 22 20 76 6C 65 6E 3D 6E v pad="y" vlen=n
016EC0: 20 63 68 6B 6C 65 6E 3D 6E 2D 31 0D 0A 3E 65 69 chklen=n-1..>ei
016ED0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 ..>ei..>ei..>un
016EE0: 6E 3E 3D 6D 61 78 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n>=max..>>>..>dm
016EF0: 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 " "..>rp..>av "
016F00: 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 ="y"..>ei..>dm "
016F10: 20 22 0D 0A 3E 73 76 20 6F 70 74 73 3D 66 73 6F "..>sv opts=fso
016F20: 72 74 6F 70 74 73 0D 0A 3E 69 66 20 79 6E 3D 22 rtopts..>if yn="
016F30: 6E 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 66 n"..>av "Enter f
016F40: 73 6F 72 74 20 6F 70 74 69 6F 6E 73 3A 20 22 20 sort options: "
016F50: 6F 70 74 73 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E opts..>dm " "..>
016F60: 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 ei..>id cpm..>df
016F70: 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 70 fm$pfi$..>sv op
016F80: 74 73 3D 6F 70 74 73 2B 22 20 2F 6A 22 09 3B 20 ts=opts+" /j".;
016F90: 73 6F 20 64 6F 65 73 20 70 72 6F 74 65 78 74 20 so does protext
016FA0: 3C 66 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D <fm..>ei..>wf fm
016FB0: 2E 78 0D 0A 3E 77 6D 20 22 63 6C 65 61 72 7C 31 .x..>wm "clear|1
016FC0: 33 7C 79 7C 36 33 39 7C 7C 37 36 34 7C 7C 37 36 3|y|639||764||76
016FD0: 36 7C 2A 66 73 6F 72 74 20 26 6D 75 73 66 69 6C 6|*fsort &musfil
016FE0: 65 26 20 26 6F 70 74 73 26 7C 31 33 7C 3B 20 50 e& &opts&|13|; P
016FF0: 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F ress a key to co
017000: 6E 74 69 6E 75 65 20 2E 2E 2E 7C 31 33 7C 70 61 ntinue ...|13|pa
017010: 75 73 65 7C 31 33 7C 65 78 65 63 20 66 6D 7C 31 use|13|exec fm|1
017020: 33 7C 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 20 3|"..>wc..>cf.;
017030: 6C 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 let exec have ha
017040: 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 ndle 0..>ex exec
017050: 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 69 20 fm.x..>st..>ei
017060: 3B 20 6F 70 74 3D 22 7A 22 0D 0A 3E 3E 3E 3E 3E ; opt="z"..>>>>>
017070: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E >>>>>>>>>>>..>>>
017080: 20 4F 50 54 49 4F 4E 20 44 20 3E 3E 3E 0D 0A 3E OPTION D >>>..>
017090: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0170A0: 0A 3E 69 66 20 6F 70 74 3D 22 64 22 0D 0A 3E 69 .>if opt="d"..>i
0170B0: 64 20 63 70 6D 0D 0A 3E 65 78 20 63 6F 70 79 20 d cpm..>ex copy
0170C0: 26 63 61 74 66 26 20 66 6D 24 70 66 69 24 0D 0A &catf& fm$pfi$..
0170D0: 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 65 6C >in fm$pfi$..>el
0170E0: 0D 0A 3E 69 6E 20 26 63 61 74 66 26 0D 0A 3E 77 ..>in &catf&..>w
0170F0: 66 20 66 6D 24 70 66 69 24 0D 0A 3E 77 6D 20 27 f fm$pfi$..>wm '
017100: 20 20 20 20 20 20 20 20 43 6F 72 72 65 63 74 20 Correct
017110: 5B 59 2F 6E 5D 3F 20 22 20 63 6F 72 72 20 31 0D [Y/n]? " corr 1.
017120: 0A 3E 69 66 20 63 6F 72 72 3D 22 22 0D 0A 3E 73 .>if corr=""..>s
017130: 76 20 63 6F 72 72 3D 22 79 22 0D 0A 3E 65 69 0D v corr="y"..>ei.
017140: 0A 3E 75 6E 20 63 6F 72 72 20 69 6E 20 22 79 6E .>un corr in "yn
017150: 22 0D 0A 3E 69 66 20 63 6F 72 72 3D 22 6E 22 0D "..>if corr="n".
017160: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sk 0=0..>ei..>
017170: 3E 3E 20 69 66 20 22 2C 22 20 22 27 22 20 6F 72 >> if "," "'" or
017180: 20 27 22 27 20 63 61 6E 20 77 65 20 61 64 64 20 '"' can we add
017190: 71 75 6F 74 65 73 3F 3F 0D 0A 3E 73 76 20 6E 3D quotes??..>sv n=
0171A0: 30 20 78 3D 22 30 22 0D 0A 3E 72 70 0D 0A 3E 73 0 x="0"..>rp..>s
0171B0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0171C0: 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E 69 66 .>sv s=v&n&..>if
0171D0: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
0171E0: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
0171F0: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
017200: 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 27 22 27 1"..>el..>if '"'
017210: 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 31 22 in s..>sv x="1"
017220: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D ..>ei..>ei..>ei.
017230: 0A 3E 69 66 20 78 3D 22 31 22 0D 0A 3E 69 66 20 .>if x="1"..>if
017240: 27 22 27 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 76 '"' notin s..>sv
017250: 20 76 26 6E 26 3D 27 22 27 2B 73 2B 27 22 27 0D v&n&='"'+s+'"'.
017260: 0A 3E 65 6C 0D 0A 3E 69 66 20 22 27 22 20 6E 6F .>el..>if "'" no
017270: 74 69 6E 20 73 0D 0A 3E 73 76 20 76 26 6E 26 3D tin s..>sv v&n&=
017280: 22 27 22 2B 73 2B 22 27 22 0D 0A 3E 65 69 0D 0A "'"+s+"'"..>ei..
017290: 3E 65 69 0D 0A 3E 73 76 20 78 3D 22 30 22 0D 0A >ei..>sv x="0"..
0172A0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 63 68 6B 6C >ei..>un n>=chkl
0172B0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 en..>>>..>sv n=0
0172C0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
0172D0: 69 78 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ix..>rp..>sv n=n
0172E0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0172F0: 73 3D 76 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=v&n&..>wm !s!.
017300: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 26 64 66 >sv df="&df
017310: 26 22 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 6E 65 &"'..>wm '>sv ne
017320: 77 66 69 6C 65 3D 22 26 6E 65 77 66 69 6C 65 26 wfile="&newfile&
017330: 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 73 65 6C 66 '..>wm '>sv self
017340: 69 6C 65 3D 22 26 73 65 6C 66 69 6C 65 26 22 27 ile="&selfile&"'
017350: 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 76 3D 22 26 ..>wm '>sv fv="&
017360: 66 76 26 22 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 fv&"'..>wm '>sv
017370: 72 6C 65 6E 3D 22 26 72 6C 65 6E 26 22 27 0D 0A rlen="&rlen&"'..
017380: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
017390: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0173A0: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 77 6D .>sv s=n&n&..>wm
0173B0: 20 27 3E 73 76 20 6E 26 6E 26 3D 22 26 73 26 22 '>sv n&n&="&s&"
0173C0: 27 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A '..>un n>=rlen..
0173D0: 3E 77 6D 20 27 3E 73 76 20 66 73 6F 72 74 6F 70 >wm '>sv fsortop
0173E0: 74 73 3D 22 26 66 73 6F 72 74 6F 70 74 73 26 22 ts="&fsortopts&"
0173F0: 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 6D 61 78 77 '..>wm '>sv maxw
017400: 3D 22 26 6D 61 78 77 26 22 27 0D 0A 3E 77 6D 20 ="&maxw&"'..>wm
017410: 27 3E 73 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 '>sv lastblank="
017420: 26 6C 61 73 74 62 6C 61 6E 6B 26 22 27 0D 0A 3E &lastblank&"'..>
017430: 77 63 0D 0A 3E 65 69 20 3B 20 63 70 6D 0D 0A 3E wc..>ei ; cpm..>
017440: 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A 3E 3E ei ; opt="d"..>>
017450: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
017460: 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4D 20 3E 3E 3E >>> OPTION M >>>
017470: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
017480: 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 6D 22 0D >>..>if opt="m".
017490: 0A 3E 69 64 20 63 70 6D 0D 0A 3E 72 70 0D 0A 3E .>id cpm..>rp..>
0174A0: 61 76 20 22 50 72 69 6E 74 20 74 6F 20 53 63 72 av "Print to Scr
0174B0: 65 65 6E 20 6F 72 20 50 72 69 6E 74 65 72 20 5B een or Printer [
0174C0: 73 2F 70 5D 3F 20 22 20 73 66 70 20 31 0D 0A 3E s/p]? " sfp 1..>
0174D0: 75 6E 20 73 66 70 20 69 6E 20 22 73 70 22 0D 0A un sfp in "sp"..
0174E0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 >el..>rp..>av "P
0174F0: 72 69 6E 74 20 74 6F 20 53 63 72 65 65 6E 2C 20 rint to Screen,
017500: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 .>un n>=rlen..>e
017510: 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 l ; var..>rp..>s
017520: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
017530: 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E 77 6D .>sv s=v&n&..>wm
017540: 20 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 76 6C 65 &s&..>un n>=vle
017550: 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 63 n..>ei ; f/v..>c
017560: 73 20 22 22 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E s ""..>sk 0=0..>
017570: 65 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D ei ; id df..>>>.
017580: 0A 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 .>iu df..>cs " "
017590: 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 41 20 ..>dm "Option A
0175A0: 2D 20 41 64 64 20 72 65 63 6F 72 64 73 20 66 72 - Add records fr
0175B0: 6F 6D 20 6B 65 79 62 6F 61 72 64 20 74 6F 20 75 om keyboard to u
0175C0: 70 64 61 74 65 20 66 69 6C 65 0D 0A 3E 64 6D 20 pdate file..>dm
0175D0: 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 " "..>in fm$pfi$
0175E0: 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 ..>sv sys_ver=sy
0175F0: 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 s_ver..>if sys_v
017600: 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 er=""..>sv cpm="
017610: 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 76 3D 1"..>ei..>sv fv=
017620: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
017630: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
017640: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
017650: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
017660: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
017670: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
017680: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
017690: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
0176A0: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
0176B0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 en..>>>..>sv n=0
0176C0: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
0176D0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 70 26 n=n[w1]..>sv p&
0176E0: 6E 26 3D 6E 26 6E 26 0D 0A 3E 69 66 20 70 26 6E n&=n&n&..>if p&n
0176F0: 26 5B 26 6D 61 78 77 26 5D 3D 22 22 0D 0A 3E 73 &[&maxw&]=""..>s
017700: 46 69 6C 65 20 6F 72 20 50 72 69 6E 74 65 72 20 File or Printer
017710: 5B 73 2F 66 2F 70 5D 3F 20 22 20 73 66 70 20 31 [s/f/p]? " sfp 1
017720: 0D 0A 3E 75 6E 20 73 66 70 20 69 6E 20 22 73 66 ..>un sfp in "sf
017730: 70 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 p"..>ei..>dm " "
017740: 0D 0A 3E 69 66 20 73 66 70 3D 22 66 22 0D 0A 3E ..>if sfp="f"..>
017750: 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F av "Enter name o
017760: 66 20 66 69 6C 65 20 74 6F 20 70 72 69 6E 74 20 f file to print
017770: 74 6F 3A 20 22 20 64 66 6E 20 31 36 0D 0A 3E 64 to: " dfn 16..>d
017780: 6D 20 22 20 22 0D 0A 3E 73 76 20 78 3D 22 6C 6F m " "..>sv x="lo
017790: 61 64 20 26 63 61 74 66 26 7C 31 33 7C 70 66 20 ad &catf&|13|pf
0177A0: 26 64 66 6E 26 22 0D 0A 3E 69 66 20 64 66 6E 3D &dfn&"..>if dfn=
0177B0: 22 22 0D 0A 3E 73 76 20 73 66 70 3D 22 22 0D 0A ""..>sv sfp=""..
0177C0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 66 >ei..>ei..>if sf
0177D0: 70 3C 3E 22 22 0D 0A 3E 64 66 20 66 6D 2E 6D 75 p<>""..>df fm.mu
0177E0: 73 0D 0A 3E 72 76 20 6D 75 73 09 09 3B 20 6C 65 s..>rv mus..; le
0177F0: 61 76 65 20 6F 70 65 6E 0D 0A 3E 69 66 20 6D 75 ave open..>if mu
017800: 73 6F 70 74 3C 3E 6D 75 73 0D 0A 3E 77 66 20 66 sopt<>mus..>wf f
017810: 6D 2E 6D 75 73 0D 0A 3E 77 6D 20 26 6D 75 73 6F m.mus..>wm &muso
017820: 70 74 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E pt&..>wc..>ei..>
017830: 73 76 20 78 3D 22 6C 6F 61 64 20 26 63 61 74 66 sv x="load &catf
017840: 26 7C 31 33 7C 70 73 22 0D 0A 3E 69 66 20 73 66 &|13|ps"..>if sf
017850: 70 3D 22 70 22 0D 0A 3E 73 76 20 78 3D 22 6C 6F p="p"..>sv x="lo
017860: 61 64 20 26 63 61 74 66 26 7C 31 33 7C 70 22 0D ad &catf&|13|p".
017870: 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D 2E 78 0D 0A .>ei..>wf fm.x..
017880: 3E 77 6D 20 22 26 78 26 22 0D 0A 3E 77 63 0D 0A >wm "&x&"..>wc..
017890: 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D >cf..>ex exec fm
0178A0: 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 73 .x..>st..>ei ; s
0178B0: 66 70 3C 3E 22 22 0D 0A 3E 65 69 20 3B 20 6F 70 fp<>""..>ei ; op
0178C0: 74 3D 22 6D 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="m"..>>>>>>>>>
0178D0: 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 77 74 >>>..>if opt="wt
0178E0: 22 0D 0A 3E 77 74 20 22 50 72 65 73 73 20 61 20 "..>wt "Press a
0178F0: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
017900: 76 20 70 26 6E 26 3D 70 26 6E 26 2B 22 20 20 20 v p&n&=p&n&+"
017910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017930: 20 20 20 20 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 "..>ei..>sv
017940: 70 26 6E 26 3D 70 26 6E 26 5B 31 3A 26 6D 61 78 p&n&=p&n&[1:&max
017950: 77 26 5D 2B 22 3A 20 22 0D 0A 3E 75 6E 20 6E 3D w&]+": "..>un n=
017960: 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 63 rlen..>>>..>iu c
017970: 70 6D 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 pm..>wf &newfile
017980: 26 20 61 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E & a..>wc..>ei..>
017990: 64 66 20 26 6E 65 77 66 69 6C 65 26 0D 0A 3E 72 df &newfile&..>r
0179A0: 76 20 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 v s..>if s="end"
0179B0: 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 26 0D ..>wf &newfile&.
0179C0: 0A 3E 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 66 69 .>el..>wf &newfi
0179D0: 6C 65 26 20 61 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D le& a..>ei..>>>.
0179E0: 0A 3E 73 76 20 6D 61 78 3D 72 6C 65 6E 0D 0A 3E .>sv max=rlen..>
0179F0: 69 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 if lastblank="y"
017A00: 0D 0A 3E 73 76 20 6D 61 78 3D 72 6C 65 6E 2D 31 ..>sv max=rlen-1
017A10: 20 6D 61 78 3D 6D 61 78 5B 77 31 5D 20 76 26 6D max=max[w1] v&m
017A20: 61 78 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 ax&=""..>ei..>ei
017A30: 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A ; iu df..>>>...
017A40: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
017A50: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
017A60: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
017A70: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
017A80: DD 6E 7E 29 D1 73 21 01 00 DD 74 73 DD 75 72 21 .n~).s!...ts.ur!
017A90: 00 00 DD 74 6F DD 75 6E C3 FB 3D DD 66 71 DD 6E ...to.un..=.fq.n
017AA0: 70 11 2E 00 A7 ED 52 C2 B6 3E 21 09 00 DD 74 73 p.....R..>!...ts
017AB0: DD 75 72 C3 F9 3E DD 66 73 DD 6E 72 11 09 00 A7 .ur..>.fs.nr....
017AC0: ED 52 CA D4 3E DD 66 71 DD 6E 70 11 20 00 A7 ED .R..>.fq.np. ...
017AD0: 52 C2 D7 3E C3 F9 3E DD 66 7F DD 6E 7E 29 DD 56 R..>..>.f..n~).V
017AE0: 73 DD 5E 72 19 DD 7E 70 77 DD 66 73 DD 6E 72 23 s.^r..~pw.fs.nr#
017AF0: DD 74 73 DD 75 72 C3 FB 3D DD 66 71 DD 6E 70 11 .ts.ur..=.fq.np.
017B00: 2E 2E 2E 20 22 0D 0A 3E 65 69 0D 0A 1A 0D 0A 3E ... "..>ei.....>
017B10: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
017B20: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
017B30: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
017B40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
017B50: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
017B60: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
017B70: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
017B80: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
017B90: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
017BA0: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
017BB0: 3E 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 >el..>sk0=0..>ei
017BC0: 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E ..>zm..>npoff..>
017BD0: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
017BE0: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
017BF0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
017C00: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
017C10: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
017C20: 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D .>el ; var..>rp.
017C30: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
017C40: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
017C50: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D >if s=""..>sv s=
017C60: 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 n+1 m=n+2 s=s[w1
017C70: 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 ] m=m[w1]..>sv s
017C80: 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 =f&s&+f&m&..>if
017C90: 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E s=""..>sv n=rlen
017CA0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 ..>el..>sv s="$"
017CB0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 21 73 21 0D ..>ei..>ei..!s!.
017CC0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 .>un n=rlen..>ei
017CD0: 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E ; f/v..>sv nn=n
017CE0: 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E n+1..>el ; f1=en
017CF0: 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D d..>sv nn=nn[w1]
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 00 02 09 4E E5 14 00 C1 02 00 00 00 02 ......N.........
017D20: 14 00 C6 02 00 00 00 02 14 00 C2 02 00 00 00 02 ................
017D30: 14 00 C7 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D40: 14 00 C8 02 00 00 00 02 14 00 C4 02 00 00 00 02 ................
017D50: 14 00 C9 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
017E10: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
017E20: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
017E30: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
017E40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
017E50: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
017E60: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
017E70: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
017E80: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
017E90: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
017EA0: 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E =1 filedate=1..>
017EB0: 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 69 66 ei..>iu cpm..>if
017EC0: 20 73 79 73 5F 76 65 72 20 3C 20 33 2E 30 37 0D sys_ver < 3.07.
017ED0: 0A 3E 73 76 20 66 69 6C 65 64 61 74 65 3D 31 0D .>sv filedate=1.
017EE0: 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 73 5F 76 65 .>ei..>if sys_ve
017EF0: 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 66 69 6C 65 r=3.10..>sv file
017F00: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
017F10: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
017F20: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
017F30: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
017F40: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
017F50: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
017F60: 4E 20 55 20 20 2A 2A 2A 20 20 28 76 32 2E 30 32 N U *** (v2.02
017F70: 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 )..>dm " "..>dm
017F80: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
017F90: 20 20 20 20 20 20 20 20 49 20 2D 20 50 72 69 6E I - Prin
017FA0: 74 20 61 6E 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 t an Invoice..>d
017FB0: 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 m "
017FC0: 20 20 20 20 20 20 20 20 20 20 43 20 2D 20 50 72 C - Pr
017FD0: 69 6E 74 20 61 20 43 72 65 64 69 74 20 6E 6F 74 int a Credit not
017FE0: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
017FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
018000: 72 69 6E 74 3A 20 22 20 66 6E 20 31 32 0D 0A 3E rint: " fn 12..>
018010: 73 76 20 66 6E 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 sv fn=fn[w1]..>i
018020: 66 20 66 6E 3C 3E 22 22 0D 0A 3E 69 66 20 22 2E f fn<>""..>if ".
018030: 22 20 6E 6F 74 69 6E 20 66 6E 0D 0A 3E 69 66 20 " notin fn..>if
018040: 64 74 79 70 65 3D 22 73 22 0D 0A 3E 73 76 20 66 dtype="s"..>sv f
018050: 6E 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 n=invpath+fn+".p
018060: 6F 73 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E os"..>el..>sv fn
018070: 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 6F =invpath+fn+".po
018080: 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 61 i"..>ei..>ei..>a
018090: 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F 72 v "To printer or
0180A0: 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 22 screen (p/s)? "
0180B0: 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D x 1..>if x<>"".
0180C0: 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 .>wf om.x..>if x
0180D0: 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 ="p"..>wm "load
0180E0: 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C &fn&|13|doc|13||
0180F0: 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 766|p|13|load om
018100: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
018110: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
018120: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
018130: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
018140: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
018150: 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A nu|13|ps"..>ei..
018160: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
018170: 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 ec om.x..>st..>e
018180: 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E 0D i ; x..>ei ; fn.
018190: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D 0A .>ei ; opt="r"..
0181A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0181B0: 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 45 20 3E ..>>> OPTION E >
0181C0: 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>..>>>>>>>>>>>>
0181D0: 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 65 >>>>..>if opt="e
0181E0: 22 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D "..>-------!----
0181F0: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
018200: 20 2D 20 50 72 69 6E 74 20 61 20 53 74 61 74 65 - Print a State
018210: 6D 65 6E 74 0D 0A 3E 64 6D 20 22 20 20 20 20 20 ment..>dm "
018220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018230: 20 20 4E 20 2D 20 53 65 74 20 69 6E 76 6F 69 63 N - Set invoic
018240: 65 20 4E 75 6D 62 65 72 0D 0A 3E 69 64 20 66 69 e Number..>id fi
018250: 6C 65 64 61 74 65 0D 0A 3E 64 6D 20 22 20 20 20 ledate..>dm "
018260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018270: 20 20 20 20 44 20 2D 20 53 65 74 20 63 75 72 72 D - Set curr
018280: 65 6E 74 20 44 61 74 65 0D 0A 3E 65 69 0D 0A 3E ent Date..>ei..>
018290: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0182A0: 20 20 20 20 20 20 20 20 20 20 20 52 20 2D 20 52 R - R
0182B0: 65 70 72 69 6E 74 20 64 6F 63 75 6D 65 6E 74 0D eprint document.
0182C0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
0182D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 2D L -
0182E0: 20 4C 69 73 74 20 69 6E 76 6F 69 63 65 20 73 75 List invoice su
0182F0: 6D 6D 61 72 79 20 66 69 6C 65 0D 0A 3E 64 6D 20 mmary file..>dm
018300: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
018310: 20 20 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 E - Edit
018320: 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 configuration s
018330: 65 74 74 69 6E 67 73 0D 0A 3E 64 6D 20 22 20 20 ettings..>dm "
018340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018350: 20 20 20 20 20 46 20 2D 20 46 69 6C 65 72 20 6D F - Filer m
018360: 65 6E 75 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 enu..>dm "
018370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018380: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
018390: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
0183A0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 74 65 Ente
0183B0: 72 20 6F 70 74 69 6F 6E 20 6C 65 74 74 65 72 3A r option letter:
0183C0: 20 22 20 6F 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E " opt 1..>>>..>
0183D0: 69 66 20 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F if opt=""..>sv o
0183E0: 70 74 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 pt=" "..>ei..>if
0183F0: 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 0D 0A 3E opt in "qsj"..>
018400: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
018410: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
018420: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---!------------
018430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D --------------R.
018470: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
018480: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
018490: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
0184A0: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
0184B0: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
0184C0: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
0184D0: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
0184E0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
0184F0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
018500: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
018510: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
018520: 6F 72 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 orinc,showdisc,a
018530: 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 skfn,askcar,usep
018540: 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 rod,defdisc..>rv
018550: 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C caline,aline,tl
018560: 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 ine,totline..>rv
018570: 20 73 69 64 65 2C 72 63 31 2C 72 63 32 2C 72 63 side,rc1,rc2,rc
018580: 33 2C 72 63 34 2C 72 63 35 0D 0A 3E 72 76 20 72 3,rc4,rc5..>rv r
018590: 75 6C 65 72 31 2C 72 75 6C 65 72 32 2C 72 75 6C uler1,ruler2,rul
0185A0: 65 72 33 2C 72 75 6C 65 72 34 2C 72 75 6C 65 72 er3,ruler4,ruler
0185B0: 35 0D 0A 3E 72 76 20 63 6F 6E 61 6D 65 2C 63 6F 5..>rv coname,co
0185C0: 61 64 64 72 31 2C 63 6F 61 64 64 72 32 2C 63 6F addr1,coaddr2,co
0185D0: 61 64 64 72 33 2C 63 6F 61 64 64 72 34 2C 63 6F addr3,coaddr4,co
0185E0: 61 64 64 72 35 0D 0A 3E 63 73 20 22 20 22 0D 0A addr5..>cs " "..
0185F0: 3E 64 6D 20 50 52 4F 54 45 58 54 20 4F 46 46 49 >dm PROTEXT OFFI
018600: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 6F cf..>ex exec omo
018610: 70 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 pt&opt&..>st..>e
018620: 69 20 3B 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 i ; opt in "qsj"
018630: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
018640: 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 46 >>..>>> OPTION F
018650: 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>
018660: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D >>>>>>..>if opt=
018670: 22 66 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 "f"..>cf..>ex ex
018680: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
018690: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
0186A0: 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 >..>>> OPTION L
0186B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
0186C0: 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 >>>>>..>if opt="
0186D0: 6C 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 l"..>cf..>ex exe
0186E0: 63 20 6F 6D 6F 70 74 6C 0D 0A 3E 73 74 0D 0A 3E c omoptl..>st..>
0186F0: 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ei..>>>>>>>>>>>>
018700: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
018710: 20 44 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E D >>>..>>>>>>>>
018720: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
018730: 74 3D 22 64 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="d"..>cs " "..
018740: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
018750: 6E 2E 64 61 74 0D 0A 3E 72 76 20 64 61 74 65 0D n.dat..>rv date.
018760: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 75 72 72 .>av "Enter curr
018770: 65 6E 74 20 64 61 74 65 20 5B 26 64 61 74 65 26 ent date [&date&
018780: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C 3E 22 ]: " x..>if x<>"
018790: 22 0D 0A 3E 73 76 20 64 61 74 65 3D 78 0D 0A 3E "..>sv date=x..>
0187A0: 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 id cpm..>cf..>df
0187B0: 20 6F 6D 65 6E 75 0D 0A 3E 65 69 0D 0A 3E 77 66 omenu..>ei..>wf
0187C0: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
0187D0: 77 6D 20 26 64 61 74 65 26 0D 0A 3E 77 63 0D 0A wm &date&..>wc..
0187E0: 3E 65 69 20 3B 78 0D 0A 3E 63 66 0D 0A 3E 64 66 >ei ;x..>cf..>df
0187F0: 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D omenu..>sk 0=0.
018800: 43 45 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E CE CONFIGURATION
018810: 20 50 52 4F 47 52 41 4D 0D 0A 3E 64 6D 20 22 20 PROGRAM..>dm "
018820: 22 0D 0A 3E 61 76 20 22 54 79 70 65 20 74 68 65 "..>av "Type the
018830: 20 6E 61 6D 65 20 6F 66 20 79 6F 75 72 20 62 75 name of your bu
018840: 73 69 6E 65 73 73 20 5B 26 63 6F 6E 61 6D 65 26 siness [&coname&
018850: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E ]: " x..>if x <>
018860: 20 22 22 0D 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D ""..>sv coname=
018870: 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 45 6E 74 x..>ei..>dm "Ent
018880: 65 72 20 79 6F 75 72 20 61 64 64 72 65 73 73 20 er your address
018890: 28 6D 61 78 20 35 20 6C 69 6E 65 73 29 22 0D 0A (max 5 lines)"..
0188A0: 3E 61 76 20 22 4C 69 6E 65 20 31 20 5B 26 63 6F >av "Line 1 [&co
0188B0: 61 64 64 72 31 26 5D 3A 20 22 20 78 0D 0A 3E 69 addr1&]: " x..>i
0188C0: 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 f x <> ""..>sv c
0188D0: 6F 61 64 64 72 31 3D 78 0D 0A 3E 65 69 0D 0A 3E oaddr1=x..>ei..>
0188E0: 61 76 20 22 4C 69 6E 65 20 32 20 5B 26 63 6F 61 av "Line 2 [&coa
0188F0: 64 64 72 32 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 ddr2&]: " x..>if
018900: 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F x <> ""..>sv co
018910: 61 64 64 72 32 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 addr2=x..>ei..>a
018920: 76 20 22 4C 69 6E 65 20 33 20 5B 26 63 6F 61 64 v "Line 3 [&coad
018930: 64 72 33 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 dr3&]: " x..>if
018940: 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 x <> ""..>sv coa
018950: 64 64 72 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 ddr3=x..>ei..>av
018960: 20 22 4C 69 6E 65 20 34 20 5B 26 63 6F 61 64 64 "Line 4 [&coadd
018970: 72 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 r4&]: " x..>if x
018980: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 <> ""..>sv coad
018990: 64 72 34 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 dr4=x..>ei..>av
0189A0: 22 4C 69 6E 65 20 35 20 5B 26 63 6F 61 64 64 72 "Line 5 [&coaddr
0189B0: 35 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 5&]: " x..>if x
0189C0: 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 64 <> ""..>sv coadd
0189D0: 72 35 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 r5=x..>ei..>dm "
0189E0: 20 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E "..>av "Enter n
0189F0: 61 6D 65 20 6F 66 20 61 64 64 72 65 73 73 20 64 ame of address d
018A00: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A .>ei ; opt="d"..
018A10: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
018A20: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
018A30: 4E 20 4E 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N N >>>..>>>>>>>
018A40: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
018A50: 70 74 3D 22 6E 22 0D 0A 3E 63 73 20 22 20 22 0D pt="n"..>cs " ".
018A60: 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 .>rp..>av "Enter
018A70: 20 6E 65 78 74 20 69 6E 76 6F 69 63 65 20 6E 75 next invoice nu
018A80: 6D 62 65 72 3A 20 22 20 6E 75 6D 0D 0A 3E 69 66 mber: " num..>if
018A90: 20 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 6E 75 6D num=""..>sv num
018AA0: 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E =" "..>ei..>un n
018AB0: 75 6D 5B 31 5D 20 69 6E 20 22 30 31 32 33 34 35 um[1] in "012345
018AC0: 36 37 38 39 22 0D 0A 3E 73 76 20 6E 75 6D 3D 6E 6789"..>sv num=n
018AD0: 75 6D 5B 77 31 5D 0D 0A 3E 69 64 20 63 70 6D 0D um[w1]..>id cpm.
018AE0: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
018AF0: 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 77 66 en.inf..>ei..>wf
018B00: 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E ominvgen.num..>
018B10: 77 6D 20 26 6E 75 6D 26 0D 0A 3E 77 63 0D 0A 3E wm &num&..>wc..>
018B20: 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 sk 0=0..>ei ; op
018B30: 74 3D 22 6E 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="n"..>>>>>>>>>
018B40: 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 >>>>>>>..>>> OPT
018B50: 49 4F 4E 20 49 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E ION I >>>..>>>>>
018B60: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 >>>>>>>>>>>..>if
018B70: 20 6F 70 74 20 69 6E 20 22 69 63 22 0D 0A 3E 63 opt in "ic"..>c
018B80: 73 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 66 20 s " "..>cf..>df
018B90: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 ominvgen.num..>r
018BA0: 76 20 6E 75 6D 0D 0A 3E 69 66 20 6F 70 74 3D 22 v num..>if opt="
018BB0: 69 22 0D 0A 3E 73 76 20 74 69 74 6C 65 3D 22 49 i"..>sv title="I
018BC0: 4E 56 4F 49 43 45 22 0D 0A 3E 65 6C 0D 0A 3E 73 NVOICE"..>el..>s
018BD0: 76 20 74 69 74 6C 65 3D 22 43 52 45 44 49 54 20 v title="CREDIT
018BE0: 4E 4F 54 45 22 0D 0A 3E 65 69 0D 0A 3E 77 66 20 NOTE"..>ei..>wf
018BF0: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 ominvgen.num..>w
018C00: 6C 6F 61 64 20 66 6D 65 6E 75 0D 0A 79 7C 36 33 load fmenu..y|63
018C10: 39 7C 7C 31 36 7C 7C 31 36 7C 70 73 0D 0A 1A 00 9||16||16|ps....
018C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C40: 10 00 00 50 02 6C 6F 61 64 20 66 6D 65 6E 75 0D ...P.load fmenu.
018C50: 0A 70 73 0D 0A 1A 20 32 34 34 37 36 39 0D 0A 31 .ps... 244769..1
018C60: 32 61 20 73 74 20 6D 61 72 79 73 20 73 74 72 65 2a st marys stre
018C70: 65 74 0D 0A 66 61 72 63 65 74 0D 0A 70 62 6F 72 et..farcet..pbor
018C80: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
018C90: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
018CA0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
018CB0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
018CC0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
018CD0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
018CE0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
018CF0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
018D00: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
018D10: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
018D20: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
018D30: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
018D40: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
018D50: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
018D60: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
018D70: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
018D80: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
018D90: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
018DA0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
018DB0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
018DC0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
018DD0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
018DE0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
018DF0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
018E00: 6D 20 26 6E 75 6D 26 2C 26 74 69 74 6C 65 26 0D m &num&,&title&.
018E10: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
018E20: 78 65 63 20 6F 6D 6F 70 74 69 0D 0A 3E 73 74 0D xec omopti..>st.
018E30: 0A 3E 65 69 20 3B 20 6F 70 74 20 69 6E 20 22 69 .>ei ; opt in "i
018E40: 63 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E c"..>>>>>>>>>>>>
018E50: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
018E60: 20 52 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E R >>>..>>>>>>>>
018E70: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
018E80: 74 3D 22 72 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="r"..>cs " "..
018E90: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
018EA0: 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 64 n.inf..>rv addrd
018EB0: 72 76 2C 69 6E 76 70 61 74 68 0D 0A 3E 64 6D 20 rv,invpath..>dm
018EC0: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 " "..>rp..>av "I
018ED0: 6E 76 6F 69 63 65 2C 20 63 72 65 64 69 74 20 6E nvoice, credit n
018EE0: 6F 74 65 2C 20 6F 72 20 73 74 61 74 65 6D 65 6E ote, or statemen
018EF0: 74 20 28 49 2F 63 2F 73 29 3F 20 22 20 64 74 79 t (I/c/s)? " dty
018F00: 70 65 20 31 0D 0A 3E 69 66 20 64 74 79 70 65 3D pe 1..>if dtype=
018F10: 22 22 0D 0A 3E 73 76 20 64 74 79 70 65 3D 22 69 ""..>sv dtype="i
018F20: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 64 74 79 70 "..>ei..>un dtyp
018F30: 65 20 69 6E 20 22 69 63 73 22 0D 0A 3E 64 6D 20 e in "ics"..>dm
018F40: 22 20 22 0D 0A 3E 64 6D 20 22 4C 69 73 74 20 6F " "..>dm "List o
018F50: 66 20 61 76 61 69 6C 61 62 6C 65 20 66 69 6C 65 f available file
018F60: 73 2E 20 54 68 65 20 66 69 6C 65 20 65 78 74 65 s. The file exte
018F70: 6E 73 69 6F 6E 20 6E 65 65 64 20 6E 6F 74 20 62 nsion need not b
018F80: 65 20 74 79 70 65 64 2E 22 0D 0A 3E 64 6D 20 22 e typed."..>dm "
018F90: 20 22 0D 0A 3E 69 66 20 64 74 79 70 65 3D 22 73 "..>if dtype="s
018FA0: 22 0D 0A 3E 65 78 20 63 61 74 20 26 69 6E 76 70 "..>ex cat &invp
018FB0: 61 74 68 26 2A 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A ath&*.pos..>el..
018FC0: 3E 65 78 20 63 61 74 20 26 69 6E 76 70 61 74 68 >ex cat &invpath
018FD0: 26 26 64 74 79 70 65 26 2A 2E 70 6F 69 0D 0A 3E &&dtype&*.poi..>
018FE0: 65 69 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E ei..>av "Enter n
018FF0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 70 ame of file to p
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 00 00 02 09 4E E5 15 00 C1 02 00 00 00 02 ......N.........
019020: 15 00 C6 02 00 00 00 02 15 00 C2 02 00 00 00 02 ................
019030: 15 00 C7 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019040: 15 00 C8 02 00 00 00 02 15 00 C4 02 00 00 00 02 ................
019050: 15 00 C9 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 63 elect records (c
019110: 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 32 20 6F 72 ond1 OR cond2 or
019120: 20 63 6F 6E 64 33 29 22 0D 0A 3E 64 6D 20 22 20 cond3)"..>dm "
019130: 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A "..>in fm$pfi$..
019140: 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 >sv fv=fv[1] rle
019150: 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 n=rlen[w1]..>if
019160: 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 fv="f"..>sv flis
019170: 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 t=">ru"..>el..>s
019180: 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E v flist=">rv"..>
019190: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
0191A0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0191B0: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
0191C0: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0191D0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0191E0: 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 >dm "Field names
0191F0: 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 : "..>sv n=0..>r
019200: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
019210: 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 [w1]..>sv s=n&n&
019220: 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D ..>dm f&n&: &s&.
019230: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
019240: 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 6E 74 65 ..>dm "When ente
019250: 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F 6E 73 20 ring conditions
019260: 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 20 72 65 below, please re
019270: 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 6C 6F 73 member to enclos
019280: 65 20 73 74 72 69 6E 67 73 20 69 6E 20 71 75 6F e strings in quo
019290: 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E 67 2E 20 tes"..>dm 'e.g.
0192A0: 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 34 0D 0A "London" in F4..
0192B0: 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 6B 3D >dm " "..>sv ok=
0192C0: 22 27 22 20 2B 20 27 22 27 20 2B 20 22 30 31 32 "'" + '"' + "012
0192D0: 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 76 20 6E 3456789."..>sv n
0192E0: 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 ="1"..>rp..>av "
0192F0: 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 6F 6E 20 Enter condition
019300: 0A 3E 61 76 20 22 53 69 64 65 20 6D 61 72 67 69 .>av "Side margi
019310: 6E 20 5B 26 73 69 64 65 26 5D 3A 20 22 20 6E 0D n [&side&]: " n.
019320: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
019330: 73 69 64 65 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 side=n..>ei ..>a
019340: 76 20 22 57 69 64 74 68 20 6F 66 20 27 63 6F 64 v "Width of 'cod
019350: 65 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 e' column in cha
019360: 72 61 63 74 65 72 73 20 5B 26 72 63 31 26 5D 3A racters [&rc1&]:
019370: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
019380: 0A 3E 73 76 20 72 63 31 3D 6E 0D 0A 3E 65 69 20 .>sv rc1=n..>ei
019390: 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 6F 66 20 ..>av "Width of
0193A0: 27 64 65 73 63 72 69 70 74 69 6F 6E 27 20 63 6F 'description' co
0193B0: 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 74 65 lumn in characte
0193C0: 72 73 20 5B 26 72 63 32 26 5D 3A 20 22 20 6E 0D rs [&rc2&]: " n.
0193D0: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
0193E0: 72 63 32 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 76 rc2=n..>ei ..>av
0193F0: 20 22 57 69 64 74 68 20 6F 66 20 27 71 75 61 6E "Width of 'quan
019400: 74 69 74 79 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 tity' column in
019410: 63 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 33 characters [&rc3
019420: 26 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E &]: " n..>if n<>
019430: 22 22 0D 0A 3E 73 76 20 72 63 33 3D 6E 0D 0A 3E ""..>sv rc3=n..>
019440: 65 69 20 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 ei ..>av "Width
019450: 6F 66 20 27 75 6E 69 74 20 70 72 69 63 65 27 20 of 'unit price'
019460: 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 column in charac
019470: 74 65 72 73 20 5B 26 72 63 34 26 5D 3A 20 22 20 ters [&rc4&]: "
019480: 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 n..>if n<>""..>s
019490: 76 20 72 63 34 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E v rc4=n..>ei ..>
0194A0: 61 76 20 22 57 69 64 74 68 20 6F 66 20 27 74 6F av "Width of 'to
0194B0: 74 61 6C 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 tal' column in c
0194C0: 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 35 26 haracters [&rc5&
0194D0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0194E0: 22 0D 0A 3E 73 76 20 72 63 35 3D 6E 0D 0A 3E 65 "..>sv rc5=n..>e
0194F0: 69 20 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 i ..>if prconame
019500: 61 74 61 66 69 6C 65 20 5B 26 61 64 64 72 66 69 atafile [&addrfi
019510: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
019520: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 64 64 f x<>""..>sv add
019530: 72 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 69 rfile=x..>ei..>i
019540: 66 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 73 f phone?="y"..>s
019550: 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A v y="Y/n"..>el..
019560: 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E 65 69 >sv y="y/N"..>ei
019570: 0D 0A 3E 61 76 20 22 44 6F 65 73 20 74 68 65 20 ..>av "Does the
019580: 61 64 64 72 65 73 73 20 66 69 6C 65 20 68 61 76 address file hav
019590: 65 20 74 65 6C 65 70 68 6F 6E 65 20 6E 75 6D 62 e telephone numb
0195A0: 65 72 73 20 6F 6E 20 6C 69 6E 65 20 32 20 5B 26 ers on line 2 [&
0195B0: 79 26 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 y&]: " x 1..>if
0195C0: 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 68 6F 6E 65 x<>""..>sv phone
0195D0: 3F 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 ?=x..>ei..>dm "
0195E0: 22 0D 0A 3E 64 6D 20 22 57 68 69 63 68 20 64 72 "..>dm "Which dr
0195F0: 69 76 65 20 69 73 20 74 6F 20 62 65 20 75 73 65 ive is to be use
019600: 64 20 66 6F 72 20 73 74 6F 72 69 6E 67 20 69 6E d for storing in
019610: 76 6F 69 63 65 73 3F 22 0D 0A 3E 69 64 20 63 70 voices?"..>id cp
019620: 6D 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D 69 6E m..>sv invdrv=in
019630: 76 70 61 74 68 5B 31 5D 0D 0A 3E 72 70 0D 0A 3E vpath[1]..>rp..>
019640: 61 76 20 22 45 6E 74 65 72 20 64 72 69 76 65 20 av "Enter drive
019650: 6C 65 74 74 65 72 20 5B 26 69 6E 76 64 72 76 26 letter [&invdrv&
019660: 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C ]: " x 1..>if x<
019670: 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D >""..>sv invdrv=
019680: 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 69 6E 76 64 x..>ei..>un invd
019690: 72 76 20 69 6E 20 22 61 62 63 64 65 66 6D 22 0D rv in "abcdefm".
0196A0: 0A 3E 73 76 20 69 6E 76 70 61 74 68 3D 69 6E 76 .>sv invpath=inv
0196B0: 64 72 76 2B 22 3A 22 0D 0A 3E 65 6C 0D 0A 3E 61 drv+":"..>el..>a
0196C0: 76 20 22 45 6E 74 65 72 20 70 61 74 68 20 6F 6E v "Enter path on
0196D0: 20 77 68 69 63 68 20 74 6F 20 73 74 6F 72 65 20 which to store
0196E0: 69 6E 76 6F 69 63 65 73 20 5B 26 69 6E 76 70 61 invoices [&invpa
0196F0: 74 68 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 th&]: " x..>if x
019700: 3D 22 79 22 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 ="y"..>av "Line
019710: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
019720: 79 6F 75 72 20 63 6F 6D 70 61 6E 79 20 61 64 64 your company add
019730: 72 65 73 73 20 5B 26 63 61 6C 69 6E 65 26 5D 3A ress [&caline&]:
019740: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
019750: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 6E 0D 0A 3E .>sv caline=n..>
019760: 65 69 20 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 4C ei ..>ei..>av "L
019770: 69 6E 65 20 6E 75 6D 62 65 72 20 74 6F 20 70 72 ine number to pr
019780: 69 6E 74 20 72 65 63 69 70 69 65 6E 74 27 73 20 int recipient's
019790: 61 64 64 72 65 73 73 20 5B 26 61 6C 69 6E 65 26 address [&aline&
0197A0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0197B0: 22 0D 0A 3E 73 76 20 61 6C 69 6E 65 3D 6E 0D 0A "..>sv aline=n..
0197C0: 3E 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 >ei ..>av "Line
0197D0: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
0197E0: 74 69 74 6C 65 73 20 5B 26 74 6C 69 6E 65 26 5D titles [&tline&]
0197F0: 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 : " n..>if n<>""
019800: 0D 0A 3E 73 76 20 74 6C 69 6E 65 3D 6E 0D 0A 3E ..>sv tline=n..>
019810: 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 6E ei ..>av "Line n
019820: 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 74 umber to print t
019830: 6F 74 61 6C 73 20 5B 26 74 6F 74 6C 69 6E 65 26 otals [&totline&
019840: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
019850: 22 0D 0A 3E 73 76 20 74 6F 74 6C 69 6E 65 3D 6E "..>sv totline=n
019860: 0D 0A 3E 65 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E ..>ei ..>sv nlin
019870: 65 73 3D 74 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 es=totline-tline
019880: 20 6E 6C 69 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 nlines=nlines[w
019890: 31 5D 0D 0A 3E 73 76 20 69 77 69 64 74 68 3D 72 1]..>sv iwidth=r
0198A0: 63 31 2B 72 63 32 2B 72 63 33 2B 72 63 34 2B 72 c1+rc2+rc3+rc4+r
0198B0: 63 35 2B 31 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 c5+1..>sv n=iwid
0198C0: 74 68 2D 33 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A th-31..>dm " "..
0198D0: 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A >if vatreg="y"..
0198E0: 3E 64 6D 20 22 43 4F 4E 46 49 47 55 52 45 20 56 >dm "CONFIGURE V
0198F0: 41 54 20 43 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 AT CODES"..>dm "
019900: 3C 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 70 61 74 <>""..>sv invpat
019910: 68 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E h=x..>ei..>ei..>
019920: 64 6D 20 22 20 22 0D 0A 3E 69 66 20 75 73 65 70 dm " "..>if usep
019930: 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 rod="y"..>sv y="
019940: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
019950: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 ="y/N"..>ei..>rp
019960: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 69 ..>av "Do you wi
019970: 73 68 20 74 6F 20 75 73 65 20 61 20 70 72 6F 64 sh to use a prod
019980: 75 63 74 20 66 69 6C 65 20 28 26 79 26 29 3F 20 uct file (&y&)?
019990: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0199A0: 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 78 0D ..>sv useprod=x.
0199B0: 0A 3E 65 69 0D 0A 3E 75 6E 20 75 73 65 70 72 6F .>ei..>un usepro
0199C0: 64 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 75 d in "yn"..>if u
0199D0: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 seprod="y"..>av
0199E0: 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F 66 20 70 "Enter name of p
0199F0: 72 6F 64 75 63 74 20 69 6E 66 6F 72 6D 61 74 69 roduct informati
019A00: 6F 6E 20 66 69 6C 65 20 5B 26 70 72 6F 64 66 69 on file [&prodfi
019A10: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
019A20: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 6F f x<>""..>sv pro
019A30: 64 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 dfile=x..>ei..>e
019A40: 69 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D i..>if prconame=
019A50: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
019A60: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
019A70: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
019A80: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 79 v "Do you want y
019A90: 6F 75 72 20 6E 61 6D 65 20 61 6E 64 20 61 64 64 our name and add
019AA0: 72 65 73 73 20 70 72 69 6E 74 65 64 20 6F 6E 20 ress printed on
019AB0: 74 68 65 20 69 6E 76 6F 69 63 65 73 20 28 26 79 the invoices (&y
019AC0: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
019AD0: 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 63 6F 6E 61 <>""..>sv prcona
019AE0: 6D 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 70 me=x..>ei..>un p
019AF0: 72 63 6F 6E 61 6D 65 20 69 6E 20 22 79 6E 22 0D rconame in "yn".
019B00: 20 22 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 74 "..>sv vat1=vat
019B10: 31 2A 31 30 30 20 76 61 74 31 3D 76 61 74 31 5B 1*100 vat1=vat1[
019B20: 77 31 5D 0D 0A 3E 73 76 20 76 61 74 32 3D 76 61 w1]..>sv vat2=va
019B30: 74 32 2A 31 30 30 20 76 61 74 32 3D 76 61 74 32 t2*100 vat2=vat2
019B40: 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 33 3D 76 [w1]..>sv vat3=v
019B50: 61 74 33 2A 31 30 30 20 76 61 74 33 3D 76 61 74 at3*100 vat3=vat
019B60: 33 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 3[w1]..>sv vat4=
019B70: 76 61 74 34 2A 31 30 30 20 76 61 74 34 3D 76 61 vat4*100 vat4=va
019B80: 74 34 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 35 t4[w1]..>sv vat5
019B90: 3D 76 61 74 35 2A 31 30 30 20 76 61 74 35 3D 76 =vat5*100 vat5=v
019BA0: 61 74 35 5B 77 31 5D 0D 0A 3E 61 76 20 22 50 65 at5[w1]..>av "Pe
019BB0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
019BC0: 20 72 61 74 65 20 31 20 5B 26 76 61 74 31 26 5D rate 1 [&vat1&]
019BD0: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
019BE0: 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D 78 0D 0A ""..>sv vat1=x..
019BF0: 3E 65 69 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E >ei..>av "Percen
019C00: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
019C10: 65 20 32 20 5B 26 76 61 74 32 26 5D 3A 20 22 20 e 2 [&vat2&]: "
019C20: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
019C30: 3E 73 76 20 76 61 74 32 3D 78 0D 0A 3E 65 69 0D >sv vat2=x..>ei.
019C40: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
019C50: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 33 20 for VAT rate 3
019C60: 5B 26 76 61 74 33 26 5D 3A 20 22 20 78 0D 0A 3E [&vat3&]: " x..>
019C70: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
019C80: 76 61 74 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 vat3=x..>ei..>av
019C90: 20 22 50 65 72 63 65 6E 74 61 67 65 20 66 6F 72 "Percentage for
019CA0: 20 56 41 54 20 72 61 74 65 20 34 20 5B 26 76 61 VAT rate 4 [&va
019CB0: 74 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 t4&]: " x..>if x
019CC0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 76 61 74 34 <> ""..>sv vat4
019CD0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 50 65 =x..>ei..>av "Pe
019CE0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
019CF0: 20 72 61 74 65 20 35 20 5B 26 76 61 74 35 26 5D rate 5 [&vat5&]
019D00: 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D .>if vatreg="y".
019D10: 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 .>sv y="Y/n"..>e
019D20: 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A l..>sv y="y/N"..
019D30: 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 >ei..>rp..>av "I
019D40: 73 20 79 6F 75 72 20 62 75 73 69 6E 65 73 73 20 s your business
019D50: 72 65 67 69 73 74 65 72 65 64 20 66 6F 72 20 56 registered for V
019D60: 41 54 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D AT (&y&)? " x 1.
019D70: 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 .>if x <> ""..>s
019D80: 76 20 76 61 74 72 65 67 3D 78 0D 0A 3E 65 69 0D v vatreg=x..>ei.
019D90: 0A 3E 75 6E 20 76 61 74 72 65 67 20 69 6E 20 22 .>un vatreg in "
019DA0: 79 6E 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D yn"..>if vatreg=
019DB0: 22 79 22 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D "y"..>if prconam
019DC0: 65 3D 22 79 22 0D 0A 3E 61 76 20 22 45 6E 74 65 e="y"..>av "Ente
019DD0: 72 20 79 6F 75 72 20 56 41 54 20 6E 75 6D 62 65 r your VAT numbe
019DE0: 72 20 5B 26 76 61 74 6E 75 6D 26 5D 3A 20 22 20 r [&vatnum&]: "
019DF0: 78 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 x..>if x<>""..>s
019E00: 76 20 76 61 74 6E 75 6D 3D 78 0D 0A 3E 65 69 0D v vatnum=x..>ei.
019E10: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 .>ei..>ei..>if v
019E20: 61 74 72 65 67 3C 3E 22 79 22 0D 0A 3E 73 76 20 atreg<>"y"..>sv
019E30: 65 78 6F 72 69 6E 63 3D 22 78 22 0D 0A 3E 65 6C exorinc="x"..>el
019E40: 0D 0A 3E 69 66 20 65 78 6F 72 69 6E 63 3D 22 78 ..>if exorinc="x
019E50: 22 0D 0A 3E 73 76 20 79 3D 22 58 2F 69 22 0D 0A "..>sv y="X/i"..
019E60: 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 78 2F 49 22 >el..>sv y="x/I"
019E70: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>ei..>rp..>av
019E80: 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 "Do you want to
019E90: 65 6E 74 65 72 20 70 72 69 63 65 73 20 65 78 20 enter prices ex
019EA0: 56 41 54 20 6F 72 20 69 6E 63 20 56 41 54 20 28 VAT or inc VAT (
019EB0: 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 &y&)? " x 1..>if
019EC0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 65 78 6F 72 x<>""..>sv exor
019ED0: 69 6E 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 inc=x..>ei..>un
019EE0: 65 78 6F 72 69 6E 63 20 69 6E 20 22 78 69 22 0D exorinc in "xi".
019EF0: 0A 3E 65 69 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D .>ei..>if askfn=
019F00: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
019F10: 22 22 0D 0A 3E 73 76 20 76 61 74 35 3D 78 0D 0A ""..>sv vat5=x..
019F20: 3E 65 69 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 >ei..>sv vat1=va
019F30: 74 31 2F 31 30 30 20 76 61 74 32 3D 76 61 74 32 t1/100 vat2=vat2
019F40: 2F 31 30 30 20 76 61 74 33 3D 76 61 74 33 2F 31 /100 vat3=vat3/1
019F50: 30 30 20 76 61 74 34 3D 76 61 74 34 2F 31 30 30 00 vat4=vat4/100
019F60: 20 76 61 74 35 3D 76 61 74 35 2F 31 30 30 0D 0A vat5=vat5/100..
019F70: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 >ei..>dm " "..>i
019F80: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
019F90: 64 6D 20 22 45 4E 54 45 52 20 50 52 4F 44 55 43 dm "ENTER PRODUC
019FA0: 54 20 41 4E 44 20 43 55 53 54 4F 4D 45 52 20 44 T AND CUSTOMER D
019FB0: 49 53 43 4F 55 4E 54 20 43 4F 44 45 53 22 0D 0A ISCOUNT CODES"..
019FC0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 61 >dm " "..>dm "Ea
019FD0: 63 68 20 70 72 6F 64 75 63 74 20 68 61 73 20 61 ch product has a
019FE0: 6E 20 61 73 73 6F 63 69 61 74 65 64 20 64 69 73 n associated dis
019FF0: 63 6F 75 6E 74 20 6E 75 6D 62 65 72 22 0D 0A 3E count number"..>
01A000: 64 6D 20 22 61 6E 64 20 66 6F 72 20 65 61 63 68 dm "and for each
01A010: 20 69 6E 76 6F 69 63 65 20 61 20 64 69 73 63 6F invoice a disco
01A020: 75 6E 74 20 6C 65 74 74 65 72 20 6D 61 79 20 62 unt letter may b
01A030: 65 20 75 73 65 64 22 0D 0A 3E 64 6D 20 22 20 22 e used"..>dm " "
01A040: 0D 0A 3E 64 6D 20 22 54 68 75 73 20 74 68 65 20 ..>dm "Thus the
01A050: 69 6E 76 6F 69 63 65 20 66 6F 72 20 61 6E 20 6F invoice for an o
01A060: 72 64 65 72 20 61 74 20 64 69 73 63 6F 75 6E 74 rder at discount
01A070: 20 41 20 77 69 6C 6C 20 62 65 22 0D 0A 3E 64 6D A will be"..>dm
01A080: 20 22 63 61 6C 63 75 6C 61 74 65 64 20 75 73 69 "calculated usi
01A090: 6E 67 20 64 69 73 63 6F 75 6E 74 20 72 61 74 65 ng discount rate
01A0A0: 73 20 41 31 2C 20 41 32 2C 20 41 33 20 65 74 63 s A1, A2, A3 etc
01A0B0: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
01A0C0: 22 54 68 65 20 76 61 6C 75 65 73 20 65 6E 74 65 "The values ente
01A0D0: 72 65 64 20 68 65 72 65 20 73 68 6F 75 6C 64 20 red here should
01A0E0: 62 65 20 70 65 72 63 65 6E 74 61 67 65 20 64 69 be percentage di
01A0F0: 73 63 6F 75 6E 74 73 22 0D 0A 3E 64 6D 20 22 46 scounts"..>dm "F
01A100: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
01A110: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
01A120: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
01A130: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 v "Do you want t
01A140: 6F 20 62 65 20 61 73 6B 65 64 20 66 6F 72 20 66 o be asked for f
01A150: 6F 6F 74 6E 6F 74 65 20 65 61 63 68 20 74 69 6D ootnote each tim
01A160: 65 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A e (&y&)? " x 1..
01A170: 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 >if x<>""..>sv a
01A180: 73 6B 66 6E 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E skfn=x..>ei..>un
01A190: 20 61 73 6B 66 6E 20 69 6E 20 22 79 6E 22 0D 0A askfn in "yn"..
01A1A0: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
01A1B0: 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C >sv y="Y/n"..>el
01A1C0: 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E ..>sv y="y/N"..>
01A1D0: 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 44 6F ei..>rp..>av "Do
01A1E0: 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 62 65 20 you want to be
01A1F0: 61 73 6B 65 64 20 66 6F 72 20 63 61 72 72 69 61 asked for carria
01A200: 67 65 20 65 61 63 68 20 74 69 6D 65 20 28 26 79 ge each time (&y
01A210: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
01A220: 3C 3E 22 22 0D 0A 3E 73 76 20 61 73 6B 63 61 72 <>""..>sv askcar
01A230: 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 61 73 6B =x..>ei..>un ask
01A240: 63 61 72 20 69 6E 20 22 79 6E 22 0D 0A 3E 73 76 car in "yn"..>sv
01A250: 20 64 61 73 68 65 73 3D 22 2D 2D 2D 2D 2D 2D 2D dashes="-------
01A260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A2A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 64 6D 20 ---------"..>dm
01A2B0: 22 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 " "..>dm " "..>d
01A2C0: 6D 20 4E 4F 57 20 43 4F 4E 46 49 47 55 52 45 20 m NOW CONFIGURE
01A2D0: 54 48 45 20 49 4E 56 4F 49 43 45 20 46 4F 52 4D THE INVOICE FORM
01A2E0: 41 54 20 46 4F 52 20 59 4F 55 52 20 53 54 41 54 AT FOR YOUR STAT
01A2F0: 49 4F 4E 45 52 59 0D 0A 3E 64 6D 20 22 20 22 0D IONERY..>dm " ".
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 00 02 09 4E E5 16 00 C1 02 00 00 00 02 ......N.........
01A320: 16 00 C6 02 00 00 00 02 16 00 C2 02 00 00 00 02 ................
01A330: 16 00 C7 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A340: 16 00 C8 02 00 00 00 02 16 00 C4 02 00 00 00 02 ................
01A350: 16 00 C9 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 6F 72 20 65 61 63 68 20 64 69 73 63 6F 75 6E 74 or each discount
01A410: 20 6C 65 74 74 65 72 20 65 6E 74 65 72 20 6C 69 letter enter li
01A420: 73 74 20 6F 66 20 64 69 73 63 6F 75 6E 74 73 20 st of discounts
01A430: 66 6F 72 20 22 0D 0A 3E 64 6D 20 22 70 72 6F 64 for "..>dm "prod
01A440: 75 63 74 20 74 79 70 65 31 2C 20 74 79 70 65 32 uct type1, type2
01A450: 2C 20 74 79 70 65 33 20 65 74 63 2C 20 73 65 70 , type3 etc, sep
01A460: 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73 arated by spaces
01A470: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 "..>dm " "..>av
01A480: 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 6F 72 "% Discounts for
01A490: 20 41 20 5B 26 64 69 73 63 41 26 5D 3A 20 22 20 A [&discA&]: "
01A4A0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
01A4B0: 3E 73 76 20 64 69 73 63 61 3D 78 0D 0A 3E 65 69 >sv disca=x..>ei
01A4C0: 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F 75 6E ..>av "% Discoun
01A4D0: 74 73 20 66 6F 72 20 42 20 5B 26 64 69 73 63 42 ts for B [&discB
01A4E0: 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C &]: " x..>if x <
01A4F0: 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 62 3D > ""..>sv discb=
01A500: 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 25 20 44 x..>ei..>av "% D
01A510: 69 73 63 6F 75 6E 74 73 20 66 6F 72 20 43 20 5B iscounts for C [
01A520: 26 64 69 73 63 43 26 5D 3A 20 22 20 78 0D 0A 3E &discC&]: " x..>
01A530: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
01A540: 64 69 73 63 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 discc=x..>ei..>a
01A550: 76 20 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 v "% Discounts f
01A560: 6F 72 20 44 20 5B 26 64 69 73 63 44 26 5D 3A 20 or D [&discD&]:
01A570: 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 " x..>if x <> ""
01A580: 0D 0A 3E 73 76 20 64 69 73 63 64 3D 78 0D 0A 3E ..>sv discd=x..>
01A590: 65 69 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F ei..>av "% Disco
01A5A0: 75 6E 74 73 20 66 6F 72 20 45 20 5B 26 64 69 73 unts for E [&dis
01A5B0: 63 45 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 cE&]: " x..>if x
01A5C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 <> ""..>sv disc
01A5D0: 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E e=x..>ei..>rp..>
01A5E0: 61 76 20 22 45 6E 74 65 72 20 6D 6F 73 74 20 75 av "Enter most u
01A5F0: 73 65 64 20 64 69 73 63 6F 75 6E 74 20 63 6F 64 sed discount cod
01A600: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
01A610: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
01A620: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
01A630: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
01A640: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
01A650: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
01A660: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
01A670: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
01A680: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
01A690: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
01A6A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
01A6B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
01A6C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
01A6D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
01A6E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
01A6F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
01A700: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
01A710: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
01A720: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
01A730: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
01A740: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
01A750: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
01A760: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
01A770: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
01A780: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
01A790: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
01A7A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
01A7B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
01A7C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
01A7D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
01A7E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
01A7F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
01A800: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
01A810: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
01A820: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
01A830: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
01A840: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
01A850: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
01A860: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
01A870: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
01A880: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
01A890: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
01A8A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
01A8B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
01A8C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
01A8D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
01A8E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
01A8F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
01A900: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
01A910: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
01A920: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
01A930: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
01A940: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
01A950: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
01A960: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
01A970: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
01A980: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
01A990: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
01A9A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
01A9B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
01A9C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
01A9D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
01A9E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
01A9F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
01AA00: 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 .>if x<>""..>sv
01AA10: 63 75 73 74 64 69 73 63 3D 78 0D 0A 3E 65 69 0D custdisc=x..>ei.
01AA20: 0A 3E 75 6E 20 63 75 73 74 64 69 73 63 20 69 6E .>un custdisc in
01AA30: 20 22 30 61 62 63 64 65 22 0D 0A 3E 65 69 0D 0A "0abcde"..>ei..
01AA40: 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 3D 22 22 0D >>>..>sv car="".
01AA50: 0A 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D .>if askcar="y".
01AA60: 0A 3E 72 70 0D 0A 3E 61 76 20 22 43 61 72 72 69 .>rp..>av "Carri
01AA70: 61 67 65 20 63 68 61 72 67 65 3A 20 22 2C 78 0D age charge: ",x.
01AA80: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
01AA90: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 61 72 =0..>ei..>sv car
01AAA0: 3D 78 2B 30 0D 0A 3E 75 6E 20 78 3D 63 61 72 0D =x+0..>un x=car.
01AAB0: 0A 3E 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F .>ei..>sv footno
01AAC0: 74 65 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E te=""..>if askfn
01AAD0: 3D 22 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E ="y"..>av "Footn
01AAE0: 6F 74 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D ote: ",footnote.
01AAF0: 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 .>ei..>if vatreg
01AB00: 3D 22 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 ="n"..>sv vat?="
01AB10: 6E 22 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 n"..>el..>rp..>a
01AB20: 76 20 22 49 73 20 56 41 54 20 63 68 61 72 67 65 v "Is VAT charge
01AB30: 61 62 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 able (Y/n)? " va
01AB40: 74 3F 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 t? 1..>if vat?="
01AB50: 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D "..>sv vat?="y".
01AB60: 0A 3E 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 .>ei..>un vat? i
01AB70: 6E 20 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E n "yn"..>ei..>>>
01AB80: 0D 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 ..>>> ask for or
01AB90: 64 65 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 der levels from
01ABA0: 6B 65 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E keyboard..>>>..>
01ABB0: 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A if useprod="y"..
01ABC0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E >dm " "..>dm "En
01ABD0: 74 65 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 ter quantities f
01ABE0: 6F 72 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 or the following
01ABF0: 20 70 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 products"..>dm
01AC00: 6B 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 kfn&,&askcar&,&u
01AC10: 73 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 seprod&,&defdisc
01AC20: 26 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 &'..>wm '&caline
01AC30: 26 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 &,&aline&,&tline
01AC40: 26 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 &,&totline&'..>w
01AC50: 6D 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C m '&side&,&rc1&,
01AC60: 26 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 &rc2&,&rc3&,&rc4
01AC70: 26 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 &,&rc5&'..>sv rc
01AC80: 31 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 1=rc1-1 rc2=rc2-
01AC90: 31 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 1 rc3=rc3-1 rc4=
01ACA0: 72 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D rc4-1 rc5=rc5-1.
01ACB0: 0A 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 .>sv r2c1=rc1 r2
01ACC0: 63 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 c2=rc2+3 r2c3=rc
01ACD0: 33 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 3+2 r2c4=rc4-2 r
01ACE0: 32 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 2c5=rc5-3..>sv r
01ACF0: 63 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 c1=rc1[w1] rc2=r
01AD00: 63 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 c2[w1] rc3=rc3[w
01AD10: 31 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 1] rc4=rc4[w1] r
01AD20: 63 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 c5=rc5[w1] ..>sv
01AD30: 20 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 ruler1=">"+dash
01AD40: 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 es[1:&n&]+"!"+da
01AD50: 73 68 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 shes[1:10]+"L"+d
01AD60: 61 73 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D ashes[1:17]+"R".
01AD70: 0A 3E 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B .>sv ruler2=">"+
01AD80: 64 61 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B dashes[1:&rc1&]+
01AD90: 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 "!"+dashes[1:&rc
01ADA0: 32 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 2&]+"!"+dashes[1
01ADB0: 3A 26 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 :&rc3&]+"!"..>sv
01ADC0: 20 72 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 ruler2=ruler2+d
01ADD0: 61 73 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 ashes[1:&rc4&]+"
01ADE0: 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 !"+dashes[1:&rc5
01ADF0: 26 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 &]+"R"..>sv r3c3
01AE00: 22 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 "Typing anything
01AE10: 20 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 other than a nu
01AE20: 6D 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 mber will skip a
01AE30: 6C 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F ll remaining pro
01AE40: 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D ducts"..>dm " ".
01AE50: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
01AE60: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
01AE70: 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 ..>sv quant&n&="
01AE80: 30 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 0"..>un n=maxn..
01AE90: 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >>>..>sv n=0..>r
01AEA0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
01AEB0: 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 [w1]..>sv prompt
01AEC0: 3D 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 =desc&n&..>if pr
01AED0: 6F 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 ompt[25]=""..>sv
01AEE0: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 prompt=prompt+"
01AEF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AF00: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
01AF10: 76 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B v prompt=prompt[
01AF20: 31 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 1:25]..>ei..>av
01AF30: 22 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D "&prompt& : " x.
01AF40: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
01AF50: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 =0..>ei..>sv qua
01AF60: 6E 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 nt&n&=x+0..>if x
01AF70: 3C 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 <>quant&n&..>sv
01AF80: 71 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 quant&n&="0"..>s
01AF90: 76 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D v n=maxn n=n[w1]
01AFA0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 ..>ei..>if n=max
01AFB0: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 n..>dm " "..>av
01AFC0: 22 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 "Re-enter order
01AFD0: 28 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 (y/N)? " yesno 1
01AFE0: 0D 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D ..>if yesno="y".
01AFF0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 .>sv n=0..>dm "
01B000: 3D 72 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C =r2c3-2..>sv rul
01B010: 65 72 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 er3=">"+dashes[1
01B020: 3A 26 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 :&r2c1&]+"!"+das
01B030: 68 65 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D hes[1:&r2c2&]+"-
01B040: 2D 2E 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 -."+dashes[1:&r3
01B050: 63 33 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 c3&]+"."..>sv ru
01B060: 6C 65 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 ler3=ruler3+dash
01B070: 65 73 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 es[1:&r2c4&]+"."
01B080: 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 +dashes[1:&r2c5&
01B090: 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 ]+"R"..>sv ruler
01B0A0: 34 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 4=">"+dashes[1:&
01B0B0: 6E 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 n&]+"!"+dashes[1
01B0C0: 3A 31 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B :14]+"L"+dashes[
01B0D0: 31 3A 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 1:7]+".--R"..>sv
01B0E0: 20 6E 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 n=iwidth-2..>sv
01B0F0: 20 72 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 ruler5=">"+dash
01B100: 65 73 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E es[1:&n&]+"R"..>
01B110: 77 6D 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D wm '"&ruler1&"'.
01B120: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 .>wm '"&ruler2&"
01B130: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 '..>wm '"&ruler3
01B140: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
01B150: 72 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 r4&"'..>wm '"&ru
01B160: 6C 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 ler5&"'..>wm '!c
01B170: 6F 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 oname!'..>wm '!c
01B180: 6F 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 oaddr1!'..>wm '!
01B190: 63 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 coaddr2!'..>wm '
01B1A0: 21 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 !coaddr3!'..>wm
01B1B0: 27 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D '!coaddr4!'..>wm
01B1C0: 20 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 '!coaddr5!'..>w
01B1D0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 c..>cf..>ex era
01B1E0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 ominvgen.inf..>i
01B1F0: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F d cpm..>ex ren o
01B200: 6C 20 66 6D 61 64 64 7C 31 33 7C 79 7C 36 33 39 l fmadd|13|y|639
01B210: 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 0D 0A 3E 3E ||16|ps|13|...>>
01B220: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
01B230: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
01B240: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
01B250: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
01B260: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
01B270: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
01B280: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
01B290: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
01B2A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
01B2B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
01B2C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
01B2D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
01B2E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
01B2F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
01B300: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
01B310: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
01B320: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
01B330: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
01B340: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
01B350: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
01B360: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
01B370: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
01B380: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
01B390: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
01B3A0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
01B3B0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
01B3C0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
01B3D0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
01B3E0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
01B3F0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
01B400: 6D 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 minvgen.inf omte
01B410: 6D 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 mp.inf..>el..>ex
01B420: 20 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 ren omtemp.inf
01B430: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 ominvgen.inf..>e
01B440: 69 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 i..>df omenu..>s
01B450: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 k 0=0..>ei ; opt
01B460: 3D 22 65 22 0D 0A 1A 6C 65 0D 0A 3E 6E 63 20 32 ="e"...le..>nc 2
01B470: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
01B480: 79 20 68 20 5E 31 35 39 5E 5E 32 30 36 5E 0D 0A y h ^159^^206^..
01B490: 7C 31 36 7C 1A 20 62 20 5E 31 35 39 5E 5E 32 33 |16|. b ^159^^23
01B4A0: 34 5E 0D 0A 6B 65 79 20 63 20 5E 31 35 39 5E 5E 4^..key c ^159^^
01B4B0: 32 33 35 5E 0D 0A 6B 65 79 20 64 20 5E 31 35 39 235^..key d ^159
01B4C0: 5E 5E 32 33 38 5E 0D 0A 6B 65 79 20 65 20 5E 31 ^^238^..key e ^1
01B4D0: 35 39 5E 5E 31 39 33 5E 0D 0A 6B 65 79 20 66 20 59^^193^..key f
01B4E0: 5E 31 35 39 5E 5E 32 30 32 5E 0D 0A 6B 65 79 20 ^159^^202^..key
01B4F0: 67 20 5E 31 35 39 5E 5E 32 30 33 5E 0D 0A 6B 65 g ^159^^203^..ke
01B500: C0 CD A1 82 21 6C 4F CD B7 80 DC 5F 80 E1 CD 31 ....!lO...._...1
01B510: 3F CD 9A 09 C7 FE 20 11 4F AB 38 24 FE 7F CA E1 ?..... .O.8$....
01B520: 65 FE 9F 28 2B FE C0 CA 98 50 DA FB A7 FE C8 DA e..(+....P......
01B530: AC 62 FE D0 DA C0 69 FE FD C8 D6 D0 D8 11 F7 AA .b....i.........
01B540: 4F F5 C5 06 00 EB 09 09 CD 5F 3B C1 F1 EB D5 C9 O........_;.....
01B550: CD 4B 0A 57 3E 9F C3 FB A7 CD 59 74 30 0C CD 63 .K.W>.....Yt0..c
01B560: 78 EB C9 CD 9E 1B DC 75 23 C9 EB CD 61 40 21 FF x......u#...a@!.
01B570: 4C CD 64 40 06 10 21 E4 24 C3 75 0F 06 26 CD 61 L.d@..!.$.u..&.a
01B580: 40 18 F3 CD 59 74 D2 89 1D 11 24 4B CD 59 78 D0 @...Yt....$K.Yx.
01B590: CD 75 20 CD 9A 78 D0 C3 81 75 E5 CD 5D 33 EB E1 .u ..x...u..]3..
01B5A0: D0 DD 21 AC 3C CD 25 79 CD C6 78 30 25 E5 DD E5 ..!.<.%y..x0%...
01B5B0: CD 6A 64 DD E1 C1 CD 29 7A F5 E5 09 23 77 E1 F1 .jd....)z...#w..
01B5C0: D0 CD 50 7B 37 C9 EB CD 9F 3E ED 5B 82 3C D0 C3 ..P{7....>.[.<..
01B5D0: 54 3B 21 34 3D DD 21 C8 3C CD 1B 79 11 AC 3C CD T;!4=.!.<..y..<.
01B5E0: 0E 7E D0 CD 4C 5A CD 0E 79 CD 8E 5D D0 CD 52 81 .~..LZ..y..]..R.
01B5F0: D0 21 C8 3C 11 28 3D CD F1 31 D0 21 28 3D DD 21 .!.<.(=..1.!(=.!
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 00 02 09 4E E5 17 00 C1 02 00 00 00 02 ......N.........
01B620: 17 00 C6 02 00 00 00 02 17 00 C2 02 00 00 00 02 ................
01B630: 17 00 C7 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B640: 17 00 C8 02 00 00 00 02 17 00 C4 02 00 00 00 02 ................
01B650: 17 00 C9 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B900: 6C 20 66 6D 6D 65 72 67 65 7C 31 33 7C 79 7C 36 l fmmerge|13|y|6
01B910: 33 39 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 3E 3E 39||16|ps|13|.>>
01B920: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
01B930: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
01B940: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
01B950: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
01B960: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
01B970: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
01B980: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
01B990: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
01B9A0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
01B9B0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
01B9C0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
01B9D0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
01B9E0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
01B9F0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
01BA00: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
01BA10: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
01BA20: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
01BA30: 6C 65 6E 3D 6D 61 78 0D 0A 3E 72 70 0D 0A 3E 73 len=max..>rp..>s
01BA40: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
01BA50: 0A 3E 69 66 20 70 61 64 3D 22 79 22 0D 0A 3E 73 .>if pad="y"..>s
01BA60: 76 20 76 26 6E 26 3D 22 22 0D 0A 3E 65 6C 0D 0A v v&n&=""..>el..
01BA70: 3E 73 76 20 73 3D 70 26 6E 26 0D 0A 3E 61 76 20 >sv s=p&n&..>av
01BA80: 22 26 73 26 22 20 76 26 6E 26 0D 0A 3E 69 66 20 "&s&" v&n&..>if
01BA90: 66 76 3D 22 76 22 0D 0A 3E 69 66 20 76 26 6E 26 fv="v"..>if v&n&
01BAA0: 3D 22 22 0D 0A 3E 73 76 20 70 61 64 3D 22 79 22 =""..>sv pad="y"
01BAB0: 20 76 6C 65 6E 3D 6E 20 63 68 6B 6C 65 6E 3D 6E vlen=n chklen=n
01BAC0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 -1..>ei..>ei..>e
01BAD0: 69 0D 0A 3E 75 6E 20 6E 3E 3D 6D 61 78 0D 0A 3E i..>un n>=max..>
01BAE0: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 >>..>dm " "..>rp
01BAF0: 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 20 43 ..>av " C
01BB00: 6C 20 66 6D 66 69 6E 64 7C 31 33 7C 79 7C 36 33 l fmfind|13|y|63
01BB10: 39 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 0A 3E 3E 9||16|ps|13|..>>
01BB20: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
01BB30: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
01BB40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
01BB50: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
01BB60: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
01BB70: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
01BB80: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
01BB90: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
01BBA0: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
01BBB0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
01BBC0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
01BBD0: 6E 26 0D 0A 3E 77 6D 20 26 73 26 0D 0A 3E 69 66 n&..>wm &s&..>if
01BBE0: 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 s=""..>sv n=rle
01BBF0: 6E 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 72 6C n..>ei..>un n=rl
01BC00: 65 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E en..>ei ; f/v..>
01BC10: 73 76 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 sv nn=nn+1..>el
01BC20: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E ; f1=end..>sv nn
01BC30: 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 =nn[w1]..>dm " "
01BC40: 0D 0A 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 6F ..>wt "&nn& reco
01BC50: 72 64 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 rds found. Press
01BC60: 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E a key to contin
01BC70: 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 ue .....>wc..>cf
01BC80: 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 65 .; let exec have
01BC90: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 handle 0..>ex e
01BCA0: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
01BCB0: 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B ..>sk 0=0..>ei ;
01BCC0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
01BCD0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
01BCE0: 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 31 20 2D 20 m "Option S.1 -
01BCF0: 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 Select records (
01BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C100: C3 05 2D 00 00 00 CD AB 05 25 24 20 05 7D FE 30 ..-......%$ .}.0
01C110: 30 09 11 63 04 CD A3 05 C3 00 00 3A 05 01 B7 C0 0..c..£....:....
01C120: 3D 32 05 01 00 00 00 00 00 00 00 00 00 00 00 00 =2..............
01C130: 00 06 01 0E 00 CD 2A 23 D2 00 00 22 BC 01 2A 01 ......*#..."..*.
01C140: 00 11 57 00 19 23 7E 32 96 05 23 7E 32 97 05 CD ..W..#~2..#~2...
01C150: 85 05 32 BB 01 97 32 79 01 3C 32 77 01 21 00 00 ..2...2y.<2w.!..
01C160: 22 B6 01 22 B8 01 CD 92 0C D2 00 00 CD 76 13 CD "..".........v..
01C170: 6E 1F CD 04 24 37 C9 00 00 00 00 00 00 00 00 00 n...$7..........
01C180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C1F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2E0: 00 00 00 00 00 00 00 00 44 72 69 76 65 A0 20 2D ........Drive. -
01C2F0: 20 52 65 74 72 79 2C 20 49 67 6E 6F 72 65 20 6F Retry, Ignore o
01C300: 6C 20 66 6D 70 72 69 6E 74 7C 31 33 7C 79 7C 36 l fmprint|13|y|6
01C310: 33 39 7C 7C 31 36 7C 70 7C 31 33 7C 1A 0A 3E 3E 39||16|p|13|..>>
01C320: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
01C330: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
01C340: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
01C350: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
01C360: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
01C370: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
01C380: 6D 20 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E m "Searching ...
01C390: 22 0D 0A 3E 73 76 20 6E 6E 3D 30 0D 0A 3E 64 66 "..>sv nn=0..>df
01C3A0: 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 fm.mus..>rv mus
01C3B0: 0D 0A 3E 63 66 0D 0A 3E 69 66 20 6D 75 73 3D 22 ..>cf..>if mus="
01C3C0: 6D 22 0D 0A 3E 64 66 20 26 64 66 26 20 66 6D 65 m"..>df &df& fme
01C3D0: 6E 64 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 nd..>ei..>if mus
01C3E0: 3D 22 75 22 0D 0A 3E 64 66 20 26 6E 65 77 66 69 ="u"..>df &newfi
01C3F0: 6C 65 26 20 66 6D 65 6E 64 0D 0A 3E 65 69 0D 0A le& fmend..>ei..
01C400: 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A 3E 64 66 >if mus="s"..>df
01C410: 20 26 73 65 6C 66 69 6C 65 26 20 66 6D 65 6E 64 &selfile& fmend
01C420: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 ..>ei..>wf &self
01C430: 69 6C 65 26 0D 0A 3E 3E 3E 0D 0A 3E 65 69 20 3B ile&..>>>..>ei ;
01C440: 20 69 75 20 64 66 0D 0A 1A 70 6F 66 66 0D 0A 3E iu df...poff..>
01C450: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
01C460: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
01C470: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
01C480: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
01C490: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A o continue .....
01C4A0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
01C4B0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
01C4C0: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 .>sk 0=0..>ei ;
01C4D0: 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 id df..>>>..>iu
01C4E0: 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D df..>cs " "..>dm
01C4F0: 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 53 "Option S.3 - S
01C500: 72 20 43 61 6E 63 65 6C 3F A0 44 69 73 63 20 65 r Cancel?.Disc e
01C510: 72 72 6F F2 44 69 73 63 20 6D 69 73 73 69 6E 67 rro.Disc missing
01C520: 20 6F 72 20 72 65 61 64 20 66 61 69 EC 46 69 6C or read fai.Fil
01C530: 65 20 69 73 20 72 65 61 64 20 6F 6E 6C F9 44 72 e is read onl.Dr
01C540: 69 76 65 20 6E 6F 74 20 72 65 61 64 F9 57 72 69 ive not read.Wri
01C550: 74 65 20 70 72 6F 74 65 63 74 65 E4 53 65 65 6B te protecte.Seek
01C560: 20 66 61 69 EC 44 61 74 61 20 65 72 72 6F F2 4E fai.Data erro.N
01C570: 6F 20 64 61 74 E1 4D 69 73 73 69 6E 67 20 61 64 o dat.Missing ad
01C580: 64 72 65 73 73 20 6D 61 72 EB 42 61 64 20 66 6F dress mar.Bad fo
01C590: 72 6D 61 F4 80 4D 65 64 69 61 20 63 68 61 6E 67 rma..Media chang
01C5A0: 65 E4 44 69 73 63 20 75 6E 73 75 69 74 61 62 6C e.Disc unsuitabl
01C5B0: 65 20 66 6F 72 20 64 72 69 76 E5 44 69 72 65 63 e for driv.Direc
01C5C0: 74 6F 72 79 20 66 75 6C EC 44 69 73 63 20 66 75 tory ful.Disc fu
01C5D0: 6C EC 46 69 6C 65 20 6E 6F 74 20 66 6F 75 6E E4 l.File not foun.
01C5E0: 42 61 64 20 66 69 6C 65 6E 61 6D E5 4D 61 78 69 Bad filenam.Maxi
01C5F0: 6D 75 6D 20 6E 75 6D 62 65 72 20 6F 66 20 66 69 mum number of fi
01C600: 6C 65 73 20 6F 70 65 EE 42 61 64 20 66 69 6C 65 les ope.Bad file
01C610: 20 6F 70 65 6E 20 6D 6F 64 E5 41 72 65 20 79 6F open mod.Are yo
01C620: 75 20 73 75 72 65 20 28 79 2F 6E 29 3F A0 2A 2E u sure (y/n)?.*.
01C630: 2A 00 2A 2E 67 72 70 00 4B 20 66 72 65 E5 20 67 *.*.grp.K fre. g
01C640: 72 6F 75 F0 49 6E 73 75 66 66 69 63 69 65 6E 74 rou.Insufficient
01C650: 20 6D 65 6D 6F 72 79 20 66 6F 72 20 70 72 6F 67 memory for prog
01C660: 72 61 ED 54 68 69 73 20 70 72 6F 67 72 61 6D 20 ra.This program
01C670: 77 69 6C 6C 20 6F 6E 6C 79 20 72 75 6E 20 75 6E will only run un
01C680: 64 65 72 20 41 6D 73 74 72 61 64 20 43 50 2F 4D der Amstrad CP/M
01C690: 20 50 6C 75 73 24 0C 02 00 01 03 FE 00 00 00 00 Plus$..........
01C6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C6E0: 00 00 00 00 00 00 00 00 00 00 00 00 38 06 32 4C ............8.2L
01C6F0: 66 00 C3 3C 18 00 3C C3 38 C0 00 00 00 26 BB C3 f..<..<.8....&..
01C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 00 02 09 4E E5 18 00 C1 02 00 00 00 02 ......N.........
01C920: 18 00 C6 02 00 00 00 02 18 00 C2 02 00 00 00 02 ................
01C930: 18 00 C7 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C940: 18 00 C8 02 00 00 00 02 18 00 C4 02 00 00 00 02 ................
01C950: 18 00 C9 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 91 05 E5 2E 1B 18 F6 E5 2E 1E 18 F1 E5 2E 21 18 ..............!.
01CA10: EC E5 2E 2A 18 E7 E5 2E 30 18 E2 E5 2E 36 18 DD ...*....0....6..
01CA20: E5 2E 39 18 D8 E5 2E 5A 18 D3 E5 2E 66 18 CE E5 ..9....Z....f...
01CA30: 2E 6C 18 C9 E5 21 0B BC 18 57 E5 21 0E BC 18 51 .l...!...W.!...Q
01CA40: E5 21 1A BC 18 4B E5 21 32 BC 18 45 E5 21 38 BC .!...K.!2..E.!8.
01CA50: 18 3F E5 21 50 BC 18 39 E5 2E 98 18 32 E5 2E B6 .?.!P..9....2...
01CA60: 18 2D E5 2E B9 18 28 E5 2E BF 18 23 E5 2E CE 18 .-....(....#....
01CA70: 1E E5 2E D7 18 19 E5 2E DA 18 14 E5 2E DD 18 0F ................
01CA80: E5 2E E0 18 0A E5 2E E3 18 05 E5 2E E6 18 00 26 ...............&
01CA90: 00 22 98 05 E1 CD 00 00 00 00 C9 3E 05 18 72 3E .".........>..r>
01CAA0: 06 18 6E 3E 09 18 6A 3E 0B 18 66 3E 0C 18 62 3E ..n>..j>..f>..b>
01CAB0: 0E 18 6F 3E 0F 18 73 3E 10 18 6F 3E 11 C3 2A 06 ..o>..s>..o>..*.
01CAC0: 3E 12 C3 2A 06 3E 13 18 61 3E 16 18 5D 3E 17 18 >..*.>..a>..]>..
01CAD0: 59 3E 18 18 3C 3E 19 18 38 3E 1A 18 34 3E 1E 18 Y>..<>..8>..4>..
01CAE0: 49 3E 20 18 2C 3E 21 18 41 3E 22 18 3D 3E 23 18 I> .,>!.A>".=>#.
01CAF0: 39 3E 25 18 1C 3E 2C 18 18 3E 2D 18 14 3E 2E 18 9>%..>,..>-..>..
01CB00: 21 3E 2F 18 25 3E 31 18 08 3E 6C 18 04 3E 98 18 !>/.%>1..>l..>..
01CB10: 00 FD E5 DD E5 D5 C5 4F CD 05 00 C1 D1 DD E1 FD .......O........
01CB20: E1 C9 F5 7B 32 BF 01 F1 18 0A F5 1A 3D FC 05 24 ...{2.......=..$
01CB30: 32 BF 01 F1 32 BE 01 3A BE 01 CD 11 06 3C 28 03 2...2..:.....<(.
01CB40: 3D 37 C9 7C B7 37 28 1A FE 08 37 28 15 FD E5 DD =7.|.7(...7(....
01CB50: E5 E5 D5 C5 CD 8E 24 C1 D1 E1 DD E1 FD E1 38 02 ......$.......8.
01CB60: 28 D5 3E FF C9 3A 05 01 B7 C8 97 32 05 01 CD 0D (.>..:.....2....
01CB70: 14 CD F9 0D C9 F5 E5 21 79 01 FE 20 38 01 34 FE .......!y.. 8.4.
01CB80: 0D 20 02 36 00 21 77 01 CB 76 20 1A CB 46 28 05 . .6.!w..v ..F(.
01CB90: FE 9F C4 1F 0E CB 7E 20 0A CB 4E C4 D7 06 CB 56 ......~ ..N....V
01CBA0: C4 FD 06 E1 F1 C9 2A 4C 0C 77 23 22 4C 0C 18 F3 ......*L.w#"L...
01CBB0: 3A 79 01 B7 CA 83 10 CD BE 06 3E 0A 18 B7 3E 0D :y........>...>.
01CBC0: 18 B3 3E 08 CD D0 06 3E 08 18 AA CD D3 06 18 03 ..>....>........
01CBD0: CD 75 06 3E 20 18 9E CD 0F 07 D8 FE 9F 37 C8 F5 .u.> ........7..
01CBE0: FE 80 38 02 3E 2E F5 CD C1 22 38 0B CD 43 0F CD ..8.>...."8..C..
01CBF0: 53 07 30 2D F1 18 EF F1 CD 53 0F F1 C9 CD 0F 07 S.0-.....S......
01CC00: C9 E5 CD F1 0E EB CD EB 0E 19 E5 21 00 00 CD C9 ...........!....
01CC10: 0F CD 1A 0F E1 CD B7 0E E1 C9 D5 E5 22 9E 04 EB ............"...
01CC20: B7 ED 52 EB ED 53 A0 04 7C B5 20 0B EB CD C9 0F ..R..S..|. .....
01CC30: EB 7A AC 20 02 7B AD 32 A2 04 CD 93 11 CD A0 10 .z. .{.2........
01CC40: E1 D1 C9 F5 3A A3 04 CB 5F CB DF 32 A3 04 CC ED ....:£.._..2£...
01CC50: 12 F1 C9 F5 3A A3 04 CB 5F CB 9F 32 A3 04 C4 ED ....:£.._..2£...
01CC60: 12 F1 C9 E6 07 21 A9 04 BE C8 C5 D5 4E 77 79 F5 .....!......Nwy.
01CC70: CD 95 0F EB 21 9C 04 CD 8C 0C 3A A9 04 CD 95 0F ....!.....:.....
01CC80: 11 9C 04 CD 8C 0C CD EB 0E E5 CD 93 11 E1 CD B7 ................
01CC90: 0E F1 D1 C1 C9 21 AA 04 01 08 00 3C 3D C8 09 3D .....!.....<=..=
01CCA0: 20 FC C9 11 AA 04 3E 08 21 9C 04 CD 8C 0C 3D 20 .....>.!.....=
01CCB0: F7 C9 3E 02 CD 5C 22 CC 3A 05 CD 01 0F CD A0 10 ..>..\".:.......
01CCC0: 3E 79 CD 36 12 CD A3 0F C9 F5 CD 5C 22 28 06 F1 >y.6..£....\"(..
01CCD0: 16 59 1E 1E C9 F1 16 4F 1E 17 C9 F5 E5 21 A3 04 .Y.....O.....!£.
01CCE0: CB FE E1 F1 C9 F5 E5 21 A3 04 CB BE E1 F1 C9 3A .......!£......:
01CCF0: A3 04 EE 80 32 A3 04 C9 F5 E5 CD EB 0E 24 3A A1 £...2£.......$:.
01CD00: 04 3C BC 30 05 CD 8A 10 18 03 CD B7 0E E1 F1 C9 .<.0............
01CD10: F5 E5 CD EB 0E 25 20 0B CD 6F 10 CD EB 0E 3A A1 .....% ..o....:.
01CD20: 04 3C 67 CD B7 0E E1 F1 C9 FE 0D 28 3A FE 0A 28 .<g........(:..(
01CD30: 5C FE 08 28 DB FE 0B 28 36 FE 0C CA AB 10 FE 09 \..(...(6.......
01CD40: 28 B6 FE 07 28 19 FE 01 28 39 FE 12 28 74 FE 18 (...(...(9..(t..
01CD50: 28 9D FE 1E 28 4A C9 F5 3E 20 CD 1F 0E F1 C9 F5 (...(J..> ......
01CD60: 3E 07 CD 2B 12 F1 C9 F5 3E 01 CD D5 0E F1 C9 F5 >..+....>.......
01CD70: E5 CD EB 0E 2D 20 06 CD DB 10 CD EB 0E CD B7 0E ....- ..........
01CD80: E1 F1 C9 E5 CD EB 0E 25 E1 C8 CD 67 10 F5 E5 21 .......%...g...!
01CD90: 9C 04 34 21 A5 04 35 CC 1F 11 CD 0C 12 E1 F1 C9 ..4!..5.........
01CDA0: F5 E5 26 01 6C CD B7 0E E1 F1 C9 CD 5C 22 28 07 ..&.l.......\"(.
01CDB0: 3E 45 CD 36 12 18 09 CD B8 11 CD 2F 05 CD 04 0E >E.6......./....
01CDC0: 18 DE F5 C5 D5 E5 CD EB 0E E5 3A A6 04 3D 47 CD ..........:..=G.
01CDD0: 5C 12 E1 CD B7 0E E1 D1 C1 F1 C9 C5 D5 CD 5C 22 \.............\"
01CDE0: 28 2F ED 5B A0 04 3E 59 BA 28 1C 2A 9E 04 16 00 (/.[..>Y.(.*....
01CDF0: 19 54 5D 2D 3A A0 04 47 B7 28 07 CD 66 11 1D 2D .T]-:..G.(..f..-
01CE00: D8 F5 C5 47 3A 78 01 CD C1 19 30 0C C1 F1 C9 FE ...G:x....0.....
01CE10: 0D C8 FE 0A C8 FE 20 C9 21 77 01 CB 96 2A B6 01 ...... .!w...*..
01CE20: E9 21 77 01 CB 8E 2A B8 01 E9 CD B0 06 7E 23 FE .!w...*......~#.
01CE30: BA 28 0F FE 9F 28 09 FE 80 38 07 E6 7F C3 75 06 .(...(...8....u.
01CE40: 7E 23 CD 75 06 18 E6 E5 C5 47 C5 CD B2 14 C1 78 ~#.u.....G.....x
01CE50: C1 E1 C9 CD 47 07 37 C8 C5 47 C5 CD D1 14 CD 43 ....G.7..G.....C
01CE60: 0F CD 8B 14 CD 53 0F FE FC 3A BA 01 F5 D4 18 1B .....S...:......
01CE70: F1 C1 78 C1 C9 FE E1 DA 92 25 FE FB D0 D6 20 C9 ..x......%.... .
01CE80: 4C 7D 06 10 21 00 00 CB 39 1F 30 01 19 EB 29 EB L}..!...9.0...).
01CE90: 10 F5 C9 CD 99 07 67 69 C9 4D 7C 21 00 00 06 10 ......gi.M|!....
01CEA0: CB 11 17 ED 6A ED 52 30 01 19 3F 10 F3 CB 11 17 ....j.R0..?.....
01CEB0: C9 7C 90 C0 7D 91 C9 B7 DD E5 E3 ED 42 09 E3 DD .|..}.......B...
01CEC0: E1 C9 E5 F5 3A 79 01 3C 67 F1 BC 38 0A 94 E1 C8 ....:y.<g..8....
01CED0: C5 47 CD 5E 08 C1 C9 E1 F5 CD B0 06 F1 18 E3 C5 .G.^............
01CEE0: 06 06 AF 18 1F C5 06 05 3E 30 18 18 C5 06 02 3E ........>0.....>
01CEF0: 30 18 11 C5 06 05 18 0A C5 06 02 18 05 C5 06 03 0...............
01CF00: 18 00 3E 20 D5 E5 50 CD 2C 08 42 2B 3E 06 90 20 ..> ..P.,.B+>..
01CF10: 08 23 05 7E B7 28 FA 18 04 23 3D 20 FC CD 70 08 .#.~.(...#= ..p.
01CF20: E1 E1 E1 E1 D1 C1 C9 3E 20 18 01 AF C1 E5 E5 E5 .......> .......
01CF30: C5 DD E5 D5 EB 21 06 00 39 E5 E5 DD E1 06 06 77 .....!..9......w
01CF40: 23 10 FC 7A 4B 11 0A 00 CD 9B 07 47 7D F6 30 DD #..zK......G}.0.
01CF50: 77 04 DD 2B 78 B1 78 20 EF E1 D1 DD E1 C9 04 05 w..+x.x ........
01CF60: C8 3E 20 CD 75 06 10 FB C9 CD 9F 08 23 10 FA C9 .> .u.......#...
01CF70: CD 83 08 23 10 FA C9 E6 7F FE 7F 28 03 FE 20 D0 ...#.......(.. .
01CF80: 3E 2E C9 7E CD 77 08 C3 75 06 E6 0F C6 30 FE 3A >..~.w..u....0.:
01CF90: D8 C6 07 C9 7C CD A3 08 7D CD A3 08 C3 D3 06 7E ....|.£.}.£....~
01CFA0: 18 F7 7E F5 0F 0F 0F 0F CD AC 08 F1 CD 8A 08 C3 ..~.............
01CFB0: 75 06 7C CD A3 08 7D 18 EA DD E5 E3 CD E5 25 E3 u.|.£.}.......%.
01CFC0: DD E1 3F C9 DD E5 E3 CD FE 25 E3 DD E1 3F C9 11 ..?......%...?..
01CFD0: 00 00 DD 7E 00 CD E4 08 D0 DD 23 EB 29 EB 1F 30 ...~......#.)..0
01CFE0: F1 13 18 EE FE 32 D0 FE 30 3F C9 D5 C9 C5 C9 DD .....2..0?......
01CFF0: E9 36 00 D5 1E 00 CD 07 09 D1 C9 36 00 D5 1E 00 .6.........6....
01D000: 10 F9 CD 85 11 18 15 CD CB 11 3E 49 CD 36 12 18 ..........>I.6..
01D010: 0B CD F1 0E 30 F1 06 00 AF CD 52 05 D1 C1 C9 C5 ....0.....R.....
01D020: D5 21 9C 04 35 21 A5 04 34 CD 5C 22 28 2B 3A A1 .!..5!..4.\"(+:.
01D030: 04 FE 59 28 19 2A 9E 04 54 5D 2C 3A A0 04 47 B7 ..Y(.*..T],:..G.
01D040: 28 07 CD 66 11 1C 2C 10 F9 CD 85 11 18 08 CD CB (..f..,.........
01D050: 11 3E 0A CD 2B 12 D1 C1 C9 CD F1 0E 30 F0 06 01 .>..+.......0...
01D060: AF CD 52 05 18 F0 C5 D5 E5 CD 20 12 EB CD 20 12 ..R....... ... .
01D070: EB 3A A1 04 3C 06 00 87 87 CB 10 87 CB 10 4F CD .:..<.........O.
01D080: 26 12 C3 11 0E CD EB 0E E5 CD 67 10 CD C2 10 E1 &.........g.....
01D090: C3 B7 0E CD 5C 22 C8 D5 E5 2A 9E 04 ED 5B A0 04 ....\"...*...[..
01D0A0: 3E 58 CD 36 12 7D CD 29 12 7C CD 29 12 7B CD 29 >X.6.}.).|.).{.)
01D0B0: 12 7A CD 29 12 E1 D1 C9 C5 D5 E5 2A 9E 04 ED 5B .z.).......*...[
01D0C0: A0 04 EB 19 EB CD 2A 05 C3 11 0E C5 D5 E5 CD EB ......*.........
01D0D0: 0E 3E 59 CD 36 12 7D C6 1F CD 2B 12 7C C6 1F CD .>Y.6.}...+.|...
01D0E0: 2B 12 C3 11 0E C5 D5 E5 CD 67 05 78 41 4F 7A 53 +........g.xAOzS
01D0F0: 5F 7C 65 6F ED 43 9E 04 ED 53 A0 04 22 9C 04 C3 _|eo.C...S.."...
01D100: 11 0E CD 5C 22 CA 34 05 21 00 00 C9 C5 D5 E5 2A ...\".4.!......*
01D110: 9C 04 ED 5B 9E 04 19 CD 20 12 22 A7 04 C3 11 0E ...[.... .".....
01D120: C3 00 00 01 08 00 C3 00 00 C6 20 E5 D5 F5 5F CD .......... ..._.
01D130: 9F 05 F1 D1 E1 C9 F5 3E 1B CD 2B 12 F1 18 EC CD .......>..+.....
01D140: 83 10 7E 23 FE BA 28 0F FE 9F 28 09 FE 80 38 07 ..~#..(...(...8.
01D150: E6 7F C3 1F 0E 7E 23 CD 1F 0E 18 E6 04 05 C8 CD .....~#.........
01D160: 57 10 10 FB C9 C5 D5 E5 E5 E5 E5 E5 21 00 00 39 W...........!..9
01D170: D5 54 5D 6F 26 10 CD 5C 22 28 02 26 17 29 29 29 .T]o&..\"(.&.)))
01D180: D5 CD 23 12 E1 D1 CD 8C 0C E1 E1 E1 E1 C3 11 0E ..#.............
01D190: C5 D5 E5 E5 E5 E5 E5 21 00 00 39 E5 EB CD 8C 0C .......!..9.....
01D1A0: EB 6F 26 10 CD 5C 22 28 02 26 17 29 29 29 EB E1 .o&..\"(.&.)))..
01D1B0: CD 23 12 E1 E1 E1 E1 C3 11 0E C5 D5 E5 ED 5B A7 .#............[.
01D1C0: 04 CD C7 12 C3 11 0E 21 F0 FF 39 F9 CD 2B 13 EB .......!..9..+..
01D1D0: 21 08 00 19 EB AF F5 CD 65 12 CD 1C 13 28 06 F1 !.......e....(..
01D1E0: 3C 20 F3 18 02 F1 37 06 10 33 10 FD C9 F5 C5 D5 < ....7..3......
01D1F0: E5 21 F8 FF 39 F9 ED 5B A7 04 CD 2B 13 EB CD 0E .!..9..[...+....
01D200: CB EB CD 07 09 D1 C9 E5 DD E5 48 06 FF E5 7E 23 ..........H...~#
01D210: 04 B7 20 FA E1 CD 5F 0A 16 00 CB FB CB B3 CD 25 .. ..._........%
01D220: 09 DD E1 E1 C9 CD 6E 25 FE 0D 28 1E FE FD 28 0D ......n%..(...(.
01D230: FE FC 28 09 DC 82 09 CB 63 20 0F 18 E8 04 05 C8 ..(.....c ......
01D240: CD E0 09 CD 46 0A 38 FB 18 DB CD E0 09 C5 78 FE ....F.8.......x.
01D250: 04 38 0D 48 AF 47 ED 42 11 7A 01 01 3B 00 ED B0 .8.H.G.B.z..;...
01D260: C1 37 04 05 C9 CD 4A 0A D0 18 FA 7B EE 80 5F C9 .7....J....{.._.
01D270: 3E 9F CD A2 0A D0 CD 85 14 23 CD E7 09 D8 2B C3 >........#....+.
01D280: C2 0A FE E1 28 E5 FE 7F CA 46 0A FE 01 CA 0E 0A ....(....F......
01D290: FE 05 28 D1 FE 10 CA 27 0A FE 0B CA 2B 0A FE 09 ..(....'....+...
01D2A0: 28 45 FE 20 D8 FE 9F 28 C7 FE EA 28 18 FE E0 28 (E. ...(...(...(
01D2B0: 14 FE C0 C8 38 31 D6 F2 D8 E5 6F 87 85 21 DF 0A ....81....o..!..
01D2C0: CD 7B 25 E3 C9 04 05 20 1D CB 73 20 19 D5 E5 11 .{%.... ..s ....
01D2D0: 7A 01 1A 13 B7 C4 A2 0A 23 38 F7 E1 D1 CD 5F 0A z.......#8...._.
01D2E0: CD F9 09 38 FB C9 C9 B7 C8 CB 7B 20 05 F5 CD 4A ...8......{ ...J
01D2F0: 0A F1 CD A2 0A D0 CD 5F 0A 7E B7 C8 23 14 CD F8 ......._.~..#...
01D300: 0F FE 9F 28 06 7E FE 08 20 02 23 23 37 C9 7E B7 ...(.~.. .##7.~.
01D310: C8 23 7E 2B B7 C8 C5 46 77 CD ED 09 78 CD ED 09 .#~+...Fw...x...
01D320: C1 CD 86 0A C3 86 0A 7E B7 20 1F 04 05 C0 CB 6B .......~. .....k
01D330: C8 C5 D5 E5 CD EB 0E 2D F5 CC B2 0F F1 C4 AB 10 .......-........
01D340: E1 D1 C1 CB E3 C9 CD 86 0A D0 7E B7 C8 CD C2 0A ..........~.....
01D350: FE 9F 7E CC C2 0A FE 08 CC C2 0A CC C2 0A AF D5 ..~.............
01D360: E5 54 5D F5 CD EB 0E 1A B7 C4 7B 0A 13 B7 20 F7 .T].......{... .
01D370: F1 CC 57 10 CD B7 0E E1 D1 37 C9 FE 9F C8 FE 20 ..W......7.....
01D380: DA 22 0E C3 75 06 7A B7 C8 CD 10 10 2B 15 2B 7E ."..u.z.....+.+~
01D390: FE 9F 37 C8 FE 08 C2 0B 0A 2B 37 C9 CD 86 0A 38 ..7......+7....8
01D3A0: FB C9 B7 F5 78 A9 CA DD 0A C5 D5 E5 01 00 00 7E ....x..........~
01D3B0: 23 03 B7 20 FA 54 5D 2B ED B8 E1 D1 C1 F1 77 04 #.. .T]+......w.
01D3C0: 37 C9 F5 C5 D5 E5 01 00 00 54 5D 1A 13 03 B7 20 7........T]....
01D3D0: FA 54 5D 23 ED B0 E1 D1 C1 05 F1 C9 C9 F1 C9 C3 .T]#............
01D3E0: 86 0A C3 F9 09 C3 DC 0A C3 DC 0A C3 DC 0A C3 DC ................
01D3F0: 0A C3 9C 0A C3 E0 09 C3 9C 0A C3 E0 09 CD 82 25 ...............%
01D400: 13 EB CD 51 13 E1 E1 E1 E1 E1 D1 C1 F1 C9 C5 D5 ...Q............
01D410: 06 08 1A EE FF 12 13 10 F9 D1 C1 C9 D5 E5 06 08 ................
01D420: 1A BE 13 23 20 02 10 F8 E1 D1 C9 C5 D5 E5 EB CD ...# ...........
01D430: 5C 22 28 05 CD 23 12 18 15 06 08 C5 01 01 00 CD \"(..#..........
01D440: 26 12 2B 7C C6 08 E6 3F F6 40 67 C1 10 ED C3 11 &.+|...?.@g.....
01D450: 0E C5 D5 E5 CD 5C 22 28 05 CD 23 12 18 15 06 08 .....\"(..#.....
01D460: C5 01 01 00 CD 26 12 1B 7A C6 08 E6 3F F6 40 57 .....&..z...?.@W
01D470: C1 10 ED C3 11 0E 3E 42 06 FC CD D7 14 3E 0E 06 ......>B.....>..
01D480: 00 CD 07 14 06 F0 CD D7 14 06 F4 CD E4 14 06 F8 ................
01D490: CD F1 14 3E 4F 06 02 CD 07 14 06 F1 CD D7 14 06 ...>O...........
01D4A0: F5 CD E4 14 06 F9 CD F1 14 3E 0F 06 08 CD 07 14 .........>......
01D4B0: 06 F2 CD D7 14 06 F6 CD E4 14 06 FA CD F1 14 3E ...............>
01D4C0: 06 06 01 CD 07 14 06 F3 CD D7 14 06 F7 CD E4 14 ................
01D4D0: 06 FB CD F1 14 3E 0B 06 09 CD 07 14 06 E0 CD D7 .....>..........
01D4E0: 14 3E 17 CD 5C 22 C4 D7 14 3E 10 06 10 CD D7 14 .>..\"...>......
01D4F0: 3E 48 06 4F CD 07 14 06 7F CD D7 14 CD E4 14 CD >H.O............
01D500: F1 14 3E 9F C3 81 14 CD 5C 22 C0 78 C9 CD 5C 22 ..>.....\".x..\"
01D510: C8 3E 42 06 03 CD D7 14 3E 0E 06 1F CD D7 14 06 .>B.....>.......
01D520: 1F CD E4 14 06 00 CD F1 14 3E 4F 06 1E CD D7 14 .........>O.....
01D530: 06 1E CD E4 14 06 99 CD F1 14 3E 0F 06 01 CD D7 ..........>.....
01D540: 14 06 01 CD E4 14 06 00 CD F1 14 3E 06 06 06 CD ...........>....
01D550: D7 14 06 06 CD E4 14 06 00 CD F1 14 3E 0B 06 17 ............>...
01D560: CD D7 14 3E 44 06 09 CD F1 14 3E 10 06 07 CD D7 ...>D.....>.....
01D570: 14 3E 48 06 7F CD D7 14 CD E4 14 06 9A CD F1 14 .>H.............
01D580: C9 32 FA 04 C9 CD 91 14 D8 18 FA CD 91 14 D8 18 .2..............
01D590: FA C5 E5 21 FA 04 7E 36 9F BE 37 20 12 D5 1E FE ...!..~6..7 ....
01D5A0: CD 9F 05 D1 B7 28 08 D5 1E FF CD 9F 05 D1 37 E1 .....(........7.
01D5B0: C1 C9 3E 42 CD 5C 22 CA 07 05 47 C5 CD 24 15 79 ..>B.\"...G..$.y
01D5C0: C1 38 02 97 C9 B8 20 F3 97 3C C9 CD 91 14 38 FB .8.... ..<....8.
01D5D0: C9 CD 91 14 38 FB C9 D5 C5 F5 16 01 4F CD 71 05 ....8.......O.q.
01D5E0: F1 C1 D1 C9 D5 C5 F5 16 02 4F CD 71 05 F1 C1 D1 .........O.q....
01D5F0: C9 D5 C5 F5 16 04 CD 5C 22 20 02 16 10 4F CD 71 .......\" ...O.q
01D600: D0 22 7A 0C 22 7E 0C ED 53 7C 0C ED 53 80 0C E5 ."z."~..S|..S...
01D610: 19 CB 1C CB 1D 22 84 0C E1 E5 CD 8D 25 E5 C1 E1 ....."......%...
01D620: 23 23 E5 CD 8D 25 CD C0 0B E1 20 06 CD 82 25 38 ##...%.... ...%8
01D630: EF C9 CD 8D 25 C5 D1 CD CE 0B 38 01 EB ED 53 82 ....%.....8...S.
01D640: 0C ED 5B 82 0C 2A 7E 0C E5 CD 8D 25 CD CE 0B E1 ..[..*~....%....
01D650: 30 04 23 23 18 F2 22 7E 0C 2A 80 0C E5 CD 8D 25 0.##.."~.*.....%
01D660: CD CE 0B E1 38 04 2B 2B 18 F2 22 80 0C ED 5B 7E ....8.++.."...[~
01D670: 0C CD 82 25 38 05 CD AF 0B 18 C6 EB ED 5B 84 0C ...%8........[..
01D680: CD 82 25 30 14 ED 5B 7C 0C D5 E5 2B 2B EB 2A 7A ..%0..[|...++.*z
01D690: 0C CD FD 0A E1 D1 C3 FD 0A ED 5B 7A 0C D5 2B 2B ..........[z..++
01D6A0: E5 23 23 ED 5B 7C 0C CD FD 0A D1 E1 C3 FD 0A 23 .##.[|.........#
01D6B0: 46 2B 4E 1A 77 23 13 1A 77 78 12 2B 1B 79 12 C9 F+N.w#..wx.+.y..
01D6C0: D5 C5 D1 CD CE 0B D1 C9 EB CD CE 0B EB C9 E5 D5 ................
01D6D0: C5 CD D8 0B C1 D1 E1 C9 DD E9 CD FC 0B D0 47 CD ..............G.
01D6E0: E8 0B 3F D8 B8 C0 18 F0 7E 23 E6 7F CD 92 25 CD ..?.....~#....%.
01D6F0: 5C 26 D8 CD 55 26 D8 FE 0D C8 18 EC EB CD E8 0B \&..U&..........
01D700: EB C9 F5 CD 08 0C F1 C9 C5 D5 E5 4F 21 00 00 06 ...........O!...
01D710: 43 79 CD 0B 18 28 31 CD 7B 25 10 F5 11 20 00 CD Cy...(1.{%... ..
01D720: 87 25 30 15 79 CD 0B 18 5F 79 CD 0B 18 57 CD 82 .%0.y..._y...W..
01D730: 25 20 06 11 80 00 37 18 04 11 00 00 B7 F5 79 01 % ....7.......y.
01D740: 00 00 26 00 CD 13 17 F1 E1 D1 C1 C9 00 00 00 00 ..&.............
01D750: 00 00 00 00 00 00 00 00 4E 6F 74 20 65 6E 6F 75 ........Not enou
01D760: 67 68 20 6D 65 6D 6F 72 79 20 74 6F 20 73 6F 72 gh memory to sor
01D770: 74 20 66 69 6C 65 73 0D 0A 8A 00 00 00 00 00 00 t files.........
01D780: 00 00 00 00 00 00 00 00 00 00 00 00 01 08 00 ED ................
01D790: B0 C9 06 01 0E 42 CD 2A 23 D0 22 20 0E 3E 32 CD .....B.*#." .>2.
01D7A0: 36 12 3E 30 CD 2B 12 01 06 00 09 22 23 0E ED 5B 6.>0.+....."#..[
01D7B0: 20 0E 21 FB 0C 01 A4 00 ED B0 ED 53 27 12 21 9F .!........S'.!.
01D7C0: 0D 01 31 00 ED B0 ED 53 54 0E 21 56 0E 01 44 00 ..1....ST.!V..D.
01D7D0: ED B0 ED 53 21 12 21 D0 0D 01 29 00 ED B0 97 32 ...S!.!...)....2
01D7E0: A9 04 3A BB 01 32 A3 04 3E 66 CD 36 12 CD E5 11 ..:..2£.>f.6....
01D7F0: CD EB 0E CD B7 0E CD A3 0F 37 C9 F5 FE 20 38 16 .......£.7... 8.
01D800: 05 F1 C1 D1 C9 CD 5C 22 28 08 CD 76 05 DC 7B 05 ......\"(..v..{.
01D810: 18 11 E5 CD 0C 05 06 00 24 20 02 CB D0 2C 20 02 ........$ ..., .
01D820: CB F0 E1 C9 C3 76 05 E6 F1 FE 41 CA 72 15 FE C1 .....v....A.r...
01D830: 28 20 FE A1 28 27 FE E1 28 23 FE B1 28 1A FE F1 ( ..('..(#..(...
01D840: 28 16 FE 91 28 1D FE D1 28 19 21 08 04 CD 3F 12 (...(...(.!...?.
01D850: B7 C9 CD 72 15 D0 18 0F CD 7B 1E 38 06 CD FB 15 ...r.....{.8....
01D860: D0 18 04 CD 95 16 D0 F5 3E 07 32 E0 01 CD B6 20 ........>.2....
01D870: F1 C9 CD 38 20 D0 CD 5C 20 DD E5 CD 10 21 30 6B ...8 ..\ ....!0k
01D880: CD 29 22 DD 2A E1 01 11 00 00 ED 53 E5 01 1B ED .)".*......S....
01D890: 53 E9 01 11 B8 02 01 1F 00 ED B0 97 12 21 B8 02 S............!..
01D8A0: ED 5B E1 01 CD A6 1F 30 42 DD 2A E1 01 DD 36 20 .[.....0B.*...6
01D8B0: FF DD 36 21 00 DD 36 22 00 DD 36 23 00 ED 5B E1 ..6!..6"..6#..[.
01D8C0: 01 CD B3 05 3C 28 1A DD 7E 20 32 DF 02 DD 7E 0F ....<(..~ 2...~.
01D8D0: B7 37 C4 59 21 30 0A AF 3C 37 3E 05 32 E0 01 18 .7.Y!0..<7>.2...
01D8E0: 0B 25 24 20 06 21 D2 03 CD 3F 12 AF CD B6 20 3A .%$ .!...?.... :
01D8F0: C3 01 DD E1 C9 97 32 E8 01 18 05 3E FF 32 E8 01 ......2....>.2..
01D900: CD 38 20 D0 CD 5C 20 DD E5 CD 10 21 D2 8B 16 CD .8 ..\ ....!....
01D910: 29 22 DD 2A E1 01 11 00 00 ED 53 E5 01 ED 53 E9 )".*......S...S.
01D920: 01 11 B8 02 01 1F 00 ED B0 97 12 21 B8 02 ED 5B ...........!...[
01D930: E1 01 CD A6 1F D2 8B 16 2A E1 01 11 09 00 19 11 ........*.......
01D940: EB 01 01 03 00 ED B0 3E 24 DD 77 09 DD 77 0A DD .......>$.w..w..
01D950: 77 0B 97 DD 77 20 DD 77 21 DD 77 22 DD 77 23 ED w...w .w!.w".w#.
01D960: 5B E1 01 CD C5 05 30 23 ED 5B E1 01 CD C9 05 30 [.....0#.[.....0
01D970: 0C 3C 28 09 AF 3C 37 3C 32 E0 01 18 0F 25 24 20 .<(..<7<2....%$
01D980: 0A 21 BB 03 3A E8 01 B7 FC 3F 12 AF CD B6 20 3A .!..:....?.... :
01D990: C3 01 DD E1 C9 CD 72 15 D0 DD E5 DD 2A E1 01 2A ......r.....*..*
01D9A0: E1 01 11 09 00 19 11 EB 01 01 03 00 ED B0 2A E1 ..............*.
01D9B0: 01 11 70 02 CD 57 25 3E 24 DD 77 09 DD 77 0A DD ..p..W%>$.w..w..
01D9C0: 77 0B ED 5B E1 01 CD C5 05 2A E1 01 11 80 02 CD w..[.....*......
01D9D0: 57 25 11 70 02 CD CD 05 ED 5B E1 01 CD ED 05 DD W%.p.....[......
01D9E0: 6E 21 DD 66 22 7C B5 28 12 2B 2B 22 E9 01 CD 59 n!.f"|.(.++"...Y
01D9F0: 21 3A DF 02 B7 20 07 2A E9 01 23 22 E9 01 6F 26 !:... .*..#"..o&
01DA00: F1 F5 F3 D9 21 9D 04 34 21 A6 04 35 20 13 D9 FB ....!..4!..5 ...
01DA10: CD 8A 10 F1 18 EB C5 D5 E5 CD 29 10 E1 D1 C1 F1 ..........).....
01DA20: C9 6F ED 5B A7 04 3A A3 04 CB 47 28 3B 26 17 29 .o.[..:£..G(;&.)
01DA30: 29 29 07 3E 81 D3 F1 3C D3 F2 38 1F ED A0 ED A0 )).>...<..8.....
01DA40: ED A0 ED A0 ED A0 ED A0 ED A0 ED A0 3E 85 D3 F1 ............>...
01DA50: 3C D3 F2 ED 53 A7 04 D9 FB F1 C9 06 08 0E FF 7E <...S..........~
01DA60: A9 12 23 13 10 F9 18 E4 26 10 29 29 29 3A A3 04 ..#.....&.))):£.
01DA70: 07 9F 06 7F 0E C1 ED 49 4F 06 08 7E A9 12 23 7A .......IO..~..#z
01DA80: C6 08 E6 3F F6 40 57 10 F2 06 7F 0E C2 ED 49 13 ...?.@W.......I.
01DA90: 7B B7 20 BF 7A E6 07 20 BA 7A D6 08 57 18 B4 CD {. .z.. .z..W...
01DAA0: 5C 22 28 19 3E 80 F3 D3 F0 3C D3 F1 3C D3 F2 ED \"(.>....<..<...
01DAB0: B0 3E 86 D3 F2 3D D3 F1 3D FB D3 F0 C9 C5 06 7F .>...=..=.......
01DAC0: 0E C1 F3 ED 49 C1 ED B0 06 7F 0E C2 FB ED 49 C9 ....I.........I.
01DAD0: CD 5C 22 CA 40 05 D5 EB 7B 87 87 87 6F 26 5B 29 .\".@...{...o&[)
01DAE0: 3E 82 F3 D3 F2 7E 23 66 6F 29 3E 86 FB D3 F2 EB >....~#fo)>.....
01DAF0: 6C 26 00 29 29 29 19 D1 C9 CD 01 0F CD CB 11 3E l&.))).........>
01DB00: 65 C3 36 12 C5 D5 E5 CD C9 0F 1C 21 00 00 CD 2A e.6........!...*
01DB10: 05 E1 D1 C1 C9 ED 5B A3 04 C9 ED 53 A3 04 C9 C3 ......[£...S£...
01DB20: 00 00 C3 00 00 C5 D5 E5 F5 ED 5B 9E 04 2A 9C 04 ..........[..*..
01DB30: 19 25 CD 20 12 EB F1 CD 3D 0E C3 11 0E E6 07 87 .%. ....=.......
01DB40: 21 EA 04 CD 7B 25 CD 8D 25 E5 21 00 00 39 CD 53 !...{%..%.!..9.S
01DB50: 0E E1 C9 C3 00 00 3A A3 04 07 CB 4F 28 1B 9F 4F ......:£...O(..O
01DB60: 3E 81 F3 D3 F1 3C D3 F2 7E A9 12 23 13 7E A9 12 >....<..~..#.~..
01DB70: 3E 85 D3 F1 3C FB D3 F2 C9 01 C1 7F F3 ED 49 9F >...<.........I.
01DB80: 4F 7E A9 12 23 7A C6 08 E6 3F F6 40 57 7E A9 12 O~..#z...?.@W~..
01DB90: 01 C2 7F FB ED 49 C9 F5 CD 5C 22 28 0A CD CB 11 .....I...\"(....
01DBA0: 3E 4A CD 36 12 18 0E CD B8 11 CD CB 11 3E 14 CD >J.6.........>..
01DBB0: 25 05 CD 04 0E F1 C9 D5 E5 2D 25 22 9C 04 7C 32 %........-%"..|2
01DBC0: 79 01 EB 2A A0 04 B7 ED 52 24 24 2C 22 A5 04 CD y..*....R$$,"...
01DBD0: 0C 12 E1 D1 C9 E5 2A 9C 04 67 2C CD B7 0E E1 C9 ......*..g,.....
01DBE0: E5 2A 9C 04 6F 24 CD B7 0E E1 C9 2A 9C 04 24 2C .*..o$.....*..$,
01DBF0: C9 2A 9E 04 ED 5B A0 04 EB 19 EB 3A A2 04 C6 FF .*...[.....:....
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 00 02 09 4E E5 19 00 C1 02 00 00 00 02 ......N.........
01DC20: 19 00 C6 02 00 00 00 02 19 00 C2 02 00 00 00 02 ................
01DC30: 19 00 C7 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC40: 19 00 C8 02 00 00 00 02 19 00 C4 02 00 00 00 02 ................
01DC50: 19 00 C9 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 00 22 E5 01 3E 02 32 E0 01 CD B6 20 3A C3 01 DD ."..>.2.... :...
01DD10: E1 37 C9 DD E5 D5 F5 CD 8D 23 6F F1 E5 CD 2B 17 .7.......#o...+.
01DD20: D1 F5 7B CD 8F 23 F1 D1 DD E1 C9 CD 5C 20 3A EE ..{..#......\ :.
01DD30: 01 CD 8F 23 3A E0 01 B7 CB 57 C8 CB 4F 28 1B E5 ...#:....W..O(..
01DD40: D5 C5 3A E5 01 FE 80 37 28 05 B7 37 C4 CE 21 2A ..:....7(..7..!*
01DD50: E9 01 2B 22 E9 01 C1 D1 E1 D0 7C 3D 28 2C 21 00 ..+"......|=(,!.
01DD60: 00 22 E9 01 22 E5 01 FA 8A 17 D5 ED 5B E1 01 CD ."..".......[...
01DD70: ED 05 F5 2A E1 01 11 21 00 19 CD 8D 25 2B 22 E9 ...*...!....%+".
01DD80: 01 21 80 00 22 E5 01 F1 D1 D0 6A 61 CB 23 CB 15 .!..".....ja.#..
01DD90: CB 14 CB 3B ED 4B E9 01 09 22 E9 01 23 B7 CB 7C ...;.K..."..#..|
01DDA0: C0 2A E5 01 4B 06 00 09 7D FE 80 28 23 FE 81 38 .*..K...}..(#..8
01DDB0: 0B ED 5B E9 01 13 ED 53 E9 01 CB BD 7C B5 20 20 ..[....S....|.
01DDC0: 2A E9 01 7C B5 28 19 2B 22 E9 01 21 80 00 18 10 *..|.(.+"..!....
01DDD0: ED 5B E9 01 CB 7A 28 08 13 ED 53 E9 01 21 00 00 .[...z(...S..!..
01DDE0: 22 E5 01 2A E9 01 2B 22 E9 01 CD 59 21 D0 CD B6 "..*..+"...Y!...
01DDF0: 20 37 C9 CD 5C 20 E5 2A E9 01 06 07 0E 00 29 CB 7..\ .*......).
01DE00: 11 10 FB ED 5B E5 01 19 EB E1 C9 DD E5 E5 D5 C5 ....[...........
01DE10: 32 C3 01 21 C4 01 06 0E CD 9B 25 CD 7B 25 7E CB 2..!......%.{%~.
01DE20: 47 20 04 AF 3C 18 45 23 5E 23 56 23 E5 D5 23 5E G ..<.E#^#V#..#^
01DE30: 23 56 21 80 00 B7 ED 52 7C B5 28 0C E1 19 7E E1 #V!....R|.(...~.
01DE40: 77 13 23 73 23 72 18 15 E1 E1 21 E7 01 01 01 00 w.#s#r....!.....
01DE50: 3A C3 01 CD 72 18 3E 0F 30 12 3A E7 01 FE 1A 28 :...r.>.0.:....(
01DE60: 07 47 97 3C 78 37 18 04 47 AF 3C 78 C1 D1 E1 DD .G.<x7..G.<x....
01DE70: E1 C9 FE 02 38 03 AF 3C C9 CD 5C 20 3A E0 01 CB ....8..<..\ :...
01DE80: 47 20 03 AF 3C C9 DD E5 E5 D5 C5 22 DB 02 22 D9 G ..<......"..".
01DE90: 02 ED 43 DD 02 21 80 00 B7 ED 5B E5 01 ED 52 ED ..C..!....[...R.
01DEA0: 5B DD 02 CD 82 25 38 37 2A E3 01 ED 5B E5 01 19 [....%87*...[...
01DEB0: ED 5B D9 02 ED 4B DD 02 C5 ED B0 C1 ED 53 D9 02 .[...K.......S..
01DEC0: 2A E5 01 09 22 E5 01 11 80 00 CD 82 25 DA 58 19 *...".......%.X.
01DED0: CD 59 21 D2 62 19 21 00 00 22 E5 01 C3 58 19 E5 .Y!.b.!.."...X..
01DEE0: C1 2A E3 01 ED 5B E5 01 19 ED 5B D9 02 78 B1 C5 .*...[....[..x..
01DEF0: C4 5A 25 C1 2A D9 02 09 22 D9 02 2A DD 02 B7 ED .Z%.*..."..*....
01DF00: 01 77 23 3A ED 01 77 23 3A EE 01 77 F1 C1 E1 C9 .w#:..w#:..w....
01DF10: E5 D5 C5 F5 2A E1 01 7C B5 20 12 01 A4 00 CD FD ....*..|. ......
01DF20: 22 30 10 22 E3 01 11 80 00 19 22 E1 01 F1 C1 D1 "0."......".....
01DF30: E1 37 C9 F1 C1 D1 E1 B7 C9 E5 F5 21 BB 03 FE 01 .7.........!....
01DF40: 28 11 21 C9 03 FE 02 28 0A 21 95 03 FE 0A 28 03 (.!....(.!....(.
01DF50: 21 0A 03 CD 3F 12 F1 E1 C9 06 01 ED 5B E3 01 18 !...?.......[...
01DF60: 18 01 80 00 B7 ED 42 38 0A E5 06 80 CD 79 21 E1 ......B8.....y!.
01DF70: D0 18 EE 09 45 7D B7 37 C8 D5 C5 CD D9 05 C5 58 ....E}.7.......X
01DF80: CD F5 05 2A E9 01 23 DD 2A E1 01 DD 75 21 DD 74 ...*..#.*...u!.t
01DF90: 22 F1 CD 7B 25 2B 22 E9 01 ED 5B E1 01 CD 47 22 "..{%+"...[...G"
01DFA0: F5 E5 1E 01 CD F5 05 E1 F1 C1 D1 FE FF 28 1D B7 .............(..
01DFB0: 28 09 FE 04 28 04 FE 01 20 12 44 68 26 00 29 29 (...(... .Dh&.))
01DFC0: 29 29 29 29 29 19 EB B7 C0 3C 37 C9 AF C9 ED 5B )))))....<7....[
01DFD0: E3 01 06 01 18 18 01 80 00 B7 ED 42 38 0A E5 06 ...........B8...
01DFE0: 80 CD EE 21 E1 D0 18 EE 09 45 7D B7 37 C8 48 C5 ...!.....E}.7.H.
01DFF0: E1 29 29 29 29 29 29 29 19 E5 CD D9 05 C5 58 CD .)))))))......X.
01E000: F5 05 2A E9 01 DD 2A E1 01 DD 75 21 DD 74 22 F1 ..*...*...u!.t".
01E010: CD 7B 25 22 E9 01 ED 5B E1 01 CD 32 22 F5 1E 01 .{%"...[...2"...
01E020: CD F5 05 F1 D1 B7 C0 37 C9 F5 CD 8D 23 32 EE 01 .......7....#2..
01E030: F1 C9 CD 8D 23 F5 3A EE 01 CD 8F 23 CD E9 05 D1 ....#.:....#....
01E040: F5 7A CD 8F 23 F1 C9 CD 8D 23 F5 3A EE 01 CD 8F .z..#....#.:....
01E050: 23 CD E5 05 D1 F5 7A CD 8F 23 F1 C9 C5 47 3A BB #.....z..#...G:.
01E060: 01 B7 78 C1 C9 C5 C5 47 E5 D5 CD 85 05 D1 E1 78 ..x....G.......x
01E070: FE 02 38 01 97 C1 78 C1 C9 E5 D5 CD 8A 05 2F 3C ..8...x......./<
01E080: D1 E1 C9 2E 00 CD 5C 22 28 0A FE 02 28 06 FE 08 ......\"(...(...
01E090: 28 13 EE 05 87 87 87 87 67 CD 65 22 20 08 7C E6 (.......g.e" .|.
01E0A0: 30 28 03 EE 30 67 22 E6 02 3E 2A 32 E4 02 3E FE 0(..0g"..>*2..>.
01E0B0: 32 E5 02 11 E4 02 C3 05 06 C5 CD 5D 05 E1 C3 62 2..........]...b
01E0C0: 05 E5 D5 CD D1 22 3F 30 05 5F CD 9B 05 37 D1 E1 ....."?0._...7..
01E0D0: C9 FD E5 DD E5 E5 D5 C5 47 C5 2A 01 00 11 2A 00 ........G.*...*.
01E0E0: 19 CD 7A 25 1F 3F C1 78 C1 D1 E1 DD E1 FD E1 C9 ..z%.?.x........
01E0F0: 2A 03 01 C9 22 03 01 C9 2A 06 00 2B C9 D5 CD F8 *..."...*..+....
01E100: 42 22 DD 02 CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D B"...<...<...<..
01E110: CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D .<...<...<...<..
01E120: ED 5B D9 02 E5 CD 61 21 E1 ED 53 D9 02 30 33 CD .[....a!..S..03.
01E130: 59 21 28 2B 30 2C ED 4B DD 02 11 80 00 06 00 79 Y!(+0,.K.......y
01E140: E6 7F 4F ED 43 E5 01 78 B1 28 0D 2A E3 01 ED 5B ..O.C..x.(.*...[
01E150: D9 02 ED B0 ED 53 D9 02 47 97 3C 78 37 18 1B AF .....S..G.<x7...
01E160: 18 18 C1 ED 5B DB 02 2A D9 02 B7 ED 52 44 4D C5 ....[..*....RDM.
01E170: 21 80 00 22 E5 01 47 AF 3C 78 C1 D1 E1 DD E1 F5 !.."..G.<x......
01E180: 09 F1 CD B6 20 3A C3 01 C9 CD 5C 20 E5 D5 F5 78 .... :....\ ...x
01E190: 18 09 CD 5C 20 E5 D5 F5 3A E7 01 2A E3 01 ED 5B ...\ ...:..*...[
01E1A0: E5 01 1B ED 53 E5 01 19 77 F1 D1 E1 C3 B6 20 CD ....S...w..... .
01E1B0: 0B 18 F5 38 04 FE 1A 20 06 3A C3 01 CD 92 19 F1 ...8... .:......
01E1C0: C9 DD E5 E5 D5 C5 32 C3 01 21 C4 01 06 0E CD 9B ......2..!......
01E1D0: 25 CD 7B 25 7E CB 4F 20 04 AF 3C 18 35 C1 C5 23 %.{%~.O ..<.5..#
01E1E0: 5E 23 56 23 E5 D5 23 5E 23 56 21 80 00 13 CD 87 ^#V#..#^#V!.....
01E1F0: 25 30 0D 1B E1 19 70 E1 13 23 73 23 72 37 18 12 %0....p..#s#r7..
01E200: E1 E1 78 32 D8 02 21 D8 02 01 01 00 3A C3 01 CD ..x2..!.....:...
01E210: 18 1A C1 D1 E1 DD E1 C9 FE 02 38 03 AF 3C C9 CD ..........8..<..
01E220: 5C 20 3A E0 01 CB 4F 20 03 AF 3C C9 DD E5 E5 D5 \ :...O ..<.....
01E230: C5 22 D9 02 ED 43 DD 02 21 80 00 B7 ED 5B E5 01 ."...C..!....[..
01E240: ED 52 ED 5B DD 02 13 CD 82 25 38 1E 2A E3 01 ED .R.[.....%8.*...
01E250: 5B E5 01 19 EB 2A D9 02 ED 4B DD 02 C5 ED B0 C1 [....*...K......
01E260: 2A E5 01 09 22 E5 01 C3 FE 1A E5 C1 2A E3 01 ED *...".......*...
01E270: 5B E5 01 19 EB 2A D9 02 78 B1 C5 C4 5A 25 C1 2A [....*..x...Z%.*
01E280: D9 02 09 22 D9 02 2A DD 02 B7 ED 42 22 DD 02 CD ..."..*....B"...
01E290: CE 21 30 71 2A DD 02 CB 3C CB 1D CB 3C CB 1D CB .!0q*...<...<...
01E2A0: 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB <...<...<...<...
01E2B0: 3C CB 1D ED 5B D9 02 E5 CD D6 21 E1 30 47 29 29 <...[.....!.0G))
01E2C0: 29 29 29 29 29 ED 5B D9 02 19 22 D9 02 3A E0 01 ))))).[..."..:..
01E2D0: CB 57 28 10 2A E9 01 2B 22 E9 01 C5 CD 59 21 C1 .W(.*..+"....Y!.
01E2E0: 38 02 28 24 ED 4B DD 02 06 00 79 E6 7F 4F ED 43 8.($.K....y..O.C
01E2F0: E5 01 ED 5B E3 01 2A D9 02 78 B1 C4 5A 25 47 97 ...[..*..x..Z%G.
01E300: 22 B7 ED 42 2B 2B EB CD F0 22 EB CD 82 25 38 11 "..B++..."...%8.
01E310: ED 5B 06 00 36 C3 22 06 00 23 73 23 72 23 D1 37 .[..6."..#s#r#.7
01E320: C9 D1 21 44 04 CD 3F 12 B7 C9 CD F8 22 23 7E FE ..!D..?....."#~.
01E330: C3 C2 FD 22 23 E5 23 23 7E FE 41 23 20 18 7E FE ..."#.##~.A# .~.
01E340: 52 23 20 12 7E FE 4E 23 20 0C 7E FE 4F 23 20 06 R# .~.N# .~.O# .
01E350: 7E FE 52 23 28 06 E1 CD 8D 25 18 D2 F1 D5 E5 CD ~.R#(....%......
01E360: 8D 25 B7 ED 42 EB E1 73 23 72 EB D1 37 C9 D5 21 .%..B..s#r..7..!
01E370: 00 00 39 ED 5B BC 01 B7 ED 52 D1 C9 E5 D5 CD 6E ..9.[....R.....n
01E380: 23 11 00 00 CD 82 25 D1 E1 37 C0 B7 C9 3E FF E5 #.....%..7...>..
01E390: D5 5F CD E1 05 D1 E1 C9 16 FF 1E FF C3 09 06 EB ._..............
01E3A0: C3 09 06 CD 05 24 F5 CD BE 23 38 06 F1 CD 31 24 .....$...#8...1$
01E3B0: 37 C9 F1 CD 31 24 CD 65 06 1E FF C3 01 06 22 E0 7...1$.e......".
01E3C0: 02 11 00 00 ED 53 E2 02 7E FE 20 28 06 B7 28 08 .....S..~. (..(.
01E3D0: 23 18 F5 36 00 22 E2 02 2A E0 02 CD 0D 1F D0 2A #..6."..*......*
01E3E0: E2 02 7C B5 28 02 36 20 2A E0 02 11 82 00 7E 12 ..|.(.6 *.....~.
01E3F0: 23 13 B7 20 F9 CD 05 24 C6 41 32 80 00 3E 3A 32 #.. ...$.A2..>:2
01E400: 81 00 37 C9 C9 E5 CD D5 05 E1 C9 FE 10 D0 C5 E5 ..7.............
01E410: 4F 47 04 CD D1 05 CB 3C CB 1D 10 FA 79 E1 C1 30 OG.....<....y..0
01E420: 10 FE 10 D0 D5 E5 5F CD AF 05 E1 D1 3C B7 C8 37 ......_.....<..7
01E430: C9 CD 86 24 FE 01 20 0A C5 CD 79 22 C1 B7 28 0B ...$.. ...y"..(.
01E440: 3E 01 FE 02 3F D4 68 24 DC 21 24 CD 82 24 C9 E5 >...?.h$.!$..$..
01E450: D5 11 03 00 CD F1 05 D1 E1 C9 E5 D5 F5 CD A7 25 ...............%
01E460: EB CD F1 05 F1 D1 E1 C9 FE 0C 28 0F C5 4F E5 CD ..........(..O..
01E470: 58 05 E1 CB 6F 79 C1 37 C0 B7 C9 CD 5C 22 37 C0 X...oy.7....\"7.
01E480: B7 C9 F5 97 18 03 F5 3E FF 32 EF 01 F1 C9 3A BF .......>.2....:.
01E490: 01 4F 7C F6 80 FE 83 20 09 21 2D 03 CD 3F 12 AF .O|.... .!-..?..
01E4A0: 3C C9 E5 21 EF 01 CB 7E E1 C0 E5 D5 C5 F5 CD EB <..!...~........
01E4B0: 0E F1 E5 F5 CD F1 0E F1 E5 D5 CD 15 0E D5 F5 CD ................
01E4C0: 5F 10 C5 CD C9 0F 1C 26 00 6B CD 1A 0F CD E5 0F _......&.k......
01E4D0: C1 79 C6 41 CD 1F 0E 3E 3A CD 1F 0E CD 57 10 F1 .y.A...>:....W..
01E4E0: B7 FA F9 24 21 0A 03 FE 0A 30 25 21 3E 03 B7 28 ...$!....0%!>..(
01E4F0: 1F CB 7E 23 28 FB 3D 18 F5 E6 7F 21 14 03 FE 01 ..~#(.=....!....
01E500: 3C 78 37 18 04 CD 39 21 AF C1 D1 E1 DD E1 F5 09 <x7...9!........
01E510: F1 CD B6 20 3A C3 01 C9 FE 02 D0 CD 5C 20 97 32 ... :.......\ .2
01E520: E0 01 C3 B6 20 C5 06 02 78 3D CD 18 1B 10 F9 C1 .... ...x=......
01E530: C9 FE 02 38 03 AF 3C C9 CD 5C 20 3A E0 01 B7 20 ...8..<..\ :...
01E540: 03 AF 3C C9 E5 D5 C5 57 CD 8D 23 F5 3A EE 01 CD ..<....W..#.:...
01E550: 8F 23 CD 60 1B D1 F5 7A CD 8F 23 F1 C1 D1 E1 C9 .#.`...z..#.....
01E560: CB 4A 20 10 ED 5B E1 01 CD B7 05 97 32 E0 01 3C .J ..[......2..<
01E570: 37 C3 B6 20 DD E5 DD 2A E1 01 3A E0 01 CB 57 20 7.. ...*..:...W
01E580: 1A 3A E5 01 E6 7F 28 13 F5 06 1A 3A C3 01 CD C1 .:....(....:....
01E590: 19 F1 FE 7F 20 05 32 E5 01 18 1F 2A E5 01 7D B7 .... .2....*..}.
01E5A0: 28 18 FE 80 28 14 2B CB 25 CB 14 24 44 ED 5B E3 (...(.+.%..$D.[.
01E5B0: 01 05 04 37 C4 EE 21 D2 9D 1C ED 5B E1 01 CD B7 ...7..!....[....
01E5C0: 05 2A E1 01 11 09 00 19 7E FE 24 C2 95 1C 23 7E .*......~.$...#~
01E5D0: FE 24 C2 95 1C 23 7E FE 24 C2 95 1C ED 5B E1 01 .$...#~.$....[..
01E5E0: CD ED 05 2A E1 01 11 21 00 19 CD 8D 25 2B ED 5B ...*...!....%+.[
01E5F0: E9 01 3E 80 CD 87 25 38 03 3A E5 01 DD CB 06 FE ..>...%8.:......
01E600: DD 77 20 ED 5B E1 01 CD DD 05 DD CB 06 BE 2A E1 .w .[.........*.
01E610: 01 11 09 00 19 EB 21 EB 01 01 03 00 ED B0 11 F0 ......!.........
01E620: 01 CD D9 05 ED 5B E1 01 DD 36 0C 00 CD BB 05 3C .....[...6.....<
01E630: 28 41 3E 42 DD 77 09 3E 41 DD 77 0A 3E 4B DD 77 (A>B.w.>A.w.>K.w
01E640: 0B ED 5B E1 01 CD C5 05 D2 A0 1C 2A E1 01 11 10 ..[........*....
01E650: 00 19 EB 2A E1 01 CD 57 25 2A E1 01 11 09 00 19 ...*...W%*......
01E660: EB 21 EB 01 01 03 00 ED B0 ED 5B E1 01 CD CD 05 .!........[.....
01E670: D2 A0 1C 2A E1 01 11 10 00 19 EB 2A E1 01 CD 57 ...*.......*...W
01E680: 25 3E 24 DD 77 09 DD 77 0A DD 77 0B ED 5B E1 01 %>$.w..w..w..[..
01E690: CD CD 05 30 0B 97 32 E0 01 3C 37 18 04 CD 39 21 ...0..2..<7...9!
01E6A0: AF CD B6 20 DD E1 C9 CD A3 1F D0 21 71 02 06 0B ... ....£..!q...
01E6B0: 7E 23 E6 7F FE 3F 20 18 10 F6 21 1A 04 CD 3F 12 ~#...? ...!...?.
01E6C0: CD D1 14 CD 6E 25 D0 CD 92 25 CD 1F 0E FE 59 C0 ....n%...%....Y.
01E6D0: 11 70 02 CD C5 05 3C 37 C0 7C 21 D2 03 B7 CC 3F .p....<7.|!....?
01E6E0: 12 C9 CD A3 1F D0 11 70 02 CD C5 05 3C 37 C0 7C ...£...p....<7.|
01E6F0: B7 C9 D5 E5 CD 7B 1E E1 D1 38 06 21 D2 03 C3 7B .....{...8.!...{
01E700: 28 0E FE 04 28 0A 21 4D 03 FE 02 28 03 21 0A 03 (...(.!M...(.!..
01E710: CD 42 12 21 EE 02 CD 42 12 CD D1 14 CD 8B 14 CD .B.!...B........
01E720: 92 25 FE 52 28 0F FE 49 37 28 0A FE 43 28 05 CD .%.R(..I7(..C(..
01E730: 5F 10 18 E8 B7 CD 1F 0E F5 CD 67 10 06 44 CD 5C _.........g..D.\
01E740: 12 F1 D1 CD 1A 0E D1 E1 F5 CD 1A 0F F1 E1 F5 CD ................
01E750: B7 0E F1 C1 D1 E1 C9 01 10 00 ED B0 C9 CD D1 14 ................
01E760: CD 43 0F CD 8B 14 18 0C CD 91 14 38 FB C9 CD 43 .C.........8...C
01E770: 0F CD 85 14 CD 53 0F FE FC C9 E9 C5 4F 06 00 09 .....S......O...
01E780: C1 C9 B7 ED 52 19 C9 EB CD 82 25 EB C9 7E 23 66 ....R.....%..~#f
01E790: 6F C9 FE 61 D8 FE 7B D0 D6 20 C9 C5 4F 97 05 04 o..a..{.. ..O...
01E7A0: 28 03 81 10 FD C1 C9 21 01 00 B7 C8 C5 47 29 10 (......!.....G).
01E7B0: FD C1 C9 C5 C5 EB E3 AF ED 52 E3 EB C1 03 CD 87 .........R......
01E7C0: 25 30 05 ED B0 C1 B7 C9 EB 09 EB 1B E1 ED B8 B7 %0..............
01E7D0: C9 CD 1C 26 C8 CD 55 26 38 24 7E FE 26 28 07 FE ...&..U&8$~.&(..
01E7E0: 23 28 03 B7 C9 2B 11 00 00 CD 78 26 CD 47 26 3F #(...+....x&.G&?
01E7F0: D8 EB 29 29 29 29 EB CD 66 26 83 5F 18 EB 11 00 ..))))..f&._....
01E800: 00 2B CD 78 26 CD 55 26 3F D8 E5 62 6B 29 29 19 .+.x&.U&?..bk)).
01E810: 29 EB D6 30 6F 26 00 19 EB E1 18 E6 2B CD 78 26 )..0o&......+.x&
01E820: FE 0D C8 B7 C8 CD 38 26 28 F3 FE 3B C8 37 C9 FE ......8&(..;.7..
01E830: 09 C8 FE 20 C8 FE 90 C9 FE 3D C8 CD 2F 26 C8 FE ... .....=../&..
01E840: 2C C8 B7 C8 FE 0D C9 CD 55 26 D8 CD 92 25 FE 47 ,.......U&...%.G
01E850: D0 FE 41 3F C9 FE 3A D0 FE 30 3F C9 CD 92 25 FE ..A?..:..0?...%.
01E860: 41 3F D0 FE 5B C9 D6 30 FE 0A D8 D6 07 C9 FE 7F A?..[..0........
01E870: 3F D0 FE 8A C8 FE 8D C9 23 7E CD 6E 26 D0 18 F8 ?.......#~.n&...
01E880: 00 00 00 00 00 C3 6E 1F 3A 80 26 3C C0 CD 72 15 ......n.:.&<..r.
01E890: 32 80 26 DD 7E 12 C9 3A 80 26 C3 0B 18 01 FF FF 2.&.~..:.&......
01E8A0: 3A 80 26 C3 72 18 3A 80 26 C3 92 19 3A 80 26 CD :.&.r.:.&...:.&.
01E8B0: 31 1B 18 06 3A 80 26 CD 18 1B F5 3E FF 32 80 26 1...:.&....>.2.&
01E8C0: F1 C9 CD 97 26 F5 DC A6 26 F1 C9 3A 81 26 3C C0 ....&...&..:.&<.
01E8D0: CD FB 15 32 81 26 C9 C5 47 3A 81 26 CD C1 19 C1 ...2.&..G:.&....
01E8E0: C9 F5 3A 81 26 CD 5C 20 F1 DD 2A 83 26 DD 77 12 ..:.&.\ ..*.&.w.
01E8F0: 42 4B 3A 81 26 C3 18 1A 3A 81 26 CD 31 1B 18 06 BK:.&...:.&.1...
01E900: 1D D5 CD A3 1F D1 D0 EB 11 94 02 CD A6 1F D0 3A ...£...........:
01E910: 70 02 32 94 02 21 94 02 11 80 02 CD 57 25 21 71 p.2..!......W%!q
01E920: 02 11 95 02 06 0B 1A BE 13 23 20 04 10 F8 37 C9 .........# ...7.
01E930: 11 70 02 CD CD 05 3C 37 C0 7C FE 08 37 C0 3E 42 .p....<7.|..7.>B
01E940: 32 9D 02 3E 41 32 9E 02 3E 4B 32 9F 02 11 94 02 2..>A2..>K2.....
01E950: CD C5 05 D2 7E 1D 21 94 02 11 A4 02 CD 57 25 21 ....~.!......W%!
01E960: 80 02 11 94 02 CD 57 25 11 94 02 CD CD 05 D2 7E ......W%.......~
01E970: 1D 11 70 02 CD CD 05 30 05 37 C9 CD 3F 12 B7 C9 ..p....0.7..?...
01E980: CD A3 1F D0 11 70 02 CD B3 05 3C 28 39 21 71 02 .£...p....<(9!q.
01E990: 7E 17 16 00 CB 12 23 7E 17 1E 00 CB 13 23 7E 17 ~.....#~.....#~.
01E9A0: 06 00 CB 10 23 7E 17 0E 00 CB 11 C5 21 79 02 7E ....#~......!y.~
01E9B0: 17 06 00 CB 10 23 7E 17 0E 00 CB 11 23 7E 17 3E .....#~.....#~.>
01E9C0: 00 CB 17 E1 37 C9 B7 C9 E5 D5 F5 C5 DD E5 E1 CD ....7...........
01E9D0: A3 1F D2 55 1E 11 70 02 CD B3 05 C1 3C 37 28 76 £..U..p.....<7(v
01E9E0: 78 B7 FA EF 1D 21 79 02 CB BE B7 28 02 CB FE 23 x....!y....(...#
01E9F0: 79 B7 FA FC 1D CB BE B7 28 02 CB FE 23 F1 B7 FA y.......(...#...
01EA00: 09 1E CB BE B7 28 02 CB FE D1 7A B7 FA 19 1E 21 .....(....z....!
01EA10: 71 02 CB BE B7 28 02 CB FE 23 7B B7 FA 26 1E CB q....(...#{..&..
01EA20: BE B7 28 02 CB FE D1 23 7A B7 FA 34 1E CB BE B7 ..(....#z..4....
01EA30: 28 02 CB FE 23 7B B7 FA 41 1E CB BE B7 28 02 CB (...#{..A....(..
01EA40: FE 11 70 02 CD DD 05 3C 37 C0 7C B7 C0 21 D2 03 ..p....<7.|..!..
01EA50: CD 3F 12 B7 C9 C1 D1 7A D1 E1 38 F1 B7 C9 CD A3 .?.....z..8....£
01EA60: 1F D0 11 70 02 CD ED 05 3C B7 28 05 2A 91 02 37 ...p....<.(.*..7
01EA70: C9 7C 21 D2 03 B7 CC 3F 12 B7 C9 E5 CD A3 1F 38 .|!....?.....£.8
01EA80: 03 AF E1 C9 11 F0 01 CD D9 05 11 70 02 CD BB 05 ...........p....
01EA90: 38 04 AF 3C E1 C9 B7 E1 F8 CD CF 1E 3E 01 32 C2 8..<........>.2.
01EAA0: 01 37 9F C9 11 70 02 CD A6 1F 11 F0 01 CD D9 05 .7...p..........
01EAB0: 11 70 02 CD BB 05 D0 3A C2 01 47 3C 32 C2 01 11 .p.....:..G<2...
01EAC0: 70 02 CD C0 05 D0 10 F7 B7 F8 CD CF 1E 37 C9 87 p............7..
01EAD0: 87 87 87 87 21 F0 01 CD 7B 25 23 3A 70 02 3D FC ....!...{%#:p.=.
01EAE0: 05 24 C6 41 32 B8 02 3E 3A 32 B9 02 11 BA 02 06 .$.A2..>:2......
01EAF0: 08 7E E6 7F 12 23 13 10 F8 3E 2E 12 13 06 03 7E .~...#...>.....~
01EB00: 3A 81 26 CD 18 1B F5 3E FF 32 81 26 F1 C9 3A 81 :.&....>.2.&..:.
01EB10: 26 CD 5C 20 3A E0 01 FE 02 28 04 3E 0E B7 C9 3A &.\ :....(.>...:
01EB20: 82 26 3D CA 00 27 DD 2A 83 26 C3 9B 1B 41 72 6E .&=..'.*.&...Arn
01EB30: 6F 72 20 66 69 6C 65 20 73 6F 72 74 69 6E 67 20 or file sorting
01EB40: 70 72 6F 67 72 61 6D 20 76 31 2E 30 31 00 A0 45 program v1.01..E
01EB50: 52 52 4F 52 20 2D 20 54 65 78 74 20 74 6F 6F 20 RROR - Text too
01EB60: 6C 61 72 67 65 20 74 6F 20 63 68 65 63 6B 20 69 large to check i
01EB70: 6E 20 6D 65 6D 6F 72 79 0D 8A 4F 75 74 20 6F 66 n memory..Out of
01EB80: 20 6D 65 6D 6F 72 F9 54 6F 6F 20 6D 61 6E 79 20 memor.Too many
01EB90: 72 65 63 6F 72 64 73 20 74 6F 20 73 6F 72 F4 4E records to sor.N
01EBA0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 73 ame of file to s
01EBB0: 6F 72 74 3A A0 45 6E 74 65 72 20 6F 70 74 69 6F ort:.Enter optio
01EBC0: 6E 73 3A A0 50 72 65 73 73 20 59 20 74 6F 20 63 ns:.Press Y to c
01EBD0: 6F 6E 66 69 72 6D 3A A0 55 6E 6B 6E 6F 77 6E 20 onfirm:.Unknown
01EBE0: 6F 70 74 69 6F EE 50 52 4F 54 45 58 54 2E 43 4F optio.PROTEXT.CO
01EBF0: 4D 00 3C 46 4D 00 50 52 4F 57 4F 52 54 2E 43 4F M.<FM.PROWORT.CO
01EC00: 4D 00 49 6E 73 65 72 74 20 50 72 6F 74 65 78 74 M.Insert Protext
01EC10: 20 64 69 73 63 20 61 6E 64 20 70 72 65 73 73 20 disc and press
01EC20: 61 20 6B 65 79 3A A0 41 50 45 44 2E 43 4F 4D 00 a key:.APED.COM.
01EC30: 49 6E 73 65 72 74 20 65 64 69 74 6F 72 20 64 69 Insert editor di
01EC40: 73 63 20 61 6E 64 20 70 72 65 73 73 20 61 20 6B sc and press a k
01EC50: 65 79 3A A0 50 72 65 73 73 20 61 20 6B 65 79 20 ey:.Press a key
01EC60: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E AE 46 to continue ...F
01EC70: 69 6C 65 20 73 6F 72 74 65 64 2E 20 4E 75 6D 62 ile sorted. Numb
01EC80: 65 72 20 6F 66 20 72 65 63 6F 72 64 73 3A A0 20 er of records:.
01EC90: A8 20 64 65 6C 65 74 65 64 A9 50 6F 73 73 69 62 . deleted.Possib
01ECA0: 6C 65 20 64 75 70 6C 69 63 61 74 65 64 20 72 65 le duplicated re
01ECB0: 63 6F 72 64 3A 0D 0A 5B 31 5D 0D 8A 5B 32 5D 0D cord:..[1]..[2].
01ECC0: 8A 54 79 70 65 20 31 20 74 6F 20 64 65 6C 65 74 .Type 1 to delet
01ECD0: 65 20 66 69 72 73 74 2C 20 32 20 74 6F 20 64 65 e first, 2 to de
01ECE0: 6C 65 74 65 20 73 65 63 6F 6E 64 2C 20 52 45 54 lete second, RET
01ECF0: 55 52 4E 20 74 6F 20 6B 65 65 70 20 62 6F 74 68 URN to keep both
01ED00: E6 7F 12 23 13 10 F8 97 12 21 B8 02 C9 D5 11 96 ...#.....!......
01ED10: 04 CD 16 1F D1 C9 CD 05 24 F5 D5 CD 3F 1F D1 38 ........$...?..8
01ED20: 1B CD 8D 23 B7 28 0F F5 97 CD 8F 23 CD 3F 1F C1 ...#.(.....#.?..
01ED30: 38 0A 78 CD 8F 23 F1 CD 31 24 B7 C9 F1 37 C9 23 8.x..#..1$...7.#
01ED40: 7E 2B FE 3A 20 11 D5 E5 CD 7B 1E E1 D1 D0 7E CD ~+.: ....{....~.
01ED50: 92 25 D6 41 C3 31 24 1A 13 FE FE C8 FE FF 37 C4 .%.A.1$.......7.
01ED60: 31 24 30 F3 E5 D5 CD 7B 1E D1 E1 D8 18 E9 CD 4F 1$0....{.......O
01ED70: 24 1E FF CD F9 05 97 32 EF 01 21 C4 01 11 07 00 $......2..!.....
01ED80: 06 02 36 00 23 23 23 23 23 23 36 00 23 36 00 19 ..6.######6.#6..
01ED90: 10 F0 C9 47 3D CD 5C 20 CD 10 21 D0 CD B6 20 10 ...G=.\ ..!... .
01EDA0: F3 37 C9 11 70 02 CD B5 1F D8 21 E0 03 CD 3F 12 .7..p.....!...?.
01EDB0: B7 C9 11 70 02 D5 CD 0F 20 22 E4 02 ED 53 E6 02 ...p.... "...S..
01EDC0: D1 B7 28 49 FE 0D 28 45 D5 CD 17 20 30 26 2B 7E ..(I..(E... 0&+~
01EDD0: 23 FE 3A 20 13 CD 25 20 7E B7 28 30 FE 0D 28 2C #.: ..% ~.(0..(,
01EDE0: CD 17 20 30 0F 2B 7E 23 CD 25 20 7E 23 FE 2E 20 .. 0.+~#.% ~#..
01EDF0: 03 CD 25 20 11 E4 02 CD 0D 06 D1 E5 1A B7 20 05 ..% .......... .
01EE00: CD 05 24 3C 12 E1 7C B5 37 C8 18 01 E1 B7 C9 7E ..$<..|.7......~
01EE10: 23 FE 20 28 FA 2B C9 7E B7 C8 FE 0D C8 23 FE 20 #. (.+.~.....#.
01EE20: 20 F5 2B 37 C9 E5 54 5D CD 0F 20 7E 12 23 13 FE .+7..T].. ~.#..
01EE30: 0D 28 03 B7 20 F5 E1 C9 E5 D5 C5 21 C4 01 11 0E .(.. ......!....
01EE40: 00 06 02 0E 00 7E B7 28 0D 19 0C 10 F8 21 EC 03 .....~.(.....!..
01EE50: CD 3F 12 B7 18 02 37 79 C1 D1 E1 C9 32 C3 01 E5 .?....7y....2...
01EE60: C5 F5 21 C4 01 06 0E CD 9B 25 CD 7B 25 7E 32 E0 ..!......%.{%~2.
01EE70: 01 23 7E 32 E3 01 23 7E 32 E4 01 23 7E 32 E7 01 .#~2..#~2..#~2..
01EE80: 23 7E 32 E5 01 23 7E 32 E6 01 23 7E 32 E1 01 23 #~2..#~2..#~2..#
01EE90: 7E 32 E2 01 23 7E 32 E9 01 23 7E 32 EA 01 23 7E ~2..#~2..#~2..#~
01EEA0: 32 EB 01 23 7E 32 EC 01 23 7E 32 ED 01 23 7E 32 2..#~2..#~2..#~2
01EEB0: EE 01 F1 C1 E1 C9 E5 C5 F5 3A C3 01 21 C4 01 06 .........:..!...
01EEC0: 0E CD 9B 25 CD 7B 25 3A E0 01 77 23 3A E3 01 77 ...%.{%:..w#:..w
01EED0: 23 3A E4 01 77 23 3A E7 01 77 23 3A E5 01 77 23 #:..w#:..w#:..w#
01EEE0: 3A E6 01 77 23 3A E1 01 77 23 3A E2 01 77 23 3A :..w#:..w#:..w#:
01EEF0: E9 01 77 23 3A EA 01 77 23 3A EB 01 77 23 3A EC ..w#:..w#:..w#:.
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 00 02 09 4E E5 1A 00 C1 02 00 00 00 02 ......N.........
01EF20: 1A 00 C6 02 00 00 00 02 1A 00 C2 02 00 00 00 02 ................
01EF30: 1A 00 C7 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF40: 1A 00 C8 02 00 00 00 02 1A 00 C4 02 00 00 00 02 ................
01EF50: 1A 00 C9 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 3A A0 0D 0A 41 76 61 69 6C 61 62 6C 65 20 6F 70 :...Available op
01F010: 74 69 6F 6E 73 3A 0D 0A 20 20 2F 41 28 66 6C 64 tions:.. /A(fld
01F020: 6C 69 73 74 29 20 20 61 6C 70 68 61 62 65 74 69 list) alphabeti
01F030: 63 20 73 6F 72 74 0D 0A 20 20 2F 44 28 66 6C 64 c sort.. /D(fld
01F040: 6C 69 73 74 29 20 20 64 65 63 72 65 61 73 69 6E list) decreasin
01F050: 67 20 6E 75 6D 65 72 69 63 20 73 6F 72 74 0D 0A g numeric sort..
01F060: 20 20 2F 46 6E 20 20 20 20 20 20 20 20 20 20 66 /Fn f
01F070: 69 78 65 64 20 72 65 63 6F 72 64 20 6F 66 20 6E ixed record of n
01F080: 20 66 69 65 6C 64 73 0D 0A 20 20 2F 48 20 20 20 fields.. /H
01F090: 20 20 20 20 20 20 20 20 6C 69 73 74 20 6F 70 74 list opt
01F0A0: 69 6F 6E 73 0D 0A 20 20 2F 4C 28 66 6C 64 6C 69 ions.. /L(fldli
01F0B0: 73 74 29 20 20 73 6F 72 74 20 6F 6E 20 6C 61 73 st) sort on las
01F0C0: 74 20 77 6F 72 64 0D 0A 20 20 2F 4E 28 66 6C 64 t word.. /N(fld
01F0D0: 6C 69 73 74 29 20 20 6E 75 6D 65 72 69 63 20 73 list) numeric s
01F0E0: 6F 72 74 0D 0A 20 20 2F 50 28 66 6C 64 6C 69 73 ort.. /P(fldlis
01F0F0: 74 29 20 20 70 65 72 73 6F 6E 61 6C 20 6E 61 6D t) personal nam
01F100: 65 20 73 6F 72 74 0D 0A 20 20 2F 51 6E 20 20 20 e sort.. /Qn
01F110: 20 20 20 20 20 20 20 71 75 65 72 79 20 69 66 20 query if
01F120: 6E 20 66 69 65 6C 64 73 20 6D 61 74 63 68 0D 0A n fields match..
01F130: 20 20 2F 53 6E 31 2C 6E 32 2C 2E 2E 2E 20 20 73 /Sn1,n2,... s
01F140: 6F 72 74 20 6F 6E 20 66 69 65 6C 64 73 20 6E 31 ort on fields n1
01F150: 2C 6E 32 2C 2E 2E 2E 0D 0A 20 20 2F 54 20 20 20 ,n2,..... /T
01F160: 20 20 20 20 20 20 20 20 66 69 65 6C 64 73 20 64 fields d
01F170: 65 6C 69 6D 69 74 65 64 20 62 79 20 74 61 62 0D elimited by tab.
01F180: 0A 20 20 2F 56 20 20 20 20 20 20 20 20 20 20 20 . /V
01F190: 76 61 72 69 61 62 6C 65 20 72 65 63 6F 72 64 20 variable record
01F1A0: 6C 65 6E 67 74 68 0D 0A 20 20 2F 57 28 66 6C 64 length.. /W(fld
01F1B0: 6C 69 73 74 29 20 20 73 6F 72 74 20 6F 6E 20 66 list) sort on f
01F1C0: 69 72 73 74 20 77 6F 72 64 0D 0A 20 20 2F 5A 28 irst word.. /Z(
01F1D0: 66 6C 64 6C 69 73 74 29 20 20 72 65 76 65 72 73 fldlist) revers
01F1E0: 65 20 61 6C 70 68 61 62 65 74 69 63 20 73 6F 72 e alphabetic sor
01F1F0: 74 0D 0A A0 00 00 00 00 00 00 00 00 00 00 00 00 t...............
01F200: 28 F2 1B 13 1A FE 20 28 FA FE 27 28 F6 FE 22 28 (..... (..'(.."(
01F210: F2 C3 18 34 3A CF 2B FE 02 C2 9F 33 3A 46 2B B7 ...4:.+....3:F+.
01F220: F2 9F 33 22 47 2B ED 53 49 2B 06 00 2B 23 7E FE ..3"G+.SI+..+#~.
01F230: 0D 20 FA 04 23 23 7E FE 0D 20 F1 2A 47 2B 3A 46 . ..##~.. .*G+:F
01F240: 2B 80 3C B7 28 03 F2 4B 33 3E 01 47 18 13 2B 23 +.<.(..K3>.G..+#
01F250: 7E FE 0D 20 FA 7E FE 0D 20 07 23 23 7E FE 0D 28 ~.. .~.. .##~..(
01F260: 02 10 EB 06 00 1B 13 1A FE 0D 20 FA 04 13 13 1A .......... .....
01F270: FE 0D 20 F1 ED 5B 49 2B 3A 46 2B 80 3C B7 28 03 .. ..[I+:F+.<.(.
01F280: F2 85 33 3E 01 47 18 13 1B 13 1A FE 0D 20 FA 1A ..3>.G....... ..
01F290: FE 0D 20 07 13 13 1A FE 0D 28 02 10 EB 18 45 3A .. ......(....E:
01F2A0: 46 2B B7 F2 AB 33 47 3A D0 2B 80 47 B7 20 01 04 F+...3G:.+.G. ..
01F2B0: 18 30 CD E2 35 FE 0D 28 03 23 18 F6 CD DC 35 FE .0..5..(.#....5.
01F2C0: 0D 28 03 13 18 F6 7E FE 0D 20 09 23 23 7E FE 0D .(....~.. .##~..
01F2D0: 20 02 2B 2B 1A FE 0D 20 09 13 13 1A FE 0D 20 F4 .++... ...... .
01F2E0: 1B 1B 10 CE 7E FE 0D 20 02 23 23 1A FE 0D 20 02 ....~.. .##... .
01F2F0: 13 13 2B 23 7E FE 20 28 FA FE 27 28 F6 FE 22 28 ..+#~. (..'(.."(
01F300: F2 FE 09 28 EE 1B 13 1A FE 20 28 FA FE 27 28 F6 ...(..... (..'(.
01F310: FE 22 28 F2 FE 09 28 EE 3A 46 2B E5 CB 7F 20 09 ."(...(.:F+... .
01F320: 21 D1 2B CD 7B 25 7E 18 09 21 E2 2B ED 44 CD 7B !.+.{%~..!.+.D.{
01F330: 25 7E E1 22 47 2B ED 53 49 2B FE 04 CA ED 34 FE %~."G+.SI+....4.
01F340: 05 CA E8 34 F5 7E FE 7F 20 01 23 1A FE 7F 20 01 ...4.~.. .#... .
01F350: 13 F1 FE 06 CA F2 35 FE 02 28 10 FE 07 28 0C FE ......5..(...(..
01F360: 03 28 03 C3 F9 35 CD F9 35 3F C9 F5 D5 54 5D 13 .(...5..5?...T].
01F370: 2B 3A 03 2C 47 23 7E FE 0D 28 03 B8 20 F7 2B 7E +:.,G#~..(.. .+~
01F380: CD 97 36 28 F9 CD 82 25 38 0C 2B 7E CD 97 36 28 ..6(...%8.+~..6(
01F390: 04 FE 2D 20 F0 23 D1 E5 62 6B 23 1B 3A 03 2C 47 ..- .#..bk#.:.,G
01F3A0: 13 1A FE 0D 28 03 B8 20 F7 1B 1A CD 97 36 28 F9 ....(.. .....6(.
01F3B0: CD 87 25 38 0C 1B 1A CD 97 36 28 04 FE 2D 20 F0 ..%8.....6(..- .
01F3C0: 13 E1 F1 FE 07 CA F9 35 3E FF 32 43 2B ED 4B 47 .......5>.2C+.KG
01F3D0: 2B 0A FE 7F 20 03 60 69 23 ED 4B 49 2B 0A FE 7F +... .`i#.KI+...
01F3E0: 20 03 50 59 13 C3 FD 35 CD ED 34 3F C9 D5 CD D1 .PY...5..4?....
01F3F0: 25 38 03 11 00 00 E1 D5 CD D1 25 38 03 11 00 00 %8........%8....
01F400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 ................
01F4D0: 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F4F0: 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F500: 00 00 00 0D 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F540: 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09 0A ................
01F550: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
01F560: 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09 0A ................
01F570: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
01F580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 ................
01F5C0: 00 00 00 00 00 01 05 09 0F 15 01 05 09 0F 15 01 ................
01F5D0: 05 09 0F 15 19 01 05 09 0F 15 03 1E 20 1F 0E 01 ............ ...
01F5E0: 0F 00 00 00 00 01 05 09 0F 15 01 05 09 0F 15 01 ................
01F5F0: 05 09 0F 15 19 01 05 09 0F 15 03 1E 20 1F 0E 01 ............ ...
01F600: E1 7C BA 20 03 7D BB C8 C3 82 25 3A 03 2C FE 09 .|. .}....%:.,..
01F610: 28 37 3A CF 2B FE 02 28 15 CD 49 35 D0 D5 3A D0 (7:.+..(..I5..:.
01F620: 2B 47 05 28 07 C5 CD 49 35 C1 10 F9 D1 C9 CD 49 +G.(...I5......I
01F630: 35 D0 D5 CD 49 35 3F 38 0D 7E FE 0D 20 F5 CD 3F 5...I5?8.~.. ..?
01F640: 30 3E 0A CD 3F 30 D1 37 C9 97 32 09 2B 7E FE 1A 0>..?0.7..2.+~..
01F650: 20 21 3E 0D CD 3F 30 3E 0A CD 3F 30 3A CF 2B FE !>..?0>..?0:.+.
01F660: 01 C8 3A 09 2B B7 C8 3E 0D CD 3F 30 3E 0A CD 3F ..:.+..>..?0>..?
01F670: 30 B7 C9 32 09 2B CD 3F 30 23 FE 0D 20 CF 7E CD 0..2.+.?0#.. .~.
01F680: 3F 30 23 C9 E5 21 05 2C CD 7B 25 7E E1 C9 3A 03 ?0#..!.,.{%~..:.
01F690: 2C FE 09 28 33 3A CF 2B FE 02 28 13 CD C8 35 D0 ,..(3:.+..(...5.
01F6A0: 3A D0 2B 47 05 28 07 C5 CD C8 35 C1 10 F9 C9 CD :.+G.(....5.....
01F6B0: C8 35 D0 CD C8 35 3F 38 0D 7E FE 0D 20 F5 CD 75 .5...5?8.~.. ..u
01F6C0: 06 3E 0A CD 75 06 37 C9 CD E2 35 B7 28 03 CD 75 .>..u.7...5.(..u
01F6D0: 06 23 FE 0D 20 F2 23 CD BA 06 37 C9 EB CD E2 35 .#.. .#...7....5
01F6E0: EB C9 7E FE BA C8 FE 9F 28 05 FE 80 D8 97 C9 23 ..~.....(......#
01F6F0: 7E C9 3E 01 32 43 2B 18 04 97 32 43 2B CD 01 36 ~.>.2C+...2C+..6
01F700: C9 97 32 42 2B CD DC 35 32 45 2B CD 84 35 47 CD ..2B+..52E+..5G.
01F710: E2 35 32 44 2B FE 0D 28 44 3A 45 2B FE 0D 28 3D .52D+..(D:E+..(=
01F720: 3A 44 2B CD 84 35 4F B0 79 20 17 3A 45 2B 47 3A :D+..5O.y .:E+G:
01F730: 44 2B 90 C0 3A 43 2B FE 01 20 1E 78 CD 97 36 C8 D+..:C+.. .x..6.
01F740: 18 17 90 C0 78 E6 DF 47 79 E6 DF 90 28 0B 47 3A ....x..Gy...(.G:
01F750: 42 2B B7 20 04 78 32 42 2B 13 23 18 A8 3A 43 2B B+. .x2B+.#..:C+
01F760: B7 FA 7B 36 3A 45 2B 47 3A 44 2B B0 28 06 3A 44 ..{6:E+G:D+.(.:D
01F770: 2B 90 18 03 3A 42 2B B7 C8 17 C9 3A 44 2B FE 0D +...:B+....:D+..
01F780: 20 E2 3A 45 2B FE 0D 20 DB 2A 47 2B ED 5B 49 2B .:E+.. .*G+.[I+
01F790: 97 32 43 2B C3 05 36 FE 20 C8 FE 2E C8 C5 47 3A .2C+..6. .....G:
01F7A0: 03 2C FE 09 78 C1 C0 FE 09 C9 17 3A 45 2B 47 3A .,..x......:E+G:
01F7B0: 44 2B 90 C0 3A 43 2B FE 01 20 1E 78 CD 97 36 C8 D+..:C+.. .x..6.
01F7C0: 18 17 90 C0 78 E6 DF 47 79 E6 DF 90 28 0B 47 3A ....x..Gy...(.G:
01F7D0: 42 2B B7 20 04 78 32 42 2B 13 23 18 A8 3A 43 2B B+. .x2B+.#..:C+
01F7E0: B7 FA 7B 36 3A 45 2B 47 3A 44 2B B0 28 06 3A 44 ..{6:E+G:D+.(.:D
01F7F0: 2B 90 18 03 3A 42 2B B7 C8 17 C9 3A 44 2B FE 0D +...:B+....:D+..
01F800: 0F 00 00 00 00 CD 06 01 21 AA 36 CD F4 22 CD 98 ........!.6.."..
01F810: 23 22 F8 2A 2A F8 2A CB 7D 20 04 CB 75 28 08 3A #".**.*.} ..u(.:
01F820: F9 2A E6 0F CD 8F 23 CD 90 2D 2A F8 2A CB 75 20 .*....#..-*.*.u
01F830: 3E CB 7D 28 37 3A FA 2A B7 28 0D 21 F3 27 CD 0D >.}(7:.*.(.!.'..
01F840: 1F 30 05 21 F1 27 36 20 CD 87 2D 21 E6 27 CD 4F .0.!.'6 ..-!.'.O
01F850: 24 CD A3 23 30 16 21 F6 27 CD 4F 24 CD A3 23 30 $.£#0.!.'.O$.£#0
01F860: 0B 21 02 28 CD 2A 07 CD 5D 25 38 C9 C3 65 06 CD .!.(.*..]%8..e..
01F870: 87 2D 21 27 28 CD A3 23 30 F2 21 30 28 CD 2A 07 .-!'(.£#0.!0(.*.
01F880: CD 5D 25 38 EA 18 E5 21 54 28 CD 2A 07 C3 5D 25 .]%8...!T(.*..]%
01F890: 21 2D 27 CD 2A 07 3A 80 00 4F 06 00 21 81 00 11 !-'.*.:..O..!...
01F8A0: 4D 2B 78 B1 28 02 ED B0 97 12 21 4D 2B 7E 23 FE M+x.(.....!M+~#.
01F8B0: 20 28 FA 2B 7E FE 3F CA EB 2E FE 2F 28 04 FE 2D (.+~.?..../(..-
01F8C0: 20 0B 23 7E CD 92 25 FE 48 CA EB 2E 2B B7 20 21 .#~..%.H...+. !
01F8D0: 21 9F 27 CD 2A 07 21 1E 2B 06 10 CD F1 08 D2 42 !.'.*.!.+......B
01F8E0: 2F CA 42 2F 21 1E 2B 11 4D 2B 48 06 00 ED B0 97 /.B/!.+.M+H.....
01F8F0: 12 21 4D 2B CD EA 2F ED 53 FF 2A 78 32 01 2B ED .!M+../.S.*x2.+.
01F900: 53 02 2B 32 04 2B CD EA 2F 38 23 21 B5 27 CD 2A S.+2.+../8#!.'.*
01F910: 07 21 4D 2B 06 7F 7E 23 05 B7 20 FA 2B 36 20 23 .!M+..~#.. .+6 #
01F920: E5 CD F1 08 E1 D2 42 2F CD EA 2F D2 07 2F 1A FE ......B/../../..
01F930: 2F 28 0F FE 2D 28 0B ED 53 02 2B 78 32 04 2B C3 /(..-(..S.+x2.+.
01F940: F5 2E E5 62 6B 23 7E CD 92 25 23 FE 4A 20 06 32 ...bk#~..%#.J .2
01F950: FA 2A C3 F4 2E FE 46 20 14 CD D1 25 38 03 11 01 .*....F ...%8...
01F960: 00 ED 53 D0 2B 3E 01 32 CF 2B C3 F4 2E FE 56 20 ..S.+>.2.+....V
01F970: 08 3E 02 32 CF 2B C3 F4 2E FE 50 06 02 CA 4E 2F .>.2.+....P...N/
01F980: FE 41 06 01 CA 4E 2F FE 5A 06 03 CA 4E 2F FE 44 .A...N/.Z...N/.D
01F990: 06 05 CA 4E 2F FE 4E 06 04 CA 4E 2F FE 57 06 06 ...N/.N...N/.W..
01F9A0: CA 4E 2F FE 4C 06 07 CA 4E 2F FE 51 20 0D CD D1 .N/.L...N/.Q ...
01F9B0: 25 38 02 1E 01 7B 32 04 2C 18 39 FE 54 20 07 3E %8...{2.,.9.T .>
01F9C0: 09 32 03 2C 18 2E FE 53 20 16 06 10 DD 21 F3 2B .2.,...S ....!.+
01F9D0: C5 CD A8 2F C1 30 1D DD 73 00 DD 23 10 F2 18 14 .../.0..s..#....
01F9E0: E1 FE 48 28 06 21 D8 27 CD 2A 07 21 02 29 CD 2A ..H(.!.'.*.!.).*
01F9F0: 07 C3 42 2F E1 CD EA 2F 30 0D 1A FE 2F CA 42 2E ..B/.../0.../.B.
01FA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC00: FE 2D CA 42 2E 18 EE 3A 03 2C FE 09 20 05 3E 02 .-.B...:.,.. .>.
01FC10: 32 CF 2B 06 10 DD 21 D0 2B DD 23 DD 7E 00 B7 20 2.+...!.+.#.~..
01FC20: 04 DD 36 00 01 10 F2 06 10 DD 21 E1 2B DD 23 DD ..6.......!.+.#.
01FC30: 7E 00 B7 20 04 DD 36 00 01 10 F2 ED 73 F6 2A CD ~.. ..6.....s.*.
01FC40: 4A 30 C9 ED 7B F6 2A 3A FC 2A CD 18 1B C9 F5 C5 J0..{.*:.*......
01FC50: CD A8 2F C1 48 38 2A DD 21 D0 2B 06 10 DD 23 DD ../.H8*.!.+...#.
01FC60: 7E 00 B7 20 03 DD 71 00 10 F3 DD 21 E1 2B 06 10 ~.. ..q....!.+..
01FC70: DD 23 DD 7E 00 B7 20 03 DD 71 00 10 F3 F1 C3 F4 .#.~.. ..q......
01FC80: 2E E5 CB 7A 20 0C 7B E6 0F 21 D1 2B CD 7B 25 71 ...z .{..!.+.{%q
01FC90: 18 0C 7B ED 44 E6 0F 21 E2 2B CD 7B 25 71 E1 CD ..{.D..!.+.{%q..
01FCA0: A8 2F 38 DD F1 C3 F4 2E 97 32 3D 2B CD 1C 26 7E ./8......2=+..&~
01FCB0: FE 2D 20 04 32 3D 2B 23 CD D1 25 D0 3A 3D 2B B7 .- .2=+#..%.:=+.
01FCC0: 37 C8 E5 21 00 00 B7 ED 52 54 5D E1 37 C9 21 C4 7..!....RT].7.!.
01FCD0: 27 CD 2A 07 CD 5D 25 D0 CD 92 25 FE 59 28 04 FE '.*..]%...%.Y(..
01FCE0: 4E 20 F1 CD 75 06 FE 59 37 C9 CD 20 30 C8 CD 1A N ..u..Y7.. 0...
01FCF0: 30 28 10 E5 D1 2B 06 FF 04 CD 78 26 CD 33 30 20 0(...+....x&.30
01FD00: F7 18 13 4F E5 D1 13 06 FF 04 CD 78 26 CD 42 26 ...O.......x&.B&
01FD10: 28 04 B9 20 F4 23 04 05 37 C9 FE 22 C8 FE 27 C9 (.. .#..7.."..'.
01FD20: 2B CD 78 26 FE 0D C8 B7 C8 CD 33 30 28 F3 FE 3B +.x&......30(..;
01FD30: C8 37 C9 FE 3D C8 CD 2F 26 C8 B7 C8 FE 0D C9 C5 .7..=../&.......
01FD40: 47 3A FC 2A CD C1 19 78 C1 C9 2A FF 2A 3A 01 2B G:.*...x..*.*:.+
01FD50: E5 CD 7B 25 36 00 E1 CD 72 15 D0 32 FB 2A 2A 02 ..{%6...r..2.**.
01FD60: 2B 3A 04 2B E5 CD 7B 25 36 00 E1 CD FB 15 D0 32 +:.+..{%6......2
01FD70: FC 2A 2A FF 2A CD 5E 1E 11 80 00 CD 80 07 22 FD .**.*.^.......".
01FD80: 2A CD F0 22 22 F4 2A 11 A0 0F 19 22 32 2B E5 CD *.."".*...."2+..
01FD90: F8 22 D1 B7 ED 52 EB 2A FD 2A CD 87 25 30 07 21 ."...R.*.*..%0.!
01FDA0: 4F 27 CD 2A 07 C9 44 4D 3A FB 2A 2A 32 2B CD 72 O'.*..DM:.**2+.r
01FDB0: 18 3A FB 2A CD 31 1B 3E 01 32 07 2B 2A 32 2B DD .:.*.1.>.2.+*2+.
01FDC0: 2A F4 2A CD 5B 31 30 22 DD 73 00 DD 72 01 DD 23 *.*.[10".s..r..#
01FDD0: DD 23 E5 2A 3E 2B 23 22 3E 2B 11 D0 07 CD 82 25 .#.*>+#">+.....%
01FDE0: E1 38 E0 21 87 27 CD 2A 07 C9 2A 3E 2B 7C B5 28 .8.!.'.*..*>+|.(
01FDF0: 3C DD E5 D1 1B 1B 2A F4 2A CD E4 31 DD 2A F4 2A <.....*.*..1.*.*
01FE00: 20 66 66 3C 3E 22 22 0D 0A 3E 73 76 20 6E 3D 31 ff<>""..>sv n=1
01FE10: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
01FE20: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 66 n=n[w1]..>sv ff
01FE30: 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E 75 6E =ff+"+f&n&"..>un
01FE40: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A 3E n>=rlen..>ei..>
01FE50: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D >>..>dm " "..>dm
01FE60: 20 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E 22 "Searching ..."
01FE70: 0D 0A 3E 73 76 20 6E 6E 3D 30 0D 0A 3E 64 66 20 ..>sv nn=0..>df
01FE80: 66 6D 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 0D fm.mus..>rv mus.
01FE90: 0A 3E 63 66 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D .>cf..>if mus="m
01FEA0: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
01FEB0: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
01FEC0: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
01FED0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
01FEE0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
01FEF0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
01FF00: 6E 64 24 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C nd$..>wf &selfil
01FF10: 65 26 0D 0A 3E 65 69 20 3B 69 75 20 64 66 0D 0A e&..>ei ;iu df..
01FF20: 1A 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E .ff&..>sv x=0..>
01FF30: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
01FF40: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
01FF50: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
01FF60: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
01FF70: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
01FF80: 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D ntinue .....>wc.
01FF90: 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 66 .>cf..>ex exec f
01FFA0: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 6B m..>st..>ei..>sk
01FFB0: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 64 0=0..>ei ; id d
01FFC0: 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D 0A f..>>>..>iu df..
01FFD0: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
01FFE0: 74 69 6F 6E 20 53 2E 32 20 2D 20 53 65 6C 65 63 tion S.2 - Selec
01FFF0: 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E 64 31 t records (cond1
020000: ED 4B 3E 2B DD 6E 00 DD 66 01 E5 7E 23 FE 0D 20 .K>+.n..f..~#..
020010: FA CB 7E E1 28 09 3A 40 2B 3C 32 40 2B 18 05 C5 ..~.(.:@+<2@+...
020020: CD 0B 35 C1 DD 23 DD 23 0B 78 B1 20 D7 3A FC 2A ..5..#.#.x. .:.*
020030: CD 31 1B 21 6F 28 CD 2A 07 2A 3E 2B ED 5B 40 2B .1.!o(.*.*>+.[@+
020040: B7 ED 52 CD DF 07 7A B3 28 10 21 8F 28 CD 2D 07 ..R...z.(.!.(.-.
020050: EB CD DF 07 21 91 28 CD 2D 07 C9 3E 01 32 08 2B ....!.(.-..>.2.+
020060: 3A 03 2C FE 09 28 30 3A CF 2B FE 02 28 16 CD 97 :.,..(0:.+..(...
020070: 31 D0 D5 3A D0 2B 47 05 28 08 C5 CD 97 31 C1 10 1..:.+G.(....1..
020080: F9 37 D1 C9 CD 97 31 D0 D5 CD 97 31 3F 38 05 7E .7....1....1?8.~
020090: FE 0D 20 F5 D1 37 C9 7E FE 1A C8 FE 3E 28 0A FE .. ..7.~....>(..
0200A0: 0D 20 2B 3A 08 2B B7 28 25 3A 07 2B B7 28 13 7E . +:.+.(%:.+.(.~
0200B0: FE 1A C8 CD 3F 30 23 FE 0D 20 F4 7E CD 3F 30 23 ....?0#.. .~.?0#
0200C0: 18 D5 7E 23 FE 1A C8 FE 0D 20 F7 23 18 C9 97 32 ..~#..... .#...2
0200D0: 07 2B 32 08 2B 54 5D 7E FE 1A 37 C8 23 FE 0D 20 .+2.+T]~..7.#..
0200E0: F6 23 37 C9 E5 D5 4E 23 46 2B 1A 77 79 12 13 23 .#7...N#F+.wy..#
0200F0: 1A 77 78 12 D1 E1 DD 21 FD 31 C3 FD 0A DD E5 CD .wx....!.1......
020100: 05 32 DD E1 C9 DD 21 F3 2B 06 10 0E 00 DD 7E 00 .2....!.+.....~.
020110: B7 C8 C5 E5 D5 CD A2 32 D1 E1 C1 C0 7C 92 20 04 .......2....|. .
020120: 7D 93 28 21 3A 04 2C 3D B9 20 1A E5 7E 23 FE 0D }.(!:.,=. ..~#..
020130: 20 FA CB 7E E1 20 0E E5 62 6B 7E 23 FE 0D 20 FA ..~. ..bk~#.. .
020140: CB 7E E1 28 06 DD 23 0C 10 C3 C9 E5 21 9A 28 CD .~.(..#.....!.(.
020150: 2A 07 E1 E5 CD 8E 35 21 BC 28 CD 2A 07 62 6B CD *.....5!.(.*.bk.
020160: 8E 35 21 C1 28 CD 2A 07 E1 CD 5D 25 D2 43 2F FE .5!.(.*...]%.C/.
020170: 31 28 0A FE 32 28 15 FE 0D 28 22 18 EC CD 75 06 1(..2(...("...u.
020180: E5 7E 23 FE 0D 20 FA CB FE E1 18 B9 CD 75 06 E5 .~#.. .......u..
020190: 62 6B 7E 23 FE 0D 20 FA CB FE E1 18 A8 CD B7 06 bk~#.. .........
0201A0: 18 A3 B7 20 02 3E 01 32 46 2B 3A 03 2C FE 09 20 .£. .>.2F+:.,..
0201B0: 63 3A 46 2B B7 F2 BA 32 ED 44 47 18 28 CD E2 35 c:F+...2.DG.(..5
0201C0: FE 09 28 07 FE 0D 28 03 23 18 F2 CD DC 35 FE 09 ..(...(.#....5..
0201D0: 28 07 FE 0D 28 03 13 18 F2 7E FE 09 20 01 23 1A (...(....~.. .#.
0201E0: FE 09 20 01 13 10 D6 7E FE 09 20 01 23 1A FE 09 .. ....~.. .#...
0201F0: 20 01 13 2B 23 7E FE 20 28 FA FE 27 28 F6 FE 22 ..+#~. (..'(.."
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 00 02 09 4E E5 1B 00 C1 02 00 00 00 02 ......N.........
020220: 1B 00 C6 02 00 00 00 02 1B 00 C2 02 00 00 00 02 ................
020230: 1B 00 C7 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020240: 1B 00 C8 02 00 00 00 02 1B 00 C4 02 00 00 00 02 ................
020250: 1B 00 C9 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 f2! ; phone..!f3
020310: 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 21 !..!f4!..!f5!..!
020320: 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 0D f6!..!f7!..!f8!.
020330: 0A 3E 45 49 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A .>EI..>EI..>PA..
020340: 3E 45 49 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 >EI ; f1..>UN f1
020350: 3D 22 65 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E ="end"..>>>..>>>
020360: 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 END OF MAIN MAI
020370: 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E 0D L MERGE SECTION.
020380: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
020390: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
0203A0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
0203B0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
0203C0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E id df..>>>>>>>>
0203D0: 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C 20 70 >>>..>>> Label p
0203E0: 72 69 6E 74 65 72 20 28 33 20 61 63 72 6F 73 73 rinter (3 across
0203F0: 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 ) (c) Arnor 1988
020400: 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 0A 3E ..>>>..>IU lm..>
020410: 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 20 64 SV gt=">"..>SV d
020420: 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D 2D 2D ashes80="-------
020430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
020470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 53 0D ---------"..>CS.
020480: 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 50 52 .>DM " "..>DM PR
020490: 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 69 6E OTEXT label prin
0204A0: 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 33 20 ting program (3
0204B0: 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 20 22 across)..>DM " "
0204C0: 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 6F 66 ..>AV "Number of
0204D0: 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 65 6C lines per label
0204E0: 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 6E 0D [&defpl&]: " n.
0204F0: 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D 0A 3E .>SV pl=defpl..>
020500: 0A 0D 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 ...Mahler..Symph
020510: 6F 6E 79 20 6E 6F 2E 20 34 0D 0A 43 44 0D 0A 31 ony no. 4..CD..1
020520: 39 38 34 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 984..Chicago S.O
020530: 2E 20 77 69 74 68 20 4B 69 72 69 20 54 65 20 4B . with Kiri Te K
020540: 61 6E 61 77 61 0D 0A 53 69 72 20 47 65 6F 72 67 anawa..Sir Georg
020550: 20 53 6F 6C 74 69 0D 0A 0D 0A 4D 69 6B 65 20 4F Solti....Mike O
020560: 6C 64 66 69 65 6C 64 0D 0A 54 75 62 75 6C 61 72 ldfield..Tubular
020570: 20 42 65 6C 6C 73 0D 0A 52 65 63 6F 72 64 0D 0A Bells..Record..
020580: 31 39 37 33 0D 0A 0D 0A 0D 0A 0D 0A 4D 6F 7A 61 1973........Moza
020590: 72 74 0D 0A 45 69 6E 65 20 6B 6C 65 69 6E 65 20 rt..Eine kleine
0205A0: 4E 61 63 68 74 6D 75 73 69 6B 0D 0A 43 44 0D 0A Nachtmusik..CD..
0205B0: 31 39 38 33 0D 0A 57 69 65 6E 65 72 20 50 68 69 1983..Wiener Phi
0205C0: 6C 68 61 72 6D 6F 6E 69 6B 65 72 0D 0A 4A 61 6D lharmoniker..Jam
0205D0: 65 73 20 4C 65 76 69 6E 65 0D 0A 0D 0A 4D 6F 7A es Levine....Moz
0205E0: 61 72 74 0D 0A 4B 6C 61 76 69 65 72 73 6F 6E 61 art..Klaviersona
0205F0: 74 65 6E 20 31 30 20 26 20 31 37 0D 0A 52 65 63 ten 10 & 17..Rec
020600: 6F 72 64 0D 0A 31 39 37 39 0D 0A 22 4B 61 72 6C ord..1979.."Karl
020610: 20 42 65 74 7A 2C 20 70 69 61 6E 6F 22 0D 0A 0D Betz, piano"...
020620: 0A 0D 0A 4D 6F 7A 61 72 74 0D 0A 53 79 6D 70 68 ...Mozart..Symph
020630: 6F 6E 69 65 73 20 33 35 20 26 20 33 34 0D 0A 43 onies 35 & 34..C
020640: 44 0D 0A 31 39 38 32 0D 0A 43 6F 6E 63 65 72 74 D..1982..Concert
020650: 67 65 62 6F 75 77 20 4F 72 63 68 65 73 74 72 61 gebouw Orchestra
020660: 0D 0A 4E 69 6B 6F 6C 61 75 73 20 48 61 72 6E 6F ..Nikolaus Harno
020670: 6E 63 6F 75 72 74 0D 0A 0D 0A 4D 6F 7A 61 72 74 ncourt....Mozart
020680: 0D 0A 53 79 6D 70 68 6F 6E 69 65 73 20 34 30 20 ..Symphonies 40
020690: 26 20 34 31 0D 0A 43 61 73 73 0D 0A 31 39 38 34 & 41..Cass..1984
0206A0: 0D 0A 45 6E 67 6C 69 73 68 20 43 68 61 6D 62 65 ..English Chambe
0206B0: 72 20 4F 72 63 68 65 73 74 72 61 0D 0A 4A 65 66 r Orchestra..Jef
0206C0: 66 72 65 79 20 54 61 74 65 0D 0A 0D 0A 50 61 75 frey Tate....Pau
0206D0: 6C 20 53 69 6D 6F 6E 0D 0A 47 72 61 63 65 6C 61 l Simon..Gracela
0206E0: 6E 64 0D 0A 43 61 73 73 0D 0A 31 39 38 37 0D 0A nd..Cass..1987..
0206F0: 0D 0A 0D 0A 0D 0A 50 69 6E 6B 20 46 6C 6F 79 64 ......Pink Floyd
020700: 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E "..>ei..>ei..>un
020710: 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 20 3B 20 75 n=maxn..>ei ; u
020720: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 3E 3E 0D seprod="y"..>>>.
020730: 0A 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 68 .>>> print out h
020740: 65 61 64 69 6E 67 20 61 74 20 74 6F 70 20 6F 66 eading at top of
020750: 20 73 68 65 65 74 0D 0A 3E 3E 3E 0D 0A 3E 64 6D sheet..>>>..>dm
020760: 20 22 20 22 0D 0A 3E 20 20 20 20 20 20 20 20 20 " "..>
020770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020790: 20 20 21 20 20 20 20 20 20 20 20 20 20 6C 20 20 ! l
0207A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0207B0: 72 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 75 6C 65 r..>wf on..&rule
0207C0: 72 31 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D r1&..>wfoff..>wm
0207D0: 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 ..>if prconame="
0207E0: 79 22 0D 0A 3E 77 6D 20 EC 21 63 6F 6E 61 6D 65 y"..>wm .!coname
0207F0: 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 31 21 !..>wm !coaddr1!
020800: 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 32 21 0D ..>wm !coaddr2!.
020810: 0A 3E 77 6D 20 21 63 6F 61 64 64 72 33 21 0D 0A .>wm !coaddr3!..
020820: 3E 77 6D 20 21 63 6F 61 64 64 72 34 21 0D 0A 3E >wm !coaddr4!..>
020830: 77 6D 20 21 63 6F 61 64 64 72 35 21 EC 0D 0A 3E wm !coaddr5!...>
020840: 65 69 0D 0A 3E 3E 3E 20 67 6F 20 74 6F 20 6C 69 ei..>>> go to li
020850: 6E 65 20 26 61 6C 69 6E 65 26 0D 0A 3E 73 76 20 ne &aline&..>sv
020860: 6E 3D 61 6C 69 6E 65 2D 63 61 6C 69 6E 65 2D 36 n=aline-caline-6
020870: 0D 0A 3E 72 70 0D 0A 3E 77 6D 0D 0A 3E 73 76 20 ..>rp..>wm..>sv
020880: 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A n=n-1..>un n=0..
020890: 3E 77 6D 20 21 61 30 21 0D 0A 3E 77 6D 20 21 61 >wm !a0!..>wm !a
0208A0: 31 21 0D 0A 3E 77 6D 20 21 61 32 21 0D 0A 3E 77 1!..>wm !a2!..>w
0208B0: 6D 20 21 61 33 21 09 EC 26 54 49 54 4C 45 26 EC m !a3!..&TITLE&.
0208C0: 0D 0A 3E 77 6D 20 21 61 34 21 09 0D 0A 3E 77 6D ..>wm !a4!...>wm
0208D0: 20 21 61 35 21 09 4E 75 6D 62 65 72 20 20 20 20 !a5!.Number
0208E0: 20 26 6E 75 6D 62 65 72 26 0D 0A 3E 77 6D 20 21 &number&..>wm !
0208F0: 61 36 21 09 44 61 74 65 20 20 20 20 20 20 20 26 a6!.Date &
020900: 0D 0A 41 6E 69 6D 61 6C 73 0D 0A 43 44 0D 0A 31 ..Animals..CD..1
020910: 39 37 37 0D 0A 0D 0A 0D 0A 0D 0A 50 69 6E 6B 20 977........Pink
020920: 46 6C 6F 79 64 0D 0A 44 61 72 6B 20 53 69 64 65 Floyd..Dark Side
020930: 20 6F 66 20 74 68 65 20 4D 6F 6F 6E 0D 0A 43 44 of the Moon..CD
020940: 0D 0A 31 39 37 33 0D 0A 0D 0A 0D 0A 0D 0A 53 63 ..1973........Sc
020950: 68 75 6D 61 6E 6E 0D 0A 53 79 6D 70 68 6F 6E 79 humann..Symphony
020960: 20 6E 6F 2E 20 32 0D 0A 52 65 63 6F 72 64 0D 0A no. 2..Record..
020970: 31 39 38 31 0D 0A 57 69 65 6E 65 72 20 50 68 69 1981..Wiener Phi
020980: 6C 68 61 72 6D 6F 6E 69 6B 65 72 0D 0A 5A 75 62 lharmoniker..Zub
020990: 69 6E 20 4D 65 68 74 61 0D 0A 0D 0A 53 75 7A 61 in Mehta....Suza
0209A0: 6E 6E 65 20 56 65 67 61 0D 0A 53 6F 6C 69 74 75 nne Vega..Solitu
0209B0: 64 65 20 53 74 61 6E 64 69 6E 67 0D 0A 43 44 0D de Standing..CD.
0209C0: 0A 31 39 38 37 0D 0A 0D 0A 0D 0A 0D 0A 53 75 7A .1987........Suz
0209D0: 61 6E 6E 65 20 56 65 67 61 0D 0A 53 75 7A 61 6E anne Vega..Suzan
0209E0: 6E 65 20 56 65 67 61 0D 0A 43 44 0D 0A 31 39 38 ne Vega..CD..198
0209F0: 35 0D 0A 0D 0A 0D 0A 0D 0A 54 63 68 61 69 6B 6F 5........Tchaiko
020A00: 76 73 6B 79 0D 0A 31 38 31 32 20 4F 76 65 72 74 vsky..1812 Overt
020A10: 75 72 65 0D 0A 43 44 0D 0A 31 39 38 32 0D 0A 43 ure..CD..1982..C
020A20: 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 0A 44 61 6E hicago S.O...Dan
020A30: 69 65 6C 20 42 61 72 65 6E 62 6F 69 6D 0D 0A 0D iel Barenboim...
020A40: 0A 54 63 68 61 69 6B 6F 76 73 6B 79 0D 0A 52 6F .Tchaikovsky..Ro
020A50: 6D 65 6F 20 61 6E 64 20 4A 75 6C 69 65 74 0D 0A meo and Juliet..
020A60: 43 61 73 73 0D 0A 31 39 38 33 0D 0A 42 65 72 6C Cass..1983..Berl
020A70: 69 6E 65 72 20 50 68 69 6C 68 61 72 6D 6F 6E 69 iner Philharmoni
020A80: 6B 65 72 0D 0A 48 65 72 62 65 72 74 20 76 6F 6E ker..Herbert von
020A90: 20 4B 61 72 61 6A 61 6E 0D 0A 0D 0A 54 63 68 61 Karajan....Tcha
020AA0: 69 6B 6F 76 73 6B 79 0D 0A 53 79 6D 70 68 6F 6E ikovsky..Symphon
020AB0: 79 20 6E 6F 2E 20 34 0D 0A 52 65 63 6F 72 64 0D y no. 4..Record.
020AC0: 0A 31 39 37 36 0D 0A 4E 65 77 20 59 6F 72 6B 20 .1976..New York
020AD0: 50 68 69 6C 68 61 72 6D 6F 6E 69 63 0D 0A 4C 65 Philharmonic..Le
020AE0: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
020AF0: 0A 0D 0A 56 69 76 61 6C 64 69 0D 0A 54 68 65 20 ...Vivaldi..The
020B00: 64 61 74 65 26 0D 0A 3E 77 6D 20 21 61 37 21 09 date&..>wm !a7!.
020B10: 4F 72 64 65 72 20 52 65 66 20 20 26 72 65 66 26 Order Ref &ref&
020B20: 0D 0A 3E 3E 3E 20 67 6F 74 6F 20 6C 69 6E 65 20 ..>>> goto line
020B30: 26 74 6C 69 6E 65 26 0D 0A 3E 73 76 20 6E 3D 74 &tline&..>sv n=t
020B40: 6C 69 6E 65 2D 61 6C 69 6E 65 2D 38 0D 0A 3E 72 line-aline-8..>r
020B50: 70 0D 0A 3E 77 6D 20 0D 0A 3E 73 76 20 6E 3D 6E p..>wm ..>sv n=n
020B60: 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 20 20 -1..>un n=0..>
020B70: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
020B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
020B90: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
020BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
020BB0: 20 20 20 20 20 20 52 0D 0A 3E 77 66 6F 6E 0D 0A R..>wfon..
020BC0: 26 72 75 6C 65 72 32 26 0D 0A 3E 77 66 6F 66 66 &ruler2&..>wfoff
020BD0: 0D 0A 3E 77 6D 20 43 4F 44 45 09 44 45 53 43 52 ..>wm CODE.DESCR
020BE0: 49 50 54 49 4F 4E 09 51 55 41 4E 54 49 54 59 09 IPTION.QUANTITY.
020BF0: 55 4E 49 54 20 50 52 49 43 45 09 54 4F 54 41 4C UNIT PRICE.TOTAL
020C00: 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 ..>
020C10: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
020C20: 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 !
020C30: 20 20 20 20 20 20 2E 20 20 20 20 20 20 20 20 20 .
020C40: 20 20 20 20 20 2E 20 20 20 20 20 52 0D 0A 3E 77 . R..>w
020C50: 66 6F 6E 0D 0A 26 72 75 6C 65 72 33 26 0D 0A 3E fon..&ruler3&..>
020C60: 77 66 6F 66 66 0D 0A 3E 77 6D 0D 0A 3E 3E 3E 0D wfoff..>wm..>>>.
020C70: 0A 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 6F .>>> print out o
020C80: 72 64 65 72 20 6C 69 6E 65 73 0D 0A 3E 3E 3E 0D rder lines..>>>.
020C90: 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 .>if useprod="y"
020CA0: 0D 0A 3E 64 6D 20 22 43 61 6C 63 75 6C 61 74 69 ..>dm "Calculati
020CB0: 6E 67 20 74 6F 74 61 6C 73 2E 2E 2E 22 0D 0A 3E ng totals..."..>
020CC0: 64 6D 20 22 20 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D dm " "..>el..>dm
020CD0: 20 22 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 "Enter details
020CE0: 6F 66 20 65 61 63 68 20 69 74 65 6D 20 28 52 45 of each item (RE
020CF0: 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 0D TURN to end): ".
020D00: 46 6F 75 72 20 53 65 61 73 6F 6E 73 0D 0A 52 65 Four Seasons..Re
020D10: 63 6F 72 64 20 20 20 20 20 20 20 20 20 20 20 20 cord
020D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020D30: 20 20 0D 0A 31 39 38 31 0D 0A 22 41 73 74 6F 72 ..1981.."Astor
020D40: 72 65 20 46 65 72 72 61 72 69 2C 20 76 69 6F 6C re Ferrari, viol
020D50: 69 6E 20 26 20 74 68 65 20 53 74 75 74 74 67 61 in & the Stuttga
020D60: 72 74 20 53 6F 6C 6F 69 73 74 73 22 0D 0A 4D 61 rt Soloists"..Ma
020D70: 72 63 65 6C 20 43 6F 75 72 61 75 64 0D 0A 0D 0A rcel Couraud....
020D80: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
020D90: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
020DA0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
020DB0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
020DC0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
020DD0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
020DE0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
020DF0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
020E00: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
020E10: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
020E20: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
020E30: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
020E40: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
020E50: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
020E60: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
020E70: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
020E80: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
020E90: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
020EA0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
020EB0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
020EC0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
020ED0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
020EE0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
020EF0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
020F00: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>dm " "..>ei..>
020F10: 73 76 20 6E 3D 30 20 71 75 61 6E 74 30 3D 31 20 sv n=0 quant0=1
020F20: 64 69 73 63 6F 75 6E 74 3D 31 0D 0A 3E 73 76 20 discount=1..>sv
020F30: 62 6C 61 6E 6B 6C 69 6E 65 73 3D 69 6E 66 6F 6C blanklines=infol
020F40: 69 6E 65 73 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E ines coden=""..>
020F50: 73 76 20 74 6F 74 3D 30 2E 30 30 0D 0A 3E 69 66 sv tot=0.00..>if
020F60: 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 73 76 20 64 vat?="y"..>sv d
020F70: 75 65 3D 63 61 72 2A 76 61 74 63 66 31 0D 0A 3E ue=car*vatcf1..>
020F80: 65 6C 0D 0A 3E 73 76 20 64 75 65 3D 63 61 72 0D el..>sv due=car.
020F90: 0A 3E 65 69 0D 0A 3E 73 76 20 76 61 74 3D 64 75 .>ei..>sv vat=du
020FA0: 65 2D 63 61 72 0D 0A 3E 72 70 0D 0A 3E 69 66 20 e-car..>rp..>if
020FB0: 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 useprod="y"..>sv
020FC0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
020FD0: 3E 69 66 20 71 75 61 6E 74 26 6E 26 20 3D 20 30 >if quant&n& = 0
020FE0: 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A ..>sv coden=""..
020FF0: 3E 65 6C 0D 0A 3E 73 76 20 64 65 73 63 6E 3D 64 >el..>sv descn=d
021000: 65 73 63 26 6E 26 5B 31 3A 26 64 65 73 63 77 69 esc&n&[1:&descwi
021010: 64 74 68 26 5D 0D 0A 3E 73 76 20 63 6F 64 65 6E dth&]..>sv coden
021020: 3D 63 6F 64 65 26 6E 26 0D 0A 3E 69 66 20 63 6F =code&n&..>if co
021030: 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 63 6F 64 65 den=""..>sv code
021040: 6E 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 n=" "..>ei..>sv
021050: 71 75 61 6E 74 6E 3D 71 75 61 6E 74 26 6E 26 5B quantn=quant&n&[
021060: 77 31 5D 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D w1]..>sv pricen=
021070: 70 72 69 63 65 26 6E 26 0D 0A 3E 73 76 20 76 72 price&n&..>sv vr
021080: 3D 70 72 6F 64 76 61 74 26 6E 26 0D 0A 3E 69 66 =prodvat&n&..>if
021090: 20 63 75 73 74 64 69 73 63 3D 30 0D 0A 3E 73 76 custdisc=0..>sv
0210A0: 20 64 69 73 63 6F 75 6E 74 3D 31 0D 0A 3E 65 6C discount=1..>el
0210B0: 0D 0A 3E 73 76 20 70 72 6F 64 64 69 73 63 6E 3D ..>sv proddiscn=
0210C0: 70 72 6F 64 64 69 73 63 26 6E 26 0D 0A 3E 73 76 proddisc&n&..>sv
0210D0: 20 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 26 63 discount=disc&c
0210E0: 75 73 74 64 69 73 63 26 5B 77 26 70 72 6F 64 64 ustdisc&[w&prodd
0210F0: 69 73 63 6E 26 5D 0D 0A 3E 73 76 20 64 69 73 63 iscn&]..>sv disc
021100: 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 u..>ST..>EI ; id
021110: 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E df..>>>>>>>>>>>
021120: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C ..>>>..>>> Label
021130: 20 70 72 69 6E 74 65 72 20 28 32 20 61 63 72 6F printer (2 acro
021140: 73 73 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 ss) (c) Arnor 19
021150: 38 38 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 88..>>>..>IU lm.
021160: 0A 3E 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 .>SV gt=">"..>SV
021170: 20 64 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D dashes80="-----
021180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0211A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0211B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0211C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 -----------"..>C
0211D0: 53 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 S..>DM " "..>DM
0211E0: 50 52 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 PROTEXT label pr
0211F0: 69 6E 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 inting program (
021200: 32 20 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 2 across)..>DM "
021210: 20 22 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 "..>AV "Number
021220: 6F 66 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 of lines per lab
021230: 65 6C 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 el [&defpl&]: "
021240: 6E 0D 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D n..>SV pl=defpl.
021250: 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 .>IF n <> ""..>S
021260: 56 20 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 V pl=n..>EI..>AV
021270: 20 22 20 20 20 20 20 20 20 20 20 57 69 64 74 68 " Width
021280: 20 6F 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 of labels [&def
021290: 6C 77 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C lw&]: " n..>SV l
0212A0: 77 3D 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C w=deflw..>IF n <
0212B0: 3E 20 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A > ""..>SV lw=n..
0212C0: 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 >EI..>AV "
0212D0: 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 Left mar
0212E0: 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 gin [&deflm&]: "
0212F0: 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D n..>SV lm=deflm
021300: 6F 75 6E 74 3D 64 69 73 63 6F 75 6E 74 2F 31 30 ount=discount/10
021310: 30 20 64 69 73 63 6F 75 6E 74 3D 31 2D 64 69 73 0 discount=1-dis
021320: 63 6F 75 6E 74 0D 0A 3E 65 69 0D 0A 3E 73 76 20 count..>ei..>sv
021330: 75 70 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A uprice=discount*
021340: 70 72 69 63 65 6E 0D 0A 3E 73 76 20 70 72 69 63 pricen..>sv pric
021350: 65 3D 64 69 73 63 6F 75 6E 74 2A 71 75 61 6E 74 e=discount*quant
021360: 6E 2A 70 72 69 63 65 6E 0D 0A 3E 65 69 0D 0A 3E n*pricen..>ei..>
021370: 65 6C 20 20 3B 20 6E 6F 20 70 72 6F 64 75 63 74 el ; no product
021380: 20 66 69 6C 65 0D 0A 3E 61 76 20 22 50 72 6F 64 file..>av "Prod
021390: 75 63 74 20 63 6F 64 65 3A 20 22 20 63 6F 64 65 uct code: " code
0213A0: 6E 0D 0A 3E 69 66 20 63 6F 64 65 6E 3D 22 22 0D n..>if coden="".
0213B0: 0A 3E 73 76 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 .>sv n=maxn..>ei
0213C0: 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 0D ..>if coden<>"".
0213D0: 0A 3E 61 76 20 22 44 65 73 63 72 69 70 74 69 6F .>av "Descriptio
0213E0: 6E 20 3A 20 22 20 64 65 73 63 6E 0D 0A 3E 61 76 n : " descn..>av
0213F0: 20 22 51 75 61 6E 74 69 74 79 20 20 20 20 3A 20 "Quantity :
021400: 22 20 78 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D " x..>sv quantn=
021410: 78 2B 30 20 71 75 61 6E 74 6E 3D 71 75 61 6E 74 x+0 quantn=quant
021420: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 78 3C 3E 71 75 n[w1]..>if x<>qu
021430: 61 6E 74 6E 0D 0A 3E 64 6D 20 22 42 61 64 20 71 antn..>dm "Bad q
021440: 75 61 6E 74 69 74 79 2E 20 50 6C 65 61 73 65 20 uantity. Please
021450: 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 76 20 63 re-enter"..>sv c
021460: 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 oden=""..>ei..>e
021470: 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 i..>if coden<>""
021480: 0D 0A 3E 61 76 20 22 55 6E 69 74 20 70 72 69 63 ..>av "Unit pric
021490: 65 20 20 20 A3 22 20 78 0D 0A 3E 73 76 20 75 70 e £" x..>sv up
0214A0: 72 69 63 65 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C rice=x+0..>if x<
0214B0: 3E 75 70 72 69 63 65 0D 0A 3E 64 6D 20 22 4D 65 >uprice..>dm "Me
0214C0: 61 6E 69 6E 67 6C 65 73 73 20 70 72 69 63 65 2E aningless price.
0214D0: 20 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 Please re-enter
0214E0: 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D "..>sv coden="".
0214F0: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 .>ei..>ei..>if c
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 00 02 09 4E E5 1C 00 C1 02 00 00 00 02 ......N.........
021520: 1C 00 C6 02 00 00 00 02 1C 00 C2 02 00 00 00 02 ................
021530: 1C 00 C7 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021540: 1C 00 C8 02 00 00 00 02 1C 00 C4 02 00 00 00 02 ................
021550: 1C 00 C9 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
021610: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
021620: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
021630: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
021640: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
021650: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
021660: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
021670: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
021680: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
021690: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0216A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0216B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0216C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0216D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0216E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0216F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 20 0D 0A end..end..end ..
021700: 2E 36 35 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D .65.............
021710: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
021720: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 3E 20 20 .............>
021730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021750: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
021760: 20 20 20 20 20 20 20 20 20 4C 20 20 20 20 20 20 L
021770: 2E 20 20 52 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D . R..>---------
021780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0217A0: 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --!-------------
0217B0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 0D 0A 09 -L-------.--R...
0217C0: 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 33 GOODS TOTAL.£.3
0217D0: 36 34 2E 39 31 0D 0A 09 20 43 61 72 72 69 61 67 64.91... Carriag
0217E0: 65 09 A3 09 30 2E 30 30 0D 0A 09 20 4E 45 54 20 e.£.0.00... NET
0217F0: 54 4F 54 41 4C 09 A3 09 33 36 34 2E 39 31 0D 0A TOTAL.£.364.91..
021800: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
021810: 54 65 72 6D 73 3A 20 53 74 72 69 63 74 6C 79 20 Terms: Strictly
021820: 33 30 20 44 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 30 Days Net..>>>
021830: 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 wf off..>ei..>if
021840: 20 74 69 74 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E title[1]="c"..>
021850: 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 >>wf on..>wm Ter
021860: 6D 73 3A 20 54 68 69 73 20 61 6D 6F 75 6E 74 20 ms: This amount
021870: 68 61 73 20 62 65 65 6E 20 63 72 65 64 69 74 65 has been credite
021880: 64 20 74 6F 20 79 6F 75 72 20 61 63 63 6F 75 6E d to your accoun
021890: 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 t..>>>wf off..>e
0218A0: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E i..>ei..>>>wf on
0218B0: 0D 0A 3E 77 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D ..>wm E. & O.E..
0218C0: 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 .>if prconame="y
0218D0: 22 0D 0A 3E 77 6D 20 56 41 54 20 72 65 67 2E 20 "..>wm VAT reg.
0218E0: 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 no. &vatnum&..>e
0218F0: 69 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 i..>>>wf off..>w
021900: 63 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 c..>sv fn=invpat
021910: 68 2B 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 h+title[1]+numbe
021920: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 r+".poi"..>av "P
021930: 72 69 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 rint invoice to
021940: 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 printer or scree
021950: 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A n (P/s)? " x 1..
021960: 3E 69 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E >id cpm..>ex ren
021970: 20 26 66 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F &fn&=&invpath&o
021980: 6D 74 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 mtemp..>el..>ex
021990: 65 72 61 20 26 66 6E 26 0D 0A 3E 73 76 20 72 65 era &fn&..>sv re
0219A0: 6E 66 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D nfn=title[1]+num
0219B0: 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 ber+".poi"..>ex
0219C0: 72 65 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 ren &invpath&omt
0219D0: 65 6D 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 emp &renfn&..>ei
0219E0: 0D 0A 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E ..>wf "omsummar.
0219F0: 69 6E 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D inf" a..>-------
021A00: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
021A10: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
021A20: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
021A30: 66 20 26 66 26 20 66 6D 65 6E 64 0D 0A 3E 65 69 f &f& fmend..>ei
021A40: 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A ; iu df..>>>...
021A50: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
021A60: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
021A70: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
021A80: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
021A90: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
021AA0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
021AB0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
021AC0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
021AD0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
021AE0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
021AF0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
021B00: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
021B10: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
021B20: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
021B30: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
021B40: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
021B50: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
021B60: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
021B70: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
021B80: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
021B90: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
021BA0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
021BB0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
021BC0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
021BD0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
021BE0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
021BF0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
021C00: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 6D 75 73 >sv df="mus
021C10: 69 63 22 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 ic"..>sv newfile
021C20: 3D 22 6D 75 73 69 63 2E 6E 65 77 0D 0A 3E 73 76 ="music.new..>sv
021C30: 20 73 65 6C 66 69 6C 65 3D 22 6D 75 73 69 63 2E selfile="music.
021C40: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
021C50: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
021C60: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
021C70: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
021C80: 76 20 6E 32 3D 22 74 69 74 6C 65 22 0D 0A 3E 73 v n2="title"..>s
021C90: 76 20 6E 33 3D 22 6D 65 64 69 75 6D 22 0D 0A 3E v n3="medium"..>
021CA0: 73 76 20 6E 34 3D 22 79 65 61 72 20 72 65 63 6F sv n4="year reco
021CB0: 72 64 65 64 22 0D 0A 3E 73 76 20 6E 35 3D 22 6F rded"..>sv n5="o
021CC0: 72 63 68 65 73 74 72 61 2F 70 65 72 66 6F 72 6D rchestra/perform
021CD0: 65 72 22 0D 0A 3E 73 76 20 6E 36 3D 22 63 6F 6E er"..>sv n6="con
021CE0: 64 75 63 74 6F 72 22 0D 0A 3E 73 76 20 6E 37 3D ductor"..>sv n7=
021CF0: 22 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 ""..>sv fsortopt
021D00: 73 3D 22 2F 66 37 20 2F 73 31 2C 32 20 2F 61 31 s="/f7 /s1,2 /a1
021D10: 20 2F 61 32 22 0D 0A 3E 73 76 20 6D 61 78 77 3D /a2"..>sv maxw=
021D20: 22 32 30 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C "20"..>sv lastbl
021D30: 61 6E 6B 3D 22 79 22 0D 0A 1A 6D 75 73 69 63 2E ank="y"...music.
021D40: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
021D50: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
021D60: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
021D70: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
021D80: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
021D90: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
021DA0: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
021DB0: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
021DC0: 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 20 ei ; if defined
021DD0: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
021DE0: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
021DF0: 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C 65 ption S.4 - Sele
021E00: 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 76 61 oden<>""..>if va
021E10: 74 72 65 67 3D 22 79 22 0D 0A 3E 61 76 20 22 56 treg="y"..>av "V
021E20: 41 54 20 63 6F 64 65 20 28 30 3D 6E 6F 20 56 41 AT code (0=no VA
021E30: 54 29 20 5B 31 5D 3A 20 22 20 76 72 20 31 0D 0A T) [1]: " vr 1..
021E40: 3E 69 66 20 76 72 20 6E 6F 74 69 6E 20 22 30 31 >if vr notin "01
021E50: 32 33 34 35 22 0D 0A 3E 73 76 20 76 72 3D 22 31 2345"..>sv vr="1
021E60: 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 72 3D 22 "..>ei..>if vr="
021E70: 22 0D 0A 3E 73 76 20 76 72 3D 22 31 22 0D 0A 3E "..>sv vr="1"..>
021E80: 65 69 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 ei..>ei..>dm " "
021E90: 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D 75 70 72 ..>sv pricen=upr
021EA0: 69 63 65 20 70 72 69 63 65 3D 70 72 69 63 65 6E ice price=pricen
021EB0: 2A 71 75 61 6E 74 6E 0D 0A 3E 65 69 0D 0A 3E 65 *quantn..>ei..>e
021EC0: 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 i..>if coden<>""
021ED0: 0D 0A 3E 73 76 20 76 61 74 63 66 6E 3D 76 61 74 ..>sv vatcfn=vat
021EE0: 63 66 26 76 72 26 0D 0A 3E 69 66 20 76 61 74 3F cf&vr&..>if vat?
021EF0: 3D 22 79 22 0D 0A 3E 69 66 20 65 78 6F 72 69 6E ="y"..>if exorin
021F00: 63 76 61 74 20 3D 20 22 69 22 0D 0A 3E 73 76 20 cvat = "i"..>sv
021F10: 75 70 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A uprice=discount*
021F20: 70 72 69 63 65 6E 2F 76 61 74 63 66 6E 0D 0A 3E pricen/vatcfn..>
021F30: 73 76 20 70 72 69 63 65 3D 64 69 73 63 6F 75 6E sv price=discoun
021F40: 74 2A 71 75 61 6E 74 6E 2A 70 72 69 63 65 6E 2F t*quantn*pricen/
021F50: 76 61 74 63 66 6E 0D 0A 3E 73 76 20 69 6E 63 70 vatcfn..>sv incp
021F60: 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 rice=discount*pr
021F70: 69 63 65 6E 2A 71 75 61 6E 74 6E 0D 0A 3E 73 76 icen*quantn..>sv
021F80: 20 76 61 74 3D 76 61 74 2B 69 6E 63 70 72 69 63 vat=vat+incpric
021F90: 65 2D 70 72 69 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 e-price..>el..>s
021FA0: 76 20 78 3D 70 72 69 63 65 2A 2E 31 35 20 69 6E v x=price*.15 in
021FB0: 63 70 72 69 63 65 3D 70 72 69 63 65 2B 78 20 76 cprice=price+x v
021FC0: 61 74 3D 76 61 74 2B 78 0D 0A 3E 65 69 0D 0A 3E at=vat+x..>ei..>
021FD0: 65 6C 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 el..>sv incprice
021FE0: 3D 70 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 69 66 =price..>ei..>if
021FF0: 20 71 75 61 6E 74 26 6E 26 3E 30 0D 0A 3E 73 76 quant&n&>0..>sv
022000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022200: 20 74 6F 74 3D 74 6F 74 2B 70 72 69 63 65 20 20 tot=tot+price
022210: 64 75 65 3D 64 75 65 2B 69 6E 63 70 72 69 63 65 due=due+incprice
022220: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
022230: 26 63 6F 64 65 6E 26 09 26 64 65 73 63 6E 26 09 &coden&.&descn&.
022240: 26 71 75 61 6E 74 6E 26 09 26 75 70 72 69 63 65 &quantn&.&uprice
022250: 26 09 26 70 72 69 63 65 26 0D 0A 3E 3E 3E 77 66 &.&price&..>>>wf
022260: 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C off..>sv blankl
022270: 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D ines=blanklines-
022280: 31 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 63 6F 1..>ei..>ei ; co
022290: 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 6E 3D 6D den<>""..>if n=m
0222A0: 61 78 6E 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 axn..>if useprod
0222B0: 3D 22 79 22 0D 0A 3E 73 76 20 75 73 65 70 72 6F ="y"..>sv usepro
0222C0: 64 3D 22 6E 22 20 6E 3D 22 30 22 20 64 69 73 63 d="n" n="0" disc
0222D0: 6F 75 6E 74 3D 31 0D 0A 3E 64 6D 20 22 45 6E 74 ount=1..>dm "Ent
0222E0: 65 72 20 64 65 74 61 69 6C 73 20 6F 66 20 61 6E er details of an
0222F0: 79 20 6F 74 68 65 72 20 69 74 65 6D 73 20 28 52 y other items (R
022300: 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 ETURN to end): "
022310: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A ..>dm " "..>ei..
022320: 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D >ei..>un n=maxn.
022330: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 64 6F 20 73 75 66 .>>>..>>> do suf
022340: 66 69 63 69 65 6E 74 20 62 6C 61 6E 6B 20 6C 69 ficient blank li
022350: 6E 65 73 20 66 6F 72 20 6D 69 73 73 69 6E 67 20 nes for missing
022360: 69 74 65 6D 73 0D 0A 3E 69 66 20 62 6C 61 6E 6B items..>if blank
022370: 6C 69 6E 65 73 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E lines>0..>rp..>>
022380: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E >wf on..>wm ..>>
022390: 3E 77 66 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 >wf off..>sv bla
0223A0: 6E 6B 6C 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E nklines=blanklin
0223B0: 65 73 2D 31 0D 0A 3E 75 6E 20 62 6C 61 6E 6B 6C es-1..>un blankl
0223C0: 69 6E 65 73 3D 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E ines=0..>ei..>>>
0223D0: 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 ..>
0223E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0223F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
022400: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
022410: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
022420: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
022430: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A !-------!----R..
022440: 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 >if title[1]="i"
022450: 0D 0A 3E 73 76 20 73 3D 27 49 09 26 6E 75 6D 62 ..>sv s='I.&numb
022460: 65 72 26 09 26 64 61 74 65 26 09 A3 26 64 75 65 er&.&date&.£&due
022470: 26 09 26 61 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 &.&a0&'..>el..>s
022480: 76 20 64 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 v due=0-due..>sv
022490: 20 73 3D 27 43 09 26 6E 75 6D 62 65 72 26 09 26 s='C.&number&.&
0224A0: 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 date&.£&due&.&a0
0224B0: 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D &'..>ei..>id cpm
0224C0: 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 ..>sv s=s+"
0224D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0224E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0224F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022500: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
022510: 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 v s=s+"
022520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022550: 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D "..>sv s=
022560: 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E s[1:126]..>ei..>
022570: 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E wm '&s&'..>wc..>
022580: 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 wf om.x..>if x="
022590: 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 s"..>wm "ps &fn&
0225A0: 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 |13|; Press a ke
0225B0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 y to continue:|1
0225C0: 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 3|pause|13|load
0225D0: 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 omenu|13|ps"..>e
0225E0: 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 l..>wm "p &fn&|1
0225F0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
022600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 L
022610: 20 20 20 20 20 2E 20 20 52 0D 0A 3E 77 66 20 6F . R..>wf o
022620: 6E 0D 0A 26 72 75 6C 65 72 34 26 0D 0A 3E 77 66 n..&ruler4&..>wf
022630: 20 6F 66 66 0D 0A 3E 73 76 20 63 61 72 3D 63 61 off..>sv car=ca
022640: 72 2B 30 0D 0A 3E 73 76 20 65 78 76 3D 74 6F 74 r+0..>sv exv=tot
022650: 2B 63 61 72 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A +car..>>>wf on..
022660: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
022670: 3E 77 6D 20 09 20 47 4F 4F 44 53 20 54 4F 54 41 >wm . GOODS TOTA
022680: 4C 09 A3 09 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 L.£.&tot&..>wm .
022690: 20 43 61 72 72 69 61 67 65 09 A3 09 26 63 61 72 Carriage.£.&car
0226A0: 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 &..>el..>wm ..>w
0226B0: 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 m ..>ei..>if vat
0226C0: 72 65 67 3D 22 79 22 0D 0A 3E 77 6D 20 09 20 4E reg="y"..>wm . N
0226D0: 45 54 20 54 4F 54 41 4C 09 A3 09 26 65 78 76 26 ET TOTAL.£.&exv&
0226E0: 0D 0A 3E 77 6D 20 09 20 56 41 54 09 A3 09 26 76 ..>wm . VAT.£.&v
0226F0: 61 74 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A at&..>el..>wm ..
022700: 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 >wm ..>ei..>wm .
022710: 20 41 4D 4F 55 4E 54 20 44 55 45 09 A3 09 26 64 AMOUNT DUE.£.&d
022720: 75 65 26 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D ue&..>wm ..>wm .
022730: 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .>
022740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022770: 20 20 20 20 20 20 20 20 20 20 52 0D 0A 3E 77 66 R..>wf
022780: 20 6F 6E 0D 0A 26 72 75 6C 65 72 35 26 0D 0A 3E on..&ruler5&..>
022790: 77 66 6F 66 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F wfoff..>co botto
0227A0: 6D 20 6C 69 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 m line comment h
0227B0: 65 72 65 0D 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 ere..>if footnot
0227C0: 65 3E 22 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A e>""..>>>wf on..
0227D0: 3E 77 6D 20 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A >wm &footnote&..
0227E0: 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A >>>wf off..>el..
0227F0: 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 >if title[1]="i"
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 00 02 09 4E E5 1D 00 C1 02 00 00 00 02 ......N.........
022820: 1D 00 C6 02 00 00 00 02 1D 00 C2 02 00 00 00 02 ................
022830: 1D 00 C7 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022840: 1D 00 C8 02 00 00 00 02 1D 00 C4 02 00 00 00 02 ................
022850: 1D 00 C9 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E ps"..>ei..>wc..>
022910: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E cf..>ex exec om.
022920: 78 0D 0A 3E 73 74 20 22 20 22 0D 0A 1A 3E 3E 3E x..>st " "...>>>
022930: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
022940: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
022950: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
022960: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
022970: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
022980: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
022990: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
0229A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0229B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0229C0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
0229D0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
0229E0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
0229F0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
022A00: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
022A10: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
022A20: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
022A30: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
022A40: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
022A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
022A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
022A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
022A80: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
022A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022AB0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
022AC0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
022AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022B00: 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D 0A 3E 63 nt name: ",n..>c
022B10: 66 0D 0A 3E 64 66 26 64 61 74 61 66 26 20 66 6F f..>df&dataf& fo
022B20: 24 65 6E 64 24 0D 0A 3E 72 70 0D 0A 3E 69 66 20 $end$..>rp..>if
022B30: 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 72 76 20 phone?="y"..>rv
022B40: 61 30 2C 78 2C 61 31 2C 61 32 2C 61 33 2C 61 34 a0,x,a1,a2,a3,a4
022B50: 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 0A 3E 65 6C ,a5,a6,a7,x..>el
022B60: 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 32 2C 61 ..>rv a0,a1,a2,a
022B70: 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 3,a4,a5,a6,a7,x.
022B80: 0A 3E 65 69 0D 0A 3E 69 66 6E 20 69 6E 20 61 30 .>ei..>ifn in a0
022B90: 0D 0A 3E 64 6D 22 20 0D 0A 3E 64 6D 22 46 6F 75 ..>dm" ..>dm"Fou
022BA0: 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 22 nd: '&a0&'..>av"
022BB0: 43 6F 72 72 65 63 74 20 28 59 2F 6E 29 3F 20 22 Correct (Y/n)? "
022BC0: 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 66 61 30 d 1..>ei..>ifa0
022BD0: 3D 22 65 6E 64 22 0D 0A 3E 64 6D 22 20 0D 0A 3E ="end"..>dm" ..>
022BE0: 64 6D 22 4E 6F 74 20 66 6F 75 6E 64 0D 0A 3E 73 dm"Not found..>s
022BF0: 76 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E vd="y"..>ei..>un
022C00: 64 3C 3E 22 6E 22 0D 0A 3E 65 69 0D 0A 3E 69 66 d<>"n"..>ei..>if
022C10: 61 30 3D 22 65 6E 64 22 0D 0A 3E 73 76 61 33 3D a0="end"..>sva3=
022C20: 22 22 20 61 34 3D 22 22 20 61 35 3D 22 22 20 61 "" a4="" a5="" a
022C30: 36 3D 22 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 22 6="" a7=""..>dm"
022C40: 20 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 61 64 64 ..>dm"Enter add
022C50: 72 65 73 73 2C 20 6F 72 20 70 72 65 73 73 20 52 ress, or press R
022C60: 45 54 55 52 4E 20 74 6F 20 72 65 74 75 72 6E 20 ETURN to return
022C70: 74 6F 20 6D 65 6E 75 0D 0A 3E 64 6D 22 20 0D 0A to menu..>dm" ..
022C80: 3E 61 76 22 4E 61 6D 65 3A 20 22 20 61 30 0D 0A >av"Name: " a0..
022C90: 3E 69 66 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A 3E >ifa0=""..>wc..>
022CA0: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
022CB0: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
022CC0: 61 76 22 26 61 26 31 3A 20 22 20 61 31 0D 0A 3E av"&a&1: " a1..>
022CD0: 61 76 22 26 61 26 32 3A 20 22 20 61 32 0D 0A 3E av"&a&2: " a2..>
022CE0: 69 66 61 32 3E 22 22 0D 0A 3E 61 76 22 26 61 26 ifa2>""..>av"&a&
022CF0: 33 3A 20 22 20 61 33 0D 0A 3E 69 66 61 33 3E 22 3: " a3..>ifa3>"
022D00: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
022D10: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
022D20: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
022D30: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
022D40: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
022D50: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
022D60: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
022D70: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
022D80: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
022D90: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
022DA0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
022DB0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
022DC0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
022DD0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
022DE0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
022DF0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
022E00: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
022E10: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
022E20: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
022E30: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
022E40: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
022E50: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
022E60: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
022E70: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
022E80: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
022E90: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
022EA0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
022EB0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
022EC0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
022ED0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
022EE0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
022EF0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
022F00: 22 0D 0A 3E 61 76 22 26 61 26 34 3A 20 22 20 61 "..>av"&a&4: " a
022F10: 34 0D 0A 3E 69 66 61 34 3E 22 22 0D 0A 3E 61 76 4..>ifa4>""..>av
022F20: 22 26 61 26 35 3A 20 22 20 61 35 0D 0A 3E 69 66 "&a&5: " a5..>if
022F30: 61 35 3E 22 22 0D 0A 3E 61 76 22 26 61 26 36 3A a5>""..>av"&a&6:
022F40: 20 22 20 61 36 0D 0A 3E 69 66 61 36 3E 22 22 0D " a6..>ifa6>"".
022F50: 0A 3E 61 76 22 26 61 26 37 3A 20 22 20 61 37 0D .>av"&a&7: " a7.
022F60: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A .>ei..>ei..>ei..
022F70: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E >ei..>ei..>ei..>
022F80: 61 76 22 53 74 61 74 65 6D 65 6E 74 20 64 61 74 av"Statement dat
022F90: 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A 20 e [&sys_date&]:
022FA0: 22 2C 68 0D 0A 3E 69 66 68 3D 22 22 0D 0A 3E 73 ",h..>ifh=""..>s
022FB0: 76 68 3D 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 vh=sys_date..>ei
022FC0: 0D 0A 3E 73 76 66 6F 3D 22 22 0D 0A 3E 69 66 61 ..>svfo=""..>ifa
022FD0: 66 6E 3D 22 79 22 0D 0A 3E 61 76 22 46 6F 6F 74 fn="y"..>av"Foot
022FE0: 6E 6F 74 65 3A 20 22 2C 66 6F 0D 0A 3E 65 69 0D note: ",fo..>ei.
022FF0: 0A 3E 64 6D 22 20 0D 0A 3E 20 20 20 20 20 20 20 .>dm" ..>
023000: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
023010: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
023020: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
023030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
023090: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 31 26 0D 0A 3E ..>wfon..&r1&..>
0230A0: 77 66 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 69 66 wfoff..!sc!..>if
0230B0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 21 73 prconame="y"..!s
0230C0: 63 21 EC 21 63 6F 6E 21 0D 0A 21 73 63 21 21 63 c!.!con!..!sc!!c
0230D0: 6F 61 31 21 0D 0A 21 73 63 21 21 63 6F 61 32 21 oa1!..!sc!!coa2!
0230E0: 0D 0A 21 73 63 21 21 63 6F 61 33 21 0D 0A 21 73 ..!sc!!coa3!..!s
0230F0: 63 21 21 63 6F 61 34 21 0D 0A 21 73 63 21 21 63 c!!coa4!..!sc!!c
023100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023300: 6F 61 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 73 76 6E oa5!...>ei..>svn
023310: 3D 61 6C 2D 63 61 6C 2D 36 0D 0A 3E 72 70 0D 0A =al-cal-6..>rp..
023320: 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D 0A !sc!..>svn=n-1..
023330: 3E 75 6E 6E 3D 30 0D 0A 21 73 63 21 21 61 30 21 >unn=0..!sc!!a0!
023340: 0D 0A 21 73 63 21 21 61 31 21 0D 0A 21 73 63 21 ..!sc!!a1!..!sc!
023350: 21 61 32 21 0D 0A 21 73 63 21 21 61 33 21 09 EC !a2!..!sc!!a3!..
023360: 26 74 26 EC 0D 0A 21 73 63 21 21 61 34 21 09 0D &t&...!sc!!a4!..
023370: 0A 21 73 63 21 21 61 35 21 09 44 61 74 65 20 20 .!sc!!a5!.Date
023380: 20 20 20 20 20 26 68 26 0D 0A 21 73 63 21 21 61 &h&..!sc!!a
023390: 36 21 0D 0A 21 73 63 21 21 61 37 21 0D 0A 3E 73 6!..!sc!!a7!..>s
0233A0: 76 6E 3D 74 6C 2D 61 6C 2D 38 0D 0A 3E 72 70 0D vn=tl-al-8..>rp.
0233B0: 0A 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D .!sc!..>svn=n-1.
0233C0: 0A 3E 75 6E 6E 3D 30 0D 0A 3E 77 66 6F 6E 0D 0A .>unn=0..>wfon..
0233D0: 26 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 21 73 &r2&..>wfoff..!s
0233E0: 63 21 44 41 54 45 09 49 4E 56 4F 49 43 45 20 4E c!DATE.INVOICE N
0233F0: 4F 2E 09 20 20 20 44 45 42 49 54 09 20 20 43 52 O.. DEBIT. CR
023400: 45 44 49 54 09 42 41 4C 41 4E 43 45 0D 0A 3E 77 EDIT.BALANCE..>w
023410: 66 6F 6E 0D 0A 26 72 33 26 0D 0A 3E 77 66 6F 66 fon..&r3&..>wfof
023420: 66 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D 69 6E f..!sc!..>svb=in
023430: 66 6F 6C 73 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 fols..>dm"Enter
023440: 64 65 74 61 69 6C 73 20 28 52 45 54 55 52 4E 20 details (RETURN
023450: 74 6F 20 65 6E 64 29 3A 20 0D 0A 3E 64 6D 22 20 to end): ..>dm"
023460: 0D 0A 3E 72 70 0D 0A 3E 61 76 22 4F 70 65 6E 69 ..>rp..>av"Openi
023470: 6E 67 20 62 61 6C 61 6E 63 65 20 28 2D 20 66 6F ng balance (- fo
023480: 72 20 63 72 65 64 69 74 29 3A 20 A3 22 20 78 0D r credit): £" x.
023490: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
0234A0: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 6F 74 =0..>ei..>sv tot
0234B0: 3D 78 2B 30 0D 0A 3E 75 6E 20 74 6F 74 3D 78 0D =x+0..>un tot=x.
0234C0: 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A 21 73 63 .>if tot<>0..!sc
0234D0: 21 43 61 72 72 69 65 64 20 66 77 64 2E 09 09 09 !Carried fwd....
0234E0: 09 26 74 6F 74 26 0D 0A 3E 73 76 62 3D 62 2D 31 .&tot&..>svb=b-1
0234F0: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 64 6D 20 ..>ei..>rp..>dm
023500: 3E 63 73 22 20 0D 0A 3E 64 6D 22 53 74 61 74 65 >cs" ..>dm"State
023510: 6D 65 6E 74 20 67 65 6E 65 72 61 74 6F 72 20 28 ment generator (
023520: 63 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E c) Arnor 1988..>
023530: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
023540: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
023550: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
023560: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
023570: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
023580: 3D 22 3E 3E 3E 22 0D 0A 3E 65 69 0D 0A 3E 69 75 =">>>"..>ei..>iu
023590: 20 63 70 6D 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 cpm..>sv dc=">d
0235A0: 63 22 20 66 78 6F 6E 3D 22 3E 66 78 6F 6E 22 20 c" fxon=">fxon"
0235B0: 66 78 6F 66 66 3D 22 3E 66 78 6F 66 66 22 0D 0A fxoff=">fxoff"..
0235C0: 26 66 78 6F 6E 26 0D 0A 26 64 63 26 20 22 2E 22 &fxon&..&dc& "."
0235D0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0235E0: 33 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.07..>sv fileda
0235F0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
023600: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
023610: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
023620: 0D 0A 3E 65 69 0D 0A 3E 69 64 20 66 69 6C 65 64 ..>ei..>id filed
023630: 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D ate..>cf..>df om
023640: 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E 72 76 20 invgen.dat..>rv
023650: 73 79 73 5F 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E sys_date..>cf..>
023660: 65 69 0D 0A 3E 68 65 0D 0A 3E 66 6F 0D 0A 3E 73 ei..>he..>fo..>s
023670: 76 66 68 3D 31 20 61 3D 22 41 64 64 72 65 73 73 vfh=1 a="Address
023680: 20 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D 69 6E line "..>dfomin
023690: 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 61 74 vgen.inf..>rvdat
0236A0: 61 66 2C 69 6E 76 70 61 74 68 2C 78 2C 78 2C 70 af,invpath,x,x,p
0236B0: 68 6F 6E 65 3F 0D 0A 3E 72 76 78 2C 78 2C 78 2C hone?..>rvx,x,x,
0236C0: 78 2C 78 2C 69 6E 66 6F 6C 73 2C 65 77 0D 0A 3E x,x,infols,ew..>
0236D0: 72 76 78 2C 78 2C 78 2C 78 2C 78 2C 76 61 74 6E rvx,x,x,x,x,vatn
0236E0: 75 6D 0D 0A 3E 72 76 70 72 63 6F 6E 61 6D 65 2C um..>rvprconame,
0236F0: 78 2C 73 6A 2C 61 66 6E 2C 78 2C 78 2C 78 0D 0A x,sj,afn,x,x,x..
023700: 22 20 0D 0A 3E 61 76 22 54 72 61 6E 73 61 63 74 " ..>av"Transact
023710: 69 6F 6E 20 64 61 74 65 3A 20 22 20 63 6E 0D 0A ion date: " cn..
023720: 3E 69 66 63 6E 3E 22 22 0D 0A 3E 61 76 22 49 6E >ifcn>""..>av"In
023730: 76 6F 69 63 65 20 6E 75 6D 62 65 72 3A 20 22 20 voice number: "
023740: 65 6E 0D 0A 3E 61 76 22 41 6D 6F 75 6E 74 20 28 en..>av"Amount (
023750: 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A 20 A3 - for credit): £
023760: 22 20 78 0D 0A 3E 73 76 20 71 6E 3D 78 2B 30 0D " x..>sv qn=x+0.
023770: 0A 3E 69 66 20 71 6E 3C 3E 78 0D 0A 3E 64 6D 22 .>if qn<>x..>dm"
023780: 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 0D Please re-enter.
023790: 0A 3E 73 76 63 6E 3D 22 20 22 20 75 70 3D 22 22 .>svcn=" " up=""
0237A0: 20 71 6E 3D 30 0D 0A 3E 65 6C 0D 0A 3E 69 66 71 qn=0..>el..>ifq
0237B0: 6E 3C 30 0D 0A 3E 73 76 75 70 3D 30 2D 71 6E 20 n<0..>svup=0-qn
0237C0: 71 6E 3D 22 22 20 74 6F 74 3D 74 6F 74 2D 75 70 qn="" tot=tot-up
0237D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 71 6E 3D 30 2B 71 ..>el..>svqn=0+q
0237E0: 6E 20 75 70 3D 22 22 20 74 6F 74 3D 74 6F 74 2B n up="" tot=tot+
0237F0: 71 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 qn..>ei..>ei..>i
023800: 66 20 71 6E 3C 3E 30 0D 0A 21 73 63 21 26 63 6E f qn<>0..!sc!&cn
023810: 26 09 26 65 6E 26 09 26 71 6E 26 09 26 75 70 26 &.&en&.&qn&.&up&
023820: 09 26 74 6F 74 26 0D 0A 3E 65 69 0D 0A 3E 73 76 .&tot&..>ei..>sv
023830: 62 3D 62 2D 31 0D 0A 3E 65 69 0D 0A 3E 75 6E 63 b=b-1..>ei..>unc
023840: 6E 3D 22 22 0D 0A 3E 69 66 62 3E 30 0D 0A 3E 72 n=""..>ifb>0..>r
023850: 70 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D 62 2D p..!sc!..>svb=b-
023860: 31 0D 0A 3E 75 6E 62 3D 30 0D 0A 3E 65 69 0D 0A 1..>unb=0..>ei..
023870: 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 !sc! ..!sc! ..!s
023880: 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 c! ..!sc! ..!sc!
023890: 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 20 0D ..!sc! ..!sc! .
0238A0: 0A 3E 77 66 6F 6E 0D 0A 26 72 35 26 0D 0A 3E 77 .>wfon..&r5&..>w
0238B0: 66 6F 66 66 0D 0A 3E 69 66 66 6F 3E 22 22 0D 0A foff..>iffo>""..
0238C0: 21 73 63 21 26 66 6F 26 0D 0A 3E 65 6C 0D 0A 21 !sc!&fo&..>el..!
0238D0: 73 63 21 54 68 65 20 61 6D 6F 75 6E 74 20 64 75 sc!The amount du
0238E0: 65 20 69 73 20 74 68 65 20 6C 61 73 74 20 66 69 e is the last fi
0238F0: 67 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C gure in the 'BAL
023900: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
023910: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
023920: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
023930: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
023940: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
023950: 61 34 2C 63 6F 61 35 0D 0A 3E 63 66 0D 0A 3E 3E a4,coa5..>cf..>>
023960: 3E 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 6E >..>av "Statemen
023970: 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 t to printer or
023980: 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 20 file (p/F)? " x
023990: 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 73 1..>if x="p"..>s
0239A0: 76 20 69 63 3D 22 70 22 20 73 63 3D 22 22 0D 0A v ic="p" sc=""..
0239B0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E >el..>rp..>av "N
0239C0: 61 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E ame of file: " n
0239D0: 61 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C ame 8..>un name<
0239E0: 3E 22 22 0D 0A 3E 73 76 20 6E 61 6D 65 3D 22 26 >""..>sv name="&
0239F0: 69 6E 76 70 61 74 68 26 26 6E 61 6D 65 26 2E 70 invpath&&name&.p
023A00: 6F 73 22 0D 0A 3E 73 76 20 69 63 3D 22 70 66 20 os"..>sv ic="pf
023A10: 26 6E 61 6D 65 26 22 20 73 63 3D 22 3E 77 6D 20 &name&" sc=">wm
023A20: 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 20 "..>id cpm..>df
023A30: 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 6E 61 om..>ei..>wf &na
023A40: 6D 65 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D me&..>ei..>wfon.
023A50: 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A .>zm..>tm&cal&..
023A60: 3E 73 6D 26 73 69 64 65 26 0D 0A 3E 77 66 6F 66 >sm&side&..>wfof
023A70: 66 0D 0A 3E 69 66 69 63 5B 32 5D 3C 3E 22 66 22 f..>ific[2]<>"f"
023A80: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 66 66 6F 6E 0D 0A ..>wfon..>ffon..
023A90: 3E 77 66 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 73 76 >wfoff..>ei..>sv
023AA0: 74 3D 22 53 54 41 54 45 4D 45 4E 54 22 0D 0A 3E t="STATEMENT"..>
023AB0: 73 76 6D 6E 3D 30 0D 0A 3E 73 76 64 3D 22 6E 22 svmn=0..>svd="n"
023AC0: 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 61 76 22 53 a0="end"..>av"S
023AD0: 65 61 72 63 68 20 64 61 74 61 66 69 6C 65 20 28 earch datafile (
023AE0: 79 2F 4E 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 y/N)? " x 1..>if
023AF0: 78 3D 22 79 22 0D 0A 3E 61 76 22 41 63 63 6F 75 x="y"..>av"Accou
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 00 02 09 4E E5 1E 00 C1 02 00 00 00 02 ......N.........
023B20: 1E 00 C6 02 00 00 00 02 1E 00 C2 02 00 00 00 02 ................
023B30: 1E 00 C7 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B40: 1E 00 C8 02 00 00 00 02 1E 00 C4 02 00 00 00 02 ................
023B50: 1E 00 C9 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 41 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 ANCE' column..>e
023C10: 69 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E 45 2E i..!sc!E. & O.E.
023C20: 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 ..>if prconame="
023C30: 79 22 0D 0A 21 73 63 21 56 41 54 20 72 65 67 2E y"..!sc!VAT reg.
023C40: 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E no. &vatnum&..>
023C50: 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3D 22 22 0D ei..>ific[2]="".
023C60: 0A 3E 70 61 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 .>pa..>ei..>ific
023C70: 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 63 0D 0A 3E [2]<>"f"..>wc..>
023C80: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
023C90: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
023CA0: 73 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F svfn=ic[w2]+".po
023CB0: 73 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 s"..>av"Send to
023CC0: 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 printer or scree
023CD0: 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A n (P/s)? " x 1..
023CE0: 3E 77 63 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 >wc..>id cpm..>d
023CF0: 66 20 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 6F f om..>ei..>wf o
023D00: 6D 2E 78 0D 0A 3E 69 66 78 3D 22 73 22 0D 0A 3E m.x..>ifx="s"..>
023D10: 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 7C 3B wm "ps &fn&|13|;
023D20: 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 Press a key to
023D30: 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 continue:|13|pau
023D40: 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 se|13|load omenu
023D50: 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 6C 0D |13|ps|13|..>el.
023D60: 0A 3E 77 6D 20 22 6C 6F 61 64 20 26 66 6E 26 7C .>wm "load &fn&|
023D70: 31 33 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 7C 70 13|doc|13||766|p
023D80: 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 |13|load omenu|1
023D90: 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D 0A 3E 3|ps|13|..>ei..>
023DA0: 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 wc..>cf..>ex exe
023DB0: 63 20 6F 6D 2E 78 0D 0A 1A 20 73 79 73 5F 76 65 c om.x... sys_ve
023DC0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
023DD0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
023DE0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
023DF0: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
023E00: 0A 3E 69 66 20 66 3D 22 22 0D 0A 3E 73 76 20 66 .>if f=""..>sv f
023E10: 3D 22 2A 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 ="*"..>ei..>sv f
023E20: 66 3D 22 22 0D 0A 3E 69 66 20 66 3D 22 2A 22 0D f=""..>if f="*".
023E30: 0A 3E 73 76 20 66 3D 22 30 22 20 66 66 3D 22 3E .>sv f="0" ff=">
023E40: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 73 76 20 6E sv f0=f1"..>sv n
023E50: 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =1..>rp..>sv n=n
023E60: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
023E70: 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E ff=ff+"+f&n&"..>
023E80: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D un n>=rlen..>ei.
023E90: 0A 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 75 .>>>..>if opt="u
023EA0: 22 0D 0A 3E 64 66 20 26 6E 65 77 66 69 6C 65 26 "..>df &newfile&
023EB0: 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E fo$end$..>ei..>
023EC0: 69 66 20 6F 70 74 3D 22 6D 22 0D 0A 3E 64 66 20 if opt="m"..>df
023ED0: 26 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 &df& fo$end$..>e
023EE0: 69 0D 0A 3E 69 66 20 6F 70 74 3D 22 73 22 0D 0A i..>if opt="s"..
023EF0: 3E 64 66 20 26 73 65 6C 66 69 6C 65 26 20 66 6F >df &selfile& fo
023F00: 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 65 69 20 $end$..>ei..>ei
023F10: 3B 20 69 75 20 64 66 0D 0A 1A 65 6E 64 22 0D 0A ; iu df...end"..
023F20: 26 66 66 26 0D 0A 3E 73 6B 20 64 20 6E 6F 74 69 &ff&..>sk d noti
023F30: 6E 20 66 26 66 26 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n f&f&..>>>..>dm
023F40: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 6F 75 6E 64 " "..>dm "Found
023F50: 3A 20 26 66 31 26 22 0D 0A 3E 73 76 20 6E 3D 31 : &f1&"..>sv n=1
023F60: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
023F70: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D n=n[w1]..>sv s=
023F80: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
023F90: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
023FA0: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
023FB0: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
023FC0: 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 20 ei ; if defined
023FD0: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
023FE0: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
023FF0: 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C 65 ption S.4 - Sele
024000: 31 5D 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 1]="i"..>>>wf on
024010: 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 ..>wm Terms: Str
024020: 69 63 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 ictly 30 Days Ne
024030: 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 t..>>>wf off..>e
024040: 69 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D i..>if title[1]=
024050: 22 63 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E "c"..>>>wf on..>
024060: 77 6D 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 wm Terms: This a
024070: 6D 6F 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 mount has been c
024080: 72 65 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 redited to your
024090: 61 63 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F account..>>>wf o
0240A0: 66 66 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E ff..>ei..>ei..>>
0240B0: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 >wf on..>wm E. &
0240C0: 20 4F 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E O.E...>if prcon
0240D0: 61 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 ame="y"..>wm VAT
0240E0: 20 72 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 reg. no. &vatnu
0240F0: 6D 26 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F m&..>ei..>>>wf o
024100: 66 66 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D ff..>wc..>sv fn=
024110: 69 6E 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D invpath+title[1]
024120: 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A +number+".poi"..
024130: 3E 61 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 >av "Print invoi
024140: 63 65 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 ce to printer or
024150: 20 73 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 screen (P/s)? "
024160: 20 78 20 31 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E x 1..>id cpm..>
024170: 65 78 20 72 65 6E 20 26 66 6E 26 3D 26 69 6E 76 ex ren &fn&=&inv
024180: 70 61 74 68 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C path&omtemp..>el
024190: 0D 0A 3E 65 78 20 65 72 61 20 26 66 6E 26 0D 0A ..>ex era &fn&..
0241A0: 3E 73 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 5B >sv renfn=title[
0241B0: 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 1]+number+".poi"
0241C0: 0D 0A 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 61 ..>ex ren &invpa
0241D0: 74 68 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 6E th&omtemp &renfn
0241E0: 26 0D 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D 73 &..>ei..>wf "oms
0241F0: 75 6D 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E 2D ummar.inf" a..>-
024200: 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 73 5F >sv sys_ver=sys_
024210: 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 ver..>if sys_ver
024220: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
024230: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
024240: 6C 65 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 6E 63 le..>cs " "..>nc
024250: 20 32 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 2..>dm "Option
024260: 49 20 2D 20 49 6E 69 74 69 61 6C 69 73 65 20 6E I - Initialise n
024270: 65 77 20 64 61 74 61 20 66 69 6C 65 0D 0A 3E 64 ew data file..>d
024280: 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D 65 m " "..>av "Name
024290: 20 6F 66 20 6E 65 77 20 64 61 74 61 20 66 69 6C of new data fil
0242A0: 65 3A 20 22 20 64 66 0D 0A 3E 73 76 20 66 3D 64 e: " df..>sv f=d
0242B0: 66 5B 77 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 f[w1]..>sv newfi
0242C0: 6C 65 3D 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 le=f+".new"..>sv
0242D0: 20 73 65 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C selfile=f+".sel
0242E0: 22 0D 0A 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 "..>sv pfifile=f
0242F0: 2B 22 2E 70 66 69 22 0D 0A 3E 69 66 20 66 3D 22 +".pfi"..>if f="
024300: 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A "..>ex exec fm..
024310: 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 >st..>ei..>dm "
024320: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 78 "..>rp..>av "Fix
024330: 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 6C ed or variable l
024340: 65 6E 67 74 68 20 72 65 63 6F 72 64 73 20 5B 66 ength records [f
024350: 2F 76 5D 3F 20 22 20 66 76 20 31 0D 0A 3E 75 6E /v]? " fv 1..>un
024360: 20 66 76 20 69 6E 20 22 66 76 22 0D 0A 3E 64 6D fv in "fv"..>dm
024370: 20 22 20 22 0D 0A 3E 69 66 20 66 76 3D 22 66 22 " "..>if fv="f"
024380: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 46 ..>rp..>sv fv="F
024390: 69 78 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 ixed"..>av "Numb
0243A0: 65 72 20 6F 66 20 66 69 65 6C 64 73 3A 20 22 20 er of fields: "
0243B0: 72 6C 65 6E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F rlen..>sv fsorto
0243C0: 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 0D 0A pts="/f&rlen&"..
0243D0: 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E >un rlen>="2"..>
0243E0: 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 dm " "..>rp..>av
0243F0: 20 22 49 73 20 74 68 65 20 6C 61 73 74 20 66 69 "Is the last fi
024400: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
024410: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
024420: 26 66 66 26 0D 0A 3E 73 6B 20 64 20 6E 6F 74 69 &ff&..>sk d noti
024430: 6E 20 66 26 66 26 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n f&f&..>>>..>dm
024440: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 6F 75 6E 64 " "..>dm "Found
024450: 3A 20 26 66 31 26 22 0D 0A 3E 73 76 20 6E 3D 31 : &f1&"..>sv n=1
024460: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
024470: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D n=n[w1]..>sv s=
024480: 66 26 6E 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 f&n&..>dm "
024490: 20 20 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 &s&"..>un n>=r
0244A0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
0244B0: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4F 4B 20 "..>rp..>av "OK
0244C0: 5B 79 2F 4E 5D 3F 20 22 20 79 65 73 6E 6F 20 31 [y/N]? " yesno 1
0244D0: 0D 0A 3E 75 6E 20 79 65 73 6E 6F 20 69 6E 20 22 ..>un yesno in "
0244E0: 79 6E 22 0D 0A 3E 73 6B 20 79 65 73 6E 6F 3C 3E yn"..>sk yesno<>
0244F0: 22 79 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 "y"..>dm " "..>d
024500: 6D 20 22 57 72 69 74 69 6E 67 20 64 61 74 61 20 m "Writing data
024510: 2E 2E 2E 22 0D 0A 3E 77 66 20 66 6D 2E 6F 6E 65 ..."..>wf fm.one
024520: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
024530: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
024540: 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E ]..>sv s=f&n&..>
024550: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
024560: 6C 65 6E 0D 0A 3E 77 63 0D 0A 3E 77 66 20 66 6D len..>wc..>wf fm
024570: 2E 78 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 77 6D .x..>id cpm..>wm
024580: 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 "clear|13|y|766
024590: 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 |merge fm.one|13
0245A0: 7C 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C ||765||233||541|
0245B0: 7C 32 33 33 7C 7C 30 7C 22 0D 0A 3E 65 6C 0D 0A |233||0|"..>el..
0245C0: 3E 77 6D 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C >wm "clear|13|y|
0245D0: 37 36 36 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 766|merge fm.one
0245E0: 7C 31 33 7C 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 |13||765||538||5
0245F0: 34 31 7C 7C 35 33 38 7C 7C 35 31 32 7C 22 0D 0A 41||538||512|"..
024600: 65 6C 64 20 61 6C 77 61 79 73 20 74 6F 20 62 65 eld always to be
024610: 20 62 6C 61 6E 6B 20 28 59 2F 6E 29 3F 20 22 20 blank (Y/n)? "
024620: 6C 61 73 74 62 6C 61 6E 6B 20 31 0D 0A 3E 75 6E lastblank 1..>un
024630: 20 6C 61 73 74 62 6C 61 6E 6B 20 69 6E 20 22 79 lastblank in "y
024640: 6E 22 0D 0A 3E 69 66 20 6C 61 73 74 62 6C 61 6E n"..>if lastblan
024650: 6B 3D 22 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C k=""..>sv lastbl
024660: 61 6E 6B 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 65 ank="y"..>ei..>e
024670: 6C 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 l..>rp..>sv fv="
024680: 56 61 72 69 61 62 6C 65 22 20 6C 61 73 74 62 6C Variable" lastbl
024690: 61 6E 6B 3D 22 6E 22 0D 0A 3E 61 76 20 22 4D 61 ank="n"..>av "Ma
0246A0: 78 69 6D 75 6D 20 6E 75 6D 62 65 72 20 6F 66 20 ximum number of
0246B0: 66 69 65 6C 64 73 3A 20 22 20 72 6C 65 6E 0D 0A fields: " rlen..
0246C0: 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 3D 22 2F >sv fsortopts="/
0246D0: 76 22 0D 0A 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 v"..>un rlen>="2
0246E0: 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D "..>ei..>dm " ".
0246F0: 0A 3E 64 6D 20 22 50 6C 65 61 73 65 20 65 6E 74 .>dm "Please ent
024700: 65 72 20 66 69 65 6C 64 20 6E 61 6D 65 73 3A 20 er field names:
024710: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D "..>sv n=0..>rp.
024720: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
024730: 31 5D 0D 0A 3E 61 76 20 22 66 69 65 6C 64 26 6E 1]..>av "field&n
024740: 26 3A 20 22 20 6E 26 6E 26 20 34 30 0D 0A 3E 69 &: " n&n& 40..>i
024750: 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 0D f lastblank="y".
024760: 0A 3E 69 66 20 6E 3D 72 6C 65 6E 2D 31 0D 0A 3E .>if n=rlen-1..>
024770: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 73 76 20 6E sv n=rlen..>sv n
024780: 26 6E 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 &n&=""..>ei..>ei
024790: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0247A0: 3E 3E 0D 0A 3E 3E 3E 20 77 6F 72 6B 20 6F 75 74 >>..>>> work out
0247B0: 20 6D 61 78 20 66 69 65 6C 64 20 6E 61 6D 65 20 max field name
0247C0: 77 69 64 74 68 21 0D 0A 3E 73 76 20 6D 61 78 77 width!..>sv maxw
0247D0: 3D 22 31 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D ="1"..>sv n="1".
0247E0: 0A 3E 72 70 0D 0A 3E 69 66 20 6E 26 6E 26 5B 26 .>rp..>if n&n&[&
0247F0: 6D 61 78 77 26 5D 3C 3E 22 22 0D 0A 3E 73 76 20 maxw&]<>""..>sv
024800: 3E 65 69 0D 0A 3E 3E 3E 3E 77 6D 20 22 6C 20 66 >ei..>>>>wm "l f
024810: 6D 2E 6F 6E 65 7C 31 33 7C 79 7C 36 33 39 7C 7C m.one|13|y|639||
024820: 37 36 34 7C 7C 32 33 33 7C 7C 32 39 7C 7C 32 33 764||233||29||23
024830: 33 7C 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 20 3|"..>wc..>cf.;
024840: 6C 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 let exec have ha
024850: 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 ndle 0..>ex exec
024860: 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 6C 20 fm.x..>st..>el
024870: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
024880: 22 0D 0A 3E 77 74 20 22 4E 6F 74 20 66 6F 75 6E "..>wt "Not foun
024890: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
0248A0: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 22 0D o continue ...".
0248B0: 0A 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 .>ex exec fm..>s
0248C0: 74 0D 0A 3E 65 69 20 3B 20 66 31 3C 3E 65 6E 64 t..>ei ; f1<>end
0248D0: 0D 0A 3E 65 69 20 3B 20 69 66 20 64 65 66 69 6E ..>ei ; if defin
0248E0: 65 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 ed df..>>>..>iu
0248F0: 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D df..>sv sys_ver=
024900: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
024910: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
024920: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 63 73 20 22 ="1"..>ei..>cs "
024930: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
024940: 46 20 2D 20 46 69 6E 64 20 73 69 6E 67 6C 65 20 F - Find single
024950: 72 65 63 6F 72 64 0D 0A 3E 64 6D 20 22 20 22 0D record..>dm " ".
024960: 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 .>in fm$pfi$..>s
024970: 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D v fv=fv[1] rlen=
024980: 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 rlen[w1]..>if fv
024990: 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D ="f"..>sv flist=
0249A0: 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 ">ru"..>el..>sv
0249B0: 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 flist=">rv"..>ei
0249C0: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
0249D0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0249E0: 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 ]..>sv flist = f
0249F0: 6C 69 73 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A list + " f&n&"..
024A00: 6D 61 78 77 3D 6D 61 78 77 2B 31 20 6D 61 78 77 maxw=maxw+1 maxw
024A10: 3D 6D 61 78 77 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A =maxw[w1]..>el..
024A20: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
024A30: 5D 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 ]..>ei..>un n>=r
024A40: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6D 32 len..>>>..>sv m2
024A50: 3D 22 22 20 6D 33 3D 22 22 20 74 32 3D 22 22 20 ="" m3="" t2=""
024A60: 74 33 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A t3=""..>dm " "..
024A70: 3E 61 76 20 22 46 69 72 73 74 20 66 69 65 6C 64 >av "First field
024A80: 20 6E 75 6D 62 65 72 20 66 6F 72 20 73 6F 72 74 number for sort
024A90: 69 6E 67 20 6F 6E 20 5B 31 5D 3A 20 22 20 6D 31 ing on [1]: " m1
024AA0: 0D 0A 3E 69 66 20 6D 31 3D 22 22 0D 0A 3E 73 76 ..>if m1=""..>sv
024AB0: 20 6D 31 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 61 m1="1"..>ei..>a
024AC0: 76 20 22 20 20 20 20 20 20 20 20 20 20 20 20 73 v " s
024AD0: 6F 72 74 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F ort type [A/z/p/
024AE0: 77 2F 6C 2F 6E 2F 64 5D 3A 20 22 20 74 31 0D 0A w/l/n/d]: " t1..
024AF0: 3E 69 66 20 74 31 3D 22 22 0D 0A 3E 73 76 20 74 >if t1=""..>sv t
024B00: 31 3D 22 61 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 1="a"..>ei..>>>.
024B10: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 53 .>dm " "..>av "S
024B20: 65 63 6F 6E 64 20 66 69 65 6C 64 20 6E 75 6D 62 econd field numb
024B30: 65 72 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F er for sorting o
024B40: 6E 3A 20 22 20 6D 32 0D 0A 3E 69 66 20 6D 32 3C n: " m2..>if m2<
024B50: 3E 22 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 >""..>av "
024B60: 20 20 20 20 20 20 73 6F 72 74 20 74 79 70 65 20 sort type
024B70: 5B 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 5D 3A [A/z/p/w/l/n/d]:
024B80: 20 22 20 74 32 0D 0A 3E 69 66 20 74 32 3D 22 22 " t2..>if t2=""
024B90: 0D 0A 3E 73 76 20 74 32 3D 22 61 22 0D 0A 3E 65 ..>sv t2="a"..>e
024BA0: 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D i..>>>..>dm " ".
024BB0: 0A 3E 61 76 20 22 54 68 69 72 64 20 66 69 65 6C .>av "Third fiel
024BC0: 64 20 6E 75 6D 62 65 72 20 66 6F 72 20 73 6F 72 d number for sor
024BD0: 74 69 6E 67 20 6F 6E 3A 20 22 20 6D 33 0D 0A 3E ting on: " m3..>
024BE0: 69 66 20 6D 33 3C 3E 22 22 0D 0A 3E 61 76 20 22 if m3<>""..>av "
024BF0: 20 20 20 20 20 20 20 20 20 20 20 20 73 6F 72 74 sort
024C00: 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E >un n>=rlen..>>>
024C10: 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 4D 61 ..>dm " M - Ma
024C20: 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 26 64 in data file (&d
024C30: 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 f&)..>dm " "..>d
024C40: 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 74 65 m " U - Update
024C50: 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 66 69 file (&newfi
024C60: 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E le&)..>dm " "..>
024C70: 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C 65 63 dm " S - Selec
024C80: 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 6C 66 tion file (&self
024C90: 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A ile&)..>dm " "..
024CA0: 3E 3E 3E 3E 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 >>>>..>rp..>av "
024CB0: 45 6E 74 65 72 20 66 69 6C 65 20 74 6F 20 73 65 Enter file to se
024CC0: 6C 65 63 74 20 66 72 6F 6D 20 5B 6D 2F 75 2F 73 lect from [m/u/s
024CD0: 5D 3A 20 22 20 6F 70 74 20 31 0D 0A 3E 75 6E 20 ]: " opt 1..>un
024CE0: 6F 70 74 20 69 6E 20 22 6D 75 73 22 0D 0A 3E 69 opt in "mus"..>i
024CF0: 66 20 6F 70 74 3D 22 22 0D 0A 3E 65 78 20 65 78 f opt=""..>ex ex
024D00: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
024D10: 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 6C 64 .>>>..>dm "Field
024D20: 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 6E names: "..>sv n
024D30: 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =0..>rp..>sv n=n
024D40: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
024D50: 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E 26 s=n&n&..>dm f&n&
024D60: 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 : &s&..>un n=rle
024D70: 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D n..>>>..>dm " ".
024D80: 0A 3E 61 76 20 22 45 6E 74 65 72 20 64 61 74 61 .>av "Enter data
024D90: 20 73 74 72 69 6E 67 20 74 6F 20 6C 6F 6F 6B 20 string to look
024DA0: 66 6F 72 20 20 20 20 20 20 3A 20 22 20 64 0D 0A for : " d..
024DB0: 3E 61 76 20 22 45 6E 74 65 72 20 66 69 65 6C 64 >av "Enter field
024DC0: 20 6E 75 6D 62 65 72 20 74 6F 20 73 65 61 72 63 number to searc
024DD0: 68 20 6F 6E 20 5B 2A 5D 3A 20 22 20 66 20 32 0D h on [*]: " f 2.
024DE0: 0A 3E 69 66 20 66 5B 31 5D 3D 22 66 22 0D 0A 3E .>if f[1]="f"..>
024DF0: 73 76 20 66 3D 66 5B 32 3A 5D 0D 0A 3E 65 69 0D sv f=f[2:]..>ei.
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 00 02 09 4E E5 1F 00 C1 02 00 00 00 02 ......N.........
024E20: 1F 00 C6 02 00 00 00 02 1F 00 C2 02 00 00 00 02 ................
024E30: 1F 00 C7 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E40: 1F 00 C8 02 00 00 00 02 1F 00 C4 02 00 00 00 02 ................
024E50: 1F 00 C9 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F 77 2F 6C type [A/z/p/w/l
024F10: 2F 6E 2F 64 5D 3A 20 22 20 74 33 0D 0A 3E 69 66 /n/d]: " t3..>if
024F20: 20 74 33 3D 22 22 0D 0A 3E 73 76 20 74 33 3D 22 t3=""..>sv t3="
024F30: 61 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 a"..>ei..>ei..>e
024F40: 69 0D 0A 3E 69 66 20 74 31 5B 31 5D 20 6E 6F 74 i..>if t1[1] not
024F50: 69 6E 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 31 3D in "/-"..>sv t1=
024F60: 22 2F 22 2B 74 31 0D 0A 3E 65 69 0D 0A 3E 73 76 "/"+t1..>ei..>sv
024F70: 20 74 31 3D 74 31 2B 6D 31 0D 0A 3E 3E 3E 0D 0A t1=t1+m1..>>>..
024F80: 3E 69 66 20 74 32 3C 3E 22 22 0D 0A 3E 69 66 20 >if t2<>""..>if
024F90: 74 32 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 t2[1] notin "/-"
024FA0: 0D 0A 3E 73 76 20 74 32 3D 22 2F 22 2B 74 32 0D ..>sv t2="/"+t2.
024FB0: 0A 3E 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B .>ei..>sv t1=t1+
024FC0: 22 20 22 2B 74 32 2B 6D 32 0D 0A 3E 65 69 0D 0A " "+t2+m2..>ei..
024FD0: 3E 3E 3E 0D 0A 3E 69 66 20 74 33 3C 3E 22 22 0D >>>..>if t3<>"".
024FE0: 0A 3E 69 66 20 74 33 5B 31 5D 20 6E 6F 74 69 6E .>if t3[1] notin
024FF0: 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 33 3D 22 2F "/-"..>sv t3="/
025000: 22 2B 74 33 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 "+t3..>ei..>sv t
025010: 31 3D 74 31 2B 22 20 22 2B 74 33 2B 6D 33 0D 0A 1=t1+" "+t3+m3..
025020: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 6D 32 >ei..>>>..>if m2
025030: 3C 3E 22 22 0D 0A 3E 73 76 20 6D 31 3D 6D 31 2B <>""..>sv m1=m1+
025040: 22 2C 22 2B 6D 32 0D 0A 3E 65 69 0D 0A 3E 69 66 ","+m2..>ei..>if
025050: 20 6D 33 3C 3E 22 22 0D 0A 3E 73 76 20 6D 31 3D m3<>""..>sv m1=
025060: 6D 31 2B 22 2C 22 2B 6D 33 0D 0A 3E 65 69 0D 0A m1+","+m3..>ei..
025070: 3E 3E 3E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 >>>..>sv fsortop
025080: 74 73 20 3D 20 66 73 6F 72 74 6F 70 74 73 20 2B ts = fsortopts +
025090: 20 22 20 2F 73 22 2B 6D 31 20 2B 20 22 20 22 2B " /s"+m1 + " "+
0250A0: 74 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D t1..>dm " "..>dm
0250B0: 20 22 46 53 4F 52 54 20 6F 70 74 69 6F 6E 73 20 "FSORT options
0250C0: 61 72 65 20 6E 6F 77 20 27 26 66 73 6F 72 74 6F are now '&fsorto
0250D0: 70 74 73 26 27 2E 22 0D 0A 3E 64 6D 20 22 20 22 pts&'."..>dm " "
0250E0: 0D 0A 3E 61 76 20 22 50 6C 65 61 73 65 20 65 6E ..>av "Please en
0250F0: 74 65 72 20 61 6E 79 20 6F 74 68 65 72 20 46 53 ter any other FS
025100: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
025110: 0A 3E 69 66 20 66 31 2E 30 30 3C 3E 22 65 6E 64 .>if f1.00<>"end
025120: 22 0D 0A 3E 73 76 20 6E 3D 22 30 2E 30 30 22 0D "..>sv n="0.00".
025130: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D .>rp..>sv n=n+1.
025140: 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 66 .>sv s=f&n&..>if
025150: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
025160: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
025170: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
025180: 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 27 22 27 1"..>el..>if '"'
025190: 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 31 22 in s..>sv x="1"
0251A0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D ..>ei..>ei..>ei.
0251B0: 0A 3E 69 66 20 78 3D 22 31 22 0D 0A 3E 69 66 20 .>if x="1"..>if
0251C0: 27 22 27 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 76 '"' notin s..>sv
0251D0: 20 73 3D 27 22 27 2B 73 2B 27 22 27 0D 0A 3E 65 s='"'+s+'"'..>e
0251E0: 6C 0D 0A 3E 69 66 20 22 27 22 20 6E 6F 74 69 6E l..>if "'" notin
0251F0: 20 73 0D 0A 3E 73 76 20 73 3D 22 27 22 2B 73 2B s..>sv s="'"+s+
025200: 22 27 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E "'"..>ei..>ei..>
025210: 73 76 20 78 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E sv x="0"..>ei..>
025220: 69 66 20 73 3D 22 22 0D 0A 3E 69 66 20 66 76 3D if s=""..>if fv=
025230: 22 76 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D "v"..>sv s=n+1 m
025240: 3D 6E 2B 32 0D 0A 3E 73 76 20 73 3D 66 26 73 26 =n+2..>sv s=f&s&
025250: 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D +f&m&..>if s="".
025260: 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>sv n=rlen..>el
025270: 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A 3E 65 69 ..>sv s="$"..>ei
025280: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 ..>ei..>ei..>wm
025290: 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E &s&..>un n>=rlen
0252A0: 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 0D 0A ..>el ; f1=end..
0252B0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 69 64 20 63 70 >wc..>cf..>id cp
0252C0: 6D 0D 0A 3E 65 78 20 63 6F 70 79 20 66 6F 24 65 m..>ex copy fo$e
0252D0: 6E 64 24 20 26 6E 65 77 66 69 6C 65 26 0D 0A 3E nd$ &newfile&..>
0252E0: 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 el..>wf &newfile
0252F0: 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 74 &..>wc..>ei..>wt
025300: 4F 52 54 20 6F 70 74 69 6F 6E 73 3A 20 22 20 66 ORT options: " f
025310: 6F 70 74 73 0D 0A 3E 69 66 20 66 6F 70 74 73 3C opts..>if fopts<
025320: 3E 22 22 0D 0A 3E 69 66 20 66 6F 70 74 73 5B 31 >""..>if fopts[1
025330: 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 0D 0A 3E 73 ] notin "/-"..>s
025340: 76 20 66 6F 70 74 73 3D 22 2F 22 2B 66 6F 70 74 v fopts="/"+fopt
025350: 73 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 73 6F 72 s..>ei..>sv fsor
025360: 74 6F 70 74 73 3D 66 73 6F 72 74 6F 70 74 73 2B topts=fsortopts+
025370: 22 20 22 2B 66 6F 70 74 73 0D 0A 3E 65 69 0D 0A " "+fopts..>ei..
025380: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 43 68 >dm " "..>dm "Ch
025390: 65 63 6B 69 6E 67 20 66 69 6C 65 73 20 2E 2E 2E ecking files ...
0253A0: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 3E 3E 20 6D ..>id cpm..>>> m
0253B0: 61 6B 65 20 73 75 72 65 20 75 70 64 61 74 65 20 ake sure update
0253C0: 66 69 6C 65 20 65 78 69 73 74 73 20 28 62 65 63 file exists (bec
0253D0: 61 75 73 65 20 22 3E 77 66 20 66 69 6C 65 20 61 ause ">wf file a
0253E0: 22 20 6E 65 65 64 73 20 65 78 69 73 74 65 6E 63 " needs existenc
0253F0: 65 29 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 6C e)..>sv f=newfil
025400: 65 5B 77 31 5D 2B 22 2E 62 61 6B 22 0D 0A 3E 65 e[w1]+".bak"..>e
025410: 78 20 63 6F 70 79 20 66 6F 24 65 6E 64 24 20 26 x copy fo$end$ &
025420: 66 26 0D 0A 3E 65 78 20 72 65 6E 20 26 66 26 20 f&..>ex ren &f&
025430: 26 6E 65 77 66 69 6C 65 26 20 20 20 20 20 20 20 &newfile&
025440: 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 20 69 6E ; real file in
025450: 20 2E 62 61 6B 0D 0A 3E 65 78 20 72 65 6E 20 26 .bak..>ex ren &
025460: 6E 65 77 66 69 6C 65 26 20 26 66 26 20 20 20 20 newfile& &f&
025470: 20 20 20 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 ; real file
025480: 20 69 6E 20 72 65 61 6C 20 66 69 6C 65 20 28 73 in real file (s
025490: 69 63 29 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 31 ic)..>sv f=df[w1
0254A0: 5D 2B 22 2E 62 61 6B 22 0D 0A 3E 65 78 20 63 6F ]+".bak"..>ex co
0254B0: 70 79 20 66 6F 24 65 6E 64 24 20 26 66 26 0D 0A py fo$end$ &f&..
0254C0: 3E 65 78 20 72 65 6E 20 26 66 26 20 26 64 66 26 >ex ren &f& &df&
0254D0: 20 20 20 20 20 20 20 20 20 3B 20 72 65 61 6C 20 ; real
0254E0: 66 69 6C 65 20 69 6E 20 2E 62 61 6B 0D 0A 3E 65 file in .bak..>e
0254F0: 78 20 72 65 6E 20 26 64 66 26 20 26 66 26 20 20 x ren &df& &f&
025500: 20 22 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F "Press a key to
025510: 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E continue .....>
025520: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
025530: 0A 3E 65 69 20 3B 20 66 31 0D 0A 3E 65 69 20 3B .>ei ; f1..>ei ;
025540: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
025550: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
025560: 6D 20 22 4F 70 74 69 6F 6E 20 55 20 2D 20 4D 65 m "Option U - Me
025570: 72 67 65 20 75 70 64 61 74 65 20 66 69 6C 65 20 rge update file
025580: 69 6E 74 6F 20 6D 61 69 6E 20 66 69 6C 65 0D 0A into main file..
025590: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
0255A0: 70 66 69 24 0D 0A 3E 73 76 20 73 79 73 5F 76 65 pfi$..>sv sys_ve
0255B0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0255C0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0255D0: 70 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 pm="1"..>ei..>sv
0255E0: 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 fv=fv[1] rlen=r
0255F0: 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D len[w1]..>if fv=
025600: 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 "f"..>sv flist="
025610: 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 >ru"..>el..>sv f
025620: 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D list=">rv"..>ei.
025630: 0A 3E 73 76 20 6E 3D 22 30 2E 30 30 22 0D 0A 3E .>sv n="0.00"..>
025640: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D 0A 3E rp..>sv n=n+1..>
025650: 73 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 sv flist=flist+"
025660: 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 f&n&"..>un n>=r
025670: 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D len..>sv n=n+1 m
025680: 3D 6E 2B 31 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 =n+1..>sv f&n&="
025690: 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 69 64 20 63 " f&m&=""..>id c
0256A0: 70 6D 0D 0A 3E 64 66 20 26 64 66 26 0D 0A 3E 72 pm..>df &df&..>r
0256B0: 76 20 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 v s..>if s="end"
0256C0: 0D 0A 3E 77 66 20 26 64 66 26 0D 0A 3E 65 6C 0D ..>wf &df&..>el.
0256D0: 0A 3E 77 66 20 26 64 66 26 20 61 0D 0A 3E 65 69 .>wf &df& a..>ei
0256E0: 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 26 64 66 26 20 ..>el..>wf &df&
0256F0: 61 0D 0A 3E 65 69 0D 0A 3E 63 66 0D 0A 3E 64 66 a..>ei..>cf..>df
025700: 20 20 20 20 20 20 20 3B 20 72 65 61 6C 20 66 69 ; real fi
025710: 6C 65 20 69 6E 20 72 65 61 6C 20 66 69 6C 65 20 le in real file
025720: 28 73 69 63 29 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 (sic)..>el..>wf
025730: 26 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 77 63 &newfile& a..>wc
025740: 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A ..>ei..>dm " "..
025750: 3E 64 6D 20 22 57 72 69 74 69 6E 67 20 66 69 6C >dm "Writing fil
025760: 65 73 20 2E 2E 2E 22 0D 0A 3E 69 64 20 63 70 6D es ..."..>id cpm
025770: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 66 6D 24 70 66 ..>cf..>df fm$pf
025780: 69 24 09 3B 20 68 61 6E 64 6C 65 20 30 0D 0A 3E i$.; handle 0..>
025790: 65 69 0D 0A 3E 65 69 20 3B 20 69 75 20 70 66 69 ei..>ei ; iu pfi
0257A0: 66 69 6C 65 0D 0A 3E 3E 3E 20 4E 6F 77 20 77 72 file..>>> Now wr
0257B0: 69 74 65 20 74 68 65 6D 20 6F 75 74 0D 0A 3E 77 ite them out..>w
0257C0: 66 20 26 70 66 69 66 69 6C 65 26 09 3B 20 68 61 f &pfifile&.; ha
0257D0: 6E 64 6C 65 20 31 0D 0A 3E 77 6D 20 27 3E 73 76 ndle 1..>wm '>sv
0257E0: 20 20 20 20 20 20 64 66 3D 22 26 64 66 26 22 0D df="&df&".
0257F0: 0A 3E 77 6D 20 27 3E 73 76 20 6E 65 77 66 69 6C .>wm '>sv newfil
025800: 65 3D 22 26 6E 65 77 66 69 6C 65 26 0D 0A 3E 77 e="&newfile&..>w
025810: 6D 20 27 3E 73 76 20 73 65 6C 66 69 6C 65 3D 22 m '>sv selfile="
025820: 26 73 65 6C 66 69 6C 65 26 22 0D 0A 3E 77 6D 20 &selfile&"..>wm
025830: 27 3E 73 76 20 66 76 3D 22 26 66 76 26 22 0D 0A '>sv fv="&fv&"..
025840: 3E 77 6D 20 27 3E 73 76 20 72 6C 65 6E 3D 22 26 >wm '>sv rlen="&
025850: 72 6C 65 6E 26 22 0D 0A 3E 73 76 20 6E 3D 30 0D rlen&"..>sv n=0.
025860: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
025870: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E n=n[w1]..>sv s=n
025880: 26 6E 26 0D 0A 3E 77 6D 20 27 3E 73 76 20 6E 26 &n&..>wm '>sv n&
025890: 6E 26 3D 22 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E n&="&s&"..>un n>
0258A0: 3D 72 6C 65 6E 0D 0A 3E 77 6D 20 27 3E 73 76 20 =rlen..>wm '>sv
0258B0: 66 73 6F 72 74 6F 70 74 73 3D 22 26 66 73 6F 72 fsortopts="&fsor
0258C0: 74 6F 70 74 73 26 22 0D 0A 3E 77 6D 20 27 3E 73 topts&"..>wm '>s
0258D0: 76 20 6D 61 78 77 3D 22 26 6D 61 78 77 26 22 0D v maxw="&maxw&".
0258E0: 0A 3E 77 6D 20 27 3E 73 76 20 6C 61 73 74 62 6C .>wm '>sv lastbl
0258F0: 61 6E 6B 3D 22 26 6C 61 73 74 62 6C 61 6E 6B 26 ank="&lastblank&
025900: 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 65 6E &newfile& fo$en
025910: 64 24 0D 0A 3E 73 76 20 78 3D 22 30 22 0D 0A 3E d$..>sv x="0"..>
025920: 64 6D 20 22 4D 65 72 67 69 6E 67 20 2E 2E 2E 0D dm "Merging ....
025930: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 20 3B 20 .>dm " "..>ei ;
025940: 69 75 20 64 66 0D 0A 1A 26 6E 26 0D 0A 3E 69 66 iu df...&n&..>if
025950: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
025960: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
025970: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
025980: 6E 32 3D 22 74 65 6C 65 70 68 6F 6E 65 22 0D 0A n2="telephone"..
025990: 3E 73 76 20 6E 33 3D 22 61 64 64 72 31 22 0D 0A >sv n3="addr1"..
0259A0: 3E 73 76 20 6E 34 3D 22 61 64 64 72 32 22 0D 0A >sv n4="addr2"..
0259B0: 3E 73 76 20 6E 35 3D 22 61 64 64 72 33 22 0D 0A >sv n5="addr3"..
0259C0: 3E 73 76 20 6E 36 3D 22 61 64 64 72 34 22 0D 0A >sv n6="addr4"..
0259D0: 3E 73 76 20 6E 37 3D 22 61 64 64 72 35 22 0D 0A >sv n7="addr5"..
0259E0: 3E 73 76 20 6E 38 3D 22 70 6F 73 74 63 6F 64 65 >sv n8="postcode
0259F0: 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 "..>sv fsortopts
025A00: 3D 22 2F 76 20 2F 73 31 20 2F 70 31 22 0D 0A 3E ="/v /s1 /p1"..>
025A10: 73 76 20 6D 61 78 77 3D 22 31 30 22 0D 0A 3E 73 sv maxw="10"..>s
025A20: 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 6E 22 0D v lastblank="n".
025A30: 0A 1A 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 ..sv selfile="ad
025A40: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
025A50: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
025A60: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
025A70: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
025A80: 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F "&nn& records fo
025A90: 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 und. Press a key
025AA0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E to continue ...
025AB0: 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 ..>wc..>cf..>ex
025AC0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
025AD0: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
025AE0: 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 ;id df..>>>..>iu
025AF0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
025B00: 22 0D 0A 3E 77 63 0D 0A 3E 3E 3E 0D 0A 3E 69 66 "..>wc..>>>..>if
025B10: 20 70 66 69 66 69 6C 65 5B 77 32 5D 3D 22 22 0D pfifile[w2]="".
025B20: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
025B30: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
025B40: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
025B50: 0A 3E 65 6C 0D 0A 3E 73 76 20 70 66 69 66 69 6C .>el..>sv pfifil
025B60: 65 3D 22 66 6D 24 70 66 69 24 22 0D 0A 3E 65 69 e="fm$pfi$"..>ei
025B70: 0D 0A 1A 64 61 74 61 20 66 69 6C 65 0D 0A 3E 64 ...data file..>d
025B80: 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 69 78 >if fv="f" ; fix
025B90: 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ed..>rp..>sv n=n
025BA0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
025BB0: 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=f&n&..>wm !s!.
025BC0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>un n=rlen..>el
025BD0: 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 ; var..>rp..>sv
025BE0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
025BF0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 >sv s=f&n&..>wm
025C00: 26 73 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &s&..>if s=""..>
025C10: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
025C20: 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 >un n=rlen..>ei
025C30: 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E ; f/v..>sv nn=nn
025C40: 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 +1..>el ; f1=end
025C50: 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D 0D ..>sv nn=nn[w1].
025C60: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 20 22 26 .>dm " "..>wt "&
025C70: 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F 75 6E nn& records foun
025C80: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
025C90: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A o continue .....
025CA0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
025CB0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
025CC0: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 .>sk 0=0..>ei ;
025CD0: 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 id df..>>>..>iu
025CE0: 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D df..>cs " "..>dm
025CF0: 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 53 "Option S.3 - S
025D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 00 02 09 4E E5 20 00 C1 02 00 00 00 02 .....N. .......
026120: 20 00 C6 02 00 00 00 02 20 00 C2 02 00 00 00 02 ....... .......
026130: 20 00 C7 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026140: 20 00 C8 02 00 00 00 02 20 00 C4 02 00 00 00 02 ....... .......
026150: 20 00 C9 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
026210: 6D 3D 30 20 3B 20 64 65 66 61 75 6C 74 20 6C 61 m=0 ; default la
026220: 62 65 6C 20 73 69 7A 65 73 0D 0A 3E 49 44 20 64 bel sizes..>ID d
026230: 66 0D 0A 3E 5A 4D 0D 0A 3E 46 46 20 6F 66 66 0D f..>ZM..>FF off.
026240: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
026250: 6C 6D 26 0D 0A 3E 52 50 20 3B 20 46 6F 72 65 76 lm&..>RP ; Forev
026260: 65 72 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 er..&flist&..>IF
026270: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
026280: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
026290: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
0262A0: 0D 0A 3E 3E 3E 0D 0A 21 66 31 21 0D 0A 3E 3E 3E ..>>>..!f1!..>>>
0262B0: 21 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 !f2! ; phone..!f
0262C0: 33 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 3!..!f4!..!f5!..
0262D0: 21 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 !f6!..!f7!..!f8!
0262E0: 0D 0A 3E 50 41 0D 0A 3E 45 49 20 3B 20 66 31 0D ..>PA..>EI ; f1.
0262F0: 0A 3E 55 4E 20 66 31 3D 22 65 6E 64 22 0D 0A 3E .>UN f1="end"..>
026300: 3E 3E 0D 0A 3E 3E 3E 20 45 4E 44 20 4F 46 20 4D >>..>>> END OF M
026310: 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 45 20 53 AIN MAIL MERGE S
026320: 45 43 54 49 4F 4E 0D 0A 3E 57 54 20 22 50 72 65 ECTION..>WT "Pre
026330: 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 ss a key to cont
026340: 69 6E 75 65 20 2E 2E 2E 22 0D 0A 3E 45 58 20 65 inue ..."..>EX e
026350: 78 65 63 20 66 6D 20 20 20 20 3B 20 66 69 6E 69 xec fm ; fini
026360: 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 61 63 6B shed, so go back
026370: 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E 75 0D 0A to filer menu..
026380: 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 20 64 66 >ST..>EI ; id df
026390: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 ..>>>..>>>..>>>
0263A0: 4C 61 62 65 6C 20 70 72 69 6E 74 65 72 20 28 31 Label printer (1
0263B0: 20 61 63 72 6F 73 73 29 20 20 28 63 29 20 41 72 across) (c) Ar
0263C0: 6E 6F 72 20 31 39 38 38 0D 0A 3E 3E 3E 0D 0A 3E nor 1988..>>>..>
0263D0: 49 55 20 6C 6D 0D 0A 3E 43 53 0D 0A 3E 44 4D 20 IU lm..>CS..>DM
0263E0: 22 20 22 0D 0A 3E 44 4D 20 50 52 4F 54 45 58 54 " "..>DM PROTEXT
0263F0: 20 6C 61 62 65 6C 20 70 72 69 6E 74 69 6E 67 20 label printing
026400: 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 u..>ST..>EI ; id
026410: 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E df..>>>>>>>>>>>
026420: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C ..>>>..>>> Label
026430: 20 70 72 69 6E 74 65 72 20 28 32 20 61 63 72 6F printer (2 acro
026440: 73 73 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 ss) (c) Arnor 19
026450: 38 38 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 88..>>>..>IU lm.
026460: 0A 3E 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 .>SV gt=">"..>SV
026470: 20 64 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D dashes80="-----
026480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
026490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0264A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0264B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0264C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 -----------"..>C
0264D0: 53 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 S..>DM " "..>DM
0264E0: 50 52 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 PROTEXT label pr
0264F0: 69 6E 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 inting program (
026500: 32 20 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 2 across)..>DM "
026510: 20 22 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 "..>AV "Number
026520: 6F 66 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 of lines per lab
026530: 65 6C 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 el [&defpl&]: "
026540: 6E 0D 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D n..>SV pl=defpl.
026550: 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 .>IF n <> ""..>S
026560: 56 20 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 V pl=n..>EI..>AV
026570: 20 22 20 20 20 20 20 20 20 20 20 57 69 64 74 68 " Width
026580: 20 6F 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 of labels [&def
026590: 6C 77 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C lw&]: " n..>SV l
0265A0: 77 3D 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C w=deflw..>IF n <
0265B0: 3E 20 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A > ""..>SV lw=n..
0265C0: 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 >EI..>AV "
0265D0: 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 Left mar
0265E0: 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 gin [&deflm&]: "
0265F0: 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D n..>SV lm=deflm
026600: 70 72 6F 67 72 61 6D 20 28 31 20 61 63 72 6F 73 program (1 acros
026610: 73 29 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 41 56 s)..>DM " "..>AV
026620: 20 22 4E 75 6D 62 65 72 20 6F 66 20 6C 69 6E 65 "Number of line
026630: 73 20 70 65 72 20 6C 61 62 65 6C 20 5B 26 64 65 s per label [&de
026640: 66 70 6C 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 fpl&]: " n..>SV
026650: 70 6C 3D 64 65 66 70 6C 0D 0A 3E 49 46 20 6E 20 pl=defpl..>IF n
026660: 3C 3E 20 22 22 0D 0A 3E 53 56 20 70 6C 3D 6E 0D <> ""..>SV pl=n.
026670: 0A 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 .>EI..>AV "
026680: 20 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 Left ma
026690: 72 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 rgin [&deflm&]:
0266A0: 22 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C " n..>SV lm=defl
0266B0: 6D 0D 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A m..>IF n <> ""..
0266C0: 3E 53 56 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E >SV lm=n..>EI..>
0266D0: 45 49 20 3B 20 69 75 20 6C 6D 0D 0A 3E 3E 3E 0D EI ; iu lm..>>>.
0266E0: 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 65 .>>> Common code
0266F0: 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 20 for mail merge
026700: 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 64 templates..>iu d
026710: 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E f..>df fm.mus..>
026720: 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 6E rv mus..>cf..>in
026730: 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 fm$pfi$..>sv fv
026740: 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E =fv[1] rlen=rlen
026750: 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 [w1]..>if fv="f"
026760: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 ..>sv flist=">ru
026770: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 "..>el..>sv flis
026780: 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 t=">rv"..>ei..>s
026790: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0267A0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
0267B0: 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 74 sv flist = flist
0267C0: 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 + " f&n&"..>un
0267D0: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F 72 n>=rlen..>>> sor
0267E0: 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 61 t out which data
0267F0: 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 69 file to use (mai
026800: 0D 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E ..>IF n <> ""..>
026810: 53 56 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E 3E SV lm=n..>EI..>>
026820: 3E 0D 0A 3E 53 56 20 72 75 6C 65 72 31 3D 64 61 >..>SV ruler1=da
026830: 73 68 65 73 38 30 5B 32 3A 26 6C 77 26 5D 0D 0A shes80[2:&lw&]..
026840: 3E 53 56 20 72 75 6C 65 72 32 3D 64 61 73 68 65 >SV ruler2=dashe
026850: 73 38 30 5B 32 3A 26 6C 77 26 5D 0D 0A 3E 45 49 s80[2:&lw&]..>EI
026860: 20 3B 20 69 75 20 6C 6D 0D 0A 3E 3E 3E 0D 0A 3E ; iu lm..>>>..>
026870: 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 65 20 66 >> Common code f
026880: 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 20 74 65 or mail merge te
026890: 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 64 66 0D mplates..>iu df.
0268A0: 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 .>df fm.mus..>rv
0268B0: 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 6E 20 66 mus..>cf..>in f
0268C0: 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 m$pfi$..>sv fv=f
0268D0: 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 v[1] rlen=rlen[w
0268E0: 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 1]..>if fv="f"..
0268F0: 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 20 >sv flist=">ru"
026900: 67 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C glist=">ru"..>el
026910: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 ..>sv flist=">rv
026920: 22 20 67 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E " glist=">rv"..>
026930: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
026940: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
026950: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
026960: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 73 list+" f&n&"..>s
026970: 76 20 67 6C 69 73 74 3D 67 6C 69 73 74 2B 22 20 v glist=glist+"
026980: 67 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C g&n&"..>un n>=rl
026990: 65 6E 0D 0A 3E 3E 3E 20 73 6F 72 74 20 6F 75 74 en..>>> sort out
0269A0: 20 77 68 69 63 68 20 64 61 74 61 66 69 6C 65 20 which datafile
0269B0: 74 6F 20 75 73 65 20 28 6D 61 69 6E 2F 75 70 64 to use (main/upd
0269C0: 61 74 65 2F 73 65 6C 65 63 74 69 6F 6E 29 0D 0A ate/selection)..
0269D0: 3E 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 >if mus="m"..>sv
0269E0: 20 66 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 f=df..>ei..>if
0269F0: 6D 75 73 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E mus="u"..>sv f=n
026A00: 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 69 n/update/selecti
026A10: 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 on)..>if mus="m"
026A20: 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 0D ..>sv f=df..>ei.
026A30: 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E 73 .>if mus="u"..>s
026A40: 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 69 v f=newfile..>ei
026A50: 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A 3E ..>if mus="s"..>
026A60: 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E 65 sv f=selfile..>e
026A70: 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 6E i..>df &f& fo$en
026A80: 64 24 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D d$..>ei ; iu df.
026A90: 0A 3E 3E 3E 0D 0A 1A 65 66 61 75 6C 74 20 6C 61 .>>>...efault la
026AA0: 62 65 6C 20 73 69 7A 65 73 0D 0A 3E 49 44 20 64 bel sizes..>ID d
026AB0: 66 0D 0A 3E 5A 4D 0D 0A 3E 46 46 20 6F 66 66 0D f..>ZM..>FF off.
026AC0: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
026AD0: 6C 6D 26 0D 0A 3E 52 50 20 3B 20 46 6F 72 65 76 lm&..>RP ; Forev
026AE0: 65 72 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 er..&flist&..>IF
026AF0: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
026B00: 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A wfile& fo$end$..
026B10: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 >ei..>if mus="m"
026B20: 0D 0A 3E 64 66 20 26 64 66 26 20 66 6F 24 65 6E ..>df &df& fo$en
026B30: 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 d$..>ei..>if mus
026B40: 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 ="s"..>df &selfi
026B50: 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 le& fo$end$..>ei
026B60: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 73 66 70 3D 22 ..>>>..>if sfp="
026B70: 66 22 0D 0A 3E 77 66 20 26 66 26 0D 0A 3E 65 69 f"..>wf &f&..>ei
026B80: 0D 0A 1A 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D ... df..&flist&.
026B90: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
026BA0: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
026BB0: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
026BC0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
026BD0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
026BE0: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
026BF0: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
026C00: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
026C10: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
026C20: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
026C30: 66 20 26 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E f &f& fo$end$..>
026C40: 65 69 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D ei ; iu df..>>>.
026C50: 0A 1A 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 ..&..>FF OFF..>R
026C60: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
026C70: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
026C80: 66 26 6E 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 f&n&..>dm "
026C90: 20 20 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 &s&"..>un n>=r
026CA0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
026CB0: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4F 4B 20 "..>rp..>av "OK
026CC0: 5B 79 2F 4E 5D 3F 20 22 20 79 65 73 6E 6F 20 31 [y/N]? " yesno 1
026CD0: 0D 0A 3E 75 6E 20 79 65 73 6E 6F 20 69 6E 20 22 ..>un yesno in "
026CE0: 79 6E 22 0D 0A 3E 73 6B 20 79 65 73 6E 6F 3C 3E yn"..>sk yesno<>
026CF0: 22 79 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 "y"..>dm " "..>d
026D00: 6D 20 22 57 72 69 74 69 6E 67 20 64 61 74 61 20 m "Writing data
026D10: 2E 2E 2E 22 0D 0A 3E 77 66 20 66 6D 2E 6F 6E 65 ..."..>wf fm.one
026D20: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
026D30: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
026D40: 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E ]..>sv s=f&n&..>
026D50: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
026D60: 6C 65 6E 0D 0A 3E 77 63 0D 0A 3E 77 66 20 66 6D len..>wc..>wf fm
026D70: 2E 78 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 77 6D .x..>id cpm..>wm
026D80: 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 "clear|13|y|766
026D90: 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 |merge fm.one|13
026DA0: 7C 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C ||765||233||541|
026DB0: 7C 32 33 33 7C 7C 30 7C 22 0D 0A 3E 65 6C 0D 0A |233||0|"..>el..
026DC0: 3E 77 6D 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C >wm "clear|13|y|
026DD0: 37 36 36 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 766|merge fm.one
026DE0: 7C 31 33 7C 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 |13||765||538||5
026DF0: 34 31 7C 7C 35 33 38 7C 7C 35 31 32 7C 22 0D 0A 41||538||512|"..
026E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027000: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
027010: 77 3D 32 36 20 64 65 66 6C 6D 3D 30 09 3B 20 64 w=26 deflm=0.; d
027020: 65 66 61 75 6C 74 20 6C 61 62 65 6C 20 73 69 7A efault label siz
027030: 65 73 0D 0A 3E 49 44 20 64 66 0D 0A 3E 5A 4D 0D es..>ID df..>ZM.
027040: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
027050: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
027060: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
027070: 69 73 74 26 0D 0A 26 67 6C 69 73 74 26 0D 0A 26 ist&..&glist&..&
027080: 68 6C 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E hlist&..>IF f1<>
027090: 22 65 6E 64 22 0D 0A 3E 3E 3E 20 53 54 41 52 54 "end"..>>> START
0270A0: 20 4F 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 OF MAIN MAIL ME
0270B0: 52 47 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 3E 3E RGE SECTION..>>>
0270C0: 0D 0A 26 67 74 26 26 72 75 6C 65 72 31 26 21 26 ..>&&ruler1&!&
0270D0: 72 75 6C 65 72 32 26 21 26 72 75 6C 65 72 33 26 ruler2&!&ruler3&
0270E0: 52 0D 0A 3E 49 46 20 68 31 3C 3E 22 65 6E 64 22 R..>IF h1<>"end"
0270F0: 0D 0A 21 66 31 21 09 21 67 31 21 09 21 68 31 21 ..!f1!.!g1!.!h1!
027100: 0D 0A 3E 3E 3E 21 09 21 67 32 21 09 21 68 32 21 ..>>>!.!g2!.!h2!
027110: 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 21 09 21 ; phone..!f3!.!
027120: 67 33 21 09 21 68 33 21 0D 0A 21 66 34 21 09 21 g3!.!h3!..!f4!.!
027130: 67 34 21 09 21 68 34 21 0D 0A 21 66 35 21 09 21 g4!.!h4!..!f5!.!
027140: 67 35 21 09 21 68 35 21 0D 0A 21 66 36 21 09 21 g5!.!h5!..!f6!.!
027150: 67 36 21 09 21 68 36 21 0D 0A 21 66 37 21 09 21 g6!.!h6!..!f7!.!
027160: 67 37 21 09 21 68 37 21 0D 0A 21 66 38 21 09 21 g7!.!h7!..!f8!.!
027170: 67 38 21 09 21 68 38 21 0D 0A 3E 45 4C 0D 0A 3E g8!.!h8!..>EL..>
027180: 49 46 20 67 31 3C 3E 22 65 6E 64 22 0D 0A 21 66 IF g1<>"end"..!f
027190: 31 21 09 21 67 31 21 0D 0A 3E 3E 3E 21 66 32 21 1!.!g1!..>>>!f2!
0271A0: 09 21 67 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 .!g2! ; phone..!
0271B0: 66 33 21 09 21 67 33 21 0D 0A 21 66 34 21 09 21 f3!.!g3!..!f4!.!
0271C0: 67 34 21 0D 0A 21 66 35 21 09 21 67 35 21 0D 0A g4!..!f5!.!g5!..
0271D0: 21 66 36 21 09 21 67 36 21 0D 0A 21 66 37 21 09 !f6!.!g6!..!f7!.
0271E0: 21 67 37 21 0D 0A 21 66 38 21 09 21 67 38 21 0D !g7!..!f8!.!g8!.
0271F0: 0A 3E 45 4C 0D 0A 21 66 31 21 0D 0A 3E 3E 3E 21 .>EL..!f1!..>>>!
027200: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
027210: 77 3D 34 31 20 64 65 66 6C 6D 3D 30 09 3B 20 64 w=41 deflm=0.; d
027220: 65 66 61 75 6C 74 20 6C 61 62 65 6C 20 73 69 7A efault label siz
027230: 65 73 0D 0A 3E 49 44 20 64 66 0D 0A 3E 5A 4D 0D es..>ID df..>ZM.
027240: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
027250: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
027260: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
027270: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
027280: 6E 64 22 0D 0A 3E 3E 3E 20 53 54 41 52 54 20 4F nd"..>>> START O
027290: 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 F MAIN MAIL MERG
0272A0: 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 3E 3E 0D 0A E SECTION..>>>..
0272B0: 26 67 6C 69 73 74 26 0D 0A 26 67 74 26 26 72 75 &glist&..>&&ru
0272C0: 6C 65 72 31 26 21 26 72 75 6C 65 72 32 26 52 0D ler1&!&ruler2&R.
0272D0: 0A 3E 49 46 20 67 31 3C 3E 22 65 6E 64 22 0D 0A .>IF g1<>"end"..
0272E0: 21 66 31 21 09 21 67 31 21 0D 0A 3E 3E 3E 21 66 !f1!.!g1!..>>>!f
0272F0: 32 21 09 21 67 32 21 20 3B 20 70 68 6F 6E 65 0D 2!.!g2! ; phone.
027300: 0A 21 66 33 21 09 21 67 33 21 0D 0A 21 66 34 21 .!f3!.!g3!..!f4!
027310: 09 21 67 34 21 0D 0A 21 66 35 21 09 21 67 35 21 .!g4!..!f5!.!g5!
027320: 0D 0A 21 66 36 21 09 21 67 36 21 0D 0A 21 66 37 ..!f6!.!g6!..!f7
027330: 21 09 21 67 37 21 0D 0A 21 66 38 21 09 21 67 38 !.!g7!..!f8!.!g8
027340: 21 0D 0A 3E 45 4C 0D 0A 21 66 31 21 0D 0A 3E 3E !..>EL..!f1!..>>
027350: 3E 21 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 >!f2! ; phone..!
027360: 66 33 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D f3!..!f4!..!f5!.
027370: 0A 21 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 .!f6!..!f7!..!f8
027380: 21 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A 3E 45 49 !..>EI..>PA..>EI
027390: 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 3D 22 65 ; f1..>UN f1="e
0273A0: 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 45 4E nd"..>>>..>>> EN
0273B0: 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D D OF MAIN MAIL M
0273C0: 45 52 47 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 45 ERGE SECTION..>E
0273D0: 58 20 65 78 65 63 20 66 6D 20 20 20 20 3B 20 66 X exec fm ; f
0273E0: 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 inished, so go b
0273F0: 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E ack to filer men
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 00 02 09 4E E5 21 00 C1 02 00 00 00 02 !.....N.!.......
027420: 21 00 C6 02 00 00 00 02 21 00 C2 02 00 00 00 02 !.......!.......
027430: 21 00 C7 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027440: 21 00 C8 02 00 00 00 02 21 00 C4 02 00 00 00 02 !.......!.......
027450: 21 00 C9 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 f2! ; phone..!f3
027510: 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 21 !..!f4!..!f5!..!
027520: 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 0D f6!..!f7!..!f8!.
027530: 0A 3E 45 49 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A .>EI..>EI..>PA..
027540: 3E 45 49 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 >EI ; f1..>UN f1
027550: 3D 22 65 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E ="end"..>>>..>>>
027560: 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 END OF MAIN MAI
027570: 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E 0D L MERGE SECTION.
027580: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
027590: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
0275A0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
0275B0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
0275C0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E id df..>>>>>>>>
0275D0: 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C 20 70 >>>..>>> Label p
0275E0: 72 69 6E 74 65 72 20 28 33 20 61 63 72 6F 73 73 rinter (3 across
0275F0: 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 ) (c) Arnor 1988
027600: 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 0A 3E ..>>>..>IU lm..>
027610: 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 20 64 SV gt=">"..>SV d
027620: 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D 2D 2D ashes80="-------
027630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 53 0D ---------"..>CS.
027680: 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 50 52 .>DM " "..>DM PR
027690: 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 69 6E OTEXT label prin
0276A0: 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 33 20 ting program (3
0276B0: 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 20 22 across)..>DM " "
0276C0: 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 6F 66 ..>AV "Number of
0276D0: 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 65 6C lines per label
0276E0: 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 6E 0D [&defpl&]: " n.
0276F0: 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D 0A 3E .>SV pl=defpl..>
027700: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
027710: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
027720: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
027730: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
027740: 2D 2D 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 5B ---R..>if title[
027750: 31 5D 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 49 1]="i"..>sv s='I
027760: 4E 56 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 09 NVOICE.&number&.
027770: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&.£&due&.&a
027780: 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 0&'..>el..>sv du
027790: 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 e=0-due..>sv s='
0277A0: 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 CREDIT.&number&.
0277B0: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&.£&due&.&a
0277C0: 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 0&'..>ei..>id cp
0277D0: 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 m..>sv s=s+"
0277E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0277F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027810: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E "..>
027820: 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 sv s=s+"
027830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027860: 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 "..>sv s
027870: 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A =s[1:126]..>ei..
027880: 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A >wm '&s&'..>wc..
027890: 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D >wf om.x..>if x=
0278A0: 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E "s"..>wm "ps &fn
0278B0: 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B &|13|; Press a k
0278C0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C ey to continue:|
0278D0: 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 13|pause|13|load
0278E0: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
0278F0: 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C el..>wm "p &fn&|
027900: 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 56 20 IF n <> ""..>SV
027910: 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 20 22 pl=n..>EI..>AV "
027920: 20 20 20 20 20 20 20 20 20 57 69 64 74 68 20 6F Width o
027930: 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 6C 77 f labels [&deflw
027940: 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C 77 3D &]: " n..>SV lw=
027950: 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C 3E 20 deflw..>IF n <>
027960: 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A 3E 45 ""..>SV lw=n..>E
027970: 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 20 20 I..>AV "
027980: 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 67 69 Left margi
027990: 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 20 6E n [&deflm&]: " n
0279A0: 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D 0D 0A ..>SV lm=deflm..
0279B0: 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 56 >IF n <> ""..>SV
0279C0: 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E 53 56 20 lm=n..>EI..>SV
0279D0: 72 75 6C 65 72 31 3D 64 61 73 68 65 73 38 30 5B ruler1=dashes80[
0279E0: 32 3A 26 6C 77 26 5D 0D 0A 3E 53 56 20 72 75 6C 2:&lw&]..>SV rul
0279F0: 65 72 32 3D 64 61 73 68 65 73 38 30 5B 32 3A 26 er2=dashes80[2:&
027A00: 6C 77 26 5D 0D 0A 3E 53 56 20 72 75 6C 65 72 33 lw&]..>SV ruler3
027A10: 3D 64 61 73 68 65 73 38 30 5B 31 3A 26 6C 77 26 =dashes80[1:&lw&
027A20: 5D 0D 0A 3E 45 49 20 3B 20 69 75 20 6C 6D 0D 0A ]..>EI ; iu lm..
027A30: 3E 3E 3E 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 >>>..>>> Common
027A40: 63 6F 64 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 code for mail me
027A50: 72 67 65 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E rge templates..>
027A60: 69 75 20 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 iu df..>df fm.mu
027A70: 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D s..>rv mus..>cf.
027A80: 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 .>in fm$pfi$..>s
027A90: 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D v fv=fv[1] rlen=
027AA0: 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 rlen[w1]..>if fv
027AB0: 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D ="f"..>sv flist=
027AC0: 22 3E 72 75 22 20 67 6C 69 73 74 3D 22 3E 72 75 ">ru" glist=">ru
027AD0: 22 20 68 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E " hlist=">ru"..>
027AE0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
027AF0: 72 76 22 20 67 6C 69 73 74 3D 22 3E 72 76 22 20 rv" glist=">rv"
027B00: 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 13|load omenu|13
027B10: 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A |ps"..>ei..>wc..
027B20: 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D >cf..>ex exec om
027B30: 2E 78 0D 0A 3E 73 74 0D 0A 1A 0D 0A 3E 3E 3E 0D .x..>st.....>>>.
027B40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
027B50: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
027B60: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
027B70: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
027B80: 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 0&'..>el..>sv du
027B90: 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 e=0-due..>sv s='
027BA0: 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 CREDIT.&number&.
027BB0: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&.£&due&.&a
027BC0: 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 0&'..>ei..>id cp
027BD0: 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 m..>sv s=s+"
027BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027C10: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E "..>
027C20: 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 sv s=s+"
027C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027C60: 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 "..>sv s
027C70: 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A =s[1:126]..>ei..
027C80: 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A >wm '&s&'..>wc..
027C90: 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D >wf om.x..>if x=
027CA0: 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E "s"..>wm "ps &fn
027CB0: 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B &|13|; Press a k
027CC0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C ey to continue:|
027CD0: 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 13|pause|13|load
027CE0: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
027CF0: 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C el..>wm "p &fn&|
027D00: 68 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 hlist=">rv"..>ei
027D10: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
027D20: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
027D30: 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 6C 69 ]..>sv flist=fli
027D40: 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 73 76 20 st+" f&n&"..>sv
027D50: 67 6C 69 73 74 3D 67 6C 69 73 74 2B 22 20 67 26 glist=glist+" g&
027D60: 6E 26 22 0D 0A 3E 73 76 20 68 6C 69 73 74 3D 68 n&"..>sv hlist=h
027D70: 6C 69 73 74 2B 22 20 68 26 6E 26 22 0D 0A 3E 75 list+" h&n&"..>u
027D80: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 n n>=rlen..>>> s
027D90: 6F 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 ort out which da
027DA0: 74 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D tafile to use (m
027DB0: 61 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 ain/update/selec
027DC0: 74 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 tion)..>if mus="
027DD0: 6D 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 m"..>sv f=df..>e
027DE0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A i..>if mus="u"..
027DF0: 3E 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E >sv f=newfile..>
027E00: 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D ei..>if mus="s".
027E10: 0A 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A .>sv f=selfile..
027E20: 3E 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 >ei..>df &f& fo$
027E30: 65 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 75 20 64 end$..>ei ; iu d
027E40: 66 0D 0A 3E 3E 3E 0D 0A 1A 0D 0A 3E 53 4D 20 26 f..>>>.....>SM &
027E50: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
027E60: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
027E70: 69 73 74 26 0D 0A 26 67 6C 69 73 74 26 0D 0A 26 ist&..&glist&..&
027E80: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 46 ..>rp..>sv fv="F
027E90: 69 78 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 ixed"..>av "Numb
027EA0: 65 72 20 6F 66 20 66 69 65 6C 64 73 3A 20 22 20 er of fields: "
027EB0: 72 6C 65 6E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F rlen..>sv fsorto
027EC0: 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 0D 0A pts="/f&rlen&"..
027ED0: 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E >un rlen>="2"..>
027EE0: 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 dm " "..>rp..>av
027EF0: 20 22 49 73 20 74 68 65 20 6C 61 73 74 20 66 69 "Is the last fi
027F00: 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 fn&|13|; Press a
027F10: 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 key to continue
027F20: 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F :|13|pause|13|lo
027F30: 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 7C 31 ad omenu|13|ps|1
027F40: 33 7C 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 6C 6F 3|..>el..>wm "lo
027F50: 61 64 20 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 ad &fn&|13|doc|1
027F60: 33 7C 7C 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 3||766|p|13|load
027F70: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 7C 31 33 7C omenu|13|ps|13|
027F80: 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 0D ..>ei..>wc..>cf.
027F90: 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 0D 0A .>ex exec om.x..
027FA0: 1A 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E .) Arnor 1988..>
027FB0: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
027FC0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
027FD0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
027FE0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D pm=1 filedate=1.
027FF0: 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E .>ei..>iu cpm..>
028000: 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C 41 ure in the 'BALA
028010: 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 69 NCE' column..>ei
028020: 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E 45 2E 0D ..!sc!E. & O.E..
028030: 0A 3E 69 66 20 70 72 63 6F 6E 3D 22 79 22 0D 0A .>if prcon="y"..
028040: 21 73 63 21 56 41 54 20 72 65 67 2E 20 6E 6F 2E !sc!VAT reg. no.
028050: 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A &vatnum&..>ei..
028060: 3E 69 66 69 63 5B 32 5D 3D 22 22 0D 0A 3E 70 61 >ific[2]=""..>pa
028070: 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3C ..>ei..>ific[2]<
028080: 3E 22 66 22 0D 0A 3E 65 78 20 65 78 65 63 20 6F >"f"..>ex exec o
028090: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 76 m..>st..>ei..>sv
0280A0: 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F 73 22 fn=ic[w2]+".pos"
0280B0: 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 70 72 ..>av"Send to pr
0280C0: 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 inter or screen
0280D0: 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 77 (P/s)? " x 1..>w
0280E0: 63 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 c..>wf om.x..>if
0280F0: 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 x="s"..>wm "ps &
028100: 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 68 65 61 64 65 >>> Common heade
028110: 72 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 r for mail merge
028120: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 49 44 20 templates..>ID
028130: 64 66 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 df..&flist&..>IF
028140: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
028150: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
028160: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
028170: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
028180: 3E 3E 26 66 32 26 20 3B 20 70 68 6F 6E 65 0D 0A >>&f2& ; phone..
028190: 26 66 33 26 0D 0A 26 66 34 26 0D 0A 26 66 35 26 &f3&..&f4&..&f5&
0281A0: 0D 0A 26 66 36 26 0D 0A 26 66 37 26 0D 0A 0D 0A ..&f6&..&f7&....
0281B0: 44 65 61 72 20 43 75 73 74 6F 6D 65 72 0D 0A 0D Dear Customer...
0281C0: 0A 54 68 61 6E 6B 20 79 6F 75 20 66 6F 72 20 79 .Thank you for y
0281D0: 6F 75 72 20 69 6E 74 65 72 65 73 74 20 69 6E 20 our interest in
0281E0: 6F 75 72 20 72 61 6E 67 65 20 6F 66 20 70 72 6F our range of pro
0281F0: 64 75 63 74 73 2E 20 57 65 20 68 61 76 65 20 70 ducts. We have p
028200: 6C 65 61 73 75 72 65 20 0D 8A 69 6E 20 65 6E 63 leasure ..in enc
028210: 6C 6F 73 69 6E 67 20 74 68 65 20 69 6E 66 6F 72 losing the infor
028220: 6D 61 74 69 6F 6E 20 72 65 71 75 65 73 74 65 64 mation requested
028230: 2E 0D 0A 0D 0A 0D 0A 59 6F 75 72 73 20 46 61 69 .......Yours Fai
028240: 74 68 66 75 6C 6C 79 0D 0A 0D 0A 3E 3E 3E 0D 0A thfully....>>>..
028250: 3E 3E 3E 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 >>> END OF MAIN
028260: 4D 41 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 MAIL MERGE SECTI
028270: 4F 4E 0D 0A 3E 50 41 0D 0A 3E 53 4B 20 30 3D 30 ON..>PA..>SK 0=0
028280: 20 20 20 20 20 20 20 20 3B 20 63 6F 6E 74 69 6E ; contin
028290: 75 65 20 66 72 6F 6D 20 74 6F 70 2C 20 77 69 74 ue from top, wit
0282A0: 68 20 6E 65 78 74 20 64 61 74 61 0D 0A 3E 45 4C h next data..>EL
0282B0: 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E 45 58 20 65 ; f1=end..>EX e
0282C0: 78 65 63 20 66 6D 20 20 20 20 3B 20 66 69 6E 69 xec fm ; fini
0282D0: 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 61 63 6B shed, so go back
0282E0: 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E 75 0D 0A to filer menu..
0282F0: 3E 53 54 0D 0A 3E 45 49 20 3B 20 66 31 0D 0A 3E >ST..>EI ; f1..>
028300: 64 75 63 74 20 66 69 6C 65 0D 0A 3E 61 76 20 22 duct file..>av "
028310: 50 72 6F 64 75 63 74 20 63 6F 64 65 3A 20 22 20 Product code: "
028320: 63 6F 64 65 6E 0D 0A 3E 69 66 20 63 6F 64 65 6E coden..>if coden
028330: 3D 22 22 0D 0A 3E 73 76 20 6E 3D 6D 61 78 6E 0D =""..>sv n=maxn.
028340: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
028350: 3E 22 22 0D 0A 3E 61 76 20 22 44 65 73 63 72 69 >""..>av "Descri
028360: 70 74 69 6F 6E 20 3A 20 22 20 64 65 73 63 6E 0D ption : " descn.
028370: 0A 3E 61 76 20 22 51 75 61 6E 74 69 74 79 20 20 .>av "Quantity
028380: 20 20 3A 20 22 20 71 75 61 6E 74 6E 0D 0A 3E 69 : " quantn..>i
028390: 66 20 71 75 61 6E 74 6E 3D 22 22 0D 0A 3E 73 76 f quantn=""..>sv
0283A0: 20 71 75 61 6E 74 6E 3D 22 20 22 0D 0A 3E 65 69 quantn=" "..>ei
0283B0: 0D 0A 3E 69 66 20 71 75 61 6E 74 6E 5B 31 5D 20 ..>if quantn[1]
0283C0: 6E 6F 74 69 6E 20 22 30 31 32 33 34 35 36 37 38 notin "012345678
0283D0: 39 22 0D 0A 3E 64 6D 20 22 4E 6F 74 20 61 20 6E 9"..>dm "Not a n
0283E0: 75 6D 62 65 72 2E 20 50 6C 65 61 73 65 20 72 65 umber. Please re
0283F0: 2D 65 6E 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 -enter"..>sv cod
028400: 65 6E 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D en=""..>ei..>ei.
028410: 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A .>if coden<>""..
028420: 3E 61 76 20 22 55 6E 69 74 20 70 72 69 63 65 20 >av "Unit price
028430: 20 20 A3 22 20 75 70 72 69 63 65 0D 0A 3E 69 66 £" uprice..>if
028440: 20 75 70 72 69 63 65 3D 22 22 0D 0A 3E 73 76 20 uprice=""..>sv
028450: 75 70 72 69 63 65 3D 22 20 22 0D 0A 3E 65 69 0D uprice=" "..>ei.
028460: 0A 3E 69 66 20 75 70 72 69 63 65 5B 31 5D 20 6E .>if uprice[1] n
028470: 6F 74 69 6E 20 22 2E 30 31 32 33 34 35 36 37 38 otin ".012345678
028480: 39 22 0D 0A 3E 64 6D 20 22 4D 65 61 6E 69 6E 67 9"..>dm "Meaning
028490: 6C 65 73 73 20 70 72 69 63 65 2E 20 50 6C 65 61 less price. Plea
0284A0: 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 se re-enter"..>s
0284B0: 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D v coden=""..>ei.
0284C0: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
0284D0: 3E 22 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >""..>if vatreg=
0284E0: 22 79 22 0D 0A 3E 61 76 20 22 56 41 54 20 63 6F "y"..>av "VAT co
0284F0: 64 65 20 28 30 3D 6E 6F 20 56 41 54 29 20 5B 31 de (0=no VAT) [1
028500: 45 49 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D EI ; id df..>>>.
028510: 0A 3E 63 73 0D 0A 3E 64 6D 20 22 4D 61 69 6C 20 .>cs..>dm "Mail
028520: 6D 65 72 67 69 6E 67 20 2E 2E 2E 0D 0A 3E 3E 3E merging .....>>>
028530: 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 ..>>> Common cod
028540: 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 e for mail merge
028550: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 templates..>iu
028560: 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A df..>df fm.mus..
028570: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
028580: 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 n fm$pfi$..>sv f
028590: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
0285A0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
0285B0: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
0285C0: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
0285D0: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
0285E0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
0285F0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
028600: 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 >sv flist = flis
028610: 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E t + " f&n&"..>un
028620: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F n>=rlen..>>> so
028630: 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 rt out which dat
028640: 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 afile to use (ma
028650: 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 in/update/select
028660: 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D ion)..>if mus="m
028670: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
028680: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
028690: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
0286A0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
0286B0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
0286C0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
0286D0: 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 64 20 64 66 nd$..>ei ; id df
0286E0: 0D 0A 3E 3E 3E 0D 0A 1A 20 53 45 43 54 49 4F 4E ..>>>... SECTION
0286F0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 00 02 09 4E E5 22 00 C1 02 00 00 00 02 ".....N.".......
028720: 22 00 C6 02 00 00 00 02 22 00 C2 02 00 00 00 02 ".......".......
028730: 22 00 C7 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028740: 22 00 C8 02 00 00 00 02 22 00 C4 02 00 00 00 02 ".......".......
028750: 22 00 C9 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 61 64 64 72 65 73 73 2C 41 2C 70 72 6F 64 75 63 address,A,produc
028810: 74 73 2E 69 6E 66 2C 79 2C 79 0D 0A 30 2E 31 35 ts.inf,y,y..0.15
028820: 2C 30 2E 30 30 2C 30 2E 30 30 2C 30 2E 30 30 2C ,0.00,0.00,0.00,
028830: 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 34 30 20 0.00,22,18.."40
028840: 32 35 20 30 22 2C 22 32 35 20 31 30 20 30 22 2C 25 0","25 10 0",
028850: 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 2C "0 0 0","0 0 0",
028860: 22 30 20 30 20 30 22 2C 31 32 33 35 37 38 34 0D "0 0 0",1235784.
028870: 0A 79 2C 69 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A .y,i,n,y,y,y,0..
028880: 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 4,12,23,45..5,14
028890: 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D ,18,15,17,9..">-
0288A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0288B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0288C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
0288D0: 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----L----------
0288E0: 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D -------R"..">---
0288F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
028900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
028910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
028920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
028930: 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D -----R"..">-----
028940: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
028950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E ---------------.
028960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D --------------.-
028970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
028980: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
028990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0289A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0289B0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
0289C0: 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 ---L-------.--R"
0289D0: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
0289E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0289F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028A00: 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 1A FF 00 FF om.x..>st......
028A10: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
028A20: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
028A30: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
028A40: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
028A50: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
028A60: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
028A70: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
028A80: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&.£&due&.&a0&
028A90: 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D '..>ei..>id cpm.
028AA0: 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 .>sv s=s+"
028AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028AE0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
028AF0: 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 s=s+"
028B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028B30: 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 "..>sv s=s
028B40: 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 [1:126]..>ei..>w
028B50: 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E 65 m '&s&'..>wc..>e
028B60: 69 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 i..>wf om.x..>if
028B70: 20 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 x="s"..>wm "ps
028B80: 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 &fn&|13|; Press
028B90: 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 a key to continu
028BA0: 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C e:|13|pause|13|l
028BB0: 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 oad omenu|13|ps"
028BC0: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 ..>el..>wm "p &f
028BD0: 6E 26 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 n&|13|load omenu
028BE0: 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 |13|ps"..>ei..>w
028BF0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 c..>cf..>ex exec
028C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A ------------R"..
028C20: 41 72 6E 6F 72 0D 0A 50 72 6F 74 65 78 74 20 48 Arnor..Protext H
028C30: 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E 20 52 6F ouse..Wainman Ro
028C40: 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 ad..Peterborough
028C50: 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A 1A 79 2C ..PE2 0BU.....y,
028C60: 69 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 i,n,y,y,y,0..4,1
028C70: 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 2C 31 38 2,23,45..5,14,18
028C80: 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 4,12,23,45..5,14
028C90: 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D ,18,15,17,9..">-
028CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
028CD0: 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----L----------
028CE0: 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D -------R"..">---
028CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
028D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
028D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
028D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
028D30: 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D -----R"..">-----
028D40: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
028D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E ---------------.
028D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D --------------.-
028D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
028D80: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
028D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028DB0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
028DC0: 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 ---L-------.--R"
028DD0: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
028DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028E00: 09 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 . GOODS TOTAL.£.
028E10: 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 43 61 72 &tot&..>wm . Car
028E20: 72 69 61 67 65 09 A3 09 26 63 61 72 26 0D 0A 3E riage.£.&car&..>
028E30: 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A el..>wm ..>wm ..
028E40: 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >ei..>if vatreg=
028E50: 22 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 54 20 54 "y"..>wm . NET T
028E60: 4F 54 41 4C 09 A3 09 26 65 78 76 26 0D 0A 3E 77 OTAL.£.&exv&..>w
028E70: 6D 20 09 20 56 41 54 09 A3 09 26 76 61 74 26 0D m . VAT.£.&vat&.
028E80: 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 .>el..>wm ..>wm
028E90: 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 41 4D 4F ..>ei..>wm . AMO
028EA0: 55 4E 54 20 44 55 45 09 A3 09 26 64 75 65 26 0D UNT DUE.£.&due&.
028EB0: 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 77 66 .>wm ..>wm ..>wf
028EC0: 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 on..>
028ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 0D R.
028F10: 0A 26 72 75 6C 65 72 35 26 0D 0A 3E 77 66 6F 66 .&ruler5&..>wfof
028F20: 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D 20 6C 69 f..>co bottom li
028F30: 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 65 72 65 0D ne comment here.
028F40: 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 3E 22 22 .>if footnote>""
028F50: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
028F60: 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E 3E 3E 77 &footnote&..>>>w
028F70: 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 f off..>el..>if
028F80: 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A 3E 3E title[1]="i"..>>
028F90: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D >wf on..>wm Term
028FA0: 73 3A 20 53 74 72 69 63 74 6C 79 20 33 30 20 44 s: Strictly 30 D
028FB0: 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 66 20 6F ays Net..>>>wf o
028FC0: 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 74 69 74 ff..>ei..>if tit
028FD0: 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E 3E 77 66 le[1]="c"..>>>wf
028FE0: 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 on..>wm Terms:
028FF0: 54 68 69 73 20 61 6D 6F 75 6E 74 20 68 61 73 20 This amount has
029000: 0D 0A 3E 77 66 20 6F 66 66 0D 0A 3E 73 76 20 63 ..>wf off..>sv c
029010: 61 72 3D 63 61 72 2B 30 0D 0A 3E 73 76 20 65 78 ar=car+0..>sv ex
029020: 76 3D 74 6F 74 2B 63 61 72 0D 0A 3E 3E 3E 77 66 v=tot+car..>>>wf
029030: 20 6F 6E 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D on..>if askcar=
029040: 22 79 22 0D 0A 3E 77 6D 20 09 20 47 4F 4F 44 53 "y"..>wm . GOODS
029050: 20 54 4F 54 41 4C 09 A3 09 26 74 6F 74 26 0D 0A TOTAL.£.&tot&..
029060: 3E 77 6D 20 09 20 43 61 72 72 69 61 67 65 09 A3 >wm . Carriage.£
029070: 09 26 63 61 72 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D .&car&..>el..>wm
029080: 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 ..>wm ..>ei..>i
029090: 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 77 f vatreg="y"..>w
0290A0: 6D 20 09 20 4E 45 54 20 54 4F 54 41 4C 09 A3 09 m . NET TOTAL.£.
0290B0: 26 65 78 76 26 0D 0A 3E 77 6D 20 09 20 56 41 54 &exv&..>wm . VAT
0290C0: 09 A3 09 26 76 61 74 26 0D 0A 3E 65 6C 0D 0A 3E .£.&vat&..>el..>
0290D0: 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A wm ..>wm ..>ei..
0290E0: 3E 77 6D 20 09 20 41 4D 4F 55 4E 54 20 44 55 45 >wm . AMOUNT DUE
0290F0: 09 A3 09 26 64 75 65 26 0D 0A 3E 77 6D 20 0D 0A .£.&due&..>wm ..
029100: 3E 77 6D 20 0D 0A 3E 20 20 20 20 20 20 20 20 20 >wm ..>
029110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
029150: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 75 6C 65 72 35 ..>wfon..&ruler5
029160: 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 63 6F 20 62 &..>wfoff..>co b
029170: 6F 74 74 6F 6D 20 6C 69 6E 65 20 63 6F 6D 6D 65 ottom line comme
029180: 6E 74 20 68 65 72 65 0D 0A 3E 69 66 20 66 6F 6F nt here..>if foo
029190: 74 6E 6F 74 65 3E 22 22 0D 0A 3E 3E 3E 77 66 20 tnote>""..>>>wf
0291A0: 6F 6E 0D 0A 3E 77 6D 20 26 66 6F 6F 74 6E 6F 74 on..>wm &footnot
0291B0: 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E e&..>>>wf off..>
0291C0: 65 6C 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D el..>if title[1]
0291D0: 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A ="i"..>>>wf on..
0291E0: 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 69 63 >wm Terms: Stric
0291F0: 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 74 0D tly 30 Days Net.
029200: 62 65 65 6E 20 63 72 65 64 69 74 65 64 20 74 6F been credited to
029210: 20 79 6F 75 72 20 61 63 63 6F 75 6E 74 0D 0A 3E your account..>
029220: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E >>wf off..>ei..>
029230: 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 ei..>>>wf on..>w
029240: 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A 3E 69 66 m E. & O.E...>if
029250: 20 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 3E prconame="y"..>
029260: 77 6D 20 56 41 54 20 72 65 67 2E 20 6E 6F 2E 20 wm VAT reg. no.
029270: 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A 3E &vatnum&..>ei..>
029280: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 0D 0A 3E >>wf off..>wc..>
029290: 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 2B 74 69 sv fn=invpath+ti
0292A0: 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E tle[1]+number+".
0292B0: 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 69 6E 74 poi"..>av "Print
0292C0: 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 72 69 6E invoice to prin
0292D0: 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 28 50 ter or screen (P
0292E0: 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 69 64 20 /s)? " x 1..>id
0292F0: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 66 6E cpm..>ex ren &fn
029300: 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D &=&invpath&omtem
029310: 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 72 65 6E 66 p..>el..>sv renf
029320: 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 n=title[1]+numbe
029330: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 65 r+".poi"..>ex re
029340: 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D n &invpath&omtem
029350: 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D 0A p &renfn&..>ei..
029360: 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 6E >wf "omsummar.in
029370: 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D f" a..>-------!-
029380: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
029390: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
0293A0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
0293B0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E 69 ------!----R..>i
0293C0: 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A f title[1]="i"..
0293D0: 3E 73 76 20 73 3D 27 49 4E 56 4F 49 43 45 09 26 >sv s='INVOICE.&
0293E0: 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 A3 number&.&date&.£
0293F0: 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 6C &due&.&a0&'..>el
029400: 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D .>>>wf off..>ei.
029410: 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 63 .>if title[1]="c
029420: 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D "..>>>wf on..>wm
029430: 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 6D 6F Terms: This amo
029440: 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 72 65 unt has been cre
029450: 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 61 63 dited to your ac
029460: 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 count..>>>wf off
029470: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 ..>ei..>ei..>>>w
029480: 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 20 4F f on..>wm E. & O
029490: 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D .E...>if prconam
0294A0: 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 20 72 e="y"..>wm VAT r
0294B0: 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 eg. no. &vatnum&
0294C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 66 66 ..>ei..>>>wf off
0294D0: 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D 69 6E ..>wc..>sv fn=in
0294E0: 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D 2B 6E vpath+title[1]+n
0294F0: 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 61 umber+".poi"..>a
029500: 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 63 65 v "Print invoice
029510: 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 73 to printer or s
029520: 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 78 creen (P/s)? " x
029530: 20 31 0D 0A 3E 65 78 20 65 72 61 20 26 66 6E 26 1..>ex era &fn&
029540: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 65 78 20 72 ..>id cpm..>ex r
029550: 65 6E 20 26 66 6E 26 3D 26 69 6E 76 70 61 74 68 en &fn&=&invpath
029560: 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 73 &omtemp..>el..>s
029570: 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 5B 31 5D v renfn=title[1]
029580: 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A +number+".poi"..
029590: 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 61 74 68 >ex ren &invpath
0295A0: 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 6E 26 0D &omtemp &renfn&.
0295B0: 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D 73 75 6D .>ei..>wf "omsum
0295C0: 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E 2D 2D 2D mar.inf" a..>---
0295D0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
0295E0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
0295F0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
029600: 0D 0A 3E 73 76 20 64 75 65 3D 30 2D 64 75 65 0D ..>sv due=0-due.
029610: 0A 3E 73 76 20 73 3D 27 43 52 45 44 49 54 09 26 .>sv s='CREDIT.&
029620: 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 A3 number&.&date&.£
029630: 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 69 &due&.&a0&'..>ei
029640: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 76 20 73 ..>id cpm..>sv s
029650: 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 =s+"
029660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029690: 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 2B 22 "..>sv s=s+"
0296A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0296B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0296C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0296D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0296E0: 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A 31 32 36 "..>sv s=s[1:126
0296F0: 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 27 26 73 26 ]..>ei..>wm '&s&
029700: 27 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 66 '..>wc..>ei..>wf
029710: 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 73 22 om.x..>if x="s"
029720: 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 ..>wm "ps &fn&|1
029730: 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 3|; Press a key
029740: 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C to continue:|13|
029750: 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D pause|13|load om
029760: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
029770: 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 33 7C .>wm "p &fn&|13|
029780: 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 load omenu|13|ps
029790: 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 "..>ei..>wc..>cf
0297A0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 0D ..>ex exec om.x.
0297B0: 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E 3E 3E 0D .>st...>>>..>>>.
0297C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
0297D0: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
0297E0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
0297F0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
029800: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
029810: 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D -R..>if title[1]
029820: 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 49 4E 56 ="i"..>sv s='INV
029830: 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 09 26 64 OICE.&number&.&d
029840: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&.£&due&.&a0&
029850: 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 65 3D '..>el..>sv due=
029860: 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 43 52 0-due..>sv s='CR
029870: 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 26 64 EDIT.&number&.&d
029880: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&.£&due&.&a0&
029890: 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D '..>ei..>id cpm.
0298A0: 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 .>sv s=s+"
0298B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0298C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0298D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0298E0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
0298F0: 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 s=s+"
029900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029930: 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 "..>sv s=s
029940: 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 [1:126]..>ei..>w
029950: 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E 65 m '&s&'..>wc..>e
029960: 69 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 i..>wf om.x..>if
029970: 20 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 x="s"..>wm "ps
029980: 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 &fn&|13|; Press
029990: 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 a key to continu
0299A0: 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C e:|13|pause|13|l
0299B0: 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 oad omenu|13|ps"
0299C0: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 ..>el..>wm "p &f
0299D0: 6E 26 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 n&|13|load omenu
0299E0: 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 |13|ps"..>ei..>w
0299F0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 c..>cf..>ex exec
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 00 02 09 4E E5 23 00 C1 02 00 00 00 02 #.....N.#.......
029A20: 23 00 C6 02 00 00 00 02 23 00 C2 02 00 00 00 02 #.......#.......
029A30: 23 00 C7 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A40: 23 00 C8 02 00 00 00 02 23 00 C4 02 00 00 00 02 #.......#.......
029A50: 23 00 C9 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 6C 69 6E 65 2D 63 61 6C 69 6E 65 2D 36 0D 0A 3E line-caline-6..>
029B10: 72 70 0D 0A 3E 77 6D 0D 0A 3E 73 76 20 6E 3D 6E rp..>wm..>sv n=n
029B20: 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 77 6D -1..>un n=0..>wm
029B30: 20 21 61 30 21 0D 0A 3E 77 6D 20 21 61 31 21 0D !a0!..>wm !a1!.
029B40: 0A 3E 77 6D 20 21 61 32 21 0D 0A 3E 77 6D 20 21 .>wm !a2!..>wm !
029B50: 61 33 21 09 EC 26 54 49 54 4C 45 26 EC 0D 0A 3E a3!..&TITLE&...>
029B60: 77 6D 20 21 61 34 21 09 0D 0A 3E 77 6D 20 21 61 wm !a4!...>wm !a
029B70: 35 21 09 4E 75 6D 62 65 72 20 20 20 20 20 26 6E 5!.Number &n
029B80: 75 6D 62 65 72 26 0D 0A 3E 77 6D 20 21 61 36 21 umber&..>wm !a6!
029B90: 09 44 61 74 65 20 20 20 20 20 20 20 26 64 61 74 .Date &dat
029BA0: 65 26 0D 0A 3E 77 6D 20 21 61 37 21 09 4F 72 64 e&..>wm !a7!.Ord
029BB0: 65 72 20 52 65 66 20 20 26 72 65 66 26 0D 0A 3E er Ref &ref&..>
029BC0: 3E 3E 20 67 6F 74 6F 20 6C 69 6E 65 20 26 74 6C >> goto line &tl
029BD0: 69 6E 65 26 0D 0A 3E 73 76 20 6E 3D 74 6C 69 6E ine&..>sv n=tlin
029BE0: 65 2D 61 6C 69 6E 65 2D 38 0D 0A 3E 72 70 0D 0A e-aline-8..>rp..
029BF0: 3E 77 6D 20 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D >wm ..>sv n=n-1.
029C00: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 77 66 6F 6E 0D .>un n=0..>wfon.
029C10: 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 21 .> !
029C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029C30: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
029C40: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
029C50: 20 21 20 20 20 20 20 20 20 20 52 0D 0A 26 72 75 ! R..&ru
029C60: 6C 65 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E ler2&..>wfoff..>
029C70: 77 6D 20 43 4F 44 45 09 44 45 53 43 52 49 50 54 wm CODE.DESCRIPT
029C80: 49 4F 4E 09 51 55 41 4E 54 49 54 59 09 55 4E 49 ION.QUANTITY.UNI
029C90: 54 20 50 52 49 43 45 09 54 4F 54 41 4C 0D 0A 3E T PRICE.TOTAL..>
029CA0: 77 66 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 wfon..>
029CB0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
029CC0: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
029CD0: 20 20 20 20 20 20 20 20 20 20 2E 20 20 20 20 20 .
029CE0: 20 20 20 20 20 20 20 20 20 2E 20 20 20 20 20 52 . R
029CF0: 0D 0A 26 72 75 6C 65 72 33 26 0D 0A 3E 77 66 6F ..&ruler3&..>wfo
029D00: 61 72 2A 76 61 74 63 66 31 20 20 20 3B 20 63 61 ar*vatcf1 ; ca
029D10: 72 72 69 61 67 65 20 63 68 61 72 67 65 64 20 61 rriage charged a
029D20: 74 20 56 41 54 20 72 61 74 65 20 31 0D 0A 3E 72 t VAT rate 1..>r
029D30: 70 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 p..>if useprod="
029D40: 79 22 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D y"..>sv n=n+1 n=
029D50: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 71 75 61 6E 74 n[w1]..>if quant
029D60: 26 6E 26 20 3D 20 30 0D 0A 3E 73 76 20 63 6F 64 &n& = 0..>sv cod
029D70: 65 6E 3D 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 en=""..>el..>sv
029D80: 64 65 73 63 6E 3D 64 65 73 63 26 6E 26 5B 31 3A descn=desc&n&[1:
029D90: 26 64 65 73 63 77 69 64 74 68 26 5D 0D 0A 3E 73 &descwidth&]..>s
029DA0: 76 20 63 6F 64 65 6E 3D 63 6F 64 65 26 6E 26 0D v coden=code&n&.
029DB0: 0A 3E 73 76 20 71 75 61 6E 74 6E 3D 71 75 61 6E .>sv quantn=quan
029DC0: 74 26 6E 26 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 t&n&[w1]..>sv pr
029DD0: 69 63 65 6E 3D 70 72 69 63 65 26 6E 26 0D 0A 3E icen=price&n&..>
029DE0: 73 76 20 76 72 3D 70 72 6F 64 76 61 74 26 6E 26 sv vr=prodvat&n&
029DF0: 0D 0A 3E 69 66 20 63 75 73 74 64 69 73 63 3D 30 ..>if custdisc=0
029E00: 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D 31 ..>sv discount=1
029E10: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 70 72 6F 64 64 ..>el..>sv prodd
029E20: 69 73 63 6E 3D 70 72 6F 64 64 69 73 63 26 6E 26 iscn=proddisc&n&
029E30: 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D 64 ..>sv discount=d
029E40: 69 73 63 26 63 75 73 74 64 69 73 63 26 5B 77 26 isc&custdisc&[w&
029E50: 70 72 6F 64 64 69 73 63 6E 26 5D 0D 0A 3E 73 76 proddiscn&]..>sv
029E60: 20 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 6F 75 discount=discou
029E70: 6E 74 2F 31 30 30 20 64 69 73 63 6F 75 6E 74 3D nt/100 discount=
029E80: 31 2D 64 69 73 63 6F 75 6E 74 0D 0A 3E 65 69 0D 1-discount..>ei.
029E90: 0A 3E 73 76 20 75 70 72 69 63 65 3D 70 72 69 63 .>sv uprice=pric
029EA0: 65 6E 2A 64 69 73 63 6F 75 6E 74 0D 0A 3E 73 76 en*discount..>sv
029EB0: 20 70 72 69 63 65 3D 71 75 61 6E 74 6E 2A 75 70 price=quantn*up
029EC0: 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 rice..>ei..>el
029ED0: 3B 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C ; no product fil
029EE0: 65 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 e..>av "Product
029EF0: 63 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E code: " coden..>
029F00: 20 22 43 61 72 72 69 61 67 65 3A 20 22 2C 63 61 "Carriage: ",ca
029F10: 72 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 61 72 3D r..>ei..>if car=
029F20: 22 22 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A 3E ""..>sv car=0..>
029F30: 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 65 ei..>sv footnote
029F40: 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D 22 =""..>if askfn="
029F50: 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E 6F 74 y"..>av "Footnot
029F60: 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D 0A 3E e: ",footnote..>
029F70: 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 ei..>if vatreg="
029F80: 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 6E 22 n"..>sv vat?="n"
029F90: 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>el..>rp..>av
029FA0: 22 49 73 20 56 41 54 20 63 68 61 72 67 65 61 62 "Is VAT chargeab
029FB0: 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 74 3F le (Y/n)? " vat?
029FC0: 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 22 0D 1..>if vat?="".
029FD0: 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D 0A 3E .>sv vat?="y"..>
029FE0: 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 6E 20 ei..>un vat? in
029FF0: 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A "yn"..>ei..>>>..
02A000: 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 64 65 >>> ask for orde
02A010: 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 6B 65 r levels from ke
02A020: 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E 69 66 yboard..>>>..>if
02A030: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 64 useprod="y"..>d
02A040: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E 74 65 m " "..>dm "Ente
02A050: 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 6F 72 r quantities for
02A060: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 70 the following p
02A070: 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 54 roducts"..>dm "T
02A080: 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 6F yping anything o
02A090: 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D 62 ther than a numb
02A0A0: 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C 6C er will skip all
02A0B0: 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 75 remaining produ
02A0C0: 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E cts"..>dm " "..>
02A0D0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
02A0E0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
02A0F0: 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 22 >sv quant&n&="0"
02A100: 69 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 if coden=""..>sv
02A110: 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 n=maxn..>ei..>i
02A120: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 f coden<>""..>av
02A130: 20 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 "Description :
02A140: 22 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 " descn..>av "Qu
02A150: 61 6E 74 69 74 79 20 20 20 20 3A 20 22 20 71 75 antity : " qu
02A160: 61 6E 74 6E 0D 0A 3E 69 66 20 71 75 61 6E 74 6E antn..>if quantn
02A170: 3D 22 22 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D =""..>sv quantn=
02A180: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 " "..>ei..>if qu
02A190: 61 6E 74 6E 5B 31 5D 20 6E 6F 74 69 6E 20 22 30 antn[1] notin "0
02A1A0: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 123456789"..>dm
02A1B0: 22 4E 6F 74 20 61 20 6E 75 6D 62 65 72 2E 20 50 "Not a number. P
02A1C0: 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 22 0D lease re-enter".
02A1D0: 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E .>sv coden=""..>
02A1E0: 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 ei..>ei..>if cod
02A1F0: 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 22 55 6E 69 en<>""..>av "Uni
02A200: 74 20 70 72 69 63 65 20 20 20 A3 22 20 75 70 72 t price £" upr
02A210: 69 63 65 0D 0A 3E 69 66 20 75 70 72 69 63 65 3D ice..>if uprice=
02A220: 22 22 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D 22 ""..>sv uprice="
02A230: 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 75 70 72 "..>ei..>if upr
02A240: 69 63 65 5B 31 5D 20 6E 6F 74 69 6E 20 22 2E 30 ice[1] notin ".0
02A250: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 123456789"..>dm
02A260: 22 4D 65 61 6E 69 6E 67 6C 65 73 73 20 70 72 69 "Meaningless pri
02A270: 63 65 2E 20 50 6C 65 61 73 65 20 72 65 2D 65 6E ce. Please re-en
02A280: 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D ter"..>sv coden=
02A290: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 ""..>ei..>ei..>i
02A2A0: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 f coden<>""..>if
02A2B0: 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 61 76 vatreg="y"..>av
02A2C0: 20 22 56 41 54 20 63 6F 64 65 20 28 30 3D 6E 6F "VAT code (0=no
02A2D0: 20 56 41 54 29 20 5B 31 5D 3A 20 22 20 76 72 20 VAT) [1]: " vr
02A2E0: 31 0D 0A 3E 69 66 20 76 72 20 6E 6F 74 69 6E 20 1..>if vr notin
02A2F0: 22 30 31 32 33 34 35 22 0D 0A 3E 73 76 20 76 72 "012345"..>sv vr
02A300: 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 3E ..>un n=maxn..>>
02A310: 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D >..>sv n=0..>rp.
02A320: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
02A330: 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D 64 1]..>sv prompt=d
02A340: 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F 6D esc&n&..>if prom
02A350: 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 70 pt[25]=""..>sv p
02A360: 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 20 rompt=prompt+"
02A370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A380: 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 "..>sv
02A390: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 3A prompt=prompt[1:
02A3A0: 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 26 25]..>ei..>av "&
02A3B0: 70 72 6F 6D 70 74 26 20 3A 20 22 20 71 75 61 6E prompt& : " quan
02A3C0: 74 26 6E 26 0D 0A 3E 73 76 20 78 3D 71 75 61 6E t&n&..>sv x=quan
02A3D0: 74 26 6E 26 5B 31 5D 0D 0A 3E 69 66 20 78 20 6E t&n&[1]..>if x n
02A3E0: 6F 74 69 6E 20 22 30 31 32 33 34 35 36 37 38 39 otin "0123456789
02A3F0: 22 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D "..>sv quant&n&=
02A400: 22 30 22 0D 0A 3E 73 76 20 6E 3D 6D 61 78 6E 20 "0"..>sv n=maxn
02A410: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 73 n=n[w1]..>el..>s
02A420: 76 20 71 75 61 6E 74 26 6E 26 3D 71 75 61 6E 74 v quant&n&=quant
02A430: 26 6E 26 2B 30 0D 0A 3E 65 69 0D 0A 3E 69 66 20 &n&+0..>ei..>if
02A440: 6E 3D 6D 61 78 6E 0D 0A 3E 64 6D 20 22 20 22 0D n=maxn..>dm " ".
02A450: 0A 3E 61 76 20 22 52 65 2D 65 6E 74 65 72 20 6F .>av "Re-enter o
02A460: 72 64 65 72 20 28 79 2F 4E 29 3F 20 22 20 79 65 rder (y/N)? " ye
02A470: 73 6E 6F 20 31 0D 0A 3E 69 66 20 79 65 73 6E 6F sno 1..>if yesno
02A480: 3D 22 79 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E ="y"..>sv n=0..>
02A490: 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E 65 69 dm " "..>ei..>ei
02A4A0: 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 ..>un n=maxn..>e
02A4B0: 69 20 3B 20 75 73 65 70 72 6F 64 3D 22 79 22 0D i ; useprod="y".
02A4C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 70 72 69 6E 74 20 .>>>..>>> print
02A4D0: 6F 75 74 20 68 65 61 64 69 6E 67 20 61 74 20 74 out heading at t
02A4E0: 6F 70 20 6F 66 20 73 68 65 65 74 0D 0A 3E 3E 3E op of sheet..>>>
02A4F0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 66 20 6F ..>dm " "..>wf o
02A500: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 ="1"..>ei..>if v
02A510: 72 3D 22 22 0D 0A 3E 73 76 20 76 72 3D 22 31 22 r=""..>sv vr="1"
02A520: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 ..>ei..>ei..>dm
02A530: 22 20 22 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D " "..>sv pricen=
02A540: 75 70 72 69 63 65 20 70 72 69 63 65 3D 70 72 69 uprice price=pri
02A550: 63 65 6E 2A 71 75 61 6E 74 6E 0D 0A 3E 65 69 0D cen*quantn..>ei.
02A560: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
02A570: 3E 22 22 0D 0A 3E 73 76 20 76 61 74 63 66 6E 3D >""..>sv vatcfn=
02A580: 76 61 74 63 66 26 76 72 26 0D 0A 3E 69 66 20 76 vatcf&vr&..>if v
02A590: 61 74 3F 3D 22 79 22 0D 0A 3E 69 66 20 65 78 6F at?="y"..>if exo
02A5A0: 72 69 6E 63 76 61 74 20 3D 20 22 69 22 0D 0A 3E rincvat = "i"..>
02A5B0: 73 76 20 75 70 72 69 63 65 3D 75 70 72 69 63 65 sv uprice=uprice
02A5C0: 2F 76 61 74 63 66 6E 20 70 72 69 63 65 3D 70 72 /vatcfn price=pr
02A5D0: 69 63 65 2F 76 61 74 63 66 6E 20 69 6E 63 70 72 ice/vatcfn incpr
02A5E0: 69 63 65 3D 70 72 69 63 65 6E 2A 64 69 73 63 6F ice=pricen*disco
02A5F0: 75 6E 74 2A 71 75 61 6E 74 6E 0D 0A 3E 73 76 20 unt*quantn..>sv
02A600: 76 61 74 3D 76 61 74 2B 69 6E 63 70 72 69 63 65 vat=vat+incprice
02A610: 2D 70 72 69 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 76 -price..>el..>sv
02A620: 20 78 3D 70 72 69 63 65 2A 2E 31 35 20 69 6E 63 x=price*.15 inc
02A630: 70 72 69 63 65 3D 70 72 69 63 65 2B 78 20 76 61 price=price+x va
02A640: 74 3D 76 61 74 2B 78 0D 0A 3E 65 69 0D 0A 3E 65 t=vat+x..>ei..>e
02A650: 6C 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 3D l..>sv incprice=
02A660: 70 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 price..>ei..>if
02A670: 71 75 61 6E 74 26 6E 26 3E 30 0D 0A 3E 73 76 20 quant&n&>0..>sv
02A680: 74 6F 74 3D 74 6F 74 2B 70 72 69 63 65 20 20 64 tot=tot+price d
02A690: 75 65 3D 64 75 65 2B 69 6E 63 70 72 69 63 65 20 ue=due+incprice
02A6A0: 75 70 72 69 63 65 3D 75 70 72 69 63 65 2B 30 0D uprice=uprice+0.
02A6B0: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 .>>>wf on..>wm &
02A6C0: 63 6F 64 65 6E 26 09 26 64 65 73 63 6E 26 09 26 coden&.&descn&.&
02A6D0: 71 75 61 6E 74 6E 26 09 26 75 70 72 69 63 65 26 quantn&.&uprice&
02A6E0: 09 26 70 72 69 63 65 26 0D 0A 3E 3E 3E 77 66 20 .&price&..>>>wf
02A6F0: 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 off..>sv blankli
02A700: 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 n..>
02A710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
02A730: 20 20 20 20 20 20 20 20 20 20 6C 20 20 20 20 20 l
02A740: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 0D 0A r..
02A750: 26 72 75 6C 65 72 31 26 0D 0A 3E 77 66 6F 66 66 &ruler1&..>wfoff
02A760: 0D 0A 3E 77 6D 0D 0A 3E 69 66 20 70 72 63 6F 6E ..>wm..>if prcon
02A770: 61 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 EC 21 63 ame="y"..>wm .!c
02A780: 6F 6E 61 6D 65 21 0D 0A 3E 77 6D 20 21 63 6F 61 oname!..>wm !coa
02A790: 64 64 72 31 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 ddr1!..>wm !coad
02A7A0: 64 72 32 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 dr2!..>wm !coadd
02A7B0: 72 33 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 r3!..>wm !coaddr
02A7C0: 34 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 35 4!..>wm !coaddr5
02A7D0: 21 EC 0D 0A 3E 65 69 0D 0A 3E 3E 3E 20 67 6F 20 !...>ei..>>> go
02A7E0: 74 6F 20 6C 69 6E 65 20 26 61 6C 69 6E 65 26 0D to line &aline&.
02A7F0: 0A 3E 73 76 20 6E 3D 61 6C 69 6E 65 2D 63 61 6C .>sv n=aline-cal
02A800: 69 6E 65 2D 36 0D 0A 3E 72 70 0D 0A 3E 77 6D 0D ine-6..>rp..>wm.
02A810: 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 .>sv n=n-1..>un
02A820: 6E 3D 30 0D 0A 3E 77 6D 20 21 61 30 21 0D 0A 3E n=0..>wm !a0!..>
02A830: 77 6D 20 21 61 31 21 0D 0A 3E 77 6D 20 21 61 32 wm !a1!..>wm !a2
02A840: 21 0D 0A 3E 77 6D 20 21 61 33 21 09 EC 26 54 49 !..>wm !a3!..&TI
02A850: 54 4C 45 26 EC 0D 0A 3E 77 6D 20 21 61 34 21 09 TLE&...>wm !a4!.
02A860: 0D 0A 3E 77 6D 20 21 61 35 21 09 4E 75 6D 62 65 ..>wm !a5!.Numbe
02A870: 72 20 20 20 20 20 26 6E 75 6D 62 65 72 26 0D 0A r &number&..
02A880: 3E 77 6D 20 21 61 36 21 09 44 61 74 65 20 20 20 >wm !a6!.Date
02A890: 20 20 20 20 26 64 61 74 65 26 0D 0A 3E 77 6D 20 &date&..>wm
02A8A0: 21 61 37 21 09 4F 72 64 65 72 20 52 65 66 20 20 !a7!.Order Ref
02A8B0: 26 72 65 66 26 0D 0A 3E 3E 3E 20 67 6F 74 6F 20 &ref&..>>> goto
02A8C0: 6C 69 6E 65 20 26 74 6C 69 6E 65 26 0D 0A 3E 73 line &tline&..>s
02A8D0: 76 20 6E 3D 74 6C 69 6E 65 2D 61 6C 69 6E 65 2D v n=tline-aline-
02A8E0: 38 0D 0A 3E 72 70 0D 0A 3E 77 6D 20 0D 0A 3E 73 8..>rp..>wm ..>s
02A8F0: 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 v n=n-1..>un n=0
02A900: 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 nes=blanklines-1
02A910: 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 63 6F 64 ..>ei..>ei ; cod
02A920: 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 6E 3D 6D 61 en<>""..>if n=ma
02A930: 78 6E 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D xn..>if useprod=
02A940: 22 79 22 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 "y"..>sv useprod
02A950: 3D 22 6E 22 20 6E 3D 22 30 22 20 64 69 73 63 6F ="n" n="0" disco
02A960: 75 6E 74 3D 31 0D 0A 3E 64 6D 20 22 45 6E 74 65 unt=1..>dm "Ente
02A970: 72 20 64 65 74 61 69 6C 73 20 6F 66 20 61 6E 79 r details of any
02A980: 20 6F 74 68 65 72 20 69 74 65 6D 73 20 28 52 45 other items (RE
02A990: 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 0D TURN to end): ".
02A9A0: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>dm " "..>ei..>
02A9B0: 65 69 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A ei..>un n=maxn..
02A9C0: 3E 3E 3E 0D 0A 3E 3E 3E 20 64 6F 20 73 75 66 66 >>>..>>> do suff
02A9D0: 69 63 69 65 6E 74 20 62 6C 61 6E 6B 20 6C 69 6E icient blank lin
02A9E0: 65 73 20 66 6F 72 20 6D 69 73 73 69 6E 67 20 69 es for missing i
02A9F0: 74 65 6D 73 0D 0A 3E 69 66 20 62 6C 61 6E 6B 6C tems..>if blankl
02AA00: 69 6E 65 73 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E 3E ines>0..>rp..>>>
02AA10: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E 3E wf on..>wm ..>>>
02AA20: 77 66 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E wf off..>sv blan
02AA30: 6B 6C 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 klines=blankline
02AA40: 73 2D 31 0D 0A 3E 75 6E 20 62 6C 61 6E 6B 6C 69 s-1..>un blankli
02AA50: 6E 65 73 3D 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D nes=0..>ei..>>>.
02AA60: 0A 3E 77 66 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 .>wf on..>
02AA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AA90: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
02AAA0: 20 20 20 20 20 4C 20 20 20 20 20 20 2E 20 20 52 L . R
02AAB0: 0D 0A 26 72 75 6C 65 72 34 26 0D 0A 3E 77 66 20 ..&ruler4&..>wf
02AAC0: 6F 66 66 0D 0A 3E 73 76 20 63 61 72 3D 63 61 72 off..>sv car=car
02AAD0: 2B 30 0D 0A 3E 73 76 20 65 78 76 3D 74 6F 74 2B +0..>sv exv=tot+
02AAE0: 63 61 72 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E car..>>>wf on..>
02AAF0: 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A 3E if askcar="y"..>
02AB00: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 20 20 20 20 20 20 ..>wfon..>
02AB10: 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 !
02AB20: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
02AB30: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
02AB40: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
02AB50: 20 20 52 0D 0A 26 72 75 6C 65 72 32 26 0D 0A 3E R..&ruler2&..>
02AB60: 77 66 6F 66 66 0D 0A 3E 77 6D 20 43 4F 44 45 09 wfoff..>wm CODE.
02AB70: 44 45 53 43 52 49 50 54 49 4F 4E 09 51 55 41 4E DESCRIPTION.QUAN
02AB80: 54 49 54 59 09 55 4E 49 54 20 50 52 49 43 45 09 TITY.UNIT PRICE.
02AB90: 54 4F 54 41 4C 0D 0A 3E 77 66 6F 6E 0D 0A 3E 20 TOTAL..>wfon..>
02ABA0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
02ABB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02ABC0: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
02ABD0: 20 20 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02ABE0: 20 2E 20 20 20 20 20 52 0D 0A 26 72 75 6C 65 72 . R..&ruler
02ABF0: 33 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D 0D 3&..>wfoff..>wm.
02AC00: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 70 72 69 6E 74 20 .>>>..>>> print
02AC10: 6F 75 74 20 6F 72 64 65 72 20 6C 69 6E 65 73 0D out order lines.
02AC20: 0A 3E 3E 3E 0D 0A 3E 69 66 20 75 73 65 70 72 6F .>>>..>if usepro
02AC30: 64 3D 22 79 22 0D 0A 3E 64 6D 20 22 43 61 6C 63 d="y"..>dm "Calc
02AC40: 75 6C 61 74 69 6E 67 20 74 6F 74 61 6C 73 2E 2E ulating totals..
02AC50: 2E 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 6C ."..>dm " "..>el
02AC60: 0D 0A 3E 64 6D 20 22 45 6E 74 65 72 20 64 65 74 ..>dm "Enter det
02AC70: 61 69 6C 73 20 6F 66 20 65 61 63 68 20 69 74 65 ails of each ite
02AC80: 6D 20 28 52 45 54 55 52 4E 20 74 6F 20 65 6E 64 m (RETURN to end
02AC90: 29 3A 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ): "..>dm " "..>
02ACA0: 65 69 0D 0A 3E 73 76 20 6E 3D 30 20 71 75 61 6E ei..>sv n=0 quan
02ACB0: 74 30 3D 31 20 64 69 73 63 6F 75 6E 74 3D 31 0D t0=1 discount=1.
02ACC0: 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>sv blanklines=
02ACD0: 69 6E 66 6F 6C 69 6E 65 73 20 63 6F 64 65 6E 3D infolines coden=
02ACE0: 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 2E 30 30 ""..>sv tot=0.00
02ACF0: 20 20 76 61 74 3D 30 2E 30 30 20 64 75 65 3D 63 vat=0.00 due=c
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 00 02 09 4E E5 24 00 C1 02 00 00 00 02 $.....N.$.......
02AD20: 24 00 C6 02 00 00 00 02 24 00 C2 02 00 00 00 02 $.......$.......
02AD30: 24 00 C7 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD40: 24 00 C8 02 00 00 00 02 24 00 C4 02 00 00 00 02 $.......$.......
02AD50: 24 00 C9 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 77 6D 20 09 20 47 4F 4F 44 53 20 54 4F 54 41 4C wm . GOODS TOTAL
02AE10: 09 A3 09 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 .£.&tot&..>wm .
02AE20: 43 61 72 72 69 61 67 65 09 A3 09 26 63 61 72 26 Carriage.£.&car&
02AE30: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D ..>el..>wm ..>wm
02AE40: 20 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 ..>ei..>if vatr
02AE50: 65 67 3D 22 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 eg="y"..>wm . NE
02AE60: 54 20 54 4F 54 41 4C 09 A3 09 26 65 78 76 26 0D T TOTAL.£.&exv&.
02AE70: 0A 3E 77 6D 20 09 20 56 41 54 09 A3 09 26 76 61 .>wm . VAT.£.&va
02AE80: 74 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E t&..>el..>wm ..>
02AE90: 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 wm ..>ei..>wm .
02AEA0: 41 4D 4F 55 4E 54 20 44 55 45 09 A3 09 26 64 75 AMOUNT DUE.£.&du
02AEB0: 65 26 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A e&..>wm ..>wm ..
02AEC0: 3E 77 66 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 >wf on..>
02AED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AEF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AF10: 20 52 0D 0A 26 72 75 6C 65 72 35 26 0D 0A 3E 77 R..&ruler5&..>w
02AF20: 66 6F 66 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D foff..>co bottom
02AF30: 20 6C 69 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 65 line comment he
02AF40: 72 65 0D 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 re..>if footnote
02AF50: 3E 22 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E >""..>>>wf on..>
02AF60: 77 6D 20 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E wm &footnote&..>
02AF70: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E >>wf off..>el..>
02AF80: 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D if title[1]="i".
02AF90: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 .>>>wf on..>wm T
02AFA0: 65 72 6D 73 3A 20 53 74 72 69 63 74 6C 79 20 33 erms: Strictly 3
02AFB0: 30 20 44 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 0 Days Net..>>>w
02AFC0: 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 f off..>ei..>if
02AFD0: 74 69 74 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E title[1]="c"..>>
02AFE0: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D >wf on..>wm Term
02AFF0: 73 3A 20 54 68 69 73 20 61 6D 6F 75 6E 74 20 68 s: This amount h
02B000: 26 72 63 34 26 5D 2B 22 21 22 2B 64 61 73 68 65 &rc4&]+"!"+dashe
02B010: 73 5B 31 3A 26 72 63 35 26 5D 2B 22 52 22 0D 0A s[1:&rc5&]+"R"..
02B020: 3E 73 76 20 72 33 63 33 3D 72 32 63 33 2D 32 0D >sv r3c3=r2c3-2.
02B030: 0A 3E 73 76 20 72 75 6C 65 72 33 3D 22 3E 22 2B .>sv ruler3=">"+
02B040: 64 61 73 68 65 73 5B 31 3A 26 72 32 63 31 26 5D dashes[1:&r2c1&]
02B050: 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 +"!"+dashes[1:&r
02B060: 32 63 32 26 5D 2B 22 2D 2D 2E 22 2B 64 61 73 68 2c2&]+"--."+dash
02B070: 65 73 5B 31 3A 26 72 33 63 33 26 5D 2B 22 2E 22 es[1:&r3c3&]+"."
02B080: 0D 0A 3E 73 76 20 72 75 6C 65 72 33 3D 72 75 6C ..>sv ruler3=rul
02B090: 65 72 33 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 er3+dashes[1:&r2
02B0A0: 63 34 26 5D 2B 22 2E 22 2B 64 61 73 68 65 73 5B c4&]+"."+dashes[
02B0B0: 31 3A 26 72 32 63 35 26 5D 2B 22 52 22 0D 0A 3E 1:&r2c5&]+"R"..>
02B0C0: 73 76 20 72 75 6C 65 72 34 3D 22 3E 22 2B 64 61 sv ruler4=">"+da
02B0D0: 73 68 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B shes[1:&n&]+"!"+
02B0E0: 64 61 73 68 65 73 5B 31 3A 31 34 5D 2B 22 4C 22 dashes[1:14]+"L"
02B0F0: 2B 64 61 73 68 65 73 5B 31 3A 37 5D 2B 22 2E 2D +dashes[1:7]+".-
02B100: 2D 52 22 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 74 -R"..>sv n=iwidt
02B110: 68 2D 32 0D 0A 3E 73 76 20 72 75 6C 65 72 35 3D h-2..>sv ruler5=
02B120: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
02B130: 5D 2B 22 52 22 0D 0A 3E 77 6D 20 27 22 26 72 75 ]+"R"..>wm '"&ru
02B140: 6C 65 72 31 26 22 27 0D 0A 3E 77 6D 20 27 22 26 ler1&"'..>wm '"&
02B150: 72 75 6C 65 72 32 26 22 27 0D 0A 3E 77 6D 20 27 ruler2&"'..>wm '
02B160: 22 26 72 75 6C 65 72 33 26 22 27 0D 0A 3E 77 6D "&ruler3&"'..>wm
02B170: 20 27 22 26 72 75 6C 65 72 34 26 22 27 0D 0A 3E '"&ruler4&"'..>
02B180: 77 6D 20 27 22 26 72 75 6C 65 72 35 26 22 27 0D wm '"&ruler5&"'.
02B190: 0A 3E 77 6D 20 27 21 63 6F 6E 61 6D 65 21 27 0D .>wm '!coname!'.
02B1A0: 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 31 21 27 .>wm '!coaddr1!'
02B1B0: 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 32 21 ..>wm '!coaddr2!
02B1C0: 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 33 '..>wm '!coaddr3
02B1D0: 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 !'..>wm '!coaddr
02B1E0: 34 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 4!'..>wm '!coadd
02B1F0: 72 35 21 27 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A r5!'..>wc..>cf..
02B200: 61 73 20 62 65 65 6E 20 63 72 65 64 69 74 65 64 as been credited
02B210: 20 74 6F 20 79 6F 75 72 20 61 63 63 6F 75 6E 74 to your account
02B220: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 ..>>>wf off..>ei
02B230: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D ..>ei..>>>wf on.
02B240: 0A 3E 77 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A .>wm E. & O.E...
02B250: 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 22 >if prconame="y"
02B260: 0D 0A 3E 77 6D 20 56 41 54 20 72 65 67 2E 20 6E ..>wm VAT reg. n
02B270: 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 o. &vatnum&..>ei
02B280: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 ..>>>wf off..>wc
02B290: 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 ..>sv fn=invpath
02B2A0: 2B 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 +title[1]+number
02B2B0: 2B 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 +".poi"..>av "Pr
02B2C0: 69 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 int invoice to p
02B2D0: 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E rinter or screen
02B2E0: 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E (P/s)? " x 1..>
02B2F0: 65 78 20 65 72 61 20 26 66 6E 26 0D 0A 3E 69 64 ex era &fn&..>id
02B300: 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 66 cpm..>ex ren &f
02B310: 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 n&=&invpath&omte
02B320: 6D 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 72 65 6E mp..>el..>sv ren
02B330: 66 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 fn=title[1]+numb
02B340: 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 er+".poi"..>ex r
02B350: 65 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 en &invpath&omte
02B360: 6D 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D mp &renfn&..>ei.
02B370: 0A 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 .>wf "omsummar.i
02B380: 6E 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 nf" a..>-------!
02B390: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02B3A0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02B3B0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02B3C0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E -------!----R..>
02B3D0: 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D if title[1]="i".
02B3E0: 0A 3E 73 76 20 73 3D 27 49 4E 56 4F 49 43 45 09 .>sv s='INVOICE.
02B3F0: 26 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 &number&.&date&.
02B400: 3E 65 78 20 65 72 61 20 6F 6D 69 6E 76 67 65 6E >ex era ominvgen
02B410: 2E 69 6E 66 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .inf..>id cpm..>
02B420: 65 78 20 72 65 6E 20 6F 6D 69 6E 76 67 65 6E 2E ex ren ominvgen.
02B430: 69 6E 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 0D 0A inf omtemp.inf..
02B440: 3E 65 6C 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 74 >el..>ex ren omt
02B450: 65 6D 70 2E 69 6E 66 20 6F 6D 69 6E 76 67 65 6E emp.inf ominvgen
02B460: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F .inf..>ei..>df o
02B470: 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E menu..>sk 0=0..>
02B480: 65 69 20 3B 20 6F 70 74 3D 22 65 22 0D 0A 1A 3E ei ; opt="e"...>
02B490: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
02B4A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
02B4B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
02B4C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
02B4D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
02B4E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
02B4F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
02B500: 35 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 5=">"+dashes[1:&
02B510: 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D 20 27 22 26 n&]+"R"..>wm '"&
02B520: 72 75 6C 65 72 31 26 22 27 0D 0A 3E 77 6D 20 27 ruler1&"'..>wm '
02B530: 22 26 72 75 6C 65 72 32 26 22 27 0D 0A 3E 77 6D "&ruler2&"'..>wm
02B540: 20 27 22 26 72 75 6C 65 72 33 26 22 27 0D 0A 3E '"&ruler3&"'..>
02B550: 77 6D 20 27 22 26 72 75 6C 65 72 34 26 22 27 0D wm '"&ruler4&"'.
02B560: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 35 26 22 .>wm '"&ruler5&"
02B570: 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E 61 6D 65 21 '..>wm '!coname!
02B580: 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 31 '..>wm '!coaddr1
02B590: 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 !'..>wm '!coaddr
02B5A0: 32 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 2!'..>wm '!coadd
02B5B0: 72 33 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 r3!'..>wm '!coad
02B5C0: 64 72 34 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 dr4!'..>wm '!coa
02B5D0: 64 64 72 35 21 27 0D 0A 3E 77 63 0D 0A 3E 63 66 ddr5!'..>wc..>cf
02B5E0: 0D 0A 3E 65 78 20 65 72 61 20 6F 6D 69 6E 76 67 ..>ex era ominvg
02B5F0: 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 63 70 6D 0D en.inf..>id cpm.
02B600: 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D 69 >cf..>ex era omi
02B610: 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 63 nvgen.inf..>id c
02B620: 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 6E pm..>ex ren omin
02B630: 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D 70 2E vgen.inf omtemp.
02B640: 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 72 65 inf..>el..>ex re
02B650: 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F 6D 69 n omtemp.inf omi
02B660: 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A nvgen.inf..>ei..
02B670: 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 >df omenu..>sk 0
02B680: 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 65 =0..>ei ; opt="e
02B690: 22 0D 0A 1A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E "...>>>..>>>..>>
02B6A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
02B6B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
02B6C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
02B6D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
02B6E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
02B6F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
02B700: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
02B710: 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 52 22 -----!--------R"
02B720: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
02B730: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -!--------------
02B740: 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D --------.-------
02B750: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D -------.--------
02B760: 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 22 0D 0A ------.-----R"..
02B770: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ">--------------
02B780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
02B7A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D ------------L---
02B7B0: 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D ----.--R"..">---
02B7C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B7D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B7E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B7F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: 20 6F 6E 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D on..>if askcar=
02BC10: 22 79 22 0D 0A 3E 77 6D 20 09 20 47 4F 4F 44 53 "y"..>wm . GOODS
02BC20: 20 54 4F 54 41 4C 09 A3 09 26 74 6F 74 26 0D 0A TOTAL.£.&tot&..
02BC30: 3E 77 6D 20 09 20 43 61 72 72 69 61 67 65 09 A3 >wm . Carriage.£
02BC40: 09 26 63 61 72 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D .&car&..>el..>wm
02BC50: 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 ..>wm ..>ei..>i
02BC60: 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 77 f vatreg="y"..>w
02BC70: 6D 20 09 20 4E 45 54 20 54 4F 54 41 4C 09 A3 09 m . NET TOTAL.£.
02BC80: 26 65 78 76 26 0D 0A 3E 77 6D 20 09 20 56 41 54 &exv&..>wm . VAT
02BC90: 09 A3 09 26 76 61 74 26 0D 0A 3E 65 6C 0D 0A 3E .£.&vat&..>el..>
02BCA0: 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A wm ..>wm ..>ei..
02BCB0: 3E 77 6D 20 09 20 41 4D 4F 55 4E 54 20 44 55 45 >wm . AMOUNT DUE
02BCC0: 09 A3 09 26 64 75 65 26 0D 0A 3E 77 6D 20 0D 0A .£.&due&..>wm ..
02BCD0: 3E 77 6D 20 0D 0A 3E 77 66 20 6F 6E 0D 0A 3E 20 >wm ..>wf on..>
02BCE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BCF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BD00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BD10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BD20: 20 20 20 20 20 20 20 52 0D 0A 26 72 75 6C 65 72 R..&ruler
02BD30: 35 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 63 6F 20 5&..>wfoff..>co
02BD40: 62 6F 74 74 6F 6D 20 6C 69 6E 65 20 63 6F 6D 6D bottom line comm
02BD50: 65 6E 74 20 68 65 72 65 0D 0A 3E 69 66 20 66 6F ent here..>if fo
02BD60: 6F 74 6E 6F 74 65 3E 22 22 0D 0A 3E 3E 3E 77 66 otnote>""..>>>wf
02BD70: 20 6F 6E 0D 0A 3E 77 6D 20 26 66 6F 6F 74 6E 6F on..>wm &footno
02BD80: 74 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A te&..>>>wf off..
02BD90: 3E 65 6C 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 >el..>if title[1
02BDA0: 5D 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D ]="i"..>>>wf on.
02BDB0: 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 69 .>wm Terms: Stri
02BDC0: 63 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 74 ctly 30 Days Net
02BDD0: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 ..>>>wf off..>ei
02BDE0: 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 ..>if title[1]="
02BDF0: 63 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 c"..>>>wf on..>w
02BE00: A3 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 £&due&.&a0&'..>e
02BE10: 6C 0D 0A 3E 73 76 20 64 75 65 3D 30 2D 64 75 65 l..>sv due=0-due
02BE20: 0D 0A 3E 73 76 20 73 3D 27 43 52 45 44 49 54 09 ..>sv s='CREDIT.
02BE30: 26 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 &number&.&date&.
02BE40: A3 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 £&due&.&a0&'..>e
02BE50: 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 76 20 i..>id cpm..>sv
02BE60: 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 s=s+"
02BE70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BE80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BEA0: 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 2B "..>sv s=s+
02BEB0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
02BEC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BEF0: 20 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A 31 32 "..>sv s=s[1:12
02BF00: 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 27 26 73 6]..>ei..>wm '&s
02BF10: 26 27 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 &'..>wc..>ei..>w
02BF20: 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 73 f om.x..>if x="s
02BF30: 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C "..>wm "ps &fn&|
02BF40: 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 13|; Press a key
02BF50: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 to continue:|13
02BF60: 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F |pause|13|load o
02BF70: 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C menu|13|ps"..>el
02BF80: 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 33 ..>wm "p &fn&|13
02BF90: 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 |load omenu|13|p
02BFA0: 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 s"..>ei..>wc..>c
02BFB0: 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 f..>ex exec om.x
02BFC0: 0D 0A 3E 73 74 0D 0A 1A 3E 0D 0A 3E 3E 3E 0D 0A ..>st...>..>>>..
02BFD0: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
02BFE0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
02BFF0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 00 02 09 4E E5 25 00 C1 02 00 00 00 02 %.....N.%.......
02C020: 25 00 C6 02 00 00 00 02 25 00 C2 02 00 00 00 02 %.......%.......
02C030: 25 00 C7 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C040: 25 00 C8 02 00 00 00 02 25 00 C4 02 00 00 00 02 %.......%.......
02C050: 25 00 C9 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 6D 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 6D m Terms: This am
02C110: 6F 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 72 ount has been cr
02C120: 65 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 61 edited to your a
02C130: 63 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F 66 ccount..>>>wf of
02C140: 66 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E f..>ei..>ei..>>>
02C150: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 20 wf on..>wm E. &
02C160: 4F 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 O.E...>if prcona
02C170: 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 20 me="y"..>wm VAT
02C180: 72 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D reg. no. &vatnum
02C190: 26 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 66 &..>ei..>>>wf of
02C1A0: 66 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D 69 f..>wc..>sv fn=i
02C1B0: 6E 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D 2B nvpath+title[1]+
02C1C0: 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E number+".poi"..>
02C1D0: 61 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 63 av "Print invoic
02C1E0: 65 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 e to printer or
02C1F0: 73 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 screen (P/s)? "
02C200: 78 20 31 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 65 x 1..>id cpm..>e
02C210: 78 20 72 65 6E 20 26 66 6E 26 3D 26 69 6E 76 70 x ren &fn&=&invp
02C220: 61 74 68 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C 0D ath&omtemp..>el.
02C230: 0A 3E 73 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 .>sv renfn=title
02C240: 5B 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 [1]+number+".poi
02C250: 22 0D 0A 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 "..>ex ren &invp
02C260: 61 74 68 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 ath&omtemp &renf
02C270: 6E 26 0D 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D n&..>ei..>wf "om
02C280: 73 75 6D 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E summar.inf" a..>
02C290: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02C2A0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02C2B0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02C2C0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
02C2D0: 2D 2D 2D 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 ----R..>if title
02C2E0: 5B 31 5D 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 [1]="i"..>sv s='
02C2F0: 49 4E 56 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 INVOICE.&number&
02C300: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 invgen.inf..>id
02C310: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 cpm..>ex ren omi
02C320: 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D 70 nvgen.inf omtemp
02C330: 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 72 .inf..>el..>ex r
02C340: 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F 6D en omtemp.inf om
02C350: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D invgen.inf..>ei.
02C360: 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 .>df omenu..>sk
02C370: 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 0=0..>ei ; opt="
02C380: 65 22 0D 0A 1A 4E 55 20 20 20 24 24 24 FF 00 FF e"...NU $$$...
02C390: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
02C3A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
02C3B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
02C3C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
02C3D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
02C3E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
02C3F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
02C400: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
02C410: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
02C420: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
02C430: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
02C440: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
02C450: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
02C460: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
02C470: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
02C480: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
02C490: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
02C4A0: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
02C4B0: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
02C4C0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
02C4D0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
02C4E0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
02C4F0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
02C500: 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 .&date&.£&due&.&
02C510: 61 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 a0&'..>el..>sv d
02C520: 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D ue=0-due..>sv s=
02C530: 27 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 'CREDIT.&number&
02C540: 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 .&date&.£&due&.&
02C550: 61 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 a0&'..>ei..>id c
02C560: 70 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 pm..>sv s=s+"
02C570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C5A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A "..
02C5B0: 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 >sv s=s+"
02C5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C5D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C5E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C5F0: 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 "..>sv
02C600: 73 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D s=s[1:126]..>ei.
02C610: 0A 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D .>wm '&s&'..>wc.
02C620: 0A 3E 69 64 20 6E 75 6D 66 6C 61 67 0D 0A 3E 73 .>id numflag..>s
02C630: 76 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 72 2D v number=number-
02C640: 31 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 72 5B 1 number=number[
02C650: 77 31 5D 0D 0A 3E 77 66 20 6F 6D 69 6E 76 67 65 w1]..>wf ominvge
02C660: 6E 2E 6E 75 6D 0D 0A 3E 77 6D 20 26 6E 75 6D 62 n.num..>wm &numb
02C670: 65 72 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E er&..>wc..>ei..>
02C680: 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 wf om.x..>if x="
02C690: 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 s"..>wm "ps &fn&
02C6A0: 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 |13|; Press a ke
02C6B0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 y to continue:|1
02C6C0: 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 3|pause|13|load
02C6D0: 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 omenu|13|ps"..>e
02C6E0: 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 l..>wm "p &fn&|1
02C6F0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E ps"..>ei..>wc..>
02C910: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E cf..>ex exec om.
02C920: 78 0D 0A 3E 73 74 0D 0A 1A 3E 3E 0D 0A 3E 3E 3E x..>st...>>..>>>
02C930: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
02C940: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
02C950: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
02C960: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
02C970: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
02C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CA90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CAF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 26 2C name&,&exorinc&,
02CD10: 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 6B 66 &showdisc&,&askf
02CD20: 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 73 65 n&,&askcar&,&use
02CD30: 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 26 27 prod&,&defdisc&'
02CD40: 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 26 2C ..>wm '&caline&,
02CD50: 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 26 2C &aline&,&tline&,
02CD60: 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 6D 20 &totline&'..>wm
02CD70: 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C 26 72 '&side&,&rc1&,&r
02CD80: 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 26 2C c2&,&rc3&,&rc4&,
02CD90: 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 31 3D &rc5&'..>sv rc1=
02CDA0: 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 31 20 rc1-1 rc2=rc2-1
02CDB0: 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 72 63 rc3=rc3-1 rc4=rc
02CDC0: 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D 0A 3E 4-1 rc5=rc5-1..>
02CDD0: 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 63 32 sv r2c1=rc1 r2c2
02CDE0: 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 33 2B =rc2+3 r2c3=rc3+
02CDF0: 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 32 63 2 r2c4=rc4-2 r2c
02CE00: 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 63 31 5=rc5-3..>sv rc1
02CE10: 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 63 32 =rc1[w1] rc2=rc2
02CE20: 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 31 5D [w1] rc3=rc3[w1]
02CE30: 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 63 35 rc4=rc4[w1] rc5
02CE40: 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 20 72 =rc5[w1] ..>sv r
02CE50: 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 65 73 uler1=">"+dashes
02CE60: 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 73 68 [1:&n&]+"!"+dash
02CE70: 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 61 73 es[1:10]+"L"+das
02CE80: 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D 0A 3E hes[1:17]+"R"..>
02CE90: 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B 64 61 sv ruler2=">"+da
02CEA0: 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B 22 21 shes[1:&rc1&]+"!
02CEB0: 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 32 26 "+dashes[1:&rc2&
02CEC0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 ]+"!"+dashes[1:&
02CED0: 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 20 72 rc3&]+"!"..>sv r
02CEE0: 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 61 73 uler2=ruler2+das
02CEF0: 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 21 22 hes[1:&rc4&]+"!"
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 26 5D +dashes[1:&rc5&]
02D110: 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 3D 72 +"R"..>sv r3c3=r
02D120: 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C 65 72 2c3-2..>sv ruler
02D130: 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 3=">"+dashes[1:&
02D140: 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 68 65 r2c1&]+"!"+dashe
02D150: 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D 2D 2E s[1:&r2c2&]+"--.
02D160: 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 63 33 "+dashes[1:&r3c3
02D170: 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 6C 65 &]+"."..>sv rule
02D180: 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 65 73 r3=ruler3+dashes
02D190: 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 2B 64 [1:&r2c4&]+"."+d
02D1A0: 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 5D 2B ashes[1:&r2c5&]+
02D1B0: 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 34 3D "R"..>sv ruler4=
02D1C0: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
02D1D0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 31 ]+"!"+dashes[1:1
02D1E0: 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B 31 3A 4]+"L"+dashes[1:
02D1F0: 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 20 6E 7]+".--R"..>sv n
02D200: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
02D210: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
02D220: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
02D230: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
02D240: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
02D250: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
02D260: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
02D270: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
02D280: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
02D290: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
02D2A0: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
02D2B0: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
02D2C0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
02D2D0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
02D2E0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
02D2F0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 00 02 09 4E E5 26 00 C1 02 00 00 00 02 &.....N.&.......
02D320: 26 00 C6 02 00 00 00 02 26 00 C2 02 00 00 00 02 &.......&.......
02D330: 26 00 C7 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D340: 26 00 C8 02 00 00 00 02 26 00 C4 02 00 00 00 02 &.......&.......
02D350: 26 00 C9 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 00 02 09 4E E5 27 00 C1 02 00 00 00 02 '.....N.'.......
02E620: 27 00 C6 02 00 00 00 02 27 00 C2 02 00 00 00 02 '.......'.......
02E630: 27 00 C7 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E640: 27 00 C8 02 00 00 00 02 27 00 C4 02 00 00 00 02 '.......'.......
02E650: 27 00 C9 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02F910: 28 00 00 00 02 01 4E E5 27 00 C7 02 20 20 00 02 (.....N.'... ..
02F920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02FA00: 78 00 19 CB 3C CB 1D E5 DD 66 73 DD 6E 72 E5 21 x...<....fs.nr.!
02FA10: 0C 00 E5 21 38 00 E5 CD 96 70 21 08 00 39 F9 C3 ...!8....p!..9..
02FA20: 93 6F DD E5 E1 11 78 00 19 CB 3C CB 1D E5 DD 66 .o....x...<....f
02FA30: 71 DD 6E 70 E5 21 0E 00 E5 21 38 00 E5 CD 96 70 q.np.!...!8....p
02FA40: 21 08 00 39 F9 C3 93 6F DD 66 79 DD 6E 78 11 01 !..9...o.fy.nx..
02FA50: 00 A7 ED 52 C2 5D 6F 21 05 00 C3 78 6F DD 66 79 ...R.]o!...xo.fy
02FA60: DD 6E 78 11 06 00 A7 ED 52 C2 72 6F 21 02 00 C3 .nx.....R.ro!...
02FA70: 78 6F DD 66 79 DD 6E 78 DD 74 79 DD 75 78 C3 93 xo.fy.nx.ty.ux..
02FA80: 6F 05 00 22 6F 04 00 FC 6E 03 00 9F 6E 02 00 45 o.."o...n...n..E
02FA90: 6E 48 6F DD 7E 79 DD B6 78 C2 37 6E 2A B5 6F E5 nHo.~y..x.7n*.o.
02FAA0: DD 66 73 DD 6E 72 29 6E 26 00 7C EE 80 67 22 B5 .fs.nr)n&.|..g".
02FAB0: 6F 21 00 00 11 00 00 EB 42 4B 7A EE 80 57 ED 52 o!......BKz..W.R
02FAC0: DA F0 6F C5 DD 66 73 DD 6E 72 29 DD 56 6D DD 5E ..o..fs.nr).Vm.^
02FAD0: 6C 19 6E 26 00 E5 21 0A 00 DD 56 6D DD 5E 6C 19 l.n&..!...Vm.^l.
02FAE0: E5 DD 66 77 DD 6E 76 29 D1 19 D1 73 E1 23 18 C4 ..fw.nv)...s.#..
02FAF0: E1 22 B5 6F DD 66 73 DD 6E 72 29 6E 26 00 11 0B .".o.fs.nr)n&...
02FB00: 00 19 DD 74 75 DD 75 74 2A 21 70 E5 DD 66 71 DC ...tu.ut*!p..fq.
02FB10: 6E 70 29 6E 26 00 7C EE 80 67 22 21 70 21 00 00 np)n&.|..g"!p!..
02FB20: 11 00 00 EB 4A 0B 78 E6 80 57 ED 12 48 1F 30 C5 ....J.x..W..H.0.
02FB30: DD 26 71 DD 26 70 28 C9 00 6D C9 1E 68 18 6E 20 .&q.&p(..m..h.n
02FB40: 08 E8 9D 06 70 5D 6E 35 DD 10 8A 22 09 36 09 64 ....p]n5...".6.d
02FB50: 92 04 04 21 0E 91 44 74 57 44 41 A9 93 08 82 1A ...!..DtWDA.....
02FB60: A4 44 47 1A A0 51 48 80 E3 21 89 82 2A C6 CE 04 .DG..QH..!..*...
02FB70: FC 08 79 6A 90 C0 18 01 A2 49 42 28 90 00 86 01 ..yj.....IB(....
02FB80: 01 61 0C 02 21 19 04 A5 0C 79 18 50 E2 59 15 25 .a..!....y.P.Y.%
02FB90: 54 90 49 06 C0 C8 22 80 04 82 98 CD 05 72 6D 00 T.I..."......rm.
02FBA0: 20 A3 08 81 8C 21 20 22 58 00 24 35 67 86 82 4A £...! "X.$5g..J
02FBB0: 09 2E 40 18 18 43 E8 49 E0 1A 00 80 08 5F 21 21 ..@..C.I....._!!
02FBC0: 28 48 46 C3 A4 5B 8E 08 A1 07 2A 01 14 60 A4 29 (HF..[....*..`.)
02FBD0: 13 B4 09 1A 77 3E 32 C1 38 77 13 A9 A0 06 A4 20 ....w>2.8w.....
02FBE0: 08 D9 01 10 00 98 81 20 4E F3 04 44 04 01 E1 98 ....... N..D....
02FBF0: 18 60 D5 C4 00 AE 04 C9 49 00 84 1C 09 87 4C 83 .`......I.....L.
RESULT OF SEARCH :
PRO=199 CHEA=0 COD=92 MUSI=12 COP=6 GRA=12 WRIT=9 198=41 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File CPDRead v3.24) NPRODUCTSINFM MINIT t FMOPT
Q M MUS OMOPTI MSTYPE1 MSUMMARINFFMADD BAKMINVGENNUM!MSTYPE2
ADDRESS SEL MSTAGEN /DQROMOPTS $OMOPTQ &OMOPTJ 2x,x rv ruler1,rul
er2,ruler3,ruler4,ruler5 rv coname,coaddr1,coaddr2,coaddr3,coaddr4,coaddr5 c
f df ominvgen.num rv number,title dm "INVGEN v2.00 (c) Arnor 1988 (&title&)"
dm " " id filedate cf df ominvgen.dat rv sysdate ei sv vatcf01 sv v
atcf11+vat1 VAT conversion factors sv vatcf21+vat2 sv vatcf31+vat3 sv vatcf41
+vat4 sv vatcf51+vat5 read product info into desc1,desc2,...,price1,price2,
...code1,code2,... sv maxn0 if useprod"y"MSTYPE4 467M MENU BAKfQ
#'-.LETTER PMM"MSTYPE3 3MINVGENDATM X DDRESS NEWMSTYPE5 8OMINVGENINF
9MSTYPE6 CEFMOPTL MADD XYFO$END$ FM$PFI$ %MSTYPE7 GHMload ome
nu y639ps ce pf invgen.num . Protext House Wainman Road PETERBOROUGH PE2
0BU een titles and totals sv DE !coname! !coaddr1! !coaddr2! !coaddr3! !c
oaddr4! !coaddr5! ex exec omeditr st -------!-------!-------!-------!ysver
3.10 sv filedate1 ei ei df ominvgen.inf rv addrfile,invdrv,prodfile,vatreg
rv vat1,vat2,vat3,vat4,vat5,infolines,descwidth rv discA,discB,discC,discD,dis
cE rv prconame,exorincvat,showdisc,askfn,askcar,useprod,defdisc rv caline,aliM
ENU 5OPSTUVWMENU fQZabcdeMEDIT IJKLM ONENM X HADDRESS
,USIC MINVGEN VE015ABUSIC NEWMOPTA gMOPTF hMOPTP iMOPTU
jFSORT COMlklmnopqrstuvwxMSTYPE7 yDDRESS BAKQ L - List invoice summar
y file dm " E - Edit configuration settings dm "
F - Filer menu dm " Q - Quit dm " " av "
Enter option letter " opt 1 if opt"" sv opt" " ei if op
t in "qfcsrej" sv oq"clear13y639764766" sv of"load fmenu13ps" sv oi"load omin
voic1316pf ominvgen.num" sv oc"load omcredit1316pf ominvgen.num" sv on"load om
setnum1316pf ominvgen.num" sv OMINIT BAKdeMTEMP BAKCzMUSIC PFIMTEMP $$$MUS
IC SELM BAKLADDRESS PFI(MPRINT )*+MINVGENBAKMFIND MINIT rMMERG
E GABEL1 PMM ABEL2 PMMQ ABEL3 PMMHETTER BAKgend end end end end end
end end end end end end end end end end end end end end end end
end end end end end end end end end end end end end end end end
end end end end end end end end end end end end end" sv cpm1 ei
df ominvgen.inf rv addrfile,invdrv,prodfile,vatreg rv vat1,vat2,vat3,vat4,va
t5,infolines,descwidth rv discA,discB,discC,discD,discE rv prconame,exorinc,sh
owdisc,askfn,askcar,useprod,defdisc rv caline,aline,tline,totline rv sProtext
Office, 34.95, PO, 1, 1 Protext Filer, 24.95, PF, 1, 1 Rombo rom box, 34.95, R
B, 1, 2 Maxam manual, 5.00, " ", 0, 1 MUSIC SELMSUMMARINF9ADDRESS PFI(MPRINT
)*+M X HMFIND MINIT rMMERGE GABEL1 PMM ABEL2 PMMQ ABEL3
PMMHETTER PMMg N,ruler2,ruler3,ruler4,ruler5 rv coname,coaddr1,coaddr2,coaddr
3,coaddr4,coaddr5 wf &invdrv&omtemp zm tm &caline& sm &side& cf df ominv
gen.num rv number,title dm "INVGEN v1.00 (c) Arnor 1988 (&title&)" dm " "
id filedate cf df ominvgen.dat rv sysdate ei sv vatcf01 sv vatcf11+vat1
VAT conversion factors sv vatcf21+vat2 sv vatcf31+vat3 sv vatcf41+vat4 sv v
atcf51+vat5 sv copypathinvdrv+"" read product info into desc1,desc2,...,pri
c df omenu any data file nc 255 sv sysversysve
r if sysver"" sv cpm1 filedate1 ei iu cpm if sysver 3.07 sv filedate1 ei
if sysver3.10 sv filedate1 ei ei cs " " dm " " dm " *** P
R O T E X T O F F I C E M E N U *** (v2.01) dm " " dm "
I - Print an Invoice dm " C - Print a Credit note
dm " S15 March 1988 rnor Ltd Protext House Wainman Ro
ad Peterborough PE2 0BU -----------------------------------------------v cp
m1 filedate1 ei iu cpm if sysver 3.06 sv filedate1 ei if sysver3.10 sv f
iledate1 ei ei df ominvgen.inf rv addrfile,invdrv,prodfile,vatreg,phone rv
vat1,vat2,vat3,vat4,vat5,infolines,descwidth rv discA,discB,disc,discD,discE r
v prconam0p09minvgeninfhBFB - Print a Statement dm " N -
Set invoice Number id filedate dm " D - Set current Date
ei dm " R - Reprint document dm "
L - List invoice summary file dm " E - Edit configurati
on settings dm " F - Filer menu dm "
Q - Quit dm " " av " Enter option letter " opt 1 if op
t"" sv opt" " ei if opt in "qsj" -R" Arnor Ltd Protext House Wainman Road
Peterborough PE2 0BU 0","","","" y,i,n,y,y,y,0 4,12,23,45 0,14,18,15,17
,9 "-------------------------------------------!----------L-----------------R
" "-------------!-----------------!--------------!----------------!--------R"
"-------------!----------------------.--------------.--------------.-----R" "--
-----------------------------------------!--------------L-------.--R" "--------
---------------------------------------------------------------c1!,!rc2!,!rc3!,!
rc4!,!rc5!' wm '"!ruler1!"' wm '"!ruler2!"' wm '"!ruler3!"' wm '"!ruler4!"'
wm '"!ruler5!"' wm '!coname!' wm '!coaddr1!' wm '!coaddr2!' wm '!coaddr3!'
wm '!coaddr4!' wm '!coaddr5!' wc cf ex exec om ion information" sv oz"
Z - Sort records" sv od"D - Change current datafile" sv om"M - Mail merge" ei
if fv1"v" sv fv"Variable record length, max" el sv fv"Fixed record length
of" ei dm " Current datafile &df&. &fv& &rlen& f initialise INVGEN.INF
to default values use this if INVGEN.INF is deleted in error before using menu
'E' option sv addrfile"ADDRESS" invdrv"A" prodfile"products.inf" vatreg"y" p
hone"y" sv infolines22 descwidth20 vatnum"" sv prconame"y" exorinc"i" showdisc
"y" askfn"y" askcar"y" useprod"y" defdisc"0" sv caline4 aline12 tline23 totline
45 sv side3 rc114 rc218 rc315 rc417 rc59 sv ruler1"" ruler2"" ruler3"" ruler4"
" ruler5"" sv coname"" coaddr1"" coaddrp if phone"y" rv a0,x,a1,a2,a3,a4,a5,a
6,a7,x el rv a0,a1,a2,a3,a4,a5,a6,a7,x ei if n in a0 dm " " dm Found '&a0&
' av "Is this correct (Y/n) " d 1 ei if a0"end" dm " " dm "Account not foun
d" sv d"y" ei un d"n" cf ei id cpm cf df ominvgen.inf ei if a0"end"
if not searching datafile or not found sv a3"" a4"" a5"" a6"" a7"" dm " " dm
Enter name and address, or press RETURN to return to menu dm " " av "Name
" a0 if a0"" cf e2"" coaddr3"" coaddr4"" coaddr5"" sv vat10.15 vat20 vat30
vat40 vat50 sv discA"25 10 0" discB"15 10 0" discC"0 0 0" discD"0 0 0" discE"0
0 0" df omenu wf ominvgen.inf wm '!addrfile!,!invdrv!,!prodfile!,!vatreg!,!p
hone!' wm '!vat1!,!vat2!,!vat3!,!vat4!,!vat5!,!infolines!,!descwidth!' wm '"!d
iscA!","!discB!","!discC!","!discD!","!discE!","!vatnum!"' wm '!prconame!,!exor
inc!,!showdisc!,!askfn!,!askcar!,!useprod!,!defdisc!' wm '!caline!,!aline!,!tli
ne!,!totline!' wm '!side!,!r Nclear13y639764766 cs " " nc
255 iu df sv sysversysver if sysver"" sv cpm"1" ei in fm$pfi$ sv oc"C - C
ount records" sv os"S - Select records" sv ol"L - List current file informatio
n" sv oz"Z - Sort records" sv od"D - Change current datafile" sv om"M - Mail
merge" ei if fv1"v" sv fv"Variable record length, max" el sv fv"Fixed reco
rd length of" ei dm " Current datafile &df&. &fv& &rlen& fi sk 00 ei
id df iu df cs " " dm "Option S.1 - Select records (single simple conditio
n)" dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv fli
st"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrlen sv nn+1 mn
+1 nnw1 mmw1 sv f&n&"" f&m&"" dm "Field names " sv n0 rp sv nn+1 nnw1 sv
sn&n& dm f&n& &s& un nrlen dm " " dm "When entering conditions below, ple
ase remember to enclorp rv a0,a1,a2,a3,a4,a5,a6,a7,x if n in a0 dm " " dm Fo
und '&a0&' av "Is this correct (Y/n) " d 1 ei if a0"end" dm " " dm "Account
not found" sv d"y" ei un d"n" cf ei if a0"end" if not searching datafi
le or not found sv a3"" a4"" a5"" a6"" a7"" dm " " dm Enter name and address,
or press RETURN to return to menu dm " " av "Name " a0 if a0"" wc sv
numbernumber-1 numbernumberw1 wf ominvgen.num wm &number& wc cf ex exec om
sse strings in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'" + '"' + "0123
456789." sv n"1" rp av "Enter condition &n& " s sv err0 ssw1 sv c&n&s if c
1"" ex exec fm st ei if s1"f" if s2 notin "*123456789" sv err1 ei el if
s1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin "*123456789"
sv err1 ei el if s1 notin ok sv err1 ei ei if err0 sv nn+1 nnw1 el
dm "Invalid input" ei un n1 m EL1 PMM zu" sv fnewfile ei if mus"s" sv
fselfile ei dn dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru
" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrle
n dm "Current datafile &df& sv fdfw1 sv newfilef+".new" sv selfilef+".sel"
sv pfifilef+".pfi" if fv"f" sv y"F/v" el sv y"f/V" ei dm " " rp av "
Fixed or variable sv ff"" if "f*" in c16 sv n5 rp sv nn+1 nnw1 if c1&n&"f
*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" sv n1 rp
sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen ei f* in c1 dm " " dm "Searching ..
." sv nn0 df fm.mus rv mus cf if mus"m" df &df& fo$end$ ei if mus"u" df
&newfile& fo$end$ ei if mus"s" df &selfile& fo$end$ ei wf &selfile& ei
iu df if fv"f" fixed rp sv nn+1 nnw if x"yy" dm "Discount type numbers
" sv n0 rp sv nn+1 nnw1 mn+1 mmw1 sv text n + " " + discAw&n& + " " + d
iscBw&n& + " " sv text text + discCw&n& + " " + discDw&n& + " " + discEw&n& d
m &text& un discAw&m&"" sv custdiscdefdisc if useprod"y" av "Discount type (
number, 0full price) &defdisc& ",x if x"" sv custdiscx ei ei ei sv ca
r"" if askcar"y" av "Carriage ",car ei if car"" sv car0 ei sv foot
noteend end end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end end e
nd end end wm &s& if s"" sv nrlen ei un nrlen ei f/v sv nnnn+1 el
f1end sv nnnnw1 dm " " wt "&nn& records found. Press a key to continue ... w
c cf ex exec fm st ei sk 00 ei id df iu df cs " " dm "Option S.5id d
f &flist& if f1"end" &ff& if &c1& el sk00 ei zm npoff sv n0 if fv"f"
fixed rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv nn+1 nnw1
sv sf&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen el
sv s"$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nnnnw1 dm
" " wt "&nn& records found. Press a key to continue ... wc cf let exec have h
andle 0 ex exec fm st e Ndiscountdiscount/100 discount1-discount ei sv upr
icepricen*discount sv pricequantn*uprice ei el no product file av "Product
code " coden if coden"" sv nmaxn ei if coden"" av "Description " descn a
v "Quantity " quantn if quantn"" sv quantn" " ei if quantn1 notin "01234
56789" dm "Not a number. Please re-enter" sv coden"" ei ei if coden"" av "
Unit price £" uprice if uprice"" sv uprice" " ei if uprice1 notin ".012345
6789" dm "l fminit13y63916ps Pload fmenu ps 244769 12a st marys street fa
rcet pborE ntnextdjnz negtypeloop IF debug jr yyy m.yyy text "Sortfields
& types"," "+128 yyy ld hl,m.yyycall col1text ld b,MAXKEYS ld de,sortfield
yyylooppush bc push de call col1 ld a,(de) ld l,ald h,0 or ajr z,yyynext c
all decoutleft call space ld a,(de) bit 7,ajr nz,isnega and 15 ld hl,sortty
pecall addhla ld l,(hl)ld h,0call decoutleftcalzm cs npoff len must be 128n
for CP/M ---------!----------------------------.-----!-------------------------
----R ad Peterborough PE2 0BU sd STATEMENT Date 15 Mar
ch 1988 -------------!-----------------!--------------!--------------
--!--------R DATEINVOICE NO. DEBIT CREDITBALANCE -------------!------------
----------.--------------.--------------.-----R
------------------------ &sc&!coa5! ei sv
nal-cal-6 rp &sc& svnn-1 unn0 &sc&!a0! &sc&!a1! &sc&!a2! &sc&!a3!&t& &s
c&!a4! &sc&!a5!Date &h& &sc&!a6! &sc&!a7! svntl-al-8 rp &sc& svnn-1
unn0 wfon &r2& wfoff &sc&DATEINVOICE NO. DEBIT CREDITBALANCE wfon &r3
& wfoff &sc& svbinfols dm"Enter details (RETURN to end) dm" rp av"Openi
ng balance (- for credit) £" tot if tot"" sv tot0.00 ei un tot1 in "-0123456
789" sv tottot+0 if tot0 &sc&Carried fw ",date if date"" sv datesysdate ei
av "Order reference ",ref Display discount type sv xuseprod+showdisc cu
stdisc0 if x"yy" dm "Discount type numbers " sv n0 rp sv nn+1 nnw1 mn+1 mmw
1 sv text n + " " + discAw&n& + " " + discBw&n& + " " sv text text + discCw
&n& + " " + discDw&n& + " " + discEw&n& dm &text& un discAw&m&"" ei sv custd
iscdefdisc if useprod"y" rp av "Discount type (letter, 0full price) &defdisc&
",x 1 ps Ai5.poi13 Press a key to continue13pause13load omenu13ps df omenu
any data file nc 255 sv sysverashes1&r2c5&+"R" sv ruler4""+dashes1&n&+"!"+d
ashes114+"L"+dashes17+".--R" sv niwidth-2 sv ruler5""+dashes1&n&+"R" wm '"&ru
ler1&"' wm '"&ruler2&"' wm '"&ruler3&"' wm '"&ruler4&"' wm '"&ruler5&"' wm
'!coname!' wm '!coaddr1!' wm '!coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '
!coaddr5!' wc cf ex era ominvgen.inf id cpm ex ren omicf ex exec omopt&opt
& st ei opt in "qsj" OPTION F if opt"f" cf ex exec fm st ei O
PTION L if opt"l" cf ex exec omoptl st ei OPTION D if opt"d" cs
" " cf df ominvgen.dat rv date av "Enter current date &date& " x if x"" s
v datex id cpm cf df omenu ei wf ominvgen.dat wm &date& wc ei x cf df
omenu sk 00 rvcal,al,tl,totl rvside,x,x,x,x,x rvr1,r2,r3,x,r5 rvcon,coa1,coa
2,coa3,coa4,coa5 av "Statement to printer or file (p/F) " x 1 if x"p" sv ic
"p" sc"" el rp av "Name of file " name 8 un name"" sv name"&invpath&&name&.
pos" sv ic"pf &name&" sc"wm " wf &name& ei wfon zm tm&cal& sm&side& wfof
f cf dfomstagen.inf rvic ific2"f" wfon ffon wfoff ei svt"STATEMENT" sv
mn0 svd"n" a0"end" av"Search datafile (y/N) " x 1 ifx"y" ei opt"d" O
PTION N if opt"n" cs " " rp av "Enter next invoice number " num if num""
sv num" " ei un num1 in "0123456789" sv numnumw1 id cpm cf df ominvgen.i
nf ei wf ominvgen.num wm &num& wc sk 00 ei opt"n" OPTION I if opt
in "ic" cs " " cf df ominvgen.num rv num if opt"i" sv title"INVOICE" el
sv title"CREDIT NOTE" ei wf ominvgen.num w Nps omsummar.inf Press a key
to continue ... pause ps df omenu any data file nc 255 sv sysver !
coname! !coaddr1! !coaddr2! !coaddr3! !coaddr4! !coaddr5! ex exec omeditr
st -------!-------!-------!-------!ysver3.10 sv filedate1 ei ei df ominv
gen.inf rv addrfile,invdrv,prodfile,vatreg rv vat1,vat2,vat3,vat4,vat5,infolin
es,descwidth rv discA,discB,discC,discD,discE rv prconame,exorincvat,showdisc,
askfn,askcar,useprod,defdisc rv caline,alisv c2"01" ei sv ff"" if "f*" in c1
6 sv n5 rp sv nn+1 nnw1 if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0
ei un n0 sv ff"sv f0f1" ei f* in c1 if "f*" in c26 sv n5 rp sv nn+1 n
nw1 if c2&n&"f*" sv nn-1 nnw1 sv c2c21&n&+"f0" sv n0 ei un n0 sv ff"sv f0
f1" ei f* in c2 if ff"" sv n1 rp sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen
ei dm " " dm "Searching ..." sv nn0 ,ruler2,ruler3,ruler4,ruler5 rv cona
me,coaddr1,coaddr2,coaddr3,coaddr4,coaddr5 wf &invdrv&omtemp zm tm &caline&
sm &side& cf df ominvgen.num rv number,title dm "INVGEN v1.00 (c) Arnor 19
88 (&title&)" dm " " id filedate cf df ominvgen.dat rv sysdate ei sv
vatcf01 sv vatcf11+vat1 VAT conversion factors sv vatcf21+vat2 sv vatcf31+va
t3 sv vatcf41+vat4 sv vatcf51+vat5 sv copypathinvdrv+"" read product info
into desc1,desc2,...,pric df fm.mus rv mus cf if mus"m" df &df& fo$end$ ei
if mus"u" df &newfile& fo$end$ ei if mus"s" df &selfile& fo$end$ ei wf &
selfile& ei if undefined df &c2& el sk00 ei ei zm npoff sv n0 if fv"
f" fixed n&"f*" sv nn-1 nnw1 sv c3c31&n&+"f0" sv n0 ei un n0 sv ff"sv f0
f1" ei f* in c3 if ff"" sv n1 rp sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen
ei dm " " dm "Searching ..." sv nn0 ei iu df id df &flist& if f1"end"
&ff& if &c1& el if &c2& el sk00 ei ei zm npoff sv n0 if fv"f" fixe
d rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv nn+1 nnw1 sv s
f&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen el sv s"
$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nnnnw1 dm " "
wt "&nn& records found. Press a key to continue ... wc cf ex exec fm st ei
s real file in real file (sic) el wf &newfile& a wc ei dm " " dm "Writ
ing files ..." id cpm cf df fm$pfi$ handle 0 ei ei iu pfifile Now write
them out wf &pfifile& handle 1 wm 'sv df"&df&" wm 'sv newfile"&newfile&
wm 'sv selfile"&selfile&" wm 'sv fv"&fv&" wm 'sv rlen"&rlen&" sv n0 rp sv
nn+1 nnw1 sv sn&n& wm 'sv n&n&"&s&" un nrlen wm 'sv fsortopts"&fsortopts&"
wm 'sv maxw"&maxw&" wm 'sv lastblank"&lastblank&" k 00 ei id df iu df cs
" " dm "Option S.2 - Select records (cond1 OR cond2)" dm " " in fm$pfi$ sv
fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn
+1 nnw1 sv flistflist+" f&n&" un nrlen sv nn+1 mn+1 nnw1 mmw1 sv f&n&"" f&m&
"" dm "Field names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrle
n dm " " dm "When entering conditions below, please remember to enclose stri
ngs in end end end end end end end end end end end end end end end
end end end end end end end end end end end end end end end end
end end end end end end end end end end end end end end end end
end end end end date1 ei ei cs " " dm " " dm " *** P R
O T E X T O F F I C E M E N U *** dm " " dm " I
- Print an Invoice dm " C - Print a Credit note dm "
S - Print quotes" dm 'e.g. "London" in F4 dm " " sv ok"'"
+ '"' + "0123456789." sv n"1" rp av "Enter condition &n& " s sv err0 ssw1 s
v c&n&s if c1"" ex exec fm st ei if s1"f" if s2 notin "*123456789" sv err
1 ei el if s1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin
"*123456789" sv err1 ei el if s1 notin ok sv err1 ei ei if err0 sv n
n+1 nnw1 el dm "Invalid input" ei un n2 if c2"" N Dire Straits Makin
g Movies CD 1980 Dvorak Symphony no. 9 'From the New World' CD 1987
London S.O. Barry Tuckwell Eagles Hotel California CD 1976 Electr
ic Light Orchestra Out of the Blue Record 1976 Elgar Enigma Variation
s CD 1982 BBC S.O. Leonard Bernstein Genesis Foxtrot Record 1974
Johann Strauss An der schnen blauen Donau CD 1981 Berliner Philharmoniker
Herbert von Karajan Mahler Symphony no. 1 CD 1982 Chicago S.O. Claudio
Abbado Beatles Abbey Road CD 1970 Beethoven Symphony no. 3 'Eroica'
Record 1977 Symphonica of London Wyn Morris Beethoven Symphony no. 9 CD
1984 Berliner Philharmoniker with the Wiener Singverein Herbert von Karajan
Bruce Springsteen Born in the U.S.A. CD 1984 Dire Straits Alchemy
Record 1984 Dire Straits Brothers in Arms CD 1985 Dire Straits
Communiqu CD 1979 Dire Straits Dire Straits CD 1978 Dire St
raits Love Over Gold CD 1982 id df &flist& if f1"end" &ff& if &c1&
el if &c2& el if &c3& el sk00 ei ei ei zm npoff sv n0 if fv"f" fixe
d rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv nn+1 nnw1 sv s
f&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen el sv s"
$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nnnnw1 dm " "
wt "&nn& records found. Press a key to continue ... wc cf ex e Dire Straits
Making Movies CD 1980 Dvorak Symphony no. 9 'From the New World' CD
1987 London S.O. Barry Tuckwell Eagles Hotel California CD 1976
Electric Light Orchestra Out of the Blue Record 1976 Elgar Enigma Var
iations CD 1982 BBC S.O. Leonard Bernstein Genesis Foxtrot Record 1974
Johann Strauss An der schnen blauen Donau CD 1981 Berliner Philharmo
niker Herbert von Karajan Mahler Symphony no. 1 CD 1982 Chicago S.O. Cl
audio Abbado xec fm st ei sk 00 ei id df iu df cs " " dm "Option S.3 -
Select records (cond1 OR cond2 or cond3)" dm " " in fm$pfi$ sv fvfv1 rlenrle
nw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv f
listflist+" f&n&" un nrlen sv nn+1 mn+1 nnw1 mmw1 sv f&n&"" f&m&"" dm "Fie
ld names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm "When
entering conditions below, please remember to---!-------!-------!-------!------
-!--------------------------------------------------------------------------R c
f df ominvgen.inf rv addrfile,invpath,prodfile,vatreg,phone rv vat1,vat2,vat3
,vat4,vat5,infolines,descwidth rv discA,discB,discC,discD,discE,vatnum rv prco
name,exorinc,showdisc,askfn,askcar,useprod,defdisc rv caline,aline,tline,totlin
e rv side,rc1,rc2,rc3,rc4,rc5 rv ruler1,ruler2,ruler3,ruler4,ruler5 rv coname
,coaddr1,coaddr2,coaddr3,coaddr4,coaddr5 cs " " dm PROTEXT OFFIm &num&,&title&
wc cf ex exec omopti st ei opt in "ic" OPTION R if opt"r" cs " "
cf df ominvgen.inf rv addrdrv,invpath dm " " rp av "Invoice, credit note,
or statement (I/c/s) " dtype 1 if dtype"" sv dtype"i" ei un dtype in "ics"
dm " " dm "List of available files. The file extension need not be typed." dm
" " if dtype"s" ex cat &invpath&*.pos el ex cat &invpath&&dtype&*.poi ei
av "Enter name of file to pCE CONFIGURATION PROGRAM dm " " av "Type the name o
f your business &coname& " x if x "" sv conamex ei dm "Enter your address (
max 5 lines)" av "Line 1 &coaddr1& " x if x "" sv coaddr1x ei av "Line 2 &
coaddr2& " x if x "" sv coaddr2x ei av "Line 3 &coaddr3& " x if x "" sv
coaddr3x ei av "Line 4 &coaddr4& " x if x "" sv coaddr4x ei av "Line 5 &c
oaddr5& " x if x "" sv coaddr5x ei dm " " av "Enter name of address drint
" fn 12 sv fnfnw1 if fn"" if "." notin fn if dtype"s" sv fninvpath+fn+".pos
" el sv fninvpath+fn+".poi" ei ei av "To printer or screen (p/s) " x 1 if
x"" wf om.x if x"p" wm "load &fn&13doc13766p13load omenu13ps" el wm "ps &fn
&13 Press a key to continue13pause13load omenu13ps" ei wc cf ex exec om.x s
t ei x ei fn ei opt"r" OPTION E if opt"e" -------!-------!-------
!---- Nid df miss on first pass dm " " dm "Field names " sv n0 rp sv nn
+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm " " dm Type "end" to finish dm "
" dm av "&p1&" v1 if v1"end" wc cf let exec have handle 0 ex exec fm st
ei sv n"1" pad"n" chklenmax rp sv nn+1 nnw1 if pad"y" sv v&n&"" el sv
sp&n& av "&s&" v&n& if fv"v" if v&n&"" sv pad"y" vlenn chklenn-1 ei ei e
i un nmax dm " " rp av " Cx cat &invdrv&*.pos el ex cat &invdrv&&
dtype&*.poi ei av "Enter name of file to print " fn 12 sv fnfnw1 if fn"" if
"." notin fn if dtype"s" sv fninvdrv+""+fn+".pos" el sv fninvdrv+""+fn+".po
i" ei ei av "To printer or screen (p/s) " x 1 if x"" wf om.x if x"p" wm "
load &fn&13doc13766p13load omenu13ps" el wm "ps &fn&13 Press a key to continue
13pause13load omenu13ps" ei wc cf ex exec om.x st ei x ei fn ei opt"r
" orrect Y/n " corr 1 if corr"" sv corr"y" ei un corr in "yn" if corr"n" s
k 00 ei if "," "'" or '"' can we add quotes sv n0 x"0" rp sv nn+1 nnw1 sv
sv&n& if "," in s sv x"1" el if "'" in s sv x"1" el if '"' in s sv x"1"
ei ei ei if x"1" if '"' notin s sv v&n&'"'+s+'"' el if "'" notin s sv
v&n&"'"+s+"'" ei ei sv x"0" ei un nchklen sv n0 if fv"f" fix rp sv n
n+1 nnw1 sv sv&n& wm !s! un nratafile &addrfile& " x 14 if x"" sv addrfilex
ei if phone"y" sv y"Y/n" el sv y"y/N" ei av "Does the address file have
telephone numbers on line 2 &y& " x 1 if x"" sv phoney ei dm " " dm "Which
drive is to be used for storing invoices" id cpm sv invdrvinvpath1 rp av "En
ter drive letter &invdrv& " x 1 if x"" sv invdrvx ei un invdrv in "abcdefm"
sv invpathinvdrv+"" el av "Enter path on which to store invoices &invpath& "
x if x enclose strings in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'" +
'"' + "0123456789." sv n"1" rp av "Enter condition &n& " s sv err0 ssw1 sv
c&n&s if c1"" ex exec fm st ei if s1"f" if s2 notin "*123456789" sv err1
ei el if s1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin "
*123456789" sv err1 ei el if s1 notin ok sv err1 ei ei if err0 sv nn+
1 nnw1 el dm "Invalid input" ei un n"" sv invpathx ei ei dm " " if usep
rod"y" sv y"Y/n" el sv y"y/N" ei rp av "Do you wish to use a product file
(&y&) " x 1 if x"" sv useprodx ei un useprod in "yn" if useprod"y" av "Ent
er name of product information file &prodfile& " x 14 if x"" sv prodfilex ei
ei if prconame"y" sv y"Y/n" el sv y"y/N" ei rp av "Do you want your name
and address printed on the invoices (&y&) " x 1 if x"" sv prconamex ei un p
rconame in "yn" 3 if c2"" sv c2"01" ei if c3"" sv c3"01" ei sv ff"" if
"f*" in c16 sv n5 rp sv nn+1 nnw1 if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"
f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c1 if "f*" in c26 sv n5 rp
sv nn+1 nnw1 if c2&n&"f*" sv nn-1 nnw1 sv c2c21&n&+"f0" sv n0 ei un n0
sv ff"sv f0f1" ei f* in c2 if "f*" in c36 sv n5 rp sv nn+1 nnw1 if c3&n
&"f*" sv if vatreg"y" sv y"Y/n" el sv y"y/N" ei rp av "Is your business
registered for VAT (&y&) " x 1 if x "" sv vatregx ei un vatreg in "yn" if
vatreg"y" if prconame"y" av "Enter your VAT number &vatnum& " x if x"" sv va
tnumx ei ei ei if vatreg"y" sv exorinc"x" el if exorinc"x" sv y"X/i" el
sv y"x/I" ei rp av "Do you want to enter prices ex VAT or inc VAT (&y&) " x
1 if x"" sv exorincx ei un exorinc in "xi" ei if askfnload ominvgen13ps13
nc 255 sv sysversysver if sysver"" sv cpm1 filedate1
ei iu cpm if sysver 3.06 sv filedate1 ei if sysver3.10 sv filedate1 ei
ei cs " " dm " " dm " *** P R O T E X T O F F I C E M E N
U *** dm " " dm " I - Print an Invoice dm "
C - Print a Credit note dm " S - Print a Sta
tement dm " N"y" sv y"Y/n" el sv y"y/N" ei rp av "Do you want t
o be asked for footnote each time (&y&) " x 1 if x"" sv askfnx ei un askfn i
n "yn" if askcar"y" sv y"Y/n" el sv y"y/N" ei rp av "Do you want to be as
ked for carriage each time (&y&) " x 1 if x"" sv askcarx ei un askcar in "yn
" sv dashes"-------------------------------------------------------------------
-------------" dm " " dm " " dm NOW CONFIGURE THE INVOICE FORMAT FOR YOUR STA
TIONERY dm " " Common header for mail merge templates ID df &flist& IF f1"e
nd" START OF MAIN MAIL MERGE SECTION &f1& &f2& phone &f3& &f4& &f5&
&f6& &f7& Dear Customer Thank you for your interest in our range o
f products. We have pleasure in enclosing the information requested. Yours
faithfully END OF MAIN MAIL MERGE SECTION PA SK 00 continue fro
m top, with next data EL f1end EX exec fm finished, so go back to filer m
enu ST EI av "Side margin &side& " n if n"" sv siden ei av "Width of 'co
de' column in characters &rc1& " n if n"" sv rc1n ei av "Width of 'descript
ion' column in characters &rc2& " n if n"" sv rc2n ei av "Width of 'quantit
y' column in characters &rc3& " n if n"" sv rc3n ei av "Width of 'unit pric
e' column in characters &rc4& " n if n"" sv rc4n ei av "Width of 'total' co
lumn in characters &rc5& " n if n"" sv rc5n ei if prconame f1 EI id df
cs dm "Mail merging ... Common code for mail merge templates iu df df fm
.mus rv mus cf in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el s
v flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flist flist + " f&n&" un nrlen
sort out which datafile to use (main/update/selection) if mus"m" sv fdf ei i
f mus"u" sv fnewfile ei if mus"s" sv fselfile ei df &f& fo$end$ ei id df
ON &f1& "y" av "Line number to print your company address &caline& "
n if n"" sv calinen ei ei av "Line number to print recipient's address &al
ine& " n if n"" sv alinen ei av "Line number to print titles &tline& " n i
f n"" sv tlinen ei av "Line number to print totals &totline& " n if n"" sv
totlinen ei sv nlinestotline-tline nlinesnlinesw1 sv iwidthrc1+rc2+rc3+rc4+
rc5+1 sv niwidth-31 dm " " if vatreg"y" dm "CONFIGURE VAT CODES" dm " " sv
vat1vat1*100 vat1vat1w1 sv vat2vat2*100 vat2vat2w1 sv vat3vat3*100 vat3vat3w1
sv vat4vat4*100 vat4vat4w1 sv vat5vat5*100 vat5vat5w1 av "Percentage for VAT
rate 1 &vat1& " x if x "" sv vat1x ei av "Percentage for VAT rate 2 &vat2&
" x if x "" sv vat2x ei av "Percentage for VAT rate 3 &vat3& " x if x ""
sv vat3x ei av "Percentage for VAT rate 4 &vat4& " x if x "" sv vat4x ei
av "Percentage for VAT rate 5 &vat5&1,INVOICE df
omenu any data file nc 255 sv sysverFEHGM54WWPppx(xTSTS--*#R#$R$RRRRRRRRRR K
KL(TLT( KL(((p LppR£R#L8D((D8LR K88L L " x if x "" sv vat5x ei sv vat1vat
1/100 vat2vat2/100 vat3vat3/100 vat4vat4/100 vat5vat5/100 ei dm " " if usepro
d"y" dm "ENTER PRODUCT AND CUSTOMER DISCOUNT CODES" dm " " dm "Each product h
as an associated discount number" dm "and for each invoice a discount letter ma
y be used" dm " " dm "Thus the invoice for an order at discount A will be" dm
"calculated using discount rates A1, A2, A3 etc" dm " " dm "The values entere
d here should be percentage discounts" dm "FEI id df cs dm "Mail merging .
.. Common code for mail merge templates iu df df fm.mus rv mus cf in fm
$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0
rp sv nn+1 nnw1 sv flist flist + " f&n&" un nrlen sort out which datafile
to use (main/update/selection) if mus"m" sv fdf ei if mus"u" sv fnewfile
ei if mus"s" sv fselfile ei df &f& fo$end$ ei id df SECTION &f1&
Nload omstagen1316p13pf invgen.num . Protext House Wainman Road PETERBORO
UGH PE2 0BU een titles and totals sv DEel rp av "Name of file " name 8 un
name"" sv stacmd"pf &invdrv&&name&.pos" ei zm &stacmd& ex xs "load omstagen
13&stacmd&13" st rv addrdrv,invdrv cf av "Statement to printer or file (p/F)
" x 1 if x"p" sv stacmd"p" descwidth rv discA,discB,discC,discD,discE rv p
rconame,exorinc,showdisc,askfn,askcar,useprod,defdisc rv caline,aline,tline&sc&
!coa5! ei svnal-cal-6 rp &sc& svnn-1 unn0 &sc&!a0! &sc&!a1! &sc&!a2! &
sc&!a3!&t& &sc&!a4! &sc&!a5!Date &h& &sc&!a6! &sc&!a7! svntl-al-8 rp
&sc& svnn-1 unn0 wfon &r2& wfoff &sc&DATEINVOICE NO. DEBIT CREDITBALA
NCE wfon &r3& wfoff &sc& svbinfols dm"Enter details (RETURN to end) dm"
rp av"Opening balance (- for credit) £" tot if tot"" sv tot0.00 ei un tot
1 in "-0123456789" sv tottot+0 if tot0 &sc&Carried fwd." Arnor Ltd Protext
House Wainman Road Peterborough PE2 0BU ----------------------------------
------------------------Rks. HP7 9LLDate 14 Mar 1988 AttentionFinancial
Dept DATEINVOICE NO. DEBIT CREDITBALANCE 1.1.881024976.45976.45
2.1.881055435.331411.78
The amount due is the last figure in the 'BALANCE' column E. & O.E.
The amount due is theor each
discount letter enter list of discounts for " dm "product type1, type2, type3
etc, separated by spaces" dm " " av "% Discounts for A &discA& " x if x ""
sv discax ei av "% Discounts for B &discB& " x if x "" sv discbx ei av "%
Discounts for C &discC& " x if x "" sv disccx ei av "% Discounts for D &di
scD& " x if x "" sv discdx ei av "% Discounts for E &discE& " x if x ""
sv discex ei rp av "Enter most used discount codsv df"music" sv newfile
"music.new sv selfile"music.sel" sv fv"Fixed" sv rlen"7" sv n1"artist/compos
er" sv n2"title" sv n3"medium" sv n4"year recorded" sv n5"orchestra/performe
r" sv n6"conductor" sv n7"" sv fsortopts"/f7 /s1,2 /a1 /a2" sv maxw"20" sv
lastblank"y" music.sel" sv fv"Fixed" sv rlen"7" sv n1"artist/composer" s765
233541233" el wm "clear13y766merge fm.one13765538541538" ei wm "l fm.one13y6
39764233e (type letter, or 0 for none) &defdisc& " x 1 if x"" sv defdiscx ei
un defdisc in "0abcde" sv showdisc"n" rp av "Do you want to display discount
numbers each time (&y&) " x 1 if x"" sv showdiscx ei un showdisc in "yn" e
i cf df omenu wf omtemp.inf wm '&addrfile&,&invpath&,&prodfile&,&vatreg&,&ph
one&' wm '&vat1&,&vat2&,&vat3&,&vat4&,&vat5&,&nlines&,&rc2&' wm '"&discA&","&d
iscB&","&discC&","&discD&","&discE&","&vatnum&"' wm '&prconame&,&exorinc&,&show
disc&,&as av "Line number to print totals &totline& " n if n"" sv totlinen ei
sv nlinestotline-tline nlinesnlinesw1 sv iwidthrc1+rc2+rc3+rc4+rc5+1 sv niw
idth-31 dm " " if vatreg"y" dm "CONFIGURE VAT CODES" dm " " sv vat1vat1*100
vat1vat1w1 sv vat2vat2*100 vat2vat2w1 sv vat3vat3*100 vat3vat3w1 sv vat4vat4
*100 vat4vat4w1 sv vat5vat5*100 vat5vat5w1 av "Percentage for VAT rate 1 &vat1
& " x if x "" sv vat1x ei av "Percentage for VAT rate 2 sv df"address"
sv newfile"address.new sv selfile"address.sel" sv fv"Variable" sv rlen"8"
sv n1"name" sv n2"telephone" sv n3"addr1" sv n4"addr2" sv n5"addr3" sv n6"a
ddr4" sv n7"addr5" sv n8"postcode" sv fsortopts"/v /s1 /p1" sv maxw"10" sv
lastblank"n" sv selfile"address.sel" sv fv"Variable" sv rlen"8" sv n1"name"
sv "&nn& records found. Press a key to continue ... wc cf ex exec fm st ei
sk 00 ei id df iu df cs " " dclear13y639764766pf invgen.num . Protext
House Wainman Road PETERBOROUGH PE2 0BU een titles and totals sv DE"-------
------------------------------------!----------L-----------------R" "----------
---!-----------------!--------------!----------------!--------R" "-------------
!----------------------.--------------.--------------.-----R" "----------------
---------------------------!--------------L-------.--R" "----------------------
--------------------------------------------------R Nrox Business Park Mitchel
dean Glos. GL17 0DD Atlantis Software Ltd 28 Station Rd London SE25 5AG
Atomic Computer Systems 39 Standish Street Burnley Lancs BB11 1AP ATT S
ystems Ltd 16 Pack Road Kennilworth Worcs. CV8 2GF Basic Enterprises 27
Gordon Street Kettering NN16 ORU B&B Office Machinery 202 Whitham Road Sh
effield S.Yorks. Bedgebury School Bedgebury Park Goudhurst Cranbrook Ken
t TN17 2SH University of Bath University Accountant Claverton Down Bath
BA2 7sv minn ei min0 ei dn"y" un nrlen ei all"y" dm " " rp av "Print a
blank line after each record Y/n " blank un blank in "yn" dm " " if blank"n"
sv blank"" el sv blanksc+"'" + " " ei if mus"u" df &newfile& fo$end$ e
i if mus"m" df &df& fo$end$ ei if mus"s" df &selfile& fo$end$ ei if sfp
"f" wf &f& ei df &flist& if f1"end" zm if all"n" sv nmin-1 rp sv nn+1
nnw1 if d&n&"y" sv sf&n& &sc&!s! ei id df &flist& if f1"end" zm if all
"n" sv nmin-1 rp sv nn+1 nnw1 if d&n&"y" sv sf&n& &sc&!s! ei dn"y" un n
max !blank! sk "q""q" el all sv n0 if fv"f" rp sv nn+1 nnw1 sv sf&n&+"
" &sc&!s! un nrlen !blank! sk "q""q" el v rp sv nn+1 nnw1 sv sf&n&+" "
&sc&!s! if s" " sv sn+1 mn+1 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen ei
ei un nrlen !blank! sk "q""q" ei fv ei all el f1end dm " Street Manch
ester M3 3ER Carmarthenshire Coll. of Tech. and Art Faculty of Art & Design
Job's Well Road Carmarthen Dyfed SA31 3HY C.A.S.S. 49-53 Hazelwood Road
Northampton NN1 1LG Caspell Computers 43 Emerson Road Poole Dorset BH15
1QS Castle Computers 5 Ffrances Passage Lancaster LA1 1UG Central Regi
onal Council Social Work Dept. Langgarth Stirling FK8 2HA Centresoft Ltd
Units 2 & 3 Holford Way Holford Birmingham B6 7AX Cerac Computer Supplie
s 53 Woodcote Roa" wt "Press a key to continue ... wc cflet exec have handle
0 ex exec fm st ei f1end ei defined df iu df cs " " dm "Option P - P
rint/display records dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flis
t"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un
nrlen sv nn+1 mn+1 nnw1 mmw1 sv f&n&"" f&m&"" dm " M - Main data file (&d
f&) dm " " dm " U - Update file (&newfile&) dm " " Arnor (Deutschland)
Ltd. 010 49 40 224942 Hans-Henny-Jahnn Weg 21 D2000 Hamburg 76 West Germany
Arnor Ltd. 0733 239011 Protext House Wainman Road Peterborough PE2 0BU
Cambridge Water Company 0223 247351 Rustat Road Cambridge CB1 3QS Capit
al Radio 01 388 1288 Euston Centre Euston Road London NW1 Eastern Electr
icity 0733 231001 Shrewsbury Avenue Peterborough PE2 0BH E E Goring $ "
'West Tip'" Old Farm Lane Folksworth Peterborough Cambs Nigel Hebblethwai
te 01 dm " S - Selection file (&selfile&) dm " " rp av "Enter file to pr
int/display m/u/s " mus 1 un mus in "mus" if mus"" ex exec fm st ei dm "
" rp av "Print to Screen, File or Printer s/f/p " sfp 1 un sfp in "sfp" if
sfp"" ex exec fm st ei if sfp"f" sv sc"wm " dm " " av "Enter name of file
to print to " f 16 if f"" ex exec fm st ei ei if sfp"s" sv sc"dm " ei
if sfp"p" sv sc"" ei ei iu df dm " " rp av "Pr103 2790 17a High Lows
Hornsey London N8 Logic Sales Ltd 0733 49696 6 Midgate Peterborough Cam
bs Zachariah O'Flaherty $ Moskaustrae 98 Hautes-Pyrenes Timbuktu Mali
V R Patel $ 19 Fortis Avenue Grantchester Cambridge April Showers 0223
661166 179 Mile Long Road Chesterton Cambridge Cambs Mr W N Simmons 0733
24111 37 Violet Drive Woodston "Peterborough, Cambs" Thompson Computers
$ 8 Hyholmes Bretton Peterborough PE3 8LG
int all fields Y/n " all 1 if all"" sv all"y" ei un all in "yn" if all"
y" sv n0 rp sv nn+1 nnw1 sv d&n&"y" un nrlen el all"n" dm " " dm "Print
the following fields" dm " " sv n0 yn"Y/n" min0 def"y" rp sv nn+1 nnw1 sv
sn&n& if s&maxw&"" sv ss+" " ei sv ss
1&maxw& av "f&n& &s& &yn& " d&n& 1 if d&n&"" sv d&n&def ei sv yn"y/N" def"n
" if d&n&"y" sv maxn if min0 N kfn&,&askcar&,&useprod&,&defdisc&'
wm '&caline&,&aline&,&tline&,&totline&' wm '&side&,&rc1&,&rc2&,&rc3&,&rc4&,&r
c5&' sv rc1rc1-1 rc2rc2-1 rc3rc3-1 rc4rc4-1 rc5rc5-1 sv r2c1rc1 r2c2rc2+3 r2c3
rc3+2 r2c4rc4-2 r2c5rc5-3 sv rc1rc1w1 rc2rc2w1 rc3rc3w1 rc4rc4w1 rc5rc5w1 sv
ruler1""+dashes1&n&+"!"+dashes110+"L"+dashes117+"R" sv ruler2""+dashes1&rc1&+"!
"+dashes1&rc2&+"!"+dashes1&rc3&+"!" sv ruler2ruler2+dashes1&rc4&+"!"+dashes1&rc
5&+"R" sv r3c3rvcal,al,tl,totl rvside,x,x,x,x,x rvr1,r2,r3,x,r5 rvcon,coa1,c
oa2,coa3,coa4,coa5 cf av "Statement to printer or file (p/F) " x 1 if x"p"
sv ic"p" sc"" el rp av "Name of file " name 8 un name"" sv name"&invpath&&
name&.pos" sv ic"pf &name&" sc"wm " id cpm df om ei wf &name& ei wfon zm
tm&cal& sm&side& wfoff ific2"f" wfon ffon wfoff ei svt"STATEMENT" svm
n0 svd"n" a0"end" av"Search datafile (y/N) " x 1 ifx"y" av"Accour2c3-2 sv r
uler3""+dashes1&r2c1&+"!"+dashes1&r2c2&+"--."+dashes1&r3c3&+"." sv ruler3ruler3
+dashes1&r2c4&+"."+dashes1&r2c5&+"R" sv ruler4""+dashes1&n&+"!"+dashes114+"L"+d
ashes17+".--R" sv niwidth-2 sv ruler5""+dashes1&n&+"R" wm '"&ruler1&"' wm '"
&ruler2&"' wm '"&ruler3&"' wm '"&ruler4&"' wm '"&ruler5&"' wm '!coname!' wm
'!coaddr1!' wm '!coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '!coaddr5!' wc
cf ex era ominvgen.inf id cpm ex ren o cs "
" sv sysversysver if sysver"" sv cpm1 filedate1 ei iu cpm sv dc"dc" dp"dp"
&dc& "." &dp& 3 sv uprice0 &dp& 2 if sysver 3.07 sv filedate1 ei if sy
sver3.10 sv filedate1 ei ei df ominvgen.inf rv addrfile,invpath,prodfile,va
treg,phone rv vat1,vat2,vat3,vat4,vat5,infolines,descwidth rv discA,discB,disc
C,discD,discE,vatnum rv prconame,exorincvat,showdisc,askfn,askcar,uminvgen.inf
omtemp.inf el ex ren omtemp.inf ominvgen.inf ei df omenu sk 00 ei opt"e"
le nc 255 sv sysverseprod,defdisc rv caline,aline,tline,totline rv side,x,x
,x,x,x rv ruler1,ruler2,ruler3,ruler4,ruler5 rv coname,coaddr1,coaddr2,coaddr3
,coaddr4,coaddr5 cf df ominvgen.num rv number,title dm "INVGEN v2.02 (c) A
rnor 1988 (&title&)" dm " " id filedate cf df ominvgen.dat rv sysdate e
i sv vatcf01 sv vatcf11+vat1 VAT conversion factors sv vatcf21+vat2 sv vat
cf31+vat3 sv vatcf41+vat4 sv vatcf51+vat5 read product info into desc1,des
c2,...,priTyping anything other than a number will skip all remaining products"
dm " " sv n0 rp sv nn+1 nnw1 sv quant&n&"0" un nmaxn sv n0 rp sv nn+1
nnw1 sv promptdesc&n& if prompt25"" sv promptprompt+"
" sv promptprompt125 ei av "&prompt& " x if x"" sv x0 ei sv quant&n&
x+0 if xquant&n& sv quant&n&"0" sv nmaxn nnw1 ei if nmaxn dm " " av "Re-e
nter order (y/N) " yesno 1 if yesno"y" sv n0 dm " "ce1,price2,...code1,code2,
... sv maxn0 if useprod"y" cf df &prodfile& fo$end$ dm Reading product da
ta... sv n0 desc00 rp sv nn+1 nnw1 rv desc&n&, price&n&, code&n&, prodvat&n&
, proddisc&n& if desc&n&"" ignore blank lines sv nn-1 nnw1 ei un desc&n&"
end" cf sv maxnn-1 ei useprod"y" ask for invoice details sv d"n" a0"en
d" av "Search data file (y/N) " yesno 1 if yesno"y" av "Account name ",n cf
df &addrfile& fo$end$ rcs" dm"Statement generator (c) Arnor 1988 dm" sv s
ysversysver if sysver"" sv cpm1 filedate1 fxon"" fxoff"" ei iu cpm sv dc"dc
" fxon"fxon" fxoff"fxoff" &fxon& &dc& "." if sysver 3.07 sv filedate1 ei
if sysver3.10 sv filedate1 ei ei id filedate cf df ominvgen.dat rv sysdat
e cf ei he fo svfh1 a"Address line " dfominvgen.inf rvdataf,invpath,x,x,p
hone rvx,x,x,x,x,infols,ew rvx,x,x,x,x,vatnum rvprconame,x,sj,afn,x,x,x Np
if phone"y" rv a0,x,a1,a2,a3,a4,a5,a6,a7,x el rv a0,a1,a2,a3,a4,a5,a6,a7,x
ei if n in a0 dm " " dm Found '&a0&' av "Is this correct (Y/n) " d 1 ei i
f a0"end" dm " " dm "Account not found" sv d"y" ei un d"n" cf ei id cpm
cf df ominvgen.inf ei if a0"end" if not searching datafile or not found
sv a3"" a4"" a5"" a6"" a7"" dm " " dm Enter name and address, or press RETURN
to return to menu dm " " av "Name " a0 if a0"" cf eid df &flist& if
f1"end" &ff& sv x0 if &c1& if &c2& sv x1 ei ei sk x0 zm npoff sv n0
if fv"f" fixed rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv n
n+1 nnw1 sv sf&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nr
len el sv s"$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nn
nnw1 dm " " wt "&nn& records found. Press a key to continue ... wc cf ex ex
ec fm stload ominit1316ps13pf invgen.num . Protext House Wainman Road PETER
BOROUGH PE2 0BU een titles and totals sv DE"" "" f,y 0.15,0,0,
0,0,22,20 "25 10","15 10","","","" y,x,y,y,y,y,0 4,12,23,45 0,14,18,15,17,9
"" "" "" " sv cpm1 ei df ominvgen.inf rv addrfile,invdrv,prodfile,vatreg
rv vat1,vat2,vat3,vat4,vat5,infolines,descwidth rv discA,discB,discC,discD,di
scE rv prconame,exorinc,showdisc,askfn,askcar,useprod,defdisc rv caline,aline,
tline,totline rv s ei sk 00 ei if defined df iu df cs " " dm "Option S
.4 - Select records (cond1 AND cond2)" dm " " in fm$pfi$ sv fvfv1 rlenrlenw1
if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flist
flist + " f&n&" un nrlen sv nn+1 mn+1 nnw1 mmw1 sv f&n&"" f&m&"" dm "Fie
ld names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm " "
dm "When entering conditions below, please remember ure in the 'BALANCE' column
ei &sc&E. & O.E. ific2"" pa ei ific2"f" ex exec om st ei svfnicw2+".po
s" av"Send to printer or screen (P/s) " x 1 ifx"s" exxs "ps &fn&13 Press a ke
y to continue13pause13load omenu13ps13 el exxs "load &fn&13doc13766p13load ome
nu13ps13 ei st line " dfominvgen.inf rvdataf,invdrv,x,x e " name 8 un name
"" sv name&invdev&&name&.pos sv ic"pf &name&" sc"wm " wf &name& ei wfon zm
tm&cal& sx exec om st " " ei av "Address 1 " a1 av "Address 2 " a2 if a2
"" av "Address 3 " a3 if a3"" av "Address 4 " a4 if a4"" av "Address 5 " a5
if a5"" av "Address 6 " a6 if a6"" av "Address 7 " a7 ei ei ei ei ei
ei av "Invoice number &number& ",num if num"" sv numbernum el wf ominvge
n.num sv numnumber+1 numnumw1 wm &num& wc ei wf &invpath&omtemp wf on zm
tm &caline& sm &side& wf off av "Invoice date &sysdate&nn-1 nnw1 sv c3c31&n
&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c3 if ff"" sv n1 rp sv
nn+1 nnw1 sv ffff+"+f&n&" un nrlen ei dm " " dm "Searching ..." sv nn0
df fm.mus rv mus cf if mus"m" sv fdf ei if mus"u" sv fnewfile ei if mu
s"s" sv fselfile ei df &f& fo$end$ wf &selfile& ei iu df ist& if f1"end"
&ff& if &c1& el if &c2& el if &c3& el sk00 ei ei ei zm npoff sv n
0 ",date if date"" sv datesysdate ei av "Order reference ",ref Display
discount type sv xuseprod+showdisc custdisc0 if x"yy" dm "Discount type nu
mbers " sv n0 rp sv nn+1 nnw1 mn+1 mmw1 sv text n + " " + discAw&n& + " "
+ discBw&n& + " " sv text text + discCw&n& + " " + discDw&n& + " " + discEw&n&
dm &text& un discAw&m&"" ei sv custdiscdefdisc if useprod"y" rp av "Disc
ount type (letter, 0full price) &defdisc& ",x 1 Press a key to continue ... ex
exec fm st ei f1 ei id df iu df cs " " dm "Option U - Merge update fil
e into main file dm " " in fm$pfi$ sv sysversysver if sysver"" sv cpm"1" e
i sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n"0.00"
rp sv nn+1 sv flistflist+" f&n&" un nrlen sv nn+1 mn+1 sv f&n&"" f&m&""
id cpm df &df& rv s if s"end" wf &df& el wf &df& a ei el wf &df& a ei
cf df & Nto enclose strings in quotes" dm 'e.g. "London" in F4 dm " " sv o
k"'" + '"' + "0123456789." sv n"1" rp av "Enter condition &n& " s sv err0 ss
w1 sv c&n&s if c1"" ex exec fm st ei if s1"f" if s2 notin "*123456789" s
v err1 ei el if s1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2
notin "*123456789" sv err1 ei el if s1 notin ok sv err1 ei ei if err0
sv nn+1 nnw1 el dm "Invalid input" ei unex exec fm st ei sk 00 ei id d
f iu df cs " " dm "Option S.5 - Select records (cond1 AND cond2 AND cond3)"
dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"
rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrlen sv nn+1 mn+1
nnw1 mmw1 sv f&n&"" f&m&"" dm "Field names " sv n0 rp sv nn+1 nnw1 sv sn
&n& dm f&n& &s& un nrlen dm " " dm "When entering conditions below, ple n2
if c2"" sv c2"00" ei sv ff"" if "f*" in c16 sv n5 rp sv nn+1 nnw1 if
c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei
f* in c1 if "f*" in c26 sv n5 rp sv nn+1 nnw1 if c2&n&"f*" sv nn-1 nnw
1 sv c2c21&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c2 if ff""
sv n1 rp sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen ei dm " " dm "SeaADDRESS
,A,products.inf,y,y 0.15,0.00,0.00,0.00,0.00,22,18 "25 10 0","15 10 0","0 0 0"
,"0 0 0","0 0 0","" y,i,n,y,y,y,0 4,12,23,45 3,14,18,15,17,9 "--------------
-----------------------------!----------L-----------------R" "-------------!---
--------------!--------------!----------------!--------R" "-------------!------
----------------.--------------.--------------.-----R" "-----------------------
--------------------!--------------L-------.--R" "-----------------------------
-------------------rching ..." sv nn0 df fm.mus rv mus cf if mus"m" df &df
& fo$end$ ei if mus"u" df &newfile& fo$end$ ei if mus"s" df &selfile& fo$e
nd$ ei wf &selfile& ei if undefined df i ei sk x0 zm npoff sv n0 if f
v"f" c16 sv n5 rp sv nn+1 nnw1 if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0"
sv n0 ei un n0 sv ff"sv f0f1" sv n1 rp sv nn+1 nnw1 sv ffff+"+f&n&" un
nrlen ei f* in c1 dm " " dm "Searching ..." ------------------------R"
00,0.00,0.00,22,18 "25 10 0","15 10 0","0 0 0","0 0 0","0 0 0","" y,x
,n,y,y,y,0 4,12,23,45 3,14,18,15,17,9 "--------------------------------------
-----!----------L-----------------R" "-------------!-----------------!---------
-----!----------------!--------R" "-------------!----------------------.-------
-------.--------------.-----R" "-------------------------------------------!---
-----------L-------.--R" "------------------------------------------------63916
ps" sv sf"l fmfind13y63916ps" sv sa"l fmadd13y63916ps" sv sp"l fmprint13y6391
6p" sv su"l fmmerge13y63916ps" sv ss&opt& note exec not in progress here id
cpm cf df fm$pfi$ handle 0 ei wf fm.x handle 1 wm "&s&" wc cf free handl
e 0 ex exec fm.x gets handle 0 st ei opt in "qeizfapu" clear screen, pri
nt title if opt in "clszdm" sv ooo&opt& cs ase remember to enclose strings
in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'" + '"' + "0123456789." sv
n"1" rp av "Enter condition &n& " s sv err0 ssw1 sv c&n&s if c1"" ex exec
fm st ei if s1"f" if s2 notin "*123456789" sv err1 ei el if s1 notin ok
sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin "*123456789" sv err1 e
i el if s1 notin ok sv err1 ei ei if err0 sv nn+1 nnw1 el dm "Invalid
inpid df &flist& if f1"end" &ff& sv x0 if &c1& if &c2& if &c3& sv x1 e
i ei ei sk x0 zm npoff sv n0 if fv"f" fixed rp sv nn+1 nnw1 sv sf&n&
wm !s! un nrlen el var rp sv nn+1 nnw1 sv sf&n& if s"" sv sn+1 mn+2 ssw
1 mmw1 sv sf&s&+f&m& if s"" sv nrlen el sv s"$" ei ei wm !s! un nrlen
ei f/v sv nnnn+1 el f1end sv nnnnw1 dm " " wt "&nn& records found. Press
a key to continue ... wc cf N ut" ei un n3 if c2"" sv c2"00"
ei if c3"" sv c3"00" ei sv ff"" if "f*" in c16 sv n5 rp sv nn+1 nnw1
if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1"
ei f* in c1 if "f*" in c26 sv n5 rp sv nn+1 nnw1 if c2&n&"f*" sv nn-1 n
nw1 sv c2c21&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c2 if "f*"
in c36 sv n5 rp sv nn+1 nnw1 if c3& ei ei un nmaxn ei useprod"y" p
rint out heading at top of sheet dm " "
! l r wf on &ruler1& wfoff wm if prconame"
y" wm !coname! wm !coaddr1! wm !coaddr2! wm !coaddr3! wm !coaddr4! wm !coa
ddr5! ei go to line &aline& sv naline-caline-6 rp wm sv nn-1 un n0 wm !
a0! wm !a1! wm !a2! wm !a3!&TITLE& wm !a4! wm !a5!Number &number& wm !
a6!Da if x"" sv custdiscx ei un custdisc in "0abcde" ei sv car0 if askca
r"y" rp av "Carriage charge ",x if x"" sv x0 ei sv carx+0 un xcar ei sv
footnote"" if askfn"y" av "Footnote ",footnote ei if vatreg"n" sv vat"n"
el rp av "Is VAT chargeable (Y/n) " vat 1 if vat"" sv vat"y" ei un vat in
"yn" ei ask for order levels from keyboard if useprod"y" dm " " dm "En
ter quantities for the following products" dm "te &date& wm !a7!Order Re
f &ref& goto line &tline& sv ntline-aline-8 rp wm sv nn-1 un n0
! ! ! ! R wfon &rule
r2& wfoff wm CODEDESCRIPTIONQUANTITYUNIT PRICETOTAL !
! . . R wfon &ruler3& wfoff wm
print out order lines if useprod"y" dm "Calculating totals..." dm " " el
dm "Enter details of each item (RETURN Typing anything other than a number will
skip all remaining products" dm " " sv n0 rp sv nn+1 nnw1 sv quant&n&"0" u
n nmaxn sv n0 rp sv nn+1 nnw1 sv promptdesc&n& if prompt25"" sv promptpr
ompt+" " sv promptprompt125 ei av "&prompt& " x i
f x"" sv x0 ei sv quant&n&x+0 if xquant&n& sv quant&n&"0" sv nmaxn nnw1 e
i if nmaxn dm " " av "Re-enter order (y/N) " yesno 1 if yesno"y" sv n0 dm
" "len el var rp sv nn+1 nnw1 sv sv&n& wm &s& un nvlen ei f/v cs "" s
k 00 ei id df iu df cs " " dm "Option A - Add records from keyboard to up
date file dm " " in fm$pfi$ sv sysversysver if sysver"" sv cpm"1" ei sv f
vfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+
1 nnw1 sv flistflist+" f&n&" un nrlen sv n0 rp sv nn+1 nnw1 sv p&n&n&n&
if p&n&&maxw&"" sv p&n&p&n&"f*" sv nn-1 nnw1 sv c3c31&n&+"f0" sv n0 ei un
n0 sv ff"sv f0f1" ei f* in c3 if ff"" sv n1 rp sv nn+1 nnw1 sv ffff+"
+f&n&" un nrlen ei dm " " dm "Searching ..." sv nn0 df fm.mus rv mus c
f if mus"m" df &df& fo$end$ ei if mus"u" df &newfile& fo$end$ ei if mus"s
" df &selfile& fo$end$ ei wf &selfile& ei iu df ff& sv x0 if &c1& if &c
2& if &c3& sv x1 ei ei ei sk x0 zm npoff sv nn&+"
" ei sv p&n&p&n&1&maxw&+" " un nrlen iu cpm wf &newfile&
a wc ei df &newfile& rv s if s"end" wf &newfile& el wf &newfile& a ei
sv maxrlen if lastblank"y" sv maxrlen-1 maxmaxw1 v&max&"" ei ei iu df
ames " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un w1 sv flistflist+"
f&n&" un nrlen sv n0 rp sv nn+1 nnw1 sv p&n&n&n& if p&n&&maxw&"" sv p&n
&p& fv"f" dm "Fixed record size, consisting of &rlen& fields" el dm "Variable
record size, consisting of up to &rlen& fields" ei dm " " dm "Field names "
sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm " " sv opt"wt" e
i opt"l" OPTION Z if opt"z" rp av "Use options (&fsortopts&) Y/n " yn
un yn in "yn" if yn"" sv yn"y" ei dm " " sv optsfsortopts if yn"n" av "
Enter fsort options " opts Nto end) " dm " " sv maxn100 ei sv n"0" quant0
1 discount1 sv blanklinesinfolines coden"" sv tot0.00 if vat"y" sv duecar*va
tcf1 el sv duecar ei sv vatdue-car rp if useprod"y" sv nn+1 nnw1 if quan
t&n& 0 sv coden"" el sv descndesc&n&1&descwidth& sv codencode&n& if coden"
" sv coden" " ei sv quantnquant&n&w1 sv pricenprice&n& sv vrprodvat&n& if
custdisc0 sv discount1 el sv proddiscnproddisc&n& sv discountdisc&custdi off
el if title1"i" wf on wm Terms Strictly 30 Days Net wf off ei if title1"
c" wf on wm Terms This amount has been credited to your account wf off ei e
i wf on wm E. & O.E. if prconame"y" if vat"y" wm VAT reg. no. &vatnum& ei
ei wf off wc sv fninvpath+title1+number+".poi" av "Print invoice to printer
or screen (P/s) " x 1 id cpm ex ren &fn&&invpath&omtemp el ex era &fn& sv
renfntitle1+number+".poi" ex ren &invpath&omtemsc&w&proddiscn& sv discountdisc
ount/100 discount1-discount ei sv upricediscount*pricen sv pricediscount*quan
tn*pricen ei el no product file av "Product code " coden if coden"" sv nm
axn ei if coden"" av "Description " descn av "Quantity " x sv quantnx+
0 quantnquantnw1 if xquantn dm "Bad quantity. Please re-enter" sv coden"" ei
ei if coden"" av "Unit price £" x sv upricex+0 if xuprice dm "Meaningle
ss price. Please re-enter" sp &renfn& ei wf "omsummar.inf" a -------!-------
!-------!-------!-------!-------!-------!-------!----R if title1"i" sv s"I &nu
mber&&date&£&due&"+a0 el sv due0-due sv s"C &number&&date&£&due&"+a0 ei id
cpm sv ss+" " s
v ss+" " sv ss11
26 ei wm &s& wc wf om.x if x"s" wm "ps &fn&13 Press a key to continue13pau
se13load omenuv coden"" ei ei if coden"" if vatreg"y" av "VAT code (0no VAT
) 1 " vr 1 if vr notin "012345" sv vr"1" ei if vr"" sv vr"1" ei ei dm "
" sv pricenuprice pricepricen*quantn ei ei if coden"" if vat"y" sv vatcfnv
atcf&vr& if exorincvat "i" sv upricediscount*pricen/vatcfn sv pricediscount*
quantn*pricen/vatcfn sv incpricediscount*pricen*quantn sv vatvat+incprice-pric
e el sv xprice*.15 incpriceprice+x vatvat+x ei el sv incpricepric13ps" el
wm "p &fn&13load omenu13ps" ei wc cf ex exec om.x st " " sv sysversysve
r if sysver"" s H scro
lls forward. sH scrolls back. VH turns help off. STOP enters command mode.
Key is ALT, s is SHIFT, n is a digit (0-9).
CURSOR MOVEMENT left s word left line left ( page up
DOC strt text right s word right linee ei if quan
t&n&0 sv tottot+price duedue+incprice wf on wm &coden&&descn&&quantn&&uprice
&&price& wf off sv blanklinesblanklines-1 ei ei coden"" if nmaxn if usepr
od"y" sv useprod"n" n"0" discount1 dm "Enter details of any other items (RETUR
N to end) " dm " " ei ei un nmaxn do sufficient blank lines for missing
items if blanklines0 rp wf on wm wf off sv blanklinesblanklines-1 un bla
nklines0 ei id df &flist& if f1"end" &ff& sv x0 if &c
3& if &c1& sv x1 el if &c2& sv x1 ei ei ei sk x0 zm npoff sv n0 if
fv"f" fixed rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv nn+1
nnw1 sv sf&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen
el sv s"$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nnnnw
1 dm " " wt "&nn& records found. Press a key to continue ..
! L . R wf on &ruler4& wf off sv carcar+0 sv exvt
ot+car wf on if askcar"y" wm GOODS TOTAL£&tot& wm Carriage£&car& el wm
wm ei if vatreg"y" wm NET TOTAL£&exv& wm VAT£&vat& el wm wm ei wm
AMOUNT DUE£&due& wm wm
R wf on &ruler5& wfoff co bottom line comment here if
footnote"" wf on wm &footnote& wf N. wc cf ex exec fm st ei sk 00 ei
id df iu df cs " " dm "Option S.6 - Select records ( (cond1 OR cond2) AND
cond3) dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv
flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrlen sv nn+1
mn+1 nnw1 mmw1 sv f&n&"" f&m&"" dm "Field names " sv n0 rp sv nn+1 nnw1
sv sn&n& dm f&n& &s& un nrlen dm " " dm "When entering conditiw1 if c3&n
&"f*" sv nn-1 nnw1 sv c3c31&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f*
in c3 if ff"" sv n1 rp sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen ei dm "
" dm "Searching ..." sv nn0 df fm.mus rv mus cf if mus"m" sv fdf ei if
mus"u" sv fnewfile ei if mus"s" sv fselfile ei df &f& fo$end$ wf &selfil
e& ei iu df sv x0 if &c3& if &c1& sv x1 el if &c2& sv x1 ei ei ei sk
x0 zm nt name ",n cf df&dataf& fo$end$ rp if phone"y" rv a0,x,a1,a2,a3,a4
,a5,a6,a7,x el rv a0,a1,a2,a3,a4,a5,a6,a7,x ei ifn in a0 dm" dm"Found '&a
0&' av"Correct (Y/n) " d 1 ei ifa0"end" dm" dm"Not found svd"y" ei und"
n" ei ifa0"end" sva3"" a4"" a5"" a6"" a7"" dm" dm"Enter address, or press
RETURN to return to menu dm" av"Name " a0 ifa0"" wc cf ex exec om st " "
ei av"&a&1 " a1 av"&a&2 " a2 ifa2"" av"&a&3 " a3 ifa3"p if phone"y" rv
a0,x,a1,a2,a3,a4,a5,a6,a7,x el rv a0,a1,a2,a3,a4,a5,a6,a7,x ei if n in a0 d
m " " dm Found '&a0&' av "Is this correct (Y/n) " d 1 ei if a0"end" dm " "
dm "Account not found" sv d"y" ei un d"n" cf ei id cpm cf df ominvgen.i
nf ei if a0"end" if not searching datafile or not found sv a3"" a4"" a5""
a6"" a7"" dm " " dm Enter name and address, or press RETURN to return to menu
dm " " av "Name " a0 if a0"" cf e" av"&a&4 " a4 ifa4"" av"&a&5 " a5
ifa5"" av"&a&6 " a6 ifa6"" av"&a&7 " a7 ei ei ei ei ei ei av"Stateme
nt date &sysdate& ",h ifh"" svhsysdate ei svfo"" ifafn"y" av"Footnote ",fo
ei dm" ! ! ! ! ! !
R wfon &r1& wfoff !sc! ifprconame"y" !sc!!con! !sc!!coa1! !sc!!coa2!
!sc!!coa3! !sc!!coa4! !sc!!cid df &flist& if f1"end" &ff& sv x0 if &c3&
sv x1 el if &c1& if &c2& sv x1 ei ei ei sk x0 zm npoff sv n0 if fv"f
" fixed rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen el var rp sv nn+1 nnw
1 sv sf&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen el
sv s"$" ei ei wm !s! un nrlen ei f/v sv nnnn+1 el f1end sv nnnnw1 d
m " " wt "&nn& records found. Press a key to continue ..ons below, please remem
ber to enclose strings in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'" + '
"' + "0123456789." sv n"1" rp av "Enter condition &n& " s sv err0 ssw1 sv c
&n&s if c1"" ex exec fm st ei if s1"f" if s2 notin "*123456789" sv err1
ei el if s1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin "*
123456789" sv err1 ei el if s1 notin ok sv err1 ei ei if err0 sv nn+1
nnw1 el d. wc cf ex exec fm st ei sk 00 ei id df iu df cs " " dm
"Option S.7 - Select records ( (cond1 AND cond2) OR cond3) dm " " in fm$pfi$
sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp s
v nn+1 nnw1 sv flistflist+" f&n&" un nrlen sv nn+1 mn+1 nnw1 mmw1 sv f&n&""
f&m&"" dm "Field names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un
nrlen dm " " dm "When entering conditm "Invalid input" ei un n3 if c2""
sv c2"01" ei if c3"" sv c3"00" ei sv ff"" if "f*" in c16 sv n5 rp sv
nn+1 nnw1 if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0 ei un n0 sv ff
"sv f0f1" ei f* in c1 if "f*" in c26 sv n5 rp sv nn+1 nnw1 if c2&n&"f*"
sv nn-1 nnw1 sv c2c21&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c2
if "f*" in c36 sv n5 rp sv nn+1 nn Nions below, please remember to enclo
se strings in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'" + '"' + "012345
6789." sv n"1" rp av "Enter condition &n& " s sv err0 ssw1 sv c&n&s if c1"
" ex exec fm st ei if s1"f" if s2 notin "*123456789" sv err1 ei el if s
1 notin ok sv err1 ei ei sv sc&n&w-1 if s1"f" if s2 notin "*123456789"
sv err1 ei el if s1 notin ok sv err1 ei ei if err0 sv nn+1 nnw1 el "
t3"" if fv1"f" sv fsortopts"/f&rlen&" el sv fsortopts"/v" ei dm " " av "
First field number for sorting on 1 " m1 if m1"" sv m1"1" ei av "
sort type A/z/p/w/l/n/d " t1 if t1"" sv t1"a" ei dm " " av "Second field
number for sorting on " m2 if m2"" av " sort type A/z/p/w/l/n/d "
t2 if t2"" sv t2"a" ei dm " " av "Third field number for sorting on " m3
if m3"" av " sort type A/z/p/w/l/n/d dm "Invalid input" ei un n3
if c2"" sv c2"00" ei if c3"" sv c3"01" ei sv ff"" if "f*" in c16 sv n
5 rp sv nn+1 nnw1 if c1&n&"f*" sv nn-1 nnw1 sv c1c11&n&+"f0" sv n0 ei un
n0 sv ff"sv f0f1" ei f* in c1 if "f*" in c26 sv n5 rp sv nn+1 nnw1 if
c2&n&"f*" sv nn-1 nnw1 sv c2c21&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei
f* in c2 if "f*" in c36 sv n5 rp sv nn+1 n" t3 if t3"" sv t3"a" ei e
i ei if t11 notin "/-" sv t1"/"+t1 ei sv t1t1+m1 if t2"" if t21 notin "
/-" sv t2"/"+t2 ei sv t1t1+" "+t2+m2 ei if t3"" if t31 notin "/-" sv t3
"/"+t3 ei sv t1t1+" "+t3+m3 ei if m2"" sv m1m1+","+m2 ei if m3"" sv m1
m1+","+m3 ei sv fsortopts fsortopts + " /s"+m1 + " "+t1 dm " " dm "FSORT
options are now '&fsortopts&'." dm " " av "Please enter any other FSORT option
s " fopts sv sysversysver if sysver"" sv cpm"1" ei iu pfifile nc 2 cs " "
dm "Option E - Edit Current File Information dm " " in fm$pfi$ sv fvfv1 rle
nrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1
sv flistflist+" f&n&" un nrlen dm "Current datafile &df& sv fdfw1 sv newfi
lef+".new" sv selfilef+".sel" sv pfifilef+".pfi" if fv"f" sv y"F/v" el s
v y"f/V" ei dm " " rp av "Fixed or variable if fopts"" if fopts1 notin "/-"
sv fopts"/"+fopts ei sv fsortoptsfsortopts+" "+fopts ei ei dm " " dm "Wr
iting files ..." id cpm cf df fm$pfi$ handle 0 ei ei iu pfifile Now writ
e them out wf &pfifile& handle 1 wm 'sv df"&df&" wm 'sv newfile"&newfile
& wm 'sv selfile"&selfile&" wm 'sv fv"&fv&" wm 'sv rlen"&rlen&" sv n0 rp s
v nn+1 nnw1 sv sn&n& wm 'sv n&n&"&s&" un nrlen wm 'sv fsortopts"&fsortopts&"
wm 'sv maxw"&length records &y& " x 1 un x in "fv" dm " " rp if x"" sv fv
x ei if fv"f" sv fv"Fixed" av "Number of fields &rlen& " x if x"" sv rle
nx ei if lastblank"y" sv y"Y/n" el sv y"y/N" ei dm " " av "Is the last f
ield always to be blank (&y&) " x 1 if x"" sv lastblankx ei el sv fv"Variab
le" dm " " av "Maximum number of fields &rlen& " x if x"" sv rlenx ei ei
un rlen"2" dm " " dm "Please enter field names " svmaxw&" wm 'sv lastblank
"&lastblank&" wc if pfifilew2"" cf let exec have handle 0 ex exec fm st
el sv pfifile"fm$pfi$" ei ysver"" sv cpm"1" ei iu pfifile nc 2 cs " " d
m "Option E - Edit Current File InformatiovIERA,"*.BAK" 1,0BORDER 10 n0 rp sv
nn+1 nnw1 iu n&n& sv n&n&"" ei sv yn&n& av "field&n& &y& " x 40 if x"" s
v n&n&x ei if lastblank"y" if nrlen-1 sv nrlen n&rlen&"" ei ei un nrlen
work out max field name width! sv maxw"1" sv n"1" rp if n&n&&maxw&"" sv
maxwmaxw+1 maxwmaxww1 el sv nn+1 nnw1 ei un nrlen dm " " dm "Current FSO
RT options '&fsortopts&' rp av "Change them y/N " yn un yn in "yn" if yn"y"
sv m2"" m3"" t2" Nprodfile&,&vatreg&' wm '&vat1&,&vat2&,&vat3&,&vat4&,&vat5&,
&nlines&,&rc2&' wm '"&discA&","&discB&","&discC&","&discD&","&discE&"' wm '&pr
coname&,&exorinc&,&showdisc&,&askfn&,&askcar&,&useprod&,&defdisc&' wm '&caline&
,&aline&,&tline&,&totline&' wm '&side&,&rc1&,&rc2&,&rc3&,&rc4&,&rc5&' sv rc1rc
1-1 rc2rc2-1 rc3rc3-1 rc4rc4-1 rc5rc5-1 sv r2c1rc1 r2c2rc2+3 r2c3rc3+2 r2c4rc4-
2 r2c5rc5-3 sv rc1rc1w1 rc2rc2w1 rc3rc3w1 rc4rc4w1 rc5rc5w1 sv ruler1""+dashe
s1&n&+"!"+das cs " " nc 255 iu df sv sysversysve
r if sysver"" sv cpm"1" ei in fm$pfi$ sv oc"C - Count records" sv os"S - S
elect records" sv ol"L - List current file information" sv oz"Z - Sort records
" sv od"D - Change current datafile" sv om"M - Mail merge" ei if fv1"v" sv
fv"Variable record length, max" el sv fv"Fixed record length of" ei dm "
Current datafile &df&. &fv& &rlen& fnw1 if c3&n&"f*" sv nn-1 nnw1 sv c3c
31&n&+"f0" sv n0 ei un n0 sv ff"sv f0f1" ei f* in c3 if ff"" sv n1 rp
sv nn+1 nnw1 sv ffff+"+f&n&" un nrlen ei dm " " dm "Searching ..." sv
nn0 df fm.mus rv mus cf if mus"m" sv fdf ei if mus"u" sv fnewfile ei i
f mus"s" sv fselfile ei df &f& fo$end$ wf &selfile& ei iu df v x0 if &c3&
sv x1 el if &c1& if &c2& sv x1 ei ei ei sk x0 zm ields. dm " " dm "
*** P R O T E X T F I L E R M E N U *** (v2.01) dm " " dm
" F - Find single record dm " &os& dm "
P - Print/display records dm " &om& dm "
&oz& dm " &oc& dm " A - Add new r
ecords to update file dm " U - Merge update file into main fil
e dm " &ol& dm " E - Edit current file info"
Typing anything other than a number will skip all remaining products" dm " " s
v n0 rp sv nn+1 nnw1 sv quant&n&"0" un nmaxn sv n0 rp sv nn+1 nnw1 sv
promptdesc&n& if prompt25"" sv promptprompt+" " sv
promptprompt125 ei av "&prompt& " x if x"" sv x0 ei sv quant&n&x+0 if xq
uant&n& sv quant&n&"0" sv nmaxn nnw1 ei if nmaxn dm " " av "Re-enter order
(y/N) " yesno 1 if yesno"y" sv n0 dm " rmation dm " &od&
dm " I - Initialise new datafile dm " O - Pro
text Office menu dm " Q - Quit dm " " av " Ent
er option letter " opt 1 sv fvfv1 rlenrlenw1 if opt"" sv opt" " ei if o
pt"o" ex exec om st ei OPTIONS Q,E,I,F,A,P,U if opt in "qfapu" ex ex
ec fmopt&opt& st ei if opt in "qeifapu" sv sq"Arnor Ltd. 0733 239011 Prote
xt House Wainman Road Peterborough PE2 0BU "Variable" sv rlen"8" sv n1
"name" sv is used you will be asked to type in a filename. pa Ris used you
will be asked to type in a filename. ected records appear. Now repeat this,
but type 'n' to the last question. This enables you to select which fields are
to be displayed. Reply 'y' to the first two fields and 'n' (or press return) t
o the rest. This time just the names and telephonclear13y639764766" sv se"l fm
edit13y63916ps" sv si"l fminit13y63916ps" sv sf"l fmfind13y63916ps" sv sa"l f
madd13y63916ps" sv sp"l fmprint13y63916p" sv su"l fmmerge13y63916ps" sv ss&op
t& note exec not in progress here id cpm cf df fm$pfi$ handle 0 ei wf fm.
x handle 1 wm "&s&" wc cf free handle 0 ex exec fm.x gets handle 0 st ei
opt in "qeizfapu" clear screen, print ti4&"' wm '"&ruler5&"' wm '!coname!'
wm '!coaddr1!' wm '!coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '!coaddr5!'
wc cf ex era ominvgen.inf id cpm ex ren ominvgen.inf omtemp.inf el ex re
n omtemp.inf ominvgen.inf ei df omenu sk 00 ei opt"e"
df omenu any data file nc 255 sv sysver-----------------------!----------
----L-------.--R" "------------------------------------------------------------
------------R Noa5! ei svnal-cal-6 rp !sc! svnn-1 unn0 !sc!!a0! !sc!!a1
! !sc!!a2! !sc!!a3!&t& !sc!!a4! !sc!!a5!Date &h& !sc!!a6! !sc!!a7!
svntl-al-8 rp !sc! svnn-1 unn0 wfon &r2& wfoff !sc!DATEINVOICE NO. DEB
IT CREDITBALANCE wfon &r3& wfoff !sc! svbinfols dm"Enter details (RETURN
to end) dm" rp av"Opening balance (- for credit) £" x if x"" sv x0 ei s
v totx+0 un totx if tot0 !sc!Carried fwd.&tot& svbb-1 ei rp dpt in "mus"
dm " " if musopt"" sv opt" " ei if musopt"m" sv musfiledf ei if musopt"u
" sv musfilenewfile ei if musopt"s" sv musfileselfile ei ei if we need
field list flist if opt in "clsz" if fv"f" sv flist"ru" el sv flist"rv
" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrlen ei if we ne
ed to do a cat m " av"Transaction date " cn ifcn"" av"Invoice number " en
av"Amount (- for credit) £" x sv qnx+0 if qnx dm"Please re-enter svcn" " up"
" qn0 el ifqn0 svup0-qn qn"" tottot-up el svqn0+qn up"" tottot+qn ei ei
if qn0 !sc!&cn&&en&&qn&&up&&tot& ei svbb-1 ei uncn"" ifb0 rp !sc! svbb-
1 unb0 ei !sc! !sc! !sc! !sc! !sc! !sc! !sc! wfon &r5& wfoff
iffo"" !sc!&fo& el !sc!The amount due is the last figure in the 'B if opt
in "dm" sv md"data" extd".PFI" ad"change to" sv mm"mail merge" extm".PMM" am"p
rint" sv mm&opt& extext&opt& aa&opt& dm "Available &m& files are listed below
(with &ext& extension)" dm " " ex cat *&ext& dm " " av "Enter name of &m& fi
le to &a& " catf 12 dm " " sv catfcatfw1 if catf"" sv opt"" el sv catfcatf
+ext df &catf& check existence cf ei ei OPTION S if opt"s" dmALANC
E' column ei !sc!E. & O.E. if prconame"y" !sc!VAT reg. no. &vatnum& ei ifi
c2"" pa ei ific2"f" wc cf ex exec om st " " ei svfnicw2+".pos" av"Send
to printer or screen (P/s) " x 1 wc id cpm df om ei wf om.x ifx"s" wm "p
s &fn&13 Press a key to continue13pause13load omenu13ps13 el wm "load &fn&13do
c13766p13load omenu13ps13 ei wc cf ex exec om.x ysversysver if sysver"" s
v cpm1 filedate1 fxon"" fxoff "Selections can be made from the following cases"
dm " " dm " 1 - cond1 (simple) dm " 2 - cond1 OR
cond2 dm " 3 - cond1 OR cond2 OR cond3 dm " 4 - cond1 AND cond2 dm " 5 -
cond1 AND cond2 AND cond3 dm " 6 - (cond1 OR cond2) AND cond3 dm " 7 - (co
nd1 AND cond2) OR cond3 dm " " rp av "Enter type of selection 1 to 7 " t 1
if t"" sv t"0" ei un t in "1234567" dm " " cf df fm.mus handle 0 rv mus
if musoptmus wf fm.mus hande (type letter, or 0 for none) &defdisc& " x 1 if x
"" sv defdiscx ei un defdisc in "0abcde" sv showdisc"n" rp av "Do you want
to display discount numbers each time (&y&) " x 1 if x"" sv showdiscx ei un
showdisc in "yn" ei cf df omenu wf omtemp.inf wm '&addrfile&,&invpath&,&pr
odfile&,&vatreg&,&phone&' wm '&vat1&,&vat2&,&vat3&,&vat4&,&vat5&,&nlines&,&rc2&
' wm '"&discA&","&discB&","&discC&","&discD&","&discE&","&vatnum&"' wm '&prcon
ame&,&exorinc&,&showdisc&,&asle 1 wm &musopt& wc ei wf fm.x handle 1 wm "l
fmstype&t&13y63916ps" wc cf let exec have handle 0 ex exec fm.x st ei opt"
s" OPTION C if opt"c" df &musfile& fo$end$ dm "Counting ... " dm " "
sv c"-1" rp &flist& sv cc+1 un f1"end" cf sv ccw1 dm "Number of records
&c&" dm " " sv opt"wt" ei opt"c" OPTION L if opt"l" dm "Datafile
&df&"tle if opt in "clszdm" sv ooo&opt& cs " " dm "Option &oo&"
dm " " ei ask for M U S if opt in "cszm" sv muss"select from" sv musc
"count" sv musz"sort" sv musm"mail merge" sv smus&opt& dm " M - Main data
file (&df&) dm " " dm " U - Update file (&newfile&) dm " " dm " S - S
election file (&selfile&) dm " " rp av "Enter data file to &s& m/u/s " musopt
1 un muso N dm "Update filename &newfile& dm "Selection filename &selfil
e& dm " " if fv"f" dm "Fixed record size, consisting of &rlen& fields" el d
m "Variable record size, consisting of up to &rlen& fields" ei dm " " dm "Fie
ld names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm " " sv
opt"wt" ei opt"l" OPTION Z if opt"z" rp av "Use options (&fsortopts
&) Y/n " yn un yn in "yn" if yn"" sv ynid df miss on first pass dm " " d
m "Field names " sv n0 rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm "
" dm Type "end" to finish dm " " dm av "&p1&" v1 if v1"end" wc cf let
exec have handle 0 ex exec fm st ei sv n"1" pad"n" chklenmax vlenmax rp
sv nn+1 nnw1 if pad"y" sv v&n&"" el sv sp&n& av "&s&" v&n& if fv"v" if v&
n&"" sv pad"y" vlenn chklenn-1 ei ei ei un nmax dm " " rp av ""y" ei
dm " " sv optsfsortopts if yn"n" av "Enter fsort options " opts dm " " ei
id cpm df fm$pfi$ sv optsopts+" /j" so does protext fm ei wf fm.x wm "clea
r13y639764766*fsort &musfile& &opts&13 Press a key to continue ...13pause13exec
fm13" wc cf let exec have handle 0 ex exec fm.x st ei opt"z" OPTION D
if opt"d" id cpm ex copy &catf& fm$pfi$ in fm$pfi$ el in &catf& wf fm$
pfi$ wm ' Correct Y/n " corr 1 if corr"" sv corr"y" ei un corr in "y
n" if corr"n" sk 00 ei if "," "'" or '"' can we add quotes sv n0 x"0" rp
sv nn+1 nnw1 sv sv&n& if "," in s sv x"1" el if "'" in s sv x"1" el if
'"' in s sv x"1" ei ei ei if x"1" if '"' notin s sv v&n&'"'+s+'"' el if
"'" notin s sv v&n&"'"+s+"'" ei ei sv x"0" ei un nchklen sv n0 if fv"
f" fix rp sv nn+1 nnw1 sv sv&n& wm !s! sv df"&df&"' wm 'sv newfile"&n
ewfile&' wm 'sv selfile"&selfile&"' wm 'sv fv"&fv&"' wm 'sv rlen"&rlen&"' sv
n0 rp sv nn+1 nnw1 sv sn&n& wm 'sv n&n&"&s&"' un nrlen wm 'sv fsortopts"&
fsortopts&"' wm 'sv maxw"&maxw&"' wm 'sv lastblank"&lastblank&"' wc ei cpm
ei opt"d" OPTION M if opt"m" id cpm rp av "Print to Screen or Print
er s/p " sfp 1 un sfp in "sp" el rp av "Print to Screen, un nrlen el var
rp sv nn+1 nnw1 sv sv&n& wm &s& un nvlen ei f/v cs "" sk 00 ei id df
iu df cs " " dm "Option A - Add records from keyboard to update file dm "
" in fm$pfi$ sv sysversysver if sysver"" sv cpm"1" ei sv fvfv1 rlenrlenw1
if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flist
flist+" f&n&" un nrlen sv n0 rp sv nn+1 nnw1 sv p&n&n&n& if p&n&&maxw&""
sFile or Printer s/f/p " sfp 1 un sfp in "sfp" ei dm " " if sfp"f" av "En
ter name of file to print to " dfn 16 dm " " sv x"load &catf&13pf &dfn&" if d
fn"" sv sfp"" ei ei if sfp"" df fm.mus rv mus leave open if musoptmus wf
fm.mus wm &musopt& wc ei sv x"load &catf&13ps" if sfp"p" sv x"load &catf&
13p" ei wf fm.x wm "&x&" wc cf ex exec fm.x st ei sfp"" ei opt"m"
if opt"wt" wt "Press a key to continue v p&n&p&n&+"
" ei sv p&n&p&n&1&maxw&+" " un nrlen iu cpm wf &newfile& a wc
ei df &newfile& rv s if s"end" wf &newfile& el wf &newfile& a ei sv
maxrlen if lastblank"y" sv maxrlen-1 maxmaxw1 v&max&"" ei ei iu df sv n0
rp sv nn+1 nnw1 sv sn&n& dm f&n& &s& un n)s!tsur!tounfqnp.R!tsurfsnrRfqnp
Rfn)Vsrpwfsnr#tsurfqnp... " ei cs " " nc 255 iu df
sv sysversysver if syid df &flist& if f1"end" &ff& if &c1& el sk00 ei
zm npoff sv n0 if fv"f" fixed rp sv nn+1 nnw1 sv sf&n& !s! un nrlen e
l var rp sv nn+1 nnw1 sv sf&n& if s"" sv sn+1 mn+2 ssw1 mmw1 sv sf&s&+f&m
& if s"" sv nrlen el sv s"$" ei ei !s! un nrlen ei f/v sv nnnn+1 el
f1end sv nnnnw1 N df omenu any data file nc
255 sv sysversysver if sysver"" sv cpm1 filedate1 ei iu cpm if sysver 3.0
7 sv filedate1 ei if sysver3.10 sv filedate1 ei ei cs " " dm " " dm "
*** P R O T E X T O F F I C E M E N U *** (v2.02) dm " "
dm " I - Print an Invoice dm " C -
Print a Credit note dm " Srint " fn 12 sv fnfnw1 if fn"
" if "." notin fn if dtype"s" sv fninvpath+fn+".pos" el sv fninvpath+fn+".p
oi" ei ei av "To printer or screen (p/s) " x 1 if x"" wf om.x if x"p" wm
"load &fn&13doc13766p13load omenu13ps" el wm "ps &fn&13 Press a key to continu
e13pause13load omenu13ps" ei wc cf ex exec om.x st ei x ei fn ei opt"
r" OPTION E if opt"e" -------!-------!-------!---- - Print a Statement
dm " N - Set invoice Number id filedate dm "
D - Set current Date ei dm " R - Reprint doc
ument dm " L - List invoice summary file dm "
E - Edit configuration settings dm " F - File
r menu dm " Q - Quit dm " " av " Ente
r option letter " opt 1 if opt"" sv opt" " ei if opt in "qsj" ---!-------
!-------!-------!-------!-------------------------------------------------------
-------------------R cf df ominvgen.inf rv addrfile,invpath,prodfile,vatreg,p
hone rv vat1,vat2,vat3,vat4,vat5,infolines,descwidth rv discA,discB,discC,disc
D,discE,vatnum rv prconame,exorinc,showdisc,askfn,askcar,useprod,defdisc rv ca
line,aline,tline,totline rv side,rc1,rc2,rc3,rc4,rc5 rv ruler1,ruler2,ruler3,r
uler4,ruler5 rv coname,coaddr1,coaddr2,coaddr3,coaddr4,coaddr5 cs " " dm PROT
EXT OFFIcf ex exec omopt&opt& st ei opt in "qsj" OPTION F if opt"f"
cf ex exec fm st ei OPTION L if opt"l" cf ex exec omoptl st ei
OPTION D if opt"d" cs " " cf df ominvgen.dat rv date av "Enter curre
nt date &date& " x if x"" sv datex id cpm cf df omenu ei wf ominvgen.dat
wm &date& wc ei x cf df omenu sk 00 CE CONFIGURATION PROGRAM dm " " av "
Type the name of your business &coname& " x if x "" sv conamex ei dm "Enter
your address (max 5 lines)" av "Line 1 &coaddr1& " x if x "" sv coaddr1x e
i av "Line 2 &coaddr2& " x if x "" sv coaddr2x ei av "Line 3 &coaddr3& " x
if x "" sv coaddr3x ei av "Line 4 &coaddr4& " x if x "" sv coaddr4x ei
av "Line 5 &coaddr5& " x if x "" sv coaddr5x ei dm " " av "Enter name of
address d ei opt"d" OPTION N if opt"n" cs " " rp av "Enter next i
nvoice number " num if num"" sv num" " ei un num1 in "0123456789" sv numnum
w1 id cpm cf df ominvgen.inf ei wf ominvgen.num wm &num& wc sk 00 ei o
pt"n" OPTION I if opt in "ic" cs " " cf df ominvgen.num rv num if o
pt"i" sv title"INVOICE" el sv title"CREDIT NOTE" ei wf ominvgen.num wload
fmenu y6391616ps Pload fmenu ps 244769 12a st marys street farcet pbor !
coname! !coaddr1! !coaddr2! !coaddr3! !coaddr4! !coaddr5! ex exec omeditr
st -------!-------!-------!-------!ysver3.10 sv filedate1 ei ei df ominv
gen.inf rv addrfile,invdrv,prodfile,vatreg rv vat1,vat2,vat3,vat4,vat5,infolin
es,descwidth rv discA,discB,discC,discD,discE rv prconame,exorincvat,showdisc,
askfn,askcar,useprod,defdisc rv caline,alim &num&,&title& wc cf ex exec omop
ti st ei opt in "ic" OPTION R if opt"r" cs " " cf df ominvgen.inf
rv addrdrv,invpath dm " " rp av "Invoice, credit note, or statement (I/c/s)
" dtype 1 if dtype"" sv dtype"i" ei un dtype in "ics" dm " " dm "List of a
vailable files. The file extension need not be typed." dm " " if dtype"s" ex
cat &invpath&*.pos el ex cat &invpath&&dtype&*.poi ei av "Enter name of file
to p Nelect records (cond1 OR cond2 or cond3)" dm " " in fm$pfi$ sv fvfv1 r
lenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1
sv flistflist+" f&n&" un nrlen dm "Field names " sv n0 rp sv nn+1 nnw1
sv sn&n& dm f&n& &s& un nrlen dm "When entering conditions below, please r
emember to enclose strings in quotes" dm 'e.g. "London" in F4 dm " " sv ok"'"
+ '"' + "0123456789." sv n"1" rp av "Enter condition av "Side margin &side&
" n if n"" sv siden ei av "Width of 'code' column in characters &rc1& " n
if n"" sv rc1n ei av "Width of 'description' column in characters &rc2& " n
if n"" sv rc2n ei av "Width of 'quantity' column in characters &rc3& " n
if n"" sv rc3n ei av "Width of 'unit price' column in characters &rc4& " n
if n"" sv rc4n ei av "Width of 'total' column in characters &rc5& " n if n"
" sv rc5n ei if prconameatafile &addrfile& " x 14 if x"" sv addrfilex ei
if phone"y" sv y"Y/n" el sv y"y/N" ei av "Does the address file have telep
hone numbers on line 2 &y& " x 1 if x"" sv phonex ei dm " " dm "Which drive
is to be used for storing invoices" id cpm sv invdrvinvpath1 rp av "Enter d
rive letter &invdrv& " x 1 if x"" sv invdrvx ei un invdrv in "abcdefm" sv i
nvpathinvdrv+"" el av "Enter path on which to store invoices &invpath& " x if
x"y" av "Line number to print your company address &caline& " n if n"" sv ca
linen ei ei av "Line number to print recipient's address &aline& " n if n""
sv alinen ei av "Line number to print titles &tline& " n if n"" sv tlinen
ei av "Line number to print totals &totline& " n if n"" sv totlinen ei
sv nlinestotline-tline nlinesnlinesw1 sv iwidthrc1+rc2+rc3+rc4+rc5+1 sv niwidt
h-31 dm " " if vatreg"y" dm "CONFIGURE VAT CODES" dm """ sv invpathx ei e
i dm " " if useprod"y" sv y"Y/n" el sv y"y/N" ei rp av "Do you wish to u
se a product file (&y&) " x 1 if x"" sv useprodx ei un useprod in "yn" if u
seprod"y" av "Enter name of product information file &prodfile& " x 14 if x""
sv prodfilex ei ei if prconame"y" sv y"Y/n" el sv y"y/N" ei rp av "Do
you want your name and address printed on the invoices (&y&) " x 1 if x"" sv p
rconamex ei un prconame in "yn" " sv vat1vat1*100 vat1vat1w1 sv vat2vat2*10
0 vat2vat2w1 sv vat3vat3*100 vat3vat3w1 sv vat4vat4*100 vat4vat4w1 sv vat5vat
5*100 vat5vat5w1 av "Percentage for VAT rate 1 &vat1& " x if x "" sv vat1x
ei av "Percentage for VAT rate 2 &vat2& " x if x "" sv vat2x ei av "Percen
tage for VAT rate 3 &vat3& " x if x "" sv vat3x ei av "Percentage for VAT r
ate 4 &vat4& " x if x "" sv vat4x ei av "Percentage for VAT rate 5 &vat5& i
f vatreg"y" sv y"Y/n" el sv y"y/N" ei rp av "Is your business registered f
or VAT (&y&) " x 1 if x "" sv vatregx ei un vatreg in "yn" if vatreg"y" i
f prconame"y" av "Enter your VAT number &vatnum& " x if x"" sv vatnumx ei e
i ei if vatreg"y" sv exorinc"x" el if exorinc"x" sv y"X/i" el sv y"x/I"
ei rp av "Do you want to enter prices ex VAT or inc VAT (&y&) " x 1 if x""
sv exorincx ei un exorinc in "xi" ei if askfn " x if x "" sv vat5x ei s
v vat1vat1/100 vat2vat2/100 vat3vat3/100 vat4vat4/100 vat5vat5/100 ei dm " "
if useprod"y" dm "ENTER PRODUCT AND CUSTOMER DISCOUNT CODES" dm " " dm "Each
product has an associated discount number" dm "and for each invoice a discount
letter may be used" dm " " dm "Thus the invoice for an order at discount A wil
l be" dm "calculated using discount rates A1, A2, A3 etc" dm " " dm "The valu
es entered here should be percentage discounts" dm "F"y" sv y"Y/n" el sv y"y
/N" ei rp av "Do you want to be asked for footnote each time (&y&) " x 1 if
x"" sv askfnx ei un askfn in "yn" if askcar"y" sv y"Y/n" el sv y"y/N" ei
rp av "Do you want to be asked for carriage each time (&y&) " x 1 if x"" sv
askcarx ei un askcar in "yn" sv dashes"-------------------------------------
-------------------------------------------" dm " " dm " " dm NOW CONFIGURE T
HE INVOICE FORMAT FOR YOUR STATIONERY dm " " Nor each discount letter enter l
ist of discounts for " dm "product type1, type2, type3 etc, separated by spaces
" dm " " av "% Discounts for A &discA& " x if x "" sv discax ei av "% Dis
counts for B &discB& " x if x "" sv discbx ei av "% Discounts for C &discC&
" x if x "" sv disccx ei av "% Discounts for D &discD& " x if x "" sv d
iscdx ei av "% Discounts for E &discE& " x if x "" sv discex ei rp av "E
nter most used discount cod ",date if date"" sv datesysdate ei av "Order ref
erence ",ref Display discount type sv xuseprod+showdisc custdisc0 if x"y
y" dm "Discount type numbers " sv n0 rp sv nn+1 nnw1 mn+1 mmw1 sv text n +
" " + discAw&n& + " " + discBw&n& + " " sv text text + discCw&n& + " " + dis
cDw&n& + " " + discEw&n& dm &text& un discAw&m&"" ei sv custdiscdefdisc if
useprod"y" rp av "Discount type (letter, 0full price) &defdisc& ",x 1 e (type
letter, or 0 for none) &defdisc& " x 1 if x"" sv defdiscx ei un defdisc in "
0abcde" sv showdisc"n" rp av "Do you want to display discount numbers each ti
me (&y&) " x 1 if x"" sv showdiscx ei un showdisc in "yn" ei cf df omenu
wf omtemp.inf wm '&addrfile&,&invpath&,&prodfile&,&vatreg&,&phone&' wm '&vat1
&,&vat2&,&vat3&,&vat4&,&vat5&,&nlines&,&rc2&' wm '"&discA&","&discB&","&discC&"
,"&discD&","&discE&","&vatnum&"' wm '&prconame&,&exorinc&,&showdisc&,&as if x""
sv custdiscx ei un custdisc in "0abcde" ei sv car"" if askcar"y" rp a
v "Carriage charge ",x if x"" sv x0 ei sv carx+0 un xcar ei sv footnote""
if askfn"y" av "Footnote ",footnote ei if vatreg"n" sv vat"n" el rp av
"Is VAT chargeable (Y/n) " vat 1 if vat"" sv vat"y" ei un vat in "yn" ei
ask for order levels from keyboard if useprod"y" dm " " dm "Enter quantit
ies for the following products" dm kfn&,&askcar&,&useprod&,&defdisc&' wm '&cal
ine&,&aline&,&tline&,&totline&' wm '&side&,&rc1&,&rc2&,&rc3&,&rc4&,&rc5&' sv r
c1rc1-1 rc2rc2-1 rc3rc3-1 rc4rc4-1 rc5rc5-1 sv r2c1rc1 r2c2rc2+3 r2c3rc3+2 r2c4
rc4-2 r2c5rc5-3 sv rc1rc1w1 rc2rc2w1 rc3rc3w1 rc4rc4w1 rc5rc5w1 sv ruler1""+d
ashes1&n&+"!"+dashes110+"L"+dashes117+"R" sv ruler2""+dashes1&rc1&+"!"+dashes1&
rc2&+"!"+dashes1&rc3&+"!" sv ruler2ruler2+dashes1&rc4&+"!"+dashes1&rc5&+"R" sv
r3c3"Typing anything other than a number will skip all remaining products" dm
" " sv n0 rp sv nn+1 nnw1 sv quant&n&"0" un nmaxn sv n0 rp sv nn+1 nnw
1 sv promptdesc&n& if prompt25"" sv promptprompt+"
" sv promptprompt125 ei av "&prompt& " x if x"" sv x0 ei sv quant&n&x+0
if xquant&n& sv quant&n&"0" sv nmaxn nnw1 ei if nmaxn dm " " av "Re-enter
order (y/N) " yesno 1 if yesno"y" sv n0 dm " r2c3-2 sv ruler3""+dashes1&r2c
1&+"!"+dashes1&r2c2&+"--."+dashes1&r3c3&+"." sv ruler3ruler3+dashes1&r2c4&+"."+
dashes1&r2c5&+"R" sv ruler4""+dashes1&n&+"!"+dashes114+"L"+dashes17+".--R" sv
niwidth-2 sv ruler5""+dashes1&n&+"R" wm '"&ruler1&"' wm '"&ruler2&"' wm '"&r
uler3&"' wm '"&ruler4&"' wm '"&ruler5&"' wm '!coname!' wm '!coaddr1!' wm '!
coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '!coaddr5!' wc cf ex era ominvg
en.inf id cpm ex ren ol fmadd13y63916ps13 cs " " nc 255 i
u df sv sysversysver if sy end end end end end end end end end end
end end end end end end end end end end end end end end rlen !b
lank! sk "q""q" el v rp sv nn+1 nnw1 sv sf&n&+" " &sc&!s! if s" " sv sn
+1 mn+1 ssw1 mmw1 sv sf&s&+f&m& if s"" sv nrlen ei ei un nrlen !blank! s
k "q""q" ei fv ei all el f1end dm " minvgen.inf omtemp.inf el ex ren omt
emp.inf ominvgen.inf ei df omenu sk 00 ei opt"e" le nc 255 sv sysvery h
159206 16 b 159234 key c 159235 key d 159238 key e 159193 key f 159202 key
g 159203 ke!lO1 O8$e(+PbiOK WYt0cxu#a!Ld!$u&aYt$KYxu xu3!%yx0%jd)z#wP7T!4!yLZy
R!(1!(! Nl fmmerge13y63916ps13 cs " " nc 255 iu df sv sysve
rsysver if synrlen dm " " dm Type "end" to finish dm " " dm av "&p1&" v1
if v1"end" wc cf let exec have handle 0 ex exec fm st ei sv n"1" pad"n
" chklenmax rp sv nn+1 nnw1 if pad"y" sv v&n&"" el sv sp&n& av "&s&" v&n&
if fv"v" if v&n&"" sv pad"y" vlenn chklenn-1 ei ei ei un nmax dm " "
rp av " Cl fmfind13y63916ps13 cs " " nc 255 iu df
sv sysversysver if sy1 sv sf&n& wm !s! un nrlen el var rp sv nn+1 nnw1
sv sf&n& wm &s& if s"" sv nrlen ei un nrlen ei f/v sv nnnn+1 el f1end
sv nnnnw1 dm " " wt "&nn& records found. Press a key to continue ... wc cf
let exec have handle 0 ex exec fm st ei sk 00 ei id df iu df cs " " d
m "Option S.1 - Select records (-%$ 00c£2*#"*W#2#222y2w!""vn$7Drive - Retry, Ign
ore ol fmprint13y63916p13 cs " " nc 255 iu df sv sysversysv
er if sym "Searching ..." sv nn0 df fm.mus rv mus cf if mus"m" df &df& fm
end ei if mus"u" df &newfile& fmend ei if mus"s" df &selfile& fmend ei w
f &selfile& ei iu df poff sv n0 if fv"f" fixed rp sv nn+1 nnwd. Press
a key to continue ... wc cf ex exec fm st ei sk 00 ei id df iu df cs
" " dm "Option S.3 - Sr CancelDisc erroDisc missing or read faiFile is read on
lDrive not readWrite protecteSeek faiData erroNo datMissing address marBad forma
Media changeDisc unsuitable for drivDirectory fulDisc fulFile not founBad filena
mMaximum number of files opeBad file open modAre you sure (y/n)*.**.grpK fre gro
uInsufficient memory for prograThis program will only run under Amstrad CP/M Plu
s$82Lf8& N...!.*.0.6.9.Z.f.l!W!Q!K!2E!8!P9.2.-.(.#..... ..&"rnjfboso**aY84I ,!A
"#9%,-.!/%1lO2 $22(77(7($8(2 !y 84 6!wv F( NV*Lw#"Ly u 78."8CS0-S!"RS z 2£2£
£2£!Nwy!! ! "y6£"(YO!£!££2£$0% og ( (((6(((9(t((J +- %g!4!5&l"(E6/G"(/Y(*T-G(f-G
x0 !w*!w*#((8u#uGxG7GCSx% L!90)giM!jR0Byg8 G00 P,B+ #(# p !9w#zK G0w+xx u##(
.wu0££u£%%#)02066I60R!5!4"(+Y(*T,G(f, +0R O&g"*X6)))z)**Y6++gxAOzSeoCS""4!* "
+#((8#W!9To&"(&)))#!9o&"(&)))#!9+!e( 73!9+H# %n% (( (c F 8x8 HGBz7J #+ (F ('
+ (E (((81o! % s z #8 8 J #( ##7#+Fwx k- T W7 "uz++7 +7 8x # T+w7T T#
%Q# "(#&+g"(#&zWBO"HO"x"BODH2!67 (7B"G$y8 88OqOq" Oq"z"SS"%##% %8%8S*%0##"*
%8++"%8%0++*z z++## #F+Nw#wx+yG#%&U& O!Cy(1% %0yyW% 7y&Not enough memory to so
rt files B*#" 260+"# !S'! 1ST!VDS!! )22£f6£7 8"(v$ , vAr( ('(#((((!r82 8 !0k)"
*SS!0B*6 6!6"6#( 27Y!0 72%$ ! 228 !)"*SS!*$ww ww w!w"w#0#0(72%$ ! r***pW%$ww w
*W%pn!f"(++"Y! *#"o&!4!5 )o£G(&)))8S#&)))£IO#zWI z zW"(II"o&)#fo)l&)))e6!*£S£*%
!%%!9S£O(O#IO#zWI"( J6%-%"2y*R$$,"*g,*o$*$,* N"2 7#o+# #WO(7(7!*+"(,!""*!%+"!"j
a#K"#*K(#8S *(+"!z(S!"*+"Y! 7 *)2!%%G E##V###V!R(w#s#r!r0(Gx7Gx8 G ""C!R%87*KS*
"%XY!b!"X*xZ%*"*w#w#w* "0""7!(!( ! (! B8 y!E7X*#*u!t"%+"G"((( Dh&)))))))7B8 !E7H
)))))))X**u!t"%"2"7#2##z###z#GxGx8x/."( ((ge" 0(0g"*22b"07G**z%x*"*+B"a!S03Y!(+0
,KyOCx( *SGx7*RDM!"Gx x *Sw 8 2!%%O 5##V###V!%0 p#s#r7x2!8 O "C!R%8**K*"**xZ%*"
*B"!0q*!0G)))))))"W(*+"Y!8($KyOC*xZ%G"B++"%86"#s#r#7!D"#"###A# R# N# O# R#(%%Bs#
r7!9Rn#%7$#81$71$e"S ((#6"* *(6 *# $A227OGy07$ y"(h$!$$%(OXoy7"72O !-!&kyAW$!
0%!(#(!x79! 2 x8 W##z#J 27 *W ( 2*((+%$D7!*$#$#$*!%+%8w *!6(ABwAw Kw**W%*!**W%
$ww w0279! £!q# !n%%Yp7!£p78!(( !M(! B!B%R(I7( C(gDC8CSOR%#foa O(!G)R%0&U&8$&(#(
+x&G&))))f&+x&U&bk)))0o&+x& 8&(7 /&, U&%GA0%A0 #n&n&r2&&&r&&1&2&&&&2&G&& *&wBK&&
1£p2!W%!q# 7p77B2A2K2!W%!W%p07£p(9!q###!y##7£Up7(vx!y(#y(#(z!q(#&(#z4(#A(p7!z8£p
(*7!£8p827ppG2p7!%#p$A22#.&2&& (&'*&Arnor file sorting program v1.01ERROR - Text
too large to check in memory Out of memorToo many records to sorName of file to
sortEnter optionsPress Y to confirmUnknown optioPROTEXT.COMFMPROWORT.COMInsert
Protext disc and press a keyAPED.COMInsert editor disc and press a keyPress a ke
y to continue ..File sorted. Number of records deletedPossible duplicated recor
d 1 2 Type 1 to delete first, 2 to delete second, RETURN to keep both#!$8#(#8 x
#1$7#+ %A1$71$0O$2!6######6#6G ! 7p!p "S(I (E 0&+# % (0 (, 0+#% #. % $7# (+ #
+7T # ( !( !7y2!%%2#2#2#2#2#2#2#2#2#2#2#2#2#2!%%w#w#w#w#w#w#w#w#w#w#w# N Avai
lable options /A(fldlist) alphabetic sort /D(fldlist) decreasing numeric
sort /Fn fixed record of n fields /H list options /
L(fldlist) sort on last word /N(fldlist) numeric sort /P(fldlist) perso
nal name sort /Qn query if n fields match /Sn1,n2,... sort on fi
elds n1,n2,... /T fields delimited by tab /V variable
record length /W(fldlist) sort on first word /Z(fldlist) reverse alphabe
tic sort ( ('("(4+3F+3"G+SI++# ## *G+F+(K3G+# ## ( I+F+(3G (EF+3G+G
05 (#5 ( ## ++ ## +# ('("(( ('("((F+ !+%!+D%"G+SI+44 # 5(((55T+,G# ( +6
(%8+6(- #bk#,G ( 6(%86(- 52C+KG+ i#KI+ PY54%8%8 %,(7+(I5+G(I5I5I58 0
072+ ! 0 0++ 0 02+0# 0#!,%,(3+(5+G(5558 u u75(u# #75(#2C+2C+62B+52E+5G52D+ (
DE+ (D+5Oy E+GD+C+ x6xGy(GB+ x2B+#C+6E+GD+(D+B+D+ E+ *G+I+2C+6 .G,xE+GD+C+ x6x
Gy(GB+ x2B+#C+6E+GD+(D+B+D+ !6"#"*** u(*#-**u (7*( !' 0!'6 -!'O$£#0!'O$£#0!(*%8e
-!'(£#0!0(*%8!T(*%!-'*O!M+x(!M+# (+./(- #%H.+ !!'*!+B/B/!+M+H!M+/S*x2+S+2+/8#!'*
!M+# +6 #B////(-(S+x2+.bk#%#J 2*.F %8S+2+.V 2+.PN/AN/ZN/DN/NN/WN/LN/Q %82,9T 2,
.S !+/0s#H(!'*!)*B//0 /B.-B., 2+!+# 6!+# 6s*J0**/H8*!+# q!+# q.z !+%qD!+%q/8.2+&
- 2+#%+7!RT7!'*%%Y(N uY7 00(+x&30 Ox&B&( #7"'+x& 30(7/& G*x**+%6r2**++%62***"*""
*"2+"R**%0!O'*DM**2+r*12+*2+**10"sr##*+#"+%8!'**+(**1** ff"" sv n1 rp sv nn+1
nnw1 sv ffff+"+f&n&" un nrlen ei dm " " dm "Searching ..." sv nn0 df f
m.mus rv mus cf if mus"m" sv fdf ei if mus"u" sv fnewfile ei if mus"s"
sv fselfile ei df &f& fo$end$ wf &selfile& ei iu df ff& sv x0 if &c3& s
v x1 el if &c1& if &c2& sv x1 ei ei ei sk x0 zm ntinue ... wc cf ex
exec fm st ei sk 00 ei id df iu df cs " " dm "Option S.2 - Select reco
rds (cond1K+nf# (+2+5##x *1!o(**++Rz(!(-!(-2+,(0+(1+G(17118 7( ++(%+(0# 0##
#2+2+T7# #7N#F+wy#wx!1 2!+2 (!, # bk# (#!(*5!(*bk5!(*%C/1( 2( ("u# ubk#
£ 2F+, cF+2DG(5( (#5( ( # # +# ('(" Nf2! phone !f3! !f4! !f5! !f6! !f7!
!f8! EI EI PA EI f1 UN f1"end" END OF MAIN MAIL MERGE SECTION EX exe
c fm finished, so go back to filer menu ST EI id df Label printer (3
across) (c) Arnor 1988 IU lm SV gt"" SV dashes80"--------------------------
------------------------------------------------------" CS DM " " DM PROTEXT
label printing program (3 across) DM " " AV "Number of lines per label &defpl&
" n SV pldefpl Mahler Symphony no. 4 CD 1984 Chicago S.O. with Kiri Te
Kanawa Sir Georg Solti Mike Oldfield Tubular Bells Record 1973 Mo
zart Eine kleine Nachtmusik CD 1983 Wiener Philharmoniker James Levine M
ozart Klaviersonaten 10 & 17 Record 1979 "Karl Betz, piano" Mozart Sym
phonies 35 & 34 CD 1982 Concertgebouw Orchestra Nikolaus Harnoncourt Moza
rt Symphonies 40 & 41 Cass 1984 English Chamber Orchestra Jeffrey Tate P
aul Simon Graceland Cass 1987 Pink Floyd" ei ei un nmaxn ei usepr
od"y" print out heading at top of sheet dm " "
! l r wf on &ruler1& wfoff wm i
f prconame"y" wm !coname! wm !coaddr1! wm !coaddr2! wm !coaddr3! wm !coaddr
4! wm !coaddr5! ei go to line &aline& sv naline-caline-6 rp wm sv nn-1
un n0 wm !a0! wm !a1! wm !a2! wm !a3!&TITLE& wm !a4! wm !a5!Number &nu
mber& wm !a6!Date & Animals CD 1977 Pink Floyd Dark Side of th
e Moon CD 1973 Schumann Symphony no. 2 Record 1981 Wiener Philharmo
niker Zubin Mehta Suzanne Vega Solitude Standing CD 1987 Suzanne V
ega Suzanne Vega CD 1985 Tchaikovsky 1812 Overture CD 1982 Chicago
S.O. Daniel Barenboim Tchaikovsky Romeo and Juliet Cass 1983 Berliner P
hilharmoniker Herbert von Karajan Tchaikovsky Symphony no. 4 Record 1976
New York Philharmonic Leonard Bernstein Vivaldi The date& wm !a7!Order Re
f &ref& goto line &tline& sv ntline-aline-8 rp wm sv nn-1 un n0
! ! ! ! R wfon &rule
r2& wfoff wm CODEDESCRIPTIONQUANTITYUNIT PRICETOTAL !
! . . R wfon &ruler3& wfoff wm
print out order lines if useprod"y" dm "Calculating totals..." dm " " el
dm "Enter details of each item (RETURN to end) " Four Seasons Record
1981 "Astorre Ferrari, violin & the Stuttgart Soloists" M
arcel Couraud !coname! !coaddr1! !coaddr2! !coaddr3! !coaddr4! !coaddr5
! ex exec omeditr st -------!-------!-------!-------!ysver3.10 sv filedate
1 ei ei df ominvgen.inf rv addrfile,invdrv,prodfile,vatreg rv vat1,vat2,vat
3,vat4,vat5,infolines,descwidth rv discA,discB,discC,discD,discE rv prconame,e
xorincvat,showdisc,askfn,askcar,useprod,defdisc rv caline,ali dm " " ei sv n0
quant01 discount1 sv blanklinesinfolines coden"" sv tot0.00 if vat"y" sv du
ecar*vatcf1 el sv duecar ei sv vatdue-car rp if useprod"y" sv nn+1 nnw1
if quant&n& 0 sv coden"" el sv descndesc&n&1&descwidth& sv codencode&n& if
coden"" sv coden" " ei sv quantnquant&n&w1 sv pricenprice&n& sv vrprodvat&
n& if custdisc0 sv discount1 el sv proddiscnproddisc&n& sv discountdisc&cus
tdisc&w&proddiscn& sv discu ST EI id df Label printer (2 across) (c) A
rnor 1988 IU lm SV gt"" SV dashes80"---------------------------------------
-----------------------------------------" CS DM " " DM PROTEXT label printin
g program (2 across) DM " " AV "Number of lines per label &defpl& " n SV plde
fpl IF n "" SV pln EI AV " Width of labels &deflw& " n SV lwdeflw
IF n "" SV lwn EI AV " Left margin &deflm& " n SV lmdeflmount
discount/100 discount1-discount ei sv upricediscount*pricen sv pricediscount*
quantn*pricen ei el no product file av "Product code " coden if coden"" s
v nmaxn ei if coden"" av "Description " descn av "Quantity " x sv quan
tnx+0 quantnquantnw1 if xquantn dm "Bad quantity. Please re-enter" sv coden""
ei ei if coden"" av "Unit price £" x sv upricex+0 if xuprice dm "Meani
ngless price. Please re-enter" sv coden"" ei ei if c Nend end end end e
nd end end end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end .65
! L . R -------------------------------------------!----
----------L-------.--R GOODS TOTAL£364.91 Carriage£0.00 NET TOTAL£364.91
wf on wm Terms Strictly 30 Days Net wf off ei if title1"c" wf on wm Term
s This amount has been credited to your account wf off ei ei wf on wm E. &
O.E. if prconame"y" wm VAT reg. no. &vatnum& ei wf off wc sv fninvpath+tit
le1+number+".poi" av "Print invoice to printer or screen (P/s) " x 1 id cpm e
x ren &fn&&invpath&omtemp el ex era &fn& sv renfntitle1+number+".poi" ex ren
&invpath&omtemp &renfn& ei wf "omsummar.inf" a -------ewfile ei if mus"s"
sv fselfile ei df &f& fmend ei iu df lm& FF OFF RP Forever &flist&
IF f1"en dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el s
v flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n&" un nrlen dm
"Current datafile &df& sv fdfw1 sv newfilef+".new" sv selfilef+".sel" sv pfi
filef+".pfi" if fv"f" sv y"F/v" el sv y"f/V" ei dm " " rp av "Fixed or
variable sv df"music" sv newfile"music.new sv selfile"music.sel" sv fv"
Fixed" sv rlen"7" sv n1"artist/composer" sv n2"title" sv n3"medium" sv n4"y
ear recorded" sv n5"orchestra/performer" sv n6"conductor" sv n7"" sv fsortop
ts"/f7 /s1,2 /a1 /a2" sv maxw"20" sv lastblank"y" music.sel" sv fv"Fixed" s
v rlen"7" sv n1"artist/composer" skey to continue ... wc cf ex exec fm st
ei sk 00 ei if defined df iu df cs " " dm "Option S.4 - Seleoden"" if
vatreg"y" av "VAT code (0no VAT) 1 " vr 1 if vr notin "012345" sv vr"1" ei
if vr"" sv vr"1" ei ei dm " " sv pricenuprice pricepricen*quantn ei ei i
f coden"" sv vatcfnvatcf&vr& if vat"y" if exorincvat "i" sv upricediscount*
pricen/vatcfn sv pricediscount*quantn*pricen/vatcfn sv incpricediscount*pricen
*quantn sv vatvat+incprice-price el sv xprice*.15 incpriceprice+x vatvat+x e
i el sv incpriceprice ei if quant&n&0 sv tottot+price duedue+incprice wf
on wm &coden&&descn&&quantn&&uprice&&price& wf off sv blanklinesblanklines-1
ei ei coden"" if nmaxn if useprod"y" sv useprod"n" n"0" discount1 dm "Ent
er details of any other items (RETURN to end) " dm " " ei ei un nmaxn do
sufficient blank lines for missing items if blanklines0 rp wf on wm wf of
f sv blanklinesblanklines-1 un blanklines0 ei
!!-------!-------!-------!-------!-------!-------!-------!----R
if title1"i" sv s'I&number&&date&£&due&&a0&' el sv due0-due sv s'C&number&&
date&£&due&&a0&' ei id cpm sv ss+"
" sv ss+"
" sv ss1126 ei wm '&s&' wc wf om.x if x"s" wm "ps &fn&13 P
ress a key to continue13pause13load omenu13ps" el wm "p &fn&13load omenu13
L . R wf on &ruler4& wf off sv carcar+0 sv exvtot+car wf o
n if askcar"y" wm GOODS TOTAL£&tot& wm Carriage£&car& el wm wm ei if
vatreg"y" wm NET TOTAL£&exv& wm VAT£&vat& el wm wm ei wm AMOUNT DUE
£&due& wm wm
R wf on &ruler5& wfoff co bottom line comment here if footnote""
wf on wm &footnote& wf off el if title1"i" Nps" ei wc cf ex exec om.x
st " " cs " " sv sysversysver if sysver"" s,23,45 3,14,18,15
,17,9 "-------------------------------------------!----------L-----------------
R" "-------------!-----------------!--------------!----------------!--------R"
"-------------!----------------------.--------------.--------------.-----R" "-
------------------------------------------!--------------L-------.--R" "-------
-----------------------------------------nt name ",n cf df&dataf& fo$end$ rp
if phone"y" rv a0,x,a1,a2,a3,a4,a5,a6,a7,x el rv a0,a1,a2,a3,a4,a5,a6,a7,x
ei ifn in a0 dm" dm"Found '&a0&' av"Correct (Y/n) " d 1 ei ifa0"end" dm"
dm"Not found svd"y" ei und"n" ei ifa0"end" sva3"" a4"" a5"" a6"" a7""
dm" dm"Enter address, or press RETURN to return to menu dm" av"Name " a0 i
fa0"" wc cf ex exec om st " " ei av"&a&1 " a1 av"&a&2 " a2 ifa2"" av"&a
&3 " a3 ifa3"end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end end e
nd end end end end end end end end end end end end end end end e
nd end end end end rlen !blank! sk "q""q" el v rp sv nn+1 nnw1 sv
sf&n&+" " &sc&!s! if s" " sv sn+1 mn+1 ssw1 mmw1 sv sf&s&+f&m& if s"" sv n
rlen ei ei un nrlen !blank! sk "q""q" ei fv ei all el f1end dm " " a
v"&a&4 " a4 ifa4"" av"&a&5 " a5 ifa5"" av"&a&6 " a6 ifa6"" av"&a&7 " a7 e
i ei ei ei ei ei av"Statement date &sysdate& ",h ifh"" svhsysdate ei s
vfo"" ifafn"y" av"Footnote ",fo ei dm" ! ! ! !
! !
R wfon &r1& wfoff !sc! ifprconame"y" !s
c!!con! !sc!!coa1! !sc!!coa2! !sc!!coa3! !sc!!coa4! !sc!!coa5! ei svnal-c
al-6 rp !sc! svnn-1 unn0 !sc!!a0! !sc!!a1! !sc!!a2! !sc!!a3!&t& !sc!!a4
! !sc!!a5!Date &h& !sc!!a6! !sc!!a7! svntl-al-8 rp !sc! svnn-1 unn
0 wfon &r2& wfoff !sc!DATEINVOICE NO. DEBIT CREDITBALANCE wfon &r3& wf
off !sc! svbinfols dm"Enter details (RETURN to end) dm" rp av"Opening ba
lance (- for credit) £" x if x"" sv x0 ei sv totx+0 un totx if tot0 !sc!C
arried fwd.&tot& svbb-1 ei rp dm cs" dm"Statement generator (c) Arnor 1988
dm" sv sysversysver if sysver"" sv cpm1 filedate1 fxon"" fxoff"" ei iu c
pm sv dc"dc" fxon"fxon" fxoff"fxoff" &fxon& &dc& "." if sysver 3.07 sv fil
edate1 ei if sysver3.10 sv filedate1 ei ei id filedate cf df ominvgen.da
t rv sysdate cf ei he fo svfh1 a"Address line " dfominvgen.inf rvdataf,i
nvpath,x,x,phone rvx,x,x,x,x,infols,ew rvx,x,x,x,x,vatnum rvprconame,x,sj,afn
,x,x,x " av"Transaction date " cn ifcn"" av"Invoice number " en av"Amount
(- for credit) £" x sv qnx+0 if qnx dm"Please re-enter svcn" " up"" qn0 el
ifqn0 svup0-qn qn"" tottot-up el svqn0+qn up"" tottot+qn ei ei if qn0 !s
c!&cn&&en&&qn&&up&&tot& ei svbb-1 ei uncn"" ifb0 rp !sc! svbb-1 unb0 e
i !sc! !sc! !sc! !sc! !sc! !sc! !sc! wfon &r5& wfoff iffo"" !
sc!&fo& el !sc!The amount due is the last figure in the 'BALrvcal,al,tl,totl
rvside,x,x,x,x,x rvr1,r2,r3,x,r5 rvcon,coa1,coa2,coa3,coa4,coa5 cf av "Sta
tement to printer or file (p/F) " x 1 if x"p" sv ic"p" sc"" el rp av "Name
of file " name 8 un name"" sv name"&invpath&&name&.pos" sv ic"pf &name&" sc"w
m " id cpm df om ei wf &name& ei wfon zm tm&cal& sm&side& wfoff ific2
"f" wfon ffon wfoff ei svt"STATEMENT" svmn0 svd"n" a0"end" av"Search dat
afile (y/N) " x 1 ifx"y" av"Accou NANCE' column ei !sc!E. & O.E. if prcona
me"y" !sc!VAT reg. no. &vatnum& ei ific2"" pa ei ific2"f" wc cf ex exec
om st " " ei svfnicw2+".pos" av"Send to printer or screen (P/s) " x 1 wc
id cpm df om ei wf om.x ifx"s" wm "ps &fn&13 Press a key to continue13pause
13load omenu13ps13 el wm "load &fn&13doc13766p13load omenu13ps13 ei wc cf
ex exec om.x sysversysver if sysver"" sv cpm1 filedate1 fxon"" fxoff if f""
sv f"*" ei sv ff"" if f"*" sv f"0" ff"sv f0f1" sv n1 rp sv nn+1 nnw1 sv
ffff+"+f&n&" un nrlen ei if opt"u" df &newfile& fo$end$ ei if opt"m" d
f &df& fo$end$ ei if opt"s" df &selfile& fo$end$ ei ei iu df end" &ff&
sk d notin f&f& dm " " dm "Found &f1&" sv n1 rp sv nn+1 nnw1 sv skey to
continue ... wc cf ex exec fm st ei sk 00 ei if defined df iu df cs
" " dm "Option S.4 - Sele1"i" wf on wm Terms Strictly 30 Days Net wf off ei
if title1"c" wf on wm Terms This amount has been credited to your account w
f off ei ei wf on wm E. & O.E. if prconame"y" wm VAT reg. no. &vatnum& ei
wf off wc sv fninvpath+title1+number+".poi" av "Print invoice to printer or
screen (P/s) " x 1 id cpm ex ren &fn&&invpath&omtemp el ex era &fn& sv ren
fntitle1+number+".poi" ex ren &invpath&omtemp &renfn& ei wf "omsummar.inf" a
-sv sysversysver if sysver"" sv cpm"1" ei iu pfifile cs " " nc 2 dm "Opt
ion I - Initialise new data file dm " " av "Name of new data file " df sv fdf
w1 sv newfilef+".new" sv selfilef+".sel" sv pfifilef+".pfi" if f"" ex exec
fm st ei dm " " rp av "Fixed or variable length records f/v " fv 1 un fv i
n "fv" dm " " if fv"f" rp sv fv"Fixed" av "Number of fields " rlen sv fsor
topts"/f&rlen&" un rlen"2" dm " " rp av "Is the last fiid df &flist& if f1
"end" &ff& sk d notin f&f& dm " " dm "Found &f1&" sv n1 rp sv nn+1 nnw1
sv sf&n& dm " &s&" un nrlen dm " " rp av "OK y/N " yesno 1 un ye
sno in "yn" sk yesno"y" dm " " dm "Writing data ..." wf fm.one sv n0 rp s
v nn+1 nnw1 sv sf&n& wm !s! un nrlen wc wf fm.x id cpm wm "clear13y766mer
ge fm.one137652335412330" el wm "clear13y766merge fm.one13765538541538512" el
d always to be blank (Y/n) " lastblank 1 un lastblank in "yn" if lastblank""
sv lastblank"y" ei el rp sv fv"Variable" lastblank"n" av "Maximum number of
fields " rlen sv fsortopts"/v" un rlen"2" ei dm " " dm "Please enter field
names " sv n0 rp sv nn+1 nnw1 av "field&n& " n&n& 40 if lastblank"y" if n
rlen-1 sv nrlen sv n&n&"" ei ei un nrlen work out max field name width!
sv maxw"1" sv n"1" rp if n&n&&maxw&"" sv ei wm "l fm.one13y63976423329233
" wc cf let exec have handle 0 ex exec fm.x st el f1end dm " " wt "Not f
ound. Press a key to continue ..." ex exec fm st ei f1end ei if defined df
iu df sv sysversysver if sysver"" sv cpm"1" ei cs " " dm "Option F - F
ind single record dm " " in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"r
u" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flist flist + " f&n&" ma
xwmaxw+1 maxwmaxww1 el sv nn+1 nnw1 ei un nrlen sv m2"" m3"" t2"" t3"" d
m " " av "First field number for sorting on 1 " m1 if m1"" sv m1"1" ei av "
sort type A/z/p/w/l/n/d " t1 if t1"" sv t1"a" ei dm " " av "S
econd field number for sorting on " m2 if m2"" av " sort type A/z/p
/w/l/n/d " t2 if t2"" sv t2"a" ei dm " " av "Third field number for sorti
ng on " m3 if m3"" av " sortun nrlen dm " M - Main data file (
&df&) dm " " dm " U - Update file (&newfile&) dm " " dm " S - Selecti
on file (&selfile&) dm " " rp av "Enter file to select from m/u/s " opt 1
un opt in "mus" if opt"" ex exec fm st ei dm "Field names " sv n0 rp s
v nn+1 nnw1 sv sn&n& dm f&n& &s& un nrlen dm " " av "Enter data string to
look for " d av "Enter field number to search on * " f 2 if f1"f" sv f
f2 ei N type A/z/p/w/l/n/d " t3 if t3"" sv t3"a" ei ei ei if t11 notin
"/-" sv t1"/"+t1 ei sv t1t1+m1 if t2"" if t21 notin "/-" sv t2"/"+t2 ei
sv t1t1+" "+t2+m2 ei if t3"" if t31 notin "/-" sv t3"/"+t3 ei sv t1t1+
" "+t3+m3 ei if m2"" sv m1m1+","+m2 ei if m3"" sv m1m1+","+m3 ei sv
fsortopts fsortopts + " /s"+m1 + " "+t1 dm " " dm "FSORT options are now '&fs
ortopts&'." dm " " av "Please enter any other FSid df &flist& if f1.00"end"
sv n"0.00" rp sv nn+1 sv sf&n& if "," in s sv x"1" el if "'" in s sv x"
1" el if '"' in s sv x"1" ei ei ei if x"1" if '"' notin s sv s'"'+s+'"'
el if "'" notin s sv s"'"+s+"'" ei ei sv x"0" ei if s"" if fv"v" sv s
n+1 mn+2 sv sf&s&+f&m& if s"" sv nrlen el sv s"$" ei ei ei wm &s& un n
rlen el f1end wc cf id cpm ex copy fo$end$ &newfile& el wf &newfile& wc
ei wtORT options " fopts if fopts"" if fopts1 notin "/-" sv fopts"/"+fopts
ei sv fsortoptsfsortopts+" "+fopts ei dm " " dm "Checking files ... id cp
m make sure update file exists (because "wf file a" needs existence) sv fnewf
ilew1+".bak" ex copy fo$end$ &f& ex ren &f& &newfile& real file in .b
ak ex ren &newfile& &f& real file in real file (sic) sv fdfw1+".bak"
ex copy fo$end$ &f& ex ren &f& &df& real file in .bak ex ren &df& &f
& "Press a key to continue ... ex exec fm st ei f1 ei id df iu df cs
" " dm "Option U - Merge update file into main file dm " " in fm$pfi$ sv sy
sversysver if sysver"" sv cpm"1" ei sv fvfv1 rlenrlenw1 if fv"f" sv flist"
ru" el sv flist"rv" ei sv n"0.00" rp sv nn+1 sv flistflist+" f&n&" un nr
len sv nn+1 mn+1 sv f&n&"" f&m&"" id cpm df &df& rv s if s"end" wf &df&
el wf &df& a ei el wf &df& a ei cf df real file in real file (sic)
el wf &newfile& a wc ei dm " " dm "Writing files ..." id cpm cf df fm$
pfi$ handle 0 ei ei iu pfifile Now write them out wf &pfifile& handle 1 w
m 'sv df"&df&" wm 'sv newfile"&newfile& wm 'sv selfile"&selfile&" wm 'sv
fv"&fv&" wm 'sv rlen"&rlen&" sv n0 rp sv nn+1 nnw1 sv sn&n& wm 'sv n&n&"&
s&" un nrlen wm 'sv fsortopts"&fsortopts&" wm 'sv maxw"&maxw&" wm 'sv lastbl
ank"&lastblank& &newfile& fo$end$ sv x"0" dm "Merging ... dm " " ei iu df
&n& if "," in s sv x"1" el if "'" in s sv x"n2"telephone" sv n3"addr1" sv
n4"addr2" sv n5"addr3" sv n6"addr4" sv n7"addr5" sv n8"postcode" sv fsorto
pts"/v /s1 /p1" sv maxw"10" sv lastblank"n" sv selfile"address.sel" sv fv"Va
riable" sv rlen"8" sv n1"name" sv "&nn& records found. Press a key to continu
e ... wc cf ex exec fm st ei sk 00 ei id df iu df cs " " d" wc i
f pfifilew2"" cf let exec have handle 0 ex exec fm st el sv pfifile"fm$pfi$
" ei data file dif fv"f" fixed rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen
el var rp sv nn+1 nnw1 sv sf&n& wm &s& if s"" sv nrlen ei un nrlen e
i f/v sv nnnn+1 el f1end sv nnnnw1 dm " " wt "&nn& records found. Press a
key to continue ... wc cf ex exec fm st ei sk 00 ei id df iu df cs
" " dm "Option S.3 - S N SV defpl9 deflm0 default label sizes ID df
ZM FF off PL &pl& SM &lm& RP Forever &flist& IF f1"end" START OF MAIN
MAIL MERGE SECTION !f1! !f2! phone !f3! !f4! !f5! !f6! !f7! !f8! PA
EI f1 UN f1"end" END OF MAIN MAIL MERGE SECTION WT "Press a key to cont
inue ..." EX exec fm finished, so go back to filer menu ST EI id df
Label printer (1 across) (c) Arnor 1988 IU lm CS DM " " DM PROTEXT labe
l printing u ST EI id df Label printer (2 across) (c) Arnor 1988 IU
lm SV gt"" SV dashes80"-------------------------------------------------------
-------------------------" CS DM " " DM PROTEXT label printing program (2 acr
oss) DM " " AV "Number of lines per label &defpl& " n SV pldefpl IF n "" S
V pln EI AV " Width of labels &deflw& " n SV lwdeflw IF n "" SV lw
n EI AV " Left margin &deflm& " n SV lmdeflmprogram (1 across)
DM " " AV "Number of lines per label &defpl& " n SV pldefpl IF n "" SV pln
EI AV " Left margin &deflm& " n SV lmdeflm IF n "" SV lmn EI
EI iu lm Common code for mail merge templates iu df df fm.mus rv mus
cf in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" el sv flist"rv" e
i sv n0 rp sv nn+1 nnw1 sv flist flist + " f&n&" un nrlen sort out which
datafile to use (mai IF n "" SV lmn EI SV ruler1dashes802&lw& SV ruler2
dashes802&lw& EI iu lm Common code for mail merge templates iu df df fm.
mus rv mus cf in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f" sv flist"ru" glist"r
u" el sv flist"rv" glist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+" f&n
&" sv glistglist+" g&n&" un nrlen sort out which datafile to use (main/updat
e/selection) if mus"m" sv fdf ei if mus"u" sv fnn/update/selection) if mus
"m" sv fdf ei if mus"u" sv fnewfile ei if mus"s" sv fselfile ei df &f&
fo$end$ ei iu df efault label sizes ID df ZM FF off PL &pl& SM &lm& R
P Forever &flist& IF f1"end" wfile& fo$end$ ei if mus"m" df &df& fo$end$
ei if mus"s" df &selfile& fo$end$ ei if sfp"f" wf &f& ei df &flist&
if f1"end" zm if all"n" sv nmin-1 rp sv nn+1 nnw1 if d&n&"y" sv sf&n&
&sc&!s! ei ewfile ei if mus"s" sv fselfile ei df &f& fo$end$ ei iu df
& FF OFF RP Forever &flist& IF f1"ef&n& dm " &s&" un nrlen dm
" " rp av "OK y/N " yesno 1 un yesno in "yn" sk yesno"y" dm " " dm "Writin
g data ..." wf fm.one sv n0 rp sv nn+1 nnw1 sv sf&n& wm !s! un nrlen wc
wf fm.x id cpm wm "clear13y766merge fm.one137652335412330" el wm "clear13y7
66merge fm.one13765538541538512" SV defpl9 deflw26 deflm0 default label sizes
ID df ZM PL &pl& SM &lm& FF OFF RP Forever &flist& &glist& &hlist& IF
f1"end" START OF MAIN MAIL MERGE SECTION >&&ruler1&!&ruler2&!&ruler3&R I
F h1"end" !f1!!g1!!h1! !!g2!!h2! phone !f3!!g3!!h3! !f4!!g4!!h4! !f5!!g5!!
h5! !f6!!g6!!h6! !f7!!g7!!h7! !f8!!g8!!h8! EL IF g1"end" !f1!!g1! !f2!!g2
! phone !f3!!g3! !f4!!g4! !f5!!g5! !f6!!g6! !f7!!g7! !f8!!g8! EL !f1!
!SV defpl9 deflw41 deflm0 default label sizes ID df ZM PL &pl& SM &lm& FF O
FF RP Forever &flist& IF f1"end" START OF MAIN MAIL MERGE SECTION &glis
t& >&&ruler1&!&ruler2&R IF g1"end" !f1!!g1! !f2!!g2! phone !f3!!g3! !f4
!!g4! !f5!!g5! !f6!!g6! !f7!!g7! !f8!!g8! EL !f1! !f2! phone !f3! !f4!
!f5! !f6! !f7! !f8! EI PA EI f1 UN f1"end" END OF MAIN MAIL MERGE
SECTION EX exec fm finished, so go back to filer men !N!!!!!!!!!f2! phone
!f3! !f4! !f5! !f6! !f7! !f8! EI EI PA EI f1 UN f1"end" END OF
MAIN MAIL MERGE SECTION EX exec fm finished, so go back to filer menu ST
EI id df Label printer (3 across) (c) Arnor 1988 IU lm SV gt"" SV dash
es80"---------------------------------------------------------------------------
-----" CS DM " " DM PROTEXT label printing program (3 across) DM " " AV "Nu
mber of lines per label &defpl& " n SV pldefpl ------!-------!-------!-------!
-------!-------!-------!-------!----R if title1"i" sv s'INVOICE&number&&date&£
&due&&a0&' el sv due0-due sv s'CREDIT&number&&date&£&due&&a0&' ei id cpm s
v ss+" " sv ss+"
" sv ss1126 ei
wm '&s&' wc wf om.x if x"s" wm "ps &fn&13 Press a key to continue13pause13
load omenu13ps" el wm "p &fn&IF n "" SV pln EI AV " Width of label
s &deflw& " n SV lwdeflw IF n "" SV lwn EI AV " Left margin &
deflm& " n SV lmdeflm IF n "" SV lmn EI SV ruler1dashes802&lw& SV ruler2d
ashes802&lw& SV ruler3dashes801&lw& EI iu lm Common code for mail merge t
emplates iu df df fm.mus rv mus cf in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f
" sv flist"ru" glist"ru" hlist"ru" el sv flist"rv" glist"rv" 13load omenu13ps
" ei wc cf ex exec om.x st cs " " sv sysversysver if sysver""
s0&' el sv due0-due sv s'CREDIT&number&&date&£&due&&a0&' ei id cpm sv ss+
" " sv ss+"
" sv ss1126 ei wm
'&s&' wc wf om.x if x"s" wm "ps &fn&13 Press a key to continue13pause13load
omenu13ps" el wm "p &fn&hlist"rv" ei sv n0 rp sv nn+1 nnw1 sv flistflist+
" f&n&" sv glistglist+" g&n&" sv hlisthlist+" h&n&" un nrlen sort out which
datafile to use (main/update/selection) if mus"m" sv fdf ei if mus"u" sv f
newfile ei if mus"s" sv fselfile ei df &f& fo$end$ ei iu df SM &lm&
FF OFF RP Forever &flist& &glist& & rp sv fv"Fixed" av "Number of field
s " rlen sv fsortopts"/f&rlen&" un rlen"2" dm " " rp av "Is the last fifn&1
3 Press a key to continue13pause13load omenu13ps13 el wm "load &fn&13doc13766p
13load omenu13ps13 ei wc cf ex exec om.x ) Arnor 1988 dm" sv sysversysve
r if sysver"" sv cpm1 filedate1 ei iu cpm ure in the 'BALANCE' column ei
!sc!E. & O.E. if prcon"y" !sc!VAT reg. no. &vatnum& ei ific2"" pa ei ific
2"f" ex exec om st ei svfnicw2+".pos" av"Send to printer or screen (P/s) "
x 1 wc wf om.x ifx"s" wm "ps & Common header for mail merge templates ID df
&flist& IF f1"end" START OF MAIN MAIL MERGE SECTION &f1& &f2& phone
&f3& &f4& &f5& &f6& &f7& Dear Customer Thank you for your interest in
our range of products. We have pleasure in enclosing the information requested
. Yours Faithfully END OF MAIN MAIL MERGE SECTION PA SK 00
continue from top, with next data EL f1end EX exec fm finished, so go bac
k to filer menu ST EI f1 duct file av "Product code " coden if coden"" sv
nmaxn ei if coden"" av "Description " descn av "Quantity " quantn if
quantn"" sv quantn" " ei if quantn1 notin "0123456789" dm "Not a number. Ple
ase re-enter" sv coden"" ei ei if coden"" av "Unit price £" uprice if up
rice"" sv uprice" " ei if uprice1 notin ".0123456789" dm "Meaningless price.
Please re-enter" sv coden"" ei ei if coden"" if vatreg"y" av "VAT code (0
no VAT) 1EI id df cs dm "Mail merging ... Common code for mail merge te
mplates iu df df fm.mus rv mus cf in fm$pfi$ sv fvfv1 rlenrlenw1 if fv"f"
sv flist"ru" el sv flist"rv" ei sv n0 rp sv nn+1 nnw1 sv flist flist +
" f&n&" un nrlen sort out which datafile to use (main/update/selection) if
mus"m" sv fdf ei if mus"u" sv fnewfile ei if mus"s" sv fselfile ei df &
f& fo$end$ ei id df SECTION &f1& "N"""""""""address,A,products.inf
,y,y 0.15,0.00,0.00,0.00,0.00,22,18 "40 25 0","25 10 0","0 0 0","0 0 0","0 0 0
",1235784 y,i,n,y,y,y,0 4,12,23,45 5,14,18,15,17,9 "------------------------
-------------------!----------L-----------------R" "-------------!-------------
----!--------------!----------------!--------R" "-------------!----------------
------.--------------.--------------.-----R" "---------------------------------
----------!--------------L-------.--R" "---------------------------------------
----- om.x st cs " " sv sysversysver if sysver""
sate&£&due&&a0&' ei id cpm sv ss+"
" sv ss+"
" sv ss1126 ei wm '&s&' wc ei wf om.x if x"s" wm "ps &fn&
13 Press a key to continue13pause13load omenu13ps" el wm "p &fn&13load omenu13
ps" ei wc cf ex exec----------------------------R" Arnor Protext House Wa
inman Road Peterborough PE2 0BU y,i,n,y,y,y,0 4,12,23,45 5,14,184,12,23,4
5 5,14,18,15,17,9 "-------------------------------------------!----------L----
-------------R" "-------------!-----------------!--------------!---------------
-!--------R" "-------------!----------------------.--------------.-------------
-.-----R" "-------------------------------------------!--------------L-------.-
-R" "-------------------------------------------- GOODS TOTAL£&tot& wm Carria
ge£&car& el wm wm ei if vatreg"y" wm NET TOTAL£&exv& wm VAT£&vat& el
wm wm ei wm AMOUNT DUE£&due& wm wm wf on
R &ruler5& wfoff co bottom lin
e comment here if footnote"" wf on wm &footnote& wf off el if title1"i" w
f on wm Terms Strictly 30 Days Net wf off ei if title1"c" wf on wm Terms T
his amount has wf off sv carcar+0 sv exvtot+car wf on if askcar"y" wm GO
ODS TOTAL£&tot& wm Carriage£&car& el wm wm ei if vatreg"y" wm NET TOT
AL£&exv& wm VAT£&vat& el wm wm ei wm AMOUNT DUE£&due& wm wm
R wfon &rul
er5& wfoff co bottom line comment here if footnote"" wf on wm &footnote& w
f off el if title1"i" wf on wm Terms Strictly 30 Days Net been credited to y
our account wf off ei ei wf on wm E. & O.E. if prconame"y" wm VAT reg. no
. &vatnum& ei wf off wc sv fninvpath+title1+number+".poi" av "Print invoice
to printer or screen (P/s) " x 1 id cpm ex ren &fn&&invpath&omtemp el sv re
nfntitle1+number+".poi" ex ren &invpath&omtemp &renfn& ei wf "omsummar.inf" a
-------!-------!-------!-------!-------!-------!-------!-------!----R if titl
e1"i" sv s'INVOICE&number&&date&£&due&&a0&' el wf off ei if title1"c" wf on
wm Terms This amount has been credited to your account wf off ei ei wf on
wm E. & O.E. if prconame"y" wm VAT reg. no. &vatnum& ei wf off wc sv fnin
vpath+title1+number+".poi" av "Print invoice to printer or screen (P/s) " x 1
ex era &fn& id cpm ex ren &fn&&invpath&omtemp el sv renfntitle1+number+".poi
" ex ren &invpath&omtemp &renfn& ei wf "omsummar.inf" a -------!-------!----
---!-------!-------!-------!--- sv due0-due sv s'CREDIT&number&&date&£&due&&a0
&' ei id cpm sv ss+"
" sv ss+"
" sv ss1126 ei wm '&s&' wc ei wf om.x if x"s" wm "ps &fn&13 Press a key
to continue13pause13load omenu13ps" el wm "p &fn&13load omenu13ps" ei wc c
f ex exec om.x st cs " " sv sysversysver if sysver"" s----!-----
--!----R if title1"i" sv s'INVOICE&number&&date&£&due&&a0&' el sv due0-due
sv s'CREDIT&number&&date&£&due&&a0&' ei id cpm sv ss+"
" sv ss+"
" sv ss1126 ei wm '&s&' wc ei wf om.x
if x"s" wm "ps &fn&13 Press a key to continue13pause13load omenu13ps" el wm "
p &fn&13load omenu13ps" ei wc cf ex exec #N#########line-caline-6 rp wm
sv nn-1 un n0 wm !a0! wm !a1! wm !a2! wm !a3!&TITLE& wm !a4! wm !a5!Numbe
r &number& wm !a6!Date &date& wm !a7!Order Ref &ref& goto line &t
line& sv ntline-aline-8 rp wm sv nn-1 un n0 wfon !
! ! ! R &ruler2& wfoff wm CODEDESC
RIPTIONQUANTITYUNIT PRICETOTAL wfon ! !
. . R &ruler3& wfoar*vatcf1 carriage charged at V
AT rate 1 rp if useprod"y" sv nn+1 nnw1 if quant&n& 0 sv coden"" el sv d
escndesc&n&1&descwidth& sv codencode&n& sv quantnquant&n&w1 sv pricenprice&n&
sv vrprodvat&n& if custdisc0 sv discount1 el sv proddiscnproddisc&n& sv d
iscountdisc&custdisc&w&proddiscn& sv discountdiscount/100 discount1-discount e
i sv upricepricen*discount sv pricequantn*uprice ei el no product file av
"Product code " coden "Carriage ",car ei if car"" sv car0 ei sv footnote
"" if askfn"y" av "Footnote ",footnote ei if vatreg"n" sv vat"n" el rp a
v "Is VAT chargeable (Y/n) " vat 1 if vat"" sv vat"y" ei un vat in "yn" ei
ask for order levels from keyboard if useprod"y" dm " " dm "Enter quant
ities for the following products" dm "Typing anything other than a number will
skip all remaining products" dm " " sv n0 rp sv nn+1 nnw1 sv quant&n&"0"if
coden"" sv nmaxn ei if coden"" av "Description " descn av "Quantity "
quantn if quantn"" sv quantn" " ei if quantn1 notin "0123456789" dm "Not a
number. Please re-enter" sv coden"" ei ei if coden"" av "Unit price £" up
rice if uprice"" sv uprice" " ei if uprice1 notin ".0123456789" dm "Meaning
less price. Please re-enter" sv coden"" ei ei if coden"" if vatreg"y" av "
VAT code (0no VAT) 1 " vr 1 if vr notin "012345" sv vr un nmaxn sv n0 rp
sv nn+1 nnw1 sv promptdesc&n& if prompt25"" sv promptprompt+"
" sv promptprompt125 ei av "&prompt& " quant&n& sv xquant&n&1
if x notin "0123456789" sv quant&n&"0" sv nmaxn nnw1 el sv quant&n&quant&n&+
0 ei if nmaxn dm " " av "Re-enter order (y/N) " yesno 1 if yesno"y" sv n0
dm " " ei ei un nmaxn ei useprod"y" print out heading at top of sheet
dm " " wf o"1" ei if vr"" sv vr"1" ei ei dm " " sv pricenuprice price
pricen*quantn ei ei if coden"" sv vatcfnvatcf&vr& if vat"y" if exorincvat
"i" sv upriceuprice/vatcfn priceprice/vatcfn incpricepricen*discount*quantn s
v vatvat+incprice-price el sv xprice*.15 incpriceprice+x vatvat+x ei el sv
incpriceprice ei if quant&n&0 sv tottot+price duedue+incprice upriceuprice+0
wf on wm &coden&&descn&&quantn&&uprice&&price& wf off sv blanklin
! l r &ruler1& wf
off wm if prconame"y" wm !coname! wm !coaddr1! wm !coaddr2! wm !coaddr3!
wm !coaddr4! wm !coaddr5! ei go to line &aline& sv naline-caline-6 rp wm
sv nn-1 un n0 wm !a0! wm !a1! wm !a2! wm !a3!&TITLE& wm !a4! wm !a5!Numb
er &number& wm !a6!Date &date& wm !a7!Order Ref &ref& goto line &
tline& sv ntline-aline-8 rp wm sv nn-1 un n0nesblanklines-1 ei ei coden
"" if nmaxn if useprod"y" sv useprod"n" n"0" discount1 dm "Enter details of
any other items (RETURN to end) " dm " " ei ei un nmaxn do sufficient bl
ank lines for missing items if blanklines0 rp wf on wm wf off sv blanklin
esblanklines-1 un blanklines0 ei wf on
! L . R &ruler4& wf off sv carcar+0 sv exvtot+ca
r wf on if askcar"y" wfon ! ! !
! R &ruler2& wfoff wm CODEDESCRIPTIONQUANTITYUNIT PRICE
TOTAL wfon ! ! . .
R &ruler3& wfoff wm print out order lines if useprod"y" dm "Calc
ulating totals..." dm " " el dm "Enter details of each item (RETURN to end) "
dm " " ei sv n0 quant01 discount1 sv blanklinesinfolines coden"" sv tot0.0
0 vat0.00 duec $N$$$$$$$$$wm GOODS TOTAL£&tot& wm Carriage£&car& el wm
wm ei if vatreg"y" wm NET TOTAL£&exv& wm VAT£&vat& el wm wm ei wm
AMOUNT DUE£&due& wm wm wf on
R &ruler5& wfoff co bottom line comment here if
footnote"" wf on wm &footnote& wf off el if title1"i" wf on wm Terms Stri
ctly 30 Days Net wf off ei if title1"c" wf on wm Terms This amount h&rc4&+"
!"+dashes1&rc5&+"R" sv r3c3r2c3-2 sv ruler3""+dashes1&r2c1&+"!"+dashes1&r2c2&+
"--."+dashes1&r3c3&+"." sv ruler3ruler3+dashes1&r2c4&+"."+dashes1&r2c5&+"R" sv
ruler4""+dashes1&n&+"!"+dashes114+"L"+dashes17+".--R" sv niwidth-2 sv ruler5"
"+dashes1&n&+"R" wm '"&ruler1&"' wm '"&ruler2&"' wm '"&ruler3&"' wm '"&ruler
4&"' wm '"&ruler5&"' wm '!coname!' wm '!coaddr1!' wm '!coaddr2!' wm '!coadd
r3!' wm '!coaddr4!' wm '!coaddr5!' wc cf as been credited to your account
wf off ei ei wf on wm E. & O.E. if prconame"y" wm VAT reg. no. &vatnum& e
i wf off wc sv fninvpath+title1+number+".poi" av "Print invoice to printer o
r screen (P/s) " x 1 ex era &fn& id cpm ex ren &fn&&invpath&omtemp el sv re
nfntitle1+number+".poi" ex ren &invpath&omtemp &renfn& ei wf "omsummar.inf" a
-------!-------!-------!-------!-------!-------!-------!-------!----R if titl
e1"i" sv s'INVOICE&number&&date&ex era ominvgen.inf id cpm ex ren ominvgen.in
f omtemp.inf el ex ren omtemp.inf ominvgen.inf ei df omenu sk 00 ei opt"e
" df omenu any data file nc 255 sv sysver5""+dashe
s1&n&+"R" wm '"&ruler1&"' wm '"&ruler2&"' wm '"&ruler3&"' wm '"&ruler4&"' w
m '"&ruler5&"' wm '!coname!' wm '!coaddr1!' wm '!coaddr2!' wm '!coaddr3!' w
m '!coaddr4!' wm '!coaddr5!' wc cf ex era ominvgen.inf id cpm cf ex era om
invgen.inf id cpm ex ren ominvgen.inf omtemp.inf el ex ren omtemp.inf ominvg
en.inf ei df omenu sk 00 ei opt"e" df omenu any d
ata file nc 255 sv sysver----!----------------!--------R" "-------------!----
------------------.--------------.--------------.-----R" "---------------------
----------------------!--------------L-------.--R" "---------------------------
---------------------------------------- on if askcar"y" wm GOODS TOTAL£&tot&
wm Carriage£&car& el wm wm ei if vatreg"y" wm NET TOTAL£&exv& wm V
AT£&vat& el wm wm ei wm AMOUNT DUE£&due& wm wm wf on
R &ruler5& wfoff c
o bottom line comment here if footnote"" wf on wm &footnote& wf off el if
title1"i" wf on wm Terms Strictly 30 Days Net wf off ei if title1"c" wf on
w£&due&&a0&' el sv due0-due sv s'CREDIT&number&&date&£&due&&a0&' ei id cp
m sv ss+" " sv
ss+" " sv ss1126
ei wm '&s&' wc ei wf om.x if x"s" wm "ps &fn&13 Press a key to continue1
3pause13load omenu13ps" el wm "p &fn&13load omenu13ps" ei wc cf ex exec om
.x st cs " " sv sysversysver if sysver"" s %N%%%%%%%%%m Terms This amo
unt has been credited to your account wf off ei ei wf on wm E. & O.E. if p
rconame"y" wm VAT reg. no. &vatnum& ei wf off wc sv fninvpath+title1+number
+".poi" av "Print invoice to printer or screen (P/s) " x 1 id cpm ex ren &fn&
&invpath&omtemp el sv renfntitle1+number+".poi" ex ren &invpath&omtemp &renfn
& ei wf "omsummar.inf" a -------!-------!-------!-------!-------!-------!----
---!-------!----R if title1"i" sv s'INVOICE&number&invgen.inf id cpm ex ren
ominvgen.inf omtemp.inf el ex ren omtemp.inf ominvgen.inf ei df omenu sk 00
ei opt"e" NU $$$ df omenu any data file nc 255
sv sysveriwidth-2 sv ruler5""+dashes1&n&+"R" wm '"&ruler1&"' wm '"&ruler2&"'
wm '"&ruler3&"' wm '"&ruler4&"' wm '"&ruler5&"' wm '!coname!' wm '!coaddr1
!' wm '!coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '!coaddr5!' wc cf ex e
ra om&date&£&due&&a0&' el sv due0-due sv s'CREDIT&number&&date&£&due&&a0&' e
i id cpm sv ss+"
" sv ss+" " s
v ss1126 ei wm '&s&' wc id numflag sv numbernumber-1 numbernumberw1 wf omi
nvgen.num wm &number& wc ei wf om.x if x"s" wm "ps &fn&13 Press a key to c
ontinue13pause13load omenu13ps" el wm "p &fn&13load omenu13ps" ei wc cf ex
exec om.x st cs " " sv sysversysver if sysver"" sname&,&ex
orinc&,&showdisc&,&askfn&,&askcar&,&useprod&,&defdisc&' wm '&caline&,&aline&,&t
line&,&totline&' wm '&side&,&rc1&,&rc2&,&rc3&,&rc4&,&rc5&' sv rc1rc1-1 rc2rc2-
1 rc3rc3-1 rc4rc4-1 rc5rc5-1 sv r2c1rc1 r2c2rc2+3 r2c3rc3+2 r2c4rc4-2 r2c5rc5-3
sv rc1rc1w1 rc2rc2w1 rc3rc3w1 rc4rc4w1 rc5rc5w1 sv ruler1""+dashes1&n&+"!"+d
ashes110+"L"+dashes117+"R" sv ruler2""+dashes1&rc1&+"!"+dashes1&rc2&+"!"+dashes
1&rc3&+"!" sv ruler2ruler2+dashes1&rc4&+"!"+dashes1&rc5&+"R" sv r3c3r2c3-2 sv
ruler3""+dashes1&r2c1&+"!"+dashes1&r2c2&+"--."+dashes1&r3c3&+"." sv ruler3rule
r3+dashes1&r2c4&+"."+dashes1&r2c5&+"R" sv ruler4""+dashes1&n&+"!"+dashes114+"L"
+dashes17+".--R" sv niwidth-2 sv ruler5""+dashes1&n&+"R" wm '"&ruler1&"' wm
'"&ruler2&"' wm '"&ruler3&"' wm '"&ruler4&"' wm '"&ruler5&"' wm '!coname!'
wm '!coaddr1!' wm '!coaddr2!' wm '!coaddr3!' wm '!coaddr4!' wm '!coaddr5!'
wc cf ex era om &N&&&&&&&&& 'N''''''''' (N' xfsnr!!8p!9oxfqnp!!8p!9ofynxRo
!xofynxRro!xofynxtyuxo"onnEnHoyx7n*ofsnr)n&g"o!BKzWRofsnr)Vmln&! Vmlfwnv)s#"ofsn
r)n&tuut*!pfqnp)n&g"!p!JxWH0&q&p(mhn pn5"6d!DtWDADGQH!*yjIB(a!yPY%TI"rm £! "X$5g
J.CI!!(HF*)w28w NDIL