/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / extra_source.lha / OTHER_SOURCE / NEW_INPUT.Amos

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 14 30 04 01 06 52 | 00 00 00 00 1e 01 06 52 |...0...R|.......R|
|00000020| 00 34 20 20 4e 45 57 20 | 49 4e 50 55 54 20 52 4f |.4  NEW |INPUT RO|
|00000030| 55 54 49 4e 45 53 20 66 | 6f 72 20 52 45 41 4c 20 |UTINES f|or REAL |
|00000040| 76 61 72 69 61 62 6c 65 | 73 20 61 6e 64 20 53 54 |variable|s and ST|
|00000050| 52 49 4e 47 53 20 00 00 | 04 01 06 52 00 00 00 00 |RINGS ..|...R....|
|00000060| 04 01 06 52 00 00 00 00 | 1a 01 06 52 00 2c 20 20 |...R....|...R.,  |
|00000070| 57 72 69 74 74 65 6e 20 | 69 6e 20 31 39 39 34 20 |Written |in 1994 |
|00000080| 62 79 20 43 68 72 69 73 | 74 69 61 6e 20 4d 75 6d |by Chris|tian Mum|
|00000090| 65 6e 74 68 61 6c 65 72 | 20 20 00 00 04 01 06 52 |enthaler|  .....R|
|000000a0| 00 00 00 00 25 01 06 52 | 00 42 20 20 54 68 65 73 |....%..R|.B  Thes|
|000000b0| 65 20 72 6f 75 74 69 6e | 65 73 20 61 72 65 20 70 |e routin|es are p|
|000000c0| 75 62 6c 69 63 20 64 6f | 6d 61 69 6e 2e 20 55 73 |ublic do|main. Us|
|000000d0| 65 20 74 68 65 6d 20 77 | 68 65 72 65 76 65 72 20 |e them w|herever |
|000000e0| 79 6f 75 20 77 61 6e 74 | 20 74 6f 2e 00 00 04 01 |you want| to.....|
|000000f0| 06 52 00 00 00 00 14 01 | 06 52 00 20 20 20 43 6f |.R......|.R.   Co|
|00000100| 6e 74 61 63 74 3a 20 43 | 68 72 69 73 74 69 61 6e |ntact: C|hristian|
|00000110| 20 4d 75 6d 65 6e 74 68 | 61 6c 65 72 00 00 12 01 | Mumenth|aler....|
|00000120| 06 52 00 1c 20 20 20 20 | 20 20 20 20 20 20 20 4c |.R..    |       L|
|00000130| 61 6e 67 67 72 75 65 74 | 73 74 72 2e 20 31 37 38 |anggruet|str. 178|
|00000140| 00 00 11 01 06 52 00 1a | 20 20 20 20 20 20 20 20 |.....R..|        |
|00000150| 20 20 20 43 48 2d 38 30 | 34 37 20 5a 75 65 72 69 |   CH-80|47 Zueri|
|00000160| 63 68 00 00 0f 01 06 52 | 00 16 20 20 20 20 20 20 |ch.....R|..      |
|00000170| 20 20 20 20 20 53 77 69 | 74 7a 65 72 6c 61 6e 64 |     Swi|tzerland|
|00000180| 00 00 04 01 06 52 00 00 | 00 00 15 01 06 52 00 22 |.....R..|.....R."|
|00000190| 20 20 45 2d 6d 61 69 6c | 3a 20 20 6d 75 6d 69 28 |  E-mail|:  mumi(|
|000001a0| 61 74 29 6d 6f 6c 62 69 | 6f 2e 65 74 68 7a 2e 63 |at)molbi|o.ethz.c|
|000001b0| 68 20 00 00 04 01 06 52 | 00 00 00 00 04 01 06 52 |h .....R|.......R|
|000001c0| 00 00 00 00 2d 01 02 be | 00 56 0a 5e ff ac 00 3e |....-...|.V.^...>|
|000001d0| 00 00 00 04 00 54 09 ea | 00 3e 00 00 00 00 00 5c |.....T..|.>.....\|
|000001e0| 00 3e 00 00 01 40 00 5c | 00 3e 00 00 00 c8 00 5c |.>...@.\|.>.....\|
|000001f0| 00 3e 00 00 00 04 00 5c | 00 3e 00 00 00 00 00 54 |.>.....\|.>.....T|
|00000200| 0c fc 00 3e 00 00 00 00 | 00 5c 00 36 00 00 0a 40 |...>....|.\.6...@|
|00000210| 00 5c 00 36 00 00 0f ff | 00 54 02 da 00 00 0a 01 |.\.6....|.T......|
|00000220| 13 78 00 3e 00 00 00 01 | 00 5c 00 3e 00 00 00 02 |.x.>....|.\.>....|
|00000230| 00 00 16 01 13 e8 00 26 | 00 22 45 78 61 6d 70 6c |.......&|."Exampl|
|00000240| 65 20 6f 66 20 68 6f 77 | 20 74 6f 20 75 73 65 20 |e of how| to use |
|00000250| 74 68 65 20 72 6f 75 74 | 69 6e 65 73 00 00 03 01 |the rout|ines....|
|00000260| 04 76 00 00 07 01 15 7c | 00 5c 00 3e 00 00 00 02 |.v.....||.\.>....|
|00000270| 00 00 11 01 04 76 00 26 | 00 15 20 20 52 45 41 4c |.....v.&|..  REAL|
|00000280| 20 4e 55 4d 42 45 52 20 | 49 4e 50 55 54 3a 20 00 | NUMBER |INPUT: .|
|00000290| 00 64 00 00 06 01 13 d2 | 00 3e 00 00 00 00 00 00 |.d......|.>......|
|000002a0| 13 01 03 86 00 12 ff f2 | 08 80 72 5f 69 6e 70 75 |........|..r_inpu|
|000002b0| 74 00 00 84 00 3e 00 00 | 00 0a 00 5c 00 3e 00 00 |t....>..|...\.>..|
|000002c0| 00 00 00 8c 00 00 06 01 | 13 d2 00 3e 00 00 00 02 |........|...>....|
|000002d0| 00 00 03 01 04 76 00 00 | 12 01 04 76 00 26 00 0d |.....v..|...v.&..|
|000002e0| 20 28 59 6f 75 72 20 69 | 6e 70 75 74 3a 00 00 64 | (Your i|nput:..d|
|000002f0| 03 ca 00 64 00 26 00 01 | 29 00 00 00 03 01 04 76 |...d.&..|)......v|
|00000300| 00 00 12 01 04 76 00 26 | 00 18 20 20 49 4e 54 45 |.....v.&|..  INTE|
|00000310| 47 45 52 20 4e 55 4d 42 | 45 52 20 49 4e 50 55 54 |GER NUMB|ER INPUT|
|00000320| 3a 20 00 64 00 00 06 01 | 13 d2 00 3e 00 00 00 00 |: .d....|...>....|
|00000330| 00 00 13 01 03 86 00 12 | ff f2 08 80 72 5f 69 6e |........|....r_in|
|00000340| 70 75 74 00 00 84 00 3e | 00 00 00 06 00 5c 00 3e |put....>|.....\.>|
|00000350| 00 00 00 7b 00 8c 00 00 | 06 01 13 d2 00 3e 00 00 |...{....|.....>..|
|00000360| 00 02 00 00 03 01 04 76 | 00 00 08 01 00 06 00 00 |.......v|........|
|00000370| 02 00 61 00 ff a2 03 ca | 00 00 15 01 04 76 00 26 |..a.....|.....v.&|
|00000380| 00 0d 20 28 59 6f 75 72 | 20 69 6e 70 75 74 3a 00 |.. (Your| input:.|
|00000390| 00 64 00 06 00 00 02 00 | 61 00 00 64 00 26 00 01 |.d......|a..d.&..|
|000003a0| 29 00 00 00 03 01 04 76 | 00 00 0e 01 04 76 00 26 |)......v|.....v.&|
|000003b0| 00 10 20 20 53 54 52 49 | 4e 47 20 49 4e 50 55 54 |..  STRI|NG INPUT|
|000003c0| 3a 20 00 64 00 00 06 01 | 13 d2 00 3e 00 00 00 00 |: .d....|...>....|
|000003d0| 00 00 12 01 03 86 00 12 | ff e2 08 80 73 5f 69 6e |........|....s_in|
|000003e0| 70 75 74 00 00 84 00 3e | 00 00 00 0c 00 5c 00 26 |put....>|.....\.&|
|000003f0| 00 00 00 8c 00 00 06 01 | 13 d2 00 3e 00 00 00 02 |........|...>....|
|00000400| 00 00 03 01 04 76 00 00 | 12 01 04 76 00 26 00 0d |.....v..|...v.&..|
|00000410| 20 28 59 6f 75 72 20 69 | 6e 70 75 74 3a 00 00 64 | (Your i|nput:..d|
|00000420| 03 d6 00 64 00 26 00 01 | 29 00 00 00 03 01 04 76 |...d.&..|)......v|
|00000430| 00 00 16 01 04 76 00 26 | 00 1f 20 20 53 54 52 49 |.....v.&|..  STRI|
|00000440| 4e 47 20 49 4e 50 55 54 | 20 28 77 69 74 68 20 64 |NG INPUT| (with d|
|00000450| 65 66 61 75 6c 74 29 3a | 20 00 00 64 00 00 06 01 |efault):| ..d....|
|00000460| 13 d2 00 3e 00 00 00 00 | 00 00 15 01 03 86 00 12 |...>....|........|
|00000470| ff e2 08 80 73 5f 69 6e | 70 75 74 00 00 84 00 3e |....s_in|put....>|
|00000480| 00 00 00 06 00 5c 00 26 | 00 05 48 61 6c 6c 6f 00 |.....\.&|..Hallo.|
|00000490| 00 8c 00 00 06 01 13 d2 | 00 3e 00 00 00 02 00 00 |........|.>......|
|000004a0| 03 01 04 76 00 00 12 01 | 04 76 00 26 00 0d 20 28 |...v....|.v.&.. (|
|000004b0| 59 6f 75 72 20 69 6e 70 | 75 74 3a 00 00 64 03 d6 |Your inp|ut:..d..|
|000004c0| 00 64 00 26 00 01 29 00 | 00 00 03 01 03 b6 00 00 |.d.&..).|........|
|000004d0| 04 01 06 52 00 00 00 00 | 04 01 06 52 00 00 00 00 |...R....|...R....|
|000004e0| 04 01 06 52 00 00 00 00 | 19 01 03 76 00 00 06 12 |...R....|...v....|
|000004f0| 00 3c 80 00 00 06 00 00 | 08 80 72 5f 69 6e 70 75 |.<......|..r_inpu|
|00000500| 74 00 00 84 00 06 00 00 | 02 00 6c 00 00 5c 00 06 |t.......|..l..\..|
|00000510| 00 06 02 01 6e 72 00 8c | 00 00 04 04 06 52 00 00 |....nr..|.....R..|
|00000520| 00 00 14 04 06 52 00 20 | 20 49 4e 50 55 54 20 52 |.....R. | INPUT R|
|00000530| 4f 55 54 49 4e 45 20 46 | 4f 52 20 52 45 41 4c 20 |OUTINE F|OR REAL |
|00000540| 4e 55 4d 42 45 52 53 20 | 00 00 04 04 06 52 00 00 |NUMBERS |.....R..|
|00000550| 00 00 0f 04 06 52 00 16 | 20 4c 20 20 20 3a 20 4c |.....R..| L   : L|
|00000560| 65 6e 67 74 68 20 6f 66 | 20 66 69 65 6c 64 00 00 |ength of| field..|
|00000570| 19 04 06 52 00 2a 20 4e | 52 23 20 3a 20 44 65 66 |...R.* N|R# : Def|
|00000580| 61 75 6c 74 20 6e 75 6d | 62 65 72 20 20 28 49 67 |ault num|ber  (Ig|
|00000590| 6e 6f 72 65 64 20 69 66 | 20 4e 52 23 3d 30 29 20 |nored if| NR#=0) |
|000005a0| 00 00 04 04 06 52 00 00 | 00 00 04 04 06 52 00 00 |.....R..|.....R..|
|000005b0| 00 00 1f 04 06 52 00 36 | 20 54 68 69 73 20 72 6f |.....R.6| This ro|
|000005c0| 75 74 69 6e 65 20 61 63 | 63 65 70 74 73 20 6f 6e |utine ac|cepts on|
|000005d0| 6c 79 20 74 68 65 20 6e | 75 6d 62 65 72 73 20 30 |ly the n|umbers 0|
|000005e0| 20 74 6f 20 39 20 61 6e | 64 20 74 68 65 20 00 00 | to 9 an|d the ..|
|000005f0| 23 04 06 52 00 3e 20 63 | 68 61 72 61 63 74 65 72 |#..R.> c|haracter|
|00000600| 73 20 22 2e 22 20 61 6e | 64 20 22 2d 22 2e 20 28 |s "." an|d "-". (|
|00000610| 50 6c 75 73 20 52 45 54 | 55 52 4e 20 74 6f 20 65 |Plus RET|URN to e|
|00000620| 6e 64 20 61 6e 64 20 42 | 41 43 4b 53 50 41 43 45 |nd and B|ACKSPACE|
|00000630| 20 74 6f 20 00 00 12 04 | 06 52 00 1c 20 64 65 6c | to ....|.R.. del|
|00000640| 65 74 65 20 74 68 65 20 | 6c 61 73 74 20 63 68 61 |ete the |last cha|
|00000650| 72 61 63 74 65 72 2e 29 | 00 00 24 04 06 52 00 40 |racter.)|..$..R.@|
|00000660| 20 49 74 20 69 73 20 74 | 68 65 72 65 66 6f 72 65 | It is t|herefore|
|00000670| 20 6d 6f 72 65 20 66 6f | 6f 6c 2d 70 72 6f 6f 66 | more fo|ol-proof|
|00000680| 20 74 68 61 6e 20 74 68 | 65 20 6e 6f 72 6d 61 6c | than th|e normal|
|00000690| 20 49 4e 50 55 54 20 63 | 6f 6d 6d 61 6e 64 2e 20 | INPUT c|ommand. |
|000006a0| 00 00 04 04 06 52 00 00 | 00 00 1e 04 06 52 00 34 |.....R..|.....R.4|
|000006b0| 20 59 6f 75 20 63 61 6e | 20 61 6c 73 6f 20 65 61 | You can| also ea|
|000006c0| 73 69 6c 79 20 63 68 61 | 6e 67 65 20 69 74 20 66 |sily cha|nge it f|
|000006d0| 6f 72 20 49 4e 54 45 47 | 45 52 20 6e 75 6d 62 65 |or INTEG|ER numbe|
|000006e0| 72 73 2e 20 00 00 04 04 | 06 52 00 00 00 00 04 04 |rs. ....|.R......|
|000006f0| 06 52 00 00 00 00 1d 04 | 06 52 00 32 20 52 6f 75 |.R......|.R.2 Rou|
|00000700| 74 69 6e 65 20 77 72 69 | 74 74 65 6e 20 69 6e 20 |tine wri|tten in |
|00000710| 31 39 39 34 20 62 79 20 | 43 68 72 69 73 74 69 61 |1994 by |Christia|
|00000720| 6e 20 4d 75 6d 65 6e 74 | 68 61 6c 65 72 20 00 00 |n Mument|haler ..|
|00000730| 23 04 06 52 00 3e 20 54 | 68 69 73 20 72 6f 75 74 |#..R.> T|his rout|
|00000740| 69 6e 65 20 69 73 20 50 | 75 62 6c 69 63 20 44 6f |ine is P|ublic Do|
|00000750| 6d 61 69 6e 2e 20 55 73 | 65 20 69 74 20 77 68 65 |main. Us|e it whe|
|00000760| 72 65 76 65 72 20 79 6f | 75 20 77 61 6e 74 20 74 |rever yo|u want t|
|00000770| 6f 2e 20 20 00 00 04 04 | 06 52 00 00 00 00 04 04 |o.  ....|.R......|
|00000780| 06 52 00 00 00 00 09 04 | 00 06 00 0c 02 02 6e 61 |.R......|......na|
|00000790| ff a2 00 26 00 00 00 00 | 0c 04 02 be 00 96 00 06 |...&....|........|
|000007a0| 00 06 02 01 6e 72 ff 66 | 00 3e 00 00 00 00 00 00 |....nr.f|.>......|
|000007b0| 0e 07 00 06 00 0c 02 02 | 6e 61 ff a2 05 98 00 74 |........|na.....t|
|000007c0| 00 06 00 06 02 01 6e 72 | 00 7c 00 00 13 07 02 be |......nr|.|......|
|000007d0| 00 5c 05 28 00 74 00 06 | 00 0c 02 02 6e 61 00 5c |.\.(.t..|....na.\|
|000007e0| 00 3e 00 00 00 01 00 7c | ff a2 00 26 00 01 20 00 |.>.....||...&.. .|
|000007f0| 00 00 1a 0a 00 06 00 0c | 02 02 6e 61 ff a2 05 36 |........|..na...6|
|00000800| 00 74 00 06 00 0c 02 02 | 6e 61 00 5c 05 da 00 74 |.t......|na.\...t|
|00000810| 00 06 00 0c 02 02 6e 61 | 00 7c ff ca 00 3e 00 00 |......na|.|...>..|
|00000820| 00 01 00 7c 00 00 03 07 | 02 da 00 00 03 04 02 da |...|....|........|
|00000830| 00 00 0e 04 00 06 00 12 | 02 00 7a 00 ff a2 05 da |........|..z.....|
|00000840| 00 74 00 06 00 0c 02 02 | 6e 61 00 7c 00 00 10 04 |.t......|na.|....|
|00000850| 00 06 00 18 02 00 6c 31 | ff a2 00 06 00 00 02 00 |......l1|........|
|00000860| 6c 00 ff ca 00 06 00 12 | 02 00 7a 00 00 00 10 04 |l.......|..z.....|
|00000870| 04 76 00 06 00 0c 02 02 | 6e 61 ff c0 05 5e 00 74 |.v......|na...^.t|
|00000880| 00 06 00 18 02 00 6c 31 | 00 7c 00 64 00 00 0c 04 |......l1|.|.d....|
|00000890| 15 7c ff ca 00 06 00 18 | 02 00 6c 31 00 5c 00 3e |.|......|..l1.\.>|
|000008a0| 00 00 00 00 00 00 03 04 | 14 54 00 00 19 04 00 06 |........|.T......|
|000008b0| 00 1e 02 00 61 31 ff a2 | 01 dc 00 74 00 26 00 01 |....a1..|...t.&..|
|000008c0| 30 00 00 7c 00 54 00 06 | 00 24 02 00 61 32 ff a2 |0..|.T..|.$..a2..|
|000008d0| 01 dc 00 74 00 26 00 01 | 39 00 00 7c 00 00 04 04 |...t.&..|9..|....|
|000008e0| 02 50 01 f2 00 00 08 07 | 00 06 00 2a 02 02 61 00 |.P......|...*..a.|
|000008f0| ff a2 00 f2 00 00 0e 07 | 00 06 00 2a 02 02 61 00 |........|...*..a.|
|00000900| ff a2 05 7c 00 74 00 06 | 00 2a 02 02 61 00 00 7c |...|.t..|.*..a..||
|00000910| 00 00 0e 07 00 06 00 30 | 02 00 61 00 ff a2 01 dc |.......0|..a.....|
|00000920| 00 74 00 06 00 2a 02 02 | 61 00 00 7c 00 00 44 07 |.t...*..|a..|..D.|
|00000930| 02 be 00 c8 00 74 00 74 | 00 06 00 30 02 00 61 00 |.....t.t|...0..a.|
|00000940| ff 8e 00 06 00 1e 02 00 | 61 31 ff 58 00 06 00 30 |........|a1.X...0|
|00000950| 02 00 61 00 ff 7a 00 06 | 00 24 02 00 61 32 00 7c |..a..z..|.$..a2.||
|00000960| ff 4c 00 74 00 06 00 2a | 02 02 61 00 ff a2 00 26 |.L.t...*|..a....&|
|00000970| 00 01 2e 00 00 7c ff 4c | 00 74 00 06 00 2a 02 02 |.....|.L|.t...*..|
|00000980| 61 00 ff a2 00 26 00 01 | 2d 00 ff 58 00 06 00 12 |a....&..|-..X....|
|00000990| 02 00 7a 00 ff a2 00 3e | 00 00 00 00 00 7c 00 7c |..z....>|.....|.||
|000009a0| ff 58 00 06 00 12 02 00 | 7a 00 ff ac 00 06 00 00 |.X......|z.......|
|000009b0| 02 00 6c 00 00 00 08 0a | 04 76 00 06 00 2a 02 02 |..l.....|.v...*..|
|000009c0| 61 00 00 64 00 00 10 0a | 00 06 00 0c 02 02 6e 61 |a..d....|......na|
|000009d0| ff a2 00 06 00 0c 02 02 | 6e 61 ff c0 00 06 00 2a |........|na.....*|
|000009e0| 02 02 61 00 00 00 07 0a | 04 44 00 06 00 12 02 00 |..a.....|.D......|
|000009f0| 7a 00 00 00 03 07 02 da | 00 00 18 07 02 be 00 ba |z.......|........|
|00000a00| 00 06 00 2a 02 02 61 00 | ff a2 05 52 00 74 00 3e |...*..a.|...R.t.>|
|00000a10| 00 00 00 08 00 7c ff 58 | 00 06 00 12 02 00 7a 00 |.....|.X|......z.|
|00000a20| ff b6 00 3e 00 00 00 00 | 00 00 0f 0a 00 06 00 12 |...>....|........|
|00000a30| 02 00 7a 00 ff a2 00 06 | 00 12 02 00 7a 00 ff ca |..z.....|....z...|
|00000a40| 00 3e 00 00 00 01 00 00 | 1b 0a 15 7c ff ca 00 3e |.>......|...|...>|
|00000a50| 00 00 00 01 00 5c 00 3e | 00 00 00 00 00 54 04 76 |.....\.>|.....T.v|
|00000a60| 00 26 00 01 20 00 00 64 | 00 54 15 7c ff ca 00 3e |.&.. ..d|.T.|...>|
|00000a70| 00 00 00 01 00 5c 00 3e | 00 00 00 00 00 00 1a 0a |.....\.>|........|
|00000a80| 00 06 00 0c 02 02 6e 61 | ff a2 05 28 00 74 00 06 |......na|...(.t..|
|00000a90| 00 0c 02 02 6e 61 00 5c | 05 da 00 74 00 06 00 0c |....na.\|...t....|
|00000aa0| 02 02 6e 61 00 7c ff ca | 00 3e 00 00 00 01 00 7c |..na.|..|.>.....||
|00000ab0| 00 00 03 07 02 da 00 00 | 0e 04 02 5c 00 06 00 2a |........|...\...*|
|00000ac0| 02 02 61 00 ff a2 05 52 | 00 74 00 3e 00 00 00 0d |..a....R|.t.>....|
|00000ad0| 00 7c 00 00 03 04 14 46 | 00 00 0e 04 00 06 00 36 |.|.....F|.......6|
|00000ae0| 02 01 61 00 ff a2 05 a4 | 00 74 00 06 00 0c 02 02 |..a.....|.t......|
|00000af0| 6e 61 00 7c 00 00 09 01 | 03 90 00 84 00 06 00 36 |na.|....|.......6|
|00000b00| 02 01 61 00 00 8c 00 00 | 19 01 03 76 00 00 09 2e |..a.....|...v....|
|00000b10| 00 42 80 00 00 06 00 00 | 08 80 73 5f 69 6e 70 75 |.B......|..s_inpu|
|00000b20| 74 00 00 84 00 06 00 00 | 02 00 6c 00 00 5c 00 06 |t.......|..l..\..|
|00000b30| 00 06 02 02 6e 61 00 8c | 00 00 04 04 06 52 00 00 |....na..|.....R..|
|00000b40| 00 00 11 04 06 52 00 1a | 20 49 4e 50 55 54 20 52 |.....R..| INPUT R|
|00000b50| 4f 55 54 49 4e 45 20 46 | 4f 52 20 53 54 52 49 4e |OUTINE F|OR STRIN|
|00000b60| 47 53 00 00 04 04 06 52 | 00 00 00 00 0f 04 06 52 |GS.....R|.......R|
|00000b70| 00 16 20 4c 20 20 20 3a | 20 4c 65 6e 67 74 68 20 |.. L   :| Length |
|00000b80| 6f 66 20 66 69 65 6c 64 | 00 00 0f 04 06 52 00 16 |of field|.....R..|
|00000b90| 20 4e 41 24 20 3a 20 44 | 65 66 61 75 6c 74 20 73 | NA$ : D|efault s|
|00000ba0| 74 72 69 6e 67 20 00 00 | 04 04 06 52 00 00 00 00 |tring ..|...R....|
|00000bb0| 04 04 06 52 00 00 00 00 | 22 04 06 52 00 3c 20 54 |...R....|"..R.< T|
|00000bc0| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 61 63 63 65 |his rout|ine acce|
|00000bd0| 70 74 73 20 61 6c 6c 20 | 63 68 61 72 61 63 74 65 |pts all |characte|
|00000be0| 72 73 20 74 68 61 74 20 | 63 6f 75 6c 64 20 6d 61 |rs that |could ma|
|00000bf0| 6b 65 20 73 65 6e 73 65 | 20 20 00 00 1c 04 06 52 |ke sense|  .....R|
|00000c00| 00 30 20 28 41 53 43 20 | 63 6f 64 65 20 61 62 6f |.0 (ASC |code abo|
|00000c10| 76 65 20 33 31 20 61 6e | 64 20 6e 6f 74 20 62 65 |ve 31 an|d not be|
|00000c20| 74 77 65 65 6e 20 31 32 | 38 20 61 6e 64 20 31 35 |tween 12|8 and 15|
|00000c30| 39 29 00 00 21 04 06 52 | 00 3a 20 54 68 69 73 20 |9)..!..R|.: This |
|00000c40| 72 6f 75 74 69 6e 65 20 | 61 6c 6c 6f 77 73 20 73 |routine |allows s|
|00000c50| 6f 6d 65 20 65 64 69 74 | 69 6e 67 20 61 73 20 62 |ome edit|ing as b|
|00000c60| 65 73 69 64 65 73 20 42 | 41 43 4b 53 50 41 43 45 |esides B|ACKSPACE|
|00000c70| 2c 20 69 74 00 00 22 04 | 06 52 00 3c 20 61 6c 73 |, it..".|.R.< als|
|00000c80| 6f 20 70 72 6f 63 65 73 | 73 65 73 20 74 68 65 20 |o proces|ses the |
|00000c90| 52 49 47 48 54 20 61 6e | 64 20 4c 45 46 54 20 63 |RIGHT an|d LEFT c|
|00000ca0| 75 72 73 6f 72 20 6b 65 | 79 73 2c 20 74 68 65 20 |ursor ke|ys, the |
|00000cb0| 44 45 4c 45 54 45 20 20 | 00 00 1d 04 06 52 00 32 |DELETE  |.....R.2|
|00000cc0| 20 6b 65 79 20 61 6e 64 | 20 74 68 65 20 45 53 43 | key and| the ESC|
|00000cd0| 20 6b 65 79 20 74 6f 20 | 72 65 73 65 74 20 74 68 | key to |reset th|
|00000ce0| 65 20 64 65 66 61 75 6c | 74 20 73 74 72 69 6e 67 |e defaul|t string|
|00000cf0| 2e 20 00 00 04 04 06 52 | 00 00 00 00 1d 04 06 52 |. .....R|.......R|
|00000d00| 00 32 20 52 6f 75 74 69 | 6e 65 20 77 72 69 74 74 |.2 Routi|ne writt|
|00000d10| 65 6e 20 69 6e 20 31 39 | 39 34 20 62 79 20 43 68 |en in 19|94 by Ch|
|00000d20| 72 69 73 74 69 61 6e 20 | 4d 75 6d 65 6e 74 68 61 |ristian |Mumentha|
|00000d30| 6c 65 72 20 00 00 23 04 | 06 52 00 3e 20 54 68 69 |ler ..#.|.R.> Thi|
|00000d40| 73 20 72 6f 75 74 69 6e | 65 20 69 73 20 50 75 62 |s routin|e is Pub|
|00000d50| 6c 69 63 20 44 6f 6d 61 | 69 6e 2e 20 55 73 65 20 |lic Doma|in. Use |
|00000d60| 69 74 20 77 68 65 72 65 | 76 65 72 20 79 6f 75 20 |it where|ver you |
|00000d70| 77 61 6e 74 20 74 6f 2e | 20 20 00 00 04 04 06 52 |want to.|  .....R|
|00000d80| 00 00 00 00 04 04 06 52 | 00 00 00 00 0c 04 00 06 |.......R|........|
|00000d90| 00 0c 04 02 6e 61 32 00 | ff a2 00 06 00 06 02 02 |....na2.|........|
|00000da0| 6e 61 00 00 08 04 00 06 | 00 12 02 00 78 63 ff a2 |na......|....xc..|
|00000db0| 15 e6 00 00 08 04 00 06 | 00 18 02 00 79 63 ff a2 |........|....yc..|
|00000dc0| 15 f2 00 00 0e 04 00 06 | 00 1e 02 00 7a 00 ff a2 |........|....z...|
|00000dd0| 05 da 00 74 00 06 00 06 | 02 02 6e 61 00 7c 00 00 |...t....|..na.|..|
|00000de0| 0b 04 00 06 00 24 02 00 | 70 00 ff a2 00 06 00 1e |.....$..|p.......|
|00000df0| 02 00 7a 00 00 00 10 04 | 00 06 00 2a 02 00 6c 31 |..z.....|...*..l1|
|00000e00| ff a2 00 06 00 00 02 00 | 6c 00 ff ca 00 06 00 1e |........|l.......|
|00000e10| 02 00 7a 00 00 00 10 04 | 04 76 00 06 00 06 02 02 |..z.....|.v......|
|00000e20| 6e 61 ff c0 05 5e 00 74 | 00 06 00 2a 02 00 6c 31 |na...^.t|...*..l1|
|00000e30| 00 7c 00 64 00 00 0c 04 | 15 7c ff ca 00 06 00 2a |.|.d....|.|.....*|
|00000e40| 02 00 6c 31 00 5c 00 3e | 00 00 00 00 00 00 03 04 |..l1.\.>|........|
|00000e50| 14 54 00 00 04 04 02 50 | 05 d4 00 00 03 07 23 d0 |.T.....P|......#.|
|00000e60| 00 00 08 07 00 06 00 30 | 02 02 61 00 ff a2 00 f2 |.......0|..a.....|
|00000e70| 00 00 09 07 00 06 00 36 | 04 00 61 63 74 00 ff a2 |.......6|..act...|
|00000e80| 12 62 00 00 0e 07 00 06 | 00 3c 02 00 61 00 ff a2 |.b......|.<..a...|
|00000e90| 01 dc 00 74 00 06 00 30 | 02 02 61 00 00 7c 00 00 |...t...0|..a..|..|
|00000ea0| 2c 07 02 be 01 58 00 74 | 00 06 00 3c 02 00 61 00 |,....X.t|...<..a.|
|00000eb0| ff 8e 00 3e 00 00 00 20 | ff 58 00 74 00 06 00 3c |...>... |.X.t...<|
|00000ec0| 02 00 61 00 ff ac 00 3e | 00 00 00 80 ff 4c 00 06 |..a....>|.....L..|
|00000ed0| 00 3c 02 00 61 00 ff 8e | 00 3e 00 00 00 a0 00 7c |.<..a...|.>.....||
|00000ee0| 00 7c ff 58 00 06 00 1e | 02 00 7a 00 ff ac 00 06 |.|.X....|..z.....|
|00000ef0| 00 00 02 00 6c 00 00 00 | 2a 0a 00 06 00 06 02 02 |....l...|*.......|
|00000f00| 6e 61 ff a2 05 28 00 74 | 00 06 00 06 02 02 6e 61 |na...(.t|......na|
|00000f10| 00 5c 00 06 00 24 02 00 | 70 00 00 7c ff c0 00 06 |.\...$..|p..|....|
|00000f20| 00 30 02 02 61 00 ff c0 | 05 36 00 74 00 06 00 06 |.0..a...|.6.t....|
|00000f30| 02 02 6e 61 00 5c 00 06 | 00 1e 02 00 7a 00 ff ca |..na.\..|....z...|
|00000f40| 00 06 00 24 02 00 70 00 | 00 7c 00 00 13 0a 00 06 |...$..p.|.|......|
|00000f50| 00 06 02 02 6e 61 ff a2 | 05 28 00 74 00 06 00 06 |....na..|.(.t....|
|00000f60| 02 02 6e 61 00 5c 00 06 | 00 00 02 00 6c 00 00 7c |..na.\..|....l..||
|00000f70| 00 00 17 0a 00 06 00 1e | 02 00 7a 00 ff a2 06 ea |........|..z.....|
|00000f80| 00 74 00 06 00 1e 02 00 | 7a 00 ff c0 00 3e 00 00 |.t......|z....>..|
|00000f90| 00 01 00 5c 00 06 00 00 | 02 00 6c 00 00 7c 00 00 |...\....|..l..|..|
|00000fa0| 0c 0a 13 78 00 06 00 12 | 02 00 78 63 00 5c 00 06 |...x....|..xc.\..|
|00000fb0| 00 18 02 00 79 63 00 00 | 07 0a 04 76 00 06 00 06 |....yc..|...v....|
|00000fc0| 02 02 6e 61 00 00 07 0a | 04 44 00 06 00 24 02 00 |..na....|.D...$..|
|00000fd0| 70 00 00 00 11 0a 13 78 | 00 06 00 12 02 00 78 63 |p......x|......xc|
|00000fe0| ff c0 00 06 00 24 02 00 | 70 00 00 5c 00 06 00 18 |.....$..|p..\....|
|00000ff0| 02 00 79 63 00 00 03 07 | 02 da 00 00 20 07 02 be |..yc....|.... ...|
|00001000| 00 5e 00 06 00 3c 02 00 | 61 00 ff a2 00 3e 00 00 |.^...<..|a....>..|
|00001010| 00 1c ff 58 00 06 00 24 | 02 00 70 00 ff ac 00 06 |...X...$|..p.....|
|00001020| 00 00 02 00 6c 00 ff 58 | 00 06 00 24 02 00 70 00 |....l..X|...$..p.|
|00001030| ff ac 00 06 00 1e 02 00 | 7a 00 00 00 07 0a 15 7c |........|z......||
|00001040| 00 3e 00 00 00 01 00 5c | 00 00 07 0a 04 44 00 06 |.>.....\|.....D..|
|00001050| 00 24 02 00 70 00 00 00 | 03 07 02 da 00 00 15 07 |.$..p...|........|
|00001060| 02 be 00 4a 00 06 00 3c | 02 00 61 00 ff a2 00 3e |...J...<|..a....>|
|00001070| 00 00 00 1d ff 58 00 06 | 00 24 02 00 70 00 ff b6 |.....X..|.$..p...|
|00001080| 00 3e 00 00 00 00 00 00 | 08 0a 15 7c ff ca 00 3e |.>......|...|...>|
|00001090| 00 00 00 01 00 5c 00 00 | 07 0a 04 4e 00 06 00 24 |.....\..|...N...$|
|000010a0| 02 00 70 00 00 00 03 07 | 02 da 00 00 04 07 06 52 |..p.....|.......R|
|000010b0| 00 00 00 00 09 07 06 52 | 00 0a 20 42 41 43 4b 53 |.......R|.. BACKS|
|000010c0| 50 41 43 45 00 00 04 07 | 06 52 00 00 00 00 18 07 |PACE....|.R......|
|000010d0| 02 be 01 08 00 06 00 30 | 02 02 61 00 ff a2 05 52 |.......0|..a....R|
|000010e0| 00 74 00 3e 00 00 00 08 | 00 7c ff 58 00 06 00 24 |.t.>....|.|.X...$|
|000010f0| 02 00 70 00 ff b6 00 3e | 00 00 00 00 00 00 29 0a |..p....>|......).|
|00001100| 00 06 00 06 02 02 6e 61 | ff a2 05 28 00 74 00 06 |......na|...(.t..|
|00001110| 00 06 02 02 6e 61 00 5c | 00 06 00 24 02 00 70 00 |....na.\|...$..p.|
|00001120| ff ca 00 3e 00 00 00 01 | 00 7c ff c0 05 36 00 74 |...>....|.|...6.t|
|00001130| 00 06 00 06 02 02 6e 61 | 00 5c 00 06 00 1e 02 00 |......na|.\......|
|00001140| 7a 00 ff ca 00 06 00 24 | 02 00 70 00 00 7c 00 00 |z......$|..p..|..|
|00001150| 07 0a 04 4e 00 06 00 1e | 02 00 7a 00 00 00 07 0a |...N....|..z.....|
|00001160| 04 4e 00 06 00 24 02 00 | 70 00 00 00 0c 0a 13 78 |.N...$..|p......x|
|00001170| 00 06 00 12 02 00 78 63 | 00 5c 00 06 00 18 02 00 |......xc|.\......|
|00001180| 79 63 00 00 17 0a 04 76 | 00 06 00 06 02 02 6e 61 |yc.....v|......na|
|00001190| ff c0 05 5e 00 74 00 06 | 00 00 02 00 6c 00 ff ca |...^.t..|....l...|
|000011a0| 05 da 00 74 00 06 00 06 | 02 02 6e 61 00 7c 00 7c |...t....|..na.|.||
|000011b0| 00 00 11 0a 13 78 00 06 | 00 12 02 00 78 63 ff c0 |.....x..|....xc..|
|000011c0| 00 06 00 24 02 00 70 00 | 00 5c 00 06 00 18 02 00 |...$..p.|.\......|
|000011d0| 79 63 00 00 03 07 02 da | 00 00 04 07 06 52 00 00 |yc......|.....R..|
|000011e0| 00 00 08 07 06 52 00 08 | 20 44 45 4c 45 54 45 20 |.....R..| DELETE |
|000011f0| 00 00 04 07 06 52 00 00 | 00 00 20 07 02 be 01 0a |.....R..|.. .....|
|00001200| 00 06 00 36 04 00 61 63 | 74 00 ff a2 00 3e 00 00 |...6..ac|t....>..|
|00001210| 00 46 ff 58 00 06 00 1e | 02 00 7a 00 ff b6 00 3e |.F.X....|..z....>|
|00001220| 00 00 00 00 ff 58 00 06 | 00 24 02 00 70 00 ff ac |.....X..|.$..p...|
|00001230| 00 06 00 1e 02 00 7a 00 | 00 00 29 0a 00 06 00 06 |......z.|..).....|
|00001240| 02 02 6e 61 ff a2 05 28 | 00 74 00 06 00 06 02 02 |..na...(|.t......|
|00001250| 6e 61 00 5c 00 06 00 24 | 02 00 70 00 00 7c ff c0 |na.\...$|..p..|..|
|00001260| 05 36 00 74 00 06 00 06 | 02 02 6e 61 00 5c 00 06 |.6.t....|..na.\..|
|00001270| 00 1e 02 00 7a 00 ff ca | 00 06 00 24 02 00 70 00 |....z...|...$..p.|
|00001280| ff ca 00 3e 00 00 00 01 | 00 7c 00 00 07 0a 04 4e |...>....|.|.....N|
|00001290| 00 06 00 1e 02 00 7a 00 | 00 00 0c 0a 13 78 00 06 |......z.|.....x..|
|000012a0| 00 12 02 00 78 63 00 5c | 00 06 00 18 02 00 79 63 |....xc.\|......yc|
|000012b0| 00 00 17 0a 04 76 00 06 | 00 06 02 02 6e 61 ff c0 |.....v..|....na..|
|000012c0| 05 5e 00 74 00 06 00 00 | 02 00 6c 00 ff ca 05 da |.^.t....|..l.....|
|000012d0| 00 74 00 06 00 06 02 02 | 6e 61 00 7c 00 7c 00 00 |.t......|na.|.|..|
|000012e0| 11 0a 13 78 00 06 00 12 | 02 00 78 63 ff c0 00 06 |...x....|..xc....|
|000012f0| 00 24 02 00 70 00 00 5c | 00 06 00 18 02 00 79 63 |.$..p..\|......yc|
|00001300| 00 00 03 07 02 da 00 00 | 04 07 06 52 00 00 00 00 |........|...R....|
|00001310| 16 07 06 52 00 24 20 45 | 53 43 41 50 45 20 2d 3e |...R.$ E|SCAPE ->|
|00001320| 20 72 65 73 65 74 20 74 | 6f 20 64 65 66 61 75 6c | reset t|o defaul|
|00001330| 74 20 73 74 72 69 6e 67 | 20 20 00 00 04 07 06 52 |t string|  .....R|
|00001340| 00 00 00 00 0c 07 02 be | 00 c8 00 06 00 3c 02 00 |........|.....<..|
|00001350| 61 00 ff a2 00 3e 00 00 | 00 1b 00 00 0c 0a 00 06 |a....>..|........|
|00001360| 00 06 02 02 6e 61 ff a2 | 00 06 00 0c 04 02 6e 61 |....na..|......na|
|00001370| 32 00 00 00 0e 0a 00 06 | 00 1e 02 00 7a 00 ff a2 |2.......|....z...|
|00001380| 05 da 00 74 00 06 00 06 | 02 02 6e 61 00 7c 00 00 |...t....|..na.|..|
|00001390| 0b 0a 00 06 00 24 02 00 | 70 00 ff a2 00 06 00 1e |.....$..|p.......|
|000013a0| 02 00 7a 00 00 00 0c 0a | 13 78 00 06 00 12 02 00 |..z.....|.x......|
|000013b0| 78 63 00 5c 00 06 00 18 | 02 00 79 63 00 00 15 0a |xc.\....|..yc....|
|000013c0| 04 76 00 06 00 06 02 02 | 6e 61 00 64 05 5e 00 74 |.v......|na.d.^.t|
|000013d0| 00 06 00 00 02 00 6c 00 | ff ca 00 06 00 1e 02 00 |......l.|........|
|000013e0| 7a 00 00 7c 00 64 00 00 | 11 0a 13 78 00 06 00 12 |z..|.d..|...x....|
|000013f0| 02 00 78 63 ff c0 00 06 | 00 24 02 00 70 00 00 5c |..xc....|.$..p..\|
|00001400| 00 06 00 18 02 00 79 63 | 00 00 03 07 02 da 00 00 |......yc|........|
|00001410| 0e 04 02 5c 00 06 00 30 | 02 02 61 00 ff a2 05 52 |...\...0|..a....R|
|00001420| 00 74 00 3e 00 00 00 0d | 00 7c 00 00 03 04 14 46 |.t.>....|.|.....F|
|00001430| 00 00 09 01 03 90 00 84 | 00 06 00 06 02 02 6e 61 |........|......na|
|00001440| 00 8c 00 00 41 6d 42 73 | 00 00                   |....AmBs|..      |
+--------+-------------------------+-------------------------+--------+--------+