00000000: 01 10 1C 10 0A 00 8F 20 33 44 2D 47 52 41 46 49 |....... 3D-GRAFI|
00000010: 4B 20 42 59 20 4D 50 2D 53 4F 46 54 00 2F 10 0B |K BY MP-SOFT./..|
00000020: 00 8F 20 3D 20 4D 49 52 4B 4F 20 50 45 50 41 00 |.. = MIRKO PEPA.|
00000030: 47 10 0C 00 8F 20 20 20 48 4F 4C 5A 4C 45 47 49 |G.... HOLZLEGI|
00000040: 53 54 52 2E 20 32 36 00 66 10 0D 00 8F 20 20 38 |STR. 26.f.... 8|
00000050: 34 30 38 20 57 49 4E 54 45 52 54 48 55 52 2F 53 |408 WINTERTHUR/S|
00000060: 43 48 57 45 49 5A 00 83 10 0E 00 8F 20 20 20 54 |CHWEIZ...... T|
00000070: 45 4C 2E 3A 43 48 3A 30 35 32 2F 32 35 27 37 36 |EL.:CH:052/25'76|
00000080: 27 34 34 00 8C 10 14 00 D7 39 31 30 00 BB 10 1E |'44......910....|
00000090: 00 8B C2 28 32 30 38 29 B3 B1 36 39 A7 97 32 30 |...(208)..69..20|
000000A0: 38 2C 36 39 3A 97 32 30 39 2C 31 30 3A 97 32 31 |8,69:.209,10:.21|
000000B0: 30 2C 33 30 3A 9E 35 30 35 35 39 00 E4 10 28 00 |0,30:.50559...(.|
000000C0: 41 4C B2 C2 28 32 30 39 29 3A 41 50 B2 C2 28 32 |AL..(209):AP..(2|
000000D0: 31 30 29 3A E7 30 2C 32 3A E7 31 2C 31 3A E7 34 |10):.0,2:.1,1:.4|
000000E0: 2C 37 2C 33 00 22 11 32 00 99 22 13 13 93 22 3A |,7,3.".2.."...":|
000000F0: E0 2C 30 2C 30 2C 22 12 20 20 20 20 20 20 20 33 |.,0,0,". 3|
00000100: 44 2D 46 55 4E 4B 54 49 4F 4E 45 4E 20 42 59 20 |D-FUNKTIONEN BY |
00000110: 4D 50 2D 53 4F 46 54 20 20 20 20 20 20 20 20 20 |MP-SOFT |
00000120: 92 22 00 43 11 3C 00 E0 2C 32 2C 33 2C 22 31 29 |.".C.<..,2,3,"1)|
00000130: 20 46 55 4E 4B 54 49 4F 4E 20 5A 45 49 43 48 4E | FUNKTION ZEICHN|
00000140: 45 4E 22 00 63 11 46 00 E0 2C 32 2C 35 2C 22 32 |EN".c.F..,2,5,"2|
00000150: 29 20 46 55 4E 4B 54 49 4F 4E 20 41 45 4E 44 45 |) FUNKTION AENDE|
00000160: 52 4E 22 00 84 11 4B 00 E0 2C 32 2C 37 2C 22 33 |RN"...K..,2,7,"3|
00000170: 29 20 46 55 4E 4B 54 49 4F 4E 45 4E 20 5A 45 49 |) FUNKTIONEN ZEI|
00000180: 47 45 4E 22 00 A9 11 50 00 E0 2C 32 2C 39 2C 22 |GEN"...P..,2,9,"|
00000190: 34 29 20 41 4E 5A 41 48 4C 20 4C 49 4E 49 45 4E |4) ANZAHL LINIEN|
000001A0: 20 41 45 4E 44 45 52 4E 22 00 CF 11 5A 00 E0 2C | AENDERN"...Z..,|
000001B0: 32 2C 31 31 2C 22 35 29 20 41 4E 5A 41 48 4C 20 |2,11,"5) ANZAHL |
000001C0: 50 55 4E 4B 54 45 20 41 45 4E 44 45 52 4E 22 00 |PUNKTE AENDERN".|
000001D0: ED 11 64 00 E0 2C 32 2C 31 33 2C 22 36 29 20 47 |..d..,2,13,"6) G|
000001E0: 52 41 46 49 4B 20 5A 45 49 47 45 4E 22 00 0D 12 |RAFIK ZEIGEN"...|
000001F0: 6E 00 E0 2C 32 2C 31 35 2C 22 37 29 20 47 52 41 |n..,2,15,"7) GRA|
00000200: 46 49 4B 20 4C 4F 45 53 43 48 45 4E 22 00 1A 12 |FIK LOESCHEN"...|
00000210: 78 00 97 32 30 32 32 2C 31 36 00 35 12 82 00 A1 |x..2022,16.5....|
00000220: 47 24 3A 8B 47 24 B1 22 37 22 B0 47 24 B3 22 31 |G$:.G$."7".G$."1|
00000230: 22 A7 31 33 30 00 5C 12 8C 00 91 C5 28 47 24 29 |".130.\.....(G$)|
00000240: 89 32 34 30 2C 31 37 30 2C 31 35 35 2C 32 31 30 |.240,170,155,210|
00000250: 2C 32 32 30 2C 31 35 30 2C 31 36 30 00 84 12 96 |,220,150,160....|
00000260: 00 DE 31 2C 30 3A E0 2C 33 32 2C 32 33 2C 22 54 |..1,0:.,32,23,"T|
00000270: 41 53 54 45 20 21 22 3A A1 F9 47 24 3A DE 30 3A |ASTE !":..G$:.0:|
00000280: 89 31 33 30 00 AC 12 9B 00 99 22 13 13 93 22 3A |.130......"...":|
00000290: 9B 35 33 30 AB 36 33 30 3A 99 22 54 41 53 54 45 |.530.630:."TASTE|
000002A0: 20 21 22 3A A1 F9 41 24 3A 89 35 30 00 BC 12 A0 | !":..A$:.50....|
000002B0: 00 9E 35 30 35 35 39 3A 89 31 33 30 00 E5 12 AA |..50559:.130....|
000002C0: 00 8D 38 31 30 3A 97 32 30 39 2C 41 4C 3A 97 32 |..810:.209,AL:.2|
000002D0: 31 30 2C 41 50 3A 99 22 13 13 93 22 3A 9B 35 33 |10,AP:."...":.53|
000002E0: 30 AB 36 33 30 00 10 13 B4 00 99 C9 28 C4 28 35 |0.630.......(.(5|
000002F0: 31 30 AA C5 28 46 24 29 AC 32 30 29 2C 33 29 3A |10..(F$).20),3):|
00000300: 99 22 52 55 4E 22 3A 97 32 33 39 2C 31 30 3A 8C |."RUN":.239,10:.|
00000310: 00 31 13 BE 00 81 53 43 B2 31 33 31 39 A4 31 33 |.1....SC.1319.13|
00000320: 32 38 3A 87 50 4F 3A 97 53 43 2C 50 4F 3A 82 3A |28:.PO:.SC,PO:.:|
00000330: 80 00 58 13 C8 00 83 31 34 35 2C 31 34 35 2C 31 |..X....145,145,1|
00000340: 34 35 2C 31 34 35 2C 32 39 2C 32 39 2C 32 39 2C |45,145,29,29,29,|
00000350: 32 39 2C 39 30 2C 36 31 00 9B 13 D2 00 E0 2C 32 |29,90,61......,2|
00000360: 2C 31 37 2C 22 42 49 53 48 45 52 49 47 45 20 41 |,17,"BISHERIGE A|
00000370: 4E 5A 41 48 4C 20 4C 49 4E 49 45 4E 3A 22 3A 99 |NZAHL LINIEN:":.|
00000380: 41 4C 3A 85 22 20 20 4E 45 55 45 20 41 4E 5A 41 |AL:." NEUE ANZA|
00000390: 48 4C 20 22 3B 41 4C 3A 89 35 30 00 DE 13 DC 00 |HL ";AL:.50.....|
000003A0: E0 2C 32 2C 31 37 2C 22 42 49 53 48 45 52 49 47 |.,2,17,"BISHERIG|
000003B0: 45 20 41 4E 5A 41 48 4C 20 50 55 4E 4B 54 45 3A |E ANZAHL PUNKTE:|
000003C0: 22 3A 99 41 50 3A 85 22 20 20 4E 45 55 45 20 41 |":.AP:." NEUE A|
000003D0: 4E 5A 41 48 4C 20 22 3B 41 50 3A 89 35 30 00 F8 |NZAHL ";AP:.50..|
000003E0: 13 E6 00 8F 20 48 41 55 50 54 5A 45 49 43 48 45 |.... HAUPTZEICHE|
000003F0: 4E 52 4F 55 54 49 4E 45 00 01 14 F0 00 8D 38 31 |NROUTINE......81|
00000400: 30 00 18 14 FA 00 DE 31 2C 30 3A E7 31 2C 31 2C |0......1,0:.1,1,|
00000410: 37 3A E7 30 2C 32 2C 37 00 52 14 04 01 E5 31 2C |7:.0,2,7.R....1,|
00000420: 31 30 39 2C 31 38 30 A4 33 32 30 2C 31 38 30 3A |109,180.320,180:|
00000430: E5 31 2C 31 30 39 2C 30 A4 31 30 39 2C 31 38 30 |.1,109,0.109,180|
00000440: 3A E5 31 2C 31 30 39 2C 31 38 30 A4 38 34 2C 32 |:.1,109,180.84,2|
00000450: 30 34 00 6C 14 0E 01 58 B2 30 3A 59 B2 30 3A 8D |04.l...X.0:Y.0:.|
00000460: 35 32 30 3A E5 31 2C 58 48 2C 59 48 00 7E 14 18 |520:.1,XH,YH.~..|
00000470: 01 81 58 B2 30 A4 31 30 A9 31 30 AD 41 4C 00 94 |..X.0.10.10.AL..|
00000480: 14 22 01 59 B2 30 3A 8D 35 32 30 3A E5 31 2C 58 |.".Y.0:.520:.1,X|
00000490: 48 2C 59 48 00 A6 14 2C 01 81 59 B2 30 A4 31 30 |H,YH...,..Y.0.10|
000004A0: A9 31 30 AD 41 50 00 B7 14 36 01 8D 35 32 30 3A |.10.AP...6..520:|
000004B0: E5 A4 58 48 2C 59 48 00 BF 14 40 01 82 3A 82 00 |..XH,YH...@..:..|
000004C0: D9 14 54 01 58 B2 30 3A 59 B2 30 3A 8D 35 32 30 |..T.X.0:Y.0:.520|
000004D0: 3A E5 31 2C 58 48 2C 59 48 00 EB 14 5E 01 81 59 |:.1,XH,YH...^..Y|
000004E0: B2 30 A4 31 30 A9 31 30 AD 41 4C 00 01 15 68 01 |.0.10.10.AL...h.|
000004F0: 58 B2 30 3A 8D 35 32 30 3A E5 31 2C 58 48 2C 59 |X.0:.520:.1,XH,Y|
00000500: 48 00 13 15 72 01 81 58 B2 30 A4 31 30 A9 31 30 |H...r..X.0.10.10|
00000510: AD 41 50 00 24 15 7C 01 8D 35 32 30 3A E5 A4 58 |.AP.$.|..520:..X|
00000520: 48 2C 59 48 00 2C 15 86 01 82 3A 82 00 53 15 90 |H,YH.,....:..S..|
00000530: 01 E0 2C 33 32 2C 32 33 2C 22 54 41 53 54 45 20 |..,32,23,"TASTE |
00000540: 21 22 3A A1 F9 47 24 3A 99 22 93 22 3A DE 30 3A |!":..G$:.".":.0:|
00000550: 89 35 30 00 7B 15 F4 01 8F 20 2A 2A 2A 2A 2A 2A |.50.{.... ******|
00000560: 2A 2A 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D |** UNTERPROGRAMM|
00000570: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 94 15 FE 01 |E *********.....|
00000580: 8F 20 42 45 52 45 43 48 4E 55 4E 47 53 52 4F 55 |. BERECHNUNGSROU|
00000590: 54 49 4E 45 00 B7 15 08 02 91 C5 28 46 24 29 89 |TINE.......(F$).|
000005A0: 35 33 30 2C 35 35 30 2C 35 37 30 2C 35 39 30 2C |530,550,570,590,|
000005B0: 36 31 30 2C 36 33 30 00 DB 15 12 02 5A B2 35 AA |610,630.....Z.5.|
000005C0: 35 AC 28 BF 28 2E 33 31 34 AC 58 29 AC BF 28 2E |5.(.(.314.X)..(.|
000005D0: 36 32 38 AC 59 AD 32 29 29 AE 39 00 E4 15 1C 02 |628.Y.2)).9.....|
000005E0: 89 36 34 30 00 09 16 26 02 5A B2 35 AA 35 AC 28 |.640...&.Z.5.5.(|
000005F0: BF 28 2E 33 31 34 AC 58 29 AC BF 28 2E 36 32 38 |.(.314.X)..(.628|
00000600: AC 59 AD 32 29 29 AE 31 31 00 12 16 30 02 89 36 |.Y.2)).11...0..6|
00000610: 34 30 00 34 16 3A 02 5A B2 35 AA 35 AC 28 BE 28 |40.4.:.Z.5.5.(.(|
00000620: 2E 33 31 34 AC 58 29 AC BF 28 2E 33 31 34 AC 59 |.314.X)..(.314.Y|
00000630: 29 29 AE 39 00 3D 16 44 02 89 36 34 30 00 5F 16 |)).9.=.D..640._.|
00000640: 4E 02 5A B2 36 AA 32 AC 28 BE 28 2E 36 32 38 AC |N.Z.6.2.(.(.628.|
00000650: 58 29 AC BE 28 2E 33 31 34 AC 59 29 29 AE 35 00 |X)..(.314.Y)).5.|
00000660: 68 16 58 02 89 36 34 30 00 8A 16 62 02 5A B2 35 |h.X..640...b.Z.5|
00000670: AA 35 AC 28 BF 28 2E 39 35 32 AC 58 29 AC BE 28 |.5.(.(.952.X)..(|
00000680: 2E 33 31 34 AC 59 29 29 AE 39 00 93 16 6C 02 89 |.314.Y)).9...l..|
00000690: 36 34 30 00 BD 16 80 02 58 48 B2 B5 28 31 2E 33 |640.....XH..(1.3|
000006A0: AC 28 31 35 AC 28 59 AB 58 AC 28 32 30 AB 59 29 |.(15.(Y.X.(20.Y)|
000006B0: AD 28 35 30 AB 58 29 29 AA 38 34 29 29 00 EA 16 |.(50.X)).84))...|
000006C0: 8A 02 59 48 B2 B5 28 2E 39 AC 28 28 AB 32 31 29 |..YH..(.9.((.21)|
000006D0: AC 28 5A AB 58 AC 28 32 30 AB 5A 29 AD 28 35 30 |.(Z.X.(20.Z).(50|
000006E0: AB 58 29 29 AA 32 30 30 29 29 00 F0 16 94 02 8E |.X)).200))......|
000006F0: 00 05 17 BC 02 8F 20 5A 45 49 43 48 45 4E 52 4F |...... ZEICHENRO|
00000700: 55 54 49 4E 45 00 13 17 C6 02 E5 A4 58 48 2C 59 |UTINE.......XH,Y|
00000710: 48 3A 8E 00 1F 17 20 03 8F 20 49 4E 50 55 54 00 |H:.... .. INPUT.|
00000720: 5D 17 2A 03 E0 2C 32 2C 31 37 2C 22 57 45 4C 43 |].*..,2,17,"WELC|
00000730: 48 45 20 46 55 4E 4B 54 49 4F 4E 20 28 31 2D 35 |HE FUNKTION (1-5|
00000740: 29 22 3A A1 F9 46 24 3A 8B 46 24 B3 22 31 22 B0 |)":..F$:.F$."1".|
00000750: 46 24 B1 22 35 22 A7 38 31 30 3A D5 8E 00 68 17 |F$."5".810:...h.|
00000760: 84 03 8F 20 54 52 41 50 00 81 17 8E 03 8B 45 52 |... TRAP......ER|
00000770: B2 33 30 A7 99 22 13 13 93 22 3A DE 30 3A D6 35 |.30.."...":.0:.5|
00000780: 30 00 00 00 |0... |
....... 3D-GRAFIK BY MP-SOFT./.... = MIR
KO PEPA.G.... HOLZLEGISTR. 26.F.... 8
408 WINTERTHUR/SCHWEIZ...... TEL.:CH:0
52/25'76'44.....W910......B(208)..69..20
8,69:.209,10:.210,30:.50559...(.AL.B(209
):AP.B(210):.0,2:.1,1:.4,7,3.".2.."...":
.,0,0,". 3D-FUNKTIONEN BY MP-SOFT
.".C.<..,2,3,"1) FUNKTION ZEICHN
EN".C.F..,2,5,"2) FUNKTION AENDERN"...K.
.,2,7,"3) FUNKTIONEN ZEIGEN"...P..,2,9,"
4) ANZAHL LINIEN AENDERN".O.Z..,2,11,"5)
ANZAHL PUNKTE AENDERN"...D..,2,13,"6) G
RAFIK ZEIGEN"...N..,2,15,"7) GRAFIK LOES
CHEN"...X..2022,16.5....G$:.G$."7".G$."1
".130.\....E(G$).240,170,155,210,220,150
,160......1,0:.,32,23,"TASTE !":..G$:.0:
.130......"...":.530.630:."TASTE !":..A$
:.50... ..50559:.130......810:.209,AL:.2
10,AP:."...":.530.630......I(D(510.E(F$)
.20),3):."RUN":.239,10:..1....SC.1319.13
28:.PO:.SC,PO:.:..X.H..145,145,145,145,2
9,29,29,29,90,61...R..,2,17,"BISHERIGE A
NZAHL LINIEN:":.AL:." NEUE ANZAHL ";AL:
.50......,2,17,"BISHERIGE ANZAHL PUNKTE:
":.AP:." NEUE ANZAHL ";AP:.50...... HAU
PTZEICHENROUTINE......810......1,0:.1,1,
7:.0,2,7.R....1,109,180.320,180:.1,109,0
.109,180:.1,109,180.84,204.L...X.0:Y.0:.
520:.1,XH,YH.~....X.0.10.10.AL...".Y.0:.
520:.1,XH,YH...,..Y.0.10.10.AP...6..520:
..XH,YH...@..:..Y.T.X.0:Y.0:.520:.1,XH,Y
H...^..Y.0.10.10.AL...H.X.0:.520:.1,XH,Y
H...R..X.0.10.10.AP.$.|..520:..XH,YH.,..
..:..S....,32,23,"TASTE !":..G$:.".":.0:
.50.{.... ******** UNTERPROGRAMME ******
***...... BERECHNUNGSROUTINE......E(F$).
530,550,570,590,610,630.....Z.5.5.(.(.31
4.X)..(.628.Y.2)).9......640...&.Z.5.5.(
.(.314.X)..(.628.Y.2)).11...0..640.4.:.Z
.5.5.(.(.314.X)..(.314.Y)).9.=.D..640._.
N.Z.6.2.(.(.628.X)..(.314.Y)).5.H.X..640
...B.Z.5.5.(.(.952.X)..(.314.Y)).9...L..
640.....XH..(1.3.(15.(Y.X.(20.Y).(50.X))
.84)).....YH..(.9.((.21).(Z.X.(20.Z).(50
.X)).200))............ ZEICHENROUTINE...
F...XH,YH:.... .. INPUT.].*..,2,17,"WELC
HE FUNKTION (1-5)":..F$:.F$."1".F$."5".8
10:U..H.... TRAP......ER.30.."...":.0:V5
0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL