/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / archive / progs / swapcfs / !SwapCFS / Source

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 26 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |...&. >!|RunImage|
|00000010| 20 56 65 72 73 69 6f 6e | 20 31 2e 30 30 20 32 30 | Version| 1.00 20|
|00000020| 2f 30 39 2f 39 32 0d 00 | 14 05 3a 0d 00 1e 38 f4 |/09/92..|..:...8.|
|00000030| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000060| 2a 2a 2a 0d 00 28 38 f4 | 20 2a 20 54 68 69 73 20 |***..(8.| * This |
|00000070| 50 72 6f 67 72 61 6d 20 | 69 73 20 a9 20 43 6f 70 |Program |is . Cop|
|00000080| 79 72 69 67 68 74 20 41 | 6e 74 68 6f 6e 79 20 42 |yright A|nthony B|
|00000090| 72 69 6f 6e 20 31 39 39 | 32 20 2a 0d 00 32 38 f4 |rion 199|2 *..28.|
|000000a0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 0d 00 3c 05 3a | 0d 00 46 15 ee 20 85 20 |***..<.:|..F.. . |
|000000e0| f1 f6 24 3b 22 20 40 20 | 22 3b 9e 3a e0 0d 00 50 |..$;" @ |";.:...P|
|000000f0| 05 3a 0d 00 5a 1f de 20 | 76 61 6c 75 65 25 20 31 |.:..Z.. |value% 1|
|00000100| 30 32 34 2c 76 61 72 69 | 61 62 6c 65 25 20 32 35 |024,vari|able% 25|
|00000110| 36 0d 00 64 05 3a 0d 00 | 6e 25 f4 20 47 65 74 20 |6..d.:..|n%. Get |
|00000120| 70 61 72 61 6d 65 74 65 | 72 20 70 61 73 73 65 64 |paramete|r passed|
|00000130| 20 74 6f 20 70 72 6f 67 | 72 61 6d 0d 00 78 1e c8 | to prog|ram..x..|
|00000140| 99 22 4f 53 5f 47 65 74 | 45 6e 76 22 20 b8 20 70 |."OS_Get|Env" . p|
|00000150| 61 72 61 6d 65 74 65 72 | 24 0d 00 82 05 3a 0d 00 |arameter|$....:..|
|00000160| 8c 4b f4 20 47 65 74 20 | 74 68 65 20 73 74 72 69 |.K. Get |the stri|
|00000170| 6e 67 20 74 68 61 74 20 | 69 73 20 61 66 74 65 72 |ng that |is after|
|00000180| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 6e 61 6d | the pro|gram nam|
|00000190| 65 20 69 6e 20 74 68 65 | 20 70 61 72 61 6d 65 74 |e in the| paramet|
|000001a0| 65 72 20 73 74 72 69 6e | 67 0d 00 96 14 e3 20 63 |er strin|g..... c|
|000001b0| 6f 75 6e 74 25 20 3d 20 | 31 20 b8 20 33 0d 00 a0 |ount% = |1 . 3...|
|000001c0| 2a 70 6f 73 69 74 69 6f | 6e 25 20 3d 20 a7 70 61 |*positio|n% = .pa|
|000001d0| 72 61 6d 65 74 65 72 24 | 2c 22 20 22 2c 70 6f 73 |rameter$|," ",pos|
|000001e0| 69 74 69 6f 6e 25 29 0d | 00 aa 37 70 61 72 61 6d |ition%).|..7param|
|000001f0| 65 74 65 72 24 20 3d 20 | c2 70 61 72 61 6d 65 74 |eter$ = |.paramet|
|00000200| 65 72 24 2c a9 28 70 61 | 72 61 6d 65 74 65 72 24 |er$,.(pa|rameter$|
|00000210| 29 20 2d 20 70 6f 73 69 | 74 69 6f 6e 25 29 0d 00 |) - posi|tion%)..|
|00000220| b4 0c ed 20 63 6f 75 6e | 74 25 0d 00 be 05 3a 0d |... coun|t%....:.|
|00000230| 00 c8 3c f4 20 49 73 20 | 70 61 72 61 6d 65 74 65 |..<. Is |paramete|
|00000240| 72 20 61 20 73 79 73 74 | 65 6d 20 76 61 72 69 61 |r a syst|em varia|
|00000250| 62 6c 65 2c 20 69 66 20 | 69 74 20 69 73 20 67 65 |ble, if |it is ge|
|00000260| 74 20 69 74 73 20 76 61 | 6c 75 65 0d 00 d2 33 e7 |t its va|lue...3.|
|00000270| 20 c0 70 61 72 61 6d 65 | 74 65 72 24 2c 31 29 20 | .parame|ter$,1) |
|00000280| 3d 20 22 3c 22 20 80 20 | c2 70 61 72 61 6d 65 74 |= "<" . |.paramet|
|00000290| 65 72 24 2c 31 29 20 3d | 20 22 3e 22 20 8c 0d 00 |er$,1) =| ">" ...|
|000002a0| dc 2f 70 61 72 61 6d 65 | 74 65 72 24 20 3d 20 c1 |./parame|ter$ = .|
|000002b0| 70 61 72 61 6d 65 74 65 | 72 24 2c 32 2c a9 28 70 |paramete|r$,2,.(p|
|000002c0| 61 72 61 6d 65 74 65 72 | 24 29 2d 32 29 0d 00 e6 |arameter|$)-2)...|
|000002d0| 36 70 61 72 61 6d 65 74 | 65 72 24 3d a4 72 65 61 |6paramet|er$=.rea|
|000002e0| 64 5f 73 79 73 74 65 6d | 5f 76 61 72 69 61 62 6c |d_system|_variabl|
|000002f0| 65 5f 76 61 6c 75 65 28 | 70 61 72 61 6d 65 74 65 |e_value(|paramete|
|00000300| 72 24 29 0d 00 f0 05 cd | 0d 00 fa 05 3a 0d 01 04 |r$).....|....:...|
|00000310| 15 f4 20 47 65 74 20 43 | 75 72 72 65 6e 74 20 44 |.. Get C|urrent D|
|00000320| 49 52 0d 01 0e 17 43 75 | 72 72 65 6e 74 24 3d 70 |IR....Cu|rrent$=p|
|00000330| 61 72 61 6d 65 74 65 72 | 24 0d 01 18 05 3a 0d 01 |arameter|$....:..|
|00000340| 22 2e f4 20 52 65 6d 6f | 76 65 20 44 49 52 20 21 |".. Remo|ve DIR !|
|00000350| 53 77 61 70 43 46 53 20 | 66 72 6f 6d 20 74 68 65 |SwapCFS |from the|
|00000360| 20 63 75 72 72 65 6e 74 | 20 44 49 52 0d 01 2c 12 | current| DIR..,.|
|00000370| 43 25 3d a9 28 43 75 72 | 72 65 6e 74 24 29 0d 01 |C%=.(Cur|rent$)..|
|00000380| 36 05 f5 0d 01 40 16 43 | 24 3d c1 43 75 72 72 65 |6....@.C|$=.Curre|
|00000390| 6e 74 24 2c 43 25 2c 31 | 29 0d 01 4a 09 43 25 2d |nt$,C%,1|)..J.C%-|
|000003a0| 3d 31 0d 01 54 0e fd 20 | 43 24 20 3d 20 22 2e 22 |=1..T.. |C$ = "."|
|000003b0| 0d 01 5e 34 43 75 72 72 | 65 6e 74 24 3d c0 43 75 |..^4Curr|ent$=.Cu|
|000003c0| 72 72 65 6e 74 24 2c a9 | 28 43 75 72 72 65 6e 74 |rrent$,.|(Current|
|000003d0| 24 29 2d 28 a9 28 43 75 | 72 72 65 6e 74 24 29 2d |$)-(.(Cu|rrent$)-|
|000003e0| 43 25 29 29 0d 01 68 05 | 3a 0d 01 72 1d f4 20 47 |C%))..h.|:..r.. G|
|000003f0| 65 74 20 74 68 65 20 6f | 70 73 69 74 65 20 44 49 |et the o|psite DI|
|00000400| 52 20 6e 61 6d 65 0d 01 | 7c 1b e7 20 c0 43 75 72 |R name..||.. .Cur|
|00000410| 72 65 6e 74 24 2c 34 29 | 3d 22 43 46 53 23 22 20 |rent$,4)|="CFS#" |
|00000420| 8c 0d 01 86 21 44 69 72 | 24 3d c2 43 75 72 72 65 |....!Dir|$=.Curre|
|00000430| 6e 74 24 2c a9 28 43 75 | 72 72 65 6e 74 24 29 2d |nt$,.(Cu|rrent$)-|
|00000440| 34 29 0d 01 90 05 cc 0d | 01 9a 18 44 69 72 24 3d |4)......|...Dir$=|
|00000450| 22 43 46 53 23 22 2b 43 | 75 72 72 65 6e 74 24 0d |"CFS#"+C|urrent$.|
|00000460| 01 a4 05 cd 0d 01 ae 05 | 3a 0d 01 b8 1c f4 20 53 |........|:..... S|
|00000470| 77 61 70 20 74 68 65 20 | 66 69 6c 65 72 20 77 69 |wap the |filer wi|
|00000480| 6e 64 6f 77 73 0d 01 c2 | 1f ff 22 46 69 6c 65 72 |ndows...|.."Filer|
|00000490| 5f 43 6c 6f 73 65 44 69 | 72 20 22 2b 43 75 72 72 |_CloseDi|r "+Curr|
|000004a0| 65 6e 74 24 0d 01 cc 1a | ff 22 46 69 6c 65 72 5f |ent$....|."Filer_|
|000004b0| 4f 70 65 6e 44 69 72 20 | 22 2b 44 69 72 24 0d 01 |OpenDir |"+Dir$..|
|000004c0| d6 05 3a 0d 01 e0 05 e0 | 0d 01 ea 05 3a 0d 01 f4 |..:.....|....:...|
|000004d0| 28 f4 20 47 65 74 20 74 | 68 65 20 76 61 6c 75 65 |(. Get t|he value|
|000004e0| 20 6f 66 20 61 20 73 79 | 73 74 65 6d 20 76 61 72 | of a sy|stem var|
|000004f0| 69 61 62 6c 65 0d 01 fe | 2c dd 20 a4 72 65 61 64 |iable...|,. .read|
|00000500| 5f 73 79 73 74 65 6d 5f | 76 61 72 69 61 62 6c 65 |_system_|variable|
|00000510| 5f 76 61 6c 75 65 28 76 | 61 72 69 61 62 6c 65 24 |_value(v|ariable$|
|00000520| 29 0d 02 08 13 ea 20 76 | 61 6c 75 65 5f 6c 65 6e |)..... v|alue_len|
|00000530| 67 74 68 25 0d 02 12 1f | 24 76 61 72 69 61 62 6c |gth%....|$variabl|
|00000540| 65 25 20 3d 20 76 61 72 | 69 61 62 6c 65 24 20 2b |e% = var|iable$ +|
|00000550| 20 bd 30 0d 02 1c 41 c8 | 99 22 4f 53 5f 52 65 61 | .0...A.|."OS_Rea|
|00000560| 64 56 61 72 56 61 6c 22 | 2c 76 61 72 69 61 62 6c |dVarVal"|,variabl|
|00000570| 65 25 2c 76 61 6c 75 65 | 25 2c 31 30 32 34 2c 30 |e%,value|%,1024,0|
|00000580| 2c 33 20 b8 20 2c 2c 76 | 61 6c 75 65 5f 6c 65 6e |,3 . ,,v|alue_len|
|00000590| 67 74 68 25 0d 02 26 22 | 3f 28 76 61 6c 75 65 25 |gth%..&"|?(value%|
|000005a0| 20 2b 20 76 61 6c 75 65 | 5f 6c 65 6e 67 74 68 25 | + value|_length%|
|000005b0| 29 20 3d 20 31 33 0d 02 | 30 0d 3d 20 24 76 61 6c |) = 13..|0.= $val|
|000005c0| 75 65 25 0d ff          |                         |ue%..   |        |
+--------+-------------------------+-------------------------+--------+--------+