IECHART

00000000: F3 2F 43 4C 52 0D 53 43  4E 43 4C 52 0D 53 49 47  |./CLR.SCNCLR.SIG|
00000010: 4E 34 30 0D 5A 5A 24 3D  22 24 25 C1 C2 C3 C4 C5  |N40.ZZ$="$%.....|
00000020: C6 C7 C8 C9 CA CB CC CD  CE CF D0 D1 D2 D3 D4 D5  |................|
00000030: D6 D7 D8 D9 DA 31 32 33  34 35 36 37 38 39 30 20  |.....1234567890 |
00000040: 22 0D 5A 5A 24 3D 5A 5A  24 2B 22 41 42 43 44 45  |".ZZ$=ZZ$+"ABCDE|
00000050: 46 47 48 49 4A 4B 4C 4D  4E 4F 50 51 52 53 54 55  |FGHIJKLMNOPQRSTU|
00000060: 56 57 58 59 5A 22 0D 43  55 52 53 4F 52 31 35 2C  |VWXYZ".CURSOR15,|
00000070: 30 0D 4D 4F 44 55 53 31  0D 50 52 49 4E 54 22 D0  |0.MODUS1.PRINT".|
00000080: 49 45 43 48 41 52 54 22  0D 4D 4F 44 55 53 30 0D  |IECHART".MODUS0.|
00000090: 57 49 4E 44 4F 57 20 37  2C 34 2C 32 35 2C 33 0D  |WINDOW 7,4,25,3.|
000000A0: 51 3D 30 0D 44 4F 55 4E  54 49 4C 51 3D 35 0D 51  |Q=0.DOUNTILQ=5.Q|
000000B0: 3D 51 2B 31 0D 4C 49 4E  45 31 2C 36 33 2C 33 32  |=Q+1.LINE1,63,32|
000000C0: 2D 51 2C 32 35 35 2C 33  32 2D 51 0D 4C 49 4E 45  |-Q,255,32-Q.LINE|
000000D0: 31 2C 32 35 35 2B 51 2C  32 37 2C 32 35 35 2B 51  |1,255+Q,27,255+Q|
000000E0: 2C 34 38 0D 4C 4F 4F 50  0D 51 3D 30 0D 43 55 52  |,48.LOOP.Q=0.CUR|
000000F0: 53 4F 52 38 2C 35 0D 50  52 49 4E 54 22 C4 41 54  |SOR8,5.PRINT".AT|
00000100: 45 4E 41 4E 5A 41 48 4C  20 28 4D 41 58 2E 30 39  |ENANZAHL (MAX.09|
00000110: 29 3A 22 0D 3A 45 49 4E  47 41 42 45 0D 43 55 52  |):".:EINGABE.CUR|
00000120: 53 4F 52 32 39 2C 35 0D  49 4E 50 55 54 31 2C 22  |SOR29,5.INPUT1,"|
00000130: 31 32 33 34 35 36 37 38  39 20 22 2C 4E 0D 49 46  |123456789 ",N.IF|
00000140: 4E 3C 32 3A 45 49 4E 47  41 42 45 0D 44 49 4D 45  |N<2:EINGABE.DIME|
00000150: 28 4E 29 2C 50 28 4E 29  2C 46 28 4E 29 2C 54 58  |(N),P(N),F(N),TX|
00000160: 24 28 4E 29 0D 57 49 4E  44 4F 57 32 2C 31 30 2C  |$(N).WINDOW2,10,|
00000170: 33 36 2C 31 31 0D 53 49  47 4E 34 30 0D 44 4F 55  |36,11.SIGN40.DOU|
00000180: 4E 54 49 4C 51 3D 35 0D  51 3D 51 2B 31 0D 4C 49  |NTILQ=5.Q=Q+1.LI|
00000190: 4E 45 31 2C 32 33 2C 38  30 2D 51 2C 33 30 33 2C  |NE1,23,80-Q,303,|
000001A0: 38 30 2D 51 0D 4C 49 4E  45 31 2C 33 30 33 2B 51  |80-Q.LINE1,303+Q|
000001B0: 2C 37 35 2C 33 30 33 2B  51 2C 31 36 30 0D 4C 4F  |,75,303+Q,160.LO|
000001C0: 4F 50 0D 51 3D 30 0D 49  3D 30 0D 44 4F 55 4E 54  |OP.Q=0.I=0.DOUNT|
000001D0: 49 4C 49 3D 4E 0D 49 3D  49 2B 31 0D 43 55 52 53  |ILI=N.I=I+1.CURS|
000001E0: 4F 52 33 2C 31 30 2B 49  0D 50 52 49 4E 54 22 D7  |OR3,10+I.PRINT".|
000001F0: 45 52 54 22 3B 49 3B 22  3A 22 0D 43 55 52 53 4F  |ERT";I;":".CURSO|
00000200: 52 31 31 2C 31 30 2B 49  0D 49 4E 50 55 54 37 2C  |R11,10+I.INPUT7,|
00000210: 22 31 32 33 34 35 36 37  38 39 30 2E 20 22 2C 45  |"1234567890. ",E|
00000220: 28 49 29 0D 52 45 28 49  29 3D 45 28 49 29 0D 43  |(I).RE(I)=E(I).C|
00000230: 55 52 53 4F 52 32 32 2C  31 30 2B 49 0D 50 52 49  |URSOR22,10+I.PRI|
00000240: 4E 54 22 D4 45 58 54 3A  22 0D 43 55 52 53 4F 52  |NT".EXT:".CURSOR|
00000250: 32 38 2C 31 30 2B 49 0D  49 4E 50 55 54 39 2C 5A  |28,10+I.INPUT9,Z|
00000260: 5A 24 2C 54 58 24 28 49  29 0D 4C 4F 4F 50 0D 49  |Z$,TX$(I).LOOP.I|
00000270: 3D 30 0D 57 49 4E 44 4F  57 31 2C 31 35 2C 33 38  |=0.WINDOW1,15,38|
00000280: 2C 33 0D 44 4F 55 4E 54  49 4C 49 3D 35 0D 49 3D  |,3.DOUNTILI=5.I=|
00000290: 49 2B 31 0D 4C 49 4E 45  31 2C 31 35 2C 31 31 34  |I+1.LINE1,15,114|
000002A0: 2B 49 2C 33 31 31 2C 31  31 34 2B 49 0D 4C 49 4E  |+I,311,114+I.LIN|
000002B0: 45 31 2C 33 31 30 2B 49  2C 31 31 35 2C 33 31 30  |E1,310+I,115,310|
000002C0: 2B 49 2C 31 33 37 0D 4C  4F 4F 50 0D 49 3D 30 0D  |+I,137.LOOP.I=0.|
000002D0: 43 55 52 53 4F 52 32 2C  31 36 0D 50 52 49 4E 54  |CURSOR2,16.PRINT|
000002E0: 22 CC 45 47 3A 22 0D 43  55 52 53 4F 52 36 2C 31  |".EG:".CURSOR6,1|
000002F0: 36 0D 49 4E 50 55 54 33  32 2C 5A 5A 24 2C 54 45  |6.INPUT32,ZZ$,TE|
00000300: 24 0D 57 49 4E 44 4F 57  38 2C 31 34 2C 32 35 2C  |$.WINDOW8,14,25,|
00000310: 35 0D 44 4F 55 4E 54 49  4C 49 3D 35 0D 49 3D 49  |5.DOUNTILI=5.I=I|
00000320: 2B 31 0D 4C 49 4E 45 31  2C 37 31 2C 31 31 32 2D  |+1.LINE1,71,112-|
00000330: 49 2C 32 36 33 2C 31 31  32 2D 49 0D 4C 49 4E 45  |I,263,112-I.LINE|
00000340: 31 2C 32 36 33 2B 49 2C  31 30 37 2C 32 36 33 2B  |1,263+I,107,263+|
00000350: 49 2C 31 34 34 0D 4C 4F  4F 50 0D 43 55 52 53 4F  |I,144.LOOP.CURSO|
00000360: 52 31 30 2C 31 35 0D 50  52 49 4E 54 22 3C D0 3E  |R10,15.PRINT"<.>|
00000370: 52 4F 5A 45 4E 54 20 2F  20 3C C1 3E 42 53 4F 4C  |ROZENT / <.>BSOL|
00000380: 55 54 22 0D 43 55 52 53  4F 52 32 30 2C 31 37 0D  |UT".CURSOR20,17.|
00000390: 49 4E 50 55 54 31 2C 22  C1 D0 22 2C 41 55 24 0D  |INPUT1,"..",AU$.|
000003A0: 57 49 4E 44 4F 57 31 2C  31 2C 31 2C 31 0D 57 49  |WINDOW1,1,1,1.WI|
000003B0: 4E 44 4F 57 0D 49 3D 30  0D 53 43 4E 43 4C 52 0D  |NDOW.I=0.SCNCLR.|
000003C0: 43 55 52 53 4F 52 31 35  2C 30 0D 4D 4F 44 55 53  |CURSOR15,0.MODUS|
000003D0: 31 0D 50 52 49 4E 54 22  D0 49 45 43 48 41 52 54  |1.PRINT".IECHART|
000003E0: 22 0D 4D 4F 44 55 53 30  0D 45 3D 30 0D 44 4F 55  |".MODUS0.E=0.DOU|
000003F0: 4E 54 49 4C 49 3D 4E 0D  49 3D 49 2B 31 0D 45 3D  |NTILI=N.I=I+1.E=|
00000400: 45 2B 45 28 49 29 0D 4C  4F 4F 50 0D 49 3D 30 0D  |E+E(I).LOOP.I=0.|
00000410: 44 4F 55 4E 54 49 4C 49  3D 4E 0D 49 3D 49 2B 31  |DOUNTILI=N.I=I+1|
00000420: 0D 45 28 49 29 3D 45 28  49 29 2F 45 2A 33 36 30  |.E(I)=E(I)/E*360|
00000430: 0D 4C 4F 4F 50 0D 49 3D  30 0D 45 3D 30 0D 44 4F  |.LOOP.I=0.E=0.DO|
00000440: 55 4E 54 49 4C 49 3D 4E  0D 49 3D 49 2B 31 0D 45  |UNTILI=N.I=I+1.E|
00000450: 3D 45 2B 45 28 49 29 0D  46 28 49 29 3D 45 0D 4C  |=E+E(I).F(I)=E.L|
00000460: 4F 4F 50 0D 49 3D 30 0D  44 4F 55 4E 54 49 4C 49  |OOP.I=0.DOUNTILI|
00000470: 3D 4E 0D 49 3D 49 2B 31  0D 50 28 49 29 3D 28 45  |=N.I=I+1.P(I)=(E|
00000480: 28 49 29 2F 45 29 2A 31  30 30 0D 4C 4F 4F 50 0D  |(I)/E)*100.LOOP.|
00000490: 49 3D 30 0D 4D 58 3D 39  35 0D 4D 59 3D 31 30 30  |I=0.MX=95.MY=100|
000004A0: 0D 52 3D 34 30 0D 4B 3D  32 2E 32 0D 50 49 3D 33  |.R=40.K=2.2.PI=3|
000004B0: 2E 31 34 31 35 39 36 32  33 0D 49 3D 30 0D 44 4F  |.14159623.I=0.DO|
000004C0: 55 4E 54 49 4C 49 3E 37  32 30 0D 49 3D 49 2B 31  |UNTILI>720.I=I+1|
000004D0: 0D 57 3D 49 2A 50 49 2F  31 38 30 0D 58 50 3D 4B  |.W=I*PI/180.XP=K|
000004E0: 2A 52 2A 43 4F 53 28 57  29 2B 4D 58 0D 59 50 3D  |*R*COS(W)+MX.YP=|
000004F0: 52 2A 53 49 4E 28 57 29  2B 4D 59 0D 49 3D 49 2B  |R*SIN(W)+MY.I=I+|
00000500: 31 30 0D 57 3D 49 2A 50  49 2F 31 38 30 0D 58 57  |10.W=I*PI/180.XW|
00000510: 3D 4B 2A 52 2A 43 4F 53  28 57 29 2B 4D 58 0D 59  |=K*R*COS(W)+MX.Y|
00000520: 57 3D 52 2A 53 49 4E 28  57 29 2B 4D 59 0D 4C 49  |W=R*SIN(W)+MY.LI|
00000530: 4E 45 31 2C 49 4E 54 28  58 50 29 2C 49 4E 54 28  |NE1,INT(XP),INT(|
00000540: 59 50 29 2C 49 4E 54 28  58 57 29 2C 49 4E 54 28  |YP),INT(XW),INT(|
00000550: 59 57 29 0D 4C 4F 4F 50  0D 49 3D 30 0D 44 4F 55  |YW).LOOP.I=0.DOU|
00000560: 4E 54 49 4C 49 3D 4E 0D  49 3D 49 2B 31 0D 58 3D  |NTILI=N.I=I+1.X=|
00000570: 4B 2A 52 2A 43 4F 53 28  50 49 2A 46 28 49 29 2F  |K*R*COS(PI*F(I)/|
00000580: 31 38 30 29 0D 59 3D 52  2A 53 49 4E 28 50 49 2A  |180).Y=R*SIN(PI*|
00000590: 46 28 49 29 2F 31 38 30  29 0D 58 50 3D 4D 58 2B  |F(I)/180).XP=MX+|
000005A0: 58 0D 59 50 3D 4D 59 2B  59 0D 4C 49 4E 45 31 2C  |X.YP=MY+Y.LINE1,|
000005B0: 49 4E 54 28 58 50 29 2C  49 4E 54 28 59 50 29 2C  |INT(XP),INT(YP),|
000005C0: 49 4E 54 28 4D 58 29 2C  49 4E 54 28 4D 59 29 0D  |INT(MX),INT(MY).|
000005D0: 4C 4F 4F 50 0D 49 3D 30  0D 44 4F 55 4E 54 49 4C  |LOOP.I=0.DOUNTIL|
000005E0: 49 3D 4E 0D 49 3D 49 2B  31 0D 57 3D 50 49 2A 28  |I=N.I=I+1.W=PI*(|
000005F0: 28 46 28 49 29 2D 46 28  49 2D 31 29 29 2F 32 2B  |(F(I)-F(I-1))/2+|
00000600: 46 28 49 2D 31 29 29 2F  31 38 30 0D 58 50 3D 4B  |F(I-1))/180.XP=K|
00000610: 2A 52 2A 32 2F 33 2A 43  4F 53 28 57 29 2B 4D 58  |*R*2/3*COS(W)+MX|
00000620: 0D 59 50 3D 52 2A 32 2F  33 2A 53 49 4E 28 57 29  |.YP=R*2/3*SIN(W)|
00000630: 2B 4D 59 0D 43 55 52 53  4F 52 49 4E 54 28 58 50  |+MY.CURSORINT(XP|
00000640: 2F 38 29 2C 49 4E 54 28  59 50 2F 38 29 0D 50 52  |/8),INT(YP/8).PR|
00000650: 49 4E 54 49 0D 4C 4F 4F  50 0D 49 3D 30 0D 43 55  |INTI.LOOP.I=0.CU|
00000660: 52 53 4F 52 36 2C 31 0D  50 52 49 4E 54 54 45 24  |RSOR6,1.PRINTTE$|
00000670: 0D 44 4F 55 4E 54 49 4C  49 3D 4E 0D 49 3D 49 2B  |.DOUNTILI=N.I=I+|
00000680: 31 0D 43 55 52 53 4F 52  32 35 2C 33 2B 49 0D 56  |1.CURSOR25,3+I.V|
00000690: 41 24 3D 53 54 52 24 28  49 29 0D 56 42 24 3D 4D  |A$=STR$(I).VB$=M|
000006A0: 49 44 24 28 56 41 24 2C  32 2C 31 29 0D 50 52 49  |ID$(VA$,2,1).PRI|
000006B0: 4E 54 22 28 22 3B 56 42  24 3B 22 29 3D 20 22 3B  |NT"(";VB$;")= ";|
000006C0: 54 58 24 28 49 29 0D 4C  4F 4F 50 0D 49 3D 30 0D  |TX$(I).LOOP.I=0.|
000006D0: 49 46 41 55 24 3D 22 C1  22 0D 42 45 47 49 4E 0D  |IFAU$=".".BEGIN.|
000006E0: 44 4F 55 4E 54 49 4C 49  3D 4E 0D 49 3D 49 2B 31  |DOUNTILI=N.I=I+1|
000006F0: 0D 43 55 52 53 4F 52 32  35 2C 31 33 2B 49 0D 56  |.CURSOR25,13+I.V|
00000700: 41 24 3D 53 54 52 24 28  49 29 0D 56 42 24 3D 4D  |A$=STR$(I).VB$=M|
00000710: 49 44 24 28 56 41 24 2C  32 2C 31 29 0D 50 52 49  |ID$(VA$,2,1).PRI|
00000720: 4E 54 22 28 22 3B 56 42  24 3B 22 29 3D 22 3B 52  |NT"(";VB$;")=";R|
00000730: 45 28 49 29 0D 4C 4F 4F  50 0D 47 4F 54 4F 20 45  |E(I).LOOP.GOTO E|
00000740: 4E 44 45 0D 45 4C 53 45  0D 44 4F 55 4E 54 49 4C  |NDE.ELSE.DOUNTIL|
00000750: 49 3D 4E 0D 49 3D 49 2B  31 0D 43 55 52 53 4F 52  |I=N.I=I+1.CURSOR|
00000760: 32 35 2C 31 33 2B 49 0D  56 41 24 3D 53 54 52 24  |25,13+I.VA$=STR$|
00000770: 28 49 29 0D 56 42 24 3D  4D 49 44 24 28 56 41 24  |(I).VB$=MID$(VA$|
00000780: 2C 32 2C 31 29 0D 56 43  24 3D 53 54 52 24 28 50  |,2,1).VC$=STR$(P|
00000790: 28 49 29 29 0D 56 44 24  3D 4C 45 46 54 24 28 56  |(I)).VD$=LEFT$(V|
000007A0: 43 24 2C 34 29 0D 50 52  49 4E 54 22 28 22 3B 56  |C$,4).PRINT"(";V|
000007B0: 42 24 3B 22 29 3D 22 3B  56 44 24 3B 22 20 25 22  |B$;")=";VD$;" %"|
000007C0: 0D 4C 4F 4F 50 0D 49 3D  30 0D 45 4E 44 0D 3A 45  |.LOOP.I=0.END.:E|
000007D0: 4E 44 45 0D 44 4F 0D 4C  4F 4F 50 0D 45 4E 44 2E  |NDE.DO.LOOP.END.|
000007E0: 0D 0D 00 5A                                       |...Z            |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR15,0.MODUS1
.PRINT"PIECHART".MODUS0.WINDOW 7,4,25,3.
Q=0.DOUNTILQ=5.Q=Q+1.LINE1,63,32-Q,255,3
2-Q.LINE1,255+Q,27,255+Q,48.LOOP.Q=0.CUR
SOR8,5.PRINT"DATENANZAHL (MAX.09):".:EIN
GABE.CURSOR29,5.INPUT1,"123456789 ",N.IF
N<2:EINGABE.DIME(N),P(N),F(N),TX$(N).WIN
DOW2,10,36,11.SIGN40.DOUNTILQ=5.Q=Q+1.LI
NE1,23,80-Q,303,80-Q.LINE1,303+Q,75,303+
Q,160.LOOP.Q=0.I=0.DOUNTILI=N.I=I+1.CURS
OR3,10+I.PRINT"WERT";I;":".CURSOR11,10+I
.INPUT7,"1234567890. ",E(I).RE(I)=E(I).C
URSOR22,10+I.PRINT"TEXT:".CURSOR28,10+I.
INPUT9,ZZ$,TX$(I).LOOP.I=0.WINDOW1,15,38
,3.DOUNTILI=5.I=I+1.LINE1,15,114+I,311,1
14+I.LINE1,310+I,115,310+I,137.LOOP.I=0.
CURSOR2,16.PRINT"LEG:".CURSOR6,16.INPUT3
2,ZZ$,TE$.WINDOW8,14,25,5.DOUNTILI=5.I=I
+1.LINE1,71,112-I,263,112-I.LINE1,263+I,
107,263+I,144.LOOP.CURSOR10,15.PRINT"<P>
ROZENT / <A>BSOLUT".CURSOR20,17.INPUT1,"
AP",AU$.WINDOW1,1,1,1.WINDOW.I=0.SCNCLR.
CURSOR15,0.MODUS1.PRINT"PIECHART".MODUS0
.E=0.DOUNTILI=N.I=I+1.E=E+E(I).LOOP.I=0.
DOUNTILI=N.I=I+1.E(I)=E(I)/E*360.LOOP.I=
0.E=0.DOUNTILI=N.I=I+1.E=E+E(I).F(I)=E.L
OOP.I=0.DOUNTILI=N.I=I+1.P(I)=(E(I)/E)*1
00.LOOP.I=0.MX=95.MY=100.R=40.K=2.2.PI=3
.14159623.I=0.DOUNTILI>720.I=I+1.W=I*PI/
180.XP=K*R*COS(W)+MX.YP=R*SIN(W)+MY.I=I+
10.W=I*PI/180.XW=K*R*COS(W)+MX.YW=R*SIN(
W)+MY.LINE1,INT(XP),INT(YP),INT(XW),INT(
YW).LOOP.I=0.DOUNTILI=N.I=I+1.X=K*R*COS(
PI*F(I)/180).Y=R*SIN(PI*F(I)/180).XP=MX+
X.YP=MY+Y.LINE1,INT(XP),INT(YP),INT(MX),
INT(MY).LOOP.I=0.DOUNTILI=N.I=I+1.W=PI*(
(F(I)-F(I-1))/2+F(I-1))/180.XP=K*R*2/3*C
OS(W)+MX.YP=R*2/3*SIN(W)+MY.CURSORINT(XP
/8),INT(YP/8).PRINTI.LOOP.I=0.CURSOR6,1.
PRINTTE$.DOUNTILI=N.I=I+1.CURSOR25,3+I.V
A$=STR$(I).VB$=MID$(VA$,2,1).PRINT"(";VB
$;")= ";TX$(I).LOOP.I=0.IFAU$="A".BEGIN.
DOUNTILI=N.I=I+1.CURSOR25,13+I.VA$=STR$(
I).VB$=MID$(VA$,2,1).PRINT"(";VB$;")=";R
E(I).LOOP.GOTO ENDE.ELSE.DOUNTILI=N.I=I+
1.CURSOR25,13+I.VA$=STR$(I).VB$=MID$(VA$
,2,1).VC$=STR$(P(I)).VD$=LEFT$(VC$,4).PR
INT"(";VB$;")=";VD$;" %".LOOP.I=0.END.:E
NDE.DO.LOOP.END....Z

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL