_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

RDCHART

FILE INFORMATION

FILENAME(S): RDCHART

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 21:17:09

APPEARS ON: 1 disk(s)

FILE HASH

ee6dc13b63fd852d29e921cd2a15bc274996062b1f53db74578c237dfa01bef7

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 RDCHART PRG DuncanTwain 28 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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 D4  |0.MODUS1.PRINT".|
00000080: 52 45 4E 44 43 48 41 52  54 22 0D 4D 4F 44 55 53  |RENDCHART".MODUS|
00000090: 30 0D 57 49 4E 44 4F 57  20 37 2C 34 2C 32 35 2C  |0.WINDOW 7,4,25,|
000000A0: 33 0D 51 3D 30 0D 44 4F  55 4E 54 49 4C 51 3D 35  |3.Q=0.DOUNTILQ=5|
000000B0: 0D 51 3D 51 2B 31 0D 4C  49 4E 45 31 2C 36 33 2C  |.Q=Q+1.LINE1,63,|
000000C0: 33 32 2D 51 2C 32 35 35  2C 33 32 2D 51 0D 4C 49  |32-Q,255,32-Q.LI|
000000D0: 4E 45 31 2C 32 35 35 2B  51 2C 32 37 2C 32 35 35  |NE1,255+Q,27,255|
000000E0: 2B 51 2C 34 38 0D 4C 4F  4F 50 0D 51 3D 30 0D 43  |+Q,48.LOOP.Q=0.C|
000000F0: 55 52 53 4F 52 38 2C 35  0D 50 52 49 4E 54 22 C4  |URSOR8,5.PRINT".|
00000100: 41 54 45 4E 41 4E 5A 41  48 4C 20 28 4D 41 58 2E  |ATENANZAHL (MAX.|
00000110: 32 34 29 3A 22 0D 3A 45  49 4E 47 41 42 45 0D 43  |24):".:EINGABE.C|
00000120: 55 52 53 4F 52 32 39 2C  35 0D 49 4E 50 55 54 32  |URSOR29,5.INPUT2|
00000130: 2C 22 30 31 32 33 34 35  36 37 38 39 30 20 22 2C  |,"01234567890 ",|
00000140: 4E 0D 49 46 4E 3C 35 4F  52 4E 3E 32 34 3A 20 45  |N.IFN<5ORN>24: E|
00000150: 49 4E 47 41 42 45 0D 44  49 4D 45 28 4E 29 2C 50  |INGABE.DIME(N),P|
00000160: 28 4E 29 2C 51 28 4E 29  2C 54 28 4E 29 0D 57 49  |(N),Q(N),T(N).WI|
00000170: 4E 44 4F 57 32 2C 31 30  2C 33 36 2C 31 34 0D 53  |NDOW2,10,36,14.S|
00000180: 49 47 4E 34 30 0D 44 4F  55 4E 54 49 4C 51 3D 35  |IGN40.DOUNTILQ=5|
00000190: 0D 51 3D 51 2B 31 0D 4C  49 4E 45 31 2C 32 33 2C  |.Q=Q+1.LINE1,23,|
000001A0: 38 30 2D 51 2C 33 30 33  2C 38 30 2D 51 0D 4C 49  |80-Q,303,80-Q.LI|
000001B0: 4E 45 31 2C 33 30 33 2B  51 2C 37 35 2C 33 30 33  |NE1,303+Q,75,303|
000001C0: 2B 51 2C 31 38 34 0D 4C  4F 4F 50 0D 51 3D 30 0D  |+Q,184.LOOP.Q=0.|
000001D0: 49 3D 30 0D 4B 3D 30 0D  44 4F 55 4E 54 49 4C 49  |I=0.K=0.DOUNTILI|
000001E0: 3D 4E 0D 49 3D 49 2B 31  0D 4B 3D 4B 2B 31 0D 49  |=N.I=I+1.K=K+1.I|
000001F0: 46 49 3D 31 33 3A 4C 41  42 45 4C 31 0D 3A 4C 41  |FI=13:LABEL1.:LA|
00000200: 42 45 4C 33 0D 43 55 52  53 4F 52 31 31 2C 31 30  |BEL3.CURSOR11,10|
00000210: 2B 4B 0D 50 52 49 4E 54  22 D7 45 52 54 20 CE 52  |+K.PRINT".ERT .R|
00000220: 2E 22 3B 49 3B 22 3A 22  0D 43 55 52 53 4F 52 32  |.";I;":".CURSOR2|
00000230: 34 2C 31 30 2B 4B 0D 49  4E 50 55 54 34 2C 22 31  |4,10+K.INPUT4,"1|
00000240: 32 33 34 35 36 37 38 39  30 2E 20 22 2C 45 28 49  |234567890. ",E(I|
00000250: 29 0D 4C 4F 4F 50 0D 49  3D 30 0D 47 4F 54 4F 4C  |).LOOP.I=0.GOTOL|
00000260: 41 42 45 4C 32 0D 3A 4C  41 42 45 4C 31 0D 4A 3D  |ABEL2.:LABEL1.J=|
00000270: 30 0D 44 4F 55 4E 54 49  4C 4A 3D 31 32 0D 4A 3D  |0.DOUNTILJ=12.J=|
00000280: 4A 2B 31 0D 43 55 52 53  4F 52 31 31 2C 31 30 2B  |J+1.CURSOR11,10+|
00000290: 4A 0D 50 52 49 4E 54 22  20 20 20 20 20 20 20 20  |J.PRINT"        |
000002A0: 20 20 20 20 20 20 20 20  20 20 22 0D 4C 4F 4F 50  |          ".LOOP|
000002B0: 0D 4B 3D 4B 2D 31 32 0D  4A 3D 30 0D 47 4F 54 4F  |.K=K-12.J=0.GOTO|
000002C0: 4C 41 42 45 4C 33 0D 3A  4C 41 42 45 4C 32 0D 4A  |LABEL3.:LABEL2.J|
000002D0: 3D 30 0D 4B 3D 30 0D 49  3D 30 0D 57 49 4E 44 4F  |=0.K=0.I=0.WINDO|
000002E0: 57 31 2C 31 35 2C 33 38  2C 33 0D 44 4F 55 4E 54  |W1,15,38,3.DOUNT|
000002F0: 49 4C 49 3D 35 0D 49 3D  49 2B 31 0D 4C 49 4E 45  |ILI=5.I=I+1.LINE|
00000300: 31 2C 31 35 2C 31 31 34  2B 49 2C 33 31 31 2C 31  |1,15,114+I,311,1|
00000310: 31 34 2B 49 0D 4C 49 4E  45 31 2C 33 31 30 2B 49  |14+I.LINE1,310+I|
00000320: 2C 31 31 35 2C 33 31 30  2B 49 2C 31 33 37 0D 4C  |,115,310+I,137.L|
00000330: 4F 4F 50 0D 49 3D 30 0D  43 55 52 53 4F 52 32 2C  |OOP.I=0.CURSOR2,|
00000340: 31 36 0D 50 52 49 4E 54  22 CC 45 47 3A 22 0D 43  |16.PRINT".EG:".C|
00000350: 55 52 53 4F 52 36 2C 31  36 0D 49 4E 50 55 54 33  |URSOR6,16.INPUT3|
00000360: 32 2C 5A 5A 24 2C 54 45  24 0D 57 49 4E 44 4F 57  |2,ZZ$,TE$.WINDOW|
00000370: 38 2C 31 34 2C 32 35 2C  35 0D 44 4F 55 4E 54 49  |8,14,25,5.DOUNTI|
00000380: 4C 49 3D 35 0D 49 3D 49  2B 31 0D 4C 49 4E 45 31  |LI=5.I=I+1.LINE1|
00000390: 2C 37 31 2C 31 31 32 2D  49 2C 32 36 33 2C 31 31  |,71,112-I,263,11|
000003A0: 32 2D 49 0D 4C 49 4E 45  31 2C 32 36 33 2B 49 2C  |2-I.LINE1,263+I,|
000003B0: 31 30 37 2C 32 36 33 2B  49 2C 31 34 34 0D 4C 4F  |107,263+I,144.LO|
000003C0: 4F 50 0D 43 55 52 53 4F  52 31 30 2C 31 35 0D 50  |OP.CURSOR10,15.P|
000003D0: 52 49 4E 54 22 C8 4F 45  43 48 53 54 45 52 20 D3  |RINT".OECHSTER .|
000003E0: 4B 41 4C 45 4E 57 45 52  54 3A 22 0D 3A 4B 4F 52  |KALENWERT:".:KOR|
000003F0: 52 45 4B 54 55 52 0D 43  55 52 53 4F 52 31 37 2C  |REKTUR.CURSOR17,|
00000400: 31 37 0D 49 4E 50 55 54  34 2C 22 30 31 32 33 34  |17.INPUT4,"01234|
00000410: 35 36 37 38 39 2E 20 22  2C 4D 0D 49 46 4D 3C 31  |56789. ",M.IFM<1|
00000420: 30 3A 20 4B 4F 52 52 45  4B 54 55 52 0D 57 49 4E  |0: KORREKTUR.WIN|
00000430: 44 4F 57 31 2C 31 2C 31  2C 31 0D 57 49 4E 44 4F  |DOW1,1,1,1.WINDO|
00000440: 57 0D 49 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 4E  |W.I=0.DOUNTILI=N|
00000450: 0D 49 3D 49 2B 31 0D 50  28 49 29 3D 49 4E 54 28  |.I=I+1.P(I)=INT(|
00000460: 31 38 30 2D 45 28 49 29  2F 4D 2A 31 35 30 29 0D  |180-E(I)/M*150).|
00000470: 4C 4F 4F 50 0D 49 3D 31  0D 4A 3D 30 0D 44 4F 55  |LOOP.I=1.J=0.DOU|
00000480: 4E 54 49 4C 49 3D 4E 2D  31 0D 49 3D 49 2B 31 0D  |NTILI=N-1.I=I+1.|
00000490: 4A 3D 4A 2B 31 0D 54 28  4A 29 3D 49 4E 54 28 28  |J=J+1.T(J)=INT((|
000004A0: 45 28 49 2D 31 29 2B 45  28 49 29 2B 45 28 49 2B  |E(I-1)+E(I)+E(I+|
000004B0: 31 29 29 2F 33 29 0D 51  28 4A 29 3D 49 4E 54 28  |1))/3).Q(J)=INT(|
000004C0: 31 38 30 2D 54 28 4A 29  2F 4D 2A 31 35 30 29 0D  |180-T(J)/M*150).|
000004D0: 4C 4F 4F 50 0D 49 3D 30  0D 53 43 4E 43 4C 52 0D  |LOOP.I=0.SCNCLR.|
000004E0: 43 55 52 53 4F 52 31 35  2C 30 0D 4D 4F 44 55 53  |CURSOR15,0.MODUS|
000004F0: 31 0D 50 52 49 4E 54 22  D4 52 45 4E 44 43 48 41  |1.PRINT".RENDCHA|
00000500: 52 54 22 0D 4D 4F 44 55  53 30 0D 4C 49 4E 45 31  |RT".MODUS0.LINE1|
00000510: 2C 33 35 2C 31 38 30 2C  33 35 2C 33 30 0D 44 4F  |,35,180,35,30.DO|
00000520: 55 4E 54 49 4C 49 3D 36  0D 55 3D 31 38 30 2D 49  |UNTILI=6.U=180-I|
00000530: 2A 33 30 0D 4C 49 4E 45  31 2C 33 33 2C 55 2C 33  |*30.LINE1,33,U,3|
00000540: 37 2C 55 0D 49 3D 49 2B  31 0D 4C 4F 4F 50 0D 49  |7,U.I=I+1.LOOP.I|
00000550: 3D 30 0D 44 4F 55 4E 54  49 4C 49 3D 36 0D 57 45  |=0.DOUNTILI=6.WE|
00000560: 3D 49 4E 54 28 4D 2F 31  30 2A 49 2A 32 29 0D 57  |=INT(M/10*I*2).W|
00000570: 31 24 3D 53 54 52 24 28  57 45 29 0D 57 45 24 3D  |1$=STR$(WE).WE$=|
00000580: 4D 49 44 24 28 57 31 24  2C 32 2C 34 29 0D 49 46  |MID$(W1$,2,4).IF|
00000590: 57 45 3C 31 30 30 30 0D  42 45 47 49 4E 0D 4C 3D  |WE<1000.BEGIN.L=|
000005A0: 31 0D 45 4C 53 45 0D 4C  3D 30 0D 45 4E 44 0D 50  |1.ELSE.L=0.END.P|
000005B0: 4F 3D 49 4E 54 28 28 31  38 30 2D 49 2A 33 30 29  |O=INT((180-I*30)|
000005C0: 2F 38 29 0D 43 55 52 53  4F 52 4C 2C 50 4F 0D 50  |/8).CURSORL,PO.P|
000005D0: 52 49 4E 54 57 45 24 0D  49 3D 49 2B 31 0D 4C 4F  |RINTWE$.I=I+1.LO|
000005E0: 4F 50 0D 49 3D 30 0D 44  4F 55 4E 54 49 4C 49 3D  |OP.I=0.DOUNTILI=|
000005F0: 4E 0D 49 3D 49 2B 31 0D  55 3D 32 37 2B 31 32 2A  |N.I=I+1.U=27+12*|
00000600: 49 0D 4C 49 4E 45 31 2C  33 35 2C 31 38 30 2C 55  |I.LINE1,35,180,U|
00000610: 2C 31 38 30 0D 4C 4F 4F  50 0D 49 3D 30 0D 44 4F  |,180.LOOP.I=0.DO|
00000620: 55 4E 54 49 4C 49 3D 4E  0D 49 3D 49 2B 31 0D 55  |UNTILI=N.I=I+1.U|
00000630: 3D 32 37 2B 31 32 2A 49  0D 4C 49 4E 45 31 2C 55  |=27+12*I.LINE1,U|
00000640: 2C 31 37 39 2C 55 2C 31  38 31 0D 4C 4F 4F 50 0D  |,179,U,181.LOOP.|
00000650: 49 3D 30 0D 44 4F 55 4E  54 49 4C 49 3D 4E 0D 49  |I=0.DOUNTILI=N.I|
00000660: 3D 49 2B 31 0D 55 3D 32  37 2B 31 32 2A 49 0D 56  |=I+1.U=27+12*I.V|
00000670: 3D 32 37 2B 55 0D 49 46  45 28 49 29 3C 31 3A 4C  |=27+U.IFE(I)<1:L|
00000680: 41 42 45 4C 34 0D 42 4F  58 31 2C 55 2D 32 2C 50  |ABEL4.BOX1,U-2,P|
00000690: 28 49 29 2D 32 2C 55 2B  32 2C 50 28 49 29 2B 32  |(I)-2,U+2,P(I)+2|
000006A0: 0D 3A 4C 41 42 45 4C 35  0D 4C 4F 4F 50 0D 47 4F  |.:LABEL5.LOOP.GO|
000006B0: 54 4F 4C 41 42 45 4C 36  0D 3A 4C 41 42 45 4C 34  |TOLABEL6.:LABEL4|
000006C0: 0D 42 4F 58 31 2C 55 2D  32 2C 31 37 38 2C 55 2B  |.BOX1,U-2,178,U+|
000006D0: 32 2C 31 38 32 0D 47 4F  54 4F 4C 41 42 45 4C 35  |2,182.GOTOLABEL5|
000006E0: 0D 3A 4C 41 42 45 4C 36  0D 49 3D 30 0D 4A 3D 30  |.:LABEL6.I=0.J=0|
000006F0: 0D 4A 3D 31 0D 44 4F 55  4E 54 49 4C 4A 3D 4E 2D  |.J=1.DOUNTILJ=N-|
00000700: 32 0D 4A 3D 4A 2B 31 0D  55 3D 32 37 2B 31 32 2A  |2.J=J+1.U=27+12*|
00000710: 4A 0D 56 3D 31 32 2B 55  0D 4C 49 4E 45 31 2C 55  |J.V=12+U.LINE1,U|
00000720: 2C 51 28 4A 2D 31 29 2C  56 2C 51 28 4A 29 0D 4C  |,Q(J-1),V,Q(J).L|
00000730: 4F 4F 50 0D 43 55 52 53  4F 52 36 2C 31 0D 50 52  |OOP.CURSOR6,1.PR|
00000740: 49 4E 54 54 45 24 0D 42  4F 58 31 2C 34 39 2C 31  |INTTE$.BOX1,49,1|
00000750: 39 33 2C 35 34 2C 31 39  38 0D 43 55 52 53 4F 52  |93,54,198.CURSOR|
00000760: 37 2C 32 34 0D 50 52 49  4E 54 22 3D D2 45 41 4C  |7,24.PRINT"=.EAL|
00000770: 57 45 52 54 45 22 0D 4C  49 4E 45 31 2C 31 37 35  |WERTE".LINE1,175|
00000780: 2C 31 39 38 2C 31 38 30  2C 31 39 33 0D 4C 49 4E  |,198,180,193.LIN|
00000790: 45 31 2C 31 37 34 2C 31  39 38 2C 31 37 39 2C 31  |E1,174,198,179,1|
000007A0: 39 33 0D 4C 49 4E 45 31  2C 31 38 30 2C 31 39 33  |93.LINE1,180,193|
000007B0: 2C 31 38 35 2C 31 39 38  0D 4C 49 4E 45 31 2C 31  |,185,198.LINE1,1|
000007C0: 37 39 2C 31 39 33 2C 31  38 34 2C 31 39 38 0D 4C  |79,193,184,198.L|
000007D0: 49 4E 45 31 2C 31 38 35  2C 31 39 38 2C 31 39 30  |INE1,185,198,190|
000007E0: 2C 31 39 33 0D 4C 49 4E  45 31 2C 31 38 34 2C 31  |,193.LINE1,184,1|
000007F0: 39 38 2C 31 38 39 2C 31  39 33 0D 43 55 52 53 4F  |98,189,193.CURSO|
00000800: 52 32 34 2C 32 34 0D 50  52 49 4E 54 22 3D D4 52  |R24,24.PRINT"=.R|
00000810: 45 4E 44 4C 49 4E 49 45  22 0D 43 55 52 53 4F 52  |ENDLINIE".CURSOR|
00000820: 34 2C 32 33 0D 49 4E 50  55 54 33 36 2C 5A 5A 24  |4,23.INPUT36,ZZ$|
00000830: 2C 41 24 0D 43 55 52 53  4F 52 34 2C 32 33 0D 50  |,A$.CURSOR4,23.P|
00000840: 52 49 4E 54 41 24 0D 44  4F 0D 4C 4F 4F 50 0D 45  |RINTA$.DO.LOOP.E|
00000850: 4E 44 2E 0D 0D 00 5A                              |ND....Z         |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR15,0.MODUS1
.PRINT"TRENDCHART".MODUS0.WINDOW 7,4,25,
3.Q=0.DOUNTILQ=5.Q=Q+1.LINE1,63,32-Q,255
,32-Q.LINE1,255+Q,27,255+Q,48.LOOP.Q=0.C
URSOR8,5.PRINT"DATENANZAHL (MAX.24):".:E
INGABE.CURSOR29,5.INPUT2,"01234567890 ",
N.IFN<5ORN>24: EINGABE.DIME(N),P(N),Q(N)
,T(N).WINDOW2,10,36,14.SIGN40.DOUNTILQ=5
.Q=Q+1.LINE1,23,80-Q,303,80-Q.LINE1,303+
Q,75,303+Q,184.LOOP.Q=0.I=0.K=0.DOUNTILI
=N.I=I+1.K=K+1.IFI=13:LABEL1.:LABEL3.CUR
SOR11,10+K.PRINT"WERT NR.";I;":".CURSOR2
4,10+K.INPUT4,"1234567890. ",E(I).LOOP.I
=0.GOTOLABEL2.:LABEL1.J=0.DOUNTILJ=12.J=
J+1.CURSOR11,10+J.PRINT"                
  ".LOOP.K=K-12.J=0.GOTOLABEL3.:LABEL2.J
