00000000: 01 1C 27 1C 10 27 41 B2 31 34 3A 8F 20 2A 2A 2A |..'..'A.14:. ***|
00000010: 20 46 41 52 42 57 49 45 44 45 52 48 4F 4C 5A 59 | FARBWIEDERHOLZY|
00000020: 4B 4C 2E 28 31 34 29 00 4D 1C 1A 27 42 B2 32 32 |KL.(14).M..'B.22|
00000030: 3A 8F 20 2A 2A 2A 20 41 4E 5A 41 48 4C 20 44 45 |:. *** ANZAHL DE|
00000040: 52 20 42 41 4C 4B 45 4E 20 28 37 30 29 00 6E 1C |R BALKEN (70).n.|
00000050: 24 27 43 B2 32 20 3A 8F 20 2A 2A 2A 20 42 41 4C |$'C.2 :. *** BAL|
00000060: 4B 45 4E 42 52 45 49 54 45 20 31 2D 37 34 00 93 |KENBREITE 1-74..|
00000070: 1C 2E 27 44 B2 32 30 3A 8F 20 2A 2A 2A 20 48 4F |..'D.20:. *** HO|
00000080: 45 48 45 20 44 45 52 20 42 41 4C 4B 45 4E 20 28 |EHE DER BALKEN (|
00000090: 32 32 29 00 B5 1C 38 27 45 B2 33 20 3A 8F 20 2A |22)...8'E.3 :. *|
000000A0: 2A 2A 20 52 41 53 54 45 52 41 42 53 54 41 4E 44 |** RASTERABSTAND|
000000B0: 20 31 2D 37 34 00 E2 1C 42 27 53 B2 34 20 3A 8F | 1-74...B'S.4 :.|
000000C0: 20 2A 2A 2A 20 41 4E 46 41 4E 47 20 44 45 52 20 | *** ANFANG DER |
000000D0: 47 52 41 50 48 49 43 20 4C 49 4E 4B 53 20 28 35 |GRAPHIC LINKS (5|
000000E0: 30 29 00 17 1D 43 27 8F 20 2A 2A 2A 20 20 41 54 |0)...C'. *** AT|
000000F0: 54 45 4E 54 49 4F 4E 20 20 2A 2A 2A 20 20 42 2A |TENTION *** B*|
00000100: 43 2B 42 2A 45 2B 53 20 4D 55 53 53 20 3C 3D 20 |C+B*E+S MUSS <= |
00000110: 37 35 20 53 45 49 4E 00 1D 1D 44 27 3A 00 5A 1D |75 SEIN...D':.Z.|
00000120: 4C 27 8F 20 42 45 4E 55 54 5A 54 45 20 56 41 52 |L'. BENUTZTE VAR|
00000130: 49 41 42 4C 45 4E 20 2A 2A 2A 2A 2A 2A 20 20 57 |IABLEN ****** W|
00000140: 45 28 58 29 20 2F 20 4C 57 28 58 29 20 2F 20 49 |E(X) / LW(X) / I|
00000150: 56 28 58 29 20 2F 20 41 2D 56 00 7C 1D 56 27 83 |V(X) / A-V.|.V'.|
00000160: 20 31 36 34 2C 31 37 35 2C 31 38 35 2C 31 36 32 | 164,175,185,162|
00000170: 2C 31 38 34 2C 31 38 33 2C 31 36 33 00 B5 1D 60 |,184,183,163...`|
00000180: 27 83 20 32 38 2C 31 35 30 2C 33 30 2C 31 35 33 |'. 28,150,30,153|
00000190: 2C 33 31 2C 31 35 34 2C 31 35 35 2C 35 2C 31 32 |,31,154,155,5,12|
000001A0: 39 2C 31 35 36 2C 31 35 31 2C 31 35 39 2C 31 34 |9,156,151,159,14|
000001B0: 39 2C 31 35 38 00 D2 1D 6A 27 8F 20 2A 2A 2A 20 |9,158...j'. *** |
000001C0: 5E 20 46 41 52 42 45 20 44 45 52 20 42 41 4C 4B |^ FARBE DER BALK|
000001D0: 45 4E 00 EE 1D 74 27 FE 25 3A 20 20 86 57 45 28 |EN...t'.%: .WE(|
000001E0: 42 29 2C 4C 57 28 42 29 2C 49 56 28 42 29 00 27 |B),LW(B),IV(B).'|
000001F0: 1E 79 27 81 20 54 B2 31 20 A4 20 42 3A 57 45 28 |.y'. T.1 . B:WE(|
00000200: 54 29 B2 B5 28 BB 28 31 29 AC 33 35 30 29 3A 82 |T)..(.(1).350):.|
00000210: 3A 20 8F 20 2A 2A 2A 20 5A 55 46 41 4C 4C 53 47 |: . *** ZUFALLSG|
00000220: 45 4E 45 41 54 4F 52 00 55 1E 7E 27 E8 3A 20 99 |ENEATOR.U.~'.: .|
00000230: 20 A3 32 30 29 22 42 41 4C 4B 45 4E 44 49 41 47 | .20)"BALKENDIAG|
00000240: 52 41 4D 4D 20 57 49 52 44 20 45 52 52 45 43 48 |RAMM WIRD ERRECH|
00000250: 4E 45 54 22 3A 00 83 1E 88 27 47 B2 30 3A 81 20 |NET":....'G.0:. |
00000260: 48 B2 31 20 A4 20 42 3A 8F 20 2A 2A 2A 20 20 41 |H.1 . B:. *** A|
00000270: 4E 50 41 53 53 53 55 4E 47 20 44 45 52 20 57 45 |NPASSSUNG DER WE|
00000280: 52 54 45 00 95 1E 92 27 49 B2 30 3A 4C 57 28 31 |RTE....'I.0:LW(1|
00000290: 29 B2 31 34 36 00 B3 1E 9C 27 8B 20 57 45 28 48 |).146....'. WE(H|
000002A0: 29 AD 28 31 30 AE 49 29 B1 44 20 A7 20 49 B2 49 |).(10.I).D . I.I|
000002B0: AA 2E 33 00 D9 1E A6 27 8B 20 47 B3 49 20 A7 20 |..3....'. G.I . |
000002C0: 47 B2 49 3A 8F 20 2A 2A 2A 20 2B 30 2E 33 20 41 |G.I:. *** +0.3 A|
000002D0: 55 46 4C 4F 45 53 55 4E 47 00 F6 1E A7 27 8B 20 |UFLOESUNG....'. |
000002E0: 57 45 28 48 29 AD 28 31 30 AE 49 29 B1 44 20 A7 |WE(H).(10.I).D .|
000002F0: 20 31 30 31 34 30 00 FE 1E B0 27 82 20 48 00 39 | 10140....'. H.9|
00000300: 1F BA 27 81 20 48 B2 31 20 A4 20 42 3A 57 45 28 |..'. H.1 . B:WE(|
00000310: 48 29 B2 28 57 45 28 48 29 AD 28 31 30 AE 47 29 |H).(WE(H).(10.G)|
00000320: 29 3A 4A B2 B5 28 57 45 28 48 29 29 3A 8F 20 2A |):J..(WE(H)):. *|
00000330: 2A 2A 20 54 45 49 4C 45 52 00 60 1F C4 27 81 20 |** TEILER.`..'. |
00000340: 4B B2 30 20 A4 20 36 3A 8B 20 57 45 28 48 29 B1 |K.0 . 6:. WE(H).|
00000350: 4A AA 28 2E 31 34 32 AC 4B 29 20 A7 20 87 20 4C |J.(.142.K) . . L|
00000360: 00 7F 1F C5 27 49 56 28 48 29 B2 31 34 36 3A 8B |....'IV(H).146:.|
00000370: 20 4B B1 33 20 A7 20 49 56 28 48 29 B2 31 38 00 | K.3 . IV(H).18.|
00000380: BB 1F CE 27 82 4B 3A 8C 20 31 30 30 37 30 3A 4C |...'.K:. 10070:L|
00000390: 57 28 48 29 B2 4C 3A 4C B2 30 3A 82 20 48 3A 8F |W(H).L:L.0:. H:.|
000003A0: 20 2A 2A 2A 20 4C 45 54 5A 54 45 53 20 47 52 41 | *** LETZTES GRA|
000003B0: 50 48 2E 20 5A 45 49 43 48 45 4E 00 D4 1F D8 27 |PH. ZEICHEN....'|
000003C0: 81 20 48 B2 31 20 A4 20 42 3A 81 20 4D B2 30 20 |. H.1 . B:. M.0 |
000003D0: A4 20 32 33 00 17 20 E2 27 8B 20 B5 28 57 45 28 |. 23.. .'. .(WE(|
000003E0: 48 29 29 B2 4D 20 A7 20 57 45 28 48 29 B2 32 33 |H)).M . WE(H).23|
000003F0: AB 4D 3A 89 31 30 32 33 30 3A 8F 20 2A 2A 2A 20 |.M:.10230:. *** |
00000400: 52 45 5A 49 50 52 4F 4B 57 45 52 54 20 44 45 52 |REZIPROKWERT DER|
00000410: 20 5A 41 48 4C 45 4E 00 1F 20 EC 27 82 20 4D 00 | ZAHLEN.. .'. M.|
00000420: 27 20 F6 27 82 20 48 00 48 20 00 28 E8 3A 8F 20 |' .'. H.H .(.:. |
00000430: 4E 55 4D 4D 45 52 49 45 52 55 4E 47 20 44 45 52 |NUMMERIERUNG DER|
00000440: 20 59 2D 41 43 48 53 45 00 AD 20 0A 28 9E 35 32 | Y-ACHSE.. .(.52|
00000450: 33 33 32 2C 2C 32 32 AB 44 2C 32 3A 99 20 A3 53 |332,,22.D,2:. .S|
00000460: 29 22 05 3E 20 49 4E 44 45 58 4D 55 4C 54 49 50 |)".> INDEXMULTIP|
00000470: 4C 49 4B 41 54 4F 52 20 3D 22 20 B5 28 28 31 30 |LIKATOR =" .((10|
00000480: AE 47 29 AC 32 AA 2E 35 29 AD 32 3B 22 3C 1E 22 |.G).2..5).2;"<."|
00000490: 3A 8F 20 2A 2A 2A 20 41 4E 5A 2E 44 45 53 20 4D |:. *** ANZ.DES M|
000004A0: 55 4C 54 49 50 4C 49 4B 41 54 4F 52 53 00 EB 20 |ULTIPLIKATORS.. |
000004B0: 14 28 81 20 48 B2 44 20 A4 20 31 20 A9 20 AB 31 |.(. H.D . 1 . .1|
000004C0: 3A 8B 20 48 B3 31 30 20 A7 20 99 20 A3 53 AB 34 |:. H.10 . . .S.4|
000004D0: 29 22 05 22 48 22 1E A4 22 3A D5 99 20 A3 53 AB |)"."H"..":.. .S.|
000004E0: 34 29 22 9D 05 22 48 22 1E A4 22 00 F3 20 1E 28 |4)".."H"..".. .(|
000004F0: 82 20 48 00 07 21 1F 28 9E 20 35 32 33 33 32 2C |. H..!.(. 52332,|
00000500: 2C 32 33 2C 53 AB 31 00 46 21 28 28 81 20 48 B2 |,23,S.1.F!((. H.|
00000510: 31 20 A4 20 28 42 AC 45 29 AA 28 43 AB 45 29 AA |1 . (B.E).(C.E).|
00000520: 32 3A 99 22 1E D4 22 3B 3A 82 48 3A 99 3A 8F 20 |2:."..";:.H:.:. |
00000530: 2A 2A 4E 55 4D 4D 45 52 49 45 52 55 4E 47 20 58 |**NUMMERIERUNG X|
00000540: 2D 41 43 48 53 45 00 87 21 32 28 99 20 A3 53 AA |-ACHSE..!2(. .S.|
00000550: 31 29 3A 81 20 54 B2 31 20 A4 20 28 42 AC 45 29 |1):. T.1 . (B.E)|
00000560: AA 53 3A 8B 20 45 B1 31 20 20 A7 20 81 20 55 B2 |.S:. E.1 . . U.|
00000570: 31 20 A4 20 31 30 3A 56 B2 32 3A 8B 20 55 B2 31 |1 . 10:V.2:. U.1|
00000580: 30 20 A7 20 55 B2 30 00 99 21 3C 28 8B 20 45 B3 |0 . U.0..!<(. E.|
00000590: 32 20 A7 20 31 30 33 33 30 00 D6 21 46 28 EB 20 |2 . 10330..!F(. |
000005A0: FD 20 56 B3 45 20 AF 20 54 B1 31 3A 99 22 20 22 |. V.E . T.1:." "|
000005B0: 3B 3A 56 B2 56 AA 31 3A EC 3A 54 B2 54 AA 45 3A |;:V.V.1:.:T.T.E:|
000005C0: 99 22 05 9D 22 55 3B 3A 8B 20 54 B1 42 AC 45 20 |.".."U;:. T.B.E |
000005D0: A7 31 30 33 35 30 00 04 22 50 28 82 55 2C 54 3A |.10350.."P(.U,T:|
000005E0: 8F 20 2A 2A 2A 20 45 49 4E 54 45 49 4C 55 4E 47 |. *** EINTEILUNG|
000005F0: 20 42 45 49 20 42 41 4C 4B 45 4E 41 42 53 54 41 | BEI BALKENABSTA|
00000600: 4E 44 3C 31 00 45 22 5A 28 49 B2 30 3A 81 20 48 |ND<1.E"Z(I.0:. H|
00000610: B2 31 20 A4 20 42 AC 45 20 3A 49 B2 49 AA 31 3A |.1 . B.E :I.I.1:|
00000620: 99 22 05 22 CA 28 22 31 32 33 34 35 36 37 38 39 |.".".("123456789|
00000630: 30 22 2C 49 2C 31 29 3B 3A 8B 20 49 B2 31 30 20 |0",I,1);:. I.10 |
00000640: A7 20 49 B2 30 00 4D 22 64 28 82 20 48 00 A8 22 |. I.0.M"d(. H.."|
00000650: 6E 28 4E B2 30 3A 4F B2 30 3A 8C 20 31 30 30 38 |n(N.0:O.0:. 1008|
00000660: 30 3A 81 20 48 B2 31 20 A4 28 42 AC 45 29 20 A9 |0:. H.1 .(B.E) .|
00000670: 20 45 3A 87 20 52 20 3A 4F B2 4F AA 31 3A 8B 20 | E:. R :O.O.1:. |
00000680: 4F B2 41 20 A7 4F B2 30 3A 8C 20 31 30 30 38 30 |O.A .O.0:. 10080|
00000690: 3A 8F 20 2A 2A 2A 20 42 41 4C 4B 45 4E 46 41 52 |:. *** BALKENFAR|
000006A0: 42 45 20 4C 45 53 45 4E 00 B2 22 78 28 4E B2 4E |BE LESEN.."x(N.N|
000006B0: AA 31 00 CA 22 82 28 81 20 50 B2 32 32 20 A4 20 |.1..".(. P.22 . |
000006C0: 57 45 28 4E 29 20 A9 20 AB 31 00 DC 22 8C 28 9E |WE(N) . .1..".(.|
000006D0: 35 32 33 33 32 2C 2C 50 2C 48 AA 53 00 35 23 96 |52332,,P,H.S.5#.|
000006E0: 28 8B 20 57 45 28 4E 29 B1 32 32 20 A7 31 30 34 |(. WE(N).22 .104|
000006F0: 30 30 3A D5 20 99 20 C7 28 52 29 3B C7 28 31 38 |00:. . .(R);.(18|
00000700: 29 3B 3A 81 20 46 B2 31 20 A4 20 43 3A 99 20 C7 |);:. F.1 . C:. .|
00000710: 28 33 32 29 3B 3A 82 46 3A 8F 20 2A 2A 2A 20 47 |(32);:.F:. *** G|
00000720: 52 55 4E 44 42 41 4C 4B 45 4E 20 44 41 52 53 54 |RUNDBALKEN DARST|
00000730: 45 4C 4C 45 4E 00 56 23 A0 28 82 20 50 3A 8B 20 |ELLEN.V#.(. P:. |
00000740: 57 45 28 4E 29 B2 32 33 20 A7 20 51 B2 50 AA 31 |WE(N).23 . Q.P.1|
00000750: 3A D5 20 51 B2 50 00 CE 23 AA 28 9E 20 35 32 33 |:. Q.P..#.(. 523|
00000760: 33 32 2C 2C 51 2C 48 AA 53 3A 99 20 C7 28 52 29 |32,,Q,H.S:. .(R)|
00000770: 3B C7 28 49 56 28 4E 29 29 3B 3A 81 20 46 B2 31 |;.(IV(N));:. F.1|
00000780: 20 A4 20 43 3A 99 20 C7 28 33 32 29 3B 3A 82 46 | . C:. .(32);:.F|
00000790: 2C 48 3A 8F 20 2A 2A 2A 20 47 52 41 50 48 49 53 |,H:. *** GRAPHIS|
000007A0: 43 48 45 53 20 5A 45 49 43 48 45 4E 20 41 55 46 |CHES ZEICHEN AUF|
000007B0: 53 45 54 5A 45 4E 20 28 4E 4F 52 4D 41 4C 20 43 |SETZEN (NORMAL C|
000007C0: 48 52 24 28 4C 57 28 4E 29 2D 37 30 29 29 00 17 |HR$(LW(N)-70))..|
000007D0: 24 B4 28 A1 F9 20 57 24 3A E8 3A 81 20 48 B2 31 |$.(.. W$:.:. H.1|
000007E0: 20 A4 20 42 3A 4C 57 28 48 29 B2 30 3A 57 45 28 | . B:LW(H).0:WE(|
000007F0: 48 29 B2 30 3A 49 56 28 48 29 B2 30 3A 82 20 48 |H).0:IV(H).0:. H|
00000800: 3A 8F 20 2A 2A 2A 56 41 52 49 41 42 4C 45 20 4C |:. ***VARIABLE L|
00000810: 4F 45 53 43 48 45 4E 00 37 24 BE 28 8F 20 2A 20 |OESCHEN.7$.(. * |
00000820: 52 45 54 55 52 4E 20 42 45 49 20 55 4E 54 45 52 |RETURN BEI UNTER|
00000830: 52 4F 55 54 49 4E 45 00 00 00 |ROUTINE... |
..'..'A.14:. *** FARBWIEDERHOLZYKL.(14).
M..'B.22:. *** ANZAHL DER BALKEN (70).N.
$'C.2 :. *** BALKENBREITE 1-74....'D.20:
. *** HOEHE DER BALKEN (22)...8'E.3 :. *
** RASTERABSTAND 1-74...B'S.4 :. *** ANF
ANG DER GRAPHIC LINKS (50)...C'. *** AT
TENTION *** B*C+B*E+S MUSS <= 75 SEIN.
..D':.Z.L'. BENUTZTE VARIABLEN ****** W
E(X) / LW(X) / IV(X) / A-V.|.V'. 164,175
,185,162,184,183,163...`'. 28,150,30,153
,31,154,155,5,129,156,151,159,149,158.R.
J'. *** ^ FARBE DER BALKEN...T'.%: .WE(
B),LW(B),IV(B).'.Y'. T.1 . B:WE(T)..(.(1
).350):.: . *** ZUFALLSGENEATOR.U.~'.: .
.20)"BALKENDIAGRAMM WIRD ERRECHNET":...
.'G.0:. H.1 . B:. *** ANPASSSUNG DER WE
RTE....'I.0:LW(1).146....'. WE(H).(10.I)
.D . I.I..3.Y..'. G.I . G.I:. *** +0.3 A
UFLOESUNG....'. WE(H).(10.I).D . 10140..
..'. H.9..'. H.1 . B:WE(H).(WE(H).(10.G)
):J..(WE(H)):. *** TEILER.`.D'. K.0 . 6:
. WE(H).J.(.142.K) . . L..E'IV(H).146:.
K.3 . IV(H).18...N'.K:. 10070:LW(H).L:L
.0:. H:. *** LETZTES GRAPH. ZEICHEN.T.X'
. H.1 . B:. M.0 . 23.. .'. .(WE(H)).M .
WE(H).23.M:.10230:. *** REZIPROKWERT DER
ZAHLEN.. .'. M.' .'. H.H .(.:. NUMMERIE
RUNG DER Y-ACHSE.. .(.52332,,22.D,2:. .S
)".> INDEXMULTIPLIKATOR =" .((10.G).2..5
).2;"<.":. *** ANZ.DES MULTIPLIKATORS..
.(. H.D . 1 . .1:. H.10 . . .S.4)"."H"..
":U. .S.4)".."H"..".. .(. H..!.(. 52332,
,23,S.1.F!((. H.1 . (B.E).(C.E).2:.".T";
:.H:.:. **NUMMERIERUNG X-ACHSE..!2(. .S.
1):. T.1 . (B.E).S:. E.1 . . U.1 . 10:V
.2:. U.10 . U.0..!<(. E.2 . 10330.V!F(.
. V.E . T.1:." ";:V.V.1:.:T.T.E:.".."U;:
. T.B.E .10350.."P(.U,T:. *** EINTEILUNG
BEI BALKENABSTAND<1.E"Z(I.0:. H.1 . B.E
:I.I.1:."."J("1234567890",I,1);:. I.10
. I.0.M"D(. H.."N(N.0:O.0:. 10080:. H.1
.(B.E) . E:. R :O.O.1:. O.A .O.0:. 10080
:. *** BALKENFARBE LESEN.."X(N.N.1.J".(.
P.22 . WE(N) . .1..".(.52332,,P,H.S.5#.
(. WE(N).22 .10400:U . G(R);G(18);:. F.1
. C:. G(32);:.F:. *** GRUNDBALKEN DARST
ELLEN.V# (. P:. WE(N).23 . Q.P.1:U Q.P.N
#.(. 52332,,Q,H.S:. G(R);G(IV(N));:. F.1
. C:. G(32);:.F,H:. *** GRAPHISCHES ZEI
CHEN AUFSETZEN (NORMAL CHR$(LW(N)-70))..
$.(.. W$:.:. H.1 . B:LW(H).0:WE(H).0:IV(
H).0:. H:. ***VARIABLE LOESCHEN.7$.(. *
RETURN BEI UNTERROUTINE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL