_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SUB2

FILE INFORMATION

FILENAME(S): SUB2

FILE TYPE(S): PRG

FILE SIZE: 446b

FIRST SEEN: 2025-11-30 21:12:56

APPEARS ON: 1 disk(s)

FILE HASH

74c22ee7b8ec6362e701c07c57fbd4dac10eedf692d160da2e189b3fedd65280

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GAZETTE NOVEMBER SUB2 PRG DuncanTwain 8 14 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 C0 4D C0 0A 00 99 22  93 11 11 D7 45 20 41 52  |..M...."....E AR|
00000010: 45 20 4E 4F 57 20 49 4E  20 54 48 45 20 53 45 43  |E NOW IN THE SEC|
00000020: 4F 4E 44 20 52 4F 55 54  49 4E 45 2E 20 C8 45 52  |OND ROUTINE. .ER|
00000030: 45 20 20 57 45 20 57 49  4C 4C 20 41 56 45 52 41  |E  WE WILL AVERA|
00000040: 47 45 20 4F 55 54 20 54  48 45 20 22 3B 00 8B C0  |GE OUT THE ";...|
00000050: 14 00 99 22 4E 55 4D 42  45 52 53 20 54 48 41 54  |..."NUMBERS THAT|
00000060: 20 20 20 20 57 45 52 45  20 49 4E 50 55 54 2C 20  |    WERE INPUT, |
00000070: 49 4E 43 4C 55 44 49 4E  47 20 54 48 45 20 46 49  |INCLUDING THE FI|
00000080: 52 53 54 20 4E 55 4D 42  45 52 22 00 C5 C0 1E 00  |RST NUMBER".....|
00000090: 99 22 57 45 20 4D 55 4C  54 49 50 4C 49 45 44 2E  |."WE MULTIPLIED.|
000000A0: 22 3A 99 22 11 C1 47 41  49 4E 2C 20 4C 45 54 27  |":."..GAIN, LET'|
000000B0: 53 20 43 4C 45 41 52 20  56 41 52 49 41 42 4C 45  |S CLEAR VARIABLE|
000000C0: 53 2E 22 3A 9C 00 E6 C0  28 00 99 22 11 CE 4F 57  |S.":....(.."..OW|
000000D0: 20 54 4F 20 47 45 54 20  54 48 45 20 56 41 4C 55  | TO GET THE VALU|
000000E0: 45 53 2E 2E 2E 22 00 08  C1 32 00 88 2E 41 B2 41  |ES..."...2...A.A|
000000F0: 3A 88 2E 42 B2 42 3A 88  2E 43 B2 43 3A 88 2E 44  |:..B.B:..C.C:..D|
00000100: B2 44 3A 88 2E 45 B2 45  00 51 C1 3C 00 41 4E B2  |.D:..E.E.Q.<.AN.|
00000110: 28 41 AA 42 AA 43 AA 44  AA 45 29 AD 35 3A 8F 20  |(A.B.C.D.E).5:. |
00000120: 53 49 4E 43 45 20 54 48  49 53 20 49 53 20 41 20  |SINCE THIS IS A |
00000130: 4C 4F 43 41 4C 20 46 55  4E 43 54 49 4F 4E 2C 20  |LOCAL FUNCTION, |
00000140: 27 4C 45 54 27 20 49 53  20 4E 4F 54 20 55 53 45  |'LET' IS NOT USE|
00000150: 44 00 83 C1 46 00 88 41  B2 2E 41 4E 3A 20 8F 20  |D...F..A..AN: . |
00000160: 53 45 4E 44 20 56 41 4C  55 45 20 42 41 43 4B 20  |SEND VALUE BACK |
00000170: 54 4F 20 54 48 45 20 4D  41 49 4E 20 50 52 4F 47  |TO THE MAIN PROG|
00000180: 52 41 4D 00 A3 C1 50 00  99 22 11 C8 49 54 20 41  |RAM...P.."..IT A|
00000190: 4E 59 20 4B 45 59 20 54  4F 20 47 4F 20 42 41 43  |NY KEY TO GO BAC|
000001A0: 4B 2E 22 00 B5 C1 5A 00  A1 5A 24 3A 8B 5A 24 B2  |K."...Z..Z$:.Z$.|
000001B0: 22 22 A7 39 30 00 BB C1  64 00 80 00 00 00        |"".90...d.....  |

..M...."...WE ARE NOW IN THE SECOND ROUT
INE. HERE  WE WILL AVERAGE OUT THE ";...
..."NUMBERS THAT    WERE INPUT, INCLUDIN
G THE FIRST NUMBER".E...."WE MULTIPLIED.
":.".AGAIN, LET'S CLEAR VARIABLES.":....
(..".NOW TO GET THE VALUES..."..A2...A.A
:..B.B:..C.C:..D.D:..E.E.QA<.AN.(A.B.C.D
.E).5:. SINCE THIS IS A LOCAL FUNCTION, 
'LET' IS NOT USED..AF..A..AN: . SEND VAL
UE BACK TO THE MAIN PROGRAM..AP..".HIT A
NY KEY TO GO BACK."..AZ..Z$:.Z$."".90..A
D.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL