SEITE.72.LOGO

FILE INFORMATION

FILENAME(S): SEITE.72.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-10-20 14:37:14

APPEARS ON: 1 disk(s)

FILE HASH

b4e8321e2d6ce776fbd642ceaf4674b9b787b1802274f01e04d964a20d67fc65

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.72.LOGO	PRG	Treasure Chest - LehrerMIL	20	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 44 52 2E  53 50 41 4C 54 45 4E 20  |. PR DR.SPALTEN |
00000010: 3A 4C 20 3B 20 44 52 55  43 4B 20 49 4E 20 34 20  |:L ; DRUCK IN 4 |
00000020: 53 50 41 4C 54 45 4E 0D  20 4C 53 0D 20 53 45 54  |SPALTEN. LS. SET|
00000030: 5A 45 20 22 4E 52 20 30  0D 20 44 52 55 43 4B 45  |ZE "NR 0. DRUCKE|
00000040: 4E 3A 0D 20 57 45 4E 4E  20 3A 4C 20 3D 20 5B 5D  |N:. WENN :L = []|
00000050: 20 44 5A 20 5B 5D 20 52  4B 0D 20 53 45 54 5A 45  | DZ [] RK. SETZE|
00000060: 20 22 58 20 31 30 20 2A  20 52 45 53 54 20 3A 4E  | "X 10 * REST :N|
00000070: 52 20 34 0D 20 53 45 54  5A 45 20 22 59 20 28 20  |R 4. SETZE "Y ( |
00000080: 44 49 56 20 3A 4E 52 20  34 20 29 0D 20 42 4C 49  |DIV :NR 4 ). BLI|
00000090: 4E 4B 45 52 20 3A 58 20  3A 59 20 53 45 54 5A 45  |NKER :X :Y SETZE|
000000A0: 20 22 4E 52 20 3A 4E 52  20 2B 20 31 0D 20 28 20  | "NR :NR + 1. ( |
000000B0: 44 52 20 22 28 20 3A 4E  52 20 22 29 20 45 52 53  |DR "( :NR ") ERS|
000000C0: 54 45 53 20 3A 4C 20 29  0D 20 53 45 54 5A 45 20  |TES :L ). SETZE |
000000D0: 22 4C 20 4F 48 4E 45 45  52 53 54 45 53 20 3A 4C  |"L OHNEERSTES :L|
000000E0: 0D 20 47 45 48 45 20 22  44 52 55 43 4B 45 4E 0D  |. GEHE "DRUCKEN.|
000000F0: 45 4E 44 45 0D 50 52 20  5A 45 4E 54 52 41 4C 57  |ENDE.PR ZENTRALW|
00000100: 45 52 54 20 3A 52 4C 20  3B 20 52 4C 20 49 53 54  |ERT :RL ; RL IST|
00000110: 20 52 41 4E 47 4C 49 53  54 45 0D 20 53 45 54 5A  | RANGLISTE. SETZ|
00000120: 45 20 22 41 4E 20 4C 41  45 4E 47 45 20 3A 52 4C  |E "AN LAENGE :RL|
00000130: 0D 20 50 52 55 45 46 45  20 28 20 52 45 53 54 20  |. PRUEFE ( REST |
00000140: 3A 41 4E 20 32 20 29 20  3D 20 30 0D 20 57 57 20  |:AN 2 ) = 0. WW |
00000150: 53 45 54 5A 45 20 22 4E  20 28 20 3A 41 4E 20 2F  |SETZE "N ( :AN /|
00000160: 20 32 20 29 20 2B 20 31  0D 20 57 46 20 53 45 54  | 2 ) + 1. WF SET|
00000170: 5A 45 20 22 4E 20 28 20  3A 41 4E 20 2B 20 31 20  |ZE "N ( :AN + 1 |
00000180: 29 20 2F 20 32 0D 20 53  45 54 5A 45 20 22 5A 20  |) / 2. SETZE "Z |
00000190: 28 20 45 4C 45 4D 45 4E  54 20 3A 4E 20 3A 52 4C  |( ELEMENT :N :RL|
000001A0: 20 29 0D 20 28 20 44 5A  20 22 5A 45 4E 54 52 41  | ). ( DZ "ZENTRA|
000001B0: 4C 57 45 52 54 3A 20 3A  5A 20 5B 50 4C 41 54 5A  |LWERT: :Z [PLATZ|
000001C0: 4E 52 2E 5D 20 3A 4E 20  29 0D 45 4E 44 45 0D 50  |NR.] :N ).ENDE.P|
000001D0: 52 20 4D 49 54 54 45 4C  57 45 52 54 20 3A 4C 0D  |R MITTELWERT :L.|
000001E0: 20 53 45 54 5A 45 20 22  41 4E 20 4C 41 45 4E 47  | SETZE "AN LAENG|
000001F0: 45 20 3A 4C 0D 20 53 45  54 5A 45 20 22 53 55 20  |E :L. SETZE "SU |
00000200: 30 20 53 45 54 5A 45 20  22 49 20 31 0D 20 57 48  |0 SETZE "I 1. WH|
00000210: 20 3A 41 4E 20 5B 53 45  54 5A 45 20 22 53 55 20  | :AN [SETZE "SU |
00000220: 3A 53 55 20 2B 20 45 4C  45 4D 45 4E 54 20 3A 49  |:SU + ELEMENT :I|
00000230: 20 3A 4C 20 53 45 54 5A  45 20 22 49 20 3A 49 20  | :L SETZE "I :I |
00000240: 2B 20 31 5D 0D 20 53 45  54 5A 45 20 22 4D 20 3A  |+ 1]. SETZE "M :|
00000250: 53 55 20 2F 20 3A 41 4E  0D 20 53 45 54 5A 45 20  |SU / :AN. SETZE |
00000260: 22 4D 20 28 20 52 55 4E  44 45 20 31 30 30 20 2A  |"M ( RUNDE 100 *|
00000270: 20 3A 4D 20 29 20 2F 20  31 30 30 0D 20 28 20 44  | :M ) / 100. ( D|
00000280: 5A 20 22 4D 49 54 54 45  4C 57 45 52 54 20 3A 4D  |Z "MITTELWERT :M|
00000290: 20 22 2C 20 3A 41 4E 20  22 57 45 52 54 45 20 29  | ", :AN "WERTE )|
000002A0: 0D 45 4E 44 45 0D 50 52  20 4F 52 44 4E 45 20 3A  |.ENDE.PR ORDNE :|
000002B0: 4C 0D 20 53 45 54 5A 45  20 22 52 4C 20 5B 5D 0D  |L. SETZE "RL [].|
000002C0: 20 41 4E 46 41 4E 47 3A  0D 20 57 45 4E 4E 20 3A  | ANFANG:. WENN :|
000002D0: 4C 20 3D 20 5B 5D 20 52  47 20 3A 52 4C 0D 20 53  |L = [] RG :RL. S|
000002E0: 45 54 5A 45 20 22 4B 4C  20 4B 4C 45 49 4E 53 54  |ETZE "KL KLEINST|
000002F0: 45 53 20 3A 4C 0D 20 53  45 54 5A 45 20 22 52 4C  |ES :L. SETZE "RL|
00000300: 20 4D 49 54 4C 45 54 5A  54 45 4D 20 3A 4B 4C 20  | MITLETZTEM :KL |
00000310: 3A 52 4C 0D 20 53 45 54  5A 45 20 22 4C 20 53 54  |:RL. SETZE "L ST|
00000320: 52 45 49 43 48 45 20 3A  4B 4C 20 3A 4C 0D 20 47  |REICHE :KL :L. G|
00000330: 45 48 45 20 22 41 4E 46  41 4E 47 0D 45 4E 44 45  |EHE "ANFANG.ENDE|
00000340: 0D 50 52 20 4B 4C 45 49  4E 53 54 45 53 20 3A 4C  |.PR KLEINSTES :L|
00000350: 0D 20 53 45 54 5A 45 20  22 4B 4C 20 45 52 20 3A  |. SETZE "KL ER :|
00000360: 4C 0D 20 53 45 54 5A 45  20 22 4C 20 4F 48 4E 45  |L. SETZE "L OHNE|
00000370: 45 52 53 54 45 53 20 3A  4C 0D 20 41 4E 46 41 4E  |ERSTES :L. ANFAN|
00000380: 47 3A 0D 20 57 45 4E 4E  20 3A 4C 20 3D 20 5B 5D  |G:. WENN :L = []|
00000390: 20 52 47 20 3A 4B 4C 0D  20 50 52 55 45 46 45 20  | RG :KL. PRUEFE |
000003A0: 3A 4B 4C 20 3E 20 45 52  20 3A 4C 0D 20 57 57 20  |:KL > ER :L. WW |
000003B0: 53 45 54 5A 45 20 22 4B  4C 20 45 52 53 54 45 53  |SETZE "KL ERSTES|
000003C0: 20 3A 4C 0D 20 53 45 54  5A 45 20 22 4C 20 4F 48  | :L. SETZE "L OH|
000003D0: 4E 45 45 52 53 54 45 53  20 3A 4C 0D 20 47 45 48  |NEERSTES :L. GEH|
000003E0: 45 20 22 41 4E 46 41 4E  47 0D 45 4E 44 45 0D 50  |E "ANFANG.ENDE.P|
000003F0: 52 20 53 54 52 45 49 43  48 45 20 3A 41 20 3A 4C  |R STREICHE :A :L|
00000400: 20 3B 20 53 54 52 45 49  43 48 45 20 41 20 41 55  | ; STREICHE A AU|
00000410: 53 20 4C 0D 20 53 45 54  5A 45 20 22 4E 4C 20 5B  |S L. SETZE "NL [|
00000420: 5D 0D 20 41 4E 46 41 4E  47 3A 0D 20 57 45 4E 4E  |]. ANFANG:. WENN|
00000430: 20 3A 4C 20 3D 20 5B 5D  20 52 47 20 3A 4E 4C 0D  | :L = [] RG :NL.|
00000440: 20 50 52 55 45 46 45 20  3A 41 20 3D 20 45 52 53  | PRUEFE :A = ERS|
00000450: 54 45 53 20 3A 4C 0D 20  57 57 20 53 45 54 5A 45  |TES :L. WW SETZE|
00000460: 20 22 4E 4C 20 53 41 54  5A 20 3A 4E 4C 20 28 20  | "NL SATZ :NL ( |
00000470: 4F 45 20 3A 4C 20 29 20  52 47 20 3A 4E 4C 0D 20  |OE :L ) RG :NL. |
00000480: 57 46 20 53 45 54 5A 45  20 22 4E 4C 20 4D 49 54  |WF SETZE "NL MIT|
00000490: 4C 45 54 5A 54 45 4D 20  28 20 45 52 20 3A 4C 20  |LETZTEM ( ER :L |
000004A0: 29 20 3A 4E 4C 0D 20 53  45 54 5A 45 20 22 4C 20  |) :NL. SETZE "L |
000004B0: 4F 45 20 3A 4C 0D 20 47  45 48 45 20 22 41 4E 46  |OE :L. GEHE "ANF|
000004C0: 41 4E 47 0D 45 4E 44 45  0D                       |ANG.ENDE.       |

. PR DR.SPALTEN :L ; DRUCK IN 4 SPALTEN.
 LS. SETZE "NR 0. DRUCKEN:. WENN :L = []
 DZ [] RK. SETZE "X 10 * REST :NR 4. SET
ZE "Y ( DIV :NR 4 ). BLINKER :X :Y SETZE
 "NR :NR + 1. ( DR "( :NR ") ERSTES :L )
. SETZE "L OHNEERSTES :L. GEHE "DRUCKEN.
ENDE.PR ZENTRALWERT :RL ; RL IST RANGLIS
TE. SETZE "AN LAENGE :RL. PRUEFE ( REST 
:AN 2 ) = 0. WW SETZE "N ( :AN / 2 ) + 1
. WF SETZE "N ( :AN + 1 ) / 2. SETZE "Z 
( ELEMENT :N :RL ). ( DZ "ZENTRALWERT: :
Z [PLATZNR.] :N ).ENDE.PR MITTELWERT :L.
 SETZE "AN LAENGE :L. SETZE "SU 0 SETZE 
"I 1. WH :AN [SETZE "SU :SU + ELEMENT :I
 :L SETZE "I :I + 1]. SETZE "M :SU / :AN
. SETZE "M ( RUNDE 100 * :M ) / 100. ( D
Z "MITTELWERT :M ", :AN "WERTE ).ENDE.PR
 ORDNE :L. SETZE "RL []. ANFANG:. WENN :
L = [] RG :RL. SETZE "KL KLEINSTES :L. S
ETZE "RL MITLETZTEM :KL :RL. SETZE "L ST
REICHE :KL :L. GEHE "ANFANG.ENDE.PR KLEI
NSTES :L. SETZE "KL ER :L. SETZE "L OHNE
ERSTES :L. ANFANG:. WENN :L = [] RG :KL.
 PRUEFE :KL > ER :L. WW SETZE "KL ERSTES
 :L. SETZE "L OHNEERSTES :L. GEHE "ANFAN
G.ENDE.PR STREICHE :A :L ; STREICHE A AU
S L. SETZE "NL []. ANFANG:. WENN :L = []
 RG :NL. PRUEFE :A = ERSTES :L. WW SETZE
 "NL SATZ :NL ( OE :L ) RG :NL. WF SETZE
 "NL MITLETZTEM ( ER :L ) :NL. SETZE "L 
OE :L. GEHE "ANFANG.ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL