/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / MakeLib / MakeLib

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 05 f4 0d 00 14 | 2c f4 20 43 72 65 61 74 |........|,. Creat|
|00000010| 65 20 42 4c 69 62 20 6c | 69 62 72 61 72 79 20 66 |e BLib l|ibrary f|
|00000020| 72 6f 6d 20 70 6c 61 69 | 6e 20 6c 69 62 72 61 72 |rom plai|n librar|
|00000030| 79 0d 00 1e 05 f4 0d 00 | 28 21 f4 20 43 6f 70 79 |y.......|(!. Copy|
|00000040| 72 69 67 68 74 20 31 39 | 39 33 2c 20 49 61 6e 20 |right 19|93, Ian |
|00000050| 50 61 6c 6d 65 72 2e 0d | 00 32 05 f4 0d 00 3c 04 |Palmer..|.2....<.|
|00000060| 0d 00 46 1a ee 20 85 20 | f6 3a f1 22 20 61 74 20 |..F.. . |.:." at |
|00000070| 6c 69 6e 65 20 22 3b 9e | 3a e0 0d 00 50 04 0d 00 |line ";.|:...P...|
|00000080| 5a 33 6c 69 6e 65 25 3d | 30 3a 6f 6c 69 6e 65 25 |Z3line%=|0:oline%|
|00000090| 3d 31 30 3a de 20 62 75 | 66 25 20 32 35 36 2c 20 |=10:. bu|f% 256, |
|000000a0| 62 75 66 32 25 20 32 35 | 36 3a 6f 6c 64 24 3d 22 |buf2% 25|6:old$="|
|000000b0| 22 0d 00 64 1a e8 27 22 | 49 6e 70 75 74 20 6c 69 |"..d..'"|Input li|
|000000c0| 62 72 61 72 79 20 3a 20 | 22 49 24 0d 00 6e 1b e8 |brary : |"I$..n..|
|000000d0| 27 22 4f 75 74 70 75 74 | 20 6c 69 62 72 61 72 79 |'"Output| library|
|000000e0| 20 3a 20 22 4f 24 0d 00 | 78 30 69 6e 25 3d 8e 20 | : "O$..|x0in%=. |
|000000f0| 49 24 3a e7 20 69 6e 25 | 3d 30 20 f1 27 22 43 61 |I$:. in%|=0 .'"Ca|
|00000100| 6e 27 74 20 6f 70 65 6e | 20 69 6e 70 75 74 20 66 |n't open| input f|
|00000110| 69 6c 65 22 3a e0 0d 00 | 82 33 6f 75 74 25 3d ae |ile":...|.3out%=.|
|00000120| 20 4f 24 3a e7 20 6f 75 | 74 25 3d 30 20 f1 27 22 | O$:. ou|t%=0 .'"|
|00000130| 43 61 6e 27 74 20 6f 70 | 65 6e 20 6f 75 74 70 75 |Can't op|en outpu|
|00000140| 74 20 66 69 6c 65 22 3a | e0 0d 00 8c 12 f1 3a d5 |t file":|......:.|
|00000150| 23 6f 75 74 25 2c 9a 23 | 69 6e 25 0d 00 96 1a c8 |#out%,.#|in%.....|
|00000160| 95 20 a4 72 65 61 64 5f | 62 61 73 28 69 6e 25 2c |. .read_|bas(in%,|
|00000170| 62 75 66 25 29 0d 00 a0 | 19 20 20 6e 65 77 25 3d |buf%)...|.  new%=|
|00000180| a3 3a 42 25 3d 62 75 66 | 25 3a 51 25 3d 30 0d 00 |.:B%=buf|%:Q%=0..|
|00000190| aa 10 20 20 c8 95 20 3f | 42 25 3c 3e 31 33 0d 00 |..  .. ?|B%<>13..|
|000001a0| b4 1a 20 20 20 20 e7 20 | 3f 42 25 3d 33 34 20 8c |..    . |?B%=34 .|
|000001b0| 20 51 25 3d 31 2d 51 25 | 0d 00 be 10 20 20 20 20 | Q%=1-Q%|....    |
|000001c0| e7 20 51 25 3d 30 20 8c | 0d 00 c8 15 20 20 20 20 |. Q%=0 .|....    |
|000001d0| 20 20 e7 20 3f 42 25 3d | 26 44 44 20 8c 0d 00 d2 |  . ?B%=|&DD ....|
|000001e0| 1d 20 20 20 20 20 20 20 | 20 f5 3a 42 25 2b 3d 31 |.       | .:B%+=1|
|000001f0| 3a fd 20 3f 42 25 3c 3e | 33 32 0d 00 dc 39 20 20 |:. ?B%<>|32...9  |
|00000200| 20 20 20 20 20 20 e7 20 | 3f 42 25 3d 26 41 34 20 |      . |?B%=&A4 |
|00000210| 8c 20 42 25 2b 3d 31 3a | 4e 24 3d 22 46 4e 22 2b |. B%+=1:|N$="FN"+|
|00000220| a4 67 65 74 5f 76 61 72 | 28 42 25 29 3a 6e 65 77 |.get_var|(B%):new|
|00000230| 25 3d b9 0d 00 e6 3b 20 | 20 20 20 20 20 20 20 e7 |%=....; |       .|
|00000240| 20 3f 42 25 3d 26 46 32 | 20 8c 20 42 25 2b 3d 31 | ?B%=&F2| . B%+=1|
|00000250| 3a 4e 24 3d 22 50 52 4f | 43 22 2b a4 67 65 74 5f |:N$="PRO|C"+.get_|
|00000260| 76 61 72 28 42 25 29 3a | 6e 65 77 25 3d b9 0d 00 |var(B%):|new%=...|
|00000270| f0 0b 20 20 20 20 20 20 | cd 0d 00 fa 09 20 20 20 |..      |.....   |
|00000280| 20 cd 0d 01 04 0d 20 20 | 20 20 42 25 2b 3d 31 0d | .....  |  B%+=1.|
|00000290| 01 0e 07 20 20 ce 0d 01 | 18 0e 20 20 e7 20 6e 65 |...  ...|..  . ne|
|000002a0| 77 25 20 8c 0d 01 22 51 | 20 20 20 20 e7 20 6f 6c |w% ..."Q|    . ol|
|000002b0| 64 24 3c 3e 22 22 20 8c | 20 24 62 75 66 32 25 3d |d$<>"" .| $buf2%=|
|000002c0| 22 2a 7c 73 74 6f 70 20 | 22 2b 6f 6c 64 24 3a f2 |"*|stop |"+old$:.|
|000002d0| 6f 75 74 5f 62 61 73 28 | 6f 75 74 25 2c 6f 6c 69 |out_bas(|out%,oli|
|000002e0| 6e 65 25 2c 62 75 66 32 | 25 29 3a 6f 6c 69 6e 65 |ne%,buf2|%):oline|
|000002f0| 25 2b 3d 31 30 0d 01 2c | 43 20 20 20 20 24 62 75 |%+=10..,|C    $bu|
|00000300| 66 32 25 3d 22 2a 7c 73 | 74 61 72 74 20 22 2b 4e |f2%="*|s|tart "+N|
|00000310| 24 3a f2 6f 75 74 5f 62 | 61 73 28 6f 75 74 25 2c |$:.out_b|as(out%,|
|00000320| 6f 6c 69 6e 65 25 2c 62 | 75 66 32 25 29 3a 6f 6c |oline%,b|uf2%):ol|
|00000330| 69 6e 65 25 2b 3d 31 30 | 0d 01 36 44 20 20 20 20 |ine%+=10|..6D    |
|00000340| 24 62 75 66 32 25 3d 22 | 2a 7c 21 22 2b 4e 24 2b |$buf2%="|*|!"+N$+|
|00000350| 22 28 20 29 22 3a f2 6f | 75 74 5f 62 61 73 28 6f |"( )":.o|ut_bas(o|
|00000360| 75 74 25 2c 6f 6c 69 6e | 65 25 2c 62 75 66 32 25 |ut%,olin|e%,buf2%|
|00000370| 29 3a 6f 6c 69 6e 65 25 | 2b 3d 31 30 0d 01 40 14 |):oline%|+=10..@.|
|00000380| 20 20 20 20 6f 6c 64 24 | 3d 4e 24 3a f1 20 4e 24 |    old$|=N$:. N$|
|00000390| 0d 01 4a 07 20 20 cd 0d | 01 54 2b 20 20 f2 6f 75 |..J.  ..|.T+  .ou|
|000003a0| 74 5f 62 61 73 28 6f 75 | 74 25 2c 6f 6c 69 6e 65 |t_bas(ou|t%,oline|
|000003b0| 25 2c 62 75 66 25 29 3a | 6f 6c 69 6e 65 25 2b 3d |%,buf%):|oline%+=|
|000003c0| 31 30 0d 01 5e 05 ce 0d | 01 68 42 e7 20 6f 6c 64 |10..^...|.hB. old|
|000003d0| 24 3c 3e 22 22 20 8c 20 | 24 62 75 66 32 25 3d 22 |$<>"" . |$buf2%="|
|000003e0| 2a 7c 73 74 6f 70 20 22 | 2b 6f 6c 64 24 3a f2 6f |*|stop "|+old$:.o|
|000003f0| 75 74 5f 62 61 73 28 6f | 75 74 25 2c 6f 6c 69 6e |ut_bas(o|ut%,olin|
|00000400| 65 25 2c 62 75 66 32 25 | 29 0d 01 72 09 d9 23 69 |e%,buf2%|)..r..#i|
|00000410| 6e 25 0d 01 7c 15 d5 23 | 6f 75 74 25 2c 32 35 35 |n%..|..#|out%,255|
|00000420| 3a d9 23 6f 75 74 25 0d | 01 86 05 e0 0d 01 90 04 |:.#out%.|........|
|00000430| 0d 01 9a 15 dd a4 72 65 | 61 64 5f 62 61 73 28 43 |......re|ad_bas(C|
|00000440| 25 2c 42 25 29 0d 01 a4 | 1a ea 20 4c 25 2c 41 25 |%,B%)...|.. L%,A%|
|00000450| 3a 66 69 6c 65 5f 70 74 | 72 25 3d 8f 23 43 25 0d |:file_pt|r%=.#C%.|
|00000460| 01 ae 0f e7 20 c5 23 43 | 25 20 8c 20 3d a3 0d 01 |.... .#C|% . =...|
|00000470| b8 19 41 25 3d 9a 23 43 | 25 3a e7 20 41 25 3d 32 |..A%=.#C|%:. A%=2|
|00000480| 35 35 20 8c 20 3d a3 0d | 01 c2 2a 6c 69 6e 65 25 |55 . =..|..*line%|
|00000490| 3d 28 41 25 2a 32 35 36 | 29 2b 9a 23 43 25 3a 4c |=(A%*256|)+.#C%:L|
|000004a0| 25 3d 9a 23 43 25 3a 4c | 25 2d 3d 33 3a f1 20 4c |%=.#C%:L|%-=3:. L|
|000004b0| 25 0d 01 cc 25 c8 95 20 | 28 4c 25 3c 3e 30 29 20 |%...%.. |(L%<>0) |
|000004c0| 3f 42 25 3d 9a 23 43 25 | 3a 42 25 2b 3d 31 3a 4c |?B%=.#C%|:B%+=1:L|
|000004d0| 25 2d 3d 31 3a ce 0d 01 | d6 06 3d b9 0d 01 e0 04 |%-=1:...|..=.....|
|000004e0| 0d 01 ea 17 dd f2 6f 75 | 74 5f 62 61 73 28 43 25 |......ou|t_bas(C%|
|000004f0| 2c 4c 25 2c 42 25 29 0d | 01 f4 2b d5 23 43 25 2c |,L%,B%).|..+.#C%,|
|00000500| 4c 25 20 81 20 32 35 36 | 3a d5 23 43 25 2c 4c 25 |L% . 256|:.#C%,L%|
|00000510| 20 83 20 32 35 36 3a 4c | 25 3d 34 2b a9 28 24 42 | . 256:L|%=4+.($B|
|00000520| 25 29 0d 01 fe 33 d5 23 | 43 25 2c 4c 25 3a 4c 25 |%)...3.#|C%,L%:L%|
|00000530| 2d 3d 33 3a c8 95 20 28 | 4c 25 3c 3e 30 29 20 d5 |-=3:.. (|L%<>0) .|
|00000540| 23 43 25 2c 3f 42 25 3a | 42 25 2b 3d 31 3a 4c 25 |#C%,?B%:|B%+=1:L%|
|00000550| 2d 3d 31 3a ce 0d 02 08 | 05 e1 0d 02 12 04 0d 02 |-=1:....|........|
|00000560| 1c 13 dd a4 67 65 74 5f | 76 61 72 28 f8 20 50 25 |....get_|var(. P%|
|00000570| 29 0d 02 26 0e ea 20 56 | 24 2c 43 25 2c 4f 25 0d |)..&.. V|$,C%,O%.|
|00000580| 02 30 22 56 24 3d 22 22 | 3a 50 25 2d 3d 31 3a f5 |.0"V$=""|:P%-=1:.|
|00000590| 3a 43 25 3d 3f 28 50 25 | 2b 31 29 3a 4f 25 3d 50 |:C%=?(P%|+1):O%=P|
|000005a0| 25 0d 02 3a 4c e7 20 28 | 43 25 3e 34 37 20 80 20 |%..:L. (|C%>47 . |
|000005b0| 43 25 3c 35 38 29 20 84 | 20 28 43 25 3e 36 33 20 |C%<58) .| (C%>63 |
|000005c0| 80 20 43 25 3c 39 31 29 | 20 84 20 28 43 25 3e 39 |. C%<91)| . (C%>9|
|000005d0| 34 20 80 20 43 25 3c 31 | 32 33 29 20 8c 20 50 25 |4 . C%<1|23) . P%|
|000005e0| 2b 3d 31 3a 56 24 2b 3d | bd 28 43 25 29 0d 02 44 |+=1:V$+=|.(C%)..D|
|000005f0| 0b fd 20 4f 25 3d 50 25 | 0d 02 4e 07 3d 56 24 0d |.. O%=P%|..N.=V$.|
|00000600| 02 58 04 0d ff          |                         |.X...   |        |
+--------+-------------------------+-------------------------+--------+--------+