ANGLES

FILE INFORMATION

FILENAME(S): ANGLES

FILE TYPE(S): PRG

FILE SIZE: 811b

FIRST SEEN: 2025-11-30 21:23:44

APPEARS ON: 1 disk(s)

FILE HASH

dc6c1a7614c13502001c5ffdc689aa367059bf59bdd8cead6a5ccceede0f4424

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 SPEL 39 1	ANGLES	PRG	DuncanTwain	25	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 5A 00 97 35  33 32 38 30 2C 30 3A 97  |....Z..53280,0:.|
00000010: 35 33 32 38 31 2C 30 00  2D 08 64 00 99 20 22 93  |53281,0.-.d.. ".|
00000020: 2A 2A 20 41 4E 47 4C 45  53 20 2A 2A 22 00 4D 08  |** ANGLES **".M.|
00000030: 6E 00 99 20 22 11 45 4E  54 45 52 20 41 4E 47 4C  |n.. ".ENTER ANGL|
00000040: 45 20 49 4E 20 44 45 47  52 45 45 53 22 00 5C 08  |E IN DEGREES".\.|
00000050: 78 00 85 20 22 44 20 3D  20 22 3B 44 00 6C 08 82  |x.. "D = ";D.l..|
00000060: 00 8B 20 44 B1 30 20 A7  20 31 36 30 00 83 08 8C  |.. D.0 . 160....|
00000070: 00 99 20 22 53 4F 52 52  59 2C 20 30 3C 44 3C 33  |.. "SORRY, 0<D<3|
00000080: 36 30 22 00 8C 08 96 00  89 31 31 30 00 9E 08 A0  |60"......110....|
00000090: 00 8B 20 44 B1 33 36 30  20 A7 20 31 34 30 00 AC  |.. D.360 . 140..|
000000A0: 08 AA 00 52 B2 44 AC FF  AD 31 38 30 00 CF 08 B4  |...R.D...180....|
000000B0: 00 99 20 22 11 45 51 55  49 56 41 4C 45 4E 54 20  |.. ".EQUIVALENT |
000000C0: 52 41 44 49 41 4E 53 20  20 20 3D 20 22 3B 52 00  |RADIANS   = ";R.|
000000D0: F5 08 BE 00 99 20 22 11  53 49 4E 45 20 4F 46 20  |..... ".SINE OF |
000000E0: 41 4E 47 4C 45 20 20 20  20 20 20 20 20 3D 20 22  |ANGLE        = "|
000000F0: 3B BF 28 52 29 00 1B 09  C8 00 99 20 22 11 43 4F  |;.(R)...... ".CO|
00000100: 53 49 4E 45 20 4F 46 20  41 4E 47 4C 45 20 20 20  |SINE OF ANGLE   |
00000110: 20 20 20 3D 20 22 3B BE  28 52 29 00 3B 09 D2 00  |   = ";.(R).;...|
00000120: 8B 20 44 B2 39 30 20 A7  20 54 24 B2 22 49 4E 46  |. D.90 . T$."INF|
00000130: 49 4E 49 54 59 22 3A 89  32 34 30 00 5C 09 DC 00  |INITY":.240.\...|
00000140: 8B 20 44 B2 32 37 30 20  A7 20 54 24 B2 22 49 4E  |. D.270 . T$."IN|
00000150: 46 49 4E 49 54 59 22 3A  89 32 34 30 00 6B 09 E6  |FINITY":.240.k..|
00000160: 00 54 24 B2 C4 28 C0 28  52 29 29 00 8F 09 F0 00  |.T$..(.(R)).....|
00000170: 99 20 22 11 54 41 4E 47  45 4E 54 20 4F 46 20 41  |. ".TANGENT OF A|
00000180: 4E 47 4C 45 20 20 20 20  20 3D 20 22 3B 54 24 00  |NGLE     = ";T$.|
00000190: B2 09 FA 00 8B 20 54 24  B2 22 49 4E 46 49 4E 49  |..... T$."INFINI|
000001A0: 54 59 22 20 A7 20 43 24  B2 22 30 22 3A 89 20 32  |TY" . C$."0":. 2|
000001B0: 38 30 00 D5 09 04 01 8B  20 C0 28 52 29 B2 30 20  |80...... .(R).0 |
000001C0: A7 20 43 24 B2 22 49 4E  46 49 4E 49 54 59 22 3A  |. C$."INFINITY":|
000001D0: 89 20 32 38 30 00 E6 09  0E 01 43 24 B2 C4 28 31  |. 280.....C$..(1|
000001E0: AD C0 28 52 29 29 00 0A  0A 18 01 99 20 22 11 43  |..(R))...... ".C|
000001F0: 4F 54 41 4E 47 45 4E 54  20 4F 46 20 41 4E 47 4C  |OTANGENT OF ANGL|
00000200: 45 20 20 20 3D 20 22 3B  43 24 00 2D 0A 22 01 8B  |E   = ";C$.-."..|
00000210: 20 BE 28 52 29 B2 30 20  A7 20 53 24 B2 22 49 4E  | .(R).0 . S$."IN|
00000220: 46 49 4E 49 54 59 22 3A  89 20 33 31 30 00 3E 0A  |FINITY":. 310.>.|
00000230: 2C 01 53 24 B2 C4 28 31  AD BE 28 52 29 29 00 62  |,.S$..(1..(R)).b|
00000240: 0A 36 01 99 20 22 11 53  45 43 41 4E 54 20 4F 46  |.6.. ".SECANT OF|
00000250: 20 41 4E 47 4C 45 20 20  20 20 20 20 3D 20 22 3B  | ANGLE      = ";|
00000260: 53 24 00 93 0A 40 01 8B  20 44 B2 30 20 B0 20 44  |S$...@.. D.0 . D|
00000270: B2 31 38 30 20 B0 20 44  B2 33 36 30 20 A7 20 43  |.180 . D.360 . C|
00000280: 53 24 B2 22 49 4E 46 49  4E 49 54 59 22 3A 89 20  |S$."INFINITY":. |
00000290: 33 34 30 00 A5 0A 4A 01  43 53 24 B2 C4 28 31 AD  |340...J.CS$..(1.|
000002A0: BF 28 52 29 29 00 CA 0A  54 01 99 20 22 11 43 4F  |.(R))...T.. ".CO|
000002B0: 53 45 43 41 4E 54 20 4F  46 20 41 4E 47 4C 45 20  |SECANT OF ANGLE |
000002C0: 20 20 20 3D 20 22 3B 43  53 24 00 EA 0A 5E 01 99  |   = ";CS$...^..|
000002D0: 20 22 11 11 11 41 4E 4F  54 48 45 52 20 41 4E 47  | "...ANOTHER ANG|
000002E0: 4C 45 3F 20 28 59 2F 4E  29 22 00 F3 0A 68 01 A1  |LE? (Y/N)"...h..|
000002F0: 20 41 24 00 06 0B 72 01  8B 20 41 24 B2 22 59 22  | A$...r.. A$."Y"|
00000300: 20 A7 20 31 30 30 00 1A  0B 7C 01 8B 20 41 24 B3  | . 100...|.. A$.|
00000310: B1 22 4E 22 20 A7 20 33  36 30 00 22 0B 86 01 99  |."N" . 360."....|
00000320: 41 24 00 28 0B 90 01 80  00 00 00                 |A$.(.......     |

....Z..53280,0:.53281,0.-.D.. ".** ANGLE
S **".M.N.. ".ENTER ANGLE IN DEGREES".\.
X.. "D = ";D.L.... D.0 . 160...... "SORR
Y, 0<D<360"......110... .. D.360 . 140..
...R.D...180.O.... ".EQUIVALENT RADIANS 
  = ";R...... ".SINE OF ANGLE        = "
;.(R)...H.. ".COSINE OF ANGLE      = ";.
(R).;.R.. D.90 . T$."INFINITY":.240.\...
. D.270 . T$."INFINITY":.240.K...T$.D(.(
R))...... ".TANGENT OF ANGLE     = ";T$.
..... T$."INFINITY" . C$."0":. 280.U....
 .(R).0 . C$."INFINITY":. 280.....C$.D(1
..(R))...... ".COTANGENT OF ANGLE   = ";
C$.-.".. .(R).0 . S$."INFINITY":. 310.>.
,.S$.D(1..(R)).B.6.. ".SECANT OF ANGLE  
    = ";S$...@.. D.0 . D.180 . D.360 . C
S$."INFINITY":. 340...J.CS$.D(1..(R)).J.
T.. ".COSECANT OF ANGLE    = ";CS$...^..
 "...ANOTHER ANGLE? (Y/N)"...H.. A$...R.
. A$."Y" . 100...|.. A$.."N" . 360."....
A$.(.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL