INPUT $C000.SRC

FILE INFORMATION

FILENAME(S): INPUT $C000.SRC

FILE TYPE(S): PRG

FILE SIZE: 3K

FIRST SEEN: 2025-11-30 01:13:05

APPEARS ON: 1 disk(s)

FILE HASH

ba056819aa07d721757e20101ae518db1cd7403ea831fac07719554d0ec120e6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10303 SEITE B	INPUT $C000.SRC	PRG	C64er	11	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 7B 2F 89 2F 00 00 2E 4C  49 20 31 2C 34 2C 30 00  |{/./...LI 1,4,0.|
00000010: 97 2F 01 00 2E 53 59 20  31 2C 34 2C 30 00 B7 2F  |./...SY 1,4,0../|
00000020: 02 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 D7 2F  |*************../|
00000040: 03 00 3B 2A 20 42 45 54  52 49 45 42 53 59 53 54  |..;* BETRIEBSYST|
00000050: 45 4D 2D 52 4F 55 54 49  4F 45 4E 20 2A 00 F7 2F  |EM-ROUTIOEN *../|
00000060: 04 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 21 30  |*************.!0|
00000080: 05 00 2E 47 4C 20 50 52  54 20 20 20 3D 20 24 45  |...GL PRT   = $E|
00000090: 37 31 36 20 3B 20 5A 45  49 43 48 45 4E 41 55 53  |716 ; ZEICHENAUS|
000000A0: 47 41 42 45 20 42 53 00  4A 30 06 00 2E 47 4C 20  |GABE BS.J0...GL |
000000B0: 48 4F 4C 43 52 20 3D 20  24 45 35 31 33 20 3B 20  |HOLCR = $E513 ; |
000000C0: 48 4F 4C 54 20 43 52 20  50 4F 53 49 54 49 4F 4E  |HOLT CR POSITION|
000000D0: 00 70 30 07 00 2E 47 4C  20 53 45 54 43 52 20 3D  |.p0...GL SETCR =|
000000E0: 20 24 45 35 30 43 20 3B  20 53 45 54 5A 54 20 43  | $E50C ; SETZT C|
000000F0: 50 4F 52 53 4F 52 00 A2  30 08 00 2E 47 4C 20 47  |PORSOR..0...GL G|
00000100: 45 54 49 4E 20 3D 20 24  46 46 45 34 20 3B 20 48  |ETIN = $FFE4 ; H|
00000110: 4F 4C 54 20 5A 45 49 43  48 45 4E 20 56 4F 4E 20  |OLT ZEICHEN VON |
00000120: 54 41 53 54 41 54 55 52  00 C7 30 09 00 2E 47 4C  |TASTATUR..0...GL|
00000130: 20 42 41 53 49 4E 20 3D  20 24 46 46 43 46 20 3B  | BASIN = $FFCF ;|
00000140: 20 48 4F 4C 54 20 5A 45  49 43 48 45 4E 00 E1 30  | HOLT ZEICHEN..0|
00000150: 0A 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000160: 2A 2A 2A 2A 2A 2A 2A 00  FB 30 0B 00 3B 2A 20 4D  |*******..0..;* M|
00000170: 41 43 52 4F 20 44 45 46  49 4E 49 54 49 4F 4E 20  |ACRO DEFINITION |
00000180: 2A 00 15 31 0C 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |*..1..;*********|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 33 31 0D 00  |***********.31..|
000001A0: 2E 4D 41 20 50 4C 4F 54  28 58 2C 59 29 20 20 20  |.MA PLOT(X,Y)   |
000001B0: 20 20 3B 43 4F 52 53 4F  52 00 5A 31 0E 00 20 4C  |  ;CORSOR.Z1.. L|
000001C0: 44 58 23 58 3B 43 4F 52  53 4F 52 20 41 55 46 20  |DX#X;CORSOR AUF |
000001D0: 5A 45 49 4C 45 20 58 2D  52 45 47 49 53 54 45 52  |ZEILE X-REGISTER|
000001E0: 00 7B 31 0F 00 20 4C 44  59 23 59 3B 55 4E 44 20  |.{1.. LDY#Y;UND |
000001F0: 53 50 41 4C 54 45 20 59  2D 52 45 47 49 53 54 45  |SPALTE Y-REGISTE|
00000200: 52 00 90 31 10 00 20 4A  53 52 53 45 54 43 52 3B  |R..1.. JSRSETCR;|
00000210: 53 45 54 5A 45 4E 00 98  31 11 00 2E 52 54 00 BA  |SETZEN..1...RT..|
00000220: 31 12 00 3B 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |1..;************|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000240: 00 DC 31 13 00 3B 2A 20  55 4E 49 56 45 52 53 45  |..1..;* UNIVERSE|
00000250: 4C 4C 45 20 49 4E 50 55  54 52 4F 55 54 49 4E 45  |LLE INPUTROUTINE|
00000260: 20 2A 00 FE 31 14 00 3B  2A 20 20 20 20 20 20 20  | *..1..;*       |
00000270: 54 45 53 54 56 45 52 53  49 4F 4E 20 20 20 20 20  |TESTVERSION     |
00000280: 20 20 20 2A 00 20 32 15  00 3B 2A 2A 2A 2A 2A 2A  |   *. 2..;******|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002A0: 2A 2A 2A 2A 2A 2A 00 2D  32 16 00 2E 42 41 24 43  |******.-2...BA$C|
000002B0: 30 30 30 00 4E 32 17 00  3B 2A 2A 2A 2A 2A 2A 2A  |000.N2..;*******|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002D0: 2A 2A 2A 2A 00 6F 32 18  00 3B 2A 20 41 55 46 52  |****.o2..;* AUFR|
000002E0: 55 46 20 44 45 52 20 49  4E 50 55 54 52 4F 55 54  |UF DER INPUTROUT|
000002F0: 49 4E 45 20 2A 00 90 32  19 00 3B 2A 2A 2A 2A 2A  |INE *..2..;*****|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000310: 2A 2A 2A 2A 2A 2A 00 A7  32 1A 00 20 4C 44 41 23  |******..2.. LDA#|
00000320: 24 31 37 3B 41 55 46 20  47 52 4F 53 53 00 C2 32  |$17;AUF GROSS..2|
00000330: 1B 00 20 53 54 41 24 44  30 31 38 3B 4B 4C 45 49  |.. STA$D018;KLEI|
00000340: 4E 53 43 48 52 49 46 54  00 F6 32 1C 00 2E 2E 2E  |NSCHRIFT..2.....|
00000350: 50 4C 4F 54 28 31 31 2C  37 29 20 20 20 20 20 20  |PLOT(11,7)      |
00000360: 20 20 20 20 20 20 20 20  20 3B 45 49 4E 47 41 42  |         ;EINGAB|
00000370: 45 46 45 4C 44 20 41 4E  46 41 4E 47 00 1A 33 1D  |EFELD ANFANG..3.|
00000380: 00 20 4C 44 41 23 24 30  41 3B 4D 41 58 49 4D 41  |. LDA#$0A;MAXIMA|
00000390: 4C 45 20 5A 45 49 43 48  45 4E 41 4E 5A 41 48 4C  |LE ZEICHENANZAHL|
000003A0: 00 34 33 1E 00 20 4A 53  52 46 45 4C 44 3B 46 55  |.43.. JSRFELD;FU|
000003B0: 45 52 20 45 49 4E 47 41  42 45 00 56 33 1F 00 3B  |ER EINGABE.V3..;|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 78 33 20  |************.x3 |
000003E0: 00 3B 2A 20 41 55 46 52  55 46 20 49 4E 50 55 54  |.;* AUFRUF INPUT|
000003F0: 52 4F 55 54 49 4E 45 20  20 20 20 20 20 2A 00 9A  |ROUTINE      *..|
00000400: 33 21 00 3B 2A 20 20 48  4F 4C 45 4E 20 44 45 52  |3!.;*  HOLEN DER|
00000410: 20 5A 45 49 43 48 45 4E  4B 45 54 54 45 20 20 2A  | ZEICHENKETTE  *|
00000420: 00 BC 33 22 00 3B 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..3".;**********|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000440: 2A 2A 00 E9 33 23 00 2E  2E 2E 50 4C 4F 54 28 31  |**..3#....PLOT(1|
00000450: 31 2C 37 29 20 20 20 20  20 20 20 20 20 20 20 20  |1,7)            |
00000460: 20 20 20 3B 45 49 4E 47  41 42 45 46 45 4C 44 00  |   ;EINGABEFELD.|
00000470: 01 34 24 00 20 4C 44 58  23 24 30 30 3B 4C 42 20  |.4$. LDX#$00;LB |
00000480: 41 44 52 45 53 53 45 00  25 34 25 00 20 4C 44 59  |ADRESSE.%4%. LDY|
00000490: 23 24 43 43 3B 48 42 20  41 44 52 45 45 53 45 20  |#$CC;HB ADREESE |
000004A0: 46 55 45 52 20 41 42 4C  41 47 45 00 33 34 26 00  |FUER ABLAGE.34&.|
000004B0: 20 4A 53 52 48 4F 4C 45  4E 00 3C 34 27 00 20 52  | JSRHOLEN.<4'. R|
000004C0: 54 53 00 5E 34 28 00 3B  2A 2A 2A 2A 2A 2A 2A 2A  |TS.^4(.;********|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004E0: 2A 2A 2A 2A 00 80 34 29  00 3B 2A 20 55 4E 49 56  |****..4).;* UNIV|
000004F0: 45 52 53 45 4C 4C 45 20  49 4E 50 55 54 52 4F 55  |ERSELLE INPUTROU|
00000500: 54 49 4E 45 20 2A 00 A2  34 2A 00 3B 2A 2A 2A 2A  |TINE *..4*.;****|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A  00 CD 34 2B 00 46 45 4C  |********..4+.FEL|
00000530: 44 20 53 54 41 5A 41 45  48 4C 45 52 2B 31 3B 5A  |D STAZAEHLER+1;Z|
00000540: 45 49 43 48 45 4E 5A 41  45 4C 45 52 20 53 45 54  |EICHENZAELER SET|
00000550: 5A 45 4E 00 E8 34 2C 00  20 4C 44 41 23 24 30 30  |ZEN..4,. LDA#$00|
00000560: 3B 45 49 4E 47 41 42 45  5A 41 45 4C 45 52 00 FE  |;EINGABEZAELER..|
00000570: 34 2D 00 20 53 54 41 24  43 43 3B 43 4F 52 53 4F  |4-. STA$CC;CORSO|
00000580: 52 20 41 4E 00 18 35 2E  00 20 53 54 41 24 30 32  |R AN..5.. STA$02|
00000590: 3B 41 55 46 20 30 30 20  53 45 54 5A 45 4E 00 45  |;AUF 00 SETZEN.E|
000005A0: 35 2F 00 43 48 41 52 4C  4F 4F 50 20 4A 53 52 47  |5/.CHARLOOP JSRG|
000005B0: 45 54 49 4E 3B 57 45 4C  43 48 45 20 54 41 53 54  |ETIN;WELCHE TAST|
000005C0: 45 20 47 45 44 52 55 45  43 4B 54 00 6F 35 30 00  |E GEDRUECKT.o50.|
000005D0: 20 42 45 51 43 48 41 52  4C 4F 4F 50 3B 42 45 49  | BEQCHARLOOP;BEI|
000005E0: 20 4B 45 49 4E 45 52 20  54 41 53 54 45 20 5A 55  | KEINER TASTE ZU|
000005F0: 52 55 45 43 4B 00 97 35  31 00 20 4C 44 59 23 24  |RUECK..51. LDY#$|
00000600: 30 37 3B 5A 41 45 48 4C  45 52 20 46 55 45 52 20  |07;ZAEHLER FUER |
00000610: 55 45 42 45 52 50 52 55  45 46 55 4E 47 00 C6 35  |UEBERPRUEFUNG..5|
00000620: 32 00 43 4F 4D 50 41 52  45 20 43 4D 50 54 41 53  |2.COMPARE CMPTAS|
00000630: 54 45 4E 2C 59 3B 54 41  53 54 45 4E 20 41 55 46  |TEN,Y;TASTEN AUF|
00000640: 20 47 55 45 4C 54 49 47  4B 45 49 54 00 E4 35 33  | GUELTIGKEIT..53|
00000650: 00 20 42 45 51 43 48 41  52 4C 4F 4F 50 3B 55 45  |. BEQCHARLOOP;UE|
00000660: 42 45 52 50 52 55 45 46  45 4E 00 ED 35 34 00 20  |BERPRUEFEN..54. |
00000670: 44 45 59 00 10 36 35 00  20 42 50 4C 43 4F 4D 50  |DEY..65. BPLCOMP|
00000680: 41 52 45 3B 4E 4F 43 48  20 4D 41 4C 20 50 52 55  |ARE;NOCH MAL PRU|
00000690: 45 46 45 4E 20 3F 00 2E  36 36 00 20 43 4D 50 23  |EFEN ?..66. CMP#|
000006A0: 24 30 44 3B 52 45 54 55  52 4E 20 47 45 44 52 55  |$0D;RETURN GEDRU|
000006B0: 45 43 4B 54 00 44 36 37  00 20 42 45 51 45 4E 44  |ECKT.D67. BEQEND|
000006C0: 3B 44 41 4E 4E 20 45 4E  44 45 00 68 36 38 00 20  |;DANN ENDE.h68. |
000006D0: 43 4D 50 23 24 31 34 3B  44 45 4C 45 54 45 20 54  |CMP#$14;DELETE T|
000006E0: 41 53 54 45 20 47 45 44  52 55 45 43 4B 54 00 91  |ASTE GEDRUECKT..|
000006F0: 36 39 00 20 42 4E 45 43  4F 4E 54 3B 57 45 4E 4E  |69. BNECONT;WENN|
00000700: 20 4E 49 43 48 54 20 5A  45 49 43 48 45 4E 20 41  | NICHT ZEICHEN A|
00000710: 55 53 47 45 42 45 4E 00  AA 36 3A 00 20 4C 44 58  |USGEBEN..6:. LDX|
00000720: 24 30 32 3B 57 45 4E 4E  20 5A 41 45 48 4C 45 52  |$02;WENN ZAEHLER|
00000730: 00 C5 36 3B 00 20 42 45  51 53 50 41 43 45 3B 30  |..6;. BEQSPACE;0|
00000740: 20 44 41 4E 4E 20 4E 49  43 48 54 00 E0 36 3C 00  | DANN NICHT..6<.|
00000750: 20 44 45 43 24 30 32 3B  44 45 4B 52 45 4D 45 4E  | DEC$02;DEKREMEN|
00000760: 54 49 45 52 45 4E 00 FD  36 3D 00 20 4A 53 52 48  |TIEREN..6=. JSRH|
00000770: 4F 4C 43 52 3B 43 4F 52  53 4F 52 50 4F 53 49 54  |OLCR;CORSORPOSIT|
00000780: 49 4F 4E 00 15 37 3E 00  20 44 45 59 3B 44 45 4B  |ION..7>. DEY;DEK|
00000790: 52 45 4D 45 4E 54 49 45  52 45 4E 00 23 37 3F 00  |REMENTIEREN.#7?.|
000007A0: 20 4A 53 52 53 45 54 43  52 00 3B 37 40 00 53 50  | JSRSETCR.;7@.SP|
000007B0: 41 43 45 20 4C 44 41 23  24 32 30 3B 53 50 41 43  |ACE LDA#$20;SPAC|
000007C0: 45 00 4E 37 41 00 20 4A  53 52 50 52 54 3B 41 55  |E.N7A. JSRPRT;AU|
000007D0: 46 20 42 53 00 72 37 42  00 20 4A 53 52 48 4F 4C  |F BS.r7B. JSRHOL|
000007E0: 43 52 3B 43 4F 52 53 4F  52 50 4F 53 49 54 49 4F  |CR;CORSORPOSITIO|
000007F0: 4E 20 57 49 45 44 45 52  00 86 37 43 00 20 44 45  |N WIEDER..7C. DE|
00000800: 59 3B 48 45 52 53 54 45  4C 4C 45 4E 00 94 37 44  |Y;HERSTELLEN..7D|
00000810: 00 20 4A 53 52 53 45 54  43 52 00 B6 37 45 00 20  |. JSRSETCR..7E. |
00000820: 4A 4D 50 43 48 41 52 4C  4F 4F 50 3B 4E 41 45 43  |JMPCHARLOOP;NAEC|
00000830: 48 53 54 45 20 5A 45 49  43 48 45 4E 00 CF 37 46  |HSTE ZEICHEN..7F|
00000840: 00 43 4F 4E 54 20 54 41  59 3B 41 4B 4B 55 20 52  |.CONT TAY;AKKU R|
00000850: 45 54 54 45 4E 00 EB 37  47 00 20 4C 44 41 24 30  |ETTEN..7G. LDA$0|
00000860: 32 3B 45 49 4E 47 41 42  45 20 5A 41 45 48 4C 45  |2;EINGABE ZAEHLE|
00000870: 52 00 13 38 48 00 5A 41  45 48 4C 45 52 20 43 4D  |R..8H.ZAEHLER CM|
00000880: 50 23 24 30 46 3B 41 55  46 20 4C 41 45 4E 47 45  |P#$0F;AUF LAENGE|
00000890: 20 50 52 55 45 46 46 45  4E 00 31 38 49 00 20 42  | PRUEFFEN.18I. B|
000008A0: 43 53 43 48 41 52 4C 4F  4F 50 3B 4D 41 58 20 45  |CSCHARLOOP;MAX E|
000008B0: 52 52 45 49 43 48 54 00  3A 38 4A 00 20 54 59 41  |RREICHT.:8J. TYA|
000008C0: 00 55 38 4B 00 20 4A 53  52 50 52 54 3B 5A 45 49  |.U8K. JSRPRT;ZEI|
000008D0: 43 48 45 4E 20 41 55 46  20 42 53 00 71 38 4C 00  |CHEN AUF BS.q8L.|
000008E0: 20 49 4E 43 24 30 32 3B  5A 41 45 4C 45 52 20 45  | INC$02;ZAELER E|
000008F0: 52 48 4F 45 48 45 4E 00  93 38 4D 00 20 4A 4D 50  |RHOEHEN..8M. JMP|
00000900: 43 48 41 52 4C 4F 4F 50  3B 4E 41 45 43 48 53 54  |CHARLOOP;NAECHST|
00000910: 45 20 5A 45 49 43 48 45  4E 00 A0 38 4E 00 20 4C  |E ZEICHEN..8N. L|
00000920: 44 41 23 24 30 31 00 B7  38 4F 00 20 53 54 41 24  |DA#$01..8O. STA$|
00000930: 43 43 3B 43 4F 52 53 4F  52 20 41 55 53 00 C3 38  |CC;CORSOR AUS..8|
00000940: 50 00 45 4E 44 20 52 54  53 00 E5 38 51 00 3B 2A  |P.END RTS..8Q.;*|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 07 39 52 00  |***********..9R.|
00000970: 3B 2A 20 55 4E 49 56 45  52 53 45 4C 4C 45 20 49  |;* UNIVERSELLE I|
00000980: 4E 50 55 54 52 4F 55 54  49 4E 45 20 2A 00 29 39  |NPUTROUTINE *.)9|
00000990: 53 00 3B 2A 20 20 48 4F  4C 45 4E 20 44 45 52 20  |S.;*  HOLEN DER |
000009A0: 5A 45 49 43 48 45 4E 4B  45 54 54 45 20 20 2A 00  |ZEICHENKETTE  *.|
000009B0: 4B 39 54 00 3B 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |K9T.;***********|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000009D0: 2A 00 6C 39 55 00 48 4F  4C 45 4E 20 53 54 58 53  |*.l9U.HOLEN STXS|
000009E0: 45 54 2B 31 3B 5A 45 49  43 48 45 4E 41 42 4C 41  |ET+1;ZEICHENABLA|
000009F0: 47 45 00 81 39 56 00 20  53 54 59 53 45 54 2B 32  |GE..9V. STYSET+2|
00000A00: 3B 53 45 54 5A 45 4E 00  96 39 57 00 20 4C 44 41  |;SETZEN..9W. LDA|
00000A10: 23 24 30 33 3B 42 53 20  43 4F 44 45 00 B6 39 58  |#$03;BS CODE..9X|
00000A20: 00 20 53 54 41 24 39 39  3B 46 55 45 52 20 45 49  |. STA$99;FUER EI|
00000A30: 4E 47 41 42 45 20 53 45  54 5A 45 4E 00 E0 39 59  |NGABE SETZEN..9Y|
00000A40: 00 20 4C 44 58 23 24 30  30 3B 53 43 48 4C 45 49  |. LDX#$00;SCHLEI|
00000A50: 46 45 4E 5A 41 48 4C 45  52 20 46 55 45 52 20 45  |FENZAHLER FUER E|
00000A60: 49 4E 47 41 42 45 00 0D  3A 5A 00 47 52 41 42 53  |INGABE..:Z.GRABS|
00000A70: 43 48 20 4A 53 52 42 41  53 49 4E 3B 48 4F 4C 54  |CH JSRBASIN;HOLT|
00000A80: 20 45 49 4E 20 5A 45 49  43 48 45 4E 20 56 4F 4E  | EIN ZEICHEN VON|
00000A90: 20 42 53 00 2C 3A 5B 00  53 45 54 20 53 54 41 24  | BS.,:[.SET STA$|
00000AA0: 41 30 30 30 2C 58 3B 55  4E 44 20 41 42 4C 45 47  |A000,X;UND ABLEG|
00000AB0: 45 4E 00 45 3A 5C 00 20  49 4E 58 3B 5A 41 48 4C  |EN.E:\. INX;ZAHL|
00000AC0: 45 52 20 45 52 48 4F 45  48 45 4E 00 5F 3A 5D 00  |ER ERHOEHEN._:].|
00000AD0: 20 44 45 43 24 30 32 3B  5A 45 49 43 48 45 4E 5A  | DEC$02;ZEICHENZ|
00000AE0: 41 48 4C 45 52 00 86 3A  5E 00 20 42 4E 45 47 52  |AHLER..:^. BNEGR|
00000AF0: 41 42 53 43 48 3B 4E 4F  43 48 20 45 49 4E 20 5A  |ABSCH;NOCH EIN Z|
00000B00: 45 49 43 48 45 4E 20 48  4F 4C 45 4E 00 9C 3A 5F  |EICHEN HOLEN..:_|
00000B10: 00 20 4C 44 41 23 24 30  30 3B 54 41 53 54 41 54  |. LDA#$00;TASTAT|
00000B20: 55 52 00 B5 3A 60 00 20  53 54 41 24 39 39 3B 46  |UR..:`. STA$99;F|
00000B30: 55 45 52 20 45 49 4E 47  41 42 45 00 BE 3A 61 00  |UER EINGABE..:a.|
00000B40: 20 52 54 53 00 C4 3A 62  00 3B 00 E2 3A 63 00 54  | RTS..:b.;..:c.T|
00000B50: 41 53 54 45 4E 20 2E 42  59 24 31 44 2C 24 39 44  |ASTEN .BY$1D,$9D|
00000B60: 2C 24 31 31 2C 24 39 31  00 FA 3A 64 00 20 2E 42  |,$11,$91..:d. .B|
00000B70: 59 24 39 34 2C 24 31 33  2C 24 39 33 2C 24 30 30  |Y$94,$13,$93,$00|
00000B80: 00 02 3B 65 00 2E 45 4E  00 DA 00 39 42 57 42 52  |..;e..EN...9BWBR|
00000B90: 52 42 52 55 41 20 00 00  99 99 66 66 99 99 66 66  |RBRUA ....ff..ff|
00000BA0: 66 66 66 66 22 99 66 99  66 99 66 00 00 99 99 99  |ffff".f.f.f.....|
00000BB0: 99 00 99 99 99 99 99 66  99 99 99 99 66 42 99 99  |.......f....fB..|
00000BC0: 66 66 99 66 66 66 66 66  66 66 99 99 66 00 66 99  |ff.fffffff..f.f.|
00000BD0: 0C 66 99 54 66 66 99 00  99 99 66 99 00 99 66 99  |.f.Tff....f...f.|
00000BE0: 0C 99 42 99 99 99 99                              |..B....         |

{/./...LI 1,4,0../...SY 1,4,0../..;*****
*********************.W/..;* BETRIEBSYST
EM-ROUTIOEN *../..;*********************
*****.!0...GL PRT   = $E716 ; ZEICHENAUS
GABE BS.J0...GL HOLCR = $E513 ; HOLT CR 
POSITION.P0...GL SETCR = $E50C ; SETZT C
PORSOR..0...GL GETIN = $FFE4 ; HOLT ZEIC
HEN VON TASTATUR.G0...GL BASIN = $FFCF ;
 HOLT ZEICHEN..0..;********************.
.0..;* MACRO DEFINITION *..1..;*********
***********.31...MA PLOT(X,Y)     ;CORSO
R.Z1.. LDX#X;CORSOR AUF ZEILE X-REGISTER
.{1.. LDY#Y;UND SPALTE Y-REGISTER..1.. J
SRSETCR;SETZEN..1...RT..1..;************
****************..1..;* UNIVERSELLE INPU
TROUTINE *..1..;*       TESTVERSION     
   *. 2..;****************************.-
2...BA$C000.N2..;***********************
****.O2..;* AUFRUF DER INPUTROUTINE *..2
..;***************************..2.. LDA#
$17;AUF GROSS.B2.. STA$D018;KLEINSCHRIFT
..2.....PLOT(11,7)               ;EINGAB
EFELD ANFANG..3.. LDA#$0A;MAXIMALE ZEICH
ENANZAHL.43.. JSRFELD;FUER EINGABE.V3..;
****************************.X3 .;* AUFR
UF INPUTROUTINE      *..3!.;*  HOLEN DER
 ZEICHENKETTE  *..3".;******************
**********..3#....PLOT(11,7)            
   ;EINGABEFELD..4$. LDX#$00;LB ADRESSE.
%4%. LDY#$CC;HB ADREESE FUER ABLAGE.34&.
 JSRHOLEN.<4'. RTS.^4(.;****************
************..4).;* UNIVERSELLE INPUTROU
TINE *..4*.;****************************
.M4+.FELD STAZAEHLER+1;ZEICHENZAELER SET
ZEN..4,. LDA#$00;EINGABEZAELER..4-. STA$
CC;CORSOR AN..5.. STA$02;AUF 00 SETZEN.E
5/.CHARLOOP JSRGETIN;WELCHE TASTE GEDRUE
CKT.O50. BEQCHARLOOP;BEI KEINER TASTE ZU
RUECK..51. LDY#$07;ZAEHLER FUER UEBERPRU
EFUNG.F52.COMPARE CMPTASTEN,Y;TASTEN AUF
 GUELTIGKEIT..53. BEQCHARLOOP;UEBERPRUEF
EN..54. DEY..65. BPLCOMPARE;NOCH MAL PRU
EFEN ?..66. CMP#$0D;RETURN GEDRUECKT.D67
. BEQEND;DANN ENDE.H68. CMP#$14;DELETE T
ASTE GEDRUECKT..69. BNECONT;WENN NICHT Z
EICHEN AUSGEBEN..6:. LDX$02;WENN ZAEHLER
.E6;. BEQSPACE;0 DANN NICHT..6<. DEC$02;
DEKREMENTIEREN..6=. JSRHOLCR;CORSORPOSIT
ION..7>. DEY;DEKREMENTIEREN.#7?. JSRSETC
R.;7@.SPACE LDA#$20;SPACE.N7A. JSRPRT;AU
F BS.R7B. JSRHOLCR;CORSORPOSITION WIEDER
..7C. DEY;HERSTELLEN..7D. JSRSETCR..7E. 
JMPCHARLOOP;NAECHSTE ZEICHEN.O7F.CONT TA
Y;AKKU RETTEN..7G. LDA$02;EINGABE ZAEHLE
R..8H.ZAEHLER CMP#$0F;AUF LAENGE PRUEFFE
N.18I. BCSCHARLOOP;MAX ERREICHT.:8J. TYA
.U8K. JSRPRT;ZEICHEN AUF BS.Q8L. INC$02;
ZAELER ERHOEHEN..8M. JMPCHARLOOP;NAECHST
E ZEICHEN. 8N. LDA#$01..8O. STA$CC;CORSO
R AUS.C8P.END RTS..8Q.;*****************
***********..9R.;* UNIVERSELLE INPUTROUT
INE *.)9S.;*  HOLEN DER ZEICHENKETTE  *.
K9T.;****************************.L9U.HO
LEN STXSET+1;ZEICHENABLAGE..9V. STYSET+2
;SETZEN..9W. LDA#$03;BS CODE..9X. STA$99
;FUER EINGABE SETZEN..9Y. LDX#$00;SCHLEI
FENZAHLER FUER EINGABE..:Z.GRABSCH JSRBA
SIN;HOLT EIN ZEICHEN VON BS.,:[.SET STA$
A000,X;UND ABLEGEN.E:\. INX;ZAHLER ERHOE
HEN._:]. DEC$02;ZEICHENZAHLER..:^. BNEGR
ABSCH;NOCH EIN ZEICHEN HOLEN..:_. LDA#$0
0;TASTATUR..:`. STA$99;FUER EINGABE..:A.
 RTS.D:B.;..:C.TASTEN .BY$1D,$9D,$11,$91
..:D. .BY$94,$13,$93,$00..;E..EN.Z.9BWBR
RBRUA ....FF..FFFFFF".F.F.F............F
....FB..FF.FFFFFFF..F.F..F.TFF....F...F.
..B....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL