Protext Office And Protext Filer (UK) (Face A) (1988) [Original] [UTILITAIRE].dsk
HexaDumpAscii only
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    ..&gt&&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&..&gt&&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