FOURIERANALY

FILE INFORMATION

FILENAME(S): FOURIERANALY

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-12-02 23:24:26

APPEARS ON: 1 disk(s)

FILE HASH

63be54eabf9d544ef36c48f2becec9f90abf9859bd20b938d19b8edb591bab4e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUDDY GERHARD	FOURIERANALY	PRG	swasti, ernst	29	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 14 08 0A 00 97 35  33 32 37 32 2C 32 33 3A  |.......53272,23:|
00000010: 99 22 93 22 00 30 08 0F  00 99 A3 31 33 29 22 C6  |.".".0.....13)".|
00000020: CF D5 D2 C9 C5 D2 C1 CE  C1 CC D9 D3 C5 22 3A 99  |.............":.|
00000030: 00 71 08 14 00 99 22 C9  4E 54 45 52 56 41 4C 4C  |.q....".NTERVALL|
00000040: 20 2D 50 49 20 54 4F 20  32 50 49 22 3A 99 22 59  | -PI TO 2PI":."Y|
00000050: 2D CB 4F 4F 52 44 49 4E  41 54 45 20 3D 20 32 2A  |-.OORDINATE = 2*|
00000060: 58 2D CB 4F 4F 52 44 49  4E 41 54 45 22 3A 99 3A  |X-.OORDINATE":.:|
00000070: 99 00 8D 08 1E 00 85 22  20 47 45 57 55 45 4E 53  |......." GEWUENS|
00000080: 43 48 54 45 52 20 C7 52  41 44 22 3B 4E 00 B0 08  |CHTER .RAD";N...|
00000090: 28 00 85 22 20 41 4C 54  45 53 20 C2 49 4C 44 20  |(.." ALTES .ILD |
000000A0: 4C 4F 45 53 43 48 45 4E  20 28 4A 29 22 3B 4C 24  |LOESCHEN (J)";L$|
000000B0: 00 C3 08 32 00 8B 20 4C  24 B3 B1 22 4A 22 20 89  |...2.. L$.."J" .|
000000C0: 20 36 30 00 DB 08 37 00  21 47 52 41 50 48 49 43  | 60...7.!GRAPHIC|
000000D0: 53 20 35 3A 21 47 43 4C  45 41 52 00 F8 08 3C 00  |S 5:!GCLEAR...<.|
000000E0: 99 3A 99 22 20 D7 41 45  48 4C 45 4E 20 D3 49 45  |.:." .AEHLEN .IE|
000000F0: 20 41 55 53 3A 22 3A 99  00 1B 09 46 00 99 22 20  | AUS:":....F.." |
00000100: D2 45 43 48 54 45 43 4B  53 43 48 57 49 4E 47 55  |.ECHTECKSCHWINGU|
00000110: 4E 47 2E 2E 2E 2E 2E 2E  2E 52 22 00 3E 09 50 00  |NG.......R".>.P.|
00000120: 99 22 20 D3 41 45 47 45  5A 41 48 4E 53 43 48 57  |." .AEGEZAHNSCHW|
00000130: 49 4E 47 55 4E 47 2E 2E  2E 2E 2E 2E 53 22 00 61  |INGUNG......S".a|
00000140: 09 5A 00 99 22 20 C7 4C  45 49 43 48 47 45 52 49  |.Z.." .LEICHGERI|
00000150: 43 48 54 45 54 45 52 20  D3 49 4E 55 53 2E 2E 47  |CHTETER .INUS..G|
00000160: 22 00 97 09 64 00 85 57  24 3A 8B 28 57 24 B3 B1  |"...d..W$:.(W$..|
00000170: 22 52 22 29 AF 28 57 24  B3 B1 22 53 22 29 AF 28  |"R").(W$.."S").(|
00000180: 57 24 B3 B1 22 47 22 29  A7 99 22 46 41 4C 53 43  |W$.."G").."FALSC|
00000190: 48 22 3A 89 31 30 30 00  B3 09 69 00 85 22 A0 C7  |H":.100...i.."..|
000001A0: 45 4E 41 55 49 47 4B 45  49 54 28 32 30 30 2D 29  |ENAUIGKEIT(200-)|
000001B0: 22 3B 47 00 CB 09 6E 00  8B 20 57 24 B2 22 52 22  |";G...n.. W$."R"|
000001C0: 20 A7 20 42 B2 31 3A 89  33 35 30 00 E3 09 6F 00  | . B.1:.350...o.|
000001D0: 8B 20 57 24 B2 22 53 22  20 A7 20 42 B2 32 3A 89  |. W$."S" . B.2:.|
000001E0: 33 35 30 00 F0 09 70 00  42 B2 33 3A 89 33 35 30  |350...p.B.3:.350|
000001F0: 00 F9 09 78 00 54 4E B2  30 00 0B 0A 7D 00 81 20  |...x.TN.0...}.. |
00000200: 49 B2 31 20 A4 20 4E 20  A9 20 32 00 20 0A 82 00  |I.1 . N . 2. ...|
00000210: 54 4E B2 54 4E AA 31 AD  49 AC BF 28 49 AC 58 29  |TN.TN.1.I..(I.X)|
00000220: 00 26 0A 8C 00 82 00 2C  0A 96 00 8E 00 35 0A D2  |.&.....,.....5..|
00000230: 00 54 4E B2 30 00 43 0A  D7 00 81 20 49 B2 31 20  |.TN.0.C.... I.1 |
00000240: A4 20 4E 00 63 0A DC 00  54 4E B2 54 4E AA 28 AB  |. N.c...TN.TN.(.|
00000250: 31 29 AE 28 49 AA 31 29  AD 32 AD 49 AC BF 28 49  |1).(I.1).2.I..(I|
00000260: AC 58 29 00 69 0A E6 00  82 00 6F 0A F0 00 8E 00  |.X).i.....o.....|
00000270: 81 0A 2C 01 54 4E B2 BF  28 58 29 AD 32 AB 31 AD  |..,.TN..(X).2.1.|
00000280: FF 00 92 0A 36 01 81 20  49 B2 30 20 A4 20 4E 20  |....6.. I.0 . N |
00000290: A9 32 00 B5 0A 40 01 54  4E B2 54 4E AB 32 AD 28  |.2...@.TN.TN.2.(|
000002A0: FF AC 28 49 AB 31 29 AC  28 49 AA 31 29 29 AC BE  |..(I.1).(I.1))..|
000002B0: 28 49 AC 58 29 00 BB 0A  4A 01 82 00 C1 0A 54 01  |(I.X)...J.....T.|
000002C0: 8E 00 C7 0A 5E 01 99 00  02 0B 68 01 21 47 52 41  |....^.....h.!GRA|
000002D0: 50 48 49 43 53 31 3A 21  4C 49 4E 45 20 31 30 36  |PHICS1:!LINE 106|
000002E0: 2C 31 20 A4 20 31 30 36  2C 31 39 39 3A 21 4C 49  |,1 . 106,199:!LI|
000002F0: 4E 45 20 31 2C 31 30 30  20 A4 20 33 31 39 2C 31  |NE 1,100 . 319,1|
00000300: 30 30 00 21 0B 72 01 4B  B2 33 AC FF AD 47 3A 45  |00.!.r.K.3...G:E|
00000310: 58 B2 33 31 39 AD 33 AD  FF 3A 45 59 B2 32 AC 45  |X.319.3..:EY.2.E|
00000320: 58 00 34 0B 7C 01 81 20  58 B2 FF 20 A4 20 34 AC  |X.4.|.. X.. . 4.|
00000330: FF 20 A9 4B 00 5C 0B 81  01 8F 21 44 52 41 57 20  |. .K.\....!DRAW |
00000340: 49 4E 54 28 45 58 2A 28  58 2D FF 29 29 2C 31 30  |INT(EX*(X-.)),10|
00000350: 30 2D 49 4E 54 28 54 4E  2A 45 59 29 00 72 0B 86  |0-INT(TN*EY).r..|
00000360: 01 91 20 42 20 8D 20 31  32 30 2C 32 31 30 2C 33  |.. B . 120,210,3|
00000370: 30 30 00 94 0B 90 01 21  44 4F 54 20 B5 28 45 58  |00.....!DOT .(EX|
00000380: AC 28 58 AB FF 29 29 2C  31 30 30 AB B5 28 54 4E  |.(X..)),100..(TN|
00000390: AC 45 59 29 00 9A 0B 9A  01 82 00 B8 0B 9F 01 21  |.EY)...........!|
000003A0: 47 52 41 50 48 49 43 53  20 33 3A 97 31 39 38 2C  |GRAPHICS 3:.198,|
000003B0: 30 3A 92 31 39 38 2C 31  00 CD 0B A4 01 21 47 52  |0:.198,1.....!GR|
000003C0: 41 50 48 49 43 53 20 30  3A 99 22 93 22 00 EE 0B  |APHICS 0:."."...|
000003D0: AE 01 85 22 D0 52 4F 47  52 41 4D 4D 20 46 4F 52  |...".ROGRAMM FOR|
000003E0: 54 53 45 54 5A 45 4E 28  4A 29 22 3B 4C 24 00 01  |TSETZEN(J)";L$..|
000003F0: 0C B8 01 8B 20 4C 24 B2  22 4A 22 20 A7 20 8A 31  |.... L$."J" . .1|
00000400: 30 00 00 00 BF 22 A2                              |0....".         |

