ASS-KURS-LIST 2

00000000: 0A 22 18 22 0A 00 2E 42  41 20 35 30 32 30 30 00  |."."...BA 50200.|
00000010: 1E 22 14 00 3B 00 36 22  1E 00 2E 45 51 20 53 43  |."..;.6"...EQ SC|
00000020: 52 45 45 4E 4D 45 4D 20  3D 20 32 35 31 00 4E 22  |REENMEM = 251.N"|
00000030: 28 00 2E 45 51 20 53 43  52 45 45 4E 43 4F 4C 20  |(..EQ SCREENCOL |
00000040: 3D 20 32 35 33 00 66 22  32 00 2E 45 51 20 54 45  |= 253.f"2..EQ TE|
00000050: 58 54 46 49 4C 45 20 20  3D 20 31 36 36 00 7E 22  |XTFILE  = 166.~"|
00000060: 3C 00 2E 45 51 20 54 45  58 54 46 49 4C 45 31 20  |<..EQ TEXTFILE1 |
00000070: 3D 20 31 36 38 00 84 22  46 00 3B 00 9C 22 50 00  |= 168.."F.;.."P.|
00000080: 2E 45 51 20 53 54 20 20  20 20 20 20 20 20 3D 20  |.EQ ST        = |
00000090: 24 39 30 00 B6 22 5A 00  2E 45 51 20 47 45 54 49  |$90.."Z..EQ GETI|
000000A0: 4E 20 20 20 20 20 3D 20  24 46 46 45 34 00 D0 22  |N     = $FFE4.."|
000000B0: 64 00 2E 45 51 20 53 45  54 4E 41 4D 20 20 20 20  |d..EQ SETNAM    |
000000C0: 3D 20 24 46 46 42 44 00  EA 22 6E 00 2E 45 51 20  |= $FFBD.."n..EQ |
000000D0: 53 45 54 4C 46 53 20 20  20 20 3D 20 24 46 46 42  |SETLFS    = $FFB|
000000E0: 41 00 04 23 78 00 2E 45  51 20 4F 50 45 4E 20 20  |A..#x..EQ OPEN  |
000000F0: 20 20 20 20 3D 20 24 46  46 43 30 00 1E 23 82 00  |    = $FFC0..#..|
00000100: 2E 45 51 20 43 48 4B 49  4E 20 20 20 20 20 3D 20  |.EQ CHKIN     = |
00000110: 24 46 46 43 36 00 38 23  8C 00 2E 45 51 20 43 4C  |$FFC6.8#...EQ CL|
00000120: 4F 53 45 20 20 20 20 20  3D 20 24 46 46 43 33 00  |OSE     = $FFC3.|
00000130: 51 23 96 00 2E 45 51 20  43 4C 52 43 48 20 20 20  |Q#...EQ CLRCH   |
00000140: 20 20 3D 24 46 46 43 43  00 57 23 A0 00 3B 00 80  |  =$FFCC.W#..;..|
00000150: 23 AA 00 3B 4F 45 46 46  4E 45 20 4B 41 4E 41 4C  |#..;OEFFNE KANAL|
00000160: 20 46 55 45 52 20 44 49  53 4B 45 54 54 45 4E 45  | FUER DISKETTENE|
00000170: 49 4E 47 41 42 45 2E 00  86 23 B4 00 3B 00 97 23  |INGABE...#..;..#|
00000180: BE 00 20 4C 44 41 46 49  4C 45 4E 41 4D 45 00 AE  |.. LDAFILENAME..|
00000190: 23 C8 00 20 4C 44 58 23  3C 28 46 49 4C 45 4E 41  |#.. LDX#<(FILENA|
000001A0: 4D 45 2B 31 29 00 C5 23  D2 00 20 4C 44 59 23 3E  |ME+1)..#.. LDY#>|
000001B0: 28 46 49 4C 45 4E 41 4D  45 2B 31 29 00 D4 23 DC  |(FILENAME+1)..#.|
000001C0: 00 20 4A 53 52 53 45 54  4E 41 4D 00 DA 23 E6 00  |. JSRSETNAM..#..|
000001D0: 3B 00 E5 23 F0 00 20 4C  44 41 23 31 00 F0 23 FA  |;..#.. LDA#1..#.|
000001E0: 00 20 4C 44 58 23 33 00  FB 23 04 01 20 4C 44 59  |. LDX#3..#.. LDY|
000001F0: 23 30 00 0A 24 0E 01 20  4A 53 52 53 45 54 4C 46  |#0..$.. JSRSETLF|
00000200: 53 00 10 24 18 01 3B 00  1D 24 22 01 20 4A 53 52  |S..$..;..$". JSR|
00000210: 4F 50 45 4E 00 23 24 2C  01 3B 00 2E 24 36 01 20  |OPEN.#$,.;..$6. |
00000220: 4C 44 58 23 31 00 3C 24  40 01 20 4A 53 52 43 48  |LDX#1.<$@. JSRCH|
00000230: 4B 49 4E 00 42 24 4A 01  3B 00 6F 24 54 01 3B 48  |KIN.B$J.;.o$T.;H|
00000240: 4F 4C 45 20 44 49 45 20  53 54 41 52 54 41 44 52  |OLE DIE STARTADR|
00000250: 45 53 53 45 20 56 4F 4E  20 44 45 52 20 44 49 53  |ESSE VON DER DIS|
00000260: 4B 45 54 54 45 2E 00 75  24 5E 01 3B 00 83 24 68  |KETTE..u$^.;..$h|
00000270: 01 20 4A 53 52 47 45 54  49 4E 00 94 24 72 01 20  |. JSRGETIN..$r. |
00000280: 53 54 41 54 45 58 54 46  49 4C 45 00 A6 24 7C 01  |STATEXTFILE..$|.|
00000290: 20 53 54 41 54 45 58 54  46 49 4C 45 31 00 B4 24  | STATEXTFILE1..$|
000002A0: 86 01 20 4A 53 52 47 45  54 49 4E 00 C7 24 90 01  |.. JSRGETIN..$..|
000002B0: 20 53 54 41 54 45 58 54  46 49 4C 45 2B 31 00 DB  | STATEXTFILE+1..|
000002C0: 24 9A 01 20 53 54 41 54  45 58 54 46 49 4C 45 31  |$.. STATEXTFILE1|
000002D0: 2B 31 00 E1 24 A4 01 3B  00 06 25 AE 01 3B 48 4F  |+1..$..;..%..;HO|
000002E0: 4C 45 20 44 41 54 45 4E  20 56 4F 4E 20 44 45 52  |LE DATEN VON DER|
000002F0: 20 44 49 53 4B 45 54 54  45 20 55 4E 44 00 26 25  | DISKETTE UND.&%|
00000300: B8 01 3B 53 50 45 49 43  48 45 52 45 20 53 49 45  |..;SPEICHERE SIE|
00000310: 20 49 4D 20 54 45 58 54  46 49 4C 45 2E 00 2C 25  | IM TEXTFILE..,%|
00000320: C2 01 3B 00 37 25 CC 01  20 4C 44 59 23 30 00 4C  |..;.7%.. LDY#0.L|
00000330: 25 D6 01 45 49 4E 47 41  42 45 20 4A 53 52 47 45  |%..EINGABE JSRGE|
00000340: 54 49 4E 00 62 25 E0 01  20 53 54 41 28 54 45 58  |TIN.b%.. STA(TEX|
00000350: 54 46 49 4C 45 31 29 2C  59 00 74 25 EA 01 20 49  |TFILE1),Y.t%.. I|
00000360: 4E 43 54 45 58 54 46 49  4C 45 31 00 81 25 F4 01  |NCTEXTFILE1..%..|
00000370: 20 42 4E 45 53 4B 49 50  00 95 25 FE 01 20 49 4E  | BNESKIP..%.. IN|
00000380: 43 54 45 58 54 46 49 4C  45 31 2B 31 00 A4 25 08  |CTEXTFILE1+1..%.|
00000390: 02 53 4B 49 50 20 4C 44  41 53 54 00 B4 25 12 02  |.SKIP LDAST..%..|
000003A0: 20 42 45 51 45 49 4E 47  41 42 45 00 BA 25 1C 02  | BEQEINGABE..%..|
000003B0: 3B 00 D0 25 26 02 3B 41  55 53 47 41 42 45 20 42  |;..%&.;AUSGABE B|
000003C0: 45 45 4E 44 45 54 3B 00  F8 25 30 02 3B 53 43 48  |EENDET;..%0.;SCH|
000003D0: 4C 49 45 53 53 45 20 44  49 53 4B 45 54 54 45 4E  |LIESSE DISKETTEN|
000003E0: 20 45 49 4E 47 41 42 45  20 4B 41 4E 41 4C 2E 00  | EINGABE KANAL..|
000003F0: FE 25 3A 02 3B 00 09 26  44 02 20 4C 44 41 23 31  |.%:.;..&D. LDA#1|
00000400: 00 17 26 4E 02 20 4A 53  52 43 4C 4F 53 45 00 1D  |..&N. JSRCLOSE..|
00000410: 26 58 02 3B 00 2B 26 62  02 20 4A 53 52 43 4C 52  |&X.;.+&b. JSRCLR|
00000420: 43 48 00 31 26 6C 02 3B  00 59 26 76 02 3B 44 52  |CH.1&l.;.Y&v.;DR|
00000430: 55 43 4B 20 54 45 58 54  46 49 4C 45 20 41 55 46  |UCK TEXTFILE AUF|
00000440: 20 44 45 4D 20 42 49 4C  44 53 43 48 49 52 4D 3B  | DEM BILDSCHIRM;|
00000450: 00 5F 26 80 02 3B 00 8B  26 8A 02 3B 49 4E 49 54  |._&..;..&..;INIT|
00000460: 49 49 45 52 45 20 42 49  4C 44 53 43 48 49 52 4D  |IIERE BILDSCHIRM|
00000470: 20 55 4E 44 20 46 41 52  42 53 50 45 49 43 48 45  | UND FARBSPEICHE|
00000480: 52 2E 00 91 26 94 02 3B  00 A2 26 9E 02 20 4C 44  |R...&..;..&.. LD|
00000490: 41 23 3C 28 31 30 32 34  29 00 B4 26 A8 02 20 53  |A#<(1024)..&.. S|
000004A0: 54 41 53 43 52 45 45 4E  4D 45 4D 00 C5 26 B2 02  |TASCREENMEM..&..|
000004B0: 20 4C 44 41 23 3E 28 31  30 32 34 29 00 D9 26 BC  | LDA#>(1024)..&.|
000004C0: 02 20 53 54 41 53 43 52  45 45 4E 4D 45 4D 2B 31  |. STASCREENMEM+1|
000004D0: 00 DF 26 C6 02 3B 00 F1  26 D0 02 20 4C 44 41 23  |..&..;..&.. LDA#|
000004E0: 3C 28 35 35 32 39 36 29  00 03 27 DA 02 20 53 54  |<(55296)..'.. ST|
000004F0: 41 53 43 52 45 45 4E 43  4F 4C 00 15 27 E4 02 20  |ASCREENCOL..'.. |
00000500: 4C 44 41 23 3E 28 35 35  32 39 36 29 00 29 27 EE  |LDA#>(55296).)'.|
00000510: 02 20 53 54 41 53 43 52  45 45 4E 43 4F 4C 2B 31  |. STASCREENCOL+1|
00000520: 00 2F 27 F8 02 3B 00 49  27 02 03 3B 4C 45 45 52  |./'..;.I'..;LEER|
00000530: 45 20 44 45 4E 20 42 49  4C 44 53 43 48 49 52 4D  |E DEN BILDSCHIRM|
00000540: 00 4F 27 0C 03 3B 00 5D  27 16 03 20 4A 53 52 24  |.O'..;.]'.. JSR$|
00000550: 45 35 34 34 00 63 27 20  03 3B 00 93 27 2A 03 3B  |E544.c' .;..'*.;|
00000560: 53 43 48 41 4C 54 45 20  41 55 46 20 47 52 4F 53  |SCHALTE AUF GROS|
00000570: 53 2D 20 55 4E 44 20 4B  4C 45 49 4E 53 43 48 52  |S- UND KLEINSCHR|
00000580: 45 49 42 55 4E 47 20 55  4D 2E 00 99 27 34 03 3B  |EIBUNG UM...'4.;|
00000590: 00 A5 27 3E 03 20 4C 44  41 23 31 34 00 B3 27 48  |..'>. LDA#14..'H|
000005A0: 03 20 4A 53 52 24 45 37  31 34 00 B9 27 52 03 3B  |. JSR$E714..'R.;|
000005B0: 00 DB 27 5C 03 3B 48 4F  4C 45 20 42 55 43 48 53  |..'\.;HOLE BUCHS|
000005C0: 54 41 42 45 20 56 4F 4D  20 54 45 58 54 46 49 4C  |TABE VOM TEXTFIL|
000005D0: 45 2E 00 E1 27 66 03 3B  00 EC 27 70 03 20 4C 44  |E...'f.;..'p. LD|
000005E0: 59 23 30 00 0A 28 7A 03  44 52 55 43 4B 53 43 48  |Y#0..(z.DRUCKSCH|
000005F0: 4C 20 4C 44 41 28 54 45  58 54 46 49 4C 45 29 2C  |L LDA(TEXTFILE),|
00000600: 59 00 10 28 84 03 3B 00  38 28 8E 03 3B 56 45 52  |Y..(..;.8(..;VER|
00000610: 57 41 4E 44 4C 45 20 41  53 43 49 49 20 5A 55 20  |WANDLE ASCII ZU |
00000620: 42 49 4C 44 53 43 48 49  52 4D 43 4F 44 45 2E 00  |BILDSCHIRMCODE..|
00000630: 3E 28 98 03 3B 00 4B 28  A2 03 20 43 4D 50 23 31  |>(..;.K(.. CMP#1|
00000640: 32 38 00 59 28 AC 03 20  42 43 43 53 4B 49 50 31  |28.Y(.. BCCSKIP1|
00000650: 00 77 28 B6 03 20 53 42  43 23 36 34 3B 47 52 4F  |.w(.. SBC#64;GRO|
00000660: 53 53 45 52 20 42 55 43  48 53 54 41 42 45 00 9A  |SSER BUCHSTABE..|
00000670: 28 C0 03 53 4B 49 50 31  20 43 4D 50 23 36 34 3B  |(..SKIP1 CMP#64;|
00000680: 4B 4C 45 49 4E 45 52 20  42 55 43 48 53 54 41 42  |KLEINER BUCHSTAB|
00000690: 45 00 A9 28 CA 03 20 42  43 43 44 52 55 43 4B 45  |E..(.. BCCDRUCKE|
000006A0: 00 B5 28 D4 03 20 53 42  43 23 36 34 00 BB 28 DE  |..(.. SBC#64..(.|
000006B0: 03 3B 00 E1 28 E8 03 3B  44 52 55 43 4B 45 20 42  |.;..(..;DRUCKE B|
000006C0: 55 43 48 53 54 41 42 45  20 41 55 46 20 42 49 4C  |UCHSTABE AUF BIL|
000006D0: 44 53 43 48 49 52 4D 2E  00 E7 28 F2 03 3B 00 03  |DSCHIRM...(..;..|
000006E0: 29 FC 03 44 52 55 43 4B  45 20 53 54 41 28 53 43  |)..DRUCKE STA(SC|
000006F0: 52 45 45 4E 4D 45 4D 29  2C 59 00 0F 29 06 04 20  |REENMEM),Y..).. |
00000700: 4C 44 41 23 31 34 00 25  29 10 04 20 53 54 41 28  |LDA#14.%).. STA(|
00000710: 53 43 52 45 45 4E 43 4F  4C 29 2C 59 00 2B 29 1A  |SCREENCOL),Y.+).|
00000720: 04 3B 00 49 29 24 04 3B  4E 41 45 43 48 53 54 45  |.;.I)$.;NAECHSTE|
00000730: 20 20 44 52 55 43 4B 50  4F 53 49 54 49 4F 4E 2E  |  DRUCKPOSITION.|
00000740: 00 4F 29 2E 04 3B 00 60  29 38 04 20 49 4E 43 54  |.O)..;.`)8. INCT|
00000750: 45 58 54 46 49 4C 45 00  6F 29 42 04 20 42 4E 45  |EXTFILE.o)B. BNE|
00000760: 4E 4F 48 49 47 48 00 82  29 4C 04 20 49 4E 43 54  |NOHIGH..)L. INCT|
00000770: 45 58 54 46 49 4C 45 2B  31 00 88 29 56 04 3B 00  |EXTFILE+1..)V.;.|
00000780: A0 29 60 04 4E 4F 48 49  47 48 20 49 4E 43 53 43  |.)`.NOHIGH INCSC|
00000790: 52 45 45 4E 4D 45 4D 00  B0 29 6A 04 20 42 4E 45  |REENMEM..)j. BNE|
000007A0: 4E 4F 48 49 47 48 31 00  C4 29 74 04 20 49 4E 43  |NOHIGH1..)t. INC|
000007B0: 53 43 52 45 45 4E 4D 45  4D 2B 31 00 CA 29 7E 04  |SCREENMEM+1..)~.|
000007C0: 3B 00 E3 29 88 04 4E 4F  48 49 47 48 31 20 49 4E  |;..)..NOHIGH1 IN|
000007D0: 43 53 43 52 45 45 4E 43  4F 4C 00 F3 29 92 04 20  |CSCREENCOL..).. |
000007E0: 42 4E 45 4E 4F 48 49 47  48 32 00 07 2A 9C 04 20  |BNENOHIGH2..*.. |
000007F0: 49 4E 43 53 43 52 45 45  4E 43 4F 4C 2B 31 00 0D  |INCSCREENCOL+1..|
00000800: 2A A6 04 3B 00 26 2A B0  04 3B 45 4E 44 45 20 44  |*..;.&*..;ENDE D|
00000810: 45 53 20 54 45 58 54 46  49 4C 45 53 3F 00 2C 2A  |ES TEXTFILES?.,*|
00000820: BA 04 3B 00 44 2A C4 04  4E 4F 48 49 47 48 32 20  |..;.D*..NOHIGH2 |
00000830: 4C 44 41 54 45 58 54 46  49 4C 45 00 56 2A CE 04  |LDATEXTFILE.V*..|
00000840: 20 43 4D 50 54 45 58 54  46 49 4C 45 31 00 68 2A  | CMPTEXTFILE1.h*|
00000850: D8 04 20 42 4E 45 44 52  55 43 4B 53 43 48 4C 00  |.. BNEDRUCKSCHL.|
00000860: 7B 2A E2 04 20 4C 44 41  54 45 58 54 46 49 4C 45  |{*.. LDATEXTFILE|
00000870: 2B 31 00 8F 2A EC 04 20  43 4D 50 54 45 58 54 46  |+1..*.. CMPTEXTF|
00000880: 49 4C 45 31 2B 31 00 A1  2A F6 04 20 42 4E 45 44  |ILE1+1..*.. BNED|
00000890: 52 55 43 4B 53 43 48 4C  00 A7 2A 00 05 3B 00 CD  |RUCKSCHL..*..;..|
000008A0: 2A 0A 05 3B 46 45 52 54  49 47 3A 20 57 41 52 54  |*..;FERTIG: WART|
000008B0: 45 20 41 55 46 20 54 41  53 54 45 4E 44 52 55 43  |E AUF TASTENDRUC|
000008C0: 4B 2E 2E 2E 00 D3 2A 14  05 3B 00 EA 2A 1E 05 57  |K.....*..;..*..W|
000008D0: 41 52 54 45 54 41 53 54  20 4A 53 52 47 45 54 49  |ARTETAST JSRGETI|
000008E0: 4E 00 FC 2A 28 05 20 42  45 51 57 41 52 54 45 54  |N..*(. BEQWARTET|
000008F0: 41 53 54 00 02 2B 32 05  3B 00 2F 2B 3C 05 3B 55  |AST..+2.;./+<.;U|
00000900: 4E 44 20 4B 45 48 52 45  20 56 4F 4E 20 44 45 52  |ND KEHRE VON DER|
00000910: 20 55 4E 54 45 52 52 4F  55 54 49 4E 45 20 5A 55  | UNTERROUTINE ZU|
00000920: 52 55 45 43 4B 2E 00 35  2B 46 05 3B 00 45 2B 50  |RUECK..5+F.;.E+P|
00000930: 05 41 55 53 47 41 4E 47  20 52 54 53 00 4B 2B 5A  |.AUSGANG RTS.K+Z|
00000940: 05 3B 00 51 2B 64 05 3B  00 57 2B 6E 05 3B 00 64  |.;.Q+d.;.W+n.;.d|
00000950: 2B 78 05 46 49 4C 45 4E  41 4D 45 00 6E 2B 82 05  |+x.FILENAME.n+..|
00000960: 2E 42 59 20 38 00 81 2B  8C 05 2E 54 58 20 22 54  |.BY 8..+...TX "T|
00000970: 45 58 54 46 49 4C 45 22  00 00 00                 |EXTFILE"...     |

."."...BA 50200.."..;.6"...EQ SCREENMEM 
= 251.N"(..EQ SCREENCOL = 253.F"2..EQ TE
XTFILE  = 166.~"<..EQ TEXTFILE1 = 168.."
F.;.."P..EQ ST        = $90.."Z..EQ GETI
N     = $FFE4.P"D..EQ SETNAM    = $FFBD.
."N..EQ SETLFS    = $FFBA..#X..EQ OPEN  
    = $FFC0..#...EQ CHKIN     = $FFC6.8#
...EQ CLOSE     = $FFC3.Q#...EQ CLRCH   
  =$FFCC.W# .;..#..;OEFFNE KANAL FUER DI
SKETTENEINGABE...#..;..#.. LDAFILENAME..
#H. LDX#<(FILENAME+1).E#R. LDY#>(FILENAM
E+1).T#.. JSRSETNAM.Z#..;..#.. LDA#1..#.
. LDX#3..#.. LDY#0..$.. JSRSETLFS..$..;.
.$". JSROPEN.#$,.;..$6. LDX#1.<$@. JSRCH
KIN.B$J.;.O$T.;HOLE DIE STARTADRESSE VON
 DER DISKETTE..U$^.;..$H. JSRGETIN..$R. 
STATEXTFILE..$|. STATEXTFILE1..$.. JSRGE
TIN.G$.. STATEXTFILE+1..$.. STATEXTFILE1
+1..$..;..%..;HOLE DATEN VON DER DISKETT
E UND.&%..;SPEICHERE SIE IM TEXTFILE..,%
B.;.7%L. LDY#0.L%V.EINGABE JSRGETIN.B%..
 STA(TEXTFILE1),Y.T%.. INCTEXTFILE1..%..
 BNESKIP..%.. INCTEXTFILE1+1..%..SKIP LD
AST..%.. BEQEINGABE..%..;.P%&.;AUSGABE B
EENDET;..%0.;SCHLIESSE DISKETTEN EINGABE
 KANAL...%:.;..&D. LDA#1..&N. JSRCLOSE..
&X.;.+&B. JSRCLRCH.1&L.;.Y&V.;DRUCK TEXT
FILE AUF DEM BILDSCHIRM;._&..;..&..;INIT
IIERE BILDSCHIRM UND FARBSPEICHER...&..;
..&.. LDA#<(1024)..&.. STASCREENMEM.E&..
 LDA#>(1024).Y&.. STASCREENMEM+1..&F.;..
&P. LDA#<(55296)..'Z. STASCREENCOL..'.. 
LDA#>(55296).)'.. STASCREENCOL+1./'..;.I
'..;LEERE DEN BILDSCHIRM.O'..;.]'.. JSR$
E544.C' .;..'*.;SCHALTE AUF GROSS- UND K
LEINSCHREIBUNG UM...'4.;..'>. LDA#14..'H
. JSR$E714..'R.;..'\.;HOLE BUCHSTABE VOM
 TEXTFILE...'F.;..'P. LDY#0..(Z.DRUCKSCH
