BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / MacTechNotes / Platforms & Tools / Stand-Alone Code.sit / Persistƒ / Persist.p < prev next >
MacBinary | 1990-07-14 | 2.6 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Persist.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sat Jul 14 01:12:04 1990, modified Sat Jul 14 01:12:04 1990, creator 'MPS ', type ASCII, 1208 bytes "Persist.p" , at 0x538 1188 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 50 65 72 73 69 73 | 74 2e 70 00 00 00 00 00 |..Persis|t.p.....|
|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 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 b8 00 | 00 04 a4 a2 c4 5a 24 a2 |........|.....Z$.|
|00000060| c4 5a 24 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Z$.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 06 f2 00 00 |........|........|
|00000080| 0d 55 4e 49 54 20 50 65 | 72 73 69 73 74 3b 0d 0d |.UNIT Pe|rsist;..|
|00000090| 7b 20 54 68 69 73 20 69 | 73 20 61 20 73 74 61 6e |{ This i|s a stan|
|000000a0| 64 2d 61 6c 6f 6e 65 20 | 6d 6f 64 75 6c 65 20 77 |d-alone |module w|
|000000b0| 68 69 63 68 20 6d 61 69 | 6e 74 61 69 6e 73 20 61 |hich mai|ntains a|
|000000c0| 20 72 75 6e 6e 69 6e 67 | 20 74 6f 74 61 6c 20 7d | running| total }|
|000000d0| 0d 7b 20 6f 66 20 74 68 | 65 20 73 71 75 61 72 65 |.{ of th|e square|
|000000e0| 73 20 6f 66 20 74 68 65 | 20 70 61 72 61 6d 65 74 |s of the| paramet|
|000000f0| 65 72 73 20 69 74 20 72 | 65 63 65 69 76 65 73 2e |ers it r|eceives.|
|00000100| 20 54 68 69 73 20 72 65 | 71 75 69 72 65 73 20 20 | This re|quires  |
|00000110| 7d 0d 7b 20 74 68 65 20 | 63 6f 6f 70 65 72 61 74 |}.{ the |cooperat|
|00000120| 69 6f 6e 20 6f 66 20 61 | 20 68 6f 73 74 20 61 70 |ion of a| host ap|
|00000130| 70 6c 69 63 61 74 69 6f | 6e 2e 20 54 68 65 20 68 |plicatio|n. The h|
|00000140| 6f 73 74 20 6d 75 73 74 | 20 75 73 65 20 20 20 20 |ost must| use    |
|00000150| 20 7d 0d 7b 20 6d 65 73 | 73 61 67 65 73 20 74 6f | }.{ mes|sages to|
|00000160| 20 74 65 6c 6c 20 74 68 | 65 20 6d 6f 64 75 6c 65 | tell th|e module|
|00000170| 20 77 68 65 6e 20 74 6f | 20 69 6e 69 74 69 61 6c | when to| initial|
|00000180| 69 7a 65 20 61 6e 64 20 | 77 68 65 6e 20 74 6f 20 |ize and |when to |
|00000190| 20 20 7d 0d 7b 20 74 65 | 61 72 20 64 6f 77 6e 2e |  }.{ te|ar down.|
|000001a0| 20 54 68 65 20 68 6f 73 | 74 20 61 6c 73 6f 20 6d | The hos|t also m|
|000001b0| 75 73 74 20 6d 61 69 6e | 74 61 69 6e 20 61 20 68 |ust main|tain a h|
|000001c0| 61 6e 64 6c 65 20 74 6f | 20 74 68 65 20 20 20 20 |andle to| the    |
|000001d0| 20 20 20 7d 0d 7b 20 6d | 6f 64 75 6c 65 27 73 20 |   }.{ m|odule's |
|000001e0| 41 35 20 77 6f 72 6c 64 | 20 62 65 74 77 65 65 6e |A5 world| between|
|000001f0| 20 69 6e 76 6f 63 61 74 | 69 6f 6e 73 2e 20 20 20 | invocat|ions.   |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 20 20 20 7d 0d 0d 49 | 4e 54 45 52 46 41 43 45 |    }..I|NTERFACE|
|00000220| 0d 0d 09 55 53 45 53 0d | 09 09 54 79 70 65 73 2c |...USES.|..Types,|
|00000230| 20 53 41 47 6c 6f 62 61 | 6c 73 3b 0d 09 0d 09 43 | SAGloba|ls;....C|
|00000240| 4f 4e 53 54 0d 09 09 6b | 41 63 63 75 6d 75 6c 61 |ONST...k|Accumula|
|00000250| 74 65 20 3d 20 30 3b 09 | 7b 54 68 65 73 65 20 61 |te = 0;.|{These a|
|00000260| 72 65 20 74 68 65 20 63 | 6f 6e 74 72 6f 6c 20 6d |re the c|ontrol m|
|00000270| 65 73 73 61 67 65 73 2e | 7d 0d 09 09 6b 46 69 72 |essages.|}...kFir|
|00000280| 73 74 54 69 6d 65 20 3d | 20 31 3b 0d 09 09 6b 4c |stTime =| 1;...kL|
|00000290| 61 73 74 54 69 6d 65 20 | 3d 20 32 3b 0d 09 0d 09 |astTime |= 2;....|
|000002a0| 46 55 4e 43 54 49 4f 4e | 20 41 63 63 53 71 75 61 |FUNCTION| AccSqua|
|000002b0| 72 65 73 20 28 70 61 72 | 6d 3a 20 4c 6f 6e 67 69 |res (par|m: Longi|
|000002c0| 6e 74 3b 20 6d 65 73 73 | 61 67 65 3a 20 49 6e 74 |nt; mess|age: Int|
|000002d0| 65 67 65 72 3b 0d 09 09 | 09 09 56 41 52 20 41 35 |eger;...|..VAR A5|
|000002e0| 52 65 66 3a 20 41 35 52 | 65 66 54 79 70 65 29 20 |Ref: A5R|efType) |
|000002f0| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 0d 49 4d 50 4c |: Longin|t;..IMPL|
|00000300| 45 4d 45 4e 54 41 54 49 | 4f 4e 0d 0d 09 7b 20 44 |EMENTATI|ON...{ D|
|00000310| 65 66 69 6e 65 20 67 6c | 6f 62 61 6c 20 73 74 6f |efine gl|obal sto|
|00000320| 72 61 67 65 20 74 6f 20 | 72 65 74 61 69 6e 20 61 |rage to |retain a|
|00000330| 20 72 75 6e 6e 69 6e 67 | 20 7d 0d 09 7b 20 74 6f | running| }..{ to|
|00000340| 74 61 6c 20 6f 76 65 72 | 20 6d 75 6c 74 69 70 6c |tal over| multipl|
|00000350| 65 20 63 61 6c 6c 73 20 | 74 6f 20 74 68 65 20 6d |e calls |to the m|
|00000360| 6f 64 75 6c 65 2e 20 20 | 7d 0d 09 56 41 52 20 61 |odule.  |}..VAR a|
|00000370| 63 63 75 6d 75 6c 61 74 | 69 6f 6e 20 3a 20 4c 6f |ccumulat|ion : Lo|
|00000380| 6e 67 69 6e 74 3b 0d 0d | 09 46 55 4e 43 54 49 4f |ngint;..|.FUNCTIO|
|00000390| 4e 20 41 63 63 53 71 75 | 61 72 65 73 20 28 70 61 |N AccSqu|ares (pa|
|000003a0| 72 6d 3a 20 4c 6f 6e 67 | 69 6e 74 3b 20 6d 65 73 |rm: Long|int; mes|
|000003b0| 73 61 67 65 3a 20 49 6e | 74 65 67 65 72 3b 0d 09 |sage: In|teger;..|
|000003c0| 09 09 09 56 41 52 20 41 | 35 52 65 66 3a 20 41 35 |...VAR A|5Ref: A5|
|000003d0| 52 65 66 54 79 70 65 29 | 20 3a 20 4c 6f 6e 67 69 |RefType)| : Longi|
|000003e0| 6e 74 3b 0d 09 56 41 52 | 0d 09 09 6f 6c 64 41 35 |nt;..VAR|...oldA5|
|000003f0| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 09 42 45 47 49 |: Longin|t;..BEGI|
|00000400| 4e 0d 09 09 49 46 20 6d | 65 73 73 61 67 65 20 3d |N...IF m|essage =|
|00000410| 20 6b 46 69 72 73 74 54 | 69 6d 65 20 54 48 45 4e | kFirstT|ime THEN|
|00000420| 20 4d 61 6b 65 41 35 57 | 6f 72 6c 64 28 41 35 52 | MakeA5W|orld(A5R|
|00000430| 65 66 29 3b 0d 09 09 6f | 6c 64 41 35 20 3a 3d 20 |ef);...o|ldA5 := |
|00000440| 53 65 74 41 35 57 6f 72 | 6c 64 28 41 35 52 65 66 |SetA5Wor|ld(A5Ref|
|00000450| 29 3b 0d 09 09 09 49 46 | 20 6d 65 73 73 61 67 65 |);....IF| message|
|00000460| 20 3d 20 6b 46 69 72 73 | 74 54 69 6d 65 20 54 48 | = kFirs|tTime TH|
|00000470| 45 4e 20 61 63 63 75 6d | 75 6c 61 74 69 6f 6e 20 |EN accum|ulation |
|00000480| 3a 3d 20 30 3b 0d 09 09 | 09 61 63 63 75 6d 75 6c |:= 0;...|.accumul|
|00000490| 61 74 69 6f 6e 20 3a 3d | 20 61 63 63 75 6d 75 6c |ation :=| accumul|
|000004a0| 61 74 69 6f 6e 20 2b 20 | 28 70 61 72 6d 20 2a 20 |ation + |(parm * |
|000004b0| 70 61 72 6d 29 3b 0d 09 | 09 09 41 63 63 53 71 75 |parm);..|..AccSqu|
|000004c0| 61 72 65 73 20 3a 3d 20 | 61 63 63 75 6d 75 6c 61 |ares := |accumula|
|000004d0| 74 69 6f 6e 3b 0d 09 09 | 52 65 73 74 6f 72 65 41 |tion;...|RestoreA|
|000004e0| 35 57 6f 72 6c 64 28 6f | 6c 64 41 35 2c 20 41 35 |5World(o|ldA5, A5|
|000004f0| 52 65 66 29 3b 0d 09 09 | 49 46 20 6d 65 73 73 61 |Ref);...|IF messa|
|00000500| 67 65 20 3d 20 6b 4c 61 | 73 74 54 69 6d 65 20 54 |ge = kLa|stTime T|
|00000510| 48 45 4e 20 44 69 73 70 | 6f 73 65 41 35 57 6f 72 |HEN Disp|oseA5Wor|
|00000520| 6c 64 28 41 35 52 65 66 | 29 3b 0d 09 45 4e 44 3b |ld(A5Ref|);..END;|
|00000530| 0d 09 0d 45 4e 44 2e 0d | 00 00 00 00 00 00 00 00 |...END..|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 04 2c | 00 00 03 2c 00 00 00 78 |.......,|...,...x|
|00000590| 00 00 7f ff ff fc 7f ff | ff fc 7f ff ff fc 7f ff |........|........|
|000005a0| ff fc 7f ff ff fc 7f ff | ff fc 7f ff ff fc 7f ff |........|........|
|000005b0| 09 50 65 72 73 69 73 74 | 2e 70 02 00 00 00 50 61 |.Persist|.p....Pa|
|000005c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000005d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a9 7f fe 9c 00 00 | 00 00 00 00 04 a4 7f ff |........|........|
|00000600| ff fc 7f ff ff fc 7f ff | ff fc 00 00 00 00 00 00 |........|........|
|00000610| 00 20 40 00 20 00 10 70 | 08 88 04 c8 03 38 01 10 |. @. ..p|.....8..|
|00000620| 02 90 02 60 04 20 04 50 | 07 88 07 04 06 02 bc 00 |...`. .P|........|
|00000630| 00 00 00 00 00 20 00 00 | 00 00 03 80 04 40 04 40 |..... ..|.....@.@|
|00000640| 0f e0 0f e0 0f e0 0f e0 | 0f e0 0f e0 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 20 ff e0 80 3f ff e1 |........|. ...?..|
|00000660| 80 3f 80 21 ff fd c0 05 | d8 05 58 05 58 75 58 8f |.?.!....|..X.XuX.|
|00000670| 43 e4 58 b3 40 43 7f ff | 00 07 00 00 00 1a 00 06 |C.X.@C..|........|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3c 00 24 |...H..Mo|naco.<.$|
|00000690| 00 3c 02 2e 01 7e 00 24 | 01 7e 02 2e 7f f5 80 0a |.<...~.$|.~......|
|000006a0| 7f f5 7f f5 00 00 00 06 | 00 04 00 3c 00 24 01 dd |........|...<.$..|
|000006b0| 02 3d 00 3c 00 24 01 dd | 02 3d a2 c4 05 c4 00 00 |.=.<.$..|.=......|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 74 |........|.......t|
|000006d0| 00 40 48 13 23 0f ff ff | 41 ed d5 c6 01 00 00 5e |.@H.#...|A......^|
|000006e0| 01 00 00 36 00 00 00 00 | 00 00 00 00 01 00 06 52 |...6....|.......R|
|000006f0| 00 00 00 00 01 00 01 74 | 00 00 00 00 a2 d2 0f 86 |.......t|........|
|00000700| 00 16 00 7a ff af 00 ab | fa f5 5b 07 00 71 da a0 |...z....|..[..q..|
|00000710| 3f 3c 01 00 00 ae ff ff | ff ff ff ff ff ff 00 00 |?<......|........|
|00000720| 00 10 01 00 00 3c 00 00 | 00 00 3f 3c 00 05 00 60 |.....<..|..?<...`|
|00000730| 7b 94 26 11 4c 07 00 00 | 3f 3c ff ff ff ff 01 00 |{.&.L...|?<......|
|00000740| 00 86 ff ff ff ff 00 00 | 00 10 01 00 00 a0 00 00 |........|........|
|00000750| 00 01 da a0 3f 06 00 c0 | 7b 0e c2 29 80 ff 00 01 |....?...|{..)....|
|00000760| da a0 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00000770| 00 10 01 00 00 6b 00 00 | 00 02 03 ec d0 40 00 00 |.....k..|.....@..|
|00000780| 3d 53 7d 6d c8 1b 00 02 | 03 ec ff ff ff ff ff ff |=S}m....|........|
|00000790| ff ff ff ff ff ff 00 00 | 00 00 01 00 05 01 00 01 |........|........|
|000007a0| 01 00 00 e4 ff ff 00 3c | 00 12 ff ff 00 00 00 00 |.......<|........|
|000007b0| 00 00 00 00 00 34 4b 96 | 3f ff ff ff 3f 3c 00 19 |.....4K.|?...?<..|
|000007c0| 01 00 01 14 01 00 01 44 | 01 00 01 14 00 00 00 00 |.......D|........|
|000007d0| 01 00 02 00 00 00 ff ff | 00 02 00 00 00 0e 4e ba |........|......N.|
|000007e0| e0 96 60 00 00 a0 60 19 | 9f 41 ff ff 03 98 4e ba |..`...`.|.A....N.|
|000007f0| ff ff ff ff ff ff ff ff | 01 00 01 44 00 00 00 10 |........|...D....|
|00000800| 01 00 02 00 0e ba ff ff | 00 02 00 00 00 0c da 50 |........|.......P|
|00000810| 2f 2c 00 02 00 ba 3f f6 | 41 9f ff ff 3f 06 4e ba |/,....?.|A...?.N.|
|00000820| ff ff ff ff ff ff ff ff | ff ff ff ff 03 00 01 46 |........|.......F|
|00000830| 01 00 02 01 0e ba ff ff | 00 02 00 00 00 08 20 6d |........|...... m|
|00000840| da 50 08 28 00 00 00 04 | c6 e1 c4 3f 00 00 01 5c |.P.(....|...?...\|
|00000850| a1 52 96 6f a2 d2 0f 85 | a2 c4 05 c4 00 01 00 71 |.R.o....|.......q|
|00000860| ff ff ff ff 4a 05 08 01 | 00 00 00 00 01 00 00 01 |....J...|........|
|00000870| 00 00 00 03 00 4e 90 66 | 00 4e a7 dc 00 07 1d 40 |.....N.f|.N.....@|
|00000880| 00 10 17 53 74 61 6e 64 | 61 72 64 20 50 61 73 63 |...Stand|ard Pasc|
|00000890| 61 6c 20 53 79 6d 62 6f | 6c 73 ff fe 48 e7 01 18 |al Symbo|ls..H...|
|000008a0| 28 6e 00 0c 26 6e 00 08 | 7e 01 20 0c 56 c0 22 0b |(n..&n..|~. .V.".|
|000008b0| 56 c1 c0 01 c0 07 67 00 | 00 b6 42 07 00 00 00 bc |V.....g.|..B.....|
|000008c0| 00 4b 00 4e fb c6 00 4e | fd 3a 00 0b a2 d2 0f 86 |.K.N...N|.:......|
|000008d0| 07 50 45 52 53 49 53 54 | 04 00 00 4e fb 94 00 57 |.PERSIST|...N...W|
|000008e0| b0 92 2e 07 00 47 00 5b | 4a 8c 00 57 9a 5e 00 57 |.....G.[|J..W.^.W|
|000008f0| 40 80 a3 4a 00 00 3f aa | 00 00 66 2c 40 80 6f 06 |@..J..?.|..f,@.o.|
|00000900| 00 00 4f 54 40 80 6e d8 | 00 5b 4a ae 40 80 9b 70 |..OT@.n.|.[J.@..p|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 a2 d2 0f 18 09 53 |........|.......S|
|00000920| 41 47 4c 4f 42 41 4c 53 | 00 4e fb 94 00 57 b0 92 |AGLOBALS|.N...W..|
|00000930| 2e 07 00 47 00 5b 4a 8c | 00 57 9a 5e 00 57 40 80 |...G.[J.|.W.^.W@.|
|00000940| a3 4a 00 00 3f aa 00 00 | 66 2c 40 80 6f 06 00 00 |.J..?...|f,@.o...|
|00000950| 4f 54 40 80 6e d8 00 5b | 4a ae 40 80 9b 70 00 00 |OT@.n..[|J.@..p..|
|00000960| 00 00 00 00 00 00 00 01 | a2 d2 0f 17 05 54 59 50 |........|.....TYP|
|00000970| 45 53 42 41 4c 53 00 4e | fb 94 00 57 b0 92 2e 07 |ESBALS.N|...W....|
|00000980| 00 47 00 5b 4a 8c 00 57 | 9a 5e 00 57 40 80 a3 4a |.G.[J..W|.^.W@..J|
|00000990| 00 00 3f aa 00 00 66 2c | 40 80 6f 06 00 00 4f 54 |..?...f,|@.o...OT|
|000009a0| 40 80 6e d8 00 5b 4a ae | 40 80 9b 70 00 00 01 00 |@.n..[J.|@..p....|
|000009b0| 00 00 04 2c 00 00 03 2c | 00 00 00 78 00 4d 51 4c |...,...,|...x.MQL|
|000009c0| 0d f6 00 00 00 1c 00 5e | 00 01 75 6e 69 74 00 02 |.......^|..unit..|
|000009d0| 00 12 4d 50 53 52 00 00 | 00 36 00 03 00 00 00 00 |..MPSR..|.6......|
|000009e0| 00 4c 00 00 00 00 00 02 | 00 0a 00 00 01 c4 00 00 |.L......|........|
|000009f0| 00 00 00 00 00 13 00 00 | 01 cc 00 00 00 00 03 ed |........|........|
|00000a00| ff ff 00 00 00 00 00 00 | 00 00 09 53 79 6d 62 54 |........|...SymbT|
|00000a10| 61 62 6c 65 08 50 61 63 | 6b 53 79 6d 73 06 48 65 |able.Pac|kSyms.He|
|00000a20| 61 64 65 72 00 00 00 00 | 00 00 00 00 00 00 00 00 |ader....|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+