.......53272,23:.".".0.....13)"FOURIERAN
ALYSE":..Q...."INTERVALL -PI TO 2PI":."Y
-KOORDINATE = 2*X-KOORDINATE":.:......."
 GEWUENSCHTER GRAD";N...(.." ALTES BILD 
LOESCHEN (J)";L$.C.2.. L$.."J" . 60...7.
!GRAPHICS 5:!GCLEAR...<..:." WAEHLEN SIE
 AUS:":....F.." RECHTECKSCHWINGUNG......
.R".>.P.." SAEGEZAHNSCHWINGUNG......S".A
.Z.." GLEICHGERICHTETER SINUS..G"...D..W
$:.(W$.."R").(W$.."S").(W$.."G").."FALSC
H":.100...I.." GENAUIGKEIT(200-)";G.K.N.
. W$."R" . B.1:.350...O.. W$."S" . B.2:.
350...P.B.3:.350...X.TN.0...}.. I.1 . N 
. 2. ...TN.TN.1.I..(I.X).&.....,.....5.R
.TN.0.C.W.. I.1 . N.C...TN.TN.(.1).(I.1)
.2.I..(I.X).I.....O.......,.TN..(X).2.1.
....6.. I.0 . N .2...@.TN.TN.2.(..(I.1).
(I.1))..(I.X)...J...A.T...G.^.....H.!GRA
PHICS1:!LINE 106,1 . 106,199:!LINE 1,100
 . 319,100.!.R.K.3...G:EX.319.3..:EY.2.E
X.4.|.. X.. . 4.. .K.\....!DRAW INT(EX*(
X-.)),100-INT(TN*EY).R.... B . 120,210,3
00.....!DOT .(EX.(X..)),100..(TN.EY)....
.......!GRAPHICS 3:.198,0:.198,1.M...!GR
APHICS 0:."."......"PROGRAMM FORTSETZEN(
J)";L$...... L$."J" . .10....".

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL