8/1LEKTION
FILE INFORMATION
FILENAME(S): 8/1LEKTION
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-10-20 14:37:14
APPEARS ON: 1 disk(s)
FILE HASH
551a79754860063c8d1efde4ec4cf30c83a22cadd3f79e042935e1f3dfb47b1e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HANS | 8/1LEKTION | PRG | Treasure Chest - LehrerMIL | 25 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 45 52 45 4E 20 47 45 53 43 48 57 49 4E 44 49 47 |EREN GESCHWINDIG|
00000010: 4B 45 49 54 20 20 28 4E 55 52 00 34 0C 22 01 99 |KEIT (NUR.4."..|
00000020: 22 11 42 45 49 4D 20 38 30 30 30 27 45 52 20 45 |".BEIM 8000'ER E|
00000030: 54 57 41 20 47 4C 45 49 43 48 29 2E 00 50 0C 2C |TWA GLEICH)..P.,|
00000040: 01 8C 3A 81 49 B2 30 A4 37 30 3A 87 58 3A 97 38 |..:.I.0.70:.X:.8|
00000050: 32 36 AA 49 2C 58 3A 82 00 66 0C 36 01 49 B2 31 |26.I,X:..f.6.I.1|
00000060: 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 00 9F |:.5000:.FL.200..|
00000070: 0C 90 01 99 22 93 44 49 45 20 50 52 49 4E 54 52 |....".DIE PRINTR|
00000080: 4F 55 54 49 4E 45 20 57 49 52 44 20 4D 49 54 20 |OUTINE WIRD MIT |
00000090: 20 27 4A 53 52 20 20 24 46 46 44 32 27 22 3A 99 | 'JSR $FFD2'":.|
000000A0: A3 32 38 29 3B 55 24 00 CD 0C 9A 01 99 22 41 55 |.28);U$......"AU|
000000B0: 46 47 45 52 55 46 45 4E 20 28 44 45 5A 49 4D 41 |FGERUFEN (DEZIMA|
000000C0: 4C 3A 20 36 35 34 39 30 29 2E 20 53 49 45 20 44 |L: 65490). SIE D|
000000D0: 52 55 43 4B 54 00 FC 0C A4 01 99 22 11 44 41 53 |RUCKT......".DAS|
000000E0: 20 49 4D 20 41 43 20 53 54 45 48 45 4E 44 45 20 | IM AC STEHENDE |
000000F0: 5A 45 49 43 48 45 4E 20 20 44 4F 52 54 48 49 4E |ZEICHEN DORTHIN|
00000100: 2C 20 57 4F 00 2B 0D AE 01 99 22 11 44 45 52 20 |, WO.+....".DER |
00000110: 43 55 52 53 4F 52 20 53 49 43 48 20 42 45 46 49 |CURSOR SICH BEFI|
00000120: 4E 44 45 54 20 55 4E 44 20 20 53 45 54 5A 54 20 |NDET UND SETZT |
00000130: 44 49 45 00 5A 0D B8 01 99 22 11 43 55 52 53 4F |DIE.Z....".CURSO|
00000140: 52 41 44 52 45 53 53 45 20 55 4D 20 31 20 57 45 |RADRESSE UM 1 WE|
00000150: 49 54 45 52 2E 20 44 41 53 20 4E 41 45 43 48 53 |ITER. DAS NAECHS|
00000160: 54 45 00 89 0D C2 01 99 22 11 5A 45 49 43 48 45 |TE......".ZEICHE|
00000170: 4E 20 57 49 52 44 20 44 41 48 45 52 20 20 41 55 |N WIRD DAHER AU|
00000180: 54 4F 4D 41 54 49 53 43 48 20 20 48 49 4E 54 45 |TOMATISCH HINTE|
00000190: 52 00 A5 0D CC 01 99 22 11 44 41 53 20 20 45 52 |R......".DAS ER|
000001A0: 53 54 45 20 47 45 44 52 55 43 4B 54 2E 00 D5 0D |STE GEDRUCKT....|
000001B0: D6 01 99 22 11 11 44 49 45 20 43 55 52 53 4F 52 |..."..DIE CURSOR|
000001C0: 53 54 45 55 45 52 42 45 46 45 48 4C 45 20 4B 4F |STEUERBEFEHLE KO|
000001D0: 45 4E 4E 45 4E 20 57 49 45 20 47 45 2D 00 F8 0D |ENNEN WIE GE-...|
000001E0: E0 01 99 22 11 57 4F 45 48 4E 4C 49 43 48 20 56 |...".WOEHNLICH V|
000001F0: 45 52 57 45 4E 44 45 54 20 57 45 52 44 45 4E 2E |ERWENDET WERDEN.|
00000200: 00 32 0E EA 01 99 22 11 11 44 49 45 20 5A 45 49 |.2...."..DIE ZEI|
00000210: 43 48 45 4E 20 49 4D 20 41 43 20 4D 55 45 53 53 |CHEN IM AC MUESS|
00000220: 45 4E 20 49 4D 20 41 53 43 49 49 2D 43 4F 44 45 |EN IM ASCII-CODE|
00000230: 22 3A 99 A3 32 39 29 3B 55 24 00 3E 0E F4 01 99 |":..29);U$.>....|
00000240: 22 53 45 49 4E 2E 00 54 0E 08 02 49 B2 32 3A 8D |"SEIN..T...I.2:.|
00000250: 35 30 30 30 3A 8B 46 4C A7 32 30 30 00 6B 0E 58 |5000:.FL.200.k.X|
00000260: 02 99 22 93 42 45 49 53 50 49 45 4C 45 3A 22 3A |..".BEISPIELE:":|
00000270: 99 55 24 00 9E 0E 5D 02 99 22 A4 11 9D 12 31 92 |.U$...].."....1.|
00000280: 2E 20 42 45 53 4F 4E 44 45 52 53 20 20 45 49 4E |. BESONDERS EIN|
00000290: 46 41 43 48 20 49 53 54 20 20 44 41 53 20 4C 4F |FACH IST DAS LO|
000002A0: 45 53 43 48 45 4E 00 B7 0E 62 02 99 22 11 44 45 |ESCHEN...b..".DE|
000002B0: 53 20 42 49 4C 44 53 43 48 49 52 4D 45 53 3A 00 |S BILDSCHIRMES:.|
000002C0: DB 0E 67 02 99 22 11 20 20 20 4C 44 41 20 23 24 |..g..". LDA #$|
000002D0: 39 33 20 20 20 20 20 20 27 43 4C 52 27 20 49 4E |93 'CLR' IN|
000002E0: 20 41 43 00 F9 0E 6C 02 99 22 11 20 20 20 4A 53 | AC...l..". JS|
000002F0: 52 20 24 46 46 44 32 20 20 20 20 20 50 52 49 4E |R $FFD2 PRIN|
00000300: 54 00 23 0F 76 02 99 22 11 45 49 4E 46 41 43 48 |T.#.v..".EINFACH|
00000310: 45 52 20 47 45 48 54 27 53 20 44 4F 43 48 20 4B |ER GEHT'S DOCH K|
00000320: 41 55 4D 2C 20 4F 44 45 52 20 3F 00 58 0F 80 02 |AUM, ODER ?.X...|
00000330: 99 22 11 11 A4 11 9D 12 32 92 2E 20 43 55 52 53 |."......2.. CURS|
00000340: 4F 52 20 20 49 4E 20 4C 49 4E 4B 45 20 4F 42 45 |OR IN LINKE OBE|
00000350: 52 45 20 45 43 4B 45 20 20 53 45 54 5A 45 4E 2C |RE ECKE SETZEN,|
00000360: 00 7C 0F 8A 02 99 22 11 4F 48 4E 45 20 42 49 4C |.|....".OHNE BIL|
00000370: 44 53 43 48 49 52 4D 20 5A 55 20 4C 4F 45 53 43 |DSCHIRM ZU LOESC|
00000380: 48 45 4E 3A 00 A1 0F 94 02 99 22 11 20 20 20 4C |HEN:......". L|
00000390: 44 41 20 23 24 31 33 20 20 20 20 20 20 27 48 4F |DA #$13 'HO|
000003A0: 4D 45 27 20 49 4E 20 41 43 00 BF 0F 9E 02 99 22 |ME' IN AC......"|
000003B0: 11 20 20 20 4A 53 52 20 24 46 46 44 32 20 20 20 |. JSR $FFD2 |
000003C0: 20 20 50 52 49 4E 54 00 D5 0F D0 02 49 B2 33 3A | PRINT.....I.3:|
000003D0: 8D 35 30 30 30 3A 8B 46 4C A7 34 30 30 00 08 10 |.5000:.FL.400...|
000003E0: 20 03 99 22 93 11 11 11 A4 11 9D 12 33 92 2E 20 | .."........3.. |
000003F0: 4D 49 54 20 27 52 45 54 55 52 4E 27 20 57 49 52 |MIT 'RETURN' WIR|
00000400: 44 20 44 45 52 20 43 55 52 53 4F 52 20 41 55 46 |D DER CURSOR AUF|
00000410: 00 33 10 25 03 99 22 11 44 45 4E 20 4E 41 45 43 |.3.%..".DEN NAEC|
00000420: 48 53 54 45 4E 20 5A 45 49 4C 45 4E 41 4E 46 41 |HSTEN ZEILENANFA|
00000430: 4E 47 20 47 45 53 45 54 5A 54 3A 00 5A 10 2A 03 |NG GESETZT:.Z.*.|
00000440: 99 22 11 20 20 20 4C 44 41 20 23 24 30 44 20 20 |.". LDA #$0D |
00000450: 20 20 20 20 27 52 45 54 55 52 4E 27 20 49 4E 20 | 'RETURN' IN |
00000460: 41 43 00 78 10 2F 03 99 22 11 20 20 20 4A 53 52 |AC.x./..". JSR|
00000470: 20 24 46 46 44 32 20 20 20 20 20 50 52 49 4E 54 | $FFD2 PRINT|
00000480: 00 A7 10 34 03 99 22 11 53 54 41 54 54 20 27 52 |...4..".STATT 'R|
00000490: 45 54 55 52 4E 27 20 46 49 4E 44 45 54 20 4D 41 |ETURN' FINDET MA|
000004A0: 4E 20 41 55 43 48 20 4F 46 54 20 27 43 52 27 00 |N AUCH OFT 'CR'.|
000004B0: D6 10 3E 03 99 22 11 45 53 20 42 45 44 45 55 54 |..>..".ES BEDEUT|
000004C0: 45 54 20 20 27 43 41 52 20 52 45 54 55 52 4E 27 |ET 'CAR RETURN'|
000004D0: 2C 20 20 41 4C 53 4F 20 53 4F 56 49 45 4C 00 F3 |, ALSO SOVIEL..|
000004E0: 10 48 03 99 22 11 57 49 45 20 27 57 41 47 45 4E |.H..".WIE 'WAGEN|
000004F0: 52 55 45 43 4B 4C 41 55 46 27 2E 00 09 11 A2 03 |RUECKLAUF'......|
00000500: 49 B2 34 3A 8D 35 30 30 30 3A 8B 46 4C A7 36 30 |I.4:.5000:.FL.60|
00000510: 30 00 3D 11 E8 03 99 22 93 11 11 11 11 11 53 4F |0.=...."......SO|
00000520: 4C 4C 20 54 45 58 54 20 20 41 55 53 47 45 44 52 |LL TEXT AUSGEDR|
00000530: 55 43 4B 54 20 57 45 52 44 45 4E 2C 20 20 53 4F |UCKT WERDEN, SO|
00000540: 20 4C 45 47 54 00 6C 11 F2 03 99 22 11 4D 41 4E | LEGT.l....".MAN|
00000550: 20 57 49 45 44 45 52 20 57 49 45 20 42 45 49 20 | WIEDER WIE BEI |
00000560: 44 45 52 20 44 49 52 45 4B 54 45 4E 20 41 55 53 |DER DIREKTEN AUS|
00000570: 47 41 42 45 00 98 11 FC 03 99 22 11 45 49 4E 45 |GABE......".EINE|
00000580: 20 4C 49 53 54 45 20 41 4E 2C 20 4E 55 52 20 44 | LISTE AN, NUR D|
00000590: 49 45 53 4D 41 4C 20 49 4E 20 41 53 43 49 49 2E |IESMAL IN ASCII.|
000005A0: 00 C8 11 06 04 99 22 11 11 44 49 45 20 43 55 52 |......"..DIE CUR|
000005B0: 53 4F 52 53 54 45 55 45 52 55 4E 47 45 4E 20 20 |SORSTEUERUNGEN |
000005C0: 50 41 43 4B 54 20 4D 41 4E 20 20 44 41 42 45 49 |PACKT MAN DABEI|
000005D0: 00 F3 11 10 04 99 22 11 4E 41 54 55 45 52 4C 49 |......".NATUERLI|
000005E0: 43 48 20 47 4C 45 49 43 48 20 4D 49 54 20 49 4E |CH GLEICH MIT IN|
000005F0: 20 44 49 45 20 4C 49 53 54 45 2E 00 24 12 1A 04 | DIE LISTE..$...|
00000600: 99 22 11 11 11 45 49 4E 45 20 53 4F 4C 43 48 45 |."...EINE SOLCHE|
00000610: 20 4C 49 53 54 45 20 4B 4F 45 4E 4E 54 45 20 42 | LISTE KOENNTE B|
00000620: 45 49 53 50 49 45 4C 53 57 45 49 2D 00 3B 12 24 |EISPIELSWEI-.;.$|
00000630: 04 99 22 11 53 45 20 53 4F 20 41 55 53 53 45 48 |..".SE SO AUSSEH|
00000640: 45 4E 3A 00 51 12 6A 04 49 B2 35 3A 8D 35 30 30 |EN:.Q.j.I.5:.500|
00000650: 30 3A 8B 46 4C A7 38 30 30 00 75 12 B0 04 99 22 |0:.FL.800.u...."|
00000660: 93 20 20 20 20 20 41 44 52 45 53 53 45 20 49 4E |. ADRESSE IN|
00000670: 48 41 4C 54 20 5A 45 49 43 48 45 4E 11 00 AE 12 |HALT ZEICHEN....|
00000680: BA 04 81 49 B2 30 A4 31 38 3A 99 22 20 20 20 20 |...I.0.18:." |
00000690: 20 20 4E 2B 22 CA 28 C4 28 49 29 AA 22 20 22 2C | N+".(.(I)." ",|
000006A0: 32 2C 32 29 22 20 20 20 20 24 20 20 20 20 20 20 |2,2)" $ |
000006B0: 20 27 20 27 91 22 00 EC 12 CE 04 99 A3 31 35 29 | ' '.".......15)|
000006C0: CA 28 22 39 33 35 33 35 39 34 45 35 34 34 31 35 |.("9353594E54415|
000006D0: 38 32 30 34 39 35 33 35 34 32 30 35 34 34 46 34 |82049535420544F4|
000006E0: 43 34 43 32 30 32 31 30 44 22 2C 32 AC 49 AA 31 |C4C20210D",2.I.1|
000006F0: 2C 32 29 3B 00 16 13 D8 04 99 A3 32 33 29 CA 28 |,2);.......23).(|
00000700: 22 20 53 59 4E 54 41 58 20 49 53 54 20 54 4F 4C |" SYNTAX IST TOL|
00000710: 4C 20 21 20 22 2C 49 AA 31 2C 31 29 3A 82 00 39 |L ! ",I.1,1):..9|
00000720: 13 E2 04 99 A3 32 30 29 22 91 27 52 45 54 55 52 |.....20)".'RETUR|
00000730: 4E 27 13 11 11 22 A3 32 31 29 22 27 43 4C 52 27 |N'...".21)"'CLR'|
00000740: 22 00 50 13 28 05 49 B2 36 3A 8D 35 30 30 30 3A |".P.(.I.6:.5000:|
00000750: 8B 46 4C A7 31 30 30 30 00 7F 13 78 05 99 22 93 |.FL.1000...x..".|
00000760: 56 4F 52 20 44 49 45 53 45 20 54 45 58 54 54 41 |VOR DIESE TEXTTA|
00000770: 42 45 4C 4C 45 20 53 43 48 52 45 49 42 45 4E 20 |BELLE SCHREIBEN |
00000780: 57 49 52 20 45 49 4E 00 AE 13 82 05 99 22 11 50 |WIR EIN......".P|
00000790: 52 4F 47 52 41 4D 4D 2C 20 20 44 41 53 20 49 4E |ROGRAMM, DAS IN|
000007A0: 20 45 49 4E 45 52 20 53 43 48 4C 45 49 46 45 20 | EINER SCHLEIFE |
000007B0: 20 4E 41 43 48 2D 00 DD 13 8C 05 99 22 11 45 49 | NACH-......".EI|
000007C0: 4E 41 4E 44 45 52 20 44 49 45 20 5A 45 49 43 48 |NANDER DIE ZEICH|
000007D0: 45 4E 20 49 4E 20 44 45 4E 20 41 43 20 4C 41 45 |EN IN DEN AC LAE|
000007E0: 44 20 55 4E 44 00 0C 14 96 05 99 22 11 44 49 45 |D UND......".DIE|
000007F0: 53 45 20 4D 49 54 20 45 49 4E 45 4D 20 20 55 4E |SE MIT EINEM UN|
00000800: 54 45 52 50 52 4F 47 52 41 4D 4D 41 55 46 52 55 |TERPROGRAMMAUFRU|
00000810: 46 20 41 4E 00 2F 14 A0 05 99 22 11 44 49 45 20 |F AN./....".DIE |
00000820: 50 52 49 4E 54 52 4F 55 54 49 4E 45 20 55 45 42 |PRINTROUTINE UEB|
00000830: 45 52 47 49 42 54 2E 00 6C 14 AA 05 99 22 11 11 |ERGIBT..l...."..|
00000840: 57 4F 48 4C 47 45 4D 45 52 4B 54 3A 20 57 4F 48 |WOHLGEMERKT: WOH|
00000850: 49 4E 20 44 45 52 20 54 45 58 54 20 47 45 53 43 |IN DER TEXT GESC|
00000860: 48 52 49 45 42 45 4E 22 3A 99 A3 31 33 29 22 C5 |HRIEBEN":..13)".|
00000870: C5 C5 C5 C5 00 A9 14 AF 05 99 22 57 49 52 44 2C |.........."WIRD,|
00000880: 20 49 53 54 20 49 4E 20 44 45 52 20 54 41 42 45 | IST IN DER TABE|
00000890: 4C 4C 45 20 44 55 52 43 48 20 44 49 45 20 4D 49 |LLE DURCH DIE MI|
000008A0: 54 2D 22 3A 99 A3 31 30 29 55 24 22 C5 C5 C5 C5 |T-":..10)U$"....|
000008B0: 22 00 D7 14 B4 05 99 22 45 49 4E 47 45 42 41 55 |"......"EINGEBAU|
000008C0: 54 45 4E 20 43 55 52 53 4F 52 53 54 45 55 45 52 |TEN CURSORSTEUER|
000008D0: 55 4E 47 45 4E 20 53 43 48 4F 4E 20 47 45 2D 00 |UNGEN SCHON GE-.|
000008E0: EE 14 BE 05 99 22 11 4E 41 55 20 46 45 53 54 47 |.....".NAU FESTG|
000008F0: 45 4C 45 47 54 21 00 09 15 C8 05 99 22 11 11 48 |ELEGT!......"..H|
00000900: 49 45 52 20 44 41 53 20 50 52 4F 47 52 41 4D 4D |IER DAS PROGRAMM|
00000910: 3A 00 20 15 E6 05 49 B2 37 3A 8D 35 30 30 30 3A |:. ...I.7:.5000:|
00000920: 8B 46 4C A7 31 32 30 30 00 44 15 40 06 99 22 93 |.FL.1200.D.@..".|
00000930: B0 C0 20 4C 44 58 20 23 24 30 30 20 20 20 20 5A |.. LDX #$00 Z|
00000940: 41 45 48 4C 45 52 20 41 55 46 20 30 00 6B 15 4A |AEHLER AUF 0.k.J|
00000950: 06 99 22 DD 9D 11 DD 20 20 4C 44 41 20 4E 2C 58 |..".... LDA N,X|
00000960: 20 20 20 20 20 5A 45 49 43 48 45 4E 20 49 4E 20 | ZEICHEN IN |
00000970: 20 41 43 00 89 15 54 06 99 22 DD 9D 11 DD 20 20 | AC...T..".... |
00000980: 4A 53 52 20 24 46 46 44 32 20 20 20 50 52 49 4E |JSR $FFD2 PRIN|
00000990: 54 00 A7 15 59 06 99 22 DD 9D 11 DD 20 20 49 4E |T...Y..".... IN|
000009A0: 58 20 20 20 20 20 20 20 20 20 58 3D 58 2B 31 00 |X X=X+1.|
000009B0: C5 15 5E 06 99 22 DD 9D 11 DD 20 20 43 50 58 20 |..^..".... CPX |
000009C0: 23 24 31 33 20 20 20 20 58 3D 31 39 3F 00 F5 15 |#$13 X=19?...|
000009D0: 63 06 99 22 DD 9D 11 AD 5F 20 42 4E 45 20 24 46 |c.."...._ BNE $F|
000009E0: 35 20 20 20 20 20 4E 45 49 4E 3A 20 4E 41 45 43 |5 NEIN: NAEC|
000009F0: 48 53 54 45 53 20 5A 45 49 43 48 45 4E 00 03 16 |HSTES ZEICHEN...|
00000A00: 90 06 99 22 11 20 20 20 52 54 53 00 33 16 95 06 |...". RTS.3...|
00000A10: 99 22 11 11 55 45 42 45 52 5A 45 55 47 45 4E 20 |."..UEBERZEUGEN |
00000A20: 53 49 45 20 53 49 43 48 2C 20 20 44 41 53 53 20 |SIE SICH, DASS |
00000A30: 44 45 52 20 41 42 42 52 55 43 48 00 61 16 9A 06 |DER ABBRUCH.a...|
00000A40: 99 22 11 42 45 49 20 58 3D 24 31 33 20 28 44 45 |.".BEI X=$13 (DE|
00000A50: 5A 49 4D 41 4C 3D 31 39 29 20 45 52 46 4F 4C 47 |ZIMAL=19) ERFOLG|
00000A60: 45 4E 20 4D 55 53 53 20 21 00 81 16 A4 06 99 22 |EN MUSS !......"|
00000A70: 11 11 4E 55 4E 20 45 49 4E 45 20 44 45 4D 4F 4E |..NUN EINE DEMON|
00000A80: 53 54 52 41 54 49 4F 4E 3A 00 98 16 AE 06 49 B2 |STRATION:.....I.|
00000A90: 38 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 34 30 30 |8:.5000:.FL.1400|
00000AA0: 00 AC 16 08 07 9E 38 32 36 3A 81 57 B2 30 A4 35 |......826:.W.0.5|
00000AB0: 30 30 3A 82 00 DD 16 12 07 99 22 11 11 11 53 43 |00:......."...SC|
00000AC0: 48 4F 45 4E 20 2D 20 45 53 20 46 55 4E 4B 54 49 |HOEN - ES FUNKTI|
00000AD0: 4F 4E 49 45 52 54 2E 20 20 20 44 45 52 20 54 45 |ONIERT. DER TE|
00000AE0: 58 54 20 49 4E 00 0C 17 1C 07 99 22 11 44 49 45 |XT IN......".DIE|
00000AF0: 53 45 4D 20 42 45 49 53 50 49 45 4C 20 49 53 54 |SEM BEISPIEL IST|
00000B00: 20 4E 41 54 55 45 52 4C 49 43 48 20 4E 55 52 20 | NATUERLICH NUR |
00000B10: 4B 55 52 5A 00 3B 17 26 07 99 22 11 41 42 45 52 |KURZ.;.&..".ABER|
00000B20: 20 20 45 52 20 4C 41 45 53 53 54 20 53 49 43 48 | ER LAESST SICH|
00000B30: 20 50 52 49 4E 5A 49 50 49 45 4C 4C 20 42 45 4C | PRINZIPIELL BEL|
00000B40: 49 45 2D 00 6A 17 30 07 99 22 11 42 49 47 20 56 |IE-.j.0..".BIG V|
00000B50: 45 52 4C 41 45 4E 47 45 52 4E 2E 20 20 20 44 49 |ERLAENGERN. DI|
00000B60: 45 20 5A 45 49 4C 45 20 27 43 50 58 20 23 24 31 |E ZEILE 'CPX #$1|
00000B70: 33 27 00 94 17 3A 07 99 22 11 49 53 54 20 44 41 |3'...:..".IST DA|
00000B80: 4E 4E 20 45 4E 54 53 50 52 45 43 48 45 4E 44 20 |NN ENTSPRECHEND |
00000B90: 41 42 5A 55 41 45 4E 44 45 52 4E 2E 00 C4 17 44 |ABZUAENDERN....D|
00000BA0: 07 99 22 11 11 57 45 4E 4E 20 53 49 45 20 20 44 |.."..WENN SIE D|
00000BB0: 41 53 20 50 52 4F 47 52 41 4D 4D 20 20 53 54 55 |AS PROGRAMM STU|
00000BC0: 44 49 45 52 45 4E 20 20 4F 44 45 52 00 F3 17 4E |DIEREN ODER...N|
00000BD0: 07 99 22 11 56 45 52 41 45 4E 44 45 52 4E 20 57 |..".VERAENDERN W|
00000BE0: 4F 4C 4C 45 4E 3A 20 20 20 45 53 20 53 54 45 48 |OLLEN: ES STEH|
00000BF0: 54 20 41 42 20 38 32 36 20 49 4D 00 FF 17 58 07 |T AB 826 IM...X.|
00000C00: 99 22 11 52 41 4D 2E 00 16 18 76 07 49 B2 39 3A |.".RAM....v.I.9:|
00000C10: 8D 35 30 30 30 3A 8B 46 4C A7 31 36 30 30 00 46 |.5000:.FL.1600.F|
00000C20: 18 D0 07 99 22 93 11 45 49 4E 20 41 45 52 47 45 |...."..EIN AERGE|
00000C30: 52 4E 49 53 20 20 42 45 49 20 44 49 45 53 45 52 |RNIS BEI DIESER|
00000C40: 20 20 4D 45 54 48 4F 44 45 20 53 49 4E 44 00 75 | METHODE SIND.u|
00000C50: 18 D5 07 99 22 11 4C 41 45 4E 47 45 52 45 20 46 |....".LAENGERE F|
00000C60: 4F 4C 47 45 4E 20 44 45 53 53 45 4C 42 45 4E 20 |OLGEN DESSELBEN |
00000C70: 5A 45 49 43 48 45 4E 53 2C 20 57 49 45 00 A4 18 |ZEICHENS, WIE...|
00000C80: DA 07 99 22 11 5A 2E 42 2E 42 45 49 20 55 4E 54 |...".Z.B.BEI UNT|
00000C90: 45 52 53 54 52 45 49 43 48 55 4E 47 45 4E 2C 20 |ERSTREICHUNGEN, |
00000CA0: 45 49 4E 52 41 48 4D 45 4E 44 45 4E 00 D3 18 E4 |EINRAHMENDEN....|
00000CB0: 07 99 22 11 4C 49 4E 49 45 4E 20 45 54 43 2E 20 |..".LINIEN ETC. |
00000CC0: 20 48 49 45 52 20 4C 45 47 54 20 4D 41 4E 20 42 | HIER LEGT MAN B|
00000CD0: 45 53 53 45 52 20 4B 45 49 4E 45 00 02 19 EE 07 |ESSER KEINE.....|
00000CE0: 99 22 11 54 41 42 45 4C 4C 45 20 41 4E 2C 20 20 |.".TABELLE AN, |
00000CF0: 53 4F 4E 44 45 52 4E 20 4C 41 45 53 53 54 20 44 |SONDERN LAESST D|
00000D00: 41 53 20 5A 45 49 43 48 45 4E 00 31 19 F8 07 99 |AS ZEICHEN.1....|
00000D10: 22 11 56 4F 4E 20 45 49 4E 45 52 20 47 45 53 4F |".VON EINER GESO|
00000D20: 4E 44 45 52 54 45 4E 20 53 43 48 4C 45 49 46 45 |NDERTEN SCHLEIFE|
00000D30: 20 44 52 55 43 4B 45 4E 2E 00 62 19 02 08 99 22 | DRUCKEN..b...."|
00000D40: 11 11 11 57 4F 4C 4C 45 4E 20 57 49 52 20 20 42 |...WOLLEN WIR B|
00000D50: 45 49 53 50 49 45 4C 53 57 45 49 53 45 20 44 45 |EISPIELSWEISE DE|
00000D60: 4E 20 54 45 58 54 20 44 45 53 00 91 19 07 08 99 |N TEXT DES......|
00000D70: 22 11 4C 45 54 5A 54 45 4E 20 20 42 45 49 53 50 |".LETZTEN BEISP|
00000D80: 49 45 4C 53 20 20 55 4E 54 45 52 53 54 52 45 49 |IELS UNTERSTREI|
00000D90: 43 48 45 4E 2C 20 20 53 4F 00 C0 19 16 08 99 22 |CHEN, SO......"|
00000DA0: 11 4D 55 45 53 53 45 4E 20 57 49 52 20 31 37 20 |.MUESSEN WIR 17 |
00000DB0: 4D 41 4C 20 44 41 53 20 5A 45 49 43 48 45 4E 20 |MAL DAS ZEICHEN |
00000DC0: 27 C5 27 20 41 55 53 2D 00 EE 19 20 08 99 22 11 |'.' AUS-... ..".|
00000DD0: 44 52 55 43 4B 45 4E 2E 20 44 41 53 20 4D 41 43 |DRUCKEN. DAS MAC|
00000DE0: 48 54 20 46 4F 4C 47 45 4E 44 45 53 20 50 52 4F |HT FOLGENDES PRO|
00000DF0: 47 52 41 4D 4D 3A 00 06 1A 3E 08 49 B2 31 30 3A |GRAMM:...>.I.10:|
00000E00: 8D 35 30 30 30 3A 8B 46 4C A7 31 38 30 30 00 2A |.5000:.FL.1800.*|
00000E10: 1A 98 08 99 22 93 20 20 20 4C 44 58 20 23 24 31 |....". LDX #$1|
00000E20: 31 20 20 20 20 20 5A 41 45 48 4C 45 52 20 3D 20 |1 ZAEHLER = |
00000E30: 31 37 00 4B 1A AC 08 99 22 11 20 20 20 4C 44 41 |17.K....". LDA|
00000E40: 20 23 24 43 35 20 20 20 20 20 27 C5 27 20 49 4E | #$C5 '.' IN|
00000E50: 20 41 43 00 68 1A B6 08 99 22 11 B0 C0 20 4A 53 | AC.h...."... JS|
00000E60: 52 20 24 46 46 44 32 20 20 20 20 50 52 49 4E 54 |R $FFD2 PRINT|
00000E70: 00 87 1A C0 08 99 22 DD 9D 11 DD 20 20 44 45 58 |......".... DEX|
00000E80: 20 20 20 20 20 20 20 20 20 20 58 3D 58 2D 31 00 | X=X-1.|
00000E90: A5 1A CA 08 99 22 DD 9D 11 AD 5F 20 42 4E 45 20 |....."...._ BNE |
00000EA0: 24 46 41 20 20 20 20 20 20 58 3D 30 3F 00 B3 1A |$FA X=0?...|
00000EB0: D4 08 99 22 11 20 20 20 52 54 53 00 E4 1A DE 08 |...". RTS.....|
00000EC0: 99 22 11 11 11 44 49 45 53 45 53 20 50 52 4F 47 |."...DIESES PROG|
00000ED0: 52 41 4D 4D 20 49 53 54 20 41 42 20 38 35 39 20 |RAMM IST AB 859 |
00000EE0: 47 45 53 50 45 49 43 48 45 52 54 2E 00 13 1B E8 |GESPEICHERT.....|
00000EF0: 08 99 22 11 57 49 52 20 52 55 46 45 4E 20 20 4E |..".WIR RUFEN N|
00000F00: 55 4E 20 5A 55 45 52 53 54 20 20 44 45 4E 20 42 |UN ZUERST DEN B|
00000F10: 45 49 53 50 49 45 4C 54 45 58 54 00 42 1B F2 08 |EISPIELTEXT.B...|
00000F20: 99 22 11 4D 49 54 20 53 59 53 20 28 38 32 36 29 |.".MIT SYS (826)|
00000F30: 20 55 4E 44 20 44 41 4E 4E 20 44 49 45 20 4F 42 | UND DANN DIE OB|
00000F40: 49 47 45 20 55 4E 54 45 52 2D 00 6F 1B F7 08 99 |IGE UNTER-.o....|
00000F50: 22 11 53 54 52 45 49 43 48 55 4E 47 53 52 4F 55 |".STREICHUNGSROU|
00000F60: 54 49 4E 45 20 4D 49 54 20 53 59 53 20 28 38 35 |TINE MIT SYS (85|
00000F70: 39 29 20 41 55 46 3A 00 87 1B 06 09 49 B2 31 31 |9) AUF:.....I.11|
00000F80: 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 30 00 |:.5000:.FL.2000.|
00000F90: A0 1B 60 09 9E 38 32 36 3A 9E 38 35 39 3A 81 57 |..`..826:.859:.W|
00000FA0: B2 30 A4 39 39 39 3A 82 00 AA 1B 6A 09 99 22 11 |.0.999:....j..".|
00000FB0: 5E 22 00 D9 1B 74 09 99 22 11 5A 55 20 42 45 41 |^"...t..".ZU BEA|
00000FC0: 43 48 54 45 4E 20 49 53 54 2C 20 20 44 41 53 53 |CHTEN IST, DASS|
00000FD0: 20 44 45 52 20 43 55 52 53 4F 52 20 4A 45 54 5A | DER CURSOR JETZ|
00000FE0: 54 00 08 1C 7E 09 99 22 11 48 49 4E 54 45 52 20 |T...~..".HINTER |
00000FF0: 44 45 4D 20 4C 45 54 5A 54 45 4E 20 27 C5 27 20 |DEM LETZTEN '.' |
00001000: 53 54 45 48 54 2C 20 41 4C 53 4F 20 44 4F 52 54 |STEHT, ALSO DORT|
00001010: 00 37 1C 88 09 99 22 11 57 4F 20 44 45 52 20 50 |.7....".WO DER P|
00001020: 46 45 49 4C 20 20 48 49 4E 5A 45 49 47 54 2E 20 |FEIL HINZEIGT. |
00001030: 20 20 20 44 45 52 20 4E 41 45 43 48 53 54 45 00 | DER NAECHSTE.|
00001040: 66 1C 92 09 99 22 11 50 52 49 4E 54 42 45 46 45 |f....".PRINTBEFE|
00001050: 48 4C 20 4D 41 43 48 54 20 44 41 48 45 52 20 41 |HL MACHT DAHER A|
00001060: 4E 20 44 49 45 53 45 52 20 53 54 45 4C 2D 00 79 |N DIESER STEL-.y|
00001070: 1C 9C 09 99 22 11 4C 45 20 57 45 49 54 45 52 20 |....".LE WEITER |
00001080: 21 00 A9 1C A6 09 99 22 11 11 4E 4F 43 48 4D 41 |!......"..NOCHMA|
00001090: 4C 53 20 20 44 49 45 20 56 4F 52 54 45 49 4C 45 |LS DIE VORTEILE|
000010A0: 20 20 44 49 45 53 45 52 20 4D 45 54 48 4F 44 45 | DIESER METHODE|
000010B0: 3A 00 EC 1C B0 09 99 22 11 41 53 43 49 49 2D 43 |:......".ASCII-C|
000010C0: 4F 44 45 2C 42 45 51 55 45 4D 45 20 50 52 4F 47 |ODE,BEQUEME PROG|
000010D0: 52 41 4D 4D 49 45 52 55 4E 47 2C 20 45 49 4E 2D |RAMMIERUNG, EIN-|
000010E0: 22 3A 99 55 24 55 24 55 24 22 C5 C5 C5 C5 C5 C5 |":.U$U$U$"......|
000010F0: C5 C5 C5 22 00 16 1D BA 09 99 22 46 41 43 48 45 |..."......"FACHE|
00001100: 20 43 55 52 53 4F 52 53 54 45 55 45 52 55 4E 47 | CURSORSTEUERUNG|
00001110: 2E 22 3A 99 55 24 55 24 22 C5 C5 C5 C5 22 00 2E |.":.U$U$"...."..|
00001120: 1D CE 09 49 B2 31 32 3A 8D 35 30 30 30 3A 8B 46 |...I.12:.5000:.F|
00001130: 4C A7 32 32 30 30 00 44 1D 28 0A 99 22 93 41 55 |L.2200.D.(..".AU|
00001140: 46 47 41 42 45 4E 3A 22 3A 99 55 24 00 73 1D 3C |FGABEN:":.U$.s.<|
00001150: 0A 99 22 11 31 2E 20 53 43 48 52 45 49 42 45 4E |..".1. SCHREIBEN|
00001160: 20 53 49 45 20 46 4F 4C 47 45 4E 44 45 4E 20 42 | SIE FOLGENDEN B|
00001170: 41 53 49 43 2D 42 45 46 45 48 4C 00 91 1D 46 0A |ASIC-BEFEHL...F.|
00001180: 99 22 11 41 4C 53 20 4D 41 53 43 48 49 4E 45 4E |.".ALS MASCHINEN|
00001190: 50 52 4F 47 52 41 4D 4D 3A 00 CD 1D 50 0A 41 24 |PROGRAMM:...P.A$|
000011A0: B2 C7 28 33 34 29 3A 99 22 11 27 50 52 49 4E 54 |..(34):.".'PRINT|
000011B0: 22 41 24 22 93 22 41 24 22 3B 54 41 42 28 31 30 |"A$"."A$";TAB(10|
000011C0: 29 3B 22 41 24 22 41 55 46 47 41 42 45 20 31 22 |);"A$"AUFGABE 1"|
000011D0: 41 24 22 27 22 00 E7 1D 64 0A 99 22 11 11 32 2E |A$"'"...d.."..2.|
000011E0: 20 45 42 45 4E 53 4F 20 44 49 45 53 45 4E 3A 00 | EBENSO DIESEN:.|
000011F0: 1A 1E 6E 0A 99 22 11 27 50 52 49 4E 54 22 41 24 |..n..".'PRINT"A$|
00001200: 22 93 22 41 24 22 3B 53 50 43 28 31 30 29 3B 22 |"."A$";SPC(10);"|
00001210: 41 24 22 41 55 46 47 41 42 45 20 31 22 41 24 22 |A$"AUFGABE 1"A$"|
00001220: 27 22 00 4A 1E 82 0A 99 22 11 11 33 2E 20 53 43 |'".J...."..3. SC|
00001230: 48 52 45 49 42 45 4E 20 53 49 45 20 45 49 4E 20 |HREIBEN SIE EIN |
00001240: 50 47 4D 2C 44 41 53 20 41 4E 20 44 45 4E 20 41 |PGM,DAS AN DEN A|
00001250: 4E 2D 00 79 1E 8C 0A 99 22 11 46 41 4E 47 20 44 |N-.y....".FANG D|
00001260: 45 52 20 45 52 53 54 45 4E 20 5A 45 49 4C 45 20 |ER ERSTEN ZEILE |
00001270: 27 41 29 27 20 53 43 48 52 45 49 42 54 2C 20 41 |'A)' SCHREIBT, A|
00001280: 4E 00 A8 1E 91 0A 99 22 11 44 45 4E 20 44 45 52 |N......".DEN DER|
00001290: 20 5A 57 45 49 54 45 4E 20 27 42 29 27 2C 20 45 | ZWEITEN 'B)', E|
000012A0: 54 43 20 42 49 53 20 5A 45 49 4C 45 20 32 30 2E |TC BIS ZEILE 20.|
000012B0: 00 C0 1E 96 0A 49 B2 31 33 3A 8D 35 30 30 30 3A |.....I.13:.5000:|
000012C0: 8B 46 4C A7 32 34 30 30 00 D4 1E F0 0A 9E 38 37 |.FL.2400......87|
000012D0: 30 3A 81 57 B2 30 A4 35 30 30 3A 82 00 0A 1F FA |0:.W.0.500:.....|
000012E0: 0A 99 22 13 11 11 11 11 11 11 11 1D 1D 1D 45 49 |.."...........EI|
000012F0: 4E 45 20 45 54 57 41 53 20 41 55 53 47 45 46 41 |NE ETWAS AUSGEFA|
00001300: 4C 4C 45 4E 45 20 4C 4F 45 53 55 4E 47 20 46 55 |LLENE LOESUNG FU|
00001310: 45 52 00 38 1F 04 0B 99 22 11 1D 1D 1D 41 55 46 |ER.8...."....AUF|
00001320: 47 41 42 45 20 33 20 46 49 4E 44 45 4E 20 53 49 |GABE 3 FINDEN SI|
00001330: 45 20 41 42 20 38 37 30 20 49 4D 20 52 41 4D 2E |E AB 870 IM RAM.|
00001340: 00 7E 1F 5E 0B 99 22 11 11 11 11 11 11 11 11 11 |.~.^..".........|
00001350: 11 11 11 1D 1D 2D 20 53 45 49 54 45 20 31 34 20 |.....- SEITE 14 |
00001360: 2D 20 20 3C 2B 3E 20 91 A4 A4 A4 A4 11 9D 9D 9D |- <+> .........|
00001370: 9D 12 45 4E 44 45 92 20 3C 2D 3E 20 56 4F 4E 20 |..ENDE. <-> VON |
00001380: 56 4F 52 4E 45 22 00 8E 1F F4 0B 8D 35 30 32 30 |VORNE"......5020|
00001390: 3A 91 46 4C 89 30 00 9B 1F 08 0C 9E 38 37 30 3A |:.FL.0......870:|
000013A0: 80 3A 8A 00 AD 1F 88 13 8F 20 55 4D 42 4C 41 45 |.:....... UMBLAE|
000013B0: 54 54 45 52 4E 00 F7 1F 92 13 99 22 13 11 11 11 |TTERN......"....|
000013C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000013D0: 11 11 11 11 11 20 20 2D 20 53 45 49 54 45 22 3B |..... - SEITE";|
000013E0: 49 3B 22 2D 20 20 3C 2B 3E 20 57 45 49 54 45 52 |I;"- <+> WEITER|
000013F0: 20 20 3C 2D 3E 20 5A 55 52 55 45 43 4B 22 3B 00 | <-> ZURUECK";.|
00001400: 09 20 9C 13 81 49 B2 30 A4 31 31 3A A1 58 24 3A |. ...I.0.11:.X$:|
00001410: 82 00 1D 20 A6 13 A1 58 24 3A 8B 58 24 B2 22 22 |... ...X$:.X$.""|
00001420: A7 35 30 33 30 00 30 20 B0 13 8B 58 24 B2 22 2B |.5030.0 ...X$."+|
00001430: 22 A7 46 4C B2 30 3A 8E 00 43 20 BA 13 8B 58 24 |".FL.0:..C ...X$|
00001440: B2 22 2D 22 A7 46 4C B2 31 3A 8E 00 4D 20 C4 13 |."-".FL.1:..M ..|
00001450: 89 35 30 33 30 00 00 00 30 31 |.5030...01 |
EREN GESCHWINDIGKEIT (NUR.4."..".BEIM 8
000'ER ETWA GLEICH)..P.,..:.I.0.70:.X:.8
26.I,X:..F.6.I.1:.5000:.FL.200......".DI
E PRINTROUTINE WIRD MIT 'JSR $FFD2'":.
.28);U$.M...."AUFGERUFEN (DEZIMAL: 65490
). SIE DRUCKT......".DAS IM AC STEHENDE
ZEICHEN DORTHIN, WO.+....".DER CURSOR S
ICH BEFINDET UND SETZT DIE.Z....".CURSO
RADRESSE UM 1 WEITER. DAS NAECHSTE...B..
".ZEICHEN WIRD DAHER AUTOMATISCH HINTE
R...L..".DAS ERSTE GEDRUCKT..U.V.."..DI
E CURSORSTEUERBEFEHLE KOENNEN WIE GE-...
...".WOEHNLICH VERWENDET WERDEN..2....".
.DIE ZEICHEN IM AC MUESSEN IM ASCII-CODE
":..29);U$.>...."SEIN..T...I.2:.5000:.FL
.200.K.X..".BEISPIELE:":.U$...].."....1.
. BESONDERS EINFACH IST DAS LOESCHEN..
.B..".DES BILDSCHIRMES:...G..". LDA #$
93 'CLR' IN AC...L..". JSR $FFD2
PRINT.#.V..".EINFACHER GEHT'S DOCH K
AUM, ODER ?.X...."......2.. CURSOR IN L
INKE OBERE ECKE SETZEN,.|....".OHNE BIL
DSCHIRM ZU LOESCHEN:......". LDA #$13
'HOME' IN AC......". JSR $FFD2
PRINT.U.P.I.3:.5000:.FL.400... .."....
....3.. MIT 'RETURN' WIRD DER CURSOR AUF
.3.%..".DEN NAECHSTEN ZEILENANFANG GESET
ZT:.Z.*..". LDA #$0D 'RETURN' IN
AC.X./..". JSR $FFD2 PRINT...4..".
STATT 'RETURN' FINDET MAN AUCH OFT 'CR'.
V.>..".ES BEDEUTET 'CAR RETURN', ALSO
SOVIEL...H..".WIE 'WAGENRUECKLAUF'......
I.4:.5000:.FL.600.=...."......SOLL TEXT
AUSGEDRUCKT WERDEN, SO LEGT.L....".MAN
WIEDER WIE BEI DER DIREKTEN AUSGABE....
..".EINE LISTE AN, NUR DIESMAL IN ASCII.
.H...."..DIE CURSORSTEUERUNGEN PACKT MA
N DABEI......".NATUERLICH GLEICH MIT IN
DIE LISTE..$...."...EINE SOLCHE LISTE K
OENNTE BEISPIELSWEI-.;.$..".SE SO AUSSEH
EN:.Q.J.I.5:.5000:.FL.800.U....". AD
RESSE INHALT ZEICHEN.......I.0.18:."
N+"J(D(I)." ",2,2)" $ ' '."..
.N...15)J("9353594E5441582049535420544F4
C4C20210D",2.I.1,2);...X...23)J(" SYNTAX
IST TOLL ! ",I.1,1):..9.....20)".'RETUR
N'...".21)"'CLR'".P.(.I.6:.5000:.FL.1000
..X..".VOR DIESE TEXTTABELLE SCHREIBEN
WIR EIN......".PROGRAMM, DAS IN EINER S
CHLEIFE NACH-......".EINANDER DIE ZEICH
EN IN DEN AC LAED UND......".DIESE MIT E
INEM UNTERPROGRAMMAUFRUF AN./. ..".DIE
PRINTROUTINE UEBERGIBT..L...."..WOHLGEME
RKT: WOHIN DER TEXT GESCHRIEBEN":..13)"E
EEEE......"WIRD, IST IN DER TABELLE DURC
H DIE MIT-":..10)U$"EEEE".W...."EINGEBAU
TEN CURSORSTEUERUNGEN SCHON GE-......".N
AU FESTGELEGT!...H.."..HIER DAS PROGRAMM
:. ...I.7:.5000:.FL.1200.D.@.."... LDX #
$00 ZAEHLER AUF 0.K.J..".... LDA N,X
ZEICHEN IN AC...T..".... JSR $FFD
2 PRINT...Y..".... INX X=X+1.
E.^..".... CPX #$13 X=19?...C.."....
_ BNE $F5 NEIN: NAECHSTES ZEICHEN...
...". RTS.3...."..UEBERZEUGEN SIE SICH
, DASS DER ABBRUCH.A....".BEI X=$13 (DE
ZIMAL=19) ERFOLGEN MUSS !......"..NUN EI
NE DEMONSTRATION:.....I.8:.5000:.FL.1400
......826:.W.0.500:......."...SCHOEN - E
S FUNKTIONIERT. DER TEXT IN......".DIE
SEM BEISPIEL IST NATUERLICH NUR KURZ.;.&
..".ABER ER LAESST SICH PRINZIPIELL BEL
IE-.J.0..".BIG VERLAENGERN. DIE ZEILE
'CPX #$13'...:..".IST DANN ENTSPRECHEND
ABZUAENDERN..D.D.."..WENN SIE DAS PROGR
AMM STUDIEREN ODER...N..".VERAENDERN W
OLLEN: ES STEHT AB 826 IM...X..".RAM..
..V.I.9:.5000:.FL.1600.F.P.."..EIN AERGE
RNIS BEI DIESER METHODE SIND.U.U..".LA
ENGERE FOLGEN DESSELBEN ZEICHENS, WIE...
Z..".Z.B.BEI UNTERSTREICHUNGEN, EINRAHME
NDEN.S....".LINIEN ETC. HIER LEGT MAN B
ESSER KEINE......".TABELLE AN, SONDERN
LAESST DAS ZEICHEN.1....".VON EINER GESO
NDERTEN SCHLEIFE DRUCKEN..B...."...WOLLE
N WIR BEISPIELSWEISE DEN TEXT DES......
".LETZTEN BEISPIELS UNTERSTREICHEN, S
O......".MUESSEN WIR 17 MAL DAS ZEICHEN
'E' AUS-... ..".DRUCKEN. DAS MACHT FOLGE
NDES PROGRAMM:...>.I.10:.5000:.FL.1800.*
....". LDX #$11 ZAEHLER = 17.K....
". LDA #$C5 'E' IN AC.H...."... JS
R $FFD2 PRINT......".... DEX
X=X-1...J.."...._ BNE $FA X=0?...
T..". RTS......"...DIESES PROGRAMM IST
AB 859 GESPEICHERT.......".WIR RUFEN N
UN ZUERST DEN BEISPIELTEXT.B....".MIT S
YS (826) UND DANN DIE OBIGE UNTER-.O....
".STREICHUNGSROUTINE MIT SYS (859) AUF:.
....I.11:.5000:.FL.2000. .`..826:.859:.W
.0.999:....J..".^".Y.T..".ZU BEACHTEN IS
T, DASS DER CURSOR JETZT...~..".HINTER
DEM LETZTEN 'E' STEHT, ALSO DORT.7....".
WO DER PFEIL HINZEIGT. DER NAECHSTE.
F....".PRINTBEFEHL MACHT DAHER AN DIESER
STEL-.Y....".LE WEITER !......"..NOCHMA
LS DIE VORTEILE DIESER METHODE:......"
.ASCII-CODE,BEQUEME PROGRAMMIERUNG, EIN-
":.U$U$U$"EEEEEEEEE"......"FACHE CURSORS
TEUERUNG.":.U$U$"EEEE"...N.I.12:.5000:.F
L.2200.D.(..".AUFGABEN:":.U$.S.<..".1. S
CHREIBEN SIE FOLGENDEN BASIC-BEFEHL...F.
.".ALS MASCHINENPROGRAMM:.M.P.A$.G(34):.
".'PRINT"A$"."A$";TAB(10);"A$"AUFGABE 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 ZEILE
'A)' SCHREIBT, AN......".DEN DER ZWEITEN
'B)', ETC BIS ZEILE 20......I.13:.5000:
.FL.2400.T....870:.W.0.500:.......".....
......EINE ETWAS AUSGEFALLENE LOESUNG FU
ER.8...."....AUFGABE 3 FINDEN SIE AB 870
IM RAM..~.^.."..............- SEITE 14
- <+> ...........ENDE. <-> VON VORNE"..
....5020:.FL.0......870:.:....... UMBLAE
TTERN......"......................... -
SEITE";I;"- <+> WEITER <-> ZURUECK";.
. ...I.0.11:.X$:... ...X$:.X$."".5030.0
...X$."+".FL.0:..C ...X$."-".FL.1:..M D.
.5030...01
> CLICK IMAGE PREVIEW FOR FULL MODAL