/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / Blib / OS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 0e 2a 7c 73 74 | 61 72 74 20 4f 53 0d 00 |....*|st|art OS..|
|00000010| 02 11 2a 7c 21 4f 53 20 | 4c 69 62 72 61 72 79 0d |..*|!OS |Library.|
|00000020| 00 03 07 2a 7c 21 0d 00 | 04 34 2a 7c 21 56 65 72 |...*|!..|.4*|!Ver|
|00000030| 73 69 6f 6e 20 31 2e 32 | 30 20 2d 20 28 43 29 20 |sion 1.2|0 - (C) |
|00000040| 49 61 6e 20 50 61 6c 6d | 65 72 2c 20 31 73 74 20 |Ian Palm|er, 1st |
|00000050| 4d 61 72 63 68 20 31 39 | 39 33 0d 00 05 07 2a 7c |March 19|93....*||
|00000060| 21 0d 00 06 42 2a 7c 21 | 54 68 69 73 20 6c 69 62 |!...B*|!|This lib|
|00000070| 72 61 72 79 20 73 75 70 | 70 6c 69 65 73 20 73 6f |rary sup|plies so|
|00000080| 6d 65 20 67 65 6e 65 72 | 61 6c 20 72 6f 75 74 69 |me gener|al routi|
|00000090| 6e 65 73 20 77 68 69 63 | 68 20 77 69 6c 6c 20 63 |nes whic|h will c|
|000000a0| 6f 6d 65 0d 00 07 11 2a | 7c 21 69 6e 20 75 73 65 |ome....*||!in use|
|000000b0| 66 75 6c 2e 0d 00 08 04 | 0d 00 09 0d 2a 7c 73 74 |ful.....|....*|st|
|000000c0| 6f 70 20 4f 53 0d 00 0a | 17 2a 7c 73 74 61 72 74 |op OS...|.*|start|
|000000d0| 20 50 52 4f 43 67 65 74 | 5f 65 6e 76 0d 00 0b 2b | PROCget|_env...+|
|000000e0| 2a 7c 21 50 52 4f 43 67 | 65 74 5f 65 6e 76 28 20 |*|!PROCg|et_env( |
|000000f0| 73 74 72 69 6e 67 20 2c | 20 6c 69 6d 69 74 20 2c |string ,| limit ,|
|00000100| 20 74 69 6d 65 20 29 0d | 00 0c 07 2a 7c 21 0d 00 | time ).|...*|!..|
|00000110| 0d 3f 2a 7c 21 50 6c 61 | 63 65 73 20 74 68 65 20 |.?*|!Pla|ces the |
|00000120| 63 61 6c 6c 69 6e 67 20 | 73 74 61 72 20 63 6f 6d |calling |star com|
|00000130| 6d 61 6e 64 20 69 6e 20 | 74 68 65 20 27 73 74 72 |mand in |the 'str|
|00000140| 69 6e 67 27 2c 20 74 68 | 65 20 52 41 4d 0d 00 0e |ing', th|e RAM...|
|00000150| 31 2a 7c 21 6c 69 6d 69 | 74 20 69 6e 20 27 6c 69 |1*|!limi|t in 'li|
|00000160| 6d 69 74 27 20 61 6e 64 | 20 73 74 61 72 74 20 74 |mit' and| start t|
|00000170| 69 6d 65 20 69 6e 20 27 | 74 69 6d 65 27 2e 0d 00 |ime in '|time'...|
|00000180| 0f 1d dd f2 67 65 74 5f | 65 6e 76 28 f8 20 45 24 |....get_|env(. E$|
|00000190| 2c f8 20 4c 25 2c f8 20 | 54 25 29 0d 00 10 15 c8 |,. L%,. |T%).....|
|000001a0| 99 20 26 31 30 20 b8 20 | 45 24 2c 4c 25 2c 54 25 |. &10 . |E$,L%,T%|
|000001b0| 0d 00 11 05 e1 0d 00 12 | 04 0d 00 13 16 2a 7c 73 |........|.....*|s|
|000001c0| 74 6f 70 20 50 52 4f 43 | 67 65 74 5f 65 6e 76 0d |top PROC|get_env.|
|000001d0| 00 14 1c 2a 7c 73 74 61 | 72 74 20 50 52 4f 43 6f |...*|sta|rt PROCo|
|000001e0| 73 5f 70 75 74 73 74 72 | 69 6e 67 0d 00 15 2b 2a |s_putstr|ing...+*|
|000001f0| 7c 21 50 52 4f 43 6f 73 | 5f 70 75 74 73 74 72 69 ||!PROCos|_putstri|
|00000200| 6e 67 28 20 70 6f 69 6e | 74 65 72 20 2c 20 73 74 |ng( poin|ter , st|
|00000210| 72 69 6e 67 20 29 0d 00 | 16 07 2a 7c 21 0d 00 17 |ring )..|..*|!...|
|00000220| 3f 2a 7c 21 43 6f 70 69 | 65 73 20 73 74 72 69 6e |?*|!Copi|es strin|
|00000230| 67 20 74 6f 20 6d 65 6d | 6f 72 79 20 70 6f 69 6e |g to mem|ory poin|
|00000240| 74 65 64 20 74 6f 20 62 | 79 20 70 6f 69 6e 74 65 |ted to b|y pointe|
|00000250| 72 2c 20 77 69 74 68 20 | 4e 55 4c 4c 0d 00 18 13 |r, with |NULL....|
|00000260| 2a 7c 21 74 65 72 6d 69 | 6e 61 74 69 6f 6e 2e 0d |*|!termi|nation..|
|00000270| 00 19 19 dd f2 6f 73 5f | 70 75 74 73 74 72 69 6e |.....os_|putstrin|
|00000280| 67 28 50 25 2c 53 24 29 | 0d 00 1a 18 24 50 25 3d |g(P%,S$)|....$P%=|
|00000290| 53 24 3a 3f 28 50 25 2b | a9 28 53 24 29 29 3d 30 |S$:?(P%+|.(S$))=0|
|000002a0| 0d 00 1b 05 e1 0d 00 1c | 04 0d 00 1d 1b 2a 7c 73 |........|.....*|s|
|000002b0| 74 6f 70 20 50 52 4f 43 | 6f 73 5f 70 75 74 73 74 |top PROC|os_putst|
|000002c0| 72 69 6e 67 0d 00 1e 1a | 2a 7c 73 74 61 72 74 20 |ring....|*|start |
|000002d0| 46 4e 6f 73 5f 67 65 74 | 73 74 72 69 6e 67 0d 00 |FNos_get|string..|
|000002e0| 1f 20 2a 7c 21 46 4e 6f | 73 5f 67 65 74 73 74 72 |. *|!FNo|s_getstr|
|000002f0| 69 6e 67 28 20 70 6f 69 | 6e 74 65 72 20 29 0d 00 |ing( poi|nter )..|
|00000300| 20 07 2a 7c 21 0d 00 21 | 42 2a 7c 21 52 65 74 75 | .*|!..!|B*|!Retu|
|00000310| 72 6e 73 20 73 74 72 69 | 6e 67 20 74 61 6b 65 6e |rns stri|ng taken|
|00000320| 20 66 72 6f 6d 20 4e 55 | 4c 4c 20 74 65 72 6d 69 | from NU|LL termi|
|00000330| 6e 61 74 65 64 20 73 74 | 72 69 6e 67 20 70 6f 69 |nated st|ring poi|
|00000340| 6e 74 65 64 20 74 6f 0d | 00 22 12 2a 7c 21 62 79 |nted to.|.".*|!by|
|00000350| 20 70 6f 69 6e 74 65 72 | 2e 0d 00 23 16 dd a4 6f | pointer|...#...o|
|00000360| 73 5f 67 65 74 73 74 72 | 69 6e 67 28 50 25 29 0d |s_getstr|ing(P%).|
|00000370| 00 24 2b ea 20 53 24 3a | 53 24 3d 22 22 3a c8 95 |.$+. S$:|S$="":..|
|00000380| 20 3f 50 25 3e 33 31 20 | 53 24 2b 3d bd 28 3f 50 | ?P%>31 |S$+=.(?P|
|00000390| 25 29 3a 50 25 2b 3d 31 | 3a ce 0d 00 25 07 3d 53 |%):P%+=1|:...%.=S|
|000003a0| 24 0d 00 26 04 0d 00 27 | 19 2a 7c 73 74 6f 70 20 |$..&...'|.*|stop |
|000003b0| 46 4e 6f 73 5f 67 65 74 | 73 74 72 69 6e 67 0d 00 |FNos_get|string..|
|000003c0| 28 18 2a 7c 73 74 61 72 | 74 20 46 4e 6f 73 5f 72 |(.*|star|t FNos_r|
|000003d0| 65 61 64 76 61 72 0d 00 | 29 1f 2a 7c 21 46 4e 6f |eadvar..|).*|!FNo|
|000003e0| 73 5f 72 65 61 64 76 61 | 72 28 20 76 61 72 69 61 |s_readva|r( varia|
|000003f0| 62 6c 65 20 29 0d 00 2a | 07 2a 7c 21 0d 00 2b 28 |ble )..*|.*|!..+(|
|00000400| 2a 7c 21 52 65 61 64 73 | 20 74 68 65 20 67 69 76 |*|!Reads| the giv|
|00000410| 65 6e 20 73 79 73 74 65 | 6d 20 76 61 72 69 61 62 |en syste|m variab|
|00000420| 6c 65 2e 20 0d 00 2c 14 | dd a4 6f 73 5f 72 65 61 |le. ..,.|..os_rea|
|00000430| 64 76 61 72 28 56 24 29 | 0d 00 2d 08 ea 20 41 25 |dvar(V$)|..-.. A%|
|00000440| 0d 00 2e 23 f2 6f 73 5f | 70 75 74 73 74 72 69 6e |...#.os_|putstrin|
|00000450| 67 28 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 2c |g(_wimp_|buffer%,|
|00000460| 22 22 29 0d 00 2f 40 c8 | 99 20 26 32 30 30 32 33 |"")../@.|. &20023|
|00000470| 2c 56 24 2c 5f 77 69 6d | 70 5f 62 75 66 66 65 72 |,V$,_wim|p_buffer|
|00000480| 25 2c 32 35 36 2c 30 2c | 33 20 b8 20 2c 2c 41 25 |%,256,0,|3 . ,,A%|
|00000490| 3a 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 3f 41 |:_wimp_b|uffer%?A|
|000004a0| 25 3d 30 0d 00 30 21 3d | a4 6f 73 5f 67 65 74 73 |%=0..0!=|.os_gets|
|000004b0| 74 72 69 6e 67 28 5f 77 | 69 6d 70 5f 62 75 66 66 |tring(_w|imp_buff|
|000004c0| 65 72 25 29 0d 00 31 04 | 0d 00 32 17 2a 7c 73 74 |er%)..1.|..2.*|st|
|000004d0| 6f 70 20 46 4e 6f 73 5f | 72 65 61 64 76 61 72 0d |op FNos_|readvar.|
|000004e0| 00 33 1d 2a 7c 73 74 61 | 72 74 20 50 52 4f 43 6f |.3.*|sta|rt PROCo|
|000004f0| 73 5f 73 63 72 65 65 6e | 73 69 7a 65 0d 00 34 29 |s_screen|size..4)|
|00000500| 2a 7c 21 50 52 4f 43 6f | 73 5f 73 63 72 65 65 6e |*|!PROCo|s_screen|
|00000510| 73 69 7a 65 28 20 6d 61 | 78 5f 78 20 2c 20 6d 61 |size( ma|x_x , ma|
|00000520| 78 5f 79 20 29 0d 00 35 | 07 2a 7c 21 0d 00 36 43 |x_y )..5|.*|!..6C|
|00000530| 2a 7c 21 50 6c 61 63 65 | 73 20 58 20 61 6e 64 20 |*|!Place|s X and |
|00000540| 59 20 6c 69 6d 69 74 73 | 20 6f 66 20 63 75 72 72 |Y limits| of curr|
|00000550| 65 6e 74 20 73 63 72 65 | 65 6e 20 69 6e 74 6f 20 |ent scre|en into |
|00000560| 6d 61 78 5f 78 20 61 6e | 64 20 6d 61 78 5f 79 0d |max_x an|d max_y.|
|00000570| 00 37 19 2a 7c 21 49 4e | 54 45 47 45 52 20 76 61 |.7.*|!IN|TEGER va|
|00000580| 72 69 61 62 6c 65 73 2e | 0d 00 38 1e dd f2 6f 73 |riables.|..8...os|
|00000590| 5f 73 63 72 65 65 6e 73 | 69 7a 65 28 f8 20 58 25 |_screens|ize(. X%|
|000005a0| 2c f8 20 59 25 29 0d 00 | 39 0b ea 20 46 25 2c 50 |,. Y%)..|9.. F%,P|
|000005b0| 25 0d 00 3a 34 c8 99 20 | 26 33 35 2c 2d 31 2c 34 |%..:4.. |&35,-1,4|
|000005c0| 20 b8 20 2c 2c 46 25 3a | c8 99 20 26 33 35 2c 2d | . ,,F%:|.. &35,-|
|000005d0| 31 2c 31 31 20 b8 20 2c | 2c 50 25 3a 58 25 3d 50 |1,11 . ,|,P%:X%=P|
|000005e0| 25 3c 3c 46 25 0d 00 3b | 34 c8 99 20 26 33 35 2c |%<<F%..;|4.. &35,|
|000005f0| 2d 31 2c 35 20 b8 20 2c | 2c 46 25 3a c8 99 20 26 |-1,5 . ,|,F%:.. &|
|00000600| 33 35 2c 2d 31 2c 31 32 | 20 b8 20 2c 2c 50 25 3a |35,-1,12| . ,,P%:|
|00000610| 59 25 3d 50 25 3c 3c 46 | 25 0d 00 3c 05 e1 0d 00 |Y%=P%<<F|%..<....|
|00000620| 3d 04 0d 00 3e 1c 2a 7c | 73 74 6f 70 20 50 52 4f |=...>.*||stop PRO|
|00000630| 43 6f 73 5f 73 63 72 65 | 65 6e 73 69 7a 65 0d 00 |Cos_scre|ensize..|
|00000640| 3f 1e 2a 7c 73 74 61 72 | 74 20 46 4e 6f 73 5f 73 |?.*|star|t FNos_s|
|00000650| 63 72 65 65 6e 63 6f 6c | 6f 75 72 73 0d 00 40 19 |creencol|ours..@.|
|00000660| 2a 7c 21 46 4e 6f 73 5f | 73 63 72 65 65 6e 63 6f |*|!FNos_|screenco|
|00000670| 6c 6f 75 72 73 0d 00 41 | 07 2a 7c 21 0d 00 42 3a |lours..A|.*|!..B:|
|00000680| 2a 7c 21 52 65 74 75 72 | 6e 73 20 74 68 65 20 6e |*|!Retur|ns the n|
|00000690| 75 6d 62 65 72 20 6f 66 | 20 63 6f 6c 6f 75 72 73 |umber of| colours|
|000006a0| 20 66 6f 72 20 74 68 65 | 20 63 75 72 72 65 6e 74 | for the| current|
|000006b0| 20 6d 6f 64 65 2e 0d 00 | 43 16 dd a4 6f 73 5f 73 | mode...|C...os_s|
|000006c0| 63 72 65 65 6e 63 6f 6c | 6f 75 72 73 0d 00 44 1b |creencol|ours..D.|
|000006d0| ea 20 43 25 3a c8 99 20 | 26 33 35 2c 2d 31 2c 33 |. C%:.. |&35,-1,3|
|000006e0| 20 b8 20 2c 2c 43 25 0d | 00 45 07 3d 43 25 0d 00 | . ,,C%.|.E.=C%..|
|000006f0| 46 04 0d 00 47 1d 2a 7c | 73 74 6f 70 20 46 4e 6f |F...G.*||stop FNo|
|00000700| 73 5f 73 63 72 65 65 6e | 63 6f 6c 6f 75 72 73 0d |s_screen|colours.|
|00000710| 00 48 17 2a 7c 73 74 61 | 72 74 20 50 52 4f 43 6f |.H.*|sta|rt PROCo|
|00000720| 73 5f 61 72 67 73 0d 00 | 49 12 2a 7c 21 50 52 4f |s_args..|I.*|!PRO|
|00000730| 43 6f 73 5f 61 72 67 73 | 0d 00 4a 07 2a 7c 21 0d |Cos_args|..J.*|!.|
|00000740| 00 4b 50 2a 7c 21 54 68 | 69 73 20 70 72 6f 63 65 |.KP*|!Th|is proce|
|00000750| 64 75 72 65 2c 20 77 68 | 69 63 68 20 73 68 6f 75 |dure, wh|ich shou|
|00000760| 6c 64 20 6f 6e 6c 79 20 | 62 65 20 63 61 6c 6c 65 |ld only |be calle|
|00000770| 64 20 6f 6e 63 65 2c 20 | 73 65 74 73 20 75 70 20 |d once, |sets up |
|00000780| 61 6e 20 61 72 72 61 79 | 20 28 77 68 69 63 68 0d |an array| (which.|
|00000790| 00 4c 52 2a 7c 21 69 74 | 20 63 72 65 61 74 65 73 |.LR*|!it| creates|
|000007a0| 29 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |) contai|ning the|
|000007b0| 20 61 72 67 75 6d 65 6e | 74 73 20 67 69 76 65 6e | argumen|ts given|
|000007c0| 20 6f 6e 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | on the |command |
|000007d0| 6c 69 6e 65 20 74 68 61 | 74 20 73 74 61 72 74 65 |line tha|t starte|
|000007e0| 64 0d 00 4d 3a 2a 7c 21 | 74 68 65 20 70 72 6f 67 |d..M:*|!|the prog|
|000007f0| 72 61 6d 2e 20 41 66 74 | 65 72 20 63 61 6c 6c 69 |ram. Aft|er calli|
|00000800| 6e 67 20 74 77 6f 20 74 | 68 69 6e 67 73 20 61 72 |ng two t|hings ar|
|00000810| 65 20 64 65 66 69 6e 65 | 64 20 3a 0d 00 4e 07 2a |e define|d :..N.*|
|00000820| 7c 21 0d 00 4f 4e 2a 7c | 21 20 20 61 72 67 63 25 ||!..ON*||!  argc%|
|00000830| 20 20 20 2d 20 20 63 6f | 6e 74 61 69 6e 73 20 74 |   -  co|ntains t|
|00000840| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 72 67 |he numbe|r of arg|
|00000850| 75 6d 65 6e 74 73 20 67 | 69 76 65 6e 2c 20 69 65 |uments g|iven, ie|
|00000860| 2e 20 31 20 3d 20 31 20 | 61 72 67 75 6d 65 6e 74 |. 1 = 1 |argument|
|00000870| 0d 00 50 4f 2a 7c 21 20 | 20 61 72 67 76 24 28 29 |..PO*|! | argv$()|
|00000880| 20 2d 20 20 61 72 67 76 | 24 28 30 29 20 63 6f 6e | -  argv|$(0) con|
|00000890| 74 61 69 6e 73 20 74 68 | 65 20 63 6f 6d 6d 61 6e |tains th|e comman|
|000008a0| 64 20 6c 69 6e 65 20 75 | 70 74 6f 20 28 62 75 74 |d line u|pto (but|
|000008b0| 20 6e 6f 74 20 69 6e 63 | 6c 75 64 69 6e 67 29 0d | not inc|luding).|
|000008c0| 00 51 30 2a 7c 21 20 20 | 20 20 20 20 20 20 20 20 |.Q0*|!  |        |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 68 65 20 |        |    the |
|000008e0| 66 69 72 73 74 20 61 72 | 67 75 6d 65 6e 74 2e 0d |first ar|gument..|
|000008f0| 00 52 43 2a 7c 21 20 20 | 20 20 20 20 20 20 20 20 |.RC*|!  |        |
|00000900| 20 20 20 61 72 67 76 24 | 28 31 29 20 2d 3e 20 61 |   argv$|(1) -> a|
|00000910| 72 67 76 24 28 61 72 67 | 63 25 29 20 63 6f 6e 74 |rgv$(arg|c%) cont|
|00000920| 61 69 6e 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 |ain the |argument|
|00000930| 73 2e 0d 00 53 07 2a 7c | 21 0d 00 54 4d 2a 7c 21 |s...S.*||!..TM*|!|
|00000940| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 61 |This pro|cedure a|
|00000950| 73 73 75 6d 65 73 20 74 | 68 65 20 73 74 61 6e 64 |ssumes t|he stand|
|00000960| 61 72 64 20 63 61 6c 6c | 20 66 6f 72 20 42 61 73 |ard call| for Bas|
|00000970| 69 63 20 70 72 6f 67 72 | 61 6d 73 2c 20 61 6e 64 |ic progr|ams, and|
|00000980| 20 74 61 6b 65 73 0d 00 | 55 50 2a 7c 21 6f 6e 65 | takes..|UP*|!one|
|00000990| 20 28 6f 72 20 6d 6f 72 | 65 29 20 73 70 61 63 65 | (or mor|e) space|
|000009a0| 20 63 68 61 72 61 63 74 | 65 72 28 73 29 20 61 73 | charact|er(s) as|
|000009b0| 20 69 6e 64 69 63 61 74 | 69 6e 67 20 61 72 67 75 | indicat|ing argu|
|000009c0| 6d 65 6e 74 20 73 65 70 | 65 72 61 74 6f 72 73 20 |ment sep|erators |
|000009d0| 75 6e 6c 65 73 73 0d 00 | 56 2c 2a 7c 21 74 68 65 |unless..|V,*|!the|
|000009e0| 20 73 70 61 63 65 73 20 | 6f 63 63 75 72 65 20 62 | spaces |occure b|
|000009f0| 65 74 77 65 65 6e 20 71 | 75 6f 74 65 73 20 28 22 |etween q|uotes ("|
|00000a00| 29 2e 0d 00 57 0d dd f2 | 6f 73 5f 61 72 67 73 0d |)...W...|os_args.|
|00000a10| 00 58 14 ea 20 54 25 2c | 50 25 2c 51 25 2c 52 25 |.X.. T%,|P%,Q%,R%|
|00000a20| 2c 41 24 0d 00 59 0f c8 | 99 20 26 31 30 20 b8 20 |,A$..Y..|. &10 . |
|00000a30| 52 25 0d 00 5a 21 50 25 | 3d 52 25 3a 51 25 3d 30 |R%..Z!P%|=R%:Q%=0|
|00000a40| 3a f5 3a e7 20 3f 50 25 | 3d 33 34 20 8c 20 51 25 |:.:. ?P%|=34 . Q%|
|00000a50| 2b 3d 31 0d 00 5b 1e 50 | 25 2b 3d 31 3a fd 20 3f |+=1..[.P|%+=1:. ?|
|00000a60| 50 25 3c 33 32 20 84 20 | 51 25 3d 32 3a 54 25 3d |P%<32 . |Q%=2:T%=|
|00000a70| 30 0d 00 5c 17 f5 3a c8 | 95 20 3f 50 25 3d 33 32 |0..\..:.|. ?P%=32|
|00000a80| 20 50 25 2b 3d 31 3a ce | 0d 00 5d 0e e7 20 3f 50 | P%+=1:.|..].. ?P|
|00000a90| 25 3e 33 32 20 8c 0d 00 | 5e 23 20 20 54 25 2b 3d |%>32 ...|^#  T%+=|
|00000aa0| 31 3a 51 25 3d 30 3a f5 | 3a e7 20 3f 50 25 3d 33 |1:Q%=0:.|:. ?P%=3|
|00000ab0| 34 20 51 25 3d 31 2d 51 | 25 0d 00 5f 27 20 20 50 |4 Q%=1-Q|%.._'  P|
|00000ac0| 25 2b 3d 31 3a fd 20 3f | 50 25 3c 33 32 20 84 20 |%+=1:. ?|P%<32 . |
|00000ad0| 28 3f 50 25 3d 33 32 20 | 80 20 51 25 3d 30 29 20 |(?P%=32 |. Q%=0) |
|00000ae0| 0d 00 60 05 cd 0d 00 61 | 21 fd 20 3f 50 25 3c 33 |..`....a|!. ?P%<3|
|00000af0| 32 3a 61 72 67 63 25 3d | 54 25 3a de 20 61 72 67 |2:argc%=|T%:. arg|
|00000b00| 76 24 28 54 25 29 0d 00 | 62 2c 50 25 3d 52 25 3a |v$(T%)..|b,P%=R%:|
|00000b10| 51 25 3d 30 3a f5 3a 41 | 24 2b 3d bd 28 3f 50 25 |Q%=0:.:A|$+=.(?P%|
|00000b20| 29 3a e7 20 3f 50 25 3d | 33 34 20 8c 20 51 25 2b |):. ?P%=|34 . Q%+|
|00000b30| 3d 31 0d 00 63 2a 50 25 | 2b 3d 31 3a fd 20 3f 50 |=1..c*P%|+=1:. ?P|
|00000b40| 25 3c 33 32 20 84 20 51 | 25 3d 32 3a 61 72 67 76 |%<32 . Q|%=2:argv|
|00000b50| 24 28 30 29 3d 41 24 3a | 54 25 3d 30 0d 00 64 17 |$(0)=A$:|T%=0..d.|
|00000b60| f5 3a c8 95 20 3f 50 25 | 3d 33 32 20 50 25 2b 3d |.:.. ?P%|=32 P%+=|
|00000b70| 31 3a ce 0d 00 65 0e e7 | 20 3f 50 25 3e 33 32 20 |1:...e..| ?P%>32 |
|00000b80| 8c 0d 00 66 36 20 20 54 | 25 2b 3d 31 3a 51 25 3d |...f6  T|%+=1:Q%=|
|00000b90| 30 3a 41 24 3d 22 22 3a | f5 3a e7 20 3f 50 25 3d |0:A$="":|.:. ?P%=|
|00000ba0| 33 34 20 51 25 3d 31 2d | 51 25 3a 8b 20 41 24 2b |34 Q%=1-|Q%:. A$+|
|00000bb0| 3d bd 28 3f 50 25 29 0d | 00 67 33 20 20 50 25 2b |=.(?P%).|.g3  P%+|
|00000bc0| 3d 31 3a fd 20 3f 50 25 | 3c 33 32 20 84 20 28 3f |=1:. ?P%|<32 . (?|
|00000bd0| 50 25 3d 33 32 20 80 20 | 51 25 3d 30 29 3a 61 72 |P%=32 . |Q%=0):ar|
|00000be0| 67 76 24 28 54 25 29 3d | 41 24 0d 00 68 05 cd 0d |gv$(T%)=|A$..h...|
|00000bf0| 00 69 0c fd 20 3f 50 25 | 3c 33 32 0d 00 6a 05 e1 |.i.. ?P%|<32..j..|
|00000c00| 0d 00 6b 04 0d 00 6c 16 | 2a 7c 73 74 6f 70 20 50 |..k...l.|*|stop P|
|00000c10| 52 4f 43 6f 73 5f 61 72 | 67 73 0d 00 6d 16 2a 7c |ROCos_ar|gs..m.*||
|00000c20| 73 74 61 72 74 20 46 4e | 6f 73 5f 74 72 61 6e 73 |start FN|os_trans|
|00000c30| 0d 00 6e 33 2a 7c 21 46 | 4e 6f 73 5f 74 72 61 6e |..n3*|!F|Nos_tran|
|00000c40| 73 28 20 73 74 72 69 6e | 67 20 2c 20 73 70 61 63 |s( strin|g , spac|
|00000c50| 65 20 2c 20 63 74 72 6c | 20 2c 20 71 75 6f 74 65 |e , ctrl| , quote|
|00000c60| 73 20 29 0d 00 6f 07 2a | 7c 21 0d 00 70 4c 2a 7c |s )..o.*||!..pL*||
|00000c70| 21 50 65 72 66 6f 72 6d | 73 20 61 6e 20 4f 53 5f |!Perform|s an OS_|
|00000c80| 47 53 54 72 61 6e 73 20 | 6f 6e 20 74 68 65 20 67 |GSTrans |on the g|
|00000c90| 69 76 65 6e 20 73 74 72 | 69 6e 67 2c 20 72 65 74 |iven str|ing, ret|
|00000ca0| 75 72 6e 69 6e 67 20 74 | 68 65 20 72 65 73 75 6c |urning t|he resul|
|00000cb0| 74 2e 20 54 68 65 0d 00 | 71 2b 2a 7c 21 74 68 72 |t. The..|q+*|!thr|
|00000cc0| 65 65 20 62 6f 6f 6c 65 | 61 6e 20 66 6c 61 67 73 |ee boole|an flags|
|00000cd0| 20 61 72 65 20 61 73 20 | 66 6f 6c 6c 6f 77 73 20 | are as |follows |
|00000ce0| 3a 0d 00 72 07 2a 7c 21 | 0d 00 73 4e 2a 7c 21 20 |:..r.*|!|..sN*|! |
|00000cf0| 20 73 70 61 63 65 20 20 | 2d 20 20 69 66 20 54 52 | space  |-  if TR|
|00000d00| 55 45 20 6d 65 61 6e 73 | 20 74 68 65 20 74 72 61 |UE means| the tra|
|00000d10| 6e 73 6c 61 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |nslation| should |
|00000d20| 6f 63 63 75 72 65 20 75 | 70 20 74 6f 20 74 68 65 |occure u|p to the|
|00000d30| 20 66 69 72 73 74 0d 00 | 74 27 2a 7c 21 20 20 20 | first..|t'*|!   |
|00000d40| 20 20 20 20 20 20 20 20 | 20 73 70 61 63 65 20 69 |        | space i|
|00000d50| 6e 20 74 68 65 20 73 74 | 72 69 6e 67 2e 0d 00 75 |n the st|ring...u|
|00000d60| 49 2a 7c 21 20 20 63 74 | 72 6c 20 20 20 2d 20 20 |I*|!  ct|rl   -  |
|00000d70| 69 66 20 54 52 55 45 20 | 63 74 72 6c 20 63 6f 64 |if TRUE |ctrl cod|
|00000d80| 65 73 20 69 6e 20 74 68 | 65 20 73 74 72 69 6e 67 |es in th|e string|
|00000d90| 20 28 7c 2e 2e 2e 29 20 | 61 72 65 20 63 6f 6e 76 | (|...) |are conv|
|00000da0| 65 72 74 65 64 2c 0d 00 | 76 29 2a 7c 21 20 20 20 |erted,..|v)*|!   |
|00000db0| 20 20 20 20 20 20 20 20 | 20 69 66 20 46 41 4c 53 |        | if FALS|
|00000dc0| 45 20 74 68 65 79 20 61 | 72 65 20 6e 6f 74 2e 0d |E they a|re not..|
|00000dd0| 00 77 39 2a 7c 21 20 20 | 71 75 6f 74 65 73 20 2d |.w9*|!  |quotes -|
|00000de0| 20 20 69 66 20 54 52 55 | 45 20 71 75 6f 74 65 73 |  if TRU|E quotes|
|00000df0| 20 61 72 65 20 6c 65 66 | 74 20 69 6e 20 74 68 65 | are lef|t in the|
|00000e00| 20 73 74 72 69 6e 67 2c | 0d 00 78 2e 2a 7c 21 20 | string,|..x.*|! |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 46 41 |        |   if FA|
|00000e20| 4c 53 45 20 74 68 65 79 | 20 61 72 65 20 73 74 72 |LSE they| are str|
|00000e30| 69 70 70 65 64 2e 0d 00 | 79 07 2a 7c 21 0d 00 7a |ipped...|y.*|!..z|
|00000e40| 2d 2a 7c 21 54 68 69 73 | 20 66 75 6e 63 74 69 6f |-*|!This| functio|
|00000e50| 6e 20 75 73 65 73 20 74 | 68 65 20 6d 65 6d 6f 72 |n uses t|he memor|
|00000e60| 79 20 6c 69 62 72 61 72 | 79 2e 0d 00 7b 1b dd a4 |y librar|y...{...|
|00000e70| 6f 73 5f 74 72 61 6e 73 | 28 49 24 2c 53 25 2c 43 |os_trans|(I$,S%,C|
|00000e80| 25 2c 51 25 29 0d 00 7c | 0b ea 20 42 25 2c 46 25 |%,Q%)..||.. B%,F%|
|00000e90| 0d 00 7d 13 42 25 3d a4 | 6d 61 6c 6c 6f 63 28 32 |..}.B%=.|malloc(2|
|00000ea0| 35 36 29 0d 00 7e 3e 46 | 25 3d 32 35 36 2b 28 31 |56)..~>F|%=256+(1|
|00000eb0| 3c 3c 32 39 20 80 20 28 | 53 25 3c 3e 30 29 29 2b |<<29 . (|S%<>0))+|
|00000ec0| 28 31 3c 3c 33 30 20 80 | 20 28 43 25 3d 30 29 29 |(1<<30 .| (C%=0))|
|00000ed0| 2b 28 31 3c 3c 33 31 20 | 80 20 28 51 25 3d 30 29 |+(1<<31 |. (Q%=0)|
|00000ee0| 29 0d 00 7f 13 c8 99 20 | 26 32 37 2c 49 24 2c 42 |)...... |&27,I$,B|
|00000ef0| 25 2c 46 25 0d 00 80 22 | 49 24 3d a4 6f 73 5f 67 |%,F%..."|I$=.os_g|
|00000f00| 65 74 73 74 72 69 6e 67 | 28 42 25 29 3a f2 66 72 |etstring|(B%):.fr|
|00000f10| 65 65 28 42 25 29 0d 00 | 81 07 3d 49 24 0d 00 82 |ee(B%)..|..=I$...|
|00000f20| 15 2a 7c 73 74 6f 70 20 | 46 4e 6f 73 5f 74 72 61 |.*|stop |FNos_tra|
|00000f30| 6e 73 0d 00 83 06 20 20 | 0d ff                   |ns....  |..      |
+--------+-------------------------+-------------------------+--------+--------+