/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / diary / !Diary / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1a f4 20 3e 44 | 69 61 72 79 24 44 69 72 |..... >D|iary$Dir|
|00000010| 2e 21 52 75 6e 49 6d 61 | 67 65 0d 00 14 17 f4 20 |.!RunIma|ge..... |
|00000020| 47 6f 6f 64 20 75 74 69 | 6c 69 74 79 2c 20 65 68 |Good uti|lity, eh|
|00000030| 3f 0d 00 1e 20 f4 20 41 | 6c 6c 20 63 6f 64 65 20 |?... . A|ll code |
|00000040| a9 20 4d 4a 46 20 30 31 | 2d 53 65 70 2d 31 39 39 |. MJF 01|-Sep-199|
|00000050| 34 0d 00 28 40 f4 20 4a | 75 73 74 20 74 68 69 6e |4..(@. J|ust thin|
|00000060| 6b 2c 20 69 66 20 74 68 | 65 72 65 20 77 61 73 20 |k, if th|ere was |
|00000070| 61 20 53 79 73 24 44 61 | 79 20 26 20 53 79 73 24 |a Sys$Da|y & Sys$|
|00000080| 4d 6f 6e 74 68 2c 20 74 | 68 69 73 20 63 6f 75 6c |Month, t|his coul|
|00000090| 64 0d 00 3c 1d f4 20 62 | 65 20 61 20 73 79 73 74 |d..<.. b|e a syst|
|000000a0| 65 6d 73 20 70 72 6f 67 | 72 61 6d 2e 2e 2e 0d 00 |ems prog|ram.....|
|000000b0| 3d 1f f4 20 4f 68 2c 20 | 61 6e 64 20 61 20 2a 53 |=.. Oh, |and a *S|
|000000c0| 57 49 20 63 6f 6d 6d 61 | 6e 64 2e 2e 2e 0d 00 46 |WI comma|nd.....F|
|000000d0| 05 3a 0d 00 50 20 79 65 | 61 72 24 3d a4 67 65 74 |.:..P ye|ar$=.get|
|000000e0| 73 79 73 76 61 72 28 22 | 53 79 73 24 59 65 61 72 |sysvar("|Sys$Year|
|000000f0| 22 29 0d 00 5a 24 64 61 | 74 65 24 3d c2 a4 67 65 |")..Z$da|te$=..ge|
|00000100| 74 73 79 73 76 61 72 28 | 22 53 79 73 24 44 61 74 |tsysvar(|"Sys$Dat|
|00000110| 65 22 29 2c 36 29 0d 00 | 64 23 64 61 79 24 3d c0 |e"),6)..|d#day$=.|
|00000120| 64 61 74 65 24 2c 32 29 | 3a 6d 6f 6e 74 68 24 3d |date$,2)|:month$=|
|00000130| c2 64 61 74 65 24 2c 33 | 29 0d 00 6e 24 70 61 74 |.date$,3|)..n$pat|
|00000140| 68 24 3d 22 3c 44 69 61 | 72 79 24 44 69 72 3e 2e |h$="<Dia|ry$Dir>.|
|00000150| 44 69 61 72 79 2e 22 2b | 79 65 61 72 24 0d 00 78 |Diary."+|year$..x|
|00000160| 26 ff 28 22 43 44 69 72 | 20 22 2b 70 61 74 68 24 |&.("CDir| "+path$|
|00000170| 29 3a 70 61 74 68 24 2b | 3d 22 2e 22 2b 6d 6f 6e |):path$+|="."+mon|
|00000180| 74 68 24 0d 00 82 24 ff | 28 22 43 44 69 72 20 22 |th$...$.|("CDir "|
|00000190| 2b 70 61 74 68 24 29 3a | 70 61 74 68 24 2b 3d 22 |+path$):|path$+="|
|000001a0| 2e 22 2b 64 61 79 24 0d | 00 8c 1e c8 99 20 22 4f |."+day$.|..... "O|
|000001b0| 53 5f 46 69 6c 65 22 2c | 35 2c 70 61 74 68 24 20 |S_File",|5,path$ |
|000001c0| b8 20 69 73 25 0d 00 96 | 3a e7 20 69 73 25 3d 30 |. is%...|:. is%=0|
|000001d0| 20 ff 28 22 43 72 65 61 | 74 65 20 22 2b 70 61 74 | .("Crea|te "+pat|
|000001e0| 68 24 29 3a ff 28 22 53 | 65 74 54 79 70 65 20 22 |h$):.("S|etType "|
|000001f0| 2b 70 61 74 68 24 2b 22 | 20 54 65 78 74 22 29 0d |+path$+"| Text").|
|00000200| 00 a0 19 ff 28 22 46 69 | 6c 65 72 5f 52 75 6e 20 |....("Fi|ler_Run |
|00000210| 22 2b 70 61 74 68 24 29 | 0d 00 aa 05 e0 0d 00 b4 |"+path$)|........|
|00000220| 05 3a 0d 00 be 15 dd a4 | 67 65 74 73 79 73 76 61 |.:......|getsysva|
|00000230| 72 28 76 61 72 24 29 0d | 00 c8 18 ea 20 6c 24 2c |r(var$).|.... l$,|
|00000240| 6c 25 3a 6c 24 3d c4 31 | 30 30 2c 22 20 22 29 0d |l%:l$=.1|00," ").|
|00000250| 00 d2 2f c8 99 20 22 4f | 53 5f 52 65 61 64 56 61 |../.. "O|S_ReadVa|
|00000260| 72 56 61 6c 22 2c 76 61 | 72 24 2c 6c 24 2c a9 6c |rVal",va|r$,l$,.l|
|00000270| 24 2c 30 2c 33 20 b8 20 | 2c 6c 24 2c 6c 25 0d 00 |$,0,3 . |,l$,l%..|
|00000280| dc 0c 3d c0 6c 24 2c 6c | 25 29 0d ff             |..=.l$,l|%)..    |
+--------+-------------------------+-------------------------+--------+--------+