L LDA(TEXTFILE),Y..(..;.8(..;VERWANDLE A
SCII ZU BILDSCHIRMCODE..>(..;.K(.. CMP#1
28.Y(.. BCCSKIP1.W(.. SBC#64;GROSSER BUC
HSTABE..(..SKIP1 CMP#64;KLEINER BUCHSTAB
E..(J. BCCDRUCKE..(T. SBC#64..(..;..(..;
DRUCKE BUCHSTABE AUF BILDSCHIRM...(..;..
)..DRUCKE STA(SCREENMEM),Y..).. LDA#14.%
).. STA(SCREENCOL),Y.+)..;.I)$.;NAECHSTE
  DRUCKPOSITION..O)..;.`)8. INCTEXTFILE.
O)B. BNENOHIGH..)L. INCTEXTFILE+1..)V.;.
 )`.NOHIGH INCSCREENMEM..)J. BNENOHIGH1.
D)T. INCSCREENMEM+1.J)~.;..)..NOHIGH1 IN
CSCREENCOL..).. BNENOHIGH2..*.. INCSCREE
NCOL+1..*..;.&*..;ENDE DES TEXTFILES?.,*
..;.D*D.NOHIGH2 LDATEXTFILE.V*N. CMPTEXT
FILE1.H*X. BNEDRUCKSCHL.{*.. LDATEXTFILE
+1..*.. CMPTEXTFILE1+1..*.. BNEDRUCKSCHL
..*..;.M*..;FERTIG: WARTE AUF TASTENDRUC
K....S*..;..*..WARTETAST JSRGETIN..*(. B
EQWARTETAST..+2.;./+<.;UND KEHRE VON DER
 UNTERROUTINE ZURUECK..5+F.;.E+P.AUSGANG
 RTS.K+Z.;.Q+D.;.W+N.;.D+X.FILENAME.N+..
.BY 8..+...TX "TEXTFILE"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL