/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / PRO_S.PULLINGER / Number_Requester.Amos

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 50 72 6f | 31 30 31 76 00 00 00 00 |AMOS Pro|101v....|
|00000010| 00 00 09 64 18 01 06 52 | 00 28 20 4e 75 6d 62 65 |...d...R|.( Numbe|
|00000020| 72 5f 52 65 71 75 65 73 | 74 65 72 2e 41 6d 6f 73 |r_Reques|ter.Amos|
|00000030| 20 2d 20 53 74 65 76 65 | 20 50 75 6c 6c 69 6e 67 | - Steve| Pulling|
|00000040| 65 72 00 00 02 01 00 00 | 02 01 00 00 1b 01 06 52 |er......|.......R|
|00000050| 00 2e 20 55 73 65 73 20 | 49 6e 74 65 72 66 61 63 |.. Uses |Interfac|
|00000060| 65 20 74 6f 20 67 65 74 | 20 61 20 6e 75 6d 62 65 |e to get| a numbe|
|00000070| 72 20 66 72 6f 6d 20 74 | 68 65 20 75 73 65 72 20 |r from t|he user |
|00000080| 00 00 02 01 00 00 02 01 | 00 00 14 01 06 52 00 20 |........|.....R. |
|00000090| 20 49 6e 69 74 69 61 6c | 69 73 65 20 49 6e 74 65 | Initial|ise Inte|
|000000a0| 72 66 61 63 65 20 72 65 | 73 6f 75 72 63 65 73 20 |rface re|sources |
|000000b0| 00 00 22 01 18 4e 00 26 | 00 39 41 4d 4f 53 50 72 |.."..N.&|.9AMOSPr|
|000000c0| 6f 5f 54 75 74 6f 72 69 | 61 6c 3a 54 75 74 6f 72 |o_Tutori|al:Tutor|
|000000d0| 69 61 6c 73 2f 49 6e 74 | 65 72 66 61 63 65 2f 45 |ials/Int|erface/E|
|000000e0| 78 61 6d 70 6c 65 5f 72 | 65 73 6f 75 72 63 65 2e |xample_r|esource.|
|000000f0| 61 62 6b 00 00 00 06 01 | 28 ca 00 3e 00 00 00 10 |abk.....|(..>....|
|00000100| 00 00 12 01 28 ee 00 3e | 00 00 00 00 00 5c 00 3e |....(..>|.....\.>|
|00000110| 00 00 02 80 00 5c 00 3e | 00 00 00 c8 00 5c 00 3e |.....\.>|.....\.>|
|00000120| 00 00 00 00 00 00 14 01 | 0d 34 00 54 14 46 00 54 |........|.4.T.F.T|
|00000130| 0b b8 00 3e 00 00 00 00 | 00 54 13 dc 00 3e 00 00 |...>....|.T...>..|
|00000140| 00 00 00 54 13 d2 00 3e | 00 00 00 08 00 00 16 01 |...T...>|........|
|00000150| 0c fc 00 5c 00 5c 00 5c | 00 5c 00 36 00 00 08 40 |...\.\.\|.\.6...@|
|00000160| 00 5c 00 36 00 00 0c 84 | 00 5c 00 36 00 00 0f c8 |.\.6....|.\.6....|
|00000170| 00 5c 00 36 00 00 0f eb | 00 00 03 01 0c ca 00 00 |.\.6....|........|
|00000180| 02 01 00 00 02 01 00 00 | 10 01 06 52 00 18 20 45 |........|...R.. E|
|00000190| 78 61 6d 70 6c 65 20 70 | 72 6f 63 65 64 75 72 65 |xample p|rocedure|
|000001a0| 20 63 61 6c 6c 20 00 00 | 1d 01 00 12 ff f0 0a 80 | call ..|........|
|000001b0| 6e 5f 72 65 71 75 65 73 | 74 00 00 84 00 26 00 15 |n_reques|t....&..|
|000001c0| 50 6c 65 61 73 65 20 45 | 6e 74 65 72 20 61 20 6e |Please E|nter a n|
|000001d0| 75 6d 62 65 72 00 00 5c | 00 3e 00 00 01 36 00 8c |umber..\|.>...6..|
|000001e0| 00 00 14 01 00 06 00 00 | 02 00 6e 72 ff a2 03 e2 |........|..nr....|
|000001f0| 00 54 06 4a 00 12 20 47 | 65 74 20 72 65 74 75 72 |.T.J.. G|et retur|
|00000200| 6e 20 76 61 6c 75 65 20 | 00 00 02 01 00 00 10 01 |n value |........|
|00000210| 06 52 00 18 20 50 72 69 | 6e 74 20 53 74 72 69 6e |.R.. Pri|nt Strin|
|00000220| 67 20 66 72 6f 6d 20 62 | 61 73 69 63 00 00 14 01 |g from b|asic....|
|00000230| 04 76 00 26 00 14 50 72 | 6f 63 65 64 75 72 65 20 |.v.&..Pr|ocedure |
|00000240| 72 65 74 75 72 6e 65 64 | 3a 20 00 64 00 06 00 00 |returned|: .d....|
|00000250| 02 00 6e 72 00 00 02 01 | 00 00 28 01 06 52 00 48 |..nr....|..(..R.H|
|00000260| 20 54 6f 20 63 61 6c 6c | 20 74 68 65 20 70 72 6f | To call| the pro|
|00000270| 63 65 64 75 72 65 2c 20 | 70 61 73 73 20 61 20 73 |cedure, |pass a s|
|00000280| 74 72 69 6e 67 20 66 6f | 72 20 74 68 65 20 74 69 |tring fo|r the ti|
|00000290| 74 6c 65 20 61 6e 64 20 | 61 20 64 65 66 61 75 6c |tle and |a defaul|
|000002a0| 74 20 76 61 6c 75 65 20 | 00 00 02 01 00 00 1f 01 |t value |........|
|000002b0| 03 76 00 00 06 a4 00 1e | 80 00 00 06 00 00 0a 80 |.v......|........|
|000002c0| 6e 5f 72 65 71 75 65 73 | 74 00 00 84 00 06 00 00 |n_reques|t.......|
|000002d0| 06 02 74 69 74 6c 65 00 | 00 5c 00 06 00 06 08 00 |..title.|.\......|
|000002e0| 64 65 66 5f 76 61 6c 00 | 00 8c 00 00 02 04 00 00 |def_val.|........|
|000002f0| 25 04 06 52 00 42 20 54 | 68 69 73 20 70 72 6f 63 |%..R.B T|his proc|
|00000300| 65 64 75 72 65 20 64 69 | 73 70 6c 61 79 73 20 61 |edure di|splays a|
|00000310| 6e 20 49 6e 74 65 72 66 | 61 63 65 20 72 65 71 75 |n Interf|ace requ|
|00000320| 65 73 74 65 72 20 63 65 | 6e 74 72 65 64 20 6f 6e |ester ce|ntred on|
|00000330| 2d 73 63 72 65 65 6e 20 | 00 00 25 04 06 52 00 42 |-screen |..%..R.B|
|00000340| 20 54 68 65 20 74 69 74 | 6c 65 20 66 6f 72 20 74 | The tit|le for t|
|00000350| 68 65 20 72 65 71 75 65 | 73 74 65 72 20 69 73 20 |he reque|ster is |
|00000360| 70 61 73 73 65 64 20 61 | 73 20 54 49 54 4c 45 24 |passed a|s TITLE$|
|00000370| 20 61 6e 64 20 74 68 65 | 20 70 72 6f 63 65 64 75 | and the| procedu|
|00000380| 72 65 00 00 23 04 06 52 | 00 3e 20 72 65 74 75 72 |re..#..R|.> retur|
|00000390| 6e 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 69 6e |ns the n|umber in|
|000003a0| 70 75 74 20 66 72 6f 6d | 20 61 6e 20 49 6e 74 65 |put from| an Inte|
|000003b0| 72 66 61 63 65 20 65 6e | 74 65 72 20 44 49 67 69 |rface en|ter DIgi|
|000003c0| 74 20 7a 6f 6e 65 20 20 | 00 00 02 04 00 00 1b 04 |t zone  |........|
|000003d0| 06 52 00 2e 20 44 45 46 | 5f 56 41 4c 20 69 73 20 |.R.. DEF|_VAL is |
|000003e0| 61 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |a defaul|t value |
|000003f0| 66 6f 72 20 74 68 65 20 | 72 65 71 75 65 73 74 65 |for the |requeste|
|00000400| 72 20 00 00 1a 04 06 52 | 00 2c 20 45 58 41 4d 50 |r .....R|., EXAMP|
|00000410| 4c 45 3a 20 52 45 51 55 | 45 53 54 5b 22 50 6c 65 |LE: REQU|EST["Ple|
|00000420| 61 73 65 20 65 6e 74 65 | 72 20 61 20 6e 75 6d 62 |ase ente|r a numb|
|00000430| 65 72 22 5d 20 20 00 00 | 02 04 00 00 0d 04 06 52 |er"]  ..|.......R|
|00000440| 00 12 20 49 6e 74 65 72 | 66 61 63 65 20 50 72 6f |.. Inter|face Pro|
|00000450| 67 72 61 6d 00 00 02 04 | 00 00 1e 04 00 06 00 0c |gram....|........|
|00000460| 0a 02 69 6e 5f 73 74 72 | 69 6e 67 00 ff a2 00 06 |..in_str|ing.....|
|00000470| 00 0c 0a 02 69 6e 5f 73 | 74 72 69 6e 67 00 ff c0 |....in_s|tring...|
|00000480| 00 26 00 0f 42 41 73 65 | 20 20 20 20 20 38 30 2c |.&..BAse|     80,|
|00000490| 34 30 3b 00 00 00 29 04 | 00 06 00 0c 0a 02 69 6e |40;...).|......in|
|000004a0| 5f 73 74 72 69 6e 67 00 | ff a2 00 06 00 0c 0a 02 |_string.|........|
|000004b0| 69 6e 5f 73 74 72 69 6e | 67 00 ff c0 00 26 00 26 |in_strin|g....&.&|
|000004c0| 53 49 7a 65 20 20 20 20 | 20 31 56 41 54 65 78 74 |SIze    | 1VAText|
|000004d0| 57 69 64 74 68 33 32 2b | 2c 54 65 78 74 48 65 69 |Width32+|,TextHei|
|000004e0| 67 68 74 36 2a 3b 00 00 | 30 04 00 06 00 0c 0a 02 |ght6*;..|0.......|
|000004f0| 69 6e 5f 73 74 72 69 6e | 67 00 ff a2 00 06 00 0c |in_strin|g.......|
|00000500| 0a 02 69 6e 5f 73 74 72 | 69 6e 67 00 ff c0 00 26 |..in_str|ing....&|
|00000510| 00 34 42 41 73 65 20 20 | 20 20 20 53 63 72 65 65 |.4BAse  |   Scree|
|00000520| 6e 57 69 64 74 68 20 53 | 69 7a 65 58 2d 32 2f 2c |nWidth S|izeX-2/,|
|00000530| 53 63 72 65 65 6e 48 65 | 69 67 68 74 20 53 69 7a |ScreenHe|ight Siz|
|00000540| 65 59 2d 32 2f 3b 00 00 | 1c 04 00 06 00 0c 0a 02 |eY-2/;..|........|
|00000550| 69 6e 5f 73 74 72 69 6e | 67 00 ff a2 00 06 00 0c |in_strin|g.......|
|00000560| 0a 02 69 6e 5f 73 74 72 | 69 6e 67 00 ff c0 00 26 |..in_str|ing....&|
|00000570| 00 0b 53 41 76 65 20 20 | 20 20 20 31 3b 00 00 00 |..SAve  |   1;...|
|00000580| 24 04 00 06 00 0c 0a 02 | 69 6e 5f 73 74 72 69 6e |$.......|in_strin|
|00000590| 67 00 ff a2 00 06 00 0c | 0a 02 69 6e 5f 73 74 72 |g.......|..in_str|
|000005a0| 69 6e 67 00 ff c0 00 26 | 00 1b 42 4f 78 20 20 20 |ing....&|..BOx   |
|000005b0| 20 20 20 30 2c 30 2c 31 | 2c 53 69 7a 65 58 2c 53 |   0,0,1|,SizeX,S|
|000005c0| 69 7a 65 59 3b 00 00 00 | 26 04 00 06 00 0c 0a 02 |izeY;...|&.......|
|000005d0| 69 6e 5f 73 74 72 69 6e | 67 00 ff a2 00 06 00 0c |in_strin|g.......|
|000005e0| 0a 02 69 6e 5f 73 74 72 | 69 6e 67 00 ff c0 00 26 |..in_str|ing....&|
|000005f0| 00 1f 50 4f 75 74 6c 69 | 6e 65 20 31 56 41 43 65 |..POutli|ne 1VACe|
|00000600| 6e 74 72 65 58 2c 31 30 | 2c 31 56 41 2c 30 2c 33 |ntreX,10|,1VA,0,3|
|00000610| 3b 00 00 00 02 00 00 00 | 26 04 06 52 00 44 20 49 |;.......|&..R.D I|
|00000620| 66 20 79 6f 75 20 64 6f | 6e 27 74 20 77 61 6e 74 |f you do|n't want|
|00000630| 20 61 20 64 65 66 61 75 | 6c 74 20 76 61 6c 75 65 | a defau|lt value|
|00000640| 20 63 68 61 6e 67 65 20 | 74 68 65 20 31 20 61 66 | change |the 1 af|
|00000650| 74 65 72 20 33 56 41 20 | 74 6f 20 30 20 62 65 6c |ter 3VA |to 0 bel|
|00000660| 6f 77 00 00 26 04 00 06 | 00 0c 0a 02 69 6e 5f 73 |ow..&...|....in_s|
|00000670| 74 72 69 6e 67 00 ff a2 | 00 06 00 0c 0a 02 69 6e |tring...|......in|
|00000680| 5f 73 74 72 69 6e 67 00 | ff c0 00 26 00 20 44 49 |_string.|...&. DI|
|00000690| 20 20 20 20 20 20 20 31 | 2c 31 36 2c 33 32 2c 32 |       1|,16,32,2|
|000006a0| 56 41 2c 33 56 41 2c 31 | 2c 34 2c 36 20 3b 00 00 |VA,3VA,1|,4,6 ;..|
|000006b0| 19 04 00 06 00 0c 0a 02 | 69 6e 5f 73 74 72 69 6e |........|in_strin|
|000006c0| 67 00 ff a2 00 06 00 0c | 0a 02 69 6e 5f 73 74 72 |g.......|..in_str|
|000006d0| 69 6e 67 00 ff c0 00 26 | 00 05 45 58 69 74 3b 00 |ing....&|..EXit;.|
|000006e0| 00 00 02 04 00 00 02 04 | 00 00 23 04 06 52 00 3e |........|..#..R.>|
|000006f0| 20 4f 70 65 6e 20 43 6f | 6d 6d 75 6e 69 63 61 74 | Open Co|mmunicat|
|00000700| 69 6f 6e 20 43 68 61 6e | 6e 65 6c 20 62 65 74 77 |ion Chan|nel betw|
|00000710| 65 65 6e 20 41 6d 6f 73 | 20 61 6e 64 20 49 6e 74 |een Amos| and Int|
|00000720| 65 72 66 61 63 65 20 70 | 72 6f 67 72 61 6d 00 00 |erface p|rogram..|
|00000730| 0f 04 27 20 00 3e 00 00 | 00 01 00 5c 00 06 00 0c |..' .>..|...\....|
|00000740| 0a 02 69 6e 5f 73 74 72 | 69 6e 67 00 00 00 02 04 |..in_str|ing.....|
|00000750| 00 00 14 04 06 52 00 20 | 20 50 61 73 73 20 74 69 |.....R. | Pass ti|
|00000760| 74 6c 65 20 73 74 72 69 | 6e 67 20 74 6f 20 49 6e |tle stri|ng to In|
|00000770| 74 65 72 66 61 63 65 20 | 00 00 13 04 00 06 00 00 |terface |........|
|00000780| 06 02 74 69 74 6c 65 00 | ff a2 00 26 00 01 20 00 |..title.|...&.. .|
|00000790| ff c0 00 06 00 00 06 02 | 74 69 74 6c 65 00 00 00 |........|title...|
|000007a0| 13 04 00 06 00 00 06 02 | 74 69 74 6c 65 00 ff a2 |........|title...|
|000007b0| 00 06 00 00 06 02 74 69 | 74 6c 65 00 ff c0 00 26 |......ti|tle....&|
|000007c0| 00 01 20 00 00 00 13 04 | 27 b6 00 74 00 3e 00 00 |.. .....|'..t.>..|
|000007d0| 00 01 00 5c 00 3e 00 00 | 00 01 00 7c ff a2 00 06 |...\.>..|...|....|
|000007e0| 00 00 06 02 74 69 74 6c | 65 00 00 00 16 04 27 a4 |....titl|e.....'.|
|000007f0| 00 74 00 3e 00 00 00 01 | 00 5c 00 3e 00 00 00 02 |.t.>....|.\.>....|
|00000800| 00 7c ff a2 05 da 00 74 | 00 06 00 00 06 02 74 69 |.|.....t|......ti|
|00000810| 74 6c 65 00 00 7c 00 00 | 14 04 27 a4 00 74 00 3e |tle..|..|..'..t.>|
|00000820| 00 00 00 01 00 5c 00 3e | 00 00 00 03 00 7c ff a2 |.....\.>|.....|..|
|00000830| 00 06 00 06 08 00 64 65 | 66 5f 76 61 6c 00 00 00 |......de|f_val...|
|00000840| 02 04 00 00 11 04 06 52 | 00 1a 20 43 61 6c 6c 20 |.......R|.. Call |
|00000850| 47 45 54 5f 53 54 52 49 | 4e 47 24 20 70 72 6f 67 |GET_STRI|NG$ prog|
|00000860| 72 61 6d 20 00 00 0d 04 | 00 06 00 12 02 00 78 00 |ram ....|......x.|
|00000870| ff a2 27 6c 00 74 00 3e | 00 00 00 01 00 7c 00 00 |..'l.t.>|.....|..|
|00000880| 02 04 00 00 10 04 06 52 | 00 18 20 57 61 69 74 20 |.......R|.. Wait |
|00000890| 66 6f 72 20 69 6e 70 75 | 74 20 63 6f 6d 70 6c 65 |for inpu|t comple|
|000008a0| 74 65 00 00 04 04 02 50 | 00 6c 00 00 19 07 06 52 |te.....P|.l.....R|
|000008b0| 00 2a 20 52 45 54 20 69 | 73 20 72 65 74 75 72 6e |.* RET i|s return|
|000008c0| 65 64 20 62 79 20 74 68 | 65 20 70 72 6f 63 65 64 |ed by th|e proced|
|000008d0| 75 72 65 20 74 6f 20 41 | 6d 6f 73 20 00 00 12 07 |ure to A|mos ....|
|000008e0| 00 06 00 18 04 00 72 65 | 74 00 ff a2 27 c8 00 74 |......re|t...'..t|
|000008f0| 00 3e 00 00 00 01 00 5c | 00 3e 00 00 00 01 00 7c |.>.....\|.>.....||
|00000900| 00 00 09 04 02 5c 27 96 | 00 74 00 3e 00 00 00 01 |.....\'.|.t.>....|
|00000910| 00 7c 00 00 02 04 00 00 | 10 04 06 52 00 18 20 43 |.|......|...R.. C|
|00000920| 6c 6f 73 65 20 49 6e 74 | 65 72 66 61 63 65 20 70 |lose Int|erface p|
|00000930| 72 6f 67 72 61 6d 00 00 | 08 04 27 64 00 74 00 3e |rogram..|..'d.t.>|
|00000940| 00 00 00 01 00 7c 00 00 | 02 04 00 00 0a 01 03 90 |.....|..|........|
|00000950| 00 84 00 06 00 18 04 00 | 72 65 74 00 00 8c 00 00 |........|ret.....|
|00000960| 02 01 00 00 02 01 00 00 | 02 01 00 00 02 01 00 00 |........|........|
|00000970| 02 01 00 00 02 01 00 00 | 41 6d 42 73 00 00       |........|AmBs..  |
+--------+-------------------------+-------------------------+--------+--------+