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

OSCHART

FILE INFORMATION

FILENAME(S): OSCHART

FILE TYPE(S): PRG

FILE SIZE: 1.8K

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

APPEARS ON: 1 disk(s)

FILE HASH

c93793b71387d855ad9acf3ebd5cacc26191b79079ca2e4c7deac378b4297901

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 OSCHART PRG DuncanTwain 6 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 C8  |0.MODUS1.PRINT".|
00000080: 4F 53 54 43 48 41 52 54  22 0D 4D 4F 44 55 53 30  |OSTCHART".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 34  |TENANZAHL (MAX.4|
00000110: 38 29 3A 22 0D 3A 45 49  4E 47 41 42 45 0D 43 55  |8):".: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 31 4F 52  4E 3E 34 38 3A 20 45 49  |.IFN<1ORN>48: EI|
00000150: 4E 47 41 42 45 0D 44 49  4D 45 28 4E 29 2C 50 28  |NGABE.DIME(N),P(|
00000160: 4E 29 2C 51 28 4E 29 2C  54 28 4E 29 0D 57 49 4E  |N),Q(N),T(N).WIN|
00000170: 44 4F 57 32 2C 31 30 2C  33 36 2C 31 34 0D 53 49  |DOW2,10,36,14.SI|
00000180: 47 4E 34 30 0D 44 4F 55  4E 54 49 4C 51 3D 35 0D  |GN40.DOUNTILQ=5.|
00000190: 51 3D 51 2B 31 0D 4C 49  4E 45 31 2C 32 33 2C 38  |Q=Q+1.LINE1,23,8|
000001A0: 30 2D 51 2C 33 30 33 2C  38 30 2D 51 0D 4C 49 4E  |0-Q,303,80-Q.LIN|
000001B0: 45 31 2C 33 30 33 2B 51  2C 37 35 2C 33 30 33 2B  |E1,303+Q,75,303+|
000001C0: 51 2C 31 38 34 0D 4C 4F  4F 50 0D 51 3D 30 0D 49  |Q,184.LOOP.Q=0.I|
000001D0: 3D 30 0D 4B 3D 30 0D 44  4F 55 4E 54 49 4C 49 3D  |=0.K=0.DOUNTILI=|
000001E0: 4E 0D 49 3D 49 2B 31 0D  4B 3D 4B 2B 31 0D 49 46  |N.I=I+1.K=K+1.IF|
000001F0: 49 3D 31 33 4F 52 49 3D  32 35 4F 52 49 3D 33 37  |I=13ORI=25ORI=37|
00000200: 3A 4C 41 42 45 4C 31 0D  3A 4C 41 42 45 4C 33 0D  |:LABEL1.:LABEL3.|
00000210: 43 55 52 53 4F 52 31 31  2C 31 30 2B 4B 0D 50 52  |CURSOR11,10+K.PR|
00000220: 49 4E 54 22 D7 45 52 54  20 CE 52 2E 22 3B 49 3B  |INT".ERT .R.";I;|
00000230: 22 3A 22 0D 43 55 52 53  4F 52 32 34 2C 31 30 2B  |":".CURSOR24,10+|
00000240: 4B 0D 49 4E 50 55 54 34  2C 22 31 32 33 34 35 36  |K.INPUT4,"123456|
00000250: 37 38 39 30 2E 20 22 2C  45 28 49 29 0D 4C 4F 4F  |7890. ",E(I).LOO|
00000260: 50 0D 49 3D 30 0D 47 4F  54 4F 4C 41 42 45 4C 32  |P.I=0.GOTOLABEL2|
00000270: 0D 3A 4C 41 42 45 4C 31  0D 4A 3D 30 0D 44 4F 55  |.:LABEL1.J=0.DOU|
00000280: 4E 54 49 4C 4A 3D 31 32  0D 4A 3D 4A 2B 31 0D 43  |NTILJ=12.J=J+1.C|
00000290: 55 52 53 4F 52 31 31 2C  31 30 2B 4A 0D 50 52 49  |URSOR11,10+J.PRI|
000002A0: 4E 54 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |NT"             |
000002B0: 20 20 20 20 20 22 0D 4C  4F 4F 50 0D 4B 3D 4B 2D  |     ".LOOP.K=K-|
000002C0: 31 32 0D 4A 3D 30 0D 47  4F 54 4F 4C 41 42 45 4C  |12.J=0.GOTOLABEL|
000002D0: 33 0D 3A 4C 41 42 45 4C  32 0D 4A 3D 30 0D 4B 3D  |3.:LABEL2.J=0.K=|
000002E0: 30 0D 49 3D 30 0D 57 49  4E 44 4F 57 31 2C 31 35  |0.I=0.WINDOW1,15|
000002F0: 2C 33 38 2C 33 0D 44 4F  55 4E 54 49 4C 49 3D 35  |,38,3.DOUNTILI=5|
00000300: 0D 49 3D 49 2B 31 0D 4C  49 4E 45 31 2C 31 35 2C  |.I=I+1.LINE1,15,|
00000310: 31 31 34 2B 49 2C 33 31  31 2C 31 31 34 2B 49 0D  |114+I,311,114+I.|
00000320: 4C 49 4E 45 31 2C 33 31  30 2B 49 2C 31 31 35 2C  |LINE1,310+I,115,|
00000330: 33 31 30 2B 49 2C 31 33  37 0D 4C 4F 4F 50 0D 49  |310+I,137.LOOP.I|
00000340: 3D 30 0D 43 55 52 53 4F  52 32 2C 31 36 0D 50 52  |=0.CURSOR2,16.PR|
00000350: 49 4E 54 22 CC 45 47 3A  22 0D 43 55 52 53 4F 52  |INT".EG:".CURSOR|
00000360: 36 2C 31 36 0D 49 4E 50  55 54 33 32 2C 5A 5A 24  |6,16.INPUT32,ZZ$|
00000370: 2C 54 45 24 0D 57 49 4E  44 4F 57 38 2C 31 34 2C  |,TE$.WINDOW8,14,|
00000380: 32 35 2C 35 0D 44 4F 55  4E 54 49 4C 49 3D 35 0D  |25,5.DOUNTILI=5.|
00000390: 49 3D 49 2B 31 0D 4C 49  4E 45 31 2C 37 31 2C 31  |I=I+1.LINE1,71,1|
000003A0: 31 32 2D 49 2C 32 36 33  2C 31 31 32 2D 49 0D 4C  |12-I,263,112-I.L|
000003B0: 49 4E 45 31 2C 32 36 33  2B 49 2C 31 30 37 2C 32  |INE1,263+I,107,2|
000003C0: 36 33 2B 49 2C 31 34 34  0D 4C 4F 4F 50 0D 43 55  |63+I,144.LOOP.CU|
000003D0: 52 53 4F 52 31 30 2C 31  35 0D 50 52 49 4E 54 22  |RSOR10,15.PRINT"|
000003E0: C8 4F 45 43 48 53 54 45  52 20 D3 4B 41 4C 45 4E  |.OECHSTER .KALEN|
000003F0: 57 45 52 54 3A 22 0D 3A  4B 4F 52 52 45 4B 54 55  |WERT:".:KORREKTU|
00000400: 52 0D 43 55 52 53 4F 52  31 37 2C 31 37 0D 49 4E  |R.CURSOR17,17.IN|
00000410: 50 55 54 34 2C 22 30 31  32 33 34 35 36 37 38 39  |PUT4,"0123456789|
00000420: 2E 20 22 2C 4D 0D 49 46  4D 3C 31 30 3A 20 4B 4F  |. ",M.IFM<10: KO|
00000430: 52 52 45 4B 54 55 52 0D  57 49 4E 44 4F 57 31 2C  |RREKTUR.WINDOW1,|
00000440: 31 2C 31 2C 31 0D 57 49  4E 44 4F 57 0D 49 3D 30  |1,1,1.WINDOW.I=0|
00000450: 0D 44 4F 55 4E 54 49 4C  49 3D 4E 0D 49 3D 49 2B  |.DOUNTILI=N.I=I+|
00000460: 31 0D 50 28 49 29 3D 49  4E 54 28 31 38 30 2D 45  |1.P(I)=INT(180-E|
00000470: 28 49 29 2F 4D 2A 31 35  30 29 0D 4C 4F 4F 50 0D  |(I)/M*150).LOOP.|
00000480: 49 3D 30 0D 53 43 4E 43  4C 52 0D 43 55 52 53 4F  |I=0.SCNCLR.CURSO|
00000490: 52 31 35 2C 30 0D 4D 4F  44 55 53 31 0D 50 52 49  |R15,0.MODUS1.PRI|
000004A0: 4E 54 22 C8 4F 53 54 43  48 41 52 54 22 0D 4D 4F  |NT".OSTCHART".MO|
000004B0: 44 55 53 30 0D 4C 49 4E  45 31 2C 33 33 2C 31 38  |DUS0.LINE1,33,18|
000004C0: 30 2C 33 33 2C 33 30 0D  44 4F 55 4E 54 49 4C 49  |0,33,30.DOUNTILI|
000004D0: 3D 36 0D 55 3D 31 38 30  2D 49 2A 33 30 0D 4C 49  |=6.U=180-I*30.LI|
000004E0: 4E 45 31 2C 33 32 2C 55  2C 33 33 2C 55 0D 49 3D  |NE1,32,U,33,U.I=|
000004F0: 49 2B 31 0D 4C 4F 4F 50  0D 49 3D 30 0D 44 4F 55  |I+1.LOOP.I=0.DOU|
00000500: 4E 54 49 4C 49 3D 36 0D  57 45 3D 49 4E 54 28 4D  |NTILI=6.WE=INT(M|
00000510: 2F 31 30 2A 49 2A 32 29  0D 57 31 24 3D 53 54 52  |/10*I*2).W1$=STR|
00000520: 24 28 57 45 29 0D 57 45  24 3D 4D 49 44 24 28 57  |$(WE).WE$=MID$(W|
00000530: 31 24 2C 32 2C 34 29 0D  49 46 57 45 3C 31 30 30  |1$,2,4).IFWE<100|
00000540: 30 0D 42 45 47 49 4E 0D  4C 3D 31 0D 45 4C 53 45  |0.BEGIN.L=1.ELSE|
00000550: 0D 4C 3D 30 0D 45 4E 44  0D 50 4F 3D 49 4E 54 28  |.L=0.END.PO=INT(|
00000560: 28 31 38 30 2D 49 2A 33  30 29 2F 38 29 0D 43 55  |(180-I*30)/8).CU|
00000570: 52 53 4F 52 4C 2C 50 4F  0D 50 52 49 4E 54 57 45  |RSORL,PO.PRINTWE|
00000580: 24 0D 49 3D 49 2B 31 0D  4C 4F 4F 50 0D 49 3D 30  |$.I=I+1.LOOP.I=0|
00000590: 0D 44 4F 55 4E 54 49 4C  49 3D 4E 0D 49 3D 49 2B  |.DOUNTILI=N.I=I+|
000005A0: 31 0D 55 3D 33 30 2B 36  2A 49 0D 4C 49 4E 45 31  |1.U=30+6*I.LINE1|
000005B0: 2C 33 34 2C 31 38 30 2C  55 2B 31 2C 31 38 30 0D  |,34,180,U+1,180.|
000005C0: 4C 4F 4F 50 0D 49 3D 30  0D 44 4F 55 4E 54 49 4C  |LOOP.I=0.DOUNTIL|
000005D0: 49 3D 4E 0D 49 3D 49 2B  31 0D 55 3D 33 30 2B 36  |I=N.I=I+1.U=30+6|
000005E0: 2A 49 0D 56 3D 33 30 2B  55 0D 49 46 45 28 49 29  |*I.V=30+U.IFE(I)|
000005F0: 3C 31 3A 4C 41 42 45 4C  34 0D 4C 49 4E 45 31 2C  |<1:LABEL4.LINE1,|
00000600: 55 2D 31 2C 31 38 30 2C  55 2D 31 2C 50 28 49 29  |U-1,180,U-1,P(I)|
00000610: 0D 4C 49 4E 45 31 2C 55  2C 31 38 30 2C 55 2C 50  |.LINE1,U,180,U,P|
00000620: 28 49 29 0D 4C 49 4E 45  31 2C 55 2B 31 2C 31 38  |(I).LINE1,U+1,18|
00000630: 30 2C 55 2B 31 2C 50 28  49 29 0D 3A 4C 41 42 45  |0,U+1,P(I).:LABE|
00000640: 4C 35 0D 4C 4F 4F 50 0D  49 3D 30 0D 47 4F 54 4F  |L5.LOOP.I=0.GOTO|
00000650: 4C 41 42 45 4C 36 0D 3A  4C 41 42 45 4C 34 0D 4C  |LABEL6.:LABEL4.L|
00000660: 49 4E 45 31 2C 55 2D 31  2C 31 37 39 2C 55 2D 31  |INE1,U-1,179,U-1|
00000670: 2C 31 38 31 0D 4C 49 4E  45 31 2C 55 2C 31 37 39  |,181.LINE1,U,179|
00000680: 2C 55 2C 31 38 31 0D 4C  49 4E 45 31 2C 55 2B 31  |,U,181.LINE1,U+1|
00000690: 2C 31 37 39 2C 55 2B 31  2C 31 38 31 0D 47 4F 54  |,179,U+1,181.GOT|
000006A0: 4F 4C 41 42 45 4C 35 0D  3A 4C 41 42 45 4C 36 0D  |OLABEL5.:LABEL6.|
000006B0: 43 55 52 53 4F 52 36 2C  32 0D 50 52 49 4E 54 54  |CURSOR6,2.PRINTT|
000006C0: 45 24 0D 43 55 52 53 4F  52 34 2C 32 33 0D 49 4E  |E$.CURSOR4,23.IN|
000006D0: 50 55 54 33 36 2C 5A 5A  24 2C 54 58 24 0D 43 55  |PUT36,ZZ$,TX$.CU|
000006E0: 52 53 4F 52 34 2C 32 33  0D 50 52 49 4E 54 54 58  |RSOR4,23.PRINTTX|
000006F0: 24 0D 44 4F 0D 4C 4F 4F  50 0D 45 4E 44 2E 0D 0D  |$.DO.LOOP.END...|
00000700: 00 5A                                             |.Z              |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR15,0.MODUS1
.PRINT"HOSTCHART".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.48):".:EI
NGABE.CURSOR29,5.INPUT2,"01234567890 ",N
.IFN<1ORN>48: 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=13ORI=25ORI=37:LABEL1.
:LABEL3.CURSOR11,10+K.PRINT"WERT NR.";I;
":".CURSOR24,10+K.INPUT4,"1234567890. ",
E(I).LOOP.I=0.GOTOLABEL2.:LABEL1.J=0.DOU
NTILJ=12.J=J+1.CURSOR11,10+J.PRINT"     
             ".LOOP.K=K-12.J=0.GOTOLABEL
