EUCLID
FILE INFORMATION
FILENAME(S): EUCLID
FILE TYPE(S): PRG
FILE SIZE: 745b
FIRST SEEN: 2025-11-30 21:07:03
APPEARS ON: 1 disk(s)
FILE HASH
ffd990ee80d67bb84beb906df1bd8e6ddcca0fdd304094cb867658bcf268633b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY PET 05 | EUCLID | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 90 02 C2 02 E2 02 00 0A 15 00 50 52 4F 47 52 41 |..........PROGRA|
00000010: 4D 3A 20 45 55 43 4C 49 44 2F 2F 00 14 37 00 43 |M: EUCLID//..7.C|
00000020: 41 4C 43 55 4C 41 54 45 53 20 47 52 45 41 54 45 |ALCULATES GREATE|
00000030: 53 54 20 43 4F 4D 4D 4F 4E 20 44 49 56 49 53 4F |ST COMMON DIVISO|
00000040: 52 20 4F 46 20 54 57 4F 20 4E 55 4D 42 45 52 53 |R OF TWO NUMBERS|
00000050: 2F 2F 00 1E 25 00 44 45 4D 4F 4E 53 54 52 41 54 |//..%.DEMONSTRAT|
00000060: 45 53 20 54 48 45 20 4C 41 42 45 4C 20 46 41 43 |ES THE LABEL FAC|
00000070: 49 4C 49 54 59 2F 2F 00 28 3E 00 4D 45 54 48 4F |ILITY//.(>.METHO|
00000080: 44 20 4E 4F 54 20 52 45 43 4F 4D 4D 41 4E 44 41 |D NOT RECOMMANDA|
00000090: 42 4C 45 2E 20 4C 4F 4F 50 20 53 54 52 55 43 54 |BLE. LOOP STRUCT|
000000A0: 55 52 45 53 20 53 48 4F 55 4C 44 20 42 45 20 55 |URES SHOULD BE U|
000000B0: 53 45 44 2F 2F 00 32 33 00 42 55 54 20 49 54 27 |SED//.23.BUT IT'|
000000C0: 53 20 54 48 45 52 45 20 41 4C 4C 20 52 49 47 48 |S THERE ALL RIGH|
000000D0: 54 3B 20 4E 4F 20 44 4F 55 42 54 20 41 42 4F 55 |T; NO DOUBT ABOU|
000000E0: 54 20 54 48 41 54 2F 2F 00 3C 35 00 57 52 49 54 |T THAT//.<5.WRIT|
000000F0: 54 45 4E 20 49 4E 20 43 42 4D 20 43 4F 4D 41 4C |TEN IN CBM COMAL|
00000100: 2D 38 30 20 42 59 20 42 4F 52 47 45 20 52 2E 20 |-80 BY BORGE R. |
00000110: 43 48 52 49 53 54 45 4E 53 45 4E 2F 2F 00 46 04 |CHRISTENSEN//.F.|
00000120: 00 00 50 0D 71 01 07 6E 02 73 04 73 05 7B 00 5A |..P.q..n.s.s.{.Z|
00000130: 0E 08 02 05 04 3B 08 03 05 05 3B 42 00 64 04 95 |.....;....;B.d..|
00000140: 00 6E 0B 08 06 05 02 05 03 26 3B 00 78 0E 08 02 |.n.......&;.x...|
00000150: 05 03 3B 08 03 05 06 3B 42 00 82 0D DA 05 06 02 |..;....;B.......|
00000160: 00 00 2C 96 D5 6D 00 8C 08 08 01 05 02 3B 00 96 |..,..m.......;..|
00000170: 05 7E 01 00 A0 04 00 00 AA 05 9C 07 00 B4 2B B5 |.~............+.|
00000180: 03 20 45 4E 54 45 52 20 46 49 52 53 54 20 4E 55 |. ENTER FIRST NU|
00000190: 4D 42 45 52 A0 28 30 20 54 4F 20 53 54 4F 50 29 |MBER.(0 TO STOP)|
000001A0: 3A 20 B7 08 08 B9 BB 00 BE 0E 68 05 08 02 00 00 |: ........h.....|
000001B0: 2C 6A 9D 0A 00 00 C8 20 B5 03 15 45 4E 54 45 52 |,j..... ...ENTER|
000001C0: 20 53 45 43 4F 4E 44 20 4E 55 4D 42 45 52 3A 20 | SECOND NUMBER: |
000001D0: B7 08 09 B9 BB 00 D2 0B 5F 02 00 93 4B 65 60 61 |........_...Ke`a|
000001E0: 00 DC 35 5F 03 1B 47 52 45 41 54 45 53 54 20 43 |..5_..GREATEST C|
000001F0: 4F 4D 4D 4F 4E 20 44 49 56 49 53 4F 52 20 4F 46 |OMMON DIVISOR OF|
00000200: 20 65 66 05 08 64 66 03 05 20 41 4E 44 20 65 66 | ef..df.. AND ef|
00000210: 05 09 64 66 61 00 E6 17 5F 03 04 20 49 53 20 65 |..dfa..._.. IS e|
00000220: 66 0B 01 08 08 11 08 09 17 64 60 61 00 F0 35 68 |f........d`a..5h|
00000230: 0B 01 08 08 11 08 09 17 02 00 01 2C 6A 5F 03 1E |...........,j_..|
00000240: 53 4F 20 54 48 45 20 4E 55 4D 42 45 52 53 20 41 |SO THE NUMBERS A|
00000250: 52 45 20 52 45 4C 2E 20 50 52 49 4D 45 2E 65 60 |RE REL. PRIME.e`|
00000260: 61 00 FA 0B 5F 02 00 0D 4B 65 60 61 01 04 06 9D |a..._...Ke`a....|
00000270: 07 00 01 0E 05 9C 0A 01 18 1B 5F 03 12 54 48 41 |.........._..THA|
00000280: 4E 4B 53 20 46 4F 52 20 54 4F 2D 44 41 59 2E 65 |NKS FOR TO-DAY.e|
00000290: 60 61 01 22 04 00 15 BA 6D 00 00 11 FA 7F 00 00 |`a."....m.......|
000002A0: 11 F8 7F 00 00 00 00 00 00 00 00 00 00 00 00 11 |................|
000002B0: F6 7F 00 00 13 10 6E 00 00 11 FE 7F 00 00 11 FC |......n.........|
000002C0: 7F 00 00 13 0B 6F 00 00 03 47 43 44 01 58 01 59 |.....o...GCD.X.Y|
000002D0: 01 41 01 42 03 52 45 53 04 4C 4F 4F 50 01 50 01 |.A.B.RES.LOOP.P.|
000002E0: 51 05 46 49 4E 49 53 00 00 |Q.FINIS.. |
..B.......PROGRAM: EUCLID//..7.CALCULATE
S GREATEST COMMON DIVISOR OF TWO NUMBERS
//..%.DEMONSTRATES THE LABEL FACILITY//.
(>.METHOD NOT RECOMMANDABLE. LOOP STRUCT
URES SHOULD BE USED//.23.BUT IT'S THERE
ALL RIGHT; NO DOUBT ABOUT THAT//.<5.WRIT
TEN IN CBM COMAL-80 BY BORGE R. CHRISTEN
SEN//.F...P.Q..N.S.S.{.Z.....;....;B.D..
.N.......&;.X.....;....;B...Z.....,.UM..
.....;...~.. .........+.. ENTER FIRST NU
MBER (0 TO STOP): ........H.....,J....H
...ENTER SECOND NUMBER: ......R._...KE`A
..5_..GREATEST COMMON DIVISOR OF EF..DF.
. AND EF..DFA..._.. IS EF........D`A..5H
...........,J_..SO THE NUMBERS ARE REL.
PRIME.E`A..._...KE`A.............._..THA
NKS FOR TO-DAY.E`A."....M.............
.............N............O...GCD.X.Y
.A.B.RES.LOOP.P.Q.FINIS..
> CLICK IMAGE PREVIEW FOR FULL MODAL