Protext Office And Protext Filer (UK) (Face A) (1988) [Original] [UTILITAIRE].dsk
Size : 512 (Real : 512)
000000: 00 50 52 4F 44 55 43 54 53 49 4E 46 00 00 00 01 .PRODUCTSINF....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 CF 4D 20 20 20 20 20 20 20 20 20 00 16 00 01 ..M ....
000030: 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 CF 4D 49 4E 49 54 20 20 20 20 20 00 74 00 0A ..MINIT .t..
000050: 06 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 46 4D 4F 50 54 51 20 20 20 20 20 00 00 00 01 .FMOPTQ ....
000070: 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 C6 4D 20 20 20 20 20 20 4D 55 53 00 00 00 01 ..M MUS....
000090: 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 4F 4D 4F 50 54 49 20 20 20 20 20 00 17 00 01 .OMOPTI ....
0000B0: 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 C6 4D 53 54 59 50 45 31 20 20 20 00 00 00 10 ..MSTYPE1 ....
0000D0: 0B 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 CF 4D 53 55 4D 4D 41 52 49 4E 46 00 00 00 01 ..MSUMMARINF....
0000F0: 0E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: E5 46 4D 41 44 44 20 20 20 42 41 4B 00 00 00 0F .FMADD BAK....
000110: 1B 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .>..............
000120: 00 CF 4D 49 4E 56 47 45 4E 4E 55 4D 00 0B 00 01 ..MINVGENNUM....
000130: 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !...............
000140: 00 C6 4D 53 54 59 50 45 32 20 20 20 00 00 00 12 ..MSTYPE2 ....
000150: 13 14 15 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 41 44 44 52 45 53 53 20 53 45 4C 00 00 00 02 .ADDRESS SEL....
000170: 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 CF 4D 53 54 41 47 45 4E 20 20 20 00 3A 00 1C ..MSTAGEN .:..
000190: 2F 44 51 52 00 00 00 00 00 00 00 00 00 00 00 00 /DQR............
0001A0: 00 4F 4D 4F 50 54 53 20 20 20 20 20 00 1A 00 01 .OMOPTS ....
0001B0: 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 $...............
0001C0: 00 4F 4D 4F 50 54 51 20 20 20 20 20 00 19 00 01 .OMOPTQ ....
0001D0: 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &...............
0001E0: 00 4F 4D 4F 50 54 4A 20 20 20 20 20 00 19 00 01 .OMOPTJ ....
0001F0: 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2...............
Size : 512 (Real : 512)
000000: 78 2C 78 0D 0A 3E 72 76 20 72 75 6C 65 72 31 2C x,x..>rv ruler1,
000010: 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 75 ruler2,ruler3,ru
000020: 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 76 ler4,ruler5..>rv
000030: 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 2C coname,coaddr1,
000040: 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 2C coaddr2,coaddr3,
000050: 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 0D coaddr4,coaddr5.
000060: 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F .>>>..>cf..>df o
000070: 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 76 minvgen.num..>rv
000080: 20 6E 75 6D 62 65 72 2C 74 69 74 6C 65 0D 0A 3E number,title..>
000090: 64 6D 20 22 49 4E 56 47 45 4E 20 76 32 2E 30 30 dm "INVGEN v2.00
0000A0: 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 20 (c) Arnor 1988
0000B0: 20 28 26 74 69 74 6C 65 26 29 22 0D 0A 3E 64 6D (&title&)"..>dm
0000C0: 20 22 20 22 0D 0A 3E 3E 3E 0D 0A 3E 69 64 20 66 " "..>>>..>id f
0000D0: 69 6C 65 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 iledate..>cf..>d
0000E0: 66 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A f ominvgen.dat..
0000F0: 3E 72 76 20 73 79 73 5F 64 61 74 65 0D 0A 3E 65 >rv sys_date..>e
000100: 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 76 61 74 63 i..>>>..>sv vatc
000110: 66 30 3D 31 0D 0A 3E 73 76 20 76 61 74 63 66 31 f0=1..>sv vatcf1
000120: 3D 31 2B 76 61 74 31 09 3B 20 56 41 54 20 63 6F =1+vat1.; VAT co
000130: 6E 76 65 72 73 69 6F 6E 20 66 61 63 74 6F 72 73 nversion factors
000140: 0D 0A 3E 73 76 20 76 61 74 63 66 32 3D 31 2B 76 ..>sv vatcf2=1+v
000150: 61 74 32 0D 0A 3E 73 76 20 76 61 74 63 66 33 3D at2..>sv vatcf3=
000160: 31 2B 76 61 74 33 0D 0A 3E 73 76 20 76 61 74 63 1+vat3..>sv vatc
000170: 66 34 3D 31 2B 76 61 74 34 0D 0A 3E 73 76 20 76 f4=1+vat4..>sv v
000180: 61 74 63 66 35 3D 31 2B 76 61 74 35 0D 0A 3E 3E atcf5=1+vat5..>>
000190: 3E 0D 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 >..>>> read prod
0001A0: 75 63 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 uct info into de
0001B0: 73 63 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 sc1,desc2,...,pr
0001C0: 69 63 65 31 2C 70 72 69 63 65 32 2C 2E 2E 2E 63 ice1,price2,...c
0001D0: 6F 64 65 31 2C 63 6F 64 65 32 2C 2E 2E 2E 0D 0A ode1,code2,.....
0001E0: 3E 3E 3E 0D 0A 3E 73 76 20 6D 61 78 6E 3D 30 0D >>>..>sv maxn=0.
0001F0: 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 .>if useprod="y"
Size : 512 (Real : 512)
000000: 00 C6 4D 53 54 59 50 45 34 20 20 20 00 00 00 12 ..MSTYPE4 ....
000010: 34 36 37 00 00 00 00 00 00 00 00 00 00 00 00 00 467.............
000020: 00 C6 4D 20 20 20 20 20 20 20 20 20 00 1E 00 01 ..M ....
000030: 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^...............
000040: E5 CF 4D 45 4E 55 20 20 20 42 41 4B 00 66 00 51 ..MENU BAK.f.Q
000050: 07 0F 18 1A 1E 1F 20 23 27 2D 2E 00 00 00 00 00 ...... #'-......
000060: 00 4C 45 54 54 45 52 20 20 50 4D 4D 00 00 00 08 .LETTER PMM....
000070: 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "...............
000080: 00 C6 4D 53 54 59 50 45 33 20 20 20 00 00 00 14 ..MSTYPE3 ....
000090: 17 1C 33 00 00 00 00 00 00 00 00 00 00 00 00 00 ..3.............
0000A0: 00 CF 4D 49 4E 56 47 45 4E 44 41 54 00 0F 00 01 ..MINVGENDAT....
0000B0: 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 C6 4D 20 20 20 20 20 20 58 20 20 00 1A 00 01 ..M X ....
0000D0: 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 C1 44 44 52 45 53 53 20 4E 45 57 00 00 00 02 ..DDRESS NEW....
0000F0: 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 C6 4D 53 54 59 50 45 35 20 20 20 00 00 00 14 ..MSTYPE5 ....
000110: 38 3A 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 8:<.............
000120: 00 4F 4D 49 4E 56 47 45 4E 49 4E 46 00 00 00 05 .OMINVGENINF....
000130: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
000140: 00 C6 4D 53 54 59 50 45 36 20 20 20 00 00 00 14 ..MSTYPE6 ....
000150: 43 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 CEF.............
000160: 00 CF 4D 4F 50 54 4C 20 20 20 20 20 00 3E 00 01 ..MOPTL .>..
000170: 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 C6 4D 41 44 44 20 20 20 20 20 20 00 3F 00 0F ..MADD .?..
000190: 58 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 XY..............
0001A0: 00 46 4F 24 45 4E 44 24 20 20 20 20 00 00 00 02 .FO$END$ ....
0001B0: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 46 4D 24 50 46 49 24 20 20 20 20 00 00 00 03 .FM$PFI$ ....
0001D0: 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %...............
0001E0: 00 C6 4D 53 54 59 50 45 37 20 20 20 00 00 00 14 ..MSTYPE7 ....
0001F0: 47 48 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 GHM.............
Size : 512 (Real : 512)
000000: 6C 6F 61 64 20 6F 6D 65 6E 75 0D 0A 79 7C 36 33 load omenu..y|63
000010: 39 7C 70 73 0D 0A 1A 63 65 0D 0A 70 66 20 69 6E 9|ps...ce..pf in
000020: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
000030: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000040: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
000050: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
000060: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
000070: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
000080: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
000090: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
0000A0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
0000B0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
0000C0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
0000D0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
0000E0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0000F0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000130: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000140: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000150: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
000160: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
000170: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
000180: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
000190: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
0001A0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
0001B0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
0001C0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
0001D0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
0001E0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
0001F0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
Size : 512 (Real : 512)
000000: 00 C6 4D 45 4E 55 20 20 20 20 20 20 00 0C 00 35 ..MENU ...5
000010: 4F 50 53 54 55 56 57 00 00 00 00 00 00 00 00 00 OPSTUVW.........
000020: 00 CF 4D 45 4E 55 20 20 20 20 20 20 00 66 00 51 ..MENU .f.Q
000030: 5A 5B 5C 5D 5F 60 61 62 63 64 65 00 00 00 00 00 Z[\]_`abcde.....
000040: 00 C6 4D 45 44 49 54 20 20 20 20 20 00 00 00 1A ..MEDIT ....
000050: 49 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 IJKL............
000060: 00 C6 4D 20 20 20 20 20 20 4F 4E 45 00 00 00 01 ..M ONE....
000070: 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 N...............
000080: 00 CF 4D 20 20 20 20 20 20 58 20 20 00 48 00 01 ..M X .H..
000090: 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 41 44 44 52 45 53 53 20 20 20 20 00 00 00 08 .ADDRESS ....
0000B0: 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,...............
0000C0: 00 CD 55 53 49 43 20 20 20 20 20 20 00 00 00 11 ..USIC ....
0000D0: 19 7C 7D 00 00 00 00 00 00 00 00 00 00 00 00 00 .|}.............
0000E0: 00 CF 4D 49 4E 56 47 45 4E 20 20 20 00 56 00 45 ..MINVGEN .V.E
0000F0: 30 31 35 3B 3D 3F 40 41 42 00 00 00 00 00 00 00 015;=?@AB.......
000100: 00 CD 55 53 49 43 20 20 20 4E 45 57 00 00 00 02 ..USIC NEW....
000110: 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ~...............
000120: 00 C6 4D 4F 50 54 41 20 20 20 20 20 00 00 00 01 ..MOPTA ....
000130: 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g...............
000140: 00 C6 4D 4F 50 54 46 20 20 20 20 20 00 00 00 01 ..MOPTF ....
000150: 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 h...............
000160: 00 C6 4D 4F 50 54 50 20 20 20 20 20 00 00 00 01 ..MOPTP ....
000170: 69 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 i...............
000180: 00 C6 4D 4F 50 54 55 20 20 20 20 20 00 00 00 01 ..MOPTU ....
000190: 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 j...............
0001A0: 00 46 53 4F 52 54 20 20 20 43 4F 4D 00 00 00 6C .FSORT COM...l
0001B0: 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 00 00 klmnopqrstuvwx..
0001C0: E5 C6 4D 53 54 59 50 45 37 20 20 20 00 20 00 13 ..MSTYPE7 . ..
0001D0: 5C 5D 79 00 00 00 00 00 00 00 00 00 00 00 00 00 \]y.............
0001E0: E5 C1 44 44 52 45 53 53 20 42 41 4B 00 00 00 08 ..DDRESS BAK....
0001F0: 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Q...............
Size : 512 (Real : 512)
000000: 20 20 20 20 4C 20 2D 20 4C 69 73 74 20 69 6E 76 L - List inv
000010: 6F 69 63 65 20 73 75 6D 6D 61 72 79 20 66 69 6C oice summary fil
000020: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000040: 20 2D 20 45 64 69 74 20 63 6F 6E 66 69 67 75 72 - Edit configur
000050: 61 74 69 6F 6E 20 73 65 74 74 69 6E 67 73 0D 0A ation settings..
000060: 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 >dm "
000070: 20 20 20 20 20 20 20 20 20 20 20 20 46 20 2D 20 F -
000080: 46 69 6C 65 72 20 6D 65 6E 75 0D 0A 3E 64 6D 20 Filer menu..>dm
000090: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
0000A0: 20 20 20 20 20 20 20 20 51 20 2D 20 51 75 69 74 Q - Quit
0000B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 45 6E 74 65 72 20 6F 70 74 69 6F 6E 20 Enter option
0000E0: 6C 65 74 74 65 72 3A 20 22 20 6F 70 74 20 31 0D letter: " opt 1.
0000F0: 0A 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 22 .>>>..>if opt=""
000100: 0D 0A 3E 73 76 20 6F 70 74 3D 22 20 22 0D 0A 3E ..>sv opt=" "..>
000110: 65 69 0D 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 ei..>if opt in "
000120: 71 66 63 73 72 65 6A 22 0D 0A 3E 73 76 20 6F 71 qfcsrej"..>sv oq
000130: 3D 22 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 ="clear|13|y|639
000140: 7C 7C 37 36 34 7C 7C 37 36 36 7C 22 0D 0A 3E 73 ||764||766|"..>s
000150: 76 20 6F 66 3D 22 6C 6F 61 64 20 66 6D 65 6E 75 v of="load fmenu
000160: 7C 31 33 7C 70 73 22 0D 0A 3E 3E 3E 73 76 20 6F |13|ps"..>>>sv o
000170: 69 3D 22 6C 6F 61 64 20 6F 6D 69 6E 76 6F 69 63 i="load ominvoic
000180: 7C 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 |13||16|pf ominv
000190: 67 65 6E 2E 6E 75 6D 22 0D 0A 3E 73 76 20 6F 63 gen.num"..>sv oc
0001A0: 3D 22 6C 6F 61 64 20 6F 6D 63 72 65 64 69 74 7C ="load omcredit|
0001B0: 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 67 13||16|pf ominvg
0001C0: 65 6E 2E 6E 75 6D 22 0D 0A 3E 3E 3E 73 76 20 6F en.num"..>>>sv o
0001D0: 6E 3D 22 6C 6F 61 64 20 6F 6D 73 65 74 6E 75 6D n="load omsetnum
0001E0: 7C 31 33 7C 7C 31 36 7C 70 66 20 6F 6D 69 6E 76 |13||16|pf ominv
0001F0: 67 65 6E 2E 6E 75 6D 22 0D 0A 3E 3E 3E 73 76 20 gen.num"..>>>sv
Size : 512 (Real : 512)
000000: E5 4F 4D 49 4E 49 54 20 20 42 41 4B 00 00 00 0B .OMINIT BAK....
000010: 64 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 de..............
000020: E5 CF 4D 54 45 4D 50 20 20 42 41 4B 00 43 00 04 ..MTEMP BAK.C..
000030: 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 z...............
000040: 00 4D 55 53 49 43 20 20 20 50 46 49 00 00 00 03 .MUSIC PFI....
000050: 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: E5 CF 4D 54 45 4D 50 20 20 24 24 24 00 80 00 00 ..MTEMP $$$....
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 4D 55 53 49 43 20 20 20 53 45 4C 00 00 00 02 .MUSIC SEL....
000090: 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: E5 CF 4D 20 20 20 20 20 20 42 41 4B 00 4C 00 01 ..M BAK.L..
0000B0: 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 41 44 44 52 45 53 53 20 50 46 49 00 00 00 03 .ADDRESS PFI....
0000D0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
0000E0: 00 C6 4D 50 52 49 4E 54 20 20 20 20 00 02 00 14 ..MPRINT ....
0000F0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 )*+.............
000100: E5 CF 4D 49 4E 56 47 45 4E 42 41 4B 00 03 00 01 ..MINVGENBAK....
000110: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 C6 4D 46 49 4E 44 20 20 20 20 20 00 19 00 0F ..MFIND ....
000130: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 C6 4D 49 4E 49 54 20 20 20 20 20 00 72 00 19 ..MINIT .r..
000150: 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 C6 4D 4D 45 52 47 45 20 20 20 20 00 47 00 09 ..MMERGE .G..
000170: 8E 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 CC 41 42 45 4C 31 20 20 50 4D 4D 00 16 00 0A ..ABEL1 PMM....
000190: 90 91 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 CC 41 42 45 4C 32 20 20 50 4D 4D 00 51 00 0D ..ABEL2 PMM.Q..
0001B0: 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 CC 41 42 45 4C 33 20 20 50 4D 4D 00 48 00 0F ..ABEL3 PMM.H..
0001D0: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: E5 CC 45 54 54 45 52 20 20 42 41 4B 00 67 00 08 ..ETTER BAK.g..
0001F0: 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
000050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 65 6E 64 end..end.....end
000100: 22 0D 0A 3E 73 76 20 63 70 6D 3D 31 0D 0A 3E 65 "..>sv cpm=1..>e
000110: 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E i..>df ominvgen.
000120: 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 66 69 6C inf..>rv addrfil
000130: 65 2C 69 6E 76 64 72 76 2C 70 72 6F 64 66 69 6C e,invdrv,prodfil
000140: 65 2C 76 61 74 72 65 67 0D 0A 3E 72 76 20 76 61 e,vatreg..>rv va
000150: 74 31 2C 76 61 74 32 2C 76 61 74 33 2C 76 61 74 t1,vat2,vat3,vat
000160: 34 2C 76 61 74 35 2C 69 6E 66 6F 6C 69 6E 65 73 4,vat5,infolines
000170: 2C 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 ,descwidth..>rv
000180: 64 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 discA,discB,disc
000190: 43 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E C,discD,discE..>
0001A0: 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 rv prconame,exor
0001B0: 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B inc,showdisc,ask
0001C0: 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F fn,askcar,usepro
0001D0: 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 d,defdisc..>rv c
0001E0: 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E aline,aline,tlin
0001F0: 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 20 73 e,totline..>rv s
Size : 512 (Real : 512)
000000: 50 72 6F 74 65 78 74 20 4F 66 66 69 63 65 2C 20 Protext Office,
000010: 33 34 2E 39 35 2C 20 50 4F 2C 20 31 2C 20 31 0D 34.95, PO, 1, 1.
000020: 0A 50 72 6F 74 65 78 74 20 46 69 6C 65 72 2C 20 .Protext Filer,
000030: 32 34 2E 39 35 2C 20 50 46 2C 20 31 2C 20 31 0D 24.95, PF, 1, 1.
000040: 0A 52 6F 6D 62 6F 20 72 6F 6D 20 62 6F 78 2C 20 .Rombo rom box,
000050: 33 34 2E 39 35 2C 20 52 42 2C 20 31 2C 20 32 0D 34.95, RB, 1, 2.
000060: 0A 4D 61 78 61 6D 20 6D 61 6E 75 61 6C 2C 20 35 .Maxam manual, 5
000070: 2E 30 30 2C 20 22 20 22 2C 20 30 2C 20 31 0D 0A .00, " ", 0, 1..
000080: 00 4D 55 53 49 43 20 20 20 53 45 4C 00 00 00 02 .MUSIC SEL....
000090: 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 CF 4D 53 55 4D 4D 41 52 49 4E 46 00 80 00 05 ..MSUMMARINF....
0000B0: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
0000C0: 00 41 44 44 52 45 53 53 20 50 46 49 00 00 00 03 .ADDRESS PFI....
0000D0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
0000E0: 00 C6 4D 50 52 49 4E 54 20 20 20 20 00 02 00 14 ..MPRINT ....
0000F0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 )*+.............
000100: 00 CF 4D 20 20 20 20 20 20 58 20 20 00 48 00 01 ..M X .H..
000110: 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 C6 4D 46 49 4E 44 20 20 20 20 20 00 19 00 0F ..MFIND ....
000130: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 C6 4D 49 4E 49 54 20 20 20 20 20 00 72 00 19 ..MINIT .r..
000150: 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 C6 4D 4D 45 52 47 45 20 20 20 20 00 47 00 09 ..MMERGE .G..
000170: 8E 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 CC 41 42 45 4C 31 20 20 50 4D 4D 00 16 00 0A ..ABEL1 PMM....
000190: 90 91 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 CC 41 42 45 4C 32 20 20 50 4D 4D 00 51 00 0D ..ABEL2 PMM.Q..
0001B0: 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 CC 41 42 45 4C 33 20 20 50 4D 4D 00 48 00 0F ..ABEL3 PMM.H..
0001D0: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 CC 45 54 54 45 52 20 20 50 4D 4D 00 67 00 08 ..ETTER PMM.g..
0001F0: 96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 2C 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 ,ruler2,ruler3,r
000010: 75 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 uler4,ruler5..>r
000020: 76 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 v coname,coaddr1
000030: 2C 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 ,coaddr2,coaddr3
000040: 2C 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 ,coaddr4,coaddr5
000050: 0D 0A 3E 77 66 20 26 69 6E 76 64 72 76 26 3A 6F ..>wf &invdrv&:o
000060: 6D 74 65 6D 70 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 20 mtemp..>zm..>tm
000070: 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 26 73 &caline&..>sm &s
000080: 69 64 65 26 0D 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A ide&..>>>..>cf..
000090: 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D >df ominvgen.num
0000A0: 0D 0A 3E 72 76 20 6E 75 6D 62 65 72 2C 74 69 74 ..>rv number,tit
0000B0: 6C 65 0D 0A 3E 64 6D 20 22 49 4E 56 47 45 4E 20 le..>dm "INVGEN
0000C0: 76 31 2E 30 30 20 28 63 29 20 41 72 6E 6F 72 20 v1.00 (c) Arnor
0000D0: 31 39 38 38 20 20 28 26 74 69 74 6C 65 26 29 22 1988 (&title&)"
0000E0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 3E 3E 0D 0A ..>dm " "..>>>..
0000F0: 3E 69 64 20 66 69 6C 65 64 61 74 65 0D 0A 3E 63 >id filedate..>c
000100: 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E f..>df ominvgen.
000110: 64 61 74 0D 0A 3E 72 76 20 73 79 73 5F 64 61 74 dat..>rv sys_dat
000120: 65 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 e..>ei..>>>..>sv
000130: 20 76 61 74 63 66 30 3D 31 0D 0A 3E 73 76 20 76 vatcf0=1..>sv v
000140: 61 74 63 66 31 3D 31 2B 76 61 74 31 09 3B 20 56 atcf1=1+vat1.; V
000150: 41 54 20 63 6F 6E 76 65 72 73 69 6F 6E 20 66 61 AT conversion fa
000160: 63 74 6F 72 73 0D 0A 3E 73 76 20 76 61 74 63 66 ctors..>sv vatcf
000170: 32 3D 31 2B 76 61 74 32 0D 0A 3E 73 76 20 76 61 2=1+vat2..>sv va
000180: 74 63 66 33 3D 31 2B 76 61 74 33 0D 0A 3E 73 76 tcf3=1+vat3..>sv
000190: 20 76 61 74 63 66 34 3D 31 2B 76 61 74 34 0D 0A vatcf4=1+vat4..
0001A0: 3E 73 76 20 76 61 74 63 66 35 3D 31 2B 76 61 74 >sv vatcf5=1+vat
0001B0: 35 0D 0A 3E 73 76 20 63 6F 70 79 70 61 74 68 3D 5..>sv copypath=
0001C0: 69 6E 76 64 72 76 2B 22 3A 22 0D 0A 3E 3E 3E 0D invdrv+":"..>>>.
0001D0: 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 63 .>>> read produc
0001E0: 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 63 t info into desc
0001F0: 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 63 1,desc2,...,pric
Size : 512 (Real : 512)
000000: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000060: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
000090: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
0000A0: 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E =1 filedate=1..>
0000B0: 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 69 66 ei..>iu cpm..>if
0000C0: 20 73 79 73 5F 76 65 72 20 3C 20 33 2E 30 37 0D sys_ver < 3.07.
0000D0: 0A 3E 73 76 20 66 69 6C 65 64 61 74 65 3D 31 0D .>sv filedate=1.
0000E0: 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 73 5F 76 65 .>ei..>if sys_ve
0000F0: 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 66 69 6C 65 r=3.10..>sv file
000100: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
000110: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
000120: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
000130: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
000140: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
000150: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
000160: 4E 20 55 20 20 2A 2A 2A 20 20 28 76 32 2E 30 31 N U *** (v2.01
000170: 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 )..>dm " "..>dm
000180: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000190: 20 20 20 20 20 20 20 20 49 20 2D 20 50 72 69 6E I - Prin
0001A0: 74 20 61 6E 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 t an Invoice..>d
0001B0: 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 m "
0001C0: 20 20 20 20 20 20 20 20 20 20 43 20 2D 20 50 72 C - Pr
0001D0: 69 6E 74 20 61 20 43 72 65 64 69 74 20 6E 6F 74 int a Credit not
0001E0: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
Size : 512 (Real : 512)
000000: 31 35 20 4D 61 72 63 68 20 31 39 38 38 0D 0A 1A 15 March 1988...
000010: 72 6E 6F 72 20 4C 74 64 0D 0A 50 72 6F 74 65 78 rnor Ltd..Protex
000020: 74 20 48 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E t House..Wainman
000030: 20 52 6F 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F Road..Peterboro
000040: 75 67 68 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A ugh..PE2 0BU....
000050: 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .---------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
000090: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
0000A0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0000B0: 33 2E 30 36 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.06..>sv fileda
0000C0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
0000D0: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
0000E0: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
0000F0: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000100: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000110: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000120: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
000130: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
000140: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
000150: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
000160: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
000170: 2C 64 69 73 63 42 2C 64 69 73 63 00 2C 64 69 73 ,discB,disc.,dis
000180: 63 44 2C 64 69 73 63 45 0D 0A 3E 72 76 20 70 72 cD,discE..>rv pr
000190: 63 6F 6E 61 6D 00 00 0F 00 5E 00 AB 00 01 C9 00 conam....^......
0001A0: 00 C9 00 00 C3 BB F2 C3 30 C7 C3 70 A5 C3 83 A5 ........0..p....
0001B0: C3 7C A5 C9 00 00 C9 00 00 07 07 03 00 00 7C 30 .|............|0
0001C0: AF 00 39 00 0B 01 01 00 01 00 00 00 00 00 00 00 ..9.............
0001D0: 00 6D 69 6E 76 67 65 6E 00 69 6E 66 00 68 00 3E .minvgen.inf.h.>
0001E0: 00 01 00 B5 EB B5 EB 42 03 02 02 03 81 B5 EB B5 .......B........
0001F0: EB E8 FC 01 00 46 00 3C 00 01 00 B5 EB B5 EB 42 .....F.<.......B
Size : 512 (Real : 512)
000000: 20 2D 20 50 72 69 6E 74 20 61 20 53 74 61 74 65 - Print a State
000010: 6D 65 6E 74 0D 0A 3E 64 6D 20 22 20 20 20 20 20 ment..>dm "
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 4E 20 2D 20 53 65 74 20 69 6E 76 6F 69 63 N - Set invoic
000040: 65 20 4E 75 6D 62 65 72 0D 0A 3E 69 64 20 66 69 e Number..>id fi
000050: 6C 65 64 61 74 65 0D 0A 3E 64 6D 20 22 20 20 20 ledate..>dm "
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 44 20 2D 20 53 65 74 20 63 75 72 72 D - Set curr
000080: 65 6E 74 20 44 61 74 65 0D 0A 3E 65 69 0D 0A 3E ent Date..>ei..>
000090: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0000A0: 20 20 20 20 20 20 20 20 20 20 20 52 20 2D 20 52 R - R
0000B0: 65 70 72 69 6E 74 20 64 6F 63 75 6D 65 6E 74 0D eprint document.
0000C0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 2D L -
0000E0: 20 4C 69 73 74 20 69 6E 76 6F 69 63 65 20 73 75 List invoice su
0000F0: 6D 6D 61 72 79 20 66 69 6C 65 0D 0A 3E 64 6D 20 mmary file..>dm
000100: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000110: 20 20 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 E - Edit
000120: 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 configuration s
000130: 65 74 74 69 6E 67 73 0D 0A 3E 64 6D 20 22 20 20 ettings..>dm "
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 46 20 2D 20 46 69 6C 65 72 20 6D F - Filer m
000160: 65 6E 75 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 enu..>dm "
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
000190: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 74 65 Ente
0001B0: 72 20 6F 70 74 69 6F 6E 20 6C 65 74 74 65 72 3A r option letter:
0001C0: 20 22 20 6F 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E " opt 1..>>>..>
0001D0: 69 66 20 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F if opt=""..>sv o
0001E0: 70 74 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 pt=" "..>ei..>if
0001F0: 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 0D 0A 3E opt in "qsj"..>
Size : 512 (Real : 512)
000000: 2D 52 22 0D 0A 41 72 6E 6F 72 20 4C 74 64 0D 0A -R"..Arnor Ltd..
000010: 50 72 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 Protext House..W
000020: 61 69 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 65 74 ainman Road..Pet
000030: 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 32 20 30 erborough..PE2 0
000040: 42 55 0D 0A 0D 0A 1A 30 22 2C 22 22 2C 22 22 2C BU.....0","","",
000050: 22 22 0D 0A 79 2C 69 2C 6E 2C 79 2C 79 2C 79 2C ""..y,i,n,y,y,y,
000060: 30 0D 0A 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 30 0..4,12,23,45..0
000070: 2C 31 34 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A ,14,18,15,17,9..
000080: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D ----------L-----
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A ------------R"..
0000D0: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ">-------------!
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -!--------------
000100: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D !---------------
000110: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E -!--------R"..">
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----.-----------
000150: 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---.------------
000160: 2D 2D 2E 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D --.-----R"..">--
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D ---------!------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D --------L-------
0001B0: 2E 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D .--R"..">-------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 63 31 21 2C 21 72 63 32 21 2C 21 72 63 33 21 2C c1!,!rc2!,!rc3!,
000010: 21 72 63 34 21 2C 21 72 63 35 21 27 0D 0A 3E 77 !rc4!,!rc5!'..>w
000020: 6D 20 27 22 21 72 75 6C 65 72 31 21 22 27 0D 0A m '"!ruler1!"'..
000030: 3E 77 6D 20 27 22 21 72 75 6C 65 72 32 21 22 27 >wm '"!ruler2!"'
000040: 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 65 72 33 21 ..>wm '"!ruler3!
000050: 22 27 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 65 72 "'..>wm '"!ruler
000060: 34 21 22 27 0D 0A 3E 77 6D 20 27 22 21 72 75 6C 4!"'..>wm '"!rul
000070: 65 72 35 21 22 27 0D 0A 3E 77 6D 20 27 21 63 6F er5!"'..>wm '!co
000080: 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F name!'..>wm '!co
000090: 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 addr1!'..>wm '!c
0000A0: 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 oaddr2!'..>wm '!
0000B0: 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 coaddr3!'..>wm '
0000C0: 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 !coaddr4!'..>wm
0000D0: 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 '!coaddr5!'..>wc
0000E0: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 ..>cf..>ex exec
0000F0: 6F 6D 0D 0A 1A 69 6F 6E 0D 0A 3E 3E 3E 0D 0A 3E om...ion..>>>..>
000100: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
000110: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
000120: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
000130: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
000140: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
000150: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
000160: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
000170: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
000180: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
000190: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0001A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0001B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0001C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0001D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0001E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0001F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
Size : 512 (Real : 512)
000000: 3E 3E 3E 20 69 6E 69 74 69 61 6C 69 73 65 20 49 >>> initialise I
000010: 4E 56 47 45 4E 2E 49 4E 46 20 74 6F 20 64 65 66 NVGEN.INF to def
000020: 61 75 6C 74 20 76 61 6C 75 65 73 0D 0A 3E 3E 3E ault values..>>>
000030: 20 75 73 65 20 74 68 69 73 20 69 66 20 49 4E 56 use this if INV
000040: 47 45 4E 2E 49 4E 46 20 69 73 20 64 65 6C 65 74 GEN.INF is delet
000050: 65 64 20 69 6E 20 65 72 72 6F 72 20 62 65 66 6F ed in error befo
000060: 72 65 20 75 73 69 6E 67 20 6D 65 6E 75 20 27 45 re using menu 'E
000070: 27 20 6F 70 74 69 6F 6E 0D 0A 3E 3E 3E 0D 0A 3E ' option..>>>..>
000080: 73 76 20 61 64 64 72 66 69 6C 65 3D 22 41 44 44 sv addrfile="ADD
000090: 52 45 53 53 22 20 69 6E 76 64 72 76 3D 22 41 22 RESS" invdrv="A"
0000A0: 20 70 72 6F 64 66 69 6C 65 3D 22 70 72 6F 64 75 prodfile="produ
0000B0: 63 74 73 2E 69 6E 66 22 20 76 61 74 72 65 67 3D cts.inf" vatreg=
0000C0: 22 79 22 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A "y" phone?="y"..
0000D0: 3E 73 76 20 69 6E 66 6F 6C 69 6E 65 73 3D 32 32 >sv infolines=22
0000E0: 20 64 65 73 63 77 69 64 74 68 3D 32 30 20 76 61 descwidth=20 va
0000F0: 74 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 70 72 63 tnum=""..>sv prc
000100: 6F 6E 61 6D 65 3D 22 79 22 20 65 78 6F 72 69 6E oname="y" exorin
000110: 63 3D 22 69 22 20 73 68 6F 77 64 69 73 63 3D 22 c="i" showdisc="
000120: 79 22 20 61 73 6B 66 6E 3D 22 79 22 20 61 73 6B y" askfn="y" ask
000130: 63 61 72 3D 22 79 22 20 75 73 65 70 72 6F 64 3D car="y" useprod=
000140: 22 79 22 20 64 65 66 64 69 73 63 3D 22 30 22 0D "y" defdisc="0".
000150: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 34 20 61 6C .>sv caline=4 al
000160: 69 6E 65 3D 31 32 20 74 6C 69 6E 65 3D 32 33 20 ine=12 tline=23
000170: 74 6F 74 6C 69 6E 65 3D 34 35 0D 0A 3E 73 76 20 totline=45..>sv
000180: 73 69 64 65 3D 33 20 72 63 31 3D 31 34 20 72 63 side=3 rc1=14 rc
000190: 32 3D 31 38 20 72 63 33 3D 31 35 20 72 63 34 3D 2=18 rc3=15 rc4=
0001A0: 31 37 20 72 63 35 3D 39 0D 0A 3E 73 76 20 72 75 17 rc5=9..>sv ru
0001B0: 6C 65 72 31 3D 22 22 20 72 75 6C 65 72 32 3D 22 ler1="" ruler2="
0001C0: 22 20 72 75 6C 65 72 33 3D 22 22 20 72 75 6C 65 " ruler3="" rule
0001D0: 72 34 3D 22 22 20 72 75 6C 65 72 35 3D 22 22 0D r4="" ruler5="".
0001E0: 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D 22 22 20 63 .>sv coname="" c
0001F0: 6F 61 64 64 72 31 3D 22 22 20 63 6F 61 64 64 72 oaddr1="" coaddr
Size : 512 (Real : 512)
000000: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
000010: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
000020: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
000030: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
000040: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
000050: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
000060: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
000070: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
000080: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
000090: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
0000A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
0000B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
0000C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
0000D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
0000E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
0000F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
000100: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
000110: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
000120: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
000130: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
000140: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
000150: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
000160: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
000170: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
000180: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
000190: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
0001A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
0001B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
0001C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
0001D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
0001E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
0001F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
Size : 512 (Real : 512)
000000: 32 3D 22 22 20 63 6F 61 64 64 72 33 3D 22 22 20 2="" coaddr3=""
000010: 63 6F 61 64 64 72 34 3D 22 22 20 63 6F 61 64 64 coaddr4="" coadd
000020: 72 35 3D 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D r5=""..>sv vat1=
000030: 30 2E 31 35 20 76 61 74 32 3D 30 20 76 61 74 33 0.15 vat2=0 vat3
000040: 3D 30 20 76 61 74 34 3D 30 20 76 61 74 35 3D 30 =0 vat4=0 vat5=0
000050: 0D 0A 3E 73 76 20 64 69 73 63 41 3D 22 32 35 20 ..>sv discA="25
000060: 31 30 20 30 22 20 64 69 73 63 42 3D 22 31 35 20 10 0" discB="15
000070: 31 30 20 30 22 20 64 69 73 63 43 3D 22 30 20 30 10 0" discC="0 0
000080: 20 30 22 20 64 69 73 63 44 3D 22 30 20 30 20 30 0" discD="0 0 0
000090: 22 20 64 69 73 63 45 3D 22 30 20 30 20 30 22 0D " discE="0 0 0".
0000A0: 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 77 66 20 .>df omenu..>wf
0000B0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 77 ominvgen.inf..>w
0000C0: 6D 20 27 21 61 64 64 72 66 69 6C 65 21 2C 21 69 m '!addrfile!,!i
0000D0: 6E 76 64 72 76 21 2C 21 70 72 6F 64 66 69 6C 65 nvdrv!,!prodfile
0000E0: 21 2C 21 76 61 74 72 65 67 21 2C 21 70 68 6F 6E !,!vatreg!,!phon
0000F0: 65 3F 21 27 0D 0A 3E 77 6D 20 27 21 76 61 74 31 e?!'..>wm '!vat1
000100: 21 2C 21 76 61 74 32 21 2C 21 76 61 74 33 21 2C !,!vat2!,!vat3!,
000110: 21 76 61 74 34 21 2C 21 76 61 74 35 21 2C 21 69 !vat4!,!vat5!,!i
000120: 6E 66 6F 6C 69 6E 65 73 21 2C 21 64 65 73 63 77 nfolines!,!descw
000130: 69 64 74 68 21 27 0D 0A 3E 77 6D 20 27 22 21 64 idth!'..>wm '"!d
000140: 69 73 63 41 21 22 2C 22 21 64 69 73 63 42 21 22 iscA!","!discB!"
000150: 2C 22 21 64 69 73 63 43 21 22 2C 22 21 64 69 73 ,"!discC!","!dis
000160: 63 44 21 22 2C 22 21 64 69 73 63 45 21 22 2C 22 cD!","!discE!","
000170: 21 76 61 74 6E 75 6D 21 22 27 0D 0A 3E 77 6D 20 !vatnum!"'..>wm
000180: 27 21 70 72 63 6F 6E 61 6D 65 21 2C 21 65 78 6F '!prconame!,!exo
000190: 72 69 6E 63 21 2C 21 73 68 6F 77 64 69 73 63 21 rinc!,!showdisc!
0001A0: 2C 21 61 73 6B 66 6E 21 2C 21 61 73 6B 63 61 72 ,!askfn!,!askcar
0001B0: 21 2C 21 75 73 65 70 72 6F 64 21 2C 21 64 65 66 !,!useprod!,!def
0001C0: 64 69 73 63 21 27 0D 0A 3E 77 6D 20 27 21 63 61 disc!'..>wm '!ca
0001D0: 6C 69 6E 65 21 2C 21 61 6C 69 6E 65 21 2C 21 74 line!,!aline!,!t
0001E0: 6C 69 6E 65 21 2C 21 74 6F 74 6C 69 6E 65 21 27 line!,!totline!'
0001F0: 0D 0A 3E 77 6D 20 27 21 73 69 64 65 21 2C 21 72 ..>wm '!side!,!r
Size : 512 (Real : 512)
000000: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
000010: 37 36 34 7C 7C 37 36 36 7C 1A 3E 3E 0D 0A 3E 3E 764||766|.>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 s_ver=""..>sv cp
000090: 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 6E 20 m="1"..>ei..>in
0000A0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 63 3D fm$pfi$..>sv oc=
0000B0: 22 43 20 2D 20 43 6F 75 6E 74 20 72 65 63 6F 72 "C - Count recor
0000C0: 64 73 22 0D 0A 3E 73 76 20 6F 73 3D 22 53 20 2D ds"..>sv os="S -
0000D0: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 22 Select records"
0000E0: 0D 0A 3E 73 76 20 6F 6C 3D 22 4C 20 2D 20 4C 69 ..>sv ol="L - Li
0000F0: 73 74 20 63 75 72 72 65 6E 74 20 66 69 6C 65 20 st current file
000100: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
000110: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
000120: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
000130: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
000140: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
000150: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
000160: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
000170: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
000180: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
000190: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0001A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0001B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0001C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0001D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0001E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0001F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
Size : 512 (Real : 512)
000000: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
000010: 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ; id df..>>>..>i
000020: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
000030: 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 31 20 2D dm "Option S.1 -
000040: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 Select records
000050: 28 73 69 6E 67 6C 65 20 73 69 6D 70 6C 65 20 63 (single simple c
000060: 6F 6E 64 69 74 69 6F 6E 29 22 0D 0A 3E 64 6D 20 ondition)"..>dm
000070: 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 " "..>in fm$pfi$
000080: 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 ..>sv fv=fv[1] r
000090: 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 len=rlen[w1]..>i
0000A0: 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C f fv="f"..>sv fl
0000B0: 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A ist=">ru"..>el..
0000C0: 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D >sv flist=">rv".
0000D0: 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E .>ei..>sv n=0..>
0000E0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
0000F0: 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 n[w1]..>sv flist
000100: 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A =flist+" f&n&"..
000110: 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 73 76 >un n>=rlen..>sv
000120: 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E 3D 6E n=n+1 m=n+1 n=n
000130: 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 [w1] m=m[w1]..>s
000140: 76 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 3D 22 v f&n&="" f&m&="
000150: 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 "..>>>..>dm "Fie
000160: 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 ld names: "..>sv
000170: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000180: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
000190: 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 v s=n&n&..>dm f&
0001A0: 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 n&: &s&..>un n=r
0001B0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
0001C0: 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 6E 74 "..>dm "When ent
0001D0: 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F 6E 73 ering conditions
0001E0: 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 20 72 below, please r
0001F0: 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 6C 6F emember to enclo
Size : 512 (Real : 512)
000000: 3E 72 70 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 >rp..>rv a0,a1,a
000010: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
000020: 2C 78 0D 0A 3E 69 66 20 6E 20 69 6E 20 61 30 0D ,x..>if n in a0.
000030: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 46 6F .>dm " "..>dm Fo
000040: 75 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 und: '&a0&'..>av
000050: 20 22 49 73 20 74 68 69 73 20 63 6F 72 72 65 63 "Is this correc
000060: 74 20 28 59 2F 6E 29 3F 20 22 20 64 20 31 0D 0A t (Y/n)? " d 1..
000070: 3E 65 69 0D 0A 3E 69 66 20 61 30 3D 22 65 6E 64 >ei..>if a0="end
000080: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
000090: 22 41 63 63 6F 75 6E 74 20 6E 6F 74 20 66 6F 75 "Account not fou
0000A0: 6E 64 22 0D 0A 3E 73 76 20 64 3D 22 79 22 0D 0A nd"..>sv d="y"..
0000B0: 3E 65 69 0D 0A 3E 75 6E 20 64 3C 3E 22 6E 22 0D >ei..>un d<>"n".
0000C0: 0A 3E 3E 3E 63 66 0D 0A 3E 65 69 0D 0A 3E 69 66 .>>>cf..>ei..>if
0000D0: 20 61 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 a0="end" ; if
0000E0: 20 6E 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 not searching d
0000F0: 61 74 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 atafile or not f
000100: 6F 75 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 ound..>sv a3=""
000110: 61 34 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 a4="" a5="" a6="
000120: 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 " a7=""..>dm " "
000130: 0D 0A 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 ..>dm Enter name
000140: 20 61 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 and address, or
000150: 20 70 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F press RETURN to
000160: 20 72 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D return to menu.
000170: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E .>dm " "..>av "N
000180: 61 6D 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A ame: " a0..
000190: 3E 69 66 20 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A >if a0=""..>wc..
0001A0: 3E 73 76 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 >sv number=numbe
0001B0: 72 2D 31 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 r-1 number=numbe
0001C0: 72 5B 77 31 5D 0D 0A 3E 77 66 20 6F 6D 69 6E 76 r[w1]..>wf ominv
0001D0: 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 6D 20 26 6E 75 gen.num..>wm &nu
0001E0: 6D 62 65 72 26 0D 0A 3E 77 63 0D 0A 3E 63 66 0D mber&..>wc..>cf.
0001F0: 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D 0A 3E 73 .>ex exec om..>s
Size : 512 (Real : 512)
000000: 73 65 20 73 74 72 69 6E 67 73 20 69 6E 20 71 75 se strings in qu
000010: 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E 67 2E otes"..>dm 'e.g.
000020: 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 34 0D "London" in F4.
000030: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 6B .>dm " "..>sv ok
000040: 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 22 30 31 ="'" + '"' + "01
000050: 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 76 20 23456789."..>sv
000060: 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 n="1"..>rp..>av
000070: 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 6F 6E "Enter condition
000080: 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 76 20 65 &n&: " s..>sv e
000090: 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D 0D 0A 3E rr=0 s=s[w1:]..>
0000A0: 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 66 20 63 sv c&n&=s..>if c
0000B0: 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 1=""..>ex exec f
0000C0: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 69 66 m..>st..>ei..>if
0000D0: 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 s[1]="f"..>if s
0000E0: 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 [2] notin "*1234
0000F0: 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 56789"..>sv err=
000100: 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 1..>ei..>el..>if
000110: 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A s[1] notin ok..
000120: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
000130: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 73 3D >ei..>>>..>sv s=
000140: 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 66 20 73 c&n&[w-1]..>if s
000150: 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 5B 32 [1]="f"..>if s[2
000160: 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 35 36 ] notin "*123456
000170: 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 789"..>sv err=1.
000180: 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 73 .>ei..>el..>if s
000190: 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A 3E 73 [1] notin ok..>s
0001A0: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
0001B0: 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 72 72 3D i..>>>..>if err=
0001C0: 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 0..>sv n=n+1 n=n
0001D0: 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 [w1]..>el..>dm "
0001E0: 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 22 0D 0A Invalid input"..
0001F0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 31 0D 0A 3E 3E >ei..>un n>1..>>
Size : 512 (Real : 512)
000000: 6D 0D 0A 1A 45 4C 31 20 20 50 4D 4D 00 00 00 00 m...EL1 PMM....
000010: 00 00 0A 00 00 7A 01 00 DA 04 00 00 00 00 00 00 .....z..........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: DA 04 00 FC 04 75 22 0D 0A 3E 73 76 20 66 3D 6E .....u"..>sv f=n
000050: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
000060: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
000070: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
000080: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
000090: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
0000A0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
0000B0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
0000C0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
0000D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
0000E0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
0000F0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000100: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
000110: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
000120: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
000130: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
000140: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
000150: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
000160: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
000170: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
000180: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
000190: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
0001A0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
0001B0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
0001C0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
0001D0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
0001E0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
0001F0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
Size : 512 (Real : 512)
000000: 3E 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 >..>sv ff=""..>i
000010: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
000020: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
000030: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000040: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
000050: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
000060: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
000070: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
000080: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
000090: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
0000A0: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 73 76 20 6E sv f0=f1"..>sv n
0000B0: 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =1..>rp..>sv n=n
0000C0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0000D0: 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E ff=ff+"+f&n&"..>
0000E0: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 un n>=rlen..>ei
0000F0: 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 64 6D 20 ; f* in c1..>dm
000100: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
000110: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
000120: 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A =0..>df fm.mus..
000130: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
000140: 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 f mus="m"..>df &
000150: 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 df& fo$end$..>ei
000160: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
000170: 64 66 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 df &newfile& fo$
000180: 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D end$..>ei..>if m
000190: 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C us="s"..>df &sel
0001A0: 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E file& fo$end$..>
0001B0: 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 ei..>wf &selfile
0001C0: 26 0D 0A 3E 3E 3E 0D 0A 3E 65 69 20 3B 20 69 75 &..>>>..>ei ; iu
0001D0: 20 64 66 0D 0A 1A 0D 0A 3E 69 66 20 66 76 3D 22 df.....>if fv="
0001E0: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
0001F0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
Size : 512 (Real : 512)
000000: 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 64 ..>if x="yy"..>d
000010: 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 65 m "Discount type
000020: 20 6E 75 6D 62 65 72 73 3A 20 20 20 20 22 0D 0A numbers: "..
000030: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000040: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 v n=n+1 n=n[w1]
000050: 6D 3D 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E m=n+1 m=m[w1]..>
000060: 73 76 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 sv text = n + "
000070: 3D 20 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 = " + discA[w&n&
000080: 5D 20 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B ] + " " + discB[
000090: 77 26 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 w&n&] + " "..>sv
0000A0: 20 74 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 text = text + d
0000B0: 69 73 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 iscC[w&n&] + " "
0000C0: 20 2B 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B + discD[w&n&] +
0000D0: 20 22 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E " " + discE[w&n
0000E0: 26 5D 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A &]..>dm &text&..
0000F0: 3E 75 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D >un discA[w&m&]=
000100: 22 22 0D 0A 3E 73 76 20 63 75 73 74 64 69 73 63 ""..>sv custdisc
000110: 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 20 75 73 =defdisc..>if us
000120: 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 22 eprod="y"..>av "
000130: 44 69 73 63 6F 75 6E 74 20 74 79 70 65 20 28 6E Discount type (n
000140: 75 6D 62 65 72 2C 20 30 3D 66 75 6C 6C 20 70 72 umber, 0=full pr
000150: 69 63 65 29 20 5B 26 64 65 66 64 69 73 63 26 5D ice) [&defdisc&]
000160: 3A 20 20 20 20 22 2C 78 0D 0A 3E 69 66 20 78 3C : ",x..>if x<
000170: 3E 22 22 0D 0A 3E 73 76 20 63 75 73 74 64 69 73 >""..>sv custdis
000180: 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E c=x..>ei..>ei..>
000190: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 ei..>>>..>sv car
0001A0: 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D =""..>if askcar=
0001B0: 22 79 22 0D 0A 3E 61 76 20 22 43 61 72 72 69 61 "y"..>av "Carria
0001C0: 67 65 3A 20 20 20 20 20 20 20 20 22 2C 63 61 72 ge: ",car
0001D0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 61 72 3D 22 ..>ei..>if car="
0001E0: 22 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A 3E 65 "..>sv car=0..>e
0001F0: 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 65 3D i..>sv footnote=
Size : 512 (Real : 512)
000000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
000050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
000100: 3E 77 6D 20 26 73 26 0D 0A 3E 69 66 20 73 3D 22 >wm &s&..>if s="
000110: 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E "..>sv n=rlen..>
000120: 65 69 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A ei..>un n=rlen..
000130: 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E >ei ; f/v..>sv n
000140: 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 n=nn+1..>el ; f1
000150: 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B =end..>sv nn=nn[
000160: 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 w1]..>dm " "..>w
000170: 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 t "&nn& records
000180: 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B found. Press a k
000190: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E ey to continue .
0001A0: 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 ....>wc..>cf..>e
0001B0: 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A x exec fm..>st..
0001C0: 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 >ei..>sk 0=0..>e
0001D0: 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A i ; id df..>>>..
0001E0: 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D >iu df..>cs " ".
0001F0: 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 35 .>dm "Option S.5
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
000030: 3E 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 >el..>sk0=0..>ei
000040: 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E ..>zm..>npoff..>
000050: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
000060: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
000070: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000080: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
000090: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
0000A0: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
0000B0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0000C0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
0000D0: 6E 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 n&..>if s=""..>s
0000E0: 76 20 73 3D 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D v s=n+1 m=n+2 s=
0000F0: 73 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E s[w1] m=m[w1]..>
000100: 73 76 20 73 3D 66 26 73 26 2B 66 26 6D 26 0D 0A sv s=f&s&+f&m&..
000110: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D >if s=""..>sv n=
000120: 72 6C 65 6E 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 rlen..>el..>sv s
000130: 3D 22 24 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A ="$"..>ei..>ei..
000140: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
000150: 6C 65 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A len..>ei ; f/v..
000160: 3E 73 76 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C >sv nn=nn+1..>el
000170: 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E ; f1=end..>sv n
000180: 6E 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 n=nn[w1]..>dm "
000190: 22 0D 0A 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 "..>wt "&nn& rec
0001A0: 6F 72 64 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 ords found. Pres
0001B0: 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 s a key to conti
0001C0: 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 nue .....>wc..>c
0001D0: 66 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 f.; let exec hav
0001E0: 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 e handle 0..>ex
0001F0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
Size : 512 (Real : 512)
000000: 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 6F 75 6E discount=discoun
000010: 74 2F 31 30 30 20 64 69 73 63 6F 75 6E 74 3D 31 t/100 discount=1
000020: 2D 64 69 73 63 6F 75 6E 74 0D 0A 3E 65 69 0D 0A -discount..>ei..
000030: 3E 73 76 20 75 70 72 69 63 65 3D 70 72 69 63 65 >sv uprice=price
000040: 6E 2A 64 69 73 63 6F 75 6E 74 0D 0A 3E 73 76 20 n*discount..>sv
000050: 70 72 69 63 65 3D 71 75 61 6E 74 6E 2A 75 70 72 price=quantn*upr
000060: 69 63 65 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 3B ice..>ei..>el ;
000070: 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C 65 no product file
000080: 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 63 ..>av "Product c
000090: 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E 69 ode: " coden..>i
0000A0: 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 f coden=""..>sv
0000B0: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 66 n=maxn..>ei..>if
0000C0: 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 coden<>""..>av
0000D0: 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 22 "Description : "
0000E0: 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 61 descn..>av "Qua
0000F0: 6E 74 69 74 79 20 20 20 20 3A 20 22 20 71 75 61 ntity : " qua
000100: 6E 74 6E 0D 0A 3E 69 66 20 71 75 61 6E 74 6E 3D ntn..>if quantn=
000110: 22 22 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D 22 ""..>sv quantn="
000120: 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 61 "..>ei..>if qua
000130: 6E 74 6E 5B 31 5D 20 6E 6F 74 69 6E 20 22 30 31 ntn[1] notin "01
000140: 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 22 23456789"..>dm "
000150: 4E 6F 74 20 61 20 6E 75 6D 62 65 72 2E 20 50 6C Not a number. Pl
000160: 65 61 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A ease re-enter"..
000170: 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 >sv coden=""..>e
000180: 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 i..>ei..>if code
000190: 6E 3C 3E 22 22 0D 0A 3E 61 76 20 22 55 6E 69 74 n<>""..>av "Unit
0001A0: 20 70 72 69 63 65 20 20 20 A3 22 20 75 70 72 69 price ." upri
0001B0: 63 65 0D 0A 3E 69 66 20 75 70 72 69 63 65 3D 22 ce..>if uprice="
0001C0: 22 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D 22 20 "..>sv uprice="
0001D0: 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 75 70 72 69 "..>ei..>if upri
0001E0: 63 65 5B 31 5D 20 6E 6F 74 69 6E 20 22 2E 30 31 ce[1] notin ".01
0001F0: 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 22 23456789"..>dm "
Size : 512 (Real : 512)
000000: 6C 20 66 6D 69 6E 69 74 7C 31 33 7C 79 7C 36 33 l fminit|13|y|63
000010: 39 7C 7C 31 36 7C 70 73 0D 0A 1A 00 00 00 00 00 9||16|ps........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 10 00 00 50 02 6C 6F 61 64 20 66 6D 65 6E 75 0D ...P.load fmenu.
000050: 0A 70 73 0D 0A 1A 20 32 34 34 37 36 39 0D 0A 31 .ps... 244769..1
000060: 32 61 20 73 74 20 6D 61 72 79 73 20 73 74 72 65 2a st marys stre
000070: 65 74 0D 0A 66 61 72 63 65 74 0D 0A 70 62 6F 72 et..farcet..pbor
000080: 45 0D 0A 6E 74 6E 65 78 74 09 09 64 6A 6E 7A 20 E..ntnext..djnz
000090: 6E 65 67 74 79 70 65 6C 6F 6F 70 0D 0A 0D 0A 49 negtypeloop....I
0000A0: 46 20 64 65 62 75 67 0D 0A 6A 72 20 79 79 79 0D F debug..jr yyy.
0000B0: 0A 6D 2E 79 79 79 20 74 65 78 74 20 22 53 6F 72 .m.yyy text "Sor
0000C0: 74 66 69 65 6C 64 73 20 26 20 74 79 70 65 73 22 tfields & types"
0000D0: 2C 22 20 22 2B 31 32 38 0D 0A 79 79 79 0D 0A 09 ," "+128..yyy...
0000E0: 6C 64 20 68 6C 2C 6D 2E 79 79 79 3A 63 61 6C 6C ld hl,m.yyy:call
0000F0: 20 63 6F 6C 31 74 65 78 74 0D 0A 09 6C 64 20 62 col1text...ld b
000100: 2C 4D 41 58 4B 45 59 53 0D 0A 09 6C 64 20 64 65 ,MAXKEYS...ld de
000110: 2C 73 6F 72 74 66 69 65 6C 64 0D 0A 79 79 79 6C ,sortfield..yyyl
000120: 6F 6F 70 09 70 75 73 68 20 62 63 0D 0A 09 70 75 oop.push bc...pu
000130: 73 68 20 64 65 0D 0A 09 63 61 6C 6C 20 63 6F 6C sh de...call col
000140: 31 0D 0A 09 6C 64 20 61 2C 28 64 65 29 0D 0A 09 1...ld a,(de)...
000150: 6C 64 20 6C 2C 61 3A 6C 64 20 68 2C 30 0D 0A 09 ld l,a:ld h,0...
000160: 6F 72 20 61 3A 6A 72 20 7A 2C 79 79 79 6E 65 78 or a:jr z,yyynex
000170: 74 0D 0A 09 63 61 6C 6C 20 64 65 63 6F 75 74 6C t...call decoutl
000180: 65 66 74 0D 0A 09 63 61 6C 6C 20 73 70 61 63 65 eft...call space
000190: 0D 0A 09 6C 64 20 61 2C 28 64 65 29 0D 0A 09 62 ...ld a,(de)...b
0001A0: 69 74 20 37 2C 61 3A 6A 72 20 6E 7A 2C 69 73 6E it 7,a:jr nz,isn
0001B0: 65 67 61 0D 0A 09 61 6E 64 20 31 35 0D 0A 09 6C ega...and 15...l
0001C0: 64 20 68 6C 2C 73 6F 72 74 74 79 70 65 3A 63 61 d hl,sorttype:ca
0001D0: 6C 6C 20 61 64 64 68 6C 61 0D 0A 09 6C 64 20 6C ll addhla...ld l
0001E0: 2C 28 68 6C 29 3A 6C 64 20 68 2C 30 3A 63 61 6C ,(hl):ld h,0:cal
0001F0: 6C 20 64 65 63 6F 75 74 6C 65 66 74 3A 63 61 6C l decoutleft:cal
Size : 512 (Real : 512)
000000: 3E 7A 6D 0D 0A 3E 63 73 0D 0A 3E 6E 70 6F 66 66 >zm..>cs..>npoff
000010: 0D 0A 3E 3E 3E 6C 65 6E 20 6D 75 73 74 20 62 65 ..>>>len must be
000020: 20 31 32 38 6E 20 66 6F 72 20 43 50 2F 4D 0D 0A 128n for CP/M..
000030: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D >---------!-----
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 21 2D 2D -------.-----!--
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D 0A 0D 0A -----------R....
000080: 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 ad..Peterborough
000090: 0D 0A 50 45 32 20 30 42 55 0D 0A EC 0D 0A 0D 0A ..PE2 0BU.......
0000A0: 0D 0A 73 64 0D 0A 0D 0A 0D 0A 09 EC 53 54 41 54 ..sd........STAT
0000B0: 45 4D 45 4E 54 EC 0D 0A 09 0D 0A 09 44 61 74 65 EMENT.......Date
0000C0: 20 20 20 20 20 20 20 31 35 20 4D 61 72 63 68 20 15 March
0000D0: 31 39 38 38 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1988............
0000E0: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D >-------------!-
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 !--------------!
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 21 2D 2D 2D 2D 2D 2D 2D 2D 52 0D 0A 44 41 54 45 !--------R..DATE
000130: 09 49 4E 56 4F 49 43 45 20 4E 4F 2E 09 20 20 20 .INVOICE NO..
000140: 44 45 42 49 54 09 20 20 43 52 45 44 49 54 09 42 DEBIT. CREDIT.B
000150: 41 4C 41 4E 43 45 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D ALANCE..>-------
000160: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D ------------.---
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
0001A0: 2D 52 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A -R..............
0001B0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
0001C0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
0001D0: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 20 0D .. .. .. .. .. .
0001E0: 0A 20 0D 0A 20 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 2D . .. ..>--------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 0D 0A 26 73 63 26 21 63 6F 61 35 21 EC 0D 0A 3E ..&sc&!coa5!...>
000010: 65 69 0D 0A 3E 73 76 6E 3D 61 6C 2D 63 61 6C 2D ei..>svn=al-cal-
000020: 36 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 6..>rp..&sc&..>s
000030: 76 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A vn=n-1..>unn=0..
000040: 26 73 63 26 21 61 30 21 0D 0A 26 73 63 26 21 61 &sc&!a0!..&sc&!a
000050: 31 21 0D 0A 26 73 63 26 21 61 32 21 0D 0A 26 73 1!..&sc&!a2!..&s
000060: 63 26 21 61 33 21 09 EC 26 74 26 EC 0D 0A 26 73 c&!a3!..&t&...&s
000070: 63 26 21 61 34 21 09 0D 0A 26 73 63 26 21 61 35 c&!a4!...&sc&!a5
000080: 21 09 44 61 74 65 20 20 20 20 20 20 20 26 68 26 !.Date &h&
000090: 0D 0A 26 73 63 26 21 61 36 21 0D 0A 26 73 63 26 ..&sc&!a6!..&sc&
0000A0: 21 61 37 21 0D 0A 3E 73 76 6E 3D 74 6C 2D 61 6C !a7!..>svn=tl-al
0000B0: 2D 38 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E -8..>rp..&sc&..>
0000C0: 73 76 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D svn=n-1..>unn=0.
0000D0: 0A 3E 77 66 6F 6E 0D 0A 26 72 32 26 0D 0A 3E 77 .>wfon..&r2&..>w
0000E0: 66 6F 66 66 0D 0A 26 73 63 26 44 41 54 45 09 49 foff..&sc&DATE.I
0000F0: 4E 56 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 NVOICE NO.. DE
000100: 42 49 54 09 20 20 43 52 45 44 49 54 09 42 41 4C BIT. CREDIT.BAL
000110: 41 4E 43 45 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 33 ANCE..>wfon..&r3
000120: 26 0D 0A 3E 77 66 6F 66 66 0D 0A 26 73 63 26 0D &..>wfoff..&sc&.
000130: 0A 3E 73 76 62 3D 69 6E 66 6F 6C 73 0D 0A 3E 64 .>svb=infols..>d
000140: 6D 22 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 m"Enter details
000150: 28 52 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A (RETURN to end):
000160: 20 0D 0A 3E 64 6D 22 20 0D 0A 3E 72 70 0D 0A 3E ..>dm" ..>rp..>
000170: 61 76 22 4F 70 65 6E 69 6E 67 20 62 61 6C 61 6E av"Opening balan
000180: 63 65 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 ce (- for credit
000190: 29 3A 20 A3 22 20 74 6F 74 0D 0A 3E 69 66 20 74 ): ." tot..>if t
0001A0: 6F 74 3D 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 ot=""..>sv tot=0
0001B0: 2E 30 30 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 74 6F .00..>ei..>un to
0001C0: 74 5B 31 5D 20 69 6E 20 22 2D 30 31 32 33 34 35 t[1] in "-012345
0001D0: 36 37 38 39 22 0D 0A 3E 73 76 20 74 6F 74 3D 74 6789"..>sv tot=t
0001E0: 6F 74 2B 30 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 ot+0..>if tot<>0
0001F0: 0D 0A 26 73 63 26 43 61 72 72 69 65 64 20 66 77 ..&sc&Carried fw
Size : 512 (Real : 512)
000000: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
000010: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
000020: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
000030: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
000040: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
000050: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
000060: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
000070: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
000080: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
000090: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
0000A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
0000B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
0000C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0000D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
0000E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
0000F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
000100: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
000110: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
000120: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
000130: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
000140: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
000150: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
000160: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
000170: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
000180: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
000190: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
0001A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
0001B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
0001C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
0001D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
0001E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
0001F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
Size : 512 (Real : 512)
000000: 70 73 20 41 3A 69 35 2E 70 6F 69 7C 31 33 7C 3B ps A:i5.poi|13|;
000010: 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 Press a key to
000020: 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 continue:|13|pau
000030: 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 se|13|load omenu
000040: 7C 31 33 7C 70 73 0D 0A 1A 0D 0A 3E 3E 3E 0D 0A |13|ps.....>>>..
000050: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000060: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 5D 2B ashes[1:&r2c5&]+
000090: 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 34 3D "R"..>sv ruler4=
0000A0: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
0000B0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 31 ]+"!"+dashes[1:1
0000C0: 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B 31 3A 4]+"L"+dashes[1:
0000D0: 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 20 6E 7]+".--R"..>sv n
0000E0: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
0000F0: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
000100: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
000110: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
000120: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
000130: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
000140: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
000150: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
000160: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
000170: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
000180: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
000190: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
0001A0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
0001B0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
0001C0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
0001D0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
0001E0: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 invgen.inf..>id
0001F0: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 cpm..>ex ren omi
Size : 512 (Real : 512)
000000: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 6F cf..>ex exec omo
000010: 70 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 pt&opt&..>st..>e
000020: 69 20 3B 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 i ; opt in "qsj"
000030: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
000040: 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 46 >>..>>> OPTION F
000050: 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>
000060: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D >>>>>>..>if opt=
000070: 22 66 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 "f"..>cf..>ex ex
000080: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
000090: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
0000A0: 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 >..>>> OPTION L
0000B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
0000C0: 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 >>>>>..>if opt="
0000D0: 6C 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 l"..>cf..>ex exe
0000E0: 63 20 6F 6D 6F 70 74 6C 0D 0A 3E 73 74 0D 0A 3E c omoptl..>st..>
0000F0: 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ei..>>>>>>>>>>>>
000100: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
000110: 20 44 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E D >>>..>>>>>>>>
000120: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
000130: 74 3D 22 64 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="d"..>cs " "..
000140: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
000150: 6E 2E 64 61 74 0D 0A 3E 72 76 20 64 61 74 65 0D n.dat..>rv date.
000160: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 75 72 72 .>av "Enter curr
000170: 65 6E 74 20 64 61 74 65 20 5B 26 64 61 74 65 26 ent date [&date&
000180: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C 3E 22 ]: " x..>if x<>"
000190: 22 0D 0A 3E 73 76 20 64 61 74 65 3D 78 0D 0A 3E "..>sv date=x..>
0001A0: 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 id cpm..>cf..>df
0001B0: 20 6F 6D 65 6E 75 0D 0A 3E 65 69 0D 0A 3E 77 66 omenu..>ei..>wf
0001C0: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
0001D0: 77 6D 20 26 64 61 74 65 26 0D 0A 3E 77 63 0D 0A wm &date&..>wc..
0001E0: 3E 65 69 20 3B 78 0D 0A 3E 63 66 0D 0A 3E 64 66 >ei ;x..>cf..>df
0001F0: 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D omenu..>sk 0=0.
Size : 512 (Real : 512)
000000: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
000010: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
000020: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
000030: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
000040: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
000050: 61 34 2C 63 6F 61 35 0D 0A 3E 3E 3E 0D 0A 3E 61 a4,coa5..>>>..>a
000060: 76 20 22 53 74 61 74 65 6D 65 6E 74 20 74 6F 20 v "Statement to
000070: 70 72 69 6E 74 65 72 20 6F 72 20 66 69 6C 65 20 printer or file
000080: 28 70 2F 46 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (p/F)? " x 1..>i
000090: 66 20 78 3D 22 70 22 0D 0A 3E 73 76 20 69 63 3D f x="p"..>sv ic=
0000A0: 22 70 22 20 73 63 3D 22 22 0D 0A 3E 65 6C 0D 0A "p" sc=""..>el..
0000B0: 3E 72 70 0D 0A 3E 61 76 20 22 4E 61 6D 65 20 6F >rp..>av "Name o
0000C0: 66 20 66 69 6C 65 3A 20 22 20 6E 61 6D 65 20 38 f file: " name 8
0000D0: 0D 0A 3E 75 6E 20 6E 61 6D 65 3C 3E 22 22 0D 0A ..>un name<>""..
0000E0: 3E 73 76 20 6E 61 6D 65 3D 22 26 69 6E 76 70 61 >sv name="&invpa
0000F0: 74 68 26 26 6E 61 6D 65 26 2E 70 6F 73 22 0D 0A th&&name&.pos"..
000100: 3E 73 76 20 69 63 3D 22 70 66 20 26 6E 61 6D 65 >sv ic="pf &name
000110: 26 22 20 73 63 3D 22 3E 77 6D 20 22 0D 0A 3E 77 &" sc=">wm "..>w
000120: 66 20 26 6E 61 6D 65 26 0D 0A 3E 65 69 0D 0A 3E f &name&..>ei..>
000130: 77 66 6F 6E 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 wfon..>zm..>tm&c
000140: 61 6C 26 0D 0A 3E 73 6D 26 73 69 64 65 26 0D 0A al&..>sm&side&..
000150: 3E 77 66 6F 66 66 0D 0A 3E 3E 3E 63 66 0D 0A 3E >wfoff..>>>cf..>
000160: 3E 3E 64 66 6F 6D 73 74 61 67 65 6E 2E 69 6E 66 >>dfomstagen.inf
000170: 0D 0A 3E 3E 3E 72 76 69 63 0D 0A 3E 69 66 69 63 ..>>>rvic..>ific
000180: 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 66 6F 6E 0D [2]<>"f"..>wfon.
000190: 0A 3E 66 66 6F 6E 0D 0A 3E 77 66 6F 66 66 0D 0A .>ffon..>wfoff..
0001A0: 3E 65 69 0D 0A 3E 73 76 74 3D 22 53 54 41 54 45 >ei..>svt="STATE
0001B0: 4D 45 4E 54 22 0D 0A 3E 73 76 6D 6E 3D 30 0D 0A MENT"..>svmn=0..
0001C0: 3E 73 76 64 3D 22 6E 22 20 61 30 3D 22 65 6E 64 >svd="n" a0="end
0001D0: 22 0D 0A 3E 61 76 22 53 65 61 72 63 68 20 64 61 "..>av"Search da
0001E0: 74 61 66 69 6C 65 20 28 79 2F 4E 29 3F 20 22 20 tafile (y/N)? "
0001F0: 78 20 31 0D 0A 3E 69 66 78 3D 22 79 22 0D 0A 3E x 1..>ifx="y"..>
Size : 512 (Real : 512)
000000: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A .>ei ; opt="d"..
000010: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
000020: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
000030: 4E 20 4E 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N N >>>..>>>>>>>
000040: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
000050: 70 74 3D 22 6E 22 0D 0A 3E 63 73 20 22 20 22 0D pt="n"..>cs " ".
000060: 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 .>rp..>av "Enter
000070: 20 6E 65 78 74 20 69 6E 76 6F 69 63 65 20 6E 75 next invoice nu
000080: 6D 62 65 72 3A 20 22 20 6E 75 6D 0D 0A 3E 69 66 mber: " num..>if
000090: 20 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 6E 75 6D num=""..>sv num
0000A0: 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E =" "..>ei..>un n
0000B0: 75 6D 5B 31 5D 20 69 6E 20 22 30 31 32 33 34 35 um[1] in "012345
0000C0: 36 37 38 39 22 0D 0A 3E 73 76 20 6E 75 6D 3D 6E 6789"..>sv num=n
0000D0: 75 6D 5B 77 31 5D 0D 0A 3E 69 64 20 63 70 6D 0D um[w1]..>id cpm.
0000E0: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
0000F0: 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 77 66 en.inf..>ei..>wf
000100: 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E ominvgen.num..>
000110: 77 6D 20 26 6E 75 6D 26 0D 0A 3E 77 63 0D 0A 3E wm &num&..>wc..>
000120: 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 sk 0=0..>ei ; op
000130: 74 3D 22 6E 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="n"..>>>>>>>>>
000140: 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 >>>>>>>..>>> OPT
000150: 49 4F 4E 20 49 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E ION I >>>..>>>>>
000160: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 >>>>>>>>>>>..>if
000170: 20 6F 70 74 20 69 6E 20 22 69 63 22 0D 0A 3E 63 opt in "ic"..>c
000180: 73 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 66 20 s " "..>cf..>df
000190: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 ominvgen.num..>r
0001A0: 76 20 6E 75 6D 0D 0A 3E 69 66 20 6F 70 74 3D 22 v num..>if opt="
0001B0: 69 22 0D 0A 3E 73 76 20 74 69 74 6C 65 3D 22 49 i"..>sv title="I
0001C0: 4E 56 4F 49 43 45 22 0D 0A 3E 65 6C 0D 0A 3E 73 NVOICE"..>el..>s
0001D0: 76 20 74 69 74 6C 65 3D 22 43 52 45 44 49 54 20 v title="CREDIT
0001E0: 4E 4F 54 45 22 0D 0A 3E 65 69 0D 0A 3E 77 66 20 NOTE"..>ei..>wf
0001F0: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 ominvgen.num..>w
Size : 512 (Real : 512)
000000: 70 73 20 6F 6D 73 75 6D 6D 61 72 2E 69 6E 66 0D ps omsummar.inf.
000010: 0A 3B 0D 0A 3B 20 50 72 65 73 73 20 61 20 6B 65 .;..; Press a ke
000020: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
000030: 2E 0D 0A 70 61 75 73 65 0D 0A 70 73 0D 0A 1A 1A ...pause..ps....
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000060: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
000090: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
0000A0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
0000B0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
0000C0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
0000D0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
0000E0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0000F0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000130: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000140: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000150: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
000160: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
000170: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
000180: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
000190: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
0001A0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
0001B0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
0001C0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
0001D0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
0001E0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
0001F0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
Size : 512 (Real : 512)
000000: 3E 73 76 20 63 32 3D 22 30 3D 31 22 0D 0A 3E 65 >sv c2="0=1"..>e
000010: 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 i..>sv ff=""..>i
000020: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
000030: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
000040: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000050: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
000060: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
000070: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
000080: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
000090: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
0000A0: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
0000B0: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B sv f0=f1"..>ei ;
0000C0: 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A f* in c1..>>>..
0000D0: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 >if "f*" in c2[6
0000E0: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
0000F0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000100: 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A w1]..>if c2[&n&:
000110: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
000120: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
000130: 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 2=c2[1:&n&]+"f0"
000140: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
000150: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
000160: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
000170: 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E ; f* in c2..>>>
000180: 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A 3E 73 ..>if ff<>""..>s
000190: 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=1..>rp..>sv
0001A0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
0001B0: 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 sv ff=ff+"+f&n&"
0001C0: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0001D0: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 ei..>>>..>dm " "
0001E0: 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 6E 67 ..>dm "Searching
0001F0: 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D 30 0D ..."..>sv nn=0.
Size : 512 (Real : 512)
000000: 2C 72 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 ,ruler2,ruler3,r
000010: 75 6C 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 uler4,ruler5..>r
000020: 76 20 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 v coname,coaddr1
000030: 2C 63 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 ,coaddr2,coaddr3
000040: 2C 63 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 ,coaddr4,coaddr5
000050: 0D 0A 3E 77 66 20 26 69 6E 76 64 72 76 26 3A 6F ..>wf &invdrv&:o
000060: 6D 74 65 6D 70 0D 0A 3E 7A 6D 0D 0A 3E 74 6D 20 mtemp..>zm..>tm
000070: 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 26 73 &caline&..>sm &s
000080: 69 64 65 26 0D 0A 3E 3E 3E 0D 0A 3E 63 66 0D 0A ide&..>>>..>cf..
000090: 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D >df ominvgen.num
0000A0: 0D 0A 3E 72 76 20 6E 75 6D 62 65 72 2C 74 69 74 ..>rv number,tit
0000B0: 6C 65 0D 0A 3E 64 6D 20 22 49 4E 56 47 45 4E 20 le..>dm "INVGEN
0000C0: 76 31 2E 30 30 20 28 63 29 20 41 72 6E 6F 72 20 v1.00 (c) Arnor
0000D0: 31 39 38 38 20 20 28 26 74 69 74 6C 65 26 29 22 1988 (&title&)"
0000E0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 3E 3E 0D 0A ..>dm " "..>>>..
0000F0: 3E 69 64 20 66 69 6C 65 64 61 74 65 0D 0A 3E 63 >id filedate..>c
000100: 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E f..>df ominvgen.
000110: 64 61 74 0D 0A 3E 72 76 20 73 79 73 5F 64 61 74 dat..>rv sys_dat
000120: 65 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 e..>ei..>>>..>sv
000130: 20 76 61 74 63 66 30 3D 31 0D 0A 3E 73 76 20 76 vatcf0=1..>sv v
000140: 61 74 63 66 31 3D 31 2B 76 61 74 31 09 3B 20 56 atcf1=1+vat1.; V
000150: 41 54 20 63 6F 6E 76 65 72 73 69 6F 6E 20 66 61 AT conversion fa
000160: 63 74 6F 72 73 0D 0A 3E 73 76 20 76 61 74 63 66 ctors..>sv vatcf
000170: 32 3D 31 2B 76 61 74 32 0D 0A 3E 73 76 20 76 61 2=1+vat2..>sv va
000180: 74 63 66 33 3D 31 2B 76 61 74 33 0D 0A 3E 73 76 tcf3=1+vat3..>sv
000190: 20 76 61 74 63 66 34 3D 31 2B 76 61 74 34 0D 0A vatcf4=1+vat4..
0001A0: 3E 73 76 20 76 61 74 63 66 35 3D 31 2B 76 61 74 >sv vatcf5=1+vat
0001B0: 35 0D 0A 3E 73 76 20 63 6F 70 79 70 61 74 68 3D 5..>sv copypath=
0001C0: 69 6E 76 64 72 76 2B 22 3A 22 0D 0A 3E 3E 3E 0D invdrv+":"..>>>.
0001D0: 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 63 .>>> read produc
0001E0: 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 63 t info into desc
0001F0: 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 63 1,desc2,...,pric
Size : 512 (Real : 512)
000000: 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 .>df fm.mus..>rv
000010: 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 20 6D mus..>cf..>if m
000020: 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 64 66 26 us="m"..>df &df&
000030: 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E fo$end$..>ei..>
000040: 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E 64 66 20 if mus="u"..>df
000050: 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 &newfile& fo$end
000060: 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D $..>ei..>if mus=
000070: 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 6C "s"..>df &selfil
000080: 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D e& fo$end$..>ei.
000090: 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 26 0D 0A .>wf &selfile&..
0000A0: 3E 65 69 20 3B 20 69 66 20 75 6E 64 65 66 69 6E >ei ; if undefin
0000B0: 65 64 20 64 66 0D 0A 1A 20 26 63 32 26 0D 0A 3E ed df... &c2&..>
0000C0: 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D el..>sk0=0..>ei.
0000D0: 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 .>ei..>zm..>npof
0000E0: 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 f..>sv n=0..>if
0000F0: 66 76 3D 22 66 22 20 3B 20 66 69 78 65 64 0D 0A fv="f" ; fixed..
000100: 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E n&:]="f*"..>sv n
000110: 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n-1 n=n[w1]..>s
000120: 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 v c3=c3[1:&n&]+"
000130: 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 f0"..>sv n=0..>e
000140: 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 i..>un n=0..>sv
000150: 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A ff=">sv f0=f1"..
000160: 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A >ei ; f* in c3..
000170: 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D >>>..>if ff<>"".
000180: 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E .>sv n=1..>rp..>
000190: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0001A0: 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 ..>sv ff=ff+"+f&
0001B0: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
0001C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 ..>ei..>>>..>dm
0001D0: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
0001E0: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
0001F0: 3D 30 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D =0..>ei ; iu df.
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
000030: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
000040: 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D el..>sk0=0..>ei.
000050: 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 .>ei..>zm..>npof
000060: 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 f..>sv n=0..>if
000070: 66 76 3D 22 66 22 20 3B 20 66 69 78 65 64 0D 0A fv="f" ; fixed..
000080: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
000090: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
0000A0: 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E n&..>wm !s!..>un
0000B0: 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 n=rlen..>el ; v
0000C0: 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ar..>rp..>sv n=n
0000D0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0000E0: 73 3D 66 26 6E 26 0D 0A 3E 69 66 20 73 3D 22 22 s=f&n&..>if s=""
0000F0: 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E 2B ..>sv s=n+1 m=n+
000100: 32 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 31 2 s=s[w1] m=m[w1
000110: 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 26 ]..>sv s=f&s&+f&
000120: 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 m&..>if s=""..>s
000130: 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C 0D 0A 3E v n=rlen..>el..>
000140: 73 76 20 73 3D 22 24 22 0D 0A 3E 65 69 0D 0A 3E sv s="$"..>ei..>
000150: 65 69 0D 0A 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E ei..>wm !s!..>un
000160: 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 3B 20 66 n=rlen..>ei ; f
000170: 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 2B 31 0D /v..>sv nn=nn+1.
000180: 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E .>el ; f1=end..>
000190: 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 sv nn=nn[w1]..>d
0001A0: 6D 20 22 20 22 0D 0A 3E 77 74 20 22 26 6E 6E 26 m " "..>wt "&nn&
0001B0: 20 72 65 63 6F 72 64 73 20 66 6F 75 6E 64 2E 20 records found.
0001C0: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
0001D0: 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 ontinue .....>wc
0001E0: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 ..>cf..>ex exec
0001F0: 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 fm..>st..>ei..>s
Size : 512 (Real : 512)
000000: 20 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 20 69 ; real file i
000010: 6E 20 72 65 61 6C 20 66 69 6C 65 20 28 73 69 63 n real file (sic
000020: 29 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 )..>el..>wf &new
000030: 66 69 6C 65 26 20 61 0D 0A 3E 77 63 0D 0A 3E 65 file& a..>wc..>e
000040: 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 i..>dm " "..>dm
000050: 22 57 72 69 74 69 6E 67 20 66 69 6C 65 73 20 2E "Writing files .
000060: 2E 2E 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 63 .."..>id cpm..>c
000070: 66 0D 0A 3E 64 66 20 66 6D 24 70 66 69 24 09 3B f..>df fm$pfi$.;
000080: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 69 0D 0A handle 0..>ei..
000090: 3E 65 69 20 3B 20 69 75 20 70 66 69 66 69 6C 65 >ei ; iu pfifile
0000A0: 0D 0A 3E 3E 3E 20 4E 6F 77 20 77 72 69 74 65 20 ..>>> Now write
0000B0: 74 68 65 6D 20 6F 75 74 0D 0A 3E 77 66 20 26 70 them out..>wf &p
0000C0: 66 69 66 69 6C 65 26 09 3B 20 68 61 6E 64 6C 65 fifile&.; handle
0000D0: 20 31 0D 0A 3E 77 6D 20 27 3E 73 76 20 20 20 20 1..>wm '>sv
0000E0: 20 20 64 66 3D 22 26 64 66 26 22 0D 0A 3E 77 6D df="&df&"..>wm
0000F0: 20 27 3E 73 76 20 6E 65 77 66 69 6C 65 3D 22 26 '>sv newfile="&
000100: 6E 65 77 66 69 6C 65 26 0D 0A 3E 77 6D 20 27 3E newfile&..>wm '>
000110: 73 76 20 73 65 6C 66 69 6C 65 3D 22 26 73 65 6C sv selfile="&sel
000120: 66 69 6C 65 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 file&"..>wm '>sv
000130: 20 66 76 3D 22 26 66 76 26 22 0D 0A 3E 77 6D 20 fv="&fv&"..>wm
000140: 27 3E 73 76 20 72 6C 65 6E 3D 22 26 72 6C 65 6E '>sv rlen="&rlen
000150: 26 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 &"..>sv n=0..>rp
000160: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000170: 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D w1]..>sv s=n&n&.
000180: 0A 3E 77 6D 20 27 3E 73 76 20 6E 26 6E 26 3D 22 .>wm '>sv n&n&="
000190: 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &s&"..>un n>=rle
0001A0: 6E 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 73 6F 72 n..>wm '>sv fsor
0001B0: 74 6F 70 74 73 3D 22 26 66 73 6F 72 74 6F 70 74 topts="&fsortopt
0001C0: 73 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 6D 61 s&"..>wm '>sv ma
0001D0: 78 77 3D 22 26 6D 61 78 77 26 22 0D 0A 3E 77 6D xw="&maxw&"..>wm
0001E0: 20 27 3E 73 76 20 6C 61 73 74 62 6C 61 6E 6B 3D '>sv lastblank=
0001F0: 22 26 6C 61 73 74 62 6C 61 6E 6B 26 22 0D 0A 3E "&lastblank&"..>
Size : 512 (Real : 512)
000000: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 k 0=0..>ei ; id
000010: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
000020: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
000030: 70 74 69 6F 6E 20 53 2E 32 20 2D 20 53 65 6C 65 ption S.2 - Sele
000040: 63 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E 64 ct records (cond
000050: 31 20 4F 52 20 63 6F 6E 64 32 29 22 0D 0A 3E 64 1 OR cond2)"..>d
000060: 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 m " "..>in fm$pf
000070: 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D i$..>sv fv=fv[1]
000080: 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A rlen=rlen[w1]..
000090: 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 >if fv="f"..>sv
0000A0: 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C flist=">ru"..>el
0000B0: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 ..>sv flist=">rv
0000C0: 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D "..>ei..>sv n=0.
0000D0: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
0000E0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 n=n[w1]..>sv fli
0000F0: 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 st=flist+" f&n&"
000100: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
000110: 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E sv n=n+1 m=n+1 n
000120: 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A =n[w1] m=m[w1]..
000130: 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 >sv f&n&="" f&m&
000140: 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 =""..>>>..>dm "F
000150: 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E ield names: "..>
000160: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
000170: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
000180: 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 >sv s=n&n&..>dm
000190: 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E f&n&: &s&..>un n
0001A0: 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 =rlen..>>>..>dm
0001B0: 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 " "..>dm "When e
0001C0: 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F ntering conditio
0001D0: 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 ns below, please
0001E0: 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 remember to enc
0001F0: 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 6E 20 lose strings in
Size : 512 (Real : 512)
000000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
000050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 20 0D 0A end..end..end ..
000100: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
000110: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
000120: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
000130: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
000140: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
000150: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
000160: 4E 20 55 20 20 2A 2A 2A 0D 0A 3E 64 6D 20 22 20 N U ***..>dm "
000170: 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 "..>dm "
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
000190: 20 2D 20 50 72 69 6E 74 20 61 6E 20 49 6E 76 6F - Print an Invo
0001A0: 69 63 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 ice..>dm "
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 43 20 2D 20 50 72 69 6E 74 20 61 20 43 72 65 C - Print a Cre
0001D0: 64 69 74 20 6E 6F 74 65 0D 0A 3E 64 6D 20 22 20 dit note..>dm "
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 53 20 2D 20 50 72 69 6E 74 20 S - Print
Size : 512 (Real : 512)
000000: 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E quotes"..>dm 'e.
000010: 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 g. "London" in F
000020: 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 4..>dm " "..>sv
000030: 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 22 ok="'" + '"' + "
000040: 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 0123456789."..>s
000050: 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 v n="1"..>rp..>a
000060: 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 v "Enter conditi
000070: 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 76 on &n&: " s..>sv
000080: 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D 0D err=0 s=s[w1:].
000090: 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 66 .>sv c&n&=s..>if
0000A0: 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 63 c1=""..>ex exec
0000B0: 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E fm..>st..>ei..>
0000C0: 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 if s[1]="f"..>if
0000D0: 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 s[2] notin "*12
0000E0: 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 3456789"..>sv er
0000F0: 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E r=1..>ei..>el..>
000100: 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B if s[1] notin ok
000110: 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 ..>sv err=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 ..>ei..>>>..>sv
000130: 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 66 s=c&n&[w-1]..>if
000140: 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 73 s[1]="f"..>if s
000150: 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 34 [2] notin "*1234
000160: 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 3D 56789"..>sv err=
000170: 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 66 1..>ei..>el..>if
000180: 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D 0A s[1] notin ok..
000190: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
0001A0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 72 >ei..>>>..>if er
0001B0: 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E r=0..>sv n=n+1 n
0001C0: 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 6D =n[w1]..>el..>dm
0001D0: 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 22 "Invalid input"
0001E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 32 0D 0A ..>ei..>un n>2..
0001F0: 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 0D 0A >>>..>if c2=""..
Size : 512 (Real : 512)
000000: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
000010: 4D 61 6B 69 6E 67 20 4D 6F 76 69 65 73 0D 0A 43 Making Movies..C
000020: 44 0D 0A 31 39 38 30 0D 0A 0D 0A 0D 0A 0D 0A 44 D..1980........D
000030: 76 6F 72 08 04 61 6B 0D 0A 53 79 6D 70 68 6F 6E vor..ak..Symphon
000040: 79 20 6E 6F 2E 20 39 20 27 46 72 6F 6D 20 74 68 y no. 9 'From th
000050: 65 20 4E 65 77 20 57 6F 72 6C 64 27 0D 0A 43 44 e New World'..CD
000060: 0D 0A 31 39 38 37 0D 0A 4C 6F 6E 64 6F 6E 20 53 ..1987..London S
000070: 2E 4F 2E 0D 0A 42 61 72 72 79 20 54 75 63 6B 77 .O...Barry Tuckw
000080: 65 6C 6C 0D 0A 0D 0A 45 61 67 6C 65 73 0D 0A 48 ell....Eagles..H
000090: 6F 74 65 6C 20 43 61 6C 69 66 6F 72 6E 69 61 0D otel California.
0000A0: 0A 43 44 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D .CD..1976.......
0000B0: 0A 45 6C 65 63 74 72 69 63 20 4C 69 67 68 74 20 .Electric Light
0000C0: 4F 72 63 68 65 73 74 72 61 0D 0A 4F 75 74 20 6F Orchestra..Out o
0000D0: 66 20 74 68 65 20 42 6C 75 65 0D 0A 52 65 63 6F f the Blue..Reco
0000E0: 72 64 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D 0A rd..1976........
0000F0: 45 6C 67 61 72 0D 0A 45 6E 69 67 6D 61 20 56 61 Elgar..Enigma Va
000100: 72 69 61 74 69 6F 6E 73 0D 0A 43 44 0D 0A 31 39 riations..CD..19
000110: 38 32 0D 0A 42 42 43 20 53 2E 4F 2E 0D 0A 4C 65 82..BBC S.O...Le
000120: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
000130: 0A 0D 0A 47 65 6E 65 73 69 73 0D 0A 46 6F 78 74 ...Genesis..Foxt
000140: 72 6F 74 0D 0A 52 65 63 6F 72 64 0D 0A 31 39 37 rot..Record..197
000150: 34 0D 0A 0D 0A 0D 0A 0D 0A 4A 6F 68 61 6E 6E 20 4........Johann
000160: 53 74 72 61 75 73 73 0D 0A 41 6E 20 64 65 72 20 Strauss..An der
000170: 73 63 68 9F F3 6E 65 6E 20 62 6C 61 75 65 6E 20 sch..nen blauen
000180: 44 6F 6E 61 75 0D 0A 43 44 0D 0A 31 39 38 31 0D Donau..CD..1981.
000190: 0A 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 .Berliner Philha
0001A0: 72 6D 6F 6E 69 6B 65 72 0D 0A 48 65 72 62 65 72 rmoniker..Herber
0001B0: 74 20 76 6F 6E 20 4B 61 72 61 6A 61 6E 0D 0A 0D t von Karajan...
0001C0: 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 6F 6E .Mahler..Symphon
0001D0: 79 20 6E 6F 2E 20 31 0D 0A 43 44 0D 0A 31 39 38 y no. 1..CD..198
0001E0: 32 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 2..Chicago S.O..
0001F0: 0A 43 6C 61 75 64 69 6F 20 41 62 62 61 64 6F 0D .Claudio Abbado.
Size : 512 (Real : 512)
000000: 42 65 61 74 6C 65 73 0D 0A 41 62 62 65 79 20 52 Beatles..Abbey R
000010: 6F 61 64 0D 0A 43 44 0D 0A 31 39 37 30 0D 0A 0D oad..CD..1970...
000020: 0A 0D 0A 0D 0A 42 65 65 74 68 6F 76 65 6E 0D 0A .....Beethoven..
000030: 53 79 6D 70 68 6F 6E 79 20 6E 6F 2E 20 33 20 27 Symphony no. 3 '
000040: 45 72 6F 69 63 61 27 0D 0A 52 65 63 6F 72 64 0D Eroica'..Record.
000050: 0A 31 39 37 37 0D 0A 53 79 6D 70 68 6F 6E 69 63 .1977..Symphonic
000060: 61 20 6F 66 20 4C 6F 6E 64 6F 6E 0D 0A 57 79 6E a of London..Wyn
000070: 20 4D 6F 72 72 69 73 0D 0A 0D 0A 42 65 65 74 68 Morris....Beeth
000080: 6F 76 65 6E 0D 0A 53 79 6D 70 68 6F 6E 79 20 6E oven..Symphony n
000090: 6F 2E 20 39 0D 0A 43 44 0D 0A 31 39 38 34 0D 0A o. 9..CD..1984..
0000A0: 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 72 Berliner Philhar
0000B0: 6D 6F 6E 69 6B 65 72 20 77 69 74 68 20 74 68 65 moniker with the
0000C0: 20 57 69 65 6E 65 72 20 53 69 6E 67 76 65 72 65 Wiener Singvere
0000D0: 69 6E 0D 0A 48 65 72 62 65 72 74 20 76 6F 6E 20 in..Herbert von
0000E0: 4B 61 72 61 6A 61 6E 0D 0A 0D 0A 42 72 75 63 65 Karajan....Bruce
0000F0: 20 53 70 72 69 6E 67 73 74 65 65 6E 0D 0A 42 6F Springsteen..Bo
000100: 72 6E 20 69 6E 20 74 68 65 20 55 2E 53 2E 41 2E rn in the U.S.A.
000110: 0D 0A 43 44 0D 0A 31 39 38 34 0D 0A 0D 0A 0D 0A ..CD..1984......
000120: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
000130: 41 6C 63 68 65 6D 79 0D 0A 52 65 63 6F 72 64 0D Alchemy..Record.
000140: 0A 31 39 38 34 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 .1984........Dir
000150: 65 20 53 74 72 61 69 74 73 0D 0A 42 72 6F 74 68 e Straits..Broth
000160: 65 72 73 20 69 6E 20 41 72 6D 73 0D 0A 43 44 0D ers in Arms..CD.
000170: 0A 31 39 38 35 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 .1985........Dir
000180: 65 20 53 74 72 61 69 74 73 0D 0A 43 6F 6D 6D 75 e Straits..Commu
000190: 6E 69 71 75 9F E1 0D 0A 43 44 0D 0A 31 39 37 39 niqu....CD..1979
0001A0: 0D 0A 0D 0A 0D 0A 0D 0A 44 69 72 65 20 53 74 72 ........Dire Str
0001B0: 61 69 74 73 0D 0A 44 69 72 65 20 53 74 72 61 69 aits..Dire Strai
0001C0: 74 73 0D 0A 43 44 0D 0A 31 39 37 38 0D 0A 0D 0A ts..CD..1978....
0001D0: 0D 0A 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 ....Dire Straits
0001E0: 0D 0A 4C 6F 76 65 20 4F 76 65 72 20 47 6F 6C 64 ..Love Over Gold
0001F0: 0D 0A 43 44 0D 0A 31 39 38 32 0D 0A 0D 0A 0D 0A ..CD..1982......
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
000030: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
000040: 65 6C 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 65 el..>if &c3&..>e
000050: 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D 0A l..>sk0=0..>ei..
000060: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E >ei..>ei..>zm..>
000070: 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A npoff..>sv n=0..
000080: 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 69 78 >if fv="f" ; fix
000090: 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ed..>rp..>sv n=n
0000A0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0000B0: 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=f&n&..>wm !s!.
0000C0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>un n=rlen..>el
0000D0: 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 ; var..>rp..>sv
0000E0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0000F0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 66 20 >sv s=f&n&..>if
000100: 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 s=""..>sv s=n+1
000110: 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 6D 3D m=n+2 s=s[w1] m=
000120: 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 m[w1]..>sv s=f&s
000130: 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 &+f&m&..>if s=""
000140: 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 ..>sv n=rlen..>e
000150: 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A 3E 65 l..>sv s="$"..>e
000160: 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 21 0D i..>ei..>wm !s!.
000170: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 .>un n=rlen..>ei
000180: 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E ; f/v..>sv nn=n
000190: 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E n+1..>el ; f1=en
0001A0: 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D d..>sv nn=nn[w1]
0001B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 20 22 ..>dm " "..>wt "
0001C0: 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F 75 &nn& records fou
0001D0: 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 nd. Press a key
0001E0: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D to continue ....
0001F0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
Size : 512 (Real : 512)
000000: 0D 0A 44 69 72 65 20 53 74 72 61 69 74 73 0D 0A ..Dire Straits..
000010: 4D 61 6B 69 6E 67 20 4D 6F 76 69 65 73 0D 0A 43 Making Movies..C
000020: 44 0D 0A 31 39 38 30 0D 0A 0D 0A 0D 0A 0D 0A 44 D..1980........D
000030: 76 6F 72 08 04 61 6B 0D 0A 53 79 6D 70 68 6F 6E vor..ak..Symphon
000040: 79 20 6E 6F 2E 20 39 20 27 46 72 6F 6D 20 74 68 y no. 9 'From th
000050: 65 20 4E 65 77 20 57 6F 72 6C 64 27 0D 0A 43 44 e New World'..CD
000060: 0D 0A 31 39 38 37 0D 0A 4C 6F 6E 64 6F 6E 20 53 ..1987..London S
000070: 2E 4F 2E 0D 0A 42 61 72 72 79 20 54 75 63 6B 77 .O...Barry Tuckw
000080: 65 6C 6C 0D 0A 0D 0A 45 61 67 6C 65 73 0D 0A 48 ell....Eagles..H
000090: 6F 74 65 6C 20 43 61 6C 69 66 6F 72 6E 69 61 0D otel California.
0000A0: 0A 43 44 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D .CD..1976.......
0000B0: 0A 45 6C 65 63 74 72 69 63 20 4C 69 67 68 74 20 .Electric Light
0000C0: 4F 72 63 68 65 73 74 72 61 0D 0A 4F 75 74 20 6F Orchestra..Out o
0000D0: 66 20 74 68 65 20 42 6C 75 65 0D 0A 52 65 63 6F f the Blue..Reco
0000E0: 72 64 0D 0A 31 39 37 36 0D 0A 0D 0A 0D 0A 0D 0A rd..1976........
0000F0: 45 6C 67 61 72 0D 0A 45 6E 69 67 6D 61 20 56 61 Elgar..Enigma Va
000100: 72 69 61 74 69 6F 6E 73 0D 0A 43 44 0D 0A 31 39 riations..CD..19
000110: 38 32 0D 0A 42 42 43 20 53 2E 4F 2E 0D 0A 4C 65 82..BBC S.O...Le
000120: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
000130: 0A 0D 0A 47 65 6E 65 73 69 73 0D 0A 46 6F 78 74 ...Genesis..Foxt
000140: 72 6F 74 0D 0A 52 65 63 6F 72 64 0D 0A 31 39 37 rot..Record..197
000150: 34 0D 0A 0D 0A 0D 0A 0D 0A 4A 6F 68 61 6E 6E 20 4........Johann
000160: 53 74 72 61 75 73 73 0D 0A 41 6E 20 64 65 72 20 Strauss..An der
000170: 73 63 68 9F F3 6E 65 6E 20 62 6C 61 75 65 6E 20 sch..nen blauen
000180: 44 6F 6E 61 75 0D 0A 43 44 0D 0A 31 39 38 31 0D Donau..CD..1981.
000190: 0A 42 65 72 6C 69 6E 65 72 20 50 68 69 6C 68 61 .Berliner Philha
0001A0: 72 6D 6F 6E 69 6B 65 72 0D 0A 48 65 72 62 65 72 rmoniker..Herber
0001B0: 74 20 76 6F 6E 20 4B 61 72 61 6A 61 6E 0D 0A 0D t von Karajan...
0001C0: 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 6F 6E .Mahler..Symphon
0001D0: 79 20 6E 6F 2E 20 31 0D 0A 43 44 0D 0A 31 39 38 y no. 1..CD..198
0001E0: 32 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 2..Chicago S.O..
0001F0: 0A 43 6C 61 75 64 69 6F 20 41 62 62 61 64 6F 0D .Claudio Abbado.
Size : 512 (Real : 512)
000000: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
000010: 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B ..>sk 0=0..>ei ;
000020: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
000030: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
000040: 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 m "Option S.3 -
000050: 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 Select records (
000060: 63 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 32 20 6F cond1 OR cond2 o
000070: 72 20 63 6F 6E 64 33 29 22 0D 0A 3E 64 6D 20 22 r cond3)"..>dm "
000080: 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D "..>in fm$pfi$.
000090: 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C .>sv fv=fv[1] rl
0000A0: 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 en=rlen[w1]..>if
0000B0: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
0000C0: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
0000D0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
0000E0: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
0000F0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000100: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D [w1]..>sv flist=
000110: 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E flist+" f&n&"..>
000120: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 73 76 20 un n>=rlen..>sv
000130: 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 6E 3D 6E 5B n=n+1 m=n+1 n=n[
000140: 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 w1] m=m[w1]..>sv
000150: 20 66 26 6E 26 3D 22 22 20 66 26 6D 26 3D 22 22 f&n&="" f&m&=""
000160: 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 6C ..>>>..>dm "Fiel
000170: 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 d names: "..>sv
000180: 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D n=0..>rp..>sv n=
000190: 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n+1 n=n[w1]..>sv
0001A0: 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E s=n&n&..>dm f&n
0001B0: 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 6C &: &s&..>un n=rl
0001C0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 57 68 en..>>>..>dm "Wh
0001D0: 65 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 en entering cond
0001E0: 69 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C itions below, pl
0001F0: 65 61 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F ease remember to
Size : 512 (Real : 512)
000000: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
000010: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
000020: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---!------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D --------------R.
000070: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
000080: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
000090: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
0000A0: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
0000B0: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
0000C0: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
0000D0: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
0000E0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
0000F0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
000100: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
000110: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
000120: 6F 72 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 orinc,showdisc,a
000130: 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 skfn,askcar,usep
000140: 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 rod,defdisc..>rv
000150: 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C caline,aline,tl
000160: 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 ine,totline..>rv
000170: 20 73 69 64 65 2C 72 63 31 2C 72 63 32 2C 72 63 side,rc1,rc2,rc
000180: 33 2C 72 63 34 2C 72 63 35 0D 0A 3E 72 76 20 72 3,rc4,rc5..>rv r
000190: 75 6C 65 72 31 2C 72 75 6C 65 72 32 2C 72 75 6C uler1,ruler2,rul
0001A0: 65 72 33 2C 72 75 6C 65 72 34 2C 72 75 6C 65 72 er3,ruler4,ruler
0001B0: 35 0D 0A 3E 72 76 20 63 6F 6E 61 6D 65 2C 63 6F 5..>rv coname,co
0001C0: 61 64 64 72 31 2C 63 6F 61 64 64 72 32 2C 63 6F addr1,coaddr2,co
0001D0: 61 64 64 72 33 2C 63 6F 61 64 64 72 34 2C 63 6F addr3,coaddr4,co
0001E0: 61 64 64 72 35 0D 0A 3E 63 73 20 22 20 22 0D 0A addr5..>cs " "..
0001F0: 3E 64 6D 20 50 52 4F 54 45 58 54 20 4F 46 46 49 >dm PROTEXT OFFI
Size : 512 (Real : 512)
000000: 6D 20 26 6E 75 6D 26 2C 26 74 69 74 6C 65 26 0D m &num&,&title&.
000010: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
000020: 78 65 63 20 6F 6D 6F 70 74 69 0D 0A 3E 73 74 0D xec omopti..>st.
000030: 0A 3E 65 69 20 3B 20 6F 70 74 20 69 6E 20 22 69 .>ei ; opt in "i
000040: 63 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E c"..>>>>>>>>>>>>
000050: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
000060: 20 52 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E R >>>..>>>>>>>>
000070: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
000080: 74 3D 22 72 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="r"..>cs " "..
000090: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
0000A0: 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 64 n.inf..>rv addrd
0000B0: 72 76 2C 69 6E 76 70 61 74 68 0D 0A 3E 64 6D 20 rv,invpath..>dm
0000C0: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 " "..>rp..>av "I
0000D0: 6E 76 6F 69 63 65 2C 20 63 72 65 64 69 74 20 6E nvoice, credit n
0000E0: 6F 74 65 2C 20 6F 72 20 73 74 61 74 65 6D 65 6E ote, or statemen
0000F0: 74 20 28 49 2F 63 2F 73 29 3F 20 22 20 64 74 79 t (I/c/s)? " dty
000100: 70 65 20 31 0D 0A 3E 69 66 20 64 74 79 70 65 3D pe 1..>if dtype=
000110: 22 22 0D 0A 3E 73 76 20 64 74 79 70 65 3D 22 69 ""..>sv dtype="i
000120: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 64 74 79 70 "..>ei..>un dtyp
000130: 65 20 69 6E 20 22 69 63 73 22 0D 0A 3E 64 6D 20 e in "ics"..>dm
000140: 22 20 22 0D 0A 3E 64 6D 20 22 4C 69 73 74 20 6F " "..>dm "List o
000150: 66 20 61 76 61 69 6C 61 62 6C 65 20 66 69 6C 65 f available file
000160: 73 2E 20 54 68 65 20 66 69 6C 65 20 65 78 74 65 s. The file exte
000170: 6E 73 69 6F 6E 20 6E 65 65 64 20 6E 6F 74 20 62 nsion need not b
000180: 65 20 74 79 70 65 64 2E 22 0D 0A 3E 64 6D 20 22 e typed."..>dm "
000190: 20 22 0D 0A 3E 69 66 20 64 74 79 70 65 3D 22 73 "..>if dtype="s
0001A0: 22 0D 0A 3E 65 78 20 63 61 74 20 26 69 6E 76 70 "..>ex cat &invp
0001B0: 61 74 68 26 2A 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A ath&*.pos..>el..
0001C0: 3E 65 78 20 63 61 74 20 26 69 6E 76 70 61 74 68 >ex cat &invpath
0001D0: 26 26 64 74 79 70 65 26 2A 2E 70 6F 69 0D 0A 3E &&dtype&*.poi..>
0001E0: 65 69 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E ei..>av "Enter n
0001F0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 70 ame of file to p
Size : 512 (Real : 512)
000000: 43 45 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E CE CONFIGURATION
000010: 20 50 52 4F 47 52 41 4D 0D 0A 3E 64 6D 20 22 20 PROGRAM..>dm "
000020: 22 0D 0A 3E 61 76 20 22 54 79 70 65 20 74 68 65 "..>av "Type the
000030: 20 6E 61 6D 65 20 6F 66 20 79 6F 75 72 20 62 75 name of your bu
000040: 73 69 6E 65 73 73 20 5B 26 63 6F 6E 61 6D 65 26 siness [&coname&
000050: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E ]: " x..>if x <>
000060: 20 22 22 0D 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D ""..>sv coname=
000070: 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 45 6E 74 x..>ei..>dm "Ent
000080: 65 72 20 79 6F 75 72 20 61 64 64 72 65 73 73 20 er your address
000090: 28 6D 61 78 20 35 20 6C 69 6E 65 73 29 22 0D 0A (max 5 lines)"..
0000A0: 3E 61 76 20 22 4C 69 6E 65 20 31 20 5B 26 63 6F >av "Line 1 [&co
0000B0: 61 64 64 72 31 26 5D 3A 20 22 20 78 0D 0A 3E 69 addr1&]: " x..>i
0000C0: 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 f x <> ""..>sv c
0000D0: 6F 61 64 64 72 31 3D 78 0D 0A 3E 65 69 0D 0A 3E oaddr1=x..>ei..>
0000E0: 61 76 20 22 4C 69 6E 65 20 32 20 5B 26 63 6F 61 av "Line 2 [&coa
0000F0: 64 64 72 32 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 ddr2&]: " x..>if
000100: 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F x <> ""..>sv co
000110: 61 64 64 72 32 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 addr2=x..>ei..>a
000120: 76 20 22 4C 69 6E 65 20 33 20 5B 26 63 6F 61 64 v "Line 3 [&coad
000130: 64 72 33 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 dr3&]: " x..>if
000140: 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 x <> ""..>sv coa
000150: 64 64 72 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 ddr3=x..>ei..>av
000160: 20 22 4C 69 6E 65 20 34 20 5B 26 63 6F 61 64 64 "Line 4 [&coadd
000170: 72 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 r4&]: " x..>if x
000180: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 <> ""..>sv coad
000190: 64 72 34 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 dr4=x..>ei..>av
0001A0: 22 4C 69 6E 65 20 35 20 5B 26 63 6F 61 64 64 72 "Line 5 [&coaddr
0001B0: 35 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 5&]: " x..>if x
0001C0: 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 64 <> ""..>sv coadd
0001D0: 72 35 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 r5=x..>ei..>dm "
0001E0: 20 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E "..>av "Enter n
0001F0: 61 6D 65 20 6F 66 20 61 64 64 72 65 73 73 20 64 ame of address d
Size : 512 (Real : 512)
000000: 72 69 6E 74 3A 20 22 20 66 6E 20 31 32 0D 0A 3E rint: " fn 12..>
000010: 73 76 20 66 6E 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 sv fn=fn[w1]..>i
000020: 66 20 66 6E 3C 3E 22 22 0D 0A 3E 69 66 20 22 2E f fn<>""..>if ".
000030: 22 20 6E 6F 74 69 6E 20 66 6E 0D 0A 3E 69 66 20 " notin fn..>if
000040: 64 74 79 70 65 3D 22 73 22 0D 0A 3E 73 76 20 66 dtype="s"..>sv f
000050: 6E 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 n=invpath+fn+".p
000060: 6F 73 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E os"..>el..>sv fn
000070: 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 6F =invpath+fn+".po
000080: 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 61 i"..>ei..>ei..>a
000090: 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F 72 v "To printer or
0000A0: 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 22 screen (p/s)? "
0000B0: 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D x 1..>if x<>"".
0000C0: 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 .>wf om.x..>if x
0000D0: 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 ="p"..>wm "load
0000E0: 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C &fn&|13|doc|13||
0000F0: 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 766|p|13|load om
000100: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
000110: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
000120: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
000130: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
000140: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
000150: 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A nu|13|ps"..>ei..
000160: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
000170: 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 ec om.x..>st..>e
000180: 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E 0D i ; x..>ei ; fn.
000190: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D 0A .>ei ; opt="r"..
0001A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0001B0: 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 45 20 3E ..>>> OPTION E >
0001C0: 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>..>>>>>>>>>>>>
0001D0: 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 65 >>>>..>if opt="e
0001E0: 22 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D "..>-------!----
0001F0: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 20 3B 20 6D 69 73 73 20 6F 6E >id df ; miss on
000010: 20 66 69 72 73 74 20 70 61 73 73 0D 0A 3E 3E 3E first pass..>>>
000020: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
000030: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
000040: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000050: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000060: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
000070: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
000080: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
000090: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
0000A0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
0000B0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
0000C0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
0000D0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
0000E0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
0000F0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
000100: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000110: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
000120: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
000130: 6C 65 6E 3D 6D 61 78 0D 0A 3E 72 70 0D 0A 3E 73 len=max..>rp..>s
000140: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000150: 0A 3E 69 66 20 70 61 64 3D 22 79 22 0D 0A 3E 73 .>if pad="y"..>s
000160: 76 20 76 26 6E 26 3D 22 22 0D 0A 3E 65 6C 0D 0A v v&n&=""..>el..
000170: 3E 73 76 20 73 3D 70 26 6E 26 0D 0A 3E 61 76 20 >sv s=p&n&..>av
000180: 22 26 73 26 22 20 76 26 6E 26 0D 0A 3E 69 66 20 "&s&" v&n&..>if
000190: 66 76 3D 22 76 22 0D 0A 3E 69 66 20 76 26 6E 26 fv="v"..>if v&n&
0001A0: 3D 22 22 0D 0A 3E 73 76 20 70 61 64 3D 22 79 22 =""..>sv pad="y"
0001B0: 20 76 6C 65 6E 3D 6E 20 63 68 6B 6C 65 6E 3D 6E vlen=n chklen=n
0001C0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 -1..>ei..>ei..>e
0001D0: 69 0D 0A 3E 75 6E 20 6E 3E 3D 6D 61 78 0D 0A 3E i..>un n>=max..>
0001E0: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 >>..>dm " "..>rp
0001F0: 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 20 43 ..>av " C
Size : 512 (Real : 512)
000000: 78 20 63 61 74 20 26 69 6E 76 64 72 76 26 3A 2A x cat &invdrv&:*
000010: 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 63 .pos..>el..>ex c
000020: 61 74 20 26 69 6E 76 64 72 76 26 3A 26 64 74 79 at &invdrv&:&dty
000030: 70 65 26 2A 2E 70 6F 69 0D 0A 3E 65 69 0D 0A 3E pe&*.poi..>ei..>
000040: 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F av "Enter name o
000050: 66 20 66 69 6C 65 20 74 6F 20 70 72 69 6E 74 3A f file to print:
000060: 20 22 20 66 6E 20 31 32 0D 0A 3E 73 76 20 66 6E " fn 12..>sv fn
000070: 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 6E 3C =fn[w1]..>if fn<
000080: 3E 22 22 0D 0A 3E 69 66 20 22 2E 22 20 6E 6F 74 >""..>if "." not
000090: 69 6E 20 66 6E 0D 0A 3E 69 66 20 64 74 79 70 65 in fn..>if dtype
0000A0: 3D 22 73 22 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 ="s"..>sv fn=inv
0000B0: 64 72 76 2B 22 3A 22 2B 66 6E 2B 22 2E 70 6F 73 drv+":"+fn+".pos
0000C0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E 3D 69 "..>el..>sv fn=i
0000D0: 6E 76 64 72 76 2B 22 3A 22 2B 66 6E 2B 22 2E 70 nvdrv+":"+fn+".p
0000E0: 6F 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E oi"..>ei..>ei..>
0000F0: 61 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F av "To printer o
000100: 72 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 r screen (p/s)?
000110: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
000120: 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 ..>wf om.x..>if
000130: 78 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 x="p"..>wm "load
000140: 20 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C &fn&|13|doc|13|
000150: 7C 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F |766|p|13|load o
000160: 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C menu|13|ps"..>el
000170: 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 ..>wm "ps &fn&|1
000180: 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 3|; Press a key
000190: 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C to continue:|13|
0001A0: 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D pause|13|load om
0001B0: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D enu|13|ps"..>ei.
0001C0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
0001D0: 78 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E xec om.x..>st..>
0001E0: 65 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E ei ; x..>ei ; fn
0001F0: 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D ..>ei ; opt="r".
Size : 512 (Real : 512)
000000: 6F 72 72 65 63 74 20 5B 59 2F 6E 5D 3F 20 22 20 orrect [Y/n]? "
000010: 63 6F 72 72 20 31 0D 0A 3E 69 66 20 63 6F 72 72 corr 1..>if corr
000020: 3D 22 22 0D 0A 3E 73 76 20 63 6F 72 72 3D 22 79 =""..>sv corr="y
000030: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 63 6F 72 72 "..>ei..>un corr
000040: 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 63 6F in "yn"..>if co
000050: 72 72 3D 22 6E 22 0D 0A 3E 73 6B 20 30 3D 30 0D rr="n"..>sk 0=0.
000060: 0A 3E 65 69 0D 0A 3E 3E 3E 20 69 66 20 22 2C 22 .>ei..>>> if ","
000070: 20 22 27 22 20 6F 72 20 27 22 27 20 63 61 6E 20 "'" or '"' can
000080: 77 65 20 61 64 64 20 71 75 6F 74 65 73 3F 3F 0D we add quotes??.
000090: 0A 3E 73 76 20 6E 3D 30 20 78 3D 22 30 22 0D 0A .>sv n=0 x="0"..
0000A0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0000B0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 76 26 =n[w1]..>sv s=v&
0000C0: 6E 26 0D 0A 3E 69 66 20 22 2C 22 20 69 6E 20 73 n&..>if "," in s
0000D0: 0D 0A 3E 73 76 20 78 3D 22 31 22 0D 0A 3E 65 6C ..>sv x="1"..>el
0000E0: 0D 0A 3E 69 66 20 22 27 22 20 69 6E 20 73 0D 0A ..>if "'" in s..
0000F0: 3E 73 76 20 78 3D 22 31 22 0D 0A 3E 65 6C 0D 0A >sv x="1"..>el..
000100: 3E 69 66 20 27 22 27 20 69 6E 20 73 0D 0A 3E 73 >if '"' in s..>s
000110: 76 20 78 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 65 v x="1"..>ei..>e
000120: 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 78 3D 22 31 i..>ei..>if x="1
000130: 22 0D 0A 3E 69 66 20 27 22 27 20 6E 6F 74 69 6E "..>if '"' notin
000140: 20 73 0D 0A 3E 73 76 20 76 26 6E 26 3D 27 22 27 s..>sv v&n&='"'
000150: 2B 73 2B 27 22 27 0D 0A 3E 65 6C 0D 0A 3E 69 66 +s+'"'..>el..>if
000160: 20 22 27 22 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 "'" notin s..>s
000170: 76 20 76 26 6E 26 3D 22 27 22 2B 73 2B 22 27 22 v v&n&="'"+s+"'"
000180: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 73 76 20 ..>ei..>ei..>sv
000190: 78 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 x="0"..>ei..>un
0001A0: 6E 3E 3D 63 68 6B 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n>=chklen..>>>..
0001B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D >sv n=0..>if fv=
0001C0: 22 66 22 20 3B 20 66 69 78 0D 0A 3E 72 70 0D 0A "f" ; fix..>rp..
0001D0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0001E0: 5D 0D 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E ]..>sv s=v&n&..>
0001F0: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
Size : 512 (Real : 512)
000000: 61 74 61 66 69 6C 65 20 5B 26 61 64 64 72 66 69 atafile [&addrfi
000010: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
000020: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 64 64 f x<>""..>sv add
000030: 72 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 69 rfile=x..>ei..>i
000040: 66 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 73 f phone?="y"..>s
000050: 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A v y="Y/n"..>el..
000060: 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E 65 69 >sv y="y/N"..>ei
000070: 0D 0A 3E 61 76 20 22 44 6F 65 73 20 74 68 65 20 ..>av "Does the
000080: 61 64 64 72 65 73 73 20 66 69 6C 65 20 68 61 76 address file hav
000090: 65 20 74 65 6C 65 70 68 6F 6E 65 20 6E 75 6D 62 e telephone numb
0000A0: 65 72 73 20 6F 6E 20 6C 69 6E 65 20 32 20 5B 26 ers on line 2 [&
0000B0: 79 26 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 y&]: " x 1..>if
0000C0: 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 68 6F 6E 65 x<>""..>sv phone
0000D0: 3F 3D 79 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 ?=y..>ei..>dm "
0000E0: 22 0D 0A 3E 64 6D 20 22 57 68 69 63 68 20 64 72 "..>dm "Which dr
0000F0: 69 76 65 20 69 73 20 74 6F 20 62 65 20 75 73 65 ive is to be use
000100: 64 20 66 6F 72 20 73 74 6F 72 69 6E 67 20 69 6E d for storing in
000110: 76 6F 69 63 65 73 3F 22 0D 0A 3E 69 64 20 63 70 voices?"..>id cp
000120: 6D 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D 69 6E m..>sv invdrv=in
000130: 76 70 61 74 68 5B 31 5D 0D 0A 3E 72 70 0D 0A 3E vpath[1]..>rp..>
000140: 61 76 20 22 45 6E 74 65 72 20 64 72 69 76 65 20 av "Enter drive
000150: 6C 65 74 74 65 72 20 5B 26 69 6E 76 64 72 76 26 letter [&invdrv&
000160: 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C ]: " x 1..>if x<
000170: 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D >""..>sv invdrv=
000180: 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 69 6E 76 64 x..>ei..>un invd
000190: 72 76 20 69 6E 20 22 61 62 63 64 65 66 6D 22 0D rv in "abcdefm".
0001A0: 0A 3E 73 76 20 69 6E 76 70 61 74 68 3D 69 6E 76 .>sv invpath=inv
0001B0: 64 72 76 2B 22 3A 22 0D 0A 3E 65 6C 0D 0A 3E 61 drv+":"..>el..>a
0001C0: 76 20 22 45 6E 74 65 72 20 70 61 74 68 20 6F 6E v "Enter path on
0001D0: 20 77 68 69 63 68 20 74 6F 20 73 74 6F 72 65 20 which to store
0001E0: 69 6E 76 6F 69 63 65 73 20 5B 26 69 6E 76 70 61 invoices [&invpa
0001F0: 74 68 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 th&]: " x..>if x
Size : 512 (Real : 512)
000000: 20 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 enclose strings
000010: 20 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D in quotes"..>dm
000020: 20 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 'e.g. "London"
000030: 69 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A in F4..>dm " "..
000040: 3E 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 >sv ok="'" + '"'
000050: 20 2B 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 + "0123456789."
000060: 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 ..>sv n="1"..>rp
000070: 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E ..>av "Enter con
000080: 64 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D dition &n&: " s.
000090: 0A 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 .>sv err=0 s=s[w
0000A0: 31 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 1:]..>sv c&n&=s.
0000B0: 0A 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 .>if c1=""..>ex
0000C0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
0000D0: 69 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D i..>if s[1]="f".
0000E0: 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 .>if s[2] notin
0000F0: 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 "*123456789"..>s
000100: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
000110: 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 l..>if s[1] noti
000120: 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D n ok..>sv err=1.
000130: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A .>ei..>ei..>>>..
000140: 3E 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D >sv s=c&n&[w-1].
000150: 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E .>if s[1]="f"..>
000160: 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A if s[2] notin "*
000170: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 123456789"..>sv
000180: 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D err=1..>ei..>el.
000190: 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 .>if s[1] notin
0001A0: 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E ok..>sv err=1..>
0001B0: 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 ei..>ei..>>>..>i
0001C0: 66 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E f err=0..>sv n=n
0001D0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D +1 n=n[w1]..>el.
0001E0: 0A 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E .>dm "Invalid in
0001F0: 70 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E put"..>ei..>un n
Size : 512 (Real : 512)
000000: 3C 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 70 61 74 <>""..>sv invpat
000010: 68 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E h=x..>ei..>ei..>
000020: 64 6D 20 22 20 22 0D 0A 3E 69 66 20 75 73 65 70 dm " "..>if usep
000030: 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 rod="y"..>sv y="
000040: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
000050: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 ="y/N"..>ei..>rp
000060: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 69 ..>av "Do you wi
000070: 73 68 20 74 6F 20 75 73 65 20 61 20 70 72 6F 64 sh to use a prod
000080: 75 63 74 20 66 69 6C 65 20 28 26 79 26 29 3F 20 uct file (&y&)?
000090: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0000A0: 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 78 0D ..>sv useprod=x.
0000B0: 0A 3E 65 69 0D 0A 3E 75 6E 20 75 73 65 70 72 6F .>ei..>un usepro
0000C0: 64 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 75 d in "yn"..>if u
0000D0: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 seprod="y"..>av
0000E0: 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F 66 20 70 "Enter name of p
0000F0: 72 6F 64 75 63 74 20 69 6E 66 6F 72 6D 61 74 69 roduct informati
000100: 6F 6E 20 66 69 6C 65 20 5B 26 70 72 6F 64 66 69 on file [&prodfi
000110: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
000120: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 6F f x<>""..>sv pro
000130: 64 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 dfile=x..>ei..>e
000140: 69 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D i..>if prconame=
000150: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
000160: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
000170: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
000180: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 79 v "Do you want y
000190: 6F 75 72 20 6E 61 6D 65 20 61 6E 64 20 61 64 64 our name and add
0001A0: 72 65 73 73 20 70 72 69 6E 74 65 64 20 6F 6E 20 ress printed on
0001B0: 74 68 65 20 69 6E 76 6F 69 63 65 73 20 28 26 79 the invoices (&y
0001C0: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
0001D0: 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 63 6F 6E 61 <>""..>sv prcona
0001E0: 6D 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 70 me=x..>ei..>un p
0001F0: 72 63 6F 6E 61 6D 65 20 69 6E 20 22 79 6E 22 0D rconame in "yn".
Size : 512 (Real : 512)
000000: 3E 33 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D >3..>>>..>if c2=
000010: 22 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 31 22 ""..>sv c2="0=1"
000020: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 ..>ei..>if c3=""
000030: 0D 0A 3E 73 76 20 63 33 3D 22 30 3D 31 22 0D 0A ..>sv c3="0=1"..
000040: 3E 65 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A >ei..>sv ff=""..
000050: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 >if "f*" in c1[6
000060: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
000070: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000080: 77 31 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A w1]..>if c1[&n&:
000090: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
0000A0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
0000B0: 31 3D 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 1=c1[1:&n&]+"f0"
0000C0: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
0000D0: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
0000E0: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
0000F0: 20 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E ; f* in c1..>>>
000100: 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 ..>if "f*" in c2
000110: 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E [6:]..>sv n=5..>
000120: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
000130: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E n[w1]..>if c2[&n
000140: 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D &:]="f*"..>sv n=
000150: 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n-1 n=n[w1]..>sv
000160: 20 63 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 c2=c2[1:&n&]+"f
000170: 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0"..>sv n=0..>ei
000180: 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 ..>un n=0..>sv f
000190: 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E f=">sv f0=f1"..>
0001A0: 65 69 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E ei ; f* in c2..>
0001B0: 3E 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 >>..>if "f*" in
0001C0: 63 33 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D c3[6:]..>sv n=5.
0001D0: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
0001E0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B n=n[w1]..>if c3[
0001F0: 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 &n&:]="f*"..>sv
Size : 512 (Real : 512)
000000: 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D .>if vatreg="y".
000010: 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 .>sv y="Y/n"..>e
000020: 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A l..>sv y="y/N"..
000030: 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 >ei..>rp..>av "I
000040: 73 20 79 6F 75 72 20 62 75 73 69 6E 65 73 73 20 s your business
000050: 72 65 67 69 73 74 65 72 65 64 20 66 6F 72 20 56 registered for V
000060: 41 54 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D AT (&y&)? " x 1.
000070: 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 .>if x <> ""..>s
000080: 76 20 76 61 74 72 65 67 3D 78 0D 0A 3E 65 69 0D v vatreg=x..>ei.
000090: 0A 3E 75 6E 20 76 61 74 72 65 67 20 69 6E 20 22 .>un vatreg in "
0000A0: 79 6E 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D yn"..>if vatreg=
0000B0: 22 79 22 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D "y"..>if prconam
0000C0: 65 3D 22 79 22 0D 0A 3E 61 76 20 22 45 6E 74 65 e="y"..>av "Ente
0000D0: 72 20 79 6F 75 72 20 56 41 54 20 6E 75 6D 62 65 r your VAT numbe
0000E0: 72 20 5B 26 76 61 74 6E 75 6D 26 5D 3A 20 22 20 r [&vatnum&]: "
0000F0: 78 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 x..>if x<>""..>s
000100: 76 20 76 61 74 6E 75 6D 3D 78 0D 0A 3E 65 69 0D v vatnum=x..>ei.
000110: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 .>ei..>ei..>if v
000120: 61 74 72 65 67 3C 3E 22 79 22 0D 0A 3E 73 76 20 atreg<>"y"..>sv
000130: 65 78 6F 72 69 6E 63 3D 22 78 22 0D 0A 3E 65 6C exorinc="x"..>el
000140: 0D 0A 3E 69 66 20 65 78 6F 72 69 6E 63 3D 22 78 ..>if exorinc="x
000150: 22 0D 0A 3E 73 76 20 79 3D 22 58 2F 69 22 0D 0A "..>sv y="X/i"..
000160: 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 78 2F 49 22 >el..>sv y="x/I"
000170: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>ei..>rp..>av
000180: 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 "Do you want to
000190: 65 6E 74 65 72 20 70 72 69 63 65 73 20 65 78 20 enter prices ex
0001A0: 56 41 54 20 6F 72 20 69 6E 63 20 56 41 54 20 28 VAT or inc VAT (
0001B0: 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 &y&)? " x 1..>if
0001C0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 65 78 6F 72 x<>""..>sv exor
0001D0: 69 6E 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 inc=x..>ei..>un
0001E0: 65 78 6F 72 69 6E 63 20 69 6E 20 22 78 69 22 0D exorinc in "xi".
0001F0: 0A 3E 65 69 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D .>ei..>if askfn=
Size : 512 (Real : 512)
000000: 6C 6F 61 64 20 6F 6D 69 6E 76 67 65 6E 7C 31 33 load ominvgen|13
000010: 7C 70 73 7C 31 33 7C 1A 0A 3E 3E 3E 0D 0A 3E 3E |ps|13|..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 6E 63 20 32 35 35 0D 0A 3E 73 76 20 73 79 73 >nc 255..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
000090: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
0000A0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0000B0: 33 2E 30 36 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.06..>sv fileda
0000C0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
0000D0: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
0000E0: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
0000F0: 0D 0A 3E 65 69 0D 0A 3E 63 73 20 22 20 22 0D 0A ..>ei..>cs " "..
000100: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 20 20 >dm " "..>dm "
000110: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 ***
000120: 20 50 20 52 20 4F 20 54 20 45 20 58 20 54 20 20 P R O T E X T
000130: 20 20 4F 20 46 20 46 20 49 20 43 20 45 20 20 20 O F F I C E
000140: 20 4D 20 45 20 4E 20 55 20 20 2A 2A 2A 0D 0A 3E M E N U ***..>
000150: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 20 20 20 dm " "..>dm "
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 49 20 2D 20 50 72 69 6E 74 20 61 6E I - Print an
000180: 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 6D 20 22 20 Invoice..>dm "
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 43 20 2D 20 50 72 69 6E 74 20 C - Print
0001B0: 61 20 43 72 65 64 69 74 20 6E 6F 74 65 0D 0A 3E a Credit note..>
0001C0: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0001D0: 20 20 20 20 20 20 20 20 20 20 20 53 20 2D 20 50 S - P
0001E0: 72 69 6E 74 20 61 20 53 74 61 74 65 6D 65 6E 74 rint a Statement
0001F0: 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 ..>dm "
Size : 512 (Real : 512)
000000: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
000010: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
000020: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
000030: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 v "Do you want t
000040: 6F 20 62 65 20 61 73 6B 65 64 20 66 6F 72 20 66 o be asked for f
000050: 6F 6F 74 6E 6F 74 65 20 65 61 63 68 20 74 69 6D ootnote each tim
000060: 65 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A e (&y&)? " x 1..
000070: 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 >if x<>""..>sv a
000080: 73 6B 66 6E 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E skfn=x..>ei..>un
000090: 20 61 73 6B 66 6E 20 69 6E 20 22 79 6E 22 0D 0A askfn in "yn"..
0000A0: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
0000B0: 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C >sv y="Y/n"..>el
0000C0: 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E ..>sv y="y/N"..>
0000D0: 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 44 6F ei..>rp..>av "Do
0000E0: 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 62 65 20 you want to be
0000F0: 61 73 6B 65 64 20 66 6F 72 20 63 61 72 72 69 61 asked for carria
000100: 67 65 20 65 61 63 68 20 74 69 6D 65 20 28 26 79 ge each time (&y
000110: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
000120: 3C 3E 22 22 0D 0A 3E 73 76 20 61 73 6B 63 61 72 <>""..>sv askcar
000130: 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 61 73 6B =x..>ei..>un ask
000140: 63 61 72 20 69 6E 20 22 79 6E 22 0D 0A 3E 73 76 car in "yn"..>sv
000150: 20 64 61 73 68 65 73 3D 22 2D 2D 2D 2D 2D 2D 2D dashes="-------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 64 6D 20 ---------"..>dm
0001B0: 22 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 " "..>dm " "..>d
0001C0: 6D 20 4E 4F 57 20 43 4F 4E 46 49 47 55 52 45 20 m NOW CONFIGURE
0001D0: 54 48 45 20 49 4E 56 4F 49 43 45 20 46 4F 52 4D THE INVOICE FORM
0001E0: 41 54 20 46 4F 52 20 59 4F 55 52 20 53 54 41 54 AT FOR YOUR STAT
0001F0: 49 4F 4E 45 52 59 0D 0A 3E 64 6D 20 22 20 22 0D IONERY..>dm " ".
Size : 512 (Real : 512)
000000: 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 68 65 61 64 65 >>> Common heade
000010: 72 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 r for mail merge
000020: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 49 44 20 templates..>ID
000030: 64 66 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 df..&flist&..>IF
000040: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
000050: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
000060: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
000070: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
000080: 3E 3E 26 66 32 26 20 3B 20 70 68 6F 6E 65 0D 0A >>&f2& ; phone..
000090: 26 66 33 26 0D 0A 26 66 34 26 0D 0A 26 66 35 26 &f3&..&f4&..&f5&
0000A0: 0D 0A 26 66 36 26 0D 0A 26 66 37 26 0D 0A 0D 0A ..&f6&..&f7&....
0000B0: 0D 0A 0D 0A 0D 0A 44 65 61 72 20 43 75 73 74 6F ......Dear Custo
0000C0: 6D 65 72 0D 0A 0D 0A 54 68 61 6E 6B 20 79 6F 75 mer....Thank you
0000D0: 20 66 6F 72 20 79 6F 75 72 20 69 6E 74 65 72 65 for your intere
0000E0: 73 74 20 69 6E 20 6F 75 72 20 72 61 6E 67 65 20 st in our range
0000F0: 6F 66 20 70 72 6F 64 75 63 74 73 2E 20 57 65 20 of products. We
000100: 68 61 76 65 20 70 6C 65 61 73 75 72 65 20 0D 8A have pleasure ..
000110: 69 6E 20 65 6E 63 6C 6F 73 69 6E 67 20 74 68 65 in enclosing the
000120: 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 72 65 71 information req
000130: 75 65 73 74 65 64 2E 0D 0A 0D 0A 0D 0A 59 6F 75 uested.......You
000140: 72 73 20 66 61 69 74 68 66 75 6C 6C 79 0D 0A 0D rs faithfully...
000150: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 45 4E 44 20 4F 46 .>>>..>>> END OF
000160: 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 45 MAIN MAIL MERGE
000170: 20 53 45 43 54 49 4F 4E 0D 0A 3E 50 41 0D 0A 3E SECTION..>PA..>
000180: 53 4B 20 30 3D 30 20 20 20 20 20 20 20 20 3B 20 SK 0=0 ;
000190: 63 6F 6E 74 69 6E 75 65 20 66 72 6F 6D 20 74 6F continue from to
0001A0: 70 2C 20 77 69 74 68 20 6E 65 78 74 20 64 61 74 p, with next dat
0001B0: 61 0D 0A 3E 45 4C 20 3B 20 66 31 3D 65 6E 64 0D a..>EL ; f1=end.
0001C0: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
0001D0: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
0001E0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
0001F0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
Size : 512 (Real : 512)
000000: 0A 3E 61 76 20 22 53 69 64 65 20 6D 61 72 67 69 .>av "Side margi
000010: 6E 20 5B 26 73 69 64 65 26 5D 3A 20 22 20 6E 0D n [&side&]: " n.
000020: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
000030: 73 69 64 65 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 side=n..>ei ..>a
000040: 76 20 22 57 69 64 74 68 20 6F 66 20 27 63 6F 64 v "Width of 'cod
000050: 65 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 e' column in cha
000060: 72 61 63 74 65 72 73 20 5B 26 72 63 31 26 5D 3A racters [&rc1&]:
000070: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
000080: 0A 3E 73 76 20 72 63 31 3D 6E 0D 0A 3E 65 69 20 .>sv rc1=n..>ei
000090: 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 6F 66 20 ..>av "Width of
0000A0: 27 64 65 73 63 72 69 70 74 69 6F 6E 27 20 63 6F 'description' co
0000B0: 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 74 65 lumn in characte
0000C0: 72 73 20 5B 26 72 63 32 26 5D 3A 20 22 20 6E 0D rs [&rc2&]: " n.
0000D0: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
0000E0: 72 63 32 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 76 rc2=n..>ei ..>av
0000F0: 20 22 57 69 64 74 68 20 6F 66 20 27 71 75 61 6E "Width of 'quan
000100: 74 69 74 79 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 tity' column in
000110: 63 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 33 characters [&rc3
000120: 26 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E &]: " n..>if n<>
000130: 22 22 0D 0A 3E 73 76 20 72 63 33 3D 6E 0D 0A 3E ""..>sv rc3=n..>
000140: 65 69 20 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 ei ..>av "Width
000150: 6F 66 20 27 75 6E 69 74 20 70 72 69 63 65 27 20 of 'unit price'
000160: 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 column in charac
000170: 74 65 72 73 20 5B 26 72 63 34 26 5D 3A 20 22 20 ters [&rc4&]: "
000180: 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 n..>if n<>""..>s
000190: 76 20 72 63 34 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E v rc4=n..>ei ..>
0001A0: 61 76 20 22 57 69 64 74 68 20 6F 66 20 27 74 6F av "Width of 'to
0001B0: 74 61 6C 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 tal' column in c
0001C0: 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 35 26 haracters [&rc5&
0001D0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0001E0: 22 0D 0A 3E 73 76 20 72 63 35 3D 6E 0D 0A 3E 65 "..>sv rc5=n..>e
0001F0: 69 20 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 i ..>if prconame
Size : 512 (Real : 512)
000000: 20 66 31 0D 0A 3E 45 49 20 3B 20 69 64 20 64 66 f1..>EI ; id df
000010: 0D 0A 3E 3E 3E 0D 0A 3E 63 73 0D 0A 3E 64 6D 20 ..>>>..>cs..>dm
000020: 22 4D 61 69 6C 20 6D 65 72 67 69 6E 67 20 2E 2E "Mail merging ..
000030: 2E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 43 6F 6D 6D ...>>>..>>> Comm
000040: 6F 6E 20 63 6F 64 65 20 66 6F 72 20 6D 61 69 6C on code for mail
000050: 20 6D 65 72 67 65 20 74 65 6D 70 6C 61 74 65 73 merge templates
000060: 0D 0A 3E 69 75 20 64 66 0D 0A 3E 64 66 20 66 6D ..>iu df..>df fm
000070: 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E .mus..>rv mus..>
000080: 63 66 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D cf..>in fm$pfi$.
000090: 0A 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C .>sv fv=fv[1] rl
0000A0: 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 en=rlen[w1]..>if
0000B0: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
0000C0: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
0000D0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
0000E0: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
0000F0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000100: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 20 [w1]..>sv flist
000110: 3D 20 66 6C 69 73 74 20 2B 20 22 20 66 26 6E 26 = flist + " f&n&
000120: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
000130: 3E 3E 3E 20 73 6F 72 74 20 6F 75 74 20 77 68 69 >>> sort out whi
000140: 63 68 20 64 61 74 61 66 69 6C 65 20 74 6F 20 75 ch datafile to u
000150: 73 65 20 28 6D 61 69 6E 2F 75 70 64 61 74 65 2F se (main/update/
000160: 73 65 6C 65 63 74 69 6F 6E 29 0D 0A 3E 69 66 20 selection)..>if
000170: 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D 64 mus="m"..>sv f=d
000180: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D f..>ei..>if mus=
000190: 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 "u"..>sv f=newfi
0001A0: 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 le..>ei..>if mus
0001B0: 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C 66 ="s"..>sv f=self
0001C0: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 66 ile..>ei..>df &f
0001D0: 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 20 3B & fo$end$..>ei ;
0001E0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A 4F 4E id df..>>>...ON
0001F0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
Size : 512 (Real : 512)
000000: 3D 22 79 22 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 ="y"..>av "Line
000010: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
000020: 79 6F 75 72 20 63 6F 6D 70 61 6E 79 20 61 64 64 your company add
000030: 72 65 73 73 20 5B 26 63 61 6C 69 6E 65 26 5D 3A ress [&caline&]:
000040: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
000050: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 6E 0D 0A 3E .>sv caline=n..>
000060: 65 69 20 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 4C ei ..>ei..>av "L
000070: 69 6E 65 20 6E 75 6D 62 65 72 20 74 6F 20 70 72 ine number to pr
000080: 69 6E 74 20 72 65 63 69 70 69 65 6E 74 27 73 20 int recipient's
000090: 61 64 64 72 65 73 73 20 5B 26 61 6C 69 6E 65 26 address [&aline&
0000A0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0000B0: 22 0D 0A 3E 73 76 20 61 6C 69 6E 65 3D 6E 0D 0A "..>sv aline=n..
0000C0: 3E 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 >ei ..>av "Line
0000D0: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
0000E0: 74 69 74 6C 65 73 20 5B 26 74 6C 69 6E 65 26 5D titles [&tline&]
0000F0: 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 : " n..>if n<>""
000100: 0D 0A 3E 73 76 20 74 6C 69 6E 65 3D 6E 0D 0A 3E ..>sv tline=n..>
000110: 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 6E ei ..>av "Line n
000120: 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 74 umber to print t
000130: 6F 74 61 6C 73 20 5B 26 74 6F 74 6C 69 6E 65 26 otals [&totline&
000140: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
000150: 22 0D 0A 3E 73 76 20 74 6F 74 6C 69 6E 65 3D 6E "..>sv totline=n
000160: 0D 0A 3E 65 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E ..>ei ..>sv nlin
000170: 65 73 3D 74 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 es=totline-tline
000180: 20 6E 6C 69 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 nlines=nlines[w
000190: 31 5D 0D 0A 3E 73 76 20 69 77 69 64 74 68 3D 72 1]..>sv iwidth=r
0001A0: 63 31 2B 72 63 32 2B 72 63 33 2B 72 63 34 2B 72 c1+rc2+rc3+rc4+r
0001B0: 63 35 2B 31 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 c5+1..>sv n=iwid
0001C0: 74 68 2D 33 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A th-31..>dm " "..
0001D0: 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A >if vatreg="y"..
0001E0: 3E 64 6D 20 22 43 4F 4E 46 49 47 55 52 45 20 56 >dm "CONFIGURE V
0001F0: 41 54 20 43 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 AT CODES"..>dm "
Size : 512 (Real : 512)
000000: 20 22 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 74 "..>sv vat1=vat
000010: 31 2A 31 30 30 20 76 61 74 31 3D 76 61 74 31 5B 1*100 vat1=vat1[
000020: 77 31 5D 0D 0A 3E 73 76 20 76 61 74 32 3D 76 61 w1]..>sv vat2=va
000030: 74 32 2A 31 30 30 20 76 61 74 32 3D 76 61 74 32 t2*100 vat2=vat2
000040: 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 33 3D 76 [w1]..>sv vat3=v
000050: 61 74 33 2A 31 30 30 20 76 61 74 33 3D 76 61 74 at3*100 vat3=vat
000060: 33 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 3[w1]..>sv vat4=
000070: 76 61 74 34 2A 31 30 30 20 76 61 74 34 3D 76 61 vat4*100 vat4=va
000080: 74 34 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 35 t4[w1]..>sv vat5
000090: 3D 76 61 74 35 2A 31 30 30 20 76 61 74 35 3D 76 =vat5*100 vat5=v
0000A0: 61 74 35 5B 77 31 5D 0D 0A 3E 61 76 20 22 50 65 at5[w1]..>av "Pe
0000B0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0000C0: 20 72 61 74 65 20 31 20 5B 26 76 61 74 31 26 5D rate 1 [&vat1&]
0000D0: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
0000E0: 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D 78 0D 0A ""..>sv vat1=x..
0000F0: 3E 65 69 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E >ei..>av "Percen
000100: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
000110: 65 20 32 20 5B 26 76 61 74 32 26 5D 3A 20 22 20 e 2 [&vat2&]: "
000120: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
000130: 3E 73 76 20 76 61 74 32 3D 78 0D 0A 3E 65 69 0D >sv vat2=x..>ei.
000140: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
000150: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 33 20 for VAT rate 3
000160: 5B 26 76 61 74 33 26 5D 3A 20 22 20 78 0D 0A 3E [&vat3&]: " x..>
000170: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
000180: 76 61 74 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 vat3=x..>ei..>av
000190: 20 22 50 65 72 63 65 6E 74 61 67 65 20 66 6F 72 "Percentage for
0001A0: 20 56 41 54 20 72 61 74 65 20 34 20 5B 26 76 61 VAT rate 4 [&va
0001B0: 74 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 t4&]: " x..>if x
0001C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 76 61 74 34 <> ""..>sv vat4
0001D0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 50 65 =x..>ei..>av "Pe
0001E0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0001F0: 20 72 61 74 65 20 35 20 5B 26 76 61 74 35 26 5D rate 5 [&vat5&]
Size : 512 (Real : 512)
000000: 31 2C 49 4E 56 4F 49 43 45 0D 0A 1A 3E 0D 0A 3E 1,INVOICE...>..>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000060: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 00 02 1B 40 00 00 02 1B 46 02 1B 45 01 12 01 0F ...@....F..E....
000090: 02 1B 48 02 1B 47 00 02 1B 4D 00 00 00 00 00 00 ..H..G...M......
0000A0: 02 1B 35 02 1B 34 00 00 00 00 03 1B 57 00 03 1B ..5..4......W...
0000B0: 57 01 00 00 00 02 1B 50 00 00 03 1B 70 00 03 1B W......P....p...
0000C0: 70 01 03 1B 78 00 05 1B 28 1B 78 01 00 00 02 1B p...x...(.x.....
0000D0: 54 03 1B 53 01 02 1B 54 03 1B 53 00 03 1B 2D 00 T..S...T..S...-.
0000E0: 03 1B 2D 01 00 00 00 00 00 00 00 00 00 00 2A 03 ..-...........*.
0000F0: 23 04 1B 52 00 23 24 04 1B 52 03 24 40 04 1B 52 #..R.#$..R.$@..R
000100: 03 40 5B 04 1B 52 03 5B 5C 04 1B 52 03 5C 5D 04 .@[..R.[\..R.\].
000110: 1B 52 03 5D 5E 04 1B 52 03 5E 60 04 1B 52 03 60 .R.]^..R.^`..R.`
000120: 7B 04 1B 52 03 7B 7C 04 1B 52 03 7C 7D 04 1B 52 {..R.{|..R.|}..R
000130: 03 7D 7E 04 1B 52 03 7E 93 0A 1B 4B 06 00 20 40 .}~..R.~...K.. @
000140: FE 40 20 00 94 0A 1B 4B 06 00 08 04 FE 04 08 00 .@ ....K........
000150: 95 10 1B 4C 0C 00 10 28 54 00 10 00 10 00 10 00 ...L...(T.......
000160: 00 00 96 10 1B 4C 0C 00 10 00 10 00 10 00 54 28 .....L........T(
000170: 10 00 00 00 9E 0A 1B 4B 06 00 00 80 40 80 00 00 .......K....@...
000180: A0 10 1B 4C 0C 00 12 28 82 28 82 28 82 70 0A 00 ...L...(.(.(.p..
000190: 00 00 A1 10 1B 4C 0C 00 02 70 8A 00 8A 00 8A 70 .....L...p.....p
0001A0: 02 00 00 00 A2 04 1B 52 01 5B A3 04 1B 52 03 23 .......R.[...R.#
0001B0: A4 10 1B 4C 0C 00 38 44 92 28 82 28 82 00 44 38 ...L..8D.(.(..D8
0001C0: 00 00 A5 10 1B 4C 0C 00 40 00 F0 00 FE 00 80 7E .....L..@......~
0001D0: 80 00 00 00 A6 04 1B 52 01 5D A7 0A 1B 4B 06 00 .......R.]...K..
0001E0: 38 90 FF 90 38 00 A8 10 1B 4C 0C 00 40 00 FA 04 8...8....L..@...
0001F0: 0A 00 1F 00 02 00 00 00 A9 10 1B 4C 0C 00 40 00 ...........L..@.
Size : 512 (Real : 512)
000000: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
000010: 22 22 0D 0A 3E 73 76 20 76 61 74 35 3D 78 0D 0A ""..>sv vat5=x..
000020: 3E 65 69 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 >ei..>sv vat1=va
000030: 74 31 2F 31 30 30 20 76 61 74 32 3D 76 61 74 32 t1/100 vat2=vat2
000040: 2F 31 30 30 20 76 61 74 33 3D 76 61 74 33 2F 31 /100 vat3=vat3/1
000050: 30 30 20 76 61 74 34 3D 76 61 74 34 2F 31 30 30 00 vat4=vat4/100
000060: 20 76 61 74 35 3D 76 61 74 35 2F 31 30 30 0D 0A vat5=vat5/100..
000070: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 >ei..>dm " "..>i
000080: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
000090: 64 6D 20 22 45 4E 54 45 52 20 50 52 4F 44 55 43 dm "ENTER PRODUC
0000A0: 54 20 41 4E 44 20 43 55 53 54 4F 4D 45 52 20 44 T AND CUSTOMER D
0000B0: 49 53 43 4F 55 4E 54 20 43 4F 44 45 53 22 0D 0A ISCOUNT CODES"..
0000C0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 61 >dm " "..>dm "Ea
0000D0: 63 68 20 70 72 6F 64 75 63 74 20 68 61 73 20 61 ch product has a
0000E0: 6E 20 61 73 73 6F 63 69 61 74 65 64 20 64 69 73 n associated dis
0000F0: 63 6F 75 6E 74 20 6E 75 6D 62 65 72 22 0D 0A 3E count number"..>
000100: 64 6D 20 22 61 6E 64 20 66 6F 72 20 65 61 63 68 dm "and for each
000110: 20 69 6E 76 6F 69 63 65 20 61 20 64 69 73 63 6F invoice a disco
000120: 75 6E 74 20 6C 65 74 74 65 72 20 6D 61 79 20 62 unt letter may b
000130: 65 20 75 73 65 64 22 0D 0A 3E 64 6D 20 22 20 22 e used"..>dm " "
000140: 0D 0A 3E 64 6D 20 22 54 68 75 73 20 74 68 65 20 ..>dm "Thus the
000150: 69 6E 76 6F 69 63 65 20 66 6F 72 20 61 6E 20 6F invoice for an o
000160: 72 64 65 72 20 61 74 20 64 69 73 63 6F 75 6E 74 rder at discount
000170: 20 41 20 77 69 6C 6C 20 62 65 22 0D 0A 3E 64 6D A will be"..>dm
000180: 20 22 63 61 6C 63 75 6C 61 74 65 64 20 75 73 69 "calculated usi
000190: 6E 67 20 64 69 73 63 6F 75 6E 74 20 72 61 74 65 ng discount rate
0001A0: 73 20 41 31 2C 20 41 32 2C 20 41 33 20 65 74 63 s A1, A2, A3 etc
0001B0: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
0001C0: 22 54 68 65 20 76 61 6C 75 65 73 20 65 6E 74 65 "The values ente
0001D0: 72 65 64 20 68 65 72 65 20 73 68 6F 75 6C 64 20 red here should
0001E0: 62 65 20 70 65 72 63 65 6E 74 61 67 65 20 64 69 be percentage di
0001F0: 73 63 6F 75 6E 74 73 22 0D 0A 3E 64 6D 20 22 46 scounts"..>dm "F
Size : 512 (Real : 512)
000000: 45 49 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D EI ; id df..>>>.
000010: 0A 3E 63 73 0D 0A 3E 64 6D 20 22 4D 61 69 6C 20 .>cs..>dm "Mail
000020: 6D 65 72 67 69 6E 67 20 2E 2E 2E 0D 0A 3E 3E 3E merging .....>>>
000030: 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 ..>>> Common cod
000040: 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 e for mail merge
000050: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 templates..>iu
000060: 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A df..>df fm.mus..
000070: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
000080: 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 n fm$pfi$..>sv f
000090: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
0000A0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
0000B0: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
0000C0: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
0000D0: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
0000E0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
0000F0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
000100: 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 >sv flist = flis
000110: 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E t + " f&n&"..>un
000120: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F n>=rlen..>>> so
000130: 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 rt out which dat
000140: 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 afile to use (ma
000150: 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 in/update/select
000160: 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D ion)..>if mus="m
000170: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
000180: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
000190: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
0001A0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
0001B0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
0001C0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
0001D0: 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 64 20 64 66 nd$..>ei ; id df
0001E0: 0D 0A 3E 3E 3E 0D 0A 1A 20 53 45 43 54 49 4F 4E ..>>>... SECTION
0001F0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
Size : 512 (Real : 512)
000000: 6C 6F 61 64 20 6F 6D 73 74 61 67 65 6E 7C 31 33 load omstagen|13
000010: 7C 7C 31 36 7C 70 7C 31 33 7C 1A 70 66 20 69 6E ||16|p|13|.pf in
000020: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
000030: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000040: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
000050: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
000060: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
000070: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
000080: 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E 61 el..>rp..>av "Na
000090: 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E 61 me of file: " na
0000A0: 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C 3E me 8..>un name<>
0000B0: 22 22 0D 0A 3E 73 76 20 73 74 61 63 6D 64 3D 22 ""..>sv stacmd="
0000C0: 70 66 20 26 69 6E 76 64 72 76 26 3A 26 6E 61 6D pf &invdrv&:&nam
0000D0: 65 26 2E 70 6F 73 22 0D 0A 3E 65 69 0D 0A 3E 7A e&.pos"..>ei..>z
0000E0: 6D 0D 0A 26 73 74 61 63 6D 64 26 0D 0A 3E 65 78 m..&stacmd&..>ex
0000F0: 20 78 73 20 22 6C 6F 61 64 20 6F 6D 73 74 61 67 xs "load omstag
000100: 65 6E 7C 31 33 7C 26 73 74 61 63 6D 64 26 7C 31 en|13|&stacmd&|1
000110: 33 7C 22 0D 0A 3E 73 74 0D 0A 1A 3E 72 76 20 61 3|"..>st...>rv a
000120: 64 64 72 64 72 76 2C 69 6E 76 64 72 76 0D 0A 3E ddrdrv,invdrv..>
000130: 63 66 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 cf..>av "Stateme
000140: 6E 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 nt to printer or
000150: 20 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 file (p/F)? " x
000160: 20 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 1..>if x="p"..>
000170: 73 76 20 73 74 61 63 6D 64 3D 22 70 22 0D 0A 3E sv stacmd="p"..>
000180: 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 64 descwidth..>rv d
000190: 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 43 iscA,discB,discC
0001A0: 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E 72 ,discD,discE..>r
0001B0: 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 69 v prconame,exori
0001C0: 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B 66 nc,showdisc,askf
0001D0: 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F 64 n,askcar,useprod
0001E0: 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 61 ,defdisc..>rv ca
0001F0: 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E 65 line,aline,tline
Size : 512 (Real : 512)
000000: 26 73 63 26 21 63 6F 61 35 21 EC 0D 0A 3E 65 69 &sc&!coa5!...>ei
000010: 0D 0A 3E 73 76 6E 3D 61 6C 2D 63 61 6C 2D 36 0D ..>svn=al-cal-6.
000020: 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 76 6E .>rp..&sc&..>svn
000030: 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A 26 73 =n-1..>unn=0..&s
000040: 63 26 21 61 30 21 0D 0A 26 73 63 26 21 61 31 21 c&!a0!..&sc&!a1!
000050: 0D 0A 26 73 63 26 21 61 32 21 0D 0A 26 73 63 26 ..&sc&!a2!..&sc&
000060: 21 61 33 21 09 EC 26 74 26 EC 0D 0A 26 73 63 26 !a3!..&t&...&sc&
000070: 21 61 34 21 09 0D 0A 26 73 63 26 21 61 35 21 09 !a4!...&sc&!a5!.
000080: 44 61 74 65 20 20 20 20 20 20 20 26 68 26 0D 0A Date &h&..
000090: 26 73 63 26 21 61 36 21 0D 0A 26 73 63 26 21 61 &sc&!a6!..&sc&!a
0000A0: 37 21 0D 0A 3E 73 76 6E 3D 74 6C 2D 61 6C 2D 38 7!..>svn=tl-al-8
0000B0: 0D 0A 3E 72 70 0D 0A 26 73 63 26 0D 0A 3E 73 76 ..>rp..&sc&..>sv
0000C0: 6E 3D 6E 2D 31 0D 0A 3E 75 6E 6E 3D 30 0D 0A 3E n=n-1..>unn=0..>
0000D0: 77 66 6F 6E 0D 0A 26 72 32 26 0D 0A 3E 77 66 6F wfon..&r2&..>wfo
0000E0: 66 66 0D 0A 26 73 63 26 44 41 54 45 09 49 4E 56 ff..&sc&DATE.INV
0000F0: 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 42 49 OICE NO.. DEBI
000100: 54 09 20 20 43 52 45 44 49 54 09 42 41 4C 41 4E T. CREDIT.BALAN
000110: 43 45 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 33 26 0D CE..>wfon..&r3&.
000120: 0A 3E 77 66 6F 66 66 0D 0A 26 73 63 26 0D 0A 3E .>wfoff..&sc&..>
000130: 73 76 62 3D 69 6E 66 6F 6C 73 0D 0A 3E 64 6D 22 svb=infols..>dm"
000140: 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 28 52 Enter details (R
000150: 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 0D ETURN to end): .
000160: 0A 3E 64 6D 22 20 0D 0A 3E 72 70 0D 0A 3E 61 76 .>dm" ..>rp..>av
000170: 22 4F 70 65 6E 69 6E 67 20 62 61 6C 61 6E 63 65 "Opening balance
000180: 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A (- for credit):
000190: 20 A3 22 20 74 6F 74 0D 0A 3E 69 66 20 74 6F 74 ." tot..>if tot
0001A0: 3D 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 2E 30 =""..>sv tot=0.0
0001B0: 30 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 74 6F 74 5B 0..>ei..>un tot[
0001C0: 31 5D 20 69 6E 20 22 2D 30 31 32 33 34 35 36 37 1] in "-01234567
0001D0: 38 39 22 0D 0A 3E 73 76 20 74 6F 74 3D 74 6F 74 89"..>sv tot=tot
0001E0: 2B 30 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A +0..>if tot<>0..
0001F0: 26 73 63 26 43 61 72 72 69 65 64 20 66 77 64 2E &sc&Carried fwd.
Size : 512 (Real : 512)
000000: 22 0D 0A 41 72 6E 6F 72 20 4C 74 64 0D 0A 50 72 "..Arnor Ltd..Pr
000010: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000020: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 65 74 65 72 nman Road..Peter
000030: 62 6F 72 6F 75 67 68 0D 0A 50 45 32 20 30 42 55 borough..PE2 0BU
000040: 0D 0A 0D 0A 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....-----------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
000080: 6B 73 2E 09 0D 0A 48 50 37 20 39 4C 4C 09 44 61 ks....HP7 9LL.Da
000090: 74 65 20 20 20 20 20 20 20 31 34 20 4D 61 72 20 te 14 Mar
0000A0: 31 39 38 38 0D 0A 41 74 74 65 6E 74 69 6F 6E 3A 1988..Attention:
0000B0: 46 69 6E 61 6E 63 69 61 6C 20 44 65 70 74 0D 0A Financial Dept..
0000C0: 0D 0A 0D 0A 0D 0A 0D 0A 44 41 54 45 09 49 4E 56 ........DATE.INV
0000D0: 4F 49 43 45 20 4E 4F 2E 09 20 20 20 44 45 42 49 OICE NO.. DEBI
0000E0: 54 09 20 20 43 52 45 44 49 54 09 42 41 4C 41 4E T. CREDIT.BALAN
0000F0: 43 45 0D 0A 0D 0A 31 2E 31 2E 38 38 09 31 30 32 CE....1.1.88.102
000100: 34 09 39 37 36 2E 34 35 09 09 39 37 36 2E 34 35 4.976.45..976.45
000110: 0D 0A 32 2E 31 2E 38 38 09 31 30 35 35 09 34 33 ..2.1.88.1055.43
000120: 35 2E 33 33 09 09 31 34 31 31 2E 37 38 0D 0A 0D 5.33..1411.78...
000130: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
000140: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
000150: 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 0D 0A 20 0D 0A 20 ......... .. ..
000160: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 54 68 65 20 61 .. .. .. ..The a
000170: 6D 6F 75 6E 74 20 64 75 65 20 69 73 20 74 68 65 mount due is the
000180: 20 6C 61 73 74 20 66 69 67 75 72 65 20 69 6E 20 last figure in
000190: 74 68 65 20 27 42 41 4C 41 4E 43 45 27 20 63 6F the 'BALANCE' co
0001A0: 6C 75 6D 6E 0D 0A 45 2E 20 26 20 4F 2E 45 2E 0D lumn..E. & O.E..
0001B0: 0A 1A 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
0001C0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
0001D0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 0D 0A 20 0D 0A 20 ......... .. ..
0001E0: 0D 0A 20 0D 0A 20 0D 0A 20 0D 0A 54 68 65 20 61 .. .. .. ..The a
0001F0: 6D 6F 75 6E 74 20 64 75 65 20 69 73 20 74 68 65 mount due is the
Size : 512 (Real : 512)
000000: 6F 72 20 65 61 63 68 20 64 69 73 63 6F 75 6E 74 or each discount
000010: 20 6C 65 74 74 65 72 20 65 6E 74 65 72 20 6C 69 letter enter li
000020: 73 74 20 6F 66 20 64 69 73 63 6F 75 6E 74 73 20 st of discounts
000030: 66 6F 72 20 22 0D 0A 3E 64 6D 20 22 70 72 6F 64 for "..>dm "prod
000040: 75 63 74 20 74 79 70 65 31 2C 20 74 79 70 65 32 uct type1, type2
000050: 2C 20 74 79 70 65 33 20 65 74 63 2C 20 73 65 70 , type3 etc, sep
000060: 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73 arated by spaces
000070: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 "..>dm " "..>av
000080: 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 6F 72 "% Discounts for
000090: 20 41 20 5B 26 64 69 73 63 41 26 5D 3A 20 22 20 A [&discA&]: "
0000A0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
0000B0: 3E 73 76 20 64 69 73 63 61 3D 78 0D 0A 3E 65 69 >sv disca=x..>ei
0000C0: 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F 75 6E ..>av "% Discoun
0000D0: 74 73 20 66 6F 72 20 42 20 5B 26 64 69 73 63 42 ts for B [&discB
0000E0: 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C &]: " x..>if x <
0000F0: 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 62 3D > ""..>sv discb=
000100: 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 25 20 44 x..>ei..>av "% D
000110: 69 73 63 6F 75 6E 74 73 20 66 6F 72 20 43 20 5B iscounts for C [
000120: 26 64 69 73 63 43 26 5D 3A 20 22 20 78 0D 0A 3E &discC&]: " x..>
000130: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
000140: 64 69 73 63 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 discc=x..>ei..>a
000150: 76 20 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 v "% Discounts f
000160: 6F 72 20 44 20 5B 26 64 69 73 63 44 26 5D 3A 20 or D [&discD&]:
000170: 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 " x..>if x <> ""
000180: 0D 0A 3E 73 76 20 64 69 73 63 64 3D 78 0D 0A 3E ..>sv discd=x..>
000190: 65 69 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F ei..>av "% Disco
0001A0: 75 6E 74 73 20 66 6F 72 20 45 20 5B 26 64 69 73 unts for E [&dis
0001B0: 63 45 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 cE&]: " x..>if x
0001C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 <> ""..>sv disc
0001D0: 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E e=x..>ei..>rp..>
0001E0: 61 76 20 22 45 6E 74 65 72 20 6D 6F 73 74 20 75 av "Enter most u
0001F0: 73 65 64 20 64 69 73 63 6F 75 6E 74 20 63 6F 64 sed discount cod
Size : 512 (Real : 512)
000000: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 6D 75 73 >sv df="mus
000010: 69 63 22 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 ic"..>sv newfile
000020: 3D 22 6D 75 73 69 63 2E 6E 65 77 0D 0A 3E 73 76 ="music.new..>sv
000030: 20 73 65 6C 66 69 6C 65 3D 22 6D 75 73 69 63 2E selfile="music.
000040: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
000050: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
000060: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
000070: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
000080: 76 20 6E 32 3D 22 74 69 74 6C 65 22 0D 0A 3E 73 v n2="title"..>s
000090: 76 20 6E 33 3D 22 6D 65 64 69 75 6D 22 0D 0A 3E v n3="medium"..>
0000A0: 73 76 20 6E 34 3D 22 79 65 61 72 20 72 65 63 6F sv n4="year reco
0000B0: 72 64 65 64 22 0D 0A 3E 73 76 20 6E 35 3D 22 6F rded"..>sv n5="o
0000C0: 72 63 68 65 73 74 72 61 2F 70 65 72 66 6F 72 6D rchestra/perform
0000D0: 65 72 22 0D 0A 3E 73 76 20 6E 36 3D 22 63 6F 6E er"..>sv n6="con
0000E0: 64 75 63 74 6F 72 22 0D 0A 3E 73 76 20 6E 37 3D ductor"..>sv n7=
0000F0: 22 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 ""..>sv fsortopt
000100: 73 3D 22 2F 66 37 20 2F 73 31 2C 32 20 2F 61 31 s="/f7 /s1,2 /a1
000110: 20 2F 61 32 22 0D 0A 3E 73 76 20 6D 61 78 77 3D /a2"..>sv maxw=
000120: 22 32 30 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C "20"..>sv lastbl
000130: 61 6E 6B 3D 22 79 22 0D 0A 1A 6D 75 73 69 63 2E ank="y"...music.
000140: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
000150: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
000160: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
000170: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
000180: 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C 7C |765||233||541||
000190: 32 33 33 7C 22 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 233|"..>el..>wm
0001A0: 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 7C "clear|13|y|766|
0001B0: 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 7C merge fm.one|13|
0001C0: 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 34 31 7C 7C |765||538||541||
0001D0: 35 33 38 7C 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 538|"..>ei..>>>>
0001E0: 77 6D 20 22 6C 20 66 6D 2E 6F 6E 65 7C 31 33 7C wm "l fm.one|13|
0001F0: 79 7C 36 33 39 7C 7C 37 36 34 7C 7C 32 33 33 7C y|639||764||233|
Size : 512 (Real : 512)
000000: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
000010: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
000020: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
000030: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
000040: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
000050: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
000060: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
000070: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
000080: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
000090: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
0000A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
0000B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
0000C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0000D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
0000E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
0000F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
000100: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
000110: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
000120: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
000130: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
000140: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
000150: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
000160: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
000170: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
000180: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
000190: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
0001A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
0001B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
0001C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
0001D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
0001E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
0001F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
Size : 512 (Real : 512)
000000: 0A 3E 61 76 20 22 4C 69 6E 65 20 6E 75 6D 62 65 .>av "Line numbe
000010: 72 20 74 6F 20 70 72 69 6E 74 20 74 6F 74 61 6C r to print total
000020: 73 20 5B 26 74 6F 74 6C 69 6E 65 26 5D 3A 20 22 s [&totline&]: "
000030: 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E n..>if n<>""..>
000040: 73 76 20 74 6F 74 6C 69 6E 65 3D 6E 0D 0A 3E 65 sv totline=n..>e
000050: 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E 65 73 3D 74 i ..>sv nlines=t
000060: 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 20 6E 6C 69 otline-tline nli
000070: 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 31 5D 0D 0A nes=nlines[w1]..
000080: 3E 73 76 20 69 77 69 64 74 68 3D 72 63 31 2B 72 >sv iwidth=rc1+r
000090: 63 32 2B 72 63 33 2B 72 63 34 2B 72 63 35 2B 31 c2+rc3+rc4+rc5+1
0000A0: 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 74 68 2D 33 ..>sv n=iwidth-3
0000B0: 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 66 20 1..>dm " "..>if
0000C0: 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 64 6D 20 vatreg="y"..>dm
0000D0: 22 43 4F 4E 46 49 47 55 52 45 20 56 41 54 20 43 "CONFIGURE VAT C
0000E0: 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ODES"..>dm " "..
0000F0: 3E 73 76 20 76 61 74 31 3D 76 61 74 31 2A 31 30 >sv vat1=vat1*10
000100: 30 20 76 61 74 31 3D 76 61 74 31 5B 77 31 5D 0D 0 vat1=vat1[w1].
000110: 0A 3E 73 76 20 76 61 74 32 3D 76 61 74 32 2A 31 .>sv vat2=vat2*1
000120: 30 30 20 76 61 74 32 3D 76 61 74 32 5B 77 31 5D 00 vat2=vat2[w1]
000130: 0D 0A 3E 73 76 20 76 61 74 33 3D 76 61 74 33 2A ..>sv vat3=vat3*
000140: 31 30 30 20 76 61 74 33 3D 76 61 74 33 5B 77 31 100 vat3=vat3[w1
000150: 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 76 61 74 34 ]..>sv vat4=vat4
000160: 2A 31 30 30 20 76 61 74 34 3D 76 61 74 34 5B 77 *100 vat4=vat4[w
000170: 31 5D 0D 0A 3E 73 76 20 76 61 74 35 3D 76 61 74 1]..>sv vat5=vat
000180: 35 2A 31 30 30 20 76 61 74 35 3D 76 61 74 35 5B 5*100 vat5=vat5[
000190: 77 31 5D 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E w1]..>av "Percen
0001A0: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
0001B0: 65 20 31 20 5B 26 76 61 74 31 26 5D 3A 20 22 20 e 1 [&vat1&]: "
0001C0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
0001D0: 3E 73 76 20 76 61 74 31 3D 78 0D 0A 3E 65 69 0D >sv vat1=x..>ei.
0001E0: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
0001F0: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 32 20 for VAT rate 2
Size : 512 (Real : 512)
000000: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 61 64 64 >sv df="add
000010: 72 65 73 73 22 0D 0A 3E 73 76 20 6E 65 77 66 69 ress"..>sv newfi
000020: 6C 65 3D 22 61 64 64 72 65 73 73 2E 6E 65 77 0D le="address.new.
000030: 0A 3E 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 .>sv selfile="ad
000040: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
000050: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
000060: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
000070: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
000080: 6E 32 3D 22 74 65 6C 65 70 68 6F 6E 65 22 0D 0A n2="telephone"..
000090: 3E 73 76 20 6E 33 3D 22 61 64 64 72 31 22 0D 0A >sv n3="addr1"..
0000A0: 3E 73 76 20 6E 34 3D 22 61 64 64 72 32 22 0D 0A >sv n4="addr2"..
0000B0: 3E 73 76 20 6E 35 3D 22 61 64 64 72 33 22 0D 0A >sv n5="addr3"..
0000C0: 3E 73 76 20 6E 36 3D 22 61 64 64 72 34 22 0D 0A >sv n6="addr4"..
0000D0: 3E 73 76 20 6E 37 3D 22 61 64 64 72 35 22 0D 0A >sv n7="addr5"..
0000E0: 3E 73 76 20 6E 38 3D 22 70 6F 73 74 63 6F 64 65 >sv n8="postcode
0000F0: 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 "..>sv fsortopts
000100: 3D 22 2F 76 20 2F 73 31 20 2F 70 31 22 0D 0A 3E ="/v /s1 /p1"..>
000110: 73 76 20 6D 61 78 77 3D 22 31 30 22 0D 0A 3E 73 sv maxw="10"..>s
000120: 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 6E 22 0D v lastblank="n".
000130: 0A 1A 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 ..sv selfile="ad
000140: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
000150: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
000160: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
000170: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
000180: 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F "&nn& records fo
000190: 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 und. Press a key
0001A0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E to continue ...
0001B0: 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 ..>wc..>cf..>ex
0001C0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
0001D0: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
0001E0: 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 ;id df..>>>..>iu
0001F0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
Size : 512 (Real : 512)
000000: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
000010: 37 36 34 7C 7C 37 36 36 7C 1A 1A 70 66 20 69 6E 764||766|..pf in
000020: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
000030: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000040: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
000050: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
000060: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
000070: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
000080: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ">--------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D --------L-------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E ----------R"..">
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D --------------!-
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 ---------------!
000110: 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D --------R"..">--
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --.-------------
000150: 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -.--------------
000160: 2E 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D .-----R"..">----
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
0001A0: 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D ------L-------.-
0001B0: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
Size : 512 (Real : 512)
000000: 72 6F 78 20 42 75 73 69 6E 65 73 73 20 50 61 72 rox Business Par
000010: 6B 0D 0A 4D 69 74 63 68 65 6C 64 65 61 6E 0D 0A k..Mitcheldean..
000020: 47 6C 6F 73 2E 20 47 4C 31 37 20 30 44 44 0D 0A Glos. GL17 0DD..
000030: 0D 0A 41 74 6C 61 6E 74 69 73 20 53 6F 66 74 77 ..Atlantis Softw
000040: 61 72 65 20 4C 74 64 0D 0A 32 38 20 53 74 61 74 are Ltd..28 Stat
000050: 69 6F 6E 20 52 64 0D 0A 4C 6F 6E 64 6F 6E 0D 0A ion Rd..London..
000060: 53 45 32 35 20 35 41 47 0D 0A 0D 0A 41 74 6F 6D SE25 5AG....Atom
000070: 69 63 20 43 6F 6D 70 75 74 65 72 20 53 79 73 74 ic Computer Syst
000080: 65 6D 73 0D 0A 33 39 20 53 74 61 6E 64 69 73 68 ems..39 Standish
000090: 20 53 74 72 65 65 74 0D 0A 42 75 72 6E 6C 65 79 Street..Burnley
0000A0: 0D 0A 4C 61 6E 63 73 0D 0A 42 42 31 31 20 31 41 ..Lancs..BB11 1A
0000B0: 50 0D 0A 0D 0A 41 54 54 20 53 79 73 74 65 6D 73 P....ATT Systems
0000C0: 20 4C 74 64 0D 0A 31 36 20 50 61 63 6B 20 52 6F Ltd..16 Pack Ro
0000D0: 61 64 0D 0A 4B 65 6E 6E 69 6C 77 6F 72 74 68 0D ad..Kennilworth.
0000E0: 0A 57 6F 72 63 73 2E 0D 0A 43 56 38 20 32 47 46 .Worcs...CV8 2GF
0000F0: 0D 0A 0D 0A 42 61 73 69 63 20 45 6E 74 65 72 70 ....Basic Enterp
000100: 72 69 73 65 73 0D 0A 32 37 20 47 6F 72 64 6F 6E rises..27 Gordon
000110: 20 53 74 72 65 65 74 0D 0A 4B 65 74 74 65 72 69 Street..Ketteri
000120: 6E 67 0D 0A 4E 4E 31 36 20 4F 52 55 0D 0A 0D 0A ng..NN16 ORU....
000130: 42 26 42 20 4F 66 66 69 63 65 20 4D 61 63 68 69 B&B Office Machi
000140: 6E 65 72 79 0D 0A 32 30 32 20 57 68 69 74 68 61 nery..202 Whitha
000150: 6D 20 52 6F 61 64 0D 0A 53 68 65 66 66 69 65 6C m Road..Sheffiel
000160: 64 0D 0A 53 2E 59 6F 72 6B 73 2E 0D 0A 09 0D 0A d..S.Yorks......
000170: 42 65 64 67 65 62 75 72 79 20 53 63 68 6F 6F 6C Bedgebury School
000180: 0D 0A 42 65 64 67 65 62 75 72 79 20 50 61 72 6B ..Bedgebury Park
000190: 0D 0A 47 6F 75 64 68 75 72 73 74 0D 0A 43 72 61 ..Goudhurst..Cra
0001A0: 6E 62 72 6F 6F 6B 0D 0A 4B 65 6E 74 0D 0A 54 4E nbrook..Kent..TN
0001B0: 31 37 20 32 53 48 0D 0A 0D 0A 55 6E 69 76 65 72 17 2SH....Univer
0001C0: 73 69 74 79 20 6F 66 20 42 61 74 68 0D 0A 55 6E sity of Bath..Un
0001D0: 69 76 65 72 73 69 74 79 20 41 63 63 6F 75 6E 74 iversity Account
0001E0: 61 6E 74 0D 0A 43 6C 61 76 65 72 74 6F 6E 20 44 ant..Claverton D
0001F0: 6F 77 6E 0D 0A 42 61 74 68 0D 0A 42 41 32 20 37 own..Bath..BA2 7
Size : 512 (Real : 512)
000000: 73 76 20 6D 69 6E 3D 6E 0D 0A 3E 65 69 20 3B 20 sv min=n..>ei ;
000010: 6D 69 6E 3D 30 0D 0A 3E 65 69 20 3B 20 64 6E 3D min=0..>ei ; dn=
000020: 22 79 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E "y"..>un n>=rlen
000030: 0D 0A 3E 65 69 20 3B 20 61 6C 6C 3D 22 79 22 0D ..>ei ; all="y".
000040: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E .>dm " "..>rp..>
000050: 61 76 20 22 50 72 69 6E 74 20 61 20 62 6C 61 6E av "Print a blan
000060: 6B 20 6C 69 6E 65 20 61 66 74 65 72 20 65 61 63 k line after eac
000070: 68 20 72 65 63 6F 72 64 20 5B 59 2F 6E 5D 3F 20 h record [Y/n]?
000080: 22 20 62 6C 61 6E 6B 0D 0A 3E 75 6E 20 62 6C 61 " blank..>un bla
000090: 6E 6B 20 69 6E 20 22 79 6E 22 0D 0A 3E 64 6D 20 nk in "yn"..>dm
0000A0: 22 20 22 0D 0A 3E 69 66 20 62 6C 61 6E 6B 3D 22 " "..>if blank="
0000B0: 6E 22 0D 0A 3E 73 76 20 62 6C 61 6E 6B 3D 22 3E n"..>sv blank=">
0000C0: 3E 3E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 62 6C >>"..>el..>sv bl
0000D0: 61 6E 6B 3D 73 63 2B 22 27 22 20 2B 20 22 20 22 ank=sc+"'" + " "
0000E0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 ..>ei..>>>..>if
0000F0: 6D 75 73 3D 22 75 22 0D 0A 3E 64 66 20 26 6E 65 mus="u"..>df &ne
000100: 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A wfile& fo$end$..
000110: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 >ei..>if mus="m"
000120: 0D 0A 3E 64 66 20 26 64 66 26 20 66 6F 24 65 6E ..>df &df& fo$en
000130: 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 d$..>ei..>if mus
000140: 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 ="s"..>df &selfi
000150: 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 le& fo$end$..>ei
000160: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 73 66 70 3D 22 ..>>>..>if sfp="
000170: 66 22 0D 0A 3E 77 66 20 26 66 26 0D 0A 3E 65 69 f"..>wf &f&..>ei
000180: 0D 0A 1A 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D ... df..&flist&.
000190: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
0001A0: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
0001B0: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
0001C0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
0001D0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
0001E0: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
0001F0: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
000030: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
000040: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
000050: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
000060: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
000070: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
000080: 64 6E 3D 22 79 22 0D 0A 3E 75 6E 20 6E 3E 3D 6D dn="y"..>un n>=m
000090: 61 78 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B ax..!blank!..>sk
0000A0: 20 22 71 22 3D 22 71 22 0D 0A 3E 65 6C 20 3B 20 "q"="q"..>el ;
0000B0: 61 6C 6C 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 69 all..>sv n=0..>i
0000C0: 66 20 66 76 3D 22 66 22 0D 0A 3E 72 70 0D 0A 3E f fv="f"..>rp..>
0000D0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0000E0: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 ..>sv s=f&n&+" "
0000F0: 0D 0A 26 73 63 26 21 73 21 0D 0A 3E 75 6E 20 6E ..&sc&!s!..>un n
000100: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
000110: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
000120: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
000130: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
000140: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
000150: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
000160: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
000170: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
000180: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
000190: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
0001A0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
0001B0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
0001C0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
0001D0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
0001E0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
0001F0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
Size : 512 (Real : 512)
000000: 20 53 74 72 65 65 74 0D 0A 4D 61 6E 63 68 65 73 Street..Manches
000010: 74 65 72 0D 0A 4D 33 20 33 45 52 0D 0A 0D 0A 43 ter..M3 3ER....C
000020: 61 72 6D 61 72 74 68 65 6E 73 68 69 72 65 20 43 armarthenshire C
000030: 6F 6C 6C 2E 20 6F 66 20 54 65 63 68 2E 20 61 6E oll. of Tech. an
000040: 64 20 41 72 74 0D 0A 46 61 63 75 6C 74 79 20 6F d Art..Faculty o
000050: 66 20 41 72 74 20 26 20 44 65 73 69 67 6E 0D 0A f Art & Design..
000060: 4A 6F 62 27 73 20 57 65 6C 6C 20 52 6F 61 64 0D Job's Well Road.
000070: 0A 43 61 72 6D 61 72 74 68 65 6E 0D 0A 44 79 66 .Carmarthen..Dyf
000080: 65 64 20 53 41 33 31 20 33 48 59 0D 0A 0D 0A 43 ed SA31 3HY....C
000090: 2E 41 2E 53 2E 53 2E 0D 0A 34 39 2D 35 33 20 48 .A.S.S...49-53 H
0000A0: 61 7A 65 6C 77 6F 6F 64 20 52 6F 61 64 0D 0A 4E azelwood Road..N
0000B0: 6F 72 74 68 61 6D 70 74 6F 6E 0D 0A 4E 4E 31 20 orthampton..NN1
0000C0: 31 4C 47 0D 0A 0D 0A 43 61 73 70 65 6C 6C 20 43 1LG....Caspell C
0000D0: 6F 6D 70 75 74 65 72 73 0D 0A 34 33 20 45 6D 65 omputers..43 Eme
0000E0: 72 73 6F 6E 20 52 6F 61 64 0D 0A 50 6F 6F 6C 65 rson Road..Poole
0000F0: 0D 0A 44 6F 72 73 65 74 0D 0A 42 48 31 35 20 31 ..Dorset..BH15 1
000100: 51 53 0D 0A 0D 0A 43 61 73 74 6C 65 20 43 6F 6D QS....Castle Com
000110: 70 75 74 65 72 73 0D 0A 35 20 46 66 72 61 6E 63 puters..5 Ffranc
000120: 65 73 20 50 61 73 73 61 67 65 0D 0A 4C 61 6E 63 es Passage..Lanc
000130: 61 73 74 65 72 0D 0A 4C 41 31 20 31 55 47 0D 0A aster..LA1 1UG..
000140: 0D 0A 43 65 6E 74 72 61 6C 20 52 65 67 69 6F 6E ..Central Region
000150: 61 6C 20 43 6F 75 6E 63 69 6C 0D 0A 53 6F 63 69 al Council..Soci
000160: 61 6C 20 57 6F 72 6B 20 44 65 70 74 2E 0D 0A 4C al Work Dept...L
000170: 61 6E 67 67 61 72 74 68 0D 0A 53 74 69 72 6C 69 anggarth..Stirli
000180: 6E 67 0D 0A 46 4B 38 20 32 48 41 0D 0A 0D 0A 43 ng..FK8 2HA....C
000190: 65 6E 74 72 65 73 6F 66 74 20 4C 74 64 0D 0A 55 entresoft Ltd..U
0001A0: 6E 69 74 73 20 32 20 26 20 33 0D 0A 48 6F 6C 66 nits 2 & 3..Holf
0001B0: 6F 72 64 20 57 61 79 0D 0A 48 6F 6C 66 6F 72 64 ord Way..Holford
0001C0: 0D 0A 42 69 72 6D 69 6E 67 68 61 6D 0D 0A 42 36 ..Birmingham..B6
0001D0: 20 37 41 58 0D 0A 0D 0A 43 65 72 61 63 20 43 6F 7AX....Cerac Co
0001E0: 6D 70 75 74 65 72 20 53 75 70 70 6C 69 65 73 0D mputer Supplies.
0001F0: 0A 35 33 20 57 6F 6F 64 63 6F 74 65 20 52 6F 61 .53 Woodcote Roa
Size : 512 (Real : 512)
000000: 22 0D 0A 3E 77 74 20 22 50 72 65 73 73 20 61 20 "..>wt "Press a
000010: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
000020: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 6C .....>wc..>cf.;l
000030: 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 6E et exec have han
000040: 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 dle 0..>ex exec
000050: 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 66 fm..>st..>ei ; f
000060: 31 3D 65 6E 64 0D 0A 3E 65 69 20 3B 20 64 65 66 1=end..>ei ; def
000070: 69 6E 65 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ined df..>>>..>i
000080: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
000090: 64 6D 20 22 4F 70 74 69 6F 6E 20 50 20 2D 20 50 dm "Option P - P
0000A0: 72 69 6E 74 2F 64 69 73 70 6C 61 79 20 72 65 63 rint/display rec
0000B0: 6F 72 64 73 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ords..>dm " "..>
0000C0: 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 in fm$pfi$..>sv
0000D0: 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C fv=fv[1] rlen=rl
0000E0: 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 en[w1]..>if fv="
0000F0: 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E f"..>sv flist=">
000100: 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C ru"..>el..>sv fl
000110: 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A ist=">rv"..>ei..
000120: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000130: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000140: 0A 3E 73 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 .>sv flist=flist
000150: 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E +" f&n&"..>un n>
000160: 3D 72 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 =rlen..>sv n=n+1
000170: 20 6D 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D m=n+1 n=n[w1] m
000180: 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 66 26 6E 26 =m[w1]..>sv f&n&
000190: 3D 22 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 3E 3E ="" f&m&=""..>>>
0001A0: 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 4D 61 ..>dm " M - Ma
0001B0: 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 26 64 in data file (&d
0001C0: 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 f&)..>dm " "..>d
0001D0: 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 74 65 m " U - Update
0001E0: 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 66 69 file (&newfi
0001F0: 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E le&)..>dm " "..>
Size : 512 (Real : 512)
000000: 7F 41 72 6E 6F 72 20 28 44 65 75 74 73 63 68 6C .Arnor (Deutschl
000010: 61 6E 64 29 20 4C 74 64 2E 0D 0A 30 31 30 20 34 and) Ltd...010 4
000020: 39 20 34 30 20 32 32 34 39 34 32 0D 0A 48 61 6E 9 40 224942..Han
000030: 73 2D 48 65 6E 6E 79 2D 4A 61 68 6E 6E 20 57 65 s-Henny-Jahnn We
000040: 67 20 32 31 0D 0A 44 32 30 30 30 20 48 61 6D 62 g 21..D2000 Hamb
000050: 75 72 67 20 37 36 0D 0A 57 65 73 74 20 47 65 72 urg 76..West Ger
000060: 6D 61 6E 79 0D 0A 0D 0A 7F 41 72 6E 6F 72 20 4C many.....Arnor L
000070: 74 64 2E 0D 0A 30 37 33 33 20 32 33 39 30 31 31 td...0733 239011
000080: 0D 0A 50 72 6F 74 65 78 74 20 48 6F 75 73 65 0D ..Protext House.
000090: 0A 57 61 69 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 .Wainman Road..P
0000A0: 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 32 eterborough..PE2
0000B0: 20 30 42 55 0D 0A 0D 0A 7F 43 61 6D 62 72 69 64 0BU.....Cambrid
0000C0: 67 65 20 57 61 74 65 72 20 43 6F 6D 70 61 6E 79 ge Water Company
0000D0: 0D 0A 30 32 32 33 20 32 34 37 33 35 31 0D 0A 52 ..0223 247351..R
0000E0: 75 73 74 61 74 20 52 6F 61 64 0D 0A 43 61 6D 62 ustat Road..Camb
0000F0: 72 69 64 67 65 0D 0A 43 42 31 20 33 51 53 0D 0A ridge..CB1 3QS..
000100: 0D 0A 7F 43 61 70 69 74 61 6C 20 52 61 64 69 6F ...Capital Radio
000110: 0D 0A 30 31 20 33 38 38 20 31 32 38 38 0D 0A 45 ..01 388 1288..E
000120: 75 73 74 6F 6E 20 43 65 6E 74 72 65 0D 0A 45 75 uston Centre..Eu
000130: 73 74 6F 6E 20 52 6F 61 64 0D 0A 4C 6F 6E 64 6F ston Road..Londo
000140: 6E 0D 0A 4E 57 31 0D 0A 0D 0A 7F 45 61 73 74 65 n..NW1.....Easte
000150: 72 6E 20 45 6C 65 63 74 72 69 63 69 74 79 0D 0A rn Electricity..
000160: 30 37 33 33 20 32 33 31 30 30 31 0D 0A 53 68 72 0733 231001..Shr
000170: 65 77 73 62 75 72 79 20 41 76 65 6E 75 65 0D 0A ewsbury Avenue..
000180: 50 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 50 45 Peterborough..PE
000190: 32 20 30 42 48 0D 0A 0D 0A 45 20 45 20 47 6F 72 2 0BH....E E Gor
0001A0: 69 6E 67 0D 0A 24 0D 0A 22 27 57 65 73 74 20 54 ing..$.."'West T
0001B0: 69 70 27 22 0D 0A 4F 6C 64 20 46 61 72 6D 20 4C ip'"..Old Farm L
0001C0: 61 6E 65 0D 0A 46 6F 6C 6B 73 77 6F 72 74 68 0D ane..Folksworth.
0001D0: 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 0D 0A 43 .Peterborough..C
0001E0: 61 6D 62 73 0D 0A 0D 0A 4E 69 67 65 6C 20 48 65 ambs....Nigel He
0001F0: 62 62 6C 65 74 68 77 61 69 74 65 0D 0A 30 31 20 bblethwaite..01
Size : 512 (Real : 512)
000000: 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C 65 63 dm " S - Selec
000010: 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 6C 66 tion file (&self
000020: 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A ile&)..>dm " "..
000030: 3E 3E 3E 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 >>>..>rp..>av "E
000040: 6E 74 65 72 20 66 69 6C 65 20 74 6F 20 70 72 69 nter file to pri
000050: 6E 74 2F 64 69 73 70 6C 61 79 20 5B 6D 2F 75 2F nt/display [m/u/
000060: 73 5D 3A 20 22 20 6D 75 73 20 31 0D 0A 3E 75 6E s]: " mus 1..>un
000070: 20 6D 75 73 20 69 6E 20 22 6D 75 73 22 0D 0A 3E mus in "mus"..>
000080: 69 66 20 6D 75 73 3D 22 22 0D 0A 3E 65 78 20 65 if mus=""..>ex e
000090: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
0000A0: 0D 0A 3E 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D ..>>>>..>dm " ".
0000B0: 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 72 69 6E 74 .>rp..>av "Print
0000C0: 20 74 6F 20 53 63 72 65 65 6E 2C 20 46 69 6C 65 to Screen, File
0000D0: 20 6F 72 20 50 72 69 6E 74 65 72 20 5B 73 2F 66 or Printer [s/f
0000E0: 2F 70 5D 3F 20 22 20 73 66 70 20 31 0D 0A 3E 75 /p]? " sfp 1..>u
0000F0: 6E 20 73 66 70 20 69 6E 20 22 73 66 70 22 0D 0A n sfp in "sfp"..
000100: 3E 69 66 20 73 66 70 3D 22 22 0D 0A 3E 65 78 20 >if sfp=""..>ex
000110: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
000120: 69 0D 0A 3E 69 66 20 73 66 70 3D 22 66 22 0D 0A i..>if sfp="f"..
000130: 3E 73 76 20 73 63 3D 22 3E 77 6D 20 22 0D 0A 3E >sv sc=">wm "..>
000140: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 45 6E 74 dm " "..>av "Ent
000150: 65 72 20 6E 61 6D 65 20 6F 66 20 66 69 6C 65 20 er name of file
000160: 74 6F 20 70 72 69 6E 74 20 74 6F 3A 20 22 20 66 to print to: " f
000170: 20 31 36 0D 0A 3E 69 66 20 66 3D 22 22 0D 0A 3E 16..>if f=""..>
000180: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000190: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 .>ei..>ei..>if s
0001A0: 66 70 3D 22 73 22 0D 0A 3E 73 76 20 73 63 3D 22 fp="s"..>sv sc="
0001B0: 3E 64 6D 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 >dm "..>ei..>if
0001C0: 73 66 70 3D 22 70 22 0D 0A 3E 73 76 20 73 63 3D sfp="p"..>sv sc=
0001D0: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 69 ""..>ei..>ei ; i
0001E0: 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 u df..>>>..>dm "
0001F0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 72 "..>rp..>av "Pr
Size : 512 (Real : 512)
000000: 31 30 33 20 32 37 39 30 0D 0A 31 37 61 20 48 69 103 2790..17a Hi
000010: 67 68 20 4C 6F 77 73 0D 0A 48 6F 72 6E 73 65 79 gh Lows..Hornsey
000020: 0D 0A 4C 6F 6E 64 6F 6E 0D 0A 4E 38 0D 0A 0D 0A ..London..N8....
000030: 7F 4C 6F 67 69 63 20 53 61 6C 65 73 20 4C 74 64 .Logic Sales Ltd
000040: 0D 0A 30 37 33 33 20 34 39 36 39 36 0D 0A 36 20 ..0733 49696..6
000050: 4D 69 64 67 61 74 65 0D 0A 50 65 74 65 72 62 6F Midgate..Peterbo
000060: 72 6F 75 67 68 0D 0A 43 61 6D 62 73 0D 0A 0D 0A rough..Cambs....
000070: 5A 61 63 68 61 72 69 61 68 20 4F 27 46 6C 61 68 Zachariah O'Flah
000080: 65 72 74 79 0D 0A 24 0D 0A 4D 6F 73 6B 61 75 73 erty..$..Moskaus
000090: 74 72 61 BA 65 20 39 38 0D 0A 48 61 75 74 65 73 tra.e 98..Hautes
0000A0: 2D 50 79 72 65 6E 65 9F E1 73 0D 0A 54 69 6D 62 -Pyrene..s..Timb
0000B0: 75 6B 74 75 0D 0A 4D 61 6C 69 0D 0A 0D 0A 56 20 uktu..Mali....V
0000C0: 52 20 50 61 74 65 6C 0D 0A 24 0D 0A 31 39 20 46 R Patel..$..19 F
0000D0: 6F 72 74 69 73 20 41 76 65 6E 75 65 0D 0A 47 72 ortis Avenue..Gr
0000E0: 61 6E 74 63 68 65 73 74 65 72 0D 0A 43 61 6D 62 antchester..Camb
0000F0: 72 69 64 67 65 0D 0A 0D 0A 41 70 72 69 6C 20 53 ridge....April S
000100: 68 6F 77 65 72 73 0D 0A 30 32 32 33 20 36 36 31 howers..0223 661
000110: 31 36 36 0D 0A 31 37 39 20 4D 69 6C 65 20 4C 6F 166..179 Mile Lo
000120: 6E 67 20 52 6F 61 64 0D 0A 43 68 65 73 74 65 72 ng Road..Chester
000130: 74 6F 6E 0D 0A 43 61 6D 62 72 69 64 67 65 0D 0A ton..Cambridge..
000140: 43 61 6D 62 73 0D 0A 0D 0A 4D 72 20 57 20 4E 20 Cambs....Mr W N
000150: 53 69 6D 6D 6F 6E 73 0D 0A 30 37 33 33 20 32 34 Simmons..0733 24
000160: 31 31 31 0D 0A 33 37 20 56 69 6F 6C 65 74 20 44 111..37 Violet D
000170: 72 69 76 65 0D 0A 57 6F 6F 64 73 74 6F 6E 0D 0A rive..Woodston..
000180: 22 50 65 74 65 72 62 6F 72 6F 75 67 68 2C 20 43 "Peterborough, C
000190: 61 6D 62 73 22 0D 0A 0D 0A 7F 54 68 6F 6D 70 73 ambs".....Thomps
0001A0: 6F 6E 20 43 6F 6D 70 75 74 65 72 73 0D 0A 24 0D on Computers..$.
0001B0: 0A 38 20 48 79 68 6F 6C 6D 65 73 0D 0A 42 72 65 .8 Hyholmes..Bre
0001C0: 74 74 6F 6E 0D 0A 50 65 74 65 72 62 6F 72 6F 75 tton..Peterborou
0001D0: 67 68 0D 0A 50 45 33 20 38 4C 47 20 20 20 20 20 gh..PE3 8LG
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 0D 0A ....
Size : 512 (Real : 512)
000000: 69 6E 74 20 61 6C 6C 20 66 69 65 6C 64 73 20 5B int all fields [
000010: 59 2F 6E 5D 3F 20 22 20 61 6C 6C 20 31 0D 0A 3E Y/n]? " all 1..>
000020: 69 66 20 61 6C 6C 3D 22 22 0D 0A 3E 73 76 20 61 if all=""..>sv a
000030: 6C 6C 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E ll="y"..>ei..>un
000040: 20 61 6C 6C 20 69 6E 20 22 79 6E 22 0D 0A 3E 3E all in "yn"..>>
000050: 3E 0D 0A 3E 69 66 20 61 6C 6C 3D 22 79 22 0D 0A >..>if all="y"..
000060: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000070: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000080: 0A 3E 73 76 20 64 26 6E 26 3D 22 79 22 0D 0A 3E .>sv d&n&="y"..>
000090: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 6C 20 un n>=rlen..>el
0000A0: 3B 20 61 6C 6C 3C 3E 22 6E 22 0D 0A 3E 64 6D 20 ; all<>"n"..>dm
0000B0: 22 20 22 0D 0A 3E 64 6D 20 22 50 72 69 6E 74 20 " "..>dm "Print
0000C0: 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66 69 the following fi
0000D0: 65 6C 64 73 3F 22 0D 0A 3E 64 6D 20 22 20 22 0D elds?"..>dm " ".
0000E0: 0A 3E 73 76 20 6E 3D 30 20 79 6E 3D 22 59 2F 6E .>sv n=0 yn="Y/n
0000F0: 22 20 6D 69 6E 3D 30 20 64 65 66 3D 22 79 22 0D " min=0 def="y".
000100: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
000110: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E n=n[w1]..>sv s=n
000120: 26 6E 26 0D 0A 3E 69 66 20 73 5B 26 6D 61 78 77 &n&..>if s[&maxw
000130: 26 5D 3D 22 22 0D 0A 3E 73 76 20 73 3D 73 2B 22 &]=""..>sv s=s+"
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 22 0D 0A 3E 65 69 0D 0A "..>ei..
000170: 3E 73 76 20 73 3D 73 5B 31 3A 26 6D 61 78 77 26 >sv s=s[1:&maxw&
000180: 5D 0D 0A 3E 61 76 20 22 66 26 6E 26 3A 20 26 73 ]..>av "f&n&: &s
000190: 26 3A 20 5B 26 79 6E 26 5D 3F 20 22 20 64 26 6E &: [&yn&]? " d&n
0001A0: 26 20 31 0D 0A 3E 69 66 20 64 26 6E 26 3D 22 22 & 1..>if d&n&=""
0001B0: 0D 0A 3E 73 76 20 64 26 6E 26 3D 64 65 66 0D 0A ..>sv d&n&=def..
0001C0: 3E 65 69 0D 0A 3E 73 76 20 79 6E 3D 22 79 2F 4E >ei..>sv yn="y/N
0001D0: 22 20 64 65 66 3D 22 6E 22 0D 0A 3E 69 66 20 64 " def="n"..>if d
0001E0: 26 6E 26 3D 22 79 22 0D 0A 3E 73 76 20 6D 61 78 &n&="y"..>sv max
0001F0: 3D 6E 0D 0A 3E 69 66 20 6D 69 6E 3D 30 0D 0A 3E =n..>if min=0..>
Size : 512 (Real : 512)
000000: 6B 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 kfn&,&askcar&,&u
000010: 73 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 seprod&,&defdisc
000020: 26 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 &'..>wm '&caline
000030: 26 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 &,&aline&,&tline
000040: 26 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 &,&totline&'..>w
000050: 6D 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C m '&side&,&rc1&,
000060: 26 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 &rc2&,&rc3&,&rc4
000070: 26 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 &,&rc5&'..>sv rc
000080: 31 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 1=rc1-1 rc2=rc2-
000090: 31 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 1 rc3=rc3-1 rc4=
0000A0: 72 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D rc4-1 rc5=rc5-1.
0000B0: 0A 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 .>sv r2c1=rc1 r2
0000C0: 63 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 c2=rc2+3 r2c3=rc
0000D0: 33 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 3+2 r2c4=rc4-2 r
0000E0: 32 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 2c5=rc5-3..>sv r
0000F0: 63 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 c1=rc1[w1] rc2=r
000100: 63 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 c2[w1] rc3=rc3[w
000110: 31 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 1] rc4=rc4[w1] r
000120: 63 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 c5=rc5[w1] ..>sv
000130: 20 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 ruler1=">"+dash
000140: 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 es[1:&n&]+"!"+da
000150: 73 68 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 shes[1:10]+"L"+d
000160: 61 73 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D ashes[1:17]+"R".
000170: 0A 3E 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B .>sv ruler2=">"+
000180: 64 61 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B dashes[1:&rc1&]+
000190: 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 "!"+dashes[1:&rc
0001A0: 32 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 2&]+"!"+dashes[1
0001B0: 3A 26 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 :&rc3&]+"!"..>sv
0001C0: 20 72 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 ruler2=ruler2+d
0001D0: 61 73 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 ashes[1:&rc4&]+"
0001E0: 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 !"+dashes[1:&rc5
0001F0: 26 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 &]+"R"..>sv r3c3
Size : 512 (Real : 512)
000000: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
000010: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
000020: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
000030: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
000040: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
000050: 61 34 2C 63 6F 61 35 0D 0A 3E 63 66 0D 0A 3E 3E a4,coa5..>cf..>>
000060: 3E 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 6E >..>av "Statemen
000070: 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 t to printer or
000080: 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 20 file (p/F)? " x
000090: 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 73 1..>if x="p"..>s
0000A0: 76 20 69 63 3D 22 70 22 20 73 63 3D 22 22 0D 0A v ic="p" sc=""..
0000B0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E >el..>rp..>av "N
0000C0: 61 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E ame of file: " n
0000D0: 61 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C ame 8..>un name<
0000E0: 3E 22 22 0D 0A 3E 73 76 20 6E 61 6D 65 3D 22 26 >""..>sv name="&
0000F0: 69 6E 76 70 61 74 68 26 26 6E 61 6D 65 26 2E 70 invpath&&name&.p
000100: 6F 73 22 0D 0A 3E 73 76 20 69 63 3D 22 70 66 20 os"..>sv ic="pf
000110: 26 6E 61 6D 65 26 22 20 73 63 3D 22 3E 77 6D 20 &name&" sc=">wm
000120: 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 20 "..>id cpm..>df
000130: 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 6E 61 om..>ei..>wf &na
000140: 6D 65 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D me&..>ei..>wfon.
000150: 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A .>zm..>tm&cal&..
000160: 3E 73 6D 26 73 69 64 65 26 0D 0A 3E 77 66 6F 66 >sm&side&..>wfof
000170: 66 0D 0A 3E 69 66 69 63 5B 32 5D 3C 3E 22 66 22 f..>ific[2]<>"f"
000180: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 66 66 6F 6E 0D 0A ..>wfon..>ffon..
000190: 3E 77 66 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 73 76 >wfoff..>ei..>sv
0001A0: 74 3D 22 53 54 41 54 45 4D 45 4E 54 22 0D 0A 3E t="STATEMENT"..>
0001B0: 73 76 6D 6E 3D 30 0D 0A 3E 73 76 64 3D 22 6E 22 svmn=0..>svd="n"
0001C0: 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 61 76 22 53 a0="end"..>av"S
0001D0: 65 61 72 63 68 20 64 61 74 61 66 69 6C 65 20 28 earch datafile (
0001E0: 79 2F 4E 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 y/N)? " x 1..>if
0001F0: 78 3D 22 79 22 0D 0A 3E 61 76 22 41 63 63 6F 75 x="y"..>av"Accou
Size : 512 (Real : 512)
000000: 3D 72 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C =r2c3-2..>sv rul
000010: 65 72 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 er3=">"+dashes[1
000020: 3A 26 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 :&r2c1&]+"!"+das
000030: 68 65 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D hes[1:&r2c2&]+"-
000040: 2D 2E 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 -."+dashes[1:&r3
000050: 63 33 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 c3&]+"."..>sv ru
000060: 6C 65 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 ler3=ruler3+dash
000070: 65 73 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 es[1:&r2c4&]+"."
000080: 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 +dashes[1:&r2c5&
000090: 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 ]+"R"..>sv ruler
0000A0: 34 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 4=">"+dashes[1:&
0000B0: 6E 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 n&]+"!"+dashes[1
0000C0: 3A 31 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B :14]+"L"+dashes[
0000D0: 31 3A 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 1:7]+".--R"..>sv
0000E0: 20 6E 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 n=iwidth-2..>sv
0000F0: 20 72 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 ruler5=">"+dash
000100: 65 73 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E es[1:&n&]+"R"..>
000110: 77 6D 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D wm '"&ruler1&"'.
000120: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 .>wm '"&ruler2&"
000130: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 '..>wm '"&ruler3
000140: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
000150: 72 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 r4&"'..>wm '"&ru
000160: 6C 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 ler5&"'..>wm '!c
000170: 6F 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 oname!'..>wm '!c
000180: 6F 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 oaddr1!'..>wm '!
000190: 63 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 coaddr2!'..>wm '
0001A0: 21 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 !coaddr3!'..>wm
0001B0: 27 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D '!coaddr4!'..>wm
0001C0: 20 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 '!coaddr5!'..>w
0001D0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 c..>cf..>ex era
0001E0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 ominvgen.inf..>i
0001F0: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F d cpm..>ex ren o
Size : 512 (Real : 512)
000000: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 76 20 63 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 v cpm=1 filedate
000090: 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D =1..>ei..>iu cpm
0000A0: 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 63 22 20 64 ..>sv dc=">dc" d
0000B0: 70 3D 22 3E 64 70 22 0D 0A 26 64 63 26 20 22 2E p=">dp"..&dc& ".
0000C0: 22 0D 0A 26 64 70 26 20 33 0D 0A 3E 73 76 20 75 "..&dp& 3..>sv u
0000D0: 70 72 69 63 65 3D 30 0D 0A 26 64 70 26 20 32 0D price=0..&dp& 2.
0000E0: 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 33 .>if sys_ver < 3
0000F0: 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 74 .07..>sv filedat
000100: 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 e=1..>ei..>if sy
000110: 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 s_ver=3.10..>sv
000120: 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 0D filedate=1..>ei.
000130: 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>ei..>df ominvg
000140: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
000150: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
000160: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
000170: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
000180: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
000190: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
0001A0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
0001B0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
0001C0: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
0001D0: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
0001E0: 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 69 73 orincvat,showdis
0001F0: 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 c,askfn,askcar,u
Size : 512 (Real : 512)
000000: 6D 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 minvgen.inf omte
000010: 6D 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 mp.inf..>el..>ex
000020: 20 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 ren omtemp.inf
000030: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 ominvgen.inf..>e
000040: 69 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 i..>df omenu..>s
000050: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 k 0=0..>ei ; opt
000060: 3D 22 65 22 0D 0A 1A 6C 65 0D 0A 3E 6E 63 20 32 ="e"...le..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 ................
Size : 512 (Real : 512)
000000: 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A seprod,defdisc..
000010: 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 >rv caline,aline
000020: 2C 74 6C 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A ,tline,totline..
000030: 3E 72 76 20 73 69 64 65 2C 78 2C 78 2C 78 2C 78 >rv side,x,x,x,x
000040: 2C 78 0D 0A 3E 72 76 20 72 75 6C 65 72 31 2C 72 ,x..>rv ruler1,r
000050: 75 6C 65 72 32 2C 72 75 6C 65 72 33 2C 72 75 6C uler2,ruler3,rul
000060: 65 72 34 2C 72 75 6C 65 72 35 0D 0A 3E 72 76 20 er4,ruler5..>rv
000070: 63 6F 6E 61 6D 65 2C 63 6F 61 64 64 72 31 2C 63 coname,coaddr1,c
000080: 6F 61 64 64 72 32 2C 63 6F 61 64 64 72 33 2C 63 oaddr2,coaddr3,c
000090: 6F 61 64 64 72 34 2C 63 6F 61 64 64 72 35 0D 0A oaddr4,coaddr5..
0000A0: 3E 3E 3E 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D >>>..>cf..>df om
0000B0: 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 76 20 invgen.num..>rv
0000C0: 6E 75 6D 62 65 72 2C 74 69 74 6C 65 0D 0A 3E 64 number,title..>d
0000D0: 6D 20 22 49 4E 56 47 45 4E 20 76 32 2E 30 32 20 m "INVGEN v2.02
0000E0: 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 20 20 (c) Arnor 1988
0000F0: 28 26 74 69 74 6C 65 26 29 22 0D 0A 3E 64 6D 20 (&title&)"..>dm
000100: 22 20 22 0D 0A 3E 3E 3E 0D 0A 3E 69 64 20 66 69 " "..>>>..>id fi
000110: 6C 65 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 ledate..>cf..>df
000120: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
000130: 72 76 20 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 rv sys_date..>ei
000140: 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 76 61 74 63 66 ..>>>..>sv vatcf
000150: 30 3D 31 0D 0A 3E 73 76 20 76 61 74 63 66 31 3D 0=1..>sv vatcf1=
000160: 31 2B 76 61 74 31 09 3B 20 56 41 54 20 63 6F 6E 1+vat1.; VAT con
000170: 76 65 72 73 69 6F 6E 20 66 61 63 74 6F 72 73 0D version factors.
000180: 0A 3E 73 76 20 76 61 74 63 66 32 3D 31 2B 76 61 .>sv vatcf2=1+va
000190: 74 32 0D 0A 3E 73 76 20 76 61 74 63 66 33 3D 31 t2..>sv vatcf3=1
0001A0: 2B 76 61 74 33 0D 0A 3E 73 76 20 76 61 74 63 66 +vat3..>sv vatcf
0001B0: 34 3D 31 2B 76 61 74 34 0D 0A 3E 73 76 20 76 61 4=1+vat4..>sv va
0001C0: 74 63 66 35 3D 31 2B 76 61 74 35 0D 0A 3E 3E 3E tcf5=1+vat5..>>>
0001D0: 0D 0A 3E 3E 3E 20 72 65 61 64 20 70 72 6F 64 75 ..>>> read produ
0001E0: 63 74 20 69 6E 66 6F 20 69 6E 74 6F 20 64 65 73 ct info into des
0001F0: 63 31 2C 64 65 73 63 32 2C 2E 2E 2E 2C 70 72 69 c1,desc2,...,pri
Size : 512 (Real : 512)
000000: 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 Typing anything
000010: 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D other than a num
000020: 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C ber will skip al
000030: 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 l remaining prod
000040: 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ucts"..>dm " "..
000050: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000060: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000070: 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 .>sv quant&n&="0
000080: 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E "..>un n=maxn..>
000090: 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 >>..>sv n=0..>rp
0000A0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0000B0: 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D w1]..>sv prompt=
0000C0: 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F desc&n&..>if pro
0000D0: 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 mpt[25]=""..>sv
0000E0: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 prompt=prompt+"
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
000110: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 prompt=prompt[1
000120: 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 :25]..>ei..>av "
000130: 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D 0A &prompt& : " x..
000140: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
000150: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 0..>ei..>sv quan
000160: 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C t&n&=x+0..>if x<
000170: 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 71 >quant&n&..>sv q
000180: 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 76 uant&n&="0"..>sv
000190: 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D 0D n=maxn n=n[w1].
0001A0: 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E .>ei..>if n=maxn
0001B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0001C0: 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 28 Re-enter order (
0001D0: 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 0D y/N)? " yesno 1.
0001E0: 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D 0A .>if yesno="y"..
0001F0: 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 22 >sv n=0..>dm " "
Size : 512 (Real : 512)
000000: 63 65 31 2C 70 72 69 63 65 32 2C 2E 2E 2E 63 6F ce1,price2,...co
000010: 64 65 31 2C 63 6F 64 65 32 2C 2E 2E 2E 0D 0A 3E de1,code2,.....>
000020: 3E 3E 0D 0A 3E 73 76 20 6D 61 78 6E 3D 30 0D 0A >>..>sv maxn=0..
000030: 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D >if useprod="y".
000040: 0A 3E 63 66 0D 0A 3E 64 66 20 26 70 72 6F 64 66 .>cf..>df &prodf
000050: 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 64 ile& fo$end$..>d
000060: 6D 20 52 65 61 64 69 6E 67 20 70 72 6F 64 75 63 m Reading produc
000070: 74 20 64 61 74 61 2E 2E 2E 0D 0A 3E 73 76 20 6E t data.....>sv n
000080: 3D 30 20 64 65 73 63 30 3D 30 0D 0A 3E 72 70 0D =0 desc0=0..>rp.
000090: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
0000A0: 31 5D 0D 0A 3E 72 76 20 64 65 73 63 26 6E 26 2C 1]..>rv desc&n&,
0000B0: 20 70 72 69 63 65 26 6E 26 2C 20 63 6F 64 65 26 price&n&, code&
0000C0: 6E 26 2C 20 70 72 6F 64 76 61 74 26 6E 26 2C 20 n&, prodvat&n&,
0000D0: 70 72 6F 64 64 69 73 63 26 6E 26 0D 0A 3E 69 66 proddisc&n&..>if
0000E0: 20 64 65 73 63 26 6E 26 3D 22 22 20 20 20 3B 20 desc&n&="" ;
0000F0: 69 67 6E 6F 72 65 20 62 6C 61 6E 6B 20 6C 69 6E ignore blank lin
000100: 65 73 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 6E 3D es..>sv n=n-1 n=
000110: 6E 5B 77 31 5D 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 n[w1]..>ei..>un
000120: 64 65 73 63 26 6E 26 3D 22 65 6E 64 22 0D 0A 3E desc&n&="end"..>
000130: 3E 3E 63 66 0D 0A 3E 73 76 20 6D 61 78 6E 3D 6E >>cf..>sv maxn=n
000140: 2D 31 0D 0A 3E 65 69 09 3B 20 75 73 65 70 72 6F -1..>ei.; usepro
000150: 64 3D 22 79 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 d="y"..>>>..>>>
000160: 61 73 6B 20 66 6F 72 20 69 6E 76 6F 69 63 65 20 ask for invoice
000170: 64 65 74 61 69 6C 73 0D 0A 3E 3E 3E 0D 0A 3E 73 details..>>>..>s
000180: 76 20 64 3D 22 6E 22 20 61 30 3D 22 65 6E 64 22 v d="n" a0="end"
000190: 0D 0A 3E 61 76 20 22 53 65 61 72 63 68 20 64 61 ..>av "Search da
0001A0: 74 61 20 66 69 6C 65 20 28 79 2F 4E 29 3F 20 22 ta file (y/N)? "
0001B0: 20 79 65 73 6E 6F 20 31 0D 0A 3E 69 66 20 79 65 yesno 1..>if ye
0001C0: 73 6E 6F 3D 22 79 22 0D 0A 3E 61 76 20 22 41 63 sno="y"..>av "Ac
0001D0: 63 6F 75 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D count name: ",n.
0001E0: 0A 3E 63 66 0D 0A 3E 64 66 20 26 61 64 64 72 66 .>cf..>df &addrf
0001F0: 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 72 ile& fo$end$..>r
Size : 512 (Real : 512)
000000: 3E 63 73 22 20 0D 0A 3E 64 6D 22 53 74 61 74 65 >cs" ..>dm"State
000010: 6D 65 6E 74 20 67 65 6E 65 72 61 74 6F 72 20 28 ment generator (
000020: 63 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E c) Arnor 1988..>
000030: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
000040: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
000050: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
000060: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
000070: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
000080: 3D 22 3E 3E 3E 22 0D 0A 3E 65 69 0D 0A 3E 69 75 =">>>"..>ei..>iu
000090: 20 63 70 6D 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 cpm..>sv dc=">d
0000A0: 63 22 20 66 78 6F 6E 3D 22 3E 66 78 6F 6E 22 20 c" fxon=">fxon"
0000B0: 66 78 6F 66 66 3D 22 3E 66 78 6F 66 66 22 0D 0A fxoff=">fxoff"..
0000C0: 26 66 78 6F 6E 26 0D 0A 26 64 63 26 20 22 2E 22 &fxon&..&dc& "."
0000D0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0000E0: 33 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.07..>sv fileda
0000F0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 69 64 20 66 69 6C 65 64 ..>ei..>id filed
000130: 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D ate..>cf..>df om
000140: 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E 72 76 20 invgen.dat..>rv
000150: 73 79 73 5F 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E sys_date..>cf..>
000160: 65 69 0D 0A 3E 68 65 0D 0A 3E 66 6F 0D 0A 3E 73 ei..>he..>fo..>s
000170: 76 66 68 3D 31 20 61 3D 22 41 64 64 72 65 73 73 vfh=1 a="Address
000180: 20 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D 69 6E line "..>dfomin
000190: 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 61 74 vgen.inf..>rvdat
0001A0: 61 66 2C 69 6E 76 70 61 74 68 2C 78 2C 78 2C 70 af,invpath,x,x,p
0001B0: 68 6F 6E 65 3F 0D 0A 3E 72 76 78 2C 78 2C 78 2C hone?..>rvx,x,x,
0001C0: 78 2C 78 2C 69 6E 66 6F 6C 73 2C 65 77 0D 0A 3E x,x,infols,ew..>
0001D0: 72 76 78 2C 78 2C 78 2C 78 2C 78 2C 76 61 74 6E rvx,x,x,x,x,vatn
0001E0: 75 6D 0D 0A 3E 72 76 70 72 63 6F 6E 61 6D 65 2C um..>rvprconame,
0001F0: 78 2C 73 6A 2C 61 66 6E 2C 78 2C 78 2C 78 0D 0A x,sj,afn,x,x,x..
Size : 512 (Real : 512)
000000: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
000010: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
000020: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
000030: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
000040: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
000050: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
000060: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
000070: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
000080: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
000090: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
0000A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
0000B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
0000C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
0000D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
0000E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
0000F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
000100: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
000110: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
000120: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
000130: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
000140: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
000150: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
000160: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
000170: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
000180: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
000190: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
0001A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
0001B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
0001C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
0001D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
0001E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
0001F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
000030: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
000040: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 69 0D &..>sv x=1..>ei.
000050: 0A 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E .>ei..>sk x=0..>
000060: 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 zm..>npoff..>sv
000070: 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 n=0..>if fv="f"
000080: 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 ; fixed..>rp..>s
000090: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0000A0: 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D .>sv s=f&n&..>wm
0000B0: 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E !s!..>un n=rlen
0000C0: 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 ..>el ; var..>rp
0000D0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0000E0: 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D w1]..>sv s=f&n&.
0000F0: 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 .>if s=""..>sv s
000100: 3D 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 =n+1 m=n+2 s=s[w
000110: 31 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 1] m=m[w1]..>sv
000120: 73 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 s=f&s&+f&m&..>if
000130: 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 s=""..>sv n=rle
000140: 6E 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 n..>el..>sv s="$
000150: 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D "..>ei..>ei..>wm
000160: 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E !s!..>un n=rlen
000170: 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 ..>ei ; f/v..>sv
000180: 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 nn=nn+1..>el ;
000190: 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E f1=end..>sv nn=n
0001A0: 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A n[w1]..>dm " "..
0001B0: 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 >wt "&nn& record
0001C0: 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 s found. Press a
0001D0: 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 key to continue
0001E0: 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A .....>wc..>cf..
0001F0: 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 >ex exec fm..>st
Size : 512 (Real : 512)
000000: 6C 6F 61 64 20 6F 6D 69 6E 69 74 7C 31 33 7C 7C load ominit|13||
000010: 31 36 7C 70 73 7C 31 33 7C 1A 1A 70 66 20 69 6E 16|ps|13|..pf in
000020: 76 67 65 6E 2E 6E 75 6D 0D 0A 1A 2E 0D 0A 50 72 vgen.num......Pr
000030: 6F 74 65 78 74 20 48 6F 75 73 65 0D 0A 57 61 69 otext House..Wai
000040: 6E 6D 61 6E 20 52 6F 61 64 0D 0A 50 45 54 45 52 nman Road..PETER
000050: 42 4F 52 4F 55 47 48 0D 0A 50 45 32 20 30 42 55 BOROUGH..PE2 0BU
000060: 0D 0A 1A 65 65 6E 20 74 69 74 6C 65 73 20 61 6E ...een titles an
000070: 64 20 74 6F 74 61 6C 73 0D 0A 3E 73 76 20 44 45 d totals..>sv DE
000080: 22 22 0D 0A 22 22 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ""..""..........
000090: 0D 0A 0D 0A 1A 66 2C 79 0D 0A 30 2E 31 35 2C 30 .....f,y..0.15,0
0000A0: 2C 30 2C 30 2C 30 2C 32 32 2C 32 30 0D 0A 22 32 ,0,0,0,22,20.."2
0000B0: 35 20 31 30 22 2C 22 31 35 20 31 30 22 2C 22 22 5 10","15 10",""
0000C0: 2C 22 22 2C 22 22 0D 0A 79 2C 78 2C 79 2C 79 2C ,"",""..y,x,y,y,
0000D0: 79 2C 79 2C 30 0D 0A 34 2C 31 32 2C 32 33 2C 34 y,y,0..4,12,23,4
0000E0: 35 0D 0A 30 2C 31 34 2C 31 38 2C 31 35 2C 31 37 5..0,14,18,15,17
0000F0: 2C 39 0D 0A 22 22 0D 0A 22 22 0D 0A 22 22 0D 0A ,9..""..""..""..
000100: 22 0D 0A 3E 73 76 20 63 70 6D 3D 31 0D 0A 3E 65 "..>sv cpm=1..>e
000110: 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E 2E i..>df ominvgen.
000120: 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 66 69 6C inf..>rv addrfil
000130: 65 2C 69 6E 76 64 72 76 2C 70 72 6F 64 66 69 6C e,invdrv,prodfil
000140: 65 2C 76 61 74 72 65 67 0D 0A 3E 72 76 20 76 61 e,vatreg..>rv va
000150: 74 31 2C 76 61 74 32 2C 76 61 74 33 2C 76 61 74 t1,vat2,vat3,vat
000160: 34 2C 76 61 74 35 2C 69 6E 66 6F 6C 69 6E 65 73 4,vat5,infolines
000170: 2C 64 65 73 63 77 69 64 74 68 0D 0A 3E 72 76 20 ,descwidth..>rv
000180: 64 69 73 63 41 2C 64 69 73 63 42 2C 64 69 73 63 discA,discB,disc
000190: 43 2C 64 69 73 63 44 2C 64 69 73 63 45 0D 0A 3E C,discD,discE..>
0001A0: 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 6F 72 rv prconame,exor
0001B0: 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 73 6B inc,showdisc,ask
0001C0: 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 72 6F fn,askcar,usepro
0001D0: 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 20 63 d,defdisc..>rv c
0001E0: 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C 69 6E aline,aline,tlin
0001F0: 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 20 73 e,totline..>rv s
Size : 512 (Real : 512)
000000: 0D 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A ..>ei..>sk 0=0..
000010: 3E 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 >ei ; if defined
000020: 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 df..>>>..>iu df
000030: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
000040: 4F 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C Option S.4 - Sel
000050: 65 63 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E ect records (con
000060: 64 31 20 41 4E 44 20 63 6F 6E 64 32 29 22 0D 0A d1 AND cond2)"..
000070: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
000080: 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B pfi$..>sv fv=fv[
000090: 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 1] rlen=rlen[w1]
0000A0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 ..>if fv="f"..>s
0000B0: 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E v flist=">ru"..>
0000C0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
0000D0: 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D rv"..>ei..>sv n=
0000E0: 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 0..>rp..>sv n=n+
0000F0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 1 n=n[w1]..>sv f
000100: 6C 69 73 74 20 3D 20 66 6C 69 73 74 20 2B 20 22 list = flist + "
000110: 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 f&n&"..>un n>=r
000120: 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D len..>sv n=n+1 m
000130: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D =n+1 n=n[w1] m=m
000140: 5B 77 31 5D 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 [w1]..>sv f&n&="
000150: 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A " f&m&=""..>>>..
000160: 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 >dm "Field names
000170: 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 : "..>sv n=0..>r
000180: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000190: 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 [w1]..>sv s=n&n&
0001A0: 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D ..>dm f&n&: &s&.
0001B0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
0001C0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
0001D0: 57 68 65 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F When entering co
0001E0: 6E 64 69 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 nditions below,
0001F0: 70 6C 65 61 73 65 20 72 65 6D 65 6D 62 65 72 20 please remember
Size : 512 (Real : 512)
000000: 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C 41 ure in the 'BALA
000010: 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 69 NCE' column..>ei
000020: 0D 0A 26 73 63 26 45 2E 20 26 20 4F 2E 45 2E 0D ..&sc&E. & O.E..
000030: 0A 3E 69 66 69 63 5B 32 5D 3D 22 22 0D 0A 3E 70 .>ific[2]=""..>p
000040: 61 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D a..>ei..>ific[2]
000050: 3C 3E 22 66 22 0D 0A 3E 65 78 20 65 78 65 63 20 <>"f"..>ex exec
000060: 6F 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 om..>st..>ei..>s
000070: 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F 73 vfn=ic[w2]+".pos
000080: 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 70 "..>av"Send to p
000090: 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E rinter or screen
0000A0: 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E (P/s)? " x 1..>
0000B0: 69 66 78 3D 22 73 22 0D 0A 3E 65 78 78 73 20 22 ifx="s"..>exxs "
0000C0: 70 73 20 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 ps &fn&|13|; Pre
0000D0: 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 ss a key to cont
0000E0: 69 6E 75 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 inue:|13|pause|1
0000F0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
000100: 70 73 7C 31 33 7C 0D 0A 3E 65 6C 0D 0A 3E 65 78 ps|13|..>el..>ex
000110: 78 73 20 22 6C 6F 61 64 20 26 66 6E 26 7C 31 33 xs "load &fn&|13
000120: 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 7C 70 7C 31 |doc|13||766|p|1
000130: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
000140: 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D 0A 3E 73 74 ps|13|..>ei..>st
000150: 0D 0A 1A 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D ...line "..>dfom
000160: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 invgen.inf..>rvd
000170: 61 74 61 66 2C 69 6E 76 64 72 76 2C 78 2C 78 0D ataf,invdrv,x,x.
000180: 65 3A 20 22 20 6E 61 6D 65 20 38 0D 0A 3E 75 6E e: " name 8..>un
000190: 20 6E 61 6D 65 3C 3E 22 22 0D 0A 3E 73 76 20 6E name<>""..>sv n
0001A0: 61 6D 65 3D 26 69 6E 76 64 65 76 26 3A 26 6E 61 ame=&invdev&:&na
0001B0: 6D 65 26 2E 70 6F 73 0D 0A 3E 73 76 20 69 63 3D me&.pos..>sv ic=
0001C0: 22 70 66 20 26 6E 61 6D 65 26 22 20 73 63 3D 22 "pf &name&" sc="
0001D0: 3E 77 6D 20 22 0D 0A 3E 77 66 20 26 6E 61 6D 65 >wm "..>wf &name
0001E0: 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D 0A 3E &..>ei..>wfon..>
0001F0: 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A 3E 73 zm..>tm&cal&..>s
Size : 512 (Real : 512)
000000: 78 20 65 78 65 63 20 6F 6D 0D 0A 3E 73 74 20 22 x exec om..>st "
000010: 20 22 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 41 64 "..>ei..>av "Ad
000020: 64 72 65 73 73 20 31 3A 20 22 20 61 31 0D 0A 3E dress 1: " a1..>
000030: 61 76 20 22 41 64 64 72 65 73 73 20 32 3A 20 22 av "Address 2: "
000040: 20 61 32 0D 0A 3E 69 66 20 61 32 3E 22 22 0D 0A a2..>if a2>""..
000050: 3E 61 76 20 22 41 64 64 72 65 73 73 20 33 3A 20 >av "Address 3:
000060: 22 20 61 33 0D 0A 3E 69 66 20 61 33 3E 22 22 0D " a3..>if a3>"".
000070: 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 34 3A .>av "Address 4:
000080: 20 22 20 61 34 0D 0A 3E 69 66 20 61 34 3E 22 22 " a4..>if a4>""
000090: 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 35 ..>av "Address 5
0000A0: 3A 20 22 20 61 35 0D 0A 3E 69 66 20 61 35 3E 22 : " a5..>if a5>"
0000B0: 22 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 20 "..>av "Address
0000C0: 36 3A 20 22 20 61 36 0D 0A 3E 69 66 20 61 36 3E 6: " a6..>if a6>
0000D0: 22 22 0D 0A 3E 61 76 20 22 41 64 64 72 65 73 73 ""..>av "Address
0000E0: 20 37 3A 20 22 20 61 37 0D 0A 3E 65 69 0D 0A 3E 7: " a7..>ei..>
0000F0: 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 ei..>ei..>ei..>e
000100: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 61 76 i..>ei..>>>..>av
000110: 20 22 49 6E 76 6F 69 63 65 20 6E 75 6D 62 65 72 "Invoice number
000120: 20 5B 26 6E 75 6D 62 65 72 26 5D 3A 20 20 22 2C [&number&]: ",
000130: 6E 75 6D 0D 0A 3E 69 66 20 6E 75 6D 3C 3E 22 22 num..>if num<>""
000140: 0D 0A 3E 73 76 20 6E 75 6D 62 65 72 3D 6E 75 6D ..>sv number=num
000150: 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 6F 6D 69 6E 76 ..>el..>wf ominv
000160: 67 65 6E 2E 6E 75 6D 0D 0A 3E 73 76 20 6E 75 6D gen.num..>sv num
000170: 3D 6E 75 6D 62 65 72 2B 31 20 6E 75 6D 3D 6E 75 =number+1 num=nu
000180: 6D 5B 77 31 5D 0D 0A 3E 77 6D 20 26 6E 75 6D 26 m[w1]..>wm &num&
000190: 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 66 20 ..>wc..>ei..>wf
0001A0: 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D 70 0D &invpath&omtemp.
0001B0: 0A 3E 77 66 20 6F 6E 0D 0A 3E 7A 6D 0D 0A 3E 74 .>wf on..>zm..>t
0001C0: 6D 20 26 63 61 6C 69 6E 65 26 0D 0A 3E 73 6D 20 m &caline&..>sm
0001D0: 26 73 69 64 65 26 0D 0A 3E 77 66 20 6F 66 66 0D &side&..>wf off.
0001E0: 0A 3E 61 76 20 22 49 6E 76 6F 69 63 65 20 64 61 .>av "Invoice da
0001F0: 74 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A te [&sys_date&]:
Size : 512 (Real : 512)
000000: 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n-1 n=n[w1]..>
000010: 73 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B sv c3=c3[1:&n&]+
000020: 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E "f0"..>sv n=0..>
000030: 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 ei..>un n=0..>sv
000040: 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D ff=">sv f0=f1".
000050: 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D .>ei ; f* in c3.
000060: 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 .>>>..>if ff<>""
000070: 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A ..>sv n=1..>rp..
000080: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000090: 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 ]..>sv ff=ff+"+f
0000A0: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
0000B0: 6E 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n..>ei..>>>..>dm
0000C0: 20 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 " "..>dm "Searc
0000D0: 68 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E hing ..."..>sv n
0000E0: 6E 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D n=0..>df fm.mus.
0000F0: 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E .>rv mus..>cf..>
000100: 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 if mus="m"..>sv
000110: 66 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D f=df..>ei..>if m
000120: 75 73 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 us="u"..>sv f=ne
000130: 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 wfile..>ei..>if
000140: 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 mus="s"..>sv f=s
000150: 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 elfile..>ei..>df
000160: 20 26 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 &f& fo$end$..>w
000170: 66 20 26 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 f &selfile&..>ei
000180: 20 3B 20 69 75 20 64 66 0D 0A 1A 69 73 74 26 0D ; iu df...ist&.
000190: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
0001A0: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
0001B0: 3E 65 6C 0D 0A 3E 69 66 20 26 63 32 26 0D 0A 3E >el..>if &c2&..>
0001C0: 65 6C 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 65 el..>if &c3&..>e
0001D0: 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 0D 0A l..>sk0=0..>ei..
0001E0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 7A 6D 0D 0A 3E >ei..>ei..>zm..>
0001F0: 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 0D 0A npoff..>sv n=0..
Size : 512 (Real : 512)
000000: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
000010: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
000020: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
000030: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
000040: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
000050: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
000060: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
000070: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
000080: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
000090: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
0000A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
0000B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
0000C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0000D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
0000E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
0000F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
000100: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
000110: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
000120: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
000130: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
000140: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
000150: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
000160: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
000170: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
000180: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
000190: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
0001A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
0001B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
0001C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
0001D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
0001E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
0001F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
Size : 512 (Real : 512)
000000: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
000010: 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 65 78 ontinue .....>ex
000020: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
000030: 65 69 20 3B 20 66 31 0D 0A 3E 65 69 20 3B 20 69 ei ; f1..>ei ; i
000040: 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 d df..>>>..>iu d
000050: 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 f..>cs " "..>dm
000060: 22 4F 70 74 69 6F 6E 20 55 20 2D 20 4D 65 72 67 "Option U - Merg
000070: 65 20 75 70 64 61 74 65 20 66 69 6C 65 20 69 6E e update file in
000080: 74 6F 20 6D 61 69 6E 20 66 69 6C 65 0D 0A 3E 64 to main file..>d
000090: 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 m " "..>in fm$pf
0000A0: 69 24 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D i$..>sv sys_ver=
0000B0: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
0000C0: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
0000D0: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 ="1"..>ei..>sv f
0000E0: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
0000F0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
000100: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
000110: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
000120: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
000130: 73 76 20 6E 3D 22 30 2E 30 30 22 0D 0A 3E 72 70 sv n="0.00"..>rp
000140: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D 0A 3E 73 76 ..>sv n=n+1..>sv
000150: 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 flist=flist+" f
000160: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
000170: 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E n..>sv n=n+1 m=n
000180: 2B 31 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 +1..>sv f&n&=""
000190: 66 26 6D 26 3D 22 22 0D 0A 3E 69 64 20 63 70 6D f&m&=""..>id cpm
0001A0: 0D 0A 3E 64 66 20 26 64 66 26 0D 0A 3E 72 76 20 ..>df &df&..>rv
0001B0: 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 0D 0A s..>if s="end"..
0001C0: 3E 77 66 20 26 64 66 26 0D 0A 3E 65 6C 0D 0A 3E >wf &df&..>el..>
0001D0: 77 66 20 26 64 66 26 20 61 0D 0A 3E 65 69 0D 0A wf &df& a..>ei..
0001E0: 3E 65 6C 0D 0A 3E 77 66 20 26 64 66 26 20 61 0D >el..>wf &df& a.
0001F0: 0A 3E 65 69 0D 0A 3E 63 66 0D 0A 3E 64 66 20 26 .>ei..>cf..>df &
Size : 512 (Real : 512)
000000: 74 6F 20 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E to enclose strin
000010: 67 73 20 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E gs in quotes"..>
000020: 64 6D 20 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E dm 'e.g. "London
000030: 22 20 69 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 " in F4..>dm " "
000040: 0D 0A 3E 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 ..>sv ok="'" + '
000050: 22 27 20 2B 20 22 30 31 32 33 34 35 36 37 38 39 "' + "0123456789
000060: 2E 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E ."..>sv n="1"..>
000070: 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 rp..>av "Enter c
000080: 6F 6E 64 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 ondition &n&: "
000090: 73 0D 0A 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 s..>sv err=0 s=s
0000A0: 5B 77 31 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D [w1:]..>sv c&n&=
0000B0: 73 0D 0A 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 s..>if c1=""..>e
0000C0: 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A x exec fm..>st..
0000D0: 3E 65 69 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 >ei..>if s[1]="f
0000E0: 22 0D 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 "..>if s[2] noti
0000F0: 6E 20 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A n "*123456789"..
000100: 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A >sv err=1..>ei..
000110: 3E 65 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F >el..>if s[1] no
000120: 74 69 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D tin ok..>sv err=
000130: 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 1..>ei..>ei..>>>
000140: 0D 0A 3E 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 ..>sv s=c&n&[w-1
000150: 5D 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D ]..>if s[1]="f".
000160: 0A 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 .>if s[2] notin
000170: 22 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 "*123456789"..>s
000180: 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 v err=1..>ei..>e
000190: 6C 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 l..>if s[1] noti
0001A0: 6E 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D n ok..>sv err=1.
0001B0: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A .>ei..>ei..>>>..
0001C0: 3E 69 66 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E >if err=0..>sv n
0001D0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 =n+1 n=n[w1]..>e
0001E0: 6C 0D 0A 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 l..>dm "Invalid
0001F0: 69 6E 70 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E input"..>ei..>un
Size : 512 (Real : 512)
000000: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000010: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
000020: 65 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D ei ; id df..>>>.
000030: 0A 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 .>iu df..>cs " "
000040: 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E ..>dm "Option S.
000050: 35 20 2D 20 53 65 6C 65 63 74 20 72 65 63 6F 72 5 - Select recor
000060: 64 73 20 28 63 6F 6E 64 31 20 41 4E 44 20 63 6F ds (cond1 AND co
000070: 6E 64 32 20 41 4E 44 20 63 6F 6E 64 33 29 22 0D nd2 AND cond3)".
000080: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D .>dm " "..>in fm
000090: 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 $pfi$..>sv fv=fv
0000A0: 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 [1] rlen=rlen[w1
0000B0: 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E ]..>if fv="f"..>
0000C0: 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A sv flist=">ru"..
0000D0: 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 >el..>sv flist="
0000E0: 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E >rv"..>ei..>sv n
0000F0: 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =0..>rp..>sv n=n
000100: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
000110: 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 flist=flist+" f&
000120: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
000130: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B ..>sv n=n+1 m=n+
000140: 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 1 n=n[w1] m=m[w1
000150: 5D 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 ]..>sv f&n&="" f
000160: 26 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D &m&=""..>>>..>dm
000170: 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 "Field names: "
000180: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
000190: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0001A0: 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E ]..>sv s=n&n&..>
0001B0: 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 dm f&n&: &s&..>u
0001C0: 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E n n=rlen..>>>..>
0001D0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 dm " "..>dm "Whe
0001E0: 6E 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 n entering condi
0001F0: 74 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 tions below, ple
Size : 512 (Real : 512)
000000: 20 6E 3E 32 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 n>2..>>>..>if c
000010: 32 3D 22 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 2=""..>sv c2="0=
000020: 30 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 66 3D 0"..>ei..>sv ff=
000030: 22 22 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 ""..>if "f*" in
000040: 63 31 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D c1[6:]..>sv n=5.
000050: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
000060: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 31 5B n=n[w1]..>if c1[
000070: 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 &n&:]="f*"..>sv
000080: 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n-1 n=n[w1]..>
000090: 73 76 20 63 31 3D 63 31 5B 31 3A 26 6E 26 5D 2B sv c1=c1[1:&n&]+
0000A0: 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E "f0"..>sv n=0..>
0000B0: 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 ei..>un n=0..>sv
0000C0: 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D ff=">sv f0=f1".
0000D0: 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 31 0D .>ei ; f* in c1.
0000E0: 0A 3E 3E 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 .>>>..>if "f*" i
0000F0: 6E 20 63 32 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D n c2[6:]..>sv n=
000100: 35 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 5..>rp..>sv n=n+
000110: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 1 n=n[w1]..>if c
000120: 32 5B 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 2[&n&:]="f*"..>s
000130: 76 20 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n-1 n=n[w1].
000140: 0A 3E 73 76 20 63 32 3D 63 32 5B 31 3A 26 6E 26 .>sv c2=c2[1:&n&
000150: 5D 2B 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D ]+"f0"..>sv n=0.
000160: 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E .>ei..>un n=0..>
000170: 73 76 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 sv ff=">sv f0=f1
000180: 22 0D 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 "..>ei ; f* in c
000190: 32 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 2..>>>..>if ff<>
0001A0: 22 22 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 ""..>sv n=1..>rp
0001B0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0001C0: 77 31 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 w1]..>sv ff=ff+"
0001D0: 2B 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 +f&n&"..>un n>=r
0001E0: 6C 65 6E 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E len..>ei..>>>..>
0001F0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 dm " "..>dm "Sea
Size : 512 (Real : 512)
000000: 41 44 44 52 45 53 53 2C 41 3A 2C 70 72 6F 64 75 ADDRESS,A:,produ
000010: 63 74 73 2E 69 6E 66 2C 79 2C 79 0D 0A 30 2E 31 cts.inf,y,y..0.1
000020: 35 2C 30 2E 30 30 2C 30 2E 30 30 2C 30 2E 30 30 5,0.00,0.00,0.00
000030: 2C 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 32 35 ,0.00,22,18.."25
000040: 20 31 30 20 30 22 2C 22 31 35 20 31 30 20 30 22 10 0","15 10 0"
000050: 2C 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 ,"0 0 0","0 0 0"
000060: 2C 22 30 20 30 20 30 22 2C 22 22 0D 0A 79 2C 69 ,"0 0 0",""..y,i
000070: 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 32 ,n,y,y,y,0..4,12
000080: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
000090: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
0000D0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
0000E0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
0000F0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000110: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000130: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
000140: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
000180: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
0001C0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 72 63 68 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 rching ..."..>sv
000010: 20 6E 6E 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 nn=0..>df fm.mu
000020: 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D s..>rv mus..>cf.
000030: 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 .>if mus="m"..>d
000040: 66 20 26 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A f &df& fo$end$..
000050: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 >ei..>if mus="u"
000060: 0D 0A 3E 64 66 20 26 6E 65 77 66 69 6C 65 26 20 ..>df &newfile&
000070: 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 fo$end$..>ei..>i
000080: 66 20 6D 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 f mus="s"..>df &
000090: 73 65 6C 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 selfile& fo$end$
0000A0: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 ..>ei..>wf &self
0000B0: 69 6C 65 26 0D 0A 3E 65 69 20 3B 20 69 66 20 75 ile&..>ei ; if u
0000C0: 6E 64 65 66 69 6E 65 64 20 64 66 0D 0A 1A 69 0D ndefined df...i.
0000D0: 0A 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E .>ei..>sk x=0..>
0000E0: 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 zm..>npoff..>sv
0000F0: 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 n=0..>if fv="f"
000100: 20 63 31 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 c1[6:]..>sv n=5
000110: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000120: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 31 n=n[w1]..>if c1
000130: 5B 26 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 [&n&:]="f*"..>sv
000140: 20 6E 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n-1 n=n[w1]..
000150: 3E 73 76 20 63 31 3D 63 31 5B 31 3A 26 6E 26 5D >sv c1=c1[1:&n&]
000160: 2B 22 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A +"f0"..>sv n=0..
000170: 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 >ei..>un n=0..>s
000180: 76 20 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 v ff=">sv f0=f1"
000190: 0D 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A ..>sv n=1..>rp..
0001A0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0001B0: 5D 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 ]..>sv ff=ff+"+f
0001C0: 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 &n&"..>un n>=rle
0001D0: 6E 0D 0A 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 n..>ei ; f* in c
0001E0: 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 1..>dm " "..>dm
0001F0: 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E 22 0D "Searching ...".
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 0D 0A 0D 0A --------R"......
000020: 0D 0A 0D 0A 0D 0A 0D 0A 1A 30 30 2C 30 2E 30 30 .........00,0.00
000030: 2C 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 32 35 ,0.00,22,18.."25
000040: 20 31 30 20 30 22 2C 22 31 35 20 31 30 20 30 22 10 0","15 10 0"
000050: 2C 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 ,"0 0 0","0 0 0"
000060: 2C 22 30 20 30 20 30 22 2C 22 22 0D 0A 79 2C 78 ,"0 0 0",""..y,x
000070: 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 32 ,n,y,y,y,0..4,12
000080: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
000090: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
0000D0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
0000E0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
0000F0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000110: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000130: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
000140: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
000180: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
0001C0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 |639||16|ps"..>s
000010: 76 20 73 66 3D 22 6C 20 66 6D 66 69 6E 64 7C 31 v sf="l fmfind|1
000020: 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 3|y|639||16|ps".
000030: 0A 3E 73 76 20 73 61 3D 22 6C 20 66 6D 61 64 64 .>sv sa="l fmadd
000040: 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 |13|y|639||16|ps
000050: 22 0D 0A 3E 73 76 20 73 70 3D 22 6C 20 66 6D 70 "..>sv sp="l fmp
000060: 72 69 6E 74 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 rint|13|y|639||1
000070: 36 7C 70 22 0D 0A 3E 73 76 20 73 75 3D 22 6C 20 6|p"..>sv su="l
000080: 66 6D 6D 65 72 67 65 7C 31 33 7C 79 7C 36 33 39 fmmerge|13|y|639
000090: 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 76 20 73 3D ||16|ps"..>sv s=
0000A0: 73 26 6F 70 74 26 0D 0A 3E 3E 3E 20 6E 6F 74 65 s&opt&..>>> note
0000B0: 20 65 78 65 63 20 6E 6F 74 20 69 6E 20 70 72 6F exec not in pro
0000C0: 67 72 65 73 73 20 68 65 72 65 0D 0A 3E 69 64 20 gress here..>id
0000D0: 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 20 66 6D cpm..>cf..>df fm
0000E0: 24 70 66 69 24 09 3B 20 68 61 6E 64 6C 65 20 30 $pfi$.; handle 0
0000F0: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D 2E 78 09 ..>ei..>wf fm.x.
000100: 3B 20 68 61 6E 64 6C 65 20 31 0D 0A 3E 77 6D 20 ; handle 1..>wm
000110: 22 26 73 26 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 "&s&"..>wc..>cf.
000120: 09 3B 20 66 72 65 65 20 68 61 6E 64 6C 65 20 30 .; free handle 0
000130: 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 2E 78 09 ..>ex exec fm.x.
000140: 3B 20 67 65 74 73 20 68 61 6E 64 6C 65 20 30 0D ; gets handle 0.
000150: 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 6F 70 74 20 .>st..>ei ; opt
000160: 69 6E 20 22 71 65 69 7A 66 61 70 75 22 0D 0A 3E in "qeizfapu"..>
000170: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
000180: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
000190: 0D 0A 3E 3E 3E 20 63 6C 65 61 72 20 73 63 72 65 ..>>> clear scre
0001A0: 65 6E 2C 20 70 72 69 6E 74 20 74 69 74 6C 65 20 en, print title
0001B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
0001C0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0001D0: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 20 >>>>>>..>if opt
0001E0: 69 6E 20 22 63 6C 73 7A 64 6D 22 0D 0A 3E 73 76 in "clszdm"..>sv
0001F0: 20 6F 6F 3D 6F 26 6F 70 74 26 0D 0A 3E 63 73 20 oo=o&opt&..>cs
Size : 512 (Real : 512)
000000: 61 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 ase remember to
000010: 65 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 enclose strings
000020: 69 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 in quotes"..>dm
000030: 27 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 'e.g. "London" i
000040: 6E 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E n F4..>dm " "..>
000050: 73 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 sv ok="'" + '"'
000060: 2B 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D + "0123456789.".
000070: 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D .>sv n="1"..>rp.
000080: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 .>av "Enter cond
000090: 69 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A ition &n&: " s..
0000A0: 3E 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 >sv err=0 s=s[w1
0000B0: 3A 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A :]..>sv c&n&=s..
0000C0: 3E 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 >if c1=""..>ex e
0000D0: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
0000E0: 0D 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A ..>if s[1]="f"..
0000F0: 3E 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 >if s[2] notin "
000100: 2A 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 *123456789"..>sv
000110: 20 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C err=1..>ei..>el
000120: 0D 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E ..>if s[1] notin
000130: 20 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A ok..>sv err=1..
000140: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E >ei..>ei..>>>..>
000150: 73 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A sv s=c&n&[w-1]..
000160: 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 >if s[1]="f"..>i
000170: 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 f s[2] notin "*1
000180: 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 23456789"..>sv e
000190: 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A rr=1..>ei..>el..
0001A0: 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F >if s[1] notin o
0001B0: 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 k..>sv err=1..>e
0001C0: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 i..>ei..>>>..>if
0001D0: 20 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B err=0..>sv n=n+
0001E0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 1 n=n[w1]..>el..
0001F0: 3E 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 >dm "Invalid inp
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
000030: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
000040: 26 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 73 76 &..>if &c3&..>sv
000050: 20 78 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A x=1..>ei..>ei..
000060: 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A >ei..>sk x=0..>z
000070: 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E m..>npoff..>sv n
000080: 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B =0..>if fv="f" ;
000090: 20 66 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 fixed..>rp..>sv
0000A0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0000B0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 >sv s=f&n&..>wm
0000C0: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
0000D0: 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D .>el ; var..>rp.
0000E0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
0000F0: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
000100: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D >if s=""..>sv s=
000110: 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 n+1 m=n+2 s=s[w1
000120: 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 ] m=m[w1]..>sv s
000130: 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 =f&s&+f&m&..>if
000140: 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E s=""..>sv n=rlen
000150: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 ..>el..>sv s="$"
000160: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 ..>ei..>ei..>wm
000170: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
000180: 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 .>ei ; f/v..>sv
000190: 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 nn=nn+1..>el ; f
0001A0: 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 1=end..>sv nn=nn
0001B0: 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E [w1]..>dm " "..>
0001C0: 77 74 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 wt "&nn& records
0001D0: 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 found. Press a
0001E0: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
0001F0: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
Size : 512 (Real : 512)
000000: 75 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E ut"..>ei..>un n>
000010: 33 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 3..>>>..>if c2="
000020: 22 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 30 22 0D "..>sv c2="0=0".
000030: 0A 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D .>ei..>if c3="".
000040: 0A 3E 73 76 20 63 33 3D 22 30 3D 30 22 0D 0A 3E .>sv c3="0=0"..>
000050: 65 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E ei..>sv ff=""..>
000060: 69 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A if "f*" in c1[6:
000070: 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D ]..>sv n=5..>rp.
000080: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000090: 31 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 1]..>if c1[&n&:]
0000A0: 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 ="f*"..>sv n=n-1
0000B0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 n=n[w1]..>sv c1
0000C0: 3D 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D =c1[1:&n&]+"f0".
0000D0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sv n=0..>ei..>
0000E0: 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 un n=0..>sv ff="
0000F0: 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 >sv f0=f1"..>ei
000100: 3B 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D ; f* in c1..>>>.
000110: 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B .>if "f*" in c2[
000120: 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 6:]..>sv n=5..>r
000130: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000140: 5B 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 [w1]..>if c2[&n&
000150: 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E :]="f*"..>sv n=n
000160: 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 -1 n=n[w1]..>sv
000170: 63 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 c2=c2[1:&n&]+"f0
000180: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D "..>sv n=0..>ei.
000190: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 .>un n=0..>sv ff
0001A0: 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 =">sv f0=f1"..>e
0001B0: 69 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E i ; f* in c2..>>
0001C0: 3E 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 >..>if "f*" in c
0001D0: 33 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3[6:]..>sv n=5..
0001E0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0001F0: 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 =n[w1]..>if c3[&
Size : 512 (Real : 512)
000000: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 ..>ei..>ei..>un
000010: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 20 3B 20 75 73 n=maxn..>ei ; us
000020: 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 3E 3E 0D 0A eprod="y"..>>>..
000030: 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 68 65 >>> print out he
000040: 61 64 69 6E 67 20 61 74 20 74 6F 70 20 6F 66 20 ading at top of
000050: 73 68 65 65 74 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 sheet..>>>..>dm
000060: 22 20 22 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 " "..>
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 21 20 20 20 20 20 20 20 20 20 20 6C 20 20 20 ! l
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
0000B0: 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 75 6C 65 72 ..>wf on..&ruler
0000C0: 31 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D 0D 1&..>wfoff..>wm.
0000D0: 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 .>if prconame="y
0000E0: 22 0D 0A 3E 77 6D 20 EC 21 63 6F 6E 61 6D 65 21 "..>wm .!coname!
0000F0: EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 72 31 ...>wm .!coaddr1
000100: 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 72 !...>wm .!coaddr
000110: 32 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 64 2!...>wm .!coadd
000120: 72 33 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 64 r3!...>wm .!coad
000130: 64 72 34 21 EC 0D 0A 3E 77 6D 20 EC 21 63 6F 61 dr4!...>wm .!coa
000140: 64 64 72 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 3E 3E ddr5!...>ei..>>>
000150: 20 67 6F 20 74 6F 20 6C 69 6E 65 20 26 61 6C 69 go to line &ali
000160: 6E 65 26 0D 0A 3E 73 76 20 6E 3D 61 6C 69 6E 65 ne&..>sv n=aline
000170: 2D 63 61 6C 69 6E 65 2D 36 0D 0A 3E 72 70 0D 0A -caline-6..>rp..
000180: 3E 77 6D 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A >wm..>sv n=n-1..
000190: 3E 75 6E 20 6E 3C 3D 30 0D 0A 3E 77 6D 20 21 61 >un n<=0..>wm !a
0001A0: 30 21 0D 0A 3E 77 6D 20 21 61 31 21 0D 0A 3E 77 0!..>wm !a1!..>w
0001B0: 6D 20 21 61 32 21 0D 0A 3E 77 6D 20 21 61 33 21 m !a2!..>wm !a3!
0001C0: 09 EC 26 54 49 54 4C 45 26 EC 0D 0A 3E 77 6D 20 ..&TITLE&...>wm
0001D0: 21 61 34 21 09 0D 0A 3E 77 6D 20 21 61 35 21 09 !a4!...>wm !a5!.
0001E0: 4E 75 6D 62 65 72 20 20 20 20 20 26 6E 75 6D 62 Number &numb
0001F0: 65 72 26 0D 0A 3E 77 6D 20 21 61 36 21 09 44 61 er&..>wm !a6!.Da
Size : 512 (Real : 512)
000000: 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 .>if x<>""..>sv
000010: 63 75 73 74 64 69 73 63 3D 78 0D 0A 3E 65 69 0D custdisc=x..>ei.
000020: 0A 3E 75 6E 20 63 75 73 74 64 69 73 63 20 69 6E .>un custdisc in
000030: 20 22 30 61 62 63 64 65 22 0D 0A 3E 65 69 0D 0A "0abcde"..>ei..
000040: 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A >>>..>sv car=0..
000050: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
000060: 3E 72 70 0D 0A 3E 61 76 20 22 43 61 72 72 69 61 >rp..>av "Carria
000070: 67 65 20 63 68 61 72 67 65 3A 20 22 2C 78 0D 0A ge charge: ",x..
000080: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
000090: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 61 72 3D 0..>ei..>sv car=
0000A0: 78 2B 30 0D 0A 3E 75 6E 20 78 3D 63 61 72 0D 0A x+0..>un x=car..
0000B0: 3E 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 >ei..>sv footnot
0000C0: 65 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D e=""..>if askfn=
0000D0: 22 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E 6F "y"..>av "Footno
0000E0: 74 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D 0A te: ",footnote..
0000F0: 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >ei..>if vatreg=
000100: 22 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 6E "n"..>sv vat?="n
000110: 22 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 "..>el..>rp..>av
000120: 20 22 49 73 20 56 41 54 20 63 68 61 72 67 65 61 "Is VAT chargea
000130: 62 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 74 ble (Y/n)? " vat
000140: 3F 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 22 ? 1..>if vat?=""
000150: 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D 0A ..>sv vat?="y"..
000160: 3E 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 6E >ei..>un vat? in
000170: 20 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D "yn"..>ei..>>>.
000180: 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 64 .>>> ask for ord
000190: 65 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 6B er levels from k
0001A0: 65 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E 69 eyboard..>>>..>i
0001B0: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
0001C0: 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E 74 dm " "..>dm "Ent
0001D0: 65 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 6F er quantities fo
0001E0: 72 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 r the following
0001F0: 70 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 products"..>dm "
Size : 512 (Real : 512)
000000: 74 65 20 20 20 20 20 20 20 26 64 61 74 65 26 0D te &date&.
000010: 0A 3E 77 6D 20 21 61 37 21 09 4F 72 64 65 72 20 .>wm !a7!.Order
000020: 52 65 66 20 20 26 72 65 66 26 0D 0A 3E 3E 3E 20 Ref &ref&..>>>
000030: 67 6F 74 6F 20 6C 69 6E 65 20 26 74 6C 69 6E 65 goto line &tline
000040: 26 0D 0A 3E 73 76 20 6E 3D 74 6C 69 6E 65 2D 61 &..>sv n=tline-a
000050: 6C 69 6E 65 2D 38 0D 0A 3E 72 70 0D 0A 3E 77 6D line-8..>rp..>wm
000060: 20 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 ..>sv n=n-1..>u
000070: 6E 20 6E 3C 3D 30 0D 0A 3E 20 20 20 20 20 20 20 n n<=0..>
000080: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
000090: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
0000A0: 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 !
0000B0: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
0000C0: 20 52 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 75 6C 65 R..>wfon..&rule
0000D0: 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D r2&..>wfoff..>wm
0000E0: 20 43 4F 44 45 09 44 45 53 43 52 49 50 54 49 4F CODE.DESCRIPTIO
0000F0: 4E 09 51 55 41 4E 54 49 54 59 09 55 4E 49 54 20 N.QUANTITY.UNIT
000100: 50 52 49 43 45 09 54 4F 54 41 4C 0D 0A 3E 20 20 PRICE.TOTAL..>
000110: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000140: 20 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000150: 2E 20 20 20 20 20 52 0D 0A 3E 77 66 6F 6E 0D 0A . R..>wfon..
000160: 26 72 75 6C 65 72 33 26 0D 0A 3E 77 66 6F 66 66 &ruler3&..>wfoff
000170: 0D 0A 3E 77 6D 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 ..>wm..>>>..>>>
000180: 70 72 69 6E 74 20 6F 75 74 20 6F 72 64 65 72 20 print out order
000190: 6C 69 6E 65 73 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 lines..>>>..>if
0001A0: 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 64 6D useprod="y"..>dm
0001B0: 20 22 43 61 6C 63 75 6C 61 74 69 6E 67 20 74 6F "Calculating to
0001C0: 74 61 6C 73 2E 2E 2E 22 0D 0A 3E 64 6D 20 22 20 tals..."..>dm "
0001D0: 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 45 6E 74 "..>el..>dm "Ent
0001E0: 65 72 20 64 65 74 61 69 6C 73 20 6F 66 20 65 61 er details of ea
0001F0: 63 68 20 69 74 65 6D 20 28 52 45 54 55 52 4E 20 ch item (RETURN
Size : 512 (Real : 512)
000000: 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 Typing anything
000010: 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D other than a num
000020: 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C ber will skip al
000030: 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 l remaining prod
000040: 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A ucts"..>dm " "..
000050: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000060: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000070: 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 .>sv quant&n&="0
000080: 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E "..>un n=maxn..>
000090: 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 >>..>sv n=0..>rp
0000A0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0000B0: 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D w1]..>sv prompt=
0000C0: 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F desc&n&..>if pro
0000D0: 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 mpt[25]=""..>sv
0000E0: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 prompt=prompt+"
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
000110: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 prompt=prompt[1
000120: 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 :25]..>ei..>av "
000130: 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D 0A &prompt& : " x..
000140: 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 3D >if x=""..>sv x=
000150: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 0..>ei..>sv quan
000160: 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C t&n&=x+0..>if x<
000170: 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 71 >quant&n&..>sv q
000180: 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 76 uant&n&="0"..>sv
000190: 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D 0D n=maxn n=n[w1].
0001A0: 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E .>ei..>if n=maxn
0001B0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0001C0: 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 28 Re-enter order (
0001D0: 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 0D y/N)? " yesno 1.
0001E0: 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D 0A .>if yesno="y"..
0001F0: 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 22 >sv n=0..>dm " "
Size : 512 (Real : 512)
000000: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
000010: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
000020: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 76 26 =n[w1]..>sv s=v&
000030: 6E 26 0D 0A 3E 77 6D 20 26 73 26 0D 0A 3E 75 6E n&..>wm &s&..>un
000040: 20 6E 3E 3D 76 6C 65 6E 0D 0A 3E 65 69 20 3B 20 n>=vlen..>ei ;
000050: 66 2F 76 0D 0A 3E 63 73 20 22 22 0D 0A 3E 73 6B f/v..>cs ""..>sk
000060: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 64 0=0..>ei ; id d
000070: 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D 0A f..>>>..>iu df..
000080: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
000090: 74 69 6F 6E 20 41 20 2D 20 41 64 64 20 72 65 63 tion A - Add rec
0000A0: 6F 72 64 73 20 66 72 6F 6D 20 6B 65 79 62 6F 61 ords from keyboa
0000B0: 72 64 20 74 6F 20 75 70 64 61 74 65 20 66 69 6C rd to update fil
0000C0: 65 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 e..>dm " "..>in
0000D0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 73 79 73 fm$pfi$..>sv sys
0000E0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
0000F0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000100: 76 20 63 70 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A v cpm="1"..>ei..
000110: 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 >sv fv=fv[1] rle
000120: 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 n=rlen[w1]..>if
000130: 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 fv="f"..>sv flis
000140: 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 t=">ru"..>el..>s
000150: 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E v flist=">rv"..>
000160: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
000170: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000180: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
000190: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0001A0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0001B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0001C0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0001D0: 0A 3E 73 76 20 70 26 6E 26 3D 6E 26 6E 26 0D 0A .>sv p&n&=n&n&..
0001E0: 3E 69 66 20 70 26 6E 26 5B 26 6D 61 78 77 26 5D >if p&n&[&maxw&]
0001F0: 3D 22 22 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 =""..>sv p&n&=p&
Size : 512 (Real : 512)
000000: 6E 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E n&:]="f*"..>sv n
000010: 3D 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n-1 n=n[w1]..>s
000020: 76 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 v c3=c3[1:&n&]+"
000030: 66 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 f0"..>sv n=0..>e
000040: 69 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 i..>un n=0..>sv
000050: 66 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A ff=">sv f0=f1"..
000060: 3E 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A >ei ; f* in c3..
000070: 3E 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D >>>..>if ff<>"".
000080: 0A 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E .>sv n=1..>rp..>
000090: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0000A0: 0D 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 ..>sv ff=ff+"+f&
0000B0: 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E n&"..>un n>=rlen
0000C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 ..>ei..>>>..>dm
0000D0: 22 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 " "..>dm "Search
0000E0: 69 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E ing ..."..>sv nn
0000F0: 3D 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A =0..>df fm.mus..
000100: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
000110: 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 64 66 20 26 f mus="m"..>df &
000120: 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 df& fo$end$..>ei
000130: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
000140: 64 66 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 df &newfile& fo$
000150: 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D end$..>ei..>if m
000160: 75 73 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C us="s"..>df &sel
000170: 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E file& fo$end$..>
000180: 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C 65 ei..>wf &selfile
000190: 26 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D 0A &..>ei ; iu df..
0001A0: 1A 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E .ff&..>sv x=0..>
0001B0: 69 66 20 26 63 31 26 0D 0A 3E 69 66 20 26 63 32 if &c1&..>if &c2
0001C0: 26 0D 0A 3E 69 66 20 26 63 33 26 0D 0A 3E 73 76 &..>if &c3&..>sv
0001D0: 20 78 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A x=1..>ei..>ei..
0001E0: 3E 65 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A >ei..>sk x=0..>z
0001F0: 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E m..>npoff..>sv n
Size : 512 (Real : 512)
000000: 6E 26 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 n&+"
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 65 "..>e
000030: 69 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 6E 26 i..>sv p&n&=p&n&
000040: 5B 31 3A 26 6D 61 78 77 26 5D 2B 22 3A 20 22 0D [1:&maxw&]+": ".
000050: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
000060: 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 77 66 20 26 ..>iu cpm..>wf &
000070: 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 77 63 0D newfile& a..>wc.
000080: 0A 3E 65 69 0D 0A 3E 64 66 20 26 6E 65 77 66 69 .>ei..>df &newfi
000090: 6C 65 26 0D 0A 3E 72 76 20 73 0D 0A 3E 69 66 20 le&..>rv s..>if
0000A0: 73 3D 22 65 6E 64 22 0D 0A 3E 77 66 20 26 6E 65 s="end"..>wf &ne
0000B0: 77 66 69 6C 65 26 0D 0A 3E 65 6C 0D 0A 3E 77 66 wfile&..>el..>wf
0000C0: 20 26 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 65 &newfile& a..>e
0000D0: 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6D 61 78 3D i..>>>..>sv max=
0000E0: 72 6C 65 6E 0D 0A 3E 69 66 20 6C 61 73 74 62 6C rlen..>if lastbl
0000F0: 61 6E 6B 3D 22 79 22 0D 0A 3E 73 76 20 6D 61 78 ank="y"..>sv max
000100: 3D 72 6C 65 6E 2D 31 20 6D 61 78 3D 6D 61 78 5B =rlen-1 max=max[
000110: 77 31 5D 20 76 26 6D 61 78 26 3D 22 22 0D 0A 3E w1] v&max&=""..>
000120: 65 69 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D ei..>ei ; iu df.
000130: 0A 3E 3E 3E 0D 0A 1A 61 6D 65 73 3A 20 22 0D 0A .>>>...ames: "..
000140: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000150: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000160: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
000170: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
000180: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
000190: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0001A0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0001B0: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0001C0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0001D0: 0A 3E 73 76 20 70 26 6E 26 3D 6E 26 6E 26 0D 0A .>sv p&n&=n&n&..
0001E0: 3E 69 66 20 70 26 6E 26 5B 26 6D 61 78 77 26 5D >if p&n&[&maxw&]
0001F0: 3D 22 22 0D 0A 3E 73 76 20 70 26 6E 26 3D 70 26 =""..>sv p&n&=p&
Size : 512 (Real : 512)
000000: 20 66 76 3D 22 66 22 0D 0A 3E 64 6D 20 22 46 69 fv="f"..>dm "Fi
000010: 78 65 64 20 72 65 63 6F 72 64 20 73 69 7A 65 2C xed record size,
000020: 20 63 6F 6E 73 69 73 74 69 6E 67 20 6F 66 20 26 consisting of &
000030: 72 6C 65 6E 26 20 66 69 65 6C 64 73 22 0D 0A 3E rlen& fields"..>
000040: 65 6C 0D 0A 3E 64 6D 20 22 56 61 72 69 61 62 6C el..>dm "Variabl
000050: 65 20 72 65 63 6F 72 64 20 73 69 7A 65 2C 20 63 e record size, c
000060: 6F 6E 73 69 73 74 69 6E 67 20 6F 66 20 75 70 20 onsisting of up
000070: 74 6F 20 26 72 6C 65 6E 26 20 66 69 65 6C 64 73 to &rlen& fields
000080: 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D "..>ei..>dm " ".
000090: 0A 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 .>dm "Field name
0000A0: 73 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E s: "..>sv n=0..>
0000B0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
0000C0: 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E n[w1]..>sv s=n&n
0000D0: 26 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 &..>dm f&n&: &s&
0000E0: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0000F0: 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 70 74 3D dm " "..>sv opt=
000100: 22 77 74 22 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D "wt"..>ei ; opt=
000110: 22 6C 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E "l"..>>>>>>>>>>>
000120: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
000130: 4E 20 5A 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N Z >>>..>>>>>>>
000140: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
000150: 70 74 3D 22 7A 22 0D 0A 3E 72 70 0D 0A 3E 61 76 pt="z"..>rp..>av
000160: 20 22 55 73 65 20 6F 70 74 69 6F 6E 73 20 28 26 "Use options (&
000170: 66 73 6F 72 74 6F 70 74 73 26 29 20 5B 59 2F 6E fsortopts&) [Y/n
000180: 5D 3F 20 22 20 79 6E 0D 0A 3E 75 6E 20 79 6E 20 ]? " yn..>un yn
000190: 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 79 6E 3D in "yn"..>if yn=
0001A0: 22 22 0D 0A 3E 73 76 20 79 6E 3D 22 79 22 0D 0A ""..>sv yn="y"..
0001B0: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 >ei..>dm " "..>s
0001C0: 76 20 6F 70 74 73 3D 66 73 6F 72 74 6F 70 74 73 v opts=fsortopts
0001D0: 0D 0A 3E 69 66 20 79 6E 3D 22 6E 22 0D 0A 3E 61 ..>if yn="n"..>a
0001E0: 76 20 22 45 6E 74 65 72 20 66 73 6F 72 74 20 6F v "Enter fsort o
0001F0: 70 74 69 6F 6E 73 3A 20 22 20 6F 70 74 73 0D 0A ptions: " opts..
Size : 512 (Real : 512)
000000: 74 6F 20 65 6E 64 29 3A 20 22 0D 0A 3E 64 6D 20 to end): "..>dm
000010: 22 20 22 0D 0A 3E 73 76 20 6D 61 78 6E 3D 31 30 " "..>sv maxn=10
000020: 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 22 30 0..>ei..>sv n="0
000030: 22 20 71 75 61 6E 74 30 3D 31 20 64 69 73 63 6F " quant0=1 disco
000040: 75 6E 74 3D 31 0D 0A 3E 73 76 20 62 6C 61 6E 6B unt=1..>sv blank
000050: 6C 69 6E 65 73 3D 69 6E 66 6F 6C 69 6E 65 73 20 lines=infolines
000060: 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 74 6F coden=""..>sv to
000070: 74 3D 30 2E 30 30 0D 0A 3E 69 66 20 76 61 74 3F t=0.00..>if vat?
000080: 3D 22 79 22 0D 0A 3E 73 76 20 64 75 65 3D 63 61 ="y"..>sv due=ca
000090: 72 2A 76 61 74 63 66 31 0D 0A 3E 65 6C 0D 0A 3E r*vatcf1..>el..>
0000A0: 73 76 20 64 75 65 3D 63 61 72 0D 0A 3E 65 69 0D sv due=car..>ei.
0000B0: 0A 3E 73 76 20 76 61 74 3D 64 75 65 2D 63 61 72 .>sv vat=due-car
0000C0: 0D 0A 3E 72 70 0D 0A 3E 69 66 20 75 73 65 70 72 ..>rp..>if usepr
0000D0: 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 6E 3D 6E 2B od="y"..>sv n=n+
0000E0: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 71 1 n=n[w1]..>if q
0000F0: 75 61 6E 74 26 6E 26 20 3D 20 30 0D 0A 3E 73 76 uant&n& = 0..>sv
000100: 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 6C 0D 0A coden=""..>el..
000110: 3E 73 76 20 64 65 73 63 6E 3D 64 65 73 63 26 6E >sv descn=desc&n
000120: 26 5B 31 3A 26 64 65 73 63 77 69 64 74 68 26 5D &[1:&descwidth&]
000130: 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 63 6F 64 65 ..>sv coden=code
000140: 26 6E 26 0D 0A 3E 69 66 20 63 6F 64 65 6E 3D 22 &n&..>if coden="
000150: 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 20 22 "..>sv coden=" "
000160: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 6E 74 ..>ei..>sv quant
000170: 6E 3D 71 75 61 6E 74 26 6E 26 5B 77 31 5D 0D 0A n=quant&n&[w1]..
000180: 3E 73 76 20 70 72 69 63 65 6E 3D 70 72 69 63 65 >sv pricen=price
000190: 26 6E 26 0D 0A 3E 73 76 20 76 72 3D 70 72 6F 64 &n&..>sv vr=prod
0001A0: 76 61 74 26 6E 26 0D 0A 3E 69 66 20 63 75 73 74 vat&n&..>if cust
0001B0: 64 69 73 63 3D 30 0D 0A 3E 73 76 20 64 69 73 63 disc=0..>sv disc
0001C0: 6F 75 6E 74 3D 31 0D 0A 3E 65 6C 0D 0A 3E 73 76 ount=1..>el..>sv
0001D0: 20 70 72 6F 64 64 69 73 63 6E 3D 70 72 6F 64 64 proddiscn=prodd
0001E0: 69 73 63 26 6E 26 0D 0A 3E 73 76 20 64 69 73 63 isc&n&..>sv disc
0001F0: 6F 75 6E 74 3D 64 69 73 63 26 63 75 73 74 64 69 ount=disc&custdi
Size : 512 (Real : 512)
000000: 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 74 off..>el..>if t
000010: 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A 3E 3E 3E itle[1]="i"..>>>
000020: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 wf on..>wm Terms
000030: 3A 20 53 74 72 69 63 74 6C 79 20 33 30 20 44 61 : Strictly 30 Da
000040: 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 66 20 6F 66 ys Net..>>>wf of
000050: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 74 69 74 6C f..>ei..>if titl
000060: 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E 3E 77 66 20 e[1]="c"..>>>wf
000070: 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 54 on..>wm Terms: T
000080: 68 69 73 20 61 6D 6F 75 6E 74 20 68 61 73 20 62 his amount has b
000090: 65 65 6E 20 63 72 65 64 69 74 65 64 20 74 6F 20 een credited to
0000A0: 79 6F 75 72 20 61 63 63 6F 75 6E 74 0D 0A 3E 3E your account..>>
0000B0: 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 65 >wf off..>ei..>e
0000C0: 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D i..>>>wf on..>wm
0000D0: 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A 3E 69 66 20 E. & O.E...>if
0000E0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 3E 69 prconame="y"..>i
0000F0: 66 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 77 6D 20 f vat?="y"..>wm
000100: 56 41 54 20 72 65 67 2E 20 6E 6F 2E 20 26 76 61 VAT reg. no. &va
000110: 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A 3E 65 69 0D tnum&..>ei..>ei.
000120: 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 0D .>>>wf off..>wc.
000130: 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 2B .>sv fn=invpath+
000140: 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 2B title[1]+number+
000150: 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 69 ".poi"..>av "Pri
000160: 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 72 nt invoice to pr
000170: 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 inter or screen
000180: 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (P/s)? " x 1..>i
000190: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 d cpm..>ex ren &
0001A0: 66 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 fn&=&invpath&omt
0001B0: 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 65 72 emp..>el..>ex er
0001C0: 61 20 26 66 6E 26 0D 0A 3E 73 76 20 72 65 6E 66 a &fn&..>sv renf
0001D0: 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 n=title[1]+numbe
0001E0: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 65 r+".poi"..>ex re
0001F0: 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D n &invpath&omtem
Size : 512 (Real : 512)
000000: 73 63 26 5B 77 26 70 72 6F 64 64 69 73 63 6E 26 sc&[w&proddiscn&
000010: 5D 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D ]..>sv discount=
000020: 64 69 73 63 6F 75 6E 74 2F 31 30 30 20 64 69 73 discount/100 dis
000030: 63 6F 75 6E 74 3D 31 2D 64 69 73 63 6F 75 6E 74 count=1-discount
000040: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 75 70 72 69 63 ..>ei..>sv upric
000050: 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 e=discount*price
000060: 6E 0D 0A 3E 73 76 20 70 72 69 63 65 3D 64 69 73 n..>sv price=dis
000070: 63 6F 75 6E 74 2A 71 75 61 6E 74 6E 2A 70 72 69 count*quantn*pri
000080: 63 65 6E 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 3B cen..>ei..>el ;
000090: 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C 65 no product file
0000A0: 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 63 ..>av "Product c
0000B0: 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E 69 ode: " coden..>i
0000C0: 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 f coden=""..>sv
0000D0: 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 66 n=maxn..>ei..>if
0000E0: 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 coden<>""..>av
0000F0: 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 22 "Description : "
000100: 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 61 descn..>av "Qua
000110: 6E 74 69 74 79 20 20 20 20 3A 20 22 20 78 0D 0A ntity : " x..
000120: 3E 73 76 20 71 75 61 6E 74 6E 3D 78 2B 30 20 71 >sv quantn=x+0 q
000130: 75 61 6E 74 6E 3D 71 75 61 6E 74 6E 5B 77 31 5D uantn=quantn[w1]
000140: 0D 0A 3E 69 66 20 78 3C 3E 71 75 61 6E 74 6E 0D ..>if x<>quantn.
000150: 0A 3E 64 6D 20 22 42 61 64 20 71 75 61 6E 74 69 .>dm "Bad quanti
000160: 74 79 2E 20 50 6C 65 61 73 65 20 72 65 2D 65 6E ty. Please re-en
000170: 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D ter"..>sv coden=
000180: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 ""..>ei..>ei..>i
000190: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 f coden<>""..>av
0001A0: 20 22 55 6E 69 74 20 70 72 69 63 65 20 20 20 A3 "Unit price .
0001B0: 22 20 78 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D " x..>sv uprice=
0001C0: 78 2B 30 0D 0A 3E 69 66 20 78 3C 3E 75 70 72 69 x+0..>if x<>upri
0001D0: 63 65 0D 0A 3E 64 6D 20 22 4D 65 61 6E 69 6E 67 ce..>dm "Meaning
0001E0: 6C 65 73 73 20 70 72 69 63 65 2E 20 50 6C 65 61 less price. Plea
0001F0: 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 se re-enter"..>s
Size : 512 (Real : 512)
000000: 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D 0A p &renfn&..>ei..
000010: 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 6E >wf "omsummar.in
000020: 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D f" a..>-------!-
000030: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000040: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000050: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000060: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E 69 ------!----R..>i
000070: 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A f title[1]="i"..
000080: 3E 73 76 20 73 3D 22 49 20 26 6E 75 6D 62 65 72 >sv s="I &number
000090: 26 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 &.&date&..&due&.
0000A0: 22 2B 61 30 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 "+a0..>el..>sv d
0000B0: 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D ue=0-due..>sv s=
0000C0: 22 43 20 26 6E 75 6D 62 65 72 26 09 26 64 61 74 "C &number&.&dat
0000D0: 65 26 09 A3 26 64 75 65 26 09 22 2B 61 30 0D 0A e&..&due&."+a0..
0000E0: 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 >ei..>id cpm..>s
0000F0: 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 v s=s+"
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D "..>sv s=
000140: 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 s+"
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A "..>sv s=s[1:
000190: 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 26 126]..>ei..>wm &
0001A0: 73 26 0D 0A 3E 77 63 0D 0A 3E 77 66 20 6F 6D 2E s&..>wc..>wf om.
0001B0: 78 0D 0A 3E 69 66 20 78 3D 22 73 22 0D 0A 3E 77 x..>if x="s"..>w
0001C0: 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 7C 3B 20 m "ps &fn&|13|;
0001D0: 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 Press a key to c
0001E0: 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 73 ontinue:|13|paus
0001F0: 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C e|13|load omenu|
Size : 512 (Real : 512)
000000: 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D v coden=""..>ei.
000010: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
000020: 3E 22 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >""..>if vatreg=
000030: 22 79 22 0D 0A 3E 61 76 20 22 56 41 54 20 63 6F "y"..>av "VAT co
000040: 64 65 20 28 30 3D 6E 6F 20 56 41 54 29 20 5B 31 de (0=no VAT) [1
000050: 5D 3A 20 22 20 76 72 20 31 0D 0A 3E 69 66 20 76 ]: " vr 1..>if v
000060: 72 20 6E 6F 74 69 6E 20 22 30 31 32 33 34 35 22 r notin "012345"
000070: 0D 0A 3E 73 76 20 76 72 3D 22 31 22 0D 0A 3E 65 ..>sv vr="1"..>e
000080: 69 0D 0A 3E 69 66 20 76 72 3D 22 22 0D 0A 3E 73 i..>if vr=""..>s
000090: 76 20 76 72 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E v vr="1"..>ei..>
0000A0: 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 ei..>dm " "..>sv
0000B0: 20 70 72 69 63 65 6E 3D 75 70 72 69 63 65 20 70 pricen=uprice p
0000C0: 72 69 63 65 3D 70 72 69 63 65 6E 2A 71 75 61 6E rice=pricen*quan
0000D0: 74 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 tn..>ei..>ei..>i
0000E0: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 f coden<>""..>if
0000F0: 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 73 76 20 76 vat?="y"..>sv v
000100: 61 74 63 66 6E 3D 76 61 74 63 66 26 76 72 26 0D atcfn=vatcf&vr&.
000110: 0A 3E 69 66 20 65 78 6F 72 69 6E 63 76 61 74 20 .>if exorincvat
000120: 3D 20 22 69 22 0D 0A 3E 73 76 20 75 70 72 69 63 = "i"..>sv upric
000130: 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 e=discount*price
000140: 6E 2F 76 61 74 63 66 6E 0D 0A 3E 73 76 20 70 72 n/vatcfn..>sv pr
000150: 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A 71 75 61 ice=discount*qua
000160: 6E 74 6E 2A 70 72 69 63 65 6E 2F 76 61 74 63 66 ntn*pricen/vatcf
000170: 6E 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 3D n..>sv incprice=
000180: 64 69 73 63 6F 75 6E 74 2A 70 72 69 63 65 6E 2A discount*pricen*
000190: 71 75 61 6E 74 6E 0D 0A 3E 73 76 20 76 61 74 3D quantn..>sv vat=
0001A0: 76 61 74 2B 69 6E 63 70 72 69 63 65 2D 70 72 69 vat+incprice-pri
0001B0: 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 78 3D 70 ce..>el..>sv x=p
0001C0: 72 69 63 65 2A 2E 31 35 20 69 6E 63 70 72 69 63 rice*.15 incpric
0001D0: 65 3D 70 72 69 63 65 2B 78 20 76 61 74 3D 76 61 e=price+x vat=va
0001E0: 74 2B 78 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E t+x..>ei..>el..>
0001F0: 73 76 20 69 6E 63 70 72 69 63 65 3D 70 72 69 63 sv incprice=pric
Size : 512 (Real : 512)
000000: 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D 0A 3E 77 6D 13|ps"..>el..>wm
000010: 20 22 70 20 26 66 6E 26 7C 31 33 7C 6C 6F 61 64 "p &fn&|13|load
000020: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
000030: 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 ei..>wc..>cf..>e
000040: 78 20 65 78 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 x exec om.x..>st
000050: 20 22 20 22 0D 0A 1A 0D 0A 3E 73 76 20 73 79 73 " ".....>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 0D 0A 20 5E 48 20 73 63 72 6F .. ^H scro
0000C0: 6C 6C 73 20 66 6F 72 77 61 72 64 2E 20 20 20 73 lls forward. s
0000D0: 5E 48 20 73 63 72 6F 6C 6C 73 20 62 61 63 6B 2E ^H scrolls back.
0000E0: 20 20 5E 56 48 20 74 75 72 6E 73 20 68 65 6C 70 ^VH turns help
0000F0: 20 6F 66 66 2E 20 20 53 54 4F 50 20 65 6E 74 65 off. STOP ente
000100: 72 73 20 63 6F 6D 6D 61 6E 64 20 6D 6F 64 65 2E rs command mode.
000110: 20 20 0D 0A 20 4B 65 79 3A 20 5E 20 69 73 20 41 .. Key: ^ is A
000120: 4C 54 2C 20 73 20 69 73 20 53 48 49 46 54 2C 20 LT, s is SHIFT,
000130: 6E 20 69 73 20 61 20 64 69 67 69 74 20 28 30 2D n is a digit (0-
000140: 39 29 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 9).
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
000170: 0D 0A 20 43 55 52 53 4F 52 20 4D 4F 56 45 4D 45 .. CURSOR MOVEME
000180: 4E 54 20 20 20 95 20 6C 65 66 74 20 20 20 73 95 NT . left s.
000190: 20 77 6F 72 64 20 6C 65 66 74 20 20 20 5E 95 20 word left ^.
0001A0: 6C 69 6E 65 20 6C 65 66 74 20 20 20 20 20 20 5E line left ^
0001B0: 28 20 70 61 67 65 20 75 70 20 20 20 20 5E 44 4F ( page up ^DO
0001C0: 43 20 73 74 72 74 20 74 65 78 74 20 0D 0A 20 20 C strt text ..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 96 20 72 69 67 68 74 20 20 73 96 20 77 6F 72 . right s. wor
0001F0: 64 20 72 69 67 68 74 20 20 5E 96 20 6C 69 6E 65 d right ^. line
Size : 512 (Real : 512)
000000: 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 61 6E e..>ei..>if quan
000010: 74 26 6E 26 3E 30 0D 0A 3E 73 76 20 74 6F 74 3D t&n&>0..>sv tot=
000020: 74 6F 74 2B 70 72 69 63 65 20 20 64 75 65 3D 64 tot+price due=d
000030: 75 65 2B 69 6E 63 70 72 69 63 65 0D 0A 3E 3E 3E ue+incprice..>>>
000040: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 63 6F 64 65 wf on..>wm &code
000050: 6E 26 09 26 64 65 73 63 6E 26 09 26 71 75 61 6E n&.&descn&.&quan
000060: 74 6E 26 09 26 75 70 72 69 63 65 26 09 26 70 72 tn&.&uprice&.&pr
000070: 69 63 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D ice&..>>>wf off.
000080: 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>sv blanklines=
000090: 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 0D 0A 3E 65 blanklines-1..>e
0000A0: 69 0D 0A 3E 65 69 20 3B 20 63 6F 64 65 6E 3C 3E i..>ei ; coden<>
0000B0: 22 22 0D 0A 3E 69 66 20 6E 3D 6D 61 78 6E 0D 0A ""..>if n=maxn..
0000C0: 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D >if useprod="y".
0000D0: 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 22 6E 22 .>sv useprod="n"
0000E0: 20 6E 3D 22 30 22 20 64 69 73 63 6F 75 6E 74 3D n="0" discount=
0000F0: 31 0D 0A 3E 64 6D 20 22 45 6E 74 65 72 20 64 65 1..>dm "Enter de
000100: 74 61 69 6C 73 20 6F 66 20 61 6E 79 20 6F 74 68 tails of any oth
000110: 65 72 20 69 74 65 6D 73 20 28 52 45 54 55 52 4E er items (RETURN
000120: 20 74 6F 20 65 6E 64 29 3A 20 22 0D 0A 3E 64 6D to end): "..>dm
000130: 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A " "..>ei..>ei..
000140: 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 3E 3E 0D >un n=maxn..>>>.
000150: 0A 3E 3E 3E 20 64 6F 20 73 75 66 66 69 63 69 65 .>>> do sufficie
000160: 6E 74 20 62 6C 61 6E 6B 20 6C 69 6E 65 73 20 66 nt blank lines f
000170: 6F 72 20 6D 69 73 73 69 6E 67 20 69 74 65 6D 73 or missing items
000180: 0D 0A 3E 69 66 20 62 6C 61 6E 6B 6C 69 6E 65 73 ..>if blanklines
000190: 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E 3E 77 66 20 6F >0..>rp..>>>wf o
0001A0: 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E 3E 77 66 20 6F n..>wm ..>>>wf o
0001B0: 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E ff..>sv blanklin
0001C0: 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 0D es=blanklines-1.
0001D0: 0A 3E 75 6E 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>un blanklines=
0001E0: 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 20 20 0..>ei..>>>..>
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
000030: 69 66 20 26 63 33 26 0D 0A 3E 69 66 20 26 63 31 if &c3&..>if &c1
000040: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 6C 0D &..>sv x=1..>el.
000050: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
000060: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
000070: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
000080: 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 .>npoff..>sv n=0
000090: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
0000A0: 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E ixed..>rp..>sv n
0000B0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
0000C0: 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 v s=f&n&..>wm !s
0000D0: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
0000E0: 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E el ; var..>rp..>
0000F0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
000100: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 ..>sv s=f&n&..>i
000110: 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B f s=""..>sv s=n+
000120: 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 1 m=n+2 s=s[w1]
000130: 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 m=m[w1]..>sv s=f
000140: 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D &s&+f&m&..>if s=
000150: 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A ""..>sv n=rlen..
000160: 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A >el..>sv s="$"..
000170: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 >ei..>ei..>wm !s
000180: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
000190: 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E ei ; f/v..>sv nn
0001A0: 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D =nn+1..>el ; f1=
0001B0: 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 end..>sv nn=nn[w
0001C0: 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 1]..>dm " "..>wt
0001D0: 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 "&nn& records f
0001E0: 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 ound. Press a ke
0001F0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
000020: 20 20 20 20 20 20 20 20 20 4C 20 20 20 20 20 20 L
000030: 2E 20 20 52 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 . R..>wf on..&r
000040: 75 6C 65 72 34 26 0D 0A 3E 77 66 20 6F 66 66 0D uler4&..>wf off.
000050: 0A 3E 73 76 20 63 61 72 3D 63 61 72 2B 30 0D 0A .>sv car=car+0..
000060: 3E 73 76 20 65 78 76 3D 74 6F 74 2B 63 61 72 0D >sv exv=tot+car.
000070: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 69 66 20 61 .>>>wf on..>if a
000080: 73 6B 63 61 72 3D 22 79 22 0D 0A 3E 77 6D 20 09 skcar="y"..>wm .
000090: 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 26 GOODS TOTAL...&
0000A0: 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 43 61 72 72 tot&..>wm . Carr
0000B0: 69 61 67 65 09 A3 09 26 63 61 72 26 0D 0A 3E 65 iage...&car&..>e
0000C0: 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E l..>wm ..>wm ..>
0000D0: 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 ei..>if vatreg="
0000E0: 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 54 20 54 4F y"..>wm . NET TO
0000F0: 54 41 4C 09 A3 09 26 65 78 76 26 0D 0A 3E 77 6D TAL...&exv&..>wm
000100: 20 09 20 56 41 54 09 A3 09 26 76 61 74 26 0D 0A . VAT...&vat&..
000110: 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D >el..>wm ..>wm .
000120: 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 41 4D 4F 55 .>ei..>wm . AMOU
000130: 4E 54 20 44 55 45 09 A3 09 26 64 75 65 26 0D 0A NT DUE...&due&..
000140: 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 20 20 20 >wm ..>wm ..>
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 52 0D 0A 3E 77 66 20 6F 6E 0D 0A R..>wf on..
0001A0: 26 72 75 6C 65 72 35 26 0D 0A 3E 77 66 6F 66 66 &ruler5&..>wfoff
0001B0: 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D 20 6C 69 6E ..>co bottom lin
0001C0: 65 20 63 6F 6D 6D 65 6E 74 20 68 65 72 65 0D 0A e comment here..
0001D0: 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 3E 22 22 0D >if footnote>"".
0001E0: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 .>>>wf on..>wm &
0001F0: 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E 3E 3E 77 66 footnote&..>>>wf
Size : 512 (Real : 512)
000000: 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 ...>wc..>cf..>ex
000010: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
000020: 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 ei..>sk 0=0..>ei
000030: 20 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 ;id df..>>>..>i
000040: 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E u df..>cs " "..>
000050: 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 36 20 2D dm "Option S.6 -
000060: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 Select records
000070: 28 20 28 63 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 ( (cond1 OR cond
000080: 32 29 20 41 4E 44 20 63 6F 6E 64 33 29 0D 0A 3E 2) AND cond3)..>
000090: 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 dm " "..>in fm$p
0000A0: 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B 31 fi$..>sv fv=fv[1
0000B0: 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 0D ] rlen=rlen[w1].
0000C0: 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 76 .>if fv="f"..>sv
0000D0: 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 flist=">ru"..>e
0000E0: 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 l..>sv flist=">r
0000F0: 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 v"..>ei..>sv n=0
000100: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000110: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C n=n[w1]..>sv fl
000120: 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E 26 ist=flist+" f&n&
000130: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
000140: 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 20 >sv n=n+1 m=n+1
000150: 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D 0D n=n[w1] m=m[w1].
000160: 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 6D .>sv f&n&="" f&m
000170: 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 &=""..>>>..>dm "
000180: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
000190: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
0001A0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0001B0: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
0001C0: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
0001D0: 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n=rlen..>>>..>dm
0001E0: 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 " "..>dm "When
0001F0: 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 69 entering conditi
Size : 512 (Real : 512)
000000: 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 6E 26 [w1]..>if c3[&n&
000010: 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E :]="f*"..>sv n=n
000020: 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 -1 n=n[w1]..>sv
000030: 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 66 30 c3=c3[1:&n&]+"f0
000040: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D "..>sv n=0..>ei.
000050: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 .>un n=0..>sv ff
000060: 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 =">sv f0=f1"..>e
000070: 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A 3E 3E i ; f* in c3..>>
000080: 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A 3E >..>if ff<>""..>
000090: 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=1..>rp..>sv
0000A0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0000B0: 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E 26 >sv ff=ff+"+f&n&
0000C0: 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A "..>un n>=rlen..
0000D0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 >ei..>>>..>dm "
0000E0: 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 6E "..>dm "Searchin
0000F0: 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D 30 g ..."..>sv nn=0
000100: 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 ..>df fm.mus..>r
000110: 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 20 v mus..>cf..>if
000120: 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D 64 mus="m"..>sv f=d
000130: 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D f..>ei..>if mus=
000140: 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 "u"..>sv f=newfi
000150: 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 le..>ei..>if mus
000160: 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C 66 ="s"..>sv f=self
000170: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 66 ile..>ei..>df &f
000180: 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 66 20 26 & fo$end$..>wf &
000190: 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 20 3B 69 selfile&..>ei ;i
0001A0: 75 20 64 66 0D 0A 1A 73 76 20 78 3D 30 0D 0A 3E u df...sv x=0..>
0001B0: 69 66 20 26 63 33 26 0D 0A 3E 69 66 20 26 63 31 if &c3&..>if &c1
0001C0: 26 0D 0A 3E 73 76 20 78 3D 31 0D 0A 3E 65 6C 0D &..>sv x=1..>el.
0001D0: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
0001E0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
0001F0: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
Size : 512 (Real : 512)
000000: 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D 0A 3E 63 nt name: ",n..>c
000010: 66 0D 0A 3E 64 66 26 64 61 74 61 66 26 20 66 6F f..>df&dataf& fo
000020: 24 65 6E 64 24 0D 0A 3E 72 70 0D 0A 3E 69 66 20 $end$..>rp..>if
000030: 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 72 76 20 phone?="y"..>rv
000040: 61 30 2C 78 2C 61 31 2C 61 32 2C 61 33 2C 61 34 a0,x,a1,a2,a3,a4
000050: 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 0A 3E 65 6C ,a5,a6,a7,x..>el
000060: 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 32 2C 61 ..>rv a0,a1,a2,a
000070: 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 3,a4,a5,a6,a7,x.
000080: 0A 3E 65 69 0D 0A 3E 69 66 6E 20 69 6E 20 61 30 .>ei..>ifn in a0
000090: 0D 0A 3E 64 6D 22 20 0D 0A 3E 64 6D 22 46 6F 75 ..>dm" ..>dm"Fou
0000A0: 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 22 nd: '&a0&'..>av"
0000B0: 43 6F 72 72 65 63 74 20 28 59 2F 6E 29 3F 20 22 Correct (Y/n)? "
0000C0: 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 66 61 30 d 1..>ei..>ifa0
0000D0: 3D 22 65 6E 64 22 0D 0A 3E 64 6D 22 20 0D 0A 3E ="end"..>dm" ..>
0000E0: 64 6D 22 4E 6F 74 20 66 6F 75 6E 64 0D 0A 3E 73 dm"Not found..>s
0000F0: 76 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E vd="y"..>ei..>un
000100: 64 3C 3E 22 6E 22 0D 0A 3E 65 69 0D 0A 3E 69 66 d<>"n"..>ei..>if
000110: 61 30 3D 22 65 6E 64 22 0D 0A 3E 73 76 61 33 3D a0="end"..>sva3=
000120: 22 22 20 61 34 3D 22 22 20 61 35 3D 22 22 20 61 "" a4="" a5="" a
000130: 36 3D 22 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 22 6="" a7=""..>dm"
000140: 20 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 61 64 64 ..>dm"Enter add
000150: 72 65 73 73 2C 20 6F 72 20 70 72 65 73 73 20 52 ress, or press R
000160: 45 54 55 52 4E 20 74 6F 20 72 65 74 75 72 6E 20 ETURN to return
000170: 74 6F 20 6D 65 6E 75 0D 0A 3E 64 6D 22 20 0D 0A to menu..>dm" ..
000180: 3E 61 76 22 4E 61 6D 65 3A 20 22 20 61 30 0D 0A >av"Name: " a0..
000190: 3E 69 66 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A 3E >ifa0=""..>wc..>
0001A0: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
0001B0: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
0001C0: 61 76 22 26 61 26 31 3A 20 22 20 61 31 0D 0A 3E av"&a&1: " a1..>
0001D0: 61 76 22 26 61 26 32 3A 20 22 20 61 32 0D 0A 3E av"&a&2: " a2..>
0001E0: 69 66 61 32 3E 22 22 0D 0A 3E 61 76 22 26 61 26 ifa2>""..>av"&a&
0001F0: 33 3A 20 22 20 61 33 0D 0A 3E 69 66 61 33 3E 22 3: " a3..>ifa3>"
Size : 512 (Real : 512)
000000: 70 0D 0A 3E 69 66 20 70 68 6F 6E 65 3F 3D 22 79 p..>if phone?="y
000010: 22 0D 0A 3E 72 76 20 61 30 2C 78 2C 61 31 2C 61 "..>rv a0,x,a1,a
000020: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
000030: 2C 78 0D 0A 3E 65 6C 0D 0A 3E 72 76 20 61 30 2C ,x..>el..>rv a0,
000040: 61 31 2C 61 32 2C 61 33 2C 61 34 2C 61 35 2C 61 a1,a2,a3,a4,a5,a
000050: 36 2C 61 37 2C 78 0D 0A 3E 65 69 0D 0A 3E 69 66 6,a7,x..>ei..>if
000060: 20 6E 20 69 6E 20 61 30 0D 0A 3E 64 6D 20 22 20 n in a0..>dm "
000070: 22 0D 0A 3E 64 6D 20 46 6F 75 6E 64 3A 20 27 26 "..>dm Found: '&
000080: 61 30 26 27 0D 0A 3E 61 76 20 22 49 73 20 74 68 a0&'..>av "Is th
000090: 69 73 20 63 6F 72 72 65 63 74 20 28 59 2F 6E 29 is correct (Y/n)
0000A0: 3F 20 22 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 ? " d 1..>ei..>i
0000B0: 66 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 64 6D 20 f a0="end"..>dm
0000C0: 22 20 22 0D 0A 3E 64 6D 20 22 41 63 63 6F 75 6E " "..>dm "Accoun
0000D0: 74 20 6E 6F 74 20 66 6F 75 6E 64 22 0D 0A 3E 73 t not found"..>s
0000E0: 76 20 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 v d="y"..>ei..>u
0000F0: 6E 20 64 3C 3E 22 6E 22 0D 0A 3E 3E 3E 63 66 0D n d<>"n"..>>>cf.
000100: 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .>ei..>id cpm..>
000110: 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 6E cf..>df ominvgen
000120: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 61 .inf..>ei..>if a
000130: 30 3D 22 65 6E 64 22 20 20 20 3B 20 69 66 20 6E 0="end" ; if n
000140: 6F 74 20 73 65 61 72 63 68 69 6E 67 20 64 61 74 ot searching dat
000150: 61 66 69 6C 65 20 6F 72 20 6E 6F 74 20 66 6F 75 afile or not fou
000160: 6E 64 0D 0A 3E 73 76 20 61 33 3D 22 22 20 61 34 nd..>sv a3="" a4
000170: 3D 22 22 20 61 35 3D 22 22 20 61 36 3D 22 22 20 ="" a5="" a6=""
000180: 61 37 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A a7=""..>dm " "..
000190: 3E 64 6D 20 45 6E 74 65 72 20 6E 61 6D 65 20 61 >dm Enter name a
0001A0: 6E 64 20 61 64 64 72 65 73 73 2C 20 6F 72 20 70 nd address, or p
0001B0: 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 72 ress RETURN to r
0001C0: 65 74 75 72 6E 20 74 6F 20 6D 65 6E 75 0D 0A 3E eturn to menu..>
0001D0: 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D dm " "..>av "Nam
0001E0: 65 3A 20 20 20 20 20 20 22 20 61 30 0D 0A 3E 69 e: " a0..>i
0001F0: 66 20 61 30 3D 22 22 0D 0A 3E 63 66 0D 0A 3E 65 f a0=""..>cf..>e
Size : 512 (Real : 512)
000000: 22 0D 0A 3E 61 76 22 26 61 26 34 3A 20 22 20 61 "..>av"&a&4: " a
000010: 34 0D 0A 3E 69 66 61 34 3E 22 22 0D 0A 3E 61 76 4..>ifa4>""..>av
000020: 22 26 61 26 35 3A 20 22 20 61 35 0D 0A 3E 69 66 "&a&5: " a5..>if
000030: 61 35 3E 22 22 0D 0A 3E 61 76 22 26 61 26 36 3A a5>""..>av"&a&6:
000040: 20 22 20 61 36 0D 0A 3E 69 66 61 36 3E 22 22 0D " a6..>ifa6>"".
000050: 0A 3E 61 76 22 26 61 26 37 3A 20 22 20 61 37 0D .>av"&a&7: " a7.
000060: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A .>ei..>ei..>ei..
000070: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E >ei..>ei..>ei..>
000080: 61 76 22 53 74 61 74 65 6D 65 6E 74 20 64 61 74 av"Statement dat
000090: 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A 20 e [&sys_date&]:
0000A0: 22 2C 68 0D 0A 3E 69 66 68 3D 22 22 0D 0A 3E 73 ",h..>ifh=""..>s
0000B0: 76 68 3D 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 vh=sys_date..>ei
0000C0: 0D 0A 3E 73 76 66 6F 3D 22 22 0D 0A 3E 69 66 61 ..>svfo=""..>ifa
0000D0: 66 6E 3D 22 79 22 0D 0A 3E 61 76 22 46 6F 6F 74 fn="y"..>av"Foot
0000E0: 6E 6F 74 65 3A 20 22 2C 66 6F 0D 0A 3E 65 69 0D note: ",fo..>ei.
0000F0: 0A 3E 64 6D 22 20 0D 0A 3E 20 20 20 20 20 20 20 .>dm" ..>
000100: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000110: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000120: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
000190: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 31 26 0D 0A 3E ..>wfon..&r1&..>
0001A0: 77 66 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 69 66 wfoff..!sc!..>if
0001B0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 21 73 prconame="y"..!s
0001C0: 63 21 EC 21 63 6F 6E 21 0D 0A 21 73 63 21 21 63 c!.!con!..!sc!!c
0001D0: 6F 61 31 21 0D 0A 21 73 63 21 21 63 6F 61 32 21 oa1!..!sc!!coa2!
0001E0: 0D 0A 21 73 63 21 21 63 6F 61 33 21 0D 0A 21 73 ..!sc!!coa3!..!s
0001F0: 63 21 21 63 6F 61 34 21 0D 0A 21 73 63 21 21 63 c!!coa4!..!sc!!c
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E &ff&..>sv x=0..>
000030: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
000040: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
000050: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
000060: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
000070: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
000080: 0A 3E 6E 70 6F 66 66 0D 0A 3E 73 76 20 6E 3D 30 .>npoff..>sv n=0
000090: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
0000A0: 69 78 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E ixed..>rp..>sv n
0000B0: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
0000C0: 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 v s=f&n&..>wm !s
0000D0: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
0000E0: 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E el ; var..>rp..>
0000F0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
000100: 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 ..>sv s=f&n&..>i
000110: 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D 6E 2B f s=""..>sv s=n+
000120: 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 5D 20 1 m=n+2 s=s[w1]
000130: 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 m=m[w1]..>sv s=f
000140: 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D &s&+f&m&..>if s=
000150: 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A ""..>sv n=rlen..
000160: 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A >el..>sv s="$"..
000170: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 21 73 >ei..>ei..>wm !s
000180: 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E !..>un n=rlen..>
000190: 65 69 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E ei ; f/v..>sv nn
0001A0: 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D =nn+1..>el ; f1=
0001B0: 65 6E 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 end..>sv nn=nn[w
0001C0: 31 5D 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 1]..>dm " "..>wt
0001D0: 20 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 "&nn& records f
0001E0: 6F 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 ound. Press a ke
0001F0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E y to continue ..
Size : 512 (Real : 512)
000000: 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 73 ons below, pleas
000010: 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 6E e remember to en
000020: 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 6E close strings in
000030: 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 65 quotes"..>dm 'e
000040: 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 .g. "London" in
000050: 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 F4..>dm " "..>sv
000060: 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B 20 ok="'" + '"' +
000070: 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A 3E "0123456789."..>
000080: 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E sv n="1"..>rp..>
000090: 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 74 av "Enter condit
0000A0: 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E 73 ion &n&: " s..>s
0000B0: 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A 5D v err=0 s=s[w1:]
0000C0: 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E 69 ..>sv c&n&=s..>i
0000D0: 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 65 f c1=""..>ex exe
0000E0: 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A c fm..>st..>ei..
0000F0: 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 >if s[1]="f"..>i
000100: 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 f s[2] notin "*1
000110: 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 23456789"..>sv e
000120: 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A rr=1..>ei..>el..
000130: 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F >if s[1] notin o
000140: 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 k..>sv err=1..>e
000150: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 i..>ei..>>>..>sv
000160: 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E 69 s=c&n&[w-1]..>i
000170: 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 20 f s[1]="f"..>if
000180: 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 33 s[2] notin "*123
000190: 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 72 456789"..>sv err
0001A0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E 69 =1..>ei..>el..>i
0001B0: 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B 0D f s[1] notin ok.
0001C0: 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 0D .>sv err=1..>ei.
0001D0: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 65 .>ei..>>>..>if e
0001E0: 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 rr=0..>sv n=n+1
0001F0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 64 n=n[w1]..>el..>d
Size : 512 (Real : 512)
000000: 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 ...>wc..>cf..>ex
000010: 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E exec fm..>st..>
000020: 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 ei..>sk 0=0..>ei
000030: 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E ; id df..>>>..>
000040: 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A iu df..>cs " "..
000050: 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 37 20 >dm "Option S.7
000060: 2D 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 - Select records
000070: 20 28 20 28 63 6F 6E 64 31 20 41 4E 44 20 63 6F ( (cond1 AND co
000080: 6E 64 32 29 20 4F 52 20 63 6F 6E 64 33 29 0D 0A nd2) OR cond3)..
000090: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
0000A0: 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 76 5B pfi$..>sv fv=fv[
0000B0: 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 31 5D 1] rlen=rlen[w1]
0000C0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E 73 ..>if fv="f"..>s
0000D0: 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E v flist=">ru"..>
0000E0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
0000F0: 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 6E 3D rv"..>ei..>sv n=
000100: 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 0..>rp..>sv n=n+
000110: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 1 n=n[w1]..>sv f
000120: 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 66 26 6E list=flist+" f&n
000130: 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D &"..>un n>=rlen.
000140: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D 3D 6E 2B 31 .>sv n=n+1 m=n+1
000150: 20 6E 3D 6E 5B 77 31 5D 20 6D 3D 6D 5B 77 31 5D n=n[w1] m=m[w1]
000160: 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 22 20 66 26 ..>sv f&n&="" f&
000170: 6D 26 3D 22 22 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 m&=""..>>>..>dm
000180: 22 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D "Field names: ".
000190: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
0001A0: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0001B0: 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 ..>sv s=n&n&..>d
0001C0: 6D 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E m f&n&: &s&..>un
0001D0: 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 n=rlen..>>>..>d
0001E0: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 68 65 6E m " "..>dm "When
0001F0: 20 65 6E 74 65 72 69 6E 67 20 63 6F 6E 64 69 74 entering condit
Size : 512 (Real : 512)
000000: 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 74 m "Invalid input
000010: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 33 0D "..>ei..>un n>3.
000020: 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 0D .>>>..>if c2="".
000030: 0A 3E 73 76 20 63 32 3D 22 30 3D 31 22 0D 0A 3E .>sv c2="0=1"..>
000040: 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D 0A 3E ei..>if c3=""..>
000050: 73 76 20 63 33 3D 22 30 3D 30 22 0D 0A 3E 65 69 sv c3="0=0"..>ei
000060: 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 66 ..>sv ff=""..>if
000070: 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D 0D "f*" in c1[6:].
000080: 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A 3E .>sv n=5..>rp..>
000090: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
0000A0: 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D 22 ..>if c1[&n&:]="
0000B0: 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 6E f*"..>sv n=n-1 n
0000C0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D 63 =n[w1]..>sv c1=c
0000D0: 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A 3E 1[1:&n&]+"f0"..>
0000E0: 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 6E sv n=0..>ei..>un
0000F0: 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E 73 n=0..>sv ff=">s
000100: 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B 20 v f0=f1"..>ei ;
000110: 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A 3E f* in c1..>>>..>
000120: 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 3A if "f*" in c2[6:
000130: 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D ]..>sv n=5..>rp.
000140: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000150: 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A 5D 1]..>if c2[&n&:]
000160: 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 ="f*"..>sv n=n-1
000170: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 32 n=n[w1]..>sv c2
000180: 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D =c2[1:&n&]+"f0".
000190: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sv n=0..>ei..>
0001A0: 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 un n=0..>sv ff="
0001B0: 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 >sv f0=f1"..>ei
0001C0: 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E 0D ; f* in c2..>>>.
0001D0: 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 33 5B .>if "f*" in c3[
0001E0: 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 6:]..>sv n=5..>r
0001F0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
Size : 512 (Real : 512)
000000: 69 6F 6E 73 20 62 65 6C 6F 77 2C 20 70 6C 65 61 ions below, plea
000010: 73 65 20 72 65 6D 65 6D 62 65 72 20 74 6F 20 65 se remember to e
000020: 6E 63 6C 6F 73 65 20 73 74 72 69 6E 67 73 20 69 nclose strings i
000030: 6E 20 71 75 6F 74 65 73 22 0D 0A 3E 64 6D 20 27 n quotes"..>dm '
000040: 65 2E 67 2E 20 22 4C 6F 6E 64 6F 6E 22 20 69 6E e.g. "London" in
000050: 20 46 34 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 F4..>dm " "..>s
000060: 76 20 6F 6B 3D 22 27 22 20 2B 20 27 22 27 20 2B v ok="'" + '"' +
000070: 20 22 30 31 32 33 34 35 36 37 38 39 2E 22 0D 0A "0123456789."..
000080: 3E 73 76 20 6E 3D 22 31 22 0D 0A 3E 72 70 0D 0A >sv n="1"..>rp..
000090: 3E 61 76 20 22 45 6E 74 65 72 20 63 6F 6E 64 69 >av "Enter condi
0000A0: 74 69 6F 6E 20 26 6E 26 3A 20 22 20 73 0D 0A 3E tion &n&: " s..>
0000B0: 73 76 20 65 72 72 3D 30 20 73 3D 73 5B 77 31 3A sv err=0 s=s[w1:
0000C0: 5D 0D 0A 3E 73 76 20 63 26 6E 26 3D 73 0D 0A 3E ]..>sv c&n&=s..>
0000D0: 69 66 20 63 31 3D 22 22 0D 0A 3E 65 78 20 65 78 if c1=""..>ex ex
0000E0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
0000F0: 0A 3E 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E .>if s[1]="f"..>
000100: 69 66 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A if s[2] notin "*
000110: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 123456789"..>sv
000120: 65 72 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D err=1..>ei..>el.
000130: 0A 3E 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 .>if s[1] notin
000140: 6F 6B 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E ok..>sv err=1..>
000150: 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 ei..>ei..>>>..>s
000160: 76 20 73 3D 63 26 6E 26 5B 77 2D 31 5D 0D 0A 3E v s=c&n&[w-1]..>
000170: 69 66 20 73 5B 31 5D 3D 22 66 22 0D 0A 3E 69 66 if s[1]="f"..>if
000180: 20 73 5B 32 5D 20 6E 6F 74 69 6E 20 22 2A 31 32 s[2] notin "*12
000190: 33 34 35 36 37 38 39 22 0D 0A 3E 73 76 20 65 72 3456789"..>sv er
0001A0: 72 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 6C 0D 0A 3E r=1..>ei..>el..>
0001B0: 69 66 20 73 5B 31 5D 20 6E 6F 74 69 6E 20 6F 6B if s[1] notin ok
0001C0: 0D 0A 3E 73 76 20 65 72 72 3D 31 0D 0A 3E 65 69 ..>sv err=1..>ei
0001D0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 ..>ei..>>>..>if
0001E0: 65 72 72 3D 30 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 err=0..>sv n=n+1
0001F0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E n=n[w1]..>el..>
Size : 512 (Real : 512)
000000: 22 20 74 33 3D 22 22 0D 0A 3E 69 66 20 66 76 5B " t3=""..>if fv[
000010: 31 5D 3D 22 66 22 0D 0A 3E 73 76 20 66 73 6F 72 1]="f"..>sv fsor
000020: 74 6F 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 topts="/f&rlen&"
000030: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 73 6F 72 74 ..>el..>sv fsort
000040: 6F 70 74 73 3D 22 2F 76 22 0D 0A 3E 65 69 0D 0A opts="/v"..>ei..
000050: 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 46 69 >dm " "..>av "Fi
000060: 72 73 74 20 66 69 65 6C 64 20 6E 75 6D 62 65 72 rst field number
000070: 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F 6E 20 for sorting on
000080: 5B 31 5D 3A 20 22 20 6D 31 0D 0A 3E 69 66 20 6D [1]: " m1..>if m
000090: 31 3D 22 22 0D 0A 3E 73 76 20 6D 31 3D 22 31 22 1=""..>sv m1="1"
0000A0: 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 20 20 20 20 ..>ei..>av "
0000B0: 20 20 20 20 20 20 20 20 73 6F 72 74 20 74 79 70 sort typ
0000C0: 65 20 5B 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 e [A/z/p/w/l/n/d
0000D0: 5D 3A 20 22 20 74 31 0D 0A 3E 69 66 20 74 31 3D ]: " t1..>if t1=
0000E0: 22 22 0D 0A 3E 73 76 20 74 31 3D 22 61 22 0D 0A ""..>sv t1="a"..
0000F0: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 >ei..>>>..>dm "
000100: 22 0D 0A 3E 61 76 20 22 53 65 63 6F 6E 64 20 66 "..>av "Second f
000110: 69 65 6C 64 20 6E 75 6D 62 65 72 20 66 6F 72 20 ield number for
000120: 73 6F 72 74 69 6E 67 20 6F 6E 3A 20 22 20 6D 32 sorting on: " m2
000130: 0D 0A 3E 69 66 20 6D 32 3C 3E 22 22 0D 0A 3E 61 ..>if m2<>""..>a
000140: 76 20 22 20 20 20 20 20 20 20 20 20 20 20 20 73 v " s
000150: 6F 72 74 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F ort type [A/z/p/
000160: 77 2F 6C 2F 6E 2F 64 5D 3A 20 22 20 74 32 0D 0A w/l/n/d]: " t2..
000170: 3E 69 66 20 74 32 3D 22 22 0D 0A 3E 73 76 20 74 >if t2=""..>sv t
000180: 32 3D 22 61 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 2="a"..>ei..>>>.
000190: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 54 .>dm " "..>av "T
0001A0: 68 69 72 64 20 66 69 65 6C 64 20 6E 75 6D 62 65 hird field numbe
0001B0: 72 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F 6E r for sorting on
0001C0: 3A 20 22 20 6D 33 0D 0A 3E 69 66 20 6D 33 3C 3E : " m3..>if m3<>
0001D0: 22 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 ""..>av "
0001E0: 20 20 20 20 20 73 6F 72 74 20 74 79 70 65 20 5B sort type [
0001F0: 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 5D 3A 20 A/z/p/w/l/n/d]:
Size : 512 (Real : 512)
000000: 64 6D 20 22 49 6E 76 61 6C 69 64 20 69 6E 70 75 dm "Invalid inpu
000010: 74 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 33 t"..>ei..>un n>3
000020: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 63 32 3D 22 22 ..>>>..>if c2=""
000030: 0D 0A 3E 73 76 20 63 32 3D 22 30 3D 30 22 0D 0A ..>sv c2="0=0"..
000040: 3E 65 69 0D 0A 3E 69 66 20 63 33 3D 22 22 0D 0A >ei..>if c3=""..
000050: 3E 73 76 20 63 33 3D 22 30 3D 31 22 0D 0A 3E 65 >sv c3="0=1"..>e
000060: 69 0D 0A 3E 73 76 20 66 66 3D 22 22 0D 0A 3E 69 i..>sv ff=""..>i
000070: 66 20 22 66 2A 22 20 69 6E 20 63 31 5B 36 3A 5D f "f*" in c1[6:]
000080: 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 0D 0A ..>sv n=5..>rp..
000090: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0000A0: 5D 0D 0A 3E 69 66 20 63 31 5B 26 6E 26 3A 5D 3D ]..>if c1[&n&:]=
0000B0: 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 20 "f*"..>sv n=n-1
0000C0: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 31 3D n=n[w1]..>sv c1=
0000D0: 63 31 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 0D 0A c1[1:&n&]+"f0"..
0000E0: 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A 3E 75 >sv n=0..>ei..>u
0000F0: 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D 22 3E n n=0..>sv ff=">
000100: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 20 3B sv f0=f1"..>ei ;
000110: 20 66 2A 20 69 6E 20 63 31 0D 0A 3E 3E 3E 0D 0A f* in c1..>>>..
000120: 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 32 5B 36 >if "f*" in c2[6
000130: 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E 72 70 :]..>sv n=5..>rp
000140: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000150: 77 31 5D 0D 0A 3E 69 66 20 63 32 5B 26 6E 26 3A w1]..>if c2[&n&:
000160: 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D 6E 2D ]="f*"..>sv n=n-
000170: 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 63 1 n=n[w1]..>sv c
000180: 32 3D 63 32 5B 31 3A 26 6E 26 5D 2B 22 66 30 22 2=c2[1:&n&]+"f0"
000190: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0D 0A ..>sv n=0..>ei..
0001A0: 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 66 3D >un n=0..>sv ff=
0001B0: 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E 65 69 ">sv f0=f1"..>ei
0001C0: 20 3B 20 66 2A 20 69 6E 20 63 32 0D 0A 3E 3E 3E ; f* in c2..>>>
0001D0: 0D 0A 3E 69 66 20 22 66 2A 22 20 69 6E 20 63 33 ..>if "f*" in c3
0001E0: 5B 36 3A 5D 0D 0A 3E 73 76 20 6E 3D 35 0D 0A 3E [6:]..>sv n=5..>
0001F0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
Size : 512 (Real : 512)
000000: 22 20 74 33 0D 0A 3E 69 66 20 74 33 3D 22 22 0D " t3..>if t3="".
000010: 0A 3E 73 76 20 74 33 3D 22 61 22 0D 0A 3E 65 69 .>sv t3="a"..>ei
000020: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 ..>ei..>ei..>if
000030: 74 31 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 t1[1] notin "/-"
000040: 0D 0A 3E 73 76 20 74 31 3D 22 2F 22 2B 74 31 0D ..>sv t1="/"+t1.
000050: 0A 3E 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B .>ei..>sv t1=t1+
000060: 6D 31 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 74 32 3C m1..>>>..>if t2<
000070: 3E 22 22 0D 0A 3E 69 66 20 74 32 5B 31 5D 20 6E >""..>if t2[1] n
000080: 6F 74 69 6E 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 otin "/-"..>sv t
000090: 32 3D 22 2F 22 2B 74 32 0D 0A 3E 65 69 0D 0A 3E 2="/"+t2..>ei..>
0000A0: 73 76 20 74 31 3D 74 31 2B 22 20 22 2B 74 32 2B sv t1=t1+" "+t2+
0000B0: 6D 32 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 m2..>ei..>>>..>i
0000C0: 66 20 74 33 3C 3E 22 22 0D 0A 3E 69 66 20 74 33 f t3<>""..>if t3
0000D0: 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 0D 0A [1] notin "/-"..
0000E0: 3E 73 76 20 74 33 3D 22 2F 22 2B 74 33 0D 0A 3E >sv t3="/"+t3..>
0000F0: 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B 22 20 ei..>sv t1=t1+"
000100: 22 2B 74 33 2B 6D 33 0D 0A 3E 65 69 0D 0A 3E 3E "+t3+m3..>ei..>>
000110: 3E 0D 0A 3E 69 66 20 6D 32 3C 3E 22 22 0D 0A 3E >..>if m2<>""..>
000120: 73 76 20 6D 31 3D 6D 31 2B 22 2C 22 2B 6D 32 0D sv m1=m1+","+m2.
000130: 0A 3E 65 69 0D 0A 3E 69 66 20 6D 33 3C 3E 22 22 .>ei..>if m3<>""
000140: 0D 0A 3E 73 76 20 6D 31 3D 6D 31 2B 22 2C 22 2B ..>sv m1=m1+","+
000150: 6D 33 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 m3..>ei..>>>..>s
000160: 76 20 66 73 6F 72 74 6F 70 74 73 20 3D 20 66 73 v fsortopts = fs
000170: 6F 72 74 6F 70 74 73 20 2B 20 22 20 2F 73 22 2B ortopts + " /s"+
000180: 6D 31 20 2B 20 22 20 22 2B 74 31 0D 0A 3E 64 6D m1 + " "+t1..>dm
000190: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 53 4F 52 54 " "..>dm "FSORT
0001A0: 20 6F 70 74 69 6F 6E 73 20 61 72 65 20 6E 6F 77 options are now
0001B0: 20 27 26 66 73 6F 72 74 6F 70 74 73 26 27 2E 22 '&fsortopts&'."
0001C0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 ..>dm " "..>av "
0001D0: 50 6C 65 61 73 65 20 65 6E 74 65 72 20 61 6E 79 Please enter any
0001E0: 20 6F 74 68 65 72 20 46 53 4F 52 54 20 6F 70 74 other FSORT opt
0001F0: 69 6F 6E 73 3A 20 22 20 66 6F 70 74 73 0D 0A 3E ions: " fopts..>
Size : 512 (Real : 512)
000000: 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 73 5F >sv sys_ver=sys_
000010: 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 ver..>if sys_ver
000020: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
000030: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
000040: 6C 65 0D 0A 3E 6E 63 20 32 0D 0A 3E 63 73 20 22 le..>nc 2..>cs "
000050: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
000060: 45 20 2D 20 45 64 69 74 20 43 75 72 72 65 6E 74 E - Edit Current
000070: 20 46 69 6C 65 20 49 6E 66 6F 72 6D 61 74 69 6F File Informatio
000080: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
000090: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
0000A0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
0000B0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
0000C0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
0000D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
0000E0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
0000F0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000100: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
000110: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
000120: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
000130: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
000140: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
000150: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
000160: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
000170: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
000180: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
000190: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
0001A0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
0001B0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
0001C0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
0001D0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
0001E0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
0001F0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
Size : 512 (Real : 512)
000000: 69 66 20 66 6F 70 74 73 3C 3E 22 22 0D 0A 3E 69 if fopts<>""..>i
000010: 66 20 66 6F 70 74 73 5B 31 5D 20 6E 6F 74 69 6E f fopts[1] notin
000020: 20 22 2F 2D 22 0D 0A 3E 73 76 20 66 6F 70 74 73 "/-"..>sv fopts
000030: 3D 22 2F 22 2B 66 6F 70 74 73 0D 0A 3E 65 69 0D ="/"+fopts..>ei.
000040: 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 3D 66 .>sv fsortopts=f
000050: 73 6F 72 74 6F 70 74 73 2B 22 20 22 2B 66 6F 70 sortopts+" "+fop
000060: 74 73 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 64 ts..>ei..>ei..>d
000070: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 57 72 69 74 m " "..>dm "Writ
000080: 69 6E 67 20 66 69 6C 65 73 20 2E 2E 2E 22 0D 0A ing files ..."..
000090: 3E 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 >id cpm..>cf..>d
0000A0: 66 20 66 6D 24 70 66 69 24 09 3B 20 68 61 6E 64 f fm$pfi$.; hand
0000B0: 6C 65 20 30 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B le 0..>ei..>ei ;
0000C0: 20 69 75 20 70 66 69 66 69 6C 65 0D 0A 3E 3E 3E iu pfifile..>>>
0000D0: 20 4E 6F 77 20 77 72 69 74 65 20 74 68 65 6D 20 Now write them
0000E0: 6F 75 74 0D 0A 3E 77 66 20 26 70 66 69 66 69 6C out..>wf &pfifil
0000F0: 65 26 09 3B 20 68 61 6E 64 6C 65 20 31 0D 0A 3E e&.; handle 1..>
000100: 77 6D 20 27 3E 73 76 20 20 20 20 20 20 64 66 3D wm '>sv df=
000110: 22 26 64 66 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 "&df&"..>wm '>sv
000120: 20 6E 65 77 66 69 6C 65 3D 22 26 6E 65 77 66 69 newfile="&newfi
000130: 6C 65 26 0D 0A 3E 77 6D 20 27 3E 73 76 20 73 65 le&..>wm '>sv se
000140: 6C 66 69 6C 65 3D 22 26 73 65 6C 66 69 6C 65 26 lfile="&selfile&
000150: 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 76 3D 22 "..>wm '>sv fv="
000160: 26 66 76 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 20 &fv&"..>wm '>sv
000170: 72 6C 65 6E 3D 22 26 72 6C 65 6E 26 22 0D 0A 3E rlen="&rlen&"..>
000180: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
000190: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0001A0: 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 77 6D 20 >sv s=n&n&..>wm
0001B0: 27 3E 73 76 20 6E 26 6E 26 3D 22 26 73 26 22 0D '>sv n&n&="&s&".
0001C0: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 77 .>un n>=rlen..>w
0001D0: 6D 20 27 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 m '>sv fsortopts
0001E0: 3D 22 26 66 73 6F 72 74 6F 70 74 73 26 22 0D 0A ="&fsortopts&"..
0001F0: 3E 77 6D 20 27 3E 73 76 20 6D 61 78 77 3D 22 26 >wm '>sv maxw="&
Size : 512 (Real : 512)
000000: 6C 65 6E 67 74 68 20 72 65 63 6F 72 64 73 20 5B length records [
000010: 26 79 26 5D 3F 20 22 20 78 20 31 0D 0A 3E 75 6E &y&]? " x 1..>un
000020: 20 78 20 69 6E 20 22 66 76 22 0D 0A 3E 64 6D 20 x in "fv"..>dm
000030: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 69 66 20 78 3C " "..>rp..>if x<
000040: 3E 22 22 0D 0A 3E 73 76 20 66 76 3D 78 0D 0A 3E >""..>sv fv=x..>
000050: 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 76 3D ei..>>>..>if fv=
000060: 22 66 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 78 "f"..>sv fv="Fix
000070: 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 65 72 ed"..>av "Number
000080: 20 6F 66 20 66 69 65 6C 64 73 20 5B 26 72 6C 65 of fields [&rle
000090: 6E 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C n&]: " x..>if x<
0000A0: 3E 22 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 78 0D >""..>sv rlen=x.
0000B0: 0A 3E 65 69 0D 0A 3E 69 66 20 6C 61 73 74 62 6C .>ei..>if lastbl
0000C0: 61 6E 6B 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 ank="y"..>sv y="
0000D0: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
0000E0: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 64 6D ="y/N"..>ei..>dm
0000F0: 20 22 20 22 0D 0A 3E 61 76 20 22 49 73 20 74 68 " "..>av "Is th
000100: 65 20 6C 61 73 74 20 66 69 65 6C 64 20 61 6C 77 e last field alw
000110: 61 79 73 20 74 6F 20 62 65 20 62 6C 61 6E 6B 20 ays to be blank
000120: 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 (&y&)? " x 1..>i
000130: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 6C 61 73 f x<>""..>sv las
000140: 74 62 6C 61 6E 6B 3D 78 0D 0A 3E 65 69 0D 0A 3E tblank=x..>ei..>
000150: 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 56 61 72 69 el..>sv fv="Vari
000160: 61 62 6C 65 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A able"..>dm " "..
000170: 3E 61 76 20 22 4D 61 78 69 6D 75 6D 20 6E 75 6D >av "Maximum num
000180: 62 65 72 20 6F 66 20 66 69 65 6C 64 73 20 5B 26 ber of fields [&
000190: 72 6C 65 6E 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 rlen&]: " x..>if
0001A0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 72 6C 65 6E x<>""..>sv rlen
0001B0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 =x..>ei..>ei..>u
0001C0: 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E 3E 3E n rlen>="2"..>>>
0001D0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
0001E0: 50 6C 65 61 73 65 20 65 6E 74 65 72 20 66 69 65 Please enter fie
0001F0: 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 ld names: "..>sv
Size : 512 (Real : 512)
000000: 6D 61 78 77 26 22 0D 0A 3E 77 6D 20 27 3E 73 76 maxw&"..>wm '>sv
000010: 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 26 6C 61 73 lastblank="&las
000020: 74 62 6C 61 6E 6B 26 22 0D 0A 3E 77 63 0D 0A 3E tblank&"..>wc..>
000030: 3E 3E 0D 0A 3E 69 66 20 70 66 69 66 69 6C 65 5B >>..>if pfifile[
000040: 77 32 5D 3D 22 22 0D 0A 3E 63 66 09 3B 20 6C 65 w2]=""..>cf.; le
000050: 74 20 65 78 65 63 20 68 61 76 65 20 68 61 6E 64 t exec have hand
000060: 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 66 le 0..>ex exec f
000070: 6D 0D 0A 3E 73 74 0D 0A 3E 65 6C 0D 0A 3E 73 76 m..>st..>el..>sv
000080: 20 70 66 69 66 69 6C 65 3D 22 66 6D 24 70 66 69 pfifile="fm$pfi
000090: 24 22 0D 0A 3E 65 69 0D 0A 1A 79 73 5F 76 65 72 $"..>ei...ys_ver
0000A0: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
0000B0: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
0000C0: 6C 65 0D 0A 3E 6E 63 20 32 0D 0A 3E 63 73 20 22 le..>nc 2..>cs "
0000D0: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
0000E0: 45 20 2D 20 45 64 69 74 20 43 75 72 72 65 6E 74 E - Edit Current
0000F0: 20 46 69 6C 65 20 49 6E 66 6F 72 6D 61 74 69 6F File Informatio
000100: 00 00 00 00 00 00 00 00 00 00 00 76 A2 08 00 DF ...........v....
000110: 92 A1 00 00 00 C9 DF 95 A1 00 00 00 C9 DF 98 A1 ................
000120: 00 00 00 C9 DF 9B A1 00 00 00 C9 16 DF 08 49 DF ..............I.
000130: 08 9E DE 08 B6 DE 08 00 00 FF 00 00 DE FF FF FF ................
000140: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
000150: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
000160: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
000170: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
000180: FF FF FF FF FF FF FF FF FF FF 7C 45 52 41 2C 22 ..........|ERA,"
000190: 2A 2E 42 41 4B 22 0D 31 2C 30 3A 42 4F 52 44 45 *.BAK".1,0:BORDE
0001A0: 52 20 31 30 0D 00 00 00 00 00 00 00 00 00 00 00 R 10............
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 ................
Size : 512 (Real : 512)
000000: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000010: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 =n+1 n=n[w1]..>i
000020: 75 20 6E 26 6E 26 0D 0A 3E 73 76 20 6E 26 6E 26 u n&n&..>sv n&n&
000030: 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 79 3D =""..>ei..>sv y=
000040: 6E 26 6E 26 0D 0A 3E 61 76 20 22 66 69 65 6C 64 n&n&..>av "field
000050: 26 6E 26 20 5B 26 79 26 5D 3A 20 22 20 78 20 34 &n& [&y&]: " x 4
000060: 30 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 0..>if x<>""..>s
000070: 76 20 6E 26 6E 26 3D 78 0D 0A 3E 65 69 0D 0A 3E v n&n&=x..>ei..>
000080: 69 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 if lastblank="y"
000090: 0D 0A 3E 69 66 20 6E 3D 72 6C 65 6E 2D 31 0D 0A ..>if n=rlen-1..
0000A0: 3E 73 76 20 6E 3D 72 6C 65 6E 20 6E 26 72 6C 65 >sv n=rlen n&rle
0000B0: 6E 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D n&=""..>ei..>ei.
0000C0: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E .>un n>=rlen..>>
0000D0: 3E 0D 0A 3E 3E 3E 20 77 6F 72 6B 20 6F 75 74 20 >..>>> work out
0000E0: 6D 61 78 20 66 69 65 6C 64 20 6E 61 6D 65 20 77 max field name w
0000F0: 69 64 74 68 21 0D 0A 3E 73 76 20 6D 61 78 77 3D idth!..>sv maxw=
000100: 22 31 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D 0A "1"..>sv n="1"..
000110: 3E 72 70 0D 0A 3E 69 66 20 6E 26 6E 26 5B 26 6D >rp..>if n&n&[&m
000120: 61 78 77 26 5D 3C 3E 22 22 0D 0A 3E 73 76 20 6D axw&]<>""..>sv m
000130: 61 78 77 3D 6D 61 78 77 2B 31 20 6D 61 78 77 3D axw=maxw+1 maxw=
000140: 6D 61 78 77 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E maxw[w1]..>el..>
000150: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
000160: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C ..>ei..>un n>=rl
000170: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 en..>>>..>dm " "
000180: 0D 0A 3E 64 6D 20 22 43 75 72 72 65 6E 74 20 46 ..>dm "Current F
000190: 53 4F 52 54 20 6F 70 74 69 6F 6E 73 3A 20 27 26 SORT options: '&
0001A0: 66 73 6F 72 74 6F 70 74 73 26 27 0D 0A 3E 72 70 fsortopts&'..>rp
0001B0: 0D 0A 3E 61 76 20 22 43 68 61 6E 67 65 20 74 68 ..>av "Change th
0001C0: 65 6D 20 5B 79 2F 4E 5D 3F 20 22 20 79 6E 0D 0A em [y/N]? " yn..
0001D0: 3E 75 6E 20 79 6E 20 69 6E 20 22 79 6E 22 0D 0A >un yn in "yn"..
0001E0: 3E 69 66 20 79 6E 3D 22 79 22 0D 0A 3E 73 76 20 >if yn="y"..>sv
0001F0: 6D 32 3D 22 22 20 6D 33 3D 22 22 20 74 32 3D 22 m2="" m3="" t2="
Size : 512 (Real : 512)
000000: 70 72 6F 64 66 69 6C 65 26 2C 26 76 61 74 72 65 prodfile&,&vatre
000010: 67 26 27 0D 0A 3E 77 6D 20 27 26 76 61 74 31 26 g&'..>wm '&vat1&
000020: 2C 26 76 61 74 32 26 2C 26 76 61 74 33 26 2C 26 ,&vat2&,&vat3&,&
000030: 76 61 74 34 26 2C 26 76 61 74 35 26 2C 26 6E 6C vat4&,&vat5&,&nl
000040: 69 6E 65 73 26 2C 26 72 63 32 26 27 0D 0A 3E 77 ines&,&rc2&'..>w
000050: 6D 20 27 22 26 64 69 73 63 41 26 22 2C 22 26 64 m '"&discA&","&d
000060: 69 73 63 42 26 22 2C 22 26 64 69 73 63 43 26 22 iscB&","&discC&"
000070: 2C 22 26 64 69 73 63 44 26 22 2C 22 26 64 69 73 ,"&discD&","&dis
000080: 63 45 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 63 cE&"'..>wm '&prc
000090: 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 26 oname&,&exorinc&
0000A0: 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 6B ,&showdisc&,&ask
0000B0: 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 73 fn&,&askcar&,&us
0000C0: 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 26 eprod&,&defdisc&
0000D0: 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 26 '..>wm '&caline&
0000E0: 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 26 ,&aline&,&tline&
0000F0: 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 6D ,&totline&'..>wm
000100: 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C 26 '&side&,&rc1&,&
000110: 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 26 rc2&,&rc3&,&rc4&
000120: 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 31 ,&rc5&'..>sv rc1
000130: 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 31 =rc1-1 rc2=rc2-1
000140: 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 72 rc3=rc3-1 rc4=r
000150: 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D 0A c4-1 rc5=rc5-1..
000160: 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 63 >sv r2c1=rc1 r2c
000170: 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 33 2=rc2+3 r2c3=rc3
000180: 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 32 +2 r2c4=rc4-2 r2
000190: 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 63 c5=rc5-3..>sv rc
0001A0: 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 63 1=rc1[w1] rc2=rc
0001B0: 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 31 2[w1] rc3=rc3[w1
0001C0: 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 63 ] rc4=rc4[w1] rc
0001D0: 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 20 5=rc5[w1] ..>sv
0001E0: 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 65 ruler1=">"+dashe
0001F0: 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 73 s[1:&n&]+"!"+das
Size : 512 (Real : 512)
000000: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 s_ver=""..>sv cp
000090: 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 6E 20 m="1"..>ei..>in
0000A0: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 63 3D fm$pfi$..>sv oc=
0000B0: 22 43 20 2D 20 43 6F 75 6E 74 20 72 65 63 6F 72 "C - Count recor
0000C0: 64 73 22 0D 0A 3E 73 76 20 6F 73 3D 22 53 20 2D ds"..>sv os="S -
0000D0: 20 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 22 Select records"
0000E0: 0D 0A 3E 73 76 20 6F 6C 3D 22 4C 20 2D 20 4C 69 ..>sv ol="L - Li
0000F0: 73 74 20 63 75 72 72 65 6E 74 20 66 69 6C 65 20 st current file
000100: 69 6E 66 6F 72 6D 61 74 69 6F 6E 22 0D 0A 3E 73 information"..>s
000110: 76 20 6F 7A 3D 22 5A 20 2D 20 53 6F 72 74 20 72 v oz="Z - Sort r
000120: 65 63 6F 72 64 73 22 0D 0A 3E 73 76 20 6F 64 3D ecords"..>sv od=
000130: 22 44 20 2D 20 43 68 61 6E 67 65 20 63 75 72 72 "D - Change curr
000140: 65 6E 74 20 64 61 74 61 66 69 6C 65 22 0D 0A 3E ent datafile"..>
000150: 73 76 20 6F 6D 3D 22 4D 20 2D 20 4D 61 69 6C 20 sv om="M - Mail
000160: 6D 65 72 67 65 22 0D 0A 3E 65 69 0D 0A 3E 69 66 merge"..>ei..>if
000170: 20 66 76 5B 31 5D 3D 22 76 22 0D 0A 3E 73 76 20 fv[1]="v"..>sv
000180: 66 76 3D 22 56 61 72 69 61 62 6C 65 20 72 65 63 fv="Variable rec
000190: 6F 72 64 20 6C 65 6E 67 74 68 2C 20 20 6D 61 78 ord length, max
0001A0: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 76 3D 22 "..>el..>sv fv="
0001B0: 46 69 78 65 64 20 72 65 63 6F 72 64 20 6C 65 6E Fixed record len
0001C0: 67 74 68 20 6F 66 22 0D 0A 3E 65 69 0D 0A 3E 64 gth of"..>ei..>d
0001D0: 6D 20 22 20 20 20 20 20 20 43 75 72 72 65 6E 74 m " Current
0001E0: 20 64 61 74 61 66 69 6C 65 3A 20 26 64 66 26 2E datafile: &df&.
0001F0: 20 20 20 26 66 76 26 20 26 72 6C 65 6E 26 20 66 &fv& &rlen& f
Size : 512 (Real : 512)
000000: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 63 33 5B 26 6E n[w1]..>if c3[&n
000010: 26 3A 5D 3D 22 66 2A 22 0D 0A 3E 73 76 20 6E 3D &:]="f*"..>sv n=
000020: 6E 2D 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n-1 n=n[w1]..>sv
000030: 20 63 33 3D 63 33 5B 31 3A 26 6E 26 5D 2B 22 66 c3=c3[1:&n&]+"f
000040: 30 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 65 69 0"..>sv n=0..>ei
000050: 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 73 76 20 66 ..>un n=0..>sv f
000060: 66 3D 22 3E 73 76 20 66 30 3D 66 31 22 0D 0A 3E f=">sv f0=f1"..>
000070: 65 69 20 3B 20 66 2A 20 69 6E 20 63 33 0D 0A 3E ei ; f* in c3..>
000080: 3E 3E 0D 0A 3E 69 66 20 66 66 3C 3E 22 22 0D 0A >>..>if ff<>""..
000090: 3E 73 76 20 6E 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=1..>rp..>s
0000A0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0000B0: 0A 3E 73 76 20 66 66 3D 66 66 2B 22 2B 66 26 6E .>sv ff=ff+"+f&n
0000C0: 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D &"..>un n>=rlen.
0000D0: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 .>ei..>>>..>dm "
0000E0: 20 22 0D 0A 3E 64 6D 20 22 53 65 61 72 63 68 69 "..>dm "Searchi
0000F0: 6E 67 20 2E 2E 2E 22 0D 0A 3E 73 76 20 6E 6E 3D ng ..."..>sv nn=
000100: 30 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 0..>df fm.mus..>
000110: 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 66 rv mus..>cf..>if
000120: 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 20 66 3D mus="m"..>sv f=
000130: 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 df..>ei..>if mus
000140: 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 ="u"..>sv f=newf
000150: 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 ile..>ei..>if mu
000160: 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D 73 65 6C s="s"..>sv f=sel
000170: 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 66 20 26 file..>ei..>df &
000180: 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 77 66 20 f& fo$end$..>wf
000190: 26 73 65 6C 66 69 6C 65 26 0D 0A 3E 65 69 20 3B &selfile&..>ei ;
0001A0: 69 75 20 64 66 0D 0A 1A 76 20 78 3D 30 0D 0A 3E iu df...v x=0..>
0001B0: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
0001C0: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
0001D0: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
0001E0: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
0001F0: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
Size : 512 (Real : 512)
000000: 69 65 6C 64 73 2E 0D 0A 3E 64 6D 20 22 20 22 0D ields...>dm " ".
000010: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
000020: 20 20 20 2A 2A 2A 20 20 50 20 52 20 4F 20 54 20 *** P R O T
000030: 45 20 58 20 54 20 20 20 20 46 20 49 20 4C 20 45 E X T F I L E
000040: 20 52 20 20 20 20 4D 20 45 20 4E 20 55 20 20 2A R M E N U *
000050: 2A 2A 20 28 76 32 2E 30 31 29 0D 0A 3E 64 6D 20 ** (v2.01)..>dm
000060: 22 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 " "..>dm "
000070: 20 20 20 20 20 20 20 20 20 20 20 20 46 20 2D 20 F -
000080: 46 69 6E 64 20 73 69 6E 67 6C 65 20 72 65 63 6F Find single reco
000090: 72 64 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 rd..>dm "
0000A0: 20 20 20 20 20 20 20 20 20 20 20 26 6F 73 26 0D &os&.
0000B0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
0000C0: 20 20 20 20 20 20 20 20 50 20 2D 20 50 72 69 6E P - Prin
0000D0: 74 2F 64 69 73 70 6C 61 79 20 72 65 63 6F 72 64 t/display record
0000E0: 73 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 s..>dm "
0000F0: 20 20 20 20 20 20 20 20 20 20 26 6F 6D 26 0D 0A &om&..
000100: 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 >dm "
000110: 20 20 20 20 20 20 20 26 6F 7A 26 0D 0A 3E 64 6D &oz&..>dm
000120: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000130: 20 20 20 20 26 6F 63 26 0D 0A 3E 64 6D 20 22 20 &oc&..>dm "
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 41 20 2D 20 41 64 64 20 6E 65 77 20 72 65 63 A - Add new rec
000160: 6F 72 64 73 20 74 6F 20 75 70 64 61 74 65 20 66 ords to update f
000170: 69 6C 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 ile..>dm "
000180: 20 20 20 20 20 20 20 20 20 20 20 20 55 20 2D 20 U -
000190: 4D 65 72 67 65 20 75 70 64 61 74 65 20 66 69 6C Merge update fil
0001A0: 65 20 69 6E 74 6F 20 6D 61 69 6E 20 66 69 6C 65 e into main file
0001B0: 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 ..>dm "
0001C0: 20 20 20 20 20 20 20 20 20 26 6F 6C 26 0D 0A 3E &ol&..>
0001D0: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0001E0: 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 20 63 E - Edit c
0001F0: 75 72 72 65 6E 74 20 66 69 6C 65 20 69 6E 66 6F urrent file info
Size : 512 (Real : 512)
000000: 22 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 "Typing anything
000010: 20 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 other than a nu
000020: 6D 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 mber will skip a
000030: 6C 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F ll remaining pro
000040: 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D ducts"..>dm " ".
000050: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
000060: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
000070: 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 ..>sv quant&n&="
000080: 30 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 0"..>un n=maxn..
000090: 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >>>..>sv n=0..>r
0000A0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
0000B0: 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 [w1]..>sv prompt
0000C0: 3D 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 =desc&n&..>if pr
0000D0: 6F 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 ompt[25]=""..>sv
0000E0: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 prompt=prompt+"
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
000110: 76 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B v prompt=prompt[
000120: 31 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 1:25]..>ei..>av
000130: 22 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D "&prompt& : " x.
000140: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
000150: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 =0..>ei..>sv qua
000160: 6E 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 nt&n&=x+0..>if x
000170: 3C 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 <>quant&n&..>sv
000180: 71 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 quant&n&="0"..>s
000190: 76 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D v n=maxn n=n[w1]
0001A0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 ..>ei..>if n=max
0001B0: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 n..>dm " "..>av
0001C0: 22 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 "Re-enter order
0001D0: 28 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 (y/N)? " yesno 1
0001E0: 0D 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D ..>if yesno="y".
0001F0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 .>sv n=0..>dm "
Size : 512 (Real : 512)
000000: 72 6D 61 74 69 6F 6E 0D 0A 3E 64 6D 20 22 20 20 rmation..>dm "
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 26 6F 64 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 &od&..>dm "
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2D I -
000040: 20 49 6E 69 74 69 61 6C 69 73 65 20 6E 65 77 20 Initialise new
000050: 64 61 74 61 66 69 6C 65 0D 0A 3E 64 6D 20 22 20 datafile..>dm "
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 4F 20 2D 20 50 72 6F 74 65 78 74 20 4F 66 66 O - Protext Off
000080: 69 63 65 20 6D 65 6E 75 0D 0A 3E 64 6D 20 22 20 ice menu..>dm "
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
0000B0: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
0000C0: 20 20 20 20 20 20 20 20 45 6E 74 65 72 20 6F 70 Enter op
0000D0: 74 69 6F 6E 20 6C 65 74 74 65 72 3A 20 22 20 6F tion letter: " o
0000E0: 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 66 pt 1..>>>..>sv f
0000F0: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
000100: 6E 5B 77 31 5D 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 n[w1]..>>>..>if
000110: 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 3D opt=""..>sv opt=
000120: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6F 70 " "..>ei..>if op
000130: 74 3D 22 6F 22 0D 0A 3E 65 78 20 65 78 65 63 20 t="o"..>ex exec
000140: 6F 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 3E om..>st..>ei..>>
000150: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
000160: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
000170: 3E 3E 20 4F 50 54 49 4F 4E 53 20 51 2C 45 2C 49 >> OPTIONS Q,E,I
000180: 2C 46 2C 41 2C 50 2C 55 20 3E 3E 3E 0D 0A 3E 3E ,F,A,P,U >>>..>>
000190: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0001A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
0001B0: 69 66 20 6F 70 74 20 69 6E 20 22 71 66 61 70 75 if opt in "qfapu
0001C0: 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 6F 70 "..>ex exec fmop
0001D0: 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 69 t&opt&..>st..>ei
0001E0: 0D 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 71 65 ..>if opt in "qe
0001F0: 69 66 61 70 75 22 0D 0A 3E 73 76 20 73 71 3D 22 ifapu"..>sv sq="
Size : 512 (Real : 512)
000000: 41 72 6E 6F 72 20 4C 74 64 2E 0D 0A 30 37 33 33 Arnor Ltd...0733
000010: 20 32 33 39 30 31 31 0D 0A 50 72 6F 74 65 78 74 239011..Protext
000020: 20 48 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E 20 House..Wainman
000030: 52 6F 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 Road..Peterborou
000040: 67 68 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A 0D gh..PE2 0BU.....
000050: 0A 1A 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E ..="Variable"..>
000060: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
000070: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
000080: 69 73 20 90 75 73 65 64 20 90 79 6F 75 20 90 77 is .used .you .w
000090: 69 6C 6C 20 90 62 65 20 90 61 73 6B 65 64 20 90 ill .be .asked .
0000A0: 74 6F 20 74 79 70 65 20 69 6E 20 61 20 0D 8A 66 to type in a ..f
0000B0: 69 6C 65 6E 61 6D 65 2E 20 0D 0A 3E 70 61 0D 0A ilename. ..>pa..
0000C0: 1A 52 00 5C 04 90 69 73 20 90 75 73 65 64 20 90 .R.\..is .used .
0000D0: 79 6F 75 20 90 77 69 6C 6C 20 90 62 65 20 90 61 you .will .be .a
0000E0: 73 6B 65 64 20 90 74 6F 20 74 79 70 65 20 69 6E sked .to type in
0000F0: 20 61 20 0D 8A 66 69 6C 65 6E 61 6D 65 2E 20 0D a ..filename. .
000100: 65 63 74 65 64 20 72 65 63 6F 72 64 73 20 61 70 ected records ap
000110: 70 65 61 72 2E 0D 0A 0D 0A 4E 6F 77 20 72 65 70 pear.....Now rep
000120: 65 61 74 20 74 68 69 73 2C 20 62 75 74 20 74 79 eat this, but ty
000130: 70 65 20 27 6E 27 20 90 74 6F 20 90 74 68 65 20 pe 'n' .to .the
000140: 6C 61 73 74 20 71 75 65 73 74 69 6F 6E 2E 20 54 last question. T
000150: 68 69 73 20 65 6E 61 62 6C 65 73 20 79 6F 75 20 his enables you
000160: 0D 8A 74 6F 20 73 65 6C 65 63 74 20 77 68 69 63 ..to select whic
000170: 68 20 66 69 65 6C 64 73 20 61 72 65 20 74 6F 20 h fields are to
000180: 62 65 20 64 69 73 70 6C 61 79 65 64 2E 20 52 65 be displayed. Re
000190: 70 6C 79 20 27 79 27 20 74 6F 20 74 68 65 20 66 ply 'y' to the f
0001A0: 69 72 73 74 20 74 77 6F 20 0D 8A 66 69 65 6C 64 irst two ..field
0001B0: 73 20 61 6E 64 20 27 6E 27 20 28 6F 72 20 70 72 s and 'n' (or pr
0001C0: 65 73 73 20 72 65 74 75 72 6E 29 20 74 6F 20 74 ess return) to t
0001D0: 68 65 20 72 65 73 74 2E 20 54 68 69 73 20 74 69 he rest. This ti
0001E0: 6D 65 20 6A 75 73 74 20 74 68 65 20 6E 61 6D 65 me just the name
0001F0: 73 20 0D 8A 61 6E 64 20 74 65 6C 65 70 68 6F 6E s ..and telephon
Size : 512 (Real : 512)
000000: 63 6C 65 61 72 7C 31 33 7C 79 7C 36 33 39 7C 7C clear|13|y|639||
000010: 37 36 34 7C 7C 37 36 36 7C 22 0D 0A 3E 73 76 20 764||766|"..>sv
000020: 73 65 3D 22 6C 20 66 6D 65 64 69 74 7C 31 33 7C se="l fmedit|13|
000030: 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E y|639||16|ps"..>
000040: 73 76 20 73 69 3D 22 6C 20 66 6D 69 6E 69 74 7C sv si="l fminit|
000050: 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C 70 73 22 13|y|639||16|ps"
000060: 0D 0A 3E 73 76 20 73 66 3D 22 6C 20 66 6D 66 69 ..>sv sf="l fmfi
000070: 6E 64 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 36 7C nd|13|y|639||16|
000080: 70 73 22 0D 0A 3E 73 76 20 73 61 3D 22 6C 20 66 ps"..>sv sa="l f
000090: 6D 61 64 64 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 madd|13|y|639||1
0000A0: 36 7C 70 73 22 0D 0A 3E 73 76 20 73 70 3D 22 6C 6|ps"..>sv sp="l
0000B0: 20 66 6D 70 72 69 6E 74 7C 31 33 7C 79 7C 36 33 fmprint|13|y|63
0000C0: 39 7C 7C 31 36 7C 70 22 0D 0A 3E 73 76 20 73 75 9||16|p"..>sv su
0000D0: 3D 22 6C 20 66 6D 6D 65 72 67 65 7C 31 33 7C 79 ="l fmmerge|13|y
0000E0: 7C 36 33 39 7C 7C 31 36 7C 70 73 22 0D 0A 3E 73 |639||16|ps"..>s
0000F0: 76 20 73 3D 73 26 6F 70 74 26 0D 0A 3E 3E 3E 20 v s=s&opt&..>>>
000100: 6E 6F 74 65 20 65 78 65 63 20 6E 6F 74 20 69 6E note exec not in
000110: 20 70 72 6F 67 72 65 73 73 20 68 65 72 65 0D 0A progress here..
000120: 3E 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 >id cpm..>cf..>d
000130: 66 20 66 6D 24 70 66 69 24 09 3B 20 68 61 6E 64 f fm$pfi$.; hand
000140: 6C 65 20 30 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 le 0..>ei..>wf f
000150: 6D 2E 78 09 3B 20 68 61 6E 64 6C 65 20 31 0D 0A m.x.; handle 1..
000160: 3E 77 6D 20 22 26 73 26 22 0D 0A 3E 77 63 0D 0A >wm "&s&"..>wc..
000170: 3E 63 66 09 09 3B 20 66 72 65 65 20 68 61 6E 64 >cf..; free hand
000180: 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 20 66 le 0..>ex exec f
000190: 6D 2E 78 09 3B 20 67 65 74 73 20 68 61 6E 64 6C m.x.; gets handl
0001A0: 65 20 30 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 e 0..>st..>ei ;
0001B0: 6F 70 74 20 69 6E 20 22 71 65 69 7A 66 61 70 75 opt in "qeizfapu
0001C0: 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E "..>>>>>>>>>>>>>
0001D0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0001E0: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 63 6C 65 61 72 20 >>>>..>>> clear
0001F0: 73 63 72 65 65 6E 2C 20 70 72 69 6E 74 20 74 69 screen, print ti
Size : 512 (Real : 512)
000000: 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 4&"'..>wm '"&rul
000010: 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F er5&"'..>wm '!co
000020: 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F name!'..>wm '!co
000030: 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 addr1!'..>wm '!c
000040: 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 oaddr2!'..>wm '!
000050: 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 coaddr3!'..>wm '
000060: 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 !coaddr4!'..>wm
000070: 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 '!coaddr5!'..>wc
000080: 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F ..>cf..>ex era o
000090: 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 minvgen.inf..>id
0000A0: 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D cpm..>ex ren om
0000B0: 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D invgen.inf omtem
0000C0: 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 p.inf..>el..>ex
0000D0: 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F ren omtemp.inf o
0000E0: 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 minvgen.inf..>ei
0000F0: 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B ..>df omenu..>sk
000100: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 0=0..>ei ; opt=
000110: 22 65 22 0D 0A 1A 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E "e"...>..>>>..>>
000120: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000130: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000140: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000150: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000160: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000170: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
0001A0: 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D ------L-------.-
0001B0: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 ---------------R
Size : 512 (Real : 512)
000000: 6F 61 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 73 76 6E oa5!...>ei..>svn
000010: 3D 61 6C 2D 63 61 6C 2D 36 0D 0A 3E 72 70 0D 0A =al-cal-6..>rp..
000020: 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D 0A !sc!..>svn=n-1..
000030: 3E 75 6E 6E 3C 3D 30 0D 0A 21 73 63 21 21 61 30 >unn<=0..!sc!!a0
000040: 21 0D 0A 21 73 63 21 21 61 31 21 0D 0A 21 73 63 !..!sc!!a1!..!sc
000050: 21 21 61 32 21 0D 0A 21 73 63 21 21 61 33 21 09 !!a2!..!sc!!a3!.
000060: EC 26 74 26 EC 0D 0A 21 73 63 21 21 61 34 21 09 .&t&...!sc!!a4!.
000070: 0D 0A 21 73 63 21 21 61 35 21 09 44 61 74 65 20 ..!sc!!a5!.Date
000080: 20 20 20 20 20 20 26 68 26 0D 0A 21 73 63 21 21 &h&..!sc!!
000090: 61 36 21 0D 0A 21 73 63 21 21 61 37 21 0D 0A 3E a6!..!sc!!a7!..>
0000A0: 73 76 6E 3D 74 6C 2D 61 6C 2D 38 0D 0A 3E 72 70 svn=tl-al-8..>rp
0000B0: 0D 0A 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 ..!sc!..>svn=n-1
0000C0: 0D 0A 3E 75 6E 6E 3C 3D 30 0D 0A 3E 77 66 6F 6E ..>unn<=0..>wfon
0000D0: 0D 0A 26 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A ..&r2&..>wfoff..
0000E0: 21 73 63 21 44 41 54 45 09 49 4E 56 4F 49 43 45 !sc!DATE.INVOICE
0000F0: 20 4E 4F 2E 09 20 20 20 44 45 42 49 54 09 20 20 NO.. DEBIT.
000100: 43 52 45 44 49 54 09 42 41 4C 41 4E 43 45 0D 0A CREDIT.BALANCE..
000110: 3E 77 66 6F 6E 0D 0A 26 72 33 26 0D 0A 3E 77 66 >wfon..&r3&..>wf
000120: 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D off..!sc!..>svb=
000130: 69 6E 66 6F 6C 73 0D 0A 3E 64 6D 22 45 6E 74 65 infols..>dm"Ente
000140: 72 20 64 65 74 61 69 6C 73 20 28 52 45 54 55 52 r details (RETUR
000150: 4E 20 74 6F 20 65 6E 64 29 3A 20 0D 0A 3E 64 6D N to end): ..>dm
000160: 22 20 0D 0A 3E 72 70 0D 0A 3E 61 76 22 4F 70 65 " ..>rp..>av"Ope
000170: 6E 69 6E 67 20 62 61 6C 61 6E 63 65 20 28 2D 20 ning balance (-
000180: 66 6F 72 20 63 72 65 64 69 74 29 3A 20 A3 22 20 for credit): ."
000190: 78 0D 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 x..>if x=""..>sv
0001A0: 20 78 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 x=0..>ei..>sv t
0001B0: 6F 74 3D 78 2B 30 0D 0A 3E 75 6E 20 74 6F 74 3D ot=x+0..>un tot=
0001C0: 78 0D 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A 21 x..>if tot<>0..!
0001D0: 73 63 21 43 61 72 72 69 65 64 20 66 77 64 2E 09 sc!Carried fwd..
0001E0: 09 09 09 26 74 6F 74 26 0D 0A 3E 73 76 62 3D 62 ...&tot&..>svb=b
0001F0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 64 -1..>ei..>rp..>d
Size : 512 (Real : 512)
000000: 70 74 20 69 6E 20 22 6D 75 73 22 0D 0A 3E 64 6D pt in "mus"..>dm
000010: 20 22 20 22 0D 0A 3E 69 66 20 6D 75 73 6F 70 74 " "..>if musopt
000020: 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 3D 22 20 22 =""..>sv opt=" "
000030: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 6F 70 ..>ei..>if musop
000040: 74 3D 22 6D 22 0D 0A 3E 73 76 20 6D 75 73 66 69 t="m"..>sv musfi
000050: 6C 65 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 le=df..>ei..>if
000060: 6D 75 73 6F 70 74 3D 22 75 22 0D 0A 3E 73 76 20 musopt="u"..>sv
000070: 6D 75 73 66 69 6C 65 3D 6E 65 77 66 69 6C 65 0D musfile=newfile.
000080: 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 6F 70 74 .>ei..>if musopt
000090: 3D 22 73 22 0D 0A 3E 73 76 20 6D 75 73 66 69 6C ="s"..>sv musfil
0000A0: 65 3D 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A e=selfile..>ei..
0000B0: 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >ei..>>>>>>>>>>>
0000C0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0000D0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 >>>>>>>>>>..>>>
0000E0: 69 66 20 77 65 20 6E 65 65 64 20 66 69 65 6C 64 if we need field
0000F0: 20 6C 69 73 74 20 3D 20 66 6C 69 73 74 20 3E 3E list = flist >>
000100: 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >..>>>>>>>>>>>>>
000110: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
000120: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
000130: 74 20 69 6E 20 22 63 6C 73 7A 22 0D 0A 3E 69 66 t in "clsz"..>if
000140: 20 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 fv="f"..>sv fli
000150: 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E st=">ru"..>el..>
000160: 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A sv flist=">rv"..
000170: 3E 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >ei..>sv n=0..>r
000180: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000190: 5B 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D [w1]..>sv flist=
0001A0: 66 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E flist+" f&n&"..>
0001B0: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D un n>=rlen..>ei.
0001C0: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
0001D0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0001E0: 0A 3E 3E 3E 20 69 66 20 77 65 20 6E 65 65 64 20 .>>> if we need
0001F0: 74 6F 20 64 6F 20 61 20 63 61 74 20 3E 3E 3E 0D to do a cat >>>.
Size : 512 (Real : 512)
000000: 6D 20 22 20 0D 0A 3E 61 76 22 54 72 61 6E 73 61 m " ..>av"Transa
000010: 63 74 69 6F 6E 20 64 61 74 65 3A 20 22 20 63 6E ction date: " cn
000020: 0D 0A 3E 69 66 63 6E 3E 22 22 0D 0A 3E 61 76 22 ..>ifcn>""..>av"
000030: 49 6E 76 6F 69 63 65 20 6E 75 6D 62 65 72 3A 20 Invoice number:
000040: 22 20 65 6E 0D 0A 3E 61 76 22 41 6D 6F 75 6E 74 " en..>av"Amount
000050: 20 28 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A (- for credit):
000060: 20 A3 22 20 78 0D 0A 3E 73 76 20 71 6E 3D 78 2B ." x..>sv qn=x+
000070: 30 0D 0A 3E 69 66 20 71 6E 3C 3E 78 0D 0A 3E 64 0..>if qn<>x..>d
000080: 6D 22 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 m"Please re-ente
000090: 72 0D 0A 3E 73 76 63 6E 3D 22 20 22 20 75 70 3D r..>svcn=" " up=
0000A0: 22 22 20 71 6E 3D 30 0D 0A 3E 65 6C 0D 0A 3E 69 "" qn=0..>el..>i
0000B0: 66 71 6E 3C 30 0D 0A 3E 73 76 75 70 3D 30 2D 71 fqn<0..>svup=0-q
0000C0: 6E 20 71 6E 3D 22 22 20 74 6F 74 3D 74 6F 74 2D n qn="" tot=tot-
0000D0: 75 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 71 6E 3D 30 up..>el..>svqn=0
0000E0: 2B 71 6E 20 75 70 3D 22 22 20 74 6F 74 3D 74 6F +qn up="" tot=to
0000F0: 74 2B 71 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A t+qn..>ei..>ei..
000100: 3E 69 66 20 71 6E 3C 3E 30 0D 0A 21 73 63 21 26 >if qn<>0..!sc!&
000110: 63 6E 26 09 26 65 6E 26 09 26 71 6E 26 09 26 75 cn&.&en&.&qn&.&u
000120: 70 26 09 26 74 6F 74 26 0D 0A 3E 65 69 0D 0A 3E p&.&tot&..>ei..>
000130: 73 76 62 3D 62 2D 31 0D 0A 3E 65 69 0D 0A 3E 75 svb=b-1..>ei..>u
000140: 6E 63 6E 3D 22 22 0D 0A 3E 69 66 62 3E 30 0D 0A ncn=""..>ifb>0..
000150: 3E 72 70 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D >rp..!sc!..>svb=
000160: 62 2D 31 0D 0A 3E 75 6E 62 3D 30 0D 0A 3E 65 69 b-1..>unb=0..>ei
000170: 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A ..!sc! ..!sc! ..
000180: 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 !sc! ..!sc! ..!s
000190: 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 c! ..!sc! ..!sc!
0001A0: 20 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 35 26 0D 0A ..>wfon..&r5&..
0001B0: 3E 77 66 6F 66 66 0D 0A 3E 69 66 66 6F 3E 22 22 >wfoff..>iffo>""
0001C0: 0D 0A 21 73 63 21 26 66 6F 26 0D 0A 3E 65 6C 0D ..!sc!&fo&..>el.
0001D0: 0A 21 73 63 21 54 68 65 20 61 6D 6F 75 6E 74 20 .!sc!The amount
0001E0: 64 75 65 20 69 73 20 74 68 65 20 6C 61 73 74 20 due is the last
0001F0: 66 69 67 75 72 65 20 69 6E 20 74 68 65 20 27 42 figure in the 'B
Size : 512 (Real : 512)
000000: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
000010: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
000020: 0A 3E 69 66 20 6F 70 74 20 69 6E 20 22 64 6D 22 .>if opt in "dm"
000030: 0D 0A 3E 73 76 20 6D 64 3D 22 64 61 74 61 22 20 ..>sv md="data"
000040: 65 78 74 64 3D 22 2E 50 46 49 22 20 61 64 3D 22 extd=".PFI" ad="
000050: 63 68 61 6E 67 65 20 74 6F 22 0D 0A 3E 73 76 20 change to"..>sv
000060: 6D 6D 3D 22 6D 61 69 6C 20 6D 65 72 67 65 22 20 mm="mail merge"
000070: 65 78 74 6D 3D 22 2E 50 4D 4D 22 20 61 6D 3D 22 extm=".PMM" am="
000080: 70 72 69 6E 74 22 0D 0A 3E 73 76 20 6D 3D 6D 26 print"..>sv m=m&
000090: 6F 70 74 26 20 65 78 74 3D 65 78 74 26 6F 70 74 opt& ext=ext&opt
0000A0: 26 20 61 3D 61 26 6F 70 74 26 0D 0A 3E 64 6D 20 & a=a&opt&..>dm
0000B0: 22 41 76 61 69 6C 61 62 6C 65 20 26 6D 26 20 66 "Available &m& f
0000C0: 69 6C 65 73 20 61 72 65 20 6C 69 73 74 65 64 20 iles are listed
0000D0: 62 65 6C 6F 77 20 28 77 69 74 68 20 26 65 78 74 below (with &ext
0000E0: 26 20 65 78 74 65 6E 73 69 6F 6E 29 22 0D 0A 3E & extension)"..>
0000F0: 64 6D 20 22 20 22 0D 0A 3E 65 78 20 63 61 74 20 dm " "..>ex cat
000100: 2A 26 65 78 74 26 0D 0A 3E 64 6D 20 22 20 22 0D *&ext&..>dm " ".
000110: 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 .>av "Enter name
000120: 20 6F 66 20 26 6D 26 20 66 69 6C 65 20 74 6F 20 of &m& file to
000130: 26 61 26 3A 20 22 20 63 61 74 66 20 31 32 0D 0A &a&: " catf 12..
000140: 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 63 61 74 >dm " "..>sv cat
000150: 66 3D 63 61 74 66 5B 77 31 5D 0D 0A 3E 69 66 20 f=catf[w1]..>if
000160: 63 61 74 66 3D 22 22 0D 0A 3E 73 76 20 6F 70 74 catf=""..>sv opt
000170: 3D 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 63 61 =""..>el..>sv ca
000180: 74 66 3D 63 61 74 66 2B 65 78 74 0D 0A 3E 64 66 tf=catf+ext..>df
000190: 20 26 63 61 74 66 26 20 3B 20 63 68 65 63 6B 20 &catf& ; check
0001A0: 65 78 69 73 74 65 6E 63 65 0D 0A 3E 63 66 0D 0A existence..>cf..
0001B0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E >ei..>ei..>>>>>>
0001C0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 >>>>>>>>>>..>>>
0001D0: 4F 50 54 49 4F 4E 20 53 20 3E 3E 3E 0D 0A 3E 3E OPTION S >>>..>>
0001E0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
0001F0: 3E 69 66 20 6F 70 74 3D 22 73 22 0D 0A 3E 64 6D >if opt="s"..>dm
Size : 512 (Real : 512)
000000: 41 4C 41 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A ALANCE' column..
000010: 3E 65 69 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E >ei..!sc!E. & O.
000020: 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 E...>if prconame
000030: 3D 22 79 22 0D 0A 21 73 63 21 56 41 54 20 72 65 ="y"..!sc!VAT re
000040: 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D g. no. &vatnum&.
000050: 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3D 22 .>ei..>ific[2]="
000060: 22 0D 0A 3E 70 61 0D 0A 3E 65 69 0D 0A 3E 69 66 "..>pa..>ei..>if
000070: 69 63 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 63 0D ic[2]<>"f"..>wc.
000080: 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F .>cf..>ex exec o
000090: 6D 0D 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D m..>st " "..>ei.
0000A0: 0A 3E 73 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E .>svfn=ic[w2]+".
0000B0: 70 6F 73 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 pos"..>av"Send t
0000C0: 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 o printer or scr
0000D0: 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 een (P/s)? " x 1
0000E0: 0D 0A 3E 77 63 0D 0A 3E 69 64 20 63 70 6D 0D 0A ..>wc..>id cpm..
0000F0: 3E 64 66 20 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 >df om..>ei..>wf
000100: 20 6F 6D 2E 78 0D 0A 3E 69 66 78 3D 22 73 22 0D om.x..>ifx="s".
000110: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
000120: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
000130: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
000140: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
000150: 6E 75 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 nu|13|ps|13|..>e
000160: 6C 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 26 66 6E l..>wm "load &fn
000170: 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 &|13|doc|13||766
000180: 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 |p|13|load omenu
000190: 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D |13|ps|13|..>ei.
0001A0: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
0001B0: 78 65 63 20 6F 6D 2E 78 0D 0A 1A 79 73 5F 76 65 xec om.x...ys_ve
0001C0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0001D0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0001E0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
0001F0: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
Size : 512 (Real : 512)
000000: 20 22 53 65 6C 65 63 74 69 6F 6E 73 20 63 61 6E "Selections can
000010: 20 62 65 20 6D 61 64 65 20 66 72 6F 6D 20 74 68 be made from th
000020: 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 63 61 73 65 e following case
000030: 73 3A 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 s:"..>dm " "..>d
000040: 6D 20 22 20 31 20 2D 20 20 63 6F 6E 64 31 20 20 m " 1 - cond1
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 28 73 69 6D 70 6C 65 29 (simple)
000070: 0D 0A 3E 64 6D 20 22 20 32 20 2D 20 20 63 6F 6E ..>dm " 2 - con
000080: 64 31 20 4F 52 20 20 63 6F 6E 64 32 0D 0A 3E 64 d1 OR cond2..>d
000090: 6D 20 22 20 33 20 2D 20 20 63 6F 6E 64 31 20 4F m " 3 - cond1 O
0000A0: 52 20 20 63 6F 6E 64 32 20 20 4F 52 20 20 63 6F R cond2 OR co
0000B0: 6E 64 33 0D 0A 3E 64 6D 20 22 20 34 20 2D 20 20 nd3..>dm " 4 -
0000C0: 63 6F 6E 64 31 20 41 4E 44 20 63 6F 6E 64 32 0D cond1 AND cond2.
0000D0: 0A 3E 64 6D 20 22 20 35 20 2D 20 20 63 6F 6E 64 .>dm " 5 - cond
0000E0: 31 20 41 4E 44 20 63 6F 6E 64 32 20 20 41 4E 44 1 AND cond2 AND
0000F0: 20 63 6F 6E 64 33 0D 0A 3E 64 6D 20 22 20 36 20 cond3..>dm " 6
000100: 2D 20 28 63 6F 6E 64 31 20 4F 52 20 20 63 6F 6E - (cond1 OR con
000110: 64 32 29 20 41 4E 44 20 63 6F 6E 64 33 0D 0A 3E d2) AND cond3..>
000120: 64 6D 20 22 20 37 20 2D 20 28 63 6F 6E 64 31 20 dm " 7 - (cond1
000130: 41 4E 44 20 63 6F 6E 64 32 29 20 4F 52 20 20 63 AND cond2) OR c
000140: 6F 6E 64 33 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ond3..>dm " "..>
000150: 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 74 rp..>av "Enter t
000160: 79 70 65 20 6F 66 20 73 65 6C 65 63 74 69 6F 6E ype of selection
000170: 20 5B 31 20 74 6F 20 37 5D 3A 20 22 20 74 20 31 [1 to 7]: " t 1
000180: 0D 0A 3E 69 66 20 74 3D 22 22 0D 0A 3E 73 76 20 ..>if t=""..>sv
000190: 74 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 t="0"..>ei..>un
0001A0: 74 20 69 6E 20 22 31 32 33 34 35 36 37 22 0D 0A t in "1234567"..
0001B0: 3E 64 6D 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 >dm " "..>cf..>d
0001C0: 66 20 66 6D 2E 6D 75 73 09 3B 20 68 61 6E 64 6C f fm.mus.; handl
0001D0: 65 20 30 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 69 e 0..>rv mus..>i
0001E0: 66 20 6D 75 73 6F 70 74 3C 3E 6D 75 73 0D 0A 3E f musopt<>mus..>
0001F0: 77 66 20 66 6D 2E 6D 75 73 09 3B 20 68 61 6E 64 wf fm.mus.; hand
Size : 512 (Real : 512)
000000: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
000010: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
000020: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
000030: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
000040: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
000050: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
000060: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
000070: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
000080: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
000090: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
0000A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
0000B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
0000C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0000D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
0000E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
0000F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
000100: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
000110: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
000120: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
000130: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
000140: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
000150: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
000160: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
000170: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
000180: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
000190: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
0001A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
0001B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
0001C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
0001D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
0001E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
0001F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
Size : 512 (Real : 512)
000000: 6C 65 20 31 0D 0A 3E 77 6D 20 26 6D 75 73 6F 70 le 1..>wm &musop
000010: 74 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 t&..>wc..>ei..>w
000020: 66 20 66 6D 2E 78 09 3B 20 68 61 6E 64 6C 65 20 f fm.x.; handle
000030: 31 0D 0A 3E 77 6D 20 22 6C 20 66 6D 73 74 79 70 1..>wm "l fmstyp
000040: 65 26 74 26 7C 31 33 7C 79 7C 36 33 39 7C 7C 31 e&t&|13|y|639||1
000050: 36 7C 70 73 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 6|ps"..>wc..>cf.
000060: 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 65 .; let exec have
000070: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 handle 0..>ex e
000080: 78 65 63 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E xec fm.x..>st..>
000090: 65 69 20 3B 20 6F 70 74 3D 22 73 22 0D 0A 3E 3E ei ; opt="s"..>>
0000A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
0000B0: 3E 3E 3E 20 4F 50 54 49 4F 4E 20 43 20 3E 3E 3E >>> OPTION C >>>
0000C0: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
0000D0: 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 63 22 0D >>..>if opt="c".
0000E0: 0A 3E 64 66 20 26 6D 75 73 66 69 6C 65 26 20 66 .>df &musfile& f
0000F0: 6F 24 65 6E 64 24 0D 0A 3E 64 6D 20 22 43 6F 75 o$end$..>dm "Cou
000100: 6E 74 69 6E 67 20 2E 2E 2E 20 22 0D 0A 3E 64 6D nting ... "..>dm
000110: 20 22 20 22 0D 0A 3E 73 76 20 63 3D 22 2D 31 22 " "..>sv c="-1"
000120: 0D 0A 3E 72 70 0D 0A 26 66 6C 69 73 74 26 0D 0A ..>rp..&flist&..
000130: 3E 73 76 20 63 3D 63 2B 31 0D 0A 3E 75 6E 20 66 >sv c=c+1..>un f
000140: 31 3D 22 65 6E 64 22 0D 0A 3E 63 66 0D 0A 3E 73 1="end"..>cf..>s
000150: 76 20 63 3D 63 5B 77 31 5D 0D 0A 3E 64 6D 20 22 v c=c[w1]..>dm "
000160: 4E 75 6D 62 65 72 20 6F 66 20 72 65 63 6F 72 64 Number of record
000170: 73 3A 20 26 63 26 22 0D 0A 3E 64 6D 20 22 20 22 s: &c&"..>dm " "
000180: 0D 0A 3E 73 76 20 6F 70 74 3D 22 77 74 22 0D 0A ..>sv opt="wt"..
000190: 3E 65 69 20 3B 20 6F 70 74 3D 22 63 22 0D 0A 3E >ei ; opt="c"..>
0001A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0001B0: 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 3E 3E .>>> OPTION L >>
0001C0: 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >..>>>>>>>>>>>>>
0001D0: 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 6C 22 >>>..>if opt="l"
0001E0: 0D 0A 3E 64 6D 20 22 44 61 74 61 66 69 6C 65 3A ..>dm "Datafile:
0001F0: 20 20 20 20 20 20 20 20 20 20 20 26 64 66 26 22 &df&"
Size : 512 (Real : 512)
000000: 74 6C 65 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E tle >>>..>>>>>>>
000010: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
000020: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 >>>>>>>>>>..>if
000030: 6F 70 74 20 69 6E 20 22 63 6C 73 7A 64 6D 22 0D opt in "clszdm".
000040: 0A 3E 73 76 20 6F 6F 3D 6F 26 6F 70 74 26 0D 0A .>sv oo=o&opt&..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
000060: 74 69 6F 6E 20 26 6F 6F 26 22 0D 0A 3E 64 6D 20 tion &oo&"..>dm
000070: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 3E 3E 3E " "..>ei..>>>>>>
000080: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
000090: 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 4D 20 55 .>>> ask for M U
0000A0: 20 53 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E S >>>..>>>>>>>>
0000B0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E >>>>>>>>>>>>>..>
0000C0: 69 66 20 6F 70 74 20 69 6E 20 22 63 73 7A 6D 22 if opt in "cszm"
0000D0: 0D 0A 3E 73 76 20 6D 75 73 73 3D 22 73 65 6C 65 ..>sv muss="sele
0000E0: 63 74 20 66 72 6F 6D 22 0D 0A 3E 73 76 20 6D 75 ct from"..>sv mu
0000F0: 73 63 3D 22 63 6F 75 6E 74 22 0D 0A 3E 73 76 20 sc="count"..>sv
000100: 6D 75 73 7A 3D 22 73 6F 72 74 22 0D 0A 3E 73 76 musz="sort"..>sv
000110: 20 6D 75 73 6D 3D 22 6D 61 69 6C 20 6D 65 72 67 musm="mail merg
000120: 65 22 0D 0A 3E 73 76 20 73 3D 6D 75 73 26 6F 70 e"..>sv s=mus&op
000130: 74 26 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 t&..>dm " M -
000140: 4D 61 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 Main data file (
000150: 26 64 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A &df&)..>dm " "..
000160: 3E 64 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 >dm " U - Upda
000170: 74 65 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 te file (&new
000180: 66 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D file&)..>dm " ".
000190: 0A 3E 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C .>dm " S - Sel
0001A0: 65 63 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 ection file (&se
0001B0: 6C 66 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 lfile&)..>dm " "
0001C0: 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 ..>rp..>av "Ente
0001D0: 72 20 64 61 74 61 20 66 69 6C 65 20 74 6F 20 26 r data file to &
0001E0: 73 26 20 5B 6D 2F 75 2F 73 5D 3A 20 22 20 6D 75 s& [m/u/s]: " mu
0001F0: 73 6F 70 74 20 31 0D 0A 3E 75 6E 20 6D 75 73 6F sopt 1..>un muso
Size : 512 (Real : 512)
000000: 0D 0A 3E 64 6D 20 22 55 70 64 61 74 65 20 66 69 ..>dm "Update fi
000010: 6C 65 6E 61 6D 65 3A 20 20 20 20 26 6E 65 77 66 lename: &newf
000020: 69 6C 65 26 0D 0A 3E 64 6D 20 22 53 65 6C 65 63 ile&..>dm "Selec
000030: 74 69 6F 6E 20 66 69 6C 65 6E 61 6D 65 3A 20 26 tion filename: &
000040: 73 65 6C 66 69 6C 65 26 0D 0A 3E 64 6D 20 22 20 selfile&..>dm "
000050: 22 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 3E "..>if fv="f"..>
000060: 64 6D 20 22 46 69 78 65 64 20 72 65 63 6F 72 64 dm "Fixed record
000070: 20 73 69 7A 65 2C 20 63 6F 6E 73 69 73 74 69 6E size, consistin
000080: 67 20 6F 66 20 26 72 6C 65 6E 26 20 66 69 65 6C g of &rlen& fiel
000090: 64 73 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D 20 22 56 ds"..>el..>dm "V
0000A0: 61 72 69 61 62 6C 65 20 72 65 63 6F 72 64 20 73 ariable record s
0000B0: 69 7A 65 2C 20 63 6F 6E 73 69 73 74 69 6E 67 20 ize, consisting
0000C0: 6F 66 20 75 70 20 74 6F 20 26 72 6C 65 6E 26 20 of up to &rlen&
0000D0: 66 69 65 6C 64 73 22 0D 0A 3E 65 69 0D 0A 3E 64 fields"..>ei..>d
0000E0: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 46 69 65 6C m " "..>dm "Fiel
0000F0: 64 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 d names: "..>sv
000100: 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D n=0..>rp..>sv n=
000110: 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 n+1 n=n[w1]..>sv
000120: 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E s=n&n&..>dm f&n
000130: 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 72 &: &s&..>un n>=r
000140: 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 73 len..>dm " "..>s
000150: 76 20 6F 70 74 3D 22 77 74 22 0D 0A 3E 65 69 20 v opt="wt"..>ei
000160: 3B 20 6F 70 74 3D 22 6C 22 0D 0A 3E 3E 3E 3E 3E ; opt="l"..>>>>>
000170: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E >>>>>>>>>>>..>>>
000180: 20 4F 50 54 49 4F 4E 20 5A 20 3E 3E 3E 0D 0A 3E OPTION Z >>>..>
000190: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0001A0: 0A 3E 69 66 20 6F 70 74 3D 22 7A 22 0D 0A 3E 72 .>if opt="z"..>r
0001B0: 70 0D 0A 3E 61 76 20 22 55 73 65 20 6F 70 74 69 p..>av "Use opti
0001C0: 6F 6E 73 20 28 26 66 73 6F 72 74 6F 70 74 73 26 ons (&fsortopts&
0001D0: 29 20 5B 59 2F 6E 5D 3F 20 22 20 79 6E 0D 0A 3E ) [Y/n]? " yn..>
0001E0: 75 6E 20 79 6E 20 69 6E 20 22 79 6E 22 0D 0A 3E un yn in "yn"..>
0001F0: 69 66 20 79 6E 3D 22 22 0D 0A 3E 73 76 20 79 6E if yn=""..>sv yn
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 20 3B 20 6D 69 73 73 20 6F 6E >id df ; miss on
000010: 20 66 69 72 73 74 20 70 61 73 73 0D 0A 3E 3E 3E first pass..>>>
000020: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>dm " "..>dm "
000030: 46 69 65 6C 64 20 6E 61 6D 65 73 3A 20 22 0D 0A Field names: "..
000040: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000050: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000060: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
000070: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
000080: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
000090: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
0000A0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
0000B0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
0000C0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
0000D0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
0000E0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
0000F0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
000100: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000110: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
000120: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
000130: 6C 65 6E 3D 6D 61 78 20 76 6C 65 6E 3D 6D 61 78 len=max vlen=max
000140: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000150: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 69 66 20 70 61 n=n[w1]..>if pa
000160: 64 3D 22 79 22 0D 0A 3E 73 76 20 76 26 6E 26 3D d="y"..>sv v&n&=
000170: 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 70 ""..>el..>sv s=p
000180: 26 6E 26 0D 0A 3E 61 76 20 22 26 73 26 22 20 76 &n&..>av "&s&" v
000190: 26 6E 26 0D 0A 3E 69 66 20 66 76 3D 22 76 22 0D &n&..>if fv="v".
0001A0: 0A 3E 69 66 20 76 26 6E 26 3D 22 22 0D 0A 3E 73 .>if v&n&=""..>s
0001B0: 76 20 70 61 64 3D 22 79 22 20 76 6C 65 6E 3D 6E v pad="y" vlen=n
0001C0: 20 63 68 6B 6C 65 6E 3D 6E 2D 31 0D 0A 3E 65 69 chklen=n-1..>ei
0001D0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 ..>ei..>ei..>un
0001E0: 6E 3E 3D 6D 61 78 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n>=max..>>>..>dm
0001F0: 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 " "..>rp..>av "
Size : 512 (Real : 512)
000000: 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 ="y"..>ei..>dm "
000010: 20 22 0D 0A 3E 73 76 20 6F 70 74 73 3D 66 73 6F "..>sv opts=fso
000020: 72 74 6F 70 74 73 0D 0A 3E 69 66 20 79 6E 3D 22 rtopts..>if yn="
000030: 6E 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 66 n"..>av "Enter f
000040: 73 6F 72 74 20 6F 70 74 69 6F 6E 73 3A 20 22 20 sort options: "
000050: 6F 70 74 73 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E opts..>dm " "..>
000060: 65 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 ei..>id cpm..>df
000070: 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 6F 70 fm$pfi$..>sv op
000080: 74 73 3D 6F 70 74 73 2B 22 20 2F 6A 22 09 3B 20 ts=opts+" /j".;
000090: 73 6F 20 64 6F 65 73 20 70 72 6F 74 65 78 74 20 so does protext
0000A0: 3C 66 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D <fm..>ei..>wf fm
0000B0: 2E 78 0D 0A 3E 77 6D 20 22 63 6C 65 61 72 7C 31 .x..>wm "clear|1
0000C0: 33 7C 79 7C 36 33 39 7C 7C 37 36 34 7C 7C 37 36 3|y|639||764||76
0000D0: 36 7C 2A 66 73 6F 72 74 20 26 6D 75 73 66 69 6C 6|*fsort &musfil
0000E0: 65 26 20 26 6F 70 74 73 26 7C 31 33 7C 3B 20 50 e& &opts&|13|; P
0000F0: 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F ress a key to co
000100: 6E 74 69 6E 75 65 20 2E 2E 2E 7C 31 33 7C 70 61 ntinue ...|13|pa
000110: 75 73 65 7C 31 33 7C 65 78 65 63 20 66 6D 7C 31 use|13|exec fm|1
000120: 33 7C 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 20 3|"..>wc..>cf.;
000130: 6C 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 let exec have ha
000140: 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 ndle 0..>ex exec
000150: 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 69 20 fm.x..>st..>ei
000160: 3B 20 6F 70 74 3D 22 7A 22 0D 0A 3E 3E 3E 3E 3E ; opt="z"..>>>>>
000170: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E >>>>>>>>>>>..>>>
000180: 20 4F 50 54 49 4F 4E 20 44 20 3E 3E 3E 0D 0A 3E OPTION D >>>..>
000190: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D >>>>>>>>>>>>>>>.
0001A0: 0A 3E 69 66 20 6F 70 74 3D 22 64 22 0D 0A 3E 69 .>if opt="d"..>i
0001B0: 64 20 63 70 6D 0D 0A 3E 65 78 20 63 6F 70 79 20 d cpm..>ex copy
0001C0: 26 63 61 74 66 26 20 66 6D 24 70 66 69 24 0D 0A &catf& fm$pfi$..
0001D0: 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 65 6C >in fm$pfi$..>el
0001E0: 0D 0A 3E 69 6E 20 26 63 61 74 66 26 0D 0A 3E 77 ..>in &catf&..>w
0001F0: 66 20 66 6D 24 70 66 69 24 0D 0A 3E 77 6D 20 27 f fm$pfi$..>wm '
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 43 6F 72 72 65 63 74 20 Correct
000010: 5B 59 2F 6E 5D 3F 20 22 20 63 6F 72 72 20 31 0D [Y/n]? " corr 1.
000020: 0A 3E 69 66 20 63 6F 72 72 3D 22 22 0D 0A 3E 73 .>if corr=""..>s
000030: 76 20 63 6F 72 72 3D 22 79 22 0D 0A 3E 65 69 0D v corr="y"..>ei.
000040: 0A 3E 75 6E 20 63 6F 72 72 20 69 6E 20 22 79 6E .>un corr in "yn
000050: 22 0D 0A 3E 69 66 20 63 6F 72 72 3D 22 6E 22 0D "..>if corr="n".
000060: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 0D 0A 3E .>sk 0=0..>ei..>
000070: 3E 3E 20 69 66 20 22 2C 22 20 22 27 22 20 6F 72 >> if "," "'" or
000080: 20 27 22 27 20 63 61 6E 20 77 65 20 61 64 64 20 '"' can we add
000090: 71 75 6F 74 65 73 3F 3F 0D 0A 3E 73 76 20 6E 3D quotes??..>sv n=
0000A0: 30 20 78 3D 22 30 22 0D 0A 3E 72 70 0D 0A 3E 73 0 x="0"..>rp..>s
0000B0: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0000C0: 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E 69 66 .>sv s=v&n&..>if
0000D0: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
0000E0: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
0000F0: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
000100: 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 27 22 27 1"..>el..>if '"'
000110: 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 31 22 in s..>sv x="1"
000120: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D ..>ei..>ei..>ei.
000130: 0A 3E 69 66 20 78 3D 22 31 22 0D 0A 3E 69 66 20 .>if x="1"..>if
000140: 27 22 27 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 76 '"' notin s..>sv
000150: 20 76 26 6E 26 3D 27 22 27 2B 73 2B 27 22 27 0D v&n&='"'+s+'"'.
000160: 0A 3E 65 6C 0D 0A 3E 69 66 20 22 27 22 20 6E 6F .>el..>if "'" no
000170: 74 69 6E 20 73 0D 0A 3E 73 76 20 76 26 6E 26 3D tin s..>sv v&n&=
000180: 22 27 22 2B 73 2B 22 27 22 0D 0A 3E 65 69 0D 0A "'"+s+"'"..>ei..
000190: 3E 65 69 0D 0A 3E 73 76 20 78 3D 22 30 22 0D 0A >ei..>sv x="0"..
0001A0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 63 68 6B 6C >ei..>un n>=chkl
0001B0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 en..>>>..>sv n=0
0001C0: 0D 0A 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 ..>if fv="f" ; f
0001D0: 69 78 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ix..>rp..>sv n=n
0001E0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0001F0: 73 3D 76 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=v&n&..>wm !s!.
Size : 512 (Real : 512)
000000: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 26 64 66 >sv df="&df
000010: 26 22 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 6E 65 &"'..>wm '>sv ne
000020: 77 66 69 6C 65 3D 22 26 6E 65 77 66 69 6C 65 26 wfile="&newfile&
000030: 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 73 65 6C 66 '..>wm '>sv self
000040: 69 6C 65 3D 22 26 73 65 6C 66 69 6C 65 26 22 27 ile="&selfile&"'
000050: 0D 0A 3E 77 6D 20 27 3E 73 76 20 66 76 3D 22 26 ..>wm '>sv fv="&
000060: 66 76 26 22 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 fv&"'..>wm '>sv
000070: 72 6C 65 6E 3D 22 26 72 6C 65 6E 26 22 27 0D 0A rlen="&rlen&"'..
000080: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000090: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
0000A0: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 77 6D .>sv s=n&n&..>wm
0000B0: 20 27 3E 73 76 20 6E 26 6E 26 3D 22 26 73 26 22 '>sv n&n&="&s&"
0000C0: 27 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A '..>un n>=rlen..
0000D0: 3E 77 6D 20 27 3E 73 76 20 66 73 6F 72 74 6F 70 >wm '>sv fsortop
0000E0: 74 73 3D 22 26 66 73 6F 72 74 6F 70 74 73 26 22 ts="&fsortopts&"
0000F0: 27 0D 0A 3E 77 6D 20 27 3E 73 76 20 6D 61 78 77 '..>wm '>sv maxw
000100: 3D 22 26 6D 61 78 77 26 22 27 0D 0A 3E 77 6D 20 ="&maxw&"'..>wm
000110: 27 3E 73 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 '>sv lastblank="
000120: 26 6C 61 73 74 62 6C 61 6E 6B 26 22 27 0D 0A 3E &lastblank&"'..>
000130: 77 63 0D 0A 3E 65 69 20 3B 20 63 70 6D 0D 0A 3E wc..>ei ; cpm..>
000140: 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A 3E 3E ei ; opt="d"..>>
000150: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A >>>>>>>>>>>>>>..
000160: 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4D 20 3E 3E 3E >>> OPTION M >>>
000170: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
000180: 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 6D 22 0D >>..>if opt="m".
000190: 0A 3E 69 64 20 63 70 6D 0D 0A 3E 72 70 0D 0A 3E .>id cpm..>rp..>
0001A0: 61 76 20 22 50 72 69 6E 74 20 74 6F 20 53 63 72 av "Print to Scr
0001B0: 65 65 6E 20 6F 72 20 50 72 69 6E 74 65 72 20 5B een or Printer [
0001C0: 73 2F 70 5D 3F 20 22 20 73 66 70 20 31 0D 0A 3E s/p]? " sfp 1..>
0001D0: 75 6E 20 73 66 70 20 69 6E 20 22 73 70 22 0D 0A un sfp in "sp"..
0001E0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 50 >el..>rp..>av "P
0001F0: 72 69 6E 74 20 74 6F 20 53 63 72 65 65 6E 2C 20 rint to Screen,
Size : 512 (Real : 512)
000000: 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 .>un n>=rlen..>e
000010: 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 l ; var..>rp..>s
000020: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000030: 0A 3E 73 76 20 73 3D 76 26 6E 26 0D 0A 3E 77 6D .>sv s=v&n&..>wm
000040: 20 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 76 6C 65 &s&..>un n>=vle
000050: 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E 63 n..>ei ; f/v..>c
000060: 73 20 22 22 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E s ""..>sk 0=0..>
000070: 65 69 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D ei ; id df..>>>.
000080: 0A 3E 69 75 20 64 66 0D 0A 3E 63 73 20 22 20 22 .>iu df..>cs " "
000090: 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 41 20 ..>dm "Option A
0000A0: 2D 20 41 64 64 20 72 65 63 6F 72 64 73 20 66 72 - Add records fr
0000B0: 6F 6D 20 6B 65 79 62 6F 61 72 64 20 74 6F 20 75 om keyboard to u
0000C0: 70 64 61 74 65 20 66 69 6C 65 0D 0A 3E 64 6D 20 pdate file..>dm
0000D0: 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 " "..>in fm$pfi$
0000E0: 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 ..>sv sys_ver=sy
0000F0: 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 s_ver..>if sys_v
000100: 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 er=""..>sv cpm="
000110: 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 76 3D 1"..>ei..>sv fv=
000120: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
000130: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
000140: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
000150: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
000160: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
000170: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000180: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
000190: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
0001A0: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
0001B0: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 en..>>>..>sv n=0
0001C0: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
0001D0: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 70 26 n=n[w1]..>sv p&
0001E0: 6E 26 3D 6E 26 6E 26 0D 0A 3E 69 66 20 70 26 6E n&=n&n&..>if p&n
0001F0: 26 5B 26 6D 61 78 77 26 5D 3D 22 22 0D 0A 3E 73 &[&maxw&]=""..>s
Size : 512 (Real : 512)
000000: 46 69 6C 65 20 6F 72 20 50 72 69 6E 74 65 72 20 File or Printer
000010: 5B 73 2F 66 2F 70 5D 3F 20 22 20 73 66 70 20 31 [s/f/p]? " sfp 1
000020: 0D 0A 3E 75 6E 20 73 66 70 20 69 6E 20 22 73 66 ..>un sfp in "sf
000030: 70 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 p"..>ei..>dm " "
000040: 0D 0A 3E 69 66 20 73 66 70 3D 22 66 22 0D 0A 3E ..>if sfp="f"..>
000050: 61 76 20 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F av "Enter name o
000060: 66 20 66 69 6C 65 20 74 6F 20 70 72 69 6E 74 20 f file to print
000070: 74 6F 3A 20 22 20 64 66 6E 20 31 36 0D 0A 3E 64 to: " dfn 16..>d
000080: 6D 20 22 20 22 0D 0A 3E 73 76 20 78 3D 22 6C 6F m " "..>sv x="lo
000090: 61 64 20 26 63 61 74 66 26 7C 31 33 7C 70 66 20 ad &catf&|13|pf
0000A0: 26 64 66 6E 26 22 0D 0A 3E 69 66 20 64 66 6E 3D &dfn&"..>if dfn=
0000B0: 22 22 0D 0A 3E 73 76 20 73 66 70 3D 22 22 0D 0A ""..>sv sfp=""..
0000C0: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 66 >ei..>ei..>if sf
0000D0: 70 3C 3E 22 22 0D 0A 3E 64 66 20 66 6D 2E 6D 75 p<>""..>df fm.mu
0000E0: 73 0D 0A 3E 72 76 20 6D 75 73 09 09 3B 20 6C 65 s..>rv mus..; le
0000F0: 61 76 65 20 6F 70 65 6E 0D 0A 3E 69 66 20 6D 75 ave open..>if mu
000100: 73 6F 70 74 3C 3E 6D 75 73 0D 0A 3E 77 66 20 66 sopt<>mus..>wf f
000110: 6D 2E 6D 75 73 0D 0A 3E 77 6D 20 26 6D 75 73 6F m.mus..>wm &muso
000120: 70 74 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E pt&..>wc..>ei..>
000130: 73 76 20 78 3D 22 6C 6F 61 64 20 26 63 61 74 66 sv x="load &catf
000140: 26 7C 31 33 7C 70 73 22 0D 0A 3E 69 66 20 73 66 &|13|ps"..>if sf
000150: 70 3D 22 70 22 0D 0A 3E 73 76 20 78 3D 22 6C 6F p="p"..>sv x="lo
000160: 61 64 20 26 63 61 74 66 26 7C 31 33 7C 70 22 0D ad &catf&|13|p".
000170: 0A 3E 65 69 0D 0A 3E 77 66 20 66 6D 2E 78 0D 0A .>ei..>wf fm.x..
000180: 3E 77 6D 20 22 26 78 26 22 0D 0A 3E 77 63 0D 0A >wm "&x&"..>wc..
000190: 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D >cf..>ex exec fm
0001A0: 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 69 20 3B 20 73 .x..>st..>ei ; s
0001B0: 66 70 3C 3E 22 22 0D 0A 3E 65 69 20 3B 20 6F 70 fp<>""..>ei ; op
0001C0: 74 3D 22 6D 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="m"..>>>>>>>>>
0001D0: 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 77 74 >>>..>if opt="wt
0001E0: 22 0D 0A 3E 77 74 20 22 50 72 65 73 73 20 61 20 "..>wt "Press a
0001F0: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
Size : 512 (Real : 512)
000000: 76 20 70 26 6E 26 3D 70 26 6E 26 2B 22 20 20 20 v p&n&=p&n&+"
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 "..>ei..>sv
000040: 70 26 6E 26 3D 70 26 6E 26 5B 31 3A 26 6D 61 78 p&n&=p&n&[1:&max
000050: 77 26 5D 2B 22 3A 20 22 0D 0A 3E 75 6E 20 6E 3D w&]+": "..>un n=
000060: 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 63 rlen..>>>..>iu c
000070: 70 6D 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 pm..>wf &newfile
000080: 26 20 61 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E & a..>wc..>ei..>
000090: 64 66 20 26 6E 65 77 66 69 6C 65 26 0D 0A 3E 72 df &newfile&..>r
0000A0: 76 20 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 v s..>if s="end"
0000B0: 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 26 0D ..>wf &newfile&.
0000C0: 0A 3E 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 66 69 .>el..>wf &newfi
0000D0: 6C 65 26 20 61 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D le& a..>ei..>>>.
0000E0: 0A 3E 73 76 20 6D 61 78 3D 72 6C 65 6E 0D 0A 3E .>sv max=rlen..>
0000F0: 69 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 if lastblank="y"
000100: 0D 0A 3E 73 76 20 6D 61 78 3D 72 6C 65 6E 2D 31 ..>sv max=rlen-1
000110: 20 6D 61 78 3D 6D 61 78 5B 77 31 5D 20 76 26 6D max=max[w1] v&m
000120: 61 78 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 ax&=""..>ei..>ei
000130: 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A ; iu df..>>>...
000140: 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 >sv n=0..>rp..>s
000150: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000160: 0A 3E 73 76 20 73 3D 6E 26 6E 26 0D 0A 3E 64 6D .>sv s=n&n&..>dm
000170: 20 66 26 6E 26 3A 20 26 73 26 0D 0A 3E 75 6E 20 f&n&: &s&..>un
000180: DD 6E 7E 29 D1 73 21 01 00 DD 74 73 DD 75 72 21 .n~).s!...ts.ur!
000190: 00 00 DD 74 6F DD 75 6E C3 FB 3D DD 66 71 DD 6E ...to.un..=.fq.n
0001A0: 70 11 2E 00 A7 ED 52 C2 B6 3E 21 09 00 DD 74 73 p.....R..>!...ts
0001B0: DD 75 72 C3 F9 3E DD 66 73 DD 6E 72 11 09 00 A7 .ur..>.fs.nr....
0001C0: ED 52 CA D4 3E DD 66 71 DD 6E 70 11 20 00 A7 ED .R..>.fq.np. ...
0001D0: 52 C2 D7 3E C3 F9 3E DD 66 7F DD 6E 7E 29 DD 56 R..>..>.f..n~).V
0001E0: 73 DD 5E 72 19 DD 7E 70 77 DD 66 73 DD 6E 72 23 s.^r..~pw.fs.nr#
0001F0: DD 74 73 DD 75 72 C3 FB 3D DD 66 71 DD 6E 70 11 .ts.ur..=.fq.np.
Size : 512 (Real : 512)
000000: 2E 2E 2E 20 22 0D 0A 3E 65 69 0D 0A 1A 0D 0A 3E ... "..>ei.....>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000090: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
0000A0: 26 66 66 26 0D 0A 3E 69 66 20 26 63 31 26 0D 0A &ff&..>if &c1&..
0000B0: 3E 65 6C 0D 0A 3E 73 6B 30 3D 30 0D 0A 3E 65 69 >el..>sk0=0..>ei
0000C0: 0D 0A 3E 7A 6D 0D 0A 3E 6E 70 6F 66 66 0D 0A 3E ..>zm..>npoff..>
0000D0: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
0000E0: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
0000F0: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000100: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
000110: 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D !s!..>un n=rlen.
000120: 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A 3E 72 70 0D .>el ; var..>rp.
000130: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000140: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
000150: 3E 69 66 20 73 3D 22 22 0D 0A 3E 73 76 20 73 3D >if s=""..>sv s=
000160: 6E 2B 31 20 6D 3D 6E 2B 32 20 73 3D 73 5B 77 31 n+1 m=n+2 s=s[w1
000170: 5D 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 20 73 ] m=m[w1]..>sv s
000180: 3D 66 26 73 26 2B 66 26 6D 26 0D 0A 3E 69 66 20 =f&s&+f&m&..>if
000190: 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 6E s=""..>sv n=rlen
0001A0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 73 3D 22 24 22 ..>el..>sv s="$"
0001B0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 21 73 21 0D ..>ei..>ei..!s!.
0001C0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 .>un n=rlen..>ei
0001D0: 20 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E ; f/v..>sv nn=n
0001E0: 6E 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E n+1..>el ; f1=en
0001F0: 64 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D d..>sv nn=nn[w1]
Size : 512 (Real : 512)
000000: 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E >>>..>>>..>>>..>
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
000060: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
000090: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
0000A0: 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E =1 filedate=1..>
0000B0: 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E 69 66 ei..>iu cpm..>if
0000C0: 20 73 79 73 5F 76 65 72 20 3C 20 33 2E 30 37 0D sys_ver < 3.07.
0000D0: 0A 3E 73 76 20 66 69 6C 65 64 61 74 65 3D 31 0D .>sv filedate=1.
0000E0: 0A 3E 65 69 0D 0A 3E 69 66 20 73 79 73 5F 76 65 .>ei..>if sys_ve
0000F0: 72 3D 33 2E 31 30 0D 0A 3E 73 76 20 66 69 6C 65 r=3.10..>sv file
000100: 64 61 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 date=1..>ei..>ei
000110: 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 ..>cs " "..>dm "
000120: 20 22 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 "..>dm "
000130: 20 20 20 20 20 20 20 2A 2A 2A 20 20 50 20 52 20 *** P R
000140: 4F 20 54 20 45 20 58 20 54 20 20 20 20 4F 20 46 O T E X T O F
000150: 20 46 20 49 20 43 20 45 20 20 20 20 4D 20 45 20 F I C E M E
000160: 4E 20 55 20 20 2A 2A 2A 20 20 28 76 32 2E 30 32 N U *** (v2.02
000170: 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 )..>dm " "..>dm
000180: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000190: 20 20 20 20 20 20 20 20 49 20 2D 20 50 72 69 6E I - Prin
0001A0: 74 20 61 6E 20 49 6E 76 6F 69 63 65 0D 0A 3E 64 t an Invoice..>d
0001B0: 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 m "
0001C0: 20 20 20 20 20 20 20 20 20 20 43 20 2D 20 50 72 C - Pr
0001D0: 69 6E 74 20 61 20 43 72 65 64 69 74 20 6E 6F 74 int a Credit not
0001E0: 65 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 e..>dm "
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
Size : 512 (Real : 512)
000000: 72 69 6E 74 3A 20 22 20 66 6E 20 31 32 0D 0A 3E rint: " fn 12..>
000010: 73 76 20 66 6E 3D 66 6E 5B 77 31 5D 0D 0A 3E 69 sv fn=fn[w1]..>i
000020: 66 20 66 6E 3C 3E 22 22 0D 0A 3E 69 66 20 22 2E f fn<>""..>if ".
000030: 22 20 6E 6F 74 69 6E 20 66 6E 0D 0A 3E 69 66 20 " notin fn..>if
000040: 64 74 79 70 65 3D 22 73 22 0D 0A 3E 73 76 20 66 dtype="s"..>sv f
000050: 6E 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 n=invpath+fn+".p
000060: 6F 73 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6E os"..>el..>sv fn
000070: 3D 69 6E 76 70 61 74 68 2B 66 6E 2B 22 2E 70 6F =invpath+fn+".po
000080: 69 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 61 i"..>ei..>ei..>a
000090: 76 20 22 54 6F 20 70 72 69 6E 74 65 72 20 6F 72 v "To printer or
0000A0: 20 73 63 72 65 65 6E 20 28 70 2F 73 29 3F 20 22 screen (p/s)? "
0000B0: 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D x 1..>if x<>"".
0000C0: 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 .>wf om.x..>if x
0000D0: 3D 22 70 22 0D 0A 3E 77 6D 20 22 6C 6F 61 64 20 ="p"..>wm "load
0000E0: 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 33 7C 7C &fn&|13|doc|13||
0000F0: 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 20 6F 6D 766|p|13|load om
000100: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
000110: 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 .>wm "ps &fn&|13
000120: 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 |; Press a key t
000130: 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 o continue:|13|p
000140: 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 ause|13|load ome
000150: 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A nu|13|ps"..>ei..
000160: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
000170: 65 63 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 ec om.x..>st..>e
000180: 69 20 3B 20 78 0D 0A 3E 65 69 20 3B 20 66 6E 0D i ; x..>ei ; fn.
000190: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 72 22 0D 0A .>ei ; opt="r"..
0001A0: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>>>>>>>>>>>>>>
0001B0: 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 45 20 3E ..>>> OPTION E >
0001C0: 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>..>>>>>>>>>>>>
0001D0: 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 65 >>>>..>if opt="e
0001E0: 22 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D "..>-------!----
0001F0: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
Size : 512 (Real : 512)
000000: 20 2D 20 50 72 69 6E 74 20 61 20 53 74 61 74 65 - Print a State
000010: 6D 65 6E 74 0D 0A 3E 64 6D 20 22 20 20 20 20 20 ment..>dm "
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 4E 20 2D 20 53 65 74 20 69 6E 76 6F 69 63 N - Set invoic
000040: 65 20 4E 75 6D 62 65 72 0D 0A 3E 69 64 20 66 69 e Number..>id fi
000050: 6C 65 64 61 74 65 0D 0A 3E 64 6D 20 22 20 20 20 ledate..>dm "
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 44 20 2D 20 53 65 74 20 63 75 72 72 D - Set curr
000080: 65 6E 74 20 44 61 74 65 0D 0A 3E 65 69 0D 0A 3E ent Date..>ei..>
000090: 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 20 20 dm "
0000A0: 20 20 20 20 20 20 20 20 20 20 20 52 20 2D 20 52 R - R
0000B0: 65 70 72 69 6E 74 20 64 6F 63 75 6D 65 6E 74 0D eprint document.
0000C0: 0A 3E 64 6D 20 22 20 20 20 20 20 20 20 20 20 20 .>dm "
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 2D L -
0000E0: 20 4C 69 73 74 20 69 6E 76 6F 69 63 65 20 73 75 List invoice su
0000F0: 6D 6D 61 72 79 20 66 69 6C 65 0D 0A 3E 64 6D 20 mmary file..>dm
000100: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000110: 20 20 20 20 20 20 20 20 45 20 2D 20 45 64 69 74 E - Edit
000120: 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 configuration s
000130: 65 74 74 69 6E 67 73 0D 0A 3E 64 6D 20 22 20 20 ettings..>dm "
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 46 20 2D 20 46 69 6C 65 72 20 6D F - Filer m
000160: 65 6E 75 0D 0A 3E 64 6D 20 22 20 20 20 20 20 20 enu..>dm "
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 51 20 2D 20 51 75 69 74 0D 0A 3E 64 6D 20 22 Q - Quit..>dm "
000190: 20 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 "..>av "
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 74 65 Ente
0001B0: 72 20 6F 70 74 69 6F 6E 20 6C 65 74 74 65 72 3A r option letter:
0001C0: 20 22 20 6F 70 74 20 31 0D 0A 3E 3E 3E 0D 0A 3E " opt 1..>>>..>
0001D0: 69 66 20 6F 70 74 3D 22 22 0D 0A 3E 73 76 20 6F if opt=""..>sv o
0001E0: 70 74 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 pt=" "..>ei..>if
0001F0: 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 0D 0A 3E opt in "qsj"..>
Size : 512 (Real : 512)
000000: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
000010: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D ---!-------!----
000020: 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---!------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 0D --------------R.
000070: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
000080: 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 en.inf..>rv addr
000090: 66 69 6C 65 2C 69 6E 76 70 61 74 68 2C 70 72 6F file,invpath,pro
0000A0: 64 66 69 6C 65 2C 76 61 74 72 65 67 2C 70 68 6F dfile,vatreg,pho
0000B0: 6E 65 3F 0D 0A 3E 72 76 20 76 61 74 31 2C 76 61 ne?..>rv vat1,va
0000C0: 74 32 2C 76 61 74 33 2C 76 61 74 34 2C 76 61 74 t2,vat3,vat4,vat
0000D0: 35 2C 69 6E 66 6F 6C 69 6E 65 73 2C 64 65 73 63 5,infolines,desc
0000E0: 77 69 64 74 68 0D 0A 3E 72 76 20 64 69 73 63 41 width..>rv discA
0000F0: 2C 64 69 73 63 42 2C 64 69 73 63 43 2C 64 69 73 ,discB,discC,dis
000100: 63 44 2C 64 69 73 63 45 2C 76 61 74 6E 75 6D 0D cD,discE,vatnum.
000110: 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C 65 78 .>rv prconame,ex
000120: 6F 72 69 6E 63 2C 73 68 6F 77 64 69 73 63 2C 61 orinc,showdisc,a
000130: 73 6B 66 6E 2C 61 73 6B 63 61 72 2C 75 73 65 70 skfn,askcar,usep
000140: 72 6F 64 2C 64 65 66 64 69 73 63 0D 0A 3E 72 76 rod,defdisc..>rv
000150: 20 63 61 6C 69 6E 65 2C 61 6C 69 6E 65 2C 74 6C caline,aline,tl
000160: 69 6E 65 2C 74 6F 74 6C 69 6E 65 0D 0A 3E 72 76 ine,totline..>rv
000170: 20 73 69 64 65 2C 72 63 31 2C 72 63 32 2C 72 63 side,rc1,rc2,rc
000180: 33 2C 72 63 34 2C 72 63 35 0D 0A 3E 72 76 20 72 3,rc4,rc5..>rv r
000190: 75 6C 65 72 31 2C 72 75 6C 65 72 32 2C 72 75 6C uler1,ruler2,rul
0001A0: 65 72 33 2C 72 75 6C 65 72 34 2C 72 75 6C 65 72 er3,ruler4,ruler
0001B0: 35 0D 0A 3E 72 76 20 63 6F 6E 61 6D 65 2C 63 6F 5..>rv coname,co
0001C0: 61 64 64 72 31 2C 63 6F 61 64 64 72 32 2C 63 6F addr1,coaddr2,co
0001D0: 61 64 64 72 33 2C 63 6F 61 64 64 72 34 2C 63 6F addr3,coaddr4,co
0001E0: 61 64 64 72 35 0D 0A 3E 63 73 20 22 20 22 0D 0A addr5..>cs " "..
0001F0: 3E 64 6D 20 50 52 4F 54 45 58 54 20 4F 46 46 49 >dm PROTEXT OFFI
Size : 512 (Real : 512)
000000: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 6F cf..>ex exec omo
000010: 70 74 26 6F 70 74 26 0D 0A 3E 73 74 0D 0A 3E 65 pt&opt&..>st..>e
000020: 69 20 3B 20 6F 70 74 20 69 6E 20 22 71 73 6A 22 i ; opt in "qsj"
000030: 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ..>>>>>>>>>>>>>>
000040: 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 46 >>..>>> OPTION F
000050: 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>
000060: 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D >>>>>>..>if opt=
000070: 22 66 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 "f"..>cf..>ex ex
000080: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
000090: 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E .>>>>>>>>>>>>>>>
0000A0: 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E 20 4C 20 >..>>> OPTION L
0000B0: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
0000C0: 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 >>>>>..>if opt="
0000D0: 6C 22 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 l"..>cf..>ex exe
0000E0: 63 20 6F 6D 6F 70 74 6C 0D 0A 3E 73 74 0D 0A 3E c omoptl..>st..>
0000F0: 65 69 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E ei..>>>>>>>>>>>>
000100: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
000110: 20 44 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E D >>>..>>>>>>>>
000120: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
000130: 74 3D 22 64 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="d"..>cs " "..
000140: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
000150: 6E 2E 64 61 74 0D 0A 3E 72 76 20 64 61 74 65 0D n.dat..>rv date.
000160: 0A 3E 61 76 20 22 45 6E 74 65 72 20 63 75 72 72 .>av "Enter curr
000170: 65 6E 74 20 64 61 74 65 20 5B 26 64 61 74 65 26 ent date [&date&
000180: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 3C 3E 22 ]: " x..>if x<>"
000190: 22 0D 0A 3E 73 76 20 64 61 74 65 3D 78 0D 0A 3E "..>sv date=x..>
0001A0: 69 64 20 63 70 6D 0D 0A 3E 63 66 0D 0A 3E 64 66 id cpm..>cf..>df
0001B0: 20 6F 6D 65 6E 75 0D 0A 3E 65 69 0D 0A 3E 77 66 omenu..>ei..>wf
0001C0: 20 6F 6D 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E ominvgen.dat..>
0001D0: 77 6D 20 26 64 61 74 65 26 0D 0A 3E 77 63 0D 0A wm &date&..>wc..
0001E0: 3E 65 69 20 3B 78 0D 0A 3E 63 66 0D 0A 3E 64 66 >ei ;x..>cf..>df
0001F0: 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D omenu..>sk 0=0.
Size : 512 (Real : 512)
000000: 43 45 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E CE CONFIGURATION
000010: 20 50 52 4F 47 52 41 4D 0D 0A 3E 64 6D 20 22 20 PROGRAM..>dm "
000020: 22 0D 0A 3E 61 76 20 22 54 79 70 65 20 74 68 65 "..>av "Type the
000030: 20 6E 61 6D 65 20 6F 66 20 79 6F 75 72 20 62 75 name of your bu
000040: 73 69 6E 65 73 73 20 5B 26 63 6F 6E 61 6D 65 26 siness [&coname&
000050: 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E ]: " x..>if x <>
000060: 20 22 22 0D 0A 3E 73 76 20 63 6F 6E 61 6D 65 3D ""..>sv coname=
000070: 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 45 6E 74 x..>ei..>dm "Ent
000080: 65 72 20 79 6F 75 72 20 61 64 64 72 65 73 73 20 er your address
000090: 28 6D 61 78 20 35 20 6C 69 6E 65 73 29 22 0D 0A (max 5 lines)"..
0000A0: 3E 61 76 20 22 4C 69 6E 65 20 31 20 5B 26 63 6F >av "Line 1 [&co
0000B0: 61 64 64 72 31 26 5D 3A 20 22 20 78 0D 0A 3E 69 addr1&]: " x..>i
0000C0: 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 f x <> ""..>sv c
0000D0: 6F 61 64 64 72 31 3D 78 0D 0A 3E 65 69 0D 0A 3E oaddr1=x..>ei..>
0000E0: 61 76 20 22 4C 69 6E 65 20 32 20 5B 26 63 6F 61 av "Line 2 [&coa
0000F0: 64 64 72 32 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 ddr2&]: " x..>if
000100: 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F x <> ""..>sv co
000110: 61 64 64 72 32 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 addr2=x..>ei..>a
000120: 76 20 22 4C 69 6E 65 20 33 20 5B 26 63 6F 61 64 v "Line 3 [&coad
000130: 64 72 33 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 dr3&]: " x..>if
000140: 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 x <> ""..>sv coa
000150: 64 64 72 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 ddr3=x..>ei..>av
000160: 20 22 4C 69 6E 65 20 34 20 5B 26 63 6F 61 64 64 "Line 4 [&coadd
000170: 72 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 r4&]: " x..>if x
000180: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 <> ""..>sv coad
000190: 64 72 34 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 dr4=x..>ei..>av
0001A0: 22 4C 69 6E 65 20 35 20 5B 26 63 6F 61 64 64 72 "Line 5 [&coaddr
0001B0: 35 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 5&]: " x..>if x
0001C0: 3C 3E 20 22 22 0D 0A 3E 73 76 20 63 6F 61 64 64 <> ""..>sv coadd
0001D0: 72 35 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 r5=x..>ei..>dm "
0001E0: 20 22 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E "..>av "Enter n
0001F0: 61 6D 65 20 6F 66 20 61 64 64 72 65 73 73 20 64 ame of address d
Size : 512 (Real : 512)
000000: 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 64 22 0D 0A .>ei ; opt="d"..
000010: 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E >>>..>>>>>>>>>>>
000020: 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F >>>>>..>>> OPTIO
000030: 4E 20 4E 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E N N >>>..>>>>>>>
000040: 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F >>>>>>>>>..>if o
000050: 70 74 3D 22 6E 22 0D 0A 3E 63 73 20 22 20 22 0D pt="n"..>cs " ".
000060: 0A 3E 72 70 0D 0A 3E 61 76 20 22 45 6E 74 65 72 .>rp..>av "Enter
000070: 20 6E 65 78 74 20 69 6E 76 6F 69 63 65 20 6E 75 next invoice nu
000080: 6D 62 65 72 3A 20 22 20 6E 75 6D 0D 0A 3E 69 66 mber: " num..>if
000090: 20 6E 75 6D 3D 22 22 0D 0A 3E 73 76 20 6E 75 6D num=""..>sv num
0000A0: 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E =" "..>ei..>un n
0000B0: 75 6D 5B 31 5D 20 69 6E 20 22 30 31 32 33 34 35 um[1] in "012345
0000C0: 36 37 38 39 22 0D 0A 3E 73 76 20 6E 75 6D 3D 6E 6789"..>sv num=n
0000D0: 75 6D 5B 77 31 5D 0D 0A 3E 69 64 20 63 70 6D 0D um[w1]..>id cpm.
0000E0: 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 .>cf..>df ominvg
0000F0: 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 77 66 en.inf..>ei..>wf
000100: 20 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E ominvgen.num..>
000110: 77 6D 20 26 6E 75 6D 26 0D 0A 3E 77 63 0D 0A 3E wm &num&..>wc..>
000120: 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 sk 0=0..>ei ; op
000130: 74 3D 22 6E 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E t="n"..>>>>>>>>>
000140: 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 >>>>>>>..>>> OPT
000150: 49 4F 4E 20 49 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E ION I >>>..>>>>>
000160: 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 >>>>>>>>>>>..>if
000170: 20 6F 70 74 20 69 6E 20 22 69 63 22 0D 0A 3E 63 opt in "ic"..>c
000180: 73 20 22 20 22 0D 0A 3E 63 66 0D 0A 3E 64 66 20 s " "..>cf..>df
000190: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 72 ominvgen.num..>r
0001A0: 76 20 6E 75 6D 0D 0A 3E 69 66 20 6F 70 74 3D 22 v num..>if opt="
0001B0: 69 22 0D 0A 3E 73 76 20 74 69 74 6C 65 3D 22 49 i"..>sv title="I
0001C0: 4E 56 4F 49 43 45 22 0D 0A 3E 65 6C 0D 0A 3E 73 NVOICE"..>el..>s
0001D0: 76 20 74 69 74 6C 65 3D 22 43 52 45 44 49 54 20 v title="CREDIT
0001E0: 4E 4F 54 45 22 0D 0A 3E 65 69 0D 0A 3E 77 66 20 NOTE"..>ei..>wf
0001F0: 6F 6D 69 6E 76 67 65 6E 2E 6E 75 6D 0D 0A 3E 77 ominvgen.num..>w
Size : 512 (Real : 512)
000000: 6C 6F 61 64 20 66 6D 65 6E 75 0D 0A 79 7C 36 33 load fmenu..y|63
000010: 39 7C 7C 31 36 7C 7C 31 36 7C 70 73 0D 0A 1A 00 9||16||16|ps....
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 10 00 00 50 02 6C 6F 61 64 20 66 6D 65 6E 75 0D ...P.load fmenu.
000050: 0A 70 73 0D 0A 1A 20 32 34 34 37 36 39 0D 0A 31 .ps... 244769..1
000060: 32 61 20 73 74 20 6D 61 72 79 73 20 73 74 72 65 2a st marys stre
000070: 65 74 0D 0A 66 61 72 63 65 74 0D 0A 70 62 6F 72 et..farcet..pbor
000080: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
000090: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
0000A0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
0000B0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
0000C0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
0000D0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
0000E0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0000F0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000130: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000140: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000150: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
000160: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
000170: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
000180: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
000190: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
0001A0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
0001B0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
0001C0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
0001D0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
0001E0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
0001F0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
Size : 512 (Real : 512)
000000: 6D 20 26 6E 75 6D 26 2C 26 74 69 74 6C 65 26 0D m &num&,&title&.
000010: 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 .>wc..>cf..>ex e
000020: 78 65 63 20 6F 6D 6F 70 74 69 0D 0A 3E 73 74 0D xec omopti..>st.
000030: 0A 3E 65 69 20 3B 20 6F 70 74 20 69 6E 20 22 69 .>ei ; opt in "i
000040: 63 22 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E c"..>>>>>>>>>>>>
000050: 3E 3E 3E 3E 0D 0A 3E 3E 3E 20 4F 50 54 49 4F 4E >>>>..>>> OPTION
000060: 20 52 20 3E 3E 3E 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E R >>>..>>>>>>>>
000070: 3E 3E 3E 3E 3E 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 >>>>>>>>..>if op
000080: 74 3D 22 72 22 0D 0A 3E 63 73 20 22 20 22 0D 0A t="r"..>cs " "..
000090: 3E 63 66 0D 0A 3E 64 66 20 6F 6D 69 6E 76 67 65 >cf..>df ominvge
0000A0: 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 72 64 n.inf..>rv addrd
0000B0: 72 76 2C 69 6E 76 70 61 74 68 0D 0A 3E 64 6D 20 rv,invpath..>dm
0000C0: 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 " "..>rp..>av "I
0000D0: 6E 76 6F 69 63 65 2C 20 63 72 65 64 69 74 20 6E nvoice, credit n
0000E0: 6F 74 65 2C 20 6F 72 20 73 74 61 74 65 6D 65 6E ote, or statemen
0000F0: 74 20 28 49 2F 63 2F 73 29 3F 20 22 20 64 74 79 t (I/c/s)? " dty
000100: 70 65 20 31 0D 0A 3E 69 66 20 64 74 79 70 65 3D pe 1..>if dtype=
000110: 22 22 0D 0A 3E 73 76 20 64 74 79 70 65 3D 22 69 ""..>sv dtype="i
000120: 22 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 64 74 79 70 "..>ei..>un dtyp
000130: 65 20 69 6E 20 22 69 63 73 22 0D 0A 3E 64 6D 20 e in "ics"..>dm
000140: 22 20 22 0D 0A 3E 64 6D 20 22 4C 69 73 74 20 6F " "..>dm "List o
000150: 66 20 61 76 61 69 6C 61 62 6C 65 20 66 69 6C 65 f available file
000160: 73 2E 20 54 68 65 20 66 69 6C 65 20 65 78 74 65 s. The file exte
000170: 6E 73 69 6F 6E 20 6E 65 65 64 20 6E 6F 74 20 62 nsion need not b
000180: 65 20 74 79 70 65 64 2E 22 0D 0A 3E 64 6D 20 22 e typed."..>dm "
000190: 20 22 0D 0A 3E 69 66 20 64 74 79 70 65 3D 22 73 "..>if dtype="s
0001A0: 22 0D 0A 3E 65 78 20 63 61 74 20 26 69 6E 76 70 "..>ex cat &invp
0001B0: 61 74 68 26 2A 2E 70 6F 73 0D 0A 3E 65 6C 0D 0A ath&*.pos..>el..
0001C0: 3E 65 78 20 63 61 74 20 26 69 6E 76 70 61 74 68 >ex cat &invpath
0001D0: 26 26 64 74 79 70 65 26 2A 2E 70 6F 69 0D 0A 3E &&dtype&*.poi..>
0001E0: 65 69 0D 0A 3E 61 76 20 22 45 6E 74 65 72 20 6E ei..>av "Enter n
0001F0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 70 ame of file to p
Size : 512 (Real : 512)
000000: 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 63 elect records (c
000010: 6F 6E 64 31 20 4F 52 20 63 6F 6E 64 32 20 6F 72 ond1 OR cond2 or
000020: 20 63 6F 6E 64 33 29 22 0D 0A 3E 64 6D 20 22 20 cond3)"..>dm "
000030: 22 0D 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A "..>in fm$pfi$..
000040: 3E 73 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 >sv fv=fv[1] rle
000050: 6E 3D 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 n=rlen[w1]..>if
000060: 66 76 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 fv="f"..>sv flis
000070: 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 t=">ru"..>el..>s
000080: 76 20 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E v flist=">rv"..>
000090: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
0000A0: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
0000B0: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
0000C0: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 75 list+" f&n&"..>u
0000D0: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 0D 0A n n>=rlen..>>>..
0000E0: 3E 64 6D 20 22 46 69 65 6C 64 20 6E 61 6D 65 73 >dm "Field names
0000F0: 3A 20 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 : "..>sv n=0..>r
000100: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
000110: 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E 26 6E 26 [w1]..>sv s=n&n&
000120: 0D 0A 3E 64 6D 20 66 26 6E 26 3A 20 26 73 26 0D ..>dm f&n&: &s&.
000130: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 3E 3E .>un n=rlen..>>>
000140: 0D 0A 3E 64 6D 20 22 57 68 65 6E 20 65 6E 74 65 ..>dm "When ente
000150: 72 69 6E 67 20 63 6F 6E 64 69 74 69 6F 6E 73 20 ring conditions
000160: 62 65 6C 6F 77 2C 20 70 6C 65 61 73 65 20 72 65 below, please re
000170: 6D 65 6D 62 65 72 20 74 6F 20 65 6E 63 6C 6F 73 member to enclos
000180: 65 20 73 74 72 69 6E 67 73 20 69 6E 20 71 75 6F e strings in quo
000190: 74 65 73 22 0D 0A 3E 64 6D 20 27 65 2E 67 2E 20 tes"..>dm 'e.g.
0001A0: 22 4C 6F 6E 64 6F 6E 22 20 69 6E 20 46 34 0D 0A "London" in F4..
0001B0: 3E 64 6D 20 22 20 22 0D 0A 3E 73 76 20 6F 6B 3D >dm " "..>sv ok=
0001C0: 22 27 22 20 2B 20 27 22 27 20 2B 20 22 30 31 32 "'" + '"' + "012
0001D0: 33 34 35 36 37 38 39 2E 22 0D 0A 3E 73 76 20 6E 3456789."..>sv n
0001E0: 3D 22 31 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 ="1"..>rp..>av "
0001F0: 45 6E 74 65 72 20 63 6F 6E 64 69 74 69 6F 6E 20 Enter condition
Size : 512 (Real : 512)
000000: 0A 3E 61 76 20 22 53 69 64 65 20 6D 61 72 67 69 .>av "Side margi
000010: 6E 20 5B 26 73 69 64 65 26 5D 3A 20 22 20 6E 0D n [&side&]: " n.
000020: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
000030: 73 69 64 65 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 side=n..>ei ..>a
000040: 76 20 22 57 69 64 74 68 20 6F 66 20 27 63 6F 64 v "Width of 'cod
000050: 65 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 e' column in cha
000060: 72 61 63 74 65 72 73 20 5B 26 72 63 31 26 5D 3A racters [&rc1&]:
000070: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
000080: 0A 3E 73 76 20 72 63 31 3D 6E 0D 0A 3E 65 69 20 .>sv rc1=n..>ei
000090: 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 6F 66 20 ..>av "Width of
0000A0: 27 64 65 73 63 72 69 70 74 69 6F 6E 27 20 63 6F 'description' co
0000B0: 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 74 65 lumn in characte
0000C0: 72 73 20 5B 26 72 63 32 26 5D 3A 20 22 20 6E 0D rs [&rc2&]: " n.
0000D0: 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 76 20 .>if n<>""..>sv
0000E0: 72 63 32 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E 61 76 rc2=n..>ei ..>av
0000F0: 20 22 57 69 64 74 68 20 6F 66 20 27 71 75 61 6E "Width of 'quan
000100: 74 69 74 79 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 tity' column in
000110: 63 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 33 characters [&rc3
000120: 26 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E &]: " n..>if n<>
000130: 22 22 0D 0A 3E 73 76 20 72 63 33 3D 6E 0D 0A 3E ""..>sv rc3=n..>
000140: 65 69 20 0D 0A 3E 61 76 20 22 57 69 64 74 68 20 ei ..>av "Width
000150: 6F 66 20 27 75 6E 69 74 20 70 72 69 63 65 27 20 of 'unit price'
000160: 63 6F 6C 75 6D 6E 20 69 6E 20 63 68 61 72 61 63 column in charac
000170: 74 65 72 73 20 5B 26 72 63 34 26 5D 3A 20 22 20 ters [&rc4&]: "
000180: 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D 0A 3E 73 n..>if n<>""..>s
000190: 76 20 72 63 34 3D 6E 0D 0A 3E 65 69 20 0D 0A 3E v rc4=n..>ei ..>
0001A0: 61 76 20 22 57 69 64 74 68 20 6F 66 20 27 74 6F av "Width of 'to
0001B0: 74 61 6C 27 20 63 6F 6C 75 6D 6E 20 69 6E 20 63 tal' column in c
0001C0: 68 61 72 61 63 74 65 72 73 20 5B 26 72 63 35 26 haracters [&rc5&
0001D0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0001E0: 22 0D 0A 3E 73 76 20 72 63 35 3D 6E 0D 0A 3E 65 "..>sv rc5=n..>e
0001F0: 69 20 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 i ..>if prconame
Size : 512 (Real : 512)
000000: 61 74 61 66 69 6C 65 20 5B 26 61 64 64 72 66 69 atafile [&addrfi
000010: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
000020: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 64 64 f x<>""..>sv add
000030: 72 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 69 rfile=x..>ei..>i
000040: 66 20 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 73 f phone?="y"..>s
000050: 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A v y="Y/n"..>el..
000060: 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E 65 69 >sv y="y/N"..>ei
000070: 0D 0A 3E 61 76 20 22 44 6F 65 73 20 74 68 65 20 ..>av "Does the
000080: 61 64 64 72 65 73 73 20 66 69 6C 65 20 68 61 76 address file hav
000090: 65 20 74 65 6C 65 70 68 6F 6E 65 20 6E 75 6D 62 e telephone numb
0000A0: 65 72 73 20 6F 6E 20 6C 69 6E 65 20 32 20 5B 26 ers on line 2 [&
0000B0: 79 26 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 y&]: " x 1..>if
0000C0: 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 68 6F 6E 65 x<>""..>sv phone
0000D0: 3F 3D 78 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 ?=x..>ei..>dm "
0000E0: 22 0D 0A 3E 64 6D 20 22 57 68 69 63 68 20 64 72 "..>dm "Which dr
0000F0: 69 76 65 20 69 73 20 74 6F 20 62 65 20 75 73 65 ive is to be use
000100: 64 20 66 6F 72 20 73 74 6F 72 69 6E 67 20 69 6E d for storing in
000110: 76 6F 69 63 65 73 3F 22 0D 0A 3E 69 64 20 63 70 voices?"..>id cp
000120: 6D 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D 69 6E m..>sv invdrv=in
000130: 76 70 61 74 68 5B 31 5D 0D 0A 3E 72 70 0D 0A 3E vpath[1]..>rp..>
000140: 61 76 20 22 45 6E 74 65 72 20 64 72 69 76 65 20 av "Enter drive
000150: 6C 65 74 74 65 72 20 5B 26 69 6E 76 64 72 76 26 letter [&invdrv&
000160: 5D 3A 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C ]: " x 1..>if x<
000170: 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 64 72 76 3D >""..>sv invdrv=
000180: 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 69 6E 76 64 x..>ei..>un invd
000190: 72 76 20 69 6E 20 22 61 62 63 64 65 66 6D 22 0D rv in "abcdefm".
0001A0: 0A 3E 73 76 20 69 6E 76 70 61 74 68 3D 69 6E 76 .>sv invpath=inv
0001B0: 64 72 76 2B 22 3A 22 0D 0A 3E 65 6C 0D 0A 3E 61 drv+":"..>el..>a
0001C0: 76 20 22 45 6E 74 65 72 20 70 61 74 68 20 6F 6E v "Enter path on
0001D0: 20 77 68 69 63 68 20 74 6F 20 73 74 6F 72 65 20 which to store
0001E0: 69 6E 76 6F 69 63 65 73 20 5B 26 69 6E 76 70 61 invoices [&invpa
0001F0: 74 68 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 th&]: " x..>if x
Size : 512 (Real : 512)
000000: 3D 22 79 22 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 ="y"..>av "Line
000010: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
000020: 79 6F 75 72 20 63 6F 6D 70 61 6E 79 20 61 64 64 your company add
000030: 72 65 73 73 20 5B 26 63 61 6C 69 6E 65 26 5D 3A ress [&caline&]:
000040: 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 0D " n..>if n<>"".
000050: 0A 3E 73 76 20 63 61 6C 69 6E 65 3D 6E 0D 0A 3E .>sv caline=n..>
000060: 65 69 20 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 4C ei ..>ei..>av "L
000070: 69 6E 65 20 6E 75 6D 62 65 72 20 74 6F 20 70 72 ine number to pr
000080: 69 6E 74 20 72 65 63 69 70 69 65 6E 74 27 73 20 int recipient's
000090: 61 64 64 72 65 73 73 20 5B 26 61 6C 69 6E 65 26 address [&aline&
0000A0: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
0000B0: 22 0D 0A 3E 73 76 20 61 6C 69 6E 65 3D 6E 0D 0A "..>sv aline=n..
0000C0: 3E 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 >ei ..>av "Line
0000D0: 6E 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 number to print
0000E0: 74 69 74 6C 65 73 20 5B 26 74 6C 69 6E 65 26 5D titles [&tline&]
0000F0: 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 22 : " n..>if n<>""
000100: 0D 0A 3E 73 76 20 74 6C 69 6E 65 3D 6E 0D 0A 3E ..>sv tline=n..>
000110: 65 69 20 0D 0A 3E 61 76 20 22 4C 69 6E 65 20 6E ei ..>av "Line n
000120: 75 6D 62 65 72 20 74 6F 20 70 72 69 6E 74 20 74 umber to print t
000130: 6F 74 61 6C 73 20 5B 26 74 6F 74 6C 69 6E 65 26 otals [&totline&
000140: 5D 3A 20 22 20 6E 0D 0A 3E 69 66 20 6E 3C 3E 22 ]: " n..>if n<>"
000150: 22 0D 0A 3E 73 76 20 74 6F 74 6C 69 6E 65 3D 6E "..>sv totline=n
000160: 0D 0A 3E 65 69 20 0D 0A 3E 73 76 20 6E 6C 69 6E ..>ei ..>sv nlin
000170: 65 73 3D 74 6F 74 6C 69 6E 65 2D 74 6C 69 6E 65 es=totline-tline
000180: 20 6E 6C 69 6E 65 73 3D 6E 6C 69 6E 65 73 5B 77 nlines=nlines[w
000190: 31 5D 0D 0A 3E 73 76 20 69 77 69 64 74 68 3D 72 1]..>sv iwidth=r
0001A0: 63 31 2B 72 63 32 2B 72 63 33 2B 72 63 34 2B 72 c1+rc2+rc3+rc4+r
0001B0: 63 35 2B 31 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 c5+1..>sv n=iwid
0001C0: 74 68 2D 33 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A th-31..>dm " "..
0001D0: 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A >if vatreg="y"..
0001E0: 3E 64 6D 20 22 43 4F 4E 46 49 47 55 52 45 20 56 >dm "CONFIGURE V
0001F0: 41 54 20 43 4F 44 45 53 22 0D 0A 3E 64 6D 20 22 AT CODES"..>dm "
Size : 512 (Real : 512)
000000: 3C 3E 22 22 0D 0A 3E 73 76 20 69 6E 76 70 61 74 <>""..>sv invpat
000010: 68 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E h=x..>ei..>ei..>
000020: 64 6D 20 22 20 22 0D 0A 3E 69 66 20 75 73 65 70 dm " "..>if usep
000030: 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 20 79 3D 22 rod="y"..>sv y="
000040: 59 2F 6E 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 Y/n"..>el..>sv y
000050: 3D 22 79 2F 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 ="y/N"..>ei..>rp
000060: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 69 ..>av "Do you wi
000070: 73 68 20 74 6F 20 75 73 65 20 61 20 70 72 6F 64 sh to use a prod
000080: 75 63 74 20 66 69 6C 65 20 28 26 79 26 29 3F 20 uct file (&y&)?
000090: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0000A0: 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 3D 78 0D ..>sv useprod=x.
0000B0: 0A 3E 65 69 0D 0A 3E 75 6E 20 75 73 65 70 72 6F .>ei..>un usepro
0000C0: 64 20 69 6E 20 22 79 6E 22 0D 0A 3E 69 66 20 75 d in "yn"..>if u
0000D0: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 61 76 20 seprod="y"..>av
0000E0: 22 45 6E 74 65 72 20 6E 61 6D 65 20 6F 66 20 70 "Enter name of p
0000F0: 72 6F 64 75 63 74 20 69 6E 66 6F 72 6D 61 74 69 roduct informati
000100: 6F 6E 20 66 69 6C 65 20 5B 26 70 72 6F 64 66 69 on file [&prodfi
000110: 6C 65 26 5D 3A 20 22 20 78 20 31 34 0D 0A 3E 69 le&]: " x 14..>i
000120: 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 6F f x<>""..>sv pro
000130: 64 66 69 6C 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 65 dfile=x..>ei..>e
000140: 69 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D i..>if prconame=
000150: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
000160: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
000170: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
000180: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 79 v "Do you want y
000190: 6F 75 72 20 6E 61 6D 65 20 61 6E 64 20 61 64 64 our name and add
0001A0: 72 65 73 73 20 70 72 69 6E 74 65 64 20 6F 6E 20 ress printed on
0001B0: 74 68 65 20 69 6E 76 6F 69 63 65 73 20 28 26 79 the invoices (&y
0001C0: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
0001D0: 3C 3E 22 22 0D 0A 3E 73 76 20 70 72 63 6F 6E 61 <>""..>sv prcona
0001E0: 6D 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 70 me=x..>ei..>un p
0001F0: 72 63 6F 6E 61 6D 65 20 69 6E 20 22 79 6E 22 0D rconame in "yn".
Size : 512 (Real : 512)
000000: 20 22 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 74 "..>sv vat1=vat
000010: 31 2A 31 30 30 20 76 61 74 31 3D 76 61 74 31 5B 1*100 vat1=vat1[
000020: 77 31 5D 0D 0A 3E 73 76 20 76 61 74 32 3D 76 61 w1]..>sv vat2=va
000030: 74 32 2A 31 30 30 20 76 61 74 32 3D 76 61 74 32 t2*100 vat2=vat2
000040: 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 33 3D 76 [w1]..>sv vat3=v
000050: 61 74 33 2A 31 30 30 20 76 61 74 33 3D 76 61 74 at3*100 vat3=vat
000060: 33 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 34 3D 3[w1]..>sv vat4=
000070: 76 61 74 34 2A 31 30 30 20 76 61 74 34 3D 76 61 vat4*100 vat4=va
000080: 74 34 5B 77 31 5D 0D 0A 3E 73 76 20 76 61 74 35 t4[w1]..>sv vat5
000090: 3D 76 61 74 35 2A 31 30 30 20 76 61 74 35 3D 76 =vat5*100 vat5=v
0000A0: 61 74 35 5B 77 31 5D 0D 0A 3E 61 76 20 22 50 65 at5[w1]..>av "Pe
0000B0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0000C0: 20 72 61 74 65 20 31 20 5B 26 76 61 74 31 26 5D rate 1 [&vat1&]
0000D0: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
0000E0: 22 22 0D 0A 3E 73 76 20 76 61 74 31 3D 78 0D 0A ""..>sv vat1=x..
0000F0: 3E 65 69 0D 0A 3E 61 76 20 22 50 65 72 63 65 6E >ei..>av "Percen
000100: 74 61 67 65 20 66 6F 72 20 56 41 54 20 72 61 74 tage for VAT rat
000110: 65 20 32 20 5B 26 76 61 74 32 26 5D 3A 20 22 20 e 2 [&vat2&]: "
000120: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
000130: 3E 73 76 20 76 61 74 32 3D 78 0D 0A 3E 65 69 0D >sv vat2=x..>ei.
000140: 0A 3E 61 76 20 22 50 65 72 63 65 6E 74 61 67 65 .>av "Percentage
000150: 20 66 6F 72 20 56 41 54 20 72 61 74 65 20 33 20 for VAT rate 3
000160: 5B 26 76 61 74 33 26 5D 3A 20 22 20 78 0D 0A 3E [&vat3&]: " x..>
000170: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
000180: 76 61 74 33 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 vat3=x..>ei..>av
000190: 20 22 50 65 72 63 65 6E 74 61 67 65 20 66 6F 72 "Percentage for
0001A0: 20 56 41 54 20 72 61 74 65 20 34 20 5B 26 76 61 VAT rate 4 [&va
0001B0: 74 34 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 t4&]: " x..>if x
0001C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 76 61 74 34 <> ""..>sv vat4
0001D0: 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 50 65 =x..>ei..>av "Pe
0001E0: 72 63 65 6E 74 61 67 65 20 66 6F 72 20 56 41 54 rcentage for VAT
0001F0: 20 72 61 74 65 20 35 20 5B 26 76 61 74 35 26 5D rate 5 [&vat5&]
Size : 512 (Real : 512)
000000: 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 79 22 0D .>if vatreg="y".
000010: 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 .>sv y="Y/n"..>e
000020: 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A l..>sv y="y/N"..
000030: 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 49 >ei..>rp..>av "I
000040: 73 20 79 6F 75 72 20 62 75 73 69 6E 65 73 73 20 s your business
000050: 72 65 67 69 73 74 65 72 65 64 20 66 6F 72 20 56 registered for V
000060: 41 54 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D AT (&y&)? " x 1.
000070: 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 .>if x <> ""..>s
000080: 76 20 76 61 74 72 65 67 3D 78 0D 0A 3E 65 69 0D v vatreg=x..>ei.
000090: 0A 3E 75 6E 20 76 61 74 72 65 67 20 69 6E 20 22 .>un vatreg in "
0000A0: 79 6E 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D yn"..>if vatreg=
0000B0: 22 79 22 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D "y"..>if prconam
0000C0: 65 3D 22 79 22 0D 0A 3E 61 76 20 22 45 6E 74 65 e="y"..>av "Ente
0000D0: 72 20 79 6F 75 72 20 56 41 54 20 6E 75 6D 62 65 r your VAT numbe
0000E0: 72 20 5B 26 76 61 74 6E 75 6D 26 5D 3A 20 22 20 r [&vatnum&]: "
0000F0: 78 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 x..>if x<>""..>s
000100: 76 20 76 61 74 6E 75 6D 3D 78 0D 0A 3E 65 69 0D v vatnum=x..>ei.
000110: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 .>ei..>ei..>if v
000120: 61 74 72 65 67 3C 3E 22 79 22 0D 0A 3E 73 76 20 atreg<>"y"..>sv
000130: 65 78 6F 72 69 6E 63 3D 22 78 22 0D 0A 3E 65 6C exorinc="x"..>el
000140: 0D 0A 3E 69 66 20 65 78 6F 72 69 6E 63 3D 22 78 ..>if exorinc="x
000150: 22 0D 0A 3E 73 76 20 79 3D 22 58 2F 69 22 0D 0A "..>sv y="X/i"..
000160: 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 78 2F 49 22 >el..>sv y="x/I"
000170: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>ei..>rp..>av
000180: 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 "Do you want to
000190: 65 6E 74 65 72 20 70 72 69 63 65 73 20 65 78 20 enter prices ex
0001A0: 56 41 54 20 6F 72 20 69 6E 63 20 56 41 54 20 28 VAT or inc VAT (
0001B0: 26 79 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 &y&)? " x 1..>if
0001C0: 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 65 78 6F 72 x<>""..>sv exor
0001D0: 69 6E 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 inc=x..>ei..>un
0001E0: 65 78 6F 72 69 6E 63 20 69 6E 20 22 78 69 22 0D exorinc in "xi".
0001F0: 0A 3E 65 69 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D .>ei..>if askfn=
Size : 512 (Real : 512)
000000: 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 : " x..>if x <>
000010: 22 22 0D 0A 3E 73 76 20 76 61 74 35 3D 78 0D 0A ""..>sv vat5=x..
000020: 3E 65 69 0D 0A 3E 73 76 20 76 61 74 31 3D 76 61 >ei..>sv vat1=va
000030: 74 31 2F 31 30 30 20 76 61 74 32 3D 76 61 74 32 t1/100 vat2=vat2
000040: 2F 31 30 30 20 76 61 74 33 3D 76 61 74 33 2F 31 /100 vat3=vat3/1
000050: 30 30 20 76 61 74 34 3D 76 61 74 34 2F 31 30 30 00 vat4=vat4/100
000060: 20 76 61 74 35 3D 76 61 74 35 2F 31 30 30 0D 0A vat5=vat5/100..
000070: 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 >ei..>dm " "..>i
000080: 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E f useprod="y"..>
000090: 64 6D 20 22 45 4E 54 45 52 20 50 52 4F 44 55 43 dm "ENTER PRODUC
0000A0: 54 20 41 4E 44 20 43 55 53 54 4F 4D 45 52 20 44 T AND CUSTOMER D
0000B0: 49 53 43 4F 55 4E 54 20 43 4F 44 45 53 22 0D 0A ISCOUNT CODES"..
0000C0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 61 >dm " "..>dm "Ea
0000D0: 63 68 20 70 72 6F 64 75 63 74 20 68 61 73 20 61 ch product has a
0000E0: 6E 20 61 73 73 6F 63 69 61 74 65 64 20 64 69 73 n associated dis
0000F0: 63 6F 75 6E 74 20 6E 75 6D 62 65 72 22 0D 0A 3E count number"..>
000100: 64 6D 20 22 61 6E 64 20 66 6F 72 20 65 61 63 68 dm "and for each
000110: 20 69 6E 76 6F 69 63 65 20 61 20 64 69 73 63 6F invoice a disco
000120: 75 6E 74 20 6C 65 74 74 65 72 20 6D 61 79 20 62 unt letter may b
000130: 65 20 75 73 65 64 22 0D 0A 3E 64 6D 20 22 20 22 e used"..>dm " "
000140: 0D 0A 3E 64 6D 20 22 54 68 75 73 20 74 68 65 20 ..>dm "Thus the
000150: 69 6E 76 6F 69 63 65 20 66 6F 72 20 61 6E 20 6F invoice for an o
000160: 72 64 65 72 20 61 74 20 64 69 73 63 6F 75 6E 74 rder at discount
000170: 20 41 20 77 69 6C 6C 20 62 65 22 0D 0A 3E 64 6D A will be"..>dm
000180: 20 22 63 61 6C 63 75 6C 61 74 65 64 20 75 73 69 "calculated usi
000190: 6E 67 20 64 69 73 63 6F 75 6E 74 20 72 61 74 65 ng discount rate
0001A0: 73 20 41 31 2C 20 41 32 2C 20 41 33 20 65 74 63 s A1, A2, A3 etc
0001B0: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 "..>dm " "..>dm
0001C0: 22 54 68 65 20 76 61 6C 75 65 73 20 65 6E 74 65 "The values ente
0001D0: 72 65 64 20 68 65 72 65 20 73 68 6F 75 6C 64 20 red here should
0001E0: 62 65 20 70 65 72 63 65 6E 74 61 67 65 20 64 69 be percentage di
0001F0: 73 63 6F 75 6E 74 73 22 0D 0A 3E 64 6D 20 22 46 scounts"..>dm "F
Size : 512 (Real : 512)
000000: 22 79 22 0D 0A 3E 73 76 20 79 3D 22 59 2F 6E 22 "y"..>sv y="Y/n"
000010: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 79 2F ..>el..>sv y="y/
000020: 4E 22 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 61 N"..>ei..>rp..>a
000030: 76 20 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 v "Do you want t
000040: 6F 20 62 65 20 61 73 6B 65 64 20 66 6F 72 20 66 o be asked for f
000050: 6F 6F 74 6E 6F 74 65 20 65 61 63 68 20 74 69 6D ootnote each tim
000060: 65 20 28 26 79 26 29 3F 20 22 20 78 20 31 0D 0A e (&y&)? " x 1..
000070: 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 61 >if x<>""..>sv a
000080: 73 6B 66 6E 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E skfn=x..>ei..>un
000090: 20 61 73 6B 66 6E 20 69 6E 20 22 79 6E 22 0D 0A askfn in "yn"..
0000A0: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
0000B0: 3E 73 76 20 79 3D 22 59 2F 6E 22 0D 0A 3E 65 6C >sv y="Y/n"..>el
0000C0: 0D 0A 3E 73 76 20 79 3D 22 79 2F 4E 22 0D 0A 3E ..>sv y="y/N"..>
0000D0: 65 69 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 44 6F ei..>rp..>av "Do
0000E0: 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 62 65 20 you want to be
0000F0: 61 73 6B 65 64 20 66 6F 72 20 63 61 72 72 69 61 asked for carria
000100: 67 65 20 65 61 63 68 20 74 69 6D 65 20 28 26 79 ge each time (&y
000110: 26 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 20 78 &)? " x 1..>if x
000120: 3C 3E 22 22 0D 0A 3E 73 76 20 61 73 6B 63 61 72 <>""..>sv askcar
000130: 3D 78 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 61 73 6B =x..>ei..>un ask
000140: 63 61 72 20 69 6E 20 22 79 6E 22 0D 0A 3E 73 76 car in "yn"..>sv
000150: 20 64 61 73 68 65 73 3D 22 2D 2D 2D 2D 2D 2D 2D dashes="-------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 64 6D 20 ---------"..>dm
0001B0: 22 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 " "..>dm " "..>d
0001C0: 6D 20 4E 4F 57 20 43 4F 4E 46 49 47 55 52 45 20 m NOW CONFIGURE
0001D0: 54 48 45 20 49 4E 56 4F 49 43 45 20 46 4F 52 4D THE INVOICE FORM
0001E0: 41 54 20 46 4F 52 20 59 4F 55 52 20 53 54 41 54 AT FOR YOUR STAT
0001F0: 49 4F 4E 45 52 59 0D 0A 3E 64 6D 20 22 20 22 0D IONERY..>dm " ".
Size : 512 (Real : 512)
000000: 6F 72 20 65 61 63 68 20 64 69 73 63 6F 75 6E 74 or each discount
000010: 20 6C 65 74 74 65 72 20 65 6E 74 65 72 20 6C 69 letter enter li
000020: 73 74 20 6F 66 20 64 69 73 63 6F 75 6E 74 73 20 st of discounts
000030: 66 6F 72 20 22 0D 0A 3E 64 6D 20 22 70 72 6F 64 for "..>dm "prod
000040: 75 63 74 20 74 79 70 65 31 2C 20 74 79 70 65 32 uct type1, type2
000050: 2C 20 74 79 70 65 33 20 65 74 63 2C 20 73 65 70 , type3 etc, sep
000060: 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73 arated by spaces
000070: 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 "..>dm " "..>av
000080: 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 6F 72 "% Discounts for
000090: 20 41 20 5B 26 64 69 73 63 41 26 5D 3A 20 22 20 A [&discA&]: "
0000A0: 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 0D 0A x..>if x <> ""..
0000B0: 3E 73 76 20 64 69 73 63 61 3D 78 0D 0A 3E 65 69 >sv disca=x..>ei
0000C0: 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F 75 6E ..>av "% Discoun
0000D0: 74 73 20 66 6F 72 20 42 20 5B 26 64 69 73 63 42 ts for B [&discB
0000E0: 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 20 3C &]: " x..>if x <
0000F0: 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 62 3D > ""..>sv discb=
000100: 78 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 25 20 44 x..>ei..>av "% D
000110: 69 73 63 6F 75 6E 74 73 20 66 6F 72 20 43 20 5B iscounts for C [
000120: 26 64 69 73 63 43 26 5D 3A 20 22 20 78 0D 0A 3E &discC&]: " x..>
000130: 69 66 20 78 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 if x <> ""..>sv
000140: 64 69 73 63 63 3D 78 0D 0A 3E 65 69 0D 0A 3E 61 discc=x..>ei..>a
000150: 76 20 22 25 20 44 69 73 63 6F 75 6E 74 73 20 66 v "% Discounts f
000160: 6F 72 20 44 20 5B 26 64 69 73 63 44 26 5D 3A 20 or D [&discD&]:
000170: 22 20 78 0D 0A 3E 69 66 20 78 20 3C 3E 20 22 22 " x..>if x <> ""
000180: 0D 0A 3E 73 76 20 64 69 73 63 64 3D 78 0D 0A 3E ..>sv discd=x..>
000190: 65 69 0D 0A 3E 61 76 20 22 25 20 44 69 73 63 6F ei..>av "% Disco
0001A0: 75 6E 74 73 20 66 6F 72 20 45 20 5B 26 64 69 73 unts for E [&dis
0001B0: 63 45 26 5D 3A 20 22 20 78 0D 0A 3E 69 66 20 78 cE&]: " x..>if x
0001C0: 20 3C 3E 20 22 22 0D 0A 3E 73 76 20 64 69 73 63 <> ""..>sv disc
0001D0: 65 3D 78 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E e=x..>ei..>rp..>
0001E0: 61 76 20 22 45 6E 74 65 72 20 6D 6F 73 74 20 75 av "Enter most u
0001F0: 73 65 64 20 64 69 73 63 6F 75 6E 74 20 63 6F 64 sed discount cod
Size : 512 (Real : 512)
000000: 20 22 2C 64 61 74 65 0D 0A 3E 69 66 20 64 61 74 ",date..>if dat
000010: 65 3D 22 22 0D 0A 3E 73 76 20 64 61 74 65 3D 73 e=""..>sv date=s
000020: 79 73 5F 64 61 74 65 0D 0A 3E 65 69 0D 0A 3E 61 ys_date..>ei..>a
000030: 76 20 22 4F 72 64 65 72 20 72 65 66 65 72 65 6E v "Order referen
000040: 63 65 3A 20 22 2C 72 65 66 0D 0A 3E 3E 3E 0D 0A ce: ",ref..>>>..
000050: 3E 3E 3E 20 44 69 73 70 6C 61 79 20 64 69 73 63 >>> Display disc
000060: 6F 75 6E 74 20 74 79 70 65 0D 0A 3E 3E 3E 0D 0A ount type..>>>..
000070: 3E 73 76 20 78 3D 75 73 65 70 72 6F 64 2B 73 68 >sv x=useprod+sh
000080: 6F 77 64 69 73 63 20 63 75 73 74 64 69 73 63 3D owdisc custdisc=
000090: 30 0D 0A 3E 69 66 20 78 3D 22 79 79 22 0D 0A 3E 0..>if x="yy"..>
0000A0: 64 6D 20 22 44 69 73 63 6F 75 6E 74 20 74 79 70 dm "Discount typ
0000B0: 65 20 6E 75 6D 62 65 72 73 3A 20 22 0D 0A 3E 73 e numbers: "..>s
0000C0: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0000D0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 20 6D 3D n=n+1 n=n[w1] m=
0000E0: 6E 2B 31 20 6D 3D 6D 5B 77 31 5D 0D 0A 3E 73 76 n+1 m=m[w1]..>sv
0000F0: 20 74 65 78 74 20 3D 20 6E 20 2B 20 22 20 3D 20 text = n + " =
000100: 22 20 2B 20 64 69 73 63 41 5B 77 26 6E 26 5D 20 " + discA[w&n&]
000110: 2B 20 22 20 22 20 2B 20 64 69 73 63 42 5B 77 26 + " " + discB[w&
000120: 6E 26 5D 20 2B 20 22 20 22 0D 0A 3E 73 76 20 74 n&] + " "..>sv t
000130: 65 78 74 20 3D 20 74 65 78 74 20 2B 20 64 69 73 ext = text + dis
000140: 63 43 5B 77 26 6E 26 5D 20 2B 20 22 20 22 20 2B cC[w&n&] + " " +
000150: 20 64 69 73 63 44 5B 77 26 6E 26 5D 20 2B 20 22 discD[w&n&] + "
000160: 20 22 20 2B 20 64 69 73 63 45 5B 77 26 6E 26 5D " + discE[w&n&]
000170: 0D 0A 3E 64 6D 20 26 74 65 78 74 26 0D 0A 3E 75 ..>dm &text&..>u
000180: 6E 20 64 69 73 63 41 5B 77 26 6D 26 5D 3D 22 22 n discA[w&m&]=""
000190: 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 75 73 74 64 ..>ei..>sv custd
0001A0: 69 73 63 3D 64 65 66 64 69 73 63 0D 0A 3E 69 66 isc=defdisc..>if
0001B0: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 72 useprod="y"..>r
0001C0: 70 0D 0A 3E 61 76 20 22 44 69 73 63 6F 75 6E 74 p..>av "Discount
0001D0: 20 74 79 70 65 20 28 6C 65 74 74 65 72 2C 20 30 type (letter, 0
0001E0: 3D 66 75 6C 6C 20 70 72 69 63 65 29 20 5B 26 64 =full price) [&d
0001F0: 65 66 64 69 73 63 26 5D 3A 20 22 2C 78 20 31 0D efdisc&]: ",x 1.
Size : 512 (Real : 512)
000000: 65 20 28 74 79 70 65 20 6C 65 74 74 65 72 2C 20 e (type letter,
000010: 6F 72 20 30 20 66 6F 72 20 6E 6F 6E 65 29 20 5B or 0 for none) [
000020: 26 64 65 66 64 69 73 63 26 5D 3A 20 22 20 78 20 &defdisc&]: " x
000030: 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 1..>if x<>""..>s
000040: 76 20 64 65 66 64 69 73 63 3D 78 0D 0A 3E 65 69 v defdisc=x..>ei
000050: 0D 0A 3E 75 6E 20 64 65 66 64 69 73 63 20 69 6E ..>un defdisc in
000060: 20 22 30 61 62 63 64 65 22 0D 0A 3E 73 76 20 73 "0abcde"..>sv s
000070: 68 6F 77 64 69 73 63 3D 22 6E 22 0D 0A 3E 72 70 howdisc="n"..>rp
000080: 0D 0A 3E 61 76 20 22 44 6F 20 79 6F 75 20 77 61 ..>av "Do you wa
000090: 6E 74 20 74 6F 20 64 69 73 70 6C 61 79 20 64 69 nt to display di
0000A0: 73 63 6F 75 6E 74 20 6E 75 6D 62 65 72 73 20 65 scount numbers e
0000B0: 61 63 68 20 74 69 6D 65 20 28 26 79 26 29 3F 20 ach time (&y&)?
0000C0: 22 20 78 20 31 0D 0A 3E 69 66 20 78 3C 3E 22 22 " x 1..>if x<>""
0000D0: 0D 0A 3E 73 76 20 73 68 6F 77 64 69 73 63 3D 78 ..>sv showdisc=x
0000E0: 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 73 68 6F 77 64 ..>ei..>un showd
0000F0: 69 73 63 20 69 6E 20 22 79 6E 22 0D 0A 3E 65 69 isc in "yn"..>ei
000100: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D 65 6E 75 ..>cf..>df omenu
000110: 0D 0A 3E 77 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 ..>wf omtemp.inf
000120: 0D 0A 3E 77 6D 20 27 26 61 64 64 72 66 69 6C 65 ..>wm '&addrfile
000130: 26 2C 26 69 6E 76 70 61 74 68 26 2C 26 70 72 6F &,&invpath&,&pro
000140: 64 66 69 6C 65 26 2C 26 76 61 74 72 65 67 26 2C dfile&,&vatreg&,
000150: 26 70 68 6F 6E 65 3F 26 27 0D 0A 3E 77 6D 20 27 &phone?&'..>wm '
000160: 26 76 61 74 31 26 2C 26 76 61 74 32 26 2C 26 76 &vat1&,&vat2&,&v
000170: 61 74 33 26 2C 26 76 61 74 34 26 2C 26 76 61 74 at3&,&vat4&,&vat
000180: 35 26 2C 26 6E 6C 69 6E 65 73 26 2C 26 72 63 32 5&,&nlines&,&rc2
000190: 26 27 0D 0A 3E 77 6D 20 27 22 26 64 69 73 63 41 &'..>wm '"&discA
0001A0: 26 22 2C 22 26 64 69 73 63 42 26 22 2C 22 26 64 &","&discB&","&d
0001B0: 69 73 63 43 26 22 2C 22 26 64 69 73 63 44 26 22 iscC&","&discD&"
0001C0: 2C 22 26 64 69 73 63 45 26 22 2C 22 26 76 61 74 ,"&discE&","&vat
0001D0: 6E 75 6D 26 22 27 0D 0A 3E 77 6D 20 27 26 70 72 num&"'..>wm '&pr
0001E0: 63 6F 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 coname&,&exorinc
0001F0: 26 2C 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 &,&showdisc&,&as
Size : 512 (Real : 512)
000000: 0A 3E 69 66 20 78 3C 3E 22 22 0D 0A 3E 73 76 20 .>if x<>""..>sv
000010: 63 75 73 74 64 69 73 63 3D 78 0D 0A 3E 65 69 0D custdisc=x..>ei.
000020: 0A 3E 75 6E 20 63 75 73 74 64 69 73 63 20 69 6E .>un custdisc in
000030: 20 22 30 61 62 63 64 65 22 0D 0A 3E 65 69 0D 0A "0abcde"..>ei..
000040: 3E 3E 3E 0D 0A 3E 73 76 20 63 61 72 3D 22 22 0D >>>..>sv car="".
000050: 0A 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D .>if askcar="y".
000060: 0A 3E 72 70 0D 0A 3E 61 76 20 22 43 61 72 72 69 .>rp..>av "Carri
000070: 61 67 65 20 63 68 61 72 67 65 3A 20 22 2C 78 0D age charge: ",x.
000080: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
000090: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 63 61 72 =0..>ei..>sv car
0000A0: 3D 78 2B 30 0D 0A 3E 75 6E 20 78 3D 63 61 72 0D =x+0..>un x=car.
0000B0: 0A 3E 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F .>ei..>sv footno
0000C0: 74 65 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E te=""..>if askfn
0000D0: 3D 22 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E ="y"..>av "Footn
0000E0: 6F 74 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D ote: ",footnote.
0000F0: 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 .>ei..>if vatreg
000100: 3D 22 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 ="n"..>sv vat?="
000110: 6E 22 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 n"..>el..>rp..>a
000120: 76 20 22 49 73 20 56 41 54 20 63 68 61 72 67 65 v "Is VAT charge
000130: 61 62 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 able (Y/n)? " va
000140: 74 3F 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 t? 1..>if vat?="
000150: 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D "..>sv vat?="y".
000160: 0A 3E 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 .>ei..>un vat? i
000170: 6E 20 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E n "yn"..>ei..>>>
000180: 0D 0A 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 ..>>> ask for or
000190: 64 65 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 der levels from
0001A0: 6B 65 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E keyboard..>>>..>
0001B0: 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A if useprod="y"..
0001C0: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E >dm " "..>dm "En
0001D0: 74 65 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 ter quantities f
0001E0: 6F 72 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 or the following
0001F0: 20 70 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 products"..>dm
Size : 512 (Real : 512)
000000: 6B 66 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 kfn&,&askcar&,&u
000010: 73 65 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 seprod&,&defdisc
000020: 26 27 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 &'..>wm '&caline
000030: 26 2C 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 &,&aline&,&tline
000040: 26 2C 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 &,&totline&'..>w
000050: 6D 20 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C m '&side&,&rc1&,
000060: 26 72 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 &rc2&,&rc3&,&rc4
000070: 26 2C 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 &,&rc5&'..>sv rc
000080: 31 3D 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 1=rc1-1 rc2=rc2-
000090: 31 20 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 1 rc3=rc3-1 rc4=
0000A0: 72 63 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D rc4-1 rc5=rc5-1.
0000B0: 0A 3E 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 .>sv r2c1=rc1 r2
0000C0: 63 32 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 c2=rc2+3 r2c3=rc
0000D0: 33 2B 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 3+2 r2c4=rc4-2 r
0000E0: 32 63 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 2c5=rc5-3..>sv r
0000F0: 63 31 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 c1=rc1[w1] rc2=r
000100: 63 32 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 c2[w1] rc3=rc3[w
000110: 31 5D 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 1] rc4=rc4[w1] r
000120: 63 35 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 c5=rc5[w1] ..>sv
000130: 20 72 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 ruler1=">"+dash
000140: 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 es[1:&n&]+"!"+da
000150: 73 68 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 shes[1:10]+"L"+d
000160: 61 73 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D ashes[1:17]+"R".
000170: 0A 3E 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B .>sv ruler2=">"+
000180: 64 61 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B dashes[1:&rc1&]+
000190: 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 "!"+dashes[1:&rc
0001A0: 32 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 2&]+"!"+dashes[1
0001B0: 3A 26 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 :&rc3&]+"!"..>sv
0001C0: 20 72 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 ruler2=ruler2+d
0001D0: 61 73 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 ashes[1:&rc4&]+"
0001E0: 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 !"+dashes[1:&rc5
0001F0: 26 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 &]+"R"..>sv r3c3
Size : 512 (Real : 512)
000000: 22 54 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 "Typing anything
000010: 20 6F 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 other than a nu
000020: 6D 62 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 mber will skip a
000030: 6C 6C 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F ll remaining pro
000040: 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D ducts"..>dm " ".
000050: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E .>sv n=0..>rp..>
000060: 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D sv n=n+1 n=n[w1]
000070: 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 ..>sv quant&n&="
000080: 30 22 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 0"..>un n=maxn..
000090: 3E 3E 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 >>>..>sv n=0..>r
0000A0: 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E p..>sv n=n+1 n=n
0000B0: 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 [w1]..>sv prompt
0000C0: 3D 64 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 =desc&n&..>if pr
0000D0: 6F 6D 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 ompt[25]=""..>sv
0000E0: 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 prompt=prompt+"
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
000110: 76 20 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B v prompt=prompt[
000120: 31 3A 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 1:25]..>ei..>av
000130: 22 26 70 72 6F 6D 70 74 26 20 3A 20 22 20 78 0D "&prompt& : " x.
000140: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
000150: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 71 75 61 =0..>ei..>sv qua
000160: 6E 74 26 6E 26 3D 78 2B 30 0D 0A 3E 69 66 20 78 nt&n&=x+0..>if x
000170: 3C 3E 71 75 61 6E 74 26 6E 26 0D 0A 3E 73 76 20 <>quant&n&..>sv
000180: 71 75 61 6E 74 26 6E 26 3D 22 30 22 0D 0A 3E 73 quant&n&="0"..>s
000190: 76 20 6E 3D 6D 61 78 6E 20 6E 3D 6E 5B 77 31 5D v n=maxn n=n[w1]
0001A0: 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6E 3D 6D 61 78 ..>ei..>if n=max
0001B0: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 n..>dm " "..>av
0001C0: 22 52 65 2D 65 6E 74 65 72 20 6F 72 64 65 72 20 "Re-enter order
0001D0: 28 79 2F 4E 29 3F 20 22 20 79 65 73 6E 6F 20 31 (y/N)? " yesno 1
0001E0: 0D 0A 3E 69 66 20 79 65 73 6E 6F 3D 22 79 22 0D ..>if yesno="y".
0001F0: 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 64 6D 20 22 20 .>sv n=0..>dm "
Size : 512 (Real : 512)
000000: 3D 72 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C =r2c3-2..>sv rul
000010: 65 72 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 er3=">"+dashes[1
000020: 3A 26 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 :&r2c1&]+"!"+das
000030: 68 65 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D hes[1:&r2c2&]+"-
000040: 2D 2E 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 -."+dashes[1:&r3
000050: 63 33 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 c3&]+"."..>sv ru
000060: 6C 65 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 ler3=ruler3+dash
000070: 65 73 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 es[1:&r2c4&]+"."
000080: 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 +dashes[1:&r2c5&
000090: 5D 2B 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 ]+"R"..>sv ruler
0000A0: 34 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 4=">"+dashes[1:&
0000B0: 6E 26 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 n&]+"!"+dashes[1
0000C0: 3A 31 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B :14]+"L"+dashes[
0000D0: 31 3A 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 1:7]+".--R"..>sv
0000E0: 20 6E 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 n=iwidth-2..>sv
0000F0: 20 72 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 ruler5=">"+dash
000100: 65 73 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E es[1:&n&]+"R"..>
000110: 77 6D 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D wm '"&ruler1&"'.
000120: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 .>wm '"&ruler2&"
000130: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 '..>wm '"&ruler3
000140: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
000150: 72 34 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 r4&"'..>wm '"&ru
000160: 6C 65 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 ler5&"'..>wm '!c
000170: 6F 6E 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 oname!'..>wm '!c
000180: 6F 61 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 oaddr1!'..>wm '!
000190: 63 6F 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 coaddr2!'..>wm '
0001A0: 21 63 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 !coaddr3!'..>wm
0001B0: 27 21 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D '!coaddr4!'..>wm
0001C0: 20 27 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 '!coaddr5!'..>w
0001D0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 c..>cf..>ex era
0001E0: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 ominvgen.inf..>i
0001F0: 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F d cpm..>ex ren o
Size : 512 (Real : 512)
000000: 6C 20 66 6D 61 64 64 7C 31 33 7C 79 7C 36 33 39 l fmadd|13|y|639
000010: 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 0D 0A 3E 3E ||16|ps|13|...>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
000100: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
000110: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
000120: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
000130: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
000140: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
000150: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
000160: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
000170: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
000180: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
000190: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
0001A0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
0001B0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
0001C0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
0001D0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
0001E0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
0001F0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
Size : 512 (Real : 512)
000000: 6D 69 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 minvgen.inf omte
000010: 6D 70 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 mp.inf..>el..>ex
000020: 20 72 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 ren omtemp.inf
000030: 6F 6D 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 ominvgen.inf..>e
000040: 69 0D 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 i..>df omenu..>s
000050: 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 k 0=0..>ei ; opt
000060: 3D 22 65 22 0D 0A 1A 6C 65 0D 0A 3E 6E 63 20 32 ="e"...le..>nc 2
000070: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000080: 79 20 68 20 5E 31 35 39 5E 5E 32 30 36 5E 0D 0A y h ^159^^206^..
000090: 7C 31 36 7C 1A 20 62 20 5E 31 35 39 5E 5E 32 33 |16|. b ^159^^23
0000A0: 34 5E 0D 0A 6B 65 79 20 63 20 5E 31 35 39 5E 5E 4^..key c ^159^^
0000B0: 32 33 35 5E 0D 0A 6B 65 79 20 64 20 5E 31 35 39 235^..key d ^159
0000C0: 5E 5E 32 33 38 5E 0D 0A 6B 65 79 20 65 20 5E 31 ^^238^..key e ^1
0000D0: 35 39 5E 5E 31 39 33 5E 0D 0A 6B 65 79 20 66 20 59^^193^..key f
0000E0: 5E 31 35 39 5E 5E 32 30 32 5E 0D 0A 6B 65 79 20 ^159^^202^..key
0000F0: 67 20 5E 31 35 39 5E 5E 32 30 33 5E 0D 0A 6B 65 g ^159^^203^..ke
000100: C0 CD A1 82 21 6C 4F CD B7 80 DC 5F 80 E1 CD 31 ....!lO...._...1
000110: 3F CD 9A 09 C7 FE 20 11 4F AB 38 24 FE 7F CA E1 ?..... .O.8$....
000120: 65 FE 9F 28 2B FE C0 CA 98 50 DA FB A7 FE C8 DA e..(+....P......
000130: AC 62 FE D0 DA C0 69 FE FD C8 D6 D0 D8 11 F7 AA .b....i.........
000140: 4F F5 C5 06 00 EB 09 09 CD 5F 3B C1 F1 EB D5 C9 O........_;.....
000150: CD 4B 0A 57 3E 9F C3 FB A7 CD 59 74 30 0C CD 63 .K.W>.....Yt0..c
000160: 78 EB C9 CD 9E 1B DC 75 23 C9 EB CD 61 40 21 FF x......u#...a@!.
000170: 4C CD 64 40 06 10 21 E4 24 C3 75 0F 06 26 CD 61 L.d@..!.$.u..&.a
000180: 40 18 F3 CD 59 74 D2 89 1D 11 24 4B CD 59 78 D0 @...Yt....$K.Yx.
000190: CD 75 20 CD 9A 78 D0 C3 81 75 E5 CD 5D 33 EB E1 .u ..x...u..]3..
0001A0: D0 DD 21 AC 3C CD 25 79 CD C6 78 30 25 E5 DD E5 ..!.<.%y..x0%...
0001B0: CD 6A 64 DD E1 C1 CD 29 7A F5 E5 09 23 77 E1 F1 .jd....)z...#w..
0001C0: D0 CD 50 7B 37 C9 EB CD 9F 3E ED 5B 82 3C D0 C3 ..P{7....>.[.<..
0001D0: 54 3B 21 34 3D DD 21 C8 3C CD 1B 79 11 AC 3C CD T;!4=.!.<..y..<.
0001E0: 0E 7E D0 CD 4C 5A CD 0E 79 CD 8E 5D D0 CD 52 81 .~..LZ..y..]..R.
0001F0: D0 21 C8 3C 11 28 3D CD F1 31 D0 21 28 3D DD 21 .!.<.(=..1.!(=.!
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6C 20 66 6D 6D 65 72 67 65 7C 31 33 7C 79 7C 36 l fmmerge|13|y|6
000010: 33 39 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 3E 3E 39||16|ps|13|.>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 64 6D 20 22 20 22 n>=rlen..>dm " "
000090: 0D 0A 3E 64 6D 20 54 79 70 65 20 22 65 6E 64 22 ..>dm Type "end"
0000A0: 20 74 6F 20 66 69 6E 69 73 68 0D 0A 3E 64 6D 20 to finish..>dm
0000B0: 22 20 22 0D 0A 3E 64 6D 0D 0A 3E 3E 3E 0D 0A 3E " "..>dm..>>>..>
0000C0: 61 76 20 22 26 70 31 26 22 20 76 31 0D 0A 3E 69 av "&p1&" v1..>i
0000D0: 66 20 76 31 3D 22 65 6E 64 22 0D 0A 3E 77 63 0D f v1="end"..>wc.
0000E0: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
0000F0: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
000100: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000110: 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6E .>ei..>>>..>sv n
000120: 3D 22 31 22 20 70 61 64 3D 22 6E 22 20 63 68 6B ="1" pad="n" chk
000130: 6C 65 6E 3D 6D 61 78 0D 0A 3E 72 70 0D 0A 3E 73 len=max..>rp..>s
000140: 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D v n=n+1 n=n[w1].
000150: 0A 3E 69 66 20 70 61 64 3D 22 79 22 0D 0A 3E 73 .>if pad="y"..>s
000160: 76 20 76 26 6E 26 3D 22 22 0D 0A 3E 65 6C 0D 0A v v&n&=""..>el..
000170: 3E 73 76 20 73 3D 70 26 6E 26 0D 0A 3E 61 76 20 >sv s=p&n&..>av
000180: 22 26 73 26 22 20 76 26 6E 26 0D 0A 3E 69 66 20 "&s&" v&n&..>if
000190: 66 76 3D 22 76 22 0D 0A 3E 69 66 20 76 26 6E 26 fv="v"..>if v&n&
0001A0: 3D 22 22 0D 0A 3E 73 76 20 70 61 64 3D 22 79 22 =""..>sv pad="y"
0001B0: 20 76 6C 65 6E 3D 6E 20 63 68 6B 6C 65 6E 3D 6E vlen=n chklen=n
0001C0: 2D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 -1..>ei..>ei..>e
0001D0: 69 0D 0A 3E 75 6E 20 6E 3E 3D 6D 61 78 0D 0A 3E i..>un n>=max..>
0001E0: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 72 70 >>..>dm " "..>rp
0001F0: 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 20 20 43 ..>av " C
Size : 512 (Real : 512)
000000: 6C 20 66 6D 66 69 6E 64 7C 31 33 7C 79 7C 36 33 l fmfind|13|y|63
000010: 39 7C 7C 31 36 7C 70 73 7C 31 33 7C 1A 0A 3E 3E 9||16|ps|13|..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 1]..>sv s=f&n&..
000090: 3E 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3D 72 >wm !s!..>un n=r
0000A0: 6C 65 6E 0D 0A 3E 65 6C 20 3B 20 76 61 72 0D 0A len..>el ; var..
0000B0: 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E >rp..>sv n=n+1 n
0000C0: 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 =n[w1]..>sv s=f&
0000D0: 6E 26 0D 0A 3E 77 6D 20 26 73 26 0D 0A 3E 69 66 n&..>wm &s&..>if
0000E0: 20 73 3D 22 22 0D 0A 3E 73 76 20 6E 3D 72 6C 65 s=""..>sv n=rle
0000F0: 6E 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 72 6C n..>ei..>un n=rl
000100: 65 6E 0D 0A 3E 65 69 20 3B 20 66 2F 76 0D 0A 3E en..>ei ; f/v..>
000110: 73 76 20 6E 6E 3D 6E 6E 2B 31 0D 0A 3E 65 6C 20 sv nn=nn+1..>el
000120: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 73 76 20 6E 6E ; f1=end..>sv nn
000130: 3D 6E 6E 5B 77 31 5D 0D 0A 3E 64 6D 20 22 20 22 =nn[w1]..>dm " "
000140: 0D 0A 3E 77 74 20 22 26 6E 6E 26 20 72 65 63 6F ..>wt "&nn& reco
000150: 72 64 73 20 66 6F 75 6E 64 2E 20 50 72 65 73 73 rds found. Press
000160: 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E a key to contin
000170: 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 ue .....>wc..>cf
000180: 09 3B 20 6C 65 74 20 65 78 65 63 20 68 61 76 65 .; let exec have
000190: 20 68 61 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 handle 0..>ex e
0001A0: 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 xec fm..>st..>ei
0001B0: 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B ..>sk 0=0..>ei ;
0001C0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
0001D0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
0001E0: 6D 20 22 4F 70 74 69 6F 6E 20 53 2E 31 20 2D 20 m "Option S.1 -
0001F0: 53 65 6C 65 63 74 20 72 65 63 6F 72 64 73 20 28 Select records (
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: C3 05 2D 00 00 00 CD AB 05 25 24 20 05 7D FE 30 ..-......%$ .}.0
000010: 30 09 11 63 04 CD A3 05 C3 00 00 3A 05 01 B7 C0 0..c.......:....
000020: 3D 32 05 01 00 00 00 00 00 00 00 00 00 00 00 00 =2..............
000030: 00 06 01 0E 00 CD 2A 23 D2 00 00 22 BC 01 2A 01 ......*#..."..*.
000040: 00 11 57 00 19 23 7E 32 96 05 23 7E 32 97 05 CD ..W..#~2..#~2...
000050: 85 05 32 BB 01 97 32 79 01 3C 32 77 01 21 00 00 ..2...2y.<2w.!..
000060: 22 B6 01 22 B8 01 CD 92 0C D2 00 00 CD 76 13 CD "..".........v..
000070: 6E 1F CD 04 24 37 C9 00 00 00 00 00 00 00 00 00 n...$7..........
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 44 72 69 76 65 A0 20 2D ........Drive. -
0001F0: 20 52 65 74 72 79 2C 20 49 67 6E 6F 72 65 20 6F Retry, Ignore o
Size : 512 (Real : 512)
000000: 6C 20 66 6D 70 72 69 6E 74 7C 31 33 7C 79 7C 36 l fmprint|13|y|6
000010: 33 39 7C 7C 31 36 7C 70 7C 31 33 7C 1A 0A 3E 3E 39||16|p|13|..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 63 73 20 22 .>>>..>>>..>cs "
000050: 20 22 0D 0A 3E 6E 63 20 32 35 35 0D 0A 3E 69 75 "..>nc 255..>iu
000060: 20 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 df..>sv sys_ver
000070: 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 =sys_ver..>if sy
000080: 6D 20 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E m "Searching ...
000090: 22 0D 0A 3E 73 76 20 6E 6E 3D 30 0D 0A 3E 64 66 "..>sv nn=0..>df
0000A0: 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 fm.mus..>rv mus
0000B0: 0D 0A 3E 63 66 0D 0A 3E 69 66 20 6D 75 73 3D 22 ..>cf..>if mus="
0000C0: 6D 22 0D 0A 3E 64 66 20 26 64 66 26 20 66 6D 65 m"..>df &df& fme
0000D0: 6E 64 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 nd..>ei..>if mus
0000E0: 3D 22 75 22 0D 0A 3E 64 66 20 26 6E 65 77 66 69 ="u"..>df &newfi
0000F0: 6C 65 26 20 66 6D 65 6E 64 0D 0A 3E 65 69 0D 0A le& fmend..>ei..
000100: 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A 3E 64 66 >if mus="s"..>df
000110: 20 26 73 65 6C 66 69 6C 65 26 20 66 6D 65 6E 64 &selfile& fmend
000120: 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 73 65 6C 66 ..>ei..>wf &self
000130: 69 6C 65 26 0D 0A 3E 3E 3E 0D 0A 3E 65 69 20 3B ile&..>>>..>ei ;
000140: 20 69 75 20 64 66 0D 0A 1A 70 6F 66 66 0D 0A 3E iu df...poff..>
000150: 73 76 20 6E 3D 30 0D 0A 3E 69 66 20 66 76 3D 22 sv n=0..>if fv="
000160: 66 22 20 3B 20 66 69 78 65 64 0D 0A 3E 72 70 0D f" ; fixed..>rp.
000170: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000180: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
000190: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A o continue .....
0001A0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
0001B0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
0001C0: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 .>sk 0=0..>ei ;
0001D0: 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 id df..>>>..>iu
0001E0: 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D df..>cs " "..>dm
0001F0: 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 53 "Option S.3 - S
Size : 512 (Real : 512)
000000: 72 20 43 61 6E 63 65 6C 3F A0 44 69 73 63 20 65 r Cancel?.Disc e
000010: 72 72 6F F2 44 69 73 63 20 6D 69 73 73 69 6E 67 rro.Disc missing
000020: 20 6F 72 20 72 65 61 64 20 66 61 69 EC 46 69 6C or read fai.Fil
000030: 65 20 69 73 20 72 65 61 64 20 6F 6E 6C F9 44 72 e is read onl.Dr
000040: 69 76 65 20 6E 6F 74 20 72 65 61 64 F9 57 72 69 ive not read.Wri
000050: 74 65 20 70 72 6F 74 65 63 74 65 E4 53 65 65 6B te protecte.Seek
000060: 20 66 61 69 EC 44 61 74 61 20 65 72 72 6F F2 4E fai.Data erro.N
000070: 6F 20 64 61 74 E1 4D 69 73 73 69 6E 67 20 61 64 o dat.Missing ad
000080: 64 72 65 73 73 20 6D 61 72 EB 42 61 64 20 66 6F dress mar.Bad fo
000090: 72 6D 61 F4 80 4D 65 64 69 61 20 63 68 61 6E 67 rma..Media chang
0000A0: 65 E4 44 69 73 63 20 75 6E 73 75 69 74 61 62 6C e.Disc unsuitabl
0000B0: 65 20 66 6F 72 20 64 72 69 76 E5 44 69 72 65 63 e for driv.Direc
0000C0: 74 6F 72 79 20 66 75 6C EC 44 69 73 63 20 66 75 tory ful.Disc fu
0000D0: 6C EC 46 69 6C 65 20 6E 6F 74 20 66 6F 75 6E E4 l.File not foun.
0000E0: 42 61 64 20 66 69 6C 65 6E 61 6D E5 4D 61 78 69 Bad filenam.Maxi
0000F0: 6D 75 6D 20 6E 75 6D 62 65 72 20 6F 66 20 66 69 mum number of fi
000100: 6C 65 73 20 6F 70 65 EE 42 61 64 20 66 69 6C 65 les ope.Bad file
000110: 20 6F 70 65 6E 20 6D 6F 64 E5 41 72 65 20 79 6F open mod.Are yo
000120: 75 20 73 75 72 65 20 28 79 2F 6E 29 3F A0 2A 2E u sure (y/n)?.*.
000130: 2A 00 2A 2E 67 72 70 00 4B 20 66 72 65 E5 20 67 *.*.grp.K fre. g
000140: 72 6F 75 F0 49 6E 73 75 66 66 69 63 69 65 6E 74 rou.Insufficient
000150: 20 6D 65 6D 6F 72 79 20 66 6F 72 20 70 72 6F 67 memory for prog
000160: 72 61 ED 54 68 69 73 20 70 72 6F 67 72 61 6D 20 ra.This program
000170: 77 69 6C 6C 20 6F 6E 6C 79 20 72 75 6E 20 75 6E will only run un
000180: 64 65 72 20 41 6D 73 74 72 61 64 20 43 50 2F 4D der Amstrad CP/M
000190: 20 50 6C 75 73 24 0C 02 00 01 03 FE 00 00 00 00 Plus$..........
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 38 06 32 4C ............8.2L
0001F0: 66 00 C3 3C 18 00 3C C3 38 C0 00 00 00 26 BB C3 f..<..<.8....&..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 91 05 E5 2E 1B 18 F6 E5 2E 1E 18 F1 E5 2E 21 18 ..............!.
000010: EC E5 2E 2A 18 E7 E5 2E 30 18 E2 E5 2E 36 18 DD ...*....0....6..
000020: E5 2E 39 18 D8 E5 2E 5A 18 D3 E5 2E 66 18 CE E5 ..9....Z....f...
000030: 2E 6C 18 C9 E5 21 0B BC 18 57 E5 21 0E BC 18 51 .l...!...W.!...Q
000040: E5 21 1A BC 18 4B E5 21 32 BC 18 45 E5 21 38 BC .!...K.!2..E.!8.
000050: 18 3F E5 21 50 BC 18 39 E5 2E 98 18 32 E5 2E B6 .?.!P..9....2...
000060: 18 2D E5 2E B9 18 28 E5 2E BF 18 23 E5 2E CE 18 .-....(....#....
000070: 1E E5 2E D7 18 19 E5 2E DA 18 14 E5 2E DD 18 0F ................
000080: E5 2E E0 18 0A E5 2E E3 18 05 E5 2E E6 18 00 26 ...............&
000090: 00 22 98 05 E1 CD 00 00 00 00 C9 3E 05 18 72 3E .".........>..r>
0000A0: 06 18 6E 3E 09 18 6A 3E 0B 18 66 3E 0C 18 62 3E ..n>..j>..f>..b>
0000B0: 0E 18 6F 3E 0F 18 73 3E 10 18 6F 3E 11 C3 2A 06 ..o>..s>..o>..*.
0000C0: 3E 12 C3 2A 06 3E 13 18 61 3E 16 18 5D 3E 17 18 >..*.>..a>..]>..
0000D0: 59 3E 18 18 3C 3E 19 18 38 3E 1A 18 34 3E 1E 18 Y>..<>..8>..4>..
0000E0: 49 3E 20 18 2C 3E 21 18 41 3E 22 18 3D 3E 23 18 I> .,>!.A>".=>#.
0000F0: 39 3E 25 18 1C 3E 2C 18 18 3E 2D 18 14 3E 2E 18 9>%..>,..>-..>..
000100: 21 3E 2F 18 25 3E 31 18 08 3E 6C 18 04 3E 98 18 !>/.%>1..>l..>..
000110: 00 FD E5 DD E5 D5 C5 4F CD 05 00 C1 D1 DD E1 FD .......O........
000120: E1 C9 F5 7B 32 BF 01 F1 18 0A F5 1A 3D FC 05 24 ...{2.......=..$
000130: 32 BF 01 F1 32 BE 01 3A BE 01 CD 11 06 3C 28 03 2...2..:.....<(.
000140: 3D 37 C9 7C B7 37 28 1A FE 08 37 28 15 FD E5 DD =7.|.7(...7(....
000150: E5 E5 D5 C5 CD 8E 24 C1 D1 E1 DD E1 FD E1 38 02 ......$.......8.
000160: 28 D5 3E FF C9 3A 05 01 B7 C8 97 32 05 01 CD 0D (.>..:.....2....
000170: 14 CD F9 0D C9 F5 E5 21 79 01 FE 20 38 01 34 FE .......!y.. 8.4.
000180: 0D 20 02 36 00 21 77 01 CB 76 20 1A CB 46 28 05 . .6.!w..v ..F(.
000190: FE 9F C4 1F 0E CB 7E 20 0A CB 4E C4 D7 06 CB 56 ......~ ..N....V
0001A0: C4 FD 06 E1 F1 C9 2A 4C 0C 77 23 22 4C 0C 18 F3 ......*L.w#"L...
0001B0: 3A 79 01 B7 CA 83 10 CD BE 06 3E 0A 18 B7 3E 0D :y........>...>.
0001C0: 18 B3 3E 08 CD D0 06 3E 08 18 AA CD D3 06 18 03 ..>....>........
0001D0: CD 75 06 3E 20 18 9E CD 0F 07 D8 FE 9F 37 C8 F5 .u.> ........7..
0001E0: FE 80 38 02 3E 2E F5 CD C1 22 38 0B CD 43 0F CD ..8.>...."8..C..
0001F0: 53 07 30 2D F1 18 EF F1 CD 53 0F F1 C9 CD 0F 07 S.0-.....S......
Size : 512 (Real : 512)
000000: C9 E5 CD F1 0E EB CD EB 0E 19 E5 21 00 00 CD C9 ...........!....
000010: 0F CD 1A 0F E1 CD B7 0E E1 C9 D5 E5 22 9E 04 EB ............"...
000020: B7 ED 52 EB ED 53 A0 04 7C B5 20 0B EB CD C9 0F ..R..S..|. .....
000030: EB 7A AC 20 02 7B AD 32 A2 04 CD 93 11 CD A0 10 .z. .{.2........
000040: E1 D1 C9 F5 3A A3 04 CB 5F CB DF 32 A3 04 CC ED ....:..._..2....
000050: 12 F1 C9 F5 3A A3 04 CB 5F CB 9F 32 A3 04 C4 ED ....:..._..2....
000060: 12 F1 C9 E6 07 21 A9 04 BE C8 C5 D5 4E 77 79 F5 .....!......Nwy.
000070: CD 95 0F EB 21 9C 04 CD 8C 0C 3A A9 04 CD 95 0F ....!.....:.....
000080: 11 9C 04 CD 8C 0C CD EB 0E E5 CD 93 11 E1 CD B7 ................
000090: 0E F1 D1 C1 C9 21 AA 04 01 08 00 3C 3D C8 09 3D .....!.....<=..=
0000A0: 20 FC C9 11 AA 04 3E 08 21 9C 04 CD 8C 0C 3D 20 .....>.!.....=
0000B0: F7 C9 3E 02 CD 5C 22 CC 3A 05 CD 01 0F CD A0 10 ..>..\".:.......
0000C0: 3E 79 CD 36 12 CD A3 0F C9 F5 CD 5C 22 28 06 F1 >y.6.......\"(..
0000D0: 16 59 1E 1E C9 F1 16 4F 1E 17 C9 F5 E5 21 A3 04 .Y.....O.....!..
0000E0: CB FE E1 F1 C9 F5 E5 21 A3 04 CB BE E1 F1 C9 3A .......!.......:
0000F0: A3 04 EE 80 32 A3 04 C9 F5 E5 CD EB 0E 24 3A A1 ....2........$:.
000100: 04 3C BC 30 05 CD 8A 10 18 03 CD B7 0E E1 F1 C9 .<.0............
000110: F5 E5 CD EB 0E 25 20 0B CD 6F 10 CD EB 0E 3A A1 .....% ..o....:.
000120: 04 3C 67 CD B7 0E E1 F1 C9 FE 0D 28 3A FE 0A 28 .<g........(:..(
000130: 5C FE 08 28 DB FE 0B 28 36 FE 0C CA AB 10 FE 09 \..(...(6.......
000140: 28 B6 FE 07 28 19 FE 01 28 39 FE 12 28 74 FE 18 (...(...(9..(t..
000150: 28 9D FE 1E 28 4A C9 F5 3E 20 CD 1F 0E F1 C9 F5 (...(J..> ......
000160: 3E 07 CD 2B 12 F1 C9 F5 3E 01 CD D5 0E F1 C9 F5 >..+....>.......
000170: E5 CD EB 0E 2D 20 06 CD DB 10 CD EB 0E CD B7 0E ....- ..........
000180: E1 F1 C9 E5 CD EB 0E 25 E1 C8 CD 67 10 F5 E5 21 .......%...g...!
000190: 9C 04 34 21 A5 04 35 CC 1F 11 CD 0C 12 E1 F1 C9 ..4!..5.........
0001A0: F5 E5 26 01 6C CD B7 0E E1 F1 C9 CD 5C 22 28 07 ..&.l.......\"(.
0001B0: 3E 45 CD 36 12 18 09 CD B8 11 CD 2F 05 CD 04 0E >E.6......./....
0001C0: 18 DE F5 C5 D5 E5 CD EB 0E E5 3A A6 04 3D 47 CD ..........:..=G.
0001D0: 5C 12 E1 CD B7 0E E1 D1 C1 F1 C9 C5 D5 CD 5C 22 \.............\"
0001E0: 28 2F ED 5B A0 04 3E 59 BA 28 1C 2A 9E 04 16 00 (/.[..>Y.(.*....
0001F0: 19 54 5D 2D 3A A0 04 47 B7 28 07 CD 66 11 1D 2D .T]-:..G.(..f..-
Size : 512 (Real : 512)
000000: D8 F5 C5 47 3A 78 01 CD C1 19 30 0C C1 F1 C9 FE ...G:x....0.....
000010: 0D C8 FE 0A C8 FE 20 C9 21 77 01 CB 96 2A B6 01 ...... .!w...*..
000020: E9 21 77 01 CB 8E 2A B8 01 E9 CD B0 06 7E 23 FE .!w...*......~#.
000030: BA 28 0F FE 9F 28 09 FE 80 38 07 E6 7F C3 75 06 .(...(...8....u.
000040: 7E 23 CD 75 06 18 E6 E5 C5 47 C5 CD B2 14 C1 78 ~#.u.....G.....x
000050: C1 E1 C9 CD 47 07 37 C8 C5 47 C5 CD D1 14 CD 43 ....G.7..G.....C
000060: 0F CD 8B 14 CD 53 0F FE FC 3A BA 01 F5 D4 18 1B .....S...:......
000070: F1 C1 78 C1 C9 FE E1 DA 92 25 FE FB D0 D6 20 C9 ..x......%.... .
000080: 4C 7D 06 10 21 00 00 CB 39 1F 30 01 19 EB 29 EB L}..!...9.0...).
000090: 10 F5 C9 CD 99 07 67 69 C9 4D 7C 21 00 00 06 10 ......gi.M|!....
0000A0: CB 11 17 ED 6A ED 52 30 01 19 3F 10 F3 CB 11 17 ....j.R0..?.....
0000B0: C9 7C 90 C0 7D 91 C9 B7 DD E5 E3 ED 42 09 E3 DD .|..}.......B...
0000C0: E1 C9 E5 F5 3A 79 01 3C 67 F1 BC 38 0A 94 E1 C8 ....:y.<g..8....
0000D0: C5 47 CD 5E 08 C1 C9 E1 F5 CD B0 06 F1 18 E3 C5 .G.^............
0000E0: 06 06 AF 18 1F C5 06 05 3E 30 18 18 C5 06 02 3E ........>0.....>
0000F0: 30 18 11 C5 06 05 18 0A C5 06 02 18 05 C5 06 03 0...............
000100: 18 00 3E 20 D5 E5 50 CD 2C 08 42 2B 3E 06 90 20 ..> ..P.,.B+>..
000110: 08 23 05 7E B7 28 FA 18 04 23 3D 20 FC CD 70 08 .#.~.(...#= ..p.
000120: E1 E1 E1 E1 D1 C1 C9 3E 20 18 01 AF C1 E5 E5 E5 .......> .......
000130: C5 DD E5 D5 EB 21 06 00 39 E5 E5 DD E1 06 06 77 .....!..9......w
000140: 23 10 FC 7A 4B 11 0A 00 CD 9B 07 47 7D F6 30 DD #..zK......G}.0.
000150: 77 04 DD 2B 78 B1 78 20 EF E1 D1 DD E1 C9 04 05 w..+x.x ........
000160: C8 3E 20 CD 75 06 10 FB C9 CD 9F 08 23 10 FA C9 .> .u.......#...
000170: CD 83 08 23 10 FA C9 E6 7F FE 7F 28 03 FE 20 D0 ...#.......(.. .
000180: 3E 2E C9 7E CD 77 08 C3 75 06 E6 0F C6 30 FE 3A >..~.w..u....0.:
000190: D8 C6 07 C9 7C CD A3 08 7D CD A3 08 C3 D3 06 7E ....|...}......~
0001A0: 18 F7 7E F5 0F 0F 0F 0F CD AC 08 F1 CD 8A 08 C3 ..~.............
0001B0: 75 06 7C CD A3 08 7D 18 EA DD E5 E3 CD E5 25 E3 u.|...}.......%.
0001C0: DD E1 3F C9 DD E5 E3 CD FE 25 E3 DD E1 3F C9 11 ..?......%...?..
0001D0: 00 00 DD 7E 00 CD E4 08 D0 DD 23 EB 29 EB 1F 30 ...~......#.)..0
0001E0: F1 13 18 EE FE 32 D0 FE 30 3F C9 D5 C9 C5 C9 DD .....2..0?......
0001F0: E9 36 00 D5 1E 00 CD 07 09 D1 C9 36 00 D5 1E 00 .6.........6....
Size : 512 (Real : 512)
000000: 10 F9 CD 85 11 18 15 CD CB 11 3E 49 CD 36 12 18 ..........>I.6..
000010: 0B CD F1 0E 30 F1 06 00 AF CD 52 05 D1 C1 C9 C5 ....0.....R.....
000020: D5 21 9C 04 35 21 A5 04 34 CD 5C 22 28 2B 3A A1 .!..5!..4.\"(+:.
000030: 04 FE 59 28 19 2A 9E 04 54 5D 2C 3A A0 04 47 B7 ..Y(.*..T],:..G.
000040: 28 07 CD 66 11 1C 2C 10 F9 CD 85 11 18 08 CD CB (..f..,.........
000050: 11 3E 0A CD 2B 12 D1 C1 C9 CD F1 0E 30 F0 06 01 .>..+.......0...
000060: AF CD 52 05 18 F0 C5 D5 E5 CD 20 12 EB CD 20 12 ..R....... ... .
000070: EB 3A A1 04 3C 06 00 87 87 CB 10 87 CB 10 4F CD .:..<.........O.
000080: 26 12 C3 11 0E CD EB 0E E5 CD 67 10 CD C2 10 E1 &.........g.....
000090: C3 B7 0E CD 5C 22 C8 D5 E5 2A 9E 04 ED 5B A0 04 ....\"...*...[..
0000A0: 3E 58 CD 36 12 7D CD 29 12 7C CD 29 12 7B CD 29 >X.6.}.).|.).{.)
0000B0: 12 7A CD 29 12 E1 D1 C9 C5 D5 E5 2A 9E 04 ED 5B .z.).......*...[
0000C0: A0 04 EB 19 EB CD 2A 05 C3 11 0E C5 D5 E5 CD EB ......*.........
0000D0: 0E 3E 59 CD 36 12 7D C6 1F CD 2B 12 7C C6 1F CD .>Y.6.}...+.|...
0000E0: 2B 12 C3 11 0E C5 D5 E5 CD 67 05 78 41 4F 7A 53 +........g.xAOzS
0000F0: 5F 7C 65 6F ED 43 9E 04 ED 53 A0 04 22 9C 04 C3 _|eo.C...S.."...
000100: 11 0E CD 5C 22 CA 34 05 21 00 00 C9 C5 D5 E5 2A ...\".4.!......*
000110: 9C 04 ED 5B 9E 04 19 CD 20 12 22 A7 04 C3 11 0E ...[.... .".....
000120: C3 00 00 01 08 00 C3 00 00 C6 20 E5 D5 F5 5F CD .......... ..._.
000130: 9F 05 F1 D1 E1 C9 F5 3E 1B CD 2B 12 F1 18 EC CD .......>..+.....
000140: 83 10 7E 23 FE BA 28 0F FE 9F 28 09 FE 80 38 07 ..~#..(...(...8.
000150: E6 7F C3 1F 0E 7E 23 CD 1F 0E 18 E6 04 05 C8 CD .....~#.........
000160: 57 10 10 FB C9 C5 D5 E5 E5 E5 E5 E5 21 00 00 39 W...........!..9
000170: D5 54 5D 6F 26 10 CD 5C 22 28 02 26 17 29 29 29 .T]o&..\"(.&.)))
000180: D5 CD 23 12 E1 D1 CD 8C 0C E1 E1 E1 E1 C3 11 0E ..#.............
000190: C5 D5 E5 E5 E5 E5 E5 21 00 00 39 E5 EB CD 8C 0C .......!..9.....
0001A0: EB 6F 26 10 CD 5C 22 28 02 26 17 29 29 29 EB E1 .o&..\"(.&.)))..
0001B0: CD 23 12 E1 E1 E1 E1 C3 11 0E C5 D5 E5 ED 5B A7 .#............[.
0001C0: 04 CD C7 12 C3 11 0E 21 F0 FF 39 F9 CD 2B 13 EB .......!..9..+..
0001D0: 21 08 00 19 EB AF F5 CD 65 12 CD 1C 13 28 06 F1 !.......e....(..
0001E0: 3C 20 F3 18 02 F1 37 06 10 33 10 FD C9 F5 C5 D5 < ....7..3......
0001F0: E5 21 F8 FF 39 F9 ED 5B A7 04 CD 2B 13 EB CD 0E .!..9..[...+....
Size : 512 (Real : 512)
000000: CB EB CD 07 09 D1 C9 E5 DD E5 48 06 FF E5 7E 23 ..........H...~#
000010: 04 B7 20 FA E1 CD 5F 0A 16 00 CB FB CB B3 CD 25 .. ..._........%
000020: 09 DD E1 E1 C9 CD 6E 25 FE 0D 28 1E FE FD 28 0D ......n%..(...(.
000030: FE FC 28 09 DC 82 09 CB 63 20 0F 18 E8 04 05 C8 ..(.....c ......
000040: CD E0 09 CD 46 0A 38 FB 18 DB CD E0 09 C5 78 FE ....F.8.......x.
000050: 04 38 0D 48 AF 47 ED 42 11 7A 01 01 3B 00 ED B0 .8.H.G.B.z..;...
000060: C1 37 04 05 C9 CD 4A 0A D0 18 FA 7B EE 80 5F C9 .7....J....{.._.
000070: 3E 9F CD A2 0A D0 CD 85 14 23 CD E7 09 D8 2B C3 >........#....+.
000080: C2 0A FE E1 28 E5 FE 7F CA 46 0A FE 01 CA 0E 0A ....(....F......
000090: FE 05 28 D1 FE 10 CA 27 0A FE 0B CA 2B 0A FE 09 ..(....'....+...
0000A0: 28 45 FE 20 D8 FE 9F 28 C7 FE EA 28 18 FE E0 28 (E. ...(...(...(
0000B0: 14 FE C0 C8 38 31 D6 F2 D8 E5 6F 87 85 21 DF 0A ....81....o..!..
0000C0: CD 7B 25 E3 C9 04 05 20 1D CB 73 20 19 D5 E5 11 .{%.... ..s ....
0000D0: 7A 01 1A 13 B7 C4 A2 0A 23 38 F7 E1 D1 CD 5F 0A z.......#8...._.
0000E0: CD F9 09 38 FB C9 C9 B7 C8 CB 7B 20 05 F5 CD 4A ...8......{ ...J
0000F0: 0A F1 CD A2 0A D0 CD 5F 0A 7E B7 C8 23 14 CD F8 ......._.~..#...
000100: 0F FE 9F 28 06 7E FE 08 20 02 23 23 37 C9 7E B7 ...(.~.. .##7.~.
000110: C8 23 7E 2B B7 C8 C5 46 77 CD ED 09 78 CD ED 09 .#~+...Fw...x...
000120: C1 CD 86 0A C3 86 0A 7E B7 20 1F 04 05 C0 CB 6B .......~. .....k
000130: C8 C5 D5 E5 CD EB 0E 2D F5 CC B2 0F F1 C4 AB 10 .......-........
000140: E1 D1 C1 CB E3 C9 CD 86 0A D0 7E B7 C8 CD C2 0A ..........~.....
000150: FE 9F 7E CC C2 0A FE 08 CC C2 0A CC C2 0A AF D5 ..~.............
000160: E5 54 5D F5 CD EB 0E 1A B7 C4 7B 0A 13 B7 20 F7 .T].......{... .
000170: F1 CC 57 10 CD B7 0E E1 D1 37 C9 FE 9F C8 FE 20 ..W......7.....
000180: DA 22 0E C3 75 06 7A B7 C8 CD 10 10 2B 15 2B 7E ."..u.z.....+.+~
000190: FE 9F 37 C8 FE 08 C2 0B 0A 2B 37 C9 CD 86 0A 38 ..7......+7....8
0001A0: FB C9 B7 F5 78 A9 CA DD 0A C5 D5 E5 01 00 00 7E ....x..........~
0001B0: 23 03 B7 20 FA 54 5D 2B ED B8 E1 D1 C1 F1 77 04 #.. .T]+......w.
0001C0: 37 C9 F5 C5 D5 E5 01 00 00 54 5D 1A 13 03 B7 20 7........T]....
0001D0: FA 54 5D 23 ED B0 E1 D1 C1 05 F1 C9 C9 F1 C9 C3 .T]#............
0001E0: 86 0A C3 F9 09 C3 DC 0A C3 DC 0A C3 DC 0A C3 DC ................
0001F0: 0A C3 9C 0A C3 E0 09 C3 9C 0A C3 E0 09 CD 82 25 ...............%
Size : 512 (Real : 512)
000000: 13 EB CD 51 13 E1 E1 E1 E1 E1 D1 C1 F1 C9 C5 D5 ...Q............
000010: 06 08 1A EE FF 12 13 10 F9 D1 C1 C9 D5 E5 06 08 ................
000020: 1A BE 13 23 20 02 10 F8 E1 D1 C9 C5 D5 E5 EB CD ...# ...........
000030: 5C 22 28 05 CD 23 12 18 15 06 08 C5 01 01 00 CD \"(..#..........
000040: 26 12 2B 7C C6 08 E6 3F F6 40 67 C1 10 ED C3 11 &.+|...?.@g.....
000050: 0E C5 D5 E5 CD 5C 22 28 05 CD 23 12 18 15 06 08 .....\"(..#.....
000060: C5 01 01 00 CD 26 12 1B 7A C6 08 E6 3F F6 40 57 .....&..z...?.@W
000070: C1 10 ED C3 11 0E 3E 42 06 FC CD D7 14 3E 0E 06 ......>B.....>..
000080: 00 CD 07 14 06 F0 CD D7 14 06 F4 CD E4 14 06 F8 ................
000090: CD F1 14 3E 4F 06 02 CD 07 14 06 F1 CD D7 14 06 ...>O...........
0000A0: F5 CD E4 14 06 F9 CD F1 14 3E 0F 06 08 CD 07 14 .........>......
0000B0: 06 F2 CD D7 14 06 F6 CD E4 14 06 FA CD F1 14 3E ...............>
0000C0: 06 06 01 CD 07 14 06 F3 CD D7 14 06 F7 CD E4 14 ................
0000D0: 06 FB CD F1 14 3E 0B 06 09 CD 07 14 06 E0 CD D7 .....>..........
0000E0: 14 3E 17 CD 5C 22 C4 D7 14 3E 10 06 10 CD D7 14 .>..\"...>......
0000F0: 3E 48 06 4F CD 07 14 06 7F CD D7 14 CD E4 14 CD >H.O............
000100: F1 14 3E 9F C3 81 14 CD 5C 22 C0 78 C9 CD 5C 22 ..>.....\".x..\"
000110: C8 3E 42 06 03 CD D7 14 3E 0E 06 1F CD D7 14 06 .>B.....>.......
000120: 1F CD E4 14 06 00 CD F1 14 3E 4F 06 1E CD D7 14 .........>O.....
000130: 06 1E CD E4 14 06 99 CD F1 14 3E 0F 06 01 CD D7 ..........>.....
000140: 14 06 01 CD E4 14 06 00 CD F1 14 3E 06 06 06 CD ...........>....
000150: D7 14 06 06 CD E4 14 06 00 CD F1 14 3E 0B 06 17 ............>...
000160: CD D7 14 3E 44 06 09 CD F1 14 3E 10 06 07 CD D7 ...>D.....>.....
000170: 14 3E 48 06 7F CD D7 14 CD E4 14 06 9A CD F1 14 .>H.............
000180: C9 32 FA 04 C9 CD 91 14 D8 18 FA CD 91 14 D8 18 .2..............
000190: FA C5 E5 21 FA 04 7E 36 9F BE 37 20 12 D5 1E FE ...!..~6..7 ....
0001A0: CD 9F 05 D1 B7 28 08 D5 1E FF CD 9F 05 D1 37 E1 .....(........7.
0001B0: C1 C9 3E 42 CD 5C 22 CA 07 05 47 C5 CD 24 15 79 ..>B.\"...G..$.y
0001C0: C1 38 02 97 C9 B8 20 F3 97 3C C9 CD 91 14 38 FB .8.... ..<....8.
0001D0: C9 CD 91 14 38 FB C9 D5 C5 F5 16 01 4F CD 71 05 ....8.......O.q.
0001E0: F1 C1 D1 C9 D5 C5 F5 16 02 4F CD 71 05 F1 C1 D1 .........O.q....
0001F0: C9 D5 C5 F5 16 04 CD 5C 22 20 02 16 10 4F CD 71 .......\" ...O.q
Size : 512 (Real : 512)
000000: D0 22 7A 0C 22 7E 0C ED 53 7C 0C ED 53 80 0C E5 ."z."~..S|..S...
000010: 19 CB 1C CB 1D 22 84 0C E1 E5 CD 8D 25 E5 C1 E1 ....."......%...
000020: 23 23 E5 CD 8D 25 CD C0 0B E1 20 06 CD 82 25 38 ##...%.... ...%8
000030: EF C9 CD 8D 25 C5 D1 CD CE 0B 38 01 EB ED 53 82 ....%.....8...S.
000040: 0C ED 5B 82 0C 2A 7E 0C E5 CD 8D 25 CD CE 0B E1 ..[..*~....%....
000050: 30 04 23 23 18 F2 22 7E 0C 2A 80 0C E5 CD 8D 25 0.##.."~.*.....%
000060: CD CE 0B E1 38 04 2B 2B 18 F2 22 80 0C ED 5B 7E ....8.++.."...[~
000070: 0C CD 82 25 38 05 CD AF 0B 18 C6 EB ED 5B 84 0C ...%8........[..
000080: CD 82 25 30 14 ED 5B 7C 0C D5 E5 2B 2B EB 2A 7A ..%0..[|...++.*z
000090: 0C CD FD 0A E1 D1 C3 FD 0A ED 5B 7A 0C D5 2B 2B ..........[z..++
0000A0: E5 23 23 ED 5B 7C 0C CD FD 0A D1 E1 C3 FD 0A 23 .##.[|.........#
0000B0: 46 2B 4E 1A 77 23 13 1A 77 78 12 2B 1B 79 12 C9 F+N.w#..wx.+.y..
0000C0: D5 C5 D1 CD CE 0B D1 C9 EB CD CE 0B EB C9 E5 D5 ................
0000D0: C5 CD D8 0B C1 D1 E1 C9 DD E9 CD FC 0B D0 47 CD ..............G.
0000E0: E8 0B 3F D8 B8 C0 18 F0 7E 23 E6 7F CD 92 25 CD ..?.....~#....%.
0000F0: 5C 26 D8 CD 55 26 D8 FE 0D C8 18 EC EB CD E8 0B \&..U&..........
000100: EB C9 F5 CD 08 0C F1 C9 C5 D5 E5 4F 21 00 00 06 ...........O!...
000110: 43 79 CD 0B 18 28 31 CD 7B 25 10 F5 11 20 00 CD Cy...(1.{%... ..
000120: 87 25 30 15 79 CD 0B 18 5F 79 CD 0B 18 57 CD 82 .%0.y..._y...W..
000130: 25 20 06 11 80 00 37 18 04 11 00 00 B7 F5 79 01 % ....7.......y.
000140: 00 00 26 00 CD 13 17 F1 E1 D1 C1 C9 00 00 00 00 ..&.............
000150: 00 00 00 00 00 00 00 00 4E 6F 74 20 65 6E 6F 75 ........Not enou
000160: 67 68 20 6D 65 6D 6F 72 79 20 74 6F 20 73 6F 72 gh memory to sor
000170: 74 20 66 69 6C 65 73 0D 0A 8A 00 00 00 00 00 00 t files.........
000180: 00 00 00 00 00 00 00 00 00 00 00 00 01 08 00 ED ................
000190: B0 C9 06 01 0E 42 CD 2A 23 D0 22 20 0E 3E 32 CD .....B.*#." .>2.
0001A0: 36 12 3E 30 CD 2B 12 01 06 00 09 22 23 0E ED 5B 6.>0.+....."#..[
0001B0: 20 0E 21 FB 0C 01 A4 00 ED B0 ED 53 27 12 21 9F .!........S'.!.
0001C0: 0D 01 31 00 ED B0 ED 53 54 0E 21 56 0E 01 44 00 ..1....ST.!V..D.
0001D0: ED B0 ED 53 21 12 21 D0 0D 01 29 00 ED B0 97 32 ...S!.!...)....2
0001E0: A9 04 3A BB 01 32 A3 04 3E 66 CD 36 12 CD E5 11 ..:..2..>f.6....
0001F0: CD EB 0E CD B7 0E CD A3 0F 37 C9 F5 FE 20 38 16 .........7... 8.
Size : 512 (Real : 512)
000000: 05 F1 C1 D1 C9 CD 5C 22 28 08 CD 76 05 DC 7B 05 ......\"(..v..{.
000010: 18 11 E5 CD 0C 05 06 00 24 20 02 CB D0 2C 20 02 ........$ ..., .
000020: CB F0 E1 C9 C3 76 05 E6 F1 FE 41 CA 72 15 FE C1 .....v....A.r...
000030: 28 20 FE A1 28 27 FE E1 28 23 FE B1 28 1A FE F1 ( ..('..(#..(...
000040: 28 16 FE 91 28 1D FE D1 28 19 21 08 04 CD 3F 12 (...(...(.!...?.
000050: B7 C9 CD 72 15 D0 18 0F CD 7B 1E 38 06 CD FB 15 ...r.....{.8....
000060: D0 18 04 CD 95 16 D0 F5 3E 07 32 E0 01 CD B6 20 ........>.2....
000070: F1 C9 CD 38 20 D0 CD 5C 20 DD E5 CD 10 21 30 6B ...8 ..\ ....!0k
000080: CD 29 22 DD 2A E1 01 11 00 00 ED 53 E5 01 1B ED .)".*......S....
000090: 53 E9 01 11 B8 02 01 1F 00 ED B0 97 12 21 B8 02 S............!..
0000A0: ED 5B E1 01 CD A6 1F 30 42 DD 2A E1 01 DD 36 20 .[.....0B.*...6
0000B0: FF DD 36 21 00 DD 36 22 00 DD 36 23 00 ED 5B E1 ..6!..6"..6#..[.
0000C0: 01 CD B3 05 3C 28 1A DD 7E 20 32 DF 02 DD 7E 0F ....<(..~ 2...~.
0000D0: B7 37 C4 59 21 30 0A AF 3C 37 3E 05 32 E0 01 18 .7.Y!0..<7>.2...
0000E0: 0B 25 24 20 06 21 D2 03 CD 3F 12 AF CD B6 20 3A .%$ .!...?.... :
0000F0: C3 01 DD E1 C9 97 32 E8 01 18 05 3E FF 32 E8 01 ......2....>.2..
000100: CD 38 20 D0 CD 5C 20 DD E5 CD 10 21 D2 8B 16 CD .8 ..\ ....!....
000110: 29 22 DD 2A E1 01 11 00 00 ED 53 E5 01 ED 53 E9 )".*......S...S.
000120: 01 11 B8 02 01 1F 00 ED B0 97 12 21 B8 02 ED 5B ...........!...[
000130: E1 01 CD A6 1F D2 8B 16 2A E1 01 11 09 00 19 11 ........*.......
000140: EB 01 01 03 00 ED B0 3E 24 DD 77 09 DD 77 0A DD .......>$.w..w..
000150: 77 0B 97 DD 77 20 DD 77 21 DD 77 22 DD 77 23 ED w...w .w!.w".w#.
000160: 5B E1 01 CD C5 05 30 23 ED 5B E1 01 CD C9 05 30 [.....0#.[.....0
000170: 0C 3C 28 09 AF 3C 37 3C 32 E0 01 18 0F 25 24 20 .<(..<7<2....%$
000180: 0A 21 BB 03 3A E8 01 B7 FC 3F 12 AF CD B6 20 3A .!..:....?.... :
000190: C3 01 DD E1 C9 CD 72 15 D0 DD E5 DD 2A E1 01 2A ......r.....*..*
0001A0: E1 01 11 09 00 19 11 EB 01 01 03 00 ED B0 2A E1 ..............*.
0001B0: 01 11 70 02 CD 57 25 3E 24 DD 77 09 DD 77 0A DD ..p..W%>$.w..w..
0001C0: 77 0B ED 5B E1 01 CD C5 05 2A E1 01 11 80 02 CD w..[.....*......
0001D0: 57 25 11 70 02 CD CD 05 ED 5B E1 01 CD ED 05 DD W%.p.....[......
0001E0: 6E 21 DD 66 22 7C B5 28 12 2B 2B 22 E9 01 CD 59 n!.f"|.(.++"...Y
0001F0: 21 3A DF 02 B7 20 07 2A E9 01 23 22 E9 01 6F 26 !:... .*..#"..o&
Size : 512 (Real : 512)
000000: F1 F5 F3 D9 21 9D 04 34 21 A6 04 35 20 13 D9 FB ....!..4!..5 ...
000010: CD 8A 10 F1 18 EB C5 D5 E5 CD 29 10 E1 D1 C1 F1 ..........).....
000020: C9 6F ED 5B A7 04 3A A3 04 CB 47 28 3B 26 17 29 .o.[..:...G(;&.)
000030: 29 29 07 3E 81 D3 F1 3C D3 F2 38 1F ED A0 ED A0 )).>...<..8.....
000040: ED A0 ED A0 ED A0 ED A0 ED A0 ED A0 3E 85 D3 F1 ............>...
000050: 3C D3 F2 ED 53 A7 04 D9 FB F1 C9 06 08 0E FF 7E <...S..........~
000060: A9 12 23 13 10 F9 18 E4 26 10 29 29 29 3A A3 04 ..#.....&.))):..
000070: 07 9F 06 7F 0E C1 ED 49 4F 06 08 7E A9 12 23 7A .......IO..~..#z
000080: C6 08 E6 3F F6 40 57 10 F2 06 7F 0E C2 ED 49 13 ...?.@W.......I.
000090: 7B B7 20 BF 7A E6 07 20 BA 7A D6 08 57 18 B4 CD {. .z.. .z..W...
0000A0: 5C 22 28 19 3E 80 F3 D3 F0 3C D3 F1 3C D3 F2 ED \"(.>....<..<...
0000B0: B0 3E 86 D3 F2 3D D3 F1 3D FB D3 F0 C9 C5 06 7F .>...=..=.......
0000C0: 0E C1 F3 ED 49 C1 ED B0 06 7F 0E C2 FB ED 49 C9 ....I.........I.
0000D0: CD 5C 22 CA 40 05 D5 EB 7B 87 87 87 6F 26 5B 29 .\".@...{...o&[)
0000E0: 3E 82 F3 D3 F2 7E 23 66 6F 29 3E 86 FB D3 F2 EB >....~#fo)>.....
0000F0: 6C 26 00 29 29 29 19 D1 C9 CD 01 0F CD CB 11 3E l&.))).........>
000100: 65 C3 36 12 C5 D5 E5 CD C9 0F 1C 21 00 00 CD 2A e.6........!...*
000110: 05 E1 D1 C1 C9 ED 5B A3 04 C9 ED 53 A3 04 C9 C3 ......[....S....
000120: 00 00 C3 00 00 C5 D5 E5 F5 ED 5B 9E 04 2A 9C 04 ..........[..*..
000130: 19 25 CD 20 12 EB F1 CD 3D 0E C3 11 0E E6 07 87 .%. ....=.......
000140: 21 EA 04 CD 7B 25 CD 8D 25 E5 21 00 00 39 CD 53 !...{%..%.!..9.S
000150: 0E E1 C9 C3 00 00 3A A3 04 07 CB 4F 28 1B 9F 4F ......:....O(..O
000160: 3E 81 F3 D3 F1 3C D3 F2 7E A9 12 23 13 7E A9 12 >....<..~..#.~..
000170: 3E 85 D3 F1 3C FB D3 F2 C9 01 C1 7F F3 ED 49 9F >...<.........I.
000180: 4F 7E A9 12 23 7A C6 08 E6 3F F6 40 57 7E A9 12 O~..#z...?.@W~..
000190: 01 C2 7F FB ED 49 C9 F5 CD 5C 22 28 0A CD CB 11 .....I...\"(....
0001A0: 3E 4A CD 36 12 18 0E CD B8 11 CD CB 11 3E 14 CD >J.6.........>..
0001B0: 25 05 CD 04 0E F1 C9 D5 E5 2D 25 22 9C 04 7C 32 %........-%"..|2
0001C0: 79 01 EB 2A A0 04 B7 ED 52 24 24 2C 22 A5 04 CD y..*....R$$,"...
0001D0: 0C 12 E1 D1 C9 E5 2A 9C 04 67 2C CD B7 0E E1 C9 ......*..g,.....
0001E0: E5 2A 9C 04 6F 24 CD B7 0E E1 C9 2A 9C 04 24 2C .*..o$.....*..$,
0001F0: C9 2A 9E 04 ED 5B A0 04 EB 19 EB 3A A2 04 C6 FF .*...[.....:....
Size : 512 (Real : 512)
000000: 00 22 E5 01 3E 02 32 E0 01 CD B6 20 3A C3 01 DD ."..>.2.... :...
000010: E1 37 C9 DD E5 D5 F5 CD 8D 23 6F F1 E5 CD 2B 17 .7.......#o...+.
000020: D1 F5 7B CD 8F 23 F1 D1 DD E1 C9 CD 5C 20 3A EE ..{..#......\ :.
000030: 01 CD 8F 23 3A E0 01 B7 CB 57 C8 CB 4F 28 1B E5 ...#:....W..O(..
000040: D5 C5 3A E5 01 FE 80 37 28 05 B7 37 C4 CE 21 2A ..:....7(..7..!*
000050: E9 01 2B 22 E9 01 C1 D1 E1 D0 7C 3D 28 2C 21 00 ..+"......|=(,!.
000060: 00 22 E9 01 22 E5 01 FA 8A 17 D5 ED 5B E1 01 CD ."..".......[...
000070: ED 05 F5 2A E1 01 11 21 00 19 CD 8D 25 2B 22 E9 ...*...!....%+".
000080: 01 21 80 00 22 E5 01 F1 D1 D0 6A 61 CB 23 CB 15 .!..".....ja.#..
000090: CB 14 CB 3B ED 4B E9 01 09 22 E9 01 23 B7 CB 7C ...;.K..."..#..|
0000A0: C0 2A E5 01 4B 06 00 09 7D FE 80 28 23 FE 81 38 .*..K...}..(#..8
0000B0: 0B ED 5B E9 01 13 ED 53 E9 01 CB BD 7C B5 20 20 ..[....S....|.
0000C0: 2A E9 01 7C B5 28 19 2B 22 E9 01 21 80 00 18 10 *..|.(.+"..!....
0000D0: ED 5B E9 01 CB 7A 28 08 13 ED 53 E9 01 21 00 00 .[...z(...S..!..
0000E0: 22 E5 01 2A E9 01 2B 22 E9 01 CD 59 21 D0 CD B6 "..*..+"...Y!...
0000F0: 20 37 C9 CD 5C 20 E5 2A E9 01 06 07 0E 00 29 CB 7..\ .*......).
000100: 11 10 FB ED 5B E5 01 19 EB E1 C9 DD E5 E5 D5 C5 ....[...........
000110: 32 C3 01 21 C4 01 06 0E CD 9B 25 CD 7B 25 7E CB 2..!......%.{%~.
000120: 47 20 04 AF 3C 18 45 23 5E 23 56 23 E5 D5 23 5E G ..<.E#^#V#..#^
000130: 23 56 21 80 00 B7 ED 52 7C B5 28 0C E1 19 7E E1 #V!....R|.(...~.
000140: 77 13 23 73 23 72 18 15 E1 E1 21 E7 01 01 01 00 w.#s#r....!.....
000150: 3A C3 01 CD 72 18 3E 0F 30 12 3A E7 01 FE 1A 28 :...r.>.0.:....(
000160: 07 47 97 3C 78 37 18 04 47 AF 3C 78 C1 D1 E1 DD .G.<x7..G.<x....
000170: E1 C9 FE 02 38 03 AF 3C C9 CD 5C 20 3A E0 01 CB ....8..<..\ :...
000180: 47 20 03 AF 3C C9 DD E5 E5 D5 C5 22 DB 02 22 D9 G ..<......"..".
000190: 02 ED 43 DD 02 21 80 00 B7 ED 5B E5 01 ED 52 ED ..C..!....[...R.
0001A0: 5B DD 02 CD 82 25 38 37 2A E3 01 ED 5B E5 01 19 [....%87*...[...
0001B0: ED 5B D9 02 ED 4B DD 02 C5 ED B0 C1 ED 53 D9 02 .[...K.......S..
0001C0: 2A E5 01 09 22 E5 01 11 80 00 CD 82 25 DA 58 19 *...".......%.X.
0001D0: CD 59 21 D2 62 19 21 00 00 22 E5 01 C3 58 19 E5 .Y!.b.!.."...X..
0001E0: C1 2A E3 01 ED 5B E5 01 19 ED 5B D9 02 78 B1 C5 .*...[....[..x..
0001F0: C4 5A 25 C1 2A D9 02 09 22 D9 02 2A DD 02 B7 ED .Z%.*..."..*....
Size : 512 (Real : 512)
000000: 01 77 23 3A ED 01 77 23 3A EE 01 77 F1 C1 E1 C9 .w#:..w#:..w....
000010: E5 D5 C5 F5 2A E1 01 7C B5 20 12 01 A4 00 CD FD ....*..|. ......
000020: 22 30 10 22 E3 01 11 80 00 19 22 E1 01 F1 C1 D1 "0."......".....
000030: E1 37 C9 F1 C1 D1 E1 B7 C9 E5 F5 21 BB 03 FE 01 .7.........!....
000040: 28 11 21 C9 03 FE 02 28 0A 21 95 03 FE 0A 28 03 (.!....(.!....(.
000050: 21 0A 03 CD 3F 12 F1 E1 C9 06 01 ED 5B E3 01 18 !...?.......[...
000060: 18 01 80 00 B7 ED 42 38 0A E5 06 80 CD 79 21 E1 ......B8.....y!.
000070: D0 18 EE 09 45 7D B7 37 C8 D5 C5 CD D9 05 C5 58 ....E}.7.......X
000080: CD F5 05 2A E9 01 23 DD 2A E1 01 DD 75 21 DD 74 ...*..#.*...u!.t
000090: 22 F1 CD 7B 25 2B 22 E9 01 ED 5B E1 01 CD 47 22 "..{%+"...[...G"
0000A0: F5 E5 1E 01 CD F5 05 E1 F1 C1 D1 FE FF 28 1D B7 .............(..
0000B0: 28 09 FE 04 28 04 FE 01 20 12 44 68 26 00 29 29 (...(... .Dh&.))
0000C0: 29 29 29 29 29 19 EB B7 C0 3C 37 C9 AF C9 ED 5B )))))....<7....[
0000D0: E3 01 06 01 18 18 01 80 00 B7 ED 42 38 0A E5 06 ...........B8...
0000E0: 80 CD EE 21 E1 D0 18 EE 09 45 7D B7 37 C8 48 C5 ...!.....E}.7.H.
0000F0: E1 29 29 29 29 29 29 29 19 E5 CD D9 05 C5 58 CD .)))))))......X.
000100: F5 05 2A E9 01 DD 2A E1 01 DD 75 21 DD 74 22 F1 ..*...*...u!.t".
000110: CD 7B 25 22 E9 01 ED 5B E1 01 CD 32 22 F5 1E 01 .{%"...[...2"...
000120: CD F5 05 F1 D1 B7 C0 37 C9 F5 CD 8D 23 32 EE 01 .......7....#2..
000130: F1 C9 CD 8D 23 F5 3A EE 01 CD 8F 23 CD E9 05 D1 ....#.:....#....
000140: F5 7A CD 8F 23 F1 C9 CD 8D 23 F5 3A EE 01 CD 8F .z..#....#.:....
000150: 23 CD E5 05 D1 F5 7A CD 8F 23 F1 C9 C5 47 3A BB #.....z..#...G:.
000160: 01 B7 78 C1 C9 C5 C5 47 E5 D5 CD 85 05 D1 E1 78 ..x....G.......x
000170: FE 02 38 01 97 C1 78 C1 C9 E5 D5 CD 8A 05 2F 3C ..8...x......./<
000180: D1 E1 C9 2E 00 CD 5C 22 28 0A FE 02 28 06 FE 08 ......\"(...(...
000190: 28 13 EE 05 87 87 87 87 67 CD 65 22 20 08 7C E6 (.......g.e" .|.
0001A0: 30 28 03 EE 30 67 22 E6 02 3E 2A 32 E4 02 3E FE 0(..0g"..>*2..>.
0001B0: 32 E5 02 11 E4 02 C3 05 06 C5 CD 5D 05 E1 C3 62 2..........]...b
0001C0: 05 E5 D5 CD D1 22 3F 30 05 5F CD 9B 05 37 D1 E1 ....."?0._...7..
0001D0: C9 FD E5 DD E5 E5 D5 C5 47 C5 2A 01 00 11 2A 00 ........G.*...*.
0001E0: 19 CD 7A 25 1F 3F C1 78 C1 D1 E1 DD E1 FD E1 C9 ..z%.?.x........
0001F0: 2A 03 01 C9 22 03 01 C9 2A 06 00 2B C9 D5 CD F8 *..."...*..+....
Size : 512 (Real : 512)
000000: 42 22 DD 02 CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D B"...<...<...<..
000010: CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D .<...<...<...<..
000020: ED 5B D9 02 E5 CD 61 21 E1 ED 53 D9 02 30 33 CD .[....a!..S..03.
000030: 59 21 28 2B 30 2C ED 4B DD 02 11 80 00 06 00 79 Y!(+0,.K.......y
000040: E6 7F 4F ED 43 E5 01 78 B1 28 0D 2A E3 01 ED 5B ..O.C..x.(.*...[
000050: D9 02 ED B0 ED 53 D9 02 47 97 3C 78 37 18 1B AF .....S..G.<x7...
000060: 18 18 C1 ED 5B DB 02 2A D9 02 B7 ED 52 44 4D C5 ....[..*....RDM.
000070: 21 80 00 22 E5 01 47 AF 3C 78 C1 D1 E1 DD E1 F5 !.."..G.<x......
000080: 09 F1 CD B6 20 3A C3 01 C9 CD 5C 20 E5 D5 F5 78 .... :....\ ...x
000090: 18 09 CD 5C 20 E5 D5 F5 3A E7 01 2A E3 01 ED 5B ...\ ...:..*...[
0000A0: E5 01 1B ED 53 E5 01 19 77 F1 D1 E1 C3 B6 20 CD ....S...w..... .
0000B0: 0B 18 F5 38 04 FE 1A 20 06 3A C3 01 CD 92 19 F1 ...8... .:......
0000C0: C9 DD E5 E5 D5 C5 32 C3 01 21 C4 01 06 0E CD 9B ......2..!......
0000D0: 25 CD 7B 25 7E CB 4F 20 04 AF 3C 18 35 C1 C5 23 %.{%~.O ..<.5..#
0000E0: 5E 23 56 23 E5 D5 23 5E 23 56 21 80 00 13 CD 87 ^#V#..#^#V!.....
0000F0: 25 30 0D 1B E1 19 70 E1 13 23 73 23 72 37 18 12 %0....p..#s#r7..
000100: E1 E1 78 32 D8 02 21 D8 02 01 01 00 3A C3 01 CD ..x2..!.....:...
000110: 18 1A C1 D1 E1 DD E1 C9 FE 02 38 03 AF 3C C9 CD ..........8..<..
000120: 5C 20 3A E0 01 CB 4F 20 03 AF 3C C9 DD E5 E5 D5 \ :...O ..<.....
000130: C5 22 D9 02 ED 43 DD 02 21 80 00 B7 ED 5B E5 01 ."...C..!....[..
000140: ED 52 ED 5B DD 02 13 CD 82 25 38 1E 2A E3 01 ED .R.[.....%8.*...
000150: 5B E5 01 19 EB 2A D9 02 ED 4B DD 02 C5 ED B0 C1 [....*...K......
000160: 2A E5 01 09 22 E5 01 C3 FE 1A E5 C1 2A E3 01 ED *...".......*...
000170: 5B E5 01 19 EB 2A D9 02 78 B1 C5 C4 5A 25 C1 2A [....*..x...Z%.*
000180: D9 02 09 22 D9 02 2A DD 02 B7 ED 42 22 DD 02 CD ..."..*....B"...
000190: CE 21 30 71 2A DD 02 CB 3C CB 1D CB 3C CB 1D CB .!0q*...<...<...
0001A0: 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB 3C CB 1D CB <...<...<...<...
0001B0: 3C CB 1D ED 5B D9 02 E5 CD D6 21 E1 30 47 29 29 <...[.....!.0G))
0001C0: 29 29 29 29 29 ED 5B D9 02 19 22 D9 02 3A E0 01 ))))).[..."..:..
0001D0: CB 57 28 10 2A E9 01 2B 22 E9 01 C5 CD 59 21 C1 .W(.*..+"....Y!.
0001E0: 38 02 28 24 ED 4B DD 02 06 00 79 E6 7F 4F ED 43 8.($.K....y..O.C
0001F0: E5 01 ED 5B E3 01 2A D9 02 78 B1 C4 5A 25 47 97 ...[..*..x..Z%G.
Size : 512 (Real : 512)
000000: 22 B7 ED 42 2B 2B EB CD F0 22 EB CD 82 25 38 11 "..B++..."...%8.
000010: ED 5B 06 00 36 C3 22 06 00 23 73 23 72 23 D1 37 .[..6."..#s#r#.7
000020: C9 D1 21 44 04 CD 3F 12 B7 C9 CD F8 22 23 7E FE ..!D..?....."#~.
000030: C3 C2 FD 22 23 E5 23 23 7E FE 41 23 20 18 7E FE ..."#.##~.A# .~.
000040: 52 23 20 12 7E FE 4E 23 20 0C 7E FE 4F 23 20 06 R# .~.N# .~.O# .
000050: 7E FE 52 23 28 06 E1 CD 8D 25 18 D2 F1 D5 E5 CD ~.R#(....%......
000060: 8D 25 B7 ED 42 EB E1 73 23 72 EB D1 37 C9 D5 21 .%..B..s#r..7..!
000070: 00 00 39 ED 5B BC 01 B7 ED 52 D1 C9 E5 D5 CD 6E ..9.[....R.....n
000080: 23 11 00 00 CD 82 25 D1 E1 37 C0 B7 C9 3E FF E5 #.....%..7...>..
000090: D5 5F CD E1 05 D1 E1 C9 16 FF 1E FF C3 09 06 EB ._..............
0000A0: C3 09 06 CD 05 24 F5 CD BE 23 38 06 F1 CD 31 24 .....$...#8...1$
0000B0: 37 C9 F1 CD 31 24 CD 65 06 1E FF C3 01 06 22 E0 7...1$.e......".
0000C0: 02 11 00 00 ED 53 E2 02 7E FE 20 28 06 B7 28 08 .....S..~. (..(.
0000D0: 23 18 F5 36 00 22 E2 02 2A E0 02 CD 0D 1F D0 2A #..6."..*......*
0000E0: E2 02 7C B5 28 02 36 20 2A E0 02 11 82 00 7E 12 ..|.(.6 *.....~.
0000F0: 23 13 B7 20 F9 CD 05 24 C6 41 32 80 00 3E 3A 32 #.. ...$.A2..>:2
000100: 81 00 37 C9 C9 E5 CD D5 05 E1 C9 FE 10 D0 C5 E5 ..7.............
000110: 4F 47 04 CD D1 05 CB 3C CB 1D 10 FA 79 E1 C1 30 OG.....<....y..0
000120: 10 FE 10 D0 D5 E5 5F CD AF 05 E1 D1 3C B7 C8 37 ......_.....<..7
000130: C9 CD 86 24 FE 01 20 0A C5 CD 79 22 C1 B7 28 0B ...$.. ...y"..(.
000140: 3E 01 FE 02 3F D4 68 24 DC 21 24 CD 82 24 C9 E5 >...?.h$.!$..$..
000150: D5 11 03 00 CD F1 05 D1 E1 C9 E5 D5 F5 CD A7 25 ...............%
000160: EB CD F1 05 F1 D1 E1 C9 FE 0C 28 0F C5 4F E5 CD ..........(..O..
000170: 58 05 E1 CB 6F 79 C1 37 C0 B7 C9 CD 5C 22 37 C0 X...oy.7....\"7.
000180: B7 C9 F5 97 18 03 F5 3E FF 32 EF 01 F1 C9 3A BF .......>.2....:.
000190: 01 4F 7C F6 80 FE 83 20 09 21 2D 03 CD 3F 12 AF .O|.... .!-..?..
0001A0: 3C C9 E5 21 EF 01 CB 7E E1 C0 E5 D5 C5 F5 CD EB <..!...~........
0001B0: 0E F1 E5 F5 CD F1 0E F1 E5 D5 CD 15 0E D5 F5 CD ................
0001C0: 5F 10 C5 CD C9 0F 1C 26 00 6B CD 1A 0F CD E5 0F _......&.k......
0001D0: C1 79 C6 41 CD 1F 0E 3E 3A CD 1F 0E CD 57 10 F1 .y.A...>:....W..
0001E0: B7 FA F9 24 21 0A 03 FE 0A 30 25 21 3E 03 B7 28 ...$!....0%!>..(
0001F0: 1F CB 7E 23 28 FB 3D 18 F5 E6 7F 21 14 03 FE 01 ..~#(.=....!....
Size : 512 (Real : 512)
000000: 3C 78 37 18 04 CD 39 21 AF C1 D1 E1 DD E1 F5 09 <x7...9!........
000010: F1 CD B6 20 3A C3 01 C9 FE 02 D0 CD 5C 20 97 32 ... :.......\ .2
000020: E0 01 C3 B6 20 C5 06 02 78 3D CD 18 1B 10 F9 C1 .... ...x=......
000030: C9 FE 02 38 03 AF 3C C9 CD 5C 20 3A E0 01 B7 20 ...8..<..\ :...
000040: 03 AF 3C C9 E5 D5 C5 57 CD 8D 23 F5 3A EE 01 CD ..<....W..#.:...
000050: 8F 23 CD 60 1B D1 F5 7A CD 8F 23 F1 C1 D1 E1 C9 .#.`...z..#.....
000060: CB 4A 20 10 ED 5B E1 01 CD B7 05 97 32 E0 01 3C .J ..[......2..<
000070: 37 C3 B6 20 DD E5 DD 2A E1 01 3A E0 01 CB 57 20 7.. ...*..:...W
000080: 1A 3A E5 01 E6 7F 28 13 F5 06 1A 3A C3 01 CD C1 .:....(....:....
000090: 19 F1 FE 7F 20 05 32 E5 01 18 1F 2A E5 01 7D B7 .... .2....*..}.
0000A0: 28 18 FE 80 28 14 2B CB 25 CB 14 24 44 ED 5B E3 (...(.+.%..$D.[.
0000B0: 01 05 04 37 C4 EE 21 D2 9D 1C ED 5B E1 01 CD B7 ...7..!....[....
0000C0: 05 2A E1 01 11 09 00 19 7E FE 24 C2 95 1C 23 7E .*......~.$...#~
0000D0: FE 24 C2 95 1C 23 7E FE 24 C2 95 1C ED 5B E1 01 .$...#~.$....[..
0000E0: CD ED 05 2A E1 01 11 21 00 19 CD 8D 25 2B ED 5B ...*...!....%+.[
0000F0: E9 01 3E 80 CD 87 25 38 03 3A E5 01 DD CB 06 FE ..>...%8.:......
000100: DD 77 20 ED 5B E1 01 CD DD 05 DD CB 06 BE 2A E1 .w .[.........*.
000110: 01 11 09 00 19 EB 21 EB 01 01 03 00 ED B0 11 F0 ......!.........
000120: 01 CD D9 05 ED 5B E1 01 DD 36 0C 00 CD BB 05 3C .....[...6.....<
000130: 28 41 3E 42 DD 77 09 3E 41 DD 77 0A 3E 4B DD 77 (A>B.w.>A.w.>K.w
000140: 0B ED 5B E1 01 CD C5 05 D2 A0 1C 2A E1 01 11 10 ..[........*....
000150: 00 19 EB 2A E1 01 CD 57 25 2A E1 01 11 09 00 19 ...*...W%*......
000160: EB 21 EB 01 01 03 00 ED B0 ED 5B E1 01 CD CD 05 .!........[.....
000170: D2 A0 1C 2A E1 01 11 10 00 19 EB 2A E1 01 CD 57 ...*.......*...W
000180: 25 3E 24 DD 77 09 DD 77 0A DD 77 0B ED 5B E1 01 %>$.w..w..w..[..
000190: CD CD 05 30 0B 97 32 E0 01 3C 37 18 04 CD 39 21 ...0..2..<7...9!
0001A0: AF CD B6 20 DD E1 C9 CD A3 1F D0 21 71 02 06 0B ... .......!q...
0001B0: 7E 23 E6 7F FE 3F 20 18 10 F6 21 1A 04 CD 3F 12 ~#...? ...!...?.
0001C0: CD D1 14 CD 6E 25 D0 CD 92 25 CD 1F 0E FE 59 C0 ....n%...%....Y.
0001D0: 11 70 02 CD C5 05 3C 37 C0 7C 21 D2 03 B7 CC 3F .p....<7.|!....?
0001E0: 12 C9 CD A3 1F D0 11 70 02 CD C5 05 3C 37 C0 7C .......p....<7.|
0001F0: B7 C9 D5 E5 CD 7B 1E E1 D1 38 06 21 D2 03 C3 7B .....{...8.!...{
Size : 512 (Real : 512)
000000: 28 0E FE 04 28 0A 21 4D 03 FE 02 28 03 21 0A 03 (...(.!M...(.!..
000010: CD 42 12 21 EE 02 CD 42 12 CD D1 14 CD 8B 14 CD .B.!...B........
000020: 92 25 FE 52 28 0F FE 49 37 28 0A FE 43 28 05 CD .%.R(..I7(..C(..
000030: 5F 10 18 E8 B7 CD 1F 0E F5 CD 67 10 06 44 CD 5C _.........g..D.\
000040: 12 F1 D1 CD 1A 0E D1 E1 F5 CD 1A 0F F1 E1 F5 CD ................
000050: B7 0E F1 C1 D1 E1 C9 01 10 00 ED B0 C9 CD D1 14 ................
000060: CD 43 0F CD 8B 14 18 0C CD 91 14 38 FB C9 CD 43 .C.........8...C
000070: 0F CD 85 14 CD 53 0F FE FC C9 E9 C5 4F 06 00 09 .....S......O...
000080: C1 C9 B7 ED 52 19 C9 EB CD 82 25 EB C9 7E 23 66 ....R.....%..~#f
000090: 6F C9 FE 61 D8 FE 7B D0 D6 20 C9 C5 4F 97 05 04 o..a..{.. ..O...
0000A0: 28 03 81 10 FD C1 C9 21 01 00 B7 C8 C5 47 29 10 (......!.....G).
0000B0: FD C1 C9 C5 C5 EB E3 AF ED 52 E3 EB C1 03 CD 87 .........R......
0000C0: 25 30 05 ED B0 C1 B7 C9 EB 09 EB 1B E1 ED B8 B7 %0..............
0000D0: C9 CD 1C 26 C8 CD 55 26 38 24 7E FE 26 28 07 FE ...&..U&8$~.&(..
0000E0: 23 28 03 B7 C9 2B 11 00 00 CD 78 26 CD 47 26 3F #(...+....x&.G&?
0000F0: D8 EB 29 29 29 29 EB CD 66 26 83 5F 18 EB 11 00 ..))))..f&._....
000100: 00 2B CD 78 26 CD 55 26 3F D8 E5 62 6B 29 29 19 .+.x&.U&?..bk)).
000110: 29 EB D6 30 6F 26 00 19 EB E1 18 E6 2B CD 78 26 )..0o&......+.x&
000120: FE 0D C8 B7 C8 CD 38 26 28 F3 FE 3B C8 37 C9 FE ......8&(..;.7..
000130: 09 C8 FE 20 C8 FE 90 C9 FE 3D C8 CD 2F 26 C8 FE ... .....=../&..
000140: 2C C8 B7 C8 FE 0D C9 CD 55 26 D8 CD 92 25 FE 47 ,.......U&...%.G
000150: D0 FE 41 3F C9 FE 3A D0 FE 30 3F C9 CD 92 25 FE ..A?..:..0?...%.
000160: 41 3F D0 FE 5B C9 D6 30 FE 0A D8 D6 07 C9 FE 7F A?..[..0........
000170: 3F D0 FE 8A C8 FE 8D C9 23 7E CD 6E 26 D0 18 F8 ?.......#~.n&...
000180: 00 00 00 00 00 C3 6E 1F 3A 80 26 3C C0 CD 72 15 ......n.:.&<..r.
000190: 32 80 26 DD 7E 12 C9 3A 80 26 C3 0B 18 01 FF FF 2.&.~..:.&......
0001A0: 3A 80 26 C3 72 18 3A 80 26 C3 92 19 3A 80 26 CD :.&.r.:.&...:.&.
0001B0: 31 1B 18 06 3A 80 26 CD 18 1B F5 3E FF 32 80 26 1...:.&....>.2.&
0001C0: F1 C9 CD 97 26 F5 DC A6 26 F1 C9 3A 81 26 3C C0 ....&...&..:.&<.
0001D0: CD FB 15 32 81 26 C9 C5 47 3A 81 26 CD C1 19 C1 ...2.&..G:.&....
0001E0: C9 F5 3A 81 26 CD 5C 20 F1 DD 2A 83 26 DD 77 12 ..:.&.\ ..*.&.w.
0001F0: 42 4B 3A 81 26 C3 18 1A 3A 81 26 CD 31 1B 18 06 BK:.&...:.&.1...
Size : 512 (Real : 512)
000000: 1D D5 CD A3 1F D1 D0 EB 11 94 02 CD A6 1F D0 3A ...............:
000010: 70 02 32 94 02 21 94 02 11 80 02 CD 57 25 21 71 p.2..!......W%!q
000020: 02 11 95 02 06 0B 1A BE 13 23 20 04 10 F8 37 C9 .........# ...7.
000030: 11 70 02 CD CD 05 3C 37 C0 7C FE 08 37 C0 3E 42 .p....<7.|..7.>B
000040: 32 9D 02 3E 41 32 9E 02 3E 4B 32 9F 02 11 94 02 2..>A2..>K2.....
000050: CD C5 05 D2 7E 1D 21 94 02 11 A4 02 CD 57 25 21 ....~.!......W%!
000060: 80 02 11 94 02 CD 57 25 11 94 02 CD CD 05 D2 7E ......W%.......~
000070: 1D 11 70 02 CD CD 05 30 05 37 C9 CD 3F 12 B7 C9 ..p....0.7..?...
000080: CD A3 1F D0 11 70 02 CD B3 05 3C 28 39 21 71 02 .....p....<(9!q.
000090: 7E 17 16 00 CB 12 23 7E 17 1E 00 CB 13 23 7E 17 ~.....#~.....#~.
0000A0: 06 00 CB 10 23 7E 17 0E 00 CB 11 C5 21 79 02 7E ....#~......!y.~
0000B0: 17 06 00 CB 10 23 7E 17 0E 00 CB 11 23 7E 17 3E .....#~.....#~.>
0000C0: 00 CB 17 E1 37 C9 B7 C9 E5 D5 F5 C5 DD E5 E1 CD ....7...........
0000D0: A3 1F D2 55 1E 11 70 02 CD B3 05 C1 3C 37 28 76 ...U..p.....<7(v
0000E0: 78 B7 FA EF 1D 21 79 02 CB BE B7 28 02 CB FE 23 x....!y....(...#
0000F0: 79 B7 FA FC 1D CB BE B7 28 02 CB FE 23 F1 B7 FA y.......(...#...
000100: 09 1E CB BE B7 28 02 CB FE D1 7A B7 FA 19 1E 21 .....(....z....!
000110: 71 02 CB BE B7 28 02 CB FE 23 7B B7 FA 26 1E CB q....(...#{..&..
000120: BE B7 28 02 CB FE D1 23 7A B7 FA 34 1E CB BE B7 ..(....#z..4....
000130: 28 02 CB FE 23 7B B7 FA 41 1E CB BE B7 28 02 CB (...#{..A....(..
000140: FE 11 70 02 CD DD 05 3C 37 C0 7C B7 C0 21 D2 03 ..p....<7.|..!..
000150: CD 3F 12 B7 C9 C1 D1 7A D1 E1 38 F1 B7 C9 CD A3 .?.....z..8.....
000160: 1F D0 11 70 02 CD ED 05 3C B7 28 05 2A 91 02 37 ...p....<.(.*..7
000170: C9 7C 21 D2 03 B7 CC 3F 12 B7 C9 E5 CD A3 1F 38 .|!....?.......8
000180: 03 AF E1 C9 11 F0 01 CD D9 05 11 70 02 CD BB 05 ...........p....
000190: 38 04 AF 3C E1 C9 B7 E1 F8 CD CF 1E 3E 01 32 C2 8..<........>.2.
0001A0: 01 37 9F C9 11 70 02 CD A6 1F 11 F0 01 CD D9 05 .7...p..........
0001B0: 11 70 02 CD BB 05 D0 3A C2 01 47 3C 32 C2 01 11 .p.....:..G<2...
0001C0: 70 02 CD C0 05 D0 10 F7 B7 F8 CD CF 1E 37 C9 87 p............7..
0001D0: 87 87 87 87 21 F0 01 CD 7B 25 23 3A 70 02 3D FC ....!...{%#:p.=.
0001E0: 05 24 C6 41 32 B8 02 3E 3A 32 B9 02 11 BA 02 06 .$.A2..>:2......
0001F0: 08 7E E6 7F 12 23 13 10 F8 3E 2E 12 13 06 03 7E .~...#...>.....~
Size : 512 (Real : 512)
000000: 3A 81 26 CD 18 1B F5 3E FF 32 81 26 F1 C9 3A 81 :.&....>.2.&..:.
000010: 26 CD 5C 20 3A E0 01 FE 02 28 04 3E 0E B7 C9 3A &.\ :....(.>...:
000020: 82 26 3D CA 00 27 DD 2A 83 26 C3 9B 1B 41 72 6E .&=..'.*.&...Arn
000030: 6F 72 20 66 69 6C 65 20 73 6F 72 74 69 6E 67 20 or file sorting
000040: 70 72 6F 67 72 61 6D 20 76 31 2E 30 31 00 A0 45 program v1.01..E
000050: 52 52 4F 52 20 2D 20 54 65 78 74 20 74 6F 6F 20 RROR - Text too
000060: 6C 61 72 67 65 20 74 6F 20 63 68 65 63 6B 20 69 large to check i
000070: 6E 20 6D 65 6D 6F 72 79 0D 8A 4F 75 74 20 6F 66 n memory..Out of
000080: 20 6D 65 6D 6F 72 F9 54 6F 6F 20 6D 61 6E 79 20 memor.Too many
000090: 72 65 63 6F 72 64 73 20 74 6F 20 73 6F 72 F4 4E records to sor.N
0000A0: 61 6D 65 20 6F 66 20 66 69 6C 65 20 74 6F 20 73 ame of file to s
0000B0: 6F 72 74 3A A0 45 6E 74 65 72 20 6F 70 74 69 6F ort:.Enter optio
0000C0: 6E 73 3A A0 50 72 65 73 73 20 59 20 74 6F 20 63 ns:.Press Y to c
0000D0: 6F 6E 66 69 72 6D 3A A0 55 6E 6B 6E 6F 77 6E 20 onfirm:.Unknown
0000E0: 6F 70 74 69 6F EE 50 52 4F 54 45 58 54 2E 43 4F optio.PROTEXT.CO
0000F0: 4D 00 3C 46 4D 00 50 52 4F 57 4F 52 54 2E 43 4F M.<FM.PROWORT.CO
000100: 4D 00 49 6E 73 65 72 74 20 50 72 6F 74 65 78 74 M.Insert Protext
000110: 20 64 69 73 63 20 61 6E 64 20 70 72 65 73 73 20 disc and press
000120: 61 20 6B 65 79 3A A0 41 50 45 44 2E 43 4F 4D 00 a key:.APED.COM.
000130: 49 6E 73 65 72 74 20 65 64 69 74 6F 72 20 64 69 Insert editor di
000140: 73 63 20 61 6E 64 20 70 72 65 73 73 20 61 20 6B sc and press a k
000150: 65 79 3A A0 50 72 65 73 73 20 61 20 6B 65 79 20 ey:.Press a key
000160: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E AE 46 to continue ...F
000170: 69 6C 65 20 73 6F 72 74 65 64 2E 20 4E 75 6D 62 ile sorted. Numb
000180: 65 72 20 6F 66 20 72 65 63 6F 72 64 73 3A A0 20 er of records:.
000190: A8 20 64 65 6C 65 74 65 64 A9 50 6F 73 73 69 62 . deleted.Possib
0001A0: 6C 65 20 64 75 70 6C 69 63 61 74 65 64 20 72 65 le duplicated re
0001B0: 63 6F 72 64 3A 0D 0A 5B 31 5D 0D 8A 5B 32 5D 0D cord:..[1]..[2].
0001C0: 8A 54 79 70 65 20 31 20 74 6F 20 64 65 6C 65 74 .Type 1 to delet
0001D0: 65 20 66 69 72 73 74 2C 20 32 20 74 6F 20 64 65 e first, 2 to de
0001E0: 6C 65 74 65 20 73 65 63 6F 6E 64 2C 20 52 45 54 lete second, RET
0001F0: 55 52 4E 20 74 6F 20 6B 65 65 70 20 62 6F 74 68 URN to keep both
Size : 512 (Real : 512)
000000: E6 7F 12 23 13 10 F8 97 12 21 B8 02 C9 D5 11 96 ...#.....!......
000010: 04 CD 16 1F D1 C9 CD 05 24 F5 D5 CD 3F 1F D1 38 ........$...?..8
000020: 1B CD 8D 23 B7 28 0F F5 97 CD 8F 23 CD 3F 1F C1 ...#.(.....#.?..
000030: 38 0A 78 CD 8F 23 F1 CD 31 24 B7 C9 F1 37 C9 23 8.x..#..1$...7.#
000040: 7E 2B FE 3A 20 11 D5 E5 CD 7B 1E E1 D1 D0 7E CD ~+.: ....{....~.
000050: 92 25 D6 41 C3 31 24 1A 13 FE FE C8 FE FF 37 C4 .%.A.1$.......7.
000060: 31 24 30 F3 E5 D5 CD 7B 1E D1 E1 D8 18 E9 CD 4F 1$0....{.......O
000070: 24 1E FF CD F9 05 97 32 EF 01 21 C4 01 11 07 00 $......2..!.....
000080: 06 02 36 00 23 23 23 23 23 23 36 00 23 36 00 19 ..6.######6.#6..
000090: 10 F0 C9 47 3D CD 5C 20 CD 10 21 D0 CD B6 20 10 ...G=.\ ..!... .
0000A0: F3 37 C9 11 70 02 CD B5 1F D8 21 E0 03 CD 3F 12 .7..p.....!...?.
0000B0: B7 C9 11 70 02 D5 CD 0F 20 22 E4 02 ED 53 E6 02 ...p.... "...S..
0000C0: D1 B7 28 49 FE 0D 28 45 D5 CD 17 20 30 26 2B 7E ..(I..(E... 0&+~
0000D0: 23 FE 3A 20 13 CD 25 20 7E B7 28 30 FE 0D 28 2C #.: ..% ~.(0..(,
0000E0: CD 17 20 30 0F 2B 7E 23 CD 25 20 7E 23 FE 2E 20 .. 0.+~#.% ~#..
0000F0: 03 CD 25 20 11 E4 02 CD 0D 06 D1 E5 1A B7 20 05 ..% .......... .
000100: CD 05 24 3C 12 E1 7C B5 37 C8 18 01 E1 B7 C9 7E ..$<..|.7......~
000110: 23 FE 20 28 FA 2B C9 7E B7 C8 FE 0D C8 23 FE 20 #. (.+.~.....#.
000120: 20 F5 2B 37 C9 E5 54 5D CD 0F 20 7E 12 23 13 FE .+7..T].. ~.#..
000130: 0D 28 03 B7 20 F5 E1 C9 E5 D5 C5 21 C4 01 11 0E .(.. ......!....
000140: 00 06 02 0E 00 7E B7 28 0D 19 0C 10 F8 21 EC 03 .....~.(.....!..
000150: CD 3F 12 B7 18 02 37 79 C1 D1 E1 C9 32 C3 01 E5 .?....7y....2...
000160: C5 F5 21 C4 01 06 0E CD 9B 25 CD 7B 25 7E 32 E0 ..!......%.{%~2.
000170: 01 23 7E 32 E3 01 23 7E 32 E4 01 23 7E 32 E7 01 .#~2..#~2..#~2..
000180: 23 7E 32 E5 01 23 7E 32 E6 01 23 7E 32 E1 01 23 #~2..#~2..#~2..#
000190: 7E 32 E2 01 23 7E 32 E9 01 23 7E 32 EA 01 23 7E ~2..#~2..#~2..#~
0001A0: 32 EB 01 23 7E 32 EC 01 23 7E 32 ED 01 23 7E 32 2..#~2..#~2..#~2
0001B0: EE 01 F1 C1 E1 C9 E5 C5 F5 3A C3 01 21 C4 01 06 .........:..!...
0001C0: 0E CD 9B 25 CD 7B 25 3A E0 01 77 23 3A E3 01 77 ...%.{%:..w#:..w
0001D0: 23 3A E4 01 77 23 3A E7 01 77 23 3A E5 01 77 23 #:..w#:..w#:..w#
0001E0: 3A E6 01 77 23 3A E1 01 77 23 3A E2 01 77 23 3A :..w#:..w#:..w#:
0001F0: E9 01 77 23 3A EA 01 77 23 3A EB 01 77 23 3A EC ..w#:..w#:..w#:.
Size : 512 (Real : 512)
000000: 3A A0 0D 0A 41 76 61 69 6C 61 62 6C 65 20 6F 70 :...Available op
000010: 74 69 6F 6E 73 3A 0D 0A 20 20 2F 41 28 66 6C 64 tions:.. /A(fld
000020: 6C 69 73 74 29 20 20 61 6C 70 68 61 62 65 74 69 list) alphabeti
000030: 63 20 73 6F 72 74 0D 0A 20 20 2F 44 28 66 6C 64 c sort.. /D(fld
000040: 6C 69 73 74 29 20 20 64 65 63 72 65 61 73 69 6E list) decreasin
000050: 67 20 6E 75 6D 65 72 69 63 20 73 6F 72 74 0D 0A g numeric sort..
000060: 20 20 2F 46 6E 20 20 20 20 20 20 20 20 20 20 66 /Fn f
000070: 69 78 65 64 20 72 65 63 6F 72 64 20 6F 66 20 6E ixed record of n
000080: 20 66 69 65 6C 64 73 0D 0A 20 20 2F 48 20 20 20 fields.. /H
000090: 20 20 20 20 20 20 20 20 6C 69 73 74 20 6F 70 74 list opt
0000A0: 69 6F 6E 73 0D 0A 20 20 2F 4C 28 66 6C 64 6C 69 ions.. /L(fldli
0000B0: 73 74 29 20 20 73 6F 72 74 20 6F 6E 20 6C 61 73 st) sort on las
0000C0: 74 20 77 6F 72 64 0D 0A 20 20 2F 4E 28 66 6C 64 t word.. /N(fld
0000D0: 6C 69 73 74 29 20 20 6E 75 6D 65 72 69 63 20 73 list) numeric s
0000E0: 6F 72 74 0D 0A 20 20 2F 50 28 66 6C 64 6C 69 73 ort.. /P(fldlis
0000F0: 74 29 20 20 70 65 72 73 6F 6E 61 6C 20 6E 61 6D t) personal nam
000100: 65 20 73 6F 72 74 0D 0A 20 20 2F 51 6E 20 20 20 e sort.. /Qn
000110: 20 20 20 20 20 20 20 71 75 65 72 79 20 69 66 20 query if
000120: 6E 20 66 69 65 6C 64 73 20 6D 61 74 63 68 0D 0A n fields match..
000130: 20 20 2F 53 6E 31 2C 6E 32 2C 2E 2E 2E 20 20 73 /Sn1,n2,... s
000140: 6F 72 74 20 6F 6E 20 66 69 65 6C 64 73 20 6E 31 ort on fields n1
000150: 2C 6E 32 2C 2E 2E 2E 0D 0A 20 20 2F 54 20 20 20 ,n2,..... /T
000160: 20 20 20 20 20 20 20 20 66 69 65 6C 64 73 20 64 fields d
000170: 65 6C 69 6D 69 74 65 64 20 62 79 20 74 61 62 0D elimited by tab.
000180: 0A 20 20 2F 56 20 20 20 20 20 20 20 20 20 20 20 . /V
000190: 76 61 72 69 61 62 6C 65 20 72 65 63 6F 72 64 20 variable record
0001A0: 6C 65 6E 67 74 68 0D 0A 20 20 2F 57 28 66 6C 64 length.. /W(fld
0001B0: 6C 69 73 74 29 20 20 73 6F 72 74 20 6F 6E 20 66 list) sort on f
0001C0: 69 72 73 74 20 77 6F 72 64 0D 0A 20 20 2F 5A 28 irst word.. /Z(
0001D0: 66 6C 64 6C 69 73 74 29 20 20 72 65 76 65 72 73 fldlist) revers
0001E0: 65 20 61 6C 70 68 61 62 65 74 69 63 20 73 6F 72 e alphabetic sor
0001F0: 74 0D 0A A0 00 00 00 00 00 00 00 00 00 00 00 00 t...............
Size : 512 (Real : 512)
000000: 28 F2 1B 13 1A FE 20 28 FA FE 27 28 F6 FE 22 28 (..... (..'(.."(
000010: F2 C3 18 34 3A CF 2B FE 02 C2 9F 33 3A 46 2B B7 ...4:.+....3:F+.
000020: F2 9F 33 22 47 2B ED 53 49 2B 06 00 2B 23 7E FE ..3"G+.SI+..+#~.
000030: 0D 20 FA 04 23 23 7E FE 0D 20 F1 2A 47 2B 3A 46 . ..##~.. .*G+:F
000040: 2B 80 3C B7 28 03 F2 4B 33 3E 01 47 18 13 2B 23 +.<.(..K3>.G..+#
000050: 7E FE 0D 20 FA 7E FE 0D 20 07 23 23 7E FE 0D 28 ~.. .~.. .##~..(
000060: 02 10 EB 06 00 1B 13 1A FE 0D 20 FA 04 13 13 1A .......... .....
000070: FE 0D 20 F1 ED 5B 49 2B 3A 46 2B 80 3C B7 28 03 .. ..[I+:F+.<.(.
000080: F2 85 33 3E 01 47 18 13 1B 13 1A FE 0D 20 FA 1A ..3>.G....... ..
000090: FE 0D 20 07 13 13 1A FE 0D 28 02 10 EB 18 45 3A .. ......(....E:
0000A0: 46 2B B7 F2 AB 33 47 3A D0 2B 80 47 B7 20 01 04 F+...3G:.+.G. ..
0000B0: 18 30 CD E2 35 FE 0D 28 03 23 18 F6 CD DC 35 FE .0..5..(.#....5.
0000C0: 0D 28 03 13 18 F6 7E FE 0D 20 09 23 23 7E FE 0D .(....~.. .##~..
0000D0: 20 02 2B 2B 1A FE 0D 20 09 13 13 1A FE 0D 20 F4 .++... ...... .
0000E0: 1B 1B 10 CE 7E FE 0D 20 02 23 23 1A FE 0D 20 02 ....~.. .##... .
0000F0: 13 13 2B 23 7E FE 20 28 FA FE 27 28 F6 FE 22 28 ..+#~. (..'(.."(
000100: F2 FE 09 28 EE 1B 13 1A FE 20 28 FA FE 27 28 F6 ...(..... (..'(.
000110: FE 22 28 F2 FE 09 28 EE 3A 46 2B E5 CB 7F 20 09 ."(...(.:F+... .
000120: 21 D1 2B CD 7B 25 7E 18 09 21 E2 2B ED 44 CD 7B !.+.{%~..!.+.D.{
000130: 25 7E E1 22 47 2B ED 53 49 2B FE 04 CA ED 34 FE %~."G+.SI+....4.
000140: 05 CA E8 34 F5 7E FE 7F 20 01 23 1A FE 7F 20 01 ...4.~.. .#... .
000150: 13 F1 FE 06 CA F2 35 FE 02 28 10 FE 07 28 0C FE ......5..(...(..
000160: 03 28 03 C3 F9 35 CD F9 35 3F C9 F5 D5 54 5D 13 .(...5..5?...T].
000170: 2B 3A 03 2C 47 23 7E FE 0D 28 03 B8 20 F7 2B 7E +:.,G#~..(.. .+~
000180: CD 97 36 28 F9 CD 82 25 38 0C 2B 7E CD 97 36 28 ..6(...%8.+~..6(
000190: 04 FE 2D 20 F0 23 D1 E5 62 6B 23 1B 3A 03 2C 47 ..- .#..bk#.:.,G
0001A0: 13 1A FE 0D 28 03 B8 20 F7 1B 1A CD 97 36 28 F9 ....(.. .....6(.
0001B0: CD 87 25 38 0C 1B 1A CD 97 36 28 04 FE 2D 20 F0 ..%8.....6(..- .
0001C0: 13 E1 F1 FE 07 CA F9 35 3E FF 32 43 2B ED 4B 47 .......5>.2C+.KG
0001D0: 2B 0A FE 7F 20 03 60 69 23 ED 4B 49 2B 0A FE 7F +... .`i#.KI+...
0001E0: 20 03 50 59 13 C3 FD 35 CD ED 34 3F C9 D5 CD D1 .PY...5..4?....
0001F0: 25 38 03 11 00 00 E1 D5 CD D1 25 38 03 11 00 00 %8........%8....
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 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 02 ................
0000D0: 01 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 01 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 0D 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09 0A ................
000150: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
000160: 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09 0A ................
000170: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
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 13 ................
0001C0: 00 00 00 00 00 01 05 09 0F 15 01 05 09 0F 15 01 ................
0001D0: 05 09 0F 15 19 01 05 09 0F 15 03 1E 20 1F 0E 01 ............ ...
0001E0: 0F 00 00 00 00 01 05 09 0F 15 01 05 09 0F 15 01 ................
0001F0: 05 09 0F 15 19 01 05 09 0F 15 03 1E 20 1F 0E 01 ............ ...
Size : 512 (Real : 512)
000000: E1 7C BA 20 03 7D BB C8 C3 82 25 3A 03 2C FE 09 .|. .}....%:.,..
000010: 28 37 3A CF 2B FE 02 28 15 CD 49 35 D0 D5 3A D0 (7:.+..(..I5..:.
000020: 2B 47 05 28 07 C5 CD 49 35 C1 10 F9 D1 C9 CD 49 +G.(...I5......I
000030: 35 D0 D5 CD 49 35 3F 38 0D 7E FE 0D 20 F5 CD 3F 5...I5?8.~.. ..?
000040: 30 3E 0A CD 3F 30 D1 37 C9 97 32 09 2B 7E FE 1A 0>..?0.7..2.+~..
000050: 20 21 3E 0D CD 3F 30 3E 0A CD 3F 30 3A CF 2B FE !>..?0>..?0:.+.
000060: 01 C8 3A 09 2B B7 C8 3E 0D CD 3F 30 3E 0A CD 3F ..:.+..>..?0>..?
000070: 30 B7 C9 32 09 2B CD 3F 30 23 FE 0D 20 CF 7E CD 0..2.+.?0#.. .~.
000080: 3F 30 23 C9 E5 21 05 2C CD 7B 25 7E E1 C9 3A 03 ?0#..!.,.{%~..:.
000090: 2C FE 09 28 33 3A CF 2B FE 02 28 13 CD C8 35 D0 ,..(3:.+..(...5.
0000A0: 3A D0 2B 47 05 28 07 C5 CD C8 35 C1 10 F9 C9 CD :.+G.(....5.....
0000B0: C8 35 D0 CD C8 35 3F 38 0D 7E FE 0D 20 F5 CD 75 .5...5?8.~.. ..u
0000C0: 06 3E 0A CD 75 06 37 C9 CD E2 35 B7 28 03 CD 75 .>..u.7...5.(..u
0000D0: 06 23 FE 0D 20 F2 23 CD BA 06 37 C9 EB CD E2 35 .#.. .#...7....5
0000E0: EB C9 7E FE BA C8 FE 9F 28 05 FE 80 D8 97 C9 23 ..~.....(......#
0000F0: 7E C9 3E 01 32 43 2B 18 04 97 32 43 2B CD 01 36 ~.>.2C+...2C+..6
000100: C9 97 32 42 2B CD DC 35 32 45 2B CD 84 35 47 CD ..2B+..52E+..5G.
000110: E2 35 32 44 2B FE 0D 28 44 3A 45 2B FE 0D 28 3D .52D+..(D:E+..(=
000120: 3A 44 2B CD 84 35 4F B0 79 20 17 3A 45 2B 47 3A :D+..5O.y .:E+G:
000130: 44 2B 90 C0 3A 43 2B FE 01 20 1E 78 CD 97 36 C8 D+..:C+.. .x..6.
000140: 18 17 90 C0 78 E6 DF 47 79 E6 DF 90 28 0B 47 3A ....x..Gy...(.G:
000150: 42 2B B7 20 04 78 32 42 2B 13 23 18 A8 3A 43 2B B+. .x2B+.#..:C+
000160: B7 FA 7B 36 3A 45 2B 47 3A 44 2B B0 28 06 3A 44 ..{6:E+G:D+.(.:D
000170: 2B 90 18 03 3A 42 2B B7 C8 17 C9 3A 44 2B FE 0D +...:B+....:D+..
000180: 20 E2 3A 45 2B FE 0D 20 DB 2A 47 2B ED 5B 49 2B .:E+.. .*G+.[I+
000190: 97 32 43 2B C3 05 36 FE 20 C8 FE 2E C8 C5 47 3A .2C+..6. .....G:
0001A0: 03 2C FE 09 78 C1 C0 FE 09 C9 17 3A 45 2B 47 3A .,..x......:E+G:
0001B0: 44 2B 90 C0 3A 43 2B FE 01 20 1E 78 CD 97 36 C8 D+..:C+.. .x..6.
0001C0: 18 17 90 C0 78 E6 DF 47 79 E6 DF 90 28 0B 47 3A ....x..Gy...(.G:
0001D0: 42 2B B7 20 04 78 32 42 2B 13 23 18 A8 3A 43 2B B+. .x2B+.#..:C+
0001E0: B7 FA 7B 36 3A 45 2B 47 3A 44 2B B0 28 06 3A 44 ..{6:E+G:D+.(.:D
0001F0: 2B 90 18 03 3A 42 2B B7 C8 17 C9 3A 44 2B FE 0D +...:B+....:D+..
Size : 512 (Real : 512)
000000: 0F 00 00 00 00 CD 06 01 21 AA 36 CD F4 22 CD 98 ........!.6.."..
000010: 23 22 F8 2A 2A F8 2A CB 7D 20 04 CB 75 28 08 3A #".**.*.} ..u(.:
000020: F9 2A E6 0F CD 8F 23 CD 90 2D 2A F8 2A CB 75 20 .*....#..-*.*.u
000030: 3E CB 7D 28 37 3A FA 2A B7 28 0D 21 F3 27 CD 0D >.}(7:.*.(.!.'..
000040: 1F 30 05 21 F1 27 36 20 CD 87 2D 21 E6 27 CD 4F .0.!.'6 ..-!.'.O
000050: 24 CD A3 23 30 16 21 F6 27 CD 4F 24 CD A3 23 30 $..#0.!.'.O$..#0
000060: 0B 21 02 28 CD 2A 07 CD 5D 25 38 C9 C3 65 06 CD .!.(.*..]%8..e..
000070: 87 2D 21 27 28 CD A3 23 30 F2 21 30 28 CD 2A 07 .-!'(..#0.!0(.*.
000080: CD 5D 25 38 EA 18 E5 21 54 28 CD 2A 07 C3 5D 25 .]%8...!T(.*..]%
000090: 21 2D 27 CD 2A 07 3A 80 00 4F 06 00 21 81 00 11 !-'.*.:..O..!...
0000A0: 4D 2B 78 B1 28 02 ED B0 97 12 21 4D 2B 7E 23 FE M+x.(.....!M+~#.
0000B0: 20 28 FA 2B 7E FE 3F CA EB 2E FE 2F 28 04 FE 2D (.+~.?..../(..-
0000C0: 20 0B 23 7E CD 92 25 FE 48 CA EB 2E 2B B7 20 21 .#~..%.H...+. !
0000D0: 21 9F 27 CD 2A 07 21 1E 2B 06 10 CD F1 08 D2 42 !.'.*.!.+......B
0000E0: 2F CA 42 2F 21 1E 2B 11 4D 2B 48 06 00 ED B0 97 /.B/!.+.M+H.....
0000F0: 12 21 4D 2B CD EA 2F ED 53 FF 2A 78 32 01 2B ED .!M+../.S.*x2.+.
000100: 53 02 2B 32 04 2B CD EA 2F 38 23 21 B5 27 CD 2A S.+2.+../8#!.'.*
000110: 07 21 4D 2B 06 7F 7E 23 05 B7 20 FA 2B 36 20 23 .!M+..~#.. .+6 #
000120: E5 CD F1 08 E1 D2 42 2F CD EA 2F D2 07 2F 1A FE ......B/../../..
000130: 2F 28 0F FE 2D 28 0B ED 53 02 2B 78 32 04 2B C3 /(..-(..S.+x2.+.
000140: F5 2E E5 62 6B 23 7E CD 92 25 23 FE 4A 20 06 32 ...bk#~..%#.J .2
000150: FA 2A C3 F4 2E FE 46 20 14 CD D1 25 38 03 11 01 .*....F ...%8...
000160: 00 ED 53 D0 2B 3E 01 32 CF 2B C3 F4 2E FE 56 20 ..S.+>.2.+....V
000170: 08 3E 02 32 CF 2B C3 F4 2E FE 50 06 02 CA 4E 2F .>.2.+....P...N/
000180: FE 41 06 01 CA 4E 2F FE 5A 06 03 CA 4E 2F FE 44 .A...N/.Z...N/.D
000190: 06 05 CA 4E 2F FE 4E 06 04 CA 4E 2F FE 57 06 06 ...N/.N...N/.W..
0001A0: CA 4E 2F FE 4C 06 07 CA 4E 2F FE 51 20 0D CD D1 .N/.L...N/.Q ...
0001B0: 25 38 02 1E 01 7B 32 04 2C 18 39 FE 54 20 07 3E %8...{2.,.9.T .>
0001C0: 09 32 03 2C 18 2E FE 53 20 16 06 10 DD 21 F3 2B .2.,...S ....!.+
0001D0: C5 CD A8 2F C1 30 1D DD 73 00 DD 23 10 F2 18 14 .../.0..s..#....
0001E0: E1 FE 48 28 06 21 D8 27 CD 2A 07 21 02 29 CD 2A ..H(.!.'.*.!.).*
0001F0: 07 C3 42 2F E1 CD EA 2F 30 0D 1A FE 2F CA 42 2E ..B/.../0.../.B.
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: FE 2D CA 42 2E 18 EE 3A 03 2C FE 09 20 05 3E 02 .-.B...:.,.. .>.
000010: 32 CF 2B 06 10 DD 21 D0 2B DD 23 DD 7E 00 B7 20 2.+...!.+.#.~..
000020: 04 DD 36 00 01 10 F2 06 10 DD 21 E1 2B DD 23 DD ..6.......!.+.#.
000030: 7E 00 B7 20 04 DD 36 00 01 10 F2 ED 73 F6 2A CD ~.. ..6.....s.*.
000040: 4A 30 C9 ED 7B F6 2A 3A FC 2A CD 18 1B C9 F5 C5 J0..{.*:.*......
000050: CD A8 2F C1 48 38 2A DD 21 D0 2B 06 10 DD 23 DD ../.H8*.!.+...#.
000060: 7E 00 B7 20 03 DD 71 00 10 F3 DD 21 E1 2B 06 10 ~.. ..q....!.+..
000070: DD 23 DD 7E 00 B7 20 03 DD 71 00 10 F3 F1 C3 F4 .#.~.. ..q......
000080: 2E E5 CB 7A 20 0C 7B E6 0F 21 D1 2B CD 7B 25 71 ...z .{..!.+.{%q
000090: 18 0C 7B ED 44 E6 0F 21 E2 2B CD 7B 25 71 E1 CD ..{.D..!.+.{%q..
0000A0: A8 2F 38 DD F1 C3 F4 2E 97 32 3D 2B CD 1C 26 7E ./8......2=+..&~
0000B0: FE 2D 20 04 32 3D 2B 23 CD D1 25 D0 3A 3D 2B B7 .- .2=+#..%.:=+.
0000C0: 37 C8 E5 21 00 00 B7 ED 52 54 5D E1 37 C9 21 C4 7..!....RT].7.!.
0000D0: 27 CD 2A 07 CD 5D 25 D0 CD 92 25 FE 59 28 04 FE '.*..]%...%.Y(..
0000E0: 4E 20 F1 CD 75 06 FE 59 37 C9 CD 20 30 C8 CD 1A N ..u..Y7.. 0...
0000F0: 30 28 10 E5 D1 2B 06 FF 04 CD 78 26 CD 33 30 20 0(...+....x&.30
000100: F7 18 13 4F E5 D1 13 06 FF 04 CD 78 26 CD 42 26 ...O.......x&.B&
000110: 28 04 B9 20 F4 23 04 05 37 C9 FE 22 C8 FE 27 C9 (.. .#..7.."..'.
000120: 2B CD 78 26 FE 0D C8 B7 C8 CD 33 30 28 F3 FE 3B +.x&......30(..;
000130: C8 37 C9 FE 3D C8 CD 2F 26 C8 B7 C8 FE 0D C9 C5 .7..=../&.......
000140: 47 3A FC 2A CD C1 19 78 C1 C9 2A FF 2A 3A 01 2B G:.*...x..*.*:.+
000150: E5 CD 7B 25 36 00 E1 CD 72 15 D0 32 FB 2A 2A 02 ..{%6...r..2.**.
000160: 2B 3A 04 2B E5 CD 7B 25 36 00 E1 CD FB 15 D0 32 +:.+..{%6......2
000170: FC 2A 2A FF 2A CD 5E 1E 11 80 00 CD 80 07 22 FD .**.*.^.......".
000180: 2A CD F0 22 22 F4 2A 11 A0 0F 19 22 32 2B E5 CD *.."".*...."2+..
000190: F8 22 D1 B7 ED 52 EB 2A FD 2A CD 87 25 30 07 21 ."...R.*.*..%0.!
0001A0: 4F 27 CD 2A 07 C9 44 4D 3A FB 2A 2A 32 2B CD 72 O'.*..DM:.**2+.r
0001B0: 18 3A FB 2A CD 31 1B 3E 01 32 07 2B 2A 32 2B DD .:.*.1.>.2.+*2+.
0001C0: 2A F4 2A CD 5B 31 30 22 DD 73 00 DD 72 01 DD 23 *.*.[10".s..r..#
0001D0: DD 23 E5 2A 3E 2B 23 22 3E 2B 11 D0 07 CD 82 25 .#.*>+#">+.....%
0001E0: E1 38 E0 21 87 27 CD 2A 07 C9 2A 3E 2B 7C B5 28 .8.!.'.*..*>+|.(
0001F0: 3C DD E5 D1 1B 1B 2A F4 2A CD E4 31 DD 2A F4 2A <.....*.*..1.*.*
Size : 512 (Real : 512)
000000: 20 66 66 3C 3E 22 22 0D 0A 3E 73 76 20 6E 3D 31 ff<>""..>sv n=1
000010: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000020: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 66 66 n=n[w1]..>sv ff
000030: 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E 75 6E =ff+"+f&n&"..>un
000040: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A 3E n>=rlen..>ei..>
000050: 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D >>..>dm " "..>dm
000060: 20 22 53 65 61 72 63 68 69 6E 67 20 2E 2E 2E 22 "Searching ..."
000070: 0D 0A 3E 73 76 20 6E 6E 3D 30 0D 0A 3E 64 66 20 ..>sv nn=0..>df
000080: 66 6D 2E 6D 75 73 0D 0A 3E 72 76 20 6D 75 73 0D fm.mus..>rv mus.
000090: 0A 3E 63 66 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D .>cf..>if mus="m
0000A0: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
0000B0: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
0000C0: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
0000D0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
0000E0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
0000F0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
000100: 6E 64 24 0D 0A 3E 77 66 20 26 73 65 6C 66 69 6C nd$..>wf &selfil
000110: 65 26 0D 0A 3E 65 69 20 3B 69 75 20 64 66 0D 0A e&..>ei ;iu df..
000120: 1A 66 66 26 0D 0A 3E 73 76 20 78 3D 30 0D 0A 3E .ff&..>sv x=0..>
000130: 69 66 20 26 63 33 26 0D 0A 3E 73 76 20 78 3D 31 if &c3&..>sv x=1
000140: 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 26 63 31 26 0D ..>el..>if &c1&.
000150: 0A 3E 69 66 20 26 63 32 26 0D 0A 3E 73 76 20 78 .>if &c2&..>sv x
000160: 3D 31 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 =1..>ei..>ei..>e
000170: 69 0D 0A 3E 73 6B 20 78 3D 30 0D 0A 3E 7A 6D 0D i..>sk x=0..>zm.
000180: 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E 77 63 0D ntinue .....>wc.
000190: 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 66 .>cf..>ex exec f
0001A0: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 6B m..>st..>ei..>sk
0001B0: 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 69 64 20 64 0=0..>ei ; id d
0001C0: 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D 0A f..>>>..>iu df..
0001D0: 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F 70 >cs " "..>dm "Op
0001E0: 74 69 6F 6E 20 53 2E 32 20 2D 20 53 65 6C 65 63 tion S.2 - Selec
0001F0: 74 20 72 65 63 6F 72 64 73 20 28 63 6F 6E 64 31 t records (cond1
Size : 512 (Real : 512)
000000: ED 4B 3E 2B DD 6E 00 DD 66 01 E5 7E 23 FE 0D 20 .K>+.n..f..~#..
000010: FA CB 7E E1 28 09 3A 40 2B 3C 32 40 2B 18 05 C5 ..~.(.:@+<2@+...
000020: CD 0B 35 C1 DD 23 DD 23 0B 78 B1 20 D7 3A FC 2A ..5..#.#.x. .:.*
000030: CD 31 1B 21 6F 28 CD 2A 07 2A 3E 2B ED 5B 40 2B .1.!o(.*.*>+.[@+
000040: B7 ED 52 CD DF 07 7A B3 28 10 21 8F 28 CD 2D 07 ..R...z.(.!.(.-.
000050: EB CD DF 07 21 91 28 CD 2D 07 C9 3E 01 32 08 2B ....!.(.-..>.2.+
000060: 3A 03 2C FE 09 28 30 3A CF 2B FE 02 28 16 CD 97 :.,..(0:.+..(...
000070: 31 D0 D5 3A D0 2B 47 05 28 08 C5 CD 97 31 C1 10 1..:.+G.(....1..
000080: F9 37 D1 C9 CD 97 31 D0 D5 CD 97 31 3F 38 05 7E .7....1....1?8.~
000090: FE 0D 20 F5 D1 37 C9 7E FE 1A C8 FE 3E 28 0A FE .. ..7.~....>(..
0000A0: 0D 20 2B 3A 08 2B B7 28 25 3A 07 2B B7 28 13 7E . +:.+.(%:.+.(.~
0000B0: FE 1A C8 CD 3F 30 23 FE 0D 20 F4 7E CD 3F 30 23 ....?0#.. .~.?0#
0000C0: 18 D5 7E 23 FE 1A C8 FE 0D 20 F7 23 18 C9 97 32 ..~#..... .#...2
0000D0: 07 2B 32 08 2B 54 5D 7E FE 1A 37 C8 23 FE 0D 20 .+2.+T]~..7.#..
0000E0: F6 23 37 C9 E5 D5 4E 23 46 2B 1A 77 79 12 13 23 .#7...N#F+.wy..#
0000F0: 1A 77 78 12 D1 E1 DD 21 FD 31 C3 FD 0A DD E5 CD .wx....!.1......
000100: 05 32 DD E1 C9 DD 21 F3 2B 06 10 0E 00 DD 7E 00 .2....!.+.....~.
000110: B7 C8 C5 E5 D5 CD A2 32 D1 E1 C1 C0 7C 92 20 04 .......2....|. .
000120: 7D 93 28 21 3A 04 2C 3D B9 20 1A E5 7E 23 FE 0D }.(!:.,=. ..~#..
000130: 20 FA CB 7E E1 20 0E E5 62 6B 7E 23 FE 0D 20 FA ..~. ..bk~#.. .
000140: CB 7E E1 28 06 DD 23 0C 10 C3 C9 E5 21 9A 28 CD .~.(..#.....!.(.
000150: 2A 07 E1 E5 CD 8E 35 21 BC 28 CD 2A 07 62 6B CD *.....5!.(.*.bk.
000160: 8E 35 21 C1 28 CD 2A 07 E1 CD 5D 25 D2 43 2F FE .5!.(.*...]%.C/.
000170: 31 28 0A FE 32 28 15 FE 0D 28 22 18 EC CD 75 06 1(..2(...("...u.
000180: E5 7E 23 FE 0D 20 FA CB FE E1 18 B9 CD 75 06 E5 .~#.. .......u..
000190: 62 6B 7E 23 FE 0D 20 FA CB FE E1 18 A8 CD B7 06 bk~#.. .........
0001A0: 18 A3 B7 20 02 3E 01 32 46 2B 3A 03 2C FE 09 20 ... .>.2F+:.,..
0001B0: 63 3A 46 2B B7 F2 BA 32 ED 44 47 18 28 CD E2 35 c:F+...2.DG.(..5
0001C0: FE 09 28 07 FE 0D 28 03 23 18 F2 CD DC 35 FE 09 ..(...(.#....5..
0001D0: 28 07 FE 0D 28 03 13 18 F2 7E FE 09 20 01 23 1A (...(....~.. .#.
0001E0: FE 09 20 01 13 10 D6 7E FE 09 20 01 23 1A FE 09 .. ....~.. .#...
0001F0: 20 01 13 2B 23 7E FE 20 28 FA FE 27 28 F6 FE 22 ..+#~. (..'(.."
Size : 512 (Real : 512)
000000: 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 f2! ; phone..!f3
000010: 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 21 !..!f4!..!f5!..!
000020: 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 0D f6!..!f7!..!f8!.
000030: 0A 3E 45 49 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A .>EI..>EI..>PA..
000040: 3E 45 49 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 >EI ; f1..>UN f1
000050: 3D 22 65 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E ="end"..>>>..>>>
000060: 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 END OF MAIN MAI
000070: 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E 0D L MERGE SECTION.
000080: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
000090: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
0000A0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
0000B0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
0000C0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E id df..>>>>>>>>
0000D0: 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C 20 70 >>>..>>> Label p
0000E0: 72 69 6E 74 65 72 20 28 33 20 61 63 72 6F 73 73 rinter (3 across
0000F0: 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 ) (c) Arnor 1988
000100: 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 0A 3E ..>>>..>IU lm..>
000110: 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 20 64 SV gt=">"..>SV d
000120: 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D 2D 2D ashes80="-------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 53 0D ---------"..>CS.
000180: 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 50 52 .>DM " "..>DM PR
000190: 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 69 6E OTEXT label prin
0001A0: 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 33 20 ting program (3
0001B0: 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 20 22 across)..>DM " "
0001C0: 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 6F 66 ..>AV "Number of
0001D0: 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 65 6C lines per label
0001E0: 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 6E 0D [&defpl&]: " n.
0001F0: 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D 0A 3E .>SV pl=defpl..>
Size : 512 (Real : 512)
000000: 0A 0D 0A 4D 61 68 6C 65 72 0D 0A 53 79 6D 70 68 ...Mahler..Symph
000010: 6F 6E 79 20 6E 6F 2E 20 34 0D 0A 43 44 0D 0A 31 ony no. 4..CD..1
000020: 39 38 34 0D 0A 43 68 69 63 61 67 6F 20 53 2E 4F 984..Chicago S.O
000030: 2E 20 77 69 74 68 20 4B 69 72 69 20 54 65 20 4B . with Kiri Te K
000040: 61 6E 61 77 61 0D 0A 53 69 72 20 47 65 6F 72 67 anawa..Sir Georg
000050: 20 53 6F 6C 74 69 0D 0A 0D 0A 4D 69 6B 65 20 4F Solti....Mike O
000060: 6C 64 66 69 65 6C 64 0D 0A 54 75 62 75 6C 61 72 ldfield..Tubular
000070: 20 42 65 6C 6C 73 0D 0A 52 65 63 6F 72 64 0D 0A Bells..Record..
000080: 31 39 37 33 0D 0A 0D 0A 0D 0A 0D 0A 4D 6F 7A 61 1973........Moza
000090: 72 74 0D 0A 45 69 6E 65 20 6B 6C 65 69 6E 65 20 rt..Eine kleine
0000A0: 4E 61 63 68 74 6D 75 73 69 6B 0D 0A 43 44 0D 0A Nachtmusik..CD..
0000B0: 31 39 38 33 0D 0A 57 69 65 6E 65 72 20 50 68 69 1983..Wiener Phi
0000C0: 6C 68 61 72 6D 6F 6E 69 6B 65 72 0D 0A 4A 61 6D lharmoniker..Jam
0000D0: 65 73 20 4C 65 76 69 6E 65 0D 0A 0D 0A 4D 6F 7A es Levine....Moz
0000E0: 61 72 74 0D 0A 4B 6C 61 76 69 65 72 73 6F 6E 61 art..Klaviersona
0000F0: 74 65 6E 20 31 30 20 26 20 31 37 0D 0A 52 65 63 ten 10 & 17..Rec
000100: 6F 72 64 0D 0A 31 39 37 39 0D 0A 22 4B 61 72 6C ord..1979.."Karl
000110: 20 42 65 74 7A 2C 20 70 69 61 6E 6F 22 0D 0A 0D Betz, piano"...
000120: 0A 0D 0A 4D 6F 7A 61 72 74 0D 0A 53 79 6D 70 68 ...Mozart..Symph
000130: 6F 6E 69 65 73 20 33 35 20 26 20 33 34 0D 0A 43 onies 35 & 34..C
000140: 44 0D 0A 31 39 38 32 0D 0A 43 6F 6E 63 65 72 74 D..1982..Concert
000150: 67 65 62 6F 75 77 20 4F 72 63 68 65 73 74 72 61 gebouw Orchestra
000160: 0D 0A 4E 69 6B 6F 6C 61 75 73 20 48 61 72 6E 6F ..Nikolaus Harno
000170: 6E 63 6F 75 72 74 0D 0A 0D 0A 4D 6F 7A 61 72 74 ncourt....Mozart
000180: 0D 0A 53 79 6D 70 68 6F 6E 69 65 73 20 34 30 20 ..Symphonies 40
000190: 26 20 34 31 0D 0A 43 61 73 73 0D 0A 31 39 38 34 & 41..Cass..1984
0001A0: 0D 0A 45 6E 67 6C 69 73 68 20 43 68 61 6D 62 65 ..English Chambe
0001B0: 72 20 4F 72 63 68 65 73 74 72 61 0D 0A 4A 65 66 r Orchestra..Jef
0001C0: 66 72 65 79 20 54 61 74 65 0D 0A 0D 0A 50 61 75 frey Tate....Pau
0001D0: 6C 20 53 69 6D 6F 6E 0D 0A 47 72 61 63 65 6C 61 l Simon..Gracela
0001E0: 6E 64 0D 0A 43 61 73 73 0D 0A 31 39 38 37 0D 0A nd..Cass..1987..
0001F0: 0D 0A 0D 0A 0D 0A 50 69 6E 6B 20 46 6C 6F 79 64 ......Pink Floyd
Size : 512 (Real : 512)
000000: 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 75 6E "..>ei..>ei..>un
000010: 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 20 3B 20 75 n=maxn..>ei ; u
000020: 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 3E 3E 0D seprod="y"..>>>.
000030: 0A 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 68 .>>> print out h
000040: 65 61 64 69 6E 67 20 61 74 20 74 6F 70 20 6F 66 eading at top of
000050: 20 73 68 65 65 74 0D 0A 3E 3E 3E 0D 0A 3E 64 6D sheet..>>>..>dm
000060: 20 22 20 22 0D 0A 3E 20 20 20 20 20 20 20 20 20 " "..>
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 21 20 20 20 20 20 20 20 20 20 20 6C 20 20 ! l
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 72 0D 0A 3E 77 66 20 6F 6E 0D 0A 26 72 75 6C 65 r..>wf on..&rule
0000C0: 72 31 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D r1&..>wfoff..>wm
0000D0: 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 ..>if prconame="
0000E0: 79 22 0D 0A 3E 77 6D 20 EC 21 63 6F 6E 61 6D 65 y"..>wm .!coname
0000F0: 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 31 21 !..>wm !coaddr1!
000100: 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 32 21 0D ..>wm !coaddr2!.
000110: 0A 3E 77 6D 20 21 63 6F 61 64 64 72 33 21 0D 0A .>wm !coaddr3!..
000120: 3E 77 6D 20 21 63 6F 61 64 64 72 34 21 0D 0A 3E >wm !coaddr4!..>
000130: 77 6D 20 21 63 6F 61 64 64 72 35 21 EC 0D 0A 3E wm !coaddr5!...>
000140: 65 69 0D 0A 3E 3E 3E 20 67 6F 20 74 6F 20 6C 69 ei..>>> go to li
000150: 6E 65 20 26 61 6C 69 6E 65 26 0D 0A 3E 73 76 20 ne &aline&..>sv
000160: 6E 3D 61 6C 69 6E 65 2D 63 61 6C 69 6E 65 2D 36 n=aline-caline-6
000170: 0D 0A 3E 72 70 0D 0A 3E 77 6D 0D 0A 3E 73 76 20 ..>rp..>wm..>sv
000180: 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A n=n-1..>un n=0..
000190: 3E 77 6D 20 21 61 30 21 0D 0A 3E 77 6D 20 21 61 >wm !a0!..>wm !a
0001A0: 31 21 0D 0A 3E 77 6D 20 21 61 32 21 0D 0A 3E 77 1!..>wm !a2!..>w
0001B0: 6D 20 21 61 33 21 09 EC 26 54 49 54 4C 45 26 EC m !a3!..&TITLE&.
0001C0: 0D 0A 3E 77 6D 20 21 61 34 21 09 0D 0A 3E 77 6D ..>wm !a4!...>wm
0001D0: 20 21 61 35 21 09 4E 75 6D 62 65 72 20 20 20 20 !a5!.Number
0001E0: 20 26 6E 75 6D 62 65 72 26 0D 0A 3E 77 6D 20 21 &number&..>wm !
0001F0: 61 36 21 09 44 61 74 65 20 20 20 20 20 20 20 26 a6!.Date &
Size : 512 (Real : 512)
000000: 0D 0A 41 6E 69 6D 61 6C 73 0D 0A 43 44 0D 0A 31 ..Animals..CD..1
000010: 39 37 37 0D 0A 0D 0A 0D 0A 0D 0A 50 69 6E 6B 20 977........Pink
000020: 46 6C 6F 79 64 0D 0A 44 61 72 6B 20 53 69 64 65 Floyd..Dark Side
000030: 20 6F 66 20 74 68 65 20 4D 6F 6F 6E 0D 0A 43 44 of the Moon..CD
000040: 0D 0A 31 39 37 33 0D 0A 0D 0A 0D 0A 0D 0A 53 63 ..1973........Sc
000050: 68 75 6D 61 6E 6E 0D 0A 53 79 6D 70 68 6F 6E 79 humann..Symphony
000060: 20 6E 6F 2E 20 32 0D 0A 52 65 63 6F 72 64 0D 0A no. 2..Record..
000070: 31 39 38 31 0D 0A 57 69 65 6E 65 72 20 50 68 69 1981..Wiener Phi
000080: 6C 68 61 72 6D 6F 6E 69 6B 65 72 0D 0A 5A 75 62 lharmoniker..Zub
000090: 69 6E 20 4D 65 68 74 61 0D 0A 0D 0A 53 75 7A 61 in Mehta....Suza
0000A0: 6E 6E 65 20 56 65 67 61 0D 0A 53 6F 6C 69 74 75 nne Vega..Solitu
0000B0: 64 65 20 53 74 61 6E 64 69 6E 67 0D 0A 43 44 0D de Standing..CD.
0000C0: 0A 31 39 38 37 0D 0A 0D 0A 0D 0A 0D 0A 53 75 7A .1987........Suz
0000D0: 61 6E 6E 65 20 56 65 67 61 0D 0A 53 75 7A 61 6E anne Vega..Suzan
0000E0: 6E 65 20 56 65 67 61 0D 0A 43 44 0D 0A 31 39 38 ne Vega..CD..198
0000F0: 35 0D 0A 0D 0A 0D 0A 0D 0A 54 63 68 61 69 6B 6F 5........Tchaiko
000100: 76 73 6B 79 0D 0A 31 38 31 32 20 4F 76 65 72 74 vsky..1812 Overt
000110: 75 72 65 0D 0A 43 44 0D 0A 31 39 38 32 0D 0A 43 ure..CD..1982..C
000120: 68 69 63 61 67 6F 20 53 2E 4F 2E 0D 0A 44 61 6E hicago S.O...Dan
000130: 69 65 6C 20 42 61 72 65 6E 62 6F 69 6D 0D 0A 0D iel Barenboim...
000140: 0A 54 63 68 61 69 6B 6F 76 73 6B 79 0D 0A 52 6F .Tchaikovsky..Ro
000150: 6D 65 6F 20 61 6E 64 20 4A 75 6C 69 65 74 0D 0A meo and Juliet..
000160: 43 61 73 73 0D 0A 31 39 38 33 0D 0A 42 65 72 6C Cass..1983..Berl
000170: 69 6E 65 72 20 50 68 69 6C 68 61 72 6D 6F 6E 69 iner Philharmoni
000180: 6B 65 72 0D 0A 48 65 72 62 65 72 74 20 76 6F 6E ker..Herbert von
000190: 20 4B 61 72 61 6A 61 6E 0D 0A 0D 0A 54 63 68 61 Karajan....Tcha
0001A0: 69 6B 6F 76 73 6B 79 0D 0A 53 79 6D 70 68 6F 6E ikovsky..Symphon
0001B0: 79 20 6E 6F 2E 20 34 0D 0A 52 65 63 6F 72 64 0D y no. 4..Record.
0001C0: 0A 31 39 37 36 0D 0A 4E 65 77 20 59 6F 72 6B 20 .1976..New York
0001D0: 50 68 69 6C 68 61 72 6D 6F 6E 69 63 0D 0A 4C 65 Philharmonic..Le
0001E0: 6F 6E 61 72 64 20 42 65 72 6E 73 74 65 69 6E 0D onard Bernstein.
0001F0: 0A 0D 0A 56 69 76 61 6C 64 69 0D 0A 54 68 65 20 ...Vivaldi..The
Size : 512 (Real : 512)
000000: 64 61 74 65 26 0D 0A 3E 77 6D 20 21 61 37 21 09 date&..>wm !a7!.
000010: 4F 72 64 65 72 20 52 65 66 20 20 26 72 65 66 26 Order Ref &ref&
000020: 0D 0A 3E 3E 3E 20 67 6F 74 6F 20 6C 69 6E 65 20 ..>>> goto line
000030: 26 74 6C 69 6E 65 26 0D 0A 3E 73 76 20 6E 3D 74 &tline&..>sv n=t
000040: 6C 69 6E 65 2D 61 6C 69 6E 65 2D 38 0D 0A 3E 72 line-aline-8..>r
000050: 70 0D 0A 3E 77 6D 20 0D 0A 3E 73 76 20 6E 3D 6E p..>wm ..>sv n=n
000060: 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 20 20 -1..>un n=0..>
000070: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
000090: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
0000B0: 20 20 20 20 20 20 52 0D 0A 3E 77 66 6F 6E 0D 0A R..>wfon..
0000C0: 26 72 75 6C 65 72 32 26 0D 0A 3E 77 66 6F 66 66 &ruler2&..>wfoff
0000D0: 0D 0A 3E 77 6D 20 43 4F 44 45 09 44 45 53 43 52 ..>wm CODE.DESCR
0000E0: 49 50 54 49 4F 4E 09 51 55 41 4E 54 49 54 59 09 IPTION.QUANTITY.
0000F0: 55 4E 49 54 20 50 52 49 43 45 09 54 4F 54 41 4C UNIT PRICE.TOTAL
000100: 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 ..>
000110: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000120: 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 !
000130: 20 20 20 20 20 20 2E 20 20 20 20 20 20 20 20 20 .
000140: 20 20 20 20 20 2E 20 20 20 20 20 52 0D 0A 3E 77 . R..>w
000150: 66 6F 6E 0D 0A 26 72 75 6C 65 72 33 26 0D 0A 3E fon..&ruler3&..>
000160: 77 66 6F 66 66 0D 0A 3E 77 6D 0D 0A 3E 3E 3E 0D wfoff..>wm..>>>.
000170: 0A 3E 3E 3E 20 70 72 69 6E 74 20 6F 75 74 20 6F .>>> print out o
000180: 72 64 65 72 20 6C 69 6E 65 73 0D 0A 3E 3E 3E 0D rder lines..>>>.
000190: 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 79 22 .>if useprod="y"
0001A0: 0D 0A 3E 64 6D 20 22 43 61 6C 63 75 6C 61 74 69 ..>dm "Calculati
0001B0: 6E 67 20 74 6F 74 61 6C 73 2E 2E 2E 22 0D 0A 3E ng totals..."..>
0001C0: 64 6D 20 22 20 22 0D 0A 3E 65 6C 0D 0A 3E 64 6D dm " "..>el..>dm
0001D0: 20 22 45 6E 74 65 72 20 64 65 74 61 69 6C 73 20 "Enter details
0001E0: 6F 66 20 65 61 63 68 20 69 74 65 6D 20 28 52 45 of each item (RE
0001F0: 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 0D TURN to end): ".
Size : 512 (Real : 512)
000000: 46 6F 75 72 20 53 65 61 73 6F 6E 73 0D 0A 52 65 Four Seasons..Re
000010: 63 6F 72 64 20 20 20 20 20 20 20 20 20 20 20 20 cord
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 0D 0A 31 39 38 31 0D 0A 22 41 73 74 6F 72 ..1981.."Astor
000040: 72 65 20 46 65 72 72 61 72 69 2C 20 76 69 6F 6C re Ferrari, viol
000050: 69 6E 20 26 20 74 68 65 20 53 74 75 74 74 67 61 in & the Stuttga
000060: 72 74 20 53 6F 6C 6F 69 73 74 73 22 0D 0A 4D 61 rt Soloists"..Ma
000070: 72 63 65 6C 20 43 6F 75 72 61 75 64 0D 0A 0D 0A rcel Couraud....
000080: 0A 21 63 6F 6E 61 6D 65 21 0D 0A 21 63 6F 61 64 .!coname!..!coad
000090: 64 72 31 21 0D 0A 21 63 6F 61 64 64 72 32 21 0D dr1!..!coaddr2!.
0000A0: 0A 21 63 6F 61 64 64 72 33 21 0D 0A 21 63 6F 61 .!coaddr3!..!coa
0000B0: 64 64 72 34 21 0D 0A 21 63 6F 61 64 64 72 35 21 ddr4!..!coaddr5!
0000C0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 65 64 69 ..>ex exec omedi
0000D0: 74 72 0D 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E tr..>st...>>>..>
0000E0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0000F0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F 6D 69 6E 76 ..>ei..>df ominv
000130: 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 20 61 64 64 gen.inf..>rv add
000140: 72 66 69 6C 65 2C 69 6E 76 64 72 76 2C 70 72 6F rfile,invdrv,pro
000150: 64 66 69 6C 65 2C 76 61 74 72 65 67 0D 0A 3E 72 dfile,vatreg..>r
000160: 76 20 76 61 74 31 2C 76 61 74 32 2C 76 61 74 33 v vat1,vat2,vat3
000170: 2C 76 61 74 34 2C 76 61 74 35 2C 69 6E 66 6F 6C ,vat4,vat5,infol
000180: 69 6E 65 73 2C 64 65 73 63 77 69 64 74 68 0D 0A ines,descwidth..
000190: 3E 72 76 20 64 69 73 63 41 2C 64 69 73 63 42 2C >rv discA,discB,
0001A0: 64 69 73 63 43 2C 64 69 73 63 44 2C 64 69 73 63 discC,discD,disc
0001B0: 45 0D 0A 3E 72 76 20 70 72 63 6F 6E 61 6D 65 2C E..>rv prconame,
0001C0: 65 78 6F 72 69 6E 63 76 61 74 2C 73 68 6F 77 64 exorincvat,showd
0001D0: 69 73 63 2C 61 73 6B 66 6E 2C 61 73 6B 63 61 72 isc,askfn,askcar
0001E0: 2C 75 73 65 70 72 6F 64 2C 64 65 66 64 69 73 63 ,useprod,defdisc
0001F0: 0D 0A 3E 72 76 20 63 61 6C 69 6E 65 2C 61 6C 69 ..>rv caline,ali
Size : 512 (Real : 512)
000000: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>dm " "..>ei..>
000010: 73 76 20 6E 3D 30 20 71 75 61 6E 74 30 3D 31 20 sv n=0 quant0=1
000020: 64 69 73 63 6F 75 6E 74 3D 31 0D 0A 3E 73 76 20 discount=1..>sv
000030: 62 6C 61 6E 6B 6C 69 6E 65 73 3D 69 6E 66 6F 6C blanklines=infol
000040: 69 6E 65 73 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E ines coden=""..>
000050: 73 76 20 74 6F 74 3D 30 2E 30 30 0D 0A 3E 69 66 sv tot=0.00..>if
000060: 20 76 61 74 3F 3D 22 79 22 0D 0A 3E 73 76 20 64 vat?="y"..>sv d
000070: 75 65 3D 63 61 72 2A 76 61 74 63 66 31 0D 0A 3E ue=car*vatcf1..>
000080: 65 6C 0D 0A 3E 73 76 20 64 75 65 3D 63 61 72 0D el..>sv due=car.
000090: 0A 3E 65 69 0D 0A 3E 73 76 20 76 61 74 3D 64 75 .>ei..>sv vat=du
0000A0: 65 2D 63 61 72 0D 0A 3E 72 70 0D 0A 3E 69 66 20 e-car..>rp..>if
0000B0: 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 73 76 useprod="y"..>sv
0000C0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0000D0: 3E 69 66 20 71 75 61 6E 74 26 6E 26 20 3D 20 30 >if quant&n& = 0
0000E0: 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A ..>sv coden=""..
0000F0: 3E 65 6C 0D 0A 3E 73 76 20 64 65 73 63 6E 3D 64 >el..>sv descn=d
000100: 65 73 63 26 6E 26 5B 31 3A 26 64 65 73 63 77 69 esc&n&[1:&descwi
000110: 64 74 68 26 5D 0D 0A 3E 73 76 20 63 6F 64 65 6E dth&]..>sv coden
000120: 3D 63 6F 64 65 26 6E 26 0D 0A 3E 69 66 20 63 6F =code&n&..>if co
000130: 64 65 6E 3D 22 22 0D 0A 3E 73 76 20 63 6F 64 65 den=""..>sv code
000140: 6E 3D 22 20 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 n=" "..>ei..>sv
000150: 71 75 61 6E 74 6E 3D 71 75 61 6E 74 26 6E 26 5B quantn=quant&n&[
000160: 77 31 5D 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D w1]..>sv pricen=
000170: 70 72 69 63 65 26 6E 26 0D 0A 3E 73 76 20 76 72 price&n&..>sv vr
000180: 3D 70 72 6F 64 76 61 74 26 6E 26 0D 0A 3E 69 66 =prodvat&n&..>if
000190: 20 63 75 73 74 64 69 73 63 3D 30 0D 0A 3E 73 76 custdisc=0..>sv
0001A0: 20 64 69 73 63 6F 75 6E 74 3D 31 0D 0A 3E 65 6C discount=1..>el
0001B0: 0D 0A 3E 73 76 20 70 72 6F 64 64 69 73 63 6E 3D ..>sv proddiscn=
0001C0: 70 72 6F 64 64 69 73 63 26 6E 26 0D 0A 3E 73 76 proddisc&n&..>sv
0001D0: 20 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 26 63 discount=disc&c
0001E0: 75 73 74 64 69 73 63 26 5B 77 26 70 72 6F 64 64 ustdisc&[w&prodd
0001F0: 69 73 63 6E 26 5D 0D 0A 3E 73 76 20 64 69 73 63 iscn&]..>sv disc
Size : 512 (Real : 512)
000000: 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 u..>ST..>EI ; id
000010: 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E df..>>>>>>>>>>>
000020: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C ..>>>..>>> Label
000030: 20 70 72 69 6E 74 65 72 20 28 32 20 61 63 72 6F printer (2 acro
000040: 73 73 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 ss) (c) Arnor 19
000050: 38 38 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 88..>>>..>IU lm.
000060: 0A 3E 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 .>SV gt=">"..>SV
000070: 20 64 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D dashes80="-----
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 -----------"..>C
0000D0: 53 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 S..>DM " "..>DM
0000E0: 50 52 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 PROTEXT label pr
0000F0: 69 6E 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 inting program (
000100: 32 20 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 2 across)..>DM "
000110: 20 22 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 "..>AV "Number
000120: 6F 66 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 of lines per lab
000130: 65 6C 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 el [&defpl&]: "
000140: 6E 0D 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D n..>SV pl=defpl.
000150: 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 .>IF n <> ""..>S
000160: 56 20 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 V pl=n..>EI..>AV
000170: 20 22 20 20 20 20 20 20 20 20 20 57 69 64 74 68 " Width
000180: 20 6F 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 of labels [&def
000190: 6C 77 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C lw&]: " n..>SV l
0001A0: 77 3D 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C w=deflw..>IF n <
0001B0: 3E 20 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A > ""..>SV lw=n..
0001C0: 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 >EI..>AV "
0001D0: 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 Left mar
0001E0: 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 gin [&deflm&]: "
0001F0: 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D n..>SV lm=deflm
Size : 512 (Real : 512)
000000: 6F 75 6E 74 3D 64 69 73 63 6F 75 6E 74 2F 31 30 ount=discount/10
000010: 30 20 64 69 73 63 6F 75 6E 74 3D 31 2D 64 69 73 0 discount=1-dis
000020: 63 6F 75 6E 74 0D 0A 3E 65 69 0D 0A 3E 73 76 20 count..>ei..>sv
000030: 75 70 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A uprice=discount*
000040: 70 72 69 63 65 6E 0D 0A 3E 73 76 20 70 72 69 63 pricen..>sv pric
000050: 65 3D 64 69 73 63 6F 75 6E 74 2A 71 75 61 6E 74 e=discount*quant
000060: 6E 2A 70 72 69 63 65 6E 0D 0A 3E 65 69 0D 0A 3E n*pricen..>ei..>
000070: 65 6C 20 20 3B 20 6E 6F 20 70 72 6F 64 75 63 74 el ; no product
000080: 20 66 69 6C 65 0D 0A 3E 61 76 20 22 50 72 6F 64 file..>av "Prod
000090: 75 63 74 20 63 6F 64 65 3A 20 22 20 63 6F 64 65 uct code: " code
0000A0: 6E 0D 0A 3E 69 66 20 63 6F 64 65 6E 3D 22 22 0D n..>if coden="".
0000B0: 0A 3E 73 76 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 .>sv n=maxn..>ei
0000C0: 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 0D ..>if coden<>"".
0000D0: 0A 3E 61 76 20 22 44 65 73 63 72 69 70 74 69 6F .>av "Descriptio
0000E0: 6E 20 3A 20 22 20 64 65 73 63 6E 0D 0A 3E 61 76 n : " descn..>av
0000F0: 20 22 51 75 61 6E 74 69 74 79 20 20 20 20 3A 20 "Quantity :
000100: 22 20 78 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D " x..>sv quantn=
000110: 78 2B 30 20 71 75 61 6E 74 6E 3D 71 75 61 6E 74 x+0 quantn=quant
000120: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 78 3C 3E 71 75 n[w1]..>if x<>qu
000130: 61 6E 74 6E 0D 0A 3E 64 6D 20 22 42 61 64 20 71 antn..>dm "Bad q
000140: 75 61 6E 74 69 74 79 2E 20 50 6C 65 61 73 65 20 uantity. Please
000150: 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 76 20 63 re-enter"..>sv c
000160: 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 oden=""..>ei..>e
000170: 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 i..>if coden<>""
000180: 0D 0A 3E 61 76 20 22 55 6E 69 74 20 70 72 69 63 ..>av "Unit pric
000190: 65 20 20 20 A3 22 20 78 0D 0A 3E 73 76 20 75 70 e ." x..>sv up
0001A0: 72 69 63 65 3D 78 2B 30 0D 0A 3E 69 66 20 78 3C rice=x+0..>if x<
0001B0: 3E 75 70 72 69 63 65 0D 0A 3E 64 6D 20 22 4D 65 >uprice..>dm "Me
0001C0: 61 6E 69 6E 67 6C 65 73 73 20 70 72 69 63 65 2E aningless price.
0001D0: 20 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 Please re-enter
0001E0: 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D "..>sv coden="".
0001F0: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 .>ei..>ei..>if c
Size : 512 (Real : 512)
000000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
000050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 20 0D 0A end..end..end ..
000100: 2E 36 35 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D .65.............
000110: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
000120: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 3E 20 20 .............>
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
000160: 20 20 20 20 20 20 20 20 20 4C 20 20 20 20 20 20 L
000170: 2E 20 20 52 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D . R..>---------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --!-------------
0001B0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 0D 0A 09 -L-------.--R...
0001C0: 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 33 GOODS TOTAL...3
0001D0: 36 34 2E 39 31 0D 0A 09 20 43 61 72 72 69 61 67 64.91... Carriag
0001E0: 65 09 A3 09 30 2E 30 30 0D 0A 09 20 4E 45 54 20 e...0.00... NET
0001F0: 54 4F 54 41 4C 09 A3 09 33 36 34 2E 39 31 0D 0A TOTAL...364.91..
Size : 512 (Real : 512)
000000: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
000010: 54 65 72 6D 73 3A 20 53 74 72 69 63 74 6C 79 20 Terms: Strictly
000020: 33 30 20 44 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 30 Days Net..>>>
000030: 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 wf off..>ei..>if
000040: 20 74 69 74 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E title[1]="c"..>
000050: 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 >>wf on..>wm Ter
000060: 6D 73 3A 20 54 68 69 73 20 61 6D 6F 75 6E 74 20 ms: This amount
000070: 68 61 73 20 62 65 65 6E 20 63 72 65 64 69 74 65 has been credite
000080: 64 20 74 6F 20 79 6F 75 72 20 61 63 63 6F 75 6E d to your accoun
000090: 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 t..>>>wf off..>e
0000A0: 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E i..>ei..>>>wf on
0000B0: 0D 0A 3E 77 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D ..>wm E. & O.E..
0000C0: 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 .>if prconame="y
0000D0: 22 0D 0A 3E 77 6D 20 56 41 54 20 72 65 67 2E 20 "..>wm VAT reg.
0000E0: 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 no. &vatnum&..>e
0000F0: 69 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 i..>>>wf off..>w
000100: 63 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 c..>sv fn=invpat
000110: 68 2B 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 h+title[1]+numbe
000120: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 r+".poi"..>av "P
000130: 72 69 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 rint invoice to
000140: 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 printer or scree
000150: 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A n (P/s)? " x 1..
000160: 3E 69 64 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E >id cpm..>ex ren
000170: 20 26 66 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F &fn&=&invpath&o
000180: 6D 74 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 mtemp..>el..>ex
000190: 65 72 61 20 26 66 6E 26 0D 0A 3E 73 76 20 72 65 era &fn&..>sv re
0001A0: 6E 66 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D nfn=title[1]+num
0001B0: 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 ber+".poi"..>ex
0001C0: 72 65 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 ren &invpath&omt
0001D0: 65 6D 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 emp &renfn&..>ei
0001E0: 0D 0A 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E ..>wf "omsummar.
0001F0: 69 6E 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D inf" a..>-------
Size : 512 (Real : 512)
000000: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
000010: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
000020: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
000030: 66 20 26 66 26 20 66 6D 65 6E 64 0D 0A 3E 65 69 f &f& fmend..>ei
000040: 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D 0A 1A ; iu df..>>>...
000050: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
000060: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
000070: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
000080: 6E 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 n..>dm " "..>in
000090: 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D fm$pfi$..>sv fv=
0000A0: 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B fv[1] rlen=rlen[
0000B0: 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D w1]..>if fv="f".
0000C0: 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 .>sv flist=">ru"
0000D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 ..>el..>sv flist
0000E0: 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 76 =">rv"..>ei..>sv
0000F0: 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E n=0..>rp..>sv n
000100: 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 =n+1 n=n[w1]..>s
000110: 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 20 v flist=flist+"
000120: 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C f&n&"..>un n>=rl
000130: 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 43 75 en..>>>..>dm "Cu
000140: 72 72 65 6E 74 20 64 61 74 61 66 69 6C 65 3A 20 rrent datafile:
000150: 26 64 66 26 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 &df&..>sv f=df[w
000160: 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 3D 1]..>sv newfile=
000170: 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 20 73 65 f+".new"..>sv se
000180: 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C 22 0D 0A lfile=f+".sel"..
000190: 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 2B 22 2E >sv pfifile=f+".
0001A0: 70 66 69 22 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 66 pfi"..>>>..>if f
0001B0: 76 3D 22 66 22 0D 0A 3E 73 76 20 79 3D 22 46 2F v="f"..>sv y="F/
0001C0: 76 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 79 3D 22 v"..>el..>sv y="
0001D0: 66 2F 56 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 f/V"..>ei..>dm "
0001E0: 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 "..>rp..>av "Fi
0001F0: 78 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 xed or variable
Size : 512 (Real : 512)
000000: 3E 73 76 20 20 20 20 20 20 64 66 3D 22 6D 75 73 >sv df="mus
000010: 69 63 22 0D 0A 3E 73 76 20 6E 65 77 66 69 6C 65 ic"..>sv newfile
000020: 3D 22 6D 75 73 69 63 2E 6E 65 77 0D 0A 3E 73 76 ="music.new..>sv
000030: 20 73 65 6C 66 69 6C 65 3D 22 6D 75 73 69 63 2E selfile="music.
000040: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
000050: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
000060: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
000070: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
000080: 76 20 6E 32 3D 22 74 69 74 6C 65 22 0D 0A 3E 73 v n2="title"..>s
000090: 76 20 6E 33 3D 22 6D 65 64 69 75 6D 22 0D 0A 3E v n3="medium"..>
0000A0: 73 76 20 6E 34 3D 22 79 65 61 72 20 72 65 63 6F sv n4="year reco
0000B0: 72 64 65 64 22 0D 0A 3E 73 76 20 6E 35 3D 22 6F rded"..>sv n5="o
0000C0: 72 63 68 65 73 74 72 61 2F 70 65 72 66 6F 72 6D rchestra/perform
0000D0: 65 72 22 0D 0A 3E 73 76 20 6E 36 3D 22 63 6F 6E er"..>sv n6="con
0000E0: 64 75 63 74 6F 72 22 0D 0A 3E 73 76 20 6E 37 3D ductor"..>sv n7=
0000F0: 22 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 ""..>sv fsortopt
000100: 73 3D 22 2F 66 37 20 2F 73 31 2C 32 20 2F 61 31 s="/f7 /s1,2 /a1
000110: 20 2F 61 32 22 0D 0A 3E 73 76 20 6D 61 78 77 3D /a2"..>sv maxw=
000120: 22 32 30 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C "20"..>sv lastbl
000130: 61 6E 6B 3D 22 79 22 0D 0A 1A 6D 75 73 69 63 2E ank="y"...music.
000140: 73 65 6C 22 0D 0A 3E 73 76 20 66 76 3D 22 46 69 sel"..>sv fv="Fi
000150: 78 65 64 22 0D 0A 3E 73 76 20 72 6C 65 6E 3D 22 xed"..>sv rlen="
000160: 37 22 0D 0A 3E 73 76 20 6E 31 3D 22 61 72 74 69 7"..>sv n1="arti
000170: 73 74 2F 63 6F 6D 70 6F 73 65 72 22 0D 0A 3E 73 st/composer"..>s
000180: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
000190: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
0001A0: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
0001B0: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
0001C0: 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 20 ei ; if defined
0001D0: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
0001E0: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
0001F0: 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C 65 ption S.4 - Sele
Size : 512 (Real : 512)
000000: 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 76 61 oden<>""..>if va
000010: 74 72 65 67 3D 22 79 22 0D 0A 3E 61 76 20 22 56 treg="y"..>av "V
000020: 41 54 20 63 6F 64 65 20 28 30 3D 6E 6F 20 56 41 AT code (0=no VA
000030: 54 29 20 5B 31 5D 3A 20 22 20 76 72 20 31 0D 0A T) [1]: " vr 1..
000040: 3E 69 66 20 76 72 20 6E 6F 74 69 6E 20 22 30 31 >if vr notin "01
000050: 32 33 34 35 22 0D 0A 3E 73 76 20 76 72 3D 22 31 2345"..>sv vr="1
000060: 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 72 3D 22 "..>ei..>if vr="
000070: 22 0D 0A 3E 73 76 20 76 72 3D 22 31 22 0D 0A 3E "..>sv vr="1"..>
000080: 65 69 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 ei..>ei..>dm " "
000090: 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D 75 70 72 ..>sv pricen=upr
0000A0: 69 63 65 20 70 72 69 63 65 3D 70 72 69 63 65 6E ice price=pricen
0000B0: 2A 71 75 61 6E 74 6E 0D 0A 3E 65 69 0D 0A 3E 65 *quantn..>ei..>e
0000C0: 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 i..>if coden<>""
0000D0: 0D 0A 3E 73 76 20 76 61 74 63 66 6E 3D 76 61 74 ..>sv vatcfn=vat
0000E0: 63 66 26 76 72 26 0D 0A 3E 69 66 20 76 61 74 3F cf&vr&..>if vat?
0000F0: 3D 22 79 22 0D 0A 3E 69 66 20 65 78 6F 72 69 6E ="y"..>if exorin
000100: 63 76 61 74 20 3D 20 22 69 22 0D 0A 3E 73 76 20 cvat = "i"..>sv
000110: 75 70 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A uprice=discount*
000120: 70 72 69 63 65 6E 2F 76 61 74 63 66 6E 0D 0A 3E pricen/vatcfn..>
000130: 73 76 20 70 72 69 63 65 3D 64 69 73 63 6F 75 6E sv price=discoun
000140: 74 2A 71 75 61 6E 74 6E 2A 70 72 69 63 65 6E 2F t*quantn*pricen/
000150: 76 61 74 63 66 6E 0D 0A 3E 73 76 20 69 6E 63 70 vatcfn..>sv incp
000160: 72 69 63 65 3D 64 69 73 63 6F 75 6E 74 2A 70 72 rice=discount*pr
000170: 69 63 65 6E 2A 71 75 61 6E 74 6E 0D 0A 3E 73 76 icen*quantn..>sv
000180: 20 76 61 74 3D 76 61 74 2B 69 6E 63 70 72 69 63 vat=vat+incpric
000190: 65 2D 70 72 69 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 e-price..>el..>s
0001A0: 76 20 78 3D 70 72 69 63 65 2A 2E 31 35 20 69 6E v x=price*.15 in
0001B0: 63 70 72 69 63 65 3D 70 72 69 63 65 2B 78 20 76 cprice=price+x v
0001C0: 61 74 3D 76 61 74 2B 78 0D 0A 3E 65 69 0D 0A 3E at=vat+x..>ei..>
0001D0: 65 6C 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 el..>sv incprice
0001E0: 3D 70 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 69 66 =price..>ei..>if
0001F0: 20 71 75 61 6E 74 26 6E 26 3E 30 0D 0A 3E 73 76 quant&n&>0..>sv
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 74 6F 74 3D 74 6F 74 2B 70 72 69 63 65 20 20 tot=tot+price
000010: 64 75 65 3D 64 75 65 2B 69 6E 63 70 72 69 63 65 due=due+incprice
000020: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
000030: 26 63 6F 64 65 6E 26 09 26 64 65 73 63 6E 26 09 &coden&.&descn&.
000040: 26 71 75 61 6E 74 6E 26 09 26 75 70 72 69 63 65 &quantn&.&uprice
000050: 26 09 26 70 72 69 63 65 26 0D 0A 3E 3E 3E 77 66 &.&price&..>>>wf
000060: 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C off..>sv blankl
000070: 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D ines=blanklines-
000080: 31 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 63 6F 1..>ei..>ei ; co
000090: 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 6E 3D 6D den<>""..>if n=m
0000A0: 61 78 6E 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 axn..>if useprod
0000B0: 3D 22 79 22 0D 0A 3E 73 76 20 75 73 65 70 72 6F ="y"..>sv usepro
0000C0: 64 3D 22 6E 22 20 6E 3D 22 30 22 20 64 69 73 63 d="n" n="0" disc
0000D0: 6F 75 6E 74 3D 31 0D 0A 3E 64 6D 20 22 45 6E 74 ount=1..>dm "Ent
0000E0: 65 72 20 64 65 74 61 69 6C 73 20 6F 66 20 61 6E er details of an
0000F0: 79 20 6F 74 68 65 72 20 69 74 65 6D 73 20 28 52 y other items (R
000100: 45 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 ETURN to end): "
000110: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A ..>dm " "..>ei..
000120: 3E 65 69 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D >ei..>un n=maxn.
000130: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 64 6F 20 73 75 66 .>>>..>>> do suf
000140: 66 69 63 69 65 6E 74 20 62 6C 61 6E 6B 20 6C 69 ficient blank li
000150: 6E 65 73 20 66 6F 72 20 6D 69 73 73 69 6E 67 20 nes for missing
000160: 69 74 65 6D 73 0D 0A 3E 69 66 20 62 6C 61 6E 6B items..>if blank
000170: 6C 69 6E 65 73 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E lines>0..>rp..>>
000180: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E >wf on..>wm ..>>
000190: 3E 77 66 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 >wf off..>sv bla
0001A0: 6E 6B 6C 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E nklines=blanklin
0001B0: 65 73 2D 31 0D 0A 3E 75 6E 20 62 6C 61 6E 6B 6C es-1..>un blankl
0001C0: 69 6E 65 73 3D 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E ines=0..>ei..>>>
0001D0: 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 ..>
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
Size : 512 (Real : 512)
000000: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
000010: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
000020: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D !-------!-------
000030: 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A !-------!----R..
000040: 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 >if title[1]="i"
000050: 0D 0A 3E 73 76 20 73 3D 27 49 09 26 6E 75 6D 62 ..>sv s='I.&numb
000060: 65 72 26 09 26 64 61 74 65 26 09 A3 26 64 75 65 er&.&date&..&due
000070: 26 09 26 61 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 &.&a0&'..>el..>s
000080: 76 20 64 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 v due=0-due..>sv
000090: 20 73 3D 27 43 09 26 6E 75 6D 62 65 72 26 09 26 s='C.&number&.&
0000A0: 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 date&..&due&.&a0
0000B0: 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D &'..>ei..>id cpm
0000C0: 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 ..>sv s=s+"
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 "..>s
000110: 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 v s=s+"
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D "..>sv s=
000160: 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E s[1:126]..>ei..>
000170: 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E wm '&s&'..>wc..>
000180: 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 wf om.x..>if x="
000190: 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 s"..>wm "ps &fn&
0001A0: 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 |13|; Press a ke
0001B0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 y to continue:|1
0001C0: 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 3|pause|13|load
0001D0: 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 omenu|13|ps"..>e
0001E0: 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 l..>wm "p &fn&|1
0001F0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 20 L
000010: 20 20 20 20 20 2E 20 20 52 0D 0A 3E 77 66 20 6F . R..>wf o
000020: 6E 0D 0A 26 72 75 6C 65 72 34 26 0D 0A 3E 77 66 n..&ruler4&..>wf
000030: 20 6F 66 66 0D 0A 3E 73 76 20 63 61 72 3D 63 61 off..>sv car=ca
000040: 72 2B 30 0D 0A 3E 73 76 20 65 78 76 3D 74 6F 74 r+0..>sv exv=tot
000050: 2B 63 61 72 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A +car..>>>wf on..
000060: 3E 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A >if askcar="y"..
000070: 3E 77 6D 20 09 20 47 4F 4F 44 53 20 54 4F 54 41 >wm . GOODS TOTA
000080: 4C 09 A3 09 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 L...&tot&..>wm .
000090: 20 43 61 72 72 69 61 67 65 09 A3 09 26 63 61 72 Carriage...&car
0000A0: 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 &..>el..>wm ..>w
0000B0: 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 m ..>ei..>if vat
0000C0: 72 65 67 3D 22 79 22 0D 0A 3E 77 6D 20 09 20 4E reg="y"..>wm . N
0000D0: 45 54 20 54 4F 54 41 4C 09 A3 09 26 65 78 76 26 ET TOTAL...&exv&
0000E0: 0D 0A 3E 77 6D 20 09 20 56 41 54 09 A3 09 26 76 ..>wm . VAT...&v
0000F0: 61 74 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A at&..>el..>wm ..
000100: 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 >wm ..>ei..>wm .
000110: 20 41 4D 4F 55 4E 54 20 44 55 45 09 A3 09 26 64 AMOUNT DUE...&d
000120: 75 65 26 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D ue&..>wm ..>wm .
000130: 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .>
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 52 0D 0A 3E 77 66 R..>wf
000180: 20 6F 6E 0D 0A 26 72 75 6C 65 72 35 26 0D 0A 3E on..&ruler5&..>
000190: 77 66 6F 66 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F wfoff..>co botto
0001A0: 6D 20 6C 69 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 m line comment h
0001B0: 65 72 65 0D 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 ere..>if footnot
0001C0: 65 3E 22 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A e>""..>>>wf on..
0001D0: 3E 77 6D 20 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A >wm &footnote&..
0001E0: 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A >>>wf off..>el..
0001F0: 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 >if title[1]="i"
Size : 512 (Real : 512)
000000: 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E ps"..>ei..>wc..>
000010: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E cf..>ex exec om.
000020: 78 0D 0A 3E 73 74 20 22 20 22 0D 0A 1A 3E 3E 3E x..>st " "...>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 2C 32 33 2C 34 35 0D 0A 33 2C 31 34 2C 31 38 2C ,23,45..3,14,18,
000090: 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D 2D 2D 2D 2D 15,17,9..">-----
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
0000D0: 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -L--------------
0000E0: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
0000F0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D ------!---------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000110: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D -------!--------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000130: 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D -R"..">---------
000140: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D -----------.----
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D ----------.-----
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 ---------.-----R
000180: 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D "..">-----------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C !--------------L
0001C0: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E -------.--R"..">
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 6E 74 20 6E 61 6D 65 3A 20 22 2C 6E 0D 0A 3E 63 nt name: ",n..>c
000010: 66 0D 0A 3E 64 66 26 64 61 74 61 66 26 20 66 6F f..>df&dataf& fo
000020: 24 65 6E 64 24 0D 0A 3E 72 70 0D 0A 3E 69 66 20 $end$..>rp..>if
000030: 70 68 6F 6E 65 3F 3D 22 79 22 0D 0A 3E 72 76 20 phone?="y"..>rv
000040: 61 30 2C 78 2C 61 31 2C 61 32 2C 61 33 2C 61 34 a0,x,a1,a2,a3,a4
000050: 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 0A 3E 65 6C ,a5,a6,a7,x..>el
000060: 0D 0A 3E 72 76 20 61 30 2C 61 31 2C 61 32 2C 61 ..>rv a0,a1,a2,a
000070: 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2C 78 0D 3,a4,a5,a6,a7,x.
000080: 0A 3E 65 69 0D 0A 3E 69 66 6E 20 69 6E 20 61 30 .>ei..>ifn in a0
000090: 0D 0A 3E 64 6D 22 20 0D 0A 3E 64 6D 22 46 6F 75 ..>dm" ..>dm"Fou
0000A0: 6E 64 3A 20 27 26 61 30 26 27 0D 0A 3E 61 76 22 nd: '&a0&'..>av"
0000B0: 43 6F 72 72 65 63 74 20 28 59 2F 6E 29 3F 20 22 Correct (Y/n)? "
0000C0: 20 64 20 31 0D 0A 3E 65 69 0D 0A 3E 69 66 61 30 d 1..>ei..>ifa0
0000D0: 3D 22 65 6E 64 22 0D 0A 3E 64 6D 22 20 0D 0A 3E ="end"..>dm" ..>
0000E0: 64 6D 22 4E 6F 74 20 66 6F 75 6E 64 0D 0A 3E 73 dm"Not found..>s
0000F0: 76 64 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 75 6E vd="y"..>ei..>un
000100: 64 3C 3E 22 6E 22 0D 0A 3E 65 69 0D 0A 3E 69 66 d<>"n"..>ei..>if
000110: 61 30 3D 22 65 6E 64 22 0D 0A 3E 73 76 61 33 3D a0="end"..>sva3=
000120: 22 22 20 61 34 3D 22 22 20 61 35 3D 22 22 20 61 "" a4="" a5="" a
000130: 36 3D 22 22 20 61 37 3D 22 22 0D 0A 3E 64 6D 22 6="" a7=""..>dm"
000140: 20 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 61 64 64 ..>dm"Enter add
000150: 72 65 73 73 2C 20 6F 72 20 70 72 65 73 73 20 52 ress, or press R
000160: 45 54 55 52 4E 20 74 6F 20 72 65 74 75 72 6E 20 ETURN to return
000170: 74 6F 20 6D 65 6E 75 0D 0A 3E 64 6D 22 20 0D 0A to menu..>dm" ..
000180: 3E 61 76 22 4E 61 6D 65 3A 20 22 20 61 30 0D 0A >av"Name: " a0..
000190: 3E 69 66 61 30 3D 22 22 0D 0A 3E 77 63 0D 0A 3E >ifa0=""..>wc..>
0001A0: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
0001B0: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
0001C0: 61 76 22 26 61 26 31 3A 20 22 20 61 31 0D 0A 3E av"&a&1: " a1..>
0001D0: 61 76 22 26 61 26 32 3A 20 22 20 61 32 0D 0A 3E av"&a&2: " a2..>
0001E0: 69 66 61 32 3E 22 22 0D 0A 3E 61 76 22 26 61 26 ifa2>""..>av"&a&
0001F0: 33 3A 20 22 20 61 33 0D 0A 3E 69 66 61 33 3E 22 3: " a3..>ifa3>"
Size : 512 (Real : 512)
000000: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000010: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000020: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000030: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000040: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
000050: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
000060: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
000070: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
000080: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
000090: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000A0: 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 end..end..end..e
0000B0: 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E nd..end..end..en
0000C0: 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 d..end..end..end
0000D0: 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D ..end..end..end.
0000E0: 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A .end..end..end..
0000F0: 65 6E 64 0D 0A 65 6E 64 0D 0A 1A 0D 0A 1A 00 00 end..end........
000100: 3E 3D 72 6C 65 6E 0D 0A 21 62 6C 61 6E 6B 21 0D >=rlen..!blank!.
000110: 0A 3E 73 6B 20 22 71 22 3D 22 71 22 0D 0A 3E 65 .>sk "q"="q"..>e
000120: 6C 20 3B 20 76 0D 0A 3E 72 70 0D 0A 3E 73 76 20 l ; v..>rp..>sv
000130: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
000140: 73 76 20 73 3D 66 26 6E 26 2B 22 20 22 0D 0A 26 sv s=f&n&+" "..&
000150: 73 63 26 21 73 21 0D 0A 3E 69 66 20 73 3D 22 20 sc&!s!..>if s="
000160: 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D 3D 6E "..>sv s=n+1 m=n
000170: 2B 31 20 73 3D 73 5B 77 31 5D 20 6D 3D 6D 5B 77 +1 s=s[w1] m=m[w
000180: 31 5D 0D 0A 3E 73 76 20 73 3D 66 26 73 26 2B 66 1]..>sv s=f&s&+f
000190: 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &m&..>if s=""..>
0001A0: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
0001B0: 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E >ei..>un n>=rlen
0001C0: 0D 0A 21 62 6C 61 6E 6B 21 0D 0A 3E 73 6B 20 22 ..!blank!..>sk "
0001D0: 71 22 3D 22 71 22 0D 0A 3E 65 69 20 3B 66 76 0D q"="q"..>ei ;fv.
0001E0: 0A 3E 65 69 20 3B 20 61 6C 6C 0D 0A 3E 65 6C 20 .>ei ; all..>el
0001F0: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
Size : 512 (Real : 512)
000000: 22 0D 0A 3E 61 76 22 26 61 26 34 3A 20 22 20 61 "..>av"&a&4: " a
000010: 34 0D 0A 3E 69 66 61 34 3E 22 22 0D 0A 3E 61 76 4..>ifa4>""..>av
000020: 22 26 61 26 35 3A 20 22 20 61 35 0D 0A 3E 69 66 "&a&5: " a5..>if
000030: 61 35 3E 22 22 0D 0A 3E 61 76 22 26 61 26 36 3A a5>""..>av"&a&6:
000040: 20 22 20 61 36 0D 0A 3E 69 66 61 36 3E 22 22 0D " a6..>ifa6>"".
000050: 0A 3E 61 76 22 26 61 26 37 3A 20 22 20 61 37 0D .>av"&a&7: " a7.
000060: 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A .>ei..>ei..>ei..
000070: 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E >ei..>ei..>ei..>
000080: 61 76 22 53 74 61 74 65 6D 65 6E 74 20 64 61 74 av"Statement dat
000090: 65 20 5B 26 73 79 73 5F 64 61 74 65 26 5D 3A 20 e [&sys_date&]:
0000A0: 22 2C 68 0D 0A 3E 69 66 68 3D 22 22 0D 0A 3E 73 ",h..>ifh=""..>s
0000B0: 76 68 3D 73 79 73 5F 64 61 74 65 0D 0A 3E 65 69 vh=sys_date..>ei
0000C0: 0D 0A 3E 73 76 66 6F 3D 22 22 0D 0A 3E 69 66 61 ..>svfo=""..>ifa
0000D0: 66 6E 3D 22 79 22 0D 0A 3E 61 76 22 46 6F 6F 74 fn="y"..>av"Foot
0000E0: 6E 6F 74 65 3A 20 22 2C 66 6F 0D 0A 3E 65 69 0D note: ",fo..>ei.
0000F0: 0A 3E 64 6D 22 20 0D 0A 3E 20 20 20 20 20 20 20 .>dm" ..>
000100: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000110: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000120: 21 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 ! !
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
000190: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 31 26 0D 0A 3E ..>wfon..&r1&..>
0001A0: 77 66 6F 66 66 0D 0A 21 73 63 21 0D 0A 3E 69 66 wfoff..!sc!..>if
0001B0: 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 21 73 prconame="y"..!s
0001C0: 63 21 EC 21 63 6F 6E 21 0D 0A 21 73 63 21 21 63 c!.!con!..!sc!!c
0001D0: 6F 61 31 21 0D 0A 21 73 63 21 21 63 6F 61 32 21 oa1!..!sc!!coa2!
0001E0: 0D 0A 21 73 63 21 21 63 6F 61 33 21 0D 0A 21 73 ..!sc!!coa3!..!s
0001F0: 63 21 21 63 6F 61 34 21 0D 0A 21 73 63 21 21 63 c!!coa4!..!sc!!c
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6F 61 35 21 EC 0D 0A 3E 65 69 0D 0A 3E 73 76 6E oa5!...>ei..>svn
000010: 3D 61 6C 2D 63 61 6C 2D 36 0D 0A 3E 72 70 0D 0A =al-cal-6..>rp..
000020: 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D 0A !sc!..>svn=n-1..
000030: 3E 75 6E 6E 3D 30 0D 0A 21 73 63 21 21 61 30 21 >unn=0..!sc!!a0!
000040: 0D 0A 21 73 63 21 21 61 31 21 0D 0A 21 73 63 21 ..!sc!!a1!..!sc!
000050: 21 61 32 21 0D 0A 21 73 63 21 21 61 33 21 09 EC !a2!..!sc!!a3!..
000060: 26 74 26 EC 0D 0A 21 73 63 21 21 61 34 21 09 0D &t&...!sc!!a4!..
000070: 0A 21 73 63 21 21 61 35 21 09 44 61 74 65 20 20 .!sc!!a5!.Date
000080: 20 20 20 20 20 26 68 26 0D 0A 21 73 63 21 21 61 &h&..!sc!!a
000090: 36 21 0D 0A 21 73 63 21 21 61 37 21 0D 0A 3E 73 6!..!sc!!a7!..>s
0000A0: 76 6E 3D 74 6C 2D 61 6C 2D 38 0D 0A 3E 72 70 0D vn=tl-al-8..>rp.
0000B0: 0A 21 73 63 21 0D 0A 3E 73 76 6E 3D 6E 2D 31 0D .!sc!..>svn=n-1.
0000C0: 0A 3E 75 6E 6E 3D 30 0D 0A 3E 77 66 6F 6E 0D 0A .>unn=0..>wfon..
0000D0: 26 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 21 73 &r2&..>wfoff..!s
0000E0: 63 21 44 41 54 45 09 49 4E 56 4F 49 43 45 20 4E c!DATE.INVOICE N
0000F0: 4F 2E 09 20 20 20 44 45 42 49 54 09 20 20 43 52 O.. DEBIT. CR
000100: 45 44 49 54 09 42 41 4C 41 4E 43 45 0D 0A 3E 77 EDIT.BALANCE..>w
000110: 66 6F 6E 0D 0A 26 72 33 26 0D 0A 3E 77 66 6F 66 fon..&r3&..>wfof
000120: 66 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D 69 6E f..!sc!..>svb=in
000130: 66 6F 6C 73 0D 0A 3E 64 6D 22 45 6E 74 65 72 20 fols..>dm"Enter
000140: 64 65 74 61 69 6C 73 20 28 52 45 54 55 52 4E 20 details (RETURN
000150: 74 6F 20 65 6E 64 29 3A 20 0D 0A 3E 64 6D 22 20 to end): ..>dm"
000160: 0D 0A 3E 72 70 0D 0A 3E 61 76 22 4F 70 65 6E 69 ..>rp..>av"Openi
000170: 6E 67 20 62 61 6C 61 6E 63 65 20 28 2D 20 66 6F ng balance (- fo
000180: 72 20 63 72 65 64 69 74 29 3A 20 A3 22 20 78 0D r credit): ." x.
000190: 0A 3E 69 66 20 78 3D 22 22 0D 0A 3E 73 76 20 78 .>if x=""..>sv x
0001A0: 3D 30 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 6F 74 =0..>ei..>sv tot
0001B0: 3D 78 2B 30 0D 0A 3E 75 6E 20 74 6F 74 3D 78 0D =x+0..>un tot=x.
0001C0: 0A 3E 69 66 20 74 6F 74 3C 3E 30 0D 0A 21 73 63 .>if tot<>0..!sc
0001D0: 21 43 61 72 72 69 65 64 20 66 77 64 2E 09 09 09 !Carried fwd....
0001E0: 09 26 74 6F 74 26 0D 0A 3E 73 76 62 3D 62 2D 31 .&tot&..>svb=b-1
0001F0: 0D 0A 3E 65 69 0D 0A 3E 72 70 0D 0A 3E 64 6D 20 ..>ei..>rp..>dm
Size : 512 (Real : 512)
000000: 3E 63 73 22 20 0D 0A 3E 64 6D 22 53 74 61 74 65 >cs" ..>dm"State
000010: 6D 65 6E 74 20 67 65 6E 65 72 61 74 6F 72 20 28 ment generator (
000020: 63 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E c) Arnor 1988..>
000030: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
000040: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
000050: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
000060: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
000070: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
000080: 3D 22 3E 3E 3E 22 0D 0A 3E 65 69 0D 0A 3E 69 75 =">>>"..>ei..>iu
000090: 20 63 70 6D 0D 0A 3E 73 76 20 64 63 3D 22 3E 64 cpm..>sv dc=">d
0000A0: 63 22 20 66 78 6F 6E 3D 22 3E 66 78 6F 6E 22 20 c" fxon=">fxon"
0000B0: 66 78 6F 66 66 3D 22 3E 66 78 6F 66 66 22 0D 0A fxoff=">fxoff"..
0000C0: 26 66 78 6F 6E 26 0D 0A 26 64 63 26 20 22 2E 22 &fxon&..&dc& "."
0000D0: 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 20 3C 20 ..>if sys_ver <
0000E0: 33 2E 30 37 0D 0A 3E 73 76 20 66 69 6C 65 64 61 3.07..>sv fileda
0000F0: 74 65 3D 31 0D 0A 3E 65 69 0D 0A 3E 69 66 20 73 te=1..>ei..>if s
000100: 79 73 5F 76 65 72 3D 33 2E 31 30 0D 0A 3E 73 76 ys_ver=3.10..>sv
000110: 20 66 69 6C 65 64 61 74 65 3D 31 0D 0A 3E 65 69 filedate=1..>ei
000120: 0D 0A 3E 65 69 0D 0A 3E 69 64 20 66 69 6C 65 64 ..>ei..>id filed
000130: 61 74 65 0D 0A 3E 63 66 0D 0A 3E 64 66 20 6F 6D ate..>cf..>df om
000140: 69 6E 76 67 65 6E 2E 64 61 74 0D 0A 3E 72 76 20 invgen.dat..>rv
000150: 73 79 73 5F 64 61 74 65 0D 0A 3E 63 66 0D 0A 3E sys_date..>cf..>
000160: 65 69 0D 0A 3E 68 65 0D 0A 3E 66 6F 0D 0A 3E 73 ei..>he..>fo..>s
000170: 76 66 68 3D 31 20 61 3D 22 41 64 64 72 65 73 73 vfh=1 a="Address
000180: 20 6C 69 6E 65 20 22 0D 0A 3E 64 66 6F 6D 69 6E line "..>dfomin
000190: 76 67 65 6E 2E 69 6E 66 0D 0A 3E 72 76 64 61 74 vgen.inf..>rvdat
0001A0: 61 66 2C 69 6E 76 70 61 74 68 2C 78 2C 78 2C 70 af,invpath,x,x,p
0001B0: 68 6F 6E 65 3F 0D 0A 3E 72 76 78 2C 78 2C 78 2C hone?..>rvx,x,x,
0001C0: 78 2C 78 2C 69 6E 66 6F 6C 73 2C 65 77 0D 0A 3E x,x,infols,ew..>
0001D0: 72 76 78 2C 78 2C 78 2C 78 2C 78 2C 76 61 74 6E rvx,x,x,x,x,vatn
0001E0: 75 6D 0D 0A 3E 72 76 70 72 63 6F 6E 61 6D 65 2C um..>rvprconame,
0001F0: 78 2C 73 6A 2C 61 66 6E 2C 78 2C 78 2C 78 0D 0A x,sj,afn,x,x,x..
Size : 512 (Real : 512)
000000: 22 20 0D 0A 3E 61 76 22 54 72 61 6E 73 61 63 74 " ..>av"Transact
000010: 69 6F 6E 20 64 61 74 65 3A 20 22 20 63 6E 0D 0A ion date: " cn..
000020: 3E 69 66 63 6E 3E 22 22 0D 0A 3E 61 76 22 49 6E >ifcn>""..>av"In
000030: 76 6F 69 63 65 20 6E 75 6D 62 65 72 3A 20 22 20 voice number: "
000040: 65 6E 0D 0A 3E 61 76 22 41 6D 6F 75 6E 74 20 28 en..>av"Amount (
000050: 2D 20 66 6F 72 20 63 72 65 64 69 74 29 3A 20 A3 - for credit): .
000060: 22 20 78 0D 0A 3E 73 76 20 71 6E 3D 78 2B 30 0D " x..>sv qn=x+0.
000070: 0A 3E 69 66 20 71 6E 3C 3E 78 0D 0A 3E 64 6D 22 .>if qn<>x..>dm"
000080: 50 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 0D Please re-enter.
000090: 0A 3E 73 76 63 6E 3D 22 20 22 20 75 70 3D 22 22 .>svcn=" " up=""
0000A0: 20 71 6E 3D 30 0D 0A 3E 65 6C 0D 0A 3E 69 66 71 qn=0..>el..>ifq
0000B0: 6E 3C 30 0D 0A 3E 73 76 75 70 3D 30 2D 71 6E 20 n<0..>svup=0-qn
0000C0: 71 6E 3D 22 22 20 74 6F 74 3D 74 6F 74 2D 75 70 qn="" tot=tot-up
0000D0: 0D 0A 3E 65 6C 0D 0A 3E 73 76 71 6E 3D 30 2B 71 ..>el..>svqn=0+q
0000E0: 6E 20 75 70 3D 22 22 20 74 6F 74 3D 74 6F 74 2B n up="" tot=tot+
0000F0: 71 6E 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 qn..>ei..>ei..>i
000100: 66 20 71 6E 3C 3E 30 0D 0A 21 73 63 21 26 63 6E f qn<>0..!sc!&cn
000110: 26 09 26 65 6E 26 09 26 71 6E 26 09 26 75 70 26 &.&en&.&qn&.&up&
000120: 09 26 74 6F 74 26 0D 0A 3E 65 69 0D 0A 3E 73 76 .&tot&..>ei..>sv
000130: 62 3D 62 2D 31 0D 0A 3E 65 69 0D 0A 3E 75 6E 63 b=b-1..>ei..>unc
000140: 6E 3D 22 22 0D 0A 3E 69 66 62 3E 30 0D 0A 3E 72 n=""..>ifb>0..>r
000150: 70 0D 0A 21 73 63 21 0D 0A 3E 73 76 62 3D 62 2D p..!sc!..>svb=b-
000160: 31 0D 0A 3E 75 6E 62 3D 30 0D 0A 3E 65 69 0D 0A 1..>unb=0..>ei..
000170: 21 73 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 !sc! ..!sc! ..!s
000180: 63 21 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 c! ..!sc! ..!sc!
000190: 20 0D 0A 21 73 63 21 20 0D 0A 21 73 63 21 20 0D ..!sc! ..!sc! .
0001A0: 0A 3E 77 66 6F 6E 0D 0A 26 72 35 26 0D 0A 3E 77 .>wfon..&r5&..>w
0001B0: 66 6F 66 66 0D 0A 3E 69 66 66 6F 3E 22 22 0D 0A foff..>iffo>""..
0001C0: 21 73 63 21 26 66 6F 26 0D 0A 3E 65 6C 0D 0A 21 !sc!&fo&..>el..!
0001D0: 73 63 21 54 68 65 20 61 6D 6F 75 6E 74 20 64 75 sc!The amount du
0001E0: 65 20 69 73 20 74 68 65 20 6C 61 73 74 20 66 69 e is the last fi
0001F0: 67 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C gure in the 'BAL
Size : 512 (Real : 512)
000000: 3E 72 76 63 61 6C 2C 61 6C 2C 74 6C 2C 74 6F 74 >rvcal,al,tl,tot
000010: 6C 0D 0A 3E 72 76 73 69 64 65 2C 78 2C 78 2C 78 l..>rvside,x,x,x
000020: 2C 78 2C 78 0D 0A 3E 72 76 72 31 2C 72 32 2C 72 ,x,x..>rvr1,r2,r
000030: 33 2C 78 2C 72 35 0D 0A 3E 72 76 63 6F 6E 2C 63 3,x,r5..>rvcon,c
000040: 6F 61 31 2C 63 6F 61 32 2C 63 6F 61 33 2C 63 6F oa1,coa2,coa3,co
000050: 61 34 2C 63 6F 61 35 0D 0A 3E 63 66 0D 0A 3E 3E a4,coa5..>cf..>>
000060: 3E 0D 0A 3E 61 76 20 22 53 74 61 74 65 6D 65 6E >..>av "Statemen
000070: 74 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 t to printer or
000080: 66 69 6C 65 20 28 70 2F 46 29 3F 20 22 20 78 20 file (p/F)? " x
000090: 31 0D 0A 3E 69 66 20 78 3D 22 70 22 0D 0A 3E 73 1..>if x="p"..>s
0000A0: 76 20 69 63 3D 22 70 22 20 73 63 3D 22 22 0D 0A v ic="p" sc=""..
0000B0: 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4E >el..>rp..>av "N
0000C0: 61 6D 65 20 6F 66 20 66 69 6C 65 3A 20 22 20 6E ame of file: " n
0000D0: 61 6D 65 20 38 0D 0A 3E 75 6E 20 6E 61 6D 65 3C ame 8..>un name<
0000E0: 3E 22 22 0D 0A 3E 73 76 20 6E 61 6D 65 3D 22 26 >""..>sv name="&
0000F0: 69 6E 76 70 61 74 68 26 26 6E 61 6D 65 26 2E 70 invpath&&name&.p
000100: 6F 73 22 0D 0A 3E 73 76 20 69 63 3D 22 70 66 20 os"..>sv ic="pf
000110: 26 6E 61 6D 65 26 22 20 73 63 3D 22 3E 77 6D 20 &name&" sc=">wm
000120: 22 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 66 20 "..>id cpm..>df
000130: 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 26 6E 61 om..>ei..>wf &na
000140: 6D 65 26 0D 0A 3E 65 69 0D 0A 3E 77 66 6F 6E 0D me&..>ei..>wfon.
000150: 0A 3E 7A 6D 0D 0A 3E 74 6D 26 63 61 6C 26 0D 0A .>zm..>tm&cal&..
000160: 3E 73 6D 26 73 69 64 65 26 0D 0A 3E 77 66 6F 66 >sm&side&..>wfof
000170: 66 0D 0A 3E 69 66 69 63 5B 32 5D 3C 3E 22 66 22 f..>ific[2]<>"f"
000180: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 66 66 6F 6E 0D 0A ..>wfon..>ffon..
000190: 3E 77 66 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 73 76 >wfoff..>ei..>sv
0001A0: 74 3D 22 53 54 41 54 45 4D 45 4E 54 22 0D 0A 3E t="STATEMENT"..>
0001B0: 73 76 6D 6E 3D 30 0D 0A 3E 73 76 64 3D 22 6E 22 svmn=0..>svd="n"
0001C0: 20 61 30 3D 22 65 6E 64 22 0D 0A 3E 61 76 22 53 a0="end"..>av"S
0001D0: 65 61 72 63 68 20 64 61 74 61 66 69 6C 65 20 28 earch datafile (
0001E0: 79 2F 4E 29 3F 20 22 20 78 20 31 0D 0A 3E 69 66 y/N)? " x 1..>if
0001F0: 78 3D 22 79 22 0D 0A 3E 61 76 22 41 63 63 6F 75 x="y"..>av"Accou
Size : 512 (Real : 512)
000000: 41 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 ANCE' column..>e
000010: 69 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E 45 2E i..!sc!E. & O.E.
000020: 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 ..>if prconame="
000030: 79 22 0D 0A 21 73 63 21 56 41 54 20 72 65 67 2E y"..!sc!VAT reg.
000040: 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E no. &vatnum&..>
000050: 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3D 22 22 0D ei..>ific[2]="".
000060: 0A 3E 70 61 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 .>pa..>ei..>ific
000070: 5B 32 5D 3C 3E 22 66 22 0D 0A 3E 77 63 0D 0A 3E [2]<>"f"..>wc..>
000080: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 0D cf..>ex exec om.
000090: 0A 3E 73 74 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>st " "..>ei..>
0000A0: 73 76 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F svfn=ic[w2]+".po
0000B0: 73 22 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 s"..>av"Send to
0000C0: 70 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 printer or scree
0000D0: 6E 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A n (P/s)? " x 1..
0000E0: 3E 77 63 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 64 >wc..>id cpm..>d
0000F0: 66 20 6F 6D 0D 0A 3E 65 69 0D 0A 3E 77 66 20 6F f om..>ei..>wf o
000100: 6D 2E 78 0D 0A 3E 69 66 78 3D 22 73 22 0D 0A 3E m.x..>ifx="s"..>
000110: 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 33 7C 3B wm "ps &fn&|13|;
000120: 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 Press a key to
000130: 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C 70 61 75 continue:|13|pau
000140: 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 se|13|load omenu
000150: 7C 31 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 6C 0D |13|ps|13|..>el.
000160: 0A 3E 77 6D 20 22 6C 6F 61 64 20 26 66 6E 26 7C .>wm "load &fn&|
000170: 31 33 7C 64 6F 63 7C 31 33 7C 7C 37 36 36 7C 70 13|doc|13||766|p
000180: 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 |13|load omenu|1
000190: 33 7C 70 73 7C 31 33 7C 0D 0A 3E 65 69 0D 0A 3E 3|ps|13|..>ei..>
0001A0: 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 wc..>cf..>ex exe
0001B0: 63 20 6F 6D 2E 78 0D 0A 1A 20 73 79 73 5F 76 65 c om.x... sys_ve
0001C0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0001D0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0001E0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 20 pm=1 filedate=1
0001F0: 66 78 6F 6E 3D 22 3E 3E 3E 22 20 66 78 6F 66 66 fxon=">>>" fxoff
Size : 512 (Real : 512)
000000: 0A 3E 69 66 20 66 3D 22 22 0D 0A 3E 73 76 20 66 .>if f=""..>sv f
000010: 3D 22 2A 22 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 ="*"..>ei..>sv f
000020: 66 3D 22 22 0D 0A 3E 69 66 20 66 3D 22 2A 22 0D f=""..>if f="*".
000030: 0A 3E 73 76 20 66 3D 22 30 22 20 66 66 3D 22 3E .>sv f="0" ff=">
000040: 73 76 20 66 30 3D 66 31 22 0D 0A 3E 73 76 20 6E sv f0=f1"..>sv n
000050: 3D 31 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =1..>rp..>sv n=n
000060: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
000070: 66 66 3D 66 66 2B 22 2B 66 26 6E 26 22 0D 0A 3E ff=ff+"+f&n&"..>
000080: 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D un n>=rlen..>ei.
000090: 0A 3E 3E 3E 0D 0A 3E 69 66 20 6F 70 74 3D 22 75 .>>>..>if opt="u
0000A0: 22 0D 0A 3E 64 66 20 26 6E 65 77 66 69 6C 65 26 "..>df &newfile&
0000B0: 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E fo$end$..>ei..>
0000C0: 69 66 20 6F 70 74 3D 22 6D 22 0D 0A 3E 64 66 20 if opt="m"..>df
0000D0: 26 64 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 &df& fo$end$..>e
0000E0: 69 0D 0A 3E 69 66 20 6F 70 74 3D 22 73 22 0D 0A i..>if opt="s"..
0000F0: 3E 64 66 20 26 73 65 6C 66 69 6C 65 26 20 66 6F >df &selfile& fo
000100: 24 65 6E 64 24 0D 0A 3E 65 69 0D 0A 3E 65 69 20 $end$..>ei..>ei
000110: 3B 20 69 75 20 64 66 0D 0A 1A 65 6E 64 22 0D 0A ; iu df...end"..
000120: 26 66 66 26 0D 0A 3E 73 6B 20 64 20 6E 6F 74 69 &ff&..>sk d noti
000130: 6E 20 66 26 66 26 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n f&f&..>>>..>dm
000140: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 6F 75 6E 64 " "..>dm "Found
000150: 3A 20 26 66 31 26 22 0D 0A 3E 73 76 20 6E 3D 31 : &f1&"..>sv n=1
000160: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000170: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D n=n[w1]..>sv s=
000180: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 key to continue
000190: 2E 2E 2E 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E .....>wc..>cf..>
0001A0: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
0001B0: 0A 3E 65 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E .>ei..>sk 0=0..>
0001C0: 65 69 20 3B 20 69 66 20 64 65 66 69 6E 65 64 20 ei ; if defined
0001D0: 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 64 66 0D df..>>>..>iu df.
0001E0: 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D 20 22 4F .>cs " "..>dm "O
0001F0: 70 74 69 6F 6E 20 53 2E 34 20 2D 20 53 65 6C 65 ption S.4 - Sele
Size : 512 (Real : 512)
000000: 31 5D 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 1]="i"..>>>wf on
000010: 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 ..>wm Terms: Str
000020: 69 63 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 ictly 30 Days Ne
000030: 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 t..>>>wf off..>e
000040: 69 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D i..>if title[1]=
000050: 22 63 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E "c"..>>>wf on..>
000060: 77 6D 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 wm Terms: This a
000070: 6D 6F 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 mount has been c
000080: 72 65 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 redited to your
000090: 61 63 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F account..>>>wf o
0000A0: 66 66 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E ff..>ei..>ei..>>
0000B0: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 >wf on..>wm E. &
0000C0: 20 4F 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E O.E...>if prcon
0000D0: 61 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 ame="y"..>wm VAT
0000E0: 20 72 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 reg. no. &vatnu
0000F0: 6D 26 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F m&..>ei..>>>wf o
000100: 66 66 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D ff..>wc..>sv fn=
000110: 69 6E 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D invpath+title[1]
000120: 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A +number+".poi"..
000130: 3E 61 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 >av "Print invoi
000140: 63 65 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 ce to printer or
000150: 20 73 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 screen (P/s)? "
000160: 20 78 20 31 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E x 1..>id cpm..>
000170: 65 78 20 72 65 6E 20 26 66 6E 26 3D 26 69 6E 76 ex ren &fn&=&inv
000180: 70 61 74 68 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C path&omtemp..>el
000190: 0D 0A 3E 65 78 20 65 72 61 20 26 66 6E 26 0D 0A ..>ex era &fn&..
0001A0: 3E 73 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 5B >sv renfn=title[
0001B0: 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 1]+number+".poi"
0001C0: 0D 0A 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 61 ..>ex ren &invpa
0001D0: 74 68 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 6E th&omtemp &renfn
0001E0: 26 0D 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D 73 &..>ei..>wf "oms
0001F0: 75 6D 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E 2D ummar.inf" a..>-
Size : 512 (Real : 512)
000000: 3E 73 76 20 73 79 73 5F 76 65 72 3D 73 79 73 5F >sv sys_ver=sys_
000010: 76 65 72 0D 0A 3E 69 66 20 73 79 73 5F 76 65 72 ver..>if sys_ver
000020: 3D 22 22 0D 0A 3E 73 76 20 63 70 6D 3D 22 31 22 =""..>sv cpm="1"
000030: 0D 0A 3E 65 69 0D 0A 3E 69 75 20 70 66 69 66 69 ..>ei..>iu pfifi
000040: 6C 65 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 6E 63 le..>cs " "..>nc
000050: 20 32 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 2..>dm "Option
000060: 49 20 2D 20 49 6E 69 74 69 61 6C 69 73 65 20 6E I - Initialise n
000070: 65 77 20 64 61 74 61 20 66 69 6C 65 0D 0A 3E 64 ew data file..>d
000080: 6D 20 22 20 22 0D 0A 3E 61 76 20 22 4E 61 6D 65 m " "..>av "Name
000090: 20 6F 66 20 6E 65 77 20 64 61 74 61 20 66 69 6C of new data fil
0000A0: 65 3A 20 22 20 64 66 0D 0A 3E 73 76 20 66 3D 64 e: " df..>sv f=d
0000B0: 66 5B 77 31 5D 0D 0A 3E 73 76 20 6E 65 77 66 69 f[w1]..>sv newfi
0000C0: 6C 65 3D 66 2B 22 2E 6E 65 77 22 0D 0A 3E 73 76 le=f+".new"..>sv
0000D0: 20 73 65 6C 66 69 6C 65 3D 66 2B 22 2E 73 65 6C selfile=f+".sel
0000E0: 22 0D 0A 3E 73 76 20 70 66 69 66 69 6C 65 3D 66 "..>sv pfifile=f
0000F0: 2B 22 2E 70 66 69 22 0D 0A 3E 69 66 20 66 3D 22 +".pfi"..>if f="
000100: 22 0D 0A 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A "..>ex exec fm..
000110: 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 >st..>ei..>dm "
000120: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 46 69 78 "..>rp..>av "Fix
000130: 65 64 20 6F 72 20 76 61 72 69 61 62 6C 65 20 6C ed or variable l
000140: 65 6E 67 74 68 20 72 65 63 6F 72 64 73 20 5B 66 ength records [f
000150: 2F 76 5D 3F 20 22 20 66 76 20 31 0D 0A 3E 75 6E /v]? " fv 1..>un
000160: 20 66 76 20 69 6E 20 22 66 76 22 0D 0A 3E 64 6D fv in "fv"..>dm
000170: 20 22 20 22 0D 0A 3E 69 66 20 66 76 3D 22 66 22 " "..>if fv="f"
000180: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 46 ..>rp..>sv fv="F
000190: 69 78 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 ixed"..>av "Numb
0001A0: 65 72 20 6F 66 20 66 69 65 6C 64 73 3A 20 22 20 er of fields: "
0001B0: 72 6C 65 6E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F rlen..>sv fsorto
0001C0: 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 0D 0A pts="/f&rlen&"..
0001D0: 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E >un rlen>="2"..>
0001E0: 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 dm " "..>rp..>av
0001F0: 20 22 49 73 20 74 68 65 20 6C 61 73 74 20 66 69 "Is the last fi
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
000020: 26 66 66 26 0D 0A 3E 73 6B 20 64 20 6E 6F 74 69 &ff&..>sk d noti
000030: 6E 20 66 26 66 26 0D 0A 3E 3E 3E 0D 0A 3E 64 6D n f&f&..>>>..>dm
000040: 20 22 20 22 0D 0A 3E 64 6D 20 22 46 6F 75 6E 64 " "..>dm "Found
000050: 3A 20 26 66 31 26 22 0D 0A 3E 73 76 20 6E 3D 31 : &f1&"..>sv n=1
000060: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 ..>rp..>sv n=n+1
000070: 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D n=n[w1]..>sv s=
000080: 66 26 6E 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 f&n&..>dm "
000090: 20 20 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 &s&"..>un n>=r
0000A0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
0000B0: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4F 4B 20 "..>rp..>av "OK
0000C0: 5B 79 2F 4E 5D 3F 20 22 20 79 65 73 6E 6F 20 31 [y/N]? " yesno 1
0000D0: 0D 0A 3E 75 6E 20 79 65 73 6E 6F 20 69 6E 20 22 ..>un yesno in "
0000E0: 79 6E 22 0D 0A 3E 73 6B 20 79 65 73 6E 6F 3C 3E yn"..>sk yesno<>
0000F0: 22 79 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 "y"..>dm " "..>d
000100: 6D 20 22 57 72 69 74 69 6E 67 20 64 61 74 61 20 m "Writing data
000110: 2E 2E 2E 22 0D 0A 3E 77 66 20 66 6D 2E 6F 6E 65 ..."..>wf fm.one
000120: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
000130: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000140: 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E ]..>sv s=f&n&..>
000150: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
000160: 6C 65 6E 0D 0A 3E 77 63 0D 0A 3E 77 66 20 66 6D len..>wc..>wf fm
000170: 2E 78 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 77 6D .x..>id cpm..>wm
000180: 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 "clear|13|y|766
000190: 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 |merge fm.one|13
0001A0: 7C 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C ||765||233||541|
0001B0: 7C 32 33 33 7C 7C 30 7C 22 0D 0A 3E 65 6C 0D 0A |233||0|"..>el..
0001C0: 3E 77 6D 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C >wm "clear|13|y|
0001D0: 37 36 36 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 766|merge fm.one
0001E0: 7C 31 33 7C 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 |13||765||538||5
0001F0: 34 31 7C 7C 35 33 38 7C 7C 35 31 32 7C 22 0D 0A 41||538||512|"..
Size : 512 (Real : 512)
000000: 65 6C 64 20 61 6C 77 61 79 73 20 74 6F 20 62 65 eld always to be
000010: 20 62 6C 61 6E 6B 20 28 59 2F 6E 29 3F 20 22 20 blank (Y/n)? "
000020: 6C 61 73 74 62 6C 61 6E 6B 20 31 0D 0A 3E 75 6E lastblank 1..>un
000030: 20 6C 61 73 74 62 6C 61 6E 6B 20 69 6E 20 22 79 lastblank in "y
000040: 6E 22 0D 0A 3E 69 66 20 6C 61 73 74 62 6C 61 6E n"..>if lastblan
000050: 6B 3D 22 22 0D 0A 3E 73 76 20 6C 61 73 74 62 6C k=""..>sv lastbl
000060: 61 6E 6B 3D 22 79 22 0D 0A 3E 65 69 0D 0A 3E 65 ank="y"..>ei..>e
000070: 6C 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 l..>rp..>sv fv="
000080: 56 61 72 69 61 62 6C 65 22 20 6C 61 73 74 62 6C Variable" lastbl
000090: 61 6E 6B 3D 22 6E 22 0D 0A 3E 61 76 20 22 4D 61 ank="n"..>av "Ma
0000A0: 78 69 6D 75 6D 20 6E 75 6D 62 65 72 20 6F 66 20 ximum number of
0000B0: 66 69 65 6C 64 73 3A 20 22 20 72 6C 65 6E 0D 0A fields: " rlen..
0000C0: 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 3D 22 2F >sv fsortopts="/
0000D0: 76 22 0D 0A 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 v"..>un rlen>="2
0000E0: 22 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D "..>ei..>dm " ".
0000F0: 0A 3E 64 6D 20 22 50 6C 65 61 73 65 20 65 6E 74 .>dm "Please ent
000100: 65 72 20 66 69 65 6C 64 20 6E 61 6D 65 73 3A 20 er field names:
000110: 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D "..>sv n=0..>rp.
000120: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000130: 31 5D 0D 0A 3E 61 76 20 22 66 69 65 6C 64 26 6E 1]..>av "field&n
000140: 26 3A 20 22 20 6E 26 6E 26 20 34 30 0D 0A 3E 69 &: " n&n& 40..>i
000150: 66 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 79 22 0D f lastblank="y".
000160: 0A 3E 69 66 20 6E 3D 72 6C 65 6E 2D 31 0D 0A 3E .>if n=rlen-1..>
000170: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 73 76 20 6E sv n=rlen..>sv n
000180: 26 6E 26 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 &n&=""..>ei..>ei
000190: 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E ..>un n>=rlen..>
0001A0: 3E 3E 0D 0A 3E 3E 3E 20 77 6F 72 6B 20 6F 75 74 >>..>>> work out
0001B0: 20 6D 61 78 20 66 69 65 6C 64 20 6E 61 6D 65 20 max field name
0001C0: 77 69 64 74 68 21 0D 0A 3E 73 76 20 6D 61 78 77 width!..>sv maxw
0001D0: 3D 22 31 22 0D 0A 3E 73 76 20 6E 3D 22 31 22 0D ="1"..>sv n="1".
0001E0: 0A 3E 72 70 0D 0A 3E 69 66 20 6E 26 6E 26 5B 26 .>rp..>if n&n&[&
0001F0: 6D 61 78 77 26 5D 3C 3E 22 22 0D 0A 3E 73 76 20 maxw&]<>""..>sv
Size : 512 (Real : 512)
000000: 3E 65 69 0D 0A 3E 3E 3E 3E 77 6D 20 22 6C 20 66 >ei..>>>>wm "l f
000010: 6D 2E 6F 6E 65 7C 31 33 7C 79 7C 36 33 39 7C 7C m.one|13|y|639||
000020: 37 36 34 7C 7C 32 33 33 7C 7C 32 39 7C 7C 32 33 764||233||29||23
000030: 33 7C 22 0D 0A 3E 77 63 0D 0A 3E 63 66 09 3B 20 3|"..>wc..>cf.;
000040: 6C 65 74 20 65 78 65 63 20 68 61 76 65 20 68 61 let exec have ha
000050: 6E 64 6C 65 20 30 0D 0A 3E 65 78 20 65 78 65 63 ndle 0..>ex exec
000060: 20 66 6D 2E 78 0D 0A 3E 73 74 0D 0A 3E 65 6C 20 fm.x..>st..>el
000070: 3B 20 66 31 3D 65 6E 64 0D 0A 3E 64 6D 20 22 20 ; f1=end..>dm "
000080: 22 0D 0A 3E 77 74 20 22 4E 6F 74 20 66 6F 75 6E "..>wt "Not foun
000090: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
0000A0: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 22 0D o continue ...".
0000B0: 0A 3E 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 .>ex exec fm..>s
0000C0: 74 0D 0A 3E 65 69 20 3B 20 66 31 3C 3E 65 6E 64 t..>ei ; f1<>end
0000D0: 0D 0A 3E 65 69 20 3B 20 69 66 20 64 65 66 69 6E ..>ei ; if defin
0000E0: 65 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 ed df..>>>..>iu
0000F0: 64 66 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D df..>sv sys_ver=
000100: 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 79 73 sys_ver..>if sys
000110: 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 70 6D _ver=""..>sv cpm
000120: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 63 73 20 22 ="1"..>ei..>cs "
000130: 20 22 0D 0A 3E 64 6D 20 22 4F 70 74 69 6F 6E 20 "..>dm "Option
000140: 46 20 2D 20 46 69 6E 64 20 73 69 6E 67 6C 65 20 F - Find single
000150: 72 65 63 6F 72 64 0D 0A 3E 64 6D 20 22 20 22 0D record..>dm " ".
000160: 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 .>in fm$pfi$..>s
000170: 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D v fv=fv[1] rlen=
000180: 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 rlen[w1]..>if fv
000190: 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D ="f"..>sv flist=
0001A0: 22 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 ">ru"..>el..>sv
0001B0: 66 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 flist=">rv"..>ei
0001C0: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
0001D0: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
0001E0: 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 ]..>sv flist = f
0001F0: 6C 69 73 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A list + " f&n&"..
Size : 512 (Real : 512)
000000: 6D 61 78 77 3D 6D 61 78 77 2B 31 20 6D 61 78 77 maxw=maxw+1 maxw
000010: 3D 6D 61 78 77 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A =maxw[w1]..>el..
000020: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000030: 5D 0D 0A 3E 65 69 0D 0A 3E 75 6E 20 6E 3E 3D 72 ]..>ei..>un n>=r
000040: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 73 76 20 6D 32 len..>>>..>sv m2
000050: 3D 22 22 20 6D 33 3D 22 22 20 74 32 3D 22 22 20 ="" m3="" t2=""
000060: 74 33 3D 22 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A t3=""..>dm " "..
000070: 3E 61 76 20 22 46 69 72 73 74 20 66 69 65 6C 64 >av "First field
000080: 20 6E 75 6D 62 65 72 20 66 6F 72 20 73 6F 72 74 number for sort
000090: 69 6E 67 20 6F 6E 20 5B 31 5D 3A 20 22 20 6D 31 ing on [1]: " m1
0000A0: 0D 0A 3E 69 66 20 6D 31 3D 22 22 0D 0A 3E 73 76 ..>if m1=""..>sv
0000B0: 20 6D 31 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 61 m1="1"..>ei..>a
0000C0: 76 20 22 20 20 20 20 20 20 20 20 20 20 20 20 73 v " s
0000D0: 6F 72 74 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F ort type [A/z/p/
0000E0: 77 2F 6C 2F 6E 2F 64 5D 3A 20 22 20 74 31 0D 0A w/l/n/d]: " t1..
0000F0: 3E 69 66 20 74 31 3D 22 22 0D 0A 3E 73 76 20 74 >if t1=""..>sv t
000100: 31 3D 22 61 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 1="a"..>ei..>>>.
000110: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 61 76 20 22 53 .>dm " "..>av "S
000120: 65 63 6F 6E 64 20 66 69 65 6C 64 20 6E 75 6D 62 econd field numb
000130: 65 72 20 66 6F 72 20 73 6F 72 74 69 6E 67 20 6F er for sorting o
000140: 6E 3A 20 22 20 6D 32 0D 0A 3E 69 66 20 6D 32 3C n: " m2..>if m2<
000150: 3E 22 22 0D 0A 3E 61 76 20 22 20 20 20 20 20 20 >""..>av "
000160: 20 20 20 20 20 20 73 6F 72 74 20 74 79 70 65 20 sort type
000170: 5B 41 2F 7A 2F 70 2F 77 2F 6C 2F 6E 2F 64 5D 3A [A/z/p/w/l/n/d]:
000180: 20 22 20 74 32 0D 0A 3E 69 66 20 74 32 3D 22 22 " t2..>if t2=""
000190: 0D 0A 3E 73 76 20 74 32 3D 22 61 22 0D 0A 3E 65 ..>sv t2="a"..>e
0001A0: 69 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D i..>>>..>dm " ".
0001B0: 0A 3E 61 76 20 22 54 68 69 72 64 20 66 69 65 6C .>av "Third fiel
0001C0: 64 20 6E 75 6D 62 65 72 20 66 6F 72 20 73 6F 72 d number for sor
0001D0: 74 69 6E 67 20 6F 6E 3A 20 22 20 6D 33 0D 0A 3E ting on: " m3..>
0001E0: 69 66 20 6D 33 3C 3E 22 22 0D 0A 3E 61 76 20 22 if m3<>""..>av "
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 73 6F 72 74 sort
Size : 512 (Real : 512)
000000: 3E 75 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E >un n>=rlen..>>>
000010: 0D 0A 3E 64 6D 20 22 20 20 20 4D 20 2D 20 4D 61 ..>dm " M - Ma
000020: 69 6E 20 64 61 74 61 20 66 69 6C 65 20 28 26 64 in data file (&d
000030: 66 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 f&)..>dm " "..>d
000040: 6D 20 22 20 20 20 55 20 2D 20 55 70 64 61 74 65 m " U - Update
000050: 20 66 69 6C 65 20 20 20 20 28 26 6E 65 77 66 69 file (&newfi
000060: 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E le&)..>dm " "..>
000070: 64 6D 20 22 20 20 20 53 20 2D 20 53 65 6C 65 63 dm " S - Selec
000080: 74 69 6F 6E 20 66 69 6C 65 20 28 26 73 65 6C 66 tion file (&self
000090: 69 6C 65 26 29 0D 0A 3E 64 6D 20 22 20 22 0D 0A ile&)..>dm " "..
0000A0: 3E 3E 3E 3E 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 >>>>..>rp..>av "
0000B0: 45 6E 74 65 72 20 66 69 6C 65 20 74 6F 20 73 65 Enter file to se
0000C0: 6C 65 63 74 20 66 72 6F 6D 20 5B 6D 2F 75 2F 73 lect from [m/u/s
0000D0: 5D 3A 20 22 20 6F 70 74 20 31 0D 0A 3E 75 6E 20 ]: " opt 1..>un
0000E0: 6F 70 74 20 69 6E 20 22 6D 75 73 22 0D 0A 3E 69 opt in "mus"..>i
0000F0: 66 20 6F 70 74 3D 22 22 0D 0A 3E 65 78 20 65 78 f opt=""..>ex ex
000100: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
000110: 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 46 69 65 6C 64 .>>>..>dm "Field
000120: 20 6E 61 6D 65 73 3A 20 22 0D 0A 3E 73 76 20 6E names: "..>sv n
000130: 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E =0..>rp..>sv n=n
000140: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
000150: 73 3D 6E 26 6E 26 0D 0A 3E 64 6D 20 66 26 6E 26 s=n&n&..>dm f&n&
000160: 3A 20 26 73 26 0D 0A 3E 75 6E 20 6E 3D 72 6C 65 : &s&..>un n=rle
000170: 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 22 0D n..>>>..>dm " ".
000180: 0A 3E 61 76 20 22 45 6E 74 65 72 20 64 61 74 61 .>av "Enter data
000190: 20 73 74 72 69 6E 67 20 74 6F 20 6C 6F 6F 6B 20 string to look
0001A0: 66 6F 72 20 20 20 20 20 20 3A 20 22 20 64 0D 0A for : " d..
0001B0: 3E 61 76 20 22 45 6E 74 65 72 20 66 69 65 6C 64 >av "Enter field
0001C0: 20 6E 75 6D 62 65 72 20 74 6F 20 73 65 61 72 63 number to searc
0001D0: 68 20 6F 6E 20 5B 2A 5D 3A 20 22 20 66 20 32 0D h on [*]: " f 2.
0001E0: 0A 3E 69 66 20 66 5B 31 5D 3D 22 66 22 0D 0A 3E .>if f[1]="f"..>
0001F0: 73 76 20 66 3D 66 5B 32 3A 5D 0D 0A 3E 65 69 0D sv f=f[2:]..>ei.
Size : 512 (Real : 512)
000000: 20 74 79 70 65 20 5B 41 2F 7A 2F 70 2F 77 2F 6C type [A/z/p/w/l
000010: 2F 6E 2F 64 5D 3A 20 22 20 74 33 0D 0A 3E 69 66 /n/d]: " t3..>if
000020: 20 74 33 3D 22 22 0D 0A 3E 73 76 20 74 33 3D 22 t3=""..>sv t3="
000030: 61 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 a"..>ei..>ei..>e
000040: 69 0D 0A 3E 69 66 20 74 31 5B 31 5D 20 6E 6F 74 i..>if t1[1] not
000050: 69 6E 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 31 3D in "/-"..>sv t1=
000060: 22 2F 22 2B 74 31 0D 0A 3E 65 69 0D 0A 3E 73 76 "/"+t1..>ei..>sv
000070: 20 74 31 3D 74 31 2B 6D 31 0D 0A 3E 3E 3E 0D 0A t1=t1+m1..>>>..
000080: 3E 69 66 20 74 32 3C 3E 22 22 0D 0A 3E 69 66 20 >if t2<>""..>if
000090: 74 32 5B 31 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 t2[1] notin "/-"
0000A0: 0D 0A 3E 73 76 20 74 32 3D 22 2F 22 2B 74 32 0D ..>sv t2="/"+t2.
0000B0: 0A 3E 65 69 0D 0A 3E 73 76 20 74 31 3D 74 31 2B .>ei..>sv t1=t1+
0000C0: 22 20 22 2B 74 32 2B 6D 32 0D 0A 3E 65 69 0D 0A " "+t2+m2..>ei..
0000D0: 3E 3E 3E 0D 0A 3E 69 66 20 74 33 3C 3E 22 22 0D >>>..>if t3<>"".
0000E0: 0A 3E 69 66 20 74 33 5B 31 5D 20 6E 6F 74 69 6E .>if t3[1] notin
0000F0: 20 22 2F 2D 22 0D 0A 3E 73 76 20 74 33 3D 22 2F "/-"..>sv t3="/
000100: 22 2B 74 33 0D 0A 3E 65 69 0D 0A 3E 73 76 20 74 "+t3..>ei..>sv t
000110: 31 3D 74 31 2B 22 20 22 2B 74 33 2B 6D 33 0D 0A 1=t1+" "+t3+m3..
000120: 3E 65 69 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 6D 32 >ei..>>>..>if m2
000130: 3C 3E 22 22 0D 0A 3E 73 76 20 6D 31 3D 6D 31 2B <>""..>sv m1=m1+
000140: 22 2C 22 2B 6D 32 0D 0A 3E 65 69 0D 0A 3E 69 66 ","+m2..>ei..>if
000150: 20 6D 33 3C 3E 22 22 0D 0A 3E 73 76 20 6D 31 3D m3<>""..>sv m1=
000160: 6D 31 2B 22 2C 22 2B 6D 33 0D 0A 3E 65 69 0D 0A m1+","+m3..>ei..
000170: 3E 3E 3E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 >>>..>sv fsortop
000180: 74 73 20 3D 20 66 73 6F 72 74 6F 70 74 73 20 2B ts = fsortopts +
000190: 20 22 20 2F 73 22 2B 6D 31 20 2B 20 22 20 22 2B " /s"+m1 + " "+
0001A0: 74 31 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D t1..>dm " "..>dm
0001B0: 20 22 46 53 4F 52 54 20 6F 70 74 69 6F 6E 73 20 "FSORT options
0001C0: 61 72 65 20 6E 6F 77 20 27 26 66 73 6F 72 74 6F are now '&fsorto
0001D0: 70 74 73 26 27 2E 22 0D 0A 3E 64 6D 20 22 20 22 pts&'."..>dm " "
0001E0: 0D 0A 3E 61 76 20 22 50 6C 65 61 73 65 20 65 6E ..>av "Please en
0001F0: 74 65 72 20 61 6E 79 20 6F 74 68 65 72 20 46 53 ter any other FS
Size : 512 (Real : 512)
000000: 3E 69 64 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D >id df..&flist&.
000010: 0A 3E 69 66 20 66 31 2E 30 30 3C 3E 22 65 6E 64 .>if f1.00<>"end
000020: 22 0D 0A 3E 73 76 20 6E 3D 22 30 2E 30 30 22 0D "..>sv n="0.00".
000030: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D .>rp..>sv n=n+1.
000040: 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 69 66 .>sv s=f&n&..>if
000050: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
000060: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
000070: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
000080: 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 27 22 27 1"..>el..>if '"'
000090: 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 31 22 in s..>sv x="1"
0000A0: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 65 69 0D ..>ei..>ei..>ei.
0000B0: 0A 3E 69 66 20 78 3D 22 31 22 0D 0A 3E 69 66 20 .>if x="1"..>if
0000C0: 27 22 27 20 6E 6F 74 69 6E 20 73 0D 0A 3E 73 76 '"' notin s..>sv
0000D0: 20 73 3D 27 22 27 2B 73 2B 27 22 27 0D 0A 3E 65 s='"'+s+'"'..>e
0000E0: 6C 0D 0A 3E 69 66 20 22 27 22 20 6E 6F 74 69 6E l..>if "'" notin
0000F0: 20 73 0D 0A 3E 73 76 20 73 3D 22 27 22 2B 73 2B s..>sv s="'"+s+
000100: 22 27 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E "'"..>ei..>ei..>
000110: 73 76 20 78 3D 22 30 22 0D 0A 3E 65 69 0D 0A 3E sv x="0"..>ei..>
000120: 69 66 20 73 3D 22 22 0D 0A 3E 69 66 20 66 76 3D if s=""..>if fv=
000130: 22 76 22 0D 0A 3E 73 76 20 73 3D 6E 2B 31 20 6D "v"..>sv s=n+1 m
000140: 3D 6E 2B 32 0D 0A 3E 73 76 20 73 3D 66 26 73 26 =n+2..>sv s=f&s&
000150: 2B 66 26 6D 26 0D 0A 3E 69 66 20 73 3D 22 22 0D +f&m&..>if s="".
000160: 0A 3E 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>sv n=rlen..>el
000170: 0D 0A 3E 73 76 20 73 3D 22 24 22 0D 0A 3E 65 69 ..>sv s="$"..>ei
000180: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 ..>ei..>ei..>wm
000190: 26 73 26 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C 65 6E &s&..>un n>=rlen
0001A0: 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 0D 0A ..>el ; f1=end..
0001B0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 69 64 20 63 70 >wc..>cf..>id cp
0001C0: 6D 0D 0A 3E 65 78 20 63 6F 70 79 20 66 6F 24 65 m..>ex copy fo$e
0001D0: 6E 64 24 20 26 6E 65 77 66 69 6C 65 26 0D 0A 3E nd$ &newfile&..>
0001E0: 65 6C 0D 0A 3E 77 66 20 26 6E 65 77 66 69 6C 65 el..>wf &newfile
0001F0: 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 74 &..>wc..>ei..>wt
Size : 512 (Real : 512)
000000: 4F 52 54 20 6F 70 74 69 6F 6E 73 3A 20 22 20 66 ORT options: " f
000010: 6F 70 74 73 0D 0A 3E 69 66 20 66 6F 70 74 73 3C opts..>if fopts<
000020: 3E 22 22 0D 0A 3E 69 66 20 66 6F 70 74 73 5B 31 >""..>if fopts[1
000030: 5D 20 6E 6F 74 69 6E 20 22 2F 2D 22 0D 0A 3E 73 ] notin "/-"..>s
000040: 76 20 66 6F 70 74 73 3D 22 2F 22 2B 66 6F 70 74 v fopts="/"+fopt
000050: 73 0D 0A 3E 65 69 0D 0A 3E 73 76 20 66 73 6F 72 s..>ei..>sv fsor
000060: 74 6F 70 74 73 3D 66 73 6F 72 74 6F 70 74 73 2B topts=fsortopts+
000070: 22 20 22 2B 66 6F 70 74 73 0D 0A 3E 65 69 0D 0A " "+fopts..>ei..
000080: 3E 64 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 43 68 >dm " "..>dm "Ch
000090: 65 63 6B 69 6E 67 20 66 69 6C 65 73 20 2E 2E 2E ecking files ...
0000A0: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 3E 3E 20 6D ..>id cpm..>>> m
0000B0: 61 6B 65 20 73 75 72 65 20 75 70 64 61 74 65 20 ake sure update
0000C0: 66 69 6C 65 20 65 78 69 73 74 73 20 28 62 65 63 file exists (bec
0000D0: 61 75 73 65 20 22 3E 77 66 20 66 69 6C 65 20 61 ause ">wf file a
0000E0: 22 20 6E 65 65 64 73 20 65 78 69 73 74 65 6E 63 " needs existenc
0000F0: 65 29 0D 0A 3E 73 76 20 66 3D 6E 65 77 66 69 6C e)..>sv f=newfil
000100: 65 5B 77 31 5D 2B 22 2E 62 61 6B 22 0D 0A 3E 65 e[w1]+".bak"..>e
000110: 78 20 63 6F 70 79 20 66 6F 24 65 6E 64 24 20 26 x copy fo$end$ &
000120: 66 26 0D 0A 3E 65 78 20 72 65 6E 20 26 66 26 20 f&..>ex ren &f&
000130: 26 6E 65 77 66 69 6C 65 26 20 20 20 20 20 20 20 &newfile&
000140: 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 20 69 6E ; real file in
000150: 20 2E 62 61 6B 0D 0A 3E 65 78 20 72 65 6E 20 26 .bak..>ex ren &
000160: 6E 65 77 66 69 6C 65 26 20 26 66 26 20 20 20 20 newfile& &f&
000170: 20 20 20 20 20 3B 20 72 65 61 6C 20 66 69 6C 65 ; real file
000180: 20 69 6E 20 72 65 61 6C 20 66 69 6C 65 20 28 73 in real file (s
000190: 69 63 29 0D 0A 3E 73 76 20 66 3D 64 66 5B 77 31 ic)..>sv f=df[w1
0001A0: 5D 2B 22 2E 62 61 6B 22 0D 0A 3E 65 78 20 63 6F ]+".bak"..>ex co
0001B0: 70 79 20 66 6F 24 65 6E 64 24 20 26 66 26 0D 0A py fo$end$ &f&..
0001C0: 3E 65 78 20 72 65 6E 20 26 66 26 20 26 64 66 26 >ex ren &f& &df&
0001D0: 20 20 20 20 20 20 20 20 20 3B 20 72 65 61 6C 20 ; real
0001E0: 66 69 6C 65 20 69 6E 20 2E 62 61 6B 0D 0A 3E 65 file in .bak..>e
0001F0: 78 20 72 65 6E 20 26 64 66 26 20 26 66 26 20 20 x ren &df& &f&
Size : 512 (Real : 512)
000000: 20 22 50 72 65 73 73 20 61 20 6B 65 79 20 74 6F "Press a key to
000010: 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A 3E continue .....>
000020: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000030: 0A 3E 65 69 20 3B 20 66 31 0D 0A 3E 65 69 20 3B .>ei ; f1..>ei ;
000040: 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 id df..>>>..>iu
000050: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
000060: 6D 20 22 4F 70 74 69 6F 6E 20 55 20 2D 20 4D 65 m "Option U - Me
000070: 72 67 65 20 75 70 64 61 74 65 20 66 69 6C 65 20 rge update file
000080: 69 6E 74 6F 20 6D 61 69 6E 20 66 69 6C 65 0D 0A into main file..
000090: 3E 64 6D 20 22 20 22 0D 0A 3E 69 6E 20 66 6D 24 >dm " "..>in fm$
0000A0: 70 66 69 24 0D 0A 3E 73 76 20 73 79 73 5F 76 65 pfi$..>sv sys_ve
0000B0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0000C0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0000D0: 70 6D 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 73 76 pm="1"..>ei..>sv
0000E0: 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 fv=fv[1] rlen=r
0000F0: 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D len[w1]..>if fv=
000100: 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 "f"..>sv flist="
000110: 3E 72 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 >ru"..>el..>sv f
000120: 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D list=">rv"..>ei.
000130: 0A 3E 73 76 20 6E 3D 22 30 2E 30 30 22 0D 0A 3E .>sv n="0.00"..>
000140: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 0D 0A 3E rp..>sv n=n+1..>
000150: 73 76 20 66 6C 69 73 74 3D 66 6C 69 73 74 2B 22 sv flist=flist+"
000160: 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 f&n&"..>un n>=r
000170: 6C 65 6E 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6D len..>sv n=n+1 m
000180: 3D 6E 2B 31 0D 0A 3E 73 76 20 66 26 6E 26 3D 22 =n+1..>sv f&n&="
000190: 22 20 66 26 6D 26 3D 22 22 0D 0A 3E 69 64 20 63 " f&m&=""..>id c
0001A0: 70 6D 0D 0A 3E 64 66 20 26 64 66 26 0D 0A 3E 72 pm..>df &df&..>r
0001B0: 76 20 73 0D 0A 3E 69 66 20 73 3D 22 65 6E 64 22 v s..>if s="end"
0001C0: 0D 0A 3E 77 66 20 26 64 66 26 0D 0A 3E 65 6C 0D ..>wf &df&..>el.
0001D0: 0A 3E 77 66 20 26 64 66 26 20 61 0D 0A 3E 65 69 .>wf &df& a..>ei
0001E0: 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 26 64 66 26 20 ..>el..>wf &df&
0001F0: 61 0D 0A 3E 65 69 0D 0A 3E 63 66 0D 0A 3E 64 66 a..>ei..>cf..>df
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 3B 20 72 65 61 6C 20 66 69 ; real fi
000010: 6C 65 20 69 6E 20 72 65 61 6C 20 66 69 6C 65 20 le in real file
000020: 28 73 69 63 29 0D 0A 3E 65 6C 0D 0A 3E 77 66 20 (sic)..>el..>wf
000030: 26 6E 65 77 66 69 6C 65 26 20 61 0D 0A 3E 77 63 &newfile& a..>wc
000040: 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 22 20 22 0D 0A ..>ei..>dm " "..
000050: 3E 64 6D 20 22 57 72 69 74 69 6E 67 20 66 69 6C >dm "Writing fil
000060: 65 73 20 2E 2E 2E 22 0D 0A 3E 69 64 20 63 70 6D es ..."..>id cpm
000070: 0D 0A 3E 63 66 0D 0A 3E 64 66 20 66 6D 24 70 66 ..>cf..>df fm$pf
000080: 69 24 09 3B 20 68 61 6E 64 6C 65 20 30 0D 0A 3E i$.; handle 0..>
000090: 65 69 0D 0A 3E 65 69 20 3B 20 69 75 20 70 66 69 ei..>ei ; iu pfi
0000A0: 66 69 6C 65 0D 0A 3E 3E 3E 20 4E 6F 77 20 77 72 file..>>> Now wr
0000B0: 69 74 65 20 74 68 65 6D 20 6F 75 74 0D 0A 3E 77 ite them out..>w
0000C0: 66 20 26 70 66 69 66 69 6C 65 26 09 3B 20 68 61 f &pfifile&.; ha
0000D0: 6E 64 6C 65 20 31 0D 0A 3E 77 6D 20 27 3E 73 76 ndle 1..>wm '>sv
0000E0: 20 20 20 20 20 20 64 66 3D 22 26 64 66 26 22 0D df="&df&".
0000F0: 0A 3E 77 6D 20 27 3E 73 76 20 6E 65 77 66 69 6C .>wm '>sv newfil
000100: 65 3D 22 26 6E 65 77 66 69 6C 65 26 0D 0A 3E 77 e="&newfile&..>w
000110: 6D 20 27 3E 73 76 20 73 65 6C 66 69 6C 65 3D 22 m '>sv selfile="
000120: 26 73 65 6C 66 69 6C 65 26 22 0D 0A 3E 77 6D 20 &selfile&"..>wm
000130: 27 3E 73 76 20 66 76 3D 22 26 66 76 26 22 0D 0A '>sv fv="&fv&"..
000140: 3E 77 6D 20 27 3E 73 76 20 72 6C 65 6E 3D 22 26 >wm '>sv rlen="&
000150: 72 6C 65 6E 26 22 0D 0A 3E 73 76 20 6E 3D 30 0D rlen&"..>sv n=0.
000160: 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 .>rp..>sv n=n+1
000170: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 73 3D 6E n=n[w1]..>sv s=n
000180: 26 6E 26 0D 0A 3E 77 6D 20 27 3E 73 76 20 6E 26 &n&..>wm '>sv n&
000190: 6E 26 3D 22 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E n&="&s&"..>un n>
0001A0: 3D 72 6C 65 6E 0D 0A 3E 77 6D 20 27 3E 73 76 20 =rlen..>wm '>sv
0001B0: 66 73 6F 72 74 6F 70 74 73 3D 22 26 66 73 6F 72 fsortopts="&fsor
0001C0: 74 6F 70 74 73 26 22 0D 0A 3E 77 6D 20 27 3E 73 topts&"..>wm '>s
0001D0: 76 20 6D 61 78 77 3D 22 26 6D 61 78 77 26 22 0D v maxw="&maxw&".
0001E0: 0A 3E 77 6D 20 27 3E 73 76 20 6C 61 73 74 62 6C .>wm '>sv lastbl
0001F0: 61 6E 6B 3D 22 26 6C 61 73 74 62 6C 61 6E 6B 26 ank="&lastblank&
Size : 512 (Real : 512)
000000: 20 26 6E 65 77 66 69 6C 65 26 20 66 6F 24 65 6E &newfile& fo$en
000010: 64 24 0D 0A 3E 73 76 20 78 3D 22 30 22 0D 0A 3E d$..>sv x="0"..>
000020: 64 6D 20 22 4D 65 72 67 69 6E 67 20 2E 2E 2E 0D dm "Merging ....
000030: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 20 3B 20 .>dm " "..>ei ;
000040: 69 75 20 64 66 0D 0A 1A 26 6E 26 0D 0A 3E 69 66 iu df...&n&..>if
000050: 20 22 2C 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 "," in s..>sv x
000060: 3D 22 31 22 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 22 ="1"..>el..>if "
000070: 27 22 20 69 6E 20 73 0D 0A 3E 73 76 20 78 3D 22 '" in s..>sv x="
000080: 6E 32 3D 22 74 65 6C 65 70 68 6F 6E 65 22 0D 0A n2="telephone"..
000090: 3E 73 76 20 6E 33 3D 22 61 64 64 72 31 22 0D 0A >sv n3="addr1"..
0000A0: 3E 73 76 20 6E 34 3D 22 61 64 64 72 32 22 0D 0A >sv n4="addr2"..
0000B0: 3E 73 76 20 6E 35 3D 22 61 64 64 72 33 22 0D 0A >sv n5="addr3"..
0000C0: 3E 73 76 20 6E 36 3D 22 61 64 64 72 34 22 0D 0A >sv n6="addr4"..
0000D0: 3E 73 76 20 6E 37 3D 22 61 64 64 72 35 22 0D 0A >sv n7="addr5"..
0000E0: 3E 73 76 20 6E 38 3D 22 70 6F 73 74 63 6F 64 65 >sv n8="postcode
0000F0: 22 0D 0A 3E 73 76 20 66 73 6F 72 74 6F 70 74 73 "..>sv fsortopts
000100: 3D 22 2F 76 20 2F 73 31 20 2F 70 31 22 0D 0A 3E ="/v /s1 /p1"..>
000110: 73 76 20 6D 61 78 77 3D 22 31 30 22 0D 0A 3E 73 sv maxw="10"..>s
000120: 76 20 6C 61 73 74 62 6C 61 6E 6B 3D 22 6E 22 0D v lastblank="n".
000130: 0A 1A 73 76 20 73 65 6C 66 69 6C 65 3D 22 61 64 ..sv selfile="ad
000140: 64 72 65 73 73 2E 73 65 6C 22 0D 0A 3E 73 76 20 dress.sel"..>sv
000150: 66 76 3D 22 56 61 72 69 61 62 6C 65 22 0D 0A 3E fv="Variable"..>
000160: 73 76 20 72 6C 65 6E 3D 22 38 22 0D 0A 3E 73 76 sv rlen="8"..>sv
000170: 20 6E 31 3D 22 6E 61 6D 65 22 0D 0A 3E 73 76 20 n1="name"..>sv
000180: 22 26 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F "&nn& records fo
000190: 75 6E 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 und. Press a key
0001A0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E to continue ...
0001B0: 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 ..>wc..>cf..>ex
0001C0: 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 exec fm..>st..>e
0001D0: 69 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 i..>sk 0=0..>ei
0001E0: 3B 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 ;id df..>>>..>iu
0001F0: 20 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 df..>cs " "..>d
Size : 512 (Real : 512)
000000: 22 0D 0A 3E 77 63 0D 0A 3E 3E 3E 0D 0A 3E 69 66 "..>wc..>>>..>if
000010: 20 70 66 69 66 69 6C 65 5B 77 32 5D 3D 22 22 0D pfifile[w2]="".
000020: 0A 3E 63 66 09 3B 20 6C 65 74 20 65 78 65 63 20 .>cf.; let exec
000030: 68 61 76 65 20 68 61 6E 64 6C 65 20 30 0D 0A 3E have handle 0..>
000040: 65 78 20 65 78 65 63 20 66 6D 0D 0A 3E 73 74 0D ex exec fm..>st.
000050: 0A 3E 65 6C 0D 0A 3E 73 76 20 70 66 69 66 69 6C .>el..>sv pfifil
000060: 65 3D 22 66 6D 24 70 66 69 24 22 0D 0A 3E 65 69 e="fm$pfi$"..>ei
000070: 0D 0A 1A 64 61 74 61 20 66 69 6C 65 0D 0A 3E 64 ...data file..>d
000080: 3E 69 66 20 66 76 3D 22 66 22 20 3B 20 66 69 78 >if fv="f" ; fix
000090: 65 64 0D 0A 3E 72 70 0D 0A 3E 73 76 20 6E 3D 6E ed..>rp..>sv n=n
0000A0: 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E 73 76 20 +1 n=n[w1]..>sv
0000B0: 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 21 73 21 0D s=f&n&..>wm !s!.
0000C0: 0A 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 6C .>un n=rlen..>el
0000D0: 20 3B 20 76 61 72 0D 0A 3E 72 70 0D 0A 3E 73 76 ; var..>rp..>sv
0000E0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0000F0: 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E 77 6D 20 >sv s=f&n&..>wm
000100: 26 73 26 0D 0A 3E 69 66 20 73 3D 22 22 0D 0A 3E &s&..>if s=""..>
000110: 73 76 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 0D 0A sv n=rlen..>ei..
000120: 3E 75 6E 20 6E 3D 72 6C 65 6E 0D 0A 3E 65 69 20 >un n=rlen..>ei
000130: 3B 20 66 2F 76 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E ; f/v..>sv nn=nn
000140: 2B 31 0D 0A 3E 65 6C 20 3B 20 66 31 3D 65 6E 64 +1..>el ; f1=end
000150: 0D 0A 3E 73 76 20 6E 6E 3D 6E 6E 5B 77 31 5D 0D ..>sv nn=nn[w1].
000160: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 74 20 22 26 .>dm " "..>wt "&
000170: 6E 6E 26 20 72 65 63 6F 72 64 73 20 66 6F 75 6E nn& records foun
000180: 64 2E 20 50 72 65 73 73 20 61 20 6B 65 79 20 74 d. Press a key t
000190: 6F 20 63 6F 6E 74 69 6E 75 65 20 2E 2E 2E 0D 0A o continue .....
0001A0: 3E 77 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 >wc..>cf..>ex ex
0001B0: 65 63 20 66 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D ec fm..>st..>ei.
0001C0: 0A 3E 73 6B 20 30 3D 30 0D 0A 3E 65 69 20 3B 20 .>sk 0=0..>ei ;
0001D0: 69 64 20 64 66 0D 0A 3E 3E 3E 0D 0A 3E 69 75 20 id df..>>>..>iu
0001E0: 64 66 0D 0A 3E 63 73 20 22 20 22 0D 0A 3E 64 6D df..>cs " "..>dm
0001F0: 20 22 4F 70 74 69 6F 6E 20 53 2E 33 20 2D 20 53 "Option S.3 - S
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
000010: 6D 3D 30 20 3B 20 64 65 66 61 75 6C 74 20 6C 61 m=0 ; default la
000020: 62 65 6C 20 73 69 7A 65 73 0D 0A 3E 49 44 20 64 bel sizes..>ID d
000030: 66 0D 0A 3E 5A 4D 0D 0A 3E 46 46 20 6F 66 66 0D f..>ZM..>FF off.
000040: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
000050: 6C 6D 26 0D 0A 3E 52 50 20 3B 20 46 6F 72 65 76 lm&..>RP ; Forev
000060: 65 72 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 er..&flist&..>IF
000070: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
000080: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
000090: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
0000A0: 0D 0A 3E 3E 3E 0D 0A 21 66 31 21 0D 0A 3E 3E 3E ..>>>..!f1!..>>>
0000B0: 21 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 !f2! ; phone..!f
0000C0: 33 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 3!..!f4!..!f5!..
0000D0: 21 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 !f6!..!f7!..!f8!
0000E0: 0D 0A 3E 50 41 0D 0A 3E 45 49 20 3B 20 66 31 0D ..>PA..>EI ; f1.
0000F0: 0A 3E 55 4E 20 66 31 3D 22 65 6E 64 22 0D 0A 3E .>UN f1="end"..>
000100: 3E 3E 0D 0A 3E 3E 3E 20 45 4E 44 20 4F 46 20 4D >>..>>> END OF M
000110: 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 45 20 53 AIN MAIL MERGE S
000120: 45 43 54 49 4F 4E 0D 0A 3E 57 54 20 22 50 72 65 ECTION..>WT "Pre
000130: 73 73 20 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 ss a key to cont
000140: 69 6E 75 65 20 2E 2E 2E 22 0D 0A 3E 45 58 20 65 inue ..."..>EX e
000150: 78 65 63 20 66 6D 20 20 20 20 3B 20 66 69 6E 69 xec fm ; fini
000160: 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 61 63 6B shed, so go back
000170: 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E 75 0D 0A to filer menu..
000180: 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 20 64 66 >ST..>EI ; id df
000190: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 ..>>>..>>>..>>>
0001A0: 4C 61 62 65 6C 20 70 72 69 6E 74 65 72 20 28 31 Label printer (1
0001B0: 20 61 63 72 6F 73 73 29 20 20 28 63 29 20 41 72 across) (c) Ar
0001C0: 6E 6F 72 20 31 39 38 38 0D 0A 3E 3E 3E 0D 0A 3E nor 1988..>>>..>
0001D0: 49 55 20 6C 6D 0D 0A 3E 43 53 0D 0A 3E 44 4D 20 IU lm..>CS..>DM
0001E0: 22 20 22 0D 0A 3E 44 4D 20 50 52 4F 54 45 58 54 " "..>DM PROTEXT
0001F0: 20 6C 61 62 65 6C 20 70 72 69 6E 74 69 6E 67 20 label printing
Size : 512 (Real : 512)
000000: 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B 20 69 64 u..>ST..>EI ; id
000010: 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E df..>>>>>>>>>>>
000020: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C ..>>>..>>> Label
000030: 20 70 72 69 6E 74 65 72 20 28 32 20 61 63 72 6F printer (2 acro
000040: 73 73 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 ss) (c) Arnor 19
000050: 38 38 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 88..>>>..>IU lm.
000060: 0A 3E 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 .>SV gt=">"..>SV
000070: 20 64 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D dashes80="-----
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 -----------"..>C
0000D0: 53 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 S..>DM " "..>DM
0000E0: 50 52 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 PROTEXT label pr
0000F0: 69 6E 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 inting program (
000100: 32 20 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 2 across)..>DM "
000110: 20 22 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 "..>AV "Number
000120: 6F 66 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 of lines per lab
000130: 65 6C 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 el [&defpl&]: "
000140: 6E 0D 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D n..>SV pl=defpl.
000150: 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 .>IF n <> ""..>S
000160: 56 20 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 V pl=n..>EI..>AV
000170: 20 22 20 20 20 20 20 20 20 20 20 57 69 64 74 68 " Width
000180: 20 6F 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 of labels [&def
000190: 6C 77 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C lw&]: " n..>SV l
0001A0: 77 3D 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C w=deflw..>IF n <
0001B0: 3E 20 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A > ""..>SV lw=n..
0001C0: 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 >EI..>AV "
0001D0: 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 Left mar
0001E0: 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 gin [&deflm&]: "
0001F0: 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D n..>SV lm=deflm
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 28 31 20 61 63 72 6F 73 program (1 acros
000010: 73 29 0D 0A 3E 44 4D 20 22 20 22 0D 0A 3E 41 56 s)..>DM " "..>AV
000020: 20 22 4E 75 6D 62 65 72 20 6F 66 20 6C 69 6E 65 "Number of line
000030: 73 20 70 65 72 20 6C 61 62 65 6C 20 5B 26 64 65 s per label [&de
000040: 66 70 6C 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 fpl&]: " n..>SV
000050: 70 6C 3D 64 65 66 70 6C 0D 0A 3E 49 46 20 6E 20 pl=defpl..>IF n
000060: 3C 3E 20 22 22 0D 0A 3E 53 56 20 70 6C 3D 6E 0D <> ""..>SV pl=n.
000070: 0A 3E 45 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 .>EI..>AV "
000080: 20 20 20 20 20 20 20 20 20 4C 65 66 74 20 6D 61 Left ma
000090: 72 67 69 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 rgin [&deflm&]:
0000A0: 22 20 6E 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C " n..>SV lm=defl
0000B0: 6D 0D 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A m..>IF n <> ""..
0000C0: 3E 53 56 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E >SV lm=n..>EI..>
0000D0: 45 49 20 3B 20 69 75 20 6C 6D 0D 0A 3E 3E 3E 0D EI ; iu lm..>>>.
0000E0: 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 65 .>>> Common code
0000F0: 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 20 for mail merge
000100: 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 64 templates..>iu d
000110: 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E f..>df fm.mus..>
000120: 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 6E rv mus..>cf..>in
000130: 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 fm$pfi$..>sv fv
000140: 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E =fv[1] rlen=rlen
000150: 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 [w1]..>if fv="f"
000160: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 ..>sv flist=">ru
000170: 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 "..>el..>sv flis
000180: 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E 73 t=">rv"..>ei..>s
000190: 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 20 v n=0..>rp..>sv
0001A0: 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A 3E n=n+1 n=n[w1]..>
0001B0: 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 74 sv flist = flist
0001C0: 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E 20 + " f&n&"..>un
0001D0: 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F 72 n>=rlen..>>> sor
0001E0: 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 61 t out which data
0001F0: 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 69 file to use (mai
Size : 512 (Real : 512)
000000: 0D 0A 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E ..>IF n <> ""..>
000010: 53 56 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E 3E SV lm=n..>EI..>>
000020: 3E 0D 0A 3E 53 56 20 72 75 6C 65 72 31 3D 64 61 >..>SV ruler1=da
000030: 73 68 65 73 38 30 5B 32 3A 26 6C 77 26 5D 0D 0A shes80[2:&lw&]..
000040: 3E 53 56 20 72 75 6C 65 72 32 3D 64 61 73 68 65 >SV ruler2=dashe
000050: 73 38 30 5B 32 3A 26 6C 77 26 5D 0D 0A 3E 45 49 s80[2:&lw&]..>EI
000060: 20 3B 20 69 75 20 6C 6D 0D 0A 3E 3E 3E 0D 0A 3E ; iu lm..>>>..>
000070: 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 65 20 66 >> Common code f
000080: 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 20 74 65 or mail merge te
000090: 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 64 66 0D mplates..>iu df.
0000A0: 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A 3E 72 76 .>df fm.mus..>rv
0000B0: 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 6E 20 66 mus..>cf..>in f
0000C0: 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 76 3D 66 m$pfi$..>sv fv=f
0000D0: 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 6E 5B 77 v[1] rlen=rlen[w
0000E0: 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 22 0D 0A 1]..>if fv="f"..
0000F0: 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 75 22 20 >sv flist=">ru"
000100: 67 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E 65 6C glist=">ru"..>el
000110: 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 76 ..>sv flist=">rv
000120: 22 20 67 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E " glist=">rv"..>
000130: 65 69 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 ei..>sv n=0..>rp
000140: 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B ..>sv n=n+1 n=n[
000150: 77 31 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 w1]..>sv flist=f
000160: 6C 69 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 73 list+" f&n&"..>s
000170: 76 20 67 6C 69 73 74 3D 67 6C 69 73 74 2B 22 20 v glist=glist+"
000180: 67 26 6E 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 6C g&n&"..>un n>=rl
000190: 65 6E 0D 0A 3E 3E 3E 20 73 6F 72 74 20 6F 75 74 en..>>> sort out
0001A0: 20 77 68 69 63 68 20 64 61 74 61 66 69 6C 65 20 which datafile
0001B0: 74 6F 20 75 73 65 20 28 6D 61 69 6E 2F 75 70 64 to use (main/upd
0001C0: 61 74 65 2F 73 65 6C 65 63 74 69 6F 6E 29 0D 0A ate/selection)..
0001D0: 3E 69 66 20 6D 75 73 3D 22 6D 22 0D 0A 3E 73 76 >if mus="m"..>sv
0001E0: 20 66 3D 64 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 f=df..>ei..>if
0001F0: 6D 75 73 3D 22 75 22 0D 0A 3E 73 76 20 66 3D 6E mus="u"..>sv f=n
Size : 512 (Real : 512)
000000: 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 69 n/update/selecti
000010: 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 on)..>if mus="m"
000020: 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 0D ..>sv f=df..>ei.
000030: 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E 73 .>if mus="u"..>s
000040: 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 69 v f=newfile..>ei
000050: 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A 3E ..>if mus="s"..>
000060: 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E 65 sv f=selfile..>e
000070: 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 6E i..>df &f& fo$en
000080: 64 24 0D 0A 3E 65 69 20 3B 20 69 75 20 64 66 0D d$..>ei ; iu df.
000090: 0A 3E 3E 3E 0D 0A 1A 65 66 61 75 6C 74 20 6C 61 .>>>...efault la
0000A0: 62 65 6C 20 73 69 7A 65 73 0D 0A 3E 49 44 20 64 bel sizes..>ID d
0000B0: 66 0D 0A 3E 5A 4D 0D 0A 3E 46 46 20 6F 66 66 0D f..>ZM..>FF off.
0000C0: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
0000D0: 6C 6D 26 0D 0A 3E 52 50 20 3B 20 46 6F 72 65 76 lm&..>RP ; Forev
0000E0: 65 72 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 er..&flist&..>IF
0000F0: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
000100: 77 66 69 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A wfile& fo$end$..
000110: 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D 22 >ei..>if mus="m"
000120: 0D 0A 3E 64 66 20 26 64 66 26 20 66 6F 24 65 6E ..>df &df& fo$en
000130: 64 24 0D 0A 3E 65 69 0D 0A 3E 69 66 20 6D 75 73 d$..>ei..>if mus
000140: 3D 22 73 22 0D 0A 3E 64 66 20 26 73 65 6C 66 69 ="s"..>df &selfi
000150: 6C 65 26 20 66 6F 24 65 6E 64 24 0D 0A 3E 65 69 le& fo$end$..>ei
000160: 0D 0A 3E 3E 3E 0D 0A 3E 69 66 20 73 66 70 3D 22 ..>>>..>if sfp="
000170: 66 22 0D 0A 3E 77 66 20 26 66 26 0D 0A 3E 65 69 f"..>wf &f&..>ei
000180: 0D 0A 1A 20 64 66 0D 0A 26 66 6C 69 73 74 26 0D ... df..&flist&.
000190: 0A 3E 69 66 20 66 31 3C 3E 22 65 6E 64 22 0D 0A .>if f1<>"end"..
0001A0: 3E 7A 6D 0D 0A 3E 69 66 20 61 6C 6C 3D 22 6E 22 >zm..>if all="n"
0001B0: 0D 0A 3E 73 76 20 6E 3D 6D 69 6E 2D 31 0D 0A 3E ..>sv n=min-1..>
0001C0: 72 70 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D rp..>sv n=n+1 n=
0001D0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 64 26 6E 26 3D n[w1]..>if d&n&=
0001E0: 22 79 22 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D "y"..>sv s=f&n&.
0001F0: 0A 26 73 63 26 21 73 21 0D 0A 3E 65 69 20 3B 20 .&sc&!s!..>ei ;
Size : 512 (Real : 512)
000000: 65 77 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 69 66 ewfile..>ei..>if
000010: 20 6D 75 73 3D 22 73 22 0D 0A 3E 73 76 20 66 3D mus="s"..>sv f=
000020: 73 65 6C 66 69 6C 65 0D 0A 3E 65 69 0D 0A 3E 64 selfile..>ei..>d
000030: 66 20 26 66 26 20 66 6F 24 65 6E 64 24 0D 0A 3E f &f& fo$end$..>
000040: 65 69 20 3B 20 69 75 20 64 66 0D 0A 3E 3E 3E 0D ei ; iu df..>>>.
000050: 0A 1A 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 ..&..>FF OFF..>R
000060: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
000070: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
000080: 66 26 6E 26 0D 0A 3E 64 6D 20 22 20 20 20 20 20 f&n&..>dm "
000090: 20 20 26 73 26 22 0D 0A 3E 75 6E 20 6E 3E 3D 72 &s&"..>un n>=r
0000A0: 6C 65 6E 0D 0A 3E 3E 3E 0D 0A 3E 64 6D 20 22 20 len..>>>..>dm "
0000B0: 22 0D 0A 3E 72 70 0D 0A 3E 61 76 20 22 4F 4B 20 "..>rp..>av "OK
0000C0: 5B 79 2F 4E 5D 3F 20 22 20 79 65 73 6E 6F 20 31 [y/N]? " yesno 1
0000D0: 0D 0A 3E 75 6E 20 79 65 73 6E 6F 20 69 6E 20 22 ..>un yesno in "
0000E0: 79 6E 22 0D 0A 3E 73 6B 20 79 65 73 6E 6F 3C 3E yn"..>sk yesno<>
0000F0: 22 79 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 64 "y"..>dm " "..>d
000100: 6D 20 22 57 72 69 74 69 6E 67 20 64 61 74 61 20 m "Writing data
000110: 2E 2E 2E 22 0D 0A 3E 77 66 20 66 6D 2E 6F 6E 65 ..."..>wf fm.one
000120: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
000130: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000140: 5D 0D 0A 3E 73 76 20 73 3D 66 26 6E 26 0D 0A 3E ]..>sv s=f&n&..>
000150: 77 6D 20 21 73 21 0D 0A 3E 75 6E 20 6E 3E 3D 72 wm !s!..>un n>=r
000160: 6C 65 6E 0D 0A 3E 77 63 0D 0A 3E 77 66 20 66 6D len..>wc..>wf fm
000170: 2E 78 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 77 6D .x..>id cpm..>wm
000180: 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C 37 36 36 "clear|13|y|766
000190: 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 7C 31 33 |merge fm.one|13
0001A0: 7C 7C 37 36 35 7C 7C 32 33 33 7C 7C 35 34 31 7C ||765||233||541|
0001B0: 7C 32 33 33 7C 7C 30 7C 22 0D 0A 3E 65 6C 0D 0A |233||0|"..>el..
0001C0: 3E 77 6D 20 22 63 6C 65 61 72 7C 31 33 7C 79 7C >wm "clear|13|y|
0001D0: 37 36 36 7C 6D 65 72 67 65 20 66 6D 2E 6F 6E 65 766|merge fm.one
0001E0: 7C 31 33 7C 7C 37 36 35 7C 7C 35 33 38 7C 7C 35 |13||765||538||5
0001F0: 34 31 7C 7C 35 33 38 7C 7C 35 31 32 7C 22 0D 0A 41||538||512|"..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
000010: 77 3D 32 36 20 64 65 66 6C 6D 3D 30 09 3B 20 64 w=26 deflm=0.; d
000020: 65 66 61 75 6C 74 20 6C 61 62 65 6C 20 73 69 7A efault label siz
000030: 65 73 0D 0A 3E 49 44 20 64 66 0D 0A 3E 5A 4D 0D es..>ID df..>ZM.
000040: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
000050: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
000060: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
000070: 69 73 74 26 0D 0A 26 67 6C 69 73 74 26 0D 0A 26 ist&..&glist&..&
000080: 68 6C 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E hlist&..>IF f1<>
000090: 22 65 6E 64 22 0D 0A 3E 3E 3E 20 53 54 41 52 54 "end"..>>> START
0000A0: 20 4F 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 OF MAIN MAIL ME
0000B0: 52 47 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 3E 3E RGE SECTION..>>>
0000C0: 0D 0A 26 67 74 26 26 72 75 6C 65 72 31 26 21 26 ..>&&ruler1&!&
0000D0: 72 75 6C 65 72 32 26 21 26 72 75 6C 65 72 33 26 ruler2&!&ruler3&
0000E0: 52 0D 0A 3E 49 46 20 68 31 3C 3E 22 65 6E 64 22 R..>IF h1<>"end"
0000F0: 0D 0A 21 66 31 21 09 21 67 31 21 09 21 68 31 21 ..!f1!.!g1!.!h1!
000100: 0D 0A 3E 3E 3E 21 09 21 67 32 21 09 21 68 32 21 ..>>>!.!g2!.!h2!
000110: 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 21 09 21 ; phone..!f3!.!
000120: 67 33 21 09 21 68 33 21 0D 0A 21 66 34 21 09 21 g3!.!h3!..!f4!.!
000130: 67 34 21 09 21 68 34 21 0D 0A 21 66 35 21 09 21 g4!.!h4!..!f5!.!
000140: 67 35 21 09 21 68 35 21 0D 0A 21 66 36 21 09 21 g5!.!h5!..!f6!.!
000150: 67 36 21 09 21 68 36 21 0D 0A 21 66 37 21 09 21 g6!.!h6!..!f7!.!
000160: 67 37 21 09 21 68 37 21 0D 0A 21 66 38 21 09 21 g7!.!h7!..!f8!.!
000170: 67 38 21 09 21 68 38 21 0D 0A 3E 45 4C 0D 0A 3E g8!.!h8!..>EL..>
000180: 49 46 20 67 31 3C 3E 22 65 6E 64 22 0D 0A 21 66 IF g1<>"end"..!f
000190: 31 21 09 21 67 31 21 0D 0A 3E 3E 3E 21 66 32 21 1!.!g1!..>>>!f2!
0001A0: 09 21 67 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 .!g2! ; phone..!
0001B0: 66 33 21 09 21 67 33 21 0D 0A 21 66 34 21 09 21 f3!.!g3!..!f4!.!
0001C0: 67 34 21 0D 0A 21 66 35 21 09 21 67 35 21 0D 0A g4!..!f5!.!g5!..
0001D0: 21 66 36 21 09 21 67 36 21 0D 0A 21 66 37 21 09 !f6!.!g6!..!f7!.
0001E0: 21 67 37 21 0D 0A 21 66 38 21 09 21 67 38 21 0D !g7!..!f8!.!g8!.
0001F0: 0A 3E 45 4C 0D 0A 21 66 31 21 0D 0A 3E 3E 3E 21 .>EL..!f1!..>>>!
Size : 512 (Real : 512)
000000: 3E 53 56 20 64 65 66 70 6C 3D 39 20 64 65 66 6C >SV defpl=9 defl
000010: 77 3D 34 31 20 64 65 66 6C 6D 3D 30 09 3B 20 64 w=41 deflm=0.; d
000020: 65 66 61 75 6C 74 20 6C 61 62 65 6C 20 73 69 7A efault label siz
000030: 65 73 0D 0A 3E 49 44 20 64 66 0D 0A 3E 5A 4D 0D es..>ID df..>ZM.
000040: 0A 3E 50 4C 20 26 70 6C 26 0D 0A 3E 53 4D 20 26 .>PL &pl&..>SM &
000050: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
000060: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
000070: 69 73 74 26 0D 0A 3E 49 46 20 66 31 3C 3E 22 65 ist&..>IF f1<>"e
000080: 6E 64 22 0D 0A 3E 3E 3E 20 53 54 41 52 54 20 4F nd"..>>> START O
000090: 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D 45 52 47 F MAIN MAIL MERG
0000A0: 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 3E 3E 0D 0A E SECTION..>>>..
0000B0: 26 67 6C 69 73 74 26 0D 0A 26 67 74 26 26 72 75 &glist&..>&&ru
0000C0: 6C 65 72 31 26 21 26 72 75 6C 65 72 32 26 52 0D ler1&!&ruler2&R.
0000D0: 0A 3E 49 46 20 67 31 3C 3E 22 65 6E 64 22 0D 0A .>IF g1<>"end"..
0000E0: 21 66 31 21 09 21 67 31 21 0D 0A 3E 3E 3E 21 66 !f1!.!g1!..>>>!f
0000F0: 32 21 09 21 67 32 21 20 3B 20 70 68 6F 6E 65 0D 2!.!g2! ; phone.
000100: 0A 21 66 33 21 09 21 67 33 21 0D 0A 21 66 34 21 .!f3!.!g3!..!f4!
000110: 09 21 67 34 21 0D 0A 21 66 35 21 09 21 67 35 21 .!g4!..!f5!.!g5!
000120: 0D 0A 21 66 36 21 09 21 67 36 21 0D 0A 21 66 37 ..!f6!.!g6!..!f7
000130: 21 09 21 67 37 21 0D 0A 21 66 38 21 09 21 67 38 !.!g7!..!f8!.!g8
000140: 21 0D 0A 3E 45 4C 0D 0A 21 66 31 21 0D 0A 3E 3E !..>EL..!f1!..>>
000150: 3E 21 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 >!f2! ; phone..!
000160: 66 33 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D f3!..!f4!..!f5!.
000170: 0A 21 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 .!f6!..!f7!..!f8
000180: 21 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A 3E 45 49 !..>EI..>PA..>EI
000190: 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 3D 22 65 ; f1..>UN f1="e
0001A0: 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 45 4E nd"..>>>..>>> EN
0001B0: 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 4C 20 4D D OF MAIN MAIL M
0001C0: 45 52 47 45 20 53 45 43 54 49 4F 4E 0D 0A 3E 45 ERGE SECTION..>E
0001D0: 58 20 65 78 65 63 20 66 6D 20 20 20 20 3B 20 66 X exec fm ; f
0001E0: 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 inished, so go b
0001F0: 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E ack to filer men
Size : 512 (Real : 512)
000000: 66 32 21 20 3B 20 70 68 6F 6E 65 0D 0A 21 66 33 f2! ; phone..!f3
000010: 21 0D 0A 21 66 34 21 0D 0A 21 66 35 21 0D 0A 21 !..!f4!..!f5!..!
000020: 66 36 21 0D 0A 21 66 37 21 0D 0A 21 66 38 21 0D f6!..!f7!..!f8!.
000030: 0A 3E 45 49 0D 0A 3E 45 49 0D 0A 3E 50 41 0D 0A .>EI..>EI..>PA..
000040: 3E 45 49 20 3B 20 66 31 0D 0A 3E 55 4E 20 66 31 >EI ; f1..>UN f1
000050: 3D 22 65 6E 64 22 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E ="end"..>>>..>>>
000060: 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 4D 41 49 END OF MAIN MAI
000070: 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E 0D L MERGE SECTION.
000080: 0A 3E 45 58 20 65 78 65 63 20 66 6D 20 20 20 20 .>EX exec fm
000090: 3B 20 66 69 6E 69 73 68 65 64 2C 20 73 6F 20 67 ; finished, so g
0000A0: 6F 20 62 61 63 6B 20 74 6F 20 66 69 6C 65 72 20 o back to filer
0000B0: 6D 65 6E 75 0D 0A 3E 53 54 0D 0A 3E 45 49 20 3B menu..>ST..>EI ;
0000C0: 20 69 64 20 64 66 0D 0A 3E 3E 3E 3E 3E 3E 3E 3E id df..>>>>>>>>
0000D0: 3E 3E 3E 0D 0A 3E 3E 3E 20 4C 61 62 65 6C 20 70 >>>..>>> Label p
0000E0: 72 69 6E 74 65 72 20 28 33 20 61 63 72 6F 73 73 rinter (3 across
0000F0: 29 20 28 63 29 20 41 72 6E 6F 72 20 31 39 38 38 ) (c) Arnor 1988
000100: 0D 0A 3E 3E 3E 0D 0A 3E 49 55 20 6C 6D 0D 0A 3E ..>>>..>IU lm..>
000110: 53 56 20 67 74 3D 22 3E 22 0D 0A 3E 53 56 20 64 SV gt=">"..>SV d
000120: 61 73 68 65 73 38 30 3D 22 2D 2D 2D 2D 2D 2D 2D ashes80="-------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 3E 43 53 0D ---------"..>CS.
000180: 0A 3E 44 4D 20 22 20 22 0D 0A 3E 44 4D 20 50 52 .>DM " "..>DM PR
000190: 4F 54 45 58 54 20 6C 61 62 65 6C 20 70 72 69 6E OTEXT label prin
0001A0: 74 69 6E 67 20 70 72 6F 67 72 61 6D 20 28 33 20 ting program (3
0001B0: 61 63 72 6F 73 73 29 0D 0A 3E 44 4D 20 22 20 22 across)..>DM " "
0001C0: 0D 0A 3E 41 56 20 22 4E 75 6D 62 65 72 20 6F 66 ..>AV "Number of
0001D0: 20 6C 69 6E 65 73 20 70 65 72 20 6C 61 62 65 6C lines per label
0001E0: 20 5B 26 64 65 66 70 6C 26 5D 3A 20 22 20 6E 0D [&defpl&]: " n.
0001F0: 0A 3E 53 56 20 70 6C 3D 64 65 66 70 6C 0D 0A 3E .>SV pl=defpl..>
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000010: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000020: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000030: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000040: 2D 2D 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 5B ---R..>if title[
000050: 31 5D 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 49 1]="i"..>sv s='I
000060: 4E 56 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 09 NVOICE.&number&.
000070: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&..&due&.&a
000080: 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 0&'..>el..>sv du
000090: 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 e=0-due..>sv s='
0000A0: 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 CREDIT.&number&.
0000B0: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&..&due&.&a
0000C0: 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 0&'..>ei..>id cp
0000D0: 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 m..>sv s=s+"
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E "..>
000120: 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 sv s=s+"
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 "..>sv s
000170: 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A =s[1:126]..>ei..
000180: 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A >wm '&s&'..>wc..
000190: 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D >wf om.x..>if x=
0001A0: 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E "s"..>wm "ps &fn
0001B0: 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B &|13|; Press a k
0001C0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C ey to continue:|
0001D0: 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 13|pause|13|load
0001E0: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
0001F0: 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C el..>wm "p &fn&|
Size : 512 (Real : 512)
000000: 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 56 20 IF n <> ""..>SV
000010: 70 6C 3D 6E 0D 0A 3E 45 49 0D 0A 3E 41 56 20 22 pl=n..>EI..>AV "
000020: 20 20 20 20 20 20 20 20 20 57 69 64 74 68 20 6F Width o
000030: 66 20 6C 61 62 65 6C 73 20 5B 26 64 65 66 6C 77 f labels [&deflw
000040: 26 5D 3A 20 22 20 6E 0D 0A 3E 53 56 20 6C 77 3D &]: " n..>SV lw=
000050: 64 65 66 6C 77 0D 0A 3E 49 46 20 6E 20 3C 3E 20 deflw..>IF n <>
000060: 22 22 0D 0A 3E 53 56 20 6C 77 3D 6E 0D 0A 3E 45 ""..>SV lw=n..>E
000070: 49 0D 0A 3E 41 56 20 22 20 20 20 20 20 20 20 20 I..>AV "
000080: 20 20 20 20 20 20 4C 65 66 74 20 6D 61 72 67 69 Left margi
000090: 6E 20 5B 26 64 65 66 6C 6D 26 5D 3A 20 22 20 6E n [&deflm&]: " n
0000A0: 0D 0A 3E 53 56 20 6C 6D 3D 64 65 66 6C 6D 0D 0A ..>SV lm=deflm..
0000B0: 3E 49 46 20 6E 20 3C 3E 20 22 22 0D 0A 3E 53 56 >IF n <> ""..>SV
0000C0: 20 6C 6D 3D 6E 0D 0A 3E 45 49 0D 0A 3E 53 56 20 lm=n..>EI..>SV
0000D0: 72 75 6C 65 72 31 3D 64 61 73 68 65 73 38 30 5B ruler1=dashes80[
0000E0: 32 3A 26 6C 77 26 5D 0D 0A 3E 53 56 20 72 75 6C 2:&lw&]..>SV rul
0000F0: 65 72 32 3D 64 61 73 68 65 73 38 30 5B 32 3A 26 er2=dashes80[2:&
000100: 6C 77 26 5D 0D 0A 3E 53 56 20 72 75 6C 65 72 33 lw&]..>SV ruler3
000110: 3D 64 61 73 68 65 73 38 30 5B 31 3A 26 6C 77 26 =dashes80[1:&lw&
000120: 5D 0D 0A 3E 45 49 20 3B 20 69 75 20 6C 6D 0D 0A ]..>EI ; iu lm..
000130: 3E 3E 3E 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 >>>..>>> Common
000140: 63 6F 64 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 code for mail me
000150: 72 67 65 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E rge templates..>
000160: 69 75 20 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 iu df..>df fm.mu
000170: 73 0D 0A 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D s..>rv mus..>cf.
000180: 0A 3E 69 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 .>in fm$pfi$..>s
000190: 76 20 66 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D v fv=fv[1] rlen=
0001A0: 72 6C 65 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 rlen[w1]..>if fv
0001B0: 3D 22 66 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D ="f"..>sv flist=
0001C0: 22 3E 72 75 22 20 67 6C 69 73 74 3D 22 3E 72 75 ">ru" glist=">ru
0001D0: 22 20 68 6C 69 73 74 3D 22 3E 72 75 22 0D 0A 3E " hlist=">ru"..>
0001E0: 65 6C 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E el..>sv flist=">
0001F0: 72 76 22 20 67 6C 69 73 74 3D 22 3E 72 76 22 20 rv" glist=">rv"
Size : 512 (Real : 512)
000000: 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 13|load omenu|13
000010: 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A |ps"..>ei..>wc..
000020: 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D >cf..>ex exec om
000030: 2E 78 0D 0A 3E 73 74 0D 0A 1A 0D 0A 3E 3E 3E 0D .x..>st.....>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 0&'..>el..>sv du
000090: 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 e=0-due..>sv s='
0000A0: 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 CREDIT.&number&.
0000B0: 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 &date&..&due&.&a
0000C0: 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 0&'..>ei..>id cp
0000D0: 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 m..>sv s=s+"
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E "..>
000120: 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 sv s=s+"
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 "..>sv s
000170: 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A =s[1:126]..>ei..
000180: 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A >wm '&s&'..>wc..
000190: 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D >wf om.x..>if x=
0001A0: 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E "s"..>wm "ps &fn
0001B0: 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B &|13|; Press a k
0001C0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C ey to continue:|
0001D0: 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 13|pause|13|load
0001E0: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E omenu|13|ps"..>
0001F0: 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C el..>wm "p &fn&|
Size : 512 (Real : 512)
000000: 68 6C 69 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 hlist=">rv"..>ei
000010: 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A ..>sv n=0..>rp..
000020: 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 >sv n=n+1 n=n[w1
000030: 5D 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 66 6C 69 ]..>sv flist=fli
000040: 73 74 2B 22 20 66 26 6E 26 22 0D 0A 3E 73 76 20 st+" f&n&"..>sv
000050: 67 6C 69 73 74 3D 67 6C 69 73 74 2B 22 20 67 26 glist=glist+" g&
000060: 6E 26 22 0D 0A 3E 73 76 20 68 6C 69 73 74 3D 68 n&"..>sv hlist=h
000070: 6C 69 73 74 2B 22 20 68 26 6E 26 22 0D 0A 3E 75 list+" h&n&"..>u
000080: 6E 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 n n>=rlen..>>> s
000090: 6F 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 ort out which da
0000A0: 74 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D tafile to use (m
0000B0: 61 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 ain/update/selec
0000C0: 74 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 tion)..>if mus="
0000D0: 6D 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 m"..>sv f=df..>e
0000E0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A i..>if mus="u"..
0000F0: 3E 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E >sv f=newfile..>
000100: 65 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D ei..>if mus="s".
000110: 0A 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A .>sv f=selfile..
000120: 3E 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 >ei..>df &f& fo$
000130: 65 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 75 20 64 end$..>ei ; iu d
000140: 66 0D 0A 3E 3E 3E 0D 0A 1A 0D 0A 3E 53 4D 20 26 f..>>>.....>SM &
000150: 6C 6D 26 0D 0A 3E 46 46 20 4F 46 46 0D 0A 3E 52 lm&..>FF OFF..>R
000160: 50 20 3B 20 46 6F 72 65 76 65 72 0D 0A 26 66 6C P ; Forever..&fl
000170: 69 73 74 26 0D 0A 26 67 6C 69 73 74 26 0D 0A 26 ist&..&glist&..&
000180: 0D 0A 3E 72 70 0D 0A 3E 73 76 20 66 76 3D 22 46 ..>rp..>sv fv="F
000190: 69 78 65 64 22 0D 0A 3E 61 76 20 22 4E 75 6D 62 ixed"..>av "Numb
0001A0: 65 72 20 6F 66 20 66 69 65 6C 64 73 3A 20 22 20 er of fields: "
0001B0: 72 6C 65 6E 0D 0A 3E 73 76 20 66 73 6F 72 74 6F rlen..>sv fsorto
0001C0: 70 74 73 3D 22 2F 66 26 72 6C 65 6E 26 22 0D 0A pts="/f&rlen&"..
0001D0: 3E 75 6E 20 72 6C 65 6E 3E 3D 22 32 22 0D 0A 3E >un rlen>="2"..>
0001E0: 64 6D 20 22 20 22 0D 0A 3E 72 70 0D 0A 3E 61 76 dm " "..>rp..>av
0001F0: 20 22 49 73 20 74 68 65 20 6C 61 73 74 20 66 69 "Is the last fi
Size : 512 (Real : 512)
000000: 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 fn&|13|; Press a
000010: 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 key to continue
000020: 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F :|13|pause|13|lo
000030: 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 7C 31 ad omenu|13|ps|1
000040: 33 7C 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 6C 6F 3|..>el..>wm "lo
000050: 61 64 20 26 66 6E 26 7C 31 33 7C 64 6F 63 7C 31 ad &fn&|13|doc|1
000060: 33 7C 7C 37 36 36 7C 70 7C 31 33 7C 6C 6F 61 64 3||766|p|13|load
000070: 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 7C 31 33 7C omenu|13|ps|13|
000080: 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 0D ..>ei..>wc..>cf.
000090: 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 0D 0A .>ex exec om.x..
0000A0: 1A 29 20 41 72 6E 6F 72 20 31 39 38 38 0D 0A 3E .) Arnor 1988..>
0000B0: 64 6D 22 20 0D 0A 3E 73 76 20 73 79 73 5F 76 65 dm" ..>sv sys_ve
0000C0: 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 66 20 73 r=sys_ver..>if s
0000D0: 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 76 20 63 ys_ver=""..>sv c
0000E0: 70 6D 3D 31 20 66 69 6C 65 64 61 74 65 3D 31 0D pm=1 filedate=1.
0000F0: 0A 3E 65 69 0D 0A 3E 69 75 20 63 70 6D 0D 0A 3E .>ei..>iu cpm..>
000100: 75 72 65 20 69 6E 20 74 68 65 20 27 42 41 4C 41 ure in the 'BALA
000110: 4E 43 45 27 20 63 6F 6C 75 6D 6E 0D 0A 3E 65 69 NCE' column..>ei
000120: 0D 0A 21 73 63 21 45 2E 20 26 20 4F 2E 45 2E 0D ..!sc!E. & O.E..
000130: 0A 3E 69 66 20 70 72 63 6F 6E 3D 22 79 22 0D 0A .>if prcon="y"..
000140: 21 73 63 21 56 41 54 20 72 65 67 2E 20 6E 6F 2E !sc!VAT reg. no.
000150: 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A &vatnum&..>ei..
000160: 3E 69 66 69 63 5B 32 5D 3D 22 22 0D 0A 3E 70 61 >ific[2]=""..>pa
000170: 0D 0A 3E 65 69 0D 0A 3E 69 66 69 63 5B 32 5D 3C ..>ei..>ific[2]<
000180: 3E 22 66 22 0D 0A 3E 65 78 20 65 78 65 63 20 6F >"f"..>ex exec o
000190: 6D 0D 0A 3E 73 74 0D 0A 3E 65 69 0D 0A 3E 73 76 m..>st..>ei..>sv
0001A0: 66 6E 3D 69 63 5B 77 32 5D 2B 22 2E 70 6F 73 22 fn=ic[w2]+".pos"
0001B0: 0D 0A 3E 61 76 22 53 65 6E 64 20 74 6F 20 70 72 ..>av"Send to pr
0001C0: 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 inter or screen
0001D0: 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 77 (P/s)? " x 1..>w
0001E0: 63 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 c..>wf om.x..>if
0001F0: 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 x="s"..>wm "ps &
Size : 512 (Real : 512)
000000: 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 68 65 61 64 65 >>> Common heade
000010: 72 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 r for mail merge
000020: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 49 44 20 templates..>ID
000030: 64 66 0D 0A 26 66 6C 69 73 74 26 0D 0A 3E 49 46 df..&flist&..>IF
000040: 20 66 31 3C 3E 22 65 6E 64 22 0D 0A 3E 3E 3E 20 f1<>"end"..>>>
000050: 53 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 4D 41 START OF MAIN MA
000060: 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 4F 4E IL MERGE SECTION
000070: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
000080: 3E 3E 26 66 32 26 20 3B 20 70 68 6F 6E 65 0D 0A >>&f2& ; phone..
000090: 26 66 33 26 0D 0A 26 66 34 26 0D 0A 26 66 35 26 &f3&..&f4&..&f5&
0000A0: 0D 0A 26 66 36 26 0D 0A 26 66 37 26 0D 0A 0D 0A ..&f6&..&f7&....
0000B0: 44 65 61 72 20 43 75 73 74 6F 6D 65 72 0D 0A 0D Dear Customer...
0000C0: 0A 54 68 61 6E 6B 20 79 6F 75 20 66 6F 72 20 79 .Thank you for y
0000D0: 6F 75 72 20 69 6E 74 65 72 65 73 74 20 69 6E 20 our interest in
0000E0: 6F 75 72 20 72 61 6E 67 65 20 6F 66 20 70 72 6F our range of pro
0000F0: 64 75 63 74 73 2E 20 57 65 20 68 61 76 65 20 70 ducts. We have p
000100: 6C 65 61 73 75 72 65 20 0D 8A 69 6E 20 65 6E 63 leasure ..in enc
000110: 6C 6F 73 69 6E 67 20 74 68 65 20 69 6E 66 6F 72 losing the infor
000120: 6D 61 74 69 6F 6E 20 72 65 71 75 65 73 74 65 64 mation requested
000130: 2E 0D 0A 0D 0A 0D 0A 59 6F 75 72 73 20 46 61 69 .......Yours Fai
000140: 74 68 66 75 6C 6C 79 0D 0A 0D 0A 3E 3E 3E 0D 0A thfully....>>>..
000150: 3E 3E 3E 20 45 4E 44 20 4F 46 20 4D 41 49 4E 20 >>> END OF MAIN
000160: 4D 41 49 4C 20 4D 45 52 47 45 20 53 45 43 54 49 MAIL MERGE SECTI
000170: 4F 4E 0D 0A 3E 50 41 0D 0A 3E 53 4B 20 30 3D 30 ON..>PA..>SK 0=0
000180: 20 20 20 20 20 20 20 20 3B 20 63 6F 6E 74 69 6E ; contin
000190: 75 65 20 66 72 6F 6D 20 74 6F 70 2C 20 77 69 74 ue from top, wit
0001A0: 68 20 6E 65 78 74 20 64 61 74 61 0D 0A 3E 45 4C h next data..>EL
0001B0: 20 3B 20 66 31 3D 65 6E 64 0D 0A 3E 45 58 20 65 ; f1=end..>EX e
0001C0: 78 65 63 20 66 6D 20 20 20 20 3B 20 66 69 6E 69 xec fm ; fini
0001D0: 73 68 65 64 2C 20 73 6F 20 67 6F 20 62 61 63 6B shed, so go back
0001E0: 20 74 6F 20 66 69 6C 65 72 20 6D 65 6E 75 0D 0A to filer menu..
0001F0: 3E 53 54 0D 0A 3E 45 49 20 3B 20 66 31 0D 0A 3E >ST..>EI ; f1..>
Size : 512 (Real : 512)
000000: 64 75 63 74 20 66 69 6C 65 0D 0A 3E 61 76 20 22 duct file..>av "
000010: 50 72 6F 64 75 63 74 20 63 6F 64 65 3A 20 22 20 Product code: "
000020: 63 6F 64 65 6E 0D 0A 3E 69 66 20 63 6F 64 65 6E coden..>if coden
000030: 3D 22 22 0D 0A 3E 73 76 20 6E 3D 6D 61 78 6E 0D =""..>sv n=maxn.
000040: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
000050: 3E 22 22 0D 0A 3E 61 76 20 22 44 65 73 63 72 69 >""..>av "Descri
000060: 70 74 69 6F 6E 20 3A 20 22 20 64 65 73 63 6E 0D ption : " descn.
000070: 0A 3E 61 76 20 22 51 75 61 6E 74 69 74 79 20 20 .>av "Quantity
000080: 20 20 3A 20 22 20 71 75 61 6E 74 6E 0D 0A 3E 69 : " quantn..>i
000090: 66 20 71 75 61 6E 74 6E 3D 22 22 0D 0A 3E 73 76 f quantn=""..>sv
0000A0: 20 71 75 61 6E 74 6E 3D 22 20 22 0D 0A 3E 65 69 quantn=" "..>ei
0000B0: 0D 0A 3E 69 66 20 71 75 61 6E 74 6E 5B 31 5D 20 ..>if quantn[1]
0000C0: 6E 6F 74 69 6E 20 22 30 31 32 33 34 35 36 37 38 notin "012345678
0000D0: 39 22 0D 0A 3E 64 6D 20 22 4E 6F 74 20 61 20 6E 9"..>dm "Not a n
0000E0: 75 6D 62 65 72 2E 20 50 6C 65 61 73 65 20 72 65 umber. Please re
0000F0: 2D 65 6E 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 -enter"..>sv cod
000100: 65 6E 3D 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D en=""..>ei..>ei.
000110: 0A 3E 69 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A .>if coden<>""..
000120: 3E 61 76 20 22 55 6E 69 74 20 70 72 69 63 65 20 >av "Unit price
000130: 20 20 A3 22 20 75 70 72 69 63 65 0D 0A 3E 69 66 ." uprice..>if
000140: 20 75 70 72 69 63 65 3D 22 22 0D 0A 3E 73 76 20 uprice=""..>sv
000150: 75 70 72 69 63 65 3D 22 20 22 0D 0A 3E 65 69 0D uprice=" "..>ei.
000160: 0A 3E 69 66 20 75 70 72 69 63 65 5B 31 5D 20 6E .>if uprice[1] n
000170: 6F 74 69 6E 20 22 2E 30 31 32 33 34 35 36 37 38 otin ".012345678
000180: 39 22 0D 0A 3E 64 6D 20 22 4D 65 61 6E 69 6E 67 9"..>dm "Meaning
000190: 6C 65 73 73 20 70 72 69 63 65 2E 20 50 6C 65 61 less price. Plea
0001A0: 73 65 20 72 65 2D 65 6E 74 65 72 22 0D 0A 3E 73 se re-enter"..>s
0001B0: 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 65 69 0D v coden=""..>ei.
0001C0: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
0001D0: 3E 22 22 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >""..>if vatreg=
0001E0: 22 79 22 0D 0A 3E 61 76 20 22 56 41 54 20 63 6F "y"..>av "VAT co
0001F0: 64 65 20 28 30 3D 6E 6F 20 56 41 54 29 20 5B 31 de (0=no VAT) [1
Size : 512 (Real : 512)
000000: 45 49 20 3B 20 69 64 20 64 66 0D 0A 3E 3E 3E 0D EI ; id df..>>>.
000010: 0A 3E 63 73 0D 0A 3E 64 6D 20 22 4D 61 69 6C 20 .>cs..>dm "Mail
000020: 6D 65 72 67 69 6E 67 20 2E 2E 2E 0D 0A 3E 3E 3E merging .....>>>
000030: 0D 0A 3E 3E 3E 20 43 6F 6D 6D 6F 6E 20 63 6F 64 ..>>> Common cod
000040: 65 20 66 6F 72 20 6D 61 69 6C 20 6D 65 72 67 65 e for mail merge
000050: 20 74 65 6D 70 6C 61 74 65 73 0D 0A 3E 69 75 20 templates..>iu
000060: 64 66 0D 0A 3E 64 66 20 66 6D 2E 6D 75 73 0D 0A df..>df fm.mus..
000070: 3E 72 76 20 6D 75 73 0D 0A 3E 63 66 0D 0A 3E 69 >rv mus..>cf..>i
000080: 6E 20 66 6D 24 70 66 69 24 0D 0A 3E 73 76 20 66 n fm$pfi$..>sv f
000090: 76 3D 66 76 5B 31 5D 20 72 6C 65 6E 3D 72 6C 65 v=fv[1] rlen=rle
0000A0: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 66 76 3D 22 66 n[w1]..>if fv="f
0000B0: 22 0D 0A 3E 73 76 20 66 6C 69 73 74 3D 22 3E 72 "..>sv flist=">r
0000C0: 75 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 66 6C 69 u"..>el..>sv fli
0000D0: 73 74 3D 22 3E 72 76 22 0D 0A 3E 65 69 0D 0A 3E st=">rv"..>ei..>
0000E0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
0000F0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
000100: 3E 73 76 20 66 6C 69 73 74 20 3D 20 66 6C 69 73 >sv flist = flis
000110: 74 20 2B 20 22 20 66 26 6E 26 22 0D 0A 3E 75 6E t + " f&n&"..>un
000120: 20 6E 3E 3D 72 6C 65 6E 0D 0A 3E 3E 3E 20 73 6F n>=rlen..>>> so
000130: 72 74 20 6F 75 74 20 77 68 69 63 68 20 64 61 74 rt out which dat
000140: 61 66 69 6C 65 20 74 6F 20 75 73 65 20 28 6D 61 afile to use (ma
000150: 69 6E 2F 75 70 64 61 74 65 2F 73 65 6C 65 63 74 in/update/select
000160: 69 6F 6E 29 0D 0A 3E 69 66 20 6D 75 73 3D 22 6D ion)..>if mus="m
000170: 22 0D 0A 3E 73 76 20 66 3D 64 66 0D 0A 3E 65 69 "..>sv f=df..>ei
000180: 0D 0A 3E 69 66 20 6D 75 73 3D 22 75 22 0D 0A 3E ..>if mus="u"..>
000190: 73 76 20 66 3D 6E 65 77 66 69 6C 65 0D 0A 3E 65 sv f=newfile..>e
0001A0: 69 0D 0A 3E 69 66 20 6D 75 73 3D 22 73 22 0D 0A i..>if mus="s"..
0001B0: 3E 73 76 20 66 3D 73 65 6C 66 69 6C 65 0D 0A 3E >sv f=selfile..>
0001C0: 65 69 0D 0A 3E 64 66 20 26 66 26 20 66 6F 24 65 ei..>df &f& fo$e
0001D0: 6E 64 24 0D 0A 3E 65 69 20 3B 20 69 64 20 64 66 nd$..>ei ; id df
0001E0: 0D 0A 3E 3E 3E 0D 0A 1A 20 53 45 43 54 49 4F 4E ..>>>... SECTION
0001F0: 0D 0A 3E 3E 3E 0D 0A 0D 0A 26 66 31 26 0D 0A 3E ..>>>....&f1&..>
Size : 512 (Real : 512)
000000: 61 64 64 72 65 73 73 2C 41 2C 70 72 6F 64 75 63 address,A,produc
000010: 74 73 2E 69 6E 66 2C 79 2C 79 0D 0A 30 2E 31 35 ts.inf,y,y..0.15
000020: 2C 30 2E 30 30 2C 30 2E 30 30 2C 30 2E 30 30 2C ,0.00,0.00,0.00,
000030: 30 2E 30 30 2C 32 32 2C 31 38 0D 0A 22 34 30 20 0.00,22,18.."40
000040: 32 35 20 30 22 2C 22 32 35 20 31 30 20 30 22 2C 25 0","25 10 0",
000050: 22 30 20 30 20 30 22 2C 22 30 20 30 20 30 22 2C "0 0 0","0 0 0",
000060: 22 30 20 30 20 30 22 2C 31 32 33 35 37 38 34 0D "0 0 0",1235784.
000070: 0A 79 2C 69 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A .y,i,n,y,y,y,0..
000080: 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 4,12,23,45..5,14
000090: 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D ,18,15,17,9..">-
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
0000D0: 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----L----------
0000E0: 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D -------R"..">---
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
000130: 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D -----R"..">-----
000140: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E ---------------.
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D --------------.-
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
000180: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
0001C0: 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 ---L-------.--R"
0001D0: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 20 6F 6D 2E 78 0D 0A 3E 73 74 0D 0A 1A FF 00 FF om.x..>st......
000010: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
000020: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
000080: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&..&due&.&a0&
000090: 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D '..>ei..>id cpm.
0000A0: 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 .>sv s=s+"
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
0000F0: 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 s=s+"
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 "..>sv s=s
000140: 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 [1:126]..>ei..>w
000150: 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E 65 m '&s&'..>wc..>e
000160: 69 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 i..>wf om.x..>if
000170: 20 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 x="s"..>wm "ps
000180: 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 &fn&|13|; Press
000190: 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 a key to continu
0001A0: 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C e:|13|pause|13|l
0001B0: 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 oad omenu|13|ps"
0001C0: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 ..>el..>wm "p &f
0001D0: 6E 26 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 n&|13|load omenu
0001E0: 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 |13|ps"..>ei..>w
0001F0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 c..>cf..>ex exec
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A ------------R"..
000020: 41 72 6E 6F 72 0D 0A 50 72 6F 74 65 78 74 20 48 Arnor..Protext H
000030: 6F 75 73 65 0D 0A 57 61 69 6E 6D 61 6E 20 52 6F ouse..Wainman Ro
000040: 61 64 0D 0A 50 65 74 65 72 62 6F 72 6F 75 67 68 ad..Peterborough
000050: 0D 0A 50 45 32 20 30 42 55 0D 0A 0D 0A 1A 79 2C ..PE2 0BU.....y,
000060: 69 2C 6E 2C 79 2C 79 2C 79 2C 30 0D 0A 34 2C 31 i,n,y,y,y,0..4,1
000070: 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 2C 31 38 2,23,45..5,14,18
000080: 34 2C 31 32 2C 32 33 2C 34 35 0D 0A 35 2C 31 34 4,12,23,45..5,14
000090: 2C 31 38 2C 31 35 2C 31 37 2C 39 0D 0A 22 3E 2D ,18,15,17,9..">-
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
0000D0: 2D 2D 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----L----------
0000E0: 2D 2D 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D -------R"..">---
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D -----------!----
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ------------!---
000130: 2D 2D 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D -----R"..">-----
000140: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D --------!-------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E ---------------.
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D --------------.-
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D -------------.--
000180: 2D 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D ---R"..">-------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
0001C0: 2D 2D 2D 4C 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 52 22 ---L-------.--R"
0001D0: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 09 20 47 4F 4F 44 53 20 54 4F 54 41 4C 09 A3 09 . GOODS TOTAL...
000010: 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 43 61 72 &tot&..>wm . Car
000020: 72 69 61 67 65 09 A3 09 26 63 61 72 26 0D 0A 3E riage...&car&..>
000030: 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A el..>wm ..>wm ..
000040: 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D >ei..>if vatreg=
000050: 22 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 54 20 54 "y"..>wm . NET T
000060: 4F 54 41 4C 09 A3 09 26 65 78 76 26 0D 0A 3E 77 OTAL...&exv&..>w
000070: 6D 20 09 20 56 41 54 09 A3 09 26 76 61 74 26 0D m . VAT...&vat&.
000080: 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 .>el..>wm ..>wm
000090: 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 41 4D 4F ..>ei..>wm . AMO
0000A0: 55 4E 54 20 44 55 45 09 A3 09 26 64 75 65 26 0D UNT DUE...&due&.
0000B0: 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 77 66 .>wm ..>wm ..>wf
0000C0: 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 on..>
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 0D R.
000110: 0A 26 72 75 6C 65 72 35 26 0D 0A 3E 77 66 6F 66 .&ruler5&..>wfof
000120: 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D 20 6C 69 f..>co bottom li
000130: 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 65 72 65 0D ne comment here.
000140: 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 3E 22 22 .>if footnote>""
000150: 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 ..>>>wf on..>wm
000160: 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E 3E 3E 77 &footnote&..>>>w
000170: 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E 69 66 20 f off..>el..>if
000180: 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A 3E 3E title[1]="i"..>>
000190: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D >wf on..>wm Term
0001A0: 73 3A 20 53 74 72 69 63 74 6C 79 20 33 30 20 44 s: Strictly 30 D
0001B0: 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 66 20 6F ays Net..>>>wf o
0001C0: 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 74 69 74 ff..>ei..>if tit
0001D0: 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E 3E 77 66 le[1]="c"..>>>wf
0001E0: 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 on..>wm Terms:
0001F0: 54 68 69 73 20 61 6D 6F 75 6E 74 20 68 61 73 20 This amount has
Size : 512 (Real : 512)
000000: 0D 0A 3E 77 66 20 6F 66 66 0D 0A 3E 73 76 20 63 ..>wf off..>sv c
000010: 61 72 3D 63 61 72 2B 30 0D 0A 3E 73 76 20 65 78 ar=car+0..>sv ex
000020: 76 3D 74 6F 74 2B 63 61 72 0D 0A 3E 3E 3E 77 66 v=tot+car..>>>wf
000030: 20 6F 6E 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D on..>if askcar=
000040: 22 79 22 0D 0A 3E 77 6D 20 09 20 47 4F 4F 44 53 "y"..>wm . GOODS
000050: 20 54 4F 54 41 4C 09 A3 09 26 74 6F 74 26 0D 0A TOTAL...&tot&..
000060: 3E 77 6D 20 09 20 43 61 72 72 69 61 67 65 09 A3 >wm . Carriage..
000070: 09 26 63 61 72 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D .&car&..>el..>wm
000080: 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 ..>wm ..>ei..>i
000090: 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 77 f vatreg="y"..>w
0000A0: 6D 20 09 20 4E 45 54 20 54 4F 54 41 4C 09 A3 09 m . NET TOTAL...
0000B0: 26 65 78 76 26 0D 0A 3E 77 6D 20 09 20 56 41 54 &exv&..>wm . VAT
0000C0: 09 A3 09 26 76 61 74 26 0D 0A 3E 65 6C 0D 0A 3E ...&vat&..>el..>
0000D0: 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A wm ..>wm ..>ei..
0000E0: 3E 77 6D 20 09 20 41 4D 4F 55 4E 54 20 44 55 45 >wm . AMOUNT DUE
0000F0: 09 A3 09 26 64 75 65 26 0D 0A 3E 77 6D 20 0D 0A ...&due&..>wm ..
000100: 3E 77 6D 20 0D 0A 3E 20 20 20 20 20 20 20 20 20 >wm ..>
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
000150: 0D 0A 3E 77 66 6F 6E 0D 0A 26 72 75 6C 65 72 35 ..>wfon..&ruler5
000160: 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 63 6F 20 62 &..>wfoff..>co b
000170: 6F 74 74 6F 6D 20 6C 69 6E 65 20 63 6F 6D 6D 65 ottom line comme
000180: 6E 74 20 68 65 72 65 0D 0A 3E 69 66 20 66 6F 6F nt here..>if foo
000190: 74 6E 6F 74 65 3E 22 22 0D 0A 3E 3E 3E 77 66 20 tnote>""..>>>wf
0001A0: 6F 6E 0D 0A 3E 77 6D 20 26 66 6F 6F 74 6E 6F 74 on..>wm &footnot
0001B0: 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E e&..>>>wf off..>
0001C0: 65 6C 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D el..>if title[1]
0001D0: 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A ="i"..>>>wf on..
0001E0: 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 69 63 >wm Terms: Stric
0001F0: 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 74 0D tly 30 Days Net.
Size : 512 (Real : 512)
000000: 62 65 65 6E 20 63 72 65 64 69 74 65 64 20 74 6F been credited to
000010: 20 79 6F 75 72 20 61 63 63 6F 75 6E 74 0D 0A 3E your account..>
000020: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E >>wf off..>ei..>
000030: 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 ei..>>>wf on..>w
000040: 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A 3E 69 66 m E. & O.E...>if
000050: 20 70 72 63 6F 6E 61 6D 65 3D 22 79 22 0D 0A 3E prconame="y"..>
000060: 77 6D 20 56 41 54 20 72 65 67 2E 20 6E 6F 2E 20 wm VAT reg. no.
000070: 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 0D 0A 3E &vatnum&..>ei..>
000080: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 0D 0A 3E >>wf off..>wc..>
000090: 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 2B 74 69 sv fn=invpath+ti
0000A0: 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E tle[1]+number+".
0000B0: 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 69 6E 74 poi"..>av "Print
0000C0: 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 72 69 6E invoice to prin
0000D0: 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 28 50 ter or screen (P
0000E0: 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E 69 64 20 /s)? " x 1..>id
0000F0: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 66 6E cpm..>ex ren &fn
000100: 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D &=&invpath&omtem
000110: 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 72 65 6E 66 p..>el..>sv renf
000120: 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 n=title[1]+numbe
000130: 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 65 r+".poi"..>ex re
000140: 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 6D n &invpath&omtem
000150: 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D 0A p &renfn&..>ei..
000160: 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 6E >wf "omsummar.in
000170: 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 2D f" a..>-------!-
000180: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
000190: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
0001A0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D ------!-------!-
0001B0: 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E 69 ------!----R..>i
0001C0: 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D 0A f title[1]="i"..
0001D0: 3E 73 76 20 73 3D 27 49 4E 56 4F 49 43 45 09 26 >sv s='INVOICE.&
0001E0: 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 A3 number&.&date&..
0001F0: 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 6C &due&.&a0&'..>el
Size : 512 (Real : 512)
000000: 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 0D .>>>wf off..>ei.
000010: 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 63 .>if title[1]="c
000020: 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D "..>>>wf on..>wm
000030: 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 6D 6F Terms: This amo
000040: 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 72 65 unt has been cre
000050: 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 61 63 dited to your ac
000060: 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F 66 66 count..>>>wf off
000070: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 ..>ei..>ei..>>>w
000080: 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 20 4F f on..>wm E. & O
000090: 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 6D .E...>if prconam
0000A0: 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 20 72 e="y"..>wm VAT r
0000B0: 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D 26 eg. no. &vatnum&
0000C0: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 66 66 ..>ei..>>>wf off
0000D0: 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D 69 6E ..>wc..>sv fn=in
0000E0: 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D 2B 6E vpath+title[1]+n
0000F0: 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 61 umber+".poi"..>a
000100: 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 63 65 v "Print invoice
000110: 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 73 to printer or s
000120: 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 78 creen (P/s)? " x
000130: 20 31 0D 0A 3E 65 78 20 65 72 61 20 26 66 6E 26 1..>ex era &fn&
000140: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 65 78 20 72 ..>id cpm..>ex r
000150: 65 6E 20 26 66 6E 26 3D 26 69 6E 76 70 61 74 68 en &fn&=&invpath
000160: 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C 0D 0A 3E 73 &omtemp..>el..>s
000170: 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 5B 31 5D v renfn=title[1]
000180: 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A +number+".poi"..
000190: 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 61 74 68 >ex ren &invpath
0001A0: 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 6E 26 0D &omtemp &renfn&.
0001B0: 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D 73 75 6D .>ei..>wf "omsum
0001C0: 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E 2D 2D 2D mar.inf" a..>---
0001D0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
0001E0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
0001F0: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
Size : 512 (Real : 512)
000000: 0D 0A 3E 73 76 20 64 75 65 3D 30 2D 64 75 65 0D ..>sv due=0-due.
000010: 0A 3E 73 76 20 73 3D 27 43 52 45 44 49 54 09 26 .>sv s='CREDIT.&
000020: 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 A3 number&.&date&..
000030: 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 69 &due&.&a0&'..>ei
000040: 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 76 20 73 ..>id cpm..>sv s
000050: 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 20 =s+"
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 2B 22 "..>sv s=s+"
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A 31 32 36 "..>sv s=s[1:126
0000F0: 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 27 26 73 26 ]..>ei..>wm '&s&
000100: 27 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 66 '..>wc..>ei..>wf
000110: 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 73 22 om.x..>if x="s"
000120: 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C 31 ..>wm "ps &fn&|1
000130: 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 20 3|; Press a key
000140: 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 7C to continue:|13|
000150: 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F 6D pause|13|load om
000160: 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C 0D enu|13|ps"..>el.
000170: 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 33 7C .>wm "p &fn&|13|
000180: 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 load omenu|13|ps
000190: 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 66 "..>ei..>wc..>cf
0001A0: 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 0D ..>ex exec om.x.
0001B0: 0A 3E 73 74 0D 0A 1A 3E 3E 3E 0D 0A 3E 3E 3E 0D .>st...>>>..>>>.
0001C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
0001D0: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
0001E0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
0001F0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D ----!-------!---
000010: 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D -R..>if title[1]
000020: 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 49 4E 56 ="i"..>sv s='INV
000030: 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 09 26 64 OICE.&number&.&d
000040: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&..&due&.&a0&
000050: 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 75 65 3D '..>el..>sv due=
000060: 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D 27 43 52 0-due..>sv s='CR
000070: 45 44 49 54 09 26 6E 75 6D 62 65 72 26 09 26 64 EDIT.&number&.&d
000080: 61 74 65 26 09 A3 26 64 75 65 26 09 26 61 30 26 ate&..&due&.&a0&
000090: 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 70 6D 0D '..>ei..>id cpm.
0000A0: 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 .>sv s=s+"
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 "..>sv
0000F0: 20 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 s=s+"
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 "..>sv s=s
000140: 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 [1:126]..>ei..>w
000150: 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D 0A 3E 65 m '&s&'..>wc..>e
000160: 69 0D 0A 3E 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 i..>wf om.x..>if
000170: 20 78 3D 22 73 22 0D 0A 3E 77 6D 20 22 70 73 20 x="s"..>wm "ps
000180: 26 66 6E 26 7C 31 33 7C 3B 20 50 72 65 73 73 20 &fn&|13|; Press
000190: 61 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 a key to continu
0001A0: 65 3A 7C 31 33 7C 70 61 75 73 65 7C 31 33 7C 6C e:|13|pause|13|l
0001B0: 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 oad omenu|13|ps"
0001C0: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 ..>el..>wm "p &f
0001D0: 6E 26 7C 31 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 n&|13|load omenu
0001E0: 7C 31 33 7C 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 |13|ps"..>ei..>w
0001F0: 63 0D 0A 3E 63 66 0D 0A 3E 65 78 20 65 78 65 63 c..>cf..>ex exec
Size : 512 (Real : 512)
000000: 6C 69 6E 65 2D 63 61 6C 69 6E 65 2D 36 0D 0A 3E line-caline-6..>
000010: 72 70 0D 0A 3E 77 6D 0D 0A 3E 73 76 20 6E 3D 6E rp..>wm..>sv n=n
000020: 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 77 6D -1..>un n=0..>wm
000030: 20 21 61 30 21 0D 0A 3E 77 6D 20 21 61 31 21 0D !a0!..>wm !a1!.
000040: 0A 3E 77 6D 20 21 61 32 21 0D 0A 3E 77 6D 20 21 .>wm !a2!..>wm !
000050: 61 33 21 09 EC 26 54 49 54 4C 45 26 EC 0D 0A 3E a3!..&TITLE&...>
000060: 77 6D 20 21 61 34 21 09 0D 0A 3E 77 6D 20 21 61 wm !a4!...>wm !a
000070: 35 21 09 4E 75 6D 62 65 72 20 20 20 20 20 26 6E 5!.Number &n
000080: 75 6D 62 65 72 26 0D 0A 3E 77 6D 20 21 61 36 21 umber&..>wm !a6!
000090: 09 44 61 74 65 20 20 20 20 20 20 20 26 64 61 74 .Date &dat
0000A0: 65 26 0D 0A 3E 77 6D 20 21 61 37 21 09 4F 72 64 e&..>wm !a7!.Ord
0000B0: 65 72 20 52 65 66 20 20 26 72 65 66 26 0D 0A 3E er Ref &ref&..>
0000C0: 3E 3E 20 67 6F 74 6F 20 6C 69 6E 65 20 26 74 6C >> goto line &tl
0000D0: 69 6E 65 26 0D 0A 3E 73 76 20 6E 3D 74 6C 69 6E ine&..>sv n=tlin
0000E0: 65 2D 61 6C 69 6E 65 2D 38 0D 0A 3E 72 70 0D 0A e-aline-8..>rp..
0000F0: 3E 77 6D 20 0D 0A 3E 73 76 20 6E 3D 6E 2D 31 0D >wm ..>sv n=n-1.
000100: 0A 3E 75 6E 20 6E 3D 30 0D 0A 3E 77 66 6F 6E 0D .>un n=0..>wfon.
000110: 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 21 .> !
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000140: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000150: 20 21 20 20 20 20 20 20 20 20 52 0D 0A 26 72 75 ! R..&ru
000160: 6C 65 72 32 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E ler2&..>wfoff..>
000170: 77 6D 20 43 4F 44 45 09 44 45 53 43 52 49 50 54 wm CODE.DESCRIPT
000180: 49 4F 4E 09 51 55 41 4E 54 49 54 59 09 55 4E 49 ION.QUANTITY.UNI
000190: 54 20 50 52 49 43 45 09 54 4F 54 41 4C 0D 0A 3E T PRICE.TOTAL..>
0001A0: 77 66 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 wfon..>
0001B0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0001C0: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
0001D0: 20 20 20 20 20 20 20 20 20 20 2E 20 20 20 20 20 .
0001E0: 20 20 20 20 20 20 20 20 20 2E 20 20 20 20 20 52 . R
0001F0: 0D 0A 26 72 75 6C 65 72 33 26 0D 0A 3E 77 66 6F ..&ruler3&..>wfo
Size : 512 (Real : 512)
000000: 61 72 2A 76 61 74 63 66 31 20 20 20 3B 20 63 61 ar*vatcf1 ; ca
000010: 72 72 69 61 67 65 20 63 68 61 72 67 65 64 20 61 rriage charged a
000020: 74 20 56 41 54 20 72 61 74 65 20 31 0D 0A 3E 72 t VAT rate 1..>r
000030: 70 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D 22 p..>if useprod="
000040: 79 22 0D 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D y"..>sv n=n+1 n=
000050: 6E 5B 77 31 5D 0D 0A 3E 69 66 20 71 75 61 6E 74 n[w1]..>if quant
000060: 26 6E 26 20 3D 20 30 0D 0A 3E 73 76 20 63 6F 64 &n& = 0..>sv cod
000070: 65 6E 3D 22 22 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 en=""..>el..>sv
000080: 64 65 73 63 6E 3D 64 65 73 63 26 6E 26 5B 31 3A descn=desc&n&[1:
000090: 26 64 65 73 63 77 69 64 74 68 26 5D 0D 0A 3E 73 &descwidth&]..>s
0000A0: 76 20 63 6F 64 65 6E 3D 63 6F 64 65 26 6E 26 0D v coden=code&n&.
0000B0: 0A 3E 73 76 20 71 75 61 6E 74 6E 3D 71 75 61 6E .>sv quantn=quan
0000C0: 74 26 6E 26 5B 77 31 5D 0D 0A 3E 73 76 20 70 72 t&n&[w1]..>sv pr
0000D0: 69 63 65 6E 3D 70 72 69 63 65 26 6E 26 0D 0A 3E icen=price&n&..>
0000E0: 73 76 20 76 72 3D 70 72 6F 64 76 61 74 26 6E 26 sv vr=prodvat&n&
0000F0: 0D 0A 3E 69 66 20 63 75 73 74 64 69 73 63 3D 30 ..>if custdisc=0
000100: 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D 31 ..>sv discount=1
000110: 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 70 72 6F 64 64 ..>el..>sv prodd
000120: 69 73 63 6E 3D 70 72 6F 64 64 69 73 63 26 6E 26 iscn=proddisc&n&
000130: 0D 0A 3E 73 76 20 64 69 73 63 6F 75 6E 74 3D 64 ..>sv discount=d
000140: 69 73 63 26 63 75 73 74 64 69 73 63 26 5B 77 26 isc&custdisc&[w&
000150: 70 72 6F 64 64 69 73 63 6E 26 5D 0D 0A 3E 73 76 proddiscn&]..>sv
000160: 20 64 69 73 63 6F 75 6E 74 3D 64 69 73 63 6F 75 discount=discou
000170: 6E 74 2F 31 30 30 20 64 69 73 63 6F 75 6E 74 3D nt/100 discount=
000180: 31 2D 64 69 73 63 6F 75 6E 74 0D 0A 3E 65 69 0D 1-discount..>ei.
000190: 0A 3E 73 76 20 75 70 72 69 63 65 3D 70 72 69 63 .>sv uprice=pric
0001A0: 65 6E 2A 64 69 73 63 6F 75 6E 74 0D 0A 3E 73 76 en*discount..>sv
0001B0: 20 70 72 69 63 65 3D 71 75 61 6E 74 6E 2A 75 70 price=quantn*up
0001C0: 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 65 6C 20 20 rice..>ei..>el
0001D0: 3B 20 6E 6F 20 70 72 6F 64 75 63 74 20 66 69 6C ; no product fil
0001E0: 65 0D 0A 3E 61 76 20 22 50 72 6F 64 75 63 74 20 e..>av "Product
0001F0: 63 6F 64 65 3A 20 22 20 63 6F 64 65 6E 0D 0A 3E code: " coden..>
Size : 512 (Real : 512)
000000: 20 22 43 61 72 72 69 61 67 65 3A 20 22 2C 63 61 "Carriage: ",ca
000010: 72 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 61 72 3D r..>ei..>if car=
000020: 22 22 0D 0A 3E 73 76 20 63 61 72 3D 30 0D 0A 3E ""..>sv car=0..>
000030: 65 69 0D 0A 3E 73 76 20 66 6F 6F 74 6E 6F 74 65 ei..>sv footnote
000040: 3D 22 22 0D 0A 3E 69 66 20 61 73 6B 66 6E 3D 22 =""..>if askfn="
000050: 79 22 0D 0A 3E 61 76 20 22 46 6F 6F 74 6E 6F 74 y"..>av "Footnot
000060: 65 3A 20 22 2C 66 6F 6F 74 6E 6F 74 65 0D 0A 3E e: ",footnote..>
000070: 65 69 0D 0A 3E 69 66 20 76 61 74 72 65 67 3D 22 ei..>if vatreg="
000080: 6E 22 0D 0A 3E 73 76 20 76 61 74 3F 3D 22 6E 22 n"..>sv vat?="n"
000090: 0D 0A 3E 65 6C 0D 0A 3E 72 70 0D 0A 3E 61 76 20 ..>el..>rp..>av
0000A0: 22 49 73 20 56 41 54 20 63 68 61 72 67 65 61 62 "Is VAT chargeab
0000B0: 6C 65 20 28 59 2F 6E 29 3F 20 22 20 76 61 74 3F le (Y/n)? " vat?
0000C0: 20 31 0D 0A 3E 69 66 20 76 61 74 3F 3D 22 22 0D 1..>if vat?="".
0000D0: 0A 3E 73 76 20 76 61 74 3F 3D 22 79 22 0D 0A 3E .>sv vat?="y"..>
0000E0: 65 69 0D 0A 3E 75 6E 20 76 61 74 3F 20 69 6E 20 ei..>un vat? in
0000F0: 22 79 6E 22 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D 0A "yn"..>ei..>>>..
000100: 3E 3E 3E 20 61 73 6B 20 66 6F 72 20 6F 72 64 65 >>> ask for orde
000110: 72 20 6C 65 76 65 6C 73 20 66 72 6F 6D 20 6B 65 r levels from ke
000120: 79 62 6F 61 72 64 0D 0A 3E 3E 3E 0D 0A 3E 69 66 yboard..>>>..>if
000130: 20 75 73 65 70 72 6F 64 3D 22 79 22 0D 0A 3E 64 useprod="y"..>d
000140: 6D 20 22 20 22 0D 0A 3E 64 6D 20 22 45 6E 74 65 m " "..>dm "Ente
000150: 72 20 71 75 61 6E 74 69 74 69 65 73 20 66 6F 72 r quantities for
000160: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 70 the following p
000170: 72 6F 64 75 63 74 73 22 0D 0A 3E 64 6D 20 22 54 roducts"..>dm "T
000180: 79 70 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 6F yping anything o
000190: 74 68 65 72 20 74 68 61 6E 20 61 20 6E 75 6D 62 ther than a numb
0001A0: 65 72 20 77 69 6C 6C 20 73 6B 69 70 20 61 6C 6C er will skip all
0001B0: 20 72 65 6D 61 69 6E 69 6E 67 20 70 72 6F 64 75 remaining produ
0001C0: 63 74 73 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E cts"..>dm " "..>
0001D0: 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D 0A 3E 73 76 sv n=0..>rp..>sv
0001E0: 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 31 5D 0D 0A n=n+1 n=n[w1]..
0001F0: 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D 22 30 22 >sv quant&n&="0"
Size : 512 (Real : 512)
000000: 69 66 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E 73 76 if coden=""..>sv
000010: 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 69 0D 0A 3E 69 n=maxn..>ei..>i
000020: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 61 76 f coden<>""..>av
000030: 20 22 44 65 73 63 72 69 70 74 69 6F 6E 20 3A 20 "Description :
000040: 22 20 64 65 73 63 6E 0D 0A 3E 61 76 20 22 51 75 " descn..>av "Qu
000050: 61 6E 74 69 74 79 20 20 20 20 3A 20 22 20 71 75 antity : " qu
000060: 61 6E 74 6E 0D 0A 3E 69 66 20 71 75 61 6E 74 6E antn..>if quantn
000070: 3D 22 22 0D 0A 3E 73 76 20 71 75 61 6E 74 6E 3D =""..>sv quantn=
000080: 22 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 71 75 " "..>ei..>if qu
000090: 61 6E 74 6E 5B 31 5D 20 6E 6F 74 69 6E 20 22 30 antn[1] notin "0
0000A0: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 123456789"..>dm
0000B0: 22 4E 6F 74 20 61 20 6E 75 6D 62 65 72 2E 20 50 "Not a number. P
0000C0: 6C 65 61 73 65 20 72 65 2D 65 6E 74 65 72 22 0D lease re-enter".
0000D0: 0A 3E 73 76 20 63 6F 64 65 6E 3D 22 22 0D 0A 3E .>sv coden=""..>
0000E0: 65 69 0D 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 ei..>ei..>if cod
0000F0: 65 6E 3C 3E 22 22 0D 0A 3E 61 76 20 22 55 6E 69 en<>""..>av "Uni
000100: 74 20 70 72 69 63 65 20 20 20 A3 22 20 75 70 72 t price ." upr
000110: 69 63 65 0D 0A 3E 69 66 20 75 70 72 69 63 65 3D ice..>if uprice=
000120: 22 22 0D 0A 3E 73 76 20 75 70 72 69 63 65 3D 22 ""..>sv uprice="
000130: 20 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 75 70 72 "..>ei..>if upr
000140: 69 63 65 5B 31 5D 20 6E 6F 74 69 6E 20 22 2E 30 ice[1] notin ".0
000150: 31 32 33 34 35 36 37 38 39 22 0D 0A 3E 64 6D 20 123456789"..>dm
000160: 22 4D 65 61 6E 69 6E 67 6C 65 73 73 20 70 72 69 "Meaningless pri
000170: 63 65 2E 20 50 6C 65 61 73 65 20 72 65 2D 65 6E ce. Please re-en
000180: 74 65 72 22 0D 0A 3E 73 76 20 63 6F 64 65 6E 3D ter"..>sv coden=
000190: 22 22 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 69 ""..>ei..>ei..>i
0001A0: 66 20 63 6F 64 65 6E 3C 3E 22 22 0D 0A 3E 69 66 f coden<>""..>if
0001B0: 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 61 76 vatreg="y"..>av
0001C0: 20 22 56 41 54 20 63 6F 64 65 20 28 30 3D 6E 6F "VAT code (0=no
0001D0: 20 56 41 54 29 20 5B 31 5D 3A 20 22 20 76 72 20 VAT) [1]: " vr
0001E0: 31 0D 0A 3E 69 66 20 76 72 20 6E 6F 74 69 6E 20 1..>if vr notin
0001F0: 22 30 31 32 33 34 35 22 0D 0A 3E 73 76 20 76 72 "012345"..>sv vr
Size : 512 (Real : 512)
000000: 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 3E ..>un n=maxn..>>
000010: 3E 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E 72 70 0D >..>sv n=0..>rp.
000020: 0A 3E 73 76 20 6E 3D 6E 2B 31 20 6E 3D 6E 5B 77 .>sv n=n+1 n=n[w
000030: 31 5D 0D 0A 3E 73 76 20 70 72 6F 6D 70 74 3D 64 1]..>sv prompt=d
000040: 65 73 63 26 6E 26 0D 0A 3E 69 66 20 70 72 6F 6D esc&n&..>if prom
000050: 70 74 5B 32 35 5D 3D 22 22 0D 0A 3E 73 76 20 70 pt[25]=""..>sv p
000060: 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 2B 22 20 20 rompt=prompt+"
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 "..>sv
000090: 70 72 6F 6D 70 74 3D 70 72 6F 6D 70 74 5B 31 3A prompt=prompt[1:
0000A0: 32 35 5D 0D 0A 3E 65 69 0D 0A 3E 61 76 20 22 26 25]..>ei..>av "&
0000B0: 70 72 6F 6D 70 74 26 20 3A 20 22 20 71 75 61 6E prompt& : " quan
0000C0: 74 26 6E 26 0D 0A 3E 73 76 20 78 3D 71 75 61 6E t&n&..>sv x=quan
0000D0: 74 26 6E 26 5B 31 5D 0D 0A 3E 69 66 20 78 20 6E t&n&[1]..>if x n
0000E0: 6F 74 69 6E 20 22 30 31 32 33 34 35 36 37 38 39 otin "0123456789
0000F0: 22 0D 0A 3E 73 76 20 71 75 61 6E 74 26 6E 26 3D "..>sv quant&n&=
000100: 22 30 22 0D 0A 3E 73 76 20 6E 3D 6D 61 78 6E 20 "0"..>sv n=maxn
000110: 6E 3D 6E 5B 77 31 5D 0D 0A 3E 65 6C 0D 0A 3E 73 n=n[w1]..>el..>s
000120: 76 20 71 75 61 6E 74 26 6E 26 3D 71 75 61 6E 74 v quant&n&=quant
000130: 26 6E 26 2B 30 0D 0A 3E 65 69 0D 0A 3E 69 66 20 &n&+0..>ei..>if
000140: 6E 3D 6D 61 78 6E 0D 0A 3E 64 6D 20 22 20 22 0D n=maxn..>dm " ".
000150: 0A 3E 61 76 20 22 52 65 2D 65 6E 74 65 72 20 6F .>av "Re-enter o
000160: 72 64 65 72 20 28 79 2F 4E 29 3F 20 22 20 79 65 rder (y/N)? " ye
000170: 73 6E 6F 20 31 0D 0A 3E 69 66 20 79 65 73 6E 6F sno 1..>if yesno
000180: 3D 22 79 22 0D 0A 3E 73 76 20 6E 3D 30 0D 0A 3E ="y"..>sv n=0..>
000190: 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E 65 69 dm " "..>ei..>ei
0001A0: 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A 3E 65 ..>un n=maxn..>e
0001B0: 69 20 3B 20 75 73 65 70 72 6F 64 3D 22 79 22 0D i ; useprod="y".
0001C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 70 72 69 6E 74 20 .>>>..>>> print
0001D0: 6F 75 74 20 68 65 61 64 69 6E 67 20 61 74 20 74 out heading at t
0001E0: 6F 70 20 6F 66 20 73 68 65 65 74 0D 0A 3E 3E 3E op of sheet..>>>
0001F0: 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 77 66 20 6F ..>dm " "..>wf o
Size : 512 (Real : 512)
000000: 3D 22 31 22 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 ="1"..>ei..>if v
000010: 72 3D 22 22 0D 0A 3E 73 76 20 76 72 3D 22 31 22 r=""..>sv vr="1"
000020: 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 64 6D 20 ..>ei..>ei..>dm
000030: 22 20 22 0D 0A 3E 73 76 20 70 72 69 63 65 6E 3D " "..>sv pricen=
000040: 75 70 72 69 63 65 20 70 72 69 63 65 3D 70 72 69 uprice price=pri
000050: 63 65 6E 2A 71 75 61 6E 74 6E 0D 0A 3E 65 69 0D cen*quantn..>ei.
000060: 0A 3E 65 69 0D 0A 3E 69 66 20 63 6F 64 65 6E 3C .>ei..>if coden<
000070: 3E 22 22 0D 0A 3E 73 76 20 76 61 74 63 66 6E 3D >""..>sv vatcfn=
000080: 76 61 74 63 66 26 76 72 26 0D 0A 3E 69 66 20 76 vatcf&vr&..>if v
000090: 61 74 3F 3D 22 79 22 0D 0A 3E 69 66 20 65 78 6F at?="y"..>if exo
0000A0: 72 69 6E 63 76 61 74 20 3D 20 22 69 22 0D 0A 3E rincvat = "i"..>
0000B0: 73 76 20 75 70 72 69 63 65 3D 75 70 72 69 63 65 sv uprice=uprice
0000C0: 2F 76 61 74 63 66 6E 20 70 72 69 63 65 3D 70 72 /vatcfn price=pr
0000D0: 69 63 65 2F 76 61 74 63 66 6E 20 69 6E 63 70 72 ice/vatcfn incpr
0000E0: 69 63 65 3D 70 72 69 63 65 6E 2A 64 69 73 63 6F ice=pricen*disco
0000F0: 75 6E 74 2A 71 75 61 6E 74 6E 0D 0A 3E 73 76 20 unt*quantn..>sv
000100: 76 61 74 3D 76 61 74 2B 69 6E 63 70 72 69 63 65 vat=vat+incprice
000110: 2D 70 72 69 63 65 0D 0A 3E 65 6C 0D 0A 3E 73 76 -price..>el..>sv
000120: 20 78 3D 70 72 69 63 65 2A 2E 31 35 20 69 6E 63 x=price*.15 inc
000130: 70 72 69 63 65 3D 70 72 69 63 65 2B 78 20 76 61 price=price+x va
000140: 74 3D 76 61 74 2B 78 0D 0A 3E 65 69 0D 0A 3E 65 t=vat+x..>ei..>e
000150: 6C 0D 0A 3E 73 76 20 69 6E 63 70 72 69 63 65 3D l..>sv incprice=
000160: 70 72 69 63 65 0D 0A 3E 65 69 0D 0A 3E 69 66 20 price..>ei..>if
000170: 71 75 61 6E 74 26 6E 26 3E 30 0D 0A 3E 73 76 20 quant&n&>0..>sv
000180: 74 6F 74 3D 74 6F 74 2B 70 72 69 63 65 20 20 64 tot=tot+price d
000190: 75 65 3D 64 75 65 2B 69 6E 63 70 72 69 63 65 20 ue=due+incprice
0001A0: 75 70 72 69 63 65 3D 75 70 72 69 63 65 2B 30 0D uprice=uprice+0.
0001B0: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 26 .>>>wf on..>wm &
0001C0: 63 6F 64 65 6E 26 09 26 64 65 73 63 6E 26 09 26 coden&.&descn&.&
0001D0: 71 75 61 6E 74 6E 26 09 26 75 70 72 69 63 65 26 quantn&.&uprice&
0001E0: 09 26 70 72 69 63 65 26 0D 0A 3E 3E 3E 77 66 20 .&price&..>>>wf
0001F0: 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 off..>sv blankli
Size : 512 (Real : 512)
000000: 6E 0D 0A 3E 20 20 20 20 20 20 20 20 20 20 20 20 n..>
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
000030: 20 20 20 20 20 20 20 20 20 20 6C 20 20 20 20 20 l
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 0D 0A r..
000050: 26 72 75 6C 65 72 31 26 0D 0A 3E 77 66 6F 66 66 &ruler1&..>wfoff
000060: 0D 0A 3E 77 6D 0D 0A 3E 69 66 20 70 72 63 6F 6E ..>wm..>if prcon
000070: 61 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 EC 21 63 ame="y"..>wm .!c
000080: 6F 6E 61 6D 65 21 0D 0A 3E 77 6D 20 21 63 6F 61 oname!..>wm !coa
000090: 64 64 72 31 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 ddr1!..>wm !coad
0000A0: 64 72 32 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 dr2!..>wm !coadd
0000B0: 72 33 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 r3!..>wm !coaddr
0000C0: 34 21 0D 0A 3E 77 6D 20 21 63 6F 61 64 64 72 35 4!..>wm !coaddr5
0000D0: 21 EC 0D 0A 3E 65 69 0D 0A 3E 3E 3E 20 67 6F 20 !...>ei..>>> go
0000E0: 74 6F 20 6C 69 6E 65 20 26 61 6C 69 6E 65 26 0D to line &aline&.
0000F0: 0A 3E 73 76 20 6E 3D 61 6C 69 6E 65 2D 63 61 6C .>sv n=aline-cal
000100: 69 6E 65 2D 36 0D 0A 3E 72 70 0D 0A 3E 77 6D 0D ine-6..>rp..>wm.
000110: 0A 3E 73 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 .>sv n=n-1..>un
000120: 6E 3D 30 0D 0A 3E 77 6D 20 21 61 30 21 0D 0A 3E n=0..>wm !a0!..>
000130: 77 6D 20 21 61 31 21 0D 0A 3E 77 6D 20 21 61 32 wm !a1!..>wm !a2
000140: 21 0D 0A 3E 77 6D 20 21 61 33 21 09 EC 26 54 49 !..>wm !a3!..&TI
000150: 54 4C 45 26 EC 0D 0A 3E 77 6D 20 21 61 34 21 09 TLE&...>wm !a4!.
000160: 0D 0A 3E 77 6D 20 21 61 35 21 09 4E 75 6D 62 65 ..>wm !a5!.Numbe
000170: 72 20 20 20 20 20 26 6E 75 6D 62 65 72 26 0D 0A r &number&..
000180: 3E 77 6D 20 21 61 36 21 09 44 61 74 65 20 20 20 >wm !a6!.Date
000190: 20 20 20 20 26 64 61 74 65 26 0D 0A 3E 77 6D 20 &date&..>wm
0001A0: 21 61 37 21 09 4F 72 64 65 72 20 52 65 66 20 20 !a7!.Order Ref
0001B0: 26 72 65 66 26 0D 0A 3E 3E 3E 20 67 6F 74 6F 20 &ref&..>>> goto
0001C0: 6C 69 6E 65 20 26 74 6C 69 6E 65 26 0D 0A 3E 73 line &tline&..>s
0001D0: 76 20 6E 3D 74 6C 69 6E 65 2D 61 6C 69 6E 65 2D v n=tline-aline-
0001E0: 38 0D 0A 3E 72 70 0D 0A 3E 77 6D 20 0D 0A 3E 73 8..>rp..>wm ..>s
0001F0: 76 20 6E 3D 6E 2D 31 0D 0A 3E 75 6E 20 6E 3D 30 v n=n-1..>un n=0
Size : 512 (Real : 512)
000000: 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 73 2D 31 nes=blanklines-1
000010: 0D 0A 3E 65 69 0D 0A 3E 65 69 20 3B 20 63 6F 64 ..>ei..>ei ; cod
000020: 65 6E 3C 3E 22 22 0D 0A 3E 69 66 20 6E 3D 6D 61 en<>""..>if n=ma
000030: 78 6E 0D 0A 3E 69 66 20 75 73 65 70 72 6F 64 3D xn..>if useprod=
000040: 22 79 22 0D 0A 3E 73 76 20 75 73 65 70 72 6F 64 "y"..>sv useprod
000050: 3D 22 6E 22 20 6E 3D 22 30 22 20 64 69 73 63 6F ="n" n="0" disco
000060: 75 6E 74 3D 31 0D 0A 3E 64 6D 20 22 45 6E 74 65 unt=1..>dm "Ente
000070: 72 20 64 65 74 61 69 6C 73 20 6F 66 20 61 6E 79 r details of any
000080: 20 6F 74 68 65 72 20 69 74 65 6D 73 20 28 52 45 other items (RE
000090: 54 55 52 4E 20 74 6F 20 65 6E 64 29 3A 20 22 0D TURN to end): ".
0000A0: 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 69 0D 0A 3E .>dm " "..>ei..>
0000B0: 65 69 0D 0A 3E 75 6E 20 6E 3D 6D 61 78 6E 0D 0A ei..>un n=maxn..
0000C0: 3E 3E 3E 0D 0A 3E 3E 3E 20 64 6F 20 73 75 66 66 >>>..>>> do suff
0000D0: 69 63 69 65 6E 74 20 62 6C 61 6E 6B 20 6C 69 6E icient blank lin
0000E0: 65 73 20 66 6F 72 20 6D 69 73 73 69 6E 67 20 69 es for missing i
0000F0: 74 65 6D 73 0D 0A 3E 69 66 20 62 6C 61 6E 6B 6C tems..>if blankl
000100: 69 6E 65 73 3E 30 0D 0A 3E 72 70 0D 0A 3E 3E 3E ines>0..>rp..>>>
000110: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 0D 0A 3E 3E 3E wf on..>wm ..>>>
000120: 77 66 20 6F 66 66 0D 0A 3E 73 76 20 62 6C 61 6E wf off..>sv blan
000130: 6B 6C 69 6E 65 73 3D 62 6C 61 6E 6B 6C 69 6E 65 klines=blankline
000140: 73 2D 31 0D 0A 3E 75 6E 20 62 6C 61 6E 6B 6C 69 s-1..>un blankli
000150: 6E 65 73 3D 30 0D 0A 3E 65 69 0D 0A 3E 3E 3E 0D nes=0..>ei..>>>.
000160: 0A 3E 77 66 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 .>wf on..>
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
0001A0: 20 20 20 20 20 4C 20 20 20 20 20 20 2E 20 20 52 L . R
0001B0: 0D 0A 26 72 75 6C 65 72 34 26 0D 0A 3E 77 66 20 ..&ruler4&..>wf
0001C0: 6F 66 66 0D 0A 3E 73 76 20 63 61 72 3D 63 61 72 off..>sv car=car
0001D0: 2B 30 0D 0A 3E 73 76 20 65 78 76 3D 74 6F 74 2B +0..>sv exv=tot+
0001E0: 63 61 72 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E car..>>>wf on..>
0001F0: 69 66 20 61 73 6B 63 61 72 3D 22 79 22 0D 0A 3E if askcar="y"..>
Size : 512 (Real : 512)
000000: 0D 0A 3E 77 66 6F 6E 0D 0A 3E 20 20 20 20 20 20 ..>wfon..>
000010: 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 !
000020: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
000030: 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 !
000040: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
000050: 20 20 52 0D 0A 26 72 75 6C 65 72 32 26 0D 0A 3E R..&ruler2&..>
000060: 77 66 6F 66 66 0D 0A 3E 77 6D 20 43 4F 44 45 09 wfoff..>wm CODE.
000070: 44 45 53 43 52 49 50 54 49 4F 4E 09 51 55 41 4E DESCRIPTION.QUAN
000080: 54 49 54 59 09 55 4E 49 54 20 50 52 49 43 45 09 TITY.UNIT PRICE.
000090: 54 4F 54 41 4C 0D 0A 3E 77 66 6F 6E 0D 0A 3E 20 TOTAL..>wfon..>
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0000D0: 20 20 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000E0: 20 2E 20 20 20 20 20 52 0D 0A 26 72 75 6C 65 72 . R..&ruler
0000F0: 33 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 77 6D 0D 3&..>wfoff..>wm.
000100: 0A 3E 3E 3E 0D 0A 3E 3E 3E 20 70 72 69 6E 74 20 .>>>..>>> print
000110: 6F 75 74 20 6F 72 64 65 72 20 6C 69 6E 65 73 0D out order lines.
000120: 0A 3E 3E 3E 0D 0A 3E 69 66 20 75 73 65 70 72 6F .>>>..>if usepro
000130: 64 3D 22 79 22 0D 0A 3E 64 6D 20 22 43 61 6C 63 d="y"..>dm "Calc
000140: 75 6C 61 74 69 6E 67 20 74 6F 74 61 6C 73 2E 2E ulating totals..
000150: 2E 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E 65 6C ."..>dm " "..>el
000160: 0D 0A 3E 64 6D 20 22 45 6E 74 65 72 20 64 65 74 ..>dm "Enter det
000170: 61 69 6C 73 20 6F 66 20 65 61 63 68 20 69 74 65 ails of each ite
000180: 6D 20 28 52 45 54 55 52 4E 20 74 6F 20 65 6E 64 m (RETURN to end
000190: 29 3A 20 22 0D 0A 3E 64 6D 20 22 20 22 0D 0A 3E ): "..>dm " "..>
0001A0: 65 69 0D 0A 3E 73 76 20 6E 3D 30 20 71 75 61 6E ei..>sv n=0 quan
0001B0: 74 30 3D 31 20 64 69 73 63 6F 75 6E 74 3D 31 0D t0=1 discount=1.
0001C0: 0A 3E 73 76 20 62 6C 61 6E 6B 6C 69 6E 65 73 3D .>sv blanklines=
0001D0: 69 6E 66 6F 6C 69 6E 65 73 20 63 6F 64 65 6E 3D infolines coden=
0001E0: 22 22 0D 0A 3E 73 76 20 74 6F 74 3D 30 2E 30 30 ""..>sv tot=0.00
0001F0: 20 20 76 61 74 3D 30 2E 30 30 20 64 75 65 3D 63 vat=0.00 due=c
Size : 512 (Real : 512)
000000: 77 6D 20 09 20 47 4F 4F 44 53 20 54 4F 54 41 4C wm . GOODS TOTAL
000010: 09 A3 09 26 74 6F 74 26 0D 0A 3E 77 6D 20 09 20 ...&tot&..>wm .
000020: 43 61 72 72 69 61 67 65 09 A3 09 26 63 61 72 26 Carriage...&car&
000030: 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D ..>el..>wm ..>wm
000040: 20 0D 0A 3E 65 69 0D 0A 3E 69 66 20 76 61 74 72 ..>ei..>if vatr
000050: 65 67 3D 22 79 22 0D 0A 3E 77 6D 20 09 20 4E 45 eg="y"..>wm . NE
000060: 54 20 54 4F 54 41 4C 09 A3 09 26 65 78 76 26 0D T TOTAL...&exv&.
000070: 0A 3E 77 6D 20 09 20 56 41 54 09 A3 09 26 76 61 .>wm . VAT...&va
000080: 74 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D 20 0D 0A 3E t&..>el..>wm ..>
000090: 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 09 20 wm ..>ei..>wm .
0000A0: 41 4D 4F 55 4E 54 20 44 55 45 09 A3 09 26 64 75 AMOUNT DUE...&du
0000B0: 65 26 0D 0A 3E 77 6D 20 0D 0A 3E 77 6D 20 0D 0A e&..>wm ..>wm ..
0000C0: 3E 77 66 20 6F 6E 0D 0A 3E 20 20 20 20 20 20 20 >wf on..>
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 52 0D 0A 26 72 75 6C 65 72 35 26 0D 0A 3E 77 R..&ruler5&..>w
000120: 66 6F 66 66 0D 0A 3E 63 6F 20 62 6F 74 74 6F 6D foff..>co bottom
000130: 20 6C 69 6E 65 20 63 6F 6D 6D 65 6E 74 20 68 65 line comment he
000140: 72 65 0D 0A 3E 69 66 20 66 6F 6F 74 6E 6F 74 65 re..>if footnote
000150: 3E 22 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E >""..>>>wf on..>
000160: 77 6D 20 26 66 6F 6F 74 6E 6F 74 65 26 0D 0A 3E wm &footnote&..>
000170: 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 6C 0D 0A 3E >>wf off..>el..>
000180: 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D if title[1]="i".
000190: 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 .>>>wf on..>wm T
0001A0: 65 72 6D 73 3A 20 53 74 72 69 63 74 6C 79 20 33 erms: Strictly 3
0001B0: 30 20 44 61 79 73 20 4E 65 74 0D 0A 3E 3E 3E 77 0 Days Net..>>>w
0001C0: 66 20 6F 66 66 0D 0A 3E 65 69 0D 0A 3E 69 66 20 f off..>ei..>if
0001D0: 74 69 74 6C 65 5B 31 5D 3D 22 63 22 0D 0A 3E 3E title[1]="c"..>>
0001E0: 3E 77 66 20 6F 6E 0D 0A 3E 77 6D 20 54 65 72 6D >wf on..>wm Term
0001F0: 73 3A 20 54 68 69 73 20 61 6D 6F 75 6E 74 20 68 s: This amount h
Size : 512 (Real : 512)
000000: 26 72 63 34 26 5D 2B 22 21 22 2B 64 61 73 68 65 &rc4&]+"!"+dashe
000010: 73 5B 31 3A 26 72 63 35 26 5D 2B 22 52 22 0D 0A s[1:&rc5&]+"R"..
000020: 3E 73 76 20 72 33 63 33 3D 72 32 63 33 2D 32 0D >sv r3c3=r2c3-2.
000030: 0A 3E 73 76 20 72 75 6C 65 72 33 3D 22 3E 22 2B .>sv ruler3=">"+
000040: 64 61 73 68 65 73 5B 31 3A 26 72 32 63 31 26 5D dashes[1:&r2c1&]
000050: 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 +"!"+dashes[1:&r
000060: 32 63 32 26 5D 2B 22 2D 2D 2E 22 2B 64 61 73 68 2c2&]+"--."+dash
000070: 65 73 5B 31 3A 26 72 33 63 33 26 5D 2B 22 2E 22 es[1:&r3c3&]+"."
000080: 0D 0A 3E 73 76 20 72 75 6C 65 72 33 3D 72 75 6C ..>sv ruler3=rul
000090: 65 72 33 2B 64 61 73 68 65 73 5B 31 3A 26 72 32 er3+dashes[1:&r2
0000A0: 63 34 26 5D 2B 22 2E 22 2B 64 61 73 68 65 73 5B c4&]+"."+dashes[
0000B0: 31 3A 26 72 32 63 35 26 5D 2B 22 52 22 0D 0A 3E 1:&r2c5&]+"R"..>
0000C0: 73 76 20 72 75 6C 65 72 34 3D 22 3E 22 2B 64 61 sv ruler4=">"+da
0000D0: 73 68 65 73 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B shes[1:&n&]+"!"+
0000E0: 64 61 73 68 65 73 5B 31 3A 31 34 5D 2B 22 4C 22 dashes[1:14]+"L"
0000F0: 2B 64 61 73 68 65 73 5B 31 3A 37 5D 2B 22 2E 2D +dashes[1:7]+".-
000100: 2D 52 22 0D 0A 3E 73 76 20 6E 3D 69 77 69 64 74 -R"..>sv n=iwidt
000110: 68 2D 32 0D 0A 3E 73 76 20 72 75 6C 65 72 35 3D h-2..>sv ruler5=
000120: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
000130: 5D 2B 22 52 22 0D 0A 3E 77 6D 20 27 22 26 72 75 ]+"R"..>wm '"&ru
000140: 6C 65 72 31 26 22 27 0D 0A 3E 77 6D 20 27 22 26 ler1&"'..>wm '"&
000150: 72 75 6C 65 72 32 26 22 27 0D 0A 3E 77 6D 20 27 ruler2&"'..>wm '
000160: 22 26 72 75 6C 65 72 33 26 22 27 0D 0A 3E 77 6D "&ruler3&"'..>wm
000170: 20 27 22 26 72 75 6C 65 72 34 26 22 27 0D 0A 3E '"&ruler4&"'..>
000180: 77 6D 20 27 22 26 72 75 6C 65 72 35 26 22 27 0D wm '"&ruler5&"'.
000190: 0A 3E 77 6D 20 27 21 63 6F 6E 61 6D 65 21 27 0D .>wm '!coname!'.
0001A0: 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 31 21 27 .>wm '!coaddr1!'
0001B0: 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 32 21 ..>wm '!coaddr2!
0001C0: 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 33 '..>wm '!coaddr3
0001D0: 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 !'..>wm '!coaddr
0001E0: 34 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 4!'..>wm '!coadd
0001F0: 72 35 21 27 0D 0A 3E 77 63 0D 0A 3E 63 66 0D 0A r5!'..>wc..>cf..
Size : 512 (Real : 512)
000000: 61 73 20 62 65 65 6E 20 63 72 65 64 69 74 65 64 as been credited
000010: 20 74 6F 20 79 6F 75 72 20 61 63 63 6F 75 6E 74 to your account
000020: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 ..>>>wf off..>ei
000030: 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D ..>ei..>>>wf on.
000040: 0A 3E 77 6D 20 45 2E 20 26 20 4F 2E 45 2E 0D 0A .>wm E. & O.E...
000050: 3E 69 66 20 70 72 63 6F 6E 61 6D 65 3D 22 79 22 >if prconame="y"
000060: 0D 0A 3E 77 6D 20 56 41 54 20 72 65 67 2E 20 6E ..>wm VAT reg. n
000070: 6F 2E 20 26 76 61 74 6E 75 6D 26 0D 0A 3E 65 69 o. &vatnum&..>ei
000080: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 77 63 ..>>>wf off..>wc
000090: 0D 0A 3E 73 76 20 66 6E 3D 69 6E 76 70 61 74 68 ..>sv fn=invpath
0000A0: 2B 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 65 72 +title[1]+number
0000B0: 2B 22 2E 70 6F 69 22 0D 0A 3E 61 76 20 22 50 72 +".poi"..>av "Pr
0000C0: 69 6E 74 20 69 6E 76 6F 69 63 65 20 74 6F 20 70 int invoice to p
0000D0: 72 69 6E 74 65 72 20 6F 72 20 73 63 72 65 65 6E rinter or screen
0000E0: 20 28 50 2F 73 29 3F 20 22 20 78 20 31 0D 0A 3E (P/s)? " x 1..>
0000F0: 65 78 20 65 72 61 20 26 66 6E 26 0D 0A 3E 69 64 ex era &fn&..>id
000100: 20 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 26 66 cpm..>ex ren &f
000110: 6E 26 3D 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 n&=&invpath&omte
000120: 6D 70 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 72 65 6E mp..>el..>sv ren
000130: 66 6E 3D 74 69 74 6C 65 5B 31 5D 2B 6E 75 6D 62 fn=title[1]+numb
000140: 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E 65 78 20 72 er+".poi"..>ex r
000150: 65 6E 20 26 69 6E 76 70 61 74 68 26 6F 6D 74 65 en &invpath&omte
000160: 6D 70 20 26 72 65 6E 66 6E 26 0D 0A 3E 65 69 0D mp &renfn&..>ei.
000170: 0A 3E 77 66 20 22 6F 6D 73 75 6D 6D 61 72 2E 69 .>wf "omsummar.i
000180: 6E 66 22 20 61 0D 0A 3E 2D 2D 2D 2D 2D 2D 2D 21 nf" a..>-------!
000190: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001A0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001B0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001C0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 52 0D 0A 3E -------!----R..>
0001D0: 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 69 22 0D if title[1]="i".
0001E0: 0A 3E 73 76 20 73 3D 27 49 4E 56 4F 49 43 45 09 .>sv s='INVOICE.
0001F0: 26 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 &number&.&date&.
Size : 512 (Real : 512)
000000: 3E 65 78 20 65 72 61 20 6F 6D 69 6E 76 67 65 6E >ex era ominvgen
000010: 2E 69 6E 66 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E .inf..>id cpm..>
000020: 65 78 20 72 65 6E 20 6F 6D 69 6E 76 67 65 6E 2E ex ren ominvgen.
000030: 69 6E 66 20 6F 6D 74 65 6D 70 2E 69 6E 66 0D 0A inf omtemp.inf..
000040: 3E 65 6C 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 74 >el..>ex ren omt
000050: 65 6D 70 2E 69 6E 66 20 6F 6D 69 6E 76 67 65 6E emp.inf ominvgen
000060: 2E 69 6E 66 0D 0A 3E 65 69 0D 0A 3E 64 66 20 6F .inf..>ei..>df o
000070: 6D 65 6E 75 0D 0A 3E 73 6B 20 30 3D 30 0D 0A 3E menu..>sk 0=0..>
000080: 65 69 20 3B 20 6F 70 74 3D 22 65 22 0D 0A 1A 3E ei ; opt="e"...>
000090: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
0000A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
0000B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
0000C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
0000D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
0000E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
0000F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000100: 35 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 5=">"+dashes[1:&
000110: 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D 20 27 22 26 n&]+"R"..>wm '"&
000120: 72 75 6C 65 72 31 26 22 27 0D 0A 3E 77 6D 20 27 ruler1&"'..>wm '
000130: 22 26 72 75 6C 65 72 32 26 22 27 0D 0A 3E 77 6D "&ruler2&"'..>wm
000140: 20 27 22 26 72 75 6C 65 72 33 26 22 27 0D 0A 3E '"&ruler3&"'..>
000150: 77 6D 20 27 22 26 72 75 6C 65 72 34 26 22 27 0D wm '"&ruler4&"'.
000160: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 35 26 22 .>wm '"&ruler5&"
000170: 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E 61 6D 65 21 '..>wm '!coname!
000180: 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 31 '..>wm '!coaddr1
000190: 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 72 !'..>wm '!coaddr
0001A0: 32 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 64 2!'..>wm '!coadd
0001B0: 72 33 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 64 r3!'..>wm '!coad
0001C0: 64 72 34 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 dr4!'..>wm '!coa
0001D0: 64 64 72 35 21 27 0D 0A 3E 77 63 0D 0A 3E 63 66 ddr5!'..>wc..>cf
0001E0: 0D 0A 3E 65 78 20 65 72 61 20 6F 6D 69 6E 76 67 ..>ex era ominvg
0001F0: 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 63 70 6D 0D en.inf..>id cpm.
Size : 512 (Real : 512)
000000: 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D 69 >cf..>ex era omi
000010: 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 63 nvgen.inf..>id c
000020: 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 6E pm..>ex ren omin
000030: 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D 70 2E vgen.inf omtemp.
000040: 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 72 65 inf..>el..>ex re
000050: 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F 6D 69 n omtemp.inf omi
000060: 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D 0A nvgen.inf..>ei..
000070: 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 30 >df omenu..>sk 0
000080: 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 65 =0..>ei ; opt="e
000090: 22 0D 0A 1A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E "...>>>..>>>..>>
0000A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
0000B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
0000C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
0000D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
0000E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
0000F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000100: 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----!-----------
000110: 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 52 22 -----!--------R"
000120: 0D 0A 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..">------------
000130: 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -!--------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D --------.-------
000150: 2D 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 2D 2D 2D -------.--------
000160: 2D 2D 2D 2D 2D 2D 2E 2D 2D 2D 2D 2D 52 22 0D 0A ------.-----R"..
000170: 22 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ">--------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D -------------!--
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4C 2D 2D 2D ------------L---
0001B0: 2D 2D 2D 2D 2E 2D 2D 52 22 0D 0A 22 3E 2D 2D 2D ----.--R"..">---
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 6F 6E 0D 0A 3E 69 66 20 61 73 6B 63 61 72 3D on..>if askcar=
000010: 22 79 22 0D 0A 3E 77 6D 20 09 20 47 4F 4F 44 53 "y"..>wm . GOODS
000020: 20 54 4F 54 41 4C 09 A3 09 26 74 6F 74 26 0D 0A TOTAL...&tot&..
000030: 3E 77 6D 20 09 20 43 61 72 72 69 61 67 65 09 A3 >wm . Carriage..
000040: 09 26 63 61 72 26 0D 0A 3E 65 6C 0D 0A 3E 77 6D .&car&..>el..>wm
000050: 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A 3E 69 ..>wm ..>ei..>i
000060: 66 20 76 61 74 72 65 67 3D 22 79 22 0D 0A 3E 77 f vatreg="y"..>w
000070: 6D 20 09 20 4E 45 54 20 54 4F 54 41 4C 09 A3 09 m . NET TOTAL...
000080: 26 65 78 76 26 0D 0A 3E 77 6D 20 09 20 56 41 54 &exv&..>wm . VAT
000090: 09 A3 09 26 76 61 74 26 0D 0A 3E 65 6C 0D 0A 3E ...&vat&..>el..>
0000A0: 77 6D 20 0D 0A 3E 77 6D 20 0D 0A 3E 65 69 0D 0A wm ..>wm ..>ei..
0000B0: 3E 77 6D 20 09 20 41 4D 4F 55 4E 54 20 44 55 45 >wm . AMOUNT DUE
0000C0: 09 A3 09 26 64 75 65 26 0D 0A 3E 77 6D 20 0D 0A ...&due&..>wm ..
0000D0: 3E 77 6D 20 0D 0A 3E 77 66 20 6F 6E 0D 0A 3E 20 >wm ..>wf on..>
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 52 0D 0A 26 72 75 6C 65 72 R..&ruler
000130: 35 26 0D 0A 3E 77 66 6F 66 66 0D 0A 3E 63 6F 20 5&..>wfoff..>co
000140: 62 6F 74 74 6F 6D 20 6C 69 6E 65 20 63 6F 6D 6D bottom line comm
000150: 65 6E 74 20 68 65 72 65 0D 0A 3E 69 66 20 66 6F ent here..>if fo
000160: 6F 74 6E 6F 74 65 3E 22 22 0D 0A 3E 3E 3E 77 66 otnote>""..>>>wf
000170: 20 6F 6E 0D 0A 3E 77 6D 20 26 66 6F 6F 74 6E 6F on..>wm &footno
000180: 74 65 26 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A te&..>>>wf off..
000190: 3E 65 6C 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 >el..>if title[1
0001A0: 5D 3D 22 69 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D ]="i"..>>>wf on.
0001B0: 0A 3E 77 6D 20 54 65 72 6D 73 3A 20 53 74 72 69 .>wm Terms: Stri
0001C0: 63 74 6C 79 20 33 30 20 44 61 79 73 20 4E 65 74 ctly 30 Days Net
0001D0: 0D 0A 3E 3E 3E 77 66 20 6F 66 66 0D 0A 3E 65 69 ..>>>wf off..>ei
0001E0: 0D 0A 3E 69 66 20 74 69 74 6C 65 5B 31 5D 3D 22 ..>if title[1]="
0001F0: 63 22 0D 0A 3E 3E 3E 77 66 20 6F 6E 0D 0A 3E 77 c"..>>>wf on..>w
Size : 512 (Real : 512)
000000: A3 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 .&due&.&a0&'..>e
000010: 6C 0D 0A 3E 73 76 20 64 75 65 3D 30 2D 64 75 65 l..>sv due=0-due
000020: 0D 0A 3E 73 76 20 73 3D 27 43 52 45 44 49 54 09 ..>sv s='CREDIT.
000030: 26 6E 75 6D 62 65 72 26 09 26 64 61 74 65 26 09 &number&.&date&.
000040: A3 26 64 75 65 26 09 26 61 30 26 27 0D 0A 3E 65 .&due&.&a0&'..>e
000050: 69 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 73 76 20 i..>id cpm..>sv
000060: 73 3D 73 2B 22 20 20 20 20 20 20 20 20 20 20 20 s=s+"
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 22 0D 0A 3E 73 76 20 73 3D 73 2B "..>sv s=s+
0000B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 22 0D 0A 3E 73 76 20 73 3D 73 5B 31 3A 31 32 "..>sv s=s[1:12
000100: 36 5D 0D 0A 3E 65 69 0D 0A 3E 77 6D 20 27 26 73 6]..>ei..>wm '&s
000110: 26 27 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E 77 &'..>wc..>ei..>w
000120: 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 73 f om.x..>if x="s
000130: 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 7C "..>wm "ps &fn&|
000140: 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 79 13|; Press a key
000150: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 33 to continue:|13
000160: 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 6F |pause|13|load o
000170: 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 6C menu|13|ps"..>el
000180: 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 33 ..>wm "p &fn&|13
000190: 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 70 |load omenu|13|p
0001A0: 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E 63 s"..>ei..>wc..>c
0001B0: 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E 78 f..>ex exec om.x
0001C0: 0D 0A 3E 73 74 0D 0A 1A 3E 0D 0A 3E 3E 3E 0D 0A ..>st...>..>>>..
0001D0: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
0001E0: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
0001F0: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
Size : 512 (Real : 512)
000000: 6D 20 54 65 72 6D 73 3A 20 54 68 69 73 20 61 6D m Terms: This am
000010: 6F 75 6E 74 20 68 61 73 20 62 65 65 6E 20 63 72 ount has been cr
000020: 65 64 69 74 65 64 20 74 6F 20 79 6F 75 72 20 61 edited to your a
000030: 63 63 6F 75 6E 74 0D 0A 3E 3E 3E 77 66 20 6F 66 ccount..>>>wf of
000040: 66 0D 0A 3E 65 69 0D 0A 3E 65 69 0D 0A 3E 3E 3E f..>ei..>ei..>>>
000050: 77 66 20 6F 6E 0D 0A 3E 77 6D 20 45 2E 20 26 20 wf on..>wm E. &
000060: 4F 2E 45 2E 0D 0A 3E 69 66 20 70 72 63 6F 6E 61 O.E...>if prcona
000070: 6D 65 3D 22 79 22 0D 0A 3E 77 6D 20 56 41 54 20 me="y"..>wm VAT
000080: 72 65 67 2E 20 6E 6F 2E 20 26 76 61 74 6E 75 6D reg. no. &vatnum
000090: 26 0D 0A 3E 65 69 0D 0A 3E 3E 3E 77 66 20 6F 66 &..>ei..>>>wf of
0000A0: 66 0D 0A 3E 77 63 0D 0A 3E 73 76 20 66 6E 3D 69 f..>wc..>sv fn=i
0000B0: 6E 76 70 61 74 68 2B 74 69 74 6C 65 5B 31 5D 2B nvpath+title[1]+
0000C0: 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 22 0D 0A 3E number+".poi"..>
0000D0: 61 76 20 22 50 72 69 6E 74 20 69 6E 76 6F 69 63 av "Print invoic
0000E0: 65 20 74 6F 20 70 72 69 6E 74 65 72 20 6F 72 20 e to printer or
0000F0: 73 63 72 65 65 6E 20 28 50 2F 73 29 3F 20 22 20 screen (P/s)? "
000100: 78 20 31 0D 0A 3E 69 64 20 63 70 6D 0D 0A 3E 65 x 1..>id cpm..>e
000110: 78 20 72 65 6E 20 26 66 6E 26 3D 26 69 6E 76 70 x ren &fn&=&invp
000120: 61 74 68 26 6F 6D 74 65 6D 70 0D 0A 3E 65 6C 0D ath&omtemp..>el.
000130: 0A 3E 73 76 20 72 65 6E 66 6E 3D 74 69 74 6C 65 .>sv renfn=title
000140: 5B 31 5D 2B 6E 75 6D 62 65 72 2B 22 2E 70 6F 69 [1]+number+".poi
000150: 22 0D 0A 3E 65 78 20 72 65 6E 20 26 69 6E 76 70 "..>ex ren &invp
000160: 61 74 68 26 6F 6D 74 65 6D 70 20 26 72 65 6E 66 ath&omtemp &renf
000170: 6E 26 0D 0A 3E 65 69 0D 0A 3E 77 66 20 22 6F 6D n&..>ei..>wf "om
000180: 73 75 6D 6D 61 72 2E 69 6E 66 22 20 61 0D 0A 3E summar.inf" a..>
000190: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001A0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001B0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001C0: 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 21 -------!-------!
0001D0: 2D 2D 2D 2D 52 0D 0A 3E 69 66 20 74 69 74 6C 65 ----R..>if title
0001E0: 5B 31 5D 3D 22 69 22 0D 0A 3E 73 76 20 73 3D 27 [1]="i"..>sv s='
0001F0: 49 4E 56 4F 49 43 45 09 26 6E 75 6D 62 65 72 26 INVOICE.&number&
Size : 512 (Real : 512)
000000: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 69 64 20 invgen.inf..>id
000010: 63 70 6D 0D 0A 3E 65 78 20 72 65 6E 20 6F 6D 69 cpm..>ex ren omi
000020: 6E 76 67 65 6E 2E 69 6E 66 20 6F 6D 74 65 6D 70 nvgen.inf omtemp
000030: 2E 69 6E 66 0D 0A 3E 65 6C 0D 0A 3E 65 78 20 72 .inf..>el..>ex r
000040: 65 6E 20 6F 6D 74 65 6D 70 2E 69 6E 66 20 6F 6D en omtemp.inf om
000050: 69 6E 76 67 65 6E 2E 69 6E 66 0D 0A 3E 65 69 0D invgen.inf..>ei.
000060: 0A 3E 64 66 20 6F 6D 65 6E 75 0D 0A 3E 73 6B 20 .>df omenu..>sk
000070: 30 3D 30 0D 0A 3E 65 69 20 3B 20 6F 70 74 3D 22 0=0..>ei ; opt="
000080: 65 22 0D 0A 1A 4E 55 20 20 20 24 24 24 FF 00 FF e"...NU $$$...
000090: 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E >>..>>>..>>>..>>
0000A0: 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E >..>>>..>>>..>>>
0000B0: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
0000C0: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
0000D0: 3E 64 66 20 6F 6D 65 6E 75 20 3B 20 61 6E 79 20 >df omenu ; any
0000E0: 64 61 74 61 20 66 69 6C 65 0D 0A 3E 6E 63 20 32 data file..>nc 2
0000F0: 35 35 0D 0A 3E 73 76 20 73 79 73 5F 76 65 72 3D 55..>sv sys_ver=
000100: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
000110: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
000120: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
000130: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
000140: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
000150: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
000160: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
000170: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
000180: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
000190: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
0001A0: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
0001B0: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
0001C0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
0001D0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
0001E0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
0001F0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
Size : 512 (Real : 512)
000000: 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 .&date&..&due&.&
000010: 61 30 26 27 0D 0A 3E 65 6C 0D 0A 3E 73 76 20 64 a0&'..>el..>sv d
000020: 75 65 3D 30 2D 64 75 65 0D 0A 3E 73 76 20 73 3D ue=0-due..>sv s=
000030: 27 43 52 45 44 49 54 09 26 6E 75 6D 62 65 72 26 'CREDIT.&number&
000040: 09 26 64 61 74 65 26 09 A3 26 64 75 65 26 09 26 .&date&..&due&.&
000050: 61 30 26 27 0D 0A 3E 65 69 0D 0A 3E 69 64 20 63 a0&'..>ei..>id c
000060: 70 6D 0D 0A 3E 73 76 20 73 3D 73 2B 22 20 20 20 pm..>sv s=s+"
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A "..
0000B0: 3E 73 76 20 73 3D 73 2B 22 20 20 20 20 20 20 20 >sv s=s+"
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 22 0D 0A 3E 73 76 20 "..>sv
000100: 73 3D 73 5B 31 3A 31 32 36 5D 0D 0A 3E 65 69 0D s=s[1:126]..>ei.
000110: 0A 3E 77 6D 20 27 26 73 26 27 0D 0A 3E 77 63 0D .>wm '&s&'..>wc.
000120: 0A 3E 69 64 20 6E 75 6D 66 6C 61 67 0D 0A 3E 73 .>id numflag..>s
000130: 76 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 72 2D v number=number-
000140: 31 20 6E 75 6D 62 65 72 3D 6E 75 6D 62 65 72 5B 1 number=number[
000150: 77 31 5D 0D 0A 3E 77 66 20 6F 6D 69 6E 76 67 65 w1]..>wf ominvge
000160: 6E 2E 6E 75 6D 0D 0A 3E 77 6D 20 26 6E 75 6D 62 n.num..>wm &numb
000170: 65 72 26 0D 0A 3E 77 63 0D 0A 3E 65 69 0D 0A 3E er&..>wc..>ei..>
000180: 77 66 20 6F 6D 2E 78 0D 0A 3E 69 66 20 78 3D 22 wf om.x..>if x="
000190: 73 22 0D 0A 3E 77 6D 20 22 70 73 20 26 66 6E 26 s"..>wm "ps &fn&
0001A0: 7C 31 33 7C 3B 20 50 72 65 73 73 20 61 20 6B 65 |13|; Press a ke
0001B0: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 3A 7C 31 y to continue:|1
0001C0: 33 7C 70 61 75 73 65 7C 31 33 7C 6C 6F 61 64 20 3|pause|13|load
0001D0: 6F 6D 65 6E 75 7C 31 33 7C 70 73 22 0D 0A 3E 65 omenu|13|ps"..>e
0001E0: 6C 0D 0A 3E 77 6D 20 22 70 20 26 66 6E 26 7C 31 l..>wm "p &fn&|1
0001F0: 33 7C 6C 6F 61 64 20 6F 6D 65 6E 75 7C 31 33 7C 3|load omenu|13|
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 70 73 22 0D 0A 3E 65 69 0D 0A 3E 77 63 0D 0A 3E ps"..>ei..>wc..>
000010: 63 66 0D 0A 3E 65 78 20 65 78 65 63 20 6F 6D 2E cf..>ex exec om.
000020: 78 0D 0A 3E 73 74 0D 0A 1A 3E 3E 0D 0A 3E 3E 3E x..>st...>>..>>>
000030: 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D ..>>>..>>>..>>>.
000040: 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A 3E 3E 3E 0D 0A .>>>..>>>..>>>..
000050: 3E 63 73 20 22 20 22 0D 0A 3E 73 76 20 73 79 73 >cs " "..>sv sys
000060: 5F 76 65 72 3D 73 79 73 5F 76 65 72 0D 0A 3E 69 _ver=sys_ver..>i
000070: 66 20 73 79 73 5F 76 65 72 3D 22 22 0D 0A 3E 73 f sys_ver=""..>s
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6E 61 6D 65 26 2C 26 65 78 6F 72 69 6E 63 26 2C name&,&exorinc&,
000010: 26 73 68 6F 77 64 69 73 63 26 2C 26 61 73 6B 66 &showdisc&,&askf
000020: 6E 26 2C 26 61 73 6B 63 61 72 26 2C 26 75 73 65 n&,&askcar&,&use
000030: 70 72 6F 64 26 2C 26 64 65 66 64 69 73 63 26 27 prod&,&defdisc&'
000040: 0D 0A 3E 77 6D 20 27 26 63 61 6C 69 6E 65 26 2C ..>wm '&caline&,
000050: 26 61 6C 69 6E 65 26 2C 26 74 6C 69 6E 65 26 2C &aline&,&tline&,
000060: 26 74 6F 74 6C 69 6E 65 26 27 0D 0A 3E 77 6D 20 &totline&'..>wm
000070: 27 26 73 69 64 65 26 2C 26 72 63 31 26 2C 26 72 '&side&,&rc1&,&r
000080: 63 32 26 2C 26 72 63 33 26 2C 26 72 63 34 26 2C c2&,&rc3&,&rc4&,
000090: 26 72 63 35 26 27 0D 0A 3E 73 76 20 72 63 31 3D &rc5&'..>sv rc1=
0000A0: 72 63 31 2D 31 20 72 63 32 3D 72 63 32 2D 31 20 rc1-1 rc2=rc2-1
0000B0: 72 63 33 3D 72 63 33 2D 31 20 72 63 34 3D 72 63 rc3=rc3-1 rc4=rc
0000C0: 34 2D 31 20 72 63 35 3D 72 63 35 2D 31 0D 0A 3E 4-1 rc5=rc5-1..>
0000D0: 73 76 20 72 32 63 31 3D 72 63 31 20 72 32 63 32 sv r2c1=rc1 r2c2
0000E0: 3D 72 63 32 2B 33 20 72 32 63 33 3D 72 63 33 2B =rc2+3 r2c3=rc3+
0000F0: 32 20 72 32 63 34 3D 72 63 34 2D 32 20 72 32 63 2 r2c4=rc4-2 r2c
000100: 35 3D 72 63 35 2D 33 0D 0A 3E 73 76 20 72 63 31 5=rc5-3..>sv rc1
000110: 3D 72 63 31 5B 77 31 5D 20 72 63 32 3D 72 63 32 =rc1[w1] rc2=rc2
000120: 5B 77 31 5D 20 72 63 33 3D 72 63 33 5B 77 31 5D [w1] rc3=rc3[w1]
000130: 20 72 63 34 3D 72 63 34 5B 77 31 5D 20 72 63 35 rc4=rc4[w1] rc5
000140: 3D 72 63 35 5B 77 31 5D 20 0D 0A 3E 73 76 20 72 =rc5[w1] ..>sv r
000150: 75 6C 65 72 31 3D 22 3E 22 2B 64 61 73 68 65 73 uler1=">"+dashes
000160: 5B 31 3A 26 6E 26 5D 2B 22 21 22 2B 64 61 73 68 [1:&n&]+"!"+dash
000170: 65 73 5B 31 3A 31 30 5D 2B 22 4C 22 2B 64 61 73 es[1:10]+"L"+das
000180: 68 65 73 5B 31 3A 31 37 5D 2B 22 52 22 0D 0A 3E hes[1:17]+"R"..>
000190: 73 76 20 72 75 6C 65 72 32 3D 22 3E 22 2B 64 61 sv ruler2=">"+da
0001A0: 73 68 65 73 5B 31 3A 26 72 63 31 26 5D 2B 22 21 shes[1:&rc1&]+"!
0001B0: 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 32 26 "+dashes[1:&rc2&
0001C0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 26 ]+"!"+dashes[1:&
0001D0: 72 63 33 26 5D 2B 22 21 22 0D 0A 3E 73 76 20 72 rc3&]+"!"..>sv r
0001E0: 75 6C 65 72 32 3D 72 75 6C 65 72 32 2B 64 61 73 uler2=ruler2+das
0001F0: 68 65 73 5B 31 3A 26 72 63 34 26 5D 2B 22 21 22 hes[1:&rc4&]+"!"
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2B 64 61 73 68 65 73 5B 31 3A 26 72 63 35 26 5D +dashes[1:&rc5&]
000010: 2B 22 52 22 0D 0A 3E 73 76 20 72 33 63 33 3D 72 +"R"..>sv r3c3=r
000020: 32 63 33 2D 32 0D 0A 3E 73 76 20 72 75 6C 65 72 2c3-2..>sv ruler
000030: 33 3D 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 3=">"+dashes[1:&
000040: 72 32 63 31 26 5D 2B 22 21 22 2B 64 61 73 68 65 r2c1&]+"!"+dashe
000050: 73 5B 31 3A 26 72 32 63 32 26 5D 2B 22 2D 2D 2E s[1:&r2c2&]+"--.
000060: 22 2B 64 61 73 68 65 73 5B 31 3A 26 72 33 63 33 "+dashes[1:&r3c3
000070: 26 5D 2B 22 2E 22 0D 0A 3E 73 76 20 72 75 6C 65 &]+"."..>sv rule
000080: 72 33 3D 72 75 6C 65 72 33 2B 64 61 73 68 65 73 r3=ruler3+dashes
000090: 5B 31 3A 26 72 32 63 34 26 5D 2B 22 2E 22 2B 64 [1:&r2c4&]+"."+d
0000A0: 61 73 68 65 73 5B 31 3A 26 72 32 63 35 26 5D 2B ashes[1:&r2c5&]+
0000B0: 22 52 22 0D 0A 3E 73 76 20 72 75 6C 65 72 34 3D "R"..>sv ruler4=
0000C0: 22 3E 22 2B 64 61 73 68 65 73 5B 31 3A 26 6E 26 ">"+dashes[1:&n&
0000D0: 5D 2B 22 21 22 2B 64 61 73 68 65 73 5B 31 3A 31 ]+"!"+dashes[1:1
0000E0: 34 5D 2B 22 4C 22 2B 64 61 73 68 65 73 5B 31 3A 4]+"L"+dashes[1:
0000F0: 37 5D 2B 22 2E 2D 2D 52 22 0D 0A 3E 73 76 20 6E 7]+".--R"..>sv n
000100: 3D 69 77 69 64 74 68 2D 32 0D 0A 3E 73 76 20 72 =iwidth-2..>sv r
000110: 75 6C 65 72 35 3D 22 3E 22 2B 64 61 73 68 65 73 uler5=">"+dashes
000120: 5B 31 3A 26 6E 26 5D 2B 22 52 22 0D 0A 3E 77 6D [1:&n&]+"R"..>wm
000130: 20 27 22 26 72 75 6C 65 72 31 26 22 27 0D 0A 3E '"&ruler1&"'..>
000140: 77 6D 20 27 22 26 72 75 6C 65 72 32 26 22 27 0D wm '"&ruler2&"'.
000150: 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 33 26 22 .>wm '"&ruler3&"
000160: 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 72 34 '..>wm '"&ruler4
000170: 26 22 27 0D 0A 3E 77 6D 20 27 22 26 72 75 6C 65 &"'..>wm '"&rule
000180: 72 35 26 22 27 0D 0A 3E 77 6D 20 27 21 63 6F 6E r5&"'..>wm '!con
000190: 61 6D 65 21 27 0D 0A 3E 77 6D 20 27 21 63 6F 61 ame!'..>wm '!coa
0001A0: 64 64 72 31 21 27 0D 0A 3E 77 6D 20 27 21 63 6F ddr1!'..>wm '!co
0001B0: 61 64 64 72 32 21 27 0D 0A 3E 77 6D 20 27 21 63 addr2!'..>wm '!c
0001C0: 6F 61 64 64 72 33 21 27 0D 0A 3E 77 6D 20 27 21 oaddr3!'..>wm '!
0001D0: 63 6F 61 64 64 72 34 21 27 0D 0A 3E 77 6D 20 27 coaddr4!'..>wm '
0001E0: 21 63 6F 61 64 64 72 35 21 27 0D 0A 3E 77 63 0D !coaddr5!'..>wc.
0001F0: 0A 3E 63 66 0D 0A 3E 65 78 20 65 72 61 20 6F 6D .>cf..>ex era om
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 78 00 19 CB 3C CB 1D E5 DD 66 73 DD 6E 72 E5 21 x...<....fs.nr.!
000010: 0C 00 E5 21 38 00 E5 CD 96 70 21 08 00 39 F9 C3 ...!8....p!..9..
000020: 93 6F DD E5 E1 11 78 00 19 CB 3C CB 1D E5 DD 66 .o....x...<....f
000030: 71 DD 6E 70 E5 21 0E 00 E5 21 38 00 E5 CD 96 70 q.np.!...!8....p
000040: 21 08 00 39 F9 C3 93 6F DD 66 79 DD 6E 78 11 01 !..9...o.fy.nx..
000050: 00 A7 ED 52 C2 5D 6F 21 05 00 C3 78 6F DD 66 79 ...R.]o!...xo.fy
000060: DD 6E 78 11 06 00 A7 ED 52 C2 72 6F 21 02 00 C3 .nx.....R.ro!...
000070: 78 6F DD 66 79 DD 6E 78 DD 74 79 DD 75 78 C3 93 xo.fy.nx.ty.ux..
000080: 6F 05 00 22 6F 04 00 FC 6E 03 00 9F 6E 02 00 45 o.."o...n...n..E
000090: 6E 48 6F DD 7E 79 DD B6 78 C2 37 6E 2A B5 6F E5 nHo.~y..x.7n*.o.
0000A0: DD 66 73 DD 6E 72 29 6E 26 00 7C EE 80 67 22 B5 .fs.nr)n&.|..g".
0000B0: 6F 21 00 00 11 00 00 EB 42 4B 7A EE 80 57 ED 52 o!......BKz..W.R
0000C0: DA F0 6F C5 DD 66 73 DD 6E 72 29 DD 56 6D DD 5E ..o..fs.nr).Vm.^
0000D0: 6C 19 6E 26 00 E5 21 0A 00 DD 56 6D DD 5E 6C 19 l.n&..!...Vm.^l.
0000E0: E5 DD 66 77 DD 6E 76 29 D1 19 D1 73 E1 23 18 C4 ..fw.nv)...s.#..
0000F0: E1 22 B5 6F DD 66 73 DD 6E 72 29 6E 26 00 11 0B .".o.fs.nr)n&...
000100: 00 19 DD 74 75 DD 75 74 2A 21 70 E5 DD 66 71 DC ...tu.ut*!p..fq.
000110: 6E 70 29 6E 26 00 7C EE 80 67 22 21 70 21 00 00 np)n&.|..g"!p!..
000120: 11 00 00 EB 4A 0B 78 E6 80 57 ED 12 48 1F 30 C5 ....J.x..W..H.0.
000130: DD 26 71 DD 26 70 28 C9 00 6D C9 1E 68 18 6E 20 .&q.&p(..m..h.n
000140: 08 E8 9D 06 70 5D 6E 35 DD 10 8A 22 09 36 09 64 ....p]n5...".6.d
000150: 92 04 04 21 0E 91 44 74 57 44 41 A9 93 08 82 1A ...!..DtWDA.....
000160: A4 44 47 1A A0 51 48 80 E3 21 89 82 2A C6 CE 04 .DG..QH..!..*...
000170: FC 08 79 6A 90 C0 18 01 A2 49 42 28 90 00 86 01 ..yj.....IB(....
000180: 01 61 0C 02 21 19 04 A5 0C 79 18 50 E2 59 15 25 .a..!....y.P.Y.%
000190: 54 90 49 06 C0 C8 22 80 04 82 98 CD 05 72 6D 00 T.I..."......rm.
0001A0: 20 A3 08 81 8C 21 20 22 58 00 24 35 67 86 82 4A ....! "X.$5g..J
0001B0: 09 2E 40 18 18 43 E8 49 E0 1A 00 80 08 5F 21 21 ..@..C.I....._!!
0001C0: 28 48 46 C3 A4 5B 8E 08 A1 07 2A 01 14 60 A4 29 (HF..[....*..`.)
0001D0: 13 B4 09 1A 77 3E 32 C1 38 77 13 A9 A0 06 A4 20 ....w>2.8w.....
0001E0: 08 D9 01 10 00 98 81 20 4E F3 04 44 04 01 E1 98 ....... N..D....
0001F0: 18 60 D5 C4 00 AE 04 C9 49 00 84 1C 09 87 4C 83 .`......I.....L.
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan