00000000: 01 1C 30 1C 0A 00 8F 20 41 50 46 45 4C 47 52 41 |..0.... APFELGRA|
00000010: 46 49 4B 45 4E 20 46 55 45 52 20 44 45 4E 20 43 |FIKEN FUER DEN C|
00000020: 31 32 38 20 49 4E 20 42 41 53 49 43 20 37 2E 30 |128 IN BASIC 7.0|
00000030: 00 56 1C 14 00 8F 20 57 52 49 54 54 45 4E 20 42 |.V.... WRITTEN B|
00000040: 59 20 47 2E 20 53 5A 59 4D 41 4E 53 4B 49 20 49 |Y G. SZYMANSKI I|
00000050: 4E 20 38 2F 38 38 00 78 1C 1E 00 56 4F B2 31 35 |N 8/88.x...VO.15|
00000060: 3A 4D 31 B2 33 3A 4D 32 B2 38 3A 48 49 B2 31 3A |:M1.3:M2.8:HI.1:|
00000070: 8F 20 46 41 52 42 45 4E 00 84 1C 28 00 99 22 93 |. FARBEN...(..".|
00000080: 22 3A DE 30 00 B4 1C 32 00 99 22 2A 2A 2A 2A 2A |":.0...2.."*****|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 22 00 E4 1C 3C 00 99 22 2A 20 20 20 20 |***"...<.."* |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 2A 22 00 14 1D 46 00 99 22 2A 20 20 20 20 | *"...F.."* |
000000F0: 20 20 20 20 41 20 50 20 46 20 45 20 4C 20 47 20 | A P F E L G |
00000100: 52 20 41 20 46 20 49 20 4B 20 20 20 20 20 20 20 |R A F I K |
00000110: 20 20 2A 22 00 44 1D 50 00 99 22 2A 20 20 20 20 | *".D.P.."* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 2A 22 00 74 1D 5A 00 99 22 2A 20 20 20 20 | *".t.Z.."* |
00000150: 20 20 20 20 56 45 52 53 49 4F 4E 20 31 32 38 20 | VERSION 128 |
00000160: 42 41 53 49 43 20 37 2E 30 20 20 20 20 20 20 20 |BASIC 7.0 |
00000170: 20 20 2A 22 00 A4 1D 64 00 99 22 2A 20 20 20 20 | *"...d.."* |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 2A 22 00 D4 1D 6E 00 99 22 2A 20 20 20 20 | *"...n.."* |
000001B0: 20 20 20 20 28 43 29 20 38 2F 38 38 20 47 2E 20 | (C) 8/88 G. |
000001C0: 53 5A 59 4D 41 4E 53 4B 49 20 20 20 20 20 20 20 |SZYMANSKI |
000001D0: 20 20 2A 22 00 04 1E 78 00 99 22 2A 20 20 20 20 | *"...x.."* |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 2A 22 00 34 1E 82 00 99 22 2A 2A 2A 2A 2A | *".4...."*****|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 22 00 52 1E 8C 00 99 22 11 31 20 3D 20 |***".R....".1 = |
00000240: 50 41 52 41 4D 45 54 45 52 20 45 49 4E 47 41 42 |PARAMETER EINGAB|
00000250: 45 22 00 67 1E 96 00 99 22 11 32 20 3D 20 46 41 |E".g....".2 = FA|
00000260: 52 42 57 41 48 4C 22 00 78 1E A0 00 99 22 11 30 |RBWAHL".x....".0|
00000270: 20 3D 20 45 4E 44 45 22 00 94 1E AA 00 A1 F9 41 | = ENDE".......A|
00000280: 24 3A 8B 41 24 B3 22 30 22 B0 41 24 B1 22 32 22 |$:.A$."0".A$."2"|
00000290: A7 31 37 30 00 A4 1E B4 00 8B 41 24 B2 22 31 22 |.170......A$."1"|
000002A0: A7 32 39 30 00 B4 1E BE 00 8B 41 24 B2 22 32 22 |.290......A$."2"|
000002B0: A7 34 39 30 00 BA 1E C8 00 80 00 C0 1E D2 00 3A |.490...........:|
000002C0: 00 D1 1E DC 00 8F 20 33 2D 44 20 47 52 41 46 49 |...... 3-D GRAFI|
000002D0: 4B 00 D7 1E E6 00 3A 00 01 1F F0 00 55 B2 4D AA |K.....:.....U.M.|
000002E0: 35 33 AB 4E AD 32 3A 55 31 B2 55 AA 31 3A 56 B2 |53.N.2:U1.U.1:V.|
000002F0: 4E AA 38 30 3A 56 31 B2 56 AB 33 AC 28 4B AB 31 |N.80:V1.V.3.(K.1|
00000300: 29 00 2D 1F FA 00 E5 32 2C 55 2C 56 A4 55 2C 56 |).-....2,U,V.U,V|
00000310: 31 3A E5 33 2C 55 31 2C 56 A4 55 31 2C 56 31 3A |1:.3,U1,V.U1,V1:|
00000320: E5 31 2C 55 2C 56 31 A4 55 31 2C 56 31 00 33 1F |.1,U,V1.U1,V1.3.|
00000330: 04 01 8E 00 39 1F 0E 01 3A 00 47 1F 18 01 8F 20 |....9...:.G.... |
00000340: 45 49 4E 47 41 42 45 00 4D 1F 22 01 3A 00 56 1F |EINGABE.M.".:.V.|
00000350: 2C 01 99 22 93 22 00 6B 1F 36 01 99 22 45 49 4E |,..".".k.6.."EIN|
00000360: 47 41 42 45 20 32 44 2F 33 44 22 00 8D 1F 40 01 |GABE 2D/3D"...@.|
00000370: 85 22 11 32 44 20 4F 44 45 52 20 33 44 20 47 52 |.".2D ODER 3D GR|
00000380: 41 46 49 4B 20 28 32 2F 33 29 22 3B 44 00 A2 1F |AFIK (2/3)";D...|
00000390: 4A 01 8B 44 B3 20 32 20 B0 44 B1 20 33 20 A7 33 |J..D. 2 .D. 3 .3|
000003A0: 32 30 00 BC 1F 54 01 85 22 11 57 45 52 54 20 46 |20...T..".WERT F|
000003B0: 55 45 52 20 58 4C 3A 20 22 3B 58 4C 00 D6 1F 5E |UER XL: ";XL...^|
000003C0: 01 85 22 11 57 45 52 54 20 46 55 45 52 20 58 52 |..".WERT FUER XR|
000003D0: 3A 20 22 3B 58 52 00 F0 1F 68 01 85 22 11 57 45 |: ";XR...h..".WE|
000003E0: 52 54 20 46 55 45 52 20 59 4F 3A 20 22 3B 59 4F |RT FUER YO: ";YO|
000003F0: 00 0A 20 72 01 85 22 11 57 45 52 54 20 46 55 45 |.. r..".WERT FUE|
00000400: 52 20 59 55 3A 20 22 3B 59 55 00 23 20 7C 01 85 |R YU: ";YU.# |..|
00000410: 22 11 57 45 52 54 20 46 55 45 52 20 20 54 3A 20 |".WERT FUER T: |
00000420: 22 3B 54 00 2C 20 86 01 52 41 B2 34 00 4D 20 90 |";T., ..RA.4.M .|
00000430: 01 8B 44 B2 20 33 20 A7 85 22 11 57 45 52 54 20 |..D. 3 ..".WERT |
00000440: 46 55 45 52 20 52 41 3A 20 22 3B 52 41 00 6B 20 |FUER RA: ";RA.k |
00000450: 9A 01 8B 44 B2 33 20 AF 20 54 B1 52 41 A7 99 22 |...D.3 . T.RA.."|
00000460: 11 54 3E 52 41 22 3A 89 33 38 30 00 81 20 A4 01 |.T>RA":.380.. ..|
00000470: 99 22 11 41 4C 4C 45 53 20 4F 4B 3F 20 4A 2F 4E |.".ALLES OK? J/N|
00000480: 22 00 8A 20 AE 01 A1 F9 41 24 00 9A 20 B8 01 8B |".. ....A$.. ...|
00000490: 41 24 B2 22 4E 22 A7 32 39 30 00 AA 20 C2 01 8B |A$."N".290.. ...|
000004A0: 41 24 B2 22 4A 22 A7 37 32 30 00 B3 20 CC 01 89 |A$."J".720.. ...|
000004B0: 34 32 30 00 B9 20 D6 01 8F 00 BF 20 E0 01 3A 00 |420.. ..... ..:.|
000004C0: CE 20 EA 01 8F 20 46 41 52 42 57 41 48 4C 00 D4 |. ... FARBWAHL..|
000004D0: 20 F4 01 3A 00 DD 20 F9 01 DE 34 2C 30 00 F9 20 | ..:.. ...4,0.. |
000004E0: FE 01 99 22 93 11 11 11 11 11 11 11 11 11 11 11 |..."............|
000004F0: 11 11 11 11 11 11 11 11 22 00 0A 21 08 02 99 22 |........"..!..."|
00000500: 11 46 41 52 42 57 41 48 4C 22 00 1E 21 12 02 99 |.FARBWAHL"..!...|
00000510: 22 11 46 41 52 42 45 4E 20 31 2D 31 36 22 00 33 |".FARBEN 1-16".3|
00000520: 21 1C 02 85 22 11 31 2E 46 41 52 42 45 20 3A 22 |!...".1.FARBE :"|
00000530: 3B 56 4F 00 48 21 26 02 85 22 11 32 2E 46 41 52 |;VO.H!&..".2.FAR|
00000540: 42 45 20 3A 22 3B 4D 31 00 5D 21 30 02 85 22 11 |BE :";M1.]!0..".|
00000550: 33 2E 46 41 52 42 45 20 3A 22 3B 4D 32 00 80 21 |3.FARBE :";M2..!|
00000560: 3A 02 85 22 48 49 4E 54 45 52 47 52 55 4E 44 3A |:.."HINTERGRUND:|
00000570: 22 3B 48 49 3A E7 30 2C 48 49 3A E7 34 2C 48 49 |";HI:.0,HI:.4,HI|
00000580: 00 96 21 4E 02 99 22 4F 4B 3F 20 28 4A 2F 4E 29 |..!N.."OK? (J/N)|
00000590: 22 3A A1 F9 41 24 00 A6 21 53 02 8B 41 24 B2 22 |":..A$..!S..A$."|
000005A0: 4E 22 A7 35 30 30 00 AE 21 58 02 89 34 30 00 B4 |N".500..!X..40..|
000005B0: 21 62 02 3A 00 C4 21 6C 02 8F 20 32 44 2D 47 52 |!b.:..!l.. 2D-GR|
000005C0: 41 46 49 4B 00 CA 21 76 02 3A 00 D5 21 80 02 8B |AFIK..!v.:..!...|
000005D0: 4B B2 54 A7 8E 00 F0 21 8A 02 45 B2 B5 28 4B AD |K.T....!..E..(K.|
000005E0: 33 29 3A 52 B2 4B AB 33 AC 45 3A 52 B2 52 AA 31 |3):R.K.3.E:R.R.1|
000005F0: 00 04 22 94 02 8B 52 B2 31 A7 43 4F B2 56 4F 3A |.."...R.1.CO.VO:|
00000600: 4D 4F B2 33 00 18 22 9E 02 8B 52 B2 32 A7 43 4F |MO.3.."...R.2.CO|
00000610: B2 4D 31 3A 4D 4F B2 32 00 2C 22 A8 02 8B 52 B2 |.M1:MO.2.,"...R.|
00000620: 33 A7 43 4F B2 4D 32 3A 4D 4F B2 31 00 3F 22 B2 |3.CO.M2:MO.1.?".|
00000630: 02 E7 4D 4F 2C 43 4F 3A E5 4D 4F 2C 4D 2C 4E 00 |..MO,CO:.MO,M,N.|
00000640: 45 22 BC 02 8E 00 4B 22 C6 02 3A 00 65 22 D0 02 |E"....K"..:.e"..|
00000650: 8F 20 49 54 45 52 41 54 49 4F 4E 53 53 43 48 4C |. ITERATIONSSCHL|
00000660: 45 49 46 45 4E 00 6B 22 DA 02 3A 00 7A 22 E4 02 |EIFEN.k"..:.z"..|
00000670: DE 33 2C 31 3A E7 30 2C 48 49 00 90 22 EE 02 E7 |.3,1:.0,HI.."...|
00000680: 31 2C 56 4F 3A E7 32 2C 4D 31 3A E7 33 2C 4D 32 |1,VO:.2,M1:.3,M2|
00000690: 00 A2 22 F8 02 58 4D B2 31 39 39 3A 59 4D B2 31 |.."..XM.199:YM.1|
000006A0: 35 39 00 B8 22 02 03 8B 44 B2 33 A7 58 4D B2 31 |59.."...D.3.XM.1|
000006B0: 30 35 3A 59 4D B2 58 4D 00 D7 22 0C 03 54 49 24 |05:YM.XM.."..TI$|
000006C0: B2 22 30 30 30 30 30 30 22 3A 8F 20 55 48 52 20 |."000000":. UHR |
000006D0: 53 54 41 52 54 45 4E 00 F7 22 16 03 44 58 B2 28 |STARTEN.."..DX.(|
000006E0: 58 52 AB 58 4C 29 AD 58 4D 3A 44 59 B2 28 59 55 |XR.XL).XM:DY.(YU|
000006F0: AB 59 4F 29 AD 59 4D 00 0B 23 20 03 81 4E B2 30 |.YO).YM..# ..N.0|
00000700: A4 59 4D 3A 81 4D B2 30 A4 58 4D 00 31 23 2A 03 |.YM:.M.0.XM.1#*.|
00000710: 4B B2 30 3A 58 43 B2 58 4C AA 4D AC 44 58 3A 59 |K.0:XC.XL.M.DX:Y|
00000720: 43 B2 59 4F AA 4E AC 44 59 3A 58 B2 30 3A 59 B2 |C.YO.N.DY:X.0:Y.|
00000730: 30 00 53 23 34 03 8F 20 46 41 53 54 3A 47 45 54 |0.S#4.. FAST:GET|
00000740: 41 24 3A 49 46 41 24 3D 22 53 22 54 48 45 4E 53 |A$:IFA$="S"THENS|
00000750: 4C 4F 57 00 97 23 3E 03 58 32 B2 58 AC 58 3A 59 |LOW..#>.X2.X.X:Y|
00000760: 32 B2 59 AC 59 3A 59 B2 32 AC 58 AC 59 AA 59 43 |2.Y.Y:Y.2.X.Y.YC|
00000770: 3A 58 B2 58 32 AB 59 32 AA 58 43 3A 4B B2 4B AA |:X.X2.Y2.XC:K.K.|
00000780: 31 3A 8B 28 4B B3 54 29 AF 28 58 32 AA 59 32 B3 |1:.(K.T).(X2.Y2.|
00000790: 52 41 29 A7 38 33 30 00 AB 23 48 03 8B 44 B2 33 |RA).830..#H..D.3|
000007A0: A7 8D 32 32 30 3A 8F 20 33 2D 44 00 BF 23 52 03 |..220:. 3-D..#R.|
000007B0: 8B 44 B2 32 A7 8D 36 32 30 3A 8F 20 32 2D 44 00 |.D.2..620:. 2-D.|
000007C0: C7 23 5C 03 82 3A 82 00 CD 23 66 03 3A 00 E1 23 |.#\..:...#f.:..#|
000007D0: 70 03 8F 20 5A 45 49 54 45 52 46 41 53 53 55 4E |p.. ZEITERFASSUN|
000007E0: 47 00 E7 23 7A 03 3A 00 F3 23 84 03 4C 5A 24 B2 |G..#z.:..#..LZ$.|
000007F0: 54 49 24 00 04 24 8E 03 FE 26 3A A1 F9 41 24 3A |TI$..$...&:..A$:|
00000800: DE 34 2C 30 00 33 24 98 03 4C 5A 24 B2 54 49 24 |.4,0.3$..LZ$.TI$|
00000810: 3A 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 |:.".............|
00000820: 11 11 11 11 11 11 4C 41 55 46 5A 45 49 54 22 3B |......LAUFZEIT";|
00000830: 5A 4C 24 00 6D 24 A2 03 3A 99 22 58 52 3A 22 3B |ZL$.m$..:."XR:";|
00000840: 58 52 3B 22 58 4C 3A 22 3B 58 4C 3B 22 59 55 3A |XR;"XL:";XL;"YU:|
00000850: 22 3B 59 55 3B 22 59 4F 3A 22 3B 59 4F 3B 22 54 |";YU;"YO:";YO;"T|
00000860: 3A 22 3B 54 3B 22 52 41 3A 22 3B 52 41 00 90 24 |:";T;"RA:";RA..$|
00000870: AC 03 DE 30 3A 99 22 57 45 52 54 45 20 4E 4F 54 |...0:."WERTE NOT|
00000880: 49 45 52 54 3F 22 3A A1 F9 41 24 3A 89 20 34 30 |IERT?":..A$:. 40|
00000890: 00 00 00 |... |
..0.... APFELGRAFIKEN FUER DEN C128 IN B
ASIC 7.0.V.... WRITTEN BY G. SZYMANSKI I
N 8/88.X...VO.15:M1.3:M2.8:HI.1:. FARBEN
...(..".":.0...2.."*********************
*******************"...<.."*
*"...F.."*
A P F E L G R A F I K *".D.P
.."*
*".T.Z.."* VERSION 128 BASIC 7.
0 *"...D.."*
*".T.N.."* (C)
8/88 G. SZYMANSKI *"...X.."*
*".4..
.."*************************************
***".R....".1 = PARAMETER EINGABE".G....
".2 = FARBWAHL".X. ..".0 = ENDE".......A
$:.A$."0".A$."2".170......A$."1".290....
..A$."2".490...H.....R.:.Q.... 3-D GRAFI
K.W...:.....U.M.53.N.2:U1.U.1:V.N.80:V1.
V.3.(K.1).-....2,U,V.U,V1:.3,U1,V.U1,V1:
.1,U,V1.U1,V1.3.....9...:.G.... EINGABE.
M.".:.V.,..".".K.6.."EINGABE 2D/3D"...@.
.".2D ODER 3D GRAFIK (2/3)";D...J..D. 2
.D. 3 .320...T..".WERT FUER XL: ";XL.V.^
..".WERT FUER XR: ";XR...H..".WERT FUER
YO: ";YO.. R..".WERT FUER YU: ";YU.# |..
".WERT FUER T: ";T., ..RA.4.M ...D. 3 .
.".WERT FUER RA: ";RA.K ...D.3 . T.RA.."
.T>RA":.380.. ...".ALLES OK? J/N".. ....
A$.. ...A$."N".290.. B..A$."J".720.. L..
420.. V.... ..:.N ... FARBWAHL.T ..:.. .
..4,0.. ..."...................."..!..."
.FARBWAHL"..!...".FARBEN 1-16".3!...".1.
FARBE :";VO.H!&..".2.FARBE :";M1.]!0..".
3.FARBE :";M2..!:.."HINTERGRUND:";HI:.0,
HI:.4,HI..!N.."OK? (J/N)":..A$..!S..A$."
N".500..!X..40..!B.:.D!L.. 2D-GRAFIK.J!V
.:.U!...K.T....!..E..(K.3):R.K.3.E:R.R.1
.."...R.1.CO.VO:MO.3.."...R.2.CO.M1:MO.2
.,"...R.3.CO.M2:MO.1.?"...MO,CO:.MO,M,N.
E"....K"F.:.E"P.. ITERATIONSSCHLEIFEN.K"
Z.:.Z"...3,1:.0,HI.."...1,VO:.2,M1:.3,M2
.."..XM.199:YM.159.."...D.3.XM.105:YM.XM
.W"..TI$."000000":. UHR STARTEN.."..DX.(
XR.XL).XM:DY.(YU.YO).YM..# ..N.0.YM:.M.0
.XM.1#*.K.0:XC.XL.M.DX:YC.YO.N.DY:X.0:Y.
0.S#4.. FAST:GETA$:IFA$="S"THENSLOW..#>.
X2.X.X:Y2.Y.Y:Y.2.X.Y.YC:X.X2.Y2.XC:K.K.
1:.(K.T).(X2.Y2.RA).830..#H..D.3..220:.
3-D..#R..D.2..620:. 2-D.G#\..:..M#F.:..#
P.. ZEITERFASSUNG..#Z.:..#..LZ$.TI$..$..
.&:..A$:.4,0.3$..LZ$.TI$:.".............
......LAUFZEIT";ZL$.M$..:."XR:";XR;"XL:"
;XL;"YU:";YU;"YO:";YO;"T:";T;"RA:";RA..$
...0:."WERTE NOTIERT?":..A$:. 40...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL