3D-PROGRAMM
FILE INFORMATION
FILENAME(S): 3D-PROGRAMM
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-02 23:23:03
APPEARS ON: 1 disk(s)
FILE HASH
5a0c472bf282835f0c071cc31b3c31cbd5fcfaaf10d8c1b3130b0cf12fb1a3cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DRAGAN PROG | 3D-PROGRAMM | PRG | swasti, dinkel | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 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 20 |*********.Q.... | 00000030: 2A 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 20 2A 20 20 20 33 44 2D 47 |*.y.... * 3D-G| 00000060: 52 41 46 49 4B 20 4D 49 54 54 45 4C 53 20 48 49 |RAFIK MITTELS HI| 00000070: 52 45 53 2D 33 20 20 20 2A 00 A1 08 04 00 8F 20 |RES-3 *...... | 00000080: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 2A 00 C9 08 05 00 8F 20 2A 20 20 48 45 49 4D 4F |*...... * HEIMO| 000000B0: 20 50 4F 4E 4E 41 54 48 20 20 48 41 4D 42 55 52 | PONNATH HAMBUR| 000000C0: 47 20 31 39 38 35 20 20 2A 00 F1 08 06 00 8F 20 |G 1985 *...... | 000000D0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 2A 00 19 09 07 00 8F 20 2A 20 48 49 52 45 53 2D |*...... * HIRES-| 00000100: 33 20 4D 55 53 53 20 49 4D 20 53 50 45 49 43 48 |3 MUSS IM SPEICH| 00000110: 45 52 20 53 45 49 4E 20 2A 00 41 09 08 00 8F 20 |ER SEIN *.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 47 09 09 00 8F 00 6D 09 0A 00 8F 20 2B 2B |*.G.....m.... ++| 00000150: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 | INITIALISIEREN | 00000160: 44 45 52 20 47 52 41 46 49 4B 20 2B 2B 00 73 09 |DER GRAFIK ++.s.| 00000170: 0F 00 8F 00 92 09 14 00 97 35 32 2C 31 31 32 3A |.........52,112:| 00000180: 97 35 36 2C 31 31 32 3A 9E 33 37 34 39 38 3A 89 |.56,112:.37498:.| 00000190: 36 30 00 98 09 19 00 8F 00 BE 09 1E 00 8F 20 2B |60............ +| 000001A0: 2B 20 55 50 20 20 43 55 52 53 4F 52 20 53 45 54 |+ UP CURSOR SET| 000001B0: 5A 45 4E 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 C4 |ZEN ++++++++++..| 000001C0: 09 23 00 8F 00 E1 09 28 00 97 32 31 31 2C 53 50 |.#.....(..211,SP| 000001D0: 3A 97 32 31 34 2C 5A 4C 3A 9E 35 38 36 34 30 3A |:.214,ZL:.58640:| 000001E0: 8E 00 E7 09 2D 00 8F 00 0E 0A 32 00 8F 20 2B 2B |....-.....2.. ++| 000001F0: 2B 20 45 49 4E 47 41 42 45 20 44 45 52 20 33 44 |+ EINGABE DER 3D| 00000200: 2D 46 55 4E 4B 54 49 4F 4E 20 2B 2B 2B 2B 00 14 |-FUNKTION ++++..| 00000210: 0A 37 00 8F 00 3D 0A 3C 00 99 C7 28 31 34 37 29 |.7...=.<...(147)| 00000220: 3A 9E 33 34 36 34 37 3A 97 36 34 36 2C 31 34 3A |:.34647:.646,14:| 00000230: 5A 4C B2 35 3A 53 50 B2 35 3A 8D 34 30 00 5A 0A |ZL.5:SP.5:.40.Z.| 00000240: 41 00 99 22 46 55 4E 4B 54 49 4F 4E 20 49 4D 20 |A.."FUNKTION IM | 00000250: 50 52 4F 47 52 41 4D 4D 3A 22 00 6B 0A 46 00 4B |PROGRAMM:".k.F.K| 00000260: B2 31 3A 8D 31 38 30 3A 4B B2 30 00 7E 0A 4B 00 |.1:.180:K.0.~.K.| 00000270: 99 3A 99 A3 33 29 22 59 3D 22 46 24 3A 99 00 BC |.:..3)"Y="F$:...| 00000280: 0A 50 00 99 A3 35 29 C7 28 31 38 29 22 41 22 C7 |.P...5).(18)"A".| 00000290: 28 31 34 36 29 22 4C 54 45 20 4F 44 45 52 20 22 |(146)"LTE ODER "| 000002A0: C7 28 31 38 29 22 4E 22 C7 28 31 34 36 29 22 45 |.(18)"N".(146)"E| 000002B0: 55 45 20 46 55 4E 4B 54 49 4F 4E 3F 00 D8 0A 55 |UE FUNKTION?...U| 000002C0: 00 A1 41 24 3A 8B 41 24 B3 B1 22 41 22 AF 41 24 |..A$:.A$.."A".A$| 000002D0: B3 B1 22 4E 22 A7 38 35 00 E8 0A 5A 00 8B 41 24 |.."N".85...Z..A$| 000002E0: B2 22 41 22 A7 31 34 30 00 13 0B 5F 00 99 C7 28 |."A".140..._...(| 000002F0: 31 34 37 29 3A 53 50 B2 33 3A 5A 4C B2 31 32 3A |147):SP.3:ZL.12:| 00000300: 8D 34 30 3A 85 22 59 3D 22 3B 46 24 3A 97 36 34 |.40:."Y=";F$:.64| 00000310: 36 2C 36 00 3D 0B 64 00 99 C7 28 31 34 37 29 C7 |6,6.=.d...(147).| 00000320: 28 31 37 29 C7 28 31 37 29 22 31 38 30 46 24 3D |(17).(17)"180F$=| 00000330: 22 C7 28 33 34 29 46 24 C7 28 33 34 29 00 54 0B |".(34)F$.(34).T.| 00000340: 69 00 99 22 31 39 30 44 45 46 46 4E 41 28 58 29 |i.."190DEFFNA(X)| 00000350: 3D 22 46 24 00 6A 0B 6E 00 99 22 52 55 4E 31 34 |="F$.j.n.."RUN14| 00000360: 30 22 3A 99 C7 28 31 39 29 3B 00 8F 0B 73 00 97 |0":..(19);...s..| 00000370: 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 |631,13:.632,13:.| 00000380: 36 33 33 2C 31 33 3A 97 31 39 38 2C 33 3A 80 00 |633,13:.198,3:..| 00000390: 95 0B 78 00 8F 00 BB 0B 7D 00 8F 20 2B 2B 2B 20 |..x.....}.. +++ | 000003A0: 4E 45 55 42 45 47 49 4E 4E 20 44 45 53 20 50 52 |NEUBEGINN DES PR| 000003B0: 4F 47 52 41 4D 4D 45 53 20 2B 2B 00 E1 0B 82 00 |OGRAMMES ++.....| 000003C0: 8F 20 2B 2B 2B 20 20 20 20 46 41 4C 4C 53 20 4E |. +++ FALLS N| 000003D0: 45 55 45 20 46 55 4E 4B 54 49 4F 4E 20 20 20 2B |EUE FUNKTION +| 000003E0: 2B 00 E7 0B 87 00 8F 00 FB 0B 8C 00 99 C7 28 31 |+.............(1| 000003F0: 34 37 29 3A 97 36 34 36 2C 31 34 00 01 0C 91 00 |47):.646,14.....| 00000400: 8F 00 27 0C 96 00 8F 20 2B 2B 2B 20 46 55 4E 4B |..'.... +++ FUNK| 00000410: 54 49 4F 4E 45 4E 20 55 4E 44 20 56 41 52 49 41 |TIONEN UND VARIA| 00000420: 42 4C 45 20 2B 2B 2B 00 2D 0C 9B 00 8F 00 75 0C |BLE +++.-.....u.| 00000430: A0 00 58 B2 30 3A 5A B2 30 3A 53 50 B2 30 3A 5A |..X.0:Z.0:SP.0:Z| 00000440: 4C B2 30 3A 58 55 B2 30 3A 58 4F B2 30 3A 59 55 |L.0:XU.0:XO.0:YU| 00000450: B2 30 3A 59 4F B2 30 3A 5A 33 B2 30 3A 5A 34 B2 |.0:YO.0:Z3.0:Z4.| 00000460: 30 3A 5A 35 B2 30 3A 5A 36 B2 30 3A 5A 55 B2 30 |0:Z5.0:Z6.0:ZU.0| 00000470: 3A 5A 4F B2 30 00 C3 0C A5 00 5A 31 B2 30 3A 5A |:ZO.0.....Z1.0:Z| 00000480: 32 B2 30 3A 46 31 B2 31 3A 46 32 B2 36 3A 41 B2 |2.0:F1.1:F2.6:A.| 00000490: 31 3A 58 41 B2 30 3A 58 45 B2 30 3A 5A 41 B2 30 |1:XA.0:XE.0:ZA.0| 000004A0: 3A 5A 45 B2 30 3A 44 5A B2 31 3A 58 54 B2 30 3A |:ZE.0:DZ.1:XT.0:| 000004B0: 58 48 B2 30 3A 59 54 B2 30 3A 59 48 B2 30 3A 5A |XH.0:YT.0:YH.0:Z| 000004C0: 5A B2 31 00 C9 0C AA 00 8F 00 D3 0C AF 00 41 24 |Z.1...........A$| 000004D0: B2 22 22 00 EA 0C B4 00 46 24 B2 22 53 49 4E 28 |."".....F$."SIN(| 000004E0: 58 29 2A 53 49 4E 28 5A 29 22 00 F0 0C B9 00 8F |X)*SIN(Z)"......| 000004F0: 00 05 0D BE 00 96 A5 41 28 58 29 B2 BF 28 58 29 |.......A(X)..(X)| 00000500: AC BF 28 5A 29 00 1B 0D C3 00 96 A5 5A 28 5A 29 |..(Z).......Z(Z)| 00000510: B2 5A AD 28 32 AC BA 28 32 29 29 00 26 0D C8 00 |.Z.(2..(2)).&...| 00000520: 8B 4B B2 31 A7 8E 00 2C 0D CD 00 8F 00 52 0D D2 |.K.1...,.....R..| 00000530: 00 8F 20 2B 2B 20 45 49 4E 47 41 42 45 20 4B 4F |.. ++ EINGABE KO| 00000540: 4F 52 44 49 4E 41 54 45 4E 53 59 53 54 45 4D 20 |ORDINATENSYSTEM | 00000550: 2B 2B 00 58 0D D7 00 8F 00 6A 0D DC 00 53 50 B2 |++.X.....j...SP.| 00000560: 31 3A 5A 4C B2 33 3A 8D 34 30 00 9C 0D E1 00 99 |1:ZL.3:.40......| 00000570: C7 28 31 38 29 22 55 4E 53 45 52 20 53 59 53 54 |.(18)"UNSER SYST| 00000580: 45 4D 20 20 20 20 3A 22 C7 28 31 34 36 29 3A 53 |EM :".(146):S| 00000590: 50 B2 37 3A 5A 4C B2 35 3A 8D 34 30 00 D7 0D E6 |P.7:ZL.5:.40....| 000005A0: 00 85 22 58 55 2C 58 4F 3D 22 3B 58 55 2C 58 4F |.."XU,XO=";XU,XO| 000005B0: 3A 5A 4C B2 36 3A 8D 34 30 3A 85 22 59 55 2C 59 |:ZL.6:.40:."YU,Y| 000005C0: 4F 3D 22 3B 59 55 2C 59 4F 3A 53 50 B2 39 3A 5A |O=";YU,YO:SP.9:Z| 000005D0: 4C B2 38 3A 8D 34 30 00 12 0E EB 00 5A 33 B2 32 |L.8:.40.....Z3.2| 000005E0: AC 58 4F AC BA 28 32 29 3A 5A 34 B2 32 AC 59 4F |.XO..(2):Z4.2.YO| 000005F0: AC BA 28 32 29 3A 8B 5A 33 B3 5A 34 A7 99 22 5A |..(2):.Z3.Z4.."Z| 00000600: 4F 20 4D 41 58 49 4D 41 4C 3D 22 5A 33 3A 89 32 |O MAXIMAL="Z3:.2| 00000610: 34 35 00 27 0E F0 00 99 22 5A 4F 20 4D 41 58 49 |45.'...."ZO MAXI| 00000620: 4D 41 4C 3D 22 5A 34 00 3A 0E F5 00 53 50 B2 39 |MAL="Z4.:...SP.9| 00000630: 3A 5A 4C B2 31 30 3A 8D 34 30 00 75 0E FA 00 5A |:ZL.10:.40.u...Z| 00000640: 35 B2 32 AC 58 55 AC BA 28 32 29 3A 5A 36 B2 32 |5.2.XU..(2):Z6.2| 00000650: AC 59 55 AC BA 28 32 29 3A 8B 5A 35 B1 5A 36 A7 |.YU..(2):.Z5.Z6.| 00000660: 99 22 5A 55 20 4D 49 4E 49 4D 41 4C 3D 22 5A 35 |."ZU MINIMAL="Z5| 00000670: 3A 89 32 36 30 00 8A 0E FF 00 99 22 5A 55 20 4D |:.260......"ZU M| 00000680: 49 4E 49 4D 41 4C 3D 22 5A 36 00 C1 0E 04 01 53 |INIMAL="Z6.....S| 00000690: 50 B2 37 3A 5A 4C B2 31 32 3A 8D 34 30 3A 85 22 |P.7:ZL.12:.40:."| 000006A0: 5A 55 2C 5A 4F 3D 22 3B 5A 55 2C 5A 4F 3A 5A 31 |ZU,ZO=";ZU,ZO:Z1| 000006B0: B2 A5 5A 28 5A 4F 29 3A 5A 32 B2 A5 5A 28 5A 55 |..Z(ZO):Z2..Z(ZU| 000006C0: 29 00 D6 0E 09 01 8B 5A 31 B1 58 4F B0 5A 31 B1 |)......Z1.XO.Z1.| 000006D0: 59 4F A7 32 33 35 00 EB 0E 0E 01 8B 5A 32 B3 58 |YO.235......Z2.X| 000006E0: 55 B0 5A 32 B3 59 55 A7 32 33 35 00 F1 0E 13 01 |U.Z2.YU.235.....| 000006F0: 8F 00 17 0F 18 01 8F 20 2B 2B 2B 20 45 49 4E 47 |....... +++ EING| 00000700: 41 42 45 20 5A 45 49 43 48 45 4E 50 41 52 41 4D |ABE ZEICHENPARAM| 00000710: 45 54 45 52 20 2B 2B 00 1D 0F 1D 01 8F 00 50 0F |ETER ++.......P.| 00000720: 22 01 5A 4C B2 31 34 3A 53 50 B2 31 3A 8D 34 30 |".ZL.14:SP.1:.40| 00000730: 3A 99 C7 28 31 38 29 22 55 4E 53 45 52 45 20 5A |:..(18)"UNSERE Z| 00000740: 45 49 43 48 4E 55 4E 47 3A 22 C7 28 31 34 36 29 |EICHNUNG:".(146)| 00000750: 00 8B 0F 27 01 5A 4C B2 31 36 3A 53 50 B2 33 3A |...'.ZL.16:SP.3:| 00000760: 8D 34 30 3A 85 22 5A 45 49 43 48 45 4E 2D 20 55 |.40:."ZEICHEN- U| 00000770: 4E 44 20 48 49 4E 54 45 52 47 52 55 4E 44 46 41 |ND HINTERGRUNDFA| 00000780: 52 42 45 3D 22 3B 46 31 2C 46 32 00 B7 0F 2C 01 |RBE=";F1,F2...,.| 00000790: 5A 4C B2 31 38 3A 53 50 B2 37 3A 8D 34 30 3A 85 |ZL.18:SP.7:.40:.| 000007A0: 22 53 43 48 52 49 54 54 57 45 49 54 45 20 56 4F |"SCHRITTWEITE VO| 000007B0: 4E 20 5A 3D 22 3B 41 00 DF 0F 31 01 5A 4C B2 32 |N Z=";A...1.ZL.2| 000007C0: 30 3A 8D 34 30 3A 85 22 58 2D 42 45 52 45 49 43 |0:.40:."X-BEREIC| 000007D0: 48 20 58 41 2C 58 45 3D 22 3B 58 41 2C 58 45 00 |H XA,XE=";XA,XE.| 000007E0: 07 10 36 01 5A 4C B2 32 31 3A 8D 34 30 3A 85 22 |..6.ZL.21:.40:."| 000007F0: 5A 2D 42 45 52 45 49 43 48 20 5A 41 2C 5A 45 3D |Z-BEREICH ZA,ZE=| 00000800: 22 3B 5A 41 2C 5A 45 00 0D 10 3B 01 8F 00 31 10 |";ZA,ZE...;...1.| 00000810: 40 01 8F 20 2B 2B 2B 20 20 20 20 20 20 20 5A 45 |@.. +++ ZE| 00000820: 49 43 48 4E 45 4E 20 20 20 20 20 20 20 20 2B 2B |ICHNEN ++| 00000830: 2B 00 37 10 45 01 8F 00 5A 10 4A 01 44 5A B2 41 |+.7.E...Z.J.DZ.A| 00000840: AD 32 3A 58 54 B2 58 55 3A 58 48 B2 58 4F 3A 59 |.2:XT.XU:XH.XO:Y| 00000850: 54 B2 59 55 3A 59 48 B2 59 4F 00 78 10 4F 01 48 |T.YU:YH.YO.x.O.H| 00000860: 46 4C 2C 46 31 2C 46 32 3A 54 52 53 2C 58 55 2C |FL,F1,F2:TRS,XU,| 00000870: 58 4F 2C 59 55 2C 59 4F 00 7E 10 54 01 8F 00 A2 |XO,YU,YO.~.T....| 00000880: 10 59 01 8F 20 2D 2D 2D 2D 2D 20 4B 4F 4F 52 44 |.Y.. ----- KOORD| 00000890: 49 4E 41 54 45 4E 4B 52 45 55 5A 20 2D 2D 2D 2D |INATENKREUZ ----| 000008A0: 2D 2D 00 A8 10 5E 01 8F 00 D8 10 63 01 54 4C 4E |--...^.....c.TLN| 000008B0: 2C 58 55 2C 30 2C 58 4F 2C 30 3A 54 4C 4E 2C 30 |,XU,0,XO,0:TLN,0| 000008C0: 2C 59 55 2C 30 2C 59 4F 3A 54 4C 4E 2C 5A 32 2C |,YU,0,YO:TLN,Z2,| 000008D0: 5A 32 2C 5A 31 2C 5A 31 00 DE 10 68 01 8F 00 02 |Z2,Z1,Z1...h....| 000008E0: 11 6D 01 8F 20 2D 2D 2D 2D 2D 20 20 20 20 5A 2D |.m.. ----- Z-| 000008F0: 53 43 48 4C 45 49 46 45 20 20 20 20 2D 2D 2D 2D |SCHLEIFE ----| 00000900: 2D 2D 00 08 11 72 01 8F 00 46 11 77 01 81 5A B2 |--...r...F.w..Z.| 00000910: 5A 41 A4 5A 45 A9 44 5A 3A 5A 5A B2 A5 5A 28 44 |ZA.ZE.DZ:ZZ..Z(D| 00000920: 5A 29 3A 58 54 B2 58 54 AB 5A 5A 3A 58 48 B2 58 |Z):XT.XT.ZZ:XH.X| 00000930: 48 AB 5A 5A 3A 59 54 B2 59 54 AB 5A 5A 3A 59 48 |H.ZZ:YT.YT.ZZ:YH| 00000940: B2 59 48 AB 5A 5A 00 5A 11 7C 01 54 52 53 2C 58 |.YH.ZZ.Z.|.TRS,X| 00000950: 54 2C 58 48 2C 59 54 2C 59 48 00 6C 11 81 01 46 |T,XH,YT,YH.l...F| 00000960: 55 4E 4B 54 2C 41 2C 58 41 2C 58 45 00 73 11 86 |UNKT,A,XA,XE.s..| 00000970: 01 82 5A 00 87 11 8B 01 54 45 58 2C 22 59 3D 22 |..Z.....TEX,"Y="| 00000980: AA 46 24 2C 30 2C 33 00 8D 11 90 01 8F 00 B1 11 |.F$,0,3.........| 00000990: 95 01 8F 20 2D 2D 2D 2D 2D 20 5A 45 49 43 48 4E |... ----- ZEICHN| 000009A0: 55 4E 47 20 46 45 52 54 49 47 20 2D 2D 2D 2D 2D |UNG FERTIG -----| 000009B0: 2D 00 B7 11 9A 01 8F 00 CA 11 9F 01 A1 41 24 3A |-............A$:| 000009C0: 8B 41 24 B2 22 22 A7 34 31 35 00 D2 11 A4 01 48 |.A$."".415.....H| 000009D0: 4F 46 00 D8 11 A9 01 8F 00 FC 11 AE 01 8F 20 2B |OF............ +| 000009E0: 2B 2B 2B 2B 20 20 20 20 20 4D 45 4E 10 AD 38 10 |++++ MEN..8.| 000009F0: 18 69 28 8D 38 10 8D 3A 10 90 06 EE 39 10 EE 3B |.i(.8..:....9..;| 00000A00: 10 A5 8B 18 69 40 85 8B A5 8C 69 01 85 8C 4C 07 |....i@....i...L.| 00000A10: 11 20 68 10 A9 0A 20 DD ED A9 00 20 DD ED A9 04 |. h... .... ....| 00000A20: 20 FE ED 60 85 8B 84 8C A0 07 B9 46 10 99 36 10 | ..`.......F..6.| 00000A30: 88 10 F7 A9 00 85 90 A9 04 20 0C ED A9 60 20 B9 |......... ...` .| 00000A40: ED A5 90 30 DE 4C 00 11 29 06 AA A1 A4 E0 02 D0 |...0.L..).......| 00000A50: 04 4A 4A 4A 4A 29 0F 0A 65 9F A8 A5 8D D9 07 10 |.JJJJ)..e.......| 00000A60: 60 |` |
..).... ******************************** *.Q.... * *.Y.... * 3D-GRAFIK MITTELS HIRES-3 *...... * *.I.... * HEIMO PONNATH HAMBURG 1985 *...... * *...... * HIRES-3 MUSS IM SPEICHER SEIN *.A.... ******************************** *.G.....M.... ++ INITIALISIEREN DER GRAF IK ++.S..........52,112:.56,112:.37498:. 60............ ++ UP CURSOR SETZEN ++++ ++++++.D.#.....(..211,SP:.214,ZL:.58640: ....-.....2.. +++ EINGABE DER 3D-FUNKTIO N ++++...7...=.<..G(147):.34647:.646,14: ZL.5:SP.5:.40.Z.A.."FUNKTION IM PROGRAMM :".K.F.K.1:.180:K.0.~.K..:..3)"Y="F$:... .P...5)G(18)"A"G(146)"LTE ODER "G(18)"N" G(146)"EUE FUNKTION?.X.U..A$:.A$.."A".A$ .."N".85...Z..A$."A".140..._..G(147):SP. 3:ZL.12:.40:."Y=";F$:.646,6.=.D..G(147)G (17)G(17)"180F$="G(34)F$G(34).T.I.."190D EFFNA(X)="F$.J.N.."RUN140":.G(19);...S.. 631,13:.632,13:.633,13:.198,3:....X..... }.. +++ NEUBEGINN DES PROGRAMMES ++..... . +++ FALLS NEUE FUNKTION ++....... .....G(147):.646,14.......'.... +++ FUNK TIONEN UND VARIABLE +++.-.....U. .X.0:Z. 0:SP.0:ZL.0:XU.0:XO.0:YU.0:YO.0:Z3.0:Z4. 0:Z5.0:Z6.0:ZU.0:ZO.0.C...Z1.0:Z2.0:F1.1 :F2.6:A.1:XA.0:XE.0:ZA.0:ZE.0:DZ.1:XT.0: XH.0:YT.0:YH.0:ZZ.1.I.....S...A$.""..... F$."SIN(X)*SIN(Z)".............A(X)..(X) ..(Z)...C...Z(Z).Z.(2..(2)).&.H..K.1..., .M...R.R.. ++ EINGABE KOORDINATENSYSTEM ++.X.W...J...SP.1:ZL.3:.40......G(18)"UN SER SYSTEM :"G(146):SP.7:ZL.5:.40.W.. .."XU,XO=";XU,XO:ZL.6:.40:."YU,YO=";YU,Y O:SP.9:ZL.8:.40.....Z3.2.XO..(2):Z4.2.YO ..(2):.Z3.Z4.."ZO MAXIMAL="Z3:.245.'.... "ZO MAXIMAL="Z4.:...SP.9:ZL.10:.40.U...Z 5.2.XU..(2):Z6.2.YU..(2):.Z5.Z6.."ZU MIN IMAL="Z5:.260......"ZU MINIMAL="Z6.A...S P.7:ZL.12:.40:."ZU,ZO=";ZU,ZO:Z1..Z(ZO): Z2..Z(ZU).V....Z1.XO.Z1.YO.235......Z2.X U.Z2.YU.235............ +++ EINGABE ZEIC HENPARAMETER ++.......P.".ZL.14:SP.1:.40 :.G(18)"UNSERE ZEICHNUNG:"G(146)...'.ZL. 16:SP.3:.40:."ZEICHEN- UND HINTERGRUNDFA RBE=";F1,F2...,.ZL.18:SP.7:.40:."SCHRITT WEITE VON Z=";A...1.ZL.20:.40:."X-BEREIC H XA,XE=";XA,XE...6.ZL.21:.40:."Z-BEREIC H ZA,ZE=";ZA,ZE...;...1.@.. +++ ZE ICHNEN +++.7.E...Z.J.DZ.A.2:XT.XU :XH.XO:YT.YU:YH.YO.X.O.HFL,F1,F2:TRS,XU, XO,YU,YO.~.T.....Y.. ----- KOORDINATENKR EUZ ------...^...X.C.TLN,XU,0,XO,0:TLN,0 ,YU,0,YO:TLN,Z2,Z2,Z1,Z1...H.....M.. --- -- Z-SCHLEIFE ------...R...F.W..Z. ZA.ZE.DZ:ZZ..Z(DZ):XT.XT.ZZ:XH.XH.ZZ:YT. YT.ZZ:YH.YH.ZZ.Z.|.TRS,XT,XH,YT,YH.L...F UNKT,A,XA,XE.S....Z.....TEX,"Y=".F$,0,3. ........... ----- ZEICHNUNG FERTIG ----- -.......J....A$:.A$."".415.R...HOF.X.... ...... +++++ MEN..8..I(.8..:....9..; ....I@....I...L.. H... .... .... ..`.... ..F..6.......... ...` ....0.L..)......P .JJJJ)..E....Y..`
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL