7/3LEKTION
FILE INFORMATION
FILENAME(S): 7/3LEKTION
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-20 14:37:14
APPEARS ON: 1 disk(s)
FILE HASH
41323022174c2ac5758c27c67fb5e364a75a8a14d002597d76f50f89db6d6a95
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HANS | 7/3LEKTION | PRG | Treasure Chest - LehrerMIL | 25 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4F 4C 47 45 4E 44 45 53 20 50 52 4F 47 52 41 4D |OLGENDES PROGRAM| 00000010: 4D 3A 00 06 1A 3E 08 49 B2 31 30 3A 8D 35 30 30 |M:...>.I.10:.500| 00000020: 30 3A 8B 46 4C A7 31 38 30 30 00 2A 1A 98 08 99 |0:.FL.1800.*....| 00000030: 22 93 20 20 20 4C 44 58 20 23 24 31 31 20 20 20 |". LDX #$11 | 00000040: 20 20 5A 41 45 48 4C 45 52 20 3D 20 31 37 00 4B | ZAEHLER = 17.K| 00000050: 1A AC 08 99 22 11 20 20 20 4C 44 41 20 23 24 43 |....". LDA #$C| 00000060: 35 20 20 20 20 20 27 C5 27 20 49 4E 20 41 43 00 |5 '.' IN AC.| 00000070: 68 1A B6 08 99 22 11 B0 C0 20 4A 53 52 20 24 46 |h...."... JSR $F| 00000080: 46 44 32 20 20 20 20 50 52 49 4E 54 00 87 1A C0 |FD2 PRINT....| 00000090: 08 99 22 DD 9D 11 DD 20 20 44 45 58 20 20 20 20 |..".... DEX | 000000A0: 20 20 20 20 20 20 58 3D 58 2D 31 00 A5 1A CA 08 | X=X-1.....| 000000B0: 99 22 DD 9D 11 AD 5F 20 42 4E 45 20 24 46 41 20 |."...._ BNE $FA | 000000C0: 20 20 20 20 20 58 3D 30 3F 00 B3 1A D4 08 99 22 | X=0?......"| 000000D0: 11 20 20 20 52 54 53 00 E4 1A DE 08 99 22 11 11 |. RTS......"..| 000000E0: 11 44 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D |.DIESES PROGRAMM| 000000F0: 20 49 53 54 20 41 42 20 38 35 39 20 47 45 53 50 | IST AB 859 GESP| 00000100: 45 49 43 48 45 52 54 2E 00 13 1B E8 08 99 22 11 |EICHERT.......".| 00000110: 57 49 52 20 52 55 46 45 4E 20 20 4E 55 4E 20 5A |WIR RUFEN NUN Z| 00000120: 55 45 52 53 54 20 20 44 45 4E 20 42 45 49 53 50 |UERST DEN BEISP| 00000130: 49 45 4C 54 45 58 54 00 42 1B F2 08 99 22 11 4D |IELTEXT.B....".M| 00000140: 49 54 20 53 59 53 20 28 38 32 36 29 20 55 4E 44 |IT SYS (826) UND| 00000150: 20 44 41 4E 4E 20 44 49 45 20 4F 42 49 47 45 20 | DANN DIE OBIGE | 00000160: 55 4E 54 45 52 2D 00 6F 1B F7 08 99 22 11 53 54 |UNTER-.o....".ST| 00000170: 52 45 49 43 48 55 4E 47 53 52 4F 55 54 49 4E 45 |REICHUNGSROUTINE| 00000180: 20 4D 49 54 20 53 59 53 20 28 38 35 39 29 20 41 | MIT SYS (859) A| 00000190: 55 46 3A 00 87 1B 06 09 49 B2 31 31 3A 8D 35 30 |UF:.....I.11:.50| 000001A0: 30 30 3A 8B 46 4C A7 32 30 30 30 00 A0 1B 60 09 |00:.FL.2000...`.| 000001B0: 9E 38 32 36 3A 9E 38 35 39 3A 81 57 B2 30 A4 39 |.826:.859:.W.0.9| 000001C0: 39 39 3A 82 00 AA 1B 6A 09 99 22 11 5E 22 00 D9 |99:....j..".^"..| 000001D0: 1B 74 09 99 22 11 5A 55 20 42 45 41 43 48 54 45 |.t..".ZU BEACHTE| 000001E0: 4E 20 49 53 54 2C 20 20 44 41 53 53 20 44 45 52 |N IST, DASS DER| 000001F0: 20 43 55 52 53 4F 52 20 4A 45 54 5A 54 00 08 1C | CURSOR JETZT...| 00000200: 7E 09 99 22 11 48 49 4E 54 45 52 20 44 45 4D 20 |~..".HINTER DEM | 00000210: 4C 45 54 5A 54 45 4E 20 27 C5 27 20 53 54 45 48 |LETZTEN '.' STEH| 00000220: 54 2C 20 41 4C 53 4F 20 44 4F 52 54 00 37 1C 88 |T, ALSO DORT.7..| 00000230: 09 99 22 11 57 4F 20 44 45 52 20 50 46 45 49 4C |..".WO DER PFEIL| 00000240: 20 20 48 49 4E 5A 45 49 47 54 2E 20 20 20 20 44 | HINZEIGT. D| 00000250: 45 52 20 4E 41 45 43 48 53 54 45 00 66 1C 92 09 |ER NAECHSTE.f...| 00000260: 99 22 11 50 52 49 4E 54 42 45 46 45 48 4C 20 4D |.".PRINTBEFEHL M| 00000270: 41 43 48 54 20 44 41 48 45 52 20 41 4E 20 44 49 |ACHT DAHER AN DI| 00000280: 45 53 45 52 20 53 54 45 4C 2D 00 79 1C 9C 09 99 |ESER STEL-.y....| 00000290: 22 11 4C 45 20 57 45 49 54 45 52 20 21 00 A9 1C |".LE WEITER !...| 000002A0: A6 09 99 22 11 11 4E 4F 43 48 4D 41 4C 53 20 20 |..."..NOCHMALS | 000002B0: 44 49 45 20 56 4F 52 54 45 49 4C 45 20 20 44 49 |DIE VORTEILE DI| 000002C0: 45 53 45 52 20 4D 45 54 48 4F 44 45 3A 00 EC 1C |ESER METHODE:...| 000002D0: B0 09 99 22 11 41 53 43 49 49 2D 43 4F 44 45 2C |...".ASCII-CODE,| 000002E0: 42 45 51 55 45 4D 45 20 50 52 4F 47 52 41 4D 4D |BEQUEME PROGRAMM| 000002F0: 49 45 52 55 4E 47 2C 20 45 49 4E 2D 22 3A 99 55 |IERUNG, EIN-":.U| 00000300: 24 55 24 55 24 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 |$U$U$"........."| 00000310: 00 16 1D BA 09 99 22 46 41 43 48 45 20 43 55 52 |......"FACHE CUR| 00000320: 53 4F 52 53 54 45 55 45 52 55 4E 47 2E 22 3A 99 |SORSTEUERUNG.":.| 00000330: 55 24 55 24 22 C5 C5 C5 C5 22 00 2E 1D CE 09 49 |U$U$"....".....I| 00000340: B2 31 32 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 32 |.12:.5000:.FL.22| 00000350: 30 30 00 44 1D 28 0A 99 22 93 41 55 46 47 41 42 |00.D.(..".AUFGAB| 00000360: 45 4E 3A 22 3A 99 55 24 00 73 1D 3C 0A 99 22 11 |EN:":.U$.s.<..".| 00000370: 31 2E 20 53 43 48 52 45 49 42 45 4E 20 53 49 45 |1. SCHREIBEN SIE| 00000380: 20 46 4F 4C 47 45 4E 44 45 4E 20 42 41 53 49 43 | FOLGENDEN BASIC| 00000390: 2D 42 45 46 45 48 4C 00 91 1D 46 0A 99 22 11 41 |-BEFEHL...F..".A| 000003A0: 4C 53 20 4D 41 53 43 48 49 4E 45 4E 50 52 4F 47 |LS MASCHINENPROG| 000003B0: 52 41 4D 4D 3A 00 CD 1D 50 0A 41 24 B2 C7 28 33 |RAMM:...P.A$..(3| 000003C0: 34 29 3A 99 22 11 27 50 52 49 4E 54 22 41 24 22 |4):.".'PRINT"A$"| 000003D0: 93 22 41 24 22 3B 54 41 42 28 31 30 29 3B 22 41 |."A$";TAB(10);"A| 000003E0: 24 22 41 55 46 47 41 42 45 20 31 22 41 24 22 27 |$"AUFGABE 1"A$"'| 000003F0: 22 00 E7 1D 64 0A 99 22 11 11 32 2E 20 45 42 45 |"...d.."..2. EBE| 00000400: 4E 53 4F 20 44 49 45 53 45 4E 3A 00 1A 1E 6E 0A |NSO DIESEN:...n.| 00000410: 99 22 11 27 50 52 49 4E 54 22 41 24 22 93 22 41 |.".'PRINT"A$"."A| 00000420: 24 22 3B 53 50 43 28 31 30 29 3B 22 41 24 22 41 |$";SPC(10);"A$"A| 00000430: 55 46 47 41 42 45 20 31 22 41 24 22 27 22 00 4A |UFGABE 1"A$"'".J| 00000440: 1E 82 0A 99 22 11 11 33 2E 20 53 43 48 52 45 49 |...."..3. SCHREI| 00000450: 42 45 4E 20 53 49 45 20 45 49 4E 20 50 47 4D 2C |BEN SIE EIN PGM,| 00000460: 44 41 53 20 41 4E 20 44 45 4E 20 41 4E 2D 00 79 |DAS AN DEN AN-.y| 00000470: 1E 8C 0A 99 22 11 46 41 4E 47 20 44 45 52 20 45 |....".FANG DER E| 00000480: 52 53 54 45 4E 20 5A 45 49 4C 45 20 27 41 29 27 |RSTEN ZEILE 'A)'| 00000490: 20 53 43 48 52 45 49 42 54 2C 20 41 4E 00 A8 1E | SCHREIBT, AN...| 000004A0: 91 0A 99 22 11 44 45 4E 20 44 45 52 20 5A 57 45 |...".DEN DER ZWE| 000004B0: 49 54 45 4E 20 27 42 29 27 2C 20 45 54 43 20 42 |ITEN 'B)', ETC B| 000004C0: 49 53 20 5A 45 49 4C 45 20 32 30 2E 00 C0 1E 96 |IS ZEILE 20.....| 000004D0: 0A 49 B2 31 33 3A 8D 35 30 30 30 3A 8B 46 4C A7 |.I.13:.5000:.FL.| 000004E0: 32 34 30 30 00 D4 1E F0 0A 9E 38 37 30 3A 81 57 |2400......870:.W| 000004F0: B2 30 A4 35 30 30 3A 82 00 0A 1F FA 0A 99 22 13 |.0.500:.......".| 00000500: 11 11 11 11 11 11 11 1D 1D 1D 45 49 4E 45 20 45 |..........EINE E| 00000510: 54 57 41 53 20 41 55 53 47 45 46 41 4C 4C 45 4E |TWAS AUSGEFALLEN| 00000520: 45 20 4C 4F 45 53 55 4E 47 20 46 55 45 52 00 38 |E LOESUNG FUER.8| 00000530: 1F 04 0B 99 22 11 1D 1D 1D 41 55 46 47 41 42 45 |...."....AUFGABE| 00000540: 20 33 20 46 49 4E 44 45 4E 20 53 49 45 20 41 42 | 3 FINDEN SIE AB| 00000550: 20 38 37 30 20 49 4D 20 52 41 4D 2E 00 7E 1F 5E | 870 IM RAM..~.^| 00000560: 0B 99 22 11 11 11 11 11 11 11 11 11 11 11 11 1D |..".............| 00000570: 1D 2D 20 53 45 49 54 45 20 31 34 20 2D 20 20 3C |.- SEITE 14 - <| 00000580: 2B 3E 20 91 A4 A4 A4 A4 11 9D 9D 9D 9D 12 45 4E |+> ...........EN| 00000590: 44 45 92 20 3C 2D 3E 20 56 4F 4E 20 56 4F 52 4E |DE. <-> VON VORN| 000005A0: 45 22 00 8E 1F F4 0B 8D 35 30 32 30 3A 91 46 4C |E"......5020:.FL| 000005B0: 89 30 00 9B 1F 08 0C 9E 38 37 30 3A 80 3A 8A 00 |.0......870:.:..| 000005C0: AD 1F 88 13 8F 20 55 4D 42 4C 41 45 54 54 45 52 |..... UMBLAETTER| 000005D0: 4E 00 F7 1F 92 13 99 22 13 11 11 11 11 11 11 11 |N......"........| 000005E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000005F0: 11 20 20 2D 20 53 45 49 54 45 22 3B 49 3B 22 2D |. - SEITE";I;"-| 00000600: 20 20 3C 2B 3E 20 57 45 49 54 45 52 20 20 3C 2D | <+> WEITER <-| 00000610: 3E 20 5A 55 52 55 45 43 4B 22 3B 00 09 20 9C 13 |> ZURUECK";.. ..| 00000620: 81 49 B2 30 A4 31 31 3A A1 58 24 3A 82 00 1D 20 |.I.0.11:.X$:... | 00000630: A6 13 A1 58 24 3A 8B 58 24 B2 22 22 A7 35 30 33 |...X$:.X$."".503| 00000640: 30 00 30 20 B0 13 8B 58 24 B2 22 2B 22 A7 46 4C |0.0 ...X$."+".FL| 00000650: B2 30 3A 8E 00 43 20 BA 13 8B 58 24 B2 22 2D 22 |.0:..C ...X$."-"| 00000660: A7 46 4C B2 31 3A 8E 00 4D 20 C4 13 89 35 30 33 |.FL.1:..M ...503| 00000670: 30 00 00 00 30 31 |0...01 |
OLGENDES PROGRAMM:...>.I.10:.5000:.FL.18
00.*....". LDX #$11 ZAEHLER = 17.K
....". LDA #$C5 'E' IN AC.H...."..
. JSR $FFD2 PRINT......".... DEX
X=X-1...J.."...._ BNE $FA X=0
?...T..". RTS......"...DIESES PROGRAMM
IST AB 859 GESPEICHERT.......".WIR RUFE
N NUN ZUERST DEN BEISPIELTEXT.B....".M
IT SYS (826) UND DANN DIE OBIGE UNTER-.O
....".STREICHUNGSROUTINE MIT SYS (859) A
UF:.....I.11:.5000:.FL.2000. .`..826:.85
9:.W.0.999:....J..".^".Y.T..".ZU BEACHTE
N IST, DASS DER CURSOR JETZT...~..".HIN
TER DEM LETZTEN 'E' STEHT, ALSO DORT.7..
..".WO DER PFEIL HINZEIGT. DER NAECH
STE.F....".PRINTBEFEHL MACHT DAHER AN DI
ESER STEL-.Y....".LE WEITER !......"..NO
CHMALS DIE VORTEILE DIESER METHODE:...
...".ASCII-CODE,BEQUEME PROGRAMMIERUNG,
EIN-":.U$U$U$"EEEEEEEEE"......"FACHE CUR
SORSTEUERUNG.":.U$U$"EEEE"...N.I.12:.500
0:.FL.2200.D.(..".AUFGABEN:":.U$.S.<..".
1. SCHREIBEN SIE FOLGENDEN BASIC-BEFEHL.
..F..".ALS MASCHINENPROGRAMM:.M.P.A$.G(3
4):.".'PRINT"A$"."A$";TAB(10);"A$"AUFGAB
E 1"A$"'"...D.."..2. EBENSO DIESEN:...N.
.".'PRINT"A$"."A$";SPC(10);"A$"AUFGABE 1
"A$"'".J...."..3. SCHREIBEN SIE EIN PGM,
DAS AN DEN AN-.Y....".FANG DER ERSTEN ZE
ILE 'A)' SCHREIBT, AN......".DEN DER ZWE
ITEN 'B)', ETC BIS ZEILE 20......I.13:.5
000:.FL.2400.T....870:.W.0.500:.......".
..........EINE ETWAS AUSGEFALLENE LOESUN
G FUER.8...."....AUFGABE 3 FINDEN SIE AB
870 IM RAM..~.^.."..............- SEITE
14 - <+> ...........ENDE. <-> VON VORN
E"......5020:.FL.0......870:.:....... UM
BLAETTERN......"........................
. - SEITE";I;"- <+> WEITER <-> ZURUEC
K";.. ...I.0.11:.X$:... ...X$:.X$."".503
0.0 ...X$."+".FL.0:..C ...X$."-".FL.1:..
M D..5030...01
> CLICK IMAGE PREVIEW FOR FULL MODAL