SEITE.34.LOGO

FILE INFORMATION

FILENAME(S): SEITE.34.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

a17a0257c3ff069c097c9bf864a13a5f2d8372254f4403fa23524c96d900c97c

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BUCH	SEITE.34.LOGO	PRG	Treasure Chest - LehrerMIL	19	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 50 52 20 4A 41 4E  2E 41 55 53 47 41 42 45  |. PR JAN.AUSGABE|
00000010: 0D 20 41 55 53 47 41 42  45 2E 4E 55 4D 4D 45 52  |. AUSGABE.NUMMER|
00000020: 20 31 0D 45 4E 44 45 0D  50 52 20 41 55 53 47 41  | 1.ENDE.PR AUSGA|
00000030: 42 45 2E 4E 55 4D 4D 45  52 20 3A 5A 41 45 48 4C  |BE.NUMMER :ZAEHL|
00000040: 45 52 0D 20 57 45 4E 4E  20 3A 5A 41 45 48 4C 45  |ER. WENN :ZAEHLE|
00000050: 52 20 3E 20 31 30 20 44  41 4E 4E 20 52 55 45 43  |R > 10 DANN RUEC|
00000060: 4B 4B 45 48 52 0D 20 28  20 44 5A 20 3A 5A 41 45  |KKEHR. ( DZ :ZAE|
00000070: 48 4C 45 52 20 5B 4A 41  4E 20 44 45 52 20 47 52  |HLER [JAN DER GR|
00000080: 4F 53 53 45 2E 2E 2E 5D  20 29 0D 20 53 45 54 5A  |OSSE...] ). SETZ|
00000090: 45 20 22 5A 41 45 48 4C  45 52 20 3A 5A 41 45 48  |E "ZAEHLER :ZAEH|
000000A0: 4C 45 52 20 2B 20 31 0D  20 41 55 53 47 41 42 45  |LER + 1. AUSGABE|
000000B0: 2E 4E 55 4D 4D 45 52 20  3A 5A 41 45 48 4C 45 52  |.NUMMER :ZAEHLER|
000000C0: 0D 45 4E 44 45 0D 50 52  20 45 4E 44 4C 4F 53 2E  |.ENDE.PR ENDLOS.|
000000D0: 4A 41 4E 0D 20 44 52 55  43 4B 45 20 5B 4A 41 4E  |JAN. DRUCKE [JAN|
000000E0: 20 44 45 52 20 47 52 4F  53 53 45 2E 5D 0D 20 44  | DER GROSSE.]. D|
000000F0: 5A 20 5B 53 54 4F 50 50  45 20 4D 49 54 20 43 54  |Z [STOPPE MIT CT|
00000100: 52 4C 2D 57 2C 2D 5A 2C  2D 47 5D 0D 20 45 4E 44  |RL-W,-Z,-G]. END|
00000110: 4C 4F 53 2E 4A 41 4E 0D  45 4E 44 45 0D 50 52 20  |LOS.JAN.ENDE.PR |
00000120: 31 30 30 4D 41 4C 2E 4A  41 4E 0D 20 57 48 20 31  |100MAL.JAN. WH 1|
00000130: 30 30 20 5B 44 52 55 43  4B 45 20 5B 4A 41 4E 20  |00 [DRUCKE [JAN |
00000140: 44 45 52 20 47 52 4F 53  53 45 2E 2E 2E 5D 5D 0D  |DER GROSSE...]].|
00000150: 45 4E 44 45 0D 50 52 20  31 30 4D 41 4C 2E 4A 41  |ENDE.PR 10MAL.JA|
00000160: 4E 0D 20 53 45 54 5A 45  20 22 5A 41 45 48 4C 45  |N. SETZE "ZAEHLE|
00000170: 52 20 31 0D 20 41 4E 46  41 4E 47 3A 0D 20 44 5A  |R 1. ANFANG:. DZ|
00000180: 20 5B 4A 41 4E 20 44 45  52 20 47 52 4F 53 53 45  | [JAN DER GROSSE|
00000190: 5D 0D 20 53 45 54 5A 45  20 22 5A 41 45 48 4C 45  |]. SETZE "ZAEHLE|
000001A0: 52 20 3A 5A 41 45 48 4C  45 52 20 2B 20 31 0D 20  |R :ZAEHLER + 1. |
000001B0: 57 45 4E 4E 20 3A 5A 41  45 48 4C 45 52 20 3C 20  |WENN :ZAEHLER < |
000001C0: 31 31 20 44 41 4E 4E 20  47 45 48 45 20 22 41 4E  |11 DANN GEHE "AN|
000001D0: 46 41 4E 47 0D 45 4E 44  45 0D 50 52 20 4E 4F 54  |FANG.ENDE.PR NOT|
000001E0: 45 4E 2E 42 45 53 53 45  52 0D 20 44 5A 20 5B 42  |EN.BESSER. DZ [B|
000001F0: 49 54 54 45 20 45 49 4E  45 20 4E 4F 54 45 20 45  |ITTE EINE NOTE E|
00000200: 49 4E 47 45 42 45 4E 5D  0D 20 53 45 54 5A 45 20  |INGEBEN]. SETZE |
00000210: 22 4E 4F 54 45 20 45 52  53 54 45 53 20 4C 4C 0D  |"NOTE ERSTES LL.|
00000220: 20 57 45 4E 4E 20 4E 49  43 48 54 3F 20 5A 41 48  | WENN NICHT? ZAH|
00000230: 4C 3F 20 3A 4E 4F 54 45  20 44 41 4E 4E 20 4E 4F  |L? :NOTE DANN NO|
00000240: 54 45 4E 2E 42 45 53 53  45 52 0D 20 57 45 4E 4E  |TEN.BESSER. WENN|
00000250: 20 3A 4E 4F 54 45 20 3D  20 31 20 44 41 4E 4E 20  | :NOTE = 1 DANN |
00000260: 44 5A 20 5B 53 45 48 52  20 47 55 54 5D 20 52 4B  |DZ [SEHR GUT] RK|
00000270: 0D 20 57 45 4E 4E 20 3A  4E 4F 54 45 20 3D 20 32  |. WENN :NOTE = 2|
00000280: 20 44 41 4E 4E 20 44 5A  20 22 47 55 54 20 52 4B  | DANN DZ "GUT RK|
00000290: 0D 20 57 45 4E 4E 20 3A  4E 4F 54 45 20 3D 20 33  |. WENN :NOTE = 3|
000002A0: 20 44 41 4E 4E 20 44 5A  20 22 42 45 46 52 49 45  | DANN DZ "BEFRIE|
000002B0: 44 49 47 45 4E 44 20 52  4B 0D 20 57 45 4E 4E 20  |DIGEND RK. WENN |
000002C0: 3A 4E 4F 54 45 20 3D 20  34 20 44 41 4E 4E 20 44  |:NOTE = 4 DANN D|
000002D0: 5A 20 22 41 55 53 52 45  49 43 48 45 4E 44 20 52  |Z "AUSREICHEND R|
000002E0: 4B 0D 20 57 45 4E 4E 20  3A 4E 4F 54 45 20 3D 20  |K. WENN :NOTE = |
000002F0: 35 20 44 41 4E 4E 20 44  5A 20 22 4D 41 4E 47 45  |5 DANN DZ "MANGE|
00000300: 4C 48 41 46 54 20 52 4B  0D 20 57 45 4E 4E 20 3A  |LHAFT RK. WENN :|
00000310: 4E 4F 54 45 20 3D 20 36  20 44 41 4E 4E 20 44 5A  |NOTE = 6 DANN DZ|
00000320: 20 22 55 4E 47 45 4E 55  45 47 45 4E 44 20 52 4B  | "UNGENUEGEND RK|
00000330: 0D 20 4E 4F 54 45 4E 2E  42 45 53 53 45 52 0D 45  |. NOTEN.BESSER.E|
00000340: 4E 44 45 0D 50 52 20 5A  45 55 47 4E 49 53 4E 4F  |NDE.PR ZEUGNISNO|
00000350: 54 45 4E 0D 20 44 5A 20  5B 42 49 54 54 45 20 45  |TEN. DZ [BITTE E|
00000360: 49 4E 45 20 4E 4F 54 45  20 45 49 4E 47 45 42 45  |INE NOTE EINGEBE|
00000370: 4E 5D 0D 20 53 45 54 5A  45 20 22 4E 4F 54 45 20  |N]. SETZE "NOTE |
00000380: 45 52 53 54 45 53 20 4C  4C 0D 20 57 45 4E 4E 20  |ERSTES LL. WENN |
00000390: 3A 4E 4F 54 45 20 3D 20  31 20 44 41 4E 4E 20 44  |:NOTE = 1 DANN D|
000003A0: 5A 20 5B 53 45 48 52 20  47 55 54 5D 0D 20 57 45  |Z [SEHR GUT]. WE|
000003B0: 4E 4E 20 3A 4E 4F 54 45  20 3D 20 32 20 44 41 4E  |NN :NOTE = 2 DAN|
000003C0: 4E 20 44 5A 20 22 47 55  54 0D 20 57 45 4E 4E 20  |N DZ "GUT. WENN |
000003D0: 3A 4E 4F 54 45 20 3D 20  33 20 44 41 4E 4E 20 44  |:NOTE = 3 DANN D|
000003E0: 5A 20 22 42 45 46 52 49  45 44 49 47 45 4E 44 0D  |Z "BEFRIEDIGEND.|
000003F0: 20 57 45 4E 4E 20 3A 4E  4F 54 45 20 3D 20 34 20  | WENN :NOTE = 4 |
00000400: 44 41 4E 4E 20 44 5A 20  22 41 55 53 52 54 52 45  |DANN DZ "AUSRTRE|
00000410: 49 43 48 45 4E 44 0D 20  57 45 4E 4E 20 3A 4E 4F  |ICHEND. WENN :NO|
00000420: 54 45 20 3D 20 35 20 44  41 4E 4E 20 44 5A 20 22  |TE = 5 DANN DZ "|
00000430: 4D 41 4E 47 45 4C 48 41  46 54 0D 20 57 45 4E 4E  |MANGELHAFT. WENN|
00000440: 20 3A 4E 4F 54 45 20 3D  20 36 20 44 41 4E 4E 20  | :NOTE = 6 DANN |
00000450: 44 5A 20 22 55 4E 47 45  4E 55 45 47 45 4E 44 0D  |DZ "UNGENUEGEND.|
00000460: 45 4E 44 45 0D                                    |ENDE.           |

