/ Compute! Gazette 1987 November / 1987-11.d64 / sub1

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 0a 48 0a 0a 00 99 22 | 93 11 11 d7 45 20 41 52 |..H...."|....E AR|
|00000010| 45 20 4e 4f 57 20 49 4e | 20 54 48 45 20 53 55 42 |E NOW IN| THE SUB|
|00000020| 52 4f 55 54 49 4e 45 20 | 54 48 41 54 20 57 49 4c |ROUTINE |THAT WIL|
|00000030| 4c 20 20 4d 55 4c 54 49 | 50 4c 59 20 4f 55 52 20 |L  MULTI|PLY OUR |
|00000040| 4e 55 4d 42 45 52 2e 22 | 00 8e 0a 14 00 99 22 11 |NUMBER."|......".|
|00000050| d7 45 20 57 49 4c 4c 20 | 43 4c 45 41 52 20 56 41 |.E WILL |CLEAR VA|
|00000060| 52 49 41 42 4c 45 53 20 | 54 4f 20 53 48 4f 57 20 |RIABLES |TO SHOW |
|00000070| 54 48 45 20 4d 41 49 4e | 50 52 4f 47 52 41 4d 20 |THE MAIN|PROGRAM |
|00000080| 57 49 4c 4c 20 4e 4f 54 | 20 42 45 20 22 3b 00 a1 |WILL NOT| BE ";..|
|00000090| 0a 1e 00 99 22 41 46 46 | 45 43 54 45 44 2e 22 3a |...."AFF|ECTED.":|
|000000a0| 9c 00 cb 0a 28 00 99 22 | 11 c6 49 52 53 54 2c 20 |....(.."|..IRST, |
|000000b0| 57 45 20 4d 55 53 54 20 | 50 41 53 53 20 54 48 45 |WE MUST |PASS THE|
|000000c0| 20 56 41 52 49 41 42 4c | 45 2e 22 00 0b 0b 32 00 | VARIABL|E."...2.|
|000000d0| 88 2e 41 b2 41 3a 20 8f | 20 41 53 53 49 47 4e 20 |..A.A: .| ASSIGN |
|000000e0| 4c 4f 43 41 4c 20 27 41 | 27 20 54 48 45 20 56 41 |LOCAL 'A|' THE VA|
|000000f0| 4c 55 45 20 4f 46 20 54 | 48 45 20 4d 41 49 4e 20 |LUE OF T|HE MAIN |
|00000100| 50 52 4f 47 52 41 4d 20 | 27 41 27 00 31 0b 3c 00 |PROGRAM |'A'.1.<.|
|00000110| 42 b2 41 ac 31 30 30 3a | 8f 20 27 4c 45 54 27 20 |B.A.100:|. 'LET' |
|00000120| 4e 4f 54 20 52 45 51 55 | 49 52 45 44 20 48 45 52 |NOT REQU|IRED HER|
|00000130| 45 00 66 0b 46 00 88 41 | b2 2e 42 3a 20 8f 20 53 |E.f.F..A|..B: . S|
|00000140| 45 4e 44 20 54 48 45 20 | 56 41 4c 55 45 20 42 41 |END THE |VALUE BA|
|00000150| 43 4b 20 54 4f 20 54 48 | 45 20 4d 41 49 4e 20 50 |CK TO TH|E MAIN P|
|00000160| 52 4f 47 52 41 4d 00 a8 | 0b 50 00 99 22 11 c1 46 |ROGRAM..|.P.."..F|
|00000170| 54 45 52 20 59 4f 55 20 | 48 49 54 20 41 4e 59 20 |TER YOU |HIT ANY |
|00000180| 4b 45 59 2c 20 57 45 20 | 57 49 4c 4c 20 52 45 54 |KEY, WE |WILL RET|
|00000190| 55 52 4e 20 54 4f 54 48 | 45 20 4d 41 49 4e 20 50 |URN TOTH|E MAIN P|
|000001a0| 52 4f 47 52 41 4d 2e 22 | 00 ba 0b 5a 00 a1 5a 24 |ROGRAM."|...Z..Z$|
|000001b0| 3a 8b 5a 24 b2 22 22 a7 | 39 30 00 c0 0b 64 00 80 |:.Z$."".|90...d..|
|000001c0| 00 00 00 41 00 83 40 00 | 00 00 42 00 8a 16 00 00 |...A..@.|..B.....|
|000001d0| 00 5a 80 01 ff cf 00 00 | 22 11 d9 4f 55 52 20 4e |.Z......|"..OUR N|
|000001e0| 55 4d 42 45 52 20 2a 20 | 31 30 30 3d 22 41 3a 99 |UMBER * |100="A:.|
|000001f0| 3a 8d 31 37 30 00 41 c2 | 78 00 99 22 11 11 ce 4f |:.170.A.|x.."...O|
|00000200| 57 20 4c 45 54 27 53 20 | 54 41 4b 45 20 53 45 56 |W LET'S |TAKE SEV|
|00000210| 45 52 41 4c 20 4e 55 4d | 42 45 52 53 2c 20 41 4e |ERAL NUM|BERS, AN|
|00000220| 44 20 20 20 20 20 41 56 | 45 52 41 47 45 20 54 48 |D     AV|ERAGE TH|
|00000230| 45 4d 20 4f 55 54 20 57 | 49 54 48 20 54 48 45 22 |EM OUT W|ITH THE"|
|00000240| 3b 00 6c c2 82 00 99 22 | 20 56 41 52 49 41 42 4c |;.l...."| VARIABL|
|00000250| 45 20 4a 55 53 54 22 3a | 99 22 52 45 54 55 52 4e |E JUST":|."RETURN|
|00000260| 45 44 22 3a 85 42 2c 43 | 2c 44 2c 45 00 a3 c2 8c |ED":.B,C|,D,E....|
|00000270| 00 99 22 57 45 20 57 49 | 4c 4c 20 4e 4f 57 20 43 |.."WE WI|LL NOW C|
|00000280| 41 4c 4c 20 54 48 45 20 | 4e 45 58 54 20 53 55 42 |ALL THE |NEXT SUB|
|00000290| 52 4f 55 54 49 4e 45 2e | 2e 2e 22 3a cb 22 53 55 |ROUTINE.|..":."SU|
|000002a0| 42 32 22 00 c9 c2 96 00 | 99 22 11 d4 48 45 20 41 |B2".....|."..HE A|
|000002b0| 4e 53 57 45 52 20 54 4f | 20 4f 55 52 20 50 52 4f |NSWER TO| OUR PRO|
|000002c0| 42 4c 45 4d 20 49 53 22 | 41 00 cf c2 a0 00 80 00 |BLEM IS"|A.......|
|000002d0| e1 c2 aa 00 81 49 b2 30 | a4 32 35 30 30 3a 82 3a |.....I.0|.2500:.:|
|000002e0| 8e 00 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+