/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / datavision / !DataVis / !dv9

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 f4 20 3e 20 | 24 2e 21 44 61 74 61 56 |..... > |$.!DataV|
|00000010| 69 73 2e 21 64 76 39 0d | 00 0f 1e c8 99 20 22 57 |is.!dv9.|..... "W|
|00000020| 69 6d 70 5f 43 6f 6d 6d | 61 6e 64 57 69 6e 64 6f |imp_Comm|andWindo|
|00000030| 77 22 2c 2d 31 0d 00 14 | 10 eb 20 31 35 3a fb 20 |w",-1...|.. 15:. |
|00000040| 31 38 30 3a db 0d 00 1e | 0b ee 85 e5 8d 54 56 52 |180:....|.....TVR|
|00000050| 0d 00 28 29 c8 97 20 ee | 3a 87 3a 46 47 25 3d 31 |..().. .|:.:FG%=1|
|00000060| 38 30 3a 42 44 25 3d 31 | 30 30 3a 61 73 66 24 3d |80:BD%=1|00:asf$=|
|00000070| 22 64 76 61 73 63 69 69 | 22 0d 00 32 18 de 4c 41 |"dvascii|"..2..LA|
|00000080| 25 28 38 2c 31 30 29 3a | de 41 43 52 25 28 31 30 |%(8,10):|.ACR%(10|
|00000090| 29 0d 00 3c 31 de 51 24 | 28 31 30 2c 37 29 3a de |)..<1.Q$|(10,7):.|
|000000a0| 4d 45 24 28 32 30 29 3a | de 52 45 24 28 32 35 2c |ME$(20):|.RE$(25,|
|000000b0| 35 29 3a de 50 28 32 35 | 2c 36 29 3a de 50 24 28 |5):.P(25|,6):.P$(|
|000000c0| 36 29 0d 00 46 58 54 25 | 3d bb 28 22 30 22 29 3a |6)..FXT%|=.("0"):|
|000000d0| 41 25 3d 54 25 3a 4d 31 | 25 3d 54 25 3a 4d 32 25 |A%=T%:M1|%=T%:M2%|
|000000e0| 3d 54 25 3a 53 25 3d 54 | 25 3a 53 41 4d 53 25 3d |=T%:S%=T|%:SAMS%=|
|000000f0| 54 25 3a 47 50 25 3d 30 | 3a 51 46 25 3d 30 3a 52 |T%:GP%=0|:QF%=0:R|
|00000100| 50 25 3d 30 3a 54 49 4c | 24 3d 22 22 3a 53 55 24 |P%=0:TIL|$="":SU$|
|00000110| 3d 22 22 3a 46 54 24 3d | 22 22 0d 00 50 66 ff 22 |="":FT$=|""..Pf."|
|00000120| 43 4c 4f 53 45 22 3a 53 | 54 24 3d 22 33 22 3a 58 |CLOSE":S|T$="3":X|
|00000130| 3d ad 20 a4 4d 79 46 69 | 6c 65 28 22 4e 49 4d 22 |=. .MyFi|le("NIM"|
|00000140| 29 3a e8 23 58 2c 46 49 | 24 2c 53 54 24 2c 44 41 |):.#X,FI|$,ST$,DA|
|00000150| 24 2c 44 52 24 2c 5a 5a | 24 2c 4d 44 24 3a ff 22 |$,DR$,ZZ|$,MD$:."|
|00000160| 43 4c 4f 53 45 22 3a 46 | 4f 24 3d 46 49 24 2b 22 |CLOSE":F|O$=FI$+"|
|00000170| 41 22 3a 53 54 24 3d 22 | 31 22 3a e5 8d 74 72 42 |A":ST$="|1":..trB|
|00000180| 0d 00 5a 10 dd f2 4d 41 | 49 4e 3a 67 6f 25 3d 30 |..Z...MA|IN:go%=0|
|00000190| 0d 00 64 41 e7 53 54 24 | 3d 22 31 22 8c 20 54 41 |..dA.ST$|="1". TA|
|000001a0| 24 3d 46 49 24 2b 22 4e | 22 3a 58 3d ad a4 4d 79 |$=FI$+"N|":X=..My|
|000001b0| 46 69 6c 65 28 54 41 24 | 29 3a e8 23 58 2c 44 49 |File(TA$|):.#X,DI|
|000001c0| 24 3a f2 44 69 72 28 44 | 49 24 29 3a e5 8d 74 60 |$:.Dir(D|I$):..t`|
|000001d0| 40 0d 00 6e 09 e5 8d 74 | 42 40 0d 00 78 61 f2 45 |@..n...t|B@..xa.E|
|000001e0| 52 57 49 4e 3a fb 31 38 | 30 3a f1 8a 32 30 2c 31 |RWIN:.18|0:..20,1|
|000001f0| 32 29 3b 22 43 61 6e 6e | 6f 74 20 72 65 61 64 20 |2);"Cann|ot read |
|00000200| 74 68 65 20 66 69 6c 65 | 20 3a 22 3b 46 49 24 3b |the file| :";FI$;|
|00000210| 8a 32 30 2c 31 34 29 3b | 22 28 66 69 6c 65 20 65 |.20,14);|"(file e|
|00000220| 6d 70 74 79 29 22 3a fb | 46 47 25 3a ef 37 3a f2 |mpty)":.|FG%:.7:.|
|00000230| 4d 4b 4c 49 4b 3a e5 8d | 54 7e 4d 0d 00 82 37 e7 |MKLIK:..|T~M...7.|
|00000240| 53 54 24 3d 22 32 22 8c | 20 54 41 24 3d 46 49 24 |ST$="2".| TA$=FI$|
|00000250| 2b 22 4e 22 3a 58 3d ad | a4 4d 79 46 69 6c 65 28 |+"N":X=.|.MyFile(|
|00000260| 54 41 24 29 3a e8 23 58 | 2c 44 49 24 3a e5 8d 74 |TA$):.#X|,DI$:..t|
|00000270| 60 40 0d 00 8c 35 dd f2 | 4d 4b 4c 49 4b 3a f5 3a |`@...5..|MKLIK:.:|
|00000280| c8 97 20 55 2c 55 2c 42 | 55 54 3a fd 42 55 54 3d |.. U,U,B|UT:.BUT=|
|00000290| 30 3a f5 3a c8 97 20 55 | 2c 55 2c 42 55 54 3a fd |0:.:.. U|,U,BUT:.|
|000002a0| 42 55 54 3d 34 3a e1 0d | 00 96 31 dd f2 45 52 57 |BUT=4:..|..1..ERW|
|000002b0| 49 4e 3a 58 3d 31 39 3a | 59 3d 31 31 3a 57 25 3d |IN:X=19:|Y=11:W%=|
|000002c0| 34 30 3a 4c 25 3d 33 3a | fb 31 38 30 3a f2 4c 57 |40:L%=3:|.180:.LW|
|000002d0| 4e 3a fb 46 47 25 3a e1 | 0d 00 a0 96 d9 23 30 3a |N:.FG%:.|.....#0:|
|000002e0| 58 3d ad 20 a4 4d 79 46 | 69 6c 65 28 46 4f 24 29 |X=. .MyF|ile(FO$)|
|000002f0| 3a cf 23 58 3d 30 3a e8 | 23 58 2c 5a 5a 24 3a 4e |:.#X=0:.|#X,ZZ$:N|
|00000300| 4f 46 25 3d bb 28 5a 5a | 24 29 3a cf 23 58 3d 35 |OF%=.(ZZ|$):.#X=5|
|00000310| 3a e8 23 58 2c 5a 5a 24 | 3a 4e 4f 52 25 3d bb 28 |:.#X,ZZ$|:NOR%=.(|
|00000320| 5a 5a 24 29 3a cf 23 58 | 3d 31 35 3a e8 23 58 2c |ZZ$):.#X|=15:.#X,|
|00000330| 5a 5a 24 3a 52 45 43 25 | 3d bb 28 5a 5a 24 29 3a |ZZ$:REC%|=.(ZZ$):|
|00000340| cf 23 58 3d 34 35 3a e8 | 23 58 2c 53 4f 24 3a cf |.#X=45:.|#X,SO$:.|
|00000350| 23 58 3d 34 38 3a e8 23 | 58 2c 52 45 4c 24 3a cf |#X=48:.#|X,REL$:.|
|00000360| 23 58 3d 32 33 3a e8 23 | 58 2c 53 4f 4c 24 0d 00 |#X=23:.#|X,SOL$..|
|00000370| aa 15 e7 bb 28 53 4f 24 | 29 3e 30 8c 53 4f 24 3d |....(SO$|)>0.SO$=|
|00000380| 22 31 22 0d 00 b4 11 e7 | 4e 4f 52 25 3d 30 8c e5 |"1".....|NOR%=0..|
|00000390| 8d 44 78 40 0d 00 be 0b | 67 6f 25 3d 31 3a e1 0d |.Dx@....|go%=1:..|
|000003a0| 00 c8 0c dd f2 46 4f 50 | 4f 55 54 0d 00 d2 2f ff |.....FOP|OUT.../.|
|000003b0| 22 43 4c 4f 53 45 22 3a | 58 3d ad 20 a4 4d 79 46 |"CLOSE":|X=. .MyF|
|000003c0| 69 6c 65 28 46 4f 24 29 | 3a 50 4f 49 3d 28 43 46 |ile(FO$)|:POI=(CF|
|000003d0| 25 2d 31 29 2a 36 31 2b | 36 33 0d 00 dc 13 cf 23 |%-1)*61+|63.....#|
|000003e0| 58 3d 50 4f 49 3a e8 23 | 58 2c 46 4c 24 0d 00 e6 |X=POI:.#|X,FL$...|
|000003f0| 20 cf 23 58 3d 50 4f 49 | 2b 32 32 3a e8 23 58 2c | .#X=POI|+22:.#X,|
|00000400| 5a 5a 24 3a 58 31 3d bb | 28 5a 5a 24 29 0d 00 f0 |ZZ$:X1=.|(ZZ$)...|
|00000410| 20 cf 23 58 3d 50 4f 49 | 2b 32 36 3a e8 23 58 2c | .#X=POI|+26:.#X,|
|00000420| 5a 5a 24 3a 59 31 3d bb | 28 5a 5a 24 29 0d 00 fa |ZZ$:Y1=.|(ZZ$)...|
|00000430| 20 cf 23 58 3d 50 4f 49 | 2b 33 30 3a e8 23 58 2c | .#X=POI|+30:.#X,|
|00000440| 5a 5a 24 3a 58 32 3d bb | 28 5a 5a 24 29 0d 01 04 |ZZ$:X2=.|(ZZ$)...|
|00000450| 20 cf 23 58 3d 50 4f 49 | 2b 33 34 3a e8 23 58 2c | .#X=POI|+34:.#X,|
|00000460| 5a 5a 24 3a 59 32 3d bb | 28 5a 5a 24 29 0d 01 0e |ZZ$:Y2=.|(ZZ$)...|
|00000470| 16 cf 23 58 3d 50 4f 49 | 2b 33 38 3a e8 23 58 2c |..#X=POI|+38:.#X,|
|00000480| 54 59 24 0d 01 18 21 cf | 23 58 3d 50 4f 49 2b 34 |TY$...!.|#X=POI+4|
|00000490| 31 3a e8 23 58 2c 5a 5a | 24 3a 49 4e 25 3d bb 28 |1:.#X,ZZ|$:IN%=.(|
|000004a0| 5a 5a 24 29 0d 01 22 21 | cf 23 58 3d 50 4f 49 2b |ZZ$).."!|.#X=POI+|
|000004b0| 34 36 3a e8 23 58 2c 5a | 5a 24 3a 54 49 25 3d bb |46:.#X,Z|Z$:TI%=.|
|000004c0| 28 5a 5a 24 29 0d 01 2c | 16 cf 23 58 3d 50 4f 49 |(ZZ$)..,|..#X=POI|
|000004d0| 2b 35 34 3a e8 23 58 2c | 54 52 24 0d 01 36 16 cf |+54:.#X,|TR$..6..|
|000004e0| 23 58 3d 50 4f 49 2b 35 | 38 3a e8 23 58 2c 4e 50 |#X=POI+5|8:.#X,NP|
|000004f0| 24 0d 01 40 05 e1 0d 01 | 4a 09 dd f2 4c 57 4e 0d |$..@....|J...LWN.|
|00000500| 01 54 79 f1 8a 58 2c 59 | 29 3b bd 28 31 35 34 29 |.Ty..X,Y|);.(154)|
|00000510| 3b c4 57 25 2c bd 28 31 | 35 39 29 29 3b bd 28 31 |;.W%,.(1|59));.(1|
|00000520| 35 38 29 3a e3 49 3d 59 | 2b 31 b8 59 2b 4c 25 3a |58):.I=Y|+1.Y+L%:|
|00000530| f1 8a 58 2c 49 29 3b bd | 28 31 35 35 29 3b c4 57 |..X,I);.|(155);.W|
|00000540| 25 2c 22 20 22 29 3b bd | 28 31 35 37 29 3a ed 49 |%," ");.|(157):.I|
|00000550| 3a f1 8a 58 2c 59 2b 28 | 4c 25 2b 31 29 29 3b bd |:..X,Y+(|L%+1));.|
|00000560| 28 31 35 36 29 3b c4 57 | 25 2c bd 28 31 36 30 29 |(156);.W|%,.(160)|
|00000570| 29 3b bd 28 31 36 31 29 | 0d 01 5e 05 e1 0d 01 68 |);.(161)|..^....h|
|00000580| 0a dd f2 54 49 4d 45 0d | 01 72 5e 53 25 3d 28 91 |...TIME.|.r^S%=(.|
|00000590| 20 81 31 30 30 29 83 36 | 30 3a 4d 25 3d 28 91 20 | .100).6|0:M%=(. |
|000005a0| 81 36 30 30 30 29 83 36 | 30 3a 48 25 3d 28 91 20 |.6000).6|0:H%=(. |
|000005b0| 81 33 36 30 30 30 30 29 | 83 32 34 3a f1 8a 37 33 |.360000)|.24:..73|
|000005c0| 2c 30 29 3b 22 3a 22 3b | 8a 37 36 2c 30 29 3b 22 |,0);":";|.76,0);"|
|000005d0| 3a 22 3a e7 53 25 3c 31 | 30 8c f1 8a 37 37 2c 30 |:":.S%<1|0...77,0|
|000005e0| 29 3b 22 30 22 0d 01 7c | 16 e7 4d 25 3c 31 30 8c |);"0"..||..M%<10.|
|000005f0| f1 8a 37 34 2c 30 29 3b | 22 30 22 0d 01 86 16 e7 |..74,0);|"0".....|
|00000600| 48 25 3c 31 30 8c f1 8a | 37 31 2c 30 29 3b 22 30 |H%<10...|71,0);"0|
|00000610| 22 0d 01 90 3d f1 8a 37 | 33 2d a9 28 c3 28 48 25 |"...=..7|3-.(.(H%|
|00000620| 29 29 2c 30 29 3b 48 25 | 3b 8a 37 36 2d a9 28 c3 |)),0);H%|;.76-.(.|
|00000630| 28 4d 25 29 29 2c 30 29 | 3b 4d 25 3b 8a 37 39 2d |(M%)),0)|;M%;.79-|
|00000640| a9 28 c3 28 53 25 29 29 | 2c 30 29 3b 53 25 0d 01 |.(.(S%))|,0);S%..|
|00000650| 9a 05 e1 0d 01 a4 12 dd | f2 54 45 58 54 3a 2a 46 |........|.TEXT:*F|
|00000660| 58 32 31 2c 30 0d 01 ae | 0e 54 24 3d 22 22 3a 4c |X21,0...|.T$="":L|
|00000670| 31 3d 30 0d 01 b8 18 e7 | 4c 31 3c 4c 25 8c f1 8a |1=0.....|L1<L%...|
|00000680| 58 2c 59 29 3b bd 28 32 | 35 35 29 0d 01 c2 08 49 |X,Y);.(2|55)....I|
|00000690| 4e 3d a5 0d 01 cc 16 e7 | 49 4e 3d 31 33 8c 4e 50 |N=......|IN=13.NP|
|000006a0| 25 3d 30 3a e5 8d 54 66 | 42 0d 01 d6 11 e7 49 4e |%=0:..Tf|B.....IN|
|000006b0| 3d 31 32 37 8c e5 8d 54 | 48 42 0d 01 e0 15 e7 49 |=127...T|HB.....I|
|000006c0| 4e 3d 39 8c 4e 50 25 3d | 31 3a e5 8d 54 66 42 0d |N=9.NP%=|1:..TfB.|
|000006d0| 01 ea 10 e7 4c 31 3d 4c | 25 8c e5 8d 64 42 41 0d |....L1=L|%...dBA.|
|000006e0| 01 f4 2a f1 8a 58 2c 59 | 29 3b bd 28 49 4e 29 3a |..*..X,Y|);.(IN):|
|000006f0| 54 24 3d 54 24 2b bd 28 | 49 4e 29 3a 4c 31 3d 4c |T$=T$+.(|IN):L1=L|
|00000700| 31 2b 31 3a 58 3d 58 2b | 31 0d 01 fe 09 e5 8d 74 |1+1:X=X+|1......t|
|00000710| 78 41 0d 02 08 0f e7 4c | 31 3d 30 8c e5 8d 74 6e |xA.....L|1=0...tn|
|00000720| 41 0d 02 12 27 f1 8a 58 | 2c 59 29 3b 22 20 22 3a |A...'..X|,Y);" ":|
|00000730| 58 3d 58 2d 31 3a 4c 31 | 3d 4c 31 2d 31 3a 54 24 |X=X-1:L1|=L1-1:T$|
|00000740| 3d c0 54 24 2c 4c 31 29 | 0d 02 1c 09 e5 8d 74 78 |=.T$,L1)|......tx|
|00000750| 41 0d 02 26 0e f1 8a 58 | 2c 59 29 3b 22 20 22 0d |A..&...X|,Y);" ".|
|00000760| 02 30 05 e1 0d 02 3a a8 | db 3a 58 3d 32 3a 59 3d |.0....:.|.:X=2:Y=|
|00000770| 32 3a 57 25 3d 35 30 3a | 4c 25 3d 33 3a f2 4c 57 |2:W%=50:|L%=3:.LW|
|00000780| 4e 3a f1 8a 33 2c 33 29 | 3b 22 46 69 65 6c 64 73 |N:..3,3)|;"Fields|
|00000790| 20 69 6e 20 22 3b 46 49 | 24 3b 22 20 66 69 6c 65 | in ";FI|$;" file|
|000007a0| 3a 20 22 3b 4e 4f 46 25 | 3b 8a 33 2c 35 29 3b 22 |: ";NOF%|;.3,5);"|
|000007b0| 48 6f 77 20 6d 61 6e 79 | 20 66 69 65 6c 64 73 20 |How many| fields |
|000007c0| 69 6e 20 72 65 70 6f 72 | 74 3f 3a 20 22 3a 58 3d |in repor|t?: ":X=|
|000007d0| 33 31 3a 59 3d 35 3a 4c | 25 3d 33 3a f2 54 45 58 |31:Y=5:L|%=3:.TEX|
|000007e0| 54 3a e7 54 24 3d 22 22 | 8c e5 8d 74 7c 42 3a 53 |T:.T$=""|...t|B:S|
|000007f0| 46 25 3d bb 28 54 24 29 | 3a e7 53 46 25 3c 31 84 |F%=.(T$)|:.SF%<1.|
|00000800| 53 46 25 3e 32 35 8c e5 | 8d 74 7c 42 0d 02 44 21 |SF%>25..|.t|B..D!|
|00000810| 53 46 25 3d bb 28 54 24 | 29 3a e7 53 46 25 3c 31 |SF%=.(T$|):.SF%<1|
|00000820| 84 53 46 25 3e 32 35 8c | e5 8d 74 7c 42 0d 02 4e |.SF%>25.|..t|B..N|
|00000830| 13 e7 53 46 25 3e 4e 4f | 46 25 8c e5 8d 74 7c 42 |..SF%>NO|F%...t|B|
|00000840| 0d 02 58 a5 52 4c 45 25 | 3d 30 3a f2 42 4c 41 4e |..X.RLE%|=0:.BLAN|
|00000850| 43 3a ff 22 43 4c 4f 53 | 45 22 3a 58 3d ad a4 4d |C:."CLOS|E":X=..M|
|00000860| 79 46 69 6c 65 28 46 4f | 24 29 3a e3 49 3d 31 b8 |yFile(FO|$):.I=1.|
|00000870| 53 46 25 3a cf 23 58 3d | 28 49 2d 31 29 2a 36 31 |SF%:.#X=|(I-1)*61|
|00000880| 2b 36 33 3a e8 23 58 2c | 46 4c 24 3a f2 43 4f 4e |+63:.#X,|FL$:.CON|
|00000890| 56 28 49 2c 33 29 3a 52 | 45 24 28 49 2c 31 29 3d |V(I,3):R|E$(I,1)=|
|000008a0| 56 31 24 2b 46 4c 24 3a | cf 23 58 3d 28 49 2d 31 |V1$+FL$:|.#X=(I-1|
|000008b0| 29 2a 36 31 2b 31 30 34 | 3a e8 23 58 2c 49 4e 24 |)*61+104|:.#X,IN$|
|000008c0| 3a 49 49 4e 25 3d bb 28 | 49 4e 24 29 3a e7 a9 28 |:IIN%=.(|IN$):..(|
|000008d0| 46 4c 24 29 3e 49 49 4e | 25 8c 49 49 4e 25 3d a9 |FL$)>IIN|%.IIN%=.|
|000008e0| 28 46 4c 24 29 0d 02 62 | 5e 52 45 24 28 49 2c 32 |(FL$)..b|^RE$(I,2|
|000008f0| 29 3d c3 28 49 49 4e 25 | 29 3a 52 4c 45 25 3d 52 |)=.(IIN%|):RLE%=R|
|00000900| 4c 45 25 2b 28 49 49 4e | 25 2b 31 29 3a 52 45 24 |LE%+(IIN|%+1):RE$|
|00000910| 28 49 2c 33 29 3d 22 30 | 30 30 30 30 30 22 3a 52 |(I,3)="0|00000":R|
|00000920| 45 24 28 49 2c 34 29 3d | 22 22 3a 52 45 24 28 49 |E$(I,4)=|"":RE$(I|
|00000930| 2c 35 29 3d 22 31 30 22 | 3a ed 49 3a db 3a e5 8d |,5)="10"|:.I:.:..|
|00000940| 64 78 42 0d 02 6c 9f db | 3a f2 42 4c 41 4e 43 3a |dxB..l..|:.BLANC:|
|00000950| fb 31 38 30 3a 58 3d 32 | 3a 59 3d 32 3a 57 25 3d |.180:X=2|:Y=2:W%=|
|00000960| 34 33 3a 4c 25 3d 32 33 | 3a f2 4c 57 4e 3a f1 8a |43:L%=23|:.LWN:..|
|00000970| 33 2c 33 29 3b 22 52 65 | 70 6f 72 74 20 44 65 66 |3,3);"Re|port Def|
|00000980| 69 6e 69 74 69 6f 6e 20 | 54 61 62 6c 65 22 3b 8a |inition |Table";.|
|00000990| 33 2c 34 29 3b c4 57 25 | 2c bd 28 32 34 31 29 29 |3,4);.W%|,.(241))|
|000009a0| 3a fb 31 33 31 3a e3 49 | 3d 31 b8 32 30 3a f1 8a |:.131:.I|=1.20:..|
|000009b0| 33 2c 49 2b 35 29 3b 22 | 43 6f 6e 74 65 6e 74 73 |3,I+5);"|Contents|
|000009c0| 20 6f 66 20 43 6f 6c 75 | 6d 6e 20 22 3b c4 32 2d | of Colu|mn ";.2-|
|000009d0| a9 28 c3 28 49 29 29 2c | 22 30 22 29 3b 49 3b 22 |.(.(I)),|"0");I;"|
|000009e0| 3a 22 0d 02 76 0b ed 49 | 3a fb 46 47 25 0d 02 80 |:"..v..I|:.FG%...|
|000009f0| 16 52 4c 45 25 3d 30 3a | 53 53 53 46 25 3d 30 3a |.RLE%=0:|SSSF%=0:|
|00000a00| 4a 3d 31 0d 02 8a 6d f5 | 3a c8 97 20 55 2c 55 2c |J=1...m.|:.. U,U,|
|00000a10| 42 55 54 3a fd 20 42 55 | 54 3d 30 3a f2 53 45 4c |BUT:. BU|T=0:.SEL|
|00000a20| 3a e7 42 55 54 3d 31 20 | 8c e5 8d 74 68 42 3a 8b |:.BUT=1 |...thB:.|
|00000a30| 53 53 53 46 25 3d 53 53 | 53 46 25 2b 31 3a f1 8a |SSSF%=SS|SF%+1:..|
|00000a40| 32 36 2c 4a 2b 35 29 3b | 46 4c 24 3a 49 49 4e 25 |26,J+5);|FL$:IIN%|
|00000a50| 3d bb 28 49 4e 24 29 3a | e7 a9 28 46 4c 24 29 3e |=.(IN$):|..(FL$)>|
|00000a60| 49 49 4e 25 8c 49 49 4e | 25 3d a9 28 46 4c 24 29 |IIN%.IIN|%=.(FL$)|
|00000a70| 0d 02 94 70 f2 43 4f 4e | 56 28 53 46 25 2c 33 29 |...p.CON|V(SF%,3)|
|00000a80| 3a 52 45 24 28 4a 2c 31 | 29 3d 56 31 24 2b 46 4c |:RE$(J,1|)=V1$+FL|
|00000a90| 24 3a 52 45 24 28 4a 2c | 32 29 3d c3 28 49 49 4e |$:RE$(J,|2)=.(IIN|
|00000aa0| 25 29 3a 52 4c 45 25 3d | 52 4c 45 25 2b 28 49 49 |%):RLE%=|RLE%+(II|
|00000ab0| 4e 25 2b 31 29 3a 52 45 | 24 28 4a 2c 33 29 3d 22 |N%+1):RE|$(J,3)="|
|00000ac0| 30 30 30 30 30 30 22 3a | 52 45 24 28 4a 2c 34 29 |000000":|RE$(J,4)|
|00000ad0| 3d 22 22 3a 52 45 24 28 | 4a 2c 35 29 3d 22 32 22 |="":RE$(|J,5)="2"|
|00000ae0| 0d 02 9e 34 f1 8a 33 33 | 2c 33 29 3b 22 4c 65 6e |...4..33|,3);"Len|
|00000af0| 67 74 68 3a 20 22 3b 52 | 4c 45 25 3a 4a 3d 4a 2b |gth: ";R|LE%:J=J+|
|00000b00| 31 3a e7 4a 3e 32 30 8c | e5 8d 74 68 42 3a 8b e5 |1:.J>20.|..thB:..|
|00000b10| 8d 74 4a 42 0d 02 a8 23 | e7 53 53 53 46 25 3d 30 |.tJB...#|.SSSF%=0|
|00000b20| 8c e5 8d 74 7c 42 3a 8b | 53 46 25 3d 53 53 53 46 |...t|B:.|SF%=SSSF|
|00000b30| 25 3a e5 8d 74 68 47 0d | 02 b2 09 f2 4d 41 49 4e |%:..thG.|....MAIN|
|00000b40| 0d 02 bc 1d 58 3d 34 30 | 3a 59 3d 31 33 3a 57 25 |....X=40|:Y=13:W%|
|00000b50| 3d 31 35 3a 4c 25 3d 35 | 3a f2 4c 57 4e 0d 02 c6 |=15:L%=5|:.LWN...|
|00000b60| 7e 4d 45 24 28 31 29 3d | 22 44 65 73 69 67 6e 20 |~ME$(1)=|"Design |
|00000b70| 52 65 70 6f 72 74 22 3a | 4d 45 24 28 32 29 3d 22 |Report":|ME$(2)="|
|00000b80| 44 65 73 69 67 6e 20 4c | 61 62 65 6c 22 3a 4d 45 |Design L|abel":ME|
|00000b90| 24 28 33 29 3d 22 4c 6f | 61 64 20 52 65 70 6f 72 |$(3)="Lo|ad Repor|
|00000ba0| 74 22 3a 4d 45 24 28 34 | 29 3d 22 4c 6f 61 64 20 |t":ME$(4|)="Load |
|00000bb0| 4c 61 62 65 6c 22 3a 4d | 45 24 28 35 29 3d 22 51 |Label":M|E$(5)="Q|
|00000bc0| 75 69 74 22 3a 58 3d 34 | 31 3a 59 3d 31 34 3a 4c |uit":X=4|1:Y=14:L|
|00000bd0| 25 3d 35 3a f2 53 45 4c | 45 43 54 0d 02 d0 38 e7 |%=5:.SEL|ECT...8.|
|00000be0| 53 45 4c 25 3d 31 8c 52 | 54 56 31 25 3d 32 35 31 |SEL%=1.R|TV1%=251|
|00000bf0| 30 3a 52 54 56 32 25 3d | 31 33 33 30 3a 52 54 56 |0:RTV2%=|1330:RTV|
|00000c00| 33 25 3d 31 34 37 30 3a | 51 46 25 3d 30 3a e5 8d |3%=1470:|QF%=0:..|
|00000c10| 44 6c 42 0d 02 da 3f e7 | 53 45 4c 25 3d 33 8c 52 |DlB...?.|SEL%=3.R|
|00000c20| 54 56 31 25 3d 32 35 31 | 30 3a 52 54 56 32 25 3d |TV1%=251|0:RTV2%=|
|00000c30| 31 33 33 30 3a 52 54 56 | 33 25 3d 31 34 37 30 3a |1330:RTV|3%=1470:|
|00000c40| 51 46 25 3d 30 3a f2 42 | 4c 41 4e 43 3a e5 8d 54 |QF%=0:.B|LANC:..T|
|00000c50| 4c 43 0d 02 e4 38 e7 53 | 45 4c 25 3d 34 8c 52 54 |LC...8.S|EL%=4.RT|
|00000c60| 56 31 25 3d 33 30 36 30 | 3a 52 54 56 32 25 3d 33 |V1%=3060|:RTV2%=3|
|00000c70| 31 31 30 3a 52 54 56 33 | 25 3d 33 31 32 30 3a 51 |110:RTV3|%=3120:Q|
|00000c80| 46 25 3d 30 3a e5 8d 74 | 4a 4c 0d 02 ee 11 e7 53 |F%=0:..t|JL.....S|
|00000c90| 45 4c 25 3d 35 8c e5 8d | 54 7e 4d 0d 02 f8 38 e7 |EL%=5...|T~M...8.|
|00000ca0| 53 45 4c 25 3d 32 8c 52 | 54 56 31 25 3d 33 30 36 |SEL%=2.R|TV1%=306|
|00000cb0| 30 3a 52 54 56 32 25 3d | 33 31 31 30 3a 52 54 56 |0:RTV2%=|3110:RTV|
|00000cc0| 33 25 3d 33 31 32 30 3a | 51 46 25 3d 30 3a e5 8d |3%=3120:|QF%=0:..|
|00000cd0| 54 62 4b 0d 03 02 09 e5 | 8d 64 46 42 0d 03 0c 63 |TbK.....|.dFB...c|
|00000ce0| 58 3d 31 30 3a 59 3d 31 | 33 3a 57 25 3d 33 35 3a |X=10:Y=1|3:W%=35:|
|00000cf0| 4c 25 3d 31 3a f2 4c 57 | 4e 3a f1 8a 31 31 2c 31 |L%=1:.LW|N:..11,1|
|00000d00| 34 29 3b 22 45 6e 74 65 | 72 20 52 65 70 6f 72 74 |4);"Ente|r Report|
|00000d10| 20 46 69 6c 65 6e 61 6d | 65 3a 20 22 3b 3a 58 3d | Filenam|e: ";:X=|
|00000d20| b1 3a 59 3d 31 34 3a 4c | 25 3d 31 30 3a f2 54 45 |.:Y=14:L|%=10:.TE|
|00000d30| 58 54 3a e7 54 24 3d 22 | 22 8c e5 8d 74 7c 42 0d |XT:.T$="|"...t|B.|
|00000d40| 03 16 0b ee 85 e5 8d 54 | 7e 43 0d 03 20 b4 ff 22 |.......T|~C.. .."|
|00000d50| 43 4c 4f 53 45 22 3a 58 | 3d ad a4 4d 79 46 69 6c |CLOSE":X|=..MyFil|
|00000d60| 65 28 54 24 29 3a e3 49 | 3d 30 b8 35 3a e3 46 3d |e(T$):.I|=0.5:.F=|
|00000d70| 30 b8 32 35 3a e8 23 58 | 2c 52 45 24 28 46 2c 49 |0.25:.#X|,RE$(F,I|
|00000d80| 29 3a ed 46 3a ed 49 3a | ff 22 43 4c 4f 53 45 22 |):.F:.I:|."CLOSE"|
|00000d90| 3a 53 41 4d 53 25 3d bb | 28 c1 52 45 24 28 31 2c |:SAMS%=.|(.RE$(1,|
|00000da0| 30 29 2c 31 2c 31 29 29 | 3a 54 25 3d bb 28 c1 52 |0),1,1))|:T%=.(.R|
|00000db0| 45 24 28 31 2c 30 29 2c | 32 2c 31 29 29 3a 41 25 |E$(1,0),|2,1)):A%|
|00000dc0| 3d bb 28 c1 52 45 24 28 | 31 2c 30 29 2c 33 2c 31 |=.(.RE$(|1,0),3,1|
|00000dd0| 29 29 3a 4d 31 25 3d bb | 28 c1 52 45 24 28 31 2c |)):M1%=.|(.RE$(1,|
|00000de0| 30 29 2c 34 2c 31 29 29 | 3a 4d 32 25 3d bb 28 c1 |0),4,1))|:M2%=.(.|
|00000df0| 52 45 24 28 31 2c 30 29 | 2c 35 2c 31 29 29 0d 03 |RE$(1,0)|,5,1))..|
|00000e00| 2a 2c 53 46 25 3d bb 28 | 52 45 24 28 32 2c 30 29 |*,SF%=.(|RE$(2,0)|
|00000e10| 29 3a 52 4c 45 25 3d bb | 28 52 45 24 28 33 2c 30 |):RLE%=.|(RE$(3,0|
|00000e20| 29 29 3a ee 85 e5 8d 54 | 56 52 0d 03 34 09 e5 8d |)):....T|VR..4...|
|00000e30| 74 68 47 0d 03 3e 0b ee | 85 e5 8d 54 56 52 0d 03 |thG..>..|...TVR..|
|00000e40| 48 73 f2 45 52 57 49 4e | 3a fb 31 38 30 3a f1 8a |Hs.ERWIN|:.180:..|
|00000e50| 32 30 2c 31 32 29 3b 22 | 43 61 6e 6e 6f 74 20 66 |20,12);"|Cannot f|
|00000e60| 69 6e 64 20 74 68 65 20 | 22 3b 54 24 3b 22 20 72 |ind the |";T$;" r|
|00000e70| 65 70 6f 72 74 3a 22 3b | 8a 32 30 2c 31 34 29 3b |eport:";|.20,14);|
|00000e80| 22 43 6c 69 63 6b 20 6d | 6f 75 73 65 20 74 6f 20 |"Click m|ouse to |
|00000e90| 63 6f 6e 74 69 6e 75 65 | 2e 2e 2e 22 3a ef 37 3a |continue|...":.7:|
|00000ea0| fb 46 47 25 3a f2 4d 4b | 4c 49 4b 3a e5 8d 74 7c |.FG%:.MK|LIK:..t||
|00000eb0| 42 0d 03 52 26 dd f2 54 | 52 49 4d 3a 54 52 4e 3d |B..R&..T|RIM:TRN=|
|00000ec0| bb 28 4e 24 29 3a 4c 3d | 31 3a e7 54 52 4d 3d 31 |.(N$):L=|1:.TRM=1|
|00000ed0| 30 8c e5 8d 74 62 43 0d | 03 5c 1d e7 54 52 4d 3d |0...tbC.|.\..TRM=|
|00000ee0| 30 8c 4e 24 3d c3 28 a8 | 28 54 52 4e 29 29 3a e5 |0.N$=.(.|(TRN)):.|
|00000ef0| 8d 74 62 43 0d 03 66 30 | e7 54 52 4e 3d a8 28 54 |.tbC..f0|.TRN=.(T|
|00000f00| 52 4e 29 8c 4e 24 3d c3 | 28 a8 28 54 52 4e 29 29 |RN).N$=.|(.(TRN))|
|00000f10| 2b 22 2e 22 2b c4 54 52 | 4d 2c 22 30 22 29 3a e5 |+"."+.TR|M,"0"):.|
|00000f20| 8d 74 62 43 0d 03 70 14 | 4c 3d a7 4e 24 2c 22 2e |.tbC..p.|L=.N$,".|
|00000f30| 22 29 3a e5 8d 44 7a 43 | 0d 03 7a 40 54 52 4d 24 |"):..DzC|..z@TRM$|
|00000f40| 3d c1 4e 24 2c 28 4c 2b | 31 29 2c a9 28 4e 24 29 |=.N$,(L+|1),.(N$)|
|00000f50| 2d 4c 29 3a e7 a9 28 54 | 52 4d 24 29 3e 54 52 4d |-L):..(T|RM$)>TRM|
|00000f60| 20 8c 20 54 52 4d 24 3d | c0 54 52 4d 24 2c 54 52 | . TRM$=|.TRM$,TR|
|00000f70| 4d 29 3a e5 8d 74 58 43 | 0d 03 84 36 e7 a9 28 54 |M):..tXC|...6..(T|
|00000f80| 52 4d 24 29 3c 54 52 4d | 20 8c 20 54 52 4d 24 3d |RM$)<TRM| . TRM$=|
|00000f90| 54 52 4d 24 2b c4 28 54 | 52 4d 2d a9 28 54 52 4d |TRM$+.(T|RM-.(TRM|
|00000fa0| 24 29 29 2c 22 30 22 29 | 3a e5 8d 74 58 43 0d 03 |$)),"0")|:..tXC..|
|00000fb0| 8e 09 e5 8d 74 62 43 0d | 03 98 12 4e 24 3d c0 4e |....tbC.|...N$=.N|
|00000fc0| 24 2c 4c 29 2b 54 52 4d | 24 0d 03 a2 05 e1 0d 03 |$,L)+TRM|$.......|
|00000fd0| ac ad dd f2 42 4c 41 4e | 43 3a e3 47 3d 31 b8 32 |....BLAN|C:.G=1.2|
|00000fe0| 35 3a 52 45 24 28 47 2c | 31 29 3d 22 22 3a 52 45 |5:RE$(G,|1)="":RE|
|00000ff0| 24 28 47 2c 32 29 3d 22 | 22 3a 52 45 24 28 47 2c |$(G,2)="|":RE$(G,|
|00001000| 33 29 3d 22 22 3a 52 45 | 24 28 47 2c 34 29 3d 22 |3)="":RE|$(G,4)="|
|00001010| 22 3a 52 45 24 28 47 2c | 35 29 3d 22 22 3a ed 47 |":RE$(G,|5)="":.G|
|00001020| 3a 54 49 4c 24 3d 22 22 | 3a 53 55 24 3d 22 22 3a |:TIL$=""|:SU$="":|
|00001030| 46 54 24 3d 22 22 3a 53 | 41 4d 53 25 3d 30 3a 54 |FT$="":S|AMS%=0:T|
|00001040| 25 3d bb 28 22 30 22 29 | 3a 41 25 3d 54 25 3a 4d |%=.("0")|:A%=T%:M|
|00001050| 31 25 3d 54 25 3a 4d 32 | 25 3d 54 25 3a 53 25 3d |1%=T%:M2|%=T%:S%=|
|00001060| 54 25 3a 47 50 25 3d 30 | 3a 51 46 25 3d 30 3a 52 |T%:GP%=0|:QF%=0:R|
|00001070| 50 25 3d 30 3a 46 57 52 | 25 3d 31 0d 03 b6 05 e1 |P%=0:FWR|%=1.....|
|00001080| 0d 03 c0 49 dd f2 43 4f | 4e 56 28 56 31 25 2c 56 |...I..CO|NV(V1%,V|
|00001090| 32 25 29 3a 56 31 24 3d | c3 28 56 31 25 29 3a e7 |2%):V1$=|.(V1%):.|
|000010a0| a9 28 56 31 24 29 3e 56 | 32 25 8c 56 31 24 3d c0 |.(V1$)>V|2%.V1$=.|
|000010b0| 56 31 24 2c 56 32 25 29 | 3a 56 31 25 3d bb 28 56 |V1$,V2%)|:V1%=.(V|
|000010c0| 31 24 29 3a e5 8d 64 54 | 43 0d 03 ca 2a 56 31 24 |1$):..dT|C...*V1$|
|000010d0| 3d c3 28 56 31 25 29 2b | c4 56 32 25 2d a9 28 56 |=.(V1%)+|.V2%-.(V|
|000010e0| 31 24 29 2c 22 20 22 29 | 3a 56 31 25 3d bb 28 56 |1$)," ")|:V1%=.(V|
|000010f0| 31 24 29 0d 03 d4 05 e1 | 0d 03 de 81 50 45 4a 25 |1$).....|....PEJ%|
|00001100| 3d 32 3a ff 22 43 4c 4f | 53 45 22 3a 42 3d ad a4 |=2:."CLO|SE":B=..|
|00001110| 4d 79 46 69 6c 65 28 46 | 4f 24 29 3a 43 3d ad a4 |MyFile(F|O$):C=..|
|00001120| 4d 79 46 69 6c 65 28 46 | 49 24 29 3a cf 23 42 3d |MyFile(F|I$):.#B=|
|00001130| 28 bb 28 53 4f 4c 24 29 | 2d 31 29 2a 36 31 2b 31 |(.(SOL$)|-1)*61+1|
|00001140| 30 39 3a e8 23 42 2c 41 | 54 49 24 3a 43 52 25 3d |09:.#B,A|TI$:CR%=|
|00001150| 31 3a e7 53 4f 24 3d 22 | 31 22 8c cf 23 43 3d 52 |1:.SO$="|1"..#C=R|
|00001160| 45 43 25 2d 31 30 3a e8 | 23 43 2c 43 52 24 3a 43 |EC%-10:.|#C,CR$:C|
|00001170| 52 25 3d bb 28 43 52 24 | 29 0d 03 e8 70 cf 23 43 |R%=.(CR$|)...p.#C|
|00001180| 3d 28 43 52 25 2d 31 29 | 2a 52 45 43 25 2b bb 28 |=(CR%-1)|*REC%+.(|
|00001190| 41 54 49 24 29 3a e8 23 | 43 2c 47 46 24 3a cf 23 |ATI$):.#|C,GF$:.#|
|000011a0| 42 3d 28 bb 28 53 4f 4c | 24 29 2d 31 29 2a 36 31 |B=(.(SOL|$)-1)*61|
|000011b0| 2b 31 30 31 3a e8 23 42 | 2c 41 54 59 24 3a 53 54 |+101:.#B|,ATY$:ST|
|000011c0| 25 3d bb 28 47 46 24 29 | 3a e7 47 54 59 25 3d 33 |%=.(GF$)|:.GTY%=3|
|000011d0| 84 47 54 59 25 3d 34 8c | 47 46 24 3d bd 28 32 33 |.GTY%=4.|GF$=.(23|
|000011e0| 34 29 2b bd 28 31 30 39 | 29 0d 03 f2 0e 53 54 25 |4)+.(109|)....ST%|
|000011f0| 3d bb 28 47 46 24 29 0d | 03 fc 22 e7 47 54 59 25 |=.(GF$).|..".GTY%|
|00001200| 3d 33 84 47 54 59 25 3d | 34 8c 53 54 25 3d 28 53 |=3.GTY%=|4.ST%=(S|
|00001210| 54 25 2d 42 44 25 29 2d | 31 0d 04 06 09 e5 8d 74 |T%-BD%)-|1......t|
|00001220| 7a 49 0d 04 10 62 52 45 | 24 28 31 2c 30 29 3d c3 |zI...bRE|$(1,0)=.|
|00001230| 28 53 41 4d 53 25 29 2b | c3 28 54 25 29 2b c3 28 |(SAMS%)+|.(T%)+.(|
|00001240| 41 25 29 2b c3 28 4d 31 | 25 29 2b c3 28 4d 32 25 |A%)+.(M1|%)+.(M2%|
|00001250| 29 2b c3 28 52 50 25 29 | 2b c3 28 44 53 25 29 2b |)+.(RP%)|+.(DS%)+|
|00001260| 53 4f 24 3a 52 45 24 28 | 32 2c 30 29 3d c3 28 53 |SO$:RE$(|2,0)=.(S|
|00001270| 46 25 29 3a 52 45 24 28 | 33 2c 30 29 3d c3 28 52 |F%):RE$(|3,0)=.(R|
|00001280| 4c 45 25 29 0d 04 1a 56 | f1 8a 33 2c 32 30 29 3b |LE%)...V|..3,20);|
|00001290| 22 45 6e 74 65 72 20 52 | 65 70 6f 72 74 20 46 69 |"Enter R|eport Fi|
|000012a0| 6c 65 6e 61 6d 65 3a 20 | 22 3b 3a 58 3d b1 3a 59 |lename: |";:X=.:Y|
|000012b0| 3d 32 30 3a 4c 25 3d 31 | 30 3a f2 54 45 58 54 3a |=20:L%=1|0:.TEXT:|
|000012c0| e7 54 24 3d 22 22 8c f1 | 8a 33 2c 32 30 29 3b 89 |.T$=""..|.3,20);.|
|000012d0| 28 35 30 29 3a e5 8d 44 | 5c 48 0d 04 24 5a ff 22 |(50):..D|\H..$Z."|
|000012e0| 43 4c 4f 53 45 22 3a 58 | 3d ae a4 4d 79 46 69 6c |CLOSE":X|=..MyFil|
|000012f0| 65 28 54 24 29 3a e3 49 | 3d 30 b8 35 3a e3 46 3d |e(T$):.I|=0.5:.F=|
|00001300| 30 b8 32 35 3a f1 23 58 | 2c 52 45 24 28 46 2c 49 |0.25:.#X|,RE$(F,I|
|00001310| 29 3a ed 46 3a ed 49 3a | ff 22 43 4c 4f 53 45 22 |):.F:.I:|."CLOSE"|
|00001320| 3a f1 8a 33 2c 32 30 29 | 3b 89 28 35 30 29 3a e5 |:..3,20)|;.(50):.|
|00001330| 8d 44 5c 48 0d 04 2e 25 | 58 3d 36 32 3a 59 3d 4c |.D\H...%|X=62:Y=L|
|00001340| 3a 4c 25 3d 31 3a f2 54 | 45 58 54 3a e7 54 24 3d |:L%=1:.T|EXT:.T$=|
|00001350| 22 22 8c 54 24 3d 22 30 | 22 0d 04 38 20 52 45 24 |"".T$="0|"..8 RE$|
|00001360| 28 49 2c 35 29 3d 54 24 | 3a f1 8a 36 32 2c 4c 29 |(I,5)=T$|:..62,L)|
|00001370| 3b 54 24 3a e5 8d 64 6d | 42 0d 04 42 1a dd f2 46 |;T$:..dm|B..B...F|
|00001380| 49 45 4c 44 53 3a e7 46 | 57 52 25 3d 30 8c e5 8d |IELDS:.F|WR%=0...|
|00001390| 44 7e 44 0d 04 4c 23 e7 | 20 52 50 25 3d 31 20 84 |D~D..L#.| RP%=1 .|
|000013a0| 20 53 41 4d 53 25 3d 31 | 20 8c 20 f1 20 89 28 4c | SAMS%=1| . . .(L|
|000013b0| 42 25 2b 31 29 3b 0d 04 | 56 62 e3 4a 3d 31 b8 53 |B%+1);..|Vb.J=1.S|
|000013c0| 46 25 3a 4e 24 3d c1 52 | 45 24 28 4a 2c 31 29 2c |F%:N$=.R|E$(J,1),|
|000013d0| 34 29 3a e7 a9 28 4e 24 | 29 3e bb 28 52 45 24 28 |4):..(N$|)>.(RE$(|
|000013e0| 4a 2c 32 29 29 8c 4e 24 | 3d c0 4e 24 2c bb 28 52 |J,2)).N$|=.N$,.(R|
|000013f0| 45 24 28 4a 2c 32 29 29 | 29 3a 8b 4e 24 3d 4e 24 |E$(J,2))|):.N$=N$|
|00001400| 2b c4 bb 28 52 45 24 28 | 4a 2c 32 29 29 2d a9 28 |+..(RE$(|J,2))-.(|
|00001410| 4e 24 29 2c 22 20 22 29 | 0d 04 60 18 f1 4e 24 3b |N$)," ")|..`..N$;|
|00001420| 3a e7 4a 3c 53 46 25 8c | f1 22 20 22 3b 3a 8b f1 |:.J<SF%.|." ";:..|
|00001430| 0d 04 6a 26 ed 4a 3a e7 | 20 52 50 25 3d 31 20 84 |..j&.J:.| RP%=1 .|
|00001440| 20 53 41 4d 53 25 3d 31 | 20 8c 20 f1 20 89 28 4c | SAMS%=1| . . .(L|
|00001450| 42 25 2b 31 29 3b 0d 04 | 74 29 e3 4a 3d 31 b8 53 |B%+1);..|t).J=1.S|
|00001460| 46 25 3a f1 c4 bb 28 52 | 45 24 28 4a 2c 32 29 29 |F%:...(R|E$(J,2))|
|00001470| 2c 22 2d 22 29 3b 22 20 | 22 3b 3a ed 4a 3a f1 0d |,"-");" |";:.J:..|
|00001480| 04 7e 05 e1 0d 04 88 5c | dd f2 49 4e 49 54 3a e3 |.~.....\|..INIT:.|
|00001490| 46 3d 31 b8 32 35 3a 50 | 28 46 2c 31 29 3d 30 3a |F=1.25:P|(F,1)=0:|
|000014a0| 50 28 46 2c 32 29 3d 30 | 3a 50 28 46 2c 33 29 3d |P(F,2)=0|:P(F,3)=|
|000014b0| 30 3a 50 28 46 2c 34 29 | 3d 30 3a 50 28 46 2c 35 |0:P(F,4)|=0:P(F,5|
|000014c0| 29 3d 39 39 39 39 39 39 | 39 39 3a 50 28 46 2c 36 |)=999999|99:P(F,6|
|000014d0| 29 3d 2d 39 39 39 39 39 | 39 39 39 3a ed 46 3a e1 |)=-99999|999:.F:.|
|000014e0| 0d 04 92 26 e7 53 43 52 | 25 3d 31 8c eb 31 32 39 |...&.SCR|%=1..129|
|000014f0| 3a ef 31 39 2c 30 2c 34 | 2c 30 2c 30 2c 30 3a 53 |:.19,0,4|,0,0,0:S|
|00001500| 43 52 25 3d 33 39 0d 04 | 9c 26 e7 53 43 52 25 3d |CR%=39..|.&.SCR%=|
|00001510| 33 8c eb 31 36 3a ef 31 | 39 2c 30 2c 34 2c 30 2c |3..16:.1|9,0,4,0,|
|00001520| 30 2c 30 3a 53 43 52 25 | 3d 31 33 31 0d 04 a6 13 |0,0:SCR%|=131....|
|00001530| e7 53 43 52 25 3d 32 8c | 53 43 52 25 3d 37 39 0d |.SCR%=2.|SCR%=79.|
|00001540| 04 b0 18 87 3a e7 52 4c | 45 25 3e 32 35 35 8c 52 |....:.RL|E%>255.R|
|00001550| 4c 45 25 3d 32 35 35 0d | 04 ba 1c e7 46 57 52 25 |LE%=255.|....FWR%|
|00001560| 3d 30 8c 48 48 24 3d 22 | 20 22 3a 8b 48 48 24 3d |=0.HH$="| ":.HH$=|
|00001570| 22 2d 22 0d 04 c4 2d db | 3a e7 53 50 4c 25 3d 33 |"-"...-.|:.SPL%=3|
|00001580| 8c ff 22 53 50 4f 4f 4c | 20 3c 44 61 74 61 56 69 |.."SPOOL| <DataVi|
|00001590| 73 69 6f 6e 24 44 69 72 | 3e 2e 22 2b 61 73 66 24 |sion$Dir|>."+asf$|
|000015a0| 0d 04 ce 0e e7 50 49 4e | 25 3d 31 8c ef 32 0d 04 |.....PIN|%=1..2..|
|000015b0| d8 3b e7 44 53 25 3d 31 | 8c f1 22 52 65 70 6f 72 |.;.DS%=1|.."Repor|
|000015c0| 74 20 64 61 74 65 3a 20 | 22 3b c0 91 24 2c 31 35 |t date: |";..$,15|
|000015d0| 29 27 3a e7 53 45 4c 25 | 3d 31 20 80 20 54 49 4c |)':.SEL%|=1 . TIL|
|000015e0| 24 3c 3e 22 22 8c f1 27 | 27 0d 04 e2 2f e7 50 49 |$<>""..'|'.../.PI|
|000015f0| 4e 25 3d 31 8c ef 31 2c | 32 37 3a ef 31 2c 31 30 |N%=1..1,|27:.1,10|
|00001600| 34 3a ef 31 2c 30 3a ef | 31 2c 32 37 3a ef 31 2c |4:.1,0:.|1,27:.1,|
|00001610| 31 30 36 3a ef 31 2c 39 | 0d 04 ec 11 e7 53 55 24 |106:.1,9|.....SU$|
|00001620| 3d 22 22 8c e5 8d 54 54 | 45 0d 04 f6 3e f1 3a 44 |=""...TT|E...>.:D|
|00001630| 3d 28 52 4c 45 25 2d a9 | 28 53 55 24 29 29 2f 32 |=(RLE%-.|(SU$))/2|
|00001640| 3a 44 3d 44 2f 32 3a f1 | 89 28 44 29 3b 3a e7 50 |:D=D/2:.|.(D);:.P|
|00001650| 49 4e 25 3d 31 8c ef 31 | 2c 32 37 3a ef 31 2c 38 |IN%=1..1|,27:.1,8|
|00001660| 37 3a ef 31 2c 34 39 0d | 05 00 22 f1 53 55 24 3a |7:.1,49.|..".SU$:|
|00001670| e7 50 49 4e 25 3d 31 8c | ef 31 2c 32 37 3a ef 31 |.PIN%=1.|.1,27:.1|
|00001680| 2c 38 37 3a ef 31 2c 34 | 38 0d 05 0a 05 f1 0d 05 |,87:.1,4|8.......|
|00001690| 14 26 f2 46 49 45 4c 44 | 53 3a e7 20 47 54 59 25 |.&.FIELD|S:. GTY%|
|000016a0| 3c 3e 32 20 8c ef 32 38 | 2c 30 2c 32 39 2c 53 43 |<>2 ..28|,0,29,SC|
|000016b0| 52 25 2c bc 0d 05 1e 46 | 43 4f 25 3d 30 3a e3 49 |R%,....F|CO%=0:.I|
|000016c0| 3d 31 b8 4e 4f 52 25 3a | e7 53 4f 24 3d 22 31 22 |=1.NOR%:|.SO$="1"|
|000016d0| 8c cf 23 43 3d 28 49 2a | 52 45 43 25 29 2d 31 30 |..#C=(I*|REC%)-10|
|000016e0| 3a e8 23 43 2c 43 52 24 | 3a 43 52 25 3d bb 28 43 |:.#C,CR$|:CR%=.(C|
|000016f0| 52 24 29 3a 8b 43 52 25 | 3d 49 0d 05 28 18 54 4e |R$):.CR%|=I..(.TN|
|00001700| 54 25 3d 54 25 3a e7 51 | 46 25 3d 31 8c e5 8d 54 |T%=T%:.Q|F%=1...T|
|00001710| 72 4f 0d 05 32 18 54 25 | 3d 54 4e 54 25 3a e7 47 |rO..2.T%|=TNT%:.G|
|00001720| 50 25 3d 31 8c e5 8d 54 | 5c 47 0d 05 3c 44 43 4f |P%=1...T|\G..<DCO|
|00001730| 25 3d 43 4f 25 2b 31 3a | e7 52 50 25 3d 31 8c f1 |%=CO%+1:|.RP%=1..|
|00001740| c4 4c 42 25 2d a9 28 c3 | 28 49 29 29 2c 22 30 22 |.LB%-.(.|(I)),"0"|
|00001750| 29 3b 49 3b 22 20 22 3b | 3a 8b e7 53 41 4d 53 25 |);I;" ";|:..SAMS%|
|00001760| 3d 31 8c f1 20 89 28 4c | 42 25 2b 31 29 3b 0d 05 |=1.. .(L|B%+1);..|
|00001770| 46 99 e3 4a 3d 31 b8 53 | 46 25 3a cf 23 42 3d 28 |F..J=1.S|F%:.#B=(|
|00001780| bb 28 52 45 24 28 4a 2c | 31 29 29 2d 31 29 2a 36 |.(RE$(J,|1))-1)*6|
|00001790| 31 2b 31 30 39 3a e8 23 | 42 2c 54 49 24 3a cf 23 |1+109:.#|B,TI$:.#|
|000017a0| 43 3d 28 43 52 25 2d 31 | 29 2a 52 45 43 25 2b bb |C=(CR%-1|)*REC%+.|
|000017b0| 28 54 49 24 29 3a e8 23 | 43 2c 4e 24 3a cf 23 42 |(TI$):.#|C,N$:.#B|
|000017c0| 3d 28 bb 28 52 45 24 28 | 4a 2c 31 29 29 2d 31 29 |=(.(RE$(|J,1))-1)|
|000017d0| 2a 36 31 2b 31 30 31 3a | e8 23 42 2c 54 59 24 3a |*61+101:|.#B,TY$:|
|000017e0| e7 c1 52 45 24 28 4a 2c | 33 29 2c 32 2c 31 29 3d |..RE$(J,|3),2,1)=|
|000017f0| 22 31 22 8c 50 28 4a 2c | 31 29 3d 50 28 4a 2c 31 |"1".P(J,|1)=P(J,1|
|00001800| 29 2b bb 28 4e 24 29 0d | 05 50 2b e7 c1 52 45 24 |)+.(N$).|.P+..RE$|
|00001810| 28 4a 2c 33 29 2c 33 2c | 31 29 3d 22 31 22 8c 50 |(J,3),3,|1)="1".P|
|00001820| 28 4a 2c 32 29 3d 50 28 | 4a 2c 32 29 2b bb 28 4e |(J,2)=P(|J,2)+.(N|
|00001830| 24 29 0d 05 5a 3f e7 c1 | 52 45 24 28 4a 2c 33 29 |$)..Z?..|RE$(J,3)|
|00001840| 2c 34 2c 31 29 3d 22 31 | 22 8c e7 bb 28 4e 24 29 |,4,1)="1|"...(N$)|
|00001850| 3c 50 28 4a 2c 35 29 8c | 50 28 4a 2c 33 29 3d bb |<P(J,5).|P(J,3)=.|
|00001860| 28 4e 24 29 3a 50 28 4a | 2c 35 29 3d bb 28 4e 24 |(N$):P(J|,5)=.(N$|
|00001870| 29 0d 05 64 3f e7 c1 52 | 45 24 28 4a 2c 33 29 2c |)..d?..R|E$(J,3),|
|00001880| 35 2c 31 29 3d 22 31 22 | 8c e7 bb 28 4e 24 29 3e |5,1)="1"|...(N$)>|
|00001890| 50 28 4a 2c 36 29 8c 50 | 28 4a 2c 34 29 3d bb 28 |P(J,6).P|(J,4)=.(|
|000018a0| 4e 24 29 3a 50 28 4a 2c | 36 29 3d bb 28 4e 24 29 |N$):P(J,|6)=.(N$)|
|000018b0| 0d 05 6e 3f e7 c1 52 45 | 24 28 4a 2c 33 29 2c 31 |..n?..RE|$(J,3),1|
|000018c0| 2c 31 29 3d 22 31 22 8c | e7 4e 24 3d 52 45 24 28 |,1)="1".|.N$=RE$(|
|000018d0| 4a 2c 34 29 8c 4e 24 3d | c4 bb 28 52 45 24 28 4a |J,4).N$=|..(RE$(J|
|000018e0| 2c 32 29 29 2c 22 20 22 | 29 3a e5 8d 74 4c 45 0d |,2))," "|):..tLE.|
|000018f0| 05 78 0f 52 45 24 28 4a | 2c 34 29 3d 4e 24 0d 05 |.x.RE$(J|,4)=N$..|
|00001900| 82 32 e7 54 59 24 3d 22 | 37 22 84 54 59 24 3d 22 |.2.TY$="|7".TY$="|
|00001910| 38 22 84 54 59 24 3d 22 | 30 22 8c 54 52 4d 3d bb |8".TY$="|0".TRM=.|
|00001920| 28 52 45 24 28 4a 2c 35 | 29 29 3a f2 54 52 49 4d |(RE$(J,5|)):.TRIM|
|00001930| 0d 05 8c 30 e7 a9 28 4e | 24 29 3e bb 28 52 45 24 |...0..(N|$)>.(RE$|
|00001940| 28 4a 2c 32 29 29 8c 4e | 24 3d c0 4e 24 2c bb 28 |(J,2)).N|$=.N$,.(|
|00001950| 52 45 24 28 4a 2c 32 29 | 29 29 3a e5 8d 74 6a 45 |RE$(J,2)|)):..tjE|
|00001960| 0d 05 96 40 e7 54 59 24 | 3d 22 37 22 84 54 59 24 |...@.TY$|="7".TY$|
|00001970| 3d 22 38 22 84 54 59 24 | 3d 22 30 22 8c 4e 24 3d |="8".TY$|="0".N$=|
|00001980| c4 bb 28 52 45 24 28 4a | 2c 32 29 29 2d a9 28 4e |..(RE$(J|,2))-.(N|
|00001990| 24 29 2c 22 20 22 29 2b | 4e 24 3a e5 8d 74 6a 45 |$)," ")+|N$:..tjE|
|000019a0| 0d 05 a0 21 4e 24 3d 4e | 24 2b c4 bb 28 52 45 24 |...!N$=N|$+..(RE$|
|000019b0| 28 4a 2c 32 29 29 2d a9 | 28 4e 24 29 2c 22 20 22 |(J,2))-.|(N$)," "|
|000019c0| 29 0d 05 aa 18 f1 4e 24 | 3b 3a e7 4a 3d 53 46 25 |).....N$|;:.J=SF%|
|000019d0| 8c f1 3a 8b f1 22 20 22 | 3b 0d 05 b4 06 ed 4a 0d |..:.." "|;.....J.|
|000019e0| 05 be 7c 54 25 3d 54 4e | 54 25 3a ed 49 3a f1 c4 |..|T%=TN|T%:.I:..|
|000019f0| 52 4c 45 25 2c 48 48 24 | 29 3a f2 50 52 4f 50 53 |RLE%,HH$|):.PROPS|
|00001a00| 3a 44 3d 28 52 4c 45 25 | 2d a9 28 53 55 24 29 29 |:D=(RLE%|-.(SU$))|
|00001a10| 2f 32 3a f1 27 89 28 44 | 29 3b 46 54 24 3a ef 33 |/2:.'.(D|);FT$:.3|
|00001a20| 3a ff 22 53 50 4f 4f 4c | 22 3a f1 22 28 45 6e 64 |:."SPOOL|":."(End|
|00001a30| 20 6f 66 20 52 65 70 6f | 72 74 29 22 3a ff 22 46 | of Repo|rt)":."F|
|00001a40| 58 32 31 2c 39 22 3a f5 | 3a c8 97 20 55 2c 55 2c |X21,9":.|:.. U,U,|
|00001a50| 42 55 54 3a fd 20 42 55 | 54 3d 32 0d 05 c8 2c eb |BUT:. BU|T=2...,.|
|00001a60| 31 35 3a 87 3a c8 97 ee | 3a fb 46 47 25 3a ef 31 |15:.:...|:.FG%:.1|
|00001a70| 39 2c 31 2c 32 34 2c 30 | 2c 36 39 2c 32 30 30 3a |9,1,24,0|,69,200:|
|00001a80| db 3a e5 8d 74 7c 42 0d | 05 d2 0b dd f2 50 52 4f |.:..t|B.|.....PRO|
|00001a90| 50 53 0d 05 dc 12 e7 53 | 41 4d 53 25 3d 30 8c e5 |PS.....S|AMS%=0..|
|00001aa0| 8d 54 52 47 0d 05 e6 0f | e7 54 25 3d 30 8c e5 8d |.TRG....|.T%=0...|
|00001ab0| 54 6c 46 0d 05 f0 1c f1 | 22 54 6f 74 2e 22 2b c4 |TlF.....|"Tot."+.|
|00001ac0| 4c 42 25 2d 34 2c 22 20 | 22 29 2b 22 20 22 3b 0d |LB%-4," |")+" ";.|
|00001ad0| 05 fa 3a e3 4a 3d 31 b8 | 53 46 25 3a e7 c1 52 45 |..:.J=1.|SF%:..RE|
|00001ae0| 24 28 4a 2c 33 29 2c 32 | 2c 31 29 3d 22 30 22 8c |$(J,3),2|,1)="0".|
|00001af0| f1 c4 bb 28 52 45 24 28 | 4a 2c 32 29 29 2c 22 20 |...(RE$(|J,2))," |
|00001b00| 22 29 3b 3a e5 8d 54 58 | 46 0d 06 04 58 4e 24 3d |");:..TX|F...XN$=|
|00001b10| c3 28 50 28 4a 2c 31 29 | 29 3a 54 52 4d 3d bb 28 |.(P(J,1)|):TRM=.(|
|00001b20| 52 45 24 28 4a 2c 35 29 | 29 3a f2 54 52 49 4d 3a |RE$(J,5)|):.TRIM:|
|00001b30| e7 a9 28 4e 24 29 3e bb | 28 52 45 24 28 4a 2c 32 |..(N$)>.|(RE$(J,2|
|00001b40| 29 29 8c 4e 24 3d c2 4e | 24 2c bb 28 52 45 24 28 |)).N$=.N|$,.(RE$(|
|00001b50| 4a 2c 32 29 29 29 3a f1 | 4e 24 3b 3a e5 8d 54 58 |J,2))):.|N$;:..TX|
|00001b60| 46 0d 06 0e 20 f1 c4 bb | 28 52 45 24 28 4a 2c 32 |F... ...|(RE$(J,2|
|00001b70| 29 29 2d a9 28 4e 24 29 | 2c 22 20 22 29 2b 4e 24 |))-.(N$)|," ")+N$|
|00001b80| 3b 0d 06 18 13 e7 4a 3d | 53 46 25 8c f1 3a 8b f1 |;.....J=|SF%..:..|
|00001b90| 22 20 22 3b 0d 06 22 06 | ed 4a 0d 06 2c 0f e7 41 |" ";..".|.J..,..A|
|00001ba0| 25 3d 30 8c e5 8d 74 46 | 46 0d 06 36 10 e7 43 4f |%=0...tF|F..6..CO|
|00001bb0| 25 3d 30 8c 43 4f 25 3d | 31 0d 06 40 21 e3 4a 3d |%=0.CO%=|1..@!.J=|
|00001bc0| 31 b8 53 46 25 3a 50 28 | 4a 2c 32 29 3d 50 28 4a |1.SF%:P(|J,2)=P(J|
|00001bd0| 2c 32 29 2f 43 4f 25 3a | ed 4a 0d 06 4a 1c f1 22 |,2)/CO%:|.J..J.."|
|00001be0| 41 76 67 2e 22 2b c4 4c | 42 25 2d 34 2c 22 20 22 |Avg."+.L|B%-4," "|
|00001bf0| 29 2b 22 20 22 3b 0d 06 | 54 3a e3 4a 3d 31 b8 53 |)+" ";..|T:.J=1.S|
|00001c00| 46 25 3a e7 c1 52 45 24 | 28 4a 2c 33 29 2c 33 2c |F%:..RE$|(J,3),3,|
|00001c10| 31 29 3d 22 30 22 8c f1 | c4 bb 28 52 45 24 28 4a |1)="0"..|..(RE$(J|
|00001c20| 2c 32 29 29 2c 22 20 22 | 29 3b 3a e5 8d 44 72 46 |,2))," "|);:..DrF|
|00001c30| 0d 06 5e 58 4e 24 3d c3 | 28 50 28 4a 2c 32 29 29 |..^XN$=.|(P(J,2))|
|00001c40| 3a 54 52 4d 3d bb 28 52 | 45 24 28 4a 2c 35 29 29 |:TRM=.(R|E$(J,5))|
|00001c50| 3a f2 54 52 49 4d 3a e7 | a9 28 4e 24 29 3e bb 28 |:.TRIM:.|.(N$)>.(|
|00001c60| 52 45 24 28 4a 2c 32 29 | 29 8c 4e 24 3d c2 4e 24 |RE$(J,2)|).N$=.N$|
|00001c70| 2c bb 28 52 45 24 28 4a | 2c 32 29 29 29 3a f1 4e |,.(RE$(J|,2))):.N|
|00001c80| 24 3b 3a e5 8d 44 72 46 | 0d 06 68 20 f1 c4 bb 28 |$;:..DrF|..h ...(|
|00001c90| 52 45 24 28 4a 2c 32 29 | 29 2d a9 28 4e 24 29 2c |RE$(J,2)|)-.(N$),|
|00001ca0| 22 20 22 29 2b 4e 24 3b | 0d 06 72 13 e7 4a 3d 53 |" ")+N$;|..r..J=S|
|00001cb0| 46 25 8c f1 3a 8b f1 22 | 20 22 3b 0d 06 7c 06 ed |F%..:.."| ";..|..|
|00001cc0| 4a 0d 06 86 10 e7 4d 31 | 25 3d 30 8c e5 8d 64 4c |J.....M1|%=0...dL|
|00001cd0| 46 0d 06 90 1c f1 22 4d | 69 6e 2e 22 2b c4 4c 42 |F....."M|in."+.LB|
|00001ce0| 25 2d 34 2c 22 20 22 29 | 2b 22 20 22 3b 0d 06 9a |%-4," ")|+" ";...|
|00001cf0| 3a e3 4a 3d 31 b8 53 46 | 25 3a e7 c1 52 45 24 28 |:.J=1.SF|%:..RE$(|
|00001d00| 4a 2c 33 29 2c 34 2c 31 | 29 3d 22 30 22 8c f1 c4 |J,3),4,1|)="0"...|
|00001d10| bb 28 52 45 24 28 4a 2c | 32 29 29 2c 22 20 22 29 |.(RE$(J,|2))," ")|
|00001d20| 3b 3a e5 8d 74 78 46 0d | 06 a4 58 4e 24 3d c3 28 |;:..txF.|..XN$=.(|
|00001d30| 50 28 4a 2c 33 29 29 3a | 54 52 4d 3d bb 28 52 45 |P(J,3)):|TRM=.(RE|
|00001d40| 24 28 4a 2c 35 29 29 3a | f2 54 52 49 4d 3a e7 a9 |$(J,5)):|.TRIM:..|
|00001d50| 28 4e 24 29 3e bb 28 52 | 45 24 28 4a 2c 32 29 29 |(N$)>.(R|E$(J,2))|
|00001d60| 8c 4e 24 3d c2 4e 24 2c | bb 28 52 45 24 28 4a 2c |.N$=.N$,|.(RE$(J,|
|00001d70| 32 29 29 29 3a f1 4e 24 | 3b 3a e5 8d 74 78 46 0d |2))):.N$|;:..txF.|
|00001d80| 06 ae 20 f1 c4 bb 28 52 | 45 24 28 4a 2c 32 29 29 |.. ...(R|E$(J,2))|
|00001d90| 2d a9 28 4e 24 29 2c 22 | 20 22 29 2b 4e 24 3b 0d |-.(N$),"| ")+N$;.|
|00001da0| 06 b8 13 e7 4a 3d 53 46 | 25 8c f1 3a 8b f1 22 20 |....J=SF|%..:.." |
|00001db0| 22 3b 0d 06 c2 06 ed 4a | 0d 06 cc 10 e7 4d 32 25 |";.....J|.....M2%|
|00001dc0| 3d 30 8c e5 8d 54 52 47 | 0d 06 d6 1c f1 22 4d 61 |=0...TRG|....."Ma|
|00001dd0| 78 2e 22 2b c4 4c 42 25 | 2d 34 2c 22 20 22 29 2b |x."+.LB%|-4," ")+|
|00001de0| 22 20 22 3b 0d 06 e0 3a | e3 4a 3d 31 b8 53 46 25 |" ";...:|.J=1.SF%|
|00001df0| 3a e7 c1 52 45 24 28 4a | 2c 33 29 2c 35 2c 31 29 |:..RE$(J|,3),5,1)|
|00001e00| 3d 22 30 22 8c f1 c4 bb | 28 52 45 24 28 4a 2c 32 |="0"....|(RE$(J,2|
|00001e10| 29 29 2c 22 20 22 29 3b | 3a e5 8d 64 7e 46 0d 06 |))," ");|:..d~F..|
|00001e20| ea 58 4e 24 3d c3 28 50 | 28 4a 2c 34 29 29 3a 54 |.XN$=.(P|(J,4)):T|
|00001e30| 52 4d 3d bb 28 52 45 24 | 28 4a 2c 35 29 29 3a f2 |RM=.(RE$|(J,5)):.|
|00001e40| 54 52 49 4d 3a e7 a9 28 | 4e 24 29 3e bb 28 52 45 |TRIM:..(|N$)>.(RE|
|00001e50| 24 28 4a 2c 32 29 29 8c | 4e 24 3d c2 4e 24 2c bb |$(J,2)).|N$=.N$,.|
|00001e60| 28 52 45 24 28 4a 2c 32 | 29 29 29 3a f1 4e 24 3b |(RE$(J,2|))):.N$;|
|00001e70| 3a e5 8d 64 7e 46 0d 06 | f4 20 f1 c4 bb 28 52 45 |:..d~F..|. ...(RE|
|00001e80| 24 28 4a 2c 32 29 29 2d | a9 28 4e 24 29 2c 22 20 |$(J,2))-|.(N$)," |
|00001e90| 22 29 2b 4e 24 3b 0d 06 | fe 13 e7 4a 3d 53 46 25 |")+N$;..|...J=SF%|
|00001ea0| 8c f1 3a 8b f1 22 20 22 | 3b 0d 07 08 06 ed 4a 0d |..:.." "|;.....J.|
|00001eb0| 07 12 05 e1 0d 07 1c 62 | cf 23 43 3d 28 43 52 25 |.......b|.#C=(CR%|
|00001ec0| 2d 31 29 2a 52 45 43 25 | 2b bb 28 41 54 49 24 29 |-1)*REC%|+.(ATI$)|
|00001ed0| 3a e8 23 43 2c 47 54 24 | 3a e7 41 54 59 24 3d 22 |:.#C,GT$|:.ATY$="|
|00001ee0| 31 22 84 41 54 59 24 3d | 22 32 22 84 41 54 59 24 |1".ATY$=|"2".ATY$|
|00001ef0| 3d 22 33 22 84 41 54 59 | 24 3d 22 34 22 84 41 54 |="3".ATY|$="4".AT|
|00001f00| 59 24 3d 22 39 22 8c e7 | 47 54 24 3c 3e 47 46 24 |Y$="9"..|GT$<>GF$|
|00001f10| 8c e5 8d 44 62 47 0d 07 | 26 29 e7 41 54 59 24 3d |...DbG..|&).ATY$=|
|00001f20| 22 35 22 8c e7 c1 47 54 | 24 2c 37 2c 32 29 3c 3e |"5"...GT|$,7,2)<>|
|00001f30| c1 47 46 24 2c 37 2c 32 | 29 8c e5 8d 44 62 47 0d |.GF$,7,2|)...DbG.|
|00001f40| 07 30 29 e7 41 54 59 24 | 3d 22 36 22 8c e7 c1 47 |.0).ATY$|="6"...G|
|00001f50| 54 24 2c 31 2c 32 29 3c | 3e c1 47 46 24 2c 31 2c |T$,1,2)<|>.GF$,1,|
|00001f60| 32 29 8c e5 8d 44 62 47 | 0d 07 3a 40 e7 41 54 59 |2)...DbG|..:@.ATY|
|00001f70| 24 3d 22 37 22 84 41 54 | 59 24 3d 22 38 22 84 41 |$="7".AT|Y$="8".A|
|00001f80| 54 59 24 3d 22 30 22 8c | e7 bb 28 47 54 24 29 3e |TY$="0".|..(GT$)>|
|00001f90| 53 54 25 2b 42 44 25 8c | 53 54 25 3d bb 28 47 54 |ST%+BD%.|ST%=.(GT|
|00001fa0| 24 29 3a e5 8d 44 62 47 | 0d 07 44 09 e5 8d 54 7c |$):..DbG|..D...T||
|00001fb0| 45 0d 07 4e 0d dd f2 45 | 4a 45 43 54 3a e1 0d 07 |E..N...E|JECT:...|
|00001fc0| 58 05 e1 0d 07 62 0b 47 | 46 24 3d 47 54 24 0d 07 |X....b.G|F$=GT$..|
|00001fd0| 6c 1b e7 47 54 59 25 3d | 31 8c f1 27 3a f2 45 4a |l..GTY%=|1..':.EJ|
|00001fe0| 45 43 54 3a e5 8d 54 7c | 45 0d 07 76 43 e7 47 54 |ECT:..T||E..vC.GT|
|00001ff0| 59 25 3d 32 8c f1 c4 52 | 4c 45 25 2c 22 2d 22 29 |Y%=2...R|LE%,"-")|
|00002000| 3a f2 50 52 4f 50 53 3a | f2 45 4a 45 43 54 3a f2 |:.PROPS:|.EJECT:.|
|00002010| 49 4e 49 54 3a f1 27 27 | 3a f2 46 49 45 4c 44 53 |INIT:.''|:.FIELDS|
|00002020| 3a 43 4f 25 3d 30 3a e5 | 8d 54 7c 45 0d 07 80 32 |:CO%=0:.|.T|E...2|
|00002030| f1 27 3b 3a e7 52 50 25 | 3d 31 8c f1 c4 4c 42 25 |.';:.RP%|=1...LB%|
|00002040| 2c 22 20 22 29 3b 22 20 | 22 3b 3a 8b e7 53 41 4d |," ");" |";:..SAM|
|00002050| 53 25 3d 31 8c f1 22 20 | 20 20 20 20 22 3b 0d 07 |S%=1.." |    ";..|
|00002060| 8a 1c 48 45 24 3d 47 46 | 24 3a e7 47 54 59 25 3d |..HE$=GF|$:.GTY%=|
|00002070| 34 8c 48 45 24 3d 47 48 | 54 24 0d 07 94 11 e7 43 |4.HE$=GH|T$.....C|
|00002080| 4f 25 3e 30 8c f2 45 4a | 45 43 54 0d 07 9e 0e f1 |O%>0..EJ|ECT.....|
|00002090| 48 45 24 3a e5 8d 54 7c | 45 0d 07 a8 64 53 50 4c |HE$:..T||E...dSPL|
|000020a0| 25 3d 31 3a 50 49 4e 25 | 3d 31 3a 53 43 52 25 3d |%=1:PIN%|=1:SCR%=|
|000020b0| 32 3a 47 50 25 3d 30 3a | 47 54 59 25 3d 30 3a 52 |2:GP%=0:|GTY%=0:R|
|000020c0| 50 25 3d 31 3a 46 57 52 | 25 3d 31 3a 44 53 25 3d |P%=1:FWR|%=1:DS%=|
|000020d0| 30 3a 51 46 25 3d 30 3a | 53 55 24 3d 22 22 3a 46 |0:QF%=0:|SU$="":F|
|000020e0| 54 24 3d 22 22 3a 44 49 | 25 3d 32 3a 42 44 24 3d |T$="":DI|%=2:BD$=|
|000020f0| 22 31 30 30 22 3a 42 44 | 25 3d 31 30 30 0d 07 b2 |"100":BD|%=100...|
|00002100| 27 db 3a fb 31 38 30 3a | 58 3d 31 3a 59 3d 31 3a |'.:.180:|X=1:Y=1:|
|00002110| 57 25 3d 36 30 3a 4c 25 | 3d 31 35 3a f2 4c 57 4e |W%=60:L%|=15:.LWN|
|00002120| 3a fb 34 35 0d 07 bc 63 | f1 8a 33 2c 32 29 3b 22 |:.45...c|..3,2);"|
|00002130| 48 65 61 64 65 72 3a 22 | 3b 8a 33 2c 33 29 3b 22 |Header:"|;.3,3);"|
|00002140| 46 6f 6f 74 65 72 3a 22 | 3b 8a 33 2c 35 29 3b 22 |Footer:"|;.3,5);"|
|00002150| 52 65 70 6f 72 74 20 74 | 6f 3a 20 50 72 69 6e 74 |Report t|o: Print|
|00002160| 65 72 22 3b 8a 31 34 2c | 36 29 3b 22 53 63 72 65 |er";.14,|6);"Scre|
|00002170| 65 6e 22 3b 8a 31 34 2c | 37 29 3b 22 41 53 43 49 |en";.14,|7);"ASCI|
|00002180| 49 20 46 69 6c 65 22 0d | 07 c6 45 f1 8a 33 33 2c |I File".|..E..33,|
|00002190| 35 29 3b 22 53 63 72 65 | 65 6e 20 4d 6f 64 65 3a |5);"Scre|en Mode:|
|000021a0| 20 34 30 20 78 20 33 32 | 22 3b 8a 34 36 2c 36 29 | 40 x 32|";.46,6)|
|000021b0| 3b 22 38 30 20 78 20 33 | 32 22 3b 8a 34 36 2c 37 |;"80 x 3|2";.46,7|
|000021c0| 29 3b 22 31 33 32 20 78 | 20 33 32 22 0d 07 d0 58 |);"132 x| 32"...X|
|000021d0| f1 8a 33 2c 39 29 3b 22 | 52 65 63 6f 72 64 20 4e |..3,9);"|Record N|
|000021e0| 75 6d 62 65 72 73 3a 22 | 3b 8a 33 2c 31 30 29 3b |umbers:"|;.3,10);|
|000021f0| 22 46 69 65 6c 64 20 54 | 69 74 6c 65 73 3a 22 3b |"Field T|itles:";|
|00002200| 8a 33 2c 31 31 29 3b 22 | 44 61 74 65 20 53 74 61 |.3,11);"|Date Sta|
|00002210| 6d 70 22 3b 8a 33 2c 31 | 32 29 3b 22 46 69 6c 74 |mp";.3,1|2);"Filt|
|00002220| 65 72 3a 22 0d 07 da 70 | f1 8a 33 33 2c 39 29 3b |er:"...p|..33,9);|
|00002230| 22 47 72 6f 75 70 69 6e | 67 3a 20 53 65 70 65 72 |"Groupin|g: Seper|
|00002240| 61 74 65 22 3b 8a 34 33 | 2c 31 30 29 3b 22 4e 65 |ate";.43|,10);"Ne|
|00002250| 77 20 52 65 70 6f 72 74 | 22 3b 8a 34 33 2c 31 31 |w Report|";.43,11|
|00002260| 29 3b 22 53 75 62 2d 52 | 65 70 6f 72 74 22 3b 8a |);"Sub-R|eport";.|
|00002270| 34 33 2c 31 32 29 3b 22 | 4e 6f 20 47 72 6f 75 70 |43,12);"|No Group|
|00002280| 69 6e 67 22 3b 8a 33 33 | 2c 31 34 29 3b 22 42 61 |ing";.33|,14);"Ba|
|00002290| 6e 64 3a 22 0d 07 e4 51 | f1 8a 33 2c 31 36 29 3b |nd:"...Q|..3,16);|
|000022a0| 22 53 75 6d 6d 61 72 69 | 65 73 3a 20 22 3b bd 28 |"Summari|es: ";.(|
|000022b0| 31 32 38 29 3b 22 20 20 | 53 61 76 65 20 52 65 70 |128);"  |Save Rep|
|000022c0| 6f 72 74 3a 20 22 3b bd | 28 31 32 38 29 3b 22 20 |ort: ";.|(128);" |
|000022d0| 20 52 75 6e 20 52 65 70 | 6f 72 74 3a 20 22 3b bd | Run Rep|ort: ";.|
|000022e0| 28 31 32 38 29 0d 07 ee | 46 fb 31 32 37 3a fb 46 |(128)...|F.127:.F|
|000022f0| 47 25 3a f2 50 31 3a f2 | 50 32 3a f2 50 33 3a f2 |G%:.P1:.|P2:.P3:.|
|00002300| 50 34 3a f1 8a 31 31 2c | 32 29 3b 53 55 24 3b 8a |P4:..11,|2);SU$;.|
|00002310| 31 31 2c 33 29 3b 46 54 | 24 3b 8a 33 39 2c 31 34 |11,3);FT|$;.39,14|
|00002320| 29 3b 42 44 24 3a e5 8d | 44 5c 48 0d 07 f8 48 dd |);BD$:..|D\H...H.|
|00002330| f2 50 31 3a f1 8a 32 36 | 2c 35 29 3b bd 28 31 33 |.P1:..26|,5);.(13|
|00002340| 30 29 3b 8a 32 36 2c 36 | 29 3b bd 28 31 33 30 29 |0);.26,6|);.(130)|
|00002350| 3b 8a 32 36 2c 37 29 3b | bd 28 31 33 30 29 3a f1 |;.26,7);|.(130):.|
|00002360| 8a 32 36 2c 44 49 25 2b | 34 29 3b bd 28 31 33 31 |.26,DI%+|4);.(131|
|00002370| 29 3a e1 0d 08 02 49 dd | f2 50 32 3a f1 8a 35 36 |):....I.|.P2:..56|
|00002380| 2c 35 29 3b bd 28 31 33 | 30 29 3b 8a 35 36 2c 36 |,5);.(13|0);.56,6|
|00002390| 29 3b bd 28 31 33 30 29 | 3b 8a 35 36 2c 37 29 3b |);.(130)|;.56,7);|
|000023a0| bd 28 31 33 30 29 3a f1 | 8a 35 36 2c 53 43 52 25 |.(130):.|.56,SCR%|
|000023b0| 2b 34 29 3b bd 28 31 33 | 31 29 3a e1 0d 08 0c 5b |+4);.(13|1):....[|
|000023c0| dd f2 50 34 3a f1 8a 35 | 36 2c 39 29 3b bd 28 31 |..P4:..5|6,9);.(1|
|000023d0| 33 30 29 3b 8a 35 36 2c | 31 30 29 3b bd 28 31 33 |30);.56,|10);.(13|
|000023e0| 30 29 3b 8a 35 36 2c 31 | 31 29 3b bd 28 31 33 30 |0);.56,1|1);.(130|
|000023f0| 29 3b 8a 35 36 2c 31 32 | 29 3b bd 28 31 33 30 29 |);.56,12|);.(130)|
|00002400| 3a e7 47 50 25 3d 30 8c | f1 8a 35 36 2c 31 32 29 |:.GP%=0.|..56,12)|
|00002410| 3b bd 28 31 33 31 29 0d | 08 16 1e e7 47 50 25 3d |;.(131).|....GP%=|
|00002420| 31 8c f1 8a 35 36 2c 47 | 54 59 25 2b 38 29 3b bd |1...56,G|TY%+8);.|
|00002430| 28 31 33 31 29 0d 08 20 | 05 e1 0d 08 2a 2e dd f2 |(131).. |....*...|
|00002440| 50 33 3a e7 52 50 25 3d | 31 8c f1 8a 32 36 2c 39 |P3:.RP%=|1...26,9|
|00002450| 29 3b bd 28 31 33 33 29 | 3a 8b f1 8a 32 36 2c 39 |);.(133)|:...26,9|
|00002460| 29 3b bd 28 31 33 30 29 | 0d 08 34 2c e7 46 57 52 |);.(130)|..4,.FWR|
|00002470| 25 3d 31 8c f1 8a 32 36 | 2c 31 30 29 3b bd 28 31 |%=1...26|,10);.(1|
|00002480| 33 33 29 3a 8b f1 8a 32 | 36 2c 31 30 29 3b bd 28 |33):...2|6,10);.(|
|00002490| 31 33 30 29 0d 08 3e 2b | e7 44 53 25 3d 31 8c f1 |130)..>+|.DS%=1..|
|000024a0| 8a 32 36 2c 31 31 29 3b | bd 28 31 33 33 29 3a 8b |.26,11);|.(133):.|
|000024b0| f1 8a 32 36 2c 31 31 29 | 3b bd 28 31 33 30 29 0d |..26,11)|;.(130).|
|000024c0| 08 48 2b e7 51 46 25 3d | 31 8c f1 8a 32 36 2c 31 |.H+.QF%=|1...26,1|
|000024d0| 32 29 3b bd 28 31 33 33 | 29 3a 8b f1 8a 32 36 2c |2);.(133|):...26,|
|000024e0| 31 32 29 3b bd 28 31 33 | 30 29 0d 08 52 05 e1 0d |12);.(13|0)..R...|
|000024f0| 08 5c 38 c8 97 20 58 50 | 2c 59 50 2c 42 55 54 3a |.\8.. XP|,YP,BUT:|
|00002500| 58 50 3d a8 28 58 50 2f | 31 36 29 3a 59 50 3d 33 |XP=.(XP/|16):YP=3|
|00002510| 31 2d a8 28 59 50 2f 33 | 32 29 3a e7 42 55 54 3d |1-.(YP/3|2):.BUT=|
|00002520| 30 8c e5 8d 44 5c 48 0d | 08 66 06 ef 37 0d 08 70 |0...D\H.|.f..7..p|
|00002530| 0f e7 59 50 3d 32 8c e5 | 8d 44 56 49 0d 08 7a 0f |..YP=2..|.DVI..z.|
|00002540| e7 59 50 3d 33 8c e5 8d | 44 60 49 0d 08 84 10 e7 |.YP=3...|D`I.....|
|00002550| 59 50 3d 31 34 8c e5 8d | 44 6a 49 0d 08 8e 10 e7 |YP=14...|DjI.....|
|00002560| 59 50 3d 31 36 8c e5 8d | 44 74 49 0d 08 98 17 e7 |YP=16...|DtI.....|
|00002570| 59 50 3c 38 20 80 20 58 | 50 3d 32 36 8c e5 8d 64 |YP<8 . X|P=26...d|
|00002580| 4a 48 0d 08 a2 17 e7 59 | 50 3c 38 20 80 20 58 50 |JH.....Y|P<8 . XP|
|00002590| 3d 35 36 8c e5 8d 64 5e | 48 0d 08 ac 18 e7 59 50 |=56...d^|H.....YP|
|000025a0| 3c 31 33 20 80 20 58 50 | 3d 32 36 8c e5 8d 64 72 |<13 . XP|=26...dr|
|000025b0| 48 0d 08 b6 18 e7 59 50 | 3c 31 33 20 80 20 58 50 |H.....YP|<13 . XP|
|000025c0| 3d 35 36 8c e5 8d 54 6e | 49 0d 08 c0 09 e5 8d 44 |=56...Tn|I......D|
|000025d0| 5c 48 0d 08 ca 0f e7 59 | 50 3c 35 8c e5 8d 44 5c |\H.....Y|P<5...D\|
|000025e0| 48 0d 08 d4 16 44 49 25 | 3d 59 50 2d 34 3a f2 50 |H....DI%|=YP-4:.P|
|000025f0| 31 3a e5 8d 44 5c 48 0d | 08 de 0f e7 59 50 3c 35 |1:..D\H.|....YP<5|
|00002600| 8c e5 8d 44 5c 48 0d 08 | e8 17 53 43 52 25 3d 59 |...D\H..|..SCR%=Y|
|00002610| 50 2d 34 3a f2 50 32 3a | e5 8d 44 5c 48 0d 08 f2 |P-4:.P2:|..D\H...|
|00002620| 0f e7 59 50 3c 39 8c e5 | 8d 44 5c 48 0d 08 fc 20 |..YP<9..|.D\H... |
|00002630| e7 59 50 3d 39 8c 52 50 | 25 3d 52 50 25 2b 31 3a |.YP=9.RP|%=RP%+1:|
|00002640| e7 52 50 25 3e 31 8c 52 | 50 25 3d 30 0d 09 06 25 |.RP%>1.R|P%=0...%|
|00002650| e7 59 50 3d 31 30 8c 46 | 57 52 25 3d 46 57 52 25 |.YP=10.F|WR%=FWR%|
|00002660| 2b 31 3a e7 46 57 52 25 | 3e 31 8c 46 57 52 25 3d |+1:.FWR%|>1.FWR%=|
|00002670| 30 0d 09 10 21 e7 59 50 | 3d 31 31 8c 44 53 25 3d |0...!.YP|=11.DS%=|
|00002680| 44 53 25 2b 31 3a e7 44 | 53 25 3e 31 8c 44 53 25 |DS%+1:.D|S%>1.DS%|
|00002690| 3d 30 0d 09 1a 21 e7 59 | 50 3d 31 32 8c 51 46 25 |=0...!.Y|P=12.QF%|
|000026a0| 3d 51 46 25 2b 31 3a e7 | 51 46 25 3e 31 8c 51 46 |=QF%+1:.|QF%>1.QF|
|000026b0| 25 3d 30 0d 09 24 1d f5 | 3a c8 97 20 55 2c 55 2c |%=0..$..|:.. U,U,|
|000026c0| 42 3a fd 42 3d 30 3a f2 | 50 33 3a e5 8d 44 5c 48 |B:.B=0:.|P3:..D\H|
|000026d0| 0d 09 2e 0f e7 59 50 3c | 39 8c e5 8d 44 5c 48 0d |.....YP<|9...D\H.|
|000026e0| 09 38 16 e7 59 50 3d 31 | 32 8c 47 50 25 3d 30 3a |.8..YP=1|2.GP%=0:|
|000026f0| e5 8d 44 4c 49 0d 09 42 | 13 47 50 25 3d 31 3a 47 |..DLI..B|.GP%=1:G|
|00002700| 54 59 25 3d 59 50 2d 38 | 0d 09 4c 0d f2 50 34 3a |TY%=YP-8|..L..P4:|
|00002710| e5 8d 44 5c 48 0d 09 56 | 33 f1 8a 31 31 2c 32 29 |..D\H..V|3..11,2)|
|00002720| 3b 89 28 34 32 29 3a 58 | 3d 31 31 3a 59 3d 32 3a |;.(42):X|=11:Y=2:|
|00002730| 4c 25 3d 34 30 3a f2 54 | 45 58 54 3a 53 55 24 3d |L%=40:.T|EXT:SU$=|
|00002740| 54 24 3a e5 8d 44 5c 48 | 0d 09 60 33 f1 8a 31 31 |T$:..D\H|..`3..11|
|00002750| 2c 33 29 3b 89 28 34 32 | 29 3a 58 3d 31 31 3a 59 |,3);.(42|):X=11:Y|
|00002760| 3d 33 3a 4c 25 3d 34 30 | 3a f2 54 45 58 54 3a 46 |=3:L%=40|:.TEXT:F|
|00002770| 54 24 3d 54 24 3a e5 8d | 44 5c 48 0d 09 6a 6d f1 |T$=T$:..|D\H..jm.|
|00002780| 8a 33 39 2c 31 34 29 3b | 89 28 32 30 29 3a 58 3d |.39,14);|.(20):X=|
|00002790| 33 39 3a 59 3d 31 34 3a | 4c 25 3d 31 38 3a f2 54 |39:Y=14:|L%=18:.T|
|000027a0| 45 58 54 3a 42 44 24 3d | 54 24 3a 42 44 25 3d bb |EXT:BD$=|T$:BD%=.|
|000027b0| 28 42 44 24 29 3a e7 54 | 24 3d 22 22 8c 42 44 24 |(BD$):.T|$="".BD$|
|000027c0| 3d 22 31 30 30 22 3a 42 | 44 25 3d 31 30 30 3a f1 |="100":B|D%=100:.|
|000027d0| 8a 33 39 2c 31 34 29 3b | 42 44 24 3a e5 8d 44 5c |.39,14);|BD$:..D\|
|000027e0| 48 3a 8b e5 8d 44 5c 48 | 0d 09 74 10 e7 58 50 3d |H:...D\H|..t..XP=|
|000027f0| 34 35 8c e5 8d 74 5c 49 | 0d 09 7e 10 e7 58 50 3d |45...t\I|..~..XP=|
|00002800| 31 34 8c e5 8d 54 40 4a | 0d 09 88 10 e7 58 50 3d |14...T@J|.....XP=|
|00002810| 33 30 8c e5 8d 54 50 44 | 0d 09 92 09 e5 8d 44 5c |30...TPD|......D\|
|00002820| 48 0d 09 9c 29 4c 42 25 | 3d 34 3a e7 52 50 25 3d |H...)LB%|=4:.RP%=|
|00002830| 31 80 4e 4f 52 25 3e 39 | 39 39 39 8c 4c 42 25 3d |1.NOR%>9|999.LB%=|
|00002840| a9 28 c3 28 4e 4f 52 25 | 29 29 0d 09 a6 20 e7 52 |.(.(NOR%|))... .R|
|00002850| 50 25 3d 31 84 53 41 4d | 53 25 3d 31 8c 52 4c 45 |P%=1.SAM|S%=1.RLE|
|00002860| 25 3d 52 4c 45 25 2b 4c | 42 25 0d 09 b0 2b 50 49 |%=RLE%+L|B%...+PI|
|00002870| 4e 25 3d 44 49 25 3a 53 | 50 4c 25 3d 44 49 25 3a |N%=DI%:S|PL%=DI%:|
|00002880| e7 53 4f 24 3d 22 31 22 | 8c e5 8d 64 5e 43 3a 8b |.SO$="1"|...d^C:.|
|00002890| 47 50 25 3d 30 0d 09 ba | 57 e7 53 50 4c 25 3d 33 |GP%=0...|W.SPL%=3|
|000028a0| 8c f1 8a 33 2c 32 30 29 | 3b 22 45 6e 74 65 72 20 |...3,20)|;"Enter |
|000028b0| 41 53 43 49 49 20 46 69 | 6c 65 6e 61 6d 65 3a 20 |ASCII Fi|lename: |
|000028c0| 22 3b 3a 58 3d b1 3a 59 | 3d 32 30 3a 4c 25 3d 31 |";:X=.:Y|=20:L%=1|
|000028d0| 30 3a f2 54 45 58 54 3a | 61 73 66 24 3d 54 24 3a |0:.TEXT:|asf$=T$:|
|000028e0| e7 54 24 3d 22 22 8c e5 | 8d 74 7a 49 0d 09 c4 1a |.T$=""..|.tzI....|
|000028f0| 54 4e 54 25 3d 54 25 3a | e7 51 46 25 3d 31 8c db |TNT%=T%:|.QF%=1..|
|00002900| 3a e5 8d 44 7a 4d 0d 09 | ce 3f 54 25 3d 54 4e 54 |:..DzM..|.?T%=TNT|
|00002910| 25 3a ff 22 43 4c 4f 53 | 45 22 3a 42 3d ad a4 4d |%:."CLOS|E":B=..M|
|00002920| 79 46 69 6c 65 28 46 4f | 24 29 3a 43 3d ad a4 4d |yFile(FO|$):C=..M|
|00002930| 79 46 69 6c 65 28 46 49 | 24 29 3a e7 54 25 3e 30 |yFile(FI|$):.T%>0|
|00002940| 8c 54 25 3d 31 0d 09 d8 | 0e e7 41 25 3e 30 8c 41 |.T%=1...|..A%>0.A|
|00002950| 25 3d 31 0d 09 e2 10 e7 | 4d 31 25 3e 30 8c 4d 31 |%=1.....|M1%>0.M1|
|00002960| 25 3d 31 0d 09 ec 10 e7 | 4d 32 25 3e 30 8c 4d 32 |%=1.....|M2%>0.M2|
|00002970| 25 3d 31 0d 09 f6 0f f2 | 49 4e 49 54 3a e5 8d 74 |%=1.....|INIT:..t|
|00002980| 52 44 0d 0a 00 81 db 3a | fb 31 38 30 3a 58 3d 32 |RD.....:|.180:X=2|
|00002990| 3a 59 3d 32 3a 57 25 3d | 36 33 3a 4c 25 3d 53 46 |:Y=2:W%=|63:L%=SF|
|000029a0| 25 2b 32 3a f2 4c 57 4e | 3a f1 8a 33 2c 33 29 3b |%+2:.LWN|:..3,3);|
|000029b0| 22 46 69 65 6c 64 20 20 | 20 20 20 20 20 20 20 20 |"Field  |        |
|000029c0| 20 20 20 20 20 20 20 53 | 75 6d 20 20 41 76 67 20 |       S|um  Avg |
|000029d0| 20 4d 69 6e 20 20 4d 61 | 78 20 20 50 72 69 6e 74 | Min  Ma|x  Print|
|000029e0| 20 20 44 65 63 69 6d 61 | 6c 20 50 6c 61 63 65 73 |  Decima|l Places|
|000029f0| 22 3b 8a 33 2c 34 29 3b | c4 36 33 2c bd 28 32 34 |";.3,4);|.63,.(24|
|00002a00| 31 29 29 0d 0a 0a 63 e3 | 49 3d 31 b8 53 46 25 3a |1))...c.|I=1.SF%:|
|00002a10| f1 8a 33 2c 49 2b 34 29 | 3b c1 52 45 24 28 49 2c |..3,I+4)|;.RE$(I,|
|00002a20| 31 29 2c 34 29 3a 4c 3d | 32 35 3a e3 46 3d 32 b8 |1),4):L=|25:.F=2.|
|00002a30| 36 3a e7 c1 52 45 24 28 | 49 2c 33 29 2c 46 2c 31 |6:..RE$(|I,3),F,1|
|00002a40| 29 3d 22 30 22 8c f1 8a | 4c 2c 49 2b 34 29 3b bd |)="0"...|L,I+4);.|
|00002a50| 28 31 33 32 29 3a 8b f1 | 8a 4c 2c 49 2b 34 29 3b |(132):..|.L,I+4);|
|00002a60| bd 28 31 32 38 29 0d 0a | 14 40 4c 3d 4c 2b 35 3a |.(128)..|.@L=L+5:|
|00002a70| ed 46 3a e7 c0 52 45 24 | 28 49 2c 33 29 2c 31 29 |.F:..RE$|(I,3),1)|
|00002a80| 3d 22 30 22 8c f1 8a 34 | 35 2c 49 2b 34 29 3b 22 |="0"...4|5,I+4);"|
|00002a90| 61 6c 6c 22 3a 8b f1 8a | 34 35 2c 49 2b 34 29 3b |all":...|45,I+4);|
|00002aa0| 22 6f 6e 63 65 22 0d 0a | 1e 3d e7 52 45 24 28 49 |"once"..|.=.RE$(I|
|00002ab0| 2c 35 29 3d 22 31 30 22 | 8c f1 8a 35 32 2c 49 2b |,5)="10"|...52,I+|
|00002ac0| 34 29 3b 22 61 73 20 65 | 6e 74 65 72 65 64 22 3a |4);"as e|ntered":|
|00002ad0| 8b f1 8a 35 32 2c 49 2b | 34 29 3b 52 45 24 28 49 |...52,I+|4);RE$(I|
|00002ae0| 2c 35 29 0d 0a 28 06 ed | 49 0d 0a 32 38 c8 97 20 |,5)..(..|I..28.. |
|00002af0| 58 50 2c 59 50 2c 42 55 | 54 3a 58 50 3d a8 28 58 |XP,YP,BU|T:XP=.(X|
|00002b00| 50 2f 31 36 29 3a 59 50 | 3d 33 31 2d a8 28 59 50 |P/16):YP|=31-.(YP|
|00002b10| 2f 33 32 29 3a e7 42 55 | 54 3d 30 8c e5 8d 54 72 |/32):.BU|T=0...Tr|
|00002b20| 4a 0d 0a 3c 15 e7 42 55 | 54 3d 31 8c fb 46 47 25 |J..<..BU|T=1..FG%|
|00002b30| 3a e5 8d 74 74 4a 0d 0a | 46 23 43 4c 25 3d 59 50 |:..ttJ..|F#CL%=YP|
|00002b40| 2d 34 3a e7 43 4c 25 3c | 31 20 84 20 43 4c 25 3e |-4:.CL%<|1 . CL%>|
|00002b50| 53 46 25 8c e5 8d 54 72 | 4a 0d 0a 50 19 e7 58 50 |SF%...Tr|J..P..XP|
|00002b60| 3e 34 34 20 80 20 58 50 | 3c 34 39 20 8c e5 8d 64 |>44 . XP|<49 ...d|
|00002b70| 66 4a 0d 0a 5a 19 e7 58 | 50 3e 35 31 20 80 20 58 |fJ..Z..X|P>51 . X|
|00002b80| 50 3c 36 32 20 8c e5 8d | 54 44 4b 0d 0a 64 13 4c |P<62 ...|TDK..d.L|
|00002b90| 3d 30 3a e7 58 50 3d 32 | 35 20 8c 4c 3d 32 0d 0a |=0:.XP=2|5 .L=2..|
|00002ba0| 6e 0f e7 58 50 3d 33 30 | 20 8c 4c 3d 33 0d 0a 78 |n..XP=30| .L=3..x|
|00002bb0| 0f e7 58 50 3d 33 35 20 | 8c 4c 3d 34 0d 0a 82 0f |..XP=35 |.L=4....|
|00002bc0| e7 58 50 3d 34 30 20 8c | 4c 3d 35 0d 0a 8c 0e e7 |.XP=40 .|L=5.....|
|00002bd0| 4c 3d 30 8c e5 8d 54 72 | 4a 0d 0a 96 5c 54 31 24 |L=0...Tr|J...\T1$|
|00002be0| 3d c0 52 45 24 28 43 4c | 25 2c 33 29 2c 4c 2d 31 |=.RE$(CL|%,3),L-1|
|00002bf0| 29 3a 54 32 24 3d c1 52 | 45 24 28 43 4c 25 2c 33 |):T2$=.R|E$(CL%,3|
|00002c00| 29 2c 4c 2b 31 29 3a 54 | 33 24 3d c1 52 45 24 28 |),L+1):T|3$=.RE$(|
|00002c10| 43 4c 25 2c 33 29 2c 4c | 2c 31 29 3a e7 54 33 24 |CL%,3),L|,1):.T3$|
|00002c20| 3d 22 30 22 8c 54 33 24 | 3d 22 31 22 3a 8b 54 33 |="0".T3$|="1":.T3|
|00002c30| 24 3d 22 30 22 0d 0a a0 | 44 52 45 24 28 43 4c 25 |$="0"...|DRE$(CL%|
|00002c40| 2c 33 29 3d 54 31 24 2b | 54 33 24 2b 54 32 24 3a |,3)=T1$+|T3$+T2$:|
|00002c50| e7 54 33 24 3d 22 30 22 | 8c f1 8a 58 50 2c 59 50 |.T3$="0"|...XP,YP|
|00002c60| 29 3b bd 28 31 33 32 29 | 3a 8b f1 8a 58 50 2c 59 |);.(132)|:...XP,Y|
|00002c70| 50 29 3b bd 28 31 32 38 | 29 0d 0a aa 19 f5 3a c8 |P);.(128|).....:.|
|00002c80| 97 20 55 2c 55 2c 42 3a | fd 42 3d 30 3a e5 8d 54 |. U,U,B:|.B=0:..T|
|00002c90| 72 4a 0d 0a b4 4e 53 41 | 4d 53 25 3d 30 3a 54 25 |rJ...NSA|MS%=0:T%|
|00002ca0| 3d 30 3a 41 25 3d 30 3a | 4d 31 25 3d 30 3a 4d 32 |=0:A%=0:|M1%=0:M2|
|00002cb0| 25 3d 30 3a e3 49 3d 31 | b8 53 46 25 3a e7 c1 52 |%=0:.I=1|.SF%:..R|
|00002cc0| 45 24 28 49 2c 33 29 2c | 32 2c 31 29 3d 22 31 22 |E$(I,3),|2,1)="1"|
|00002cd0| 8c 54 25 3d 54 25 2b 31 | 3a 53 41 4d 53 25 3d 31 |.T%=T%+1|:SAMS%=1|
|00002ce0| 0d 0a be 27 e7 c1 52 45 | 24 28 49 2c 33 29 2c 33 |...'..RE|$(I,3),3|
|00002cf0| 2c 31 29 3d 22 31 22 8c | 41 25 3d 41 25 2b 31 3a |,1)="1".|A%=A%+1:|
|00002d00| 53 41 4d 53 25 3d 31 0d | 0a c8 29 e7 c1 52 45 24 |SAMS%=1.|..)..RE$|
|00002d10| 28 49 2c 33 29 2c 34 2c | 31 29 3d 22 31 22 8c 4d |(I,3),4,|1)="1".M|
|00002d20| 31 25 3d 4d 31 25 2b 31 | 3a 53 41 4d 53 25 3d 31 |1%=M1%+1|:SAMS%=1|
|00002d30| 0d 0a d2 29 e7 c1 52 45 | 24 28 49 2c 33 29 2c 35 |...)..RE|$(I,3),5|
|00002d40| 2c 31 29 3d 22 31 22 8c | 4d 32 25 3d 4d 32 25 2b |,1)="1".|M2%=M2%+|
|00002d50| 31 3a 53 41 4d 53 25 3d | 31 0d 0a dc 0c ed 49 3a |1:SAMS%=|1.....I:|
|00002d60| e5 8d 74 72 47 0d 0a e6 | 30 54 33 24 3d c0 52 45 |..trG...|0T3$=.RE|
|00002d70| 24 28 43 4c 25 2c 33 29 | 2c 31 29 3a e7 54 33 24 |$(CL%,3)|,1):.T3$|
|00002d80| 3d 22 30 22 8c 54 33 24 | 3d 22 31 22 3a 8b 54 33 |="0".T3$|="1":.T3|
|00002d90| 24 3d 22 30 22 0d 0a f0 | 4b 52 45 24 28 43 4c 25 |$="0"...|KRE$(CL%|
|00002da0| 2c 33 29 3d 54 33 24 2b | c2 52 45 24 28 43 4c 25 |,3)=T3$+|.RE$(CL%|
|00002db0| 2c 33 29 2c 35 29 3a e7 | 54 33 24 3d 22 30 22 8c |,3),5):.|T3$="0".|
|00002dc0| f1 8a 34 35 2c 59 50 29 | 3b 22 61 6c 6c 20 22 3a |..45,YP)|;"all ":|
|00002dd0| 8b f1 8a 34 35 2c 59 50 | 29 3b 22 6f 6e 63 65 22 |...45,YP|);"once"|
|00002de0| 0d 0a fa 19 f5 3a c8 97 | 20 55 2c 55 2c 42 3a fd |.....:..| U,U,B:.|
|00002df0| 42 3d 30 3a e5 8d 54 72 | 4a 0d 0b 04 42 f1 8a 35 |B=0:..Tr|J...B..5|
|00002e00| 32 2c 59 50 29 3b 89 28 | 31 30 29 3a 58 3d 35 32 |2,YP);.(|10):X=52|
|00002e10| 3a 59 3d 59 50 3a 4c 25 | 3d 31 3a f2 54 45 58 54 |:Y=YP:L%|=1:.TEXT|
|00002e20| 3a e7 54 24 3d 22 22 8c | 54 24 3d 22 32 22 3a 8b |:.T$="".|T$="2":.|
|00002e30| 54 24 3d c3 28 bb 28 54 | 24 29 29 0d 0b 0e 3d 52 |T$=.(.(T|$))...=R|
|00002e40| 45 24 28 43 4c 25 2c 35 | 29 3d 54 24 3a e7 54 24 |E$(CL%,5|)=T$:.T$|
|00002e50| 3d 22 31 30 22 8c f1 8a | 35 32 2c 59 50 29 3b 22 |="10"...|52,YP);"|
|00002e60| 61 73 20 65 6e 74 65 72 | 65 64 22 3a 8b f1 8a 35 |as enter|ed":...5|
|00002e70| 32 2c 59 50 29 3b 54 24 | 0d 0b 18 09 e5 8d 64 7a |2,YP);T$|......dz|
|00002e80| 4a 0d 0b 22 79 db 3a 43 | 4f 4c 25 3d 31 3a 4c 49 |J.."y.:C|OL%=1:LI|
|00002e90| 4e 25 3d 31 3a fb 31 33 | 31 3a f1 8a 32 39 2c 31 |N%=1:.13|1:..29,1|
|00002ea0| 29 3b 22 4c 61 62 65 6c | 20 44 65 73 69 67 6e 20 |);"Label| Design |
|00002eb0| 53 63 72 65 65 6e 22 3a | fb 31 38 30 3a 58 3d 30 |Screen":|.180:X=0|
|00002ec0| 3a 59 3d 33 3a 57 25 3d | 37 38 3a 4c 25 3d 38 3a |:Y=3:W%=|78:L%=8:|
|00002ed0| f2 4c 57 4e 3a e3 49 3d | 31 b8 38 3a f1 8a 31 2c |.LWN:.I=|1.8:..1,|
|00002ee0| 49 2b 33 29 3b 22 4c 69 | 6e 65 20 22 3b 49 3b 22 |I+3);"Li|ne ";I;"|
|00002ef0| 3a 22 3a ed 49 3a fb 46 | 47 25 0d 0b 2c 36 e3 49 |:":.I:.F|G%..,6.I|
|00002f00| 3d 31 b8 38 3a e3 46 3d | 31 b8 36 3a 4c 41 25 28 |=1.8:.F=|1.6:LA%(|
|00002f10| 46 2c 49 29 3d 30 3a ed | 46 3a ed 49 3a e3 49 3d |F,I)=0:.|F:.I:.I=|
|00002f20| 31 b8 35 3a 41 43 52 25 | 28 49 29 3d 30 3a ed 49 |1.5:ACR%|(I)=0:.I|
|00002f30| 0d 0b 36 a7 58 3d 36 3a | 59 3d 31 35 3a 57 25 3d |..6.X=6:|Y=15:W%=|
|00002f40| 33 30 3a 4c 25 3d 36 3a | f2 4c 57 4e 3a f1 8a 37 |30:L%=6:|.LWN:..7|
|00002f50| 2c 31 36 29 3b 22 4c 69 | 6e 65 20 3a 22 3b 8a 37 |,16);"Li|ne :";.7|
|00002f60| 2c 31 37 29 3b 22 46 69 | 65 6c 64 3a 22 3b 8a 37 |,17);"Fi|eld:";.7|
|00002f70| 2c 31 39 29 3b 22 4c 65 | 66 74 20 42 75 74 74 6f |,19);"Le|ft Butto|
|00002f80| 6e 20 20 3a 20 53 65 6c | 65 63 74 20 66 69 65 6c |n  : Sel|ect fiel|
|00002f90| 64 22 3b 8a 37 2c 32 30 | 29 3b 22 4d 69 64 64 6c |d";.7,20|);"Middl|
|00002fa0| 65 20 42 75 74 74 6f 6e | 3a 20 4e 65 78 74 20 6c |e Button|: Next l|
|00002fb0| 69 6e 65 22 3b 8a 37 2c | 32 31 29 3b 22 52 69 67 |ine";.7,|21);"Rig|
|00002fc0| 68 74 20 42 75 74 74 6f | 6e 20 3a 20 45 6e 64 20 |ht Butto|n : End |
|00002fd0| 64 65 73 69 67 6e 22 0d | 0b 40 1b f1 8a 39 2c 4c |design".|.@...9,L|
|00002fe0| 49 4e 25 2b 33 29 3b 22 | 22 3b 3a 78 3d b1 3a 79 |IN%+3);"|";:x=.:y|
|00002ff0| 3d bc 0d 0b 4a 94 f1 8a | 31 34 2c 31 36 29 3b 4c |=...J...|14,16);L|
|00003000| 49 4e 25 3b 8a 31 34 2c | 31 37 29 3b 43 4f 4c 25 |IN%;.14,|17);COL%|
|00003010| 3b 3a fb 31 33 31 3a f1 | 8a 78 2c 79 29 3b bd 28 |;:.131:.|.x,y);.(|
|00003020| 32 35 35 29 3a fb 46 47 | 25 3a f2 53 45 4c 32 3a |255):.FG|%:.SEL2:|
|00003030| f1 8a 78 2c 79 29 3b 46 | 4c 24 3b 22 20 22 3b 3a |..x,y);F|L$;" ";:|
|00003040| 78 3d b1 3a 79 3d bc 3a | 4c 41 25 28 43 4f 4c 25 |x=.:y=.:|LA%(COL%|
|00003050| 2c 4c 49 4e 25 29 3d 53 | 46 25 3a 43 4f 4c 25 3d |,LIN%)=S|F%:COL%=|
|00003060| 43 4f 4c 25 2b 31 3a e7 | 43 4f 4c 25 3e 36 8c f1 |COL%+1:.|COL%>6..|
|00003070| 8a 78 2c 79 29 3b 22 20 | 22 3a e5 8d 44 54 4b 3a |.x,y);" |":..DTK:|
|00003080| 8b e5 8d 44 4a 4b 0d 0b | 54 43 4c 49 4e 25 3d 4c |...DJK..|TCLIN%=L|
|00003090| 49 4e 25 2b 31 3a e7 4c | 49 4e 25 3e 38 8c e5 8d |IN%+1:.L|IN%>8...|
|000030a0| 44 68 4b 3a 8b f1 8a 39 | 2c 4c 49 4e 25 2b 33 29 |DhK:...9|,LIN%+3)|
|000030b0| 3b 22 22 3b 3a 78 3d b1 | 3a 79 3d bc 3a 43 4f 4c |;"";:x=.|:y=.:COL|
|000030c0| 25 3d 31 3a e5 8d 44 4a | 4b 0d 0b 5e 26 e7 43 4f |%=1:..DJ|K..^&.CO|
|000030d0| 4c 25 3d 31 8c e5 8d 44 | 4a 4b 3a 8b f1 8a 78 2c |L%=1...D|JK:...x,|
|000030e0| 79 29 3b bd 28 31 33 36 | 29 3a e5 8d 44 54 4b 0d |y);.(136|):..DTK.|
|000030f0| 0b 68 7c f1 8a 78 2c 79 | 29 3b bd 28 31 33 36 29 |.h|..x,y|);.(136)|
|00003100| 3a 46 47 25 3d 31 38 30 | 3a fb 46 47 25 3a ef 32 |:FG%=180|:.FG%:.2|
|00003110| 38 2c 30 2c 33 31 2c 37 | 39 2c 31 35 3a db 3a ef |8,0,31,7|9,15:.:.|
|00003120| 32 36 3a 4c 41 57 25 3d | 33 36 3a 4c 41 44 25 3d |26:LAW%=|36:LAD%=|
|00003130| 39 3a 4c 41 43 25 3d 31 | 3a 58 3d 34 30 3a 59 3d |9:LAC%=1|:X=40:Y=|
|00003140| 31 35 3a 57 25 3d 31 39 | 3a 4c 25 3d 33 3a f2 4c |15:W%=19|:L%=3:.L|
|00003150| 57 4e 3a 58 3d 36 3a 59 | 3d 31 35 3a 57 25 3d 32 |WN:X=6:Y|=15:W%=2|
|00003160| 36 3a 4c 25 3d 35 3a f2 | 4c 57 4e 0d 0b 72 18 e7 |6:L%=5:.|LWN..r..|
|00003170| 4c 49 4e 25 3d 31 80 43 | 4f 4c 25 3d 31 8c e5 8d |LIN%=1.C|OL%=1...|
|00003180| 54 62 4b 0d 0b 7c 17 e7 | 43 4f 4c 25 3d 31 8c 4c |TbK..|..|COL%=1.L|
|00003190| 49 4e 25 3d 4c 49 4e 25 | 2d 31 0d 0b 86 70 f1 8a |IN%=LIN%|-1...p..|
|000031a0| 34 31 2c 31 36 29 3b 22 | 4c 61 62 65 6c 73 20 61 |41,16);"|Labels a|
|000031b0| 63 72 6f 73 73 3a 20 22 | 3b 4c 41 43 25 3b 22 20 |cross: "|;LAC%;" |
|000031c0| 20 22 3b 8a 34 31 2c 31 | 37 29 3b 22 4c 61 62 65 | ";.41,1|7);"Labe|
|000031d0| 6c 20 77 69 64 74 68 20 | 20 3a 20 22 3b 4c 41 57 |l width | : ";LAW|
|000031e0| 25 3b 22 20 20 22 3b 8a | 34 31 2c 31 38 29 3b 22 |%;"  ";.|41,18);"|
|000031f0| 4c 61 62 65 6c 20 64 65 | 70 74 68 20 20 3a 20 22 |Label de|pth  : "|
|00003200| 3b 4c 41 44 25 3b 22 20 | 20 22 0d 0b 90 9e 4d 45 |;LAD%;" | "....ME|
|00003210| 24 28 31 29 3d 22 43 68 | 61 6e 67 65 20 70 61 72 |$(1)="Ch|ange par|
|00003220| 61 6d 65 74 65 72 73 22 | 3a 4d 45 24 28 32 29 3d |ameters"|:ME$(2)=|
|00003230| 22 53 61 76 65 20 6c 61 | 62 65 6c 20 64 65 73 69 |"Save la|bel desi|
|00003240| 67 6e 22 3a 4d 45 24 28 | 33 29 3d 22 50 72 69 6e |gn":ME$(|3)="Prin|
|00003250| 74 20 6c 61 62 65 6c 73 | 22 3a 4d 45 24 28 34 29 |t labels|":ME$(4)|
|00003260| 3d 22 50 72 69 6e 74 20 | 6c 61 62 65 6c 73 20 77 |="Print |labels w|
|00003270| 69 74 68 20 66 69 6c 74 | 65 72 22 3a 4d 45 24 28 |ith filt|er":ME$(|
|00003280| 35 29 3d 22 41 62 61 6e | 64 6f 6e 20 6c 61 62 65 |5)="Aban|don labe|
|00003290| 6c 22 3a 58 3d 37 3a 59 | 3d 31 36 3a 4c 25 3d 35 |l":X=7:Y|=16:L%=5|
|000032a0| 3a f2 53 45 4c 45 43 54 | 0d 0b 9a 11 e7 53 45 4c |:.SELECT|.....SEL|
|000032b0| 25 3d 35 8c e5 8d 74 7c | 42 0d 0b a4 21 20 ee 20 |%=5...t||B...! . |
|000032c0| 53 45 4c 25 20 e5 20 8d | 74 6e 4b 2c 8d 64 56 4b |SEL% . .|tnK,.dVK|
|000032d0| 2c 8d 64 7e 4b 2c 8d 64 | 6a 4b 0d 0b ae 67 f1 8a |,.d~K,.d|jK...g..|
|000032e0| 35 36 2c 31 36 29 3b 89 | 28 33 29 3b 8a 35 36 2c |56,16);.|(3);.56,|
|000032f0| 31 37 29 3b 89 28 33 29 | 3b 8a 35 36 2c 31 38 29 |17);.(3)|;.56,18)|
|00003300| 3b 89 28 33 29 3a 58 3d | 35 36 3a 59 3d 31 36 3a |;.(3):X=|56:Y=16:|
|00003310| 4c 25 3d 31 3a f2 54 45 | 58 54 3a 4c 41 43 25 3d |L%=1:.TE|XT:LAC%=|
|00003320| bb 28 54 24 29 3a e7 54 | 24 3d 22 22 8c 4c 41 43 |.(T$):.T|$="".LAC|
|00003330| 25 3d 31 3a f1 8a 35 36 | 2c 31 36 29 3b 4c 41 43 |%=1:..56|,16);LAC|
|00003340| 25 0d 0b b8 40 58 3d 35 | 36 3a 59 3d 31 37 3a 4c |%...@X=5|6:Y=17:L|
|00003350| 25 3d 32 3a f2 54 45 58 | 54 3a 4c 41 57 25 3d bb |%=2:.TEX|T:LAW%=.|
|00003360| 28 54 24 29 3a e7 54 24 | 3d 22 22 8c 4c 41 57 25 |(T$):.T$|="".LAW%|
|00003370| 3d 33 36 3a f1 8a 35 36 | 2c 31 37 29 3b 4c 41 57 |=36:..56|,17);LAW|
|00003380| 25 0d 0b c2 3f 58 3d 35 | 36 3a 59 3d 31 38 3a 4c |%...?X=5|6:Y=18:L|
|00003390| 25 3d 32 3a f2 54 45 58 | 54 3a 4c 41 44 25 3d bb |%=2:.TEX|T:LAD%=.|
|000033a0| 28 54 24 29 3a e7 54 24 | 3d 22 22 8c 4c 41 44 25 |(T$):.T$|="".LAD%|
|000033b0| 3d 39 3a f1 8a 35 36 2c | 31 38 29 3b 4c 41 44 25 |=9:..56,|18);LAD%|
|000033c0| 0d 0b cc 09 e5 8d 74 50 | 4b 0d 0b d6 83 57 57 25 |......tP|K....WW%|
|000033d0| 3d 57 25 3a 58 3d 36 3a | 59 3d 32 33 3a 57 25 3d |=W%:X=6:|Y=23:W%=|
|000033e0| 33 34 3a 4c 25 3d 31 3a | f2 4c 57 4e 3a 57 25 3d |34:L%=1:|.LWN:W%=|
|000033f0| 57 57 25 3a f1 8a 37 2c | 32 34 29 3b 22 45 6e 74 |WW%:..7,|24);"Ent|
|00003400| 65 72 20 6c 61 62 65 6c | 20 66 69 6c 65 6e 61 6d |er label| filenam|
|00003410| 65 3a 20 22 3b 3a 58 3d | b1 3a 59 3d 32 34 3a 4c |e: ";:X=|.:Y=24:L|
|00003420| 25 3d 31 30 3a f2 54 45 | 58 54 3a e7 54 24 3d 22 |%=10:.TE|XT:.T$="|
|00003430| 22 8c ef 32 38 2c 36 2c | 32 35 2c 34 32 2c 32 33 |"..28,6,|25,42,23|
|00003440| 3a db 3a ef 32 36 3a e5 | 8d 74 50 4b 0d 0b e0 9b |:.:.26:.|.tPK....|
|00003450| 4c 41 25 28 31 2c 30 29 | 3d 4c 41 43 25 3a 4c 41 |LA%(1,0)|=LAC%:LA|
|00003460| 25 28 32 2c 30 29 3d 4c | 41 57 25 3a 4c 41 25 28 |%(2,0)=L|AW%:LA%(|
|00003470| 33 2c 30 29 3d 4c 41 44 | 25 3a 4c 41 25 28 34 2c |3,0)=LAD|%:LA%(4,|
|00003480| 30 29 3d 4c 49 4e 25 3a | ff 22 43 4c 4f 53 45 22 |0)=LIN%:|."CLOSE"|
|00003490| 3a 58 3d ae a4 4d 79 46 | 69 6c 65 28 54 24 29 3a |:X=..MyF|ile(T$):|
|000034a0| e3 49 3d 30 b8 38 3a e3 | 46 3d 31 b8 36 3a f1 23 |.I=0.8:.|F=1.6:.#|
|000034b0| 58 2c c3 28 4c 41 25 28 | 46 2c 49 29 29 3a ed 46 |X,.(LA%(|F,I)):.F|
|000034c0| 3a ed 49 3a ff 22 43 4c | 4f 53 45 22 3a ef 32 38 |:.I:."CL|OSE":.28|
|000034d0| 2c 36 2c 32 35 2c 34 32 | 2c 32 33 3a db 3a ef 32 |,6,25,42|,23:.:.2|
|000034e0| 36 3a e5 8d 74 50 4b 0d | 0b ea 17 51 46 25 3d 31 |6:..tPK.|...QF%=1|
|000034f0| 3a db 3a e5 8d 44 7a 4d | 3a e5 8d 64 7e 4b 0d 0b |:.:..DzM|:..d~K..|
|00003500| f4 09 e5 8d 64 7e 4b 0d | 0b fe 4e db 3a ef 32 3a |....d~K.|..N.:.2:|
|00003510| 41 52 25 3d 31 3a ff 22 | 43 4c 4f 53 45 22 3a 41 |AR%=1:."|CLOSE":A|
|00003520| 3d ad a4 4d 79 46 69 6c | 65 28 46 4f 24 29 3a 43 |=..MyFil|e(FO$):C|
|00003530| 3d ad a4 4d 79 46 69 6c | 65 28 46 49 24 29 3a e7 |=..MyFil|e(FI$):.|
|00003540| 4c 49 4e 25 3e 4c 41 44 | 25 8c 4c 41 44 25 3d 4c |LIN%>LAD|%.LAD%=L|
|00003550| 49 4e 25 2b 31 0d 0c 08 | 2e 4c 41 42 25 3d 31 3a |IN%+1...|.LAB%=1:|
|00003560| e3 4a 3d 31 b8 39 3a 41 | 43 52 25 28 4a 29 3d 30 |.J=1.9:A|CR%(J)=0|
|00003570| 3a ed 4a 3a e7 41 52 25 | 3e 4e 4f 52 25 8c e5 8d |:.J:.AR%|>NOR%...|
|00003580| 64 46 4c 0d 0c 12 39 43 | 52 25 3d 41 52 25 3a e7 |dFL...9C|R%=AR%:.|
|00003590| 53 4f 24 3d 22 31 22 8c | cf 23 43 3d 28 41 52 25 |SO$="1".|.#C=(AR%|
|000035a0| 2a 52 45 43 25 29 2d 31 | 30 3a e8 23 43 2c 43 52 |*REC%)-1|0:.#C,CR|
|000035b0| 24 3a 43 52 25 3d bb 28 | 43 52 24 29 0d 0c 1c 10 |$:CR%=.(|CR$)....|
|000035c0| e7 51 46 25 3d 31 8c e5 | 8d 54 72 4f 0d 0c 26 39 |.QF%=1..|.TrO..&9|
|000035d0| 41 43 52 25 28 4c 41 42 | 25 29 3d 43 52 25 3a 4c |ACR%(LAB|%)=CR%:L|
|000035e0| 41 42 25 3d 4c 41 42 25 | 2b 31 3a e7 4c 41 42 25 |AB%=LAB%|+1:.LAB%|
|000035f0| 3e 4c 41 43 25 8c 41 52 | 25 3d 41 52 25 2b 31 3a |>LAC%.AR|%=AR%+1:|
|00003600| e5 8d 44 44 4c 0d 0c 30 | 2a 41 52 25 3d 41 52 25 |..DDL..0|*AR%=AR%|
|00003610| 2b 31 3a e7 41 52 25 3e | 4e 4f 52 25 8c 41 43 52 |+1:.AR%>|NOR%.ACR|
|00003620| 25 28 4c 41 42 25 29 3d | 30 3a e5 8d 44 44 4c 0d |%(LAB%)=|0:..DDL.|
|00003630| 0c 3a 09 e5 8d 54 52 4c | 0d 0c 44 14 e7 41 43 52 |.:...TRL|..D..ACR|
|00003640| 25 28 31 29 3d 30 8c e5 | 8d 64 46 4c 0d 0c 4e 24 |%(1)=0..|.dFL..N$|
|00003650| e3 49 3d 31 b8 4c 49 4e | 25 3a 43 4c 41 42 25 3d |.I=1.LIN|%:CLAB%=|
|00003660| 31 3a 46 4c 44 25 3d 31 | 3a 4c 41 42 4c 25 3d 30 |1:FLD%=1|:LABL%=0|
|00003670| 0d 0c 58 6b cf 23 41 3d | 28 4c 41 25 28 46 4c 44 |..Xk.#A=|(LA%(FLD|
|00003680| 25 2c 49 29 2d 31 29 2a | 36 31 2b 31 30 39 3a e8 |%,I)-1)*|61+109:.|
|00003690| 23 41 2c 54 49 24 3a cf | 23 43 3d 28 41 43 52 25 |#A,TI$:.|#C=(ACR%|
|000036a0| 28 43 4c 41 42 25 29 2d | 31 29 2a 52 45 43 25 2b |(CLAB%)-|1)*REC%+|
|000036b0| bb 28 54 49 24 29 3a e8 | 23 43 2c 4e 24 3a f1 4e |.(TI$):.|#C,N$:.N|
|000036c0| 24 3b 22 20 22 3b 3a 4c | 41 42 4c 25 3d 4c 41 42 |$;" ";:L|ABL%=LAB|
|000036d0| 4c 25 2b a9 28 4e 24 29 | 2b 31 3a 0d 0c 62 2b 46 |L%+.(N$)|+1:..b+F|
|000036e0| 4c 44 25 3d 46 4c 44 25 | 2b 31 3a e7 4c 41 25 28 |LD%=FLD%|+1:.LA%(|
|000036f0| 46 4c 44 25 2c 49 29 3d | 30 8c e5 8d 44 6c 4c 3a |FLD%,I)=|0...DlL:|
|00003700| 8b e5 8d 44 58 4c 0d 0c | 6c 5c f1 89 28 4c 41 57 |...DXL..|l\..(LAW|
|00003710| 25 2d 4c 41 42 4c 25 29 | 3b 3a 43 4c 41 42 25 3d |%-LABL%)|;:CLAB%=|
|00003720| 43 4c 41 42 25 2b 31 3a | e7 43 4c 41 42 25 3e 4c |CLAB%+1:|.CLAB%>L|
|00003730| 41 43 25 20 84 20 41 43 | 52 25 28 43 4c 41 42 25 |AC% . AC|R%(CLAB%|
|00003740| 29 3d 30 8c f1 3a 46 4c | 44 25 3d 31 3a 4c 41 42 |)=0..:FL|D%=1:LAB|
|00003750| 4c 25 3d 30 3a 43 4c 41 | 42 25 3d 31 3a e5 8d 74 |L%=0:CLA|B%=1:..t|
|00003760| 40 4c 0d 0c 76 18 4c 41 | 42 4c 25 3d 30 3a 46 4c |@L..v.LA|BL%=0:FL|
|00003770| 44 25 3d 31 3a e5 8d 44 | 58 4c 0d 0c 80 2a ed 49 |D%=1:..D|XL...*.I|
|00003780| 3a 53 42 4c 25 3d 4c 41 | 44 25 2d 4c 49 4e 25 3a |:SBL%=LA|D%-LIN%:|
|00003790| e3 49 3d 31 b8 53 42 4c | 25 3a f1 3a ed 49 3a e5 |.I=1.SBL|%:.:.I:.|
|000037a0| 8d 54 48 4c 0d 0c 8a 62 | 58 3d 31 30 3a 59 3d 31 |.THL...b|X=10:Y=1|
|000037b0| 33 3a 57 25 3d 33 35 3a | 4c 25 3d 31 3a f2 4c 57 |3:W%=35:|L%=1:.LW|
|000037c0| 4e 3a f1 8a 31 31 2c 31 | 34 29 3b 22 45 6e 74 65 |N:..11,1|4);"Ente|
|000037d0| 72 20 6c 61 62 65 6c 20 | 66 69 6c 65 6e 61 6d 65 |r label |filename|
|000037e0| 3a 20 22 3b 3a 58 3d b1 | 3a 59 3d 31 34 3a 4c 25 |: ";:X=.|:Y=14:L%|
|000037f0| 3d 31 30 3a f2 54 45 58 | 54 3a e7 54 24 3d 22 22 |=10:.TEX|T:.T$=""|
|00003800| 8c e5 8d 74 7c 42 0d 0c | 94 0b ee 85 e5 8d 74 72 |...t|B..|......tr|
|00003810| 4c 0d 0c 9e 8e ff 22 43 | 4c 4f 53 45 22 3a 58 3d |L....."C|LOSE":X=|
|00003820| ad a4 4d 79 46 69 6c 65 | 28 54 24 29 3a e3 49 3d |..MyFile|(T$):.I=|
|00003830| 30 b8 38 3a e3 46 3d 31 | b8 36 3a e8 23 58 2c 4c |0.8:.F=1|.6:.#X,L|
|00003840| 24 3a 4c 41 25 28 46 2c | 49 29 3d bb 28 4c 24 29 |$:LA%(F,|I)=.(L$)|
|00003850| 3a ed 46 3a ed 49 3a ff | 22 43 4c 4f 53 45 22 3a |:.F:.I:.|"CLOSE":|
|00003860| 4c 41 43 25 3d 4c 41 25 | 28 31 2c 30 29 3a 4c 41 |LAC%=LA%|(1,0):LA|
|00003870| 57 25 3d 4c 41 25 28 32 | 2c 30 29 3a 4c 41 44 25 |W%=LA%(2|,0):LAD%|
|00003880| 3d 4c 41 25 28 33 2c 30 | 29 3a 4c 49 4e 25 3d 4c |=LA%(3,0|):LIN%=L|
|00003890| 41 25 28 34 2c 30 29 3a | ee 85 e5 8d 54 56 52 0d |A%(4,0):|....TVR.|
|000038a0| 0c a8 3e db 3a 58 3d 34 | 30 3a 59 3d 31 35 3a 57 |..>.:X=4|0:Y=15:W|
|000038b0| 25 3d 31 39 3a 4c 25 3d | 33 3a f2 4c 57 4e 3a 58 |%=19:L%=|3:.LWN:X|
|000038c0| 3d 36 3a 59 3d 31 35 3a | 57 25 3d 32 36 3a 4c 25 |=6:Y=15:|W%=26:L%|
|000038d0| 3d 35 3a f2 4c 57 4e 3a | e5 8d 74 46 4b 0d 0c b2 |=5:.LWN:|..tFK...|
|000038e0| 0b ee 85 e5 8d 54 56 52 | 0d 0c bc 72 f2 45 52 57 |.....TVR|...r.ERW|
|000038f0| 49 4e 3a fb 31 38 30 3a | f1 8a 32 30 2c 31 32 29 |IN:.180:|..20,12)|
|00003900| 3b 22 43 61 6e 6e 6f 74 | 20 66 69 6e 64 20 74 68 |;"Cannot| find th|
|00003910| 65 20 22 3b 54 24 3b 22 | 20 6c 61 62 65 6c 3a 22 |e ";T$;"| label:"|
|00003920| 3b 8a 32 30 2c 31 34 29 | 3b 22 43 6c 69 63 6b 20 |;.20,14)|;"Click |
|00003930| 6d 6f 75 73 65 20 74 6f | 20 63 6f 6e 74 69 6e 75 |mouse to| continu|
|00003940| 65 2e 2e 2e 22 3a ef 37 | 3a fb 46 47 25 3a f2 4d |e...":.7|:.FG%:.M|
|00003950| 4b 4c 49 4b 3a e5 8d 74 | 7c 42 0d 0c c6 6b ef 33 |KLIK:..t||B...k.3|
|00003960| 3a f1 27 3a fb 31 33 31 | 3a f1 8a 30 2c 32 39 29 |:.':.131|:..0,29)|
|00003970| 3b 22 4c 61 62 65 6c 20 | 70 72 69 6e 74 69 6e 67 |;"Label |printing|
|00003980| 20 66 69 6e 69 73 68 65 | 64 2e 20 43 6c 69 63 6b | finishe|d. Click|
|00003990| 20 6d 6f 75 73 65 20 74 | 6f 20 63 6f 6e 74 69 6e | mouse t|o contin|
|000039a0| 75 65 2e 2e 2e 22 3a fb | 46 47 25 3a f5 3a c8 97 |ue...":.|FG%:.:..|
|000039b0| 20 55 2c 55 2c 42 55 54 | 3a fd 42 55 54 3e 30 3a | U,U,BUT|:.BUT>0:|
|000039c0| e5 8d 74 7c 42 0d 0c d0 | 05 fa 0d 0c da 36 dd f2 |..t|B...|.....6..|
|000039d0| 53 45 4c 45 43 54 3a 45 | 44 25 3d 59 2b 28 4c 25 |SELECT:E|D%=Y+(L%|
|000039e0| 2d 31 29 3a 42 47 25 3d | 58 2b 28 57 25 2d 31 29 |-1):BG%=|X+(W%-1)|
|000039f0| 3a 53 53 45 4c 25 3d 31 | 3a 2a 46 58 31 35 2c 30 |:SSEL%=1|:*FX15,0|
|00003a00| 0d 0c e4 3e e3 49 3d 31 | b8 4c 25 3a f1 8a 58 2c |...>.I=1|.L%:..X,|
|00003a10| 59 2b 28 49 2d 31 29 29 | 3b 22 20 20 22 3b 4d 45 |Y+(I-1))|;"  ";ME|
|00003a20| 24 28 49 29 3b c4 28 57 | 25 2d 32 29 2d a9 28 4d |$(I);.(W|%-2)-.(M|
|00003a30| 45 24 28 49 29 29 2c 22 | 20 22 29 3a ed 49 0d 0c |E$(I)),"| "):.I..|
|00003a40| ee 2b c8 97 20 58 50 2c | 59 50 2c 42 55 54 3a 58 |.+.. XP,|YP,BUT:X|
|00003a50| 50 3d a8 28 58 50 2f 31 | 36 29 3a 59 50 3d 33 31 |P=.(XP/1|6):YP=31|
|00003a60| 2d a8 28 59 50 2f 33 32 | 29 0d 0c f8 18 e7 59 50 |-.(YP/32|).....YP|
|00003a70| 3c 59 20 84 20 59 50 3e | 45 44 25 8c e5 8d 64 64 |<Y . YP>|ED%...dd|
|00003a80| 4c 0d 0d 02 18 e7 58 50 | 3c 58 20 84 20 58 50 3e |L.....XP|<X . XP>|
|00003a90| 42 47 25 8c e5 8d 64 64 | 4c 0d 0d 0c 72 53 45 4c |BG%...dd|L...rSEL|
|00003aa0| 25 3d 28 59 50 2d 59 29 | 2b 31 3a f2 43 4c 45 41 |%=(YP-Y)|+1:.CLEA|
|00003ab0| 3a fb 20 31 33 31 3a fb | 31 32 37 3a f1 8a 58 2c |:. 131:.|127:..X,|
|00003ac0| 59 50 29 3b 22 20 20 22 | 3b 4d 45 24 28 53 45 4c |YP);"  "|;ME$(SEL|
|00003ad0| 25 29 3b c4 28 57 25 2d | 32 29 2d a9 28 4d 45 24 |%);.(W%-|2)-.(ME$|
|00003ae0| 28 53 45 4c 25 29 29 2c | 22 20 22 29 3a fb 20 46 |(SEL%)),|" "):. F|
|00003af0| 47 25 3a fb 31 32 37 3a | e7 42 55 54 3d 34 8c e5 |G%:.127:|.BUT=4..|
|00003b00| 8d 54 56 4d 3a 8b e5 8d | 64 6e 4c 0d 0d 16 08 ef |.TVM:...|dnL.....|
|00003b10| 37 3a e1 0d 0d 20 52 dd | f2 43 4c 45 41 3a e7 53 |7:... R.|.CLEA:.S|
|00003b20| 53 45 4c 25 3c 3e 53 45 | 4c 25 8c e3 49 3d 31 b8 |SEL%<>SE|L%..I=1.|
|00003b30| 4c 25 3a f1 8a 58 2c 59 | 2b 28 49 2d 31 29 29 3b |L%:..X,Y|+(I-1));|
|00003b40| 22 20 20 22 3b 4d 45 24 | 28 49 29 3b c4 28 57 25 |"  ";ME$|(I);.(W%|
|00003b50| 2d 32 29 2d a9 28 4d 45 | 24 28 49 29 29 2c 22 20 |-2)-.(ME|$(I))," |
|00003b60| 22 29 3a ed 49 0d 0d 2a | 10 53 53 45 4c 25 3d 53 |"):.I..*|.SSEL%=S|
|00003b70| 45 4c 25 3a e1 0d 0d 34 | 05 fa 0d 0d 3e 05 20 0d |EL%:...4|....>. .|
|00003b80| 0d 48 05 20 0d 0d 52 05 | 20 0d 0d 5c 05 20 0d 0d |.H. ..R.| ..\. ..|
|00003b90| 66 09 20 d9 20 23 30 0d | 0d 70 0a 20 f2 51 75 69 |f. . #0.|.p. .Qui|
|00003ba0| 74 0d 0d 7a 6c db 3a f1 | 8a 31 2c 31 29 3b 22 41 |t..zl.:.|.1,1);"A|
|00003bb0| 64 2d 48 6f 63 20 51 75 | 65 72 79 22 3b 8a 31 2c |d-Hoc Qu|ery";.1,|
|00003bc0| 32 29 3b c4 31 32 2c bd | 28 32 34 31 29 29 3a 50 |2);.12,.|(241)):P|
|00003bd0| 24 28 31 29 3d 22 3d 22 | 3a 50 24 28 32 29 3d 22 |$(1)="="|:P$(2)="|
|00003be0| 3c 3e 22 3a 50 24 28 33 | 29 3d 22 3c 22 3a 50 24 |<>":P$(3|)="<":P$|
|00003bf0| 28 34 29 3d 22 3e 22 3a | 50 24 28 35 29 3d 22 3c |(4)=">":|P$(5)="<|
|00003c00| 3d 22 3a 50 24 28 36 29 | 3d 22 3e 3d 22 0d 0d 84 |=":P$(6)|=">="...|
|00003c10| 75 f1 8a 30 2c 34 29 3b | bd 28 31 35 34 29 3b c4 |u..0,4);|.(154);.|
|00003c20| 37 38 2c bd 28 31 35 39 | 29 29 3b bd 28 31 35 38 |78,.(159|));.(158|
|00003c30| 29 3b 8a 31 2c 34 29 3b | 22 4c 69 22 3b 8a 34 2c |);.1,4);|"Li";.4,|
|00003c40| 34 29 3b 22 46 69 65 6c | 64 22 3b 8a 32 35 2c 34 |4);"Fiel|d";.25,4|
|00003c50| 29 3b 22 4f 70 22 3b 8a | 32 39 2c 34 29 3b 22 43 |);"Op";.|29,4);"C|
|00003c60| 6f 6e 73 74 61 6e 74 2f | 45 78 70 72 65 73 73 69 |onstant/|Expressi|
|00003c70| 6f 6e 22 3b 8a 37 34 2c | 34 29 3b 22 4c 6f 67 69 |on";.74,|4);"Logi|
|00003c80| 63 22 0d 0d 8e 3b f1 8a | 33 2c 34 29 3b bd 28 32 |c"...;..|3,4);.(2|
|00003c90| 33 33 29 3b 8a 32 34 2c | 34 29 3b bd 28 32 33 33 |33);.24,|4);.(233|
|00003ca0| 29 3b 8a 32 38 2c 34 29 | 3b bd 28 32 33 33 29 3b |);.28,4)|;.(233);|
|00003cb0| 8a 37 33 2c 34 29 3b bd | 28 32 33 33 29 0d 0d 98 |.73,4);.|(233)...|
|00003cc0| 75 e3 46 3d 35 b8 31 34 | 3a f1 8a 33 2d a9 28 c3 |u.F=5.14|:..3-.(.|
|00003cd0| 28 46 2d 34 29 29 2c 46 | 29 3b 46 2d 34 3b 8a 30 |(F-4)),F|);F-4;.0|
|00003ce0| 2c 46 29 3b bd 28 31 35 | 35 29 3b 8a 33 2c 46 29 |,F);.(15|5);.3,F)|
|00003cf0| 3b bd 28 32 33 31 29 3b | 8a 32 34 2c 46 29 3b bd |;.(231);|.24,F);.|
|00003d00| 28 32 33 31 29 3b 8a 32 | 38 2c 46 29 3b bd 28 32 |(231);.2|8,F);.(2|
|00003d10| 33 31 29 3b 8a 37 33 2c | 46 29 3b bd 28 32 33 31 |31);.73,|F);.(231|
|00003d20| 29 3b 8a 37 39 2c 46 29 | 3b bd 28 31 35 37 29 3a |);.79,F)|;.(157):|
|00003d30| ed 46 0d 0d a2 07 49 3d | 31 0d 0d ac 1c ff 22 43 |.F....I=|1....."C|
|00003d40| 4c 4f 53 45 22 3a 43 3d | ad a4 4d 79 46 69 6c 65 |LOSE":C=|..MyFile|
|00003d50| 28 46 4f 24 29 0d 0d b6 | 34 58 3d 34 3a 59 3d 49 |(FO$)...|4X=4:Y=I|
|00003d60| 2b 34 3a 4c 25 3d 32 30 | 3a f2 54 45 58 54 3a 4e |+4:L%=20|:.TEXT:N|
|00003d70| 24 3d 54 24 3a f2 43 4c | 3a f2 43 48 45 4b 3a 51 |$=T$:.CL|:.CHEK:Q|
|00003d80| 24 28 49 2c 31 29 3d 4e | 24 0d 0d c0 35 58 3d 32 |$(I,1)=N|$...5X=2|
|00003d90| 35 3a 59 3d 49 2b 34 3a | 4c 25 3d 32 3a f2 54 45 |5:Y=I+4:|L%=2:.TE|
|00003da0| 58 54 3a 4e 24 3d 54 24 | 3a f2 43 4c 3a f2 43 48 |XT:N$=T$|:.CL:.CH|
|00003db0| 45 4b 32 3a 51 24 28 49 | 2c 32 29 3d 4e 24 0d 0d |EK2:Q$(I|,2)=N$..|
|00003dc0| ca 39 e7 51 24 28 49 2c | 37 29 3d 22 39 22 84 20 |.9.Q$(I,|7)="9". |
|00003dd0| bb 28 51 24 28 49 2c 37 | 29 29 3c 35 20 80 20 bb |.(Q$(I,7|))<5 . .|
|00003de0| 28 51 24 28 49 2c 36 29 | 29 3e 36 8c e5 8d 64 54 |(Q$(I,6)|)>6...dT|
|00003df0| 4d 8b e5 8d 64 68 4d 0d | 0d d4 57 f2 43 4c 3a f1 |M...dhM.|..W.CL:.|
|00003e00| 8a 32 30 2c 31 29 3b 22 | 49 6e 76 61 6c 69 64 20 |.20,1);"|Invalid |
|00003e10| 4f 70 65 72 61 74 6f 72 | 2e 20 57 61 6e 74 20 74 |Operator|. Want t|
|00003e20| 6f 20 63 6f 6e 74 69 6e | 75 65 3f 22 3b 8a 32 30 |o contin|ue?";.20|
|00003e30| 2c 32 29 3b 22 28 59 2f | 4e 29 22 3a 49 24 3d be |,2);"(Y/|N)":I$=.|
|00003e40| 3a e7 49 24 3d 22 4e 22 | 8c e5 8d 74 7c 42 0d 0d |:.I$="N"|...t|B..|
|00003e50| de 09 e5 8d 64 40 4d 0d | 0d e8 14 58 3d 32 39 3a |....d@M.|...X=29:|
|00003e60| 59 3d 49 2b 34 3a 4c 25 | 3d 34 34 0d 0d f2 26 e7 |Y=I+4:L%|=44...&.|
|00003e70| 51 24 28 49 2c 37 29 3d | 22 35 22 8c f2 54 59 35 |Q$(I,7)=|"5"..TY5|
|00003e80| 3a 51 24 28 49 2c 33 29 | 3d 4e 24 3a e5 8d 54 50 |:Q$(I,3)|=N$:..TP|
|00003e90| 4e 0d 0d fc 26 e7 51 24 | 28 49 2c 37 29 3d 22 36 |N...&.Q$|(I,7)="6|
|00003ea0| 22 8c f2 54 59 36 3a 51 | 24 28 49 2c 33 29 3d 4e |"..TY6:Q|$(I,3)=N|
|00003eb0| 24 3a e5 8d 54 50 4e 0d | 0e 06 1a f2 54 45 58 54 |$:..TPN.|....TEXT|
|00003ec0| 3a 4e 24 3d 54 24 3a 51 | 24 28 49 2c 33 29 3d 4e |:N$=T$:Q|$(I,3)=N|
|00003ed0| 24 0d 0e 10 55 f1 8a 37 | 34 2c 49 2b 34 29 3b bd |$...U..7|4,I+4);.|
|00003ee0| 28 32 35 35 29 3a 49 24 | 3d be 3a e7 49 24 3d 22 |(255):I$|=.:.I$="|
|00003ef0| 41 22 84 20 49 24 3d 22 | 4f 22 84 20 49 24 3d 22 |A". I$="|O". I$="|
|00003f00| 45 22 84 20 49 24 3d 22 | 61 22 84 20 49 24 3d 22 |E". I$="|a". I$="|
|00003f10| 6f 22 84 20 49 24 3d 22 | 65 22 8c e5 8d 54 5a 4e |o". I$="|e"...TZN|
|00003f20| 8b e5 8d 54 50 4e 0d 0e | 1a 1c e7 49 24 3d 22 41 |...TPN..|...I$="A|
|00003f30| 22 84 20 49 24 3d 22 61 | 22 8c 49 24 3d 22 41 4e |". I$="a|".I$="AN|
|00003f40| 44 22 0d 0e 24 1c e7 49 | 24 3d 22 45 22 84 20 49 |D"..$..I|$="E". I|
|00003f50| 24 3d 22 65 22 8c 49 24 | 3d 22 45 4e 44 22 0d 0e |$="e".I$|="END"..|
|00003f60| 2e 1b e7 49 24 3d 22 4f | 22 84 20 49 24 3d 22 6f |...I$="O|". I$="o|
|00003f70| 22 8c 49 24 3d 22 4f 52 | 22 0d 0e 38 1b f1 8a 37 |".I$="OR|"..8...7|
|00003f80| 34 2c 49 2b 34 29 3b 49 | 24 3a 51 24 28 49 2c 34 |4,I+4);I|$:Q$(I,4|
|00003f90| 29 3d 49 24 0d 0e 42 19 | e7 49 24 3d 22 45 4e 44 |)=I$..B.|.I$="END|
|00003fa0| 22 8c 74 74 25 3d 49 3a | e5 8d 64 44 4e 0d 0e 4c |".tt%=I:|..dDN..L|
|00003fb0| 23 49 3d 49 2b 31 3a e7 | 49 3e 31 30 8c 74 74 25 |#I=I+1:.|I>10.tt%|
|00003fc0| 3d 31 30 3a e5 8d 64 44 | 4e 3a 8b e5 8d 74 76 4d |=10:..dD|N:...tvM|
|00003fd0| 0d 0e 56 0a dd f2 43 48 | 45 4b 0d 0e 60 8c 4c 25 |..V...CH|EK..`.L%|
|00003fe0| 3d 30 3a e3 46 3d 31 b8 | 4e 4f 46 25 3a cf 23 43 |=0:.F=1.|NOF%:.#C|
|00003ff0| 3d 28 46 2d 31 29 2a 36 | 31 2b 36 33 3a e8 23 43 |=(F-1)*6|1+63:.#C|
|00004000| 2c 46 4c 24 3a e7 4e 24 | 3d 46 4c 24 8c cf 23 43 |,FL$:.N$|=FL$..#C|
|00004010| 3d 28 46 2d 31 29 2a 36 | 31 2b 36 33 2b 34 36 3a |=(F-1)*6|1+63+46:|
|00004020| e8 23 43 2c 54 49 24 3a | 51 24 28 49 2c 35 29 3d |.#C,TI$:|Q$(I,5)=|
|00004030| 54 49 24 3a cf 23 43 3d | 28 46 2d 31 29 2a 36 31 |TI$:.#C=|(F-1)*61|
|00004040| 2b 36 33 2b 33 38 3a e8 | 23 43 2c 54 59 24 3a 51 |+63+38:.|#C,TY$:Q|
|00004050| 24 28 49 2c 37 29 3d 54 | 59 24 3a 46 3d 4e 4f 46 |$(I,7)=T|Y$:F=NOF|
|00004060| 25 3a 4c 25 3d 31 0d 0e | 6a 5c ed 46 3a e7 4c 25 |%:L%=1..|j\.F:.L%|
|00004070| 3d 31 8c e5 8d 64 40 4d | 8b f2 43 4c 3a f1 8a 32 |=1...d@M|..CL:..2|
|00004080| 30 2c 31 29 3b 22 46 69 | 65 6c 64 20 69 73 20 6e |0,1);"Fi|eld is n|
|00004090| 6f 74 20 6f 6e 20 66 69 | 6c 65 2e 20 57 61 6e 74 |ot on fi|le. Want|
|000040a0| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 3f 22 3b 8a | to cont|inue?";.|
|000040b0| 32 30 2c 32 29 3b 22 28 | 59 2f 4e 29 22 3a 49 24 |20,2);"(|Y/N)":I$|
|000040c0| 3d be 0d 0e 74 18 e7 49 | 24 3d 22 4e 22 8c e5 8d |=...t..I|$="N"...|
|000040d0| 74 7c 42 3a 8b e5 8d 74 | 76 4d 0d 0e 7e 05 e1 0d |t|B:...t|vM..~...|
|000040e0| 0e 88 0b dd f2 43 48 45 | 4b 32 0d 0e 92 2f 4c 25 |.....CHE|K2.../L%|
|000040f0| 3d 30 3a e3 46 3d 31 b8 | 36 3a e7 4e 24 3d 50 24 |=0:.F=1.|6:.N$=P$|
|00004100| 28 46 29 8c 51 24 28 49 | 2c 36 29 3d c3 28 46 29 |(F).Q$(I|,6)=.(F)|
|00004110| 3a 4c 25 3d 31 3a 46 3d | 38 0d 0e 9c 58 ed 46 3a |:L%=1:F=|8...X.F:|
|00004120| e7 4c 25 3d 31 8c e5 8d | 64 4a 4d 8b f2 43 4c 3a |.L%=1...|dJM..CL:|
|00004130| f1 8a 32 30 2c 31 29 3b | 22 49 6e 76 61 6c 69 64 |..20,1);|"Invalid|
|00004140| 20 4f 70 65 72 61 74 6f | 72 2e 20 57 61 6e 74 20 | Operato|r. Want |
|00004150| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 3f 22 3b 8a 32 |to conti|nue?";.2|
|00004160| 30 2c 32 29 3b 22 28 59 | 2f 4e 29 22 3a 49 24 3d |0,2);"(Y|/N)":I$=|
|00004170| be 0d 0e a6 18 e7 49 24 | 3d 22 4e 22 8c e5 8d 74 |......I$|="N"...t|
|00004180| 7c 42 3a 8b e5 8d 64 40 | 4d 0d 0e b0 05 e1 0d 0e ||B:...d@|M.......|
|00004190| ba 2b dd f2 43 4c 3a f1 | 8a 32 30 2c 31 29 3b c4 |.+..CL:.|.20,1);.|
|000041a0| 36 30 2c 22 20 22 29 3b | 8a 32 30 2c 32 29 3b c4 |60," ");|.20,2);.|
|000041b0| 36 30 2c 22 20 22 29 3a | e1 0d 0e c4 42 4d 43 24 |60," "):|....BMC$|
|000041c0| 3d c4 32 30 2c 22 30 22 | 29 3a 52 43 24 3d 4d 43 |=.20,"0"|):RC$=MC|
|000041d0| 24 3a e7 51 24 28 31 2c | 34 29 3d 22 4f 52 22 8c |$:.Q$(1,|4)="OR".|
|000041e0| 4d 43 24 3d 22 31 22 2b | c4 39 2c 22 30 22 29 2b |MC$="1"+|.9,"0")+|
|000041f0| 22 31 22 2b c4 39 2c 22 | 30 22 29 0d 0e ce 05 db |"1"+.9,"|0").....|
|00004200| 0d 0e d8 0c e3 46 3d 31 | b8 74 74 25 0d 0e e2 17 |.....F=1|.tt%....|
|00004210| e7 51 24 28 46 2c 34 29 | 3d 22 4f 52 22 8c e5 8d |.Q$(F,4)|="OR"...|
|00004220| 54 5e 4f 0d 0e ec 43 42 | 31 24 3d c2 4d 43 24 2c |T^O...CB|1$=.MC$,|
|00004230| 31 30 29 3a 42 32 24 3d | 22 22 3a e3 4a 3d 31 b8 |10):B2$=|"":.J=1.|
|00004240| 31 30 3a e7 4a 3d 46 20 | 8c 42 32 24 3d 42 32 24 |10:.J=F |.B2$=B2$|
|00004250| 2b 22 31 22 8b 42 32 24 | 3d 42 32 24 2b c1 4d 43 |+"1".B2$|=B2$+.MC|
|00004260| 24 2c 4a 2c 31 29 0d 0e | f6 06 ed 4a 0d 0f 00 23 |$,J,1)..|...J...#|
|00004270| 4d 43 24 3d 42 32 24 2b | 42 31 24 3a 42 31 24 3d |MC$=B2$+|B1$:B1$=|
|00004280| c0 4d 43 24 2c 31 30 29 | 3a 42 32 24 3d 22 22 0d |.MC$,10)|:B2$="".|
|00004290| 0f 0a 35 e3 4a 3d 31 31 | b8 32 30 3a e7 4a 3d 28 |..5.J=11|.20:.J=(|
|000042a0| 46 2b 31 30 29 20 8c 42 | 32 24 3d 42 32 24 2b 22 |F+10) .B|2$=B2$+"|
|000042b0| 31 22 8b 42 32 24 3d 42 | 32 24 2b c1 4d 43 24 2c |1".B2$=B|2$+.MC$,|
|000042c0| 4a 2c 31 29 0d 0f 14 12 | ed 4a 3a 4d 43 24 3d 42 |J,1)....|.J:MC$=B|
|000042d0| 31 24 2b 42 32 24 0d 0f | 1e 0d ed 46 3a e5 52 54 |1$+B2$..|...F:.RT|
|000042e0| 56 31 25 0d 0f 28 23 db | 3a 53 25 3d 30 3a ff 22 |V1%..(#.|:S%=0:."|
|000042f0| 43 4c 4f 53 45 22 3a 58 | 3d ad a4 4d 79 46 69 6c |CLOSE":X|=..MyFil|
|00004300| 65 28 46 49 24 29 0d 0f | 32 15 46 25 3d 31 3a 52 |e(FI$)..|2.F%=1:R|
|00004310| 43 24 3d c4 32 30 2c 22 | 30 22 29 0d 0f 3c 17 e7 |C$=.20,"|0")..<..|
|00004320| 51 24 28 31 2c 34 29 3d | 22 4f 52 22 8c e5 8d 44 |Q$(1,4)=|"OR"...D|
|00004330| 7c 50 0d 0f 46 63 cf 23 | 43 3d 28 43 52 25 2d 31 ||P..Fc.#|C=(CR%-1|
|00004340| 29 2a 52 45 43 25 2b bb | 28 51 24 28 46 25 2c 35 |)*REC%+.|(Q$(F%,5|
|00004350| 29 29 3a e8 23 43 2c 43 | 24 3a 4e 24 3d 51 24 28 |)):.#C,C|$:N$=Q$(|
|00004360| 46 25 2c 33 29 3a 54 50 | 24 3d 22 31 22 3a 4f 50 |F%,3):TP|$="1":OP|
|00004370| 24 3d 51 24 28 46 25 2c | 36 29 3a f2 54 59 50 45 |$=Q$(F%,|6):.TYPE|
|00004380| 3a f2 43 4f 4d 50 41 52 | 45 3a e7 43 4f 4d 25 3d |:.COMPAR|E:.COM%=|
|00004390| 31 8c f2 46 42 0d 0f 50 | 1e e7 51 24 28 46 25 2c |1..FB..P|..Q$(F%,|
|000043a0| 34 29 3d 22 45 4e 44 22 | 80 43 4f 4d 25 3d 31 8c |4)="END"|.COM%=1.|
|000043b0| f2 53 42 0d 0f 5a 23 e7 | 51 24 28 46 25 2c 34 29 |.SB..Z#.|Q$(F%,4)|
|000043c0| 3d 22 45 4e 44 22 8c e7 | 52 43 24 3d 4d 43 24 8c |="END"..|RC$=MC$.|
|000043d0| e5 52 54 56 32 25 0d 0f | 64 24 46 25 3d 46 25 2b |.RTV2%..|d$F%=F%+|
|000043e0| 31 3a e7 46 25 3e 74 74 | 25 8c 46 25 3d 74 74 25 |1:.F%>tt|%.F%=tt%|
|000043f0| 3a f2 53 42 3a e5 8d 74 | 42 4f 0d 0f 6e 18 e7 51 |:.SB:..t|BO..n..Q|
|00004400| 24 28 46 25 2c 34 29 3d | 22 4f 52 22 8c e5 8d 54 |$(F%,4)=|"OR"...T|
|00004410| 58 50 0d 0f 78 1d 46 25 | 3d 46 25 2d 31 3a f2 53 |XP..x.F%|=F%-1:.S|
|00004420| 42 3a 46 25 3d 46 25 2b | 31 3a e5 8d 44 46 4f 0d |B:F%=F%+|1:..DFO.|
|00004430| 0f 82 0a e5 52 54 56 33 | 25 0d 0f 8c 0a dd f2 54 |....RTV3|%......T|
|00004440| 59 50 45 0d 0f 96 45 e7 | 51 24 28 46 25 2c 37 29 |YPE...E.|Q$(F%,7)|
|00004450| 3d 22 37 22 84 51 24 28 | 46 25 2c 37 29 3d 22 38 |="7".Q$(|F%,7)="8|
|00004460| 22 84 51 24 28 46 25 2c | 37 29 3d 22 30 22 8c 20 |".Q$(F%,|7)="0". |
|00004470| 4e 3d bb 28 4e 24 29 3a | 4e 4f 3d bb 28 43 24 29 |N=.(N$):|NO=.(C$)|
|00004480| 3a 54 50 24 3d 22 32 22 | 0d 0f a0 38 e7 51 24 28 |:TP$="2"|...8.Q$(|
|00004490| 46 25 2c 37 29 3d 22 35 | 22 8c 58 24 3d 4e 24 3a |F%,7)="5|".X$=N$:|
|000044a0| f2 43 4f 4e 44 49 3a 4e | 3d 4e 4f 3a 58 24 3d 43 |.CONDI:N|=NO:X$=C|
|000044b0| 24 3a f2 43 4f 4e 44 49 | 3a 54 50 24 3d 22 32 22 |$:.CONDI|:TP$="2"|
|000044c0| 0d 0f aa 38 e7 51 24 28 | 46 25 2c 37 29 3d 22 36 |...8.Q$(|F%,7)="6|
|000044d0| 22 8c 58 24 3d 4e 24 3a | f2 43 4f 4e 54 49 3a 4e |".X$=N$:|.CONTI:N|
|000044e0| 3d 4e 4f 3a 58 24 3d 43 | 24 3a f2 43 4f 4e 54 49 |=NO:X$=C|$:.CONTI|
|000044f0| 3a 54 50 24 3d 22 32 22 | 0d 0f b4 05 e1 0d 0f be |:TP$="2"|........|
|00004500| 08 dd f2 46 42 0d 0f c8 | 44 42 31 24 3d c2 52 43 |...FB...|DB1$=.RC|
|00004510| 24 2c 31 30 29 3a 42 32 | 24 3d 22 22 3a e3 4a 3d |$,10):B2|$="":.J=|
|00004520| 31 b8 31 30 3a e7 4a 3d | 46 25 20 8c 42 32 24 3d |1.10:.J=|F% .B2$=|
|00004530| 42 32 24 2b 22 31 22 8b | 42 32 24 3d 42 32 24 2b |B2$+"1".|B2$=B2$+|
|00004540| c1 52 43 24 2c 4a 2c 31 | 29 0d 0f d2 12 ed 4a 3a |.RC$,J,1|).....J:|
|00004550| 52 43 24 3d 42 32 24 2b | 42 31 24 0d 0f dc 05 e1 |RC$=B2$+|B1$.....|
|00004560| 0d 0f e6 08 dd f2 53 42 | 0d 0f f0 17 42 31 24 3d |......SB|....B1$=|
|00004570| c0 52 43 24 2c 31 30 29 | 3a 42 32 24 3d 22 22 0d |.RC$,10)|:B2$="".|
|00004580| 0f fa 36 e3 4a 3d 31 31 | b8 32 30 3a e7 4a 3d 28 |..6.J=11|.20:.J=(|
|00004590| 46 25 2b 31 30 29 20 8c | 42 32 24 3d 42 32 24 2b |F%+10) .|B2$=B2$+|
|000045a0| 22 31 22 8b 42 32 24 3d | 42 32 24 2b c1 52 43 24 |"1".B2$=|B2$+.RC$|
|000045b0| 2c 4a 2c 31 29 0d 10 04 | 12 ed 4a 3a 52 43 24 3d |,J,1)...|..J:RC$=|
|000045c0| 42 31 24 2b 42 32 24 0d | 10 0e 05 e1 0d 10 18 0e |B1$+B2$.|........|
|000045d0| 53 50 25 3d 28 46 25 2d | 31 29 0d 10 22 7e cf 23 |SP%=(F%-|1).."~.#|
|000045e0| 43 3d 28 43 52 25 2d 31 | 29 2a 52 45 43 25 2b bb |C=(CR%-1|)*REC%+.|
|000045f0| 28 51 24 28 46 25 2c 35 | 29 29 3a e8 23 43 2c 43 |(Q$(F%,5|)):.#C,C|
|00004600| 24 3a 4e 24 3d 51 24 28 | 46 25 2c 33 29 3a 54 50 |$:N$=Q$(|F%,3):TP|
|00004610| 24 3d 22 31 22 3a 4f 50 | 24 3d 51 24 28 46 25 2c |$="1":OP|$=Q$(F%,|
|00004620| 36 29 3a f2 54 59 50 45 | 3a f2 43 4f 4d 50 41 52 |6):.TYPE|:.COMPAR|
|00004630| 45 3a e7 43 4f 4d 25 3d | 31 8c 53 41 25 3d 46 25 |E:.COM%=|1.SA%=F%|
|00004640| 3a 46 25 3d 53 50 25 3a | f2 53 42 3a 46 25 3d 53 |:F%=SP%:|.SB:F%=S|
|00004650| 41 25 3a e5 8d 44 4a 50 | 0d 10 2c 19 e7 51 24 28 |A%:..DJP|..,..Q$(|
|00004660| 46 25 2c 34 29 3d 22 45 | 4e 44 22 8c e5 8d 74 42 |F%,4)="E|ND"...tB|
|00004670| 4f 0d 10 36 29 e7 51 24 | 28 46 25 2c 34 29 3d 22 |O..6).Q$|(F%,4)="|
|00004680| 41 4e 44 22 8c f2 46 42 | 3a f2 53 42 3a 46 25 3d |AND"..FB|:.SB:F%=|
|00004690| 46 25 2b 31 3a e5 8d 44 | 46 4f 0d 10 40 11 46 25 |F%+1:..D|FO..@.F%|
|000046a0| 3d 46 25 2b 31 3a e5 8d | 54 62 50 0d 10 4a 29 e7 |=F%+1:..|TbP..J).|
|000046b0| 51 24 28 46 25 2c 34 29 | 3d 22 41 4e 44 22 8c f2 |Q$(F%,4)|="AND"..|
|000046c0| 46 42 3a f2 53 42 3a 46 | 25 3d 46 25 2b 31 3a e5 |FB:.SB:F|%=F%+1:.|
|000046d0| 8d 44 46 4f 0d 10 54 24 | e7 51 24 28 46 25 2c 34 |.DFO..T$|.Q$(F%,4|
|000046e0| 29 3d 22 45 4e 44 22 8c | f2 46 42 3a 43 4f 4d 25 |)="END".|.FB:COM%|
|000046f0| 3d 31 3a e5 8d 44 50 4f | 0d 10 5e 29 e7 51 24 28 |=1:..DPO|..^).Q$(|
|00004700| 46 25 2c 34 29 3d 22 41 | 4e 44 22 8c f2 46 42 3a |F%,4)="A|ND"..FB:|
|00004710| f2 53 42 3a 46 25 3d 46 | 25 2b 31 3a e5 8d 44 46 |.SB:F%=F|%+1:..DF|
|00004720| 4f 0d 10 68 24 e7 51 24 | 28 46 25 2c 34 29 3d 22 |O..h$.Q$|(F%,4)="|
|00004730| 45 4e 44 22 8c f2 46 42 | 3a 43 4f 4d 25 3d 31 3a |END"..FB|:COM%=1:|
|00004740| e5 8d 44 50 4f 0d 10 72 | 11 46 25 3d 46 25 2b 31 |..DPO..r|.F%=F%+1|
|00004750| 3a e5 8d 44 5e 50 0d 10 | 7c 0a 53 50 25 3d 46 25 |:..D^P..||.SP%=F%|
|00004760| 0d 10 86 82 cf 23 43 3d | 28 43 52 25 2d 31 29 2a |.....#C=|(CR%-1)*|
|00004770| 52 45 43 25 2b bb 28 51 | 24 28 46 25 2c 35 29 29 |REC%+.(Q|$(F%,5))|
|00004780| 3a e8 23 43 2c 43 24 3a | 4e 24 3d 51 24 28 46 25 |:.#C,C$:|N$=Q$(F%|
|00004790| 2c 33 29 3a 54 50 24 3d | 22 31 22 3a 4f 50 24 3d |,3):TP$=|"1":OP$=|
|000047a0| 51 24 28 46 25 2c 36 29 | 3a f2 54 59 50 45 3a f2 |Q$(F%,6)|:.TYPE:.|
|000047b0| 43 4f 4d 50 41 52 45 3a | e7 43 4f 4d 25 3d 31 8c |COMPARE:|.COM%=1.|
|000047c0| 53 41 25 3d 46 25 3a 46 | 25 3d 53 50 25 3a f2 46 |SA%=F%:F|%=SP%:.F|
|000047d0| 42 3a f2 53 42 3a 46 25 | 3d 53 41 25 3a e5 8d 44 |B:.SB:F%|=SA%:..D|
|000047e0| 4a 50 0d 10 90 19 e7 51 | 24 28 46 25 2c 34 29 3d |JP.....Q|$(F%,4)=|
|000047f0| 22 45 4e 44 22 8c e5 8d | 74 42 4f 0d 10 9a 29 e7 |"END"...|tBO...).|
|00004800| 51 24 28 46 25 2c 34 29 | 3d 22 41 4e 44 22 8c f2 |Q$(F%,4)|="AND"..|
|00004810| 46 42 3a f2 53 42 3a 46 | 25 3d 46 25 2b 31 3a e5 |FB:.SB:F|%=F%+1:.|
|00004820| 8d 44 46 4f 0d 10 a4 11 | 46 25 3d 46 25 2b 31 3a |.DFO....|F%=F%+1:|
|00004830| e5 8d 74 46 50 0d 10 ae | 0d dd f2 43 4f 4d 50 41 |..tFP...|...COMPA|
|00004840| 52 45 0d 10 b8 0a 43 4f | 4d 25 3d 30 0d 10 c2 12 |RE....CO|M%=0....|
|00004850| e7 54 50 24 3d 22 32 22 | 8c e5 8d 54 5c 51 0d 10 |.TP$="2"|...T\Q..|
|00004860| cc 15 e7 c0 4e 24 2c 31 | 29 3d 22 2a 22 8c e5 8d |....N$,1|)="*"...|
|00004870| 74 40 51 0d 10 d6 20 e7 | 4f 50 24 3d 22 31 22 8c |t@Q... .|OP$="1".|
|00004880| e7 4e 24 3d 43 24 8c 43 | 4f 4d 25 3d 31 3a e5 8d |.N$=C$.C|OM%=1:..|
|00004890| 74 68 51 0d 10 e0 21 e7 | 4f 50 24 3d 22 32 22 8c |thQ...!.|OP$="2".|
|000048a0| e7 4e 24 3c 3e 43 24 8c | 43 4f 4d 25 3d 31 3a e5 |.N$<>C$.|COM%=1:.|
|000048b0| 8d 74 68 51 0d 10 ea 20 | e7 4f 50 24 3d 22 33 22 |.thQ... |.OP$="3"|
|000048c0| 8c e7 4e 24 3e 43 24 8c | 43 4f 4d 25 3d 31 3a e5 |..N$>C$.|COM%=1:.|
|000048d0| 8d 74 68 51 0d 10 f4 20 | e7 4f 50 24 3d 22 34 22 |.thQ... |.OP$="4"|
|000048e0| 8c e7 4e 24 3c 43 24 8c | 43 4f 4d 25 3d 31 3a e5 |..N$<C$.|COM%=1:.|
|000048f0| 8d 74 68 51 0d 10 fe 21 | e7 4f 50 24 3d 22 35 22 |.thQ...!|.OP$="5"|
|00004900| 8c e7 4e 24 3e 3d 43 24 | 8c 43 4f 4d 25 3d 31 3a |..N$>=C$|.COM%=1:|
|00004910| e5 8d 74 68 51 0d 11 08 | 21 e7 4f 50 24 3d 22 36 |..thQ...|!.OP$="6|
|00004920| 22 8c e7 4e 24 3c 3d 43 | 24 8c 43 4f 4d 25 3d 31 |"..N$<=C|$.COM%=1|
|00004930| 3a e5 8d 74 68 51 0d 11 | 12 09 e5 8d 74 68 51 0d |:..thQ..|....thQ.|
|00004940| 11 1c 19 e7 54 59 24 3d | 22 35 22 8c 58 24 3d 43 |....TY$=|"5".X$=C|
|00004950| 24 3a f2 43 4f 4e 44 49 | 0d 11 26 19 e7 54 59 24 |$:.CONDI|..&..TY$|
|00004960| 3d 22 36 22 8c 58 24 3d | 43 24 3a f2 43 4f 4e 54 |="6".X$=|C$:.CONT|
|00004970| 49 0d 11 30 20 e7 4f 50 | 24 3d 22 31 22 8c e7 4e |I..0 .OP|$="1"..N|
|00004980| 3d 4e 4f 20 8c 43 4f 4d | 25 3d 31 3a e5 8d 74 68 |=NO .COM|%=1:..th|
|00004990| 51 0d 11 3a 21 e7 4f 50 | 24 3d 22 32 22 8c e7 4e |Q..:!.OP|$="2"..N|
|000049a0| 3c 3e 4e 4f 20 8c 43 4f | 4d 25 3d 31 3a e5 8d 74 |<>NO .CO|M%=1:..t|
|000049b0| 68 51 0d 11 44 20 e7 4f | 50 24 3d 22 33 22 8c e7 |hQ..D .O|P$="3"..|
|000049c0| 4e 3e 4e 4f 20 8c 43 4f | 4d 25 3d 31 3a e5 8d 74 |N>NO .CO|M%=1:..t|
|000049d0| 68 51 0d 11 4e 20 e7 4f | 50 24 3d 22 34 22 8c e7 |hQ..N .O|P$="4"..|
|000049e0| 4e 3c 4e 4f 20 8c 43 4f | 4d 25 3d 31 3a e5 8d 74 |N<NO .CO|M%=1:..t|
|000049f0| 68 51 0d 11 58 21 e7 4f | 50 24 3d 22 35 22 8c e7 |hQ..X!.O|P$="5"..|
|00004a00| 4e 3e 3d 4e 4f 20 8c 43 | 4f 4d 25 3d 31 3a e5 8d |N>=NO .C|OM%=1:..|
|00004a10| 74 68 51 0d 11 62 2c e7 | 4f 50 24 3d 22 37 22 8c |thQ..b,.|OP$="7".|
|00004a20| e7 4e 4f 20 3e 56 4c 31 | 20 80 4e 4f 20 3c 56 4c |.NO >VL1| .NO <VL|
|00004a30| 32 20 8c 43 4f 4d 25 3d | 31 3a e5 8d 74 68 51 0d |2 .COM%=|1:..thQ.|
|00004a40| 11 6c 21 e7 4f 50 24 3d | 22 36 22 8c e7 4e 3c 3d |.l!.OP$=|"6"..N<=|
|00004a50| 4e 4f 20 8c 43 4f 4d 25 | 3d 31 3a e5 8d 74 68 51 |NO .COM%|=1:..thQ|
|00004a60| 0d 11 76 09 e5 8d 74 68 | 51 0d 11 80 12 e7 a9 28 |..v...th|Q......(|
|00004a70| 4e 24 29 3d 31 8c e5 8d | 64 56 50 0d 11 8a 32 e7 |N$)=1...|dVP...2.|
|00004a80| 4f 50 24 3d 22 31 22 8c | 43 4f 4d 25 3d a7 43 24 |OP$="1".|COM%=.C$|
|00004a90| 2c c1 4e 24 2c 32 2c a9 | 28 4e 24 29 29 29 3a e7 |,.N$,2,.|(N$))):.|
|00004aa0| 43 4f 4d 25 3e 31 8c 43 | 4f 4d 25 3d 31 0d 11 94 |COM%>1.C|OM%=1...|
|00004ab0| 39 e7 bb 28 4f 50 24 29 | 3e 31 8c 43 4f 4d 25 3d |9..(OP$)|>1.COM%=|
|00004ac0| a7 43 24 2c c1 4e 24 2c | 32 2c a9 28 4e 24 29 29 |.C$,.N$,|2,.(N$))|
|00004ad0| 29 3a e7 43 4f 4d 25 3d | 30 8c 43 4f 4d 25 3d 31 |):.COM%=|0.COM%=1|
|00004ae0| 3a e5 8d 74 68 51 0d 11 | 9e 1c e7 bb 28 4f 50 24 |:..thQ..|....(OP$|
|00004af0| 29 3e 31 8c e7 43 4f 4d | 25 3e 30 8c 43 4f 4d 25 |)>1..COM|%>0.COM%|
|00004b00| 3d 30 0d 11 a8 05 e1 0d | 11 b2 0b dd f2 43 4f 4e |=0......|.....CON|
|00004b10| 44 49 0d 11 bc 37 58 58 | 24 3d 22 22 3a 58 58 24 |DI...7XX|$="":XX$|
|00004b20| 3d 58 58 24 2b c1 58 24 | 2c 37 2c 32 29 2b c1 58 |=XX$+.X$|,7,2)+.X|
|00004b30| 24 2c 34 2c 32 29 2b c1 | 58 24 2c 31 2c 32 29 3a |$,4,2)+.|X$,1,2):|
|00004b40| 4e 4f 3d bb 28 58 58 24 | 29 0d 11 c6 05 e1 0d 11 |NO=.(XX$|).......|
|00004b50| d0 0b dd f2 43 4f 4e 54 | 49 0d 11 da 2e 58 58 24 |....CONT|I....XX$|
|00004b60| 3d 22 22 3a 58 58 24 3d | 58 58 24 2b c1 58 24 2c |="":XX$=|XX$+.X$,|
|00004b70| 31 2c 32 29 2b c1 58 24 | 2c 34 2c 32 29 3a 4e 4f |1,2)+.X$|,4,2):NO|
|00004b80| 3d bb 28 58 58 24 29 0d | 11 e4 05 e1 0d 11 ee 1c |=.(XX$).|........|
|00004b90| dd f2 4f 55 54 50 55 54 | 3a 42 3d ad a4 4d 79 46 |..OUTPUT|:B=..MyF|
|00004ba0| 69 6c 65 28 46 4f 24 29 | 0d 11 f8 34 e7 4f 28 37 |ile(FO$)|...4.O(7|
|00004bb0| 29 3d 30 8c 41 28 33 35 | 29 3d 43 52 25 3a 54 45 |)=0.A(35|)=CR%:TE|
|00004bc0| 4d 50 25 3d 43 52 25 3a | f2 4f 55 54 50 55 54 31 |MP%=CR%:|.OUTPUT1|
|00004bd0| 3a f1 3a 43 52 25 3d 54 | 45 4d 50 25 0d 12 02 34 |:.:CR%=T|EMP%...4|
|00004be0| e7 4f 28 37 29 3d 31 8c | 41 28 33 35 29 3d 43 52 |.O(7)=1.|A(35)=CR|
|00004bf0| 25 3a 54 45 4d 50 25 3d | 43 52 25 3a f2 4f 55 54 |%:TEMP%=|CR%:.OUT|
|00004c00| 50 55 54 32 3a f1 3a 43 | 52 25 3d 54 45 4d 50 25 |PUT2:.:C|R%=TEMP%|
|00004c10| 0d 12 0c 09 d9 23 42 3a | e1 0d 12 16 1c ef 33 3a |.....#B:|......3:|
|00004c20| ef 32 36 3a d9 23 30 3a | e7 9f 3d 31 37 20 8c 20 |.26:.#0:|..=17 . |
|00004c30| f2 51 75 69 74 0d 12 20 | 05 20 0d 12 2a 0b 46 47 |.Quit.. |. ..*.FG|
|00004c40| 25 3d 31 38 30 0d 12 34 | 10 e7 67 6f 25 3d 30 8c |%=180..4|..go%=0.|
|00004c50| e5 8d 44 52 52 0d 12 3e | 4b f2 45 52 57 49 4e 3a |..DRR..>|K.ERWIN:|
|00004c60| fb 31 38 30 3a f1 8a 32 | 30 2c 31 32 29 3b 22 53 |.180:..2|0,12);"S|
|00004c70| 79 73 74 65 6d 20 52 65 | 70 6f 72 74 65 64 20 45 |ystem Re|ported E|
|00004c80| 72 72 6f 72 20 23 22 3b | 9f 3b 22 3a 22 3b 8a 32 |rror #";|.;":";.2|
|00004c90| 30 2c 31 34 29 3b f6 24 | 3a ef 37 3a fb 46 47 25 |0,14);.$|:.7:.FG%|
|00004ca0| 0d 12 48 19 ff 22 43 4c | 4f 53 45 22 3a ef 33 3a |..H.."CL|OSE":.3:|
|00004cb0| ef 32 36 3a e5 8d 64 48 | 45 0d 12 52 7b f2 45 52 |.26:..dH|E..R{.ER|
|00004cc0| 57 49 4e 3a fb 31 38 30 | 3a f1 8a 32 30 2c 31 32 |WIN:.180|:..20,12|
|00004cd0| 29 3b 22 43 61 6e 6e 6f | 74 20 72 65 61 64 20 74 |);"Canno|t read t|
|00004ce0| 68 65 20 66 69 6c 65 20 | 3a 22 3b 46 49 24 3b 8a |he file |:";FI$;.|
|00004cf0| 32 30 2c 31 34 29 3b 22 | 28 64 6f 65 73 20 6e 6f |20,14);"|(does no|
|00004d00| 74 20 65 78 69 73 74 2f | 6e 6f 74 20 61 20 44 61 |t exist/|not a Da|
|00004d10| 74 61 56 69 73 69 6f 6e | 20 66 69 6c 65 29 22 3a |taVision| file)":|
|00004d20| fb 46 47 25 3a ef 37 3a | f2 4d 4b 4c 49 4b 3a e5 |.FG%:.7:|.MKLIK:.|
|00004d30| 8d 54 7e 4d 0d 12 5c 09 | dd f2 54 59 35 0d 12 66 |.T~M..\.|..TY5..f|
|00004d40| 1b f1 8a 58 2c 59 29 3b | 22 2e 2e 2f 2e 2e 2f 2e |...X,Y);|"../../.|
|00004d50| 2e 22 3a 4e 24 3d 22 22 | 0d 12 70 19 58 33 3d 58 |.":N$=""|..p.X3=X|
|00004d60| 3a f2 44 41 54 3a e7 44 | 45 3d 31 8c e5 8d 44 66 |:.DAT:.D|E=1...Df|
|00004d70| 52 0d 12 7a 26 4e 24 3d | 4e 24 2b 44 41 54 24 3a |R..z&N$=|N$+DAT$:|
|00004d80| 58 33 3d 58 2b 33 3a f2 | 44 41 54 3a e7 44 45 3d |X3=X+3:.|DAT:.DE=|
|00004d90| 31 8c e5 8d 44 66 52 0d | 12 84 2e 4e 24 3d 4e 24 |1...DfR.|...N$=N$|
|00004da0| 2b 22 2f 22 2b 44 41 54 | 24 2b 22 2f 22 3a 58 33 |+"/"+DAT|$+"/":X3|
|00004db0| 3d 58 2b 36 3a f2 44 41 | 54 3a e7 44 45 3d 31 8c |=X+6:.DA|T:.DE=1.|
|00004dc0| e5 8d 44 66 52 0d 12 8e | 0e 4e 24 3d 4e 24 2b 44 |..DfR...|.N$=N$+D|
|00004dd0| 41 54 24 0d 12 98 15 49 | 4e 3d a5 3a e7 49 4e 3d |AT$....I|N=.:.IN=|
|00004de0| 31 33 8c e5 8d 74 6c 52 | 0d 12 a2 17 e7 49 4e 3d |13...tlR|.....IN=|
|00004df0| 31 32 37 8c e5 8d 44 66 | 52 8b e5 8d 74 58 52 0d |127...Df|R...tXR.|
|00004e00| 12 ac 05 e1 0d 12 b6 09 | dd f2 44 41 54 0d 12 c0 |........|..DAT...|
|00004e10| 16 44 45 3d 30 3a 44 41 | 54 24 3d 22 22 3a 58 34 |.DE=0:DA|T$="":X4|
|00004e20| 3d 58 33 0d 12 ca 1b 49 | 4e 3d a5 3a e7 49 4e 3d |=X3....I|N=.:.IN=|
|00004e30| 31 32 37 8c 44 45 3d 31 | 3a e5 8d 64 72 52 0d 12 |127.DE=1|:..drR..|
|00004e40| d4 23 e7 49 4e 3c 34 38 | 84 49 4e 3e 35 37 8c d4 |.#.IN<48|.IN>57..|
|00004e50| 31 2c 2d 31 35 2c 31 30 | 30 2c 32 3a e5 8d 64 4a |1,-15,10|0,2:..dJ|
|00004e60| 52 0d 12 de 3a f1 8a 58 | 33 2c 59 29 3b bd 28 49 |R...:..X|3,Y);.(I|
|00004e70| 4e 29 3a 44 41 54 24 3d | 44 41 54 24 2b bd 28 49 |N):DAT$=|DAT$+.(I|
|00004e80| 4e 29 3a 58 33 3d 58 33 | 2b 31 3a e7 58 33 3e 28 |N):X3=X3|+1:.X3>(|
|00004e90| 58 34 2b 31 29 8c e5 8d | 64 72 52 0d 12 e8 09 e5 |X4+1)...|drR.....|
|00004ea0| 8d 64 4a 52 0d 12 f2 05 | e1 0d 12 fc 09 dd f2 54 |.dJR....|.......T|
|00004eb0| 59 36 0d 13 06 18 f1 8a | 58 2c 59 29 3b 22 2e 2e |Y6......|X,Y);"..|
|00004ec0| 3a 2e 2e 22 3a 4e 24 3d | 22 22 0d 13 10 19 58 33 |:..":N$=|""....X3|
|00004ed0| 3d 58 3a f2 44 41 54 3a | e7 44 45 3d 31 8c e5 8d |=X:.DAT:|.DE=1...|
|00004ee0| 54 46 53 0d 13 1a 1e 4e | 24 3d 4e 24 2b 44 41 54 |TFS....N|$=N$+DAT|
|00004ef0| 24 2b 22 3a 22 3a 58 33 | 3d 58 2b 33 3a f2 44 41 |$+":":X3|=X+3:.DA|
|00004f00| 54 0d 13 24 0e 4e 24 3d | 4e 24 2b 44 41 54 24 0d |T..$.N$=|N$+DAT$.|
|00004f10| 13 2e 15 49 4e 3d a5 3a | e7 49 4e 3d 31 33 8c e5 |...IN=.:|.IN=13..|
|00004f20| 8d 44 42 53 0d 13 38 17 | e7 49 4e 3d 31 32 37 8c |.DBS..8.|.IN=127.|
|00004f30| e5 8d 54 46 53 8b e5 8d | 54 6e 53 0d 13 42 05 e1 |..TFS...|TnS..B..|
|00004f40| 0d 13 4c 11 dd f2 53 45 | 4c 3a 2a 46 58 31 35 2c |..L...SE|L:*FX15,|
|00004f50| 30 0d 13 56 6f fb 31 32 | 38 3a 46 47 25 3d 31 32 |0..Vo.12|8:FG%=12|
|00004f60| 38 3a 58 3d 35 30 3a 59 | 3d 32 3a 57 25 3d 32 31 |8:X=50:Y|=2:W%=21|
|00004f70| 3a 4c 25 3d 32 33 3a f2 | 4c 57 4e 3a fb 46 47 25 |:L%=23:.|LWN:.FG%|
|00004f80| 3a f1 8a 35 31 2c 33 29 | 3b 22 53 65 6c 65 63 74 |:..51,3)|;"Select|
|00004f90| 20 61 20 46 69 65 6c 64 | 3a 20 22 3b bd 28 31 33 | a Field|: ";.(13|
|00004fa0| 38 29 3b 22 20 22 3b bd | 28 31 33 39 29 3b 8a 35 |8);" ";.|(139);.5|
|00004fb0| 31 2c 34 29 3b c4 32 31 | 2c bd 28 32 34 31 29 29 |1,4);.21|,.(241))|
|00004fc0| 0d 13 60 36 53 53 46 25 | 3d 31 3a 53 46 25 3d 31 |..`6SSF%|=1:SF%=1|
|00004fd0| 3a 59 32 3d 36 3a 53 52 | 25 3d 53 46 25 3a ff 22 |:Y2=6:SR|%=SF%:."|
|00004fe0| 43 4c 4f 53 45 22 3a 41 | 3d ad a4 4d 79 46 69 6c |CLOSE":A|=..MyFil|
|00004ff0| 65 28 46 4f 24 29 0d 13 | 6a 21 46 52 25 3d 53 52 |e(FO$)..|j!FR%=SR|
|00005000| 25 2b 31 39 3a e7 46 52 | 25 3e 4e 4f 46 25 8c 46 |%+19:.FR|%>NOF%.F|
|00005010| 52 25 3d 4e 4f 46 25 0d | 13 74 7b 4c 3d 36 3a 4c |R%=NOF%.|.t{L=6:L|
|00005020| 4c 3d 31 3a e3 49 3d 53 | 52 25 b8 46 52 25 3a cf |L=1:.I=S|R%.FR%:.|
|00005030| 23 41 3d 28 49 2d 31 29 | 2a 36 31 2b 36 33 3a e8 |#A=(I-1)|*61+63:.|
|00005040| 23 41 2c 46 4c 24 3a f1 | 8a 35 32 2c 4c 29 3b 46 |#A,FL$:.|.52,L);F|
|00005050| 4c 24 3a 4d 45 24 28 4c | 4c 29 3d 46 4c 24 3a 4c |L$:ME$(L|L)=FL$:L|
|00005060| 3d 4c 2b 31 3a 4c 4c 3d | 4c 4c 2b 31 3a ed 49 3a |=L+1:LL=|LL+1:.I:|
|00005070| e7 20 4c 4c 3c 32 31 20 | 8c 20 e3 20 49 3d 4c 4c |. LL<21 |. . I=LL|
|00005080| 20 b8 32 30 3a 4d 45 24 | 28 49 29 3d 22 20 22 3a | .20:ME$|(I)=" ":|
|00005090| ed 49 0d 13 7e 41 c8 97 | 20 58 50 2c 59 50 2c 42 |.I..~A..| XP,YP,B|
|000050a0| 55 54 3a 58 50 3d a8 28 | 58 50 2f 31 36 29 3a 59 |UT:XP=.(|XP/16):Y|
|000050b0| 50 3d 33 31 2d a8 28 59 | 50 2f 33 32 29 3a e7 42 |P=31-.(Y|P/32):.B|
|000050c0| 55 54 3d 31 8c 46 47 25 | 3d 31 38 30 3a fb 46 47 |UT=1.FG%|=180:.FG|
|000050d0| 25 3a e1 0d 13 88 20 e7 | 58 50 3d 36 37 20 80 20 |%:.... .|XP=67 . |
|000050e0| 59 50 3d 33 20 80 20 42 | 55 54 3d 34 20 8c e5 8d |YP=3 . B|UT=4 ...|
|000050f0| 74 70 53 0d 13 92 20 e7 | 58 50 3d 36 39 20 80 20 |tpS... .|XP=69 . |
|00005100| 59 50 3d 33 20 80 20 42 | 55 54 3d 34 20 8c e5 8d |YP=3 . B|UT=4 ...|
|00005110| 64 44 53 0d 13 9c 40 e7 | 20 58 50 3e 37 31 20 84 |dDS...@.| XP>71 .|
|00005120| 20 58 50 3c 35 31 20 84 | 20 59 50 3e 32 35 20 84 | XP<51 .| YP>25 .|
|00005130| 20 59 50 3c 36 20 8c 53 | 53 46 25 3d 30 3a f2 43 | YP<6 .S|SF%=0:.C|
|00005140| 4c 45 41 46 3a 53 53 46 | 25 3d 53 46 25 3a e5 8d |LEAF:SSF|%=SF%:..|
|00005150| 44 7e 53 0d 13 a6 72 59 | 50 3d 59 50 2d 35 3a 53 |D~S...rY|P=YP-5:S|
|00005160| 46 25 3d 28 59 50 2b 53 | 52 25 29 2d 31 3a f2 43 |F%=(YP+S|R%)-1:.C|
|00005170| 4c 45 41 46 3a fb 31 33 | 31 3a f1 8a 35 32 2c 59 |LEAF:.13|1:..52,Y|
|00005180| 50 2b 35 29 3b 4d 45 24 | 28 59 50 29 3b 89 28 32 |P+5);ME$|(YP);.(2|
|00005190| 30 2d a9 28 4d 45 24 28 | 59 50 29 29 29 3a fb 46 |0-.(ME$(|YP))):.F|
|000051a0| 47 25 3a e7 42 55 54 3d | 34 20 80 20 53 46 25 3c |G%:.BUT=|4 . SF%<|
|000051b0| 28 4e 4f 46 25 2b 31 29 | 8c e5 8d 64 58 53 3a 8b |(NOF%+1)|...dXS:.|
|000051c0| e5 8d 44 7e 53 0d 13 b0 | 13 e7 46 52 25 3d 4e 4f |..D~S...|..FR%=NO|
|000051d0| 46 25 8c e5 8d 44 7e 53 | 0d 13 ba 6e 53 52 25 3d |F%...D~S|...nSR%=|
|000051e0| 53 52 25 2b 32 30 3a 58 | 3d 35 30 3a 59 3d 32 3a |SR%+20:X|=50:Y=2:|
|000051f0| 57 25 3d 32 31 3a 4c 25 | 3d 32 33 3a f2 4c 57 4e |W%=21:L%|=23:.LWN|
|00005200| 3a f1 8a 35 31 2c 33 29 | 3b 22 53 65 6c 65 63 74 |:..51,3)|;"Select|
|00005210| 20 61 20 46 69 65 6c 64 | 3a 20 22 3b bd 28 31 33 | a Field|: ";.(13|
|00005220| 38 29 3b 22 20 22 3b bd | 28 31 33 39 29 3b 8a 35 |8);" ";.|(139);.5|
|00005230| 31 2c 34 29 3b c4 32 31 | 2c bd 28 32 34 31 29 29 |1,4);.21|,.(241))|
|00005240| 3a e5 8d 44 6a 53 0d 13 | c4 10 e7 53 52 25 3d 31 |:..DjS..|...SR%=1|
|00005250| 8c e5 8d 44 7e 53 0d 13 | ce 6e 53 52 25 3d 53 52 |...D~S..|.nSR%=SR|
|00005260| 25 2d 32 30 3a 58 3d 35 | 30 3a 59 3d 32 3a 57 25 |%-20:X=5|0:Y=2:W%|
|00005270| 3d 32 31 3a 4c 25 3d 32 | 33 3a f2 4c 57 4e 3a f1 |=21:L%=2|3:.LWN:.|
|00005280| 8a 35 31 2c 33 29 3b 22 | 53 65 6c 65 63 74 20 61 |.51,3);"|Select a|
|00005290| 20 46 69 65 6c 64 3a 20 | 22 3b bd 28 31 33 38 29 | Field: |";.(138)|
|000052a0| 3b 22 20 22 3b bd 28 31 | 33 39 29 3b 8a 35 31 2c |;" ";.(1|39);.51,|
|000052b0| 34 29 3b c4 32 31 2c bd | 28 32 34 31 29 29 3a e5 |4);.21,.|(241)):.|
|000052c0| 8d 44 6a 53 0d 13 d8 80 | ef 37 3a cf 23 41 3d 28 |.DjS....|.7:.#A=(|
|000052d0| 53 46 25 2d 31 29 2a 36 | 31 2b 36 33 3a e8 23 41 |SF%-1)*6|1+63:.#A|
|000052e0| 2c 46 4c 24 3a cf 23 41 | 3d 28 53 46 25 2d 31 29 |,FL$:.#A|=(SF%-1)|
|000052f0| 2a 36 31 2b 31 30 31 3a | e8 23 41 2c 54 59 24 3a |*61+101:|.#A,TY$:|
|00005300| cf 23 41 3d 28 53 46 25 | 2d 31 29 2a 36 31 2b 31 |.#A=(SF%|-1)*61+1|
|00005310| 31 37 3a e8 23 41 2c 54 | 52 24 3a cf 23 41 3d 28 |17:.#A,T|R$:.#A=(|
|00005320| 53 46 25 2d 31 29 2a 36 | 31 2b 31 30 34 3a e8 23 |SF%-1)*6|1+104:.#|
|00005330| 41 2c 49 4e 24 3a fb 46 | 47 25 3a 46 47 25 3d 31 |A,IN$:.F|G%:FG%=1|
|00005340| 38 30 3a e1 0d 13 e2 42 | dd f2 43 4c 45 41 46 3a |80:....B|..CLEAF:|
|00005350| e7 53 53 46 25 3c 3e 53 | 46 25 8c e3 49 3d 31 b8 |.SSF%<>S|F%..I=1.|
|00005360| 32 30 3a f1 8a 35 32 2c | 49 2b 35 29 3b 4d 45 24 |20:..52,|I+5);ME$|
|00005370| 28 49 29 3b 89 28 32 30 | 2d a9 28 4d 45 24 28 49 |(I);.(20|-.(ME$(I|
|00005380| 29 29 29 3a ed 49 0d 13 | ec 0e 53 53 46 25 3d 53 |))):.I..|..SSF%=S|
|00005390| 46 25 3a e1 0d 13 f6 2c | dd f2 59 4e 3a 78 70 3d |F%:....,|..YN:xp=|
|000053a0| b1 3a 79 70 3d bc 3a f1 | 22 20 22 3b 3a fb 31 33 |.:yp=.:.|" ";:.13|
|000053b0| 31 3a f1 22 59 45 53 2f | 4e 4f 22 3a fb 46 47 25 |1:."YES/|NO":.FG%|
|000053c0| 0d 14 00 38 c8 97 20 58 | 50 2c 59 50 2c 42 55 54 |...8.. X|P,YP,BUT|
|000053d0| 3a 58 50 3d a8 28 58 50 | 2f 31 36 29 3a 59 50 3d |:XP=.(XP|/16):YP=|
|000053e0| 33 31 2d a8 28 59 50 2f | 33 32 29 3a e7 42 55 54 |31-.(YP/|32):.BUT|
|000053f0| 3d 30 8c e5 8d 54 40 54 | 0d 14 0a 12 e7 59 50 3c |=0...T@T|.....YP<|
|00005400| 3e 79 70 20 8c e5 8d 54 | 40 54 0d 14 14 2b e7 58 |>yp ...T|@T...+.X|
|00005410| 50 3d 78 70 2b 31 20 84 | 20 58 50 3d 78 70 2b 32 |P=xp+1 .| XP=xp+2|
|00005420| 20 84 20 58 50 3d 78 70 | 2b 33 8c 59 4e 3d 31 3a | . XP=xp|+3.YN=1:|
|00005430| e5 8d 54 72 54 0d 14 1e | 22 e7 58 50 3d 78 70 2b |..TrT...|".XP=xp+|
|00005440| 35 20 84 20 58 50 3d 78 | 70 2b 36 20 8c 59 4e 3d |5 . XP=x|p+6 .YN=|
|00005450| 30 3a e5 8d 54 72 54 0d | 14 28 09 e5 8d 54 40 54 |0:..TrT.|.(...T@T|
|00005460| 0d 14 32 1b f1 8a 78 70 | 2c 79 70 29 3b 22 20 59 |..2...xp|,yp);" Y|
|00005470| 45 53 2f 4e 4f 22 3a ef | 37 3a e1 0d 14 3c 0a dd |ES/NO":.|7:...<..|
|00005480| f2 53 45 4c 32 0d 14 46 | 72 fb 31 32 38 3a 46 47 |.SEL2..F|r.128:FG|
|00005490| 25 3d 31 32 38 3a 58 3d | 35 30 3a 59 3d 31 35 3a |%=128:X=|50:Y=15:|
|000054a0| 57 25 3d 32 31 3a 4c 25 | 3d 31 33 3a f2 4c 57 4e |W%=21:L%|=13:.LWN|
|000054b0| 3a fb 46 47 25 3a f1 8a | 35 31 2c 31 36 29 3b 22 |:.FG%:..|51,16);"|
|000054c0| 53 65 6c 65 63 74 20 61 | 20 46 69 65 6c 64 3a 20 |Select a| Field: |
|000054d0| 22 3b bd 28 31 33 38 29 | 3b 22 20 22 3b bd 28 31 |";.(138)|;" ";.(1|
|000054e0| 33 39 29 3b 8a 35 31 2c | 31 37 29 3b c4 32 31 2c |39);.51,|17);.21,|
|000054f0| bd 28 32 34 31 29 29 0d | 14 50 37 53 53 46 25 3d |.(241)).|.P7SSF%=|
|00005500| 31 3a 53 46 25 3d 31 3a | 59 32 3d 31 39 3a 53 52 |1:SF%=1:|Y2=19:SR|
|00005510| 25 3d 53 46 25 3a ff 22 | 43 4c 4f 53 45 22 3a 41 |%=SF%:."|CLOSE":A|
|00005520| 3d ad a4 4d 79 46 69 6c | 65 28 46 4f 24 29 0d 14 |=..MyFil|e(FO$)..|
|00005530| 5a 20 46 52 25 3d 53 52 | 25 2b 39 3a e7 46 52 25 |Z FR%=SR|%+9:.FR%|
|00005540| 3e 4e 4f 46 25 8c 46 52 | 25 3d 4e 4f 46 25 0d 14 |>NOF%.FR|%=NOF%..|
|00005550| 64 7c 4c 3d 31 39 3a 4c | 4c 3d 31 3a e3 49 3d 53 |d|L=19:L|L=1:.I=S|
|00005560| 52 25 b8 46 52 25 3a cf | 23 41 3d 28 49 2d 31 29 |R%.FR%:.|#A=(I-1)|
|00005570| 2a 36 31 2b 36 33 3a e8 | 23 41 2c 46 4c 24 3a f1 |*61+63:.|#A,FL$:.|
|00005580| 8a 35 32 2c 4c 29 3b 46 | 4c 24 3a 4d 45 24 28 4c |.52,L);F|L$:ME$(L|
|00005590| 4c 29 3d 46 4c 24 3a 4c | 3d 4c 2b 31 3a 4c 4c 3d |L)=FL$:L|=L+1:LL=|
|000055a0| 4c 4c 2b 31 3a ed 49 3a | e7 20 4c 4c 3c 31 31 20 |LL+1:.I:|. LL<11 |
|000055b0| 8c 20 e3 20 49 3d 4c 4c | 20 b8 31 30 3a 4d 45 24 |. . I=LL| .10:ME$|
|000055c0| 28 49 29 3d 22 20 22 3a | ed 49 0d 14 6e 2b c8 97 |(I)=" ":|.I..n+..|
|000055d0| 20 58 50 2c 59 50 2c 42 | 55 54 3a 58 50 3d a8 28 | XP,YP,B|UT:XP=.(|
|000055e0| 58 50 2f 31 36 29 3a 59 | 50 3d 33 31 2d a8 28 59 |XP/16):Y|P=31-.(Y|
|000055f0| 50 2f 33 32 29 0d 14 78 | 10 e7 42 55 54 3d 32 8c |P/32)..x|..BUT=2.|
|00005600| e5 8d 44 5e 4b 0d 14 82 | 10 e7 42 55 54 3d 31 8c |..D^K...|..BUT=1.|
|00005610| e5 8d 44 68 4b 0d 14 8c | 21 e7 58 50 3d 36 37 20 |..DhK...|!.XP=67 |
|00005620| 80 20 59 50 3d 31 36 20 | 80 20 42 55 54 3d 34 20 |. YP=16 |. BUT=4 |
|00005630| 8c e5 8d 74 74 54 0d 14 | 96 21 e7 58 50 3d 36 39 |...ttT..|.!.XP=69|
|00005640| 20 80 20 59 50 3d 31 36 | 20 80 20 42 55 54 3d 34 | . YP=16| . BUT=4|
|00005650| 20 8c e5 8d 64 48 54 0d | 14 a0 42 e7 20 58 50 3e | ...dHT.|..B. XP>|
|00005660| 37 31 20 84 20 58 50 3c | 35 31 20 84 20 59 50 3e |71 . XP<|51 . YP>|
|00005670| 32 38 20 84 20 59 50 3c | 31 39 20 8c 53 53 46 25 |28 . YP<|19 .SSF%|
|00005680| 3d 30 3a f2 43 4c 45 41 | 46 32 3a 53 53 46 25 3d |=0:.CLEA|F2:SSF%=|
|00005690| 53 46 25 3a e5 8d 44 6e | 54 0d 14 aa 75 59 50 3d |SF%:..Dn|T...uYP=|
|000056a0| 59 50 2d 31 38 3a 53 46 | 25 3d 28 59 50 2b 53 52 |YP-18:SF|%=(YP+SR|
|000056b0| 25 29 2d 31 3a f2 43 4c | 45 41 46 32 3a fb 31 33 |%)-1:.CL|EAF2:.13|
|000056c0| 31 3a f1 8a 35 32 2c 59 | 50 2b 31 38 29 3b 4d 45 |1:..52,Y|P+18);ME|
|000056d0| 24 28 59 50 29 3b 89 28 | 32 30 2d a9 28 4d 45 24 |$(YP);.(|20-.(ME$|
|000056e0| 28 59 50 29 29 29 3a fb | 46 47 25 3a e7 42 55 54 |(YP))):.|FG%:.BUT|
|000056f0| 3d 34 20 80 20 53 46 25 | 3c 28 4e 4f 46 25 2b 31 |=4 . SF%|<(NOF%+1|
|00005700| 29 8c e5 8d 64 5c 54 3a | 8b e5 8d 44 6e 54 0d 14 |)...d\T:|...DnT..|
|00005710| b4 13 e7 46 52 25 3d 4e | 4f 46 25 8c e5 8d 44 6e |...FR%=N|OF%...Dn|
|00005720| 54 0d 14 be 71 53 52 25 | 3d 53 52 25 2b 31 30 3a |T...qSR%|=SR%+10:|
|00005730| 58 3d 35 30 3a 59 3d 31 | 35 3a 57 25 3d 32 31 3a |X=50:Y=1|5:W%=21:|
|00005740| 4c 25 3d 31 33 3a f2 4c | 57 4e 3a f1 8a 35 31 2c |L%=13:.L|WN:..51,|
|00005750| 31 36 29 3b 22 53 65 6c | 65 63 74 20 61 20 46 69 |16);"Sel|ect a Fi|
|00005760| 65 6c 64 3a 20 22 3b bd | 28 31 33 38 29 3b 22 20 |eld: ";.|(138);" |
|00005770| 22 3b bd 28 31 33 39 29 | 3b 8a 35 31 2c 31 37 29 |";.(139)|;.51,17)|
|00005780| 3b c4 32 31 2c bd 28 32 | 34 31 29 29 3a e5 8d 44 |;.21,.(2|41)):..D|
|00005790| 5a 54 0d 14 c8 10 e7 53 | 52 25 3d 31 8c e5 8d 44 |ZT.....S|R%=1...D|
|000057a0| 6e 54 0d 14 d2 71 53 52 | 25 3d 53 52 25 2d 31 30 |nT...qSR|%=SR%-10|
|000057b0| 3a 58 3d 35 30 3a 59 3d | 31 35 3a 57 25 3d 32 31 |:X=50:Y=|15:W%=21|
|000057c0| 3a 4c 25 3d 31 33 3a f2 | 4c 57 4e 3a f1 8a 35 31 |:L%=13:.|LWN:..51|
|000057d0| 2c 31 36 29 3b 22 53 65 | 6c 65 63 74 20 61 20 46 |,16);"Se|lect a F|
|000057e0| 69 65 6c 64 3a 20 22 3b | bd 28 31 33 38 29 3b 22 |ield: ";|.(138);"|
|000057f0| 20 22 3b bd 28 31 33 39 | 29 3b 8a 35 31 2c 31 37 | ";.(139|);.51,17|
|00005800| 29 3b c4 32 31 2c bd 28 | 32 34 31 29 29 3a e5 8d |);.21,.(|241)):..|
|00005810| 44 5a 54 0d 14 dc 7a ef | 37 3a cf 23 41 3d 28 53 |DZT...z.|7:.#A=(S|
|00005820| 46 25 2d 31 29 2a 36 31 | 2b 36 33 3a e8 23 41 2c |F%-1)*61|+63:.#A,|
|00005830| 46 4c 24 3a cf 23 41 3d | 28 53 46 25 2d 31 29 2a |FL$:.#A=|(SF%-1)*|
|00005840| 36 31 2b 31 30 31 3a e8 | 23 41 2c 54 59 24 3a cf |61+101:.|#A,TY$:.|
|00005850| 23 41 3d 28 53 46 25 2d | 31 29 2a 36 31 2b 31 31 |#A=(SF%-|1)*61+11|
|00005860| 37 3a e8 23 41 2c 54 52 | 24 3a fb 46 47 25 3a 46 |7:.#A,TR|$:.FG%:F|
|00005870| 47 25 3d 31 38 30 3a f5 | 3a c8 97 20 55 2c 55 2c |G%=180:.|:.. U,U,|
|00005880| 42 55 54 3a fd 20 42 55 | 54 3d 30 3a e1 0d 14 e6 |BUT:. BU|T=0:....|
|00005890| 44 dd f2 43 4c 45 41 46 | 32 3a e7 53 53 46 25 3c |D..CLEAF|2:.SSF%<|
|000058a0| 3e 53 46 25 8c e3 49 3d | 31 b8 31 30 3a f1 8a 35 |>SF%..I=|1.10:..5|
|000058b0| 32 2c 49 2b 31 38 29 3b | 4d 45 24 28 49 29 3b 89 |2,I+18);|ME$(I);.|
|000058c0| 28 32 30 2d a9 28 4d 45 | 24 28 49 29 29 29 3a ed |(20-.(ME|$(I))):.|
|000058d0| 49 0d 14 f0 0e 53 53 46 | 25 3d 53 46 25 3a e1 0d |I....SSF|%=SF%:..|
|000058e0| 14 fa 13 dd a4 4d 79 46 | 69 6c 65 28 66 69 6c 65 |.....MyF|ile(file|
|000058f0| 24 29 0d 15 04 0a 3d 66 | 69 6c 65 24 0d 15 0e 0b |$)....=f|ile$....|
|00005900| dd 20 f2 51 75 69 74 0d | 15 18 1e c8 99 20 22 57 |. .Quit.|..... "W|
|00005910| 69 6d 70 5f 43 6f 6d 6d | 61 6e 64 57 69 6e 64 6f |imp_Comm|andWindo|
|00005920| 77 22 2c 2d 31 0d 15 22 | 06 c8 98 0d 15 2c 05 e1 |w",-1.."|.....,..|
|00005930| 0d 9c 40 0d dd f2 44 69 | 72 28 64 24 29 0d 9c 4a |..@...Di|r(d$)..J|
|00005940| 29 e7 20 64 24 20 3c 3e | 20 22 22 20 8c 20 ff 20 |). d$ <>| "" . . |
|00005950| 22 44 69 72 20 22 2b a4 | 4d 79 46 69 6c 65 28 c1 |"Dir "+.|MyFile(.|
|00005960| 64 24 2c 32 29 29 0d 9c | 54 05 e1 0d ff          |d$,2))..|T....   |
+--------+-------------------------+-------------------------+--------+--------+