SEITE.44.LOGO
FILE INFORMATION
FILENAME(S): SEITE.44.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-10-20 14:37:14
APPEARS ON: 1 disk(s)
FILE HASH
c07d5d9760925e2a41e6a3fa571503ec62a5fa5a5f81327f5749198dbc3a33af
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BUCH | SEITE.44.LOGO | PRG | Treasure Chest - LehrerMIL | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 50 52 20 57 54 41 42 2E 46 2E 58 2E 58 45 |. PR WTAB.F.X.XE| 00000010: 4E 44 2E 44 58 20 3A 59 2E 56 4F 4E 2E 58 20 3A |ND.DX :Y.VON.X :| 00000020: 58 20 3A 58 45 4E 44 20 3A 44 58 0D 20 57 45 4E |X :XEND :DX. WEN| 00000030: 4E 20 3A 58 20 3E 20 3A 58 45 4E 44 20 44 41 4E |N :X > :XEND DAN| 00000040: 4E 20 52 55 45 43 4B 4B 45 48 52 0D 20 53 45 54 |N RUECKKEHR. SET| 00000050: 5A 45 20 22 59 20 54 55 45 20 3A 59 2E 56 4F 4E |ZE "Y TUE :Y.VON| 00000060: 2E 58 0D 20 28 20 44 5A 20 5B 58 20 3D 5D 20 3A |.X. ( DZ [X =] :| 00000070: 58 20 5B 59 20 3D 5D 20 3A 59 20 29 0D 20 53 45 |X [Y =] :Y ). SE| 00000080: 54 5A 45 20 22 58 20 3A 58 20 2B 20 3A 44 58 0D |TZE "X :X + :DX.| 00000090: 20 57 54 41 42 2E 46 2E 58 2E 58 45 4E 44 2E 44 | WTAB.F.X.XEND.D| 000000A0: 58 20 3A 59 2E 56 4F 4E 2E 58 20 3A 58 20 3A 58 |X :Y.VON.X :X :X| 000000B0: 45 4E 44 20 3A 44 58 0D 45 4E 44 45 0D 50 52 20 |END :DX.ENDE.PR | 000000C0: 57 54 41 42 2E 58 2E 58 45 4E 44 2E 44 58 20 3A |WTAB.X.XEND.DX :| 000000D0: 58 20 3A 58 45 4E 44 20 3A 44 58 0D 20 57 54 41 |X :XEND :DX. WTA| 000000E0: 42 2E 42 49 53 20 3A 58 45 4E 44 0D 45 4E 44 45 |B.BIS :XEND.ENDE| 000000F0: 0D 50 52 20 57 54 41 42 2E 42 49 53 20 3A 58 45 |.PR WTAB.BIS :XE| 00000100: 4E 44 0D 20 57 45 4E 4E 20 3A 58 20 3E 20 3A 58 |ND. WENN :X > :X| 00000110: 45 4E 44 20 44 41 4E 4E 20 52 55 45 43 4B 4B 45 |END DANN RUECKKE| 00000120: 48 52 0D 20 53 45 54 5A 45 20 22 59 20 33 20 2A |HR. SETZE "Y 3 *| 00000130: 20 3A 58 20 2A 20 3A 58 20 2D 20 28 20 33 20 2A | :X * :X - ( 3 *| 00000140: 20 3A 58 20 29 20 2D 20 36 0D 20 28 20 44 5A 20 | :X ) - 6. ( DZ | 00000150: 5B 58 20 3D 5D 20 3A 58 20 5B 59 20 3D 5D 20 3A |[X =] :X [Y =] :| 00000160: 59 20 29 0D 20 53 45 54 5A 45 20 22 58 20 3A 58 |Y ). SETZE "X :X| 00000170: 20 2B 20 3A 44 58 0D 20 57 54 41 42 2E 42 49 53 | + :DX. WTAB.BIS| 00000180: 20 3A 58 45 4E 44 0D 45 4E 44 45 0D 50 52 20 57 | :XEND.ENDE.PR W| 00000190: 54 41 42 2E 44 58 20 3A 44 58 0D 20 53 45 54 5A |TAB.DX :DX. SETZ| 000001A0: 45 20 22 58 20 30 0D 20 57 54 41 42 2E 42 49 53 |E "X 0. WTAB.BIS| 000001B0: 20 31 30 0D 45 4E 44 45 0D 50 52 20 5A 41 45 48 | 10.ENDE.PR ZAEH| 000001C0: 4C 45 2E 53 43 48 52 49 54 54 45 0D 20 57 45 4E |LE.SCHRITTE. WEN| 000001D0: 4E 20 3A 41 20 3E 20 3A 45 20 44 41 4E 4E 20 52 |N :A > :E DANN R| 000001E0: 55 45 43 4B 4B 45 48 52 0D 20 53 45 54 5A 45 20 |UECKKEHR. SETZE | 000001F0: 22 53 20 3A 53 20 2B 20 31 20 53 45 54 5A 45 20 |"S :S + 1 SETZE | 00000200: 22 41 20 3A 41 20 2A 20 3A 46 0D 20 28 20 44 5A |"A :A * :F. ( DZ| 00000210: 20 5B 53 43 48 52 49 54 54 5D 20 3A 53 20 5B 41 | [SCHRITT] :S [A| 00000220: 20 3D 5D 20 3A 41 20 29 0D 20 5A 41 45 48 4C 45 | =] :A ). ZAEHLE| 00000230: 2E 53 43 48 52 49 54 54 45 0D 45 4E 44 45 0D 50 |.SCHRITTE.ENDE.P| 00000240: 52 20 57 41 43 48 53 45 4E 2E 56 4F 4E 2E 41 2E |R WACHSEN.VON.A.| 00000250: 4D 49 54 2E 46 2E 42 49 53 2E 45 20 3A 41 20 3A |MIT.F.BIS.E :A :| 00000260: 46 20 3A 45 0D 20 53 45 54 5A 45 20 22 53 20 30 |F :E. SETZE "S 0| 00000270: 0D 20 5A 41 45 48 4C 45 2E 53 43 48 52 49 54 54 |. ZAEHLE.SCHRITT| 00000280: 45 0D 20 28 20 44 5A 20 5B 4E 41 43 48 5D 20 3A |E. ( DZ [NACH] :| 00000290: 53 20 5B 53 43 48 54 49 54 54 45 4E 20 49 53 54 |S [SCHTITTEN IST| 000002A0: 20 44 45 52 20 45 4E 44 57 45 52 54 5D 20 3A 41 | DER ENDWERT] :A| 000002B0: 20 29 0D 45 4E 44 45 0D 50 52 20 5A 41 45 48 4C | ).ENDE.PR ZAEHL| 000002C0: 45 2E 53 4F 4C 41 4E 47 45 2E 4B 4C 45 49 4E 45 |E.SOLANGE.KLEINE| 000002D0: 52 2E 34 0D 20 53 45 54 5A 45 20 22 5A 20 31 0D |R.4. SETZE "Z 1.| 000002E0: 20 57 48 2E 53 4F 4C 41 4E 47 45 20 5B 3A 5A 3C | WH.SOLANGE [:Z<| 000002F0: 34 5D 20 5B 44 5A 20 3A 5A 20 53 45 54 5A 45 20 |4] [DZ :Z SETZE | 00000300: 22 5A 20 3A 5A 2B 31 5D 0D 20 28 20 44 5A 20 5B |"Z :Z+1]. ( DZ [| 00000310: 4E 41 43 48 20 57 48 2E 53 4F 4C 41 4E 47 45 20 |NACH WH.SOLANGE | 00000320: 49 53 54 20 5A 5D 20 3A 5A 20 29 0D 45 4E 44 45 |IST Z] :Z ).ENDE| 00000330: 0D 50 52 20 57 48 2E 53 4F 4C 41 4E 47 45 20 3A |.PR WH.SOLANGE :| 00000340: 42 45 44 49 4E 47 55 4E 47 20 3A 42 45 46 45 48 |BEDINGUNG :BEFEH| 00000350: 4C 53 46 4F 4C 47 45 0D 20 50 52 55 45 46 45 20 |LSFOLGE. PRUEFE | 00000360: 28 20 54 55 45 20 3A 42 45 44 49 4E 47 55 4E 47 |( TUE :BEDINGUNG| 00000370: 20 29 0D 20 57 45 4E 4E 46 41 4C 53 43 48 20 44 | ). WENNFALSCH D| 00000380: 41 4E 4E 20 52 55 45 43 4B 4B 45 48 52 0D 20 57 |ANN RUECKKEHR. W| 00000390: 45 4E 4E 57 41 48 52 20 54 55 45 20 3A 42 45 46 |ENNWAHR TUE :BEF| 000003A0: 45 48 4C 53 46 4F 4C 47 45 0D 20 57 48 2E 53 4F |EHLSFOLGE. WH.SO| 000003B0: 4C 41 4E 47 45 20 3A 42 45 44 49 4E 47 55 4E 47 |LANGE :BEDINGUNG| 000003C0: 20 3A 42 45 46 45 48 4C 53 46 4F 4C 47 45 0D 45 | :BEFEHLSFOLGE.E| 000003D0: 4E 44 45 0D 50 52 20 57 54 41 42 45 4C 4C 45 2E |NDE.PR WTABELLE.| 000003E0: 44 58 20 3A 44 58 0D 20 53 45 54 5A 45 20 22 58 |DX :DX. SETZE "X| 000003F0: 20 30 0D 20 57 48 2E 53 4F 4C 41 4E 47 45 20 5B | 0. WH.SOLANGE [| 00000400: 3A 58 3C 31 30 5D 20 5B 53 45 54 5A 45 20 22 59 |:X<10] [SETZE "Y| 00000410: 20 33 2A 3A 58 2A 3A 58 2D 28 33 2A 3A 58 29 2D | 3*:X*:X-(3*:X)-| 00000420: 36 20 28 44 5A 20 3A 58 20 3A 59 29 20 53 45 54 |6 (DZ :X :Y) SET| 00000430: 5A 45 20 22 58 20 3A 58 2B 3A 44 58 5D 0D 45 4E |ZE "X :X+:DX].EN| 00000440: 44 45 0D 50 52 20 5A 2E 56 4F 4E 2E 31 2E 42 49 |DE.PR Z.VON.1.BI| 00000450: 53 20 3A 5A 45 4E 44 0D 20 53 45 54 5A 45 20 22 |S :ZEND. SETZE "| 00000460: 5A 20 31 0D 20 5A 41 45 48 4C 45 2E 56 4F 4E 2E |Z 1. ZAEHLE.VON.| 00000470: 42 49 53 20 3A 5A 20 3A 5A 45 4E 44 0D 45 4E 44 |BIS :Z :ZEND.END| 00000480: 45 0D 50 52 20 5A 41 45 48 4C 45 2E 56 4F 4E 2E |E.PR ZAEHLE.VON.| 00000490: 42 49 53 20 3A 5A 20 3A 5A 45 4E 44 0D 20 28 20 |BIS :Z :ZEND. ( | 000004A0: 44 5A 20 5B 5A 20 3D 5D 20 3A 5A 20 29 0D 20 57 |DZ [Z =] :Z ). W| 000004B0: 45 4E 4E 20 3A 5A 20 3D 20 3A 5A 45 4E 44 20 44 |ENN :Z = :ZEND D| 000004C0: 41 4E 4E 20 52 55 45 43 4B 4B 45 48 52 0D 20 57 |ANN RUECKKEHR. W| 000004D0: 45 4E 4E 20 3A 5A 20 3E 20 3A 5A 45 4E 44 20 44 |ENN :Z > :ZEND D| 000004E0: 41 4E 4E 20 52 55 45 43 4B 4B 45 48 52 0D 20 53 |ANN RUECKKEHR. S| 000004F0: 45 54 5A 45 20 22 5A 20 3A 5A 20 2B 20 31 0D 20 |ETZE "Z :Z + 1. | 00000500: 5A 41 45 48 4C 45 2E 56 4F 4E 2E 42 49 53 20 3A |ZAEHLE.VON.BIS :| 00000510: 5A 20 3A 5A 45 4E 44 0D 45 4E 44 45 0D |Z :ZEND.ENDE. |
. PR WTAB.F.X.XEND.DX :Y.VON.X :X :XEND :DX. WENN :X > :XEND DANN RUECKKEHR. SET ZE "Y TUE :Y.VON.X. ( DZ [X =] :X [Y =] :Y ). SETZE "X :X + :DX. WTAB.F.X.XEND.D X :Y.VON.X :X :XEND :DX.ENDE.PR WTAB.X.X END.DX :X :XEND :DX. WTAB.BIS :XEND.ENDE .PR WTAB.BIS :XEND. WENN :X > :XEND DANN RUECKKEHR. SETZE "Y 3 * :X * :X - ( 3 * :X ) - 6. ( DZ [X =] :X [Y =] :Y ). SET ZE "X :X + :DX. WTAB.BIS :XEND.ENDE.PR W TAB.DX :DX. SETZE "X 0. WTAB.BIS 10.ENDE .PR ZAEHLE.SCHRITTE. WENN :A > :E DANN R UECKKEHR. SETZE "S :S + 1 SETZE "A :A * :F. ( DZ [SCHRITT] :S [A =] :A ). ZAEHLE .SCHRITTE.ENDE.PR WACHSEN.VON.A.MIT.F.BI S.E :A :F :E. SETZE "S 0. ZAEHLE.SCHRITT E. ( DZ [NACH] :S [SCHTITTEN IST DER END WERT] :A ).ENDE.PR ZAEHLE.SOLANGE.KLEINE R.4. SETZE "Z 1. WH.SOLANGE [:Z<4] [DZ : Z SETZE "Z :Z+1]. ( DZ [NACH WH.SOLANGE IST Z] :Z ).ENDE.PR WH.SOLANGE :BEDINGUN G :BEFEHLSFOLGE. PRUEFE ( TUE :BEDINGUNG ). WENNFALSCH DANN RUECKKEHR. WENNWAHR TUE :BEFEHLSFOLGE. WH.SOLANGE :BEDINGUNG :BEFEHLSFOLGE.ENDE.PR WTABELLE.DX :DX. SETZE "X 0. WH.SOLANGE [:X<10] [SETZE "Y 3*:X*:X-(3*:X)-6 (DZ :X :Y) SETZE "X :X +:DX].ENDE.PR Z.VON.1.BIS :ZEND. SETZE " Z 1. ZAEHLE.VON.BIS :Z :ZEND.ENDE.PR ZAE HLE.VON.BIS :Z :ZEND. ( DZ [Z =] :Z ). W ENN :Z = :ZEND DANN RUECKKEHR. WENN :Z > :ZEND DANN RUECKKEHR. SETZE "Z :Z + 1. ZAEHLE.VON.BIS :Z :ZEND.ENDE.
> CLICK IMAGE PREVIEW FOR FULL MODAL