17-5
FILE INFORMATION
FILENAME(S): 17-5
FILE TYPE(S): PRG
FILE SIZE: 606b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
6acd44ee8390844cac1758e675fdad5f4ead23ed9191119ef8a4b67e8411f6ad
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 17-5 | PRG | DuncanTwain | 29 | 3 | DOWNLOAD FILE |
| PROG 64 WEST | 17-5 | PRG | DuncanTwain | 29 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 20 2A 20 20 20 20 50 52 4F |..!.... * PRO| 00000010: 47 52 41 4D 20 31 37 2D 35 20 20 20 20 20 20 20 |GRAM 17-5 | 00000020: 2A 00 51 08 0A 00 9F 20 34 2C 36 3A 20 20 20 20 |*.Q.... 4,6: | 00000030: 20 20 20 8F 20 4F 50 45 4E 20 46 4F 52 20 4F 52 | . OPEN FOR OR| 00000040: 44 49 4E 41 52 59 20 43 48 41 52 41 43 54 45 52 |DINARY CHARACTER| 00000050: 53 00 7A 08 14 00 9F 20 36 2C 36 2C 31 3A 20 20 |S.z.... 6,6,1: | 00000060: 20 20 20 8F 20 4F 50 45 4E 20 46 4F 52 20 58 2C | . OPEN FOR X,| 00000070: 59 20 50 4C 4F 54 54 49 4E 47 00 98 08 1E 00 98 |Y PLOTTING......| 00000080: 36 2C 22 48 22 3A 20 20 20 20 8F 20 48 4F 4D 45 |6,"H": . HOME| 00000090: 20 54 48 45 20 50 45 4E 00 AD 08 28 00 81 20 58 | THE PEN...(.. X| 000000A0: B2 32 30 20 A4 20 34 36 30 20 A9 20 32 00 E1 08 |.20 . 460 . 2...| 000000B0: 32 00 59 B2 BF 28 28 58 AB 32 30 29 AC 34 AC FF |2.Y..((X.20).4..| 000000C0: AD 34 34 30 29 3A 20 20 20 20 20 20 20 20 20 20 |.440): | 000000D0: 20 8F 20 43 41 4C 43 55 4C 41 54 45 20 57 41 56 | . CALCULATE WAV| 000000E0: 45 00 19 09 3C 00 59 B2 59 AA 28 31 AD 33 29 AC |E...<.Y.Y.(1.3).| 000000F0: BF 28 28 58 AB 32 30 29 AC 34 AC 33 AC FF AD 34 |.((X.20).4.3...4| 00000100: 34 30 29 3A 20 8F 20 41 44 44 20 54 48 49 52 44 |40): . ADD THIRD| 00000110: 20 48 41 52 4D 4F 4E 49 43 00 48 09 46 00 59 B2 | HARMONIC.H.F.Y.| 00000120: 59 AA 28 31 AD 35 29 AC BF 28 28 58 AB 32 30 29 |Y.(1.5)..((X.20)| 00000130: AC 34 AC 35 AC FF AD 34 34 30 29 3A 20 8F 20 41 |.4.5...440): . A| 00000140: 4E 44 20 46 49 46 54 48 00 67 09 50 00 98 36 2C |ND FIFTH.g.P..6,| 00000150: 22 44 22 2C 58 2C 59 AC 37 30 3A 20 8F 20 44 52 |"D",X,Y.70: . DR| 00000160: 41 57 20 57 41 56 45 00 6D 09 5A 00 82 00 8A 09 |AW WAVE.m.Z.....| 00000170: 64 00 98 36 2C 22 4D 22 2C 34 37 39 2C 30 3A 20 |d..6,"M",479,0: | 00000180: 8F 20 4D 4F 56 45 20 50 45 4E 00 AE 09 6E 00 98 |. MOVE PEN...n..| 00000190: 36 2C 22 44 22 2C 30 2C 30 3A 20 20 20 8F 20 44 |6,"D",0,0: . D| 000001A0: 52 41 57 20 46 49 52 53 54 20 41 58 49 53 00 D3 |RAW FIRST AXIS..| 000001B0: 09 78 00 98 36 2C 22 44 22 2C 30 2C 31 31 30 3A |.x..6,"D",0,110:| 000001C0: 20 8F 20 44 52 41 57 20 53 45 43 4F 4E 44 20 41 | . DRAW SECOND A| 000001D0: 58 49 53 00 F6 09 82 00 98 36 2C 22 4D 22 2C 30 |XIS......6,"M",0| 000001E0: 2C 30 3A 20 20 20 8F 20 52 45 54 55 52 4E 20 54 |,0: . RETURN T| 000001F0: 4F 20 48 4F 4D 45 00 19 0A 8C 00 98 36 2C 22 52 |O HOME......6,"R| 00000200: 22 2C 30 2C AB 31 30 30 3A 8F 20 20 4D 4F 56 45 |",0,.100:. MOVE| 00000210: 20 50 45 4E 20 44 4F 57 4E 00 46 0A 96 00 98 34 | PEN DOWN.F....4| 00000220: 2C 22 57 41 56 45 46 4F 52 4D 20 57 49 54 48 20 |,"WAVEFORM WITH | 00000230: 32 20 4F 44 44 20 48 41 52 4D 4F 4E 49 43 53 20 |2 ODD HARMONICS | 00000240: 41 44 44 45 44 22 00 5B 0A A0 00 98 34 3A 20 A0 |ADDED".[....4: .| 00000250: 20 34 3A 20 98 36 3A 20 A0 20 36 00 00 00 | 4: .6: . 6... |
..!.... * PROGRAM 17-5 *.Q....
4,6: . OPEN FOR ORDINARY CHARACTER
S.Z.... 6,6,1: . OPEN FOR X,Y PLOTTI
NG......6,"H": . HOME THE PEN...(.. X
.20 . 460 . 2...2.Y..((X.20).4...440):
. CALCULATE WAVE...<.Y.Y.(1.3).
.((X.20).4.3...440): . ADD THIRD HARMONI
C.H.F.Y.Y.(1.5)..((X.20).4.5...440): . A
ND FIFTH.G.P..6,"D",X,Y.70: . DRAW WAVE.
M.Z.....D..6,"M",479,0: . MOVE PEN...N..
6,"D",0,0: . DRAW FIRST AXIS.S.X..6,"D
",0,110: . DRAW SECOND AXIS......6,"M",0
,0: . RETURN TO HOME......6,"R",0,.100
:. MOVE PEN DOWN.F....4,"WAVEFORM WITH
2 ODD HARMONICS ADDED".[. ..4: 4: .6:
6...
> CLICK IMAGE PREVIEW FOR FULL MODAL