/ APDL Public Domain 1 / APDL_PD1A.iso / database / texbase / !TEXBASE / SEARCH

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 3e 53 45 | 41 52 43 48 0d 00 14 11 |.....>SE|ARCH....|
|00000010| f4 20 31 36 30 34 39 31 | 2c 30 38 39 33 0d 00 1e |. 160491|,0893...|
|00000020| 07 d9 23 30 0d 00 28 0b | ee 85 e5 40 40 40 40 0d |..#0..(.|...@@@@.|
|00000030| 00 32 36 de 6b 24 28 37 | 29 3a 4b 25 3d 30 3a 4c |.26.k$(7|):K%=0:L|
|00000040| 25 3d 2d 31 3a 6c 24 3d | 22 4f 52 22 3a 4f 25 3d |%=-1:l$=|"OR":O%=|
|00000050| 2d 33 3a 70 72 24 3d 22 | 50 52 45 53 53 20 52 45 |-3:pr$="|PRESS RE|
|00000060| 54 55 52 4e 22 0d 00 3c | 15 de 41 24 28 35 30 29 |TURN"..<|..A$(50)|
|00000070| 3a f2 62 6c 6b 3a 5a 25 | 3d 30 0d 00 46 0a 2a 46 |:.blk:Z%|=0..F.*F|
|00000080| 58 34 2c 31 0d 00 50 0c | 2a 46 58 32 32 39 2c 31 |X4,1..P.|*FX229,1|
|00000090| 0d 00 5a ac ef 32 33 2c | 32 34 30 2c 38 2c 31 36 |..Z..23,|240,8,16|
|000000a0| 2c 33 32 2c 36 35 2c 31 | 33 30 2c 34 2c 38 2c 31 |,32,65,1|30,4,8,1|
|000000b0| 36 2c 32 33 2c 32 34 31 | 2c 30 2c 30 2c 30 2c 30 |6,23,241|,0,0,0,0|
|000000c0| 2c 30 2c 30 2c 32 35 35 | 2c 32 35 35 2c 32 33 2c |,0,0,255|,255,23,|
|000000d0| 32 34 32 2c 30 2c 30 2c | 30 2c 30 2c 36 35 2c 33 |242,0,0,|0,0,65,3|
|000000e0| 34 2c 32 30 2c 38 2c 32 | 33 2c 32 34 33 2c 38 2c |4,20,8,2|3,243,8,|
|000000f0| 32 30 2c 33 34 2c 36 35 | 2c 30 2c 30 2c 30 2c 30 |20,34,65|,0,0,0,0|
|00000100| 2c 32 33 2c 32 34 34 2c | 36 30 2c 36 30 2c 36 30 |,23,244,|60,60,60|
|00000110| 2c 36 30 2c 36 30 2c 36 | 30 2c 36 30 2c 36 30 2c |,60,60,6|0,60,60,|
|00000120| 32 33 2c 32 34 35 2c 30 | 2c 30 2c 32 35 35 2c 32 |23,245,0|,0,255,2|
|00000130| 35 35 2c 32 35 35 2c 30 | 2c 30 2c 30 0d 00 64 06 |55,255,0|,0,0..d.|
|00000140| eb 33 0d 00 6e 12 f5 3a | f2 6d 61 69 6e 3a fd 4d |.3..n..:|.main:.M|
|00000150| 25 3d 35 33 0d 00 78 05 | e0 0d 00 82 04 0d 00 8c |%=53..x.|........|
|00000160| 10 dd f2 6d 61 69 6e 3a | ef 32 32 2c 37 0d 00 96 |...main:|.22,7...|
|00000170| 72 f1 8a 31 35 2c 33 29 | 22 4d 20 45 20 4e 20 55 |r..15,3)|"M E N U|
|00000180| 22 27 27 22 31 3a 45 4e | 54 45 52 20 4b 45 59 20 |"''"1:EN|TER KEY |
|00000190| 57 4f 52 44 53 22 27 22 | 32 3a 4c 4f 47 49 43 20 |WORDS"'"|2:LOGIC |
|000001a0| 3d 20 22 6c 24 22 20 28 | 70 72 65 73 73 20 74 6f |= "l$" (|press to|
|000001b0| 20 63 68 61 6e 67 65 29 | 22 27 22 33 3a 53 45 41 | change)|"'"3:SEA|
|000001c0| 52 43 48 22 27 22 34 3a | 53 54 41 52 54 20 41 54 |RCH"'"4:|START AT|
|000001d0| 20 50 41 47 45 22 27 22 | 35 3a 45 58 49 54 22 0d | PAGE"'"|5:EXIT".|
|000001e0| 00 a0 19 f5 3a 4d 25 3d | a5 3a fd 28 4d 25 3e 34 |....:M%=|.:.(M%>4|
|000001f0| 38 80 4d 25 3c 35 34 29 | 0d 00 aa 11 e7 20 4d 25 |8.M%<54)|..... M%|
|00000200| 3d 34 39 20 f2 6b 65 79 | 77 0d 00 b4 13 e7 20 4d |=49 .key|w..... M|
|00000210| 25 3d 35 30 20 6c 24 3d | a4 6c 6f 67 0d 00 be 23 |%=50 l$=|.log...#|
|00000220| e7 20 4d 25 3d 35 31 20 | ef 32 32 2c 33 3a f2 69 |. M%=51 |.22,3:.i|
|00000230| 6e 64 65 78 3a f2 73 65 | 72 28 26 32 30 30 29 0d |ndex:.se|r(&200).|
|00000240| 00 c8 2c e7 20 4d 25 3d | 35 32 20 f2 67 6f 74 6f |..,. M%=|52 .goto|
|00000250| 3a e7 66 69 6e 64 70 25 | 3e 30 20 8c 20 ef 32 32 |:.findp%|>0 . .22|
|00000260| 2c 33 3a f2 73 65 72 28 | 50 25 29 0d 00 d2 10 e7 |,3:.ser(|P%).....|
|00000270| 20 4d 25 3d 35 33 20 f2 | 65 6e 64 0d 00 dc 05 e1 | M%=53 .|end.....|
|00000280| 0d 00 e6 04 0d 00 f0 0a | dd f2 6b 65 79 77 0d 00 |........|..keyw..|
|00000290| fa 05 db 0d 01 04 12 e7 | 4b 25 3d 30 20 f2 65 6e |........|K%=0 .en|
|000002a0| 74 6b 77 3a e1 0d 01 0e | 22 f1 27 22 59 6f 75 72 |tkw:....|".'"Your|
|000002b0| 20 63 75 72 72 65 6e 74 | 20 6b 65 79 77 6f 72 64 | current| keyword|
|000002c0| 73 20 61 72 65 3b 22 0d | 01 18 05 f1 0d 01 22 1d |s are;".|......".|
|000002d0| e3 4e 25 3d 31 b8 4b 25 | 3a f1 4e 25 3b 22 20 22 |.N%=1.K%|:.N%;" "|
|000002e0| 3b 6b 24 28 4e 25 29 3a | ed 0d 01 2c 05 f1 0d 01 |;k$(N%):|...,....|
|000002f0| 36 30 f1 22 28 52 29 65 | 64 6f 2c 20 28 44 29 65 |60."(R)e|do, (D)e|
|00000300| 6c 65 74 65 2c 20 28 41 | 29 64 64 2c 22 27 22 28 |lete, (A|)dd,"'"(|
|00000310| 4d 29 6f 64 69 66 79 2c | 20 28 4f 29 4b 22 0d 01 |M)odify,| (O)K"..|
|00000320| 40 20 f5 3a 52 24 3d bd | 28 a5 80 39 35 29 3a fd |@ .:R$=.|(..95):.|
|00000330| a7 22 41 52 44 4d 4f 22 | 2c 52 24 29 3e 30 0d 01 |."ARDMO"|,R$)>0..|
|00000340| 4a 0d e7 52 24 3d 22 4f | 22 20 e1 0d 01 54 13 e7 |J..R$="O|" ...T..|
|00000350| 52 24 3d 22 52 22 f2 65 | 6e 74 6b 77 3a e1 0d 01 |R$="R".e|ntkw:...|
|00000360| 5e 2d e7 52 24 3d 22 41 | 22 20 80 20 4b 25 3c 36 |^-.R$="A|" . K%<6|
|00000370| 20 4b 25 3d 4b 25 2b 31 | 3a e8 22 45 6e 74 65 72 | K%=K%+1|:."Enter|
|00000380| 3a 20 22 6b 24 28 4b 25 | 29 3a e1 0d 01 68 21 e8 |: "k$(K%|):...h!.|
|00000390| 22 57 68 69 63 68 20 6f | 6e 65 3f 20 22 52 25 3a |"Which o|ne? "R%:|
|000003a0| e7 52 25 3e 4b 25 20 52 | 25 3d 4b 25 0d 01 72 25 |.R%>K% R|%=K%..r%|
|000003b0| e8 22 45 6e 74 65 72 20 | 28 6e 75 6c 6c 20 74 6f |."Enter |(null to|
|000003c0| 20 64 65 6c 65 74 65 29 | 3a 20 22 6b 24 28 52 25 | delete)|: "k$(R%|
|000003d0| 29 0d 01 7c 35 e7 6b 24 | 28 52 25 29 3d 22 22 8c |)..|5.k$|(R%)="".|
|000003e0| 20 e3 4e 25 3d 52 25 20 | b8 20 4b 25 3a 6b 24 28 | .N%=R% |. K%:k$(|
|000003f0| 4e 25 29 3d 6b 24 28 4e | 25 2b 31 29 3a ed 3a 4b |N%)=k$(N|%+1):.:K|
|00000400| 25 3d 4b 25 2d 31 0d 01 | 86 09 f2 6b 65 79 77 0d |%=K%-1..|...keyw.|
|00000410| 01 90 05 e1 0d 01 9a 04 | 0d 01 a4 0b dd f2 65 6e |........|......en|
|00000420| 74 6b 77 0d 01 ae 23 f1 | 27 22 48 6f 77 20 6d 61 |tkw...#.|'"How ma|
|00000430| 6e 79 20 6b 65 79 20 77 | 6f 72 64 73 3f 20 28 30 |ny key w|ords? (0|
|00000440| 20 2d 20 36 29 22 0d 01 | b8 1c f5 3a 6b 24 3d be | - 6)"..|...:k$=.|
|00000450| 3a fd a7 22 30 31 32 33 | 34 35 36 22 2c 6b 24 29 |:.."0123|456",k$)|
|00000460| 3e 30 0d 01 c2 12 4b 25 | 3d bb 6b 24 3a e7 4b 25 |>0....K%|=.k$:.K%|
|00000470| 3d 30 3a e1 0d 01 cc 10 | f1 3a e3 4e 25 3d 31 20 |=0:.....|.:.N%=1 |
|00000480| b8 20 4b 25 0d 01 d6 0d | 2a 46 58 32 30 32 2c 33 |. K%....|*FX202,3|
|00000490| 32 0d 01 e0 1f f1 22 45 | 6e 74 65 72 20 6e 6f 20 |2....."E|nter no |
|000004a0| 22 3b 4e 25 3b 3a e8 22 | 20 22 6b 24 28 4e 25 29 |";N%;:."| "k$(N%)|
|000004b0| 0d 01 ea 05 ed 0d 01 f4 | 05 e1 0d 01 fe 04 0d 02 |........|........|
|000004c0| 08 09 dd a4 6c 6f 67 0d | 02 12 0c 4c 25 3d 4c 25 |....log.|...L%=L%|
|000004d0| 2a 2d 31 0d 02 1c 12 e7 | 4c 25 20 3d 2d 31 20 8c |*-1.....|L% =-1 .|
|000004e0| 3d 22 4f 52 22 0d 02 26 | 0a 3d 22 41 4e 44 22 0d |="OR"..&|.="AND".|
|000004f0| 02 30 04 0d 02 3a 0a dd | f2 67 6f 74 6f 0d 02 44 |.0...:..|.goto..D|
|00000500| 60 f1 27 22 49 66 20 79 | 6f 75 20 77 61 6e 74 20 |`.'"If y|ou want |
|00000510| 74 6f 20 73 74 61 72 74 | 20 74 68 65 22 27 22 73 |to start| the"'"s|
|00000520| 65 61 72 63 68 20 61 74 | 20 61 20 67 69 76 65 6e |earch at| a given|
|00000530| 20 70 61 67 65 2c 20 74 | 68 65 6e 22 27 22 65 6e | page, t|hen"'"en|
|00000540| 74 65 72 20 74 68 61 74 | 20 70 61 67 65 2c 20 28 |ter that| page, (|
|00000550| 65 6c 73 65 20 72 65 74 | 75 72 6e 29 22 0d 02 4e |else ret|urn)"..N|
|00000560| 0d e8 22 22 66 69 6e 64 | 70 25 0d 02 58 0f e7 66 |..""find|p%..X..f|
|00000570| 69 6e 64 70 25 3d 30 3a | e1 0d 02 62 18 5a 25 3d |indp%=0:|...b.Z%=|
|00000580| ad 22 3c 74 65 78 24 64 | 69 72 3e 2e 74 65 78 74 |."<tex$d|ir>.text|
|00000590| 22 0d 02 6c 0a cf 23 5a | 25 3d 30 0d 02 76 0b 47 |"..l..#Z|%=0..v.G|
|000005a0| 25 3d 9a 23 5a 25 0d 02 | 80 3e e7 66 69 6e 64 70 |%=.#Z%..|.>.findp|
|000005b0| 25 3e 47 25 20 f1 22 4e | 4f 20 53 55 43 48 20 50 |%>G% ."N|O SUCH P|
|000005c0| 41 47 45 21 22 3a d9 23 | 5a 25 3a 5a 25 3d 30 3a |AGE!":.#|Z%:Z%=0:|
|000005d0| 41 25 3d a6 28 32 30 30 | 29 3a 66 69 6e 64 70 25 |A%=.(200|):findp%|
|000005e0| 3d 30 3a e1 0d 02 8a 17 | e7 66 69 6e 64 70 25 3d |=0:.....|.findp%=|
|000005f0| 31 20 50 25 3d 26 32 30 | 30 3a e1 0d 02 94 13 cf |1 P%=&20|0:......|
|00000600| 23 5a 25 3d 66 69 6e 64 | 70 25 2a 32 2d 33 0d 02 |#Z%=find|p%*2-3..|
|00000610| 9e 0d 70 74 72 25 3d 9a | 23 5a 25 0d 02 a8 16 70 |..ptr%=.|#Z%....p|
|00000620| 74 72 25 3d 70 74 72 25 | 2a 32 35 36 2b 9a 23 5a |tr%=ptr%|*256+.#Z|
|00000630| 25 0d 02 b2 13 50 25 3d | 26 32 30 30 2b 37 37 2a |%....P%=|&200+77*|
|00000640| 70 74 72 25 0d 02 bc 05 | e1 0d 02 c6 04 0d 02 d0 |ptr%....|........|
|00000650| 0b dd f2 69 6e 64 65 78 | 0d 02 da 18 5a 25 3d ad |...index|....Z%=.|
|00000660| 22 3c 74 65 78 24 64 69 | 72 3e 2e 74 65 78 74 22 |"<tex$di|r>.text"|
|00000670| 0d 02 e4 0a cf 23 5a 25 | 3d 30 0d 02 ee 19 47 25 |.....#Z%|=0....G%|
|00000680| 3d 9a 23 5a 25 3a f4 20 | 6e 6f 20 6f 66 20 70 61 |=.#Z%:. |no of pa|
|00000690| 67 65 73 0d 02 f8 05 e1 | 0d 03 02 04 0d 03 0c 0d |ges.....|........|
|000006a0| dd f2 73 65 72 28 50 25 | 29 0d 03 16 46 e7 47 25 |..ser(P%|)...F.G%|
|000006b0| 3d 30 20 f1 8a 32 30 2c | 35 29 22 54 68 69 73 20 |=0 ..20,|5)"This |
|000006c0| 61 72 65 20 6e 6f 20 65 | 6e 74 72 69 65 73 20 74 |are no e|ntries t|
|000006d0| 6f 20 73 65 61 72 63 68 | 21 22 3a 61 3d a6 28 33 |o search|!":a=.(3|
|000006e0| 30 30 29 3a d9 23 5a 25 | 3a 5a 25 3d 30 3a e1 0d |00):.#Z%|:Z%=0:..|
|000006f0| 03 20 94 e7 4b 25 3d 30 | 20 f1 8a 32 30 2c 35 29 |. ..K%=0| ..20,5)|
|00000700| 22 59 4f 55 20 48 41 56 | 45 20 4e 4f 54 20 45 4e |"YOU HAV|E NOT EN|
|00000710| 54 45 52 45 44 20 4b 45 | 59 57 4f 52 44 53 22 8a |TERED KE|YWORDS".|
|00000720| 32 30 29 22 54 48 49 53 | 20 57 49 4c 4c 20 44 49 |20)"THIS| WILL DI|
|00000730| 53 50 4c 41 59 20 45 56 | 45 52 59 20 50 41 47 45 |SPLAY EV|ERY PAGE|
|00000740| 22 8a 32 30 29 22 50 52 | 45 53 53 20 43 20 54 4f |".20)"PR|ESS C TO|
|00000750| 20 43 4f 4e 54 49 4e 55 | 45 20 54 48 45 20 53 45 | CONTINU|E THE SE|
|00000760| 41 52 43 48 22 3a 41 25 | 3d a5 20 80 20 39 35 3a |ARCH":A%|=. . 95:|
|00000770| e7 41 25 3c 3e 36 37 3a | d9 23 5a 25 3a 5a 25 3d |.A%<>67:|.#Z%:Z%=|
|00000780| 30 3a e1 0d 03 2a 1a 42 | 25 3d 30 3a 46 25 3d 30 |0:...*.B|%=0:F%=0|
|00000790| 3a f4 20 66 6f 75 6e 64 | 20 66 6c 61 67 0d 03 34 |:. found| flag..4|
|000007a0| 05 f5 0d 03 3e 0b cf 23 | 5a 25 3d 50 25 0d 03 48 |....>..#|Z%=P%..H|
|000007b0| 0c e8 23 5a 25 2c 70 67 | 25 0d 03 52 0f e8 23 5a |..#Z%,pg|%..R..#Z|
|000007c0| 25 2c 6c 69 6e 65 73 25 | 0d 03 5c 0c e8 23 5a 25 |%,lines%|..\..#Z%|
|000007d0| 2c 6b 77 24 0d 03 66 0c | e8 23 5a 25 2c 74 69 24 |,kw$..f.|.#Z%,ti$|
|000007e0| 0d 03 70 09 f2 63 6f 6d | 70 0d 03 7a 16 fd 42 25 |..p..com|p..z..B%|
|000007f0| 3d 97 22 45 22 20 84 20 | 20 70 67 25 3d 47 25 0d |=."E" . | pg%=G%.|
|00000800| 03 84 0d d9 23 5a 25 3a | 5a 25 3d 30 0d 03 8e 27 |....#Z%:|Z%=0...'|
|00000810| e7 46 25 3d 30 f1 8a 32 | 30 2c 31 30 29 22 4e 4f |.F%=0..2|0,10)"NO|
|00000820| 54 20 46 4f 55 4e 44 21 | 22 3a 46 25 3d a6 28 32 |T FOUND!|":F%=.(2|
|00000830| 30 30 29 0d 03 98 05 e1 | 0d 03 a2 04 0d 03 ac 0a |00).....|........|
|00000840| dd f2 63 6f 6d 70 0d 03 | b6 10 ea 79 65 73 25 3a |..comp..|...yes%:|
|00000850| 79 65 73 25 3d 30 0d 03 | c0 11 e7 4b 25 3d 30 3a |yes%=0..|...K%=0:|
|00000860| f2 72 65 61 64 3a e1 0d | 03 ca 0c e3 4e 25 3d 31 |.read:..|....N%=1|
|00000870| b8 4b 25 0d 03 d4 1f e7 | a7 6b 77 24 2c 6b 24 28 |.K%.....|.kw$,k$(|
|00000880| 4e 25 29 29 3e 30 20 79 | 65 73 25 3d 79 65 73 25 |N%))>0 y|es%=yes%|
|00000890| 2b 31 0d 03 de 05 ed 0d | 03 e8 1c e7 20 4c 25 3d |+1......|.... L%=|
|000008a0| 31 20 80 20 79 65 73 25 | 3d 4b 25 20 f2 72 65 61 |1 . yes%|=K% .rea|
|000008b0| 64 3a e1 0d 03 f2 1c e7 | 20 4c 25 3d 2d 31 20 80 |d:......| L%=-1 .|
|000008c0| 20 79 65 73 25 3e 30 20 | f2 72 65 61 64 3a e1 0d | yes%>0 |.read:..|
|000008d0| 03 fc 09 f2 73 6b 69 70 | 0d 04 06 05 e1 0d 04 10 |....skip|........|
|000008e0| 04 0d 04 1a 0a dd f2 72 | 65 61 64 0d 04 24 15 50 |.......r|ead..$.P|
|000008f0| 25 3d 50 25 2b 31 35 34 | 3a cf 23 5a 25 3d 50 25 |%=P%+154|:.#Z%=P%|
|00000900| 0d 04 2e 12 e3 4e 25 3d | 30 b8 6c 69 6e 65 73 25 |.....N%=|0.lines%|
|00000910| 2d 31 0d 04 38 0f e8 23 | 5a 25 2c 41 24 28 4e 25 |-1..8..#|Z%,A$(N%|
|00000920| 29 0d 04 42 05 ed 0d 04 | 4c 12 e3 4e 25 3d 6c 69 |)..B....|L..N%=li|
|00000930| 6e 65 73 25 20 b8 34 39 | 0d 04 56 13 41 24 28 4e |nes% .49|..V.A$(N|
|00000940| 25 29 3d c4 37 35 2c 22 | 20 22 29 0d 04 60 05 ed |%)=.75,"| ")..`..|
|00000950| 0d 04 6a 2b 50 25 3d 50 | 25 2b 28 6c 69 6e 65 73 |..j+P%=P|%+(lines|
|00000960| 25 2a 37 37 29 3a f4 20 | 72 65 61 64 79 20 66 6f |%*77):. |ready fo|
|00000970| 72 20 6e 65 78 74 20 72 | 65 61 64 0d 04 74 09 4f |r next r|ead..t.O|
|00000980| 25 3d 2d 33 0d 04 7e 05 | db 0d 04 88 08 f2 64 69 |%=-3..~.|......di|
|00000990| 73 0d 04 92 05 87 0d 04 | 9c 04 0d 04 a6 05 f5 0d |s.......|........|
|000009a0| 04 b0 0d 2a 46 58 32 30 | 32 2c 33 32 0d 04 ba 08 |...*FX20|2,32....|
|000009b0| 42 25 3d a5 0d 04 c4 08 | f2 6b 65 79 0d 04 ce 16 |B%=.....|.key....|
|000009c0| fd 42 25 3d 97 22 45 22 | 20 84 20 42 25 3d 97 22 |.B%=."E"| . B%=."|
|000009d0| 4e 22 0d 04 d8 08 46 25 | 3d 31 0d 04 e2 05 e1 0d |N"....F%|=1......|
|000009e0| 04 ec 04 0d 04 f6 0a dd | f2 73 6b 69 70 0d 05 00 |........|.skip...|
|000009f0| 19 50 25 3d 50 25 2b 28 | 28 6c 69 6e 65 73 25 2b |.P%=P%+(|(lines%+|
|00000a00| 32 29 2a 37 37 29 0d 05 | 0a 05 e1 0d 05 14 04 0d |2)*77)..|........|
|00000a10| 05 1e 34 dd a4 6e 75 6d | 28 61 24 29 3a f1 8a 30 |..4..num|(a$):..0|
|00000a20| 2c 32 29 61 24 3b 22 20 | 20 20 3d 3d 3d 3d 22 3b |,2)a$;" |  ====";|
|00000a30| 3a e8 8a a9 61 24 2b 31 | 2c 32 29 22 22 61 25 3a |:...a$+1|,2)""a%:|
|00000a40| 3d 61 25 0d 05 28 38 dd | a4 71 75 65 73 28 61 24 |=a%..(8.|.ques(a$|
|00000a50| 29 3a f1 8a 30 2c 32 29 | 61 24 3b 22 20 22 3b 3a |):..0,2)|a$;" ";:|
|00000a60| f5 3a 52 24 3d be 3a fd | a7 22 59 4e 22 2c 52 24 |.:R$=.:.|."YN",R$|
|00000a70| 29 3e 30 3a f2 68 64 3a | 3d 52 24 0d 05 32 29 dd |)>0:.hd:|=R$..2).|
|00000a80| a4 66 6e 61 6d 65 28 61 | 24 29 3a f1 8a 30 2c 32 |.fname(a|$):..0,2|
|00000a90| 29 61 24 3b 22 20 20 20 | 20 20 20 20 20 20 20 20 |)a$;"   |        |
|00000aa0| 20 20 20 22 0d 05 3c 12 | e8 8a a9 61 24 2b 31 2c |   "..<.|...a$+1,|
|00000ab0| 32 29 22 22 52 24 0d 05 | 46 07 3d 52 24 0d 05 50 |2)""R$..|F.=R$..P|
|00000ac0| 0c dd a4 63 6f 6c 28 41 | 29 0d 05 5a 16 3d c0 28 |...col(A|)..Z.=.(|
|00000ad0| c3 28 41 29 2b 22 20 20 | 20 20 22 29 2c 35 29 0d |.(A)+"  |  "),5).|
|00000ae0| 05 64 04 0d 05 6e 26 dd | f2 62 6c 6b 3a e3 41 25 |.d...n&.|.blk:.A%|
|00000af0| 3d 30 b8 35 30 3a 41 24 | 28 41 25 29 3d c4 37 35 |=0.50:A$|(A%)=.75|
|00000b00| 2c 22 20 22 29 3a ed 3a | e1 0d 05 78 04 0d 05 82 |," "):.:|...x....|
|00000b10| 09 dd f2 6b 65 79 0d 05 | 8c 10 e7 a6 28 2d 32 29 |...key..|....(-2)|
|00000b20| f2 63 74 72 3a e1 0d 05 | 96 0e e7 42 25 3d 31 33 |.ctr:...|...B%=13|
|00000b30| 38 f2 75 70 0d 05 a0 0e | e7 42 25 3d 31 33 39 f2 |8.up....|.B%=139.|
|00000b40| 64 6e 0d 05 aa 13 e7 42 | 25 3d 97 22 50 22 20 f2 |dn.....B|%=."P" .|
|00000b50| 70 72 69 6e 74 0d 05 b4 | 12 e7 42 25 3d 97 22 53 |print...|..B%=."S|
|00000b60| 22 20 f2 73 61 76 65 0d | 05 be 05 e1 0d 05 c8 04 |" .save.|........|
|00000b70| 0d 05 d2 09 dd f2 63 74 | 72 0d 05 dc 2a e7 42 25 |......ct|r...*.B%|
|00000b80| 3d 31 33 38 20 4f 25 3d | 32 37 3a f2 64 69 73 3a |=138 O%=|27:.dis:|
|00000b90| 8b e7 42 25 3d 31 33 39 | 20 4f 25 3d 2d 33 3a f2 |..B%=139| O%=-3:.|
|00000ba0| 64 69 73 0d 05 e6 0a 42 | 25 3d 30 3a e1 0d 05 f0 |dis....B|%=0:....|
|00000bb0| 04 0d 05 fa 09 dd f2 64 | 69 73 0d 06 04 3c ea 20 |.......d|is...<. |
|00000bc0| 41 3a f2 68 64 3a f2 62 | 6f 74 3a f1 8a 30 2c 33 |A:.hd:.b|ot:..0,3|
|00000bd0| 29 3b 3a e3 41 3d 4f 25 | 2b 33 b8 4f 25 2b 32 32 |);:.A=O%|+3.O%+22|
|00000be0| 3a f1 a4 63 6f 6c 28 41 | 2b 31 29 3b 41 24 28 41 |:..col(A|+1);A$(A|
|00000bf0| 29 3b 3a ed 3a e1 0d 06 | 0e 04 0d 06 18 08 dd f2 |);:.:...|........|
|00000c00| 68 64 0d 06 22 5b f1 8a | 30 2c 30 29 22 4b 45 59 |hd.."[..|0,0)"KEY|
|00000c10| 57 44 53 20 3c 22 3b 89 | 36 30 3b 8a 38 2c 30 29 |WDS <";.|60;.8,0)|
|00000c20| 3b 6b 77 24 3b 8a 36 38 | 2c 30 29 22 3e 20 50 61 |;kw$;.68|,0)"> Pa|
|00000c30| 67 65 3a 22 3b 70 67 25 | 3b 8a 39 2c 31 29 3b 22 |ge:";pg%|;.9,1);"|
|00000c40| 54 49 54 4c 45 20 3a 22 | 74 69 24 3b 8a 37 30 2c |TITLE :"|ti$;.70,|
|00000c50| 31 29 22 46 72 6f 6d 3a | 22 3b 47 25 3b 0d 06 2c |1)"From:|";G%;..,|
|00000c60| 24 f1 8a 30 2c 32 29 22 | 6c 69 6e 65 3b 22 3b 8a |$..0,2)"|line;";.|
|00000c70| 35 2c 32 29 c4 31 35 2c | 22 3d 3d 3d 3d 3a 22 29 |5,2).15,|"====:")|
|00000c80| 3b 0d 06 36 05 e1 0d 06 | 40 04 0d 06 4a 09 dd f2 |;..6....|@...J...|
|00000c90| 62 6f 74 0d 06 54 14 f1 | 8a 30 2c 32 33 29 c4 37 |bot..T..|.0,23).7|
|00000ca0| 39 2c 22 3d 22 29 3b 0d | 06 5e 25 e7 4f 25 3d 32 |9,"=");.|.^%.O%=2|
|00000cb0| 37 f1 8a 33 30 2c 32 33 | 29 22 42 4f 54 54 4f 4d |7..30,23|)"BOTTOM|
|00000cc0| 20 20 4f 46 20 20 50 41 | 47 45 22 3b 0d 06 68 30 |  OF  PA|GE";..h0|
|00000cd0| f1 8a 31 30 2c 32 34 29 | 22 28 4e 29 65 78 74 20 |..10,24)|"(N)ext |
|00000ce0| 20 20 28 45 29 78 69 74 | 20 20 28 50 29 72 69 6e |  (E)xit|  (P)rin|
|00000cf0| 74 20 20 20 28 53 29 61 | 76 65 22 3b 0d 06 72 05 |t   (S)a|ve";..r.|
|00000d00| e1 0d 06 7c 04 0d 06 86 | 08 dd f2 75 70 0d 06 90 |...|....|...up...|
|00000d10| 0c 4f 25 3d 4f 25 2b 31 | 30 0d 06 9a 10 e7 4f 25 |.O%=O%+1|0.....O%|
|00000d20| 3e 32 37 20 4f 25 3d 32 | 37 0d 06 a4 31 ea 20 41 |>27 O%=2|7...1. A|
|00000d30| 3a f1 8a 30 2c 33 29 3b | 3a e3 41 3d 4f 25 2b 33 |:..0,3);|:.A=O%+3|
|00000d40| b8 4f 25 2b 32 32 3a f1 | a4 63 6f 6c 28 41 2b 31 |.O%+22:.|.col(A+1|
|00000d50| 29 3b 41 24 28 41 29 3b | 3a ed 0d 06 ae 05 e1 0d |);A$(A);|:.......|
|00000d60| 06 b8 04 0d 06 c2 08 dd | f2 64 6e 0d 06 cc 0c 4f |........|.dn....O|
|00000d70| 25 3d 4f 25 2d 31 30 0d | 06 d6 10 e7 4f 25 3c 2d |%=O%-10.|....O%<-|
|00000d80| 32 20 4f 25 3d 2d 33 0d | 06 e0 31 ea 20 41 3a f1 |2 O%=-3.|..1. A:.|
|00000d90| 8a 30 2c 33 29 3b 3a e3 | 41 3d 4f 25 2b 33 b8 4f |.0,3);:.|A=O%+3.O|
|00000da0| 25 2b 32 32 3a f1 a4 63 | 6f 6c 28 41 2b 31 29 3b |%+22:..c|ol(A+1);|
|00000db0| 41 24 28 41 29 3b 3a ed | 0d 06 ea 05 e1 0d 06 f4 |A$(A);:.|........|
|00000dc0| 04 0d 06 fe 0b dd f2 70 | 72 69 6e 74 0d 07 08 4a |.......p|rint...J|
|00000dd0| e7 a4 71 75 65 73 28 22 | 43 6f 6e 66 69 72 6d 20 |..ques("|Confirm |
|00000de0| 70 72 69 6e 74 6f 75 74 | 20 59 2f 4e 22 29 3d 22 |printout| Y/N")="|
|00000df0| 4e 22 3a e1 3a 8b 71 24 | 3d a4 71 75 65 73 28 22 |N":.:.q$|=.ques("|
|00000e00| 50 72 69 6e 74 20 6f 75 | 74 20 61 6c 6c 3f 20 59 |Print ou|t all? Y|
|00000e10| 2f 4e 20 20 22 29 0d 07 | 12 12 43 25 3d 31 3a 44 |/N  ")..|..C%=1:D|
|00000e20| 25 3d 6c 69 6e 65 73 25 | 0d 07 1c 4f e7 71 24 3d |%=lines%|...O.q$=|
|00000e30| 22 4e 22 43 25 3d a4 6e | 75 6d 28 22 54 6f 70 20 |"N"C%=.n|um("Top |
|00000e40| 6c 69 6e 65 22 29 3a 44 | 25 3d a4 6e 75 6d 28 22 |line"):D|%=.num("|
|00000e50| 42 6f 74 74 6f 6d 20 20 | 6c 69 6e 65 20 28 30 3d |Bottom  |line (0=|
|00000e60| 61 62 6f 72 74 29 22 29 | 3a e7 43 25 2a 44 25 3d |abort)")|:.C%*D%=|
|00000e70| 30 3a f2 68 64 3a e1 0d | 07 26 07 f2 68 64 0d 07 |0:.hd:..|.&..hd..|
|00000e80| 30 0b 2a 46 58 33 2c 31 | 30 0d 07 3a 13 e7 74 69 |0.*FX3,1|0..:..ti|
|00000e90| 24 3c 3e 22 22 20 f1 74 | 69 24 3a f1 0d 07 44 18 |$<>"" .t|i$:...D.|
|00000ea0| e7 44 25 3e 6c 69 6e 65 | 73 25 20 44 25 3d 6c 69 |.D%>line|s% D%=li|
|00000eb0| 6e 65 73 25 0d 07 4e 13 | e3 4e 25 3d 43 25 2d 31 |nes%..N.|.N%=C%-1|
|00000ec0| 20 b8 20 44 25 2d 31 0d | 07 58 10 f2 70 72 32 28 | . D%-1.|.X..pr2(|
|00000ed0| 41 24 28 4e 25 29 29 0d | 07 62 05 ed 0d 07 6c 0a |A$(N%)).|.b....l.|
|00000ee0| 2a 46 58 33 2c 30 0d 07 | 76 05 e1 0d 07 80 04 0d |*FX3,0..|v.......|
|00000ef0| 07 8a 0d dd f2 70 72 32 | 28 61 24 29 0d 07 94 10 |.....pr2|(a$)....|
|00000f00| 53 25 3d 30 3a 70 6f 73 | 25 3d 37 36 0d 07 9e 05 |S%=0:pos|%=76....|
|00000f10| f5 0d 07 a8 0f 70 6f 73 | 25 3d 70 6f 73 25 2d 31 |.....pos|%=pos%-1|
|00000f20| 0d 07 b2 1d fd c1 61 24 | 2c 70 6f 73 25 2c 31 29 |......a$|,pos%,1)|
|00000f30| 3c 3e 22 20 22 84 20 70 | 6f 73 25 3d 31 0d 07 bc |<>" ". p|os%=1...|
|00000f40| 10 61 24 3d c0 61 24 2c | 70 6f 73 25 29 0d 07 c6 |.a$=.a$,|pos%)...|
|00000f50| 0e e3 49 25 3d 31 b8 70 | 6f 73 25 0d 07 d0 11 41 |..I%=1.p|os%....A|
|00000f60| 25 3d 97 c1 61 24 2c 49 | 25 2c 31 29 0d 07 da 09 |%=..a$,I|%,1)....|
|00000f70| f2 63 6f 64 65 0d 07 e4 | 05 ed 0d 07 ee 07 ef 31 |.code...|.......1|
|00000f80| 33 0d 07 f8 05 e1 0d 08 | 02 04 0d 08 0c 0a dd f2 |3.......|........|
|00000f90| 63 6f 64 65 0d 08 16 10 | e7 41 25 3d 39 36 20 41 |code....|.A%=96 A|
|00000fa0| 25 3d 33 35 0d 08 20 21 | e7 41 25 3c 31 32 37 20 |%=35.. !|.A%<127 |
|00000fb0| ef 41 25 3a e7 53 25 3e | 30 20 ef 32 37 2c 38 34 |.A%:.S%>|0 .27,84|
|00000fc0| 3a 53 25 3d 30 0d 08 2a | 0d e7 41 25 3c 31 32 37 |:S%=0..*|..A%<127|
|00000fd0| 20 e1 0d 08 34 12 e7 41 | 25 3d 32 34 30 20 ef 32 | ...4..A|%=240 .2|
|00000fe0| 37 2c 35 32 0d 08 3e 14 | e7 41 25 3d 32 34 31 20 |7,52..>.|.A%=241 |
|00000ff0| ef 32 37 2c 34 35 2c 31 | 0d 08 48 19 e7 41 25 3d |.27,45,1|..H..A%=|
|00001000| 32 34 32 20 ef 32 37 2c | 38 33 2c 31 3a 53 25 3d |242 .27,|83,1:S%=|
|00001010| 31 0d 08 52 19 e7 41 25 | 3d 32 34 33 20 ef 32 37 |1..R..A%|=243 .27|
|00001020| 2c 38 33 2c 30 3a 53 25 | 3d 31 0d 08 5c 12 e7 41 |,83,0:S%|=1..\..A|
|00001030| 25 3d 32 34 34 20 ef 32 | 37 2c 36 39 0d 08 66 20 |%=244 .2|7,69..f |
|00001040| e7 41 25 3d 32 34 35 20 | ef 32 37 2c 35 33 2c 32 |.A%=245 |.27,53,2|
|00001050| 37 2c 34 35 2c 30 2c 32 | 37 2c 37 30 0d 08 70 05 |7,45,0,2|7,70..p.|
|00001060| e1 0d 08 7a 04 0d 08 84 | 0a dd f2 73 61 76 65 0d |...z....|...save.|
|00001070| 08 8e 1f 71 24 3d a4 71 | 75 65 73 28 22 53 61 76 |...q$=.q|ues("Sav|
|00001080| 65 20 61 6c 6c 3f 20 59 | 2f 4e 20 20 22 29 0d 08 |e all? Y|/N  ")..|
|00001090| 98 12 43 25 3d 31 3a 44 | 25 3d 6c 69 6e 65 73 25 |..C%=1:D|%=lines%|
|000010a0| 0d 08 a2 4f e7 71 24 3d | 22 4e 22 43 25 3d a4 6e |...O.q$=|"N"C%=.n|
|000010b0| 75 6d 28 22 54 6f 70 20 | 6c 69 6e 65 22 29 3a 44 |um("Top |line"):D|
|000010c0| 25 3d a4 6e 75 6d 28 22 | 42 6f 74 74 6f 6d 20 20 |%=.num("|Bottom  |
|000010d0| 6c 69 6e 65 20 28 30 3d | 61 62 6f 72 74 29 22 29 |line (0=|abort)")|
|000010e0| 3a e7 43 25 2a 44 25 3d | 30 3a f2 68 64 3a e1 0d |:.C%*D%=|0:.hd:..|
|000010f0| 08 ac 07 f2 68 64 0d 08 | b6 37 73 61 76 65 64 24 |....hd..|.7saved$|
|00001100| 3d a4 66 6e 61 6d 65 28 | 22 45 6e 74 65 72 20 61 |=.fname(|"Enter a|
|00001110| 20 66 69 6c 65 6e 61 6d | 65 20 22 29 3a e7 73 61 | filenam|e "):.sa|
|00001120| 76 65 64 24 3d 22 22 3a | f2 68 64 3a e1 0d 08 c0 |ved$="":|.hd:....|
|00001130| 5a f5 3a 59 25 3d 8e 28 | 22 3c 74 65 78 24 64 69 |Z.:Y%=.(|"<tex$di|
|00001140| 72 3e 2e 22 2b 73 61 76 | 65 64 24 29 3a e7 59 25 |r>."+sav|ed$):.Y%|
|00001150| 3e 30 20 73 61 76 65 64 | 24 3d a4 66 6e 61 6d 65 |>0 saved|$=.fname|
|00001160| 28 22 54 68 69 73 20 65 | 78 69 73 74 73 2c 20 63 |("This e|xists, c|
|00001170| 68 6f 6f 73 65 20 61 6e | 6f 74 68 65 72 20 22 29 |hoose an|other ")|
|00001180| 3a fd 20 59 25 3d 30 0d | 08 ca 1d 59 25 3d ae 28 |:. Y%=0.|...Y%=.(|
|00001190| 22 3c 74 65 78 24 64 69 | 72 3e 2e 22 2b 73 61 76 |"<tex$di|r>."+sav|
|000011a0| 65 64 24 29 0d 08 d4 33 | e7 74 69 24 3c 3e 22 22 |ed$)...3|.ti$<>""|
|000011b0| 20 e3 20 53 25 3d 31 b8 | a9 74 69 24 3a d5 23 59 | . S%=1.|.ti$:.#Y|
|000011c0| 25 2c 97 c1 74 69 24 2c | 53 25 2c 31 29 3a ed 3a |%,..ti$,|S%,1):.:|
|000011d0| d5 23 59 25 2c 31 30 0d | 08 de 18 e7 44 25 3e 6c |.#Y%,10.|....D%>l|
|000011e0| 69 6e 65 73 25 20 44 25 | 3d 6c 69 6e 65 73 25 0d |ines% D%|=lines%.|
|000011f0| 08 e8 12 e3 4e 25 3d 43 | 25 2d 31 20 b8 44 25 2d |....N%=C|%-1 .D%-|
|00001200| 31 0d 08 f2 2b e3 20 53 | 25 3d 31 b8 37 35 3a d5 |1...+. S|%=1.75:.|
|00001210| 23 59 25 2c 97 c1 41 24 | 28 4e 25 29 2c 53 25 2c |#Y%,..A$|(N%),S%,|
|00001220| 31 29 3a ed 3a d5 23 59 | 25 2c 31 30 0d 08 fc 05 |1):.:.#Y|%,10....|
|00001230| ed 0d 09 06 08 d9 23 59 | 25 0d 09 10 2a ff 28 22 |......#Y|%...*.("|
|00001240| 53 45 54 54 59 50 45 20 | 3c 74 65 78 24 64 69 72 |SETTYPE |<tex$dir|
|00001250| 3e 2e 22 2b 73 61 76 65 | 64 24 2b 22 20 54 45 58 |>."+save|d$+" TEX|
|00001260| 54 22 29 0d 09 1a 07 f2 | 68 64 0d 09 24 05 e1 0d |T").....|hd..$...|
|00001270| 09 2e 04 0d 09 38 0a dd | f2 65 6e 64 3a 0d 09 42 |.....8..|.end:..B|
|00001280| 11 e7 5a 25 20 d9 23 5a | 25 3a 5a 25 3d 30 0d 09 |..Z% .#Z|%:Z%=0..|
|00001290| 56 0a 2a 46 58 34 2c 30 | 0d 09 60 0c 2a 46 58 32 |V.*FX4,0|..`.*FX2|
|000012a0| 32 39 2c 30 0d 09 6a 15 | d7 22 3c 74 65 78 24 64 |29,0..j.|."<tex$d|
|000012b0| 69 72 3e 2e 4d 45 4e 55 | 22 0d 09 74 05 e0 0d 09 |ir>.MENU|"..t....|
|000012c0| 7e 10 f4 20 45 52 52 4f | 52 20 54 52 41 50 0d 09 |~.. ERRO|R TRAP..|
|000012d0| 88 10 ef 33 3a ff 22 2a | 46 58 33 2c 30 22 0d 09 |...3:."*|FX3,0"..|
|000012e0| 92 0d e7 20 5a 25 20 d9 | 23 5a 25 0d 09 9c 05 db |... Z% .|#Z%.....|
|000012f0| 0d 09 a6 14 f1 9f 3b 22 | 20 61 74 20 22 3b 9e 3a |......;"| at ";.:|
|00001300| f1 70 72 24 0d 09 b0 15 | 42 25 3d a5 3a e7 42 25 |.pr$....|B%=.:.B%|
|00001310| 3d 31 33 20 e5 8d 44 5a | 40 0d 09 ba 0a 2a 46 58 |=13 ..DZ|@....*FX|
|00001320| 34 2c 30 0d 09 c4 0c 2a | 46 58 32 32 39 2c 30 0d |4,0....*|FX229,0.|
|00001330| 09 ce 05 e0 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+