/ Power-Programmierung / CD1.mdf / pascal / library / dos / bix / common.dec

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 7b 20 2a 2a 2a 2a 2a 20 | 46 72 6f 6d 20 43 4f 4d |{ ***** |From COM|
|00000010| 4d 4f 4e 2e 44 45 43 20 | 2a 2a 2a 2a 2a 20 7d 0d |MON.DEC |***** }.|
|00000020| 0d 0a 50 72 6f 63 65 64 | 75 72 65 20 53 77 69 74 |..Proced|ure Swit|
|00000030| 63 68 56 61 72 28 76 61 | 72 20 41 72 67 31 2c 41 |chVar(va|r Arg1,A|
|00000040| 72 67 32 3b 20 53 69 7a | 65 3a 49 6e 74 65 67 65 |rg2; Siz|e:Intege|
|00000050| 72 29 3b 66 6f 72 77 61 | 72 64 3b 0d 0d 0a 46 75 |r);forwa|rd;...Fu|
|00000060| 6e 63 74 69 6f 6e 20 20 | 49 6e 74 70 6f 77 65 72 |nction  |Intpower|
|00000070| 28 6e 75 6d 62 65 72 2c | 65 78 70 6f 6e 65 6e 74 |(number,|exponent|
|00000080| 3a 49 6e 74 65 67 65 72 | 29 3a 69 6e 74 65 67 65 |:Integer|):intege|
|00000090| 72 3b 66 6f 72 77 61 72 | 64 3b 0d 0d 0a 50 72 6f |r;forwar|d;...Pro|
|000000a0| 63 65 64 75 72 65 20 57 | 61 69 74 3b 66 6f 72 77 |cedure W|ait;forw|
|000000b0| 61 72 64 3b 0d 0d 0a 46 | 75 6e 63 74 69 6f 6e 20 |ard;...F|unction |
|000000c0| 20 4b 65 79 57 61 69 74 | 3a 42 79 74 65 3b 66 6f | KeyWait|:Byte;fo|
|000000d0| 72 77 61 72 64 3b 0d 0d | 0a 50 72 6f 63 65 64 75 |rward;..|.Procedu|
|000000e0| 72 65 20 53 65 74 5f 43 | 75 72 73 6f 72 28 63 3a |re Set_C|ursor(c:|
|000000f0| 62 79 74 65 29 3b 66 6f | 72 77 61 72 64 3b 0d 0d |byte);fo|rward;..|
|00000100| 0a 50 72 6f 63 65 64 75 | 72 65 20 57 68 65 72 65 |.Procedu|re Where|
|00000110| 53 63 72 28 76 61 72 20 | 78 2c 79 3a 42 79 74 65 |Scr(var |x,y:Byte|
|00000120| 29 3b 66 6f 72 77 61 72 | 64 3b 0d 0d 0a 50 72 6f |);forwar|d;...Pro|
|00000130| 63 65 64 75 72 65 20 46 | 6c 75 73 68 5f 6b 65 79 |cedure F|lush_key|
|00000140| 62 6f 61 72 64 3b 66 6f | 72 77 61 72 64 3b 0d 0d |board;fo|rward;..|
|00000150| 0a 46 75 6e 63 74 69 6f | 6e 20 20 53 61 76 65 4b |.Functio|n  SaveK|
|00000160| 62 64 3a 42 79 74 65 3b | 66 6f 72 77 61 72 64 3b |bd:Byte;|forward;|
|00000170| 0d 0d 0a 50 72 6f 63 65 | 64 75 72 65 20 53 65 74 |...Proce|dure Set|
|00000180| 4b 62 64 28 53 74 61 74 | 75 73 3a 42 79 74 65 29 |Kbd(Stat|us:Byte)|
|00000190| 3b 66 6f 72 77 61 72 64 | 3b 0d 0d 0a 50 72 6f 63 |;forward|;...Proc|
|000001a0| 65 64 75 72 65 20 4c 6f | 63 6b 5f 44 65 74 65 63 |edure Lo|ck_Detec|
|000001b0| 74 3b 66 6f 72 77 61 72 | 64 3b 0d 0d 0a 46 75 6e |t;forwar|d;...Fun|
|000001c0| 63 74 69 6f 6e 20 20 53 | 74 72 69 6e 67 6f 66 28 |ction  S|tringof(|
|000001d0| 61 73 63 69 69 2c 6c 65 | 6e 3a 42 79 74 65 29 3a |ascii,le|n:Byte):|
|000001e0| 41 6e 79 53 74 72 3b 66 | 6f 72 77 61 72 64 3b 0d |AnyStr;f|orward;.|
|000001f0| 0d 0a 50 72 6f 63 65 64 | 75 72 65 20 57 68 69 63 |..Proced|ure Whic|
|00000200| 68 6c 69 6e 65 28 4c 69 | 6e 65 54 79 70 65 3a 42 |hline(Li|neType:B|
|00000210| 79 74 65 3b 0d 0d 0a 20 | 20 20 20 20 20 20 20 20 |yte;... |        |
|00000220| 20 76 61 72 20 68 6c 2c | 76 6c 2c 74 6c 2c 74 72 | var hl,|vl,tl,tr|
|00000230| 2c 62 6c 2c 62 72 2c 6c | 6a 2c 72 6a 2c 74 6a 2c |,bl,br,l|j,rj,tj,|
|00000240| 62 6a 2c 69 73 65 63 74 | 3a 42 79 74 65 29 3b 66 |bj,isect|:Byte);f|
|00000250| 6f 72 77 61 72 64 3b 0d | 0d 0a 50 72 6f 63 65 64 |orward;.|..Proced|
|00000260| 75 72 65 20 56 4c 69 6e | 65 28 63 6f 6c 2c 72 6f |ure VLin|e(col,ro|
|00000270| 77 2c 61 73 63 69 69 2c | 6c 69 6d 69 74 3a 42 79 |w,ascii,|limit:By|
|00000280| 74 65 29 3b 66 6f 72 77 | 61 72 64 3b 0d 0d 0a 50 |te);forw|ard;...P|
|00000290| 72 6f 63 65 64 75 72 65 | 20 48 69 67 68 6c 69 67 |rocedure| Highlig|
|000002a0| 68 74 28 73 3a 41 6e 79 | 53 74 72 29 3b 66 6f 72 |ht(s:Any|Str);for|
|000002b0| 77 61 72 64 3b 0d 0d 0a | 50 72 6f 63 65 64 75 72 |ward;...|Procedur|
|000002c0| 65 20 44 69 6d 28 73 3a | 41 6e 79 53 74 72 29 3b |e Dim(s:|AnyStr);|
|000002d0| 66 6f 72 77 61 72 64 3b | 0d 0d 0a 50 72 6f 63 65 |forward;|...Proce|
|000002e0| 64 75 72 65 20 57 72 69 | 74 65 41 74 28 63 6f 6c |dure Wri|teAt(col|
|000002f0| 2c 72 6f 77 3a 49 6e 74 | 65 67 65 72 3b 41 74 74 |,row:Int|eger;Att|
|00000300| 72 69 62 3a 44 73 70 41 | 74 74 3b 73 3a 41 6e 79 |rib:DspA|tt;s:Any|
|00000310| 53 74 72 29 3b 66 6f 72 | 77 61 72 64 3b 0d 0d 0a |Str);for|ward;...|
|00000320| 46 75 6e 63 74 69 6f 6e | 20 20 46 4b 65 79 52 65 |Function|  FKeyRe|
|00000330| 73 70 28 4c 6f 77 6c 6d | 74 2c 55 70 6c 6d 74 3a |sp(Lowlm|t,Uplmt:|
|00000340| 42 79 74 65 29 3a 42 79 | 74 65 3b 66 6f 72 77 61 |Byte):By|te;forwa|
|00000350| 72 64 3b 0d 0d 0a 50 72 | 6f 63 65 64 75 72 65 20 |rd;...Pr|ocedure |
|00000360| 4e 75 6d 49 6e 70 75 74 | 28 63 6f 6c 2c 72 6f 77 |NumInput|(col,row|
|00000370| 2c 6c 65 6e 3a 42 79 74 | 65 3b 48 69 4c 6f 3a 44 |,len:Byt|e;HiLo:D|
|00000380| 73 70 41 74 74 3b 76 61 | 72 20 52 65 74 75 72 6e |spAtt;va|r Return|
|00000390| 53 74 72 3a 41 6e 79 53 | 74 72 29 3b 66 6f 72 77 |Str:AnyS|tr);forw|
|000003a0| 61 72 64 3b 0d 0d 0a 50 | 72 6f 63 65 64 75 72 65 |ard;...P|rocedure|
|000003b0| 20 41 6c 70 68 61 49 6e | 70 75 74 28 63 6f 6c 2c | AlphaIn|put(col,|
|000003c0| 72 6f 77 2c 6c 65 6e 3a | 42 79 74 65 3b 48 69 4c |row,len:|Byte;HiL|
|000003d0| 6f 3a 44 73 70 41 74 74 | 3b 76 61 72 20 52 65 74 |o:DspAtt|;var Ret|
|000003e0| 75 72 6e 53 74 72 3a 41 | 6e 79 53 74 72 29 3b 66 |urnStr:A|nyStr);f|
|000003f0| 6f 72 77 61 72 64 3b 0d | 0d 0a 1a 00 00 00 00 00 |orward;.|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 1a 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+