SUBPROGRAMS DEMO
FILE INFORMATION
FILENAME(S): SUBPROGRAMS DEMO
FILE TYPE(S): PRG
FILE SIZE: 757b
FIRST SEEN: 2025-11-30 21:12:56
APPEARS ON: 1 disk(s)
FILE HASH
4d4df73ea9e488c27beb6403220d5944ce4f7a68867869fe1da7d943262c0f63
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE NOVEMBER | SUBPROGRAMS DEMO | PRG | DuncanTwain | 8 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E |PUBLICATIONS, 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 .ESERVED"...(.| 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 |MONSTRATE 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 BETWEEN TWO| 00000100: 20 50 52 4F 47 52 41 4D 53 2E 22 00 3C 0B 3C 00 | PROGRAMS.".<.<.| 00000110: 99 22 11 D7 45 20 57 49 4C 4C 20 42 45 47 49 4E |."..E WILL BEGIN| 00000120: 20 42 59 20 45 4E 54 45 52 49 4E 47 20 41 20 4E | BY ENTERING 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 WILL NOW | 00000150: 43 41 4C 4C 20 41 20 53 55 42 52 4F 55 54 49 4E |CALL A SUBROUTIN| 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 THIS 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 BACK, LET| 000001C0: 27 53 20 44 49 53 50 4C 41 59 20 54 48 45 20 20 |'S DISPLAY 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 NUMBER * 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 THE";.x..| 00000250: 00 99 22 20 56 41 52 49 41 42 4C 45 20 4A 55 53 |.." VARIABLE JUS| 00000260: 54 22 3A 99 22 52 45 54 55 52 4E 45 44 2E 22 3A |T":."RETURNED.":| 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 NEXT 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 OUR 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 |:.... |
..H.... COPYRIGHT 1987 COMPUTE! PUBLICAT
IONS, INC. - ALL RIGHTS RESERVED.|....G(
14)".. COPYRIGHT 1987 COMPUTE! PUB., I
NC.".......10)"ALL RIGHTS RESERVED"...(.
."..THIS WILL DEMONSTRATE THE ABILITY OF
SUBPROGRAMS TO PASS ";...2.."VARIABL
ES BETWEEN TWO PROGRAMS.".<.<..".WE WI
LL BEGIN BY ENTERING A NUMBER...":.A...F
..".WE WILL NOW CALL A SUBROUTINE TO
MULTIPLY THIS NUMBER BY 100."...P..1
70...Z.K"SUB1".X.D.."...NOW THAT WE'RE B
ACK, LET'S DISPLAY THE RESULT."...N..".
YOUR NUMBER * 100 ="A"..":.:.170.L.X..".
.NOW LET'S TAKE SEVERAL NUMBERS, AND
AVERAGE THEM OUT WITH THE";.X...." VARI
ABLE JUST":."RETURNED.":.B,C,D,E......".
WE WILL NOW CALL THE NEXT SUBROUTINE..."
:K"SUB2".Z....".THE ANSWER TO OUR PROBLE
M IS"A".."... ........I.0.2500:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL