> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 02 00 8F 2A |*********.Q....*|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 79 08 03 00 8F 2A 20 20 20 20 20 56 45 52 |*.y....* VER|
00000060: 53 43 48 4C 55 4E 47 45 4E 45 20 53 50 49 52 41 |SCHLUNGENE SPIRA|
00000070: 4C 45 4E 20 20 20 20 20 2A 00 A1 08 04 00 8F 2A |LEN *......*|
00000080: 20 20 20 56 45 52 53 49 4F 4E 20 46 55 45 52 20 | VERSION FUER |
00000090: 50 4C 4F 54 54 45 52 20 31 35 32 30 20 20 20 20 |PLOTTER 1520 |
000000A0: 2A 00 C9 08 05 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 06 00 8F 2A | *......*|
000000D0: 20 20 48 45 49 4D 4F 20 50 4F 4E 4E 41 54 48 20 | HEIMO PONNATH |
000000E0: 20 48 41 4D 42 55 52 47 20 20 31 39 38 35 20 20 | HAMBURG 1985 |
000000F0: 2A 00 19 09 07 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 08 00 8F 2A | *.A....*|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 00 69 09 09 00 8F 20 2A 2A 2A 2A 2A 20 45 49 |*.i.... ***** EI|
00000150: 4E 47 41 42 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |NGABEN *********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 09 0A 00 97 35 |*********......5|
00000170: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00000180: 97 36 34 36 2C 35 3A 99 C7 28 31 34 37 29 00 C0 |.646,5:..(147)..|
00000190: 09 0F 00 85 22 41 4E 5A 41 48 4C 20 53 50 49 52 |...."ANZAHL SPIR|
000001A0: 41 4C 45 4E 22 3B 4E 3A 85 22 54 45 58 54 53 54 |ALEN";N:."TEXTST|
000001B0: 41 52 54 20 58 54 2C 59 54 22 3B 58 54 2C 59 54 |ART XT,YT";XT,YT|
000001C0: 00 DF 09 14 00 85 22 52 41 44 49 55 53 2C 53 54 |......"RADIUS,ST|
000001D0: 41 52 54 57 49 4E 4B 45 4C 22 3B 52 2C 41 31 00 |ARTWINKEL";R,A1.|
000001E0: F3 09 16 00 8F 2A 2A 2A 2A 20 49 4E 49 54 20 2A |.....**** INIT *|
000001F0: 2A 2A 2A 00 0D 0A 17 00 9F 31 2C 36 2C 31 3A 9F |***......1,6,1:.|
00000200: 32 2C 36 2C 32 3A 98 32 2C 30 3A A0 32 00 22 0A |2,6,2:.2,0:.2.".|
00000210: 19 00 8F 2A 2A 2A 2A 20 53 54 41 52 54 20 2A 2A |...**** START **|
00000220: 2A 2A 00 3B 0A 1A 00 98 31 2C 22 4D 22 2C 30 2C |**.;....1,"M",0,|
00000230: AB 32 30 30 3A 98 31 2C 22 49 22 00 50 0A 1E 00 |.200:.1,"I".P...|
00000240: 8F 2A 2A 2A 2A 20 4D 49 54 54 45 20 2A 2A 2A 2A |.**** MITTE ****|
00000250: 00 6D 0A 20 00 98 31 2C 22 52 22 2C 32 34 30 2C |.m. ..1,"R",240,|
00000260: 30 3A 98 31 2C 22 49 22 3A 8D 31 30 30 00 85 0A |0:.1,"I":.100...|
00000270: 21 00 8F 20 2A 2A 2A 2A 20 4B 52 45 49 53 20 2A |!.. **** KREIS *|
00000280: 2A 2A 2A 2A 2A 00 AD 0A 23 00 4D B2 35 30 3A 44 |*****...#.M.50:D|
00000290: B2 33 36 30 AC FF AD 28 4D AC 31 38 30 29 3A 86 |.360...(M.180):.|
000002A0: 4B 28 4D 29 3A 4B 28 30 29 B2 32 AC FF 00 E5 0A |K(M):K(0).2.....|
000002B0: 24 00 81 49 B2 31 A4 4D 3A 4B 28 49 29 B2 4B 28 |$..I.1.M:K(I).K(|
000002C0: 49 AB 31 29 AA 44 3A 98 31 2C 22 52 22 2C 52 AC |I.1).D:.1,"R",R.|
000002D0: BE 28 4B 28 49 AB 31 29 29 2C 52 AC BF 28 4B 28 |.(K(I.1)),R..(K(|
000002E0: 49 AB 31 29 29 00 0E 0B 25 00 98 31 2C 22 4A 22 |I.1))...%..1,"J"|
000002F0: 2C 52 AC BE 28 4B 28 49 29 29 2C 52 AC BF 28 4B |,R..(K(I)),R..(K|
00000300: 28 49 29 29 3A 82 49 3A 98 31 2C 22 48 22 00 2E |(I)):.I:.1,"H"..|
00000310: 0B 28 00 41 24 B2 22 56 45 52 53 43 48 4C 55 4E |.(.A$."VERSCHLUN|
00000320: 47 45 4E 45 20 53 50 49 52 41 4C 45 4E 22 00 42 |GENE SPIRALEN".B|
00000330: 0B 2A 00 8F 2A 2A 2A 2A 20 54 45 58 54 20 2A 2A |.*..**** TEXT **|
00000340: 2A 2A 00 61 0B 2B 00 9F 34 2C 36 3A 98 31 2C 22 |**.a.+..4,6:.1,"|
00000350: 52 22 2C 58 54 2C 59 54 3A 98 34 2C 41 24 3A A0 |R",XT,YT:.4,A$:.|
00000360: 34 00 7B 0B 2D 00 98 31 2C 22 4D 22 2C 32 34 30 |4.{.-..1,"M",240|
00000370: 2C AB 59 54 3A 98 31 2C 22 49 22 00 8F 0B 32 00 |,.YT:.1,"I"...2.|
00000380: 8F 2A 2A 2A 2A 20 53 48 4F 57 20 2A 2A 2A 2A 00 |.**** SHOW ****.|
00000390: A8 0B 34 00 98 31 2C 22 52 22 2C 30 2C AB 32 30 |..4..1,"R",0,.20|
000003A0: 30 3A 98 31 2C 22 49 22 00 BA 0B 37 00 97 31 39 |0:.1,"I"...7..19|
000003B0: 38 2C 30 3A 92 31 39 38 2C 31 00 D0 0B 3C 00 8F |8,0:.198,1...<..|
000003C0: 2A 2A 2A 2A 20 4E 4F 52 4D 41 4C 20 2A 2A 2A 2A |**** NORMAL ****|
000003D0: 00 DE 0B 3E 00 98 31 2C 22 48 22 3A A0 31 00 FF |...>..1,"H":.1..|
000003E0: 0B 41 00 8F 2A 2A 2A 2A 20 57 45 52 54 45 20 41 |.A..**** WERTE A|
000003F0: 55 53 44 52 55 43 4B 45 4E 20 2A 2A 2A 2A 2A 00 |USDRUCKEN *****.|
00000400: 39 0C 46 00 9F 33 2C 36 2C 33 3A 98 33 2C 30 3A |9.F..3,6,3:.3,0:|
00000410: 9F 34 2C 36 3A 98 34 3A 98 34 2C 22 20 4E 22 2C |.4,6:.4:.4," N",|
00000420: 22 20 20 58 54 22 2C 22 20 20 59 54 22 2C 22 20 |" XT"," YT"," |
00000430: 20 52 22 2C 22 20 20 57 22 00 5B 0C 4B 00 98 34 | R"," W".[.K..4|
00000440: 2C 4E 2C 58 54 2C 59 54 2C 52 2C 41 31 3A 98 33 |,N,XT,YT,R,A1:.3|
00000450: 2C 31 3A 98 34 3A A0 34 3A A0 33 00 71 0C 50 00 |,1:.4:.4:.3.q.P.|
00000460: 8F 2A 2A 2A 2A 20 47 52 45 53 45 54 20 2A 2A 2A |.**** GRESET ***|
00000470: 2A 00 82 0C 55 00 9F 37 2C 36 2C 37 3A 98 37 3A |*...U..7,6,7:.7:|
00000480: A0 37 00 88 0C 5A 00 80 00 AF 0C 64 00 8F 2A 2A |.7...Z.....d..**|
00000490: 2A 2A 2A 2A 20 55 4E 54 45 52 50 52 4F 47 52 41 |**** UNTERPROGRA|
000004A0: 4D 4D 20 5A 45 49 43 48 4E 45 4E 20 2A 2A 2A 00 |MM ZEICHNEN ***.|
000004B0: D0 0C 66 00 4E 4E B2 4E AC 31 30 30 3A 52 41 B2 |..f.NN.N.100:RA.|
000004C0: 52 AD 4E 4E 3A 86 54 28 4E 4E 29 3A 41 B2 41 31 |R.NN:.T(NN):A.A1|
000004D0: 00 E5 0C 69 00 81 4A B2 31 A4 4E 3A 41 B2 41 AA |...i..J.1.N:A.A.|
000004E0: 32 AC FF AD 4E 00 FF 0C 6E 00 54 B2 41 3A 54 48 |2...N...n.T.A:TH|
000004F0: B2 32 AC FF AD 31 30 30 3A 54 28 30 29 B2 54 00 |.2...100:T(0).T.|
00000500: 22 0D 73 00 81 49 B2 31 A4 4E 4E 3A 54 28 49 29 |".s..I.1.NN:T(I)|
00000510: B2 54 28 49 AB 31 29 AA 54 48 3A 52 52 B2 52 41 |.T(I.1).TH:RR.RA|
00000520: AC 49 00 51 0D 78 00 98 31 2C 22 52 22 2C 28 52 |.I.Q.x..1,"R",(R|
00000530: 52 AB 52 41 29 AC BE 28 54 28 49 AB 31 29 29 2C |R.RA)..(T(I.1)),|
00000540: 28 52 52 AB 52 41 29 AC BF 28 54 28 49 AB 31 29 |(RR.RA)..(T(I.1)|
00000550: 29 00 72 0D 7A 00 98 31 2C 22 4A 22 2C 52 52 AC |).r.z..1,"J",RR.|
00000560: BE 28 54 28 49 29 29 2C 52 52 AC BF 28 54 28 49 |.(T(I)),RR..(T(I|
00000570: 29 29 00 79 0D 7D 00 82 49 00 80 0D 82 00 82 4A |)).y.}..I......J|
00000580: 00 86 0D 87 00 8E 00 00 00 |......... |
..)....*********************************
*.Q....*
*.Y....* VERSCHLUNGENE SPIRALEN
*......* VERSION FUER PLOTTER 1520
*.I....*
*......* HEIMO PONNATH HAMBURG 1985
*......*
*.A....*********************************
*.I.... ***** EINGABEN *****************
*......53280,0:.53281,0:.646,5:.G(147)..
...."ANZAHL SPIRALEN";N:."TEXTSTART XT,Y
T";XT,YT......"RADIUS,STARTWINKEL";R,A1.
.....**** INIT ****......1,6,1:.2,6,2:.2
,0: 2."....**** START ****.;....1,"M",0,
.200:.1,"I".P....**** MITTE ****.M. ..1,
"R",240,0:.1,"I":.100...!.. **** KREIS *
*****...#.M.50:D.360...(M.180):.K(M):K(0
).2.....$..I.1.M:K(I).K(I.1).D:.1,"R",R.
.(K(I.1)),R..(K(I.1))...%..1,"J",R..(K(I
)),R..(K(I)):.I:.1,"H"...(.A$."VERSCHLUN
GENE SPIRALEN".B.*..**** TEXT ****.A.+..
4,6:.1,"R",XT,YT:.4,A$: 4.{.-..1,"M",240
,.YT:.1,"I"...2..**** SHOW ****...4..1,"
R",0,.200:.1,"I"...7..198,0:.198,1.P.<..
**** NORMAL ****...>..1,"H": 1...A..****
WERTE AUSDRUCKEN *****.9.F..3,6,3:.3,0:
.4,6:.4:.4," N"," XT"," YT"," R"," W
".[.K..4,N,XT,YT,R,A1:.3,1:.4: 4: 3.Q.P.
.**** GRESET ****...U..7,6,7:.7: 7...Z..
...D..****** UNTERPROGRAMM ZEICHNEN ***.
P.F.NN.N.100:RA.R.NN:.T(NN):A.A1...I..J.
1.N:A.A.2...N...N.T.A:TH.2...100:T(0).T.
".S..I.1.NN:T(I).T(I.1).TH:RR.RA.I.Q.X..
1,"R",(RR.RA)..(T(I.1)),(RR.RA)..(T(I.1)
).R.Z..1,"J",RR..(T(I)),RR..(T(I)).Y.}..
I......J.........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL