/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basentry / Library / BasEntry

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 42 61 | 73 45 6e 74 72 79 0d 00 |.....>Ba|sEntry..|
|00000010| 14 33 f4 20 4c 69 62 72 | 61 72 79 20 66 6f 72 20 |.3. Libr|ary for |
|00000020| 69 6d 70 6c 65 6d 65 6e | 74 69 6e 67 20 61 72 67 |implemen|ting arg|
|00000030| 63 20 26 20 61 72 67 76 | 20 69 6e 20 42 41 53 49 |c & argv| in BASI|
|00000040| 43 0d 00 1e 13 f4 20 a9 | 31 39 39 32 20 48 52 4d |C..... .|1992 HRM|
|00000050| 69 6c 6c 73 0d 00 28 2c | f4 20 4c 6f 61 64 20 6c |ills..(,|. Load l|
|00000060| 69 62 72 61 72 79 20 77 | 69 74 68 20 49 4e 53 54 |ibrary w|ith INST|
|00000070| 41 4c 4c 20 22 25 2e 42 | 41 53 45 4e 54 52 59 22 |ALL "%.B|ASENTRY"|
|00000080| 0d 00 32 4f f4 20 74 68 | 65 6e 20 64 6f 20 50 52 |..2O. th|en do PR|
|00000090| 4f 43 65 6e 74 72 79 2e | 20 54 68 69 73 20 73 65 |OCentry.| This se|
|000000a0| 74 73 20 75 70 20 74 68 | 65 20 76 61 72 69 61 62 |ts up th|e variab|
|000000b0| 6c 65 20 61 72 67 63 2c | 20 65 71 75 61 6c 20 74 |le argc,| equal t|
|000000c0| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 0d |o the nu|mber of.|
|000000d0| 00 3c 49 f4 20 63 6f 6d | 6d 61 6e 64 20 6c 69 6e |.<I. com|mand lin|
|000000e0| 65 20 61 72 67 75 6d 65 | 6e 74 73 20 6f 66 20 74 |e argume|nts of t|
|000000f0| 68 65 20 70 72 6f 67 72 | 61 6d 2c 20 61 6e 64 20 |he progr|am, and |
|00000100| 61 72 67 76 24 28 29 2c | 20 61 6e 20 61 72 72 61 |argv$(),| an arra|
|00000110| 79 20 6f 66 20 74 68 65 | 0d 00 46 1b f4 20 61 72 |y of the|..F.. ar|
|00000120| 67 75 6d 65 6e 74 73 20 | 74 68 65 6d 73 65 6c 76 |guments |themselv|
|00000130| 65 73 2e 0d 00 50 04 0d | 00 5a 0b dd f2 65 6e 74 |es...P..|.Z...ent|
|00000140| 72 79 0d 00 64 1c 20 20 | 20 20 ea 20 66 25 2c 70 |ry..d.  |  . f%,p|
|00000150| 25 2c 43 6f 6d 6d 61 6e | 64 4c 69 6e 65 24 0d 00 |%,Comman|dLine$..|
|00000160| 6e 24 20 20 20 20 c8 99 | 22 4f 53 5f 47 65 74 45 |n$    ..|"OS_GetE|
|00000170| 6e 76 22 20 b8 20 43 6f | 6d 6d 61 6e 64 4c 69 6e |nv" . Co|mmandLin|
|00000180| 65 24 0d 00 78 34 20 20 | 20 20 43 6f 6d 6d 61 6e |e$..x4  |  Comman|
|00000190| 64 4c 69 6e 65 24 3d a4 | 62 61 73 65 6e 74 72 79 |dLine$=.|basentry|
|000001a0| 5f 73 74 72 69 70 28 43 | 6f 6d 6d 61 6e 64 4c 69 |_strip(C|ommandLi|
|000001b0| 6e 65 24 2c 32 29 0d 00 | 82 2a 20 20 20 20 61 72 |ne$,2)..|.*    ar|
|000001c0| 67 63 3d a4 62 61 73 65 | 6e 74 72 79 5f 63 6f 75 |gc=.base|ntry_cou|
|000001d0| 6e 74 28 43 6f 6d 6d 61 | 6e 64 4c 69 6e 65 24 29 |nt(Comma|ndLine$)|
|000001e0| 0d 00 8c 15 20 20 20 20 | de 20 61 72 67 76 24 28 |....    |. argv$(|
|000001f0| 61 72 67 63 29 0d 00 96 | 04 0d 00 a0 17 20 20 20 |argc)...|.....   |
|00000200| 20 e3 20 66 25 3d 30 20 | b8 20 61 72 67 63 2d 31 | . f%=0 |. argc-1|
|00000210| 0d 00 aa 25 20 20 20 20 | 20 20 20 20 e7 20 a7 43 |...%    |    . .C|
|00000220| 6f 6d 6d 61 6e 64 4c 69 | 6e 65 24 2c 22 20 22 29 |ommandLi|ne$," ")|
|00000230| 3c 3e 30 20 8c 0d 00 b4 | 3b 20 20 20 20 20 20 20 |<>0 ....|;       |
|00000240| 20 20 20 20 20 61 72 67 | 76 24 28 66 25 29 3d c0 |     arg|v$(f%)=.|
|00000250| 43 6f 6d 6d 61 6e 64 4c | 69 6e 65 24 2c a7 43 6f |CommandL|ine$,.Co|
|00000260| 6d 6d 61 6e 64 4c 69 6e | 65 24 2c 22 20 22 29 29 |mmandLin|e$," "))|
|00000270| 0d 00 be 0d 20 20 20 20 | 20 20 20 20 cc 0d 00 c8 |....    |    ....|
|00000280| 26 20 20 20 20 20 20 20 | 20 20 20 20 20 61 72 67 |&       |     arg|
|00000290| 76 24 28 66 25 29 3d 43 | 6f 6d 6d 61 6e 64 4c 69 |v$(f%)=C|ommandLi|
|000002a0| 6e 65 24 0d 00 d2 0d 20 | 20 20 20 20 20 20 20 cd |ne$.... |       .|
|000002b0| 0d 00 dc 38 20 20 20 20 | 20 20 20 20 43 6f 6d 6d |...8    |    Comm|
|000002c0| 61 6e 64 4c 69 6e 65 24 | 3d a4 62 61 73 65 6e 74 |andLine$|=.basent|
|000002d0| 72 79 5f 73 74 72 69 70 | 28 43 6f 6d 6d 61 6e 64 |ry_strip|(Command|
|000002e0| 4c 69 6e 65 24 2c 31 29 | 0d 00 e6 24 20 20 20 20 |Line$,1)|...$    |
|000002f0| 20 20 20 20 e7 20 c0 43 | 6f 6d 6d 61 6e 64 4c 69 |    . .C|ommandLi|
|00000300| 6e 65 24 2c 31 29 3d 22 | 20 22 20 8c 0d 00 f0 11 |ne$,1)="| " .....|
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 f5 0d 00 fa |        |    ....|
|00000320| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00000330| 20 43 6f 6d 6d 61 6e 64 | 4c 69 6e 65 24 3d c1 43 | Command|Line$=.C|
|00000340| 6f 6d 6d 61 6e 64 4c 69 | 6e 65 24 2c 31 29 0d 01 |ommandLi|ne$,1)..|
|00000350| 04 27 20 20 20 20 20 20 | 20 20 20 20 20 20 fd 20 |.'      |      . |
|00000360| c0 43 6f 6d 6d 61 6e 64 | 4c 69 6e 65 24 2c 31 29 |.Command|Line$,1)|
|00000370| 3c 3e 22 20 22 0d 01 0e | 0d 20 20 20 20 20 20 20 |<>" "...|.       |
|00000380| 20 cd 0d 01 18 09 20 20 | 20 20 ed 0d 01 22 1d 20 | .....  |  ...". |
|00000390| 20 20 20 61 72 67 76 24 | 28 30 29 3d c1 61 72 67 |   argv$|(0)=.arg|
|000003a0| 76 24 28 30 29 2c 32 29 | 0d 01 2c 27 20 20 20 20 |v$(0),2)|..,'    |
|000003b0| 61 72 67 76 24 28 30 29 | 3d c0 61 72 67 76 24 28 |argv$(0)|=.argv$(|
|000003c0| 30 29 2c a9 61 72 67 76 | 24 28 30 29 2d 32 29 0d |0),.argv|$(0)-2).|
|000003d0| 01 36 05 e1 0d 01 40 05 | 3a 0d 01 4a 1e dd a4 62 |.6....@.|:..J...b|
|000003e0| 61 73 65 6e 74 72 79 5f | 73 74 72 69 70 28 4c 69 |asentry_|strip(Li|
|000003f0| 73 74 24 2c 61 25 29 0d | 01 54 0c 20 20 20 20 ea |st$,a%).|.T.    .|
|00000400| 20 66 25 0d 01 5e 13 20 | 20 20 20 e3 20 66 25 3d | f%..^. |   . f%=|
|00000410| 31 20 b8 20 61 25 0d 01 | 68 27 20 20 20 20 20 20 |1 . a%..|h'      |
|00000420| 20 20 4c 69 73 74 24 3d | c1 4c 69 73 74 24 2c a7 |  List$=|.List$,.|
|00000430| 4c 69 73 74 24 2c 22 20 | 22 29 2b 31 29 0d 01 72 |List$," |")+1)..r|
|00000440| 09 20 20 20 20 ed 0d 01 | 7c 0a 3d 4c 69 73 74 24 |.    ...||.=List$|
|00000450| 0d 01 86 05 3a 0d 01 90 | 1b dd a4 62 61 73 65 6e |....:...|...basen|
|00000460| 74 72 79 5f 63 6f 75 6e | 74 28 4c 69 73 74 24 29 |try_coun|t(List$)|
|00000470| 0d 01 9a 17 20 20 20 20 | ea 20 72 25 2c 70 25 2c |....    |. r%,p%,|
|00000480| 73 70 61 63 65 73 25 0d | 01 a4 11 20 20 20 20 73 |spaces%.|...    s|
|00000490| 70 61 63 65 73 25 3d a3 | 0d 01 ae 18 20 20 20 20 |paces%=.|....    |
|000004a0| e3 20 70 25 3d 30 20 b8 | 20 a9 20 4c 69 73 74 24 |. p%=0 .| . List$|
|000004b0| 0d 01 b8 2b 20 20 20 20 | 20 20 20 20 e7 20 73 70 |...+    |    . sp|
|000004c0| 61 63 65 73 25 20 80 20 | c1 4c 69 73 74 24 2c 70 |aces% . |.List$,p|
|000004d0| 25 2c 31 29 3c 3e 22 20 | 22 20 8c 0d 01 c2 15 20 |%,1)<>" |" ..... |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 72 25 2b 3d 31 |        |   r%+=1|
|000004f0| 0d 01 cc 19 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00000500| 73 70 61 63 65 73 25 3d | a3 0d 01 d6 0d 20 20 20 |spaces%=|.....   |
|00000510| 20 20 20 20 20 cc 0d 01 | e0 2c 20 20 20 20 20 20 |     ...|.,      |
|00000520| 20 20 20 20 20 20 e7 20 | c1 4c 69 73 74 24 2c 70 |      . |.List$,p|
|00000530| 25 2c 31 29 3d 22 20 22 | 20 73 70 61 63 65 73 25 |%,1)=" "| spaces%|
|00000540| 3d b9 0d 01 ea 0d 20 20 | 20 20 20 20 20 20 cd 0d |=.....  |      ..|
|00000550| 01 f4 09 20 20 20 20 ed | 0d 01 fe 09 3d 72 25 2b |...    .|....=r%+|
|00000560| 31 0d 02 08 04 0d ff    |                         |1...... |        |
+--------+-------------------------+-------------------------+--------+--------+