. PR JAN.AUSGABE. AUSGABE.NUMMER 1.ENDE.
PR AUSGABE.NUMMER :ZAEHLER. WENN :ZAEHLE
R > 10 DANN RUECKKEHR. ( DZ :ZAEHLER [JA
N DER GROSSE...] ). SETZE "ZAEHLER :ZAEH
LER + 1. AUSGABE.NUMMER :ZAEHLER.ENDE.PR
 ENDLOS.JAN. DRUCKE [JAN DER GROSSE.]. D
Z [STOPPE MIT CTRL-W,-Z,-G]. ENDLOS.JAN.
ENDE.PR 100MAL.JAN. WH 100 [DRUCKE [JAN 
DER GROSSE...]].ENDE.PR 10MAL.JAN. SETZE
 "ZAEHLER 1. ANFANG:. DZ [JAN DER GROSSE
]. SETZE "ZAEHLER :ZAEHLER + 1. WENN :ZA
EHLER < 11 DANN GEHE "ANFANG.ENDE.PR NOT
EN.BESSER. DZ [BITTE EINE NOTE EINGEBEN]
. SETZE "NOTE ERSTES LL. WENN NICHT? ZAH
L? :NOTE DANN NOTEN.BESSER. WENN :NOTE =
 1 DANN DZ [SEHR GUT] RK. WENN :NOTE = 2
 DANN DZ "GUT RK. WENN :NOTE = 3 DANN DZ
 "BEFRIEDIGEND RK. WENN :NOTE = 4 DANN D
Z "AUSREICHEND RK. WENN :NOTE = 5 DANN D
Z "MANGELHAFT RK. WENN :NOTE = 6 DANN DZ
 "UNGENUEGEND RK. NOTEN.BESSER.ENDE.PR Z
EUGNISNOTEN. DZ [BITTE EINE NOTE EINGEBE
N]. SETZE "NOTE ERSTES LL. WENN :NOTE = 
1 DANN DZ [SEHR GUT]. WENN :NOTE = 2 DAN
N DZ "GUT. WENN :NOTE = 3 DANN DZ "BEFRI
EDIGEND. WENN :NOTE = 4 DANN DZ "AUSRTRE
ICHEND. WENN :NOTE = 5 DANN DZ "MANGELHA
FT. WENN :NOTE = 6 DANN DZ "UNGENUEGEND.
ENDE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL