BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / M / Modem Answer 2.sit / ModemAnswer.p < prev next >

MacBinary | 1989-10-28 | 1.5 KB | [TEXT/MSP ]

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: ModemAnswer.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 Oct 28 11:21:29 1989, modified Sat Oct 28 11:21:29 1989, creator 'MSP ', type ASCII, 913 bytes "ModemAnswer.p" , at 0x411 382 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	`[MSP ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 4d 6f 64 65 6d 41 | 6e 73 77 65 72 2e 70 00 |..ModemA|nswer.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 53 50 | 20 00 00 00 00 00 00 00 |.TEXTMSP| .......|
|00000050| 00 00 00 00 00 03 91 00 | 00 01 7e a1 6f 74 79 a1 |........|..~.oty.|
|00000060| 6f 74 79 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |oty.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc 53 00 00 |........|.....S..|
|00000080| 50 52 4f 47 52 41 4d 20 | 4d 6f 64 65 6d 41 6e 73 |PROGRAM |ModemAns|
|00000090| 77 65 72 3b 0d 0d 55 53 | 45 53 0d 09 4d 65 6d 74 |wer;..US|ES..Memt|
|000000a0| 79 70 65 73 2c 51 75 69 | 63 6b 44 72 61 77 2c 4f |ypes,Qui|ckDraw,O|
|000000b0| 53 49 6e 74 66 2c 54 6f | 6f 6c 49 6e 74 66 2c 50 |SIntf,To|olIntf,P|
|000000c0| 61 63 6b 49 6e 74 66 3b | 0d 0d 56 41 52 0d 09 45 |ackIntf;|..VAR..E|
|000000d0| 72 72 20 3a 20 4f 53 45 | 72 72 3b 0d 09 4f 75 74 |rr : OSE|rr;..Out|
|000000e0| 52 65 66 4e 75 6d 2c 20 | 49 6e 52 65 66 4e 75 6d |RefNum, |InRefNum|
|000000f0| 20 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 49 6e 70 | : integ|er;..Inp|
|00000100| 75 74 42 75 66 66 65 72 | 20 3a 20 50 41 43 4b 45 |utBuffer| : PACKE|
|00000110| 44 20 41 52 52 41 59 5b | 31 2e 2e 31 30 30 30 30 |D ARRAY[|1..10000|
|00000120| 5d 20 4f 46 20 63 68 61 | 72 3b 0d 09 43 6f 6e 66 |] OF cha|r;..Conf|
|00000130| 69 67 20 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 72 |ig : int|eger;..r|
|00000140| 72 20 3a 20 53 74 72 32 | 35 35 3b 0d 0d 0d 50 52 |r : Str2|55;...PR|
|00000150| 4f 43 45 44 55 52 45 20 | 57 72 69 74 65 54 6f 4d |OCEDURE |WriteToM|
|00000160| 6f 64 65 6d 3b 0d 43 4f | 4e 53 54 0d 09 73 65 6e |odem;.CO|NST..sen|
|00000170| 64 54 68 69 73 20 3d 20 | 27 41 54 20 53 30 20 3d |dThis = |'AT S0 =|
|00000180| 20 33 27 3b 0d 56 41 52 | 0d 09 63 6f 75 6e 74 20 | 3';.VAR|..count |
|00000190| 3a 20 4c 6f 6e 67 49 6e | 74 3b 0d 09 62 75 66 66 |: LongIn|t;..buff|
|000001a0| 65 72 20 3a 20 50 41 43 | 4b 45 44 20 41 52 52 41 |er : PAC|KED ARRA|
|000001b0| 59 5b 31 2e 2e 35 30 5d | 20 4f 46 20 63 68 61 72 |Y[1..50]| OF char|
|000001c0| 3b 0d 09 49 20 3a 20 49 | 4e 54 45 47 45 52 3b 0d |;..I : I|NTEGER;.|
|000001d0| 42 45 47 49 4e 0d 20 20 | 63 6f 75 6e 74 20 3a 3d |BEGIN.  |count :=|
|000001e0| 20 4c 45 4e 47 54 48 28 | 73 65 6e 64 54 68 69 73 | LENGTH(|sendThis|
|000001f0| 29 3b 0d 09 66 6f 72 20 | 69 20 3a 3d 20 31 20 74 |);..for |i := 1 t|
|00000200| 6f 20 63 6f 75 6e 74 20 | 64 6f 0d 09 62 75 66 66 |o count |do..buff|
|00000210| 65 72 5b 69 5d 20 3a 3d | 20 73 65 6e 64 54 68 69 |er[i] :=| sendThi|
|00000220| 73 5b 69 5d 3b 0d 09 62 | 75 66 66 65 72 5b 63 6f |s[i];..b|uffer[co|
|00000230| 75 6e 74 20 2b 20 31 5d | 20 3a 3d 20 63 68 72 28 |unt + 1]| := chr(|
|00000240| 31 33 29 3b 0d 09 63 6f | 75 6e 74 20 3a 3d 20 63 |13);..co|unt := c|
|00000250| 6f 75 6e 74 20 2b 20 31 | 3b 0d 09 45 72 72 20 3a |ount + 1|;..Err :|
|00000260| 3d 20 46 53 57 72 69 74 | 65 28 4f 75 74 52 65 66 |= FSWrit|e(OutRef|
|00000270| 4e 75 6d 2c 20 63 6f 75 | 6e 74 2c 20 40 62 75 66 |Num, cou|nt, @buf|
|00000280| 66 65 72 29 3b 0d 45 4e | 44 3b 0d 0d 50 52 4f 43 |fer);.EN|D;..PROC|
|00000290| 45 44 55 52 45 20 53 65 | 74 55 70 3b 0d 0d 42 45 |EDURE Se|tUp;..BE|
|000002a0| 47 49 4e 0d 09 45 72 72 | 20 3a 3d 20 4f 70 65 6e |GIN..Err| := Open|
|000002b0| 44 72 69 76 65 72 28 27 | 2e 41 4f 75 74 27 2c 20 |Driver('|.AOut', |
|000002c0| 4f 75 74 52 65 66 4e 75 | 6d 29 3b 0d 09 45 72 72 |OutRefNu|m);..Err|
|000002d0| 20 3a 3d 20 4f 70 65 6e | 44 72 69 76 65 72 28 27 | := Open|Driver('|
|000002e0| 2e 41 49 6e 27 2c 20 49 | 6e 52 65 66 4e 75 6d 29 |.AIn', I|nRefNum)|
|000002f0| 3b 0d 09 45 72 72 20 3a | 3d 20 53 65 72 53 65 74 |;..Err :|= SerSet|
|00000300| 42 75 66 28 49 6e 52 65 | 66 4e 75 6d 2c 20 40 49 |Buf(InRe|fNum, @I|
|00000310| 6e 70 75 74 42 75 66 66 | 65 72 2c 20 31 30 30 30 |nputBuff|er, 1000|
|00000320| 30 29 3b 0d 09 43 6f 6e | 66 69 67 20 3a 3d 20 62 |0);..Con|fig := b|
|00000330| 61 75 64 33 30 30 20 2b | 20 64 61 74 61 38 20 2b |aud300 +| data8 +|
|00000340| 20 73 74 6f 70 31 30 20 | 2b 20 4e 6f 50 61 72 69 | stop10 |+ NoPari|
|00000350| 74 79 3b 0d 09 45 72 72 | 20 3a 3d 20 53 65 72 52 |ty;..Err| := SerR|
|00000360| 65 73 65 74 28 4f 75 74 | 52 65 66 4e 75 6d 2c 20 |eset(Out|RefNum, |
|00000370| 43 6f 6e 66 69 67 29 3b | 0d 09 45 72 72 20 3a 3d |Config);|..Err :=|
|00000380| 20 53 65 72 52 65 73 65 | 74 28 49 6e 52 65 66 4e | SerRese|t(InRefN|
|00000390| 75 6d 2c 20 43 6f 6e 66 | 69 67 29 3b 0d 45 4e 44 |um, Conf|ig);.END|
|000003a0| 3b 0d 0d 42 45 47 49 4e | 0d 20 20 53 65 74 75 70 |;..BEGIN|.  Setup|
|000003b0| 3b 0d 20 20 57 72 69 74 | 65 54 6f 4d 6f 64 65 6d |;.  Writ|eToModem|
|000003c0| 3b 0d 20 20 0d 20 20 45 | 72 72 20 3a 3d 20 53 65 |;.  .  E|rr := Se|
|000003d0| 72 53 65 74 42 75 66 28 | 49 6e 52 65 66 4e 75 6d |rSetBuf(|InRefNum|
|000003e0| 2c 20 40 49 6e 70 75 74 | 42 75 66 66 65 72 2c 20 |, @Input|Buffer, |
|000003f0| 30 29 3b 0d 20 20 52 41 | 4d 53 44 43 6c 6f 73 65 |0);.  RA|MSDClose|
|00000400| 28 73 50 6f 72 74 41 29 | 3b 0d 0d 0d 45 4e 44 2e |(sPortA)|;...END.|
|00000410| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000490| 61 6c 3b 0d 20 20 20 20 | 50 75 74 53 63 72 65 65 |al;.    |PutScree|
|000004a0| 6e 28 63 68 29 3b 0d 20 | 20 20 20 48 61 6e 64 6c |n(ch);. |   Handl|
|000004b0| 0d 4d 6f 64 65 6d 41 6e | 73 77 65 72 2e 70 02 00 |.ModemAn|swer.p..|
|000004c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000004d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a9 8d 4b d2 00 00 | 00 00 00 00 01 7e 00 00 |....K...|.....~..|
|00000500| 00 00 00 05 24 00 00 00 | 01 49 00 00 00 00 00 00 |....$...|.I......|
|00000510| 00 00 00 0a 48 00 01 49 | 01 49 80 5a 01 49 00 00 |....H..I|.I.Z.I..|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 00 48 00 09 4d 6f | 6e 61 63 6f 00 04 b0 f8 |...H..Mo|naco....|
|00000590| 00 04 ac 50 ff ff 00 00 | 2c ec 00 00 00 00 00 00 |...P....|,.......|
|000005a0| 00 00 00 00 00 00 00 06 | 00 04 01 0e 00 08 01 d8 |........|........|
|000005b0| 02 78 01 0e 00 08 01 d8 | 02 78 a1 6f 2e 29 00 00 |.x......|.x.o.)..|
|000005c0| 03 4a 00 00 03 4a 00 00 | 02 d4 01 00 00 00 01 00 |.J...J..|........|
|000005d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 32 36 48 |...L...L|...2.26H|
|000005e0| 06 fc 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000005f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 33 38 d0 00 00 |........|...38...|
+--------+-------------------------+-------------------------+--------+--------+