LEHRGANG 10
FILE INFORMATION
FILENAME(S): LEHRGANG 10
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-11-30 21:05:46
APPEARS ON: 1 disk(s)
FILE HASH
bf4bfb522a839c6a36263f3c050403cf39f24ab8bf7d8623416650e5486b69e8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 08 | LEHRGANG 10 | PRG | DuncanTwain | 24 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1E 04 00 00 8F 20 23 23 23 20 53 59 4E 54 |....... ### SYNT|
00000010: 41 58 2D 4D 41 47 41 5A 49 4E 20 23 32 30 00 38 |AX-MAGAZIN #20.8|
00000020: 04 01 00 8F 20 23 23 23 20 20 20 4E 4F 56 45 4D |.... ### NOVEM|
00000030: 42 45 52 20 31 39 38 31 00 42 04 02 00 8F 20 23 |BER 1981.B.... #|
00000040: 23 23 00 5F 04 03 00 8F 20 23 23 23 20 43 4F 50 |##._.... ### COP|
00000050: 59 52 49 47 48 54 20 28 43 29 20 31 39 38 31 00 |YRIGHT (C) 1981.|
00000060: 7A 04 04 00 8F 20 23 23 23 20 42 59 20 45 4C 4D |z.... ### BY ELM|
00000070: 41 52 20 43 4F 4D 50 41 4E 53 00 99 04 05 00 8F |AR COMPANS......|
00000080: 20 23 23 23 20 20 20 20 43 41 52 4C 2D 53 43 48 | ### CARL-SCH|
00000090: 55 52 5A 2D 53 54 52 2E 33 00 B5 04 06 00 8F 20 |URZ-STR.3...... |
000000A0: 23 23 23 20 20 20 20 37 35 35 30 20 52 41 53 54 |### 7550 RAST|
000000B0: 41 54 54 20 31 00 BF 04 07 00 8F 20 23 23 23 00 |ATT 1...... ###.|
000000C0: CF 04 08 00 97 35 39 34 36 38 2C 31 32 3A 9C 00 |.....59468,12:..|
000000D0: F2 04 0A 00 55 24 B2 22 C5 C5 C5 C5 C5 C5 C5 C5 |....U$."........|
000000E0: C5 C5 22 3A 4F 24 B2 22 A4 A4 A4 A4 A4 A4 A4 A4 |..":O$."........|
000000F0: A4 22 00 03 05 64 00 8F 20 42 45 49 53 50 49 45 |."...d.. BEISPIE|
00000100: 4C 20 31 00 18 05 65 00 83 20 31 36 32 2C 30 2C |L 1...e.. 162,0,|
00000110: 31 38 39 2C 37 32 2C 33 00 31 05 66 00 83 20 33 |189,72,3.1.f.. 3|
00000120: 32 2C 32 31 30 2C 32 35 35 2C 32 33 32 2C 32 32 |2,210,255,232,22|
00000130: 34 00 49 05 67 00 83 20 31 39 2C 32 30 38 2C 32 |4.I.g.. 19,208,2|
00000140: 34 35 2C 39 36 2C 31 34 37 00 5E 05 68 00 83 20 |45,96,147.^.h.. |
00000150: 38 33 2C 38 39 2C 37 38 2C 38 34 2C 36 35 00 73 |83,89,78,84,65.s|
00000160: 05 69 00 83 20 38 38 2C 33 32 2C 37 33 2C 38 33 |.i.. 88,32,73,83|
00000170: 2C 38 34 00 88 05 6A 00 83 20 33 32 2C 38 34 2C |,84...j.. 32,84,|
00000180: 37 39 2C 37 36 2C 37 36 00 97 05 6B 00 83 20 33 |79,76,76...k.. 3|
00000190: 32 2C 33 33 2C 31 33 00 A8 05 6C 00 8F 20 42 45 |2,33,13...l.. BE|
000001A0: 49 53 50 49 45 4C 20 32 00 C0 05 6D 00 83 20 31 |ISPIEL 2...m.. 1|
000001B0: 36 32 2C 31 37 2C 31 36 39 2C 31 39 37 2C 33 32 |62,17,169,197,32|
000001C0: 00 DA 05 6E 00 83 20 32 31 30 2C 32 35 35 2C 32 |...n.. 210,255,2|
000001D0: 30 32 2C 32 30 38 2C 32 35 30 00 E3 05 6F 00 83 |02,208,250...o..|
000001E0: 20 39 36 00 F4 05 70 00 8F 20 42 45 49 53 50 49 | 96...p.. BEISPI|
000001F0: 45 4C 20 33 00 0D 06 71 00 83 20 31 36 39 2C 31 |EL 3...q.. 169,1|
00000200: 34 37 2C 33 32 2C 32 31 30 2C 32 35 35 00 25 06 |47,32,210,255.%.|
00000210: 72 00 83 20 31 36 32 2C 36 35 2C 31 33 38 2C 33 |r.. 162,65,138,3|
00000220: 32 2C 32 31 30 00 3D 06 73 00 83 20 32 35 35 2C |2,210.=.s.. 255,|
00000230: 31 36 39 2C 34 31 2C 33 32 2C 32 31 30 00 55 06 |169,41,32,210.U.|
00000240: 74 00 83 20 32 35 35 2C 31 36 39 2C 31 33 2C 33 |t.. 255,169,13,3|
00000250: 32 2C 32 31 30 00 6E 06 75 00 83 20 32 35 35 2C |2,210.n.u.. 255,|
00000260: 32 33 32 2C 32 32 34 2C 38 35 2C 32 30 38 00 7B |232,224,85,208.{|
00000270: 06 76 00 83 20 32 33 37 2C 39 36 00 BE 06 C8 00 |.v.. 237,96.....|
00000280: 99 22 93 A4 A4 A4 22 3B 4F 24 3B 4F 24 3B 4F 24 |."....";O$;O$;O$|
00000290: 3B 4F 24 3A 99 22 12 53 59 4E 54 41 58 2D 4C 45 |;O$:.".SYNTAX-LE|
000002A0: 48 52 47 41 4E 47 20 27 4D 41 53 43 48 49 4E 45 |HRGANG 'MASCHINE|
000002B0: 4E 53 50 52 41 43 48 45 27 20 28 31 30 29 00 EA |NSPRACHE' (10)..|
000002C0: 06 D2 00 99 22 A4 A4 A4 A4 22 3B 4F 24 3B 4F 24 |...."....";O$;O$|
000002D0: 3A 99 22 12 32 2E 31 2E 20 42 49 4C 44 53 43 48 |:.".2.1. BILDSCH|
000002E0: 49 52 4D 41 55 53 47 41 42 45 00 19 07 DC 00 99 |IRMAUSGABE......|
000002F0: 22 11 32 2E 20 41 55 53 47 41 42 45 20 4D 49 54 |".2. AUSGABE MIT|
00000300: 20 44 45 52 20 50 52 49 4E 54 52 4F 55 54 49 4E | DER PRINTROUTIN|
00000310: 45 20 44 45 53 20 42 45 2D 00 31 07 E6 00 99 22 |E DES BE-.1...."|
00000320: 11 20 20 20 54 52 49 45 42 53 53 59 53 54 45 4D |. TRIEBSSYSTEM|
00000330: 53 00 61 07 F0 00 99 22 11 11 45 54 57 41 53 20 |S.a...."..ETWAS |
00000340: 45 49 4E 46 41 43 48 45 52 20 41 4C 53 20 44 49 |EINFACHER ALS DI|
00000350: 45 20 44 49 52 45 4B 54 45 20 41 55 53 47 41 42 |E DIREKTE AUSGAB|
00000360: 45 00 90 07 FA 00 99 22 11 41 55 46 20 44 45 4D |E......".AUF DEM|
00000370: 20 42 49 4C 44 53 43 48 49 52 4D 20 20 49 53 54 | BILDSCHIRM IST|
00000380: 20 44 49 45 20 41 55 53 47 41 42 45 20 4D 49 54 | DIE AUSGABE MIT|
00000390: 00 BD 07 04 01 99 22 11 44 45 52 20 50 52 49 4E |......".DER PRIN|
000003A0: 54 52 4F 55 54 49 4E 45 20 44 45 53 20 42 45 54 |TROUTINE DES BET|
000003B0: 52 49 45 42 53 53 59 53 54 45 4D 53 2E 00 ED 07 |RIEBSSYSTEMS....|
000003C0: 0E 01 99 22 11 11 4D 41 4E 20 45 52 4B 41 55 46 |..."..MAN ERKAUF|
000003D0: 54 20 20 44 49 45 53 45 4E 20 56 4F 52 54 45 49 |T DIESEN VORTEI|
000003E0: 4C 20 20 4A 45 44 4F 43 48 20 4D 49 54 00 1C 08 |L JEDOCH MIT...|
000003F0: 18 01 99 22 11 45 49 4E 45 52 20 20 47 45 52 49 |...".EINER GERI|
00000400: 4E 47 45 52 45 4E 20 47 45 53 43 48 57 49 4E 44 |NGEREN GESCHWIND|
00000410: 49 47 4B 45 49 54 20 20 28 4E 55 52 00 3E 08 22 |IGKEIT (NUR.>."|
00000420: 01 99 22 11 42 45 49 4D 20 38 30 30 30 27 45 52 |..".BEIM 8000'ER|
00000430: 20 45 54 57 41 20 47 4C 45 49 43 48 29 2E 00 5A | ETWA GLEICH)..Z|
00000440: 08 2C 01 8C 3A 81 49 B2 30 A4 37 30 3A 87 58 3A |.,..:.I.0.70:.X:|
00000450: 97 38 32 36 AA 49 2C 58 3A 82 00 70 08 36 01 49 |.826.I,X:..p.6.I|
00000460: B2 31 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 |.1:.5000:.FL.200|
00000470: 00 A9 08 90 01 99 22 93 44 49 45 20 50 52 49 4E |......".DIE PRIN|
00000480: 54 52 4F 55 54 49 4E 45 20 57 49 52 44 20 4D 49 |TROUTINE WIRD MI|
00000490: 54 20 20 27 4A 53 52 20 20 24 46 46 44 32 27 22 |T 'JSR $FFD2'"|
000004A0: 3A 99 A3 32 38 29 3B 55 24 00 D7 08 9A 01 99 22 |:..28);U$......"|
000004B0: 41 55 46 47 45 52 55 46 45 4E 20 28 44 45 5A 49 |AUFGERUFEN (DEZI|
000004C0: 4D 41 4C 3A 20 36 35 34 39 30 29 2E 20 53 49 45 |MAL: 65490). SIE|
000004D0: 20 44 52 55 43 4B 54 00 06 09 A4 01 99 22 11 44 | DRUCKT......".D|
000004E0: 41 53 20 49 4D 20 41 43 20 53 54 45 48 45 4E 44 |AS IM AC STEHEND|
000004F0: 45 20 5A 45 49 43 48 45 4E 20 20 44 4F 52 54 48 |E ZEICHEN DORTH|
00000500: 49 4E 2C 20 57 4F 00 35 09 AE 01 99 22 11 44 45 |IN, WO.5....".DE|
00000510: 52 20 43 55 52 53 4F 52 20 53 49 43 48 20 42 45 |R CURSOR SICH BE|
00000520: 46 49 4E 44 45 54 20 55 4E 44 20 20 53 45 54 5A |FINDET UND SETZ|
00000530: 54 20 44 49 45 00 64 09 B8 01 99 22 11 43 55 52 |T DIE.d....".CUR|
00000540: 53 4F 52 41 44 52 45 53 53 45 20 55 4D 20 31 20 |SORADRESSE UM 1 |
00000550: 57 45 49 54 45 52 2E 20 44 41 53 20 4E 41 45 43 |WEITER. DAS NAEC|
00000560: 48 53 54 45 00 93 09 C2 01 99 22 11 5A 45 49 43 |HSTE......".ZEIC|
00000570: 48 45 4E 20 57 49 52 44 20 44 41 48 45 52 20 20 |HEN WIRD DAHER |
00000580: 41 55 54 4F 4D 41 54 49 53 43 48 20 20 48 49 4E |AUTOMATISCH HIN|
00000590: 54 45 52 00 AF 09 CC 01 99 22 11 44 41 53 20 20 |TER......".DAS |
000005A0: 45 52 53 54 45 20 47 45 44 52 55 43 4B 54 2E 00 |ERSTE GEDRUCKT..|
000005B0: DF 09 D6 01 99 22 11 11 44 49 45 20 43 55 52 53 |....."..DIE CURS|
000005C0: 4F 52 53 54 45 55 45 52 42 45 46 45 48 4C 45 20 |ORSTEUERBEFEHLE |
000005D0: 4B 4F 45 4E 4E 45 4E 20 57 49 45 20 47 45 2D 00 |KOENNEN WIE GE-.|
000005E0: 02 0A E0 01 99 22 11 57 4F 45 48 4E 4C 49 43 48 |.....".WOEHNLICH|
000005F0: 20 56 45 52 57 45 4E 44 45 54 20 57 45 52 44 45 | VERWENDET WERDE|
00000600: 4E 2E 00 3C 0A EA 01 99 22 11 11 44 49 45 20 5A |N..<...."..DIE Z|
00000610: 45 49 43 48 45 4E 20 49 4D 20 41 43 20 4D 55 45 |EICHEN IM AC MUE|
00000620: 53 53 45 4E 20 49 4D 20 41 53 43 49 49 2D 43 4F |SSEN IM ASCII-CO|
00000630: 44 45 22 3A 99 A3 32 39 29 3B 55 24 00 48 0A F4 |DE":..29);U$.H..|
00000640: 01 99 22 53 45 49 4E 2E 00 5E 0A 08 02 49 B2 32 |.."SEIN..^...I.2|
00000650: 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 00 75 |:.5000:.FL.200.u|
00000660: 0A 58 02 99 22 93 42 45 49 53 50 49 45 4C 45 3A |.X..".BEISPIELE:|
00000670: 22 3A 99 55 24 00 A8 0A 5D 02 99 22 A4 11 9D 12 |":.U$...].."....|
00000680: 31 92 2E 20 42 45 53 4F 4E 44 45 52 53 20 20 45 |1.. BESONDERS E|
00000690: 49 4E 46 41 43 48 20 49 53 54 20 20 44 41 53 20 |INFACH IST DAS |
000006A0: 4C 4F 45 53 43 48 45 4E 00 C1 0A 62 02 99 22 11 |LOESCHEN...b..".|
000006B0: 44 45 53 20 42 49 4C 44 53 43 48 49 52 4D 45 53 |DES BILDSCHIRMES|
000006C0: 3A 00 E5 0A 67 02 99 22 11 20 20 20 4C 44 41 20 |:...g..". LDA |
000006D0: 23 24 39 33 20 20 20 20 20 20 27 43 4C 52 27 20 |#$93 'CLR' |
000006E0: 49 4E 20 41 43 00 03 0B 6C 02 99 22 11 20 20 20 |IN AC...l..". |
000006F0: 4A 53 52 20 24 46 46 44 32 20 20 20 20 20 50 52 |JSR $FFD2 PR|
00000700: 49 4E 54 00 2D 0B 76 02 99 22 11 45 49 4E 46 41 |INT.-.v..".EINFA|
00000710: 43 48 45 52 20 47 45 48 54 27 53 20 44 4F 43 48 |CHER GEHT'S DOCH|
00000720: 20 4B 41 55 4D 2C 20 4F 44 45 52 20 3F 00 62 0B | KAUM, ODER ?.b.|
00000730: 80 02 99 22 11 11 A4 11 9D 12 32 92 2E 20 43 55 |..."......2.. CU|
00000740: 52 53 4F 52 20 20 49 4E 20 4C 49 4E 4B 45 20 4F |RSOR IN LINKE O|
00000750: 42 45 52 45 20 45 43 4B 45 20 20 53 45 54 5A 45 |BERE ECKE SETZE|
00000760: 4E 2C 00 86 0B 8A 02 99 22 11 4F 48 4E 45 20 42 |N,......".OHNE B|
00000770: 49 4C 44 53 43 48 49 52 4D 20 5A 55 20 4C 4F 45 |ILDSCHIRM ZU LOE|
00000780: 53 43 48 45 4E 3A 00 AB 0B 94 02 99 22 11 20 20 |SCHEN:......". |
00000790: 20 4C 44 41 20 23 24 31 33 20 20 20 20 20 20 27 | LDA #$13 '|
000007A0: 48 4F 4D 45 27 20 49 4E 20 41 43 00 C9 0B 9E 02 |HOME' IN AC.....|
000007B0: 99 22 11 20 20 20 4A 53 52 20 24 46 46 44 32 20 |.". JSR $FFD2 |
000007C0: 20 20 20 20 50 52 49 4E 54 00 DF 0B D0 02 49 B2 | PRINT.....I.|
000007D0: 33 3A 8D 35 30 30 30 3A 8B 46 4C A7 34 30 30 00 |3:.5000:.FL.400.|
000007E0: 12 0C 20 03 99 22 93 11 11 11 A4 11 9D 12 33 92 |.. .."........3.|
000007F0: 2E 20 4D 49 54 20 27 52 45 54 55 52 4E 27 20 57 |. MIT 'RETURN' W|
00000800: 49 52 44 20 44 45 52 20 43 55 52 53 4F 52 20 41 |IRD DER CURSOR A|
00000810: 55 46 00 3D 0C 25 03 99 22 11 44 45 4E 20 4E 41 |UF.=.%..".DEN NA|
00000820: 45 43 48 53 54 45 4E 20 5A 45 49 4C 45 4E 41 4E |ECHSTEN ZEILENAN|
00000830: 46 41 4E 47 20 47 45 53 45 54 5A 54 3A 00 64 0C |FANG GESETZT:.d.|
00000840: 2A 03 99 22 11 20 20 20 4C 44 41 20 23 24 30 44 |*..". LDA #$0D|
00000850: 20 20 20 20 20 20 27 52 45 54 55 52 4E 27 20 49 | 'RETURN' I|
00000860: 4E 20 41 43 00 82 0C 2F 03 99 22 11 20 20 20 4A |N AC.../..". J|
00000870: 53 52 20 24 46 46 44 32 20 20 20 20 20 50 52 49 |SR $FFD2 PRI|
00000880: 4E 54 00 B1 0C 34 03 99 22 11 53 54 41 54 54 20 |NT...4..".STATT |
00000890: 27 52 45 54 55 52 4E 27 20 46 49 4E 44 45 54 20 |'RETURN' FINDET |
000008A0: 4D 41 4E 20 41 55 43 48 20 4F 46 54 20 27 43 52 |MAN AUCH OFT 'CR|
000008B0: 27 00 E0 0C 3E 03 99 22 11 45 53 20 42 45 44 45 |'...>..".ES BEDE|
000008C0: 55 54 45 54 20 20 27 43 41 52 20 52 45 54 55 52 |UTET 'CAR RETUR|
000008D0: 4E 27 2C 20 20 41 4C 53 4F 20 53 4F 56 49 45 4C |N', ALSO SOVIEL|
000008E0: 00 FD 0C 48 03 99 22 11 57 49 45 20 27 57 41 47 |...H..".WIE 'WAG|
000008F0: 45 4E 52 55 45 43 4B 4C 41 55 46 27 2E 00 13 0D |ENRUECKLAUF'....|
00000900: A2 03 49 B2 34 3A 8D 35 30 30 30 3A 8B 46 4C A7 |..I.4:.5000:.FL.|
00000910: 36 30 30 00 47 0D E8 03 99 22 93 11 11 11 11 11 |600.G...."......|
00000920: 53 4F 4C 4C 20 54 45 58 54 20 20 41 55 53 47 45 |SOLL TEXT AUSGE|
00000930: 44 52 55 43 4B 54 20 57 45 52 44 45 4E 2C 20 20 |DRUCKT WERDEN, |
00000940: 53 4F 20 4C 45 47 54 00 76 0D F2 03 99 22 11 4D |SO LEGT.v....".M|
00000950: 41 4E 20 57 49 45 44 45 52 20 57 49 45 20 42 45 |AN WIEDER WIE BE|
00000960: 49 20 44 45 52 20 44 49 52 45 4B 54 45 4E 20 41 |I DER DIREKTEN A|
00000970: 55 53 47 41 42 45 00 A2 0D FC 03 99 22 11 45 49 |USGABE......".EI|
00000980: 4E 45 20 4C 49 53 54 45 20 41 4E 2C 20 4E 55 52 |NE LISTE AN, NUR|
00000990: 20 44 49 45 53 4D 41 4C 20 49 4E 20 41 53 43 49 | DIESMAL IN ASCI|
000009A0: 49 2E 00 D2 0D 06 04 99 22 11 11 44 49 45 20 43 |I......."..DIE C|
000009B0: 55 52 53 4F 52 53 54 45 55 45 52 55 4E 47 45 4E |URSORSTEUERUNGEN|
000009C0: 20 20 50 41 43 4B 54 20 4D 41 4E 20 20 44 41 42 | PACKT MAN DAB|
000009D0: 45 49 00 FD 0D 10 04 99 22 11 4E 41 54 55 45 52 |EI......".NATUER|
000009E0: 4C 49 43 48 20 47 4C 45 49 43 48 20 4D 49 54 20 |LICH GLEICH MIT |
000009F0: 49 4E 20 44 49 45 20 4C 49 53 54 45 2E 00 2E 0E |IN DIE LISTE....|
00000A00: 1A 04 99 22 11 11 11 45 49 4E 45 20 53 4F 4C 43 |..."...EINE SOLC|
00000A10: 48 45 20 4C 49 53 54 45 20 4B 4F 45 4E 4E 54 45 |HE LISTE KOENNTE|
00000A20: 20 42 45 49 53 50 49 45 4C 53 57 45 49 2D 00 45 | BEISPIELSWEI-.E|
00000A30: 0E 24 04 99 22 11 53 45 20 53 4F 20 41 55 53 53 |.$..".SE SO AUSS|
00000A40: 45 48 45 4E 3A 00 5B 0E 6A 04 49 B2 35 3A 8D 35 |EHEN:.[.j.I.5:.5|
00000A50: 30 30 30 3A 8B 46 4C A7 38 30 30 00 7F 0E B0 04 |000:.FL.800.....|
00000A60: 99 22 93 20 20 20 20 20 41 44 52 45 53 53 45 20 |.". ADRESSE |
00000A70: 49 4E 48 41 4C 54 20 5A 45 49 43 48 45 4E 11 00 |INHALT ZEICHEN..|
00000A80: B8 0E BA 04 81 49 B2 30 A4 31 38 3A 99 22 20 20 |.....I.0.18:." |
00000A90: 20 20 20 20 4E 2B 22 CA 28 C4 28 49 29 AA 22 20 | N+".(.(I)." |
00000AA0: 22 2C 32 2C 32 29 22 20 20 20 20 24 20 20 20 20 |",2,2)" $ |
00000AB0: 20 20 20 27 20 27 91 22 00 F6 0E CE 04 99 A3 31 | ' '.".......1|
00000AC0: 35 29 CA 28 22 39 33 35 33 35 39 34 45 35 34 34 |5).("9353594E544|
00000AD0: 31 35 38 32 30 34 39 35 33 35 34 32 30 35 34 34 |1582049535420544|
00000AE0: 46 34 43 34 43 32 30 32 31 30 44 22 2C 32 AC 49 |F4C4C20210D",2.I|
00000AF0: AA 31 2C 32 29 3B 00 20 0F D8 04 99 A3 32 33 29 |.1,2);. .....23)|
00000B00: CA 28 22 20 53 59 4E 54 41 58 20 49 53 54 20 54 |.(" SYNTAX IST T|
00000B10: 4F 4C 4C 20 21 20 22 2C 49 AA 31 2C 31 29 3A 82 |OLL ! ",I.1,1):.|
00000B20: 00 43 0F E2 04 99 A3 32 30 29 22 91 27 52 45 54 |.C.....20)".'RET|
00000B30: 55 52 4E 27 13 11 11 22 A3 32 31 29 22 27 43 4C |URN'...".21)"'CL|
00000B40: 52 27 22 00 5A 0F 28 05 49 B2 36 3A 8D 35 30 30 |R'".Z.(.I.6:.500|
00000B50: 30 3A 8B 46 4C A7 31 30 30 30 00 89 0F 78 05 99 |0:.FL.1000...x..|
00000B60: 22 93 56 4F 52 20 44 49 45 53 45 20 54 45 58 54 |".VOR DIESE TEXT|
00000B70: 54 41 42 45 4C 4C 45 20 53 43 48 52 45 49 42 45 |TABELLE SCHREIBE|
00000B80: 4E 20 57 49 52 20 45 49 4E 00 B8 0F 82 05 99 22 |N WIR EIN......"|
00000B90: 11 50 52 4F 47 52 41 4D 4D 2C 20 20 44 41 53 20 |.PROGRAMM, DAS |
00000BA0: 49 4E 20 45 49 4E 45 52 20 53 43 48 4C 45 49 46 |IN EINER SCHLEIF|
00000BB0: 45 20 20 4E 41 43 48 2D 00 E7 0F 8C 05 99 22 11 |E NACH-......".|
00000BC0: 45 49 4E 41 4E 44 45 52 20 44 49 45 20 5A 45 49 |EINANDER DIE ZEI|
00000BD0: 43 48 45 4E 20 49 4E 20 44 45 4E 20 41 43 20 4C |CHEN IN DEN AC L|
00000BE0: 41 45 44 20 55 4E 44 00 16 10 4C 45 48 52 47 41 |AED UND...LEHRGA|
00000BF0: 4E 47 20 31 30 4D 49 54 20 45 49 4E 45 4D 20 20 |NG 10MIT EINEM |
00000C00: 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 41 55 46 |UNTERPROGRAMMAUF|
00000C10: 52 55 46 20 41 4E 00 39 10 A0 05 99 22 11 44 49 |RUF AN.9....".DI|
00000C20: 45 20 50 52 49 4E 54 52 4F 55 54 49 4E 45 20 55 |E PRINTROUTINE U|
00000C30: 45 42 45 52 47 49 42 54 2E 00 76 10 AA 05 99 22 |EBERGIBT..v...."|
00000C40: 11 11 57 4F 48 4C 47 45 4D 45 52 4B 54 3A 20 57 |..WOHLGEMERKT: W|
00000C50: 4F 48 49 4E 20 44 45 52 20 54 45 58 54 20 47 45 |OHIN DER TEXT GE|
00000C60: 53 43 48 52 49 45 42 45 4E 22 3A 99 A3 31 33 29 |SCHRIEBEN":..13)|
00000C70: 22 C5 C5 C5 C5 C5 00 B3 10 AF 05 99 22 57 49 52 |"..........."WIR|
00000C80: 44 2C 20 49 53 54 20 49 4E 20 44 45 52 20 54 41 |D, IST IN DER TA|
00000C90: 42 45 4C 4C 45 20 44 55 52 43 48 20 44 49 45 20 |BELLE DURCH DIE |
00000CA0: 4D 49 54 2D 22 3A 99 A3 31 30 29 55 24 22 C5 C5 |MIT-":..10)U$"..|
00000CB0: C5 C5 22 00 E1 10 B4 05 99 22 45 49 4E 47 45 42 |.."......"EINGEB|
00000CC0: 41 55 54 45 4E 20 43 55 52 53 4F 52 53 54 45 55 |AUTEN CURSORSTEU|
00000CD0: 45 52 55 4E 47 45 4E 20 53 43 48 4F 4E 20 47 45 |ERUNGEN SCHON GE|
00000CE0: 2D 00 F8 10 BE 05 99 22 11 4E 41 55 20 46 45 53 |-......".NAU FES|
00000CF0: 54 47 45 4C 45 47 54 21 00 13 11 C8 05 99 22 11 |TGELEGT!......".|
00000D00: 11 48 49 45 52 20 44 41 53 20 50 52 4F 47 52 41 |.HIER DAS PROGRA|
00000D10: 4D 4D 3A 00 2A 11 E6 05 49 B2 37 3A 8D 35 30 30 |MM:.*...I.7:.500|
00000D20: 30 3A 8B 46 4C A7 31 32 30 30 00 4E 11 40 06 99 |0:.FL.1200.N.@..|
00000D30: 22 93 B0 C0 20 4C 44 58 20 23 24 30 30 20 20 20 |"... LDX #$00 |
00000D40: 20 5A 41 45 48 4C 45 52 20 41 55 46 20 30 00 75 | ZAEHLER AUF 0.u|
00000D50: 11 4A 06 99 22 DD 9D 11 DD 20 20 4C 44 41 20 4E |.J..".... LDA N|
00000D60: 2C 58 20 20 20 20 20 5A 45 49 43 48 45 4E 20 49 |,X ZEICHEN I|
00000D70: 4E 20 20 41 43 00 93 11 54 06 99 22 DD 9D 11 DD |N AC...T.."....|
00000D80: 20 20 4A 53 52 20 24 46 46 44 32 20 20 20 50 52 | JSR $FFD2 PR|
00000D90: 49 4E 54 00 B1 11 59 06 99 22 DD 9D 11 DD 20 20 |INT...Y..".... |
00000DA0: 49 4E 58 20 20 20 20 20 20 20 20 20 58 3D 58 2B |INX X=X+|
00000DB0: 31 00 CF 11 5E 06 99 22 DD 9D 11 DD 20 20 43 50 |1...^..".... CP|
00000DC0: 58 20 23 24 31 33 20 20 20 20 58 3D 31 39 3F 00 |X #$13 X=19?.|
00000DD0: FF 11 63 06 99 22 DD 9D 11 AD 5F 20 42 4E 45 20 |..c.."...._ BNE |
00000DE0: 24 46 35 20 20 20 20 20 4E 45 49 4E 3A 20 4E 41 |$F5 NEIN: NA|
00000DF0: 45 43 48 53 54 45 53 20 5A 45 49 43 48 45 4E 00 |ECHSTES ZEICHEN.|
00000E00: 0D 12 90 06 99 22 11 20 20 20 52 54 53 00 3D 12 |.....". RTS.=.|
00000E10: 95 06 99 22 11 11 55 45 42 45 52 5A 45 55 47 45 |..."..UEBERZEUGE|
00000E20: 4E 20 53 49 45 20 53 49 43 48 2C 20 20 44 41 53 |N SIE SICH, DAS|
00000E30: 53 20 44 45 52 20 41 42 42 52 55 43 48 00 6B 12 |S DER ABBRUCH.k.|
00000E40: 9A 06 99 22 11 42 45 49 20 58 3D 24 31 33 20 28 |...".BEI X=$13 (|
00000E50: 44 45 5A 49 4D 41 4C 3D 31 39 29 20 45 52 46 4F |DEZIMAL=19) ERFO|
00000E60: 4C 47 45 4E 20 4D 55 53 53 20 21 00 8B 12 A4 06 |LGEN MUSS !.....|
00000E70: 99 22 11 11 4E 55 4E 20 45 49 4E 45 20 44 45 4D |."..NUN EINE DEM|
00000E80: 4F 4E 53 54 52 41 54 49 4F 4E 3A 00 A2 12 AE 06 |ONSTRATION:.....|
00000E90: 49 B2 38 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 34 |I.8:.5000:.FL.14|
00000EA0: 30 30 00 B6 12 08 07 9E 38 32 36 3A 81 57 B2 30 |00......826:.W.0|
00000EB0: A4 35 30 30 3A 82 00 E7 12 12 07 99 22 11 11 11 |.500:......."...|
00000EC0: 53 43 48 4F 45 4E 20 2D 20 45 53 20 46 55 4E 4B |SCHOEN - ES FUNK|
00000ED0: 54 49 4F 4E 49 45 52 54 2E 20 20 20 44 45 52 20 |TIONIERT. DER |
00000EE0: 54 45 58 54 20 49 4E 00 16 13 1C 07 99 22 11 44 |TEXT IN......".D|
00000EF0: 49 45 53 45 4D 20 42 45 49 53 50 49 45 4C 20 49 |IESEM BEISPIEL I|
00000F00: 53 54 20 4E 41 54 55 45 52 4C 49 43 48 20 4E 55 |ST NATUERLICH NU|
00000F10: 52 20 4B 55 52 5A 00 45 13 26 07 99 22 11 41 42 |R KURZ.E.&..".AB|
00000F20: 45 52 20 20 45 52 20 4C 41 45 53 53 54 20 53 49 |ER ER LAESST SI|
00000F30: 43 48 20 50 52 49 4E 5A 49 50 49 45 4C 4C 20 42 |CH PRINZIPIELL B|
00000F40: 45 4C 49 45 2D 00 74 13 30 07 99 22 11 42 49 47 |ELIE-.t.0..".BIG|
00000F50: 20 56 45 52 4C 41 45 4E 47 45 52 4E 2E 20 20 20 | VERLAENGERN. |
00000F60: 44 49 45 20 5A 45 49 4C 45 20 27 43 50 58 20 23 |DIE ZEILE 'CPX #|
00000F70: 24 31 33 27 00 9E 13 3A 07 99 22 11 49 53 54 20 |$13'...:..".IST |
00000F80: 44 41 4E 4E 20 45 4E 54 53 50 52 45 43 48 45 4E |DANN ENTSPRECHEN|
00000F90: 44 20 41 42 5A 55 41 45 4E 44 45 52 4E 2E 00 CE |D ABZUAENDERN...|
00000FA0: 13 44 07 99 22 11 11 57 45 4E 4E 20 53 49 45 20 |.D.."..WENN SIE |
00000FB0: 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 20 53 | DAS PROGRAMM S|
00000FC0: 54 55 44 49 45 52 45 4E 20 20 4F 44 45 52 00 FD |TUDIEREN ODER..|
00000FD0: 13 4E 07 99 22 11 56 45 52 41 45 4E 44 45 52 4E |.N..".VERAENDERN|
00000FE0: 20 57 4F 4C 4C 45 4E 3A 20 20 20 45 53 20 53 54 | WOLLEN: ES ST|
00000FF0: 45 48 54 20 41 42 20 38 32 36 20 49 4D 00 09 14 |EHT AB 826 IM...|
00001000: 58 07 99 22 11 52 41 4D 2E 00 20 14 76 07 49 B2 |X..".RAM.. .v.I.|
00001010: 39 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 36 30 30 |9:.5000:.FL.1600|
00001020: 00 50 14 D0 07 99 22 93 11 45 49 4E 20 41 45 52 |.P...."..EIN AER|
00001030: 47 45 52 4E 49 53 20 20 42 45 49 20 44 49 45 53 |GERNIS BEI DIES|
00001040: 45 52 20 20 4D 45 54 48 4F 44 45 20 53 49 4E 44 |ER METHODE SIND|
00001050: 00 7F 14 D5 07 99 22 11 4C 41 45 4E 47 45 52 45 |......".LAENGERE|
00001060: 20 46 4F 4C 47 45 4E 20 44 45 53 53 45 4C 42 45 | FOLGEN DESSELBE|
00001070: 4E 20 5A 45 49 43 48 45 4E 53 2C 20 57 49 45 00 |N ZEICHENS, WIE.|
00001080: AE 14 DA 07 99 22 11 5A 2E 42 2E 42 45 49 20 55 |.....".Z.B.BEI U|
00001090: 4E 54 45 52 53 54 52 45 49 43 48 55 4E 47 45 4E |NTERSTREICHUNGEN|
000010A0: 2C 20 45 49 4E 52 41 48 4D 45 4E 44 45 4E 00 DD |, EINRAHMENDEN..|
000010B0: 14 E4 07 99 22 11 4C 49 4E 49 45 4E 20 45 54 43 |....".LINIEN ETC|
000010C0: 2E 20 20 48 49 45 52 20 4C 45 47 54 20 4D 41 4E |. HIER LEGT MAN|
000010D0: 20 42 45 53 53 45 52 20 4B 45 49 4E 45 00 0C 15 | BESSER KEINE...|
000010E0: EE 07 99 22 11 54 41 42 45 4C 4C 45 20 41 4E 2C |...".TABELLE AN,|
000010F0: 20 20 53 4F 4E 44 45 52 4E 20 4C 41 45 53 53 54 | SONDERN LAESST|
00001100: 20 44 41 53 20 5A 45 49 43 48 45 4E 00 3B 15 F8 | DAS ZEICHEN.;..|
00001110: 07 99 22 11 56 4F 4E 20 45 49 4E 45 52 20 47 45 |..".VON EINER GE|
00001120: 53 4F 4E 44 45 52 54 45 4E 20 53 43 48 4C 45 49 |SONDERTEN SCHLEI|
00001130: 46 45 20 44 52 55 43 4B 45 4E 2E 00 6C 15 02 08 |FE DRUCKEN..l...|
00001140: 99 22 11 11 11 57 4F 4C 4C 45 4E 20 57 49 52 20 |."...WOLLEN WIR |
00001150: 20 42 45 49 53 50 49 45 4C 53 57 45 49 53 45 20 | BEISPIELSWEISE |
00001160: 44 45 4E 20 54 45 58 54 20 44 45 53 00 9B 15 07 |DEN TEXT DES....|
00001170: 08 99 22 11 4C 45 54 5A 54 45 4E 20 20 42 45 49 |..".LETZTEN BEI|
00001180: 53 50 49 45 4C 53 20 20 55 4E 54 45 52 53 54 52 |SPIELS UNTERSTR|
00001190: 45 49 43 48 45 4E 2C 20 20 53 4F 00 CA 15 16 08 |EICHEN, SO.....|
000011A0: 99 22 11 4D 55 45 53 53 45 4E 20 57 49 52 20 31 |.".MUESSEN WIR 1|
000011B0: 37 20 4D 41 4C 20 44 41 53 20 5A 45 49 43 48 45 |7 MAL DAS ZEICHE|
000011C0: 4E 20 27 C5 27 20 41 55 53 2D 00 F8 15 20 08 99 |N '.' AUS-... ..|
000011D0: 22 11 44 52 55 43 4B 45 4E 2E 20 44 41 53 20 4D |".DRUCKEN. DAS M|
000011E0: 41 43 48 54 20 46 4F 4C 47 45 4E 44 45 53 20 50 |ACHT FOLGENDES P|
000011F0: 52 4F 47 52 41 4D 4D 3A 00 10 16 3E 08 49 B2 31 |ROGRAMM:...>.I.1|
00001200: 30 3A 8D 35 30 30 30 3A 8B 46 4C A7 31 38 30 30 |0:.5000:.FL.1800|
00001210: 00 34 16 98 08 99 22 93 20 20 20 4C 44 58 20 23 |.4....". LDX #|
00001220: 24 31 31 20 20 20 20 20 5A 41 45 48 4C 45 52 20 |$11 ZAEHLER |
00001230: 3D 20 31 37 00 55 16 AC 08 99 22 11 20 20 20 4C |= 17.U....". L|
00001240: 44 41 20 23 24 43 35 20 20 20 20 20 27 C5 27 20 |DA #$C5 '.' |
00001250: 49 4E 20 41 43 00 72 16 B6 08 99 22 11 B0 C0 20 |IN AC.r...."... |
00001260: 4A 53 52 20 24 46 46 44 32 20 20 20 20 50 52 49 |JSR $FFD2 PRI|
00001270: 4E 54 00 91 16 C0 08 99 22 DD 9D 11 DD 20 20 44 |NT......".... D|
00001280: 45 58 20 20 20 20 20 20 20 20 20 20 58 3D 58 2D |EX X=X-|
00001290: 31 00 AF 16 CA 08 99 22 DD 9D 11 AD 5F 20 42 4E |1......"...._ BN|
000012A0: 45 20 24 46 41 20 20 20 20 20 20 58 3D 30 3F 00 |E $FA X=0?.|
000012B0: BD 16 D4 08 99 22 11 20 20 20 52 54 53 00 EE 16 |.....". RTS...|
000012C0: DE 08 99 22 11 11 11 44 49 45 53 45 53 20 50 52 |..."...DIESES PR|
000012D0: 4F 47 52 41 4D 4D 20 49 53 54 20 41 42 20 38 35 |OGRAMM IST AB 85|
000012E0: 39 20 47 45 53 50 45 49 43 48 45 52 54 2E 00 1D |9 GESPEICHERT...|
000012F0: 17 E8 08 99 22 11 57 49 52 20 52 55 46 45 4E 20 |....".WIR RUFEN |
00001300: 20 4E 55 4E 20 5A 55 45 52 53 54 20 20 44 45 4E | NUN ZUERST DEN|
00001310: 20 42 45 49 53 50 49 45 4C 54 45 58 54 00 4C 17 | BEISPIELTEXT.L.|
00001320: F2 08 99 22 11 4D 49 54 20 53 59 53 20 28 38 32 |...".MIT SYS (82|
00001330: 36 29 20 55 4E 44 20 44 41 4E 4E 20 44 49 45 20 |6) UND DANN DIE |
00001340: 4F 42 49 47 45 20 55 4E 54 45 52 2D 00 79 17 F7 |OBIGE UNTER-.y..|
00001350: 08 99 22 11 53 54 52 45 49 43 48 55 4E 47 53 52 |..".STREICHUNGSR|
00001360: 4F 55 54 49 4E 45 20 4D 49 54 20 53 59 53 20 28 |OUTINE MIT SYS (|
00001370: 38 35 39 29 20 41 55 46 3A 00 91 17 06 09 49 B2 |859) AUF:.....I.|
00001380: 31 31 3A 8D 35 30 30 30 3A 8B 46 4C A7 32 30 30 |11:.5000:.FL.200|
00001390: 30 00 AA 17 60 09 9E 38 32 36 3A 9E 38 35 39 3A |0...`..826:.859:|
000013A0: 81 57 B2 30 A4 39 39 39 3A 82 00 B4 17 6A 09 99 |.W.0.999:....j..|
000013B0: 22 11 5E 22 00 E3 17 74 09 99 22 11 5A 55 20 42 |".^"...t..".ZU B|
000013C0: 45 41 43 48 54 45 4E 20 49 53 54 2C 20 20 44 41 |EACHTEN IST, DA|
000013D0: 53 53 20 44 45 52 20 43 55 52 53 4F 52 20 4A 45 |SS DER CURSOR JE|
000013E0: 54 5A 54 00 12 18 7E 09 99 22 11 48 49 4E 54 45 |TZT...~..".HINTE|
000013F0: 52 20 44 45 4D 20 4C 45 54 5A 54 45 4E 20 27 C5 |R DEM LETZTEN '.|
00001400: 27 20 53 54 45 48 54 2C 20 41 4C 53 4F 20 44 4F |' STEHT, ALSO DO|
00001410: 52 54 00 41 18 88 09 99 22 11 57 4F 20 44 45 52 |RT.A....".WO DER|
00001420: 20 50 46 45 49 4C 20 20 48 49 4E 5A 45 49 47 54 | PFEIL HINZEIGT|
00001430: 2E 20 20 20 20 44 45 52 20 4E 41 45 43 48 53 54 |. DER NAECHST|
00001440: 45 00 70 18 92 09 99 22 11 50 52 49 4E 54 42 45 |E.p....".PRINTBE|
00001450: 46 45 48 4C 20 4D 41 43 48 54 20 44 41 48 45 52 |FEHL MACHT DAHER|
00001460: 20 41 4E 20 44 49 45 53 45 52 20 53 54 45 4C 2D | AN DIESER STEL-|
00001470: 00 83 18 9C 09 99 22 11 4C 45 20 57 45 49 54 45 |......".LE WEITE|
00001480: 52 20 21 00 B3 18 A6 09 99 22 11 11 4E 4F 43 48 |R !......"..NOCH|
00001490: 4D 41 4C 53 20 20 44 49 45 20 56 4F 52 54 45 49 |MALS DIE VORTEI|
000014A0: 4C 45 20 20 44 49 45 53 45 52 20 4D 45 54 48 4F |LE DIESER METHO|
000014B0: 44 45 3A 00 F6 18 B0 09 99 22 11 41 53 43 49 49 |DE:......".ASCII|
000014C0: 2D 43 4F 44 45 2C 42 45 51 55 45 4D 45 20 50 52 |-CODE,BEQUEME PR|
000014D0: 4F 47 52 41 4D 4D 49 45 52 55 4E 47 2C 20 45 49 |OGRAMMIERUNG, EI|
000014E0: 4E 2D 22 3A 99 55 24 55 24 55 24 22 C5 C5 C5 C5 |N-":.U$U$U$"....|
000014F0: C5 C5 C5 C5 C5 22 00 20 19 BA 09 99 22 46 41 43 |.....". ...."FAC|
00001500: 48 45 20 43 55 52 53 4F 52 53 54 45 55 45 52 55 |HE CURSORSTEUERU|
00001510: 4E 47 2E 22 3A 99 55 24 55 24 22 C5 C5 C5 C5 22 |NG.":.U$U$"...."|
00001520: 00 38 19 CE 09 49 B2 31 32 3A 8D 35 30 30 30 3A |.8...I.12:.5000:|
00001530: 8B 46 4C A7 32 32 30 30 00 4E 19 28 0A 99 22 93 |.FL.2200.N.(..".|
00001540: 41 55 46 47 41 42 45 4E 3A 22 3A 99 55 24 00 7D |AUFGABEN:":.U$.}|
00001550: 19 3C 0A 99 22 11 31 2E 20 53 43 48 52 45 49 42 |.<..".1. SCHREIB|
00001560: 45 4E 20 53 49 45 20 46 4F 4C 47 45 4E 44 45 4E |EN SIE FOLGENDEN|
00001570: 20 42 41 53 49 43 2D 42 45 46 45 48 4C 00 9B 19 | BASIC-BEFEHL...|
00001580: 46 0A 99 22 11 41 4C 53 20 4D 41 53 43 48 49 4E |F..".ALS MASCHIN|
00001590: 45 4E 50 52 4F 47 52 41 4D 4D 3A 00 D7 19 50 0A |ENPROGRAMM:...P.|
000015A0: 41 24 B2 C7 28 33 34 29 3A 99 22 11 27 50 52 49 |A$..(34):.".'PRI|
000015B0: 4E 54 22 41 24 22 93 22 41 24 22 3B 54 41 42 28 |NT"A$"."A$";TAB(|
000015C0: 31 30 29 3B 22 41 24 22 41 55 46 47 41 42 45 20 |10);"A$"AUFGABE |
000015D0: 31 22 41 24 22 27 22 00 F1 19 64 0A 99 22 11 11 |1"A$"'"...d.."..|
000015E0: 32 2E 20 45 42 45 4E 53 4F 20 44 49 45 53 45 4E |2. EBENSO DIESEN|
000015F0: 3A 00 24 1A 6E 0A 99 22 11 27 50 52 49 4E 54 22 |:.$.n..".'PRINT"|
00001600: 41 24 22 93 22 41 24 22 3B 53 50 43 28 31 30 29 |A$"."A$";SPC(10)|
00001610: 3B 22 41 24 22 41 55 46 47 41 42 45 20 31 22 41 |;"A$"AUFGABE 1"A|
00001620: 24 22 27 22 00 54 1A 82 0A 99 22 11 11 33 2E 20 |$"'".T...."..3. |
00001630: 53 43 48 52 45 49 42 45 4E 20 53 49 45 20 45 49 |SCHREIBEN SIE EI|
00001640: 4E 20 50 47 4D 2C 44 41 53 20 41 4E 20 44 45 4E |N PGM,DAS AN DEN|
00001650: 20 41 4E 2D 00 83 1A 8C 0A 99 22 11 46 41 4E 47 | AN-......".FANG|
00001660: 20 44 45 52 20 45 52 53 54 45 4E 20 5A 45 49 4C | DER ERSTEN ZEIL|
00001670: 45 20 27 41 29 27 20 53 43 48 52 45 49 42 54 2C |E 'A)' SCHREIBT,|
00001680: 20 41 4E 00 B2 1A 91 0A 99 22 11 44 45 4E 20 44 | AN......".DEN D|
00001690: 45 52 20 5A 57 45 49 54 45 4E 20 27 42 29 27 2C |ER ZWEITEN 'B)',|
000016A0: 20 45 54 43 20 42 49 53 20 5A 45 49 4C 45 20 32 | ETC BIS ZEILE 2|
000016B0: 30 2E 00 CA 1A 96 0A 49 B2 31 33 3A 8D 35 30 30 |0......I.13:.500|
000016C0: 30 3A 8B 46 4C A7 32 34 30 30 00 DE 1A F0 0A 9E |0:.FL.2400......|
000016D0: 38 37 30 3A 81 57 B2 30 A4 35 30 30 3A 82 00 14 |870:.W.0.500:...|
000016E0: 1B FA 0A 99 22 13 11 11 11 11 11 11 11 1D 1D 1D |...."...........|
000016F0: 45 49 4E 45 20 45 54 57 41 53 20 41 55 53 47 45 |EINE ETWAS AUSGE|
00001700: 46 41 4C 4C 45 4E 45 20 4C 4F 45 53 55 4E 47 20 |FALLENE LOESUNG |
00001710: 46 55 45 52 00 42 1B 04 0B 99 22 11 1D 1D 1D 41 |FUER.B...."....A|
00001720: 55 46 47 41 42 45 20 33 20 46 49 4E 44 45 4E 20 |UFGABE 3 FINDEN |
00001730: 53 49 45 20 41 42 20 38 37 30 20 49 4D 20 52 41 |SIE AB 870 IM RA|
00001740: 4D 2E 00 88 1B 5E 0B 99 22 11 11 11 11 11 11 11 |M....^..".......|
00001750: 11 11 11 11 11 1D 1D 2D 20 53 45 49 54 45 20 31 |.......- SEITE 1|
00001760: 34 20 2D 20 20 3C 2B 3E 20 91 A4 A4 A4 A4 11 9D |4 - <+> .......|
00001770: 9D 9D 9D 12 45 4E 44 45 92 20 3C 2D 3E 20 56 4F |....ENDE. <-> VO|
00001780: 4E 20 56 4F 52 4E 45 22 00 98 1B F4 0B 8D 35 30 |N VORNE"......50|
00001790: 32 30 3A 91 46 4C 89 30 00 A5 1B 08 0C 9E 38 37 |20:.FL.0......87|
000017A0: 30 3A 80 3A 8A 00 B7 1B 88 13 8F 20 55 4D 42 4C |0:.:....... UMBL|
000017B0: 41 45 54 54 45 52 4E 00 01 1C 92 13 99 22 13 11 |AETTERN......"..|
000017C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000017D0: 11 11 11 11 11 11 11 20 20 2D 20 53 45 49 54 45 |....... - SEITE|
000017E0: 22 3B 49 3B 22 2D 20 20 3C 2B 3E 20 57 45 49 54 |";I;"- <+> WEIT|
000017F0: 45 52 20 20 3C 2D 3E 20 5A 55 52 55 45 43 4B 22 |ER <-> ZURUECK"|
00001800: 3B 00 13 1C 9C 13 81 49 B2 30 A4 31 31 3A A1 58 |;......I.0.11:.X|
00001810: 24 3A 82 00 27 1C A6 13 A1 58 24 3A 8B 58 24 B2 |$:..'....X$:.X$.|
00001820: 22 22 A7 35 30 33 30 00 3A 1C B0 13 8B 58 24 B2 |"".5030.:....X$.|
00001830: 22 2B 22 A7 46 4C B2 30 3A 8E 00 4D 1C BA 13 8B |"+".FL.0:..M....|
00001840: 58 24 B2 22 2D 22 A7 46 4C B2 31 3A 8E 00 57 1C |X$."-".FL.1:..W.|
00001850: C4 13 89 35 30 33 30 00 00 00 |...5030... |
....... ### SYNTAX-MAGAZIN #20.8.... ###
NOVEMBER 1981.B.... ###._.... ### COP
YRIGHT (C) 1981.Z.... ### BY ELMAR COMPA
NS...... ### CARL-SCHURZ-STR.3......
### 7550 RASTATT 1...... ###.O....594
68,12:......U$."EEEEEEEEEE":O$."........
."...D.. BEISPIEL 1...E.. 162,0,189,72,3
.1.F.. 32,210,255,232,224.I.G.. 19,208,2
45,96,147.^.H.. 83,89,78,84,65.S.I.. 88,
32,73,83,84...J.. 32,84,79,76,76...K.. 3
2,33,13...L.. BEISPIEL 2...M.. 162,17,16
9,197,32.Z.N.. 210,255,202,208,250...O..
96...P.. BEISPIEL 3...Q.. 169,147,32,21
0,255.%.R.. 162,65,138,32,210.=.S.. 255,
169,41,32,210.U.T.. 255,169,13,32,210.N.
U.. 255,232,224,85,208.{.V.. 237,96...H.
."....";O$;O$;O$;O$:.".SYNTAX-LEHRGANG '
MASCHINENSPRACHE' (10)...R.."....";O$;O$
:.".2.1. BILDSCHIRMAUSGABE......".2. AUS
GABE MIT DER PRINTROUTINE DES BE-.1...."
. TRIEBSSYSTEMS.A...."..ETWAS EINFACHE
R ALS DIE DIREKTE AUSGABE......".AUF DEM
BILDSCHIRM IST DIE AUSGABE MIT......".
DER PRINTROUTINE DES BETRIEBSSYSTEMS....
..."..MAN ERKAUFT DIESEN VORTEIL JEDOC
H MIT......".EINER GERINGEREN GESCHWIND
IGKEIT (NUR.>."..".BEIM 8000'ER ETWA GL
EICH)..Z.,..:.I.0.70:.X:.826.I,X:..P.6.I
.1:.5000:.FL.200......".DIE PRINTROUTINE
WIRD MIT 'JSR $FFD2'":..28);U$.W...."
AUFGERUFEN (DEZIMAL: 65490). SIE DRUCKT.
.....".DAS IM AC STEHENDE ZEICHEN DORTH
IN, WO.5....".DER CURSOR SICH BEFINDET U
ND SETZT DIE.D....".CURSORADRESSE UM 1
WEITER. DAS NAECHSTE...B..".ZEICHEN WIRD
DAHER AUTOMATISCH HINTER...L..".DAS
ERSTE GEDRUCKT....V.."..DIE CURSORSTEUER
BEFEHLE KOENNEN WIE GE-......".WOEHNLICH
VERWENDET WERDEN..<...."..DIE ZEICHEN I
M AC MUESSEN IM ASCII-CODE":..29);U$.H..
.."SEIN..^...I.2:.5000:.FL.200.U.X..".BE
ISPIELE:":.U$...].."....1.. BESONDERS E
INFACH IST DAS LOESCHEN.A.B..".DES BILD
SCHIRMES:...G..". LDA #$93 'CLR'
IN AC...L..". JSR $FFD2 PRINT.-.V.
.".EINFACHER GEHT'S DOCH KAUM, ODER ?.B.
..."......2.. CURSOR IN LINKE OBERE ECK
E SETZEN,......".OHNE BILDSCHIRM ZU LOE
SCHEN:......". LDA #$13 'HOME' IN
AC.I....". JSR $FFD2 PRINT...P.I.
3:.5000:.FL.400... .."........3.. MIT 'R
ETURN' WIRD DER CURSOR AUF.=.%..".DEN NA
ECHSTEN ZEILENANFANG GESETZT:.D.*..".
LDA #$0D 'RETURN' IN AC.../..". J
SR $FFD2 PRINT...4..".STATT 'RETURN'
FINDET MAN AUCH OFT 'CR'...>..".ES BEDE
UTET 'CAR RETURN', ALSO SOVIEL...H..".
WIE 'WAGENRUECKLAUF'......I.4:.5000:.FL.
600.G...."......SOLL TEXT AUSGEDRUCKT W
ERDEN, SO LEGT.V....".MAN WIEDER WIE BE
I DER DIREKTEN AUSGABE......".EINE LISTE
AN, NUR DIESMAL IN ASCII..R...."..DIE C
URSORSTEUERUNGEN PACKT MAN DABEI......
".NATUERLICH GLEICH MIT IN DIE LISTE....
..."...EINE SOLCHE LISTE KOENNTE BEISPIE
LSWEI-.E.$..".SE SO AUSSEHEN:.[.J.I.5:.5
000:.FL.800.....". ADRESSE INHALT Z
EICHEN.......I.0.18:." N+"J(D(I)."
",2,2)" $ ' '."...N...15)J("935
3594E5441582049535420544F4C4C20210D",2.I
.1,2);. .X...23)J(" SYNTAX IST TOLL ! ",
I.1,1):..C.....20)".'RETURN'...".21)"'CL
R'".Z.(.I.6:.5000:.FL.1000...X..".VOR DI
ESE TEXTTABELLE SCHREIBEN WIR EIN......"
.PROGRAMM, DAS IN EINER SCHLEIFE NACH-
......".EINANDER DIE ZEICHEN IN DEN AC L
AED UND...LEHRGANG 10MIT EINEM UNTERPRO
GRAMMAUFRUF AN.9. ..".DIE PRINTROUTINE U
EBERGIBT..V...."..WOHLGEMERKT: WOHIN DER
TEXT GESCHRIEBEN":..13)"EEEEE......"WIR
D, IST IN DER TABELLE DURCH DIE MIT-":..
10)U$"EEEE"......"EINGEBAUTEN CURSORSTEU
ERUNGEN SCHON GE-......".NAU FESTGELEGT!
...H.."..HIER DAS PROGRAMM:.*...I.7:.500
0:.FL.1200.N.@.."... LDX #$00 ZAEHLER
AUF 0.U.J..".... LDA N,X ZEICHEN I
N AC...T..".... JSR $FFD2 PRINT...Y.
.".... INX X=X+1.O.^..".... CP
X #$13 X=19?...C.."...._ BNE $F5
NEIN: NAECHSTES ZEICHEN......". RTS.=.
..."..UEBERZEUGEN SIE SICH, DASS DER AB
BRUCH.K....".BEI X=$13 (DEZIMAL=19) ERFO
LGEN MUSS !......"..NUN EINE DEMONSTRATI
ON:.....I.8:.5000:.FL.1400......826:.W.0
.500:......."...SCHOEN - ES FUNKTIONIERT
. DER TEXT IN......".DIESEM BEISPIEL I
ST NATUERLICH NUR KURZ.E.&..".ABER ER L
AESST SICH PRINZIPIELL BELIE-.T.0..".BIG
VERLAENGERN. DIE ZEILE 'CPX #$13'...:
..".IST DANN ENTSPRECHEND ABZUAENDERN..N
.D.."..WENN SIE DAS PROGRAMM STUDIEREN
ODER...N..".VERAENDERN WOLLEN: ES ST
EHT AB 826 IM...X..".RAM.. .V.I.9:.5000:
.FL.1600.P.P.."..EIN AERGERNIS BEI DIES
ER METHODE SIND..U..".LAENGERE FOLGEN
DESSELBEN ZEICHENS, WIE...Z..".Z.B.BEI U
NTERSTREICHUNGEN, EINRAHMENDEN......".LI
NIEN ETC. HIER LEGT MAN BESSER KEINE...
...".TABELLE AN, SONDERN LAESST DAS ZEI
CHEN.;....".VON EINER GESONDERTEN SCHLEI
FE DRUCKEN..L...."...WOLLEN WIR BEISPIE
LSWEISE DEN TEXT DES......".LETZTEN BEI
SPIELS UNTERSTREICHEN, SO.J....".MUESS
EN WIR 17 MAL DAS ZEICHEN 'E' AUS-... ..
".DRUCKEN. DAS MACHT FOLGENDES PROGRAMM:
...>.I.10:.5000:.FL.1800.4....". LDX #
$11 ZAEHLER = 17.U....". LDA #$C5
'E' IN AC.R...."... JSR $FFD2 PRI
NT......".... DEX X=X-1...J.."
...._ BNE $FA X=0?...T..". RTS...
..."...DIESES PROGRAMM IST AB 859 GESPEI
CHERT.......".WIR RUFEN NUN ZUERST DEN
BEISPIELTEXT.L....".MIT SYS (826) UND D
ANN DIE OBIGE UNTER-.Y....".STREICHUNGSR
OUTINE MIT SYS (859) AUF:.....I.11:.5000
:.FL.2000...`..826:.859:.W.0.999:....J..
".^"...T..".ZU BEACHTEN IST, DASS DER C
URSOR JETZT...~..".HINTER DEM LETZTEN 'E
' STEHT, ALSO DORT.A....".WO DER PFEIL
HINZEIGT. DER NAECHSTE.P....".PRINTBE
FEHL MACHT DAHER AN DIESER STEL-......".
LE WEITER !......"..NOCHMALS DIE VORTEI
LE DIESER METHODE:......".ASCII-CODE,BE
QUEME PROGRAMMIERUNG, EIN-":.U$U$U$"EEEE
EEEEE". ...."FACHE CURSORSTEUERUNG.":.U$
U$"EEEE".8.N.I.12:.5000:.FL.2200.N.(..".
AUFGABEN:":.U$.}.<..".1. SCHREIBEN SIE F
OLGENDEN BASIC-BEFEHL...F..".ALS MASCHIN
ENPROGRAMM:.W.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$"'".T...."..3.
SCHREIBEN SIE EIN PGM,DAS AN DEN AN-....
..".FANG DER ERSTEN ZEILE 'A)' SCHREIBT,
AN......".DEN DER ZWEITEN 'B)', ETC BIS
ZEILE 20..J...I.13:.5000:.FL.2400......
870:.W.0.500:......."...........EINE ETW
AS AUSGEFALLENE LOESUNG FUER.B...."....A
UFGABE 3 FINDEN SIE AB 870 IM RAM....^..
"..............- SEITE 14 - <+> .......
....ENDE. <-> VON VORNE"......5020:.FL.0
......870:.:....... UMBLAETTERN......"..
....................... - SEITE";I;"-
<+> WEITER <-> ZURUECK";......I.0.11:.X
$:..'....X$:.X$."".5030.:....X$."+".FL.0
:..M....X$."-".FL.1:..W.D..5030...
> CLICK IMAGE PREVIEW FOR FULL MODAL