/ APDL Public Domain 2 / APDL_PD2A.iso / magazines / _tyrant2 / extras / addresses

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3f f4 20 70 72 | 6f 67 72 61 6d 20 74 6f |...?. pr|ogram to|
|00000010| 20 61 63 63 6f 6d 70 61 | 6e 79 20 61 72 74 69 63 | accompa|ny artic|
|00000020| 6c 65 20 6f 6e 20 70 72 | 6f 67 72 61 6d 6d 69 6e |le on pr|ogrammin|
|00000030| 67 20 28 46 69 72 73 74 | 20 73 74 65 70 73 29 0d |g (First| steps).|
|00000040| 00 14 1f f4 20 42 79 20 | 48 65 75 72 69 73 74 69 |.... By |Heuristi|
|00000050| 63 20 64 65 76 65 6c 6f | 70 6d 65 6e 74 73 0d 00 |c develo|pments..|
|00000060| 1e 08 eb 20 31 32 0d 00 | 28 1d ee 20 85 20 f1 20 |... 12..|(.. . . |
|00000070| f6 24 2b 22 20 61 74 20 | 6c 69 6e 65 20 22 2b c3 |.$+" at |line "+.|
|00000080| 9e 3a e0 0d 00 32 36 f4 | 20 65 72 72 6f 72 20 68 |.:...26.| error h|
|00000090| 61 6e 64 6c 65 72 3a 20 | 64 69 73 70 6c 61 79 73 |andler: |displays|
|000000a0| 20 65 72 72 6f 72 20 26 | 20 6c 69 6e 65 20 74 68 | error &| line th|
|000000b0| 65 6e 20 71 75 69 74 73 | 2e 0d 00 3c 05 3a 0d 00 |en quits|...<.:..|
|000000c0| 46 55 f1 20 22 54 68 69 | 73 20 69 73 20 74 68 65 |FU. "Thi|s is the|
|000000d0| 20 61 63 63 6f 6d 70 61 | 6e 79 69 6e 67 20 70 72 | accompa|nying pr|
|000000e0| 6f 67 72 61 6d 20 74 6f | 20 74 68 65 20 61 72 74 |ogram to| the art|
|000000f0| 69 63 65 20 6f 6e 20 70 | 72 6f 67 72 61 6d 6d 69 |ice on p|rogrammi|
|00000100| 6e 67 20 69 6e 20 74 68 | 65 20 6d 61 67 61 7a 69 |ng in th|e magazi|
|00000110| 6e 65 22 0d 00 50 08 f1 | 20 22 22 0d 00 5a 21 f1 |ne"..P..| ""..Z!.|
|00000120| 20 22 42 79 20 48 65 75 | 72 69 73 74 69 63 20 64 | "By Heu|ristic d|
|00000130| 65 76 65 6c 6f 70 6d 65 | 6e 74 73 22 0d 00 64 05 |evelopme|nts"..d.|
|00000140| 3a 0d 00 6e 10 de 20 6e | 61 6d 65 73 24 28 35 30 |:..n.. n|ames$(50|
|00000150| 29 0d 00 78 14 de 20 61 | 64 64 72 65 73 73 65 73 |)..x.. a|ddresses|
|00000160| 24 28 35 30 29 0d 00 82 | 12 de 20 6e 75 6d 62 65 |$(50)...|.. numbe|
|00000170| 72 73 24 28 35 30 29 0d | 00 8c 04 0d 00 96 08 61 |rs$(50).|.......a|
|00000180| 25 3d 30 0d 00 a0 05 f5 | 0d 00 aa 36 20 20 61 25 |%=0.....|...6  a%|
|00000190| 2b 3d 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+=1     |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|000001b0| 20 61 64 64 20 6f 6e 65 | 20 74 6f 20 61 25 0d 00 | add one| to a%..|
|000001c0| b4 3e 20 20 e8 20 22 4e | 61 6d 65 22 3b 20 6e 61 |.>  . "N|ame"; na|
|000001d0| 6d 65 24 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me$     |        |
|000001e0| 3a f4 20 47 65 74 20 6e | 61 6d 65 20 2d 20 50 75 |:. Get n|ame - Pu|
|000001f0| 74 20 69 6e 74 6f 20 6e | 61 6d 65 24 0d 00 be 45 |t into n|ame$...E|
|00000200| 20 20 e8 20 22 41 64 64 | 72 65 73 73 22 3b 20 61 |  . "Add|ress"; a|
|00000210| 64 64 72 65 73 73 24 20 | 20 20 20 20 20 20 3a f4 |ddress$ |      :.|
|00000220| 20 47 65 74 20 41 64 64 | 72 72 65 73 73 20 2d 20 | Get Add|rress - |
|00000230| 50 75 74 20 69 6e 74 6f | 20 41 64 64 72 65 73 73 |Put into| Address|
|00000240| 24 0d 00 c8 46 20 20 e8 | 20 22 50 68 6f 6e 65 20 |$...F  .| "Phone |
|00000250| 6e 75 6d 62 65 72 22 3b | 20 70 68 6f 6e 65 5f 6e |number";| phone_n|
|00000260| 6f 24 20 3a f4 20 47 65 | 74 20 50 68 6f 6e 65 20 |o$ :. Ge|t Phone |
|00000270| 6e 6f 20 2d 20 50 75 74 | 20 69 6e 74 6f 20 70 68 |no - Put| into ph|
|00000280| 6f 6e 65 5f 6e 6f 24 0d | 00 d2 35 20 20 f1 22 22 |one_no$.|..5  .""|
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 50 52 49 4e |        | :. PRIN|
|000002b0| 54 20 42 6c 61 6e 6b 20 | 6c 69 6e 65 0d 00 dc 46 |T Blank |line...F|
|000002c0| 20 20 6e 61 6d 65 73 24 | 28 61 25 29 3d 6e 61 6d |  names$|(a%)=nam|
|000002d0| 65 24 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e$      |        |
|000002e0| 20 20 3a f4 20 70 75 74 | 20 6e 61 6d 65 24 20 69 |  :. put| name$ i|
|000002f0| 6e 74 6f 20 6e 61 6d 65 | 73 24 28 29 20 61 72 72 |nto name|s$() arr|
|00000300| 61 79 0d 00 e6 4d 20 20 | 61 64 64 72 65 73 73 65 |ay...M  |addresse|
|00000310| 73 24 28 61 25 29 3d 61 | 64 64 72 65 73 73 24 20 |s$(a%)=a|ddress$ |
|00000320| 20 20 20 20 20 20 20 20 | 3a f4 20 70 75 74 20 61 |        |:. put a|
|00000330| 64 64 72 65 73 73 24 20 | 69 6e 74 6f 20 61 64 64 |ddress$ |into add|
|00000340| 72 65 73 73 65 73 24 28 | 29 20 61 72 72 61 79 0d |resses$(|) array.|
|00000350| 00 f0 4c 20 20 6e 75 6d | 62 65 72 73 24 28 61 25 |..L  num|bers$(a%|
|00000360| 29 3d 70 68 6f 6e 65 5f | 6e 6f 24 20 20 20 20 20 |)=phone_|no$     |
|00000370| 20 20 20 20 20 3a f4 20 | 70 75 74 20 70 68 6f 6e |     :. |put phon|
|00000380| 65 5f 6e 6f 24 20 69 6e | 74 6f 20 6e 75 6d 62 65 |e_no$ in|to numbe|
|00000390| 72 73 24 28 29 20 61 72 | 72 61 79 0d 00 fa 4a fd |rs$() ar|ray...J.|
|000003a0| 20 6e 61 6d 65 24 3d 22 | 22 20 84 20 61 25 3d 35 | name$="|" . a%=5|
|000003b0| 30 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 52 |0       |    :. R|
|000003c0| 45 50 45 41 54 2e 2e 2e | 20 55 4e 54 49 4c 20 6e |EPEAT...| UNTIL n|
|000003d0| 6f 74 68 69 6e 67 20 65 | 6e 74 65 72 65 64 20 6f |othing e|ntered o|
|000003e0| 72 20 65 6e 64 0d 01 04 | 3d 20 20 20 20 20 20 20 |r end...|=       |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 6f 66 |        |   :. of|
|00000410| 20 61 72 72 61 79 20 69 | 73 20 72 65 61 63 68 65 | array i|s reache|
|00000420| 64 2e 0d 01 0e 04 0d 01 | 18 1e f1 20 22 4c 69 73 |d.......|... "Lis|
|00000430| 74 20 6f 66 20 41 72 72 | 61 79 20 63 6f 6e 74 65 |t of Arr|ay conte|
|00000440| 6e 74 73 22 0d 01 22 05 | db 0d 01 2c 08 61 25 3d |nts"..".|...,.a%=|
|00000450| 30 0d 01 36 05 f5 0d 01 | 40 09 61 25 2b 3d 31 0d |0..6....|@.a%+=1.|
|00000460| 01 4a 3b f1 20 6e 61 6d | 65 73 24 28 61 25 29 2b |.J;. nam|es$(a%)+|
|00000470| 22 20 61 74 20 22 2b 61 | 64 64 72 65 73 73 65 73 |" at "+a|ddresses|
|00000480| 24 28 61 25 29 2b 22 20 | 4e 6f 2e 20 22 2b 6e 75 |$(a%)+" |No. "+nu|
|00000490| 6d 62 65 72 73 24 28 61 | 25 29 0d 01 54 1b fd 20 |mbers$(a|%)..T.. |
|000004a0| 6e 61 6d 65 73 24 28 61 | 25 29 3d 22 22 20 84 20 |names$(a|%)="" . |
|000004b0| 61 25 3d 35 30 0d 01 5e | 04 0d 01 68 05 e0 0d ff |a%=50..^|...h....|
+--------+-------------------------+-------------------------+--------+--------+