DIST2HOR
FILE INFORMATION
FILENAME(S): DIST2HOR
FILE TYPE(S): PRG
FILE SIZE: 475b
FIRST SEEN: 2025-10-20 14:30:32
APPEARS ON: 1 disk(s)
FILE HASH
a73063b816bb90823acd71709570044e29b174789c38a25cf110b817ad95a7c5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026ED | DIST2HOR | PRG | Treasure Chest - Klaus Der Suhler | 10 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 01 00 8F 20 54 48 49 53 20 50 52 4F |..Q.... THIS PRO|
00000010: 47 52 41 4D 20 57 49 4C 4C 20 47 49 56 45 20 44 |GRAM WILL GIVE D|
00000020: 49 53 54 41 4E 43 45 20 49 4E 20 4D 49 4C 45 53 |ISTANCE IN MILES|
00000030: 20 54 4F 20 54 48 45 20 48 4F 52 49 5A 4F 4E 20 | TO THE HORIZON |
00000040: 46 52 4F 4D 20 41 20 47 49 56 45 4E 2E 2E 2E 2E |FROM A GIVEN....|
00000050: 2E 00 6B 08 02 00 8F 20 2E 2E 2E 2E 48 45 49 47 |..k.... ....HEIG|
00000060: 48 54 20 49 4E 20 46 45 45 54 21 00 74 08 05 00 |HT IN FEET!.t...|
00000070: 99 22 93 22 00 A4 08 06 00 97 20 35 33 32 38 30 |."."...... 53280|
00000080: 2C 30 3A 97 20 35 33 32 38 31 2C 30 3A 99 20 C7 |,0:. 53281,0:. .|
00000090: 28 31 35 38 29 3A 81 20 54 B2 31 20 A4 20 31 30 |(158):. T.1 . 10|
000000A0: 30 30 3A 82 00 F1 08 0A 00 99 22 20 20 49 4E 50 |00:......." INP|
000000B0: 55 54 20 54 48 45 20 48 45 49 47 48 54 20 49 4E |UT THE HEIGHT IN|
000000C0: 20 46 45 45 54 20 54 4F 20 46 49 4E 44 20 54 48 | FEET TO FIND TH|
000000D0: 45 20 20 20 20 20 20 20 20 44 49 53 54 41 4E 43 |E DISTANC|
000000E0: 45 20 54 4F 20 54 48 45 20 48 4F 52 49 5A 4F 4E |E TO THE HORIZON|
000000F0: 21 00 FB 08 1E 00 99 3A 85 20 48 00 0A 09 32 00 |!......:. H...2.|
00000100: 44 B2 BA 28 31 2E 35 AC 48 29 00 2F 09 3C 00 99 |D..(1.5.H)./.<..|
00000110: 3A 99 20 A3 30 35 29 44 3B 22 4D 49 4C 45 53 20 |:. .05)D;"MILES |
00000120: 54 4F 20 54 48 45 20 48 4F 52 49 5A 4F 4E 22 00 |TO THE HORIZON".|
00000130: 42 09 41 00 81 20 54 B2 31 20 A4 20 32 30 30 30 |B.A.. T.1 . 2000|
00000140: 3A 82 00 71 09 46 00 99 A3 31 30 29 22 11 11 11 |:..q.F...10)"...|
00000150: 41 4E 4F 54 48 45 52 20 43 41 4C 43 55 4C 41 54 |ANOTHER CALCULAT|
00000160: 49 4F 4E 3F 22 3A 99 A3 31 36 29 22 59 2F 4E 3F |ION?":..16)"Y/N?|
00000170: 22 00 7B 09 50 00 85 20 41 4E 24 00 8F 09 51 00 |".{.P.. AN$...Q.|
00000180: 8B 20 41 4E 24 B2 22 59 22 20 A7 20 89 20 35 00 |. AN$."Y" . . 5.|
00000190: 98 09 52 00 99 22 93 22 00 B6 09 57 00 99 A3 31 |..R.."."...W...1|
000001A0: 31 29 22 11 11 11 11 11 47 4F 4F 44 2D 42 59 45 |1)".....GOOD-BYE|
000001B0: 20 54 48 45 4E 22 00 C9 09 58 00 81 20 54 B2 31 | THEN"...X.. T.1|
000001C0: 20 A4 20 32 30 30 30 3A 82 00 D2 09 59 00 99 22 | . 2000:....Y.."|
000001D0: 93 22 00 D8 09 5A 00 80 00 00 00 |."...Z..... |
..Q.... THIS PROGRAM WILL GIVE DISTANCE
IN MILES TO THE HORIZON FROM A GIVEN....
..K.... ....HEIGHT IN FEET!.T...."."....
.. 53280,0:. 53281,0:. G(158):. T.1 . 10
00:......." INPUT THE HEIGHT IN FEET TO
FIND THE DISTANCE TO THE HORIZON
!......:. H...2.D..(1.5.H)./.<..:. .05)D
;"MILES TO THE HORIZON".B.A.. T.1 . 2000
:..Q.F...10)"...ANOTHER CALCULATION?":..
16)"Y/N?".{.P.. AN$...Q.. AN$."Y" . . 5.
..R.."."...W...11)".....GOOD-BYE THEN".I
.X.. T.1 . 2000:..R.Y..".".X.Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL