/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / music / cdlike / BasLibrary / Args2

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 14 f4 20 3e 4c | 69 62 72 61 72 79 2e 41 |..... >L|ibrary.A|
|00000010| 72 67 73 32 0d 00 14 09 | f4 20 4a 75 67 0d 00 1e |rgs2....|. Jug...|
|00000020| 05 3a 0d 00 28 27 dd 20 | f2 69 6e 69 74 5f 61 72 |.:..('. |.init_ar|
|00000030| 67 73 28 74 6f 6b 65 6e | 73 61 66 74 65 72 62 61 |gs(token|safterba|
|00000040| 73 69 63 71 75 69 74 24 | 29 0d 00 32 0d ea 20 74 |sicquit$|)..2.. t|
|00000050| 6f 6b 65 6e 73 24 0d 00 | 3c 13 de 20 61 72 67 73 |okens$..|<.. args|
|00000060| 62 75 66 66 25 20 32 35 | 36 0d 00 46 1b 74 6f 6b |buff% 25|6..F.tok|
|00000070| 65 6e 73 24 3d 22 42 41 | 53 49 43 2c 71 75 69 74 |ens$="BA|SIC,quit|
|00000080| 2f 6b 73 22 0d 00 50 44 | e7 20 74 6f 6b 65 6e 73 |/ks"..PD|. tokens|
|00000090| 61 66 74 65 72 62 61 73 | 69 63 71 75 69 74 24 3c |afterbas|icquit$<|
|000000a0| 3e 22 22 20 8c 20 74 6f | 6b 65 6e 73 24 2b 3d 22 |>"" . to|kens$+="|
|000000b0| 2c 22 2b 74 6f 6b 65 6e | 73 61 66 74 65 72 62 61 |,"+token|safterba|
|000000c0| 73 69 63 71 75 69 74 24 | 0d 00 5a 28 f2 61 72 67 |sicquit$|..Z(.arg|
|000000d0| 73 5f 70 72 6f 63 65 73 | 73 28 61 72 67 73 62 75 |s_proces|s(argsbu|
|000000e0| 66 66 25 2c 32 35 36 2c | 74 6f 6b 65 6e 73 24 29 |ff%,256,|tokens$)|
|000000f0| 0d 00 64 05 e1 0d 00 6e | 05 3a 0d 00 78 20 dd 20 |..d....n|.:..x . |
|00000100| f2 61 72 67 73 5f 70 72 | 6f 63 65 73 73 28 61 62 |.args_pr|ocess(ab|
|00000110| 25 2c 61 6c 25 2c 6b 64 | 24 29 0d 00 82 09 ea 20 |%,al%,kd|$)..... |
|00000120| 65 6e 25 0d 00 8c 18 c8 | 99 20 22 4f 53 5f 47 65 |en%.....|. "OS_Ge|
|00000130| 74 45 6e 76 22 20 b8 20 | 65 6e 25 0d 00 96 14 61 |tEnv" . |en%....a|
|00000140| 72 67 73 5f 62 75 66 66 | 65 72 25 3d 61 62 25 0d |rgs_buff|er%=ab%.|
|00000150| 00 a0 14 61 72 67 73 5f | 6c 65 6e 67 74 68 25 3d |...args_|length%=|
|00000160| 61 6c 25 0d 00 aa 14 61 | 72 67 73 5f 6b 65 79 64 |al%....a|rgs_keyd|
|00000170| 65 66 24 3d 6b 64 24 0d | 00 b4 27 f2 61 72 67 73 |ef$=kd$.|..'.args|
|00000180| 5f 70 72 6f 63 65 73 73 | 67 69 76 65 6e 28 65 6e |_process|given(en|
|00000190| 25 2c 61 62 25 2c 61 6c | 25 2c 6b 64 24 29 0d 00 |%,ab%,al|%,kd$)..|
|000001a0| be 05 e1 0d 00 c8 05 3a | 0d 00 d2 29 dd 20 f2 61 |.......:|...). .a|
|000001b0| 72 67 73 5f 70 72 6f 63 | 65 73 73 67 69 76 65 6e |rgs_proc|essgiven|
|000001c0| 28 65 6e 25 2c 61 62 25 | 2c 61 6c 25 2c 6b 64 24 |(en%,ab%|,al%,kd$|
|000001d0| 29 0d 00 dc 24 c8 99 20 | 22 4f 53 5f 52 65 61 64 |)...$.. |"OS_Read|
|000001e0| 41 72 67 73 22 2c 6b 64 | 24 2c 65 6e 25 2c 61 62 |Args",kd|$,en%,ab|
|000001f0| 25 2c 61 6c 25 0d 00 e6 | 05 e1 0d 00 f0 05 3a 0d |%,al%...|......:.|
|00000200| 00 fa 1e dd 20 a4 61 72 | 67 73 5f 74 6f 6b 65 6e |.... .ar|gs_token|
|00000210| 28 61 62 25 2c 6b 64 24 | 2c 74 6b 24 29 0d 01 04 |(ab%,kd$|,tk$)...|
|00000220| 0e ea 20 6b 24 2c 6a 24 | 2c 6a 25 0d 01 0e 16 e7 |.. k$,j$|,j%.....|
|00000230| 20 a7 6b 64 24 2c 74 6b | 24 29 3d 30 20 8c 20 3d | .kd$,tk|$)=0 . =|
|00000240| 30 0d 01 18 10 6a 24 3d | a4 6c 6f 77 28 6b 64 24 |0....j$=|.low(kd$|
|00000250| 29 0d 01 22 08 6a 25 3d | 30 0d 01 2c 11 74 6b 24 |)..".j%=|0..,.tk$|
|00000260| 3d a4 6c 6f 77 28 74 6b | 24 29 0d 01 36 0f c8 95 |=.low(tk|$)..6...|
|00000270| 20 a7 6a 24 2c 22 2c 22 | 29 0d 01 40 17 20 6b 24 | .j$,","|)..@. k$|
|00000280| 3d c0 6a 24 2c a7 6a 24 | 2c 22 2c 22 29 2d 31 29 |=.j$,.j$|,",")-1)|
|00000290| 0d 01 4a 1d 20 e7 20 a7 | 6b 24 2c 74 6b 24 29 20 |..J. . .|k$,tk$) |
|000002a0| 8c 20 3d 61 62 25 21 28 | 6a 25 2a 34 29 0d 01 54 |. =ab%!(|j%*4)..T|
|000002b0| 17 20 6a 24 3d c1 6a 24 | 2c a7 6a 24 2c 22 2c 22 |. j$=.j$|,.j$,","|
|000002c0| 29 2b 31 29 0d 01 5e 0a | 20 6a 25 2b 3d 31 0d 01 |)+1)..^.| j%+=1..|
|000002d0| 68 05 ce 0d 01 72 1c e7 | 20 a7 6a 24 2c 74 6b 24 |h....r..| .j$,tk$|
|000002e0| 29 20 8c 20 3d 61 62 25 | 21 28 6a 25 2a 34 29 0d |) . =ab%|!(j%*4).|
|000002f0| 01 7c 06 3d 30 0d 01 86 | 05 3a 0d 01 90 22 dd 20 |.|.=0...|.:...". |
|00000300| a4 61 72 67 73 5f 74 6f | 6b 65 6e 74 65 78 74 28 |.args_to|kentext(|
|00000310| 61 62 25 2c 6b 64 24 2c | 74 6b 24 29 0d 01 9a 0b |ab%,kd$,|tk$)....|
|00000320| ea 20 6d 25 2c 74 24 0d | 01 a4 1f 6d 25 3d a4 61 |. m%,t$.|...m%=.a|
|00000330| 72 67 73 5f 74 6f 6b 65 | 6e 28 61 62 25 2c 6b 64 |rgs_toke|n(ab%,kd|
|00000340| 24 2c 74 6b 24 29 0d 01 | ae 21 e7 20 28 6d 25 80 |$,tk$)..|.!. (m%.|
|00000350| 26 46 46 30 30 30 30 30 | 30 29 20 84 20 6d 25 3d |&FF00000|0) . m%=|
|00000360| 30 20 8c 20 3d 22 22 0d | 01 b8 09 74 24 3d 22 22 |0 . ="".|...t$=""|
|00000370| 0d 01 c2 0d c8 95 20 3f | 6d 25 3e 33 31 0d 01 cc |...... ?|m%>31...|
|00000380| 0d 20 74 24 2b 3d bd 3f | 6d 25 0d 01 d6 0a 20 6d |. t$+=.?|m%.... m|
|00000390| 25 2b 3d 31 0d 01 e0 05 | ce 0d 01 ea 07 3d 74 24 |%+=1....|.....=t$|
|000003a0| 0d 01 f4 05 3a 0d 01 fe | 22 dd 20 a4 61 72 67 73 |....:...|". .args|
|000003b0| 5f 74 6f 6b 65 6e 65 76 | 61 6c 28 61 62 25 2c 6b |_tokenev|al(ab%,k|
|000003c0| 64 24 2c 74 6b 24 29 0d | 02 08 0b ea 20 6d 25 2c |d$,tk$).|.... m%,|
|000003d0| 74 24 0d 02 12 1f 6d 25 | 3d a4 61 72 67 73 5f 74 |t$....m%|=.args_t|
|000003e0| 6f 6b 65 6e 28 61 62 25 | 2c 6b 64 24 2c 74 6b 24 |oken(ab%|,kd$,tk$|
|000003f0| 29 0d 02 1c 20 e7 20 28 | 6d 25 80 26 46 46 30 30 |)... . (|m%.&FF00|
|00000400| 30 30 30 30 29 20 84 20 | 6d 25 3d 30 20 8c 20 3d |0000) . |m%=0 . =|
|00000410| 30 0d 02 26 09 6d 25 2b | 3d 31 0d 02 30 08 3d 21 |0..&.m%+|=1..0.=!|
|00000420| 6d 25 0d 02 3a 05 3a 0d | 02 44 4a dd 20 a4 61 72 |m%..:.:.|.DJ. .ar|
|00000430| 67 73 5f 74 6f 6b 65 6e | 74 65 78 74 32 28 74 6b |gs_token|text2(tk|
|00000440| 24 29 3d a4 61 72 67 73 | 5f 74 6f 6b 65 6e 74 65 |$)=.args|_tokente|
|00000450| 78 74 28 61 72 67 73 5f | 62 75 66 66 65 72 25 2c |xt(args_|buffer%,|
|00000460| 61 72 67 73 5f 6b 65 79 | 64 65 66 24 2c 74 6b 24 |args_key|def$,tk$|
|00000470| 29 0d 02 4e 05 3a 0d 02 | 58 42 dd 20 a4 61 72 67 |)..N.:..|XB. .arg|
|00000480| 73 5f 74 6f 6b 65 6e 32 | 28 74 6b 24 29 3d a4 61 |s_token2|(tk$)=.a|
|00000490| 72 67 73 5f 74 6f 6b 65 | 6e 28 61 72 67 73 5f 62 |rgs_toke|n(args_b|
|000004a0| 75 66 66 65 72 25 2c 61 | 72 67 73 5f 6b 65 79 64 |uffer%,a|rgs_keyd|
|000004b0| 65 66 24 2c 74 6b 24 29 | 0d 02 62 05 3a 0d 02 6c |ef$,tk$)|..b.:..l|
|000004c0| 4a dd 20 a4 61 72 67 73 | 5f 74 6f 6b 65 6e 65 76 |J. .args|_tokenev|
|000004d0| 61 6c 32 28 74 6b 24 29 | 3d a4 61 72 67 73 5f 74 |al2(tk$)|=.args_t|
|000004e0| 6f 6b 65 6e 65 76 61 6c | 28 61 72 67 73 5f 62 75 |okeneval|(args_bu|
|000004f0| 66 66 65 72 25 2c 61 72 | 67 73 5f 6b 65 79 64 65 |ffer%,ar|gs_keyde|
|00000500| 66 24 2c 74 6b 24 29 0d | 02 76 05 3a 0d 02 80 44 |f$,tk$).|.v.:...D|
|00000510| dd 20 a4 61 72 67 73 5f | 74 65 78 74 28 74 6b 24 |. .args_|text(tk$|
|00000520| 29 3d a4 61 72 67 73 5f | 74 6f 6b 65 6e 74 65 78 |)=.args_|tokentex|
|00000530| 74 28 61 72 67 73 5f 62 | 75 66 66 65 72 25 2c 61 |t(args_b|uffer%,a|
|00000540| 72 67 73 5f 6b 65 79 64 | 65 66 24 2c 74 6b 24 29 |rgs_keyd|ef$,tk$)|
|00000550| 0d 02 8a 05 3a 0d 02 94 | 3f dd 20 a4 61 72 67 73 |....:...|?. .args|
|00000560| 5f 74 6f 6b 28 74 6b 24 | 29 3d a4 61 72 67 73 5f |_tok(tk$|)=.args_|
|00000570| 74 6f 6b 65 6e 28 61 72 | 67 73 5f 62 75 66 66 65 |token(ar|gs_buffe|
|00000580| 72 25 2c 61 72 67 73 5f | 6b 65 79 64 65 66 24 2c |r%,args_|keydef$,|
|00000590| 74 6b 24 29 0d 02 9e 05 | 3a 0d 02 a8 44 dd 20 a4 |tk$)....|:...D. .|
|000005a0| 61 72 67 73 5f 65 76 61 | 6c 28 74 6b 24 29 3d a4 |args_eva|l(tk$)=.|
|000005b0| 61 72 67 73 5f 74 6f 6b | 65 6e 65 76 61 6c 28 61 |args_tok|eneval(a|
|000005c0| 72 67 73 5f 62 75 66 66 | 65 72 25 2c 61 72 67 73 |rgs_buff|er%,args|
|000005d0| 5f 6b 65 79 64 65 66 24 | 2c 74 6b 24 29 0d ff    |_keydef$|,tk$).. |
+--------+-------------------------+-------------------------+--------+--------+