/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / xcmd_get.sit / GetVolume.Pas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 47 65 74 56 6f 6c | 75 6d 65 2e 50 61 73 00 |..GetVol|ume.Pas.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 04 c7 00 | 00 01 5c 9e 29 8c c8 9e |........|..\.)...|
|00000060| 29 8c c8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e6 83 00 00 |........|........|
|00000080| 7b 24 52 2d 7d 0d 7b 0d | 09 47 65 74 56 6f 6c 75 |{$R-}.{.|.GetVolu|
|00000090| 6d 65 20 2d 2d 20 41 6e | 20 48 79 70 65 72 43 61 |me -- An| HyperCa|
|000000a0| 72 64 20 58 46 43 4e 20 | 74 68 61 74 20 77 69 6c |rd XFCN |that wil|
|000000b0| 6c 20 72 65 74 75 72 6e | 20 74 68 65 20 76 6f 6c |l return| the vol|
|000000c0| 75 6d 65 20 6f 66 20 74 | 68 65 20 73 70 65 61 6b |ume of t|he speak|
|000000d0| 65 72 2e 0d 09 0d 09 09 | 57 72 69 74 74 65 6e 20 |er......|Written |
|000000e0| 62 79 20 53 74 65 76 65 | 6e 20 4b 69 65 6e 6c 65 |by Steve|n Kienle|
|000000f0| 2c 20 43 49 53 20 61 63 | 63 6f 75 6e 74 20 6e 75 |, CIS ac|count nu|
|00000100| 6d 62 65 72 20 37 32 33 | 33 30 2c 31 31 31 0d 09 |mber 723|30,111..|
|00000110| 0d 09 47 65 74 56 6f 6c | 75 6d 65 20 73 68 6f 75 |..GetVol|ume shou|
|00000120| 6c 64 20 62 65 20 63 61 | 6c 6c 65 64 20 69 6e 20 |ld be ca|lled in |
|00000130| 48 79 70 65 72 43 61 72 | 64 20 61 73 0d 09 09 47 |HyperCar|d as...G|
|00000140| 65 74 56 6f 6c 75 6d 65 | 28 29 0d 09 54 68 65 20 |etVolume|()..The |
|00000150| 70 61 72 65 6e 74 68 65 | 73 65 73 20 61 72 65 20 |parenthe|ses are |
|00000160| 72 65 71 75 69 72 65 64 | 2e 0d 09 0d 09 41 66 74 |required|.....Aft|
|00000170| 65 72 20 63 6f 6d 70 69 | 6c 69 6e 67 20 74 68 69 |er compi|ling thi|
|00000180| 73 20 70 72 6f 67 72 61 | 6d 2c 20 6c 69 6e 6b 20 |s progra|m, link |
|00000190| 69 74 20 77 69 74 68 20 | 74 68 65 20 47 65 74 56 |it with |the GetV|
|000001a0| 6f 6c 75 6d 65 2e 4c 69 | 6e 6b 2c 20 74 68 65 6e |olume.Li|nk, then|
|000001b0| 20 75 73 65 0d 09 52 65 | 73 45 64 69 74 20 74 6f | use..Re|sEdit to|
|000001c0| 20 6d 6f 76 65 20 74 68 | 65 20 58 46 43 4e 20 72 | move th|e XFCN r|
|000001d0| 65 73 6f 75 72 63 65 20 | 74 6f 20 74 68 65 20 61 |esource |to the a|
|000001e0| 70 70 72 6f 70 72 69 61 | 74 65 20 73 74 61 63 6b |ppropria|te stack|
|000001f0| 2e 20 20 4f 72 20 75 73 | 65 20 74 68 65 0d 09 47 |.  Or us|e the..G|
|00000200| 65 74 56 6f 6c 75 6d 65 | 2f 53 65 74 56 6f 6c 75 |etVolume|/SetVolu|
|00000210| 6d 65 20 73 74 61 63 6b | 27 73 20 49 6e 73 74 61 |me stack|'s Insta|
|00000220| 6c 6c 20 62 75 74 74 6f | 6e 2e 0d 09 0d 09 4e 4f |ll butto|n.....NO|
|00000230| 54 45 3a 20 20 66 6f 72 | 20 74 68 65 20 58 43 6d |TE:  for| the XCm|
|00000240| 64 47 6c 75 65 2e 69 6e | 63 20 66 69 6c 65 20 74 |dGlue.in|c file t|
|00000250| 6f 20 77 6f 72 6b 20 77 | 69 74 68 20 54 4d 4c 20 |o work w|ith TML |
|00000260| 50 61 73 63 61 6c 2c 20 | 61 20 66 65 77 20 0d 09 |Pascal, |a few ..|
|00000270| 09 20 20 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |.   modi|fication|
|00000280| 73 20 61 72 65 20 72 65 | 71 75 69 72 65 64 2e 0d |s are re|quired..|
|00000290| 7d 0d 0d 7b 24 53 20 47 | 65 74 56 6f 6c 75 6d 65 |}..{$S G|etVolume|
|000002a0| 20 7d 20 09 7b 20 53 65 | 67 6d 65 6e 74 20 6e 61 | } .{ Se|gment na|
|000002b0| 6d 65 20 6d 75 73 74 20 | 62 65 20 74 68 65 20 73 |me must |be the s|
|000002c0| 61 6d 65 20 61 73 20 74 | 68 65 20 63 6f 6d 6d 61 |ame as t|he comma|
|000002d0| 6e 64 20 6e 61 6d 65 2e | 20 7d 0d 0d 55 4e 49 54 |nd name.| }..UNIT|
|000002e0| 20 44 75 6d 6d 79 55 6e | 69 74 3b 0d 0d 49 4e 54 | DummyUn|it;..INT|
|000002f0| 45 52 46 41 43 45 0d 0d | 55 53 45 53 20 4d 61 63 |ERFACE..|USES Mac|
|00000300| 49 6e 74 66 2c 20 48 79 | 70 65 72 58 43 6d 64 3b |Intf, Hy|perXCmd;|
|00000310| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 45 4e 54 52 |..PROCED|URE ENTR|
|00000320| 59 50 4f 49 4e 54 28 70 | 61 72 61 6d 50 74 72 3a |YPOINT(p|aramPtr:|
|00000330| 20 58 43 6d 64 50 74 72 | 29 3b 0d 09 0d 49 4d 50 | XCmdPtr|);...IMP|
|00000340| 4c 45 4d 45 4e 54 41 54 | 49 4f 4e 0d 0d 50 52 4f |LEMENTAT|ION..PRO|
|00000350| 43 45 44 55 52 45 20 47 | 65 74 56 6f 6c 75 6d 65 |CEDURE G|etVolume|
|00000360| 28 70 61 72 61 6d 50 74 | 72 3a 20 58 43 6d 64 50 |(paramPt|r: XCmdP|
|00000370| 74 72 29 3b 20 46 4f 52 | 57 41 52 44 3b 0d 0d 20 |tr); FOR|WARD;.. |
|00000380| 20 50 52 4f 43 45 44 55 | 52 45 20 45 4e 54 52 59 | PROCEDU|RE ENTRY|
|00000390| 50 4f 49 4e 54 28 70 61 | 72 61 6d 50 74 72 3a 20 |POINT(pa|ramPtr: |
|000003a0| 58 43 6d 64 50 74 72 29 | 3b 0d 20 20 42 45 47 49 |XCmdPtr)|;.  BEGI|
|000003b0| 4e 0d 20 20 20 20 47 65 | 74 56 6f 6c 75 6d 65 28 |N.    Ge|tVolume(|
|000003c0| 70 61 72 61 6d 50 74 72 | 29 3b 0d 20 20 45 4e 44 |paramPtr|);.  END|
|000003d0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 |;..PROCE|DURE Get|
|000003e0| 56 6f 6c 75 6d 65 28 70 | 61 72 61 6d 50 74 72 3a |Volume(p|aramPtr:|
|000003f0| 20 58 43 6d 64 50 74 72 | 29 3b 0d 09 56 41 52 0d | XCmdPtr|);..VAR.|
|00000400| 09 09 6f 6c 64 56 6f 6c | 75 6d 65 20 3a 20 49 6e |..oldVol|ume : In|
|00000410| 74 65 67 65 72 20 3b 0d | 09 09 6c 6f 6c 64 56 6f |teger ;.|..loldVo|
|00000420| 6c 75 6d 65 20 3a 20 4c | 6f 6e 67 49 6e 74 20 3b |lume : L|ongInt ;|
|00000430| 0d 09 09 70 61 73 53 74 | 72 20 3a 20 53 74 72 32 |...pasSt|r : Str2|
|00000440| 35 35 20 3b 0d 0d 09 7b | 24 49 20 58 43 6d 64 47 |55 ;...{|$I XCmdG|
|00000450| 6c 75 65 2e 69 6e 63 20 | 7d 0d 0d 09 42 45 47 49 |lue.inc |}...BEGI|
|00000460| 4e 0d 09 09 47 65 74 53 | 6f 75 6e 64 56 6f 6c 20 |N...GetS|oundVol |
|00000470| 28 6f 6c 64 56 6f 6c 75 | 6d 65 29 20 3b 09 09 09 |(oldVolu|me) ;...|
|00000480| 09 09 09 7b 20 47 65 74 | 20 74 68 65 20 76 6f 6c |...{ Get| the vol|
|00000490| 75 6d 65 20 7d 0d 09 09 | 6c 6f 6c 64 56 6f 6c 75 |ume }...|loldVolu|
|000004a0| 6d 65 20 3a 3d 20 6f 6c | 64 56 6f 6c 75 6d 65 20 |me := ol|dVolume |
|000004b0| 3b 0d 09 09 70 61 73 53 | 74 72 20 3a 3d 20 4e 75 |;...pasS|tr := Nu|
|000004c0| 6d 54 6f 53 74 72 28 6c | 6f 6c 64 56 6f 6c 75 6d |mToStr(l|oldVolum|
|000004d0| 65 29 20 3b 09 09 09 09 | 7b 20 43 6f 6e 76 65 72 |e) ;....|{ Conver|
|000004e0| 74 20 6e 75 6d 62 65 72 | 20 74 6f 20 73 74 72 69 |t number| to stri|
|000004f0| 6e 67 20 7d 0d 09 09 70 | 61 72 61 6d 50 74 72 5e |ng }...p|aramPtr^|
|00000500| 2e 72 65 74 75 72 6e 56 | 61 6c 75 65 20 3a 3d 20 |.returnV|alue := |
|00000510| 50 61 73 54 6f 5a 65 72 | 6f 28 70 61 73 53 74 72 |PasToZer|o(pasStr|
|00000520| 29 20 3b 09 7b 20 52 65 | 74 75 72 6e 20 74 68 65 |) ;.{ Re|turn the|
|00000530| 20 76 61 6c 75 65 20 7d | 0d 09 45 4e 44 3b 0d 0d | value }|..END;..|
|00000540| 0d 45 4e 44 2e 0d 0d 00 | 00 00 00 00 00 00 00 00 |.END....|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000590| 0d 46 55 4e 43 54 49 4f | 4e 20 45 76 61 6c 45 78 |.FUNCTIO|N EvalEx|
|000005a0| 70 72 28 65 78 70 72 3a | 20 53 74 72 32 35 35 29 |pr(expr:| Str255)|
|000005b0| 0d 47 65 74 56 6f 6c 75 | 6d 65 2e 50 61 73 02 00 |.GetVolu|me.Pas..|
|000005c0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 01 00 |..TEXTED|IT......|
|000005d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 01 00 |..TEXTED|IT......|
|000005e0| 00 00 00 84 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 9e 1f be d8 00 00 | 04 c7 00 00 01 5c 72 20 |........|.....\r |
|00000600| 69 73 0d 20 20 20 61 20 | 68 61 6e 64 6c 65 20 74 |is.   a |handle t|
|00000610| 6f 20 61 20 7a 65 72 6f | 2d 74 65 72 6d 69 6e 61 |o a zero|-termina|
|00000620| 74 65 64 20 73 74 72 69 | 6e 67 2e 20 7d 0d 42 45 |ted stri|ng. }.BE|
|00000630| 47 49 4e 0d 20 20 57 49 | 54 48 20 70 61 72 61 6d |GIN.  WI|TH param|
|00000640| 50 74 72 5e 20 44 4f 0d | 20 20 20 20 42 45 47 49 |Ptr^ DO.|    BEGI|
|00000650| 4e 0d 20 20 20 20 20 20 | 69 6e 41 72 67 73 5b 31 |N.      |inArgs[1|
|00000660| 5d 20 3a 3d 20 4f 52 44 | 28 40 65 78 70 72 29 3b |] := ORD|(@expr);|
|00000670| 0d 20 20 20 20 20 20 72 | 65 71 75 65 73 74 20 3a |.      r|equest :|
|00000680| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 33 00 00 |.......M|onaco3..|
|00000690| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000006a0| 00 16 00 00 00 46 00 14 | 2a f8 05 26 00 00 00 1c |.....F..|*..&....|
|000006b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000006c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 14 40 ce |........|......@.|
|000006d0| 03 ec ff ff 00 00 00 0e | 00 14 40 d2 00 00 00 00 |........|..@.....|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+