=0.K=0.I=0.WINDOW1,15,38,3.DOUNTILI=5.I=
I+1.LINE1,15,114+I,311,114+I.LINE1,310+I
,115,310+I,137.LOOP.I=0.CURSOR2,16.PRINT
"LEG:".CURSOR6,16.INPUT32,ZZ$,TE$.WINDOW
8,14,25,5.DOUNTILI=5.I=I+1.LINE1,71,112-
I,263,112-I.LINE1,263+I,107,263+I,144.LO
OP.CURSOR10,15.PRINT"HOECHSTER SKALENWER
T:".:KORREKTUR.CURSOR17,17.INPUT4,"01234
56789. ",M.IFM<10: KORREKTUR.WINDOW1,1,1
,1.WINDOW.I=0.DOUNTILI=N.I=I+1.P(I)=INT(
180-E(I)/M*150).LOOP.I=1.J=0.DOUNTILI=N-
1.I=I+1.J=J+1.T(J)=INT((E(I-1)+E(I)+E(I+
1))/3).Q(J)=INT(180-T(J)/M*150).LOOP.I=0
.SCNCLR.CURSOR15,0.MODUS1.PRINT"TRENDCHA
RT".MODUS0.LINE1,35,180,35,30.DOUNTILI=6
.U=180-I*30.LINE1,33,U,37,U.I=I+1.LOOP.I
=0.DOUNTILI=6.WE=INT(M/10*I*2).W1$=STR$(
WE).WE$=MID$(W1$,2,4).IFWE<1000.BEGIN.L=
1.ELSE.L=0.END.PO=INT((180-I*30)/8).CURS
ORL,PO.PRINTWE$.I=I+1.LOOP.I=0.DOUNTILI=
N.I=I+1.U=27+12*I.LINE1,35,180,U,180.LOO
P.I=0.DOUNTILI=N.I=I+1.U=27+12*I.LINE1,U
,179,U,181.LOOP.I=0.DOUNTILI=N.I=I+1.U=2
7+12*I.V=27+U.IFE(I)<1:LABEL4.BOX1,U-2,P
(I)-2,U+2,P(I)+2.:LABEL5.LOOP.GOTOLABEL6
.:LABEL4.BOX1,U-2,178,U+2,182.GOTOLABEL5
.:LABEL6.I=0.J=0.J=1.DOUNTILJ=N-2.J=J+1.
U=27+12*J.V=12+U.LINE1,U,Q(J-1),V,Q(J).L
OOP.CURSOR6,1.PRINTTE$.BOX1,49,193,54,19
8.CURSOR7,24.PRINT"=REALWERTE".LINE1,175
,198,180,193.LINE1,174,198,179,193.LINE1
,180,193,185,198.LINE1,179,193,184,198.L
INE1,185,198,190,193.LINE1,184,198,189,1
93.CURSOR24,24.PRINT"=TRENDLINIE".CURSOR
4,23.INPUT36,ZZ$,A$.CURSOR4,23.PRINTA$.D
O.LOOP.END....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL