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

─OMCHART

FILE INFORMATION

FILENAME(S): ─OMCHART

FILE TYPE(S): PRG

FILE SIZE: 1.7K

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

APPEARS ON: 1 disk(s)

FILE HASH

5f55f6c704536204e69dc13e13a95926960a4cf3e0d2f48c90cae10d91bbdb54

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 ─OMCHART PRG DuncanTwain 8 14 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 34 2C  |VWXYZ".CURSOR14,|
00000070: 30 0D 4D 4F 44 55 53 31  0D 50 52 49 4E 54 22 C3  |0.MODUS1.PRINT".|
00000080: 4F 4D 50 41 52 45 43 48  41 52 54 22 0D 4D 4F 44  |OMPARECHART".MOD|
00000090: 55 53 30 0D 57 49 4E 44  4F 57 20 37 2C 34 2C 32  |US0.WINDOW 7,4,2|
000000A0: 35 2C 33 0D 51 3D 30 0D  44 4F 55 4E 54 49 4C 51  |5,3.Q=0.DOUNTILQ|
000000B0: 3D 35 0D 51 3D 51 2B 31  0D 4C 49 4E 45 31 2C 36  |=5.Q=Q+1.LINE1,6|
000000C0: 33 2C 33 32 2D 51 2C 32  35 35 2C 33 32 2D 51 0D  |3,32-Q,255,32-Q.|
000000D0: 4C 49 4E 45 31 2C 32 35  35 2B 51 2C 32 37 2C 32  |LINE1,255+Q,27,2|
000000E0: 35 35 2B 51 2C 34 38 0D  4C 4F 4F 50 0D 51 3D 30  |55+Q,48.LOOP.Q=0|
000000F0: 0D 43 55 52 53 4F 52 38  2C 35 0D 50 52 49 4E 54  |.CURSOR8,5.PRINT|
00000100: 22 C4 41 54 45 4E 41 4E  5A 41 48 4C 20 28 4D 41  |".ATENANZAHL (MA|
00000110: 58 2E 31 32 29 3A 22 0D  3A 45 49 4E 47 41 42 45  |X.12):".:EINGABE|
00000120: 0D 43 55 52 53 4F 52 32  39 2C 35 0D 49 4E 50 55  |.CURSOR29,5.INPU|
00000130: 54 32 2C 22 30 31 32 33  34 35 36 37 38 39 30 20  |T2,"01234567890 |
00000140: 22 2C 4E 0D 49 46 4E 3C  31 4F 52 4E 3E 31 32 3A  |",N.IFN<1ORN>12:|
00000150: 20 45 49 4E 47 41 42 45  0D 44 49 4D 45 28 4E 29  | EINGABE.DIME(N)|
00000160: 2C 50 28 4E 29 0D 57 49  4E 44 4F 57 32 2C 31 30  |,P(N).WINDOW2,10|
00000170: 2C 33 36 2C 31 34 0D 53  49 47 4E 34 30 0D 44 4F  |,36,14.SIGN40.DO|
00000180: 55 4E 54 49 4C 51 3D 35  0D 51 3D 51 2B 31 0D 4C  |UNTILQ=5.Q=Q+1.L|
00000190: 49 4E 45 31 2C 32 33 2C  38 30 2D 51 2C 33 30 33  |INE1,23,80-Q,303|
000001A0: 2C 38 30 2D 51 0D 4C 49  4E 45 31 2C 33 30 33 2B  |,80-Q.LINE1,303+|
000001B0: 51 2C 37 35 2C 33 30 33  2B 51 2C 31 38 34 0D 4C  |Q,75,303+Q,184.L|
000001C0: 4F 4F 50 0D 51 3D 30 0D  49 3D 30 0D 44 4F 55 4E  |OOP.Q=0.I=0.DOUN|
000001D0: 54 49 4C 49 3D 4E 0D 49  3D 49 2B 31 0D 43 55 52  |TILI=N.I=I+1.CUR|
000001E0: 53 4F 52 31 31 2C 31 30  2B 49 0D 50 52 49 4E 54  |SOR11,10+I.PRINT|
000001F0: 22 D7 45 52 54 20 CE 52  2E 22 3B 49 3B 22 3A 22  |".ERT .R.";I;":"|
00000200: 0D 43 55 52 53 4F 52 32  34 2C 31 30 2B 49 0D 49  |.CURSOR24,10+I.I|
00000210: 4E 50 55 54 35 2C 22 2B  2D 31 32 33 34 35 36 37  |NPUT5,"+-1234567|
00000220: 38 39 30 2E 20 22 2C 45  28 49 29 0D 4C 4F 4F 50  |890. ",E(I).LOOP|
00000230: 0D 49 3D 30 0D 57 49 4E  44 4F 57 31 2C 31 35 2C  |.I=0.WINDOW1,15,|
00000240: 33 38 2C 33 0D 44 4F 55  4E 54 49 4C 49 3D 35 0D  |38,3.DOUNTILI=5.|
00000250: 49 3D 49 2B 31 0D 4C 49  4E 45 31 2C 31 35 2C 31  |I=I+1.LINE1,15,1|
00000260: 31 34 2B 49 2C 33 31 31  2C 31 31 34 2B 49 0D 4C  |14+I,311,114+I.L|
00000270: 49 4E 45 31 2C 33 31 30  2B 49 2C 31 31 35 2C 33  |INE1,310+I,115,3|
00000280: 31 30 2B 49 2C 31 33 37  0D 4C 4F 4F 50 0D 49 3D  |10+I,137.LOOP.I=|
00000290: 30 0D 43 55 52 53 4F 52  32 2C 31 36 0D 50 52 49  |0.CURSOR2,16.PRI|
000002A0: 4E 54 22 CC 45 47 3A 22  0D 43 55 52 53 4F 52 36  |NT".EG:".CURSOR6|
000002B0: 2C 31 36 0D 49 4E 50 55  54 33 32 2C 5A 5A 24 2C  |,16.INPUT32,ZZ$,|
000002C0: 54 45 24 0D 57 49 4E 44  4F 57 38 2C 31 34 2C 32  |TE$.WINDOW8,14,2|
000002D0: 35 2C 35 0D 44 4F 55 4E  54 49 4C 49 3D 35 0D 49  |5,5.DOUNTILI=5.I|
000002E0: 3D 49 2B 31 0D 4C 49 4E  45 31 2C 37 31 2C 31 31  |=I+1.LINE1,71,11|
000002F0: 32 2D 49 2C 32 36 33 2C  31 31 32 2D 49 0D 4C 49  |2-I,263,112-I.LI|
00000300: 4E 45 31 2C 32 36 33 2B  49 2C 31 30 37 2C 32 36  |NE1,263+I,107,26|
00000310: 33 2B 49 2C 31 34 34 0D  4C 4F 4F 50 0D 43 55 52  |3+I,144.LOOP.CUR|
00000320: 53 4F 52 31 30 2C 31 35  0D 50 52 49 4E 54 22 C1  |SOR10,15.PRINT".|
00000330: 42 53 4F 4C 55 54 45 52  20 C8 4F 45 43 48 53 54  |BSOLUTER .OECHST|
00000340: 57 45 52 54 3A 22 0D 3A  4B 4F 52 52 45 4B 54 55  |WERT:".:KORREKTU|
00000350: 52 0D 43 55 52 53 4F 52  31 37 2C 31 37 0D 49 4E  |R.CURSOR17,17.IN|
00000360: 50 55 54 34 2C 22 30 31  32 33 34 35 36 37 38 39  |PUT4,"0123456789|
00000370: 20 22 2C 4D 0D 49 46 4D  3C 31 30 3A 4B 4F 52 52  | ",M.IFM<10:KORR|
00000380: 45 4B 54 55 52 0D 4D 49  3D 30 2D 4D 0D 57 49 4E  |EKTUR.MI=0-M.WIN|
00000390: 44 4F 57 31 2C 31 2C 31  2C 31 0D 57 49 4E 44 4F  |DOW1,1,1,1.WINDO|
000003A0: 57 0D 49 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 4E  |W.I=0.DOUNTILI=N|
000003B0: 0D 49 3D 49 2B 31 0D 49  46 45 28 49 29 3E 3D 30  |.I=I+1.IFE(I)>=0|
000003C0: 0D 42 45 47 49 4E 0D 50  28 49 29 3D 49 4E 54 28  |.BEGIN.P(I)=INT(|
000003D0: 31 30 35 2D 41 42 53 28  45 28 49 29 29 2F 4D 2A  |105-ABS(E(I))/M*|
000003E0: 37 35 29 0D 45 4C 53 45  0D 50 28 49 29 3D 49 4E  |75).ELSE.P(I)=IN|
000003F0: 54 28 31 30 35 2B 41 42  53 28 45 28 49 29 29 2F  |T(105+ABS(E(I))/|
00000400: 4D 2A 37 35 29 0D 45 4E  44 0D 4C 4F 4F 50 0D 49  |M*75).END.LOOP.I|
00000410: 3D 30 0D 53 43 4E 43 4C  52 0D 43 55 52 53 4F 52  |=0.SCNCLR.CURSOR|
00000420: 31 34 2C 30 0D 4D 4F 44  55 53 31 0D 50 52 49 4E  |14,0.MODUS1.PRIN|
00000430: 54 22 C3 4F 4D 50 41 52  45 43 48 41 52 54 22 0D  |T".OMPARECHART".|
00000440: 4D 4F 44 55 53 30 0D 4C  49 4E 45 31 2C 34 35 2C  |MODUS0.LINE1,45,|
00000450: 31 38 30 2C 34 35 2C 33  30 0D 44 4F 55 4E 54 49  |180,45,30.DOUNTI|
00000460: 4C 49 3D 35 0D 55 3D 49  4E 54 28 31 38 30 2D 49  |LI=5.U=INT(180-I|
00000470: 2A 33 37 2E 35 29 0D 4C  49 4E 45 31 2C 34 33 2C  |*37.5).LINE1,43,|
00000480: 55 2C 34 37 2C 55 0D 49  3D 49 2B 31 0D 4C 4F 4F  |U,47,U.I=I+1.LOO|
00000490: 50 0D 49 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 33  |P.I=0.DOUNTILI=3|
000004A0: 0D 57 45 3D 49 4E 54 28  4D 2F 35 2A 49 2A 32 2E  |.WE=INT(M/5*I*2.|
000004B0: 35 29 0D 50 4F 3D 49 4E  54 28 28 31 30 35 2D 49  |5).PO=INT((105-I|
000004C0: 2A 33 37 2E 35 29 2F 38  29 0D 43 55 52 53 4F 52  |*37.5)/8).CURSOR|
000004D0: 30 2C 50 4F 0D 50 52 49  4E 54 57 45 0D 49 3D 49  |0,PO.PRINTWE.I=I|
000004E0: 2B 31 0D 4C 4F 4F 50 0D  49 3D 30 0D 44 4F 55 4E  |+1.LOOP.I=0.DOUN|
000004F0: 54 49 4C 49 3D 33 0D 57  45 3D 49 4E 54 28 4D 49  |TILI=3.WE=INT(MI|
00000500: 2F 35 2A 49 2A 32 2E 35  29 0D 50 4F 3D 49 4E 54  |/5*I*2.5).PO=INT|
00000510: 28 28 31 30 35 2B 49 2A  33 37 2E 35 29 2F 38 29  |((105+I*37.5)/8)|
00000520: 0D 43 55 52 53 4F 52 30  2C 50 4F 0D 50 52 49 4E  |.CURSOR0,PO.PRIN|
00000530: 54 57 45 0D 49 3D 49 2B  31 0D 4C 4F 4F 50 0D 49  |TWE.I=I+1.LOOP.I|
00000540: 3D 30 0D 43 55 52 53 4F  52 30 2C 31 33 0D 50 52  |=0.CURSOR0,13.PR|
00000550: 49 4E 54 22 20 20 20 30  22 0D 43 55 52 53 4F 52  |INT"   0".CURSOR|
00000560: 30 2C 38 0D 50 52 49 4E  54 22 2B 22 0D 43 55 52  |0,8.PRINT"+".CUR|
00000570: 53 4F 52 30 2C 33 0D 50  52 49 4E 54 22 2B 22 0D  |SOR0,3.PRINT"+".|
00000580: 4C 49 4E 45 31 2C 34 35  2C 31 30 35 2C 35 35 2B  |LINE1,45,105,55+|
00000590: 32 30 2A 4E 2C 31 30 35  0D 44 4F 55 4E 54 49 4C  |20*N,105.DOUNTIL|
000005A0: 49 3D 4E 0D 49 3D 49 2B  31 0D 55 3D 33 33 2B 32  |I=N.I=I+1.U=33+2|
000005B0: 30 2A 49 0D 56 3D 31 35  2B 55 0D 49 46 45 28 49  |0*I.V=15+U.IFE(I|
000005C0: 29 3E 3D 30 41 4E 44 45  28 49 29 3C 31 4F 52 45  |)>=0ANDE(I)<1ORE|
000005D0: 28 49 29 3C 30 41 4E 44  45 28 49 29 3E 2D 31 3A  |(I)<0ANDE(I)>-1:|
000005E0: 57 45 49 54 45 52 0D 4C  49 4E 45 31 2C 55 2C 31  |WEITER.LINE1,U,1|
000005F0: 30 35 2C 55 2C 50 28 49  29 0D 4C 49 4E 45 31 2C  |05,U,P(I).LINE1,|
00000600: 55 2C 50 28 49 29 2C 56  2C 50 28 49 29 0D 4C 49  |U,P(I),V,P(I).LI|
00000610: 4E 45 31 2C 56 2C 50 28  49 29 2C 56 2C 31 30 35  |NE1,V,P(I),V,105|
00000620: 0D 47 4F 54 4F 20 53 43  48 4C 45 49 46 45 0D 3A  |.GOTO SCHLEIFE.:|
00000630: 57 45 49 54 45 52 0D 4C  49 4E 45 31 2C 55 2C 31  |WEITER.LINE1,U,1|
00000640: 30 34 2C 56 2C 31 30 34  0D 4C 49 4E 45 31 2C 55  |04,V,104.LINE1,U|
00000650: 2C 31 30 36 2C 56 2C 31  30 36 0D 3A 53 43 48 4C  |,106,V,106.:SCHL|
00000660: 45 49 46 45 0D 4C 4F 4F  50 0D 49 3D 30 0D 43 55  |EIFE.LOOP.I=0.CU|
00000670: 52 53 4F 52 36 2C 31 0D  50 52 49 4E 54 54 45 24  |RSOR6,1.PRINTTE$|
00000680: 0D 43 55 52 53 4F 52 36  2C 32 33 0D 49 4E 50 55  |.CURSOR6,23.INPU|
00000690: 54 33 32 2C 5A 5A 24 2C  54 46 24 0D 43 55 52 53  |T32,ZZ$,TF$.CURS|
000006A0: 4F 52 36 2C 32 33 0D 50  52 49 4E 54 54 46 24 0D  |OR6,23.PRINTTF$.|
000006B0: 44 4F 0D 4C 4F 4F 50 0D  45 4E 44 2E 0D 0D 00 5A  |DO.LOOP.END....Z|

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR14,0.MODUS1
.PRINT"COMPARECHART".MODUS0.WINDOW 7,4,2
5,3.Q=0.DOUNTILQ=5.Q=Q+1.LINE1,63,32-Q,2
55,32-Q.LINE1,255+Q,27,255+Q,48.LOOP.Q=0
.CURSOR8,5.PRINT"DATENANZAHL (MAX.12):".
:EINGABE.CURSOR29,5.INPUT2,"01234567890 
",N.IFN<1ORN>12: EINGABE.DIME(N),P(N).WI
NDOW2,10,36,14.SIGN40.DOUNTILQ=5.Q=Q+1.L
INE1,23,80-Q,303,80-Q.LINE1,303+Q,75,303
+Q,184.LOOP.Q=0.I=0.DOUNTILI=N.I=I+1.CUR
SOR11,10+I.PRINT"WERT NR.";I;":".CURSOR2
4,10+I.INPUT5,"+-1234567890. ",E(I).LOOP
.I=0.WINDOW1,15,38,3.DOUNTILI=5.I=I+1.LI
NE1,15,114+I,311,114+I.LINE1,310+I,115,3
10+I,137.LOOP.I=0.CURSOR2,16.PRINT"LEG:"
.CURSOR6,16.INPUT32,ZZ$,TE$.WINDOW8,14,2
5,5.DOUNTILI=5.I=I+1.LINE1,71,112-I,263,
112-I.LINE1,263+I,107,263+I,144.LOOP.CUR
SOR10,15.PRINT"ABSOLUTER HOECHSTWERT:".:
KORREKTUR.CURSOR17,17.INPUT4,"0123456789
 ",M.IFM<10:KORREKTUR.MI=0-M.WINDOW1,1,1
,1.WINDOW.I=0.DOUNTILI=N.I=I+1.IFE(I)>=0
.BEGIN.P(I)=INT(105-ABS(E(I))/M*75).ELSE
.P(I)=INT(105+ABS(E(I))/M*75).END.LOOP.I
=0.SCNCLR.CURSOR14,0.MODUS1.PRINT"COMPAR
ECHART".MODUS0.LINE1,45,180,45,30.DOUNTI
LI=5.U=INT(180-I*37.5).LINE1,43,U,47,U.I
=I+1.LOOP.I=0.DOUNTILI=3.WE=INT(M/5*I*2.
5).PO=INT((105-I*37.5)/8).CURSOR0,PO.PRI
NTWE.I=I+1.LOOP.I=0.DOUNTILI=3.WE=INT(MI
/5*I*2.5).PO=INT((105+I*37.5)/8).CURSOR0
,PO.PRINTWE.I=I+1.LOOP.I=0.CURSOR0,13.PR
INT"   0".CURSOR0,8.PRINT"+".CURSOR0,3.P
RINT"+".LINE1,45,105,55+20*N,105.DOUNTIL
I=N.I=I+1.U=33+20*I.V=15+U.IFE(I)>=0ANDE
(I)<1ORE(I)<0ANDE(I)>-1:WEITER.LINE1,U,1
05,U,P(I).LINE1,U,P(I),V,P(I).LINE1,V,P(
I),V,105.GOTO SCHLEIFE.:WEITER.LINE1,U,1
04,V,104.LINE1,U,106,V,106.:SCHLEIFE.LOO
P.I=0.CURSOR6,1.PRINTTE$.CURSOR6,23.INPU
T32,ZZ$,TF$.CURSOR6,23.PRINTTF$.DO.LOOP.
END....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL