SPACE 2

home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 183 / b09.cel < prev next >
Unknown | 1987-09-17 | 3.4 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Cyber Paint Cell `(image/cyberPaintCel)`	magic	Supported
`66%`	dexvert	Kisekae Set System Cell `(image/kissCel)`	ext	Supported
`1%`	dexvert	Animator PIC/CEL `(image/animatorPICCEL)`	ext	Unsupported
`100%`	file	data	default
`57%`	TrID	Cyber Paint Cell animation	default
`28%`	TrID	Atari XE Executable	default (weak)
`14%`	TrID	MP3 audio	default (weak)
`100%`	dexmagic	ZZT World	default (weak)
`100%`	gt2	MPEG 1 layer 1 Datei	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff ff 00 00 00 00 07 00 | 01 11 01 11 02 22 02 22 |........|....."."|
|00000010| 03 33 03 33 04 44 04 44 | 05 55 05 55 06 66 06 66 |.3.3.D.D|.U.U.f.f|
|00000020| 07 77 07 77 00 00 00 00 | 00 00 00 00 00 00 00 00 |.w.w....|........|
|00000030| 00 00 00 00 00 00 00 52 | 00 0d 00 4d 00 46 00 00 |.......R|...M.F..|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 0f fb 00 03 00 00 00 00 | 5c 00 5c 00 00 00 00 00 |........|\.\.....|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | ff ff 0c 03 08 00 00 00 |........|........|
|000000e0| ff f4 dd 74 00 80 00 00 | 00 00 00 00 00 00 00 00 |...t....|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 0f 00 00 00 00 00 00 |........|........|
|00000100| ff ff 78 05 3b 00 40 00 | ff ff 95 f7 00 07 00 08 |..x.;.@.|........|
|00000110| ff 80 1f 80 58 00 e0 00 | 00 00 00 00 00 00 00 00 |....X...|........|
|00000120| 00 3f 00 03 00 00 00 03 | ff ff fc 03 64 00 18 00 |.?......|....d...|
|00000130| ff ff d4 f2 00 0e 00 01 | ff ff 56 c6 f7 39 08 00 |........|..V..9..|
|00000140| c0 00 c0 00 00 00 00 00 | 00 ff 00 1f 00 03 00 1c |........|........|
|00000150| ff ff ec 01 ee 00 10 00 | ff ff 8d c9 00 3b 00 04 |........|.....;..|
|00000160| ff ff 8a ff da e0 25 00 | ff e0 49 e0 b6 00 00 00 |......%.|..I.....|
|00000170| 03 ff 00 37 00 40 00 3d | ff ff fc 02 79 80 84 00 |...7.@.=|....y...|
|00000180| ff ff be 62 01 cb 00 34 | ff ff c6 26 d7 f9 38 00 |...b...4|...&..8.|
|00000190| ff e0 5c 60 a3 80 00 00 | 0f ff 01 ff 00 02 00 39 |..\`....|.......9|
|000001a0| ff ff fa 00 30 60 cc 00 | fc ff dc c1 00 bf 00 e0 |....0`..|........|
|000001b0| ff ff 0d 7b b9 64 46 90 | ff e0 ff 60 00 80 00 00 |...{.dF.|...`....|
|000001c0| 1f ff 03 fd 00 24 00 3b | ff ff 7f 83 30 00 cc 00 |.....$.;|....0...|
|000001d0| ff ff fd 84 01 df 02 20 | ff ff 64 46 44 f9 bb 00 |....... |..dFD...|
|000001e0| ff e0 84 00 7b e0 00 00 | 3f ff 0f fe 00 00 00 3f |....{...|?......?|
|000001f0| ff ff ff 01 1c 80 e4 00 | ff ff eb b7 00 df 03 00 |........|........|
|00000200| 65 74 73 74 74 69 6d 65 | 20 28 56 41 52 0d 0a 20 |etsttime| (VAR.. |
|00000210| 20 20 20 20 54 69 6d 65 | 20 3a 20 53 54 52 49 4e |    Time| : STRIN|
|00000220| 47 29 20 3b 0d 0a 0d 0a | 7b 20 20 20 20 52 65 74 |G) ;....|{    Ret|
|00000230| 75 72 6e 73 20 74 68 65 | 20 73 79 73 74 65 6d 20 |urns the| system |
|00000240| 74 69 6d 65 20 69 6e 20 | 74 68 65 20 66 6f 72 6d |time in |the form|
|00000250| 20 6f 66 20 27 48 48 3a | 4d 4d 3a 53 53 20 5f 4d | of 'HH:|MM:SS _M|
|00000260| 27 2c 20 7d 0d 0a 7b 20 | 77 68 65 72 65 20 48 48 |', }..{ |where HH|
|00000270| 20 69 73 20 68 6f 75 72 | 73 2c 20 4d 4d 20 69 73 | is hour|s, MM is|
|00000280| 20 6d 69 6e 75 74 65 73 | 2c 20 53 53 20 69 73 20 | minutes|, SS is |
|00000290| 73 65 63 6f 6e 64 73 2c | 20 61 6e 64 20 5f 20 20 |seconds,| and _  |
|000002a0| 20 7d 0d 0a 7b 20 69 73 | 20 41 20 6f 72 20 50 2e | }..{ is| A or P.|
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d |        |       }|
|000002e0| 0d 0a 0d 0a 56 41 52 0d | 0a 20 20 20 58 6c 20 3a |....VAR.|.   Xl :|
|000002f0| 20 4c 4f 4e 47 5f 49 4e | 54 45 47 45 52 20 3b 0d | LONG_IN|TEGER ;.|
|00000300| 0a 20 20 20 48 6f 75 72 | 73 2c 20 4d 69 6e 75 74 |.   Hour|s, Minut|
|00000310| 65 73 2c 20 53 65 63 6f | 6e 64 73 20 3a 20 4c 4f |es, Seco|nds : LO|
|00000320| 4e 47 5f 49 4e 54 45 47 | 45 52 20 3b 0d 0a 0d 0a |NG_INTEG|ER ;....|
|00000330| 20 42 45 47 49 4e 20 3b | 0d 0a 20 20 20 58 6c 20 | BEGIN ;|..   Xl |
|00000340| 3a 3d 20 20 43 4c 4f 43 | 4b 20 3b 0d 0a 20 20 20 |:=  CLOC|K ;..   |
|00000350| 48 6f 75 72 73 20 3a 3d | 20 20 58 6c 20 44 49 56 |Hours :=|  Xl DIV|
|00000360| 20 33 36 30 30 20 3b 0d | 0a 20 20 20 4d 69 6e 75 | 3600 ;.|.   Minu|
|00000370| 74 65 73 20 3a 3d 20 20 | 28 20 28 58 6c 20 4d 4f |tes :=  |( (Xl MO|
|00000380| 44 20 33 36 30 30 29 20 | 44 49 56 20 36 30 29 20 |D 3600) |DIV 60) |
|00000390| 3b 0d 0a 20 20 20 53 65 | 63 6f 6e 64 73 20 3a 3d |;..   Se|conds :=|
|000003a0| 20 20 28 20 28 58 6c 20 | 4d 4f 44 20 33 36 30 30 |  ( (Xl |MOD 3600|
|000003b0| 29 20 4d 4f 44 20 36 30 | 29 20 3b 0d 0a 0d 0a 20 |) MOD 60|) ;.... |
|000003c0| 20 20 54 69 6d 65 5b 20 | 30 20 5d 20 3a 3d 20 20 |  Time[ |0 ] :=  |
|000003d0| 43 48 52 20 28 31 31 29 | 20 3b 0d 0a 20 20 20 54 |CHR (11)| ;..   T|
|000003e0| 69 6d 65 5b 20 33 20 5d | 20 3a 3d 20 20 27 3a 27 |ime[ 3 ]| :=  ':'|
|000003f0| 20 3b 0d 0a 20 20 20 54 | 69 6d 65 5b 20 36 20 5d | ;..   T|ime[ 6 ]|
|00000400| 20 3a 3d 20 20 27 3a 27 | 20 3b 0d 0a 20 20 20 54 | :=  ':'| ;..   T|
|00000410| 69 6d 65 5b 20 31 20 5d | 20 3a 3d 20 20 27 20 27 |ime[ 1 ]| :=  ' '|
|00000420| 20 3b 0d 0a 20 20 20 54 | 69 6d 65 5b 20 39 20 5d | ;..   T|ime[ 9 ]|
|00000430| 20 3a 3d 20 20 27 20 27 | 20 3b 0d 0a 20 20 20 54 | :=  ' '| ;..   T|
|00000440| 69 6d 65 5b 20 31 30 20 | 5d 20 3a 3d 20 20 27 41 |ime[ 10 |] :=  'A|
|00000450| 27 20 3b 0d 0a 20 20 20 | 54 69 6d 65 5b 20 31 31 |' ;..   |Time[ 11|
|00000460| 20 5d 20 3a 3d 20 20 27 | 4d 27 20 3b 0d 0a 20 20 | ] :=  '|M' ;..  |
|00000470| 20 49 46 20 48 6f 75 72 | 73 20 3d 20 30 20 0d 0a | IF Hour|s = 0 ..|
|00000480| 20 20 20 20 20 54 48 45 | 4e 20 0d 0a 20 20 20 20 |     THE|N ..    |
|00000490| 20 20 42 45 47 49 4e 20 | 3b 0d 0a 20 20 20 20 20 |  BEGIN |;..     |
|000004a0| 20 20 20 54 69 6d 65 5b | 20 31 20 5d 20 3a 3d 20 |   Time[| 1 ] := |
|000004b0| 20 27 31 27 20 3b 0d 0a | 20 20 20 20 20 20 20 20 | '1' ;..|        |
|000004c0| 54 69 6d 65 5b 20 32 20 | 5d 20 3a 3d 20 20 27 32 |Time[ 2 |] :=  '2|
|000004d0| 27 20 3b 0d 0a 20 20 20 | 20 20 20 45 4e 44 0d 0a |' ;..   |   END..|
|000004e0| 20 0d 0a 20 20 20 20 20 | 45 4c 53 45 20 0d 0a 20 | ..     |ELSE .. |
|000004f0| 20 20 20 20 20 42 45 47 | 49 4e 20 3b 0d 0a 20 20 |     BEG|IN ;..  |
|00000500| 20 20 20 20 20 20 49 46 | 20 48 6f 75 72 73 20 3e |      IF| Hours >|
|00000510| 3d 20 31 32 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |= 12 .. |        |
|00000520| 20 54 48 45 4e 20 54 69 | 6d 65 5b 20 31 30 20 5d | THEN Ti|me[ 10 ]|
|00000530| 20 3a 3d 20 20 27 50 27 | 20 3b 0d 0a 0d 0a 20 20 | :=  'P'| ;....  |
|00000540| 20 20 20 20 20 20 69 66 | 20 68 6f 75 72 73 20 3e |      if| hours >|
|00000550| 20 31 32 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 12..   |        |
|00000560| 74 68 65 6e 20 48 6f 75 | 72 73 20 3a 3d 20 20 48 |then Hou|rs :=  H|
|00000570| 6f 75 72 73 20 2d 20 31 | 32 20 3b 0d 0a 0d 0a 20 |ours - 1|2 ;.... |
|00000580| 20 20 20 20 20 20 20 49 | 46 20 48 6f 75 72 73 20 |       I|F Hours |
|00000590| 3e 20 39 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |> 9 ..  |        |
|000005a0| 54 48 45 4e 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |THEN .. |        |
|000005b0| 20 20 42 45 47 49 4e 20 | 3b 0d 0a 20 20 20 20 20 |  BEGIN |;..     |
|000005c0| 20 20 20 20 20 20 20 20 | 54 69 6d 65 5b 20 31 20 |        |Time[ 1 |
|000005d0| 5d 20 3a 3d 20 20 27 31 | 27 20 3b 0d 0a 20 20 20 |] :=  '1|' ;..   |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 48 6f 75 72 73 20 |        |  Hours |
|000005f0| 3a 3d 20 20 48 6f 75 72 | 73 20 2d 20 31 30 20 3b |:=  Hour|s - 10 ;|
|00000600| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |..      |     END|
|00000610| 20 3b 0d 0a 20 20 20 20 | 20 20 20 20 54 69 6d 65 | ;..    |    Time|
|00000620| 5b 20 32 20 5d 20 3a 3d | 20 20 43 48 52 20 28 48 |[ 2 ] :=|  CHR (H|
|00000630| 6f 75 72 73 20 2b 20 34 | 38 29 20 3b 0d 0a 20 20 |ours + 4|8) ;..  |
|00000640| 20 20 20 20 45 4e 44 20 | 3b 20 7b 6f 66 20 65 6c |    END |; {of el|
|00000650| 73 65 2e 7d 0d 0a 0d 0a | 20 20 20 54 69 6d 65 5b |se.}....|   Time[|
|00000660| 20 34 20 5d 20 3a 3d 20 | 20 43 48 52 20 28 20 28 | 4 ] := | CHR ( (|
|00000670| 4d 69 6e 75 74 65 73 20 | 44 49 56 20 31 30 29 20 |Minutes |DIV 10) |
|00000680| 2b 20 34 38 29 20 3b 0d | 0a 0d 0a 20 20 20 49 46 |+ 48) ;.|...   IF|
|00000690| 20 4d 69 6e 75 74 65 73 | 20 3e 3d 20 20 31 30 20 | Minutes| >=  10 |
|000006a0| 0d 0a 20 20 20 20 20 54 | 48 45 4e 20 4d 69 6e 75 |..     T|HEN Minu|
|000006b0| 74 65 73 20 3a 3d 20 20 | 4d 69 6e 75 74 65 73 20 |tes :=  |Minutes |
|000006c0| 4d 4f 44 20 31 30 20 3b | 0d 0a 0d 0a 20 20 20 54 |MOD 10 ;|....   T|
|000006d0| 69 6d 65 5b 20 35 20 5d | 20 3a 3d 20 20 43 48 52 |ime[ 5 ]| :=  CHR|
|000006e0| 20 28 4d 69 6e 75 74 65 | 73 20 2b 20 34 38 29 20 | (Minute|s + 48) |
|000006f0| 3b 0d 0a 0d 0a 20 20 20 | 54 69 6d 65 5b 20 37 20 |;....   |Time[ 7 |
|00000700| 5d 20 3a 3d 20 20 43 48 | 52 20 28 20 28 53 65 63 |] :=  CH|R ( (Sec|
|00000710| 6f 6e 64 73 20 44 49 56 | 20 31 30 29 20 2b 20 34 |onds DIV| 10) + 4|
|00000720| 38 29 20 3b 0d 0a 0d 0a | 20 20 20 49 46 20 53 65 |8) ;....|   IF Se|
|00000730| 63 6f 6e 64 73 20 3e 3d | 20 20 31 30 20 0d 0a 20 |conds >=|  10 .. |
|00000740| 20 20 20 20 54 48 45 4e | 20 53 65 63 6f 6e 64 73 |    THEN| Seconds|
|00000750| 20 3a 3d 20 20 53 65 63 | 6f 6e 64 73 20 4d 4f 44 | :=  Sec|onds MOD|
|00000760| 20 31 30 20 3b 0d 0a 20 | 20 20 54 69 6d 65 5b 20 | 10 ;.. |  Time[ |
|00000770| 38 20 5d 20 3a 3d 20 20 | 43 48 52 20 28 53 65 63 |8 ] :=  |CHR (Sec|
|00000780| 6f 6e 64 73 20 2b 20 34 | 38 29 20 3b 0d 0a 20 45 |onds + 4|8) ;.. E|
|00000790| 4e 44 20 3b 20 7b 70 72 | 6f 63 65 64 75 72 65 20 |ND ; {pr|ocedure |
|000007a0| 47 65 74 53 54 54 69 6d | 65 2e 7d 0d 0a 0d 0a 0d |GetSTTim|e.}.....|
|000007b0| 0a 7b 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |.{111111|11111111|
|000007c0| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|000007d0| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|000007e0| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|000007f0| 31 31 7d 0d 0a 7b 31 31 | 31 31 31 31 31 31 31 31 |11}..{11|11111111|
|00000800| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000810| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000820| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000830| 31 31 31 31 31 31 7d 0d | 0a 7b 31 31 31 31 31 31 |111111}.|.{111111|
|00000840| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000850| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000860| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000870| 31 31 31 31 31 31 31 31 | 31 31 7d 0d 0a 0d 0a 50 |11111111|11}....P|
|00000880| 52 4f 43 45 44 55 52 45 | 20 53 74 5f 44 61 74 65 |ROCEDURE| St_Date|
|00000890| 20 28 56 41 52 0d 0a 20 | 20 20 20 20 44 61 74 65 | (VAR.. |    Date|
|000008a0| 20 3a 20 53 54 52 49 4e | 47 29 20 3b 0d 0a 0d 0a | : STRIN|G) ;....|
|000008b0| 54 59 50 45 0d 0a 20 20 | 20 57 6f 72 64 20 3d 20 |TYPE..  | Word = |
|000008c0| 49 4e 54 45 47 45 52 20 | 3b 0d 0a 0d 0a 56 41 52 |INTEGER |;....VAR|
|000008d0| 0d 0a 20 20 20 44 61 74 | 65 5f 41 6e 64 5f 54 69 |..   Dat|e_And_Ti|
|000008e0| 6d 65 20 3a 20 4c 4f 4e | 47 5f 49 4e 54 45 47 45 |me : LON|G_INTEGE|
|000008f0| 52 20 3b 0d 0a 20 20 20 | 53 79 73 5f 44 61 74 65 |R ;..   |Sys_Date|
|00000900| 20 3a 20 57 6f 72 64 20 | 3b 0d 0a 20 20 20 53 79 | : Word |;..   Sy|
|00000910| 73 5f 54 69 6d 65 20 3a | 20 57 6f 72 64 20 3b 0d |s_Time :| Word ;.|
|00000920| 0a 0d 0a 20 20 20 4d 6f | 6e 74 68 20 3a 20 49 4e |...   Mo|nth : IN|
|00000930| 54 45 47 45 52 20 3b 0d | 0a 20 20 20 44 61 79 20 |TEGER ;.|.   Day |
|00000940| 3a 20 49 4e 54 45 47 45 | 52 20 3b 0d 0a 20 20 20 |: INTEGE|R ;..   |
|00000950| 59 65 61 72 20 3a 20 49 | 4e 54 45 47 45 52 20 3b |Year : I|NTEGER ;|
|00000960| 0d 0a 0d 0a 20 20 20 48 | 6f 75 72 20 3a 20 49 4e |....   H|our : IN|
|00000970| 54 45 47 45 52 20 3b 0d | 0a 20 20 20 4d 69 6e 75 |TEGER ;.|.   Minu|
|00000980| 74 65 20 3a 20 49 4e 54 | 45 47 45 52 20 3b 0d 0a |te : INT|EGER ;..|
|00000990| 20 20 20 53 65 63 6f 6e | 64 20 3a 20 49 4e 54 45 |   Secon|d : INTE|
|000009a0| 47 45 52 20 3b 0d 0a 0d | 0a 20 20 20 53 64 61 74 |GER ;...|.   Sdat|
|000009b0| 65 20 3a 20 53 54 52 49 | 4e 47 20 3b 0d 0a 20 20 |e : STRI|NG ;..  |
|000009c0| 20 53 74 69 6d 65 20 3a | 20 53 54 52 49 4e 47 20 | Stime :| STRING |
|000009d0| 3b 0d 0a 0d 0a 20 20 20 | 52 65 70 6c 79 20 3a 20 |;....   |Reply : |
|000009e0| 53 54 52 49 4e 47 20 3b | 0d 0a 20 20 20 52 65 74 |STRING ;|..   Ret|
|000009f0| 63 64 20 3a 20 57 6f 72 | 64 20 3b 0d 0a 0d 0a 20 |cd : Wor|d ;.... |
|00000a00| 20 20 46 55 4e 43 54 49 | 4f 4e 20 47 65 74 5f 44 |  FUNCTI|ON Get_D|
|00000a10| 61 74 65 74 69 6d 65 20 | 3a 20 4c 4f 4e 47 5f 49 |atetime |: LONG_I|
|00000a20| 4e 54 45 47 45 52 20 3b | 0d 0a 58 42 49 4f 53 20 |NTEGER ;|..XBIOS |
|00000a30| 28 32 33 29 20 3b 0d 0a | 20 42 45 47 49 4e 20 3b |(23) ;..| BEGIN ;|
|00000a40| 0d 0a 20 20 20 44 61 74 | 65 5f 41 6e 64 5f 54 69 |..   Dat|e_And_Ti|
|00000a50| 6d 65 20 3a 3d 20 20 47 | 65 74 5f 44 61 74 65 74 |me :=  G|et_Datet|
|00000a60| 69 6d 65 20 3b 0d 0a 0d | 0a 20 20 20 53 79 73 5f |ime ;...|.   Sys_|
|00000a70| 44 61 74 65 20 3a 3d 20 | 20 49 6e 74 20 28 53 48 |Date := | Int (SH|
|00000a80| 52 20 28 44 61 74 65 5f | 41 6e 64 5f 54 69 6d 65 |R (Date_|And_Time|
|00000a90| 2c 20 31 36 29 20 26 20 | 24 30 30 30 30 46 66 66 |, 16) & |$0000Fff|
|00000aa0| 66 29 20 3b 0d 0a 0d 0a | 20 20 20 4d 6f 6e 74 68 |f) ;....|   Month|
|00000ab0| 20 3a 3d 20 20 53 48 52 | 20 28 53 79 73 5f 44 61 | :=  SHR| (Sys_Da|
|00000ac0| 74 65 2c 20 35 29 20 26 | 20 24 30 30 30 46 20 3b |te, 5) &| $000F ;|
|00000ad0| 0d 0a 20 20 20 44 61 79 | 20 3a 3d 20 20 53 79 73 |..   Day| :=  Sys|
|00000ae0| 5f 44 61 74 65 20 26 20 | 24 30 30 31 46 20 3b 0d |_Date & |$001F ;.|
|00000af0| 0a 20 20 20 59 65 61 72 | 20 3a 3d 20 20 53 48 52 |.   Year| :=  SHR|
|00000b00| 20 28 53 79 73 5f 44 61 | 74 65 2c 20 39 29 20 26 | (Sys_Da|te, 9) &|
|00000b10| 20 24 30 30 33 46 20 3b | 0d 0a 0d 0a 20 20 20 59 | $003F ;|....   Y|
|00000b20| 65 61 72 20 3a 3d 20 20 | 59 65 61 72 20 2b 20 38 |ear :=  |Year + 8|
|00000b30| 30 20 3b 0d 0a 20 20 20 | 64 61 74 65 5b 30 5d 3a |0 ;..   |date[0]:|
|00000b40| 3d 63 68 72 28 38 29 3b | 0d 0a 20 20 20 64 61 74 |=chr(8);|..   dat|
|00000b50| 65 5b 33 5d 3a 3d 27 2f | 27 3b 0d 0a 20 20 20 64 |e[3]:='/|';..   d|
|00000b60| 61 74 65 5b 36 5d 3a 3d | 27 2f 27 3b 0d 0a 20 20 |ate[6]:=|'/';..  |
|00000b70| 20 69 66 20 6d 6f 6e 74 | 68 3e 39 0d 0a 20 20 20 | if mont|h>9..   |
|00000b80| 20 20 74 68 65 6e 0d 0a | 20 20 20 20 20 42 65 67 |  then..|     Beg|
|00000b90| 69 6e 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6d |in;..   |       m|
|00000ba0| 6f 6e 74 68 3a 3d 6d 6f | 6e 74 68 2d 31 30 3b 0d |onth:=mo|nth-10;.|
|00000bb0| 0a 20 20 20 20 20 20 20 | 20 20 20 64 61 74 65 5b |.       |   date[|
|00000bc0| 31 5d 3a 3d 27 31 27 3b | 0d 0a 20 20 20 20 20 65 |1]:='1';|..     e|
|00000bd0| 6e 64 0d 0a 20 20 20 20 | 20 65 6c 73 65 20 64 61 |nd..    | else da|
|00000be0| 74 65 5b 31 5d 3a 3d 27 | 20 27 3b 0d 0a 0d 0a 20 |te[1]:='| ';.... |
|00000bf0| 20 20 64 61 74 65 5b 32 | 5d 3a 3d 63 68 72 28 6d |  date[2|]:=chr(m|
|00000c00| 6f 6e 74 68 2b 34 38 29 | 3b 0d 0a 0d 0a 20 20 20 |onth+48)|;....   |
|00000c10| 69 66 20 64 61 79 3e 39 | 0d 0a 20 20 20 20 20 74 |if day>9|..     t|
|00000c20| 68 65 6e 0d 0a 20 20 20 | 20 20 42 65 67 69 6e 3b |hen..   |  Begin;|
|00000c30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 64 61 74 65 |..      |    date|
|00000c40| 5b 34 5d 3a 3d 63 68 72 | 28 28 64 61 79 20 64 69 |[4]:=chr|((day di|
|00000c50| 76 20 31 30 29 20 2b 34 | 38 29 3b 0d 0a 20 20 20 |v 10) +4|8);..   |
|00000c60| 20 20 20 20 20 20 20 64 | 61 79 3a 3d 64 61 79 20 |       d|ay:=day |
|00000c70| 6d 6f 64 20 31 30 3b 0d | 0a 20 20 20 20 20 65 6e |mod 10;.|.     en|
|00000c80| 64 0d 0a 20 20 20 20 20 | 65 6c 73 65 20 64 61 74 |d..     |else dat|
|00000c90| 65 5b 34 5d 3a 3d 27 20 | 27 3b 0d 0a 0d 0a 20 20 |e[4]:=' |';....  |
|00000ca0| 20 64 61 74 65 5b 35 5d | 3a 3d 63 68 72 28 64 61 | date[5]|:=chr(da|
|00000cb0| 79 2b 34 38 29 3b 0d 0a | 0d 0a 20 20 20 69 66 20 |y+48);..|..   if |
|00000cc0| 79 65 61 72 3e 39 0d 0a | 20 20 20 20 20 74 68 65 |year>9..|     the|
|00000cd0| 6e 0d 0a 20 20 20 20 20 | 42 65 67 69 6e 3b 0d 0a |n..     |Begin;..|
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 64 61 74 65 5b 37 |        |  date[7|
|00000cf0| 5d 3a 3d 63 68 72 28 28 | 79 65 61 72 20 64 69 76 |]:=chr((|year div|
|00000d00| 20 31 30 29 20 2b 34 38 | 29 3b 0d 0a 20 20 20 20 | 10) +48|);..    |
|00000d10| 20 20 20 20 20 20 79 65 | 61 72 3a 3d 79 65 61 72 |      ye|ar:=year|
|00000d20| 20 6d 6f 64 20 31 30 3b | 0d 0a 20 20 20 20 20 65 | mod 10;|..     e|
|00000d30| 6e 64 0d 0a 20 20 20 20 | 20 65 6c 73 65 20 64 61 |nd..    | else da|
|00000d40| 74 65 5b 37 5d 3a 3d 27 | 20 27 3b 0d 0a 0d 0a 20 |te[7]:='| ';.... |
|00000d50| 20 20 64 61 74 65 5b 38 | 5d 3a 3d 63 68 72 28 79 |  date[8|]:=chr(y|
|00000d60| 65 61 72 2b 34 38 29 3b | 0d 0a 20 45 4e 44 20 3b |ear+48);|.. END ;|
|00000d70| 0d 0a 0d 0a 0d 0a 7b 31 | 31 31 31 31 31 31 31 31 |......{1|11111111|
|00000d80| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
|00000d90| 31 31 31 31 31 31 31 31 | 31 31 31 31 31 31 31 31 |11111111|11111111|
+--------+-------------------------+-------------------------+--------+--------+