3.:LABEL2.J=0.K=0.I=0.WINDOW1,15,38,3.DO
UNTILI=5.I=I+1.LINE1,15,114+I,311,114+I.
LINE1,310+I,115,310+I,137.LOOP.I=0.CURSO
R2,16.PRINT"LEG:".CURSOR6,16.INPUT32,ZZ$
,TE$.WINDOW8,14,25,5.DOUNTILI=5.I=I+1.LI
NE1,71,112-I,263,112-I.LINE1,263+I,107,2
63+I,144.LOOP.CURSOR10,15.PRINT"HOECHSTE
R SKALENWERT:".:KORREKTUR.CURSOR17,17.IN
PUT4,"0123456789. ",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=0.SCNC
LR.CURSOR15,0.MODUS1.PRINT"HOSTCHART".MO
DUS0.LINE1,33,180,33,30.DOUNTILI=6.U=180
-I*30.LINE1,32,U,33,U.I=I+1.LOOP.I=0.DOU
NTILI=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).CURSORL,PO
.PRINTWE$.I=I+1.LOOP.I=0.DOUNTILI=N.I=I+
1.U=30+6*I.LINE1,34,180,U+1,180.LOOP.I=0
.DOUNTILI=N.I=I+1.U=30+6*I.V=30+U.IFE(I)
<1:LABEL4.LINE1,U-1,180,U-1,P(I).LINE1,U
,180,U,P(I).LINE1,U+1,180,U+1,P(I).:LABE
L5.LOOP.I=0.GOTOLABEL6.:LABEL4.LINE1,U-1
,179,U-1,181.LINE1,U,179,U,181.LINE1,U+1
,179,U+1,181.GOTOLABEL5.:LABEL6.CURSOR6,
2.PRINTTE$.CURSOR4,23.INPUT36,ZZ$,TX$.CU
RSOR4,23.PRINTTX$.DO.LOOP.END....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL