/ Compute! Gazette 1987 November / 1987-11.d64 / subprograms demo

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 0a 48 0a 0a 00 8f 20 | 43 4f 50 59 52 49 47 48 |..H.... |COPYRIGH|
|00000010| 54 20 31 39 38 37 20 43 | 4f 4d 50 55 54 45 21 20 |T 1987 C|OMPUTE! |
|00000020| 50 55 42 4c 49 43 41 54 | 49 4f 4e 53 2c 20 49 4e |PUBLICAT|IONS, IN|
|00000030| 43 2e 20 2d 20 41 4c 4c | 20 52 49 47 48 54 53 20 |C. - ALL| RIGHTS |
|00000040| 52 45 53 45 52 56 45 44 | 00 7c 0a 14 00 99 c7 28 |RESERVED|.|.....(|
|00000050| 31 34 29 22 93 90 20 20 | 20 c3 4f 50 59 52 49 47 |14)"..  | .OPYRIG|
|00000060| 48 54 20 31 39 38 37 20 | c3 cf cd d0 d5 d4 c5 21 |HT 1987 |.......!|
|00000070| 20 d0 55 42 2e 2c 20 c9 | 4e 43 2e 22 00 9b 0a 1e | .UB., .|NC."....|
|00000080| 00 99 a3 31 30 29 22 c1 | 4c 4c 20 d2 49 47 48 54 |...10)".|LL .IGHT|
|00000090| 53 20 d2 45 53 45 52 56 | 45 44 22 00 e2 0a 28 00 |S .ESERV|ED"...(.|
|000000a0| 99 22 11 11 d4 48 49 53 | 20 57 49 4c 4c 20 44 45 |."...HIS| WILL DE|
|000000b0| 4d 4f 4e 53 54 52 41 54 | 45 20 54 48 45 20 41 42 |MONSTRAT|E THE AB|
|000000c0| 49 4c 49 54 59 20 4f 46 | 20 20 20 20 d3 55 42 50 |ILITY OF|    .UBP|
|000000d0| 52 4f 47 52 41 4d 53 20 | 54 4f 20 50 41 53 53 20 |ROGRAMS |TO PASS |
|000000e0| 22 3b 00 0b 0b 32 00 99 | 22 56 41 52 49 41 42 4c |";...2..|"VARIABL|
|000000f0| 45 53 20 42 45 54 57 45 | 45 4e 20 20 20 54 57 4f |ES BETWE|EN   TWO|
|00000100| 20 50 52 4f 47 52 41 4d | 53 2e 22 00 3c 0b 3c 00 | PROGRAM|S.".<.<.|
|00000110| 99 22 11 d7 45 20 57 49 | 4c 4c 20 42 45 47 49 4e |."..E WI|LL BEGIN|
|00000120| 20 42 59 20 45 4e 54 45 | 52 49 4e 47 20 41 20 4e | BY ENTE|RING A N|
|00000130| 55 4d 42 45 52 2e 2e 2e | 22 3a 85 41 00 89 0b 46 |UMBER...|":.A...F|
|00000140| 00 99 22 11 d7 45 20 57 | 49 4c 4c 20 4e 4f 57 20 |.."..E W|ILL NOW |
|00000150| 43 41 4c 4c 20 41 20 53 | 55 42 52 4f 55 54 49 4e |CALL A S|UBROUTIN|
|00000160| 45 20 54 4f 20 20 20 20 | 20 20 20 20 4d 55 4c 54 |E TO    |    MULT|
|00000170| 49 50 4c 59 20 54 48 49 | 53 20 4e 55 4d 42 45 52 |IPLY THI|S NUMBER|
|00000180| 20 42 59 20 31 30 30 2e | 22 00 92 0b 50 00 8d 31 | BY 100.|"...P..1|
|00000190| 37 30 00 9e 0b 5a 00 cb | 22 53 55 42 31 22 00 d8 |70...Z..|"SUB1"..|
|000001a0| 0b 64 00 99 22 93 11 11 | ce 4f 57 20 54 48 41 54 |.d.."...|.OW THAT|
|000001b0| 20 57 45 27 52 45 20 42 | 41 43 4b 2c 20 4c 45 54 | WE'RE B|ACK, LET|
|000001c0| 27 53 20 44 49 53 50 4c | 41 59 20 54 48 45 20 20 |'S DISPL|AY THE  |
|000001d0| 52 45 53 55 4c 54 2e 22 | 00 00 0c 6e 00 99 22 11 |RESULT."|...n..".|
|000001e0| d9 4f 55 52 20 4e 55 4d | 42 45 52 20 2a 20 31 30 |.OUR NUM|BER * 10|
|000001f0| 30 20 3d 22 41 22 9d 2e | 22 3a 99 3a 8d 31 37 30 |0 ="A"..|":.:.170|
|00000200| 00 4c 0c 78 00 99 22 11 | 11 ce 4f 57 20 4c 45 54 |.L.x..".|..OW LET|
|00000210| 27 53 20 54 41 4b 45 20 | 53 45 56 45 52 41 4c 20 |'S TAKE |SEVERAL |
|00000220| 4e 55 4d 42 45 52 53 2c | 20 41 4e 44 20 20 20 20 |NUMBERS,| AND    |
|00000230| 20 41 56 45 52 41 47 45 | 20 54 48 45 4d 20 4f 55 | AVERAGE| THEM OU|
|00000240| 54 20 57 49 54 48 20 54 | 48 45 22 3b 00 78 0c 82 |T WITH T|HE";.x..|
|00000250| 00 99 22 20 56 41 52 49 | 41 42 4c 45 20 4a 55 53 |.." VARI|ABLE JUS|
|00000260| 54 22 3a 99 22 52 45 54 | 55 52 4e 45 44 2e 22 3a |T":."RET|URNED.":|
|00000270| 85 42 2c 43 2c 44 2c 45 | 00 b0 0c 8c 00 99 22 11 |.B,C,D,E|......".|
|00000280| d7 45 20 57 49 4c 4c 20 | 4e 4f 57 20 43 41 4c 4c |.E WILL |NOW CALL|
|00000290| 20 54 48 45 20 4e 45 58 | 54 20 53 55 42 52 4f 55 | THE NEX|T SUBROU|
|000002a0| 54 49 4e 45 2e 2e 2e 22 | 3a cb 22 53 55 42 32 22 |TINE..."|:."SUB2"|
|000002b0| 00 da 0c 96 00 99 22 11 | d4 48 45 20 41 4e 53 57 |......".|.HE ANSW|
|000002c0| 45 52 20 54 4f 20 4f 55 | 52 20 50 52 4f 42 4c 45 |ER TO OU|R PROBLE|
|000002d0| 4d 20 49 53 22 41 22 9d | 2e 22 00 e0 0c a0 00 80 |M IS"A".|."......|
|000002e0| 00 f2 0c aa 00 81 49 b2 | 30 a4 32 35 30 30 3a 82 |......I.|0.2500:.|
|000002f0| 3a 8e 00 00 00          |                         |:....   |        |
+--------+-------------------------+-------------------------+--------+--------+