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

ETCHART

FILE INFORMATION

FILENAME(S): ETCHART

FILE TYPE(S): PRG

FILE SIZE: 1.6K

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

APPEARS ON: 1 disk(s)

FILE HASH

c012b8ea8ec6ef559a693be83e2191808b8f404f9b93a5f95eb88df0d7585f25

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 ETCHART PRG DuncanTwain 6 20 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 36 2C  |VWXYZ".CURSOR16,|
00000070: 30 0D 4D 4F 44 55 53 31  0D 50 52 49 4E 54 22 CE  |0.MODUS1.PRINT".|
00000080: 45 54 43 48 41 52 54 22  0D 4D 4F 44 55 53 30 0D  |ETCHART".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 31 32  |ENANZAHL (MAX.12|
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 32 2C 22  |SOR29,5.INPUT2,"|
00000130: 30 31 32 33 34 35 36 37  38 39 30 20 22 2C 4E 0D  |01234567890 ",N.|
00000140: 49 46 4E 3C 32 4F 52 4E  3E 31 32 3A 45 49 4E 47  |IFN<2ORN>12:EING|
00000150: 41 42 45 0D 44 49 4D 45  28 4E 29 2C 50 28 4E 29  |ABE.DIME(N),P(N)|
00000160: 0D 57 49 4E 44 4F 57 32  2C 31 30 2C 33 36 2C 31  |.WINDOW2,10,36,1|
00000170: 34 0D 53 49 47 4E 34 30  0D 44 4F 55 4E 54 49 4C  |4.SIGN40.DOUNTIL|
00000180: 51 3D 35 0D 51 3D 51 2B  31 0D 4C 49 4E 45 31 2C  |Q=5.Q=Q+1.LINE1,|
00000190: 32 33 2C 38 30 2D 51 2C  33 30 33 2C 38 30 2D 51  |23,80-Q,303,80-Q|
000001A0: 0D 4C 49 4E 45 31 2C 33  30 33 2B 51 2C 37 35 2C  |.LINE1,303+Q,75,|
000001B0: 33 30 33 2B 51 2C 31 38  34 0D 4C 4F 4F 50 0D 51  |303+Q,184.LOOP.Q|
000001C0: 3D 30 0D 49 3D 30 0D 44  4F 55 4E 54 49 4C 49 3D  |=0.I=0.DOUNTILI=|
000001D0: 4E 0D 49 3D 49 2B 31 0D  43 55 52 53 4F 52 31 31  |N.I=I+1.CURSOR11|
000001E0: 2C 31 30 2B 49 0D 50 52  49 4E 54 22 D7 45 52 54  |,10+I.PRINT".ERT|
000001F0: 20 CE 52 2E 22 3B 49 3B  22 3A 22 0D 43 55 52 53  | .R.";I;":".CURS|
00000200: 4F 52 32 34 2C 31 30 2B  49 0D 49 4E 50 55 54 34  |OR24,10+I.INPUT4|
00000210: 2C 22 31 32 33 34 35 36  37 38 39 30 2E 20 22 2C  |,"1234567890. ",|
00000220: 45 28 49 29 0D 4C 4F 4F  50 0D 49 3D 30 0D 57 49  |E(I).LOOP.I=0.WI|
00000230: 4E 44 4F 57 31 2C 31 35  2C 33 38 2C 33 0D 44 4F  |NDOW1,15,38,3.DO|
00000240: 55 4E 54 49 4C 49 3D 35  0D 49 3D 49 2B 31 0D 4C  |UNTILI=5.I=I+1.L|
00000250: 49 4E 45 31 2C 31 35 2C  31 31 34 2B 49 2C 33 31  |INE1,15,114+I,31|
00000260: 31 2C 31 31 34 2B 49 0D  4C 49 4E 45 31 2C 33 31  |1,114+I.LINE1,31|
00000270: 30 2B 49 2C 31 31 35 2C  33 31 30 2B 49 2C 31 33  |0+I,115,310+I,13|
00000280: 37 0D 4C 4F 4F 50 0D 49  3D 30 0D 43 55 52 53 4F  |7.LOOP.I=0.CURSO|
00000290: 52 32 2C 31 36 0D 50 52  49 4E 54 22 CC 45 47 3A  |R2,16.PRINT".EG:|
000002A0: 22 0D 43 55 52 53 4F 52  36 2C 31 36 0D 49 4E 50  |".CURSOR6,16.INP|
000002B0: 55 54 33 32 2C 5A 5A 24  2C 54 45 24 0D 57 49 4E  |UT32,ZZ$,TE$.WIN|
000002C0: 44 4F 57 38 2C 31 34 2C  32 35 2C 35 0D 44 4F 55  |DOW8,14,25,5.DOU|
000002D0: 4E 54 49 4C 49 3D 35 0D  49 3D 49 2B 31 0D 4C 49  |NTILI=5.I=I+1.LI|
000002E0: 4E 45 31 2C 37 31 2C 31  31 32 2D 49 2C 32 36 33  |NE1,71,112-I,263|
000002F0: 2C 31 31 32 2D 49 0D 4C  49 4E 45 31 2C 32 36 33  |,112-I.LINE1,263|
00000300: 2B 49 2C 31 30 37 2C 32  36 33 2B 49 2C 31 34 34  |+I,107,263+I,144|
00000310: 0D 4C 4F 4F 50 0D 43 55  52 53 4F 52 31 30 2C 31  |.LOOP.CURSOR10,1|
00000320: 35 0D 50 52 49 4E 54 22  C8 4F 45 43 48 53 54 45  |5.PRINT".OECHSTE|
00000330: 52 20 D3 4B 41 4C 45 4E  57 45 52 54 3A 22 0D 3A  |R .KALENWERT:".:|
00000340: 4B 4F 52 52 45 4B 54 55  52 0D 43 55 52 53 4F 52  |KORREKTUR.CURSOR|
00000350: 31 37 2C 31 37 0D 49 4E  50 55 54 34 2C 22 30 31  |17,17.INPUT4,"01|
00000360: 32 33 34 35 36 37 38 39  2E 20 22 2C 4D 0D 49 46  |23456789. ",M.IF|
00000370: 4D 3C 31 30 3A 20 4B 4F  52 52 45 4B 54 55 52 0D  |M<10: KORREKTUR.|
00000380: 57 49 4E 44 4F 57 31 2C  31 2C 31 2C 31 0D 57 49  |WINDOW1,1,1,1.WI|
00000390: 4E 44 4F 57 0D 49 3D 30  0D 44 4F 55 4E 54 49 4C  |NDOW.I=0.DOUNTIL|
000003A0: 49 3D 4E 0D 49 3D 49 2B  31 0D 50 28 49 29 3D 49  |I=N.I=I+1.P(I)=I|
000003B0: 4E 54 28 31 38 30 2D 45  28 49 29 2F 4D 2A 37 35  |NT(180-E(I)/M*75|
000003C0: 29 0D 4C 4F 4F 50 0D 49  3D 30 0D 53 43 4E 43 4C  |).LOOP.I=0.SCNCL|
000003D0: 52 0D 43 55 52 53 4F 52  31 36 2C 30 0D 4D 4F 44  |R.CURSOR16,0.MOD|
000003E0: 55 53 31 0D 50 52 49 4E  54 22 CE 45 54 43 48 41  |US1.PRINT".ETCHA|
000003F0: 52 54 22 0D 4D 4F 44 55  53 30 0D 4C 49 4E 45 31  |RT".MODUS0.LINE1|
00000400: 2C 33 35 2C 31 38 30 2C  33 35 2C 31 30 37 0D 44  |,35,180,35,107.D|
00000410: 4F 55 4E 54 49 4C 49 3D  35 0D 55 3D 49 4E 54 28  |OUNTILI=5.U=INT(|
00000420: 31 38 30 2D 49 2A 31 38  2E 31 29 0D 4C 49 4E 45  |180-I*18.1).LINE|
00000430: 31 2C 33 33 2C 55 2C 33  37 2C 55 0D 49 3D 49 2B  |1,33,U,37,U.I=I+|
00000440: 31 0D 4C 4F 4F 50 0D 49  3D 30 0D 44 4F 55 4E 54  |1.LOOP.I=0.DOUNT|
00000450: 49 4C 49 3D 35 0D 57 45  3D 49 4E 54 28 4D 2F 31  |ILI=5.WE=INT(M/1|
00000460: 30 2A 49 2A 32 2E 35 29  0D 57 31 24 3D 53 54 52  |0*I*2.5).W1$=STR|
00000470: 24 28 57 45 29 0D 57 45  24 3D 4D 49 44 24 28 57  |$(WE).WE$=MID$(W|
00000480: 31 24 2C 32 2C 34 29 0D  49 46 57 45 3C 31 30 30  |1$,2,4).IFWE<100|
00000490: 30 0D 42 45 47 49 4E 0D  4C 3D 31 0D 45 4C 53 45  |0.BEGIN.L=1.ELSE|
000004A0: 0D 4C 3D 30 0D 45 4E 44  0D 50 4F 3D 49 4E 54 28  |.L=0.END.PO=INT(|
000004B0: 28 31 38 30 2D 49 2A 31  39 29 2F 38 29 0D 43 55  |(180-I*19)/8).CU|
000004C0: 52 53 4F 52 4C 2C 50 4F  0D 50 52 49 4E 54 57 45  |RSORL,PO.PRINTWE|
000004D0: 24 0D 49 3D 49 2B 31 0D  4C 4F 4F 50 0D 49 3D 30  |$.I=I+1.LOOP.I=0|
000004E0: 0D 4C 49 4E 45 31 2C 33  35 2C 31 38 30 2C 28 32  |.LINE1,35,180,(2|
000004F0: 33 2B 32 33 2A 4E 29 2C  31 38 30 0D 4C 49 4E 45  |3+23*N),180.LINE|
00000500: 31 2C 34 33 2C 31 37 39  2C 34 33 2C 31 38 31 0D  |1,43,179,43,181.|
00000510: 44 4F 55 4E 54 49 4C 49  3D 4E 2D 31 0D 49 3D 49  |DOUNTILI=N-1.I=I|
00000520: 2B 31 0D 55 3D 32 30 2B  32 33 2A 49 0D 56 3D 32  |+1.U=20+23*I.V=2|
00000530: 30 2B 55 0D 4C 49 4E 45  31 2C 56 2B 33 2C 31 37  |0+U.LINE1,V+3,17|
00000540: 39 2C 56 2B 33 2C 31 38  31 0D 4C 4F 4F 50 0D 49  |9,V+3,181.LOOP.I|
00000550: 3D 30 0D 44 4F 55 4E 54  49 4C 49 3D 4E 0D 49 3D  |=0.DOUNTILI=N.I=|
00000560: 49 2B 31 0D 55 3D 32 30  2B 32 33 2A 49 0D 4C 49  |I+1.U=20+23*I.LI|
00000570: 4E 45 31 2C 55 2C 50 28  49 29 2C 55 2C 50 28 49  |NE1,U,P(I),U,P(I|
00000580: 29 2D 39 35 0D 4C 4F 4F  50 0D 49 3D 30 0D 55 3D  |)-95.LOOP.I=0.U=|
00000590: 30 0D 56 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 4E  |0.V=0.DOUNTILI=N|
000005A0: 2D 31 0D 49 3D 49 2B 31  0D 55 3D 32 30 2B 32 33  |-1.I=I+1.U=20+23|
000005B0: 2A 49 0D 56 3D 32 33 2B  55 0D 4C 49 4E 45 31 2C  |*I.V=23+U.LINE1,|
000005C0: 55 2C 50 28 49 29 2C 56  2C 50 28 49 2B 31 29 0D  |U,P(I),V,P(I+1).|
000005D0: 4C 49 4E 45 31 2C 55 2C  50 28 49 29 2D 32 34 2C  |LINE1,U,P(I)-24,|
000005E0: 56 2C 50 28 49 2B 31 29  2D 32 34 0D 4C 49 4E 45  |V,P(I+1)-24.LINE|
000005F0: 31 2C 55 2C 50 28 49 29  2D 34 38 2C 56 2C 50 28  |1,U,P(I)-48,V,P(|
00000600: 49 2B 31 29 2D 34 38 0D  4C 49 4E 45 31 2C 55 2C  |I+1)-48.LINE1,U,|
00000610: 50 28 49 29 2D 37 32 2C  56 2C 50 28 49 2B 31 29  |P(I)-72,V,P(I+1)|
00000620: 2D 37 32 0D 4C 49 4E 45  31 2C 55 2C 50 28 49 29  |-72.LINE1,U,P(I)|
00000630: 2D 39 36 2C 56 2C 50 28  49 2B 31 29 2D 39 36 0D  |-96,V,P(I+1)-96.|
00000640: 4C 4F 4F 50 0D 49 3D 30  0D 43 55 52 53 4F 52 35  |LOOP.I=0.CURSOR5|
00000650: 2C 32 34 0D 50 52 49 4E  54 54 45 24 0D 44 4F 0D  |,24.PRINTTE$.DO.|
00000660: 4C 4F 4F 50 0D 45 4E 44  2E 0D 0D 00 5A           |LOOP.END....Z   |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR16,0.MODUS1
.PRINT"NETCHART".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.12):".:EIN
GABE.CURSOR29,5.INPUT2,"01234567890 ",N.
IFN<2ORN>12:EINGABE.DIME(N),P(N).WINDOW2
,10,36,14.SIGN40.DOUNTILQ=5.Q=Q+1.LINE1,
23,80-Q,303,80-Q.LINE1,303+Q,75,303+Q,18
4.LOOP.Q=0.I=0.DOUNTILI=N.I=I+1.CURSOR11
,10+I.PRINT"WERT NR.";I;":".CURSOR24,10+
I.INPUT4,"1234567890. ",E(I).LOOP.I=0.WI
NDOW1,15,38,3.DOUNTILI=5.I=I+1.LINE1,15,
114+I,311,114+I.LINE1,310+I,115,310+I,13
7.LOOP.I=0.CURSOR2,16.PRINT"LEG:".CURSOR
6,16.INPUT32,ZZ$,TE$.WINDOW8,14,25,5.DOU
NTILI=5.I=I+1.LINE1,71,112-I,263,112-I.L
INE1,263+I,107,263+I,144.LOOP.CURSOR10,1
5.PRINT"HOECHSTER SKALENWERT:".:KORREKTU
R.CURSOR17,17.INPUT4,"0123456789. ",M.IF
M<10: KORREKTUR.WINDOW1,1,1,1.WINDOW.I=0
.DOUNTILI=N.I=I+1.P(I)=INT(180-E(I)/M*75
).LOOP.I=0.SCNCLR.CURSOR16,0.MODUS1.PRIN
T"NETCHART".MODUS0.LINE1,35,180,35,107.D
OUNTILI=5.U=INT(180-I*18.1).LINE1,33,U,3
7,U.I=I+1.LOOP.I=0.DOUNTILI=5.WE=INT(M/1
0*I*2.5).W1$=STR$(WE).WE$=MID$(W1$,2,4).
IFWE<1000.BEGIN.L=1.ELSE.L=0.END.PO=INT(
(180-I*19)/8).CURSORL,PO.PRINTWE$.I=I+1.
LOOP.I=0.LINE1,35,180,(23+23*N),180.LINE
1,43,179,43,181.DOUNTILI=N-1.I=I+1.U=20+
23*I.V=20+U.LINE1,V+3,179,V+3,181.LOOP.I
=0.DOUNTILI=N.I=I+1.U=20+23*I.LINE1,U,P(
I),U,P(I)-95.LOOP.I=0.U=0.V=0.DOUNTILI=N
-1.I=I+1.U=20+23*I.V=23+U.LINE1,U,P(I),V
,P(I+1).LINE1,U,P(I)-24,V,P(I+1)-24.LINE
1,U,P(I)-48,V,P(I+1)-48.LINE1,U,P(I)-72,
V,P(I+1)-72.LINE1,U,P(I)-96,V,P(I+1)-96.
LOOP.I=0.CURSOR5,24.PRINTTE$.DO.LOOP.END
....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL