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 / GetQDGlobsƒ / GetQDGlobs.p
MacBinary | 1990-07-30 | 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: GetQDGlobs.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, Mon Jul 30 15:20:16 1990, modified Mon Jul 30 15:20:16 1990, creator 'MPS ', type ASCII, 857 bytes "GetQDGlobs.p" , at 0x3d9 1550 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 0c 47 65 74 51 44 47 | 6c 6f 62 73 2e 70 00 00 |..GetQDG|lobs.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 03 59 00 | 00 06 0e a2 da 38 f0 a2 |......Y.|.....8..|
|00000060| da 38 f0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.8......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3a 05 00 00 |........|....:...|
|00000080| 0d 55 4e 49 54 20 47 65 | 74 51 44 47 6c 6f 62 73 |.UNIT Ge|tQDGlobs|
|00000090| 3b 0d 0d 49 4e 54 45 52 | 46 41 43 45 0d 0d 09 55 |;..INTER|FACE...U|
|000000a0| 53 45 53 0d 09 09 54 79 | 70 65 73 2c 20 51 75 69 |SES...Ty|pes, Qui|
|000000b0| 63 6b 44 72 61 77 2c 20 | 4f 53 55 74 69 6c 73 3b |ckDraw, |OSUtils;|
|000000c0| 0d 09 0d 09 54 59 50 45 | 0d 09 09 51 44 56 61 72 |....TYPE|...QDVar|
|000000d0| 52 65 63 50 74 72 09 3d | 09 5e 51 44 56 61 72 52 |RecPtr.=|.^QDVarR|
|000000e0| 65 63 3b 0d 09 09 51 44 | 56 61 72 52 65 63 09 3d |ec;...QD|VarRec.=|
|000000f0| 09 52 45 43 4f 52 44 0d | 09 09 09 09 09 09 09 72 |.RECORD.|.......r|
|00000100| 61 6e 64 53 65 65 64 09 | 3a 20 4c 6f 6e 67 69 6e |andSeed.|: Longin|
|00000110| 74 3b 0d 09 09 09 09 09 | 09 09 73 63 72 65 65 6e |t;......|..screen|
|00000120| 42 69 74 73 09 3a 20 42 | 69 74 4d 61 70 3b 0d 09 |Bits.: B|itMap;..|
|00000130| 09 09 09 09 09 09 61 72 | 72 6f 77 09 09 3a 20 43 |......ar|row..: C|
|00000140| 75 72 73 6f 72 3b 0d 09 | 09 09 09 09 09 09 64 6b |ursor;..|......dk|
|00000150| 47 72 61 79 09 09 3a 20 | 50 61 74 74 65 72 6e 3b |Gray..: |Pattern;|
|00000160| 0d 09 09 09 09 09 09 09 | 6c 74 47 72 61 79 09 09 |........|ltGray..|
|00000170| 3a 20 50 61 74 74 65 72 | 6e 3b 0d 09 09 09 09 09 |: Patter|n;......|
|00000180| 09 09 67 72 61 79 09 09 | 3a 20 50 61 74 74 65 72 |..gray..|: Patter|
|00000190| 6e 3b 0d 09 09 09 09 09 | 09 09 62 6c 61 63 6b 09 |n;......|..black.|
|000001a0| 09 3a 20 50 61 74 74 65 | 72 6e 3b 0d 09 09 09 09 |.: Patte|rn;.....|
|000001b0| 09 09 09 77 68 69 74 65 | 09 09 3a 20 50 61 74 74 |...white|..: Patt|
|000001c0| 65 72 6e 3b 0d 09 09 09 | 09 09 09 09 74 68 65 50 |ern;....|....theP|
|000001d0| 6f 72 74 09 09 3a 20 47 | 72 61 66 50 74 72 3b 0d |ort..: G|rafPtr;.|
|000001e0| 09 09 09 09 09 09 45 4e | 44 3b 0d 0d 09 50 52 4f |......EN|D;...PRO|
|000001f0| 43 45 44 55 52 45 20 47 | 65 74 4d 79 51 44 56 61 |CEDURE G|etMyQDVa|
|00000200| 72 73 20 28 56 41 52 20 | 71 64 56 61 72 73 3a 20 |rs (VAR |qdVars: |
|00000210| 51 44 56 61 72 52 65 63 | 29 3b 0d 0d 49 4d 50 4c |QDVarRec|);..IMPL|
|00000220| 45 4d 45 4e 54 41 54 49 | 4f 4e 0d 0d 09 50 52 4f |EMENTATI|ON...PRO|
|00000230| 43 45 44 55 52 45 20 47 | 65 74 4d 79 51 44 56 61 |CEDURE G|etMyQDVa|
|00000240| 72 73 20 28 56 41 52 20 | 71 64 56 61 72 73 3a 20 |rs (VAR |qdVars: |
|00000250| 51 44 56 61 72 52 65 63 | 29 3b 0d 09 54 59 50 45 |QDVarRec|);..TYPE|
|00000260| 0d 09 09 4c 6f 6e 67 50 | 74 72 20 3d 20 5e 4c 6f |...LongP|tr = ^Lo|
|00000270| 6e 67 69 6e 74 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |ngint;..|BEGIN...|
|00000280| 7b 20 41 6c 67 6f 72 69 | 74 68 6d 3a 0d 09 09 09 |{ Algori|thm:....|
|00000290| 31 2e 20 20 47 65 74 20 | 63 75 72 72 65 6e 74 20 |1.  Get |current |
|000002a0| 76 61 6c 75 65 20 6f 66 | 20 41 35 20 77 69 74 68 |value of| A5 with|
|000002b0| 20 53 65 74 43 75 72 72 | 65 6e 74 41 35 2e 0d 09 | SetCurr|entA5...|
|000002c0| 09 09 32 2e 20 20 44 65 | 72 65 66 65 72 65 6e 63 |..2.  De|referenc|
|000002d0| 65 20 74 6f 20 67 65 74 | 20 61 64 64 72 65 73 73 |e to get| address|
|000002e0| 20 6f 66 20 74 68 65 50 | 6f 72 74 2e 0d 09 09 09 | of theP|ort.....|
|000002f0| 33 2e 20 20 50 65 72 66 | 6f 72 6d 20 61 72 69 74 |3.  Perf|orm arit|
|00000300| 68 6d 65 74 69 63 20 74 | 6f 20 64 65 74 65 72 6d |hmetic t|o determ|
|00000310| 69 6e 65 20 61 64 64 72 | 65 73 73 20 6f 66 20 72 |ine addr|ess of r|
|00000320| 61 6e 64 53 65 65 64 2e | 0d 09 09 09 34 2e 20 20 |andSeed.|....4.  |
|00000330| 42 79 20 61 73 73 69 67 | 6e 6d 65 6e 74 2c 20 63 |By assig|nment, c|
|00000340| 6f 70 79 20 74 68 65 20 | 51 44 20 67 6c 6f 62 61 |opy the |QD globa|
|00000350| 6c 73 20 69 6e 74 6f 20 | 61 20 6c 6f 63 61 6c 20 |ls into |a local |
|00000360| 64 61 74 61 20 73 74 72 | 75 63 74 75 72 65 2e 20 |data str|ucture. |
|00000370| 7d 0d 09 09 71 64 56 61 | 72 73 20 3a 3d 20 51 44 |}...qdVa|rs := QD|
|00000380| 56 61 72 52 65 63 50 74 | 72 28 20 4c 6f 6e 67 50 |VarRecPt|r( LongP|
|00000390| 74 72 28 53 65 74 43 75 | 72 72 65 6e 74 41 35 29 |tr(SetCu|rrentA5)|
|000003a0| 5e 20 2d 20 28 53 69 7a | 65 4f 66 28 51 44 56 61 |^ - (Siz|eOf(QDVa|
|000003b0| 72 52 65 63 29 20 2d 20 | 53 69 7a 65 4f 66 28 74 |rRec) - |SizeOf(t|
|000003c0| 68 65 50 6f 72 74 29 29 | 20 29 5e 3b 0d 09 45 4e |hePort))| )^;..EN|
|000003d0| 44 3b 0d 0d 45 4e 44 2e | 0d 00 00 00 00 00 00 00 |D;..END.|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 05 96 | 00 00 04 96 00 00 00 78 |........|.......x|
|00000410| f9 a1 12 c0 5e 0d 13 7b | b2 13 d2 31 f7 10 0e 14 |....^..{|...1....|
|00000420| d8 e5 e3 f8 10 f7 0e 0f | 14 d8 e5 e3 f8 0e f7 0c |........|........|
|00000430| 0c 47 65 74 51 44 47 6c | 6f 62 73 2e 70 00 02 00 |.GetQDGl|obs.p...|
|00000440| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000450| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a9 7f fe 99 00 00 | 00 00 00 00 06 0e 12 7a |........|.......z|
|00000480| 61 d9 2f 12 31 17 2c 96 | 1b 90 19 17 22 96 17 18 |a./.1.,.|...."...|
|00000490| ea f9 98 f9 9e 50 ea f9 | 9d 65 f9 9c 17 0b ea 60 |.....P..|.e.....`|
|000004a0| 60 5f 07 d0 5f 07 d0 f9 | a7 17 0b 94 1e ea f9 a1 |`_.._...|........|
|000004b0| 67 95 12 16 56 cf 1b 1e | 17 0f 64 e6 0e 12 11 7b |g...V...|..d....{|
|000004c0| 2f 14 11 7a 31 1e ea f9 | a1 17 0f ea f9 a1 67 95 |/..z1...|......g.|
|000004d0| 79 e0 1e ea f9 a1 17 18 | ea f9 99 17 22 97 f7 07 |y.......|...."...|
|000004e0| f9 73 17 2c 97 dd 00 00 | 00 00 8e 00 00 00 02 fe |.s.,....|........|
|000004f0| 00 1a 02 fe 00 0a 00 1c | 01 f8 02 0a 02 24 02 32 |........|.....$.2|
|00000500| 00 00 02 88 00 46 e8 07 | ea 07 02 bd 66 73 65 74 |.....F..|....fset|
|00000510| 01 00 00 36 01 00 02 22 | 00 00 00 00 00 00 00 00 |...6..."|........|
|00000520| 01 00 06 20 00 00 00 00 | 01 00 02 88 00 00 00 00 |... ....|........|
|00000530| a2 d9 e4 9a 00 65 00 00 | ff af 00 2c fd 5f 4e 07 |.....e..|...,._N.|
|00000540| 02 b5 48 6d ef 1c 01 00 | 00 9a ff ff ff ff ff ff |..Hm....|........|
|00000550| ff ff 01 00 00 5e 01 00 | 01 2c ff ff 00 00 00 00 |.....^..|.,......|
|00000560| 00 4b 00 00 00 04 00 04 | 01 00 ff ff 01 00 00 36 |.K......|.......6|
|00000570| 03 75 01 00 02 06 00 4d | 7d 5f 4e 44 15 ff 4e 44 |.u.....M|}_ND..ND|
|00000580| 00 30 00 00 00 00 00 00 | 00 00 00 00 00 00 00 31 |.0......|.......1|
|00000590| d6 7c 00 00 01 75 6c 65 | 3d 00 0d 28 44 65 00 6c |.|...ule|=..(De.l|
|000005a0| 7d 5f 4e 44 15 ff 6e 29 | 09 4d ff ff ff ff ff ff |}_ND..n)|.M......|
|000005b0| ff ff ff ff ff ff 01 00 | 02 06 01 00 01 68 ff ff |........|.....h..|
|000005c0| 00 00 00 00 00 66 00 01 | 13 ad b0 05 ff ff 4e ba |.....f..|......N.|
|000005d0| d3 64 01 00 00 e6 01 00 | 01 e2 01 00 00 e6 00 00 |.d......|........|
|000005e0| 00 00 01 00 03 2c 00 00 | 00 c0 00 00 35 10 02 f0 |.....,..|....5...|
|000005f0| 82 df 04 b2 48 7a 01 00 | 01 0a ff ff ff ff 01 00 |....Hz..|........|
|00000600| 01 0a 03 00 10 82 01 00 | 03 7a 00 04 00 2c 00 06 |........|.z...,..|
|00000610| 39 11 f7 ff ff ff 00 f2 | 48 7a 01 00 01 2e ff ff |9.......|Hz......|
|00000620| ff ff 01 00 01 2e 03 00 | 11 d2 01 00 03 2d 00 12 |........|.....-..|
|00000630| 00 6e 00 fa 5f ba 27 f3 | ff ff 00 b4 30 2e 01 00 |.n.._.'.|....0...|
|00000640| 01 76 01 00 01 52 01 00 | 01 52 03 00 0d 8e 01 00 |.v...R..|.R......|
|00000650| 03 f6 00 56 00 3a 00 7a | 40 e8 9f cf ff ff 4e ba |...V.:.z|@.....N.|
|00000660| d2 62 ff ff ff ff ff ff | ff ff 01 00 01 76 03 00 |.b......|.....v..|
|00000670| 0d 8e 01 00 03 32 00 5e | 00 52 00 2e 68 9f cf ff |.....2.^|.R..h...|
|00000680| ff ff 4e ba d2 3e 01 00 | 01 9a ff ff ff ff 01 00 |..N..>..|........|
|00000690| 01 9a 03 00 0d 8e 01 00 | 03 2e 00 66 00 ba 00 24 |........|...f...$|
|000006a0| 71 0f 5e ff ff ff 8e 44 | 55 4d 01 00 01 be ff ff |q.^....D|UM......|
|000006b0| ff ff 01 00 01 be 03 00 | 0d 8e 01 00 03 65 00 6e |........|.....e.n|
|000006c0| 00 73 00 74 77 ca 08 7f | ff ff 10 20 63 6f ff ff |.s.tw...|... co..|
|000006d0| ff ff ff ff ff ff 01 00 | 01 e2 03 00 0d 8e 01 00 |........|........|
|000006e0| 03 65 00 76 00 73 00 74 | 0f 21 26 43 ff ff 10 20 |.e.v.s.t|.!&C... |
|000006f0| 66 69 ff ff ff ff ff ff | ff ff ff ff ff ff 03 00 |fi......|........|
|00000700| 19 44 01 00 03 65 00 7e | 00 20 00 00 00 82 00 00 |.D...e.~|. ......|
|00000710| 01 00 ff ff 01 00 00 9a | 06 00 01 00 00 c2 01 00 |........|........|
|00000720| 00 c2 ff ff ff ff 00 20 | e8 07 1e 07 02 b9 09 20 |....... |....... |
|00000730| 62 6c ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |bl......|........|
|00000740| 01 80 01 00 04 01 00 01 | 01 00 02 58 ff ff 00 00 |........|...X....|
|00000750| 00 0c ff ff 00 00 00 00 | 00 00 00 00 00 74 7d 5f |........|.....t}_|
|00000760| 4e 4d ff ff 48 c0 2f 00 | ff ff ff ff ff ff ff ff |NM..H./.|........|
|00000770| ff ff ff ff 01 00 02 06 | 01 00 02 01 08 7a ff ff |........|.....z..|
|00000780| 00 02 00 00 00 08 d1 3c | 48 7a 00 20 00 00 00 0c |.......<|Hz. ....|
|00000790| 44 15 22 5f 7d 5f 4e 4d | f5 07 c3 7f 00 00 01 aa |D."_}_NM|........|
|000007a0| a1 52 96 6f a2 d9 e4 9a | a2 d9 e4 90 00 01 02 b5 |.R.o....|........|
|000007b0| ff ff ff ff 4a 05 08 01 | 00 00 00 00 01 00 00 01 |....J...|........|
|000007c0| 00 00 00 04 00 31 6b be | 00 31 83 34 00 03 65 74 |.....1k.|.1.4..et|
|000007d0| 20 4e 17 53 74 61 6e 64 | 61 72 64 20 50 61 73 63 | N.Stand|ard Pasc|
|000007e0| 61 6c 20 53 79 6d 62 6f | 6c 73 67 72 61 6d 20 4e |al Symbo|lsgram N|
|000007f0| 61 6d 65 3f 22 20 2d 64 | 20 22 7b 50 72 6f 67 72 |ame?" -d| "{Progr|
|00000800| 61 6d 7d 22 20 7c 7c 20 | 45 63 68 6f 20 60 22 3b |am}" || |Echo `";|
|00000810| 20 09 00 31 d6 1e 00 31 | d8 a6 00 1e a2 d9 e4 9a | ..1...1|........|
|00000820| 0a 47 45 54 51 44 47 4c | 4f 42 53 6f 72 20 2d 20 |.GETQDGL|OBSor - |
|00000830| 72 65 73 65 74 69 6e 67 | 20 6c 69 73 74 20 73 69 |reseting| list si|
|00000840| 7a 65 24 1f 20 5f 22 5f | 22 19 b2 98 6c 08 3e bc |ze$. _"_|"...l.>.|
|00000850| ff ff 20 42 4e d0 67 24 | 3e bc 00 01 20 42 4e d0 |.. BN.g$|>... BN.|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 a2 d2 0f 2d 07 4f |........|.....-.O|
|00000870| 53 55 54 49 4c 53 4f 42 | 53 6f 72 20 2d 20 72 65 |SUTILSOB|Sor - re|
|00000880| 73 65 74 69 6e 67 20 6c | 69 73 74 20 73 69 7a 65 |seting l|ist size|
|00000890| 24 1f 20 5f 22 5f 22 19 | b2 98 6c 08 3e bc ff ff |$. _"_".|..l.>...|
|000008a0| 20 42 4e d0 67 24 3e bc | 00 01 20 42 4e d0 00 00 | BN.g$>.|.. BN...|
|000008b0| 00 00 00 00 00 00 00 08 | a2 d9 dd a9 09 51 55 49 |........|.....QUI|
|000008c0| 43 4b 44 52 41 57 53 6f | 72 20 2d 20 72 65 73 65 |CKDRAWSo|r - rese|
|000008d0| 74 69 6e 67 20 6c 69 73 | 74 20 73 69 7a 65 24 1f |ting lis|t size$.|
|000008e0| 20 5f 22 5f 22 19 b2 98 | 6c 08 3e bc ff ff 20 42 | _"_"...|l.>... B|
|000008f0| 4e d0 67 24 3e bc 00 01 | 20 42 4e d0 00 00 00 00 |N.g$>...| BN.....|
|00000900| 00 00 00 00 00 00 a2 d2 | 0f 17 05 54 59 50 45 53 |........|...TYPES|
|00000910| 44 52 41 57 53 6f 72 20 | 2d 20 72 65 73 65 74 69 |DRAWSor |- reseti|
|00000920| 6e 67 20 6c 69 73 74 20 | 73 69 7a 65 24 1f 20 5f |ng list |size$. _|
|00000930| 22 5f 22 19 b2 98 6c 08 | 3e bc ff ff 20 42 4e d0 |"_"...l.|>... BN.|
|00000940| 67 24 3e bc 00 01 20 42 | 4e d0 00 00 00 48 00 09 |g$>... B|N....H..|
|00000950| 4d 6f 6e 61 63 6f 00 00 | 00 00 00 05 a2 00 40 81 |Monaco..|......@.|
|00000960| 09 02 00 00 00 00 00 00 | 00 30 72 b8 ff ff 0b c2 |........|.0r.....|
|00000970| 00 06 00 04 00 3c 00 24 | 02 07 02 8c 00 3c 00 24 |.....<.$|.....<.$|
|00000980| 02 07 02 8c a2 d9 e4 90 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 01 00 00 00 | 01 00 00 00 05 96 00 00 |........|........|
|000009a0| 04 96 00 00 00 78 00 2e | c6 d4 0b c2 00 00 00 1c |.....x..|........|
|000009b0| 00 5e 00 01 75 6e 69 74 | 00 02 00 12 4d 50 53 52 |.^..unit|....MPSR|
|000009c0| 00 00 00 36 00 03 00 00 | 00 00 00 00 00 00 00 00 |...6....|........|
|000009d0| 00 02 00 0a 00 00 02 8c | 00 00 00 00 00 00 00 13 |........|........|
|000009e0| 00 00 02 9c 00 00 00 00 | 03 ed ff ff 00 00 04 4a |........|.......J|
|000009f0| 00 30 6f 14 09 53 79 6d | 62 54 61 62 6c 65 08 50 |.0o..Sym|bTable.P|
|00000a00| 61 63 6b 53 79 6d 73 06 | 48 65 61 64 65 72 00 00 |ackSyms.|Header..|
|00000a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+