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

INCHART

FILE INFORMATION

FILENAME(S): INCHART

FILE TYPE(S): PRG

FILE SIZE: 1.5K

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

APPEARS ON: 1 disk(s)

FILE HASH

0969b2eea9a284ab77b9709cce5a316f078395a65e0a7ef865cdca9af59216b6

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 INCHART PRG DuncanTwain 7 8 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 CC  |0.MODUS1.PRINT".|
00000080: 49 4E 45 43 48 41 52 54  22 0D 4D 4F 44 55 53 30  |INECHART".MODUS0|
00000090: 0D 57 49 4E 44 4F 57 20  37 2C 34 2C 32 35 2C 33  |.WINDOW 7,4,25,3|
000000A0: 0D 51 3D 30 0D 44 4F 55  4E 54 49 4C 51 3D 35 0D  |.Q=0.DOUNTILQ=5.|
000000B0: 51 3D 51 2B 31 0D 4C 49  4E 45 31 2C 36 33 2C 33  |Q=Q+1.LINE1,63,3|
000000C0: 32 2D 51 2C 32 35 35 2C  33 32 2D 51 0D 4C 49 4E  |2-Q,255,32-Q.LIN|
000000D0: 45 31 2C 32 35 35 2B 51  2C 32 37 2C 32 35 35 2B  |E1,255+Q,27,255+|
000000E0: 51 2C 34 38 0D 4C 4F 4F  50 0D 51 3D 30 0D 43 55  |Q,48.LOOP.Q=0.CU|
000000F0: 52 53 4F 52 38 2C 35 0D  50 52 49 4E 54 22 C4 41  |RSOR8,5.PRINT".A|
00000100: 54 45 4E 41 4E 5A 41 48  4C 20 28 4D 41 58 2E 31  |TENANZAHL (MAX.1|
00000110: 32 29 3A 22 0D 3A 45 49  4E 47 41 42 45 0D 43 55  |2):".:EINGABE.CU|
00000120: 52 53 4F 52 32 39 2C 35  0D 49 4E 50 55 54 32 2C  |RSOR29,5.INPUT2,|
00000130: 22 30 31 32 33 34 35 36  37 38 39 30 20 22 2C 4E  |"01234567890 ",N|
00000140: 0D 49 46 4E 3C 32 4F 52  4E 3E 31 32 3A 45 49 4E  |.IFN<2ORN>12:EIN|
00000150: 47 41 42 45 0D 44 49 4D  45 28 4E 29 2C 50 28 4E  |GABE.DIME(N),P(N|
00000160: 29 0D 57 49 4E 44 4F 57  32 2C 31 30 2C 33 36 2C  |).WINDOW2,10,36,|
00000170: 31 34 0D 53 49 47 4E 34  30 0D 44 4F 55 4E 54 49  |14.SIGN40.DOUNTI|
00000180: 4C 51 3D 35 0D 51 3D 51  2B 31 0D 4C 49 4E 45 31  |LQ=5.Q=Q+1.LINE1|
00000190: 2C 32 33 2C 38 30 2D 51  2C 33 30 33 2C 38 30 2D  |,23,80-Q,303,80-|
000001A0: 51 0D 4C 49 4E 45 31 2C  33 30 33 2B 51 2C 37 35  |Q.LINE1,303+Q,75|
000001B0: 2C 33 30 33 2B 51 2C 31  38 34 0D 4C 4F 4F 50 0D  |,303+Q,184.LOOP.|
000001C0: 51 3D 30 0D 49 3D 30 0D  44 4F 55 4E 54 49 4C 49  |Q=0.I=0.DOUNTILI|
000001D0: 3D 4E 0D 49 3D 49 2B 31  0D 43 55 52 53 4F 52 31  |=N.I=I+1.CURSOR1|
000001E0: 31 2C 31 30 2B 49 0D 50  52 49 4E 54 22 D7 45 52  |1,10+I.PRINT".ER|
000001F0: 54 20 CE 52 2E 22 3B 49  3B 22 3A 22 0D 43 55 52  |T .R.";I;":".CUR|
00000200: 53 4F 52 32 34 2C 31 30  2B 49 0D 49 4E 50 55 54  |SOR24,10+I.INPUT|
00000210: 34 2C 22 31 32 33 34 35  36 37 38 39 30 2E 20 22  |4,"1234567890. "|
00000220: 2C 45 28 49 29 0D 4C 4F  4F 50 0D 49 3D 30 0D 57  |,E(I).LOOP.I=0.W|
00000230: 49 4E 44 4F 57 31 2C 31  35 2C 33 38 2C 33 0D 44  |INDOW1,15,38,3.D|
00000240: 4F 55 4E 54 49 4C 49 3D  35 0D 49 3D 49 2B 31 0D  |OUNTILI=5.I=I+1.|
00000250: 4C 49 4E 45 31 2C 31 35  2C 31 31 34 2B 49 2C 33  |LINE1,15,114+I,3|
00000260: 31 31 2C 31 31 34 2B 49  0D 4C 49 4E 45 31 2C 33  |11,114+I.LINE1,3|
00000270: 31 30 2B 49 2C 31 31 35  2C 33 31 30 2B 49 2C 31  |10+I,115,310+I,1|
00000280: 33 37 0D 4C 4F 4F 50 0D  49 3D 30 0D 43 55 52 53  |37.LOOP.I=0.CURS|
00000290: 4F 52 32 2C 31 36 0D 50  52 49 4E 54 22 CC 45 47  |OR2,16.PRINT".EG|
000002A0: 3A 22 0D 43 55 52 53 4F  52 36 2C 31 36 0D 49 4E  |:".CURSOR6,16.IN|
000002B0: 50 55 54 33 32 2C 5A 5A  24 2C 54 45 24 0D 57 49  |PUT32,ZZ$,TE$.WI|
000002C0: 4E 44 4F 57 38 2C 31 34  2C 32 35 2C 35 0D 44 4F  |NDOW8,14,25,5.DO|
000002D0: 55 4E 54 49 4C 49 3D 35  0D 49 3D 49 2B 31 0D 4C  |UNTILI=5.I=I+1.L|
000002E0: 49 4E 45 31 2C 37 31 2C  31 31 32 2D 49 2C 32 36  |INE1,71,112-I,26|
000002F0: 33 2C 31 31 32 2D 49 0D  4C 49 4E 45 31 2C 32 36  |3,112-I.LINE1,26|
00000300: 33 2B 49 2C 31 30 37 2C  32 36 33 2B 49 2C 31 34  |3+I,107,263+I,14|
00000310: 34 0D 4C 4F 4F 50 0D 43  55 52 53 4F 52 31 30 2C  |4.LOOP.CURSOR10,|
00000320: 31 35 0D 50 52 49 4E 54  22 C8 4F 45 43 48 53 54  |15.PRINT".OECHST|
00000330: 45 52 20 D3 4B 41 4C 45  4E 57 45 52 54 3A 22 0D  |ER .KALENWERT:".|
00000340: 3A 4B 4F 52 52 45 4B 54  55 52 0D 43 55 52 53 4F  |:KORREKTUR.CURSO|
00000350: 52 31 37 2C 31 37 0D 49  4E 50 55 54 34 2C 22 30  |R17,17.INPUT4,"0|
00000360: 31 32 33 34 35 36 37 38  39 2E 20 22 2C 4D 0D 49  |123456789. ",M.I|
00000370: 46 4D 3C 31 30 3A 20 4B  4F 52 52 45 4B 54 55 52  |FM<10: KORREKTUR|
00000380: 0D 57 49 4E 44 4F 57 31  2C 31 2C 31 2C 31 0D 57  |.WINDOW1,1,1,1.W|
00000390: 49 4E 44 4F 57 0D 49 3D  30 0D 44 4F 55 4E 54 49  |INDOW.I=0.DOUNTI|
000003A0: 4C 49 3D 4E 0D 49 3D 49  2B 31 0D 50 28 49 29 3D  |LI=N.I=I+1.P(I)=|
000003B0: 49 4E 54 28 31 38 30 2D  45 28 49 29 2F 4D 2A 31  |INT(180-E(I)/M*1|
000003C0: 35 30 29 0D 4C 4F 4F 50  0D 49 3D 30 0D 53 43 4E  |50).LOOP.I=0.SCN|
000003D0: 43 4C 52 0D 43 55 52 53  4F 52 31 35 2C 30 0D 4D  |CLR.CURSOR15,0.M|
000003E0: 4F 44 55 53 31 0D 50 52  49 4E 54 22 CC 49 4E 45  |ODUS1.PRINT".INE|
000003F0: 43 48 41 52 54 22 0D 4D  4F 44 55 53 30 0D 4C 49  |CHART".MODUS0.LI|
00000400: 4E 45 31 2C 33 35 2C 31  38 30 2C 33 35 2C 33 30  |NE1,35,180,35,30|
00000410: 0D 44 4F 55 4E 54 49 4C  49 3D 36 0D 55 3D 31 38  |.DOUNTILI=6.U=18|
00000420: 30 2D 49 2A 33 30 0D 4C  49 4E 45 31 2C 33 33 2C  |0-I*30.LINE1,33,|
00000430: 55 2C 33 37 2C 55 0D 49  3D 49 2B 31 0D 4C 4F 4F  |U,37,U.I=I+1.LOO|
00000440: 50 0D 49 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 36  |P.I=0.DOUNTILI=6|
00000450: 0D 57 45 3D 49 4E 54 28  4D 2F 31 30 2A 49 2A 32  |.WE=INT(M/10*I*2|
00000460: 29 0D 57 31 24 3D 53 54  52 24 28 57 45 29 0D 57  |).W1$=STR$(WE).W|
00000470: 45 24 3D 4D 49 44 24 28  57 31 24 2C 32 2C 34 29  |E$=MID$(W1$,2,4)|
00000480: 0D 49 46 57 45 3C 31 30  30 30 0D 42 45 47 49 4E  |.IFWE<1000.BEGIN|
00000490: 0D 4C 3D 31 0D 45 4C 53  45 0D 4C 3D 30 0D 45 4E  |.L=1.ELSE.L=0.EN|
000004A0: 44 0D 50 4F 3D 49 4E 54  28 28 31 38 30 2D 49 2A  |D.PO=INT((180-I*|
000004B0: 33 30 29 2F 38 29 0D 43  55 52 53 4F 52 4C 2C 50  |30)/8).CURSORL,P|
000004C0: 4F 0D 50 52 49 4E 54 57  45 24 0D 49 3D 49 2B 31  |O.PRINTWE$.I=I+1|
000004D0: 0D 4C 4F 4F 50 0D 49 3D  30 0D 4C 49 4E 45 31 2C  |.LOOP.I=0.LINE1,|
000004E0: 33 35 2C 31 38 30 2C 28  32 33 2B 32 33 2A 4E 29  |35,180,(23+23*N)|
000004F0: 2D 39 2C 31 38 30 0D 44  4F 55 4E 54 49 4C 49 3D  |-9,180.DOUNTILI=|
00000500: 4E 2D 32 0D 49 3D 49 2B  31 0D 55 3D 31 32 2B 32  |N-2.I=I+1.U=12+2|
00000510: 33 2A 49 0D 56 3D 32 33  2B 55 0D 4C 49 4E 45 31  |3*I.V=23+U.LINE1|
00000520: 2C 56 2B 33 2C 31 37 39  2C 56 2B 33 2C 31 38 31  |,V+3,179,V+3,181|
00000530: 0D 4C 4F 4F 50 0D 49 3D  30 0D 44 4F 55 4E 54 49  |.LOOP.I=0.DOUNTI|
00000540: 4C 49 3D 4E 2D 31 0D 49  3D 49 2B 31 0D 55 3D 31  |LI=N-1.I=I+1.U=1|
00000550: 32 2B 32 33 2A 49 0D 56  3D 32 33 2B 55 0D 4C 49  |2+23*I.V=23+U.LI|
00000560: 4E 45 31 2C 55 2C 50 28  49 29 2C 56 2C 50 28 49  |NE1,U,P(I),V,P(I|
00000570: 2B 31 29 0D 4C 49 4E 45  31 2C 55 2B 31 2C 50 28  |+1).LINE1,U+1,P(|
00000580: 49 29 2B 31 2C 56 2B 31  2C 50 28 49 2B 31 29 2B  |I)+1,V+1,P(I+1)+|
00000590: 31 0D 4C 49 4E 45 31 2C  55 2B 32 2C 50 28 49 29  |1.LINE1,U+2,P(I)|
000005A0: 2B 32 2C 56 2B 32 2C 50  28 49 2B 31 29 2B 32 0D  |+2,V+2,P(I+1)+2.|
000005B0: 4C 4F 4F 50 0D 55 3D 55  2B 32 30 0D 4C 49 4E 45  |LOOP.U=U+20.LINE|
000005C0: 31 2C 56 2B 33 2C 31 38  30 2C 56 2B 33 2C 28 50  |1,V+3,180,V+3,(P|
000005D0: 28 4E 29 2B 32 29 0D 43  55 52 53 4F 52 36 2C 31  |(N)+2).CURSOR6,1|
000005E0: 0D 50 52 49 4E 54 54 45  24 0D 43 55 52 53 4F 52  |.PRINTTE$.CURSOR|
000005F0: 34 2C 32 33 0D 49 4E 50  55 54 33 32 2C 5A 5A 24  |4,23.INPUT32,ZZ$|
00000600: 2C 54 46 24 0D 43 55 52  53 4F 52 34 2C 32 33 0D  |,TF$.CURSOR4,23.|
00000610: 50 52 49 4E 54 54 46 24  0D 44 4F 0D 4C 4F 4F 50  |PRINTTF$.DO.LOOP|
00000620: 0D 45 4E 44 2E 0D 0D 00  5A                       |.END....Z       |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR15,0.MODUS1
.PRINT"LINECHART".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.CU
RSOR8,5.PRINT"DATENANZAHL (MAX.12):".:EI
NGABE.CURSOR29,5.INPUT2,"01234567890 ",N
.IFN<2ORN>12:EINGABE.DIME(N),P(N).WINDOW
2,10,36,14.SIGN40.DOUNTILQ=5.Q=Q+1.LINE1
,23,80-Q,303,80-Q.LINE1,303+Q,75,303+Q,1
84.LOOP.Q=0.I=0.DOUNTILI=N.I=I+1.CURSOR1
1,10+I.PRINT"WERT NR.";I;":".CURSOR24,10
+I.INPUT4,"1234567890. ",E(I).LOOP.I=0.W
INDOW1,15,38,3.DOUNTILI=5.I=I+1.LINE1,15
,114+I,311,114+I.LINE1,310+I,115,310+I,1
37.LOOP.I=0.CURSOR2,16.PRINT"LEG:".CURSO
R6,16.INPUT32,ZZ$,TE$.WINDOW8,14,25,5.DO
UNTILI=5.I=I+1.LINE1,71,112-I,263,112-I.
LINE1,263+I,107,263+I,144.LOOP.CURSOR10,
15.PRINT"HOECHSTER SKALENWERT:".:KORREKT
UR.CURSOR17,17.INPUT4,"0123456789. ",M.I
FM<10: KORREKTUR.WINDOW1,1,1,1.WINDOW.I=
0.DOUNTILI=N.I=I+1.P(I)=INT(180-E(I)/M*1
50).LOOP.I=0.SCNCLR.CURSOR15,0.MODUS1.PR
INT"LINECHART".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<10
00.BEGIN.L=1.ELSE.L=0.END.PO=INT((180-I*
30)/8).CURSORL,PO.PRINTWE$.I=I+1.LOOP.I=
0.LINE1,35,180,(23+23*N)-9,180.DOUNTILI=
N-2.I=I+1.U=12+23*I.V=23+U.LINE1,V+3,179
,V+3,181.LOOP.I=0.DOUNTILI=N-1.I=I+1.U=1
2+23*I.V=23+U.LINE1,U,P(I),V,P(I+1).LINE
1,U+1,P(I)+1,V+1,P(I+1)+1.LINE1,U+2,P(I)
+2,V+2,P(I+1)+2.LOOP.U=U+20.LINE1,V+3,18
0,V+3,(P(N)+2).CURSOR6,1.PRINTTE$.CURSOR
4,23.INPUT32,ZZ$,TF$.CURSOR4,23.PRINTTF$
.DO.LOOP.END....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL