> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 99 22 93 22 00 10 08 14 00 99 |......."."......|
00000010: 00 16 08 1E 00 99 00 37 08 28 00 99 22 20 20 20 |.......7.(.." |
00000020: 20 4C 49 53 53 41 4F 55 4A 53 43 48 45 20 46 49 | LISSAOUJSCHE FI|
00000030: 47 55 52 45 4E 21 22 00 58 08 2D 00 99 22 20 20 |GUREN!".X.-.." |
00000040: 20 20 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ..............|
00000050: C3 C3 C3 C3 C3 C3 C3 22 00 62 08 32 00 99 3A 99 |.......".b.2..:.|
00000060: 3A 99 00 85 08 33 00 99 22 57 45 4C 43 48 45 20 |:....3.."WELCHE |
00000070: 46 41 52 42 45 20 57 55 45 4E 53 43 48 45 4E 20 |FARBE WUENSCHEN |
00000080: 53 49 45 3F 22 00 A0 08 34 00 99 3A 99 3A 99 3A |SIE?"...4..:.:.:|
00000090: 99 22 20 20 20 12 05 20 92 2D 2D 2D 2D 20 57 22 |." .. .---- W"|
000000A0: 00 B7 08 35 00 99 3A 99 22 20 20 20 12 1C 20 92 |...5..:." .. .|
000000B0: 2D 2D 2D 2D 20 52 22 00 CE 08 36 00 99 3A 99 22 |---- R"...6..:."|
000000C0: 20 20 20 12 1E 20 92 2D 2D 2D 2D 20 47 22 00 E5 | .. .---- G"..|
000000D0: 08 37 00 99 3A 99 22 20 20 20 12 9E 20 92 2D 2D |.7..:." .. .--|
000000E0: 2D 2D 20 59 22 00 01 09 38 00 99 3A 99 22 20 20 |-- Y"...8..:." |
000000F0: 20 12 9A 20 92 2D 2D 2D 2D 20 56 22 3A 99 22 05 | .. .---- V":.".|
00000100: 22 00 15 09 3C 00 A1 46 41 24 3A 8B 46 41 24 B2 |"...<..FA$:.FA$.|
00000110: 22 22 A7 36 30 00 50 09 3D 00 8B 46 41 24 B3 B1 |"".60.P.=..FA$..|
00000120: 22 57 22 AF 46 41 24 B3 B1 22 52 22 AF 46 41 24 |"W".FA$.."R".FA$|
00000130: B3 B1 22 47 22 AF 46 41 24 B3 B1 22 59 22 AF 46 |.."G".FA$.."Y".F|
00000140: 41 24 B3 B1 22 56 22 A7 99 22 93 22 3A 89 36 37 |A$.."V"..".":.67|
00000150: 00 6A 09 3E 00 8B 46 41 24 B2 22 57 22 A7 99 22 |.j.>..FA$."W".."|
00000160: 05 22 3A 46 B2 31 3A 89 36 38 00 84 09 3F 00 8B |.":F.1:.68...?..|
00000170: 46 41 24 B2 22 52 22 A7 99 22 1C 22 3A 46 B2 32 |FA$."R"..".":F.2|
00000180: 3A 89 36 38 00 9E 09 40 00 8B 46 41 24 B2 22 47 |:.68...@..FA$."G|
00000190: 22 A7 99 22 1E 22 3A 46 B2 35 3A 89 36 38 00 B8 |"..".":F.5:.68..|
000001A0: 09 41 00 8B 46 41 24 B2 22 59 22 A7 99 22 9E 22 |.A..FA$."Y".."."|
000001B0: 3A 46 B2 37 3A 89 36 38 00 D3 09 42 00 8B 46 41 |:F.7:.68...B..FA|
000001C0: 24 B2 22 56 22 A7 99 22 9A 22 3A 46 B2 31 34 3A |$."V"..".":F.14:|
000001D0: 89 36 38 00 FF 09 43 00 99 3A 99 22 47 45 42 45 |.68...C..:."GEBE|
000001E0: 4E 20 53 49 45 20 4E 55 52 20 57 2C 52 2C 47 2C |N SIE NUR W,R,G,|
000001F0: 59 2C 56 20 45 49 4E 21 22 3A 99 3A 89 35 31 00 |Y,V EIN!":.:.51.|
00000200: 26 0A 44 00 99 22 47 45 42 45 4E 20 53 49 45 20 |&.D.."GEBEN SIE |
00000210: 42 49 54 54 45 20 44 41 53 20 41 4D 50 4C 49 54 |BITTE DAS AMPLIT|
00000220: 55 44 45 4E 3D 22 00 45 0A 46 00 99 22 56 45 52 |UDEN=".E.F.."VER|
00000230: 48 41 45 4C 54 4E 49 53 20 45 49 4E 28 4D 41 58 |HAELTNIS EIN(MAX|
00000240: 36 2C 33 29 22 00 56 0A 48 00 A1 41 31 3A 8B 41 |6,3)".V.H..A1:.A|
00000250: 31 B2 30 A7 37 32 00 5F 0A 49 00 99 41 31 2C 00 |1.0.72._.I..A1,.|
00000260: 70 0A 4A 00 A1 41 32 3A 8B 41 32 B2 30 A7 37 34 |p.J..A2:.A2.0.74|
00000270: 00 78 0A 4B 00 99 41 32 00 82 0A 50 00 99 3A 99 |.x.K..A2...P..:.|
00000280: 3A 99 00 A7 0A 5A 00 99 22 47 45 42 45 4E 20 53 |:....Z.."GEBEN S|
00000290: 49 45 20 42 49 54 54 45 20 44 41 53 20 46 52 45 |IE BITTE DAS FRE|
000002A0: 51 55 45 4E 5A 3D 22 00 BE 0A 64 00 99 22 56 45 |QUENZ="...d.."VE|
000002B0: 52 48 41 45 4C 54 4E 49 53 20 45 49 4E 22 00 D7 |RHAELTNIS EIN"..|
000002C0: 0A 69 00 85 22 46 31 3D 20 22 3B 46 31 3A 8B 46 |.i.."F1= ";F1:.F|
000002D0: 31 B2 30 A7 31 30 35 00 F0 0A 6B 00 85 22 46 32 |1.0.105...k.."F2|
000002E0: 3D 20 22 3B 46 32 3A 8B 46 32 B2 30 A7 31 30 37 |= ";F2:.F2.0.107|
000002F0: 00 FA 0A 6E 00 99 3A 99 3A 99 00 22 0B A8 00 85 |...n..:.:.."....|
00000300: 22 47 45 57 55 45 4E 53 43 48 54 45 20 50 48 41 |"GEWUENSCHTE PHA|
00000310: 53 45 4E 56 45 52 53 43 48 49 45 42 55 4E 47 22 |SENVERSCHIEBUNG"|
00000320: 3B 50 00 2C 0B AA 00 47 B2 2E 30 32 00 4E 0B B4 |;P.,...G..02.N..|
00000330: 00 21 47 52 41 50 48 49 43 53 35 3A 21 47 43 4C |.!GRAPHICS5:!GCL|
00000340: 45 41 52 3A 21 47 52 41 50 48 49 43 53 31 00 59 |EAR:!GRAPHICS1.Y|
00000350: 0B B9 00 21 4C 43 4F 4C 46 00 71 0B BE 00 21 4C |...!LCOLF.q...!L|
00000360: 49 4E 45 31 30 2C 31 30 30 A4 33 30 39 2C 31 30 |INE10,100.309,10|
00000370: 30 00 9D 0B C8 00 21 4C 49 4E 45 31 36 30 2C 32 |0.....!LINE160,2|
00000380: 35 A4 31 36 30 2C 31 37 34 3A 21 4C 49 4E 45 31 |5.160,174:!LINE1|
00000390: 35 39 2C 32 35 A4 31 35 39 2C 31 37 34 00 BD 0B |59,25.159,174...|
000003A0: D2 00 57 45 24 B2 22 46 31 20 3D 22 AA C4 28 B5 |..WE$."F1 ="..(.|
000003B0: 28 46 31 AC 31 30 30 29 AD 31 30 30 29 00 D1 0B |(F1.100).100)...|
000003C0: E6 00 21 54 45 58 54 57 45 24 2C 35 2C 31 30 2C |..!TEXTWE$,5,10,|
000003D0: 30 00 F1 0B E8 00 57 45 24 B2 22 46 32 20 3D 22 |0.....WE$."F2 ="|
000003E0: AA C4 28 B5 28 46 32 AC 31 30 30 29 AD 31 30 30 |..(.(F2.100).100|
000003F0: 29 00 06 0C EA 00 21 54 45 58 54 57 45 24 2C 38 |).....!TEXTWE$,8|
00000400: 33 2C 31 30 2C 30 00 25 0C F0 00 57 45 24 B2 22 |3,10,0.%...WE$."|
00000410: 50 48 41 53 45 4E 56 45 52 53 43 48 2E 20 3D 22 |PHASENVERSCH. ="|
00000420: AA C4 28 50 29 00 3B 0C FA 00 21 54 45 58 54 57 |..(P).;...!TEXTW|
00000430: 45 24 2C 31 36 38 2C 31 30 2C 30 00 4E 0C 04 01 |E$,168,10,0.N...|
00000440: 58 B2 41 31 AC BF 28 AB 50 29 3A 59 B2 30 00 56 |X.A1..(.P):Y.0.V|
00000450: 0C 18 01 51 B2 47 00 88 0C 22 01 57 45 24 B2 22 |...Q.G...".WE$."|
00000460: 50 52 4F 47 52 41 4D 4D 53 54 4F 50 20 44 55 52 |PROGRAMMSTOP DUR|
00000470: 43 48 20 44 52 55 45 43 4B 45 4E 20 45 49 4E 45 |CH DRUECKEN EINE|
00000480: 52 20 54 41 53 54 45 22 00 9D 0C 2C 01 21 54 45 |R TASTE"...,.!TE|
00000490: 58 54 57 45 24 2C 30 2C 31 39 39 2C 30 00 B8 0C |XTWE$,0,199,0...|
000004A0: 72 01 21 4D 4F 56 45 31 36 30 AA 32 35 AC 58 2C |r.!MOVE160.25.X,|
000004B0: 31 30 30 AB 32 35 AC 59 00 C7 0C E8 03 81 54 B2 |100.25.Y......T.|
000004C0: 51 A4 31 30 30 A9 47 00 DA 0C FC 03 58 B2 41 31 |Q.100.G.....X.A1|
000004D0: AC BF 28 46 31 AC 54 AB 50 29 00 EB 0C 06 04 59 |..(F1.T.P).....Y|
000004E0: B2 41 32 AC BF 28 46 32 AC 54 29 00 00 0D 0B 04 |.A2..(F2.T).....|
000004F0: A1 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 30 35 31 |.B$:.B$.."".1051|
00000500: 00 1B 0D 10 04 21 44 52 41 57 31 36 30 AA 32 35 |.....!DRAW160.25|
00000510: AC 58 2C 31 30 30 AB 32 35 AC 59 00 22 0D 1A 04 |.X,100.25.Y."...|
00000520: 82 54 00 3A 0D 1B 04 21 43 4C 45 41 52 30 2C 31 |.T.:...!CLEAR0,1|
00000530: 39 30 A4 33 31 39 2C 31 39 39 00 6C 0D 1F 04 57 |90.319,199.l...W|
00000540: 45 24 B2 22 57 55 45 4E 53 43 48 45 4E 20 53 49 |E$."WUENSCHEN SI|
00000550: 45 20 45 49 4E 45 20 57 45 49 54 45 52 45 20 42 |E EINE WEITERE B|
00000560: 45 52 45 43 48 4E 55 4E 47 20 3F 22 00 81 0D 24 |ERECHNUNG ?"...$|
00000570: 04 21 54 45 58 54 57 45 24 2C 30 2C 31 39 39 2C |.!TEXTWE$,0,199,|
00000580: 30 00 8A 0D 29 04 99 22 93 22 00 9E 0D 38 04 A1 |0...).."."...8..|
00000590: 42 24 3A 8B 42 24 B2 22 22 A7 31 30 38 30 00 AD |B$:.B$."".1080..|
000005A0: 0D 3D 04 21 47 52 41 50 48 49 43 53 30 00 C2 0D |.=.!GRAPHICS0...|
000005B0: 42 04 8B 42 24 B2 22 4A 22 A7 99 22 93 22 3A 89 |B..B$."J"..".":.|
000005C0: 31 30 00 D0 0D 4C 04 8B 42 24 B2 22 4E 22 A7 80 |10...L..B$."N"..|
000005D0: 00 D9 0D 51 04 99 22 93 22 00 15 0E 56 04 8B 42 |...Q.."."...V..B|
000005E0: 24 B3 B1 22 4E 22 AF 42 24 B3 B1 22 4A 22 A7 99 |$.."N".B$.."J"..|
000005F0: 22 47 45 42 45 4E 20 53 49 45 20 4E 55 52 20 4A |"GEBEN SIE NUR J|
00000600: 20 4F 44 45 52 20 4E 20 45 49 4E 21 22 3A 99 3A | ODER N EIN!":.:|
00000610: 89 31 30 38 30 00 00 00 FF FF 02 D0 |.1080....... |
.......".".............7.(.." LISSAOU
JSCHE FIGUREN!".X.-.." CCCCCCCCCCCCCC
CCCCCCC".B.2..:.:....3.."WELCHE FARBE WU
ENSCHEN SIE?". .4..:.:.:." .. .---- W"
...5..:." .. .---- R".N.6..:." .. .-
--- G"...7..:." .. .---- Y"...8..:."
.. .---- V":."."...<..FA$:.FA$."".60.P.
=..FA$.."W".FA$.."R".FA$.."G".FA$.."Y".F
A$.."V"..".":.67.J.>..FA$."W"..".":F.1:.
68...?..FA$."R"..".":F.2:.68...@..FA$."G
"..".":F.5:.68...A..FA$."Y"..".":F.7:.68
.S.B..FA$."V"..".":F.14:.68...C..:."GEBE
N SIE NUR W,R,G,Y,V EIN!":.:.51.&.D.."GE
BEN SIE BITTE DAS AMPLITUDEN=".E.F.."VER
HAELTNIS EIN(MAX6,3)".V.H..A1:.A1.0.72._
.I..A1,.P.J..A2:.A2.0.74.X.K..A2...P..:.
:....Z.."GEBEN SIE BITTE DAS FREQUENZ=".
..D.."VERHAELTNIS EIN".W.I.."F1= ";F1:.F
1.0.105...K.."F2= ";F2:.F2.0.107...N..:.
:.."...."GEWUENSCHTE PHASENVERSCHIEBUNG"
;P.,...G..02.N...!GRAPHICS5:!GCLEAR:!GRA
PHICS1.Y...!LCOLF.Q...!LINE10,100.309,10
0...H.!LINE160,25.160,174:!LINE159,25.15
9,174...R.WE$."F1 =".D(.(F1.100).100).Q.
..!TEXTWE$,5,10,0.....WE$."F2 =".D(.(F2.
100).100).....!TEXTWE$,83,10,0.%...WE$."
PHASENVERSCH. =".D(P).;...!TEXTWE$,168,1
0,0.N...X.A1..(.P):Y.0.V...Q.G...".WE$."
PROGRAMMSTOP DURCH DRUECKEN EINER TASTE"
...,.!TEXTWE$,0,199,0...R.!MOVE160.25.X,
100.25.Y.G....T.Q.100.G.Z...X.A1..(F1.T.
P).....Y.A2..(F2.T)......B$:.B$.."".1051
.....!DRAW160.25.X,100.25.Y."....T.:...!
CLEAR0,190.319,199.L...WE$."WUENSCHEN SI
E EINE WEITERE BERECHNUNG ?"...$.!TEXTWE
$,0,199,0...).."."...8..B$:.B$."".1080..
.=.!GRAPHICS0.B.B..B$."J"..".":.10.P.L..
B$."N"...Y.Q.."."...V..B$.."N".B$.."J"..
"GEBEN SIE NUR J ODER N EIN!":.:.1080...
...P
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL