/ Garbo / Garbo.cdr / mac / progrmng / mlpmodul.sit / M2Lib / SYM / Clock.SYM

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 07 00 03 07 00 00 07 99 | 3d 07 06 a0 13 43 6c 6f |........|=....Clo|
|00000010| 63 6b 00 01 07 00 00 07 | 99 3d 07 06 a0 13 43 6c |ck......|.=....Cl|
|00000020| 6f 63 6b 00 03 13 53 59 | 53 54 45 4d 00 04 13 54 |ock...SY|STEM...T|
|00000030| 69 6d 65 00 13 47 65 74 | 54 69 6d 65 00 0a 13 54 |ime..Get|Time...T|
|00000040| 69 6d 65 00 0c 13 64 61 | 79 00 07 00 00 15 13 43 |ime...da|y......C|
|00000050| 41 52 44 49 4e 41 4c 00 | 13 6d 69 6e 75 74 65 00 |ARDINAL.|.minute.|
|00000060| 07 00 02 15 13 43 41 52 | 44 49 4e 41 4c 00 13 6d |.....CAR|DINAL..m|
|00000070| 69 6c 6c 69 73 65 63 6f | 6e 64 00 07 00 04 15 13 |illiseco|nd......|
|00000080| 43 41 52 44 49 4e 41 4c | 00 1e 07 00 06 11 13 47 |CARDINAL|.......G|
|00000090| 65 74 54 69 6d 65 00 07 | 00 01 11 17 10 13 54 69 |etTime..|......Ti|
|000000a0| 6d 65 00 18 02 00 20 50 | 52 4f 43 45 44 55 52 45 |me.... P|ROCEDURE|
|000000b0| 20 28 56 41 52 20 63 65 | 6c 6c 50 6f 69 6e 74 65 | (VAR ce|llPointe|
|000000c0| 72 29 3b 0d 0d 56 41 52 | 0d 20 20 20 61 64 64 45 |r);..VAR|.   addE|
|000000d0| 6e 74 72 79 2c 0d 20 20 | 20 61 6e 64 45 6e 74 72 |ntry,.  | andEntr|
|000000e0| 79 2c 0d 20 20 20 61 6e | 6f 6e 79 6d 6f 75 73 56 |y,.   an|onymousV|
|000000f0| 61 72 2c 0d 20 20 20 63 | 61 72 64 45 6e 74 72 79 |ar,.   c|ardEntry|
|00000100| 2c 0d 20 20 20 63 75 74 | 45 6e 74 72 79 2c 0d 20 |,.   cut|Entry,. |
|00000110| 20 20 64 69 76 45 6e 74 | 72 79 2c 0d 20 20 20 64 |  divEnt|ry,.   d|
|00000120| 6f 74 45 6e 74 72 79 2c | 0d 20 20 20 65 6f 66 45 |otEntry,|.   eofE|
|00000130| 6e 74 72 79 2c 0d 20 20 | 20 69 66 45 6e 74 72 79 |ntry,.  | ifEntry|
|00000140| 2c 0d 20 20 20 69 6e 74 | 45 6e 74 72 79 2c 0d 20 |,.   int|Entry,. |
|00000150| 20 20 6e 69 6c 45 6e 74 | 72 79 2c 0d 20 20 20 6d |  nilEnt|ry,.   m|
|00000160| 75 6c 45 6e 74 72 79 2c | 0d 20 20 20 70 72 65 66 |ulEntry,|.   pref|
|00000170| 69 78 4d 69 6e 75 73 2c | 0d 20 20 20 70 72 65 66 |ixMinus,|.   pref|
|00000180| 69 78 50 6c 75 73 2c 0d | 20 20 20 71 75 65 72 79 |ixPlus,.|   query|
|00000190| 45 6e 74 72 79 2c 0d 20 | 20 20 72 65 61 6c 45 6e |Entry,. |  realEn|
|000001a0| 74 72 79 2c 0d 20 20 20 | 73 75 62 45 6e 74 72 79 |try,.   |subEntry|
|000001b0| 2c 0d 20 20 20 74 61 62 | 6c 65 2c 0d 20 20 20 74 |,.   tab|le,.   t|
|000001c0| 72 75 65 45 6e 74 72 79 | 2c 0d 20 20 20 75 73 65 |rueEntry|,.   use|
|000001d0| 72 45 6e 74 72 79 3a 20 | 74 61 62 6c 65 50 6f 69 |rEntry: |tablePoi|
|000001e0| 6e 74 65 72 3b 0d 0d 20 | 20 20 6f 70 54 79 70 65 |nter;.. |  opType|
|000001f0| 53 74 72 69 6e 67 3a 20 | 41 52 52 41 59 20 6f 70 |String: |ARRAY op|
|00000200| 53 70 65 63 69 66 69 65 | 72 73 20 4f 46 20 41 52 |Specifie|rs OF AR|
|00000210| 52 41 59 20 5b 30 2e 2e | 32 5d 20 4f 46 20 43 48 |RAY [0..|2] OF CH|
|00000220| 41 52 3b 0d 20 20 20 28 | 2a 20 70 72 69 6e 74 61 |AR;.   (|* printa|
|00000230| 62 6c 65 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 6f |ble vers|ion of o|
|00000240| 70 65 72 61 74 6f 72 20 | 73 70 65 63 69 66 69 65 |perator |specifie|
|00000250| 72 73 20 2a 29 0d 0d 20 | 20 20 52 65 61 64 54 65 |rs *).. |  ReadTe|
|00000260| 72 6d 3a 20 4b 65 72 6e | 65 6c 52 65 61 64 54 65 |rm: Kern|elReadTe|
|00000270| 72 6d 50 72 6f 63 3b 0d | 20 20 20 73 74 72 65 61 |rmProc;.|   strea|
|00000280| 6d 50 72 6f 63 73 3a 20 | 4f 75 74 70 75 74 50 72 |mProcs: |OutputPr|
|00000290| 6f 63 73 3b 0d 20 20 20 | 0d 20 20 20 73 74 61 74 |ocs;.   |.   stat|
|000002a0| 3a 20 53 74 61 74 52 65 | 63 3b 20 28 2a 20 63 6f |: StatRe|c; (* co|
|000002b0| 6e 74 61 69 6e 73 20 67 | 6c 6f 62 61 6c 20 73 74 |ntains g|lobal st|
|000002c0| 61 74 69 73 74 69 63 73 | 20 2a 29 0d 0d 0d 28 2a |atistics| *)...(*|
|000002d0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 20 2a 29 0d 28 2a 20 69 |--------| *).(* i|
|000002f0| 6e 70 75 74 2f 6f 75 74 | 70 75 74 20 70 72 6f 63 |nput/out|put proc|
|00000300| 65 64 75 72 65 73 20 2a | 29 0d 28 2a 20 2d 2d 2d |edures *|).(* ---|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 20 2a 29 0d | 0d 50 52 4f 43 45 44 55 |---- *).|.PROCEDU|
|00000330| 52 45 20 49 6e 43 68 20 | 28 56 41 52 20 63 68 3a |RE InCh |(VAR ch:|
|00000340| 20 43 48 41 52 29 3b 0d | 28 2a 20 72 65 61 64 20 | CHAR);.|(* read |
|00000350| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 27 63 |the char|acter 'c|
|00000360| 68 27 20 66 72 6f 6d 20 | 74 68 65 20 63 75 72 72 |h' from |the curr|
|00000370| 65 6e 74 6c 79 20 61 63 | 74 69 76 65 20 73 6f 75 |ently ac|tive sou|
|00000380| 72 63 65 20 73 74 72 65 | 61 6d 2e 20 2a 29 0d 0d |rce stre|am. *)..|
|00000390| 50 52 4f 43 45 44 55 52 | 45 20 4f 75 74 43 68 20 |PROCEDUR|E OutCh |
|000003a0| 28 63 68 3a 20 43 48 41 | 52 29 3b 0d 28 2a 20 77 |(ch: CHA|R);.(* w|
|000003b0| 72 69 74 65 20 74 68 65 | 20 63 68 61 72 61 63 74 |rite the| charact|
|000003c0| 65 72 20 27 63 68 27 20 | 74 6f 20 74 68 65 20 63 |er 'ch' |to the c|
|000003d0| 75 72 72 65 6e 74 6c 79 | 20 61 63 74 69 76 65 20 |urrently| active |
|000003e0| 64 65 73 74 69 6e 61 74 | 69 6f 6e 20 73 74 72 65 |destinat|ion stre|
|000003f0| 61 6d 2e 20 2a 29 0d 0d | 50 52 4f 43 45 44 55 52 |am. *)..|PROCEDUR|
+--------+-------------------------+-------------------------+--------+--------+