INPUT.SRC
FILE INFORMATION
FILENAME(S): INPUT.SRC
FILE TYPE(S): PRG
FILE SIZE: 15.8K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
8c6ee681a96c569db1e380d2152ad4153eb0b171b3b7de254599e3e4f697b0a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | INPUT.SRC | PRG | Treasure Chest - ToGuMi | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F7 1F 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |....d.;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 00 16 20 6E 00 3B 2A 20 20 20 20 20 49 4E 50 55 |.. n.;* INPU|
00000030: 54 2D 52 4F 55 54 49 4E 45 20 20 20 20 20 2A 00 |T-ROUTINE *.|
00000040: 35 20 78 00 3B 2A 20 28 43 29 20 53 41 49 44 20 |5 x.;* (C) SAID |
00000050: 42 41 4C 4F 55 49 2C 20 31 39 38 37 20 2A 00 54 |BALOUI, 1987 *.T|
00000060: 20 82 00 3B 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 5A 20 |*************.Z |
00000080: 8C 00 3B 00 60 20 96 00 3B 00 66 20 A0 00 3B 00 |..;.` ..;.f ..;.|
00000090: 8B 20 AA 00 3B 46 55 4E 4B 54 49 4F 4E 3A 20 2D |. ..;FUNKTION: -|
000000A0: 20 45 49 4E 47 41 42 45 20 53 54 41 4E 44 2D 41 | EINGABE STAND-A|
000000B0: 4C 4F 4E 45 00 AA 20 B4 00 3B 20 20 20 20 20 20 |LONE.. ..; |
000000C0: 20 20 20 20 20 20 45 49 4E 42 49 4E 44 55 4E 47 | EINBINDUNG|
000000D0: 20 49 4E 00 CD 20 BE 00 3B 20 20 20 20 20 20 20 | IN.. ..; |
000000E0: 20 20 20 20 20 42 49 4C 44 53 43 48 49 52 4D 2D | BILDSCHIRM-|
000000F0: 45 44 49 54 4F 52 00 D3 20 C8 00 3B 00 F1 20 D2 |EDITOR.. ..;.. .|
00000100: 00 3B 45 44 49 54 4B 45 59 53 3A 20 2D 20 43 55 |.;EDITKEYS: - CU|
00000110: 52 53 4F 52 54 41 53 54 45 4E 00 0B 21 DC 00 3B |RSORTASTEN..!..;|
00000120: 20 20 20 20 20 20 20 20 20 20 2D 20 49 4E 53 54 | - INST|
00000130: 2F 44 45 4C 00 2D 21 E6 00 3B 20 20 20 20 20 20 |/DEL.-!..; |
00000140: 20 20 20 20 2D 20 43 3D 20 2B 20 52 49 47 48 54 | - C= + RIGHT|
00000150: 2F 44 4F 57 4E 3A 00 50 21 F0 00 3B 20 20 20 20 |/DOWN:.P!..; |
00000160: 20 20 20 20 20 20 20 20 57 4F 52 54 20 52 45 43 | WORT REC|
00000170: 48 54 53 2F 4C 49 4E 4B 53 00 73 21 FA 00 3B 20 |HTS/LINKS.s!..; |
00000180: 20 20 20 20 20 20 20 20 20 2D 20 43 3D 20 2B 20 | - C= + |
00000190: 44 45 4C 3A 20 4C 4F 45 53 43 48 54 00 93 21 04 |DEL: LOESCHT..!.|
000001A0: 01 3B 20 20 20 20 20 20 20 20 20 20 2D 20 5A 45 |.; - ZE|
000001B0: 49 4C 45 20 4B 4F 4D 50 4C 45 54 54 00 99 21 0E |ILE KOMPLETT..!.|
000001C0: 01 3B 00 BD 21 18 01 3B 41 55 46 52 55 46 3A 20 |.;..!..;AUFRUF: |
000001D0: 53 59 53 20 58 2C 43 4F 4C 2C 4C 49 4E 45 2C 4C |SYS X,COL,LINE,L|
000001E0: 45 4E 4D 41 58 2C 00 E2 21 22 01 3B 20 20 20 20 |ENMAX,..!".; |
000001F0: 20 20 20 20 56 4F 52 47 41 42 45 24 2C 45 49 4E | VORGABE$,EIN|
00000200: 47 41 42 45 43 48 41 52 53 24 2C 00 05 22 2C 01 |GABECHARS$,..",.|
00000210: 3B 20 20 20 20 20 20 20 20 42 41 43 4B 43 48 41 |; BACKCHA|
00000220: 52 53 24 2C 4C 41 53 54 43 48 41 52 24 2C 00 1B |RS$,LASTCHAR$,..|
00000230: 22 36 01 3B 20 20 20 20 20 20 20 20 4E 52 25 2C |"6.; NR%,|
00000240: 46 4C 41 47 00 21 22 40 01 3B 00 45 22 4A 01 3B |FLAG.!"@.;.E"J.;|
00000250: 20 2D 20 43 4F 4C 2F 4C 49 4E 45 3A 20 53 54 41 | - COL/LINE: STA|
00000260: 52 54 20 45 49 4E 47 41 42 45 5A 4F 4E 45 00 6A |RT EINGABEZONE.j|
00000270: 22 54 01 3B 20 2D 20 4C 45 4E 4D 41 58 3A 20 4C |"T.; - LENMAX: L|
00000280: 41 45 4E 47 45 20 44 2E 45 49 4E 47 41 42 45 5A |AENGE D.EINGABEZ|
00000290: 4F 4E 45 00 8C 22 5E 01 3B 20 2D 20 56 4F 52 47 |ONE.."^.; - VORG|
000002A0: 41 42 45 24 3A 20 45 49 4E 47 41 42 45 2D 56 4F |ABE$: EINGABE-VO|
000002B0: 52 47 41 42 45 00 AE 22 68 01 3B 20 2D 20 45 49 |RGABE.."h.; - EI|
000002C0: 4E 47 41 42 45 43 48 41 52 53 24 3A 20 5A 55 4C |NGABECHARS$: ZUL|
000002D0: 41 45 53 53 49 47 45 00 CD 22 72 01 3B 20 20 20 |AESSIGE.."r.; |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5A | Z|
000002F0: 45 49 43 48 45 4E 00 F2 22 7C 01 3B 20 2D 20 42 |EICHEN.."|.; - B|
00000300: 41 43 4B 43 48 41 52 53 24 3A 20 5A 45 49 43 48 |ACKCHARS$: ZEICH|
00000310: 45 4E 2C 20 44 49 45 20 44 49 45 00 16 23 86 01 |EN, DIE DIE..#..|
00000320: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00000330: 45 49 4E 47 41 42 45 20 42 45 45 4E 44 45 4E 00 |EINGABE BEENDEN.|
00000340: 39 23 90 01 3B 20 2D 20 4C 41 53 54 43 48 41 52 |9#..; - LASTCHAR|
00000350: 24 3A 20 20 53 54 52 49 4E 47 2C 20 49 4E 20 44 |$: STRING, IN D|
00000360: 45 4D 00 5D 23 9A 01 3B 20 20 20 20 20 20 20 20 |EM.]#..; |
00000370: 20 20 20 20 20 20 20 44 41 53 20 45 4E 44 45 5A | DAS ENDEZ|
00000380: 45 49 43 48 45 4E 00 81 23 A4 01 3B 20 20 20 20 |EICHEN..#..; |
00000390: 20 20 20 20 20 20 20 20 20 20 20 55 45 42 45 52 | UEBER|
000003A0: 47 45 42 45 4E 20 57 49 52 44 00 A5 23 AE 01 3B |GEBEN WIRD..#..;|
000003B0: 20 2D 20 4E 52 25 3A 20 31 2E 49 4D 4D 45 52 3A | - NR%: 1.IMMER:|
000003C0: 20 49 4E 20 27 4E 52 25 27 20 57 49 52 44 00 C8 | IN 'NR%' WIRD..|
000003D0: 23 B8 01 3B 20 20 20 20 20 20 20 20 20 20 44 49 |#..; DI|
000003E0: 45 20 4C 45 54 5A 54 45 20 5A 45 49 43 48 45 4E |E LETZTE ZEICHEN|
000003F0: 2D 00 EC 23 C2 01 3B 20 20 20 20 20 20 20 20 20 |-..#..; |
00000400: 20 50 4F 53 49 54 49 4F 4E 20 44 45 53 20 43 55 | POSITION DES CU|
00000410: 52 53 4F 52 53 00 06 24 CC 01 3B 20 20 20 20 20 |RSORS..$..; |
00000420: 20 20 20 20 20 55 45 42 45 52 47 45 42 45 4E 00 | UEBERGEBEN.|
00000430: 28 24 D6 01 3B 20 20 20 20 20 20 20 20 32 2E 4E |($..; 2.N|
00000440: 52 3D 30 20 3D 3E 20 43 55 52 53 4F 52 20 41 55 |R=0 => CURSOR AU|
00000450: 46 00 47 24 E0 01 3B 20 20 20 20 20 20 20 20 20 |F.G$..; |
00000460: 20 45 52 53 54 45 4D 20 5A 45 49 43 48 45 4E 3B | ERSTEM ZEICHEN;|
00000470: 00 6B 24 EA 01 3B 20 20 20 20 20 20 20 20 20 20 |.k$..; |
00000480: 27 4E 4F 52 4D 41 4C 45 27 20 49 4E 50 55 54 52 |'NORMALE' INPUTR|
00000490: 4F 55 54 2E 00 8F 24 F4 01 3B 20 20 20 20 20 20 |OUT...$..; |
000004A0: 20 20 33 2E 4E 52 3C 3E 30 20 3D 3E 20 43 55 52 | 3.NR<>0 => CUR|
000004B0: 53 4F 52 20 4E 41 43 48 00 B1 24 FE 01 3B 20 20 |SOR NACH..$..; |
000004C0: 20 20 20 20 20 20 20 20 41 55 46 52 55 46 20 41 | AUFRUF A|
000004D0: 55 46 20 5A 45 49 43 48 45 4E 00 D2 24 08 02 3B |UF ZEICHEN..$..;|
000004E0: 20 20 20 20 20 20 20 20 20 20 4E 52 2E 27 4E 52 | NR.'NR|
000004F0: 25 27 20 47 45 53 45 54 5A 54 3B 00 F6 24 12 02 |%' GESETZT;..$..|
00000500: 3B 20 20 20 20 20 20 20 20 20 20 43 55 52 53 4F |; CURSO|
00000510: 52 42 45 57 45 47 55 4E 47 45 4E 20 41 55 53 00 |RBEWEGUNGEN AUS.|
00000520: 1C 25 1C 02 3B 20 20 20 20 20 20 20 20 20 20 44 |.%..; D|
00000530: 45 52 20 45 49 4E 47 41 42 45 5A 4F 4E 45 20 48 |ER EINGABEZONE H|
00000540: 45 52 41 55 53 00 3F 25 26 02 3B 20 20 20 20 20 |ERAUS.?%&.; |
00000550: 20 20 20 20 20 42 45 45 4E 44 45 4E 20 44 49 45 | BEENDEN DIE|
00000560: 20 45 49 4E 47 41 42 45 00 45 25 30 02 3B 00 67 | EINGABE.E%0.;.g|
00000570: 25 3A 02 3B 20 2D 20 46 4C 41 47 3A 20 30 3D 4E |%:.; - FLAG: 0=N|
00000580: 4F 52 4D 41 4C 44 41 52 53 54 45 4C 4C 55 4E 47 |ORMALDARSTELLUNG|
00000590: 00 8B 25 44 02 3B 20 20 20 20 20 20 20 20 20 31 |..%D.; 1|
000005A0: 3D 49 4E 56 45 52 53 45 20 44 41 52 53 54 45 4C |=INVERSE DARSTEL|
000005B0: 4C 55 4E 47 00 A4 25 4E 02 3B 20 20 20 20 20 20 |LUNG..%N.; |
000005C0: 20 20 20 32 3D 4D 41 4C 4D 4F 44 55 53 00 AA 25 | 2=MALMODUS..%|
000005D0: 58 02 3B 00 B0 25 62 02 3B 00 D5 25 6C 02 3B 42 |X.;..%b.;..%l.;B|
000005E0: 53 50 2E 3A 20 53 59 53 20 58 2C 31 30 2C 32 30 |SP.: SYS X,10,20|
000005F0: 2C 31 30 30 2C 56 24 2C 45 24 2C 42 24 2C 00 E9 |,100,V$,E$,B$,..|
00000600: 25 76 02 3B 20 20 20 20 20 20 4C 24 2C 4E 52 25 |%v.; L$,NR%|
00000610: 2C 31 00 0D 26 80 02 3B 20 20 20 20 20 20 45 49 |,1..&..; EI|
00000620: 4E 47 41 42 45 20 41 42 20 53 50 41 4C 54 45 20 |NGABE AB SPALTE |
00000630: 31 30 20 56 4F 4E 00 23 26 8A 02 3B 20 20 20 20 |10 VON.#&..; |
00000640: 20 20 53 50 41 4C 54 45 20 32 30 3B 00 47 26 94 | SPALTE 20;.G&.|
00000650: 02 3B 20 20 20 20 20 20 4D 41 58 49 4D 41 4C 20 |.; MAXIMAL |
00000660: 31 30 30 20 49 4E 20 27 45 24 27 20 45 4E 54 2D |100 IN 'E$' ENT-|
00000670: 00 63 26 9E 02 3B 20 20 20 20 20 20 48 41 4C 54 |.c&..; HALT|
00000680: 45 4E 45 20 5A 45 49 43 48 45 4E 3B 00 87 26 A8 |ENE ZEICHEN;..&.|
00000690: 02 3B 20 20 20 20 20 20 53 54 52 49 4E 47 20 49 |.; STRING I|
000006A0: 4E 20 27 56 24 27 20 57 49 52 44 20 56 4F 52 2D |N 'V$' WIRD VOR-|
000006B0: 00 9B 26 B2 02 3B 20 20 20 20 20 20 47 45 47 45 |..&..; GEGE|
000006C0: 42 45 4E 3B 00 BD 26 BC 02 3B 20 20 20 20 20 20 |BEN;..&..; |
000006D0: 45 49 4E 47 41 42 45 45 4E 44 45 20 4D 49 54 20 |EINGABEENDE MIT |
000006E0: 44 45 4E 20 49 4E 00 E2 26 C6 02 3B 20 20 20 20 |DEN IN..&..; |
000006F0: 20 20 27 42 24 27 20 45 4E 54 48 41 4C 54 45 4E | 'B$' ENTHALTEN|
00000700: 45 4E 20 5A 45 49 43 48 45 4E 3B 00 04 27 D0 02 |EN ZEICHEN;..'..|
00000710: 3B 20 20 20 20 20 20 27 45 4E 44 45 5A 45 49 43 |; 'ENDEZEIC|
00000720: 48 45 4E 27 20 49 4E 20 27 4C 24 27 3B 00 24 27 |HEN' IN 'L$';.$'|
00000730: DA 02 3B 20 20 20 20 20 20 49 4E 56 45 52 53 45 |..; INVERSE|
00000740: 20 44 41 52 53 54 45 4C 4C 55 4E 47 2E 00 2A 27 | DARSTELLUNG..*'|
00000750: E4 02 3B 00 30 27 EE 02 3B 00 36 27 F8 02 3B 00 |..;.0'..;.6'..;.|
00000760: 52 27 02 03 2E 42 41 20 24 43 34 30 30 20 3B 53 |R'...BA $C400 ;S|
00000770: 54 41 52 54 41 44 52 45 53 53 45 00 58 27 0C 03 |TARTADRESSE.X'..|
00000780: 3B 00 5E 27 16 03 3B 00 64 27 20 03 3B 00 73 27 |;.^'..;.d' .;.s'|
00000790: 2A 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 82 27 34 |*.;*********..'4|
000007A0: 03 3B 2A 20 4C 41 42 45 4C 20 2A 00 91 27 3E 03 |.;* LABEL *..'>.|
000007B0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 27 48 03 3B |;*********..'H.;|
000007C0: 00 9D 27 52 03 3B 00 BD 27 5C 03 3B 2A 2A 2A 2A |..'R.;..'\.;****|
000007D0: 2A 20 42 45 54 52 49 45 42 53 53 59 53 54 45 4D |* BETRIEBSSYSTEM|
000007E0: 20 2A 2A 2A 2A 2A 00 E2 27 66 03 2E 45 51 20 43 | *****..'f..EQ C|
000007F0: 48 4B 4B 4F 4D 20 20 20 3D 24 41 45 46 44 20 3B |HKKOM =$AEFD ;|
00000800: 4C 49 45 53 54 20 4B 4F 4D 4D 41 00 0D 28 70 03 |LIEST KOMMA..(p.|
00000810: 2E 45 51 20 47 45 54 42 59 54 20 20 20 3D 24 42 |.EQ GETBYT =$B|
00000820: 37 39 45 20 3B 4C 49 45 53 54 20 31 2D 42 59 54 |79E ;LIEST 1-BYT|
00000830: 45 2D 57 45 52 54 00 40 28 7A 03 2E 45 51 20 47 |E-WERT.@(z..EQ G|
00000840: 45 54 50 4F 53 20 20 20 3D 24 42 30 38 42 20 3B |ETPOS =$B08B ;|
00000850: 48 4F 4C 54 20 50 4F 49 4E 54 45 52 20 41 55 46 |HOLT POINTER AUF|
00000860: 20 56 41 52 49 41 42 4C 45 00 80 28 84 03 2E 45 | VARIABLE..(...E|
00000870: 51 20 53 54 52 52 45 53 20 20 20 3D 24 42 34 46 |Q STRRES =$B4F|
00000880: 34 20 3B 52 45 53 45 52 56 49 45 52 54 20 50 4C |4 ;RESERVIERT PL|
00000890: 41 54 5A 20 46 2E 41 4E 5A 55 4C 45 47 45 4E 44 |ATZ F.ANZULEGEND|
000008A0: 45 4E 20 53 54 52 49 4E 47 00 A7 28 8E 03 2E 45 |EN STRING..(...E|
000008B0: 51 20 50 4C 4F 54 20 20 20 20 20 3D 24 46 46 46 |Q PLOT =$FFF|
000008C0: 30 20 3B 43 55 52 53 4F 52 20 53 45 54 5A 45 4E |0 ;CURSOR SETZEN|
000008D0: 00 D1 28 98 03 2E 45 51 20 42 53 4F 55 54 20 20 |..(...EQ BSOUT |
000008E0: 20 20 3D 24 46 46 44 32 20 3B 5A 45 49 43 48 45 | =$FFD2 ;ZEICHE|
000008F0: 4E 20 41 55 53 47 45 42 45 4E 00 05 29 A2 03 2E |N AUSGEBEN..)...|
00000900: 45 51 20 47 45 54 49 4E 20 20 20 20 3D 24 46 46 |EQ GETIN =$FF|
00000910: 45 34 20 3B 5A 45 49 43 48 45 4E 20 56 4F 4E 20 |E4 ;ZEICHEN VON |
00000920: 54 41 53 54 41 54 55 52 20 48 4F 4C 45 4E 00 3B |TASTATUR HOLEN.;|
00000930: 29 AC 03 2E 45 51 20 43 48 52 47 45 54 20 20 20 |)...EQ CHRGET |
00000940: 3D 24 37 33 20 20 20 3B 5A 45 49 43 48 45 4E 20 |=$73 ;ZEICHEN |
00000950: 41 55 53 20 42 41 53 49 43 2D 54 45 58 54 20 48 |AUS BASIC-TEXT H|
00000960: 4F 4C 45 4E 00 6B 29 B6 03 2E 45 51 20 54 45 58 |OLEN.k)...EQ TEX|
00000970: 54 50 54 52 20 20 3D 24 37 41 20 20 20 3B 50 4F |TPTR =$7A ;PO|
00000980: 49 4E 54 45 52 20 41 55 46 20 42 41 53 49 43 2D |INTER AUF BASIC-|
00000990: 54 45 58 54 00 A2 29 C0 03 2E 45 51 20 56 41 52 |TEXT..)...EQ VAR|
000009A0: 50 54 52 20 20 20 3D 24 34 37 20 20 20 3B 50 4F |PTR =$47 ;PO|
000009B0: 49 4E 54 45 52 20 41 55 46 20 41 4B 54 55 45 4C |INTER AUF AKTUEL|
000009C0: 4C 45 20 56 41 52 49 41 42 4C 45 00 DF 29 CA 03 |LE VARIABLE..)..|
000009D0: 2E 45 51 20 53 54 52 45 4E 44 20 20 20 3D 24 33 |.EQ STREND =$3|
000009E0: 33 20 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 46 |3 ;POINTER AUF|
000009F0: 20 55 4E 54 45 52 47 52 45 4E 5A 45 20 53 54 52 | UNTERGRENZE STR|
00000A00: 49 4E 47 53 54 41 43 4B 00 10 2A D4 03 2E 45 51 |INGSTACK..*...EQ|
00000A10: 20 4C 49 4E 45 50 54 52 20 20 3D 24 44 31 20 20 | LINEPTR =$D1 |
00000A20: 20 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 43 55 | ;POINTER AUF CU|
00000A30: 52 53 4F 52 5A 45 49 4C 45 00 36 2A DE 03 2E 45 |RSORZEILE.6*...E|
00000A40: 51 20 43 4F 4C 20 20 20 20 20 20 3D 24 44 33 20 |Q COL =$D3 |
00000A50: 20 20 3B 43 55 52 53 4F 52 53 50 41 4C 54 45 00 | ;CURSORSPALTE.|
00000A60: 5B 2A E8 03 2E 45 51 20 4C 49 4E 45 20 20 20 20 |[*...EQ LINE |
00000A70: 20 3D 24 44 36 20 20 20 3B 43 55 52 53 4F 52 5A | =$D6 ;CURSORZ|
00000A80: 45 49 4C 45 00 96 2A F2 03 2E 45 51 20 43 52 53 |EILE..*...EQ CRS|
00000A90: 46 4C 41 47 20 20 3D 24 43 46 20 20 20 3B 43 55 |FLAG =$CF ;CU|
00000AA0: 52 53 4F 52 20 4D 4F 4D 45 4E 54 41 4E 20 4E 4F |RSOR MOMENTAN NO|
00000AB0: 52 4D 41 4C 2F 49 4E 56 45 52 54 49 45 52 54 00 |RMAL/INVERTIERT.|
00000AC0: BE 2A FC 03 2E 45 51 20 43 52 53 45 4E 41 42 4C |.*...EQ CRSENABL|
00000AD0: 45 3D 24 43 43 20 20 20 3B 43 55 52 53 4F 52 20 |E=$CC ;CURSOR |
00000AE0: 45 49 4E 2F 41 55 53 00 EC 2A 06 04 2E 45 51 20 |EIN/AUS..*...EQ |
00000AF0: 53 48 46 4C 41 47 20 20 20 3D 24 30 32 38 44 20 |SHFLAG =$028D |
00000B00: 3B 53 48 49 46 54 2F 43 54 52 4C 2F 43 3D 20 2D |;SHIFT/CTRL/C= -|
00000B10: 20 46 4C 41 47 00 1E 2B 0B 04 2E 45 51 20 51 55 | FLAG..+...EQ QU|
00000B20: 4F 54 45 4D 4F 44 45 3D 32 31 32 20 20 20 3B 41 |OTEMODE=212 ;A|
00000B30: 4E 46 55 45 48 52 55 4E 47 53 5A 45 49 43 48 45 |NFUEHRUNGSZEICHE|
00000B40: 4E 4D 4F 4F 44 55 53 00 53 2B 0D 04 2E 45 51 20 |NMOODUS.S+...EQ |
00000B50: 49 4E 53 45 52 54 53 20 20 3D 24 44 38 20 20 20 |INSERTS =$D8 |
00000B60: 3B 41 4E 5A 41 48 4C 20 41 55 53 53 54 45 48 45 |;ANZAHL AUSSTEHE|
00000B70: 4E 44 45 52 20 49 4E 53 45 52 54 53 00 79 2B 10 |NDER INSERTS.y+.|
00000B80: 04 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 00 7F 2B 1A 04 3B 00 85 2B 24 04 3B 00 8B |**..+..;..+$.;..|
00000BB0: 2B 2E 04 3B 00 AB 2B 38 04 3B 2A 2A 2A 2A 2A 20 |+..;..+8.;***** |
00000BC0: 50 52 4F 47 52 41 4D 4D 49 4E 54 45 52 4E 20 2A |PROGRAMMINTERN *|
00000BD0: 2A 2A 2A 2A 00 B1 2B 42 04 3B 00 D1 2B 4C 04 3B |****..+B.;..+L.;|
00000BE0: 2A 2A 2A 20 53 54 52 49 4E 47 44 45 53 43 52 49 |*** STRINGDESCRI|
00000BF0: 50 54 4F 52 45 4E 20 2A 2A 2A 00 05 2C 56 04 2E |PTOREN ***..,V..|
00000C00: 45 51 20 43 48 41 52 44 45 53 20 3D 24 41 35 20 |EQ CHARDES =$A5 |
00000C10: 20 20 20 3B 53 54 52 49 4E 47 20 4D 49 54 20 4C | ;STRING MIT L|
00000C20: 45 54 5A 54 45 4D 20 5A 45 49 43 48 45 4E 00 35 |ETZTEM ZEICHEN.5|
00000C30: 2C 60 04 2E 45 51 20 45 4E 44 44 45 53 20 20 3D |,`..EQ ENDDES =|
00000C40: 24 41 38 20 20 20 20 3B 53 54 52 49 4E 47 20 4D |$A8 ;STRING M|
00000C50: 49 54 20 45 4E 44 45 5A 45 49 43 48 45 4E 00 68 |IT ENDEZEICHEN.h|
00000C60: 2C 6A 04 2E 45 51 20 4F 4B 41 59 44 45 53 20 3D |,j..EQ OKAYDES =|
00000C70: 24 41 42 20 20 20 20 3B 53 54 52 49 4E 47 20 4D |$AB ;STRING M|
00000C80: 49 54 20 45 49 4E 47 41 42 45 5A 45 49 43 48 45 |IT EINGABEZEICHE|
00000C90: 4E 00 96 2C 74 04 2E 45 51 20 49 4E 50 55 54 44 |N..,t..EQ INPUTD|
00000CA0: 45 53 3D 24 41 45 20 20 20 20 3B 56 4F 52 2D 2F |ES=$AE ;VOR-/|
00000CB0: 52 55 45 43 4B 47 41 42 45 53 54 52 49 4E 47 00 |RUECKGABESTRING.|
00000CC0: 9C 2C 7E 04 3B 00 A2 2C 88 04 3B 00 CE 2C 92 04 |.,~.;..,..;..,..|
00000CD0: 3B 2A 2A 2A 20 50 4F 49 4E 54 45 52 20 41 55 46 |;*** POINTER AUF|
00000CE0: 20 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 4F | STRINGDESCRIPTO|
00000CF0: 52 45 4E 20 2A 2A 2A 00 F4 2C 9C 04 2E 45 51 20 |REN ***..,...EQ |
00000D00: 43 48 41 52 50 54 52 20 3D 24 30 32 41 37 20 20 |CHARPTR =$02A7 |
00000D10: 3B 53 2E 4F 2E 28 50 4F 49 4E 54 45 52 00 1C 2D |;S.O.(POINTER..-|
00000D20: A6 04 2E 45 51 20 45 4E 44 50 54 52 20 20 3D 24 |...EQ ENDPTR =$|
00000D30: 30 32 41 41 20 20 3B 41 55 46 20 44 49 45 20 4F |02AA ;AUF DIE O|
00000D40: 42 49 47 45 4E 00 4A 2D B0 04 2E 45 51 20 4F 4B |BIGEN.J-...EQ OK|
00000D50: 41 59 50 54 52 20 3D 24 30 32 41 44 20 20 3B 53 |AYPTR =$02AD ;S|
00000D60: 54 52 49 4E 47 44 45 53 53 43 52 49 50 54 4F 52 |TRINGDESSCRIPTOR|
00000D70: 45 4E 29 00 61 2D BA 04 2E 45 51 20 49 4E 50 55 |EN).a-...EQ INPU|
00000D80: 54 50 54 52 3D 24 30 32 42 30 00 67 2D C4 04 3B |TPTR=$02B0.g-..;|
00000D90: 00 6D 2D CE 04 3B 00 8E 2D D8 04 3B 2A 2A 2A 20 |.m-..;..-..;*** |
00000DA0: 5A 45 52 4F 50 41 47 45 28 21 29 2D 50 4F 49 4E |ZEROPAGE(!)-POIN|
00000DB0: 54 45 52 20 2A 2A 2A 00 BE 2D E2 04 2E 45 51 20 |TER ***..-...EQ |
00000DC0: 49 4E 44 49 5A 20 3D 24 46 37 20 20 20 20 20 20 |INDIZ =$F7 |
00000DD0: 3B 50 4F 49 4E 54 45 52 20 46 55 45 52 20 49 4E |;POINTER FUER IN|
00000DE0: 44 49 52 45 4B 54 2D 00 F6 2D EC 04 2E 45 51 20 |DIREKT-..-...EQ |
00000DF0: 49 4E 44 49 5A 31 3D 24 46 39 20 20 20 20 20 20 |INDIZ1=$F9 |
00000E00: 3B 49 4E 44 49 5A 49 45 52 54 45 20 41 44 52 2E |;INDIZIERTE ADR.|
00000E10: 28 56 45 52 53 43 48 2E 5A 57 45 43 4B 45 29 00 |(VERSCH.ZWECKE).|
00000E20: 21 2E F6 04 2E 45 51 20 43 48 41 52 4E 52 3D 24 |!....EQ CHARNR=$|
00000E30: 46 42 20 20 20 20 20 20 3B 50 4F 49 4E 54 45 52 |FB ;POINTER|
00000E40: 20 41 55 46 20 27 4E 52 25 27 00 27 2E 00 05 3B | AUF 'NR%'.'...;|
00000E50: 00 43 2E 0A 05 3B 2A 2A 2A 20 53 4F 4E 53 54 49 |.C...;*** SONSTI|
00000E60: 47 45 20 4C 41 42 45 4C 20 2A 2A 2A 00 89 2E 14 |GE LABEL ***....|
00000E70: 05 2E 45 51 20 50 4F 53 46 4C 41 47 20 3D 24 30 |..EQ POSFLAG =$0|
00000E80: 32 42 33 20 20 3B 30 3D 4E 4F 52 4D 41 4C 20 2F |2B3 ;0=NORMAL /|
00000E90: 20 31 3D 56 4F 52 47 41 42 45 20 44 45 52 20 43 | 1=VORGABE DER C|
00000EA0: 55 52 53 4F 52 53 54 41 52 54 50 4F 53 49 54 49 |URSORSTARTPOSITI|
00000EB0: 4F 4E 00 D4 2E 1E 05 2E 45 51 20 50 4F 53 41 4B |ON......EQ POSAK|
00000EC0: 54 20 20 3D 24 30 32 42 34 20 20 3B 41 4B 54 55 |T =$02B4 ;AKTU|
00000ED0: 45 4C 4C 45 20 50 4F 53 49 54 49 4F 4E 20 49 4E |ELLE POSITION IN|
00000EE0: 4E 45 52 48 41 4C 42 20 44 45 52 20 45 49 4E 47 |NERHALB DER EING|
00000EF0: 41 42 45 20 28 41 42 20 30 21 21 21 29 00 04 2F |ABE (AB 0!!!)../|
00000F00: 28 05 2E 45 51 20 4C 45 4E 4D 41 58 20 20 3D 24 |(..EQ LENMAX =$|
00000F10: 30 32 42 35 20 20 3B 4D 41 58 49 4D 41 4C 45 20 |02B5 ;MAXIMALE |
00000F20: 45 49 4E 47 41 42 45 4C 41 45 4E 47 45 00 31 2F |EINGABELAENGE.1/|
00000F30: 32 05 2E 45 51 20 41 54 54 52 49 42 55 54 3D 24 |2..EQ ATTRIBUT=$|
00000F40: 30 32 42 36 20 20 3B 30 3D 4E 4F 52 4D 41 4C 20 |02B6 ;0=NORMAL |
00000F50: 2F 20 31 3D 49 4E 56 45 52 53 00 65 2F 3C 05 2E |/ 1=INVERS.e/<..|
00000F60: 45 51 20 43 52 53 4C 49 4E 45 20 3D 24 30 32 42 |EQ CRSLINE =$02B|
00000F70: 37 20 20 3B 53 54 41 52 54 5A 45 49 4C 45 20 44 |7 ;STARTZEILE D|
00000F80: 45 52 20 45 49 4E 47 41 42 45 5A 4F 4E 45 00 9A |ER EINGABEZONE..|
00000F90: 2F 46 05 2E 45 51 20 43 52 53 43 4F 4C 20 20 3D |/F..EQ CRSCOL =|
00000FA0: 24 30 32 42 38 20 20 3B 53 54 41 52 54 53 50 41 |$02B8 ;STARTSPA|
00000FB0: 4C 54 45 20 44 45 52 20 45 49 4E 47 41 42 45 5A |LTE DER EINGABEZ|
00000FC0: 4F 4E 45 00 E3 2F 4B 05 2E 45 51 20 45 44 49 54 |ONE../K..EQ EDIT|
00000FD0: 46 4C 41 47 3D 24 30 32 42 39 20 20 3B 30 3D 4B |FLAG=$02B9 ;0=K|
00000FE0: 45 49 4E 45 20 41 45 4E 44 45 52 55 4E 47 2C 20 |EINE AENDERUNG, |
00000FF0: 53 4F 4E 53 54 20 5A 45 49 4C 45 4E 49 4E 48 41 |SONST ZEILENINHA|
00001000: 4C 54 20 47 45 41 45 4E 44 45 52 54 00 0A 30 50 |LT GEAENDERT..0P|
00001010: 05 2E 45 51 20 48 45 4C 50 20 20 20 20 3D 24 30 |..EQ HELP =$0|
00001020: 32 42 41 20 20 3B 56 45 52 53 43 48 49 45 44 45 |2BA ;VERSCHIEDE|
00001030: 4E 45 53 00 30 30 5A 05 3B 2A 2A 2A 2A 2A 2A 2A |NES.00Z.;*******|
00001040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 30 64 05 3B 2A |*********.V0d.;*|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001080: 7C 30 6E 05 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ||0n.;***********|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010A0: 2A 2A 2A 2A 2A 00 82 30 78 05 3B 00 88 30 82 05 |*****..0x.;..0..|
000010B0: 3B 00 8E 30 8C 05 3B 00 A7 30 96 05 3B 2A 2A 2A |;..0..;..0..;***|
000010C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010D0: 00 C0 30 A0 05 3B 2A 20 49 4E 49 54 49 41 4C 49 |..0..;* INITIALI|
000010E0: 53 49 45 52 55 4E 47 20 2A 00 D9 30 AA 05 3B 2A |SIERUNG *..0..;*|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001100: 2A 2A 00 DF 30 B4 05 3B 00 EA 30 B6 05 20 4C 44 |**..0..;..0.. LD|
00001110: 41 23 30 00 FB 30 B8 05 20 53 54 41 45 44 49 54 |A#0..0.. STAEDIT|
00001120: 46 4C 41 47 00 01 31 BA 05 3B 00 25 31 BE 05 3B |FLAG..1..;.%1..;|
00001130: 2A 2A 2A 2A 2A 20 50 41 52 41 4D 45 54 45 52 20 |***** PARAMETER |
00001140: 45 49 4E 4C 45 53 45 4E 20 2A 2A 2A 2A 2A 00 2B |EINLESEN *****.+|
00001150: 31 C8 05 3B 00 4A 31 D2 05 3B 2A 53 50 41 4C 54 |1..;.J1..;*SPALT|
00001160: 45 2C 5A 45 49 4C 45 20 55 4E 44 20 4C 41 45 4E |E,ZEILE UND LAEN|
00001170: 47 45 2A 00 75 31 DC 05 20 4A 53 52 52 45 41 44 |GE*.u1.. JSRREAD|
00001180: 42 59 54 3B 53 54 41 52 54 53 50 41 4C 54 45 20 |BYT;STARTSPALTE |
00001190: 55 4E 44 20 53 54 41 52 54 5A 45 49 4C 45 00 AB |UND STARTZEILE..|
000011A0: 31 E6 05 3B 20 20 20 20 20 20 20 20 20 20 20 20 |1..; |
000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 43 | NAC|
000011C0: 48 20 27 43 52 53 43 4F 4C 27 2F 27 43 52 53 4C |H 'CRSCOL'/'CRSL|
000011D0: 49 4E 45 27 00 BA 31 F0 05 20 53 54 58 43 52 53 |INE'..1.. STXCRS|
000011E0: 43 4F 4C 00 D5 31 FA 05 20 4A 53 52 52 45 41 44 |COL..1.. JSRREAD|
000011F0: 42 59 54 3B 43 55 52 53 4F 52 20 41 55 46 00 08 |BYT;CURSOR AUF..|
00001200: 32 04 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 |2..; |
00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 | STA|
00001220: 52 54 50 4F 53 49 54 49 4F 4E 20 53 45 54 5A 45 |RTPOSITION SETZE|
00001230: 4E 00 18 32 0E 06 20 53 54 58 43 52 53 4C 49 4E |N..2.. STXCRSLIN|
00001240: 45 00 27 32 18 06 20 4C 44 59 43 52 53 43 4F 4C |E.'2.. LDYCRSCOL|
00001250: 00 30 32 22 06 20 43 4C 43 00 3D 32 2C 06 20 4A |.02". CLC.=2,. J|
00001260: 53 52 50 4C 4F 54 00 43 32 36 06 3B 00 49 32 40 |SRPLOT.C26.;.I2@|
00001270: 06 3B 00 76 32 4A 06 4C 41 45 4E 47 45 20 4A 53 |.;.v2J.LAENGE JS|
00001280: 52 52 45 41 44 42 59 54 3B 4D 41 58 49 4D 41 4C |RREADBYT;MAXIMAL|
00001290: 45 20 45 49 4E 47 41 42 45 4C 41 45 4E 47 45 00 |E EINGABELAENGE.|
000012A0: A2 32 54 06 3B 20 20 20 20 20 20 20 20 20 20 20 |.2T.; |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA|
000012C0: 43 48 20 27 4C 45 4E 4D 41 58 27 00 B1 32 5E 06 |CH 'LENMAX'..2^.|
000012D0: 20 53 54 58 4C 45 4E 4D 41 58 00 B7 32 68 06 3B | STXLENMAX..2h.;|
000012E0: 00 BD 32 72 06 3B 00 E0 32 7C 06 3B 2A 5A 45 49 |..2r.;..2|.;*ZEI|
000012F0: 43 48 45 4E 24 2C 45 4E 44 45 24 2C 52 55 45 43 |CHEN$,ENDE$,RUEC|
00001300: 4B 24 2C 42 41 43 4B 24 2A 00 EC 32 86 06 20 4C |K$,BACK$*..2.. L|
00001310: 44 58 23 31 31 00 21 33 90 06 4C 49 45 53 50 41 |DX#11.!3..LIESPA|
00001320: 52 20 53 54 58 48 45 4C 50 3B 34 2A 50 4F 49 4E |R STXHELP;4*POIN|
00001330: 54 45 52 20 41 55 46 20 53 54 52 49 4E 47 44 45 |TER AUF STRINGDE|
00001340: 53 43 52 49 50 54 4F 52 45 4E 00 42 33 9A 06 20 |SCRIPTOREN.B3.. |
00001350: 4A 53 52 52 45 41 44 44 45 53 3B 48 4F 4C 45 4E |JSRREADDES;HOLEN|
00001360: 2C 20 53 50 45 49 43 48 45 52 4E 00 75 33 A4 06 |, SPEICHERN.u3..|
00001370: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00001380: 20 20 20 20 20 20 20 20 20 20 55 4E 44 20 44 49 | UND DI|
00001390: 45 20 44 45 53 43 52 49 50 54 4F 52 45 4E 00 9D |E DESCRIPTOREN..|
000013A0: 33 AE 06 20 4C 44 58 48 45 4C 50 3B 53 45 4C 42 |3.. LDXHELP;SELB|
000013B0: 53 54 20 48 4F 4C 45 4E 20 55 4E 44 20 53 50 45 |ST HOLEN UND SPE|
000013C0: 49 43 48 45 52 4E 00 A3 33 B8 06 3B 00 B7 33 C2 |ICHERN..3..;..3.|
000013D0: 06 20 53 54 41 43 48 41 52 50 54 52 2D 32 2C 58 |. STACHARPTR-2,X|
000013E0: 00 C0 33 CC 06 20 54 59 41 00 D4 33 D6 06 20 53 |..3.. TYA..3.. S|
000013F0: 54 41 43 48 41 52 50 54 52 2D 31 2C 58 00 DA 33 |TACHARPTR-1,X..3|
00001400: E0 06 3B 00 E5 33 EA 06 20 4C 44 59 23 32 00 00 |..;..3.. LDY#2..|
00001410: 34 F4 06 4C 49 45 53 50 41 52 31 20 4C 44 41 28 |4..LIESPAR1 LDA(|
00001420: 56 41 52 50 54 52 29 2C 59 00 12 34 FE 06 20 53 |VARPTR),Y..4.. S|
00001430: 54 41 43 48 41 52 44 45 53 2C 58 00 1B 34 08 07 |TACHARDES,X..4..|
00001440: 20 44 45 58 00 2C 34 12 07 20 42 4D 49 4C 49 45 | DEX.,4.. BMILIE|
00001450: 53 50 41 52 32 00 35 34 1C 07 20 44 45 59 00 46 |SPAR2.54.. DEY.F|
00001460: 34 26 07 20 42 50 4C 4C 49 45 53 50 41 52 31 00 |4&. BPLLIESPAR1.|
00001470: 56 34 30 07 20 42 4D 49 4C 49 45 53 50 41 52 00 |V40. BMILIESPAR.|
00001480: 5C 34 3A 07 3B 00 62 34 44 07 3B 00 7C 34 4E 07 |\4:.;.b4D.;.|4N.|
00001490: 3B 2A 5A 45 49 43 48 45 4E 4E 52 2E 45 49 4E 4C |;*ZEICHENNR.EINL|
000014A0: 45 53 45 4E 2A 00 94 34 58 07 4C 49 45 53 50 41 |ESEN*..4X.LIESPA|
000014B0: 52 32 20 4A 53 52 52 45 41 44 44 45 53 00 D4 34 |R2 JSRREADDES..4|
000014C0: 62 07 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |b.; |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2E 27 4E | 1.'N|
000014E0: 52 25 27 3D 30 3A 20 27 50 4F 53 46 4C 41 47 27 |R%'=0: 'POSFLAG'|
000014F0: 20 41 55 46 20 30 20 53 45 54 5A 45 4E 00 FF 34 | AUF 0 SETZEN..4|
00001500: 6C 07 20 53 54 41 43 48 41 52 4E 52 3B 55 4E 44 |l. STACHARNR;UND|
00001510: 20 27 50 4F 53 41 4B 54 27 20 4D 49 54 20 31 20 | 'POSAKT' MIT 1 |
00001520: 49 4E 49 54 49 41 4C 2E 00 10 35 76 07 20 53 54 |INITIAL...5v. ST|
00001530: 59 43 48 41 52 4E 52 2B 31 00 3E 35 80 07 20 4C |YCHARNR+1.>5.. L|
00001540: 44 59 23 30 3B 32 2E 27 4E 52 25 27 3C 3E 30 3A |DY#0;2.'NR%'<>0:|
00001550: 20 27 50 4F 53 46 4C 41 47 27 20 41 55 46 20 31 | 'POSFLAG' AUF 1|
00001560: 20 53 45 54 5A 45 4E 00 69 35 8A 07 20 53 54 59 | SETZEN.i5.. STY|
00001570: 50 4F 53 41 4B 54 3B 55 4E 44 20 27 50 4F 53 41 |POSAKT;UND 'POSA|
00001580: 4B 54 27 20 4D 49 54 20 44 45 4D 20 49 4E 48 41 |KT' MIT DEM INHA|
00001590: 4C 54 00 8E 35 94 07 20 53 54 59 50 4F 53 46 4C |LT..5.. STYPOSFL|
000015A0: 41 47 3B 56 4F 4E 20 27 4E 52 25 27 2D 31 20 49 |AG;VON 'NR%'-1 I|
000015B0: 4E 49 54 49 41 4C 2E 00 97 35 9E 07 20 49 4E 59 |NITIAL...5.. INY|
000015C0: 00 AA 35 A8 07 20 4C 44 41 28 43 48 41 52 4E 52 |..5.. LDA(CHARNR|
000015D0: 29 2C 59 00 B9 35 B2 07 20 42 45 51 41 54 54 52 |),Y..5.. BEQATTR|
000015E0: 49 42 00 C8 35 BC 07 20 53 54 41 50 4F 53 41 4B |IB..5.. STAPOSAK|
000015F0: 54 00 D7 35 C6 07 20 44 45 43 50 4F 53 41 4B 54 |T..5.. DECPOSAKT|
00001600: 00 E7 35 D0 07 20 44 45 43 50 4F 53 46 4C 41 47 |..5.. DECPOSFLAG|
00001610: 00 ED 35 DA 07 3B 00 F3 35 E4 07 3B 00 0C 36 EE |..5..;..5..;..6.|
00001620: 07 3B 2A 41 54 54 52 49 42 55 54 20 45 49 4E 4C |.;*ATTRIBUT EINL|
00001630: 45 53 45 4E 2A 00 33 36 F8 07 41 54 54 52 49 42 |ESEN*.36..ATTRIB|
00001640: 20 4A 53 52 52 45 41 44 42 59 54 3B 27 41 54 54 | JSRREADBYT;'ATT|
00001650: 52 49 42 55 54 27 20 48 4F 4C 45 4E 00 67 36 02 |RIBUT' HOLEN.g6.|
00001660: 08 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
00001670: 20 20 20 20 20 20 20 20 20 20 20 28 30 3D 4E 4F | (0=NO|
00001680: 52 4D 41 4C 20 2F 20 31 3D 49 4E 56 45 52 53 29 |RMAL / 1=INVERS)|
00001690: 00 78 36 0C 08 20 53 54 58 41 54 54 52 49 42 55 |.x6.. STXATTRIBU|
000016A0: 54 00 7E 36 16 08 3B 00 89 36 20 08 20 43 50 58 |T.~6..;..6 . CPX|
000016B0: 23 32 00 9A 36 2A 08 20 42 4E 45 50 4C 41 54 5A |#2..6*. BNEPLATZ|
000016C0: 52 45 53 00 A7 36 34 08 20 4C 44 41 23 24 46 46 |RES..64. LDA#$FF|
000016D0: 00 B8 36 3E 08 20 53 54 41 41 54 54 52 49 42 55 |..6>. STAATTRIBU|
000016E0: 54 00 DE 36 48 08 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |T..6H.;*********|
000016F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001700: 2A 2A 2A 2A 2A 2A 2A 00 E4 36 52 08 3B 00 EA 36 |*******..6R.;..6|
00001710: 5C 08 3B 00 F0 36 66 08 3B 00 19 37 70 08 3B 2A |\.;..6f.;..7p.;*|
00001720: 2A 2A 2A 2A 20 53 54 52 49 4E 47 50 4C 41 54 5A |**** STRINGPLATZ|
00001730: 20 52 45 53 45 52 56 49 45 52 45 4E 20 2A 2A 2A | RESERVIEREN ***|
00001740: 2A 2A 00 45 37 7A 08 50 4C 41 54 5A 52 45 53 20 |**.E7z.PLATZRES |
00001750: 4C 44 41 4C 45 4E 4D 41 58 3B 50 4C 41 54 5A 20 |LDALENMAX;PLATZ |
00001760: 46 2E 41 4E 5A 55 4C 45 47 45 4E 44 45 4E 00 73 |F.ANZULEGENDEN.s|
00001770: 37 84 08 20 4A 53 52 53 54 52 52 45 53 3B 53 54 |7.. JSRSTRRES;ST|
00001780: 52 49 4E 47 20 49 4E 20 27 4C 45 4E 4D 41 58 27 |RING IN 'LENMAX'|
00001790: 20 52 45 53 45 52 56 49 45 52 45 4E 00 AC 37 8E | RESERVIEREN..7.|
000017A0: 08 20 44 45 43 4C 45 4E 4D 41 58 3B 27 4C 45 4E |. DECLENMAX;'LEN|
000017B0: 4D 41 58 27 3D 4D 41 58 2E 4C 41 45 4E 47 45 20 |MAX'=MAX.LAENGE |
000017C0: 49 4E 43 4C 2E 21 21 21 20 5A 45 49 43 48 45 4E |INCL.!!! ZEICHEN|
000017D0: 20 4E 52 2E 30 00 D2 37 98 08 3B 2A 2A 2A 2A 2A | NR.0..7..;*****|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D8 37 A2 08 |***********..7..|
00001800: 3B 00 DE 37 AC 08 3B 00 E4 37 B6 08 3B 00 10 38 |;..7..;..7..;..8|
00001810: C0 08 3B 2A 2A 2A 2A 2A 20 56 4F 52 47 41 42 45 |..;***** VORGABE|
00001820: 20 49 4E 20 53 54 52 49 4E 47 20 4B 4F 50 49 45 | IN STRING KOPIE|
00001830: 52 45 4E 20 2A 2A 2A 2A 2A 00 1B 38 CA 08 20 4C |REN *****..8.. L|
00001840: 44 59 23 30 00 30 38 D4 08 49 4E 49 54 20 43 50 |DY#0.08..INIT CP|
00001850: 59 49 4E 50 55 54 44 45 53 00 3E 38 DE 08 20 42 |YINPUTDES.>8.. B|
00001860: 45 51 49 4E 49 54 31 00 55 38 E8 08 20 4C 44 41 |EQINIT1.U8.. LDA|
00001870: 28 49 4E 50 55 54 44 45 53 2B 31 29 2C 59 00 68 |(INPUTDES+1),Y.h|
00001880: 38 F2 08 20 53 54 41 28 53 54 52 45 4E 44 29 2C |8.. STA(STREND),|
00001890: 59 00 71 38 FC 08 20 49 4E 59 00 9B 38 06 09 20 |Y.q8.. INY..8.. |
000018A0: 42 4E 45 49 4E 49 54 3B 56 4F 52 47 41 42 45 53 |BNEINIT;VORGABES|
000018B0: 54 52 49 4E 47 20 49 4E 20 53 54 52 49 4E 47 53 |TRING IN STRINGS|
000018C0: 54 41 43 4B 00 D3 38 10 09 3B 20 20 20 20 20 20 |TACK..8..; |
000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018E0: 20 20 3B 4B 4F 50 49 45 52 45 4E 20 55 4E 44 20 | ;KOPIEREN UND |
000018F0: 52 45 53 45 52 56 49 45 52 54 45 4E 00 F8 38 1A |RESERVIERTEN..8.|
00001900: 09 49 4E 49 54 31 20 4C 44 41 23 22 20 22 3B 50 |.INIT1 LDA#" ";P|
00001910: 4C 41 54 5A 20 42 49 53 20 27 4C 45 4E 4D 41 58 |LATZ BIS 'LENMAX|
00001920: 27 00 22 39 24 09 49 4E 49 54 32 20 43 50 59 4C |'."9$.INIT2 CPYL|
00001930: 45 4E 4D 41 58 3B 4D 49 54 20 53 50 41 43 45 53 |ENMAX;MIT SPACES|
00001940: 20 41 55 46 46 55 45 4C 4C 45 4E 00 30 39 2E 09 | AUFFUELLEN.09..|
00001950: 20 42 45 51 49 4E 49 54 33 00 40 39 38 09 20 42 | BEQINIT3.@98. B|
00001960: 43 53 53 48 4F 57 43 52 53 00 58 39 42 09 49 4E |CSSHOWCRS.X9B.IN|
00001970: 49 54 33 20 53 54 41 28 53 54 52 45 4E 44 29 2C |IT3 STA(STREND),|
00001980: 59 00 61 39 4C 09 20 49 4E 59 00 6F 39 56 09 20 |Y.a9L. INY.o9V. |
00001990: 42 4E 45 49 4E 49 54 32 00 75 39 58 09 3B 00 7B |BNEINIT2.u9X.;.{|
000019A0: 39 59 09 3B 00 81 39 5A 09 3B 00 9E 39 5B 09 3B |9Y.;..9Z.;..9[.;|
000019B0: 2A 2A 2A 2A 2A 20 53 48 4F 57 20 43 55 52 53 4F |***** SHOW CURSO|
000019C0: 52 20 2A 2A 2A 2A 2A 00 B4 39 5C 09 53 48 4F 57 |R *****..9\.SHOW|
000019D0: 43 52 53 20 4A 53 52 53 45 54 43 52 53 00 C6 39 |CRS JSRSETCRS..9|
000019E0: 5E 09 20 4A 53 52 49 4E 56 45 52 54 43 52 53 00 |^. JSRINVERTCRS.|
000019F0: D3 39 60 09 20 4C 44 59 23 24 31 34 00 E4 39 62 |.9`. LDY#$14..9b|
00001A00: 09 53 48 4F 57 4C 4F 4F 50 20 44 45 58 00 F5 39 |.SHOWLOOP DEX..9|
00001A10: 64 09 20 42 4E 45 53 48 4F 57 4C 4F 4F 50 00 FE |d. BNESHOWLOOP..|
00001A20: 39 66 09 20 44 45 59 00 0F 3A 68 09 20 42 4E 45 |9f. DEY..:h. BNE|
00001A30: 53 48 4F 57 4C 4F 4F 50 00 35 3A BA 09 3B 2A 2A |SHOWLOOP.5:..;**|
00001A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B |**************.[|
00001A60: 3A C4 09 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |:..;************|
00001A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A80: 2A 2A 2A 2A 00 81 3A CE 09 3B 2A 2A 2A 2A 2A 2A |****..:..;******|
00001A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 3A D8 09 3B |**********..:..;|
00001AB0: 00 8D 3A E2 09 3B 00 93 3A EC 09 3B 00 99 3A F6 |..:..;..:..;..:.|
00001AC0: 09 3B 00 B4 3A 00 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;..:..;********|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 3A |*************..:|
00001AE0: 0A 0A 3B 2A 20 45 49 4E 47 41 42 45 20 45 44 49 |..;* EINGABE EDI|
00001AF0: 54 49 45 52 45 4E 20 2A 00 EA 3A 14 0A 3B 2A 2A |TIEREN *..:..;**|
00001B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B10: 2A 2A 2A 00 F0 3A 1E 0A 3B 00 11 3B 28 0A 3B 2A |***..:..;..;(.;*|
00001B20: 2A 2A 2A 2A 20 45 49 4E 47 41 42 45 53 43 48 4C |**** EINGABESCHL|
00001B30: 45 49 46 45 20 2A 2A 2A 2A 2A 00 47 3B 32 0A 47 |EIFE *****.G;2.G|
00001B40: 45 54 20 4A 53 52 49 4E 56 45 52 54 43 52 53 3B |ET JSRINVERTCRS;|
00001B50: 5A 45 49 43 48 45 4E 20 55 4E 54 45 52 20 43 55 |ZEICHEN UNTER CU|
00001B60: 52 53 4F 52 20 49 4E 56 45 52 54 49 45 52 45 4E |RSOR INVERTIEREN|
00001B70: 00 6E 3B 3C 0A 20 4A 53 52 41 55 53 47 41 42 45 |.n;<. JSRAUSGABE|
00001B80: 3B 45 49 4E 47 41 42 45 53 54 52 49 4E 47 20 41 |;EINGABESTRING A|
00001B90: 55 53 47 45 42 45 4E 00 A1 3B 46 0A 20 4A 53 52 |USGEBEN..;F. JSR|
00001BA0: 53 45 54 43 52 53 3B 43 55 52 53 4F 52 20 41 55 |SETCRS;CURSOR AU|
00001BB0: 46 20 41 4B 54 55 45 4C 4C 45 20 45 49 4E 47 41 |F AKTUELLE EINGA|
00001BC0: 42 45 50 4F 53 49 54 49 4F 4E 00 A7 3B 47 0A 3B |BEPOSITION..;G.;|
00001BD0: 00 B2 3B 48 0A 20 4C 44 59 23 30 00 C2 3B 49 0A |..;H. LDY#0..;I.|
00001BE0: 20 53 54 59 43 52 53 46 4C 41 47 00 D4 3B 4B 0A | STYCRSFLAG..;K.|
00001BF0: 20 53 54 59 43 52 53 45 4E 41 42 4C 45 00 DA 3B | STYCRSENABLE..;|
00001C00: 4C 0A 3B 00 F6 3B 50 0A 47 45 54 31 20 4A 53 52 |L.;..;P.GET1 JSR|
00001C10: 47 45 54 49 4E 3B 41 55 46 20 54 41 53 54 45 00 |GETIN;AUF TASTE.|
00001C20: 0A 3C 5A 0A 20 42 45 51 47 45 54 31 3B 57 41 52 |.<Z. BEQGET1;WAR|
00001C30: 54 45 4E 00 10 3C 5B 0A 3B 00 1B 3C 5C 0A 20 4C |TEN..<[.;..<\. L|
00001C40: 44 59 23 30 00 2B 3C 5F 0A 20 53 54 59 43 52 53 |DY#0.+<_. STYCRS|
00001C50: 46 4C 41 47 00 3D 3C 60 0A 20 49 4E 43 43 52 53 |FLAG.=<`. INCCRS|
00001C60: 45 4E 41 42 4C 45 00 63 3C 64 0A 3B 2A 2A 2A 2A |ENABLE.c<d.;****|
00001C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 69 3C 6E |************.i<n|
00001C90: 0A 3B 00 6F 3C 78 0A 3B 00 75 3C 82 0A 3B 00 99 |.;.o<x.;.u<..;..|
00001CA0: 3C 8C 0A 3B 2A 2A 2A 2A 2A 20 4D 41 4C 4D 4F 44 |<..;***** MALMOD|
00001CB0: 55 53 20 42 45 48 41 4E 44 45 4C 4E 20 2A 2A 2A |US BEHANDELN ***|
00001CC0: 2A 2A 00 AA 3C 96 0A 20 4C 44 58 41 54 54 52 49 |**..<.. LDXATTRI|
00001CD0: 42 55 54 00 BA 3C A0 0A 20 42 50 4C 4E 4F 4D 41 |BUT..<.. BPLNOMA|
00001CE0: 4C 45 4E 00 C0 3C AA 0A 3B 00 C6 3C B4 0A 3B 00 |LEN..<..;..<..;.|
00001CF0: D2 3C BE 0A 20 4C 44 58 23 31 30 00 E4 3C C8 0A |.<.. LDX#10..<..|
00001D00: 4B 45 59 31 20 43 4D 50 4B 45 59 2C 58 00 F1 3C |KEY1 CMPKEY,X..<|
00001D10: D2 0A 20 42 45 51 4B 45 59 32 00 FA 3C DC 0A 20 |.. BEQKEY2..<.. |
00001D20: 44 45 58 00 07 3D E6 0A 20 42 50 4C 4B 45 59 31 |DEX..=.. BPLKEY1|
00001D30: 00 16 3D F0 0A 20 4A 4D 50 44 45 4C 45 54 45 00 |..=.. JMPDELETE.|
00001D40: 1C 3D FA 0A 3B 00 22 3D 04 0B 3B 00 4C 3D 09 0B |.=..;."=..;.L=..|
00001D50: 4B 45 59 32 20 53 54 41 45 44 49 54 46 4C 41 47 |KEY2 STAEDITFLAG|
00001D60: 3B 45 49 4E 47 41 42 45 20 47 45 41 4E 44 45 52 |;EINGABE GEANDER|
00001D70: 54 20 21 21 21 00 55 3D 0E 0B 20 50 48 41 00 64 |T !!!.U=.. PHA.d|
00001D80: 3D 18 0B 20 4C 44 59 50 4F 53 41 4B 54 00 73 3D |=.. LDYPOSAKT.s=|
00001D90: 22 0B 20 4C 44 41 43 48 41 52 2C 58 00 86 3D 2C |". LDACHAR,X..=,|
00001DA0: 0B 20 53 54 41 28 53 54 52 45 4E 44 29 2C 59 00 |. STA(STREND),Y.|
00001DB0: 8F 3D 36 0B 20 50 4C 41 00 9C 3D 40 0B 20 43 4D |.=6. PLA..=@. CM|
00001DC0: 50 23 31 35 37 00 A9 3D 4A 0B 20 42 45 51 4C 45 |P#157..=J. BEQLE|
00001DD0: 46 54 00 B5 3D 54 0B 20 4C 44 41 23 32 39 00 C3 |FT..=T. LDA#29..|
00001DE0: 3D 5E 0B 20 42 4E 45 52 49 47 48 54 00 C9 3D 68 |=^. BNERIGHT..=h|
00001DF0: 0B 3B 00 CF 3D 72 0B 3B 00 05 3E 7C 0B 4B 45 59 |.;..=r.;..>|.KEY|
00001E00: 20 2E 42 59 22 31 22 2C 22 32 22 2C 22 33 22 2C | .BY"1","2","3",|
00001E10: 22 34 22 2C 22 35 22 2C 22 36 22 2C 22 37 22 2C |"4","5","6","7",|
00001E20: 22 38 22 2C 22 39 22 2C 32 39 2C 31 35 37 00 3D |"8","9",29,157.=|
00001E30: 3E 86 0B 43 48 41 52 20 2E 42 59 31 37 36 2C 31 |>..CHAR .BY176,1|
00001E40: 37 34 2C 31 37 33 2C 31 38 39 2C 31 37 31 2C 31 |74,173,189,171,1|
00001E50: 37 39 2C 31 37 37 2C 31 37 38 2C 32 31 39 2C 31 |79,177,178,219,1|
00001E60: 39 32 2C 31 39 32 00 63 3E 90 0B 3B 2A 2A 2A 2A |92,192.c>..;****|
00001E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 69 3E 9A |************.i>.|
00001E90: 0B 3B 00 6F 3E A4 0B 3B 00 75 3E AE 0B 3B 00 7B |.;.o>..;.u>..;.{|
00001EA0: 3E B8 0B 3B 00 A9 3E C2 0B 3B 2A 2A 2A 2A 2A 20 |>..;..>..;***** |
00001EB0: 4B 4F 4D 42 49 4E 41 54 49 4F 4E 20 4D 49 54 20 |KOMBINATION MIT |
00001EC0: 27 43 3D 27 2D 54 41 53 54 45 20 3F 20 2A 2A 2A |'C='-TASTE ? ***|
00001ED0: 2A 2A 00 BF 3E CC 0B 4E 4F 4D 41 4C 45 4E 20 4C |**..>..NOMALEN L|
00001EE0: 44 58 53 48 46 4C 41 47 00 CA 3E D6 0B 20 43 50 |DXSHFLAG..>.. CP|
00001EF0: 58 23 32 00 D7 3E E0 0B 20 42 4E 45 4F 4B 41 59 |X#2..>.. BNEOKAY|
00001F00: 00 DD 3E EA 0B 3B 00 04 3F EF 0B 20 53 54 41 45 |..>..;..?.. STAE|
00001F10: 44 49 54 46 4C 41 47 3B 45 49 4E 47 41 42 45 20 |DITFLAG;EINGABE |
00001F20: 47 45 41 45 4E 44 45 52 54 20 21 21 21 00 11 3F |GEAENDERT !!!..?|
00001F30: F4 0B 20 43 4D 50 23 31 34 38 00 1F 3F FE 0B 20 |.. CMP#148..?.. |
00001F40: 42 4E 45 53 48 49 46 54 00 2D 3F 08 0C 20 4A 4D |BNESHIFT.-?.. JM|
00001F50: 50 45 4E 44 45 32 00 3F 3F 12 0C 53 48 49 46 54 |PENDE2.??..SHIFT|
00001F60: 20 43 4D 50 23 31 35 37 00 4E 3F 1C 0C 20 42 45 | CMP#157.N?.. BE|
00001F70: 51 57 52 49 47 48 54 00 5B 3F 26 0C 20 43 4D 50 |QWRIGHT.[?&. CMP|
00001F80: 23 31 34 35 00 69 3F 30 0C 20 42 45 51 57 4C 45 |#145.i?0. BEQWLE|
00001F90: 46 54 00 8F 3F 3A 0C 3B 2A 2A 2A 2A 2A 2A 2A 2A |FT..?:.;********|
00001FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 95 3F 44 0C 3B 00 9B |********..?D.;..|
00001FC0: 3F 4E 0C 3B 00 A1 3F 58 0C 3B 00 C8 3F 62 0C 3B |?N.;..?X.;..?b.;|
00001FD0: 2A 2A 2A 2A 2A 20 5A 55 4C 41 45 53 53 49 47 45 |***** ZULAESSIGE|
00001FE0: 53 20 5A 45 49 43 48 45 4E 20 3F 20 2A 2A 2A 2A |S ZEICHEN ? ****|
00001FF0: 2A 00 DC 3F 6C 0C 4F 4B 41 59 20 4C 44 59 4F 4B |*..?l.OKAY LDYOK|
00002000: 41 59 44 45 53 00 E5 3F 76 0C 20 44 45 59 00 00 |AYDES..?v. DEY..|
00002010: 40 80 0C 4F 4B 41 59 31 20 43 4D 50 28 4F 4B 41 |@..OKAY1 CMP(OKA|
00002020: 59 44 45 53 2B 31 29 2C 59 00 0E 40 8A 0C 20 42 |YDES+1),Y..@.. B|
00002030: 45 51 4F 4B 41 59 32 00 2E 40 94 0C 20 44 45 59 |EQOKAY2..@.. DEY|
00002040: 3B 57 45 4E 4E 20 54 41 53 54 45 20 5A 55 4C 41 |;WENN TASTE ZULA|
00002050: 45 53 53 49 47 45 53 00 3B 40 9E 0C 20 43 50 59 |ESSIGES.;@.. CPY|
00002060: 23 24 46 46 00 56 40 A8 0C 20 42 4E 45 4F 4B 41 |#$FF.V@.. BNEOKA|
00002070: 59 31 3B 5A 45 49 43 48 45 4E 20 49 53 54 3A 00 |Y1;ZEICHEN IST:.|
00002080: 80 40 B2 0C 20 42 45 51 52 49 47 48 54 3B 49 4D |.@.. BEQRIGHT;IM|
00002090: 20 53 54 52 49 4E 47 53 54 41 43 4B 20 41 4E 20 | STRINGSTACK AN |
000020A0: 41 4B 54 55 45 4C 4C 45 52 00 B1 40 BC 0C 3B 20 |AKTUELLER..@..; |
000020B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020C0: 20 20 20 20 20 20 20 3B 50 4F 53 49 54 49 4F 4E | ;POSITION|
000020D0: 20 53 50 45 49 43 48 45 52 4E 00 D5 40 C6 0C 4F | SPEICHERN..@..O|
000020E0: 4B 41 59 32 20 4C 44 59 50 4F 53 41 4B 54 3B 55 |KAY2 LDYPOSAKT;U|
000020F0: 4E 44 20 43 55 52 53 4F 52 20 45 49 4E 45 00 FB |ND CURSOR EINE..|
00002100: 40 D0 0C 20 53 54 41 28 53 54 52 45 4E 44 29 2C |@.. STA(STREND),|
00002110: 59 3B 53 50 41 4C 54 45 20 4E 41 43 48 20 52 45 |Y;SPALTE NACH RE|
00002120: 43 48 54 53 00 21 41 DA 0C 20 4C 44 41 23 32 39 |CHTS.!A.. LDA#29|
00002130: 3B 27 43 55 52 53 4F 52 20 52 49 47 48 54 27 20 |;'CURSOR RIGHT' |
00002140: 53 49 4D 55 4C 49 45 52 45 4E 00 27 41 DC 0C 3B |SIMULIEREN.'A..;|
00002150: 00 4E 41 DE 0C 20 53 54 41 45 44 49 54 46 4C 41 |.NA.. STAEDITFLA|
00002160: 47 3B 45 49 4E 47 41 42 45 20 47 45 41 45 4E 44 |G;EINGABE GEAEND|
00002170: 45 52 54 20 21 21 21 00 74 41 E4 0C 3B 2A 2A 2A |ERT !!!.tA..;***|
00002180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7A 41 |*************.zA|
000021A0: EE 0C 3B 00 80 41 F8 0C 3B 00 86 41 02 0D 3B 00 |..;..A..;..A..;.|
000021B0: A6 41 0C 0D 3B 2A 2A 2A 2A 2A 20 43 55 52 53 4F |.A..;***** CURSO|
000021C0: 52 20 52 49 47 48 54 20 3F 20 2A 2A 2A 2A 2A 00 |R RIGHT ? *****.|
000021D0: B7 41 16 0D 52 49 47 48 54 20 43 4D 50 23 32 39 |.A..RIGHT CMP#29|
000021E0: 00 C4 41 20 0D 20 42 4E 45 4C 45 46 54 00 CA 41 |..A . BNELEFT..A|
000021F0: 2A 0D 3B 00 D0 41 34 0D 3B 00 FD 41 3E 0D 52 49 |*.;..A4.;..A>.RI|
00002200: 47 48 54 31 20 4C 44 58 50 4F 53 41 4B 54 3B 57 |GHT1 LDXPOSAKT;W|
00002210: 45 4E 4E 20 4E 4F 43 48 20 49 4E 4E 45 52 48 41 |ENN NOCH INNERHA|
00002220: 4C 42 20 44 45 52 00 19 42 48 0D 20 43 50 58 4C |LB DER..BH. CPXL|
00002230: 45 4E 4D 41 58 3B 45 49 4E 47 41 42 45 5A 4F 4E |ENMAX;EINGABEZON|
00002240: 45 3A 00 39 42 52 0D 20 42 45 51 52 49 47 48 54 |E:.9BR. BEQRIGHT|
00002250: 32 3B 50 4F 53 49 54 49 4F 4E 53 5A 41 45 48 4C |2;POSITIONSZAEHL|
00002260: 45 52 00 51 42 5C 0D 20 49 4E 43 50 4F 53 41 4B |ER.QB\. INCPOSAK|
00002270: 54 3B 45 52 48 4F 45 48 45 4E 00 7B 42 66 0D 20 |T;ERHOEHEN.{Bf. |
00002280: 4A 53 52 42 53 4F 55 54 3B 55 4E 44 20 27 43 55 |JSRBSOUT;UND 'CU|
00002290: 52 53 4F 52 20 52 49 47 48 54 27 20 41 55 53 47 |RSOR RIGHT' AUSG|
000022A0: 45 42 45 4E 00 8B 42 70 0D 20 4A 4D 50 47 45 54 |EBEN..Bp. JMPGET|
000022B0: 4A 55 4D 50 00 91 42 7A 0D 3B 00 AE 42 84 0D 52 |JUMP..Bz.;..B..R|
000022C0: 49 47 48 54 32 20 4C 44 58 50 4F 53 46 4C 41 47 |IGHT2 LDXPOSFLAG|
000022D0: 3B 53 4F 4E 53 54 3A 00 EA 42 8E 0D 20 42 45 51 |;SONST:..B.. BEQ|
000022E0: 47 45 54 4A 55 4D 50 3B 31 2E 4E 4F 52 4D 41 4C |GETJUMP;1.NORMAL|
000022F0: 45 20 45 49 4E 47 41 42 45 28 4E 52 25 3D 30 29 |E EINGABE(NR%=0)|
00002300: 3A 20 5A 55 52 20 57 41 52 54 45 53 43 48 4C 45 |: ZUR WARTESCHLE|
00002310: 49 46 45 00 20 43 98 0D 20 42 4E 45 4C 45 46 54 |IFE. C.. BNELEFT|
00002320: 33 3B 32 2E 53 43 52 45 45 4E 45 44 49 54 4F 52 |3;2.SCREENEDITOR|
00002330: 28 4E 52 25 3C 3E 30 29 3A 20 45 49 4E 47 41 42 |(NR%<>0): EINGAB|
00002340: 45 20 42 45 45 4E 44 45 54 00 46 43 A2 0D 3B 2A |E BEENDET.FC..;*|
00002350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002370: 4C 43 AC 0D 3B 00 52 43 B6 0D 3B 00 58 43 C0 0D |LC..;.RC..;.XC..|
00002380: 3B 00 77 43 CA 0D 3B 2A 2A 2A 2A 2A 20 43 55 52 |;.wC..;***** CUR|
00002390: 53 4F 52 20 4C 45 46 54 20 3F 20 2A 2A 2A 2A 2A |SOR LEFT ? *****|
000023A0: 00 88 43 D4 0D 4C 45 46 54 20 43 4D 50 23 31 35 |..C..LEFT CMP#15|
000023B0: 37 00 97 43 DE 0D 20 42 4E 45 44 45 4C 45 54 45 |7..C.. BNEDELETE|
000023C0: 00 9D 43 E8 0D 3B 00 A3 43 F2 0D 3B 00 CB 43 FC |..C..;..C..;..C.|
000023D0: 0D 4C 45 46 54 31 20 4C 44 58 50 4F 53 41 4B 54 |.LEFT1 LDXPOSAKT|
000023E0: 3B 57 45 4E 4E 20 4E 4F 43 48 20 49 4E 4E 45 52 |;WENN NOCH INNER|
000023F0: 48 41 4C 42 00 EA 43 06 0E 20 42 45 51 4C 45 46 |HALB..C.. BEQLEF|
00002400: 54 32 3B 44 45 52 20 45 49 4E 47 41 42 45 5A 4F |T2;DER EINGABEZO|
00002410: 4E 45 3A 00 0A 44 10 0E 20 44 45 43 50 4F 53 41 |NE:..D.. DECPOSA|
00002420: 4B 54 3B 50 4F 53 49 54 49 4F 4E 53 5A 41 45 48 |KT;POSITIONSZAEH|
00002430: 4C 45 52 00 26 44 1A 0E 20 4C 44 41 23 31 35 37 |LER.&D.. LDA#157|
00002440: 3B 44 45 4B 52 45 4D 45 4E 54 49 45 52 45 4E 00 |;DEKREMENTIEREN.|
00002450: 4F 44 24 0E 20 4A 53 52 42 53 4F 55 54 3B 55 4E |OD$. JSRBSOUT;UN|
00002460: 44 20 27 43 55 52 53 4F 52 20 4C 45 46 54 27 20 |D 'CURSOR LEFT' |
00002470: 41 55 53 47 45 42 45 4E 00 62 44 2E 0E 47 45 54 |AUSGEBEN.bD..GET|
00002480: 4A 55 4D 50 20 4A 4D 50 47 45 54 00 68 44 38 0E |JUMP JMPGET.hD8.|
00002490: 3B 00 84 44 42 0E 4C 45 46 54 32 20 4C 44 58 50 |;..DB.LEFT2 LDXP|
000024A0: 4F 53 46 4C 41 47 3B 53 4F 4E 53 54 3A 00 C0 44 |OSFLAG;SONST:..D|
000024B0: 4C 0E 20 42 45 51 47 45 54 4A 55 4D 50 3B 31 2E |L. BEQGETJUMP;1.|
000024C0: 4E 4F 52 4D 41 4C 45 20 45 49 4E 47 41 42 45 28 |NORMALE EINGABE(|
000024D0: 4E 52 25 3D 30 29 3A 20 5A 55 52 20 57 41 52 54 |NR%=0): ZUR WART|
000024E0: 45 53 43 48 4C 45 49 46 45 00 FB 44 56 0E 4C 45 |ESCHLEIFE..DV.LE|
000024F0: 46 54 33 20 4A 4D 50 45 4E 44 45 32 3B 32 2E 53 |FT3 JMPENDE2;2.S|
00002500: 43 52 45 45 4E 45 44 49 54 4F 52 28 4E 52 25 3C |CREENEDITOR(NR%<|
00002510: 3E 30 29 3A 20 45 49 4E 47 41 42 45 20 42 45 45 |>0): EINGABE BEE|
00002520: 4E 44 45 54 00 20 45 60 0E 3B 2A 2A 2A 2A 2A 2A |NDET. E`.;******|
00002530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 45 6A 0E 3B 00 |*********.&Ej.;.|
00002550: 2C 45 74 0E 3B 00 32 45 7E 0E 3B 00 55 45 88 0E |,Et.;.2E~.;.UE..|
00002560: 3B 2A 2A 2A 2A 2A 20 57 4F 52 54 20 52 45 43 48 |;***** WORT RECH|
00002570: 54 53 2F 4C 49 4E 4B 53 20 2A 2A 2A 2A 2A 00 66 |TS/LINKS *****.f|
00002580: 45 92 0E 57 52 49 47 48 54 20 4C 44 41 23 30 00 |E..WRIGHT LDA#0.|
00002590: 72 45 9C 0E 2E 42 59 20 24 32 43 00 82 45 A6 0E |rE...BY $2C..E..|
000025A0: 57 4C 45 46 54 20 4C 44 41 23 31 00 8F 45 B0 0E |WLEFT LDA#1..E..|
000025B0: 20 53 54 41 48 45 4C 50 00 95 45 BA 0E 3B 00 A7 | STAHELP..E..;..|
000025C0: 45 C4 0E 20 4A 53 52 43 48 45 43 4B 54 45 52 4D |E.. JSRCHECKTERM|
000025D0: 00 B5 45 CE 0E 20 42 43 43 57 4F 52 44 32 00 BB |..E.. BCCWORD2..|
000025E0: 45 D8 0E 3B 00 D0 45 E2 0E 57 4F 52 44 31 20 4A |E..;..E..WORD1 J|
000025F0: 53 52 57 4F 52 44 53 55 42 00 DE 45 EC 0E 20 42 |SRWORDSUB..E.. B|
00002600: 45 51 57 4F 52 44 33 00 EC 45 F6 0E 20 42 43 43 |EQWORD3..E.. BCC|
00002610: 57 4F 52 44 31 00 F2 45 00 0F 3B 00 07 46 0A 0F |WORD1..E..;..F..|
00002620: 57 4F 52 44 32 20 4A 53 52 57 4F 52 44 53 55 42 |WORD2 JSRWORDSUB|
00002630: 00 15 46 14 0F 20 42 45 51 57 4F 52 44 33 00 23 |..F.. BEQWORD3.#|
00002640: 46 1E 0F 20 42 43 53 57 4F 52 44 32 00 29 46 28 |F.. BCSWORD2.)F(|
00002650: 0F 3B 00 3A 46 32 0F 57 4F 52 44 33 20 4A 4D 50 |.;.:F2.WORD3 JMP|
00002660: 47 45 54 00 40 46 3C 0F 3B 00 46 46 46 0F 3B 00 |GET.@F<.;.FFF.;.|
00002670: 71 46 50 0F 3B 2A 2A 2A 20 45 49 4E 20 5A 45 49 |qFP.;*** EIN ZEI|
00002680: 43 48 45 4E 20 4E 41 43 48 20 52 45 43 48 54 53 |CHEN NACH RECHTS|
00002690: 2F 4C 49 4E 4B 53 20 2A 2A 2A 00 85 46 5A 0F 57 |/LINKS ***..FZ.W|
000026A0: 4F 52 44 53 55 42 20 4C 44 41 48 45 4C 50 00 96 |ORDSUB LDAHELP..|
000026B0: 46 64 0F 20 42 4E 45 57 4F 52 44 53 55 42 31 00 |Fd. BNEWORDSUB1.|
000026C0: 9C 46 6E 0F 3B 00 AB 46 78 0F 20 4C 44 41 50 4F |.Fn.;..Fx. LDAPO|
000026D0: 53 41 4B 54 00 BA 46 82 0F 20 43 4D 50 4C 45 4E |SAKT..F.. CMPLEN|
000026E0: 4D 41 58 00 CA 46 8C 0F 20 42 45 51 57 4F 52 44 |MAX..F.. BEQWORD|
000026F0: 45 4E 44 00 D9 46 96 0F 20 49 4E 43 50 4F 53 41 |END..F.. INCPOSA|
00002700: 4B 54 00 E5 46 A0 0F 20 4C 44 41 23 32 39 00 F6 |KT..F.. LDA#29..|
00002710: 46 AA 0F 20 42 4E 45 57 4F 52 44 53 55 42 32 00 |F.. BNEWORDSUB2.|
00002720: FC 46 B4 0F 3B 00 13 47 BE 0F 57 4F 52 44 53 55 |.F..;..G..WORDSU|
00002730: 42 31 20 4C 44 41 50 4F 53 41 4B 54 00 23 47 C8 |B1 LDAPOSAKT.#G.|
00002740: 0F 20 42 45 51 57 4F 52 44 45 4E 44 00 32 47 D2 |. BEQWORDEND.2G.|
00002750: 0F 20 44 45 43 50 4F 53 41 4B 54 00 3F 47 DC 0F |. DECPOSAKT.?G..|
00002760: 20 4C 44 41 23 31 35 37 00 45 47 E6 0F 3B 00 5B | LDA#157.EG..;.[|
00002770: 47 F0 0F 57 4F 52 44 53 55 42 32 20 4A 53 52 42 |G..WORDSUB2 JSRB|
00002780: 53 4F 55 54 00 6A 47 FA 0F 20 4C 44 59 50 4F 53 |SOUT.jG.. LDYPOS|
00002790: 41 4B 54 00 7D 47 04 10 20 4C 44 41 28 53 54 52 |AKT.}G.. LDA(STR|
000027A0: 45 4E 44 29 2C 59 00 8F 47 0E 10 20 4A 53 52 43 |END),Y..G.. JSRC|
000027B0: 48 45 43 4B 54 45 52 4D 00 9A 47 18 10 20 4C 44 |HECKTERM..G.. LD|
000027C0: 41 23 31 00 AA 47 22 10 57 4F 52 44 45 4E 44 20 |A#1..G".WORDEND |
000027D0: 52 54 53 00 B0 47 2C 10 3B 00 B6 47 36 10 3B 00 |RTS..G,.;..G6.;.|
000027E0: DA 47 40 10 3B 2A 2A 2A 20 41 55 46 20 54 45 52 |.G@.;*** AUF TER|
000027F0: 4D 49 4E 41 54 4F 52 20 50 52 55 45 46 45 4E 20 |MINATOR PRUEFEN |
00002800: 2A 2A 2A 00 EF 47 4A 10 43 48 45 43 4B 54 45 52 |***..GJ.CHECKTER|
00002810: 4D 20 43 4D 50 23 34 38 00 FC 47 54 10 20 42 43 |M CMP#48..GT. BC|
00002820: 43 54 45 52 4D 00 08 48 5E 10 20 43 4D 50 23 35 |CTERM..H^. CMP#5|
00002830: 38 00 17 48 68 10 20 42 43 43 4E 4F 54 45 52 4D |8..Hh. BCCNOTERM|
00002840: 00 23 48 72 10 20 43 4D 50 23 36 35 00 30 48 7C |.#Hr. CMP#65.0H||
00002850: 10 20 42 43 43 54 45 52 4D 00 3C 48 86 10 20 43 |. BCCTERM.<H.. C|
00002860: 4D 50 23 39 31 00 4B 48 90 10 20 42 43 43 4E 4F |MP#91.KH.. BCCNO|
00002870: 54 45 52 4D 00 58 48 9A 10 20 43 4D 50 23 31 39 |TERM.XH.. CMP#19|
00002880: 33 00 65 48 A4 10 20 42 43 43 54 45 52 4D 00 72 |3.eH.. BCCTERM.r|
00002890: 48 AE 10 20 43 4D 50 23 32 31 39 00 81 48 B8 10 |H.. CMP#219..H..|
000028A0: 20 42 43 43 4E 4F 54 45 52 4D 00 87 48 C2 10 3B | BCCNOTERM..H..;|
000028B0: 00 94 48 CC 10 54 45 52 4D 20 53 45 43 00 9D 48 |..H..TERM SEC..H|
000028C0: D6 10 20 52 54 53 00 AC 48 E0 10 4E 4F 54 45 52 |.. RTS..H..NOTER|
000028D0: 4D 20 43 4C 43 00 B5 48 EA 10 20 52 54 53 00 DB |M CLC..H.. RTS..|
000028E0: 48 F4 10 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |H..;************|
000028F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002900: 2A 2A 2A 2A 00 E1 48 FE 10 3B 00 E7 48 08 11 3B |****..H..;..H..;|
00002910: 00 ED 48 12 11 3B 00 07 49 1C 11 3B 2A 2A 2A 2A |..H..;..I..;****|
00002920: 2A 20 44 45 4C 45 54 45 20 3F 20 2A 2A 2A 2A 2A |* DELETE ? *****|
00002930: 00 19 49 26 11 44 45 4C 45 54 45 20 43 4D 50 23 |..I&.DELETE CMP#|
00002940: 32 30 00 28 49 30 11 20 42 4E 45 49 4E 53 45 52 |20.(I0. BNEINSER|
00002950: 54 00 2E 49 32 11 3B 00 55 49 34 11 20 53 54 41 |T..I2.;.UI4. STA|
00002960: 45 44 49 54 46 4C 41 47 3B 45 49 4E 47 41 42 45 |EDITFLAG;EINGABE|
00002970: 20 47 45 41 45 4E 44 45 52 54 20 21 21 21 00 5B | GEAENDERT !!!.[|
00002980: 49 36 11 3B 00 71 49 3A 11 44 45 4C 45 54 45 31 |I6.;.qI:.DELETE1|
00002990: 20 4C 44 59 50 4F 53 41 4B 54 00 81 49 44 11 20 | LDYPOSAKT..ID. |
000029A0: 42 45 51 47 45 54 4A 55 4D 50 00 87 49 4E 11 3B |BEQGETJUMP..IN.;|
000029B0: 00 A1 49 58 11 44 45 4C 45 54 45 32 20 4C 44 41 |..IX.DELETE2 LDA|
000029C0: 28 53 54 52 45 4E 44 29 2C 59 00 AA 49 62 11 20 |(STREND),Y..Ib. |
000029D0: 44 45 59 00 BD 49 6C 11 20 53 54 41 28 53 54 52 |DEY..Il. STA(STR|
000029E0: 45 4E 44 29 2C 59 00 C6 49 76 11 20 49 4E 59 00 |END),Y..Iv. INY.|
000029F0: E6 49 80 11 20 49 4E 59 3B 5A 45 49 43 48 45 4E |.I.. INY;ZEICHEN|
00002A00: 20 49 4D 20 53 54 52 49 4E 47 53 54 41 43 4B 00 | IM STRINGSTACK.|
00002A10: 09 4A 8A 11 20 43 50 59 4C 45 4E 4D 41 58 3B 4E |.J.. CPYLENMAX;N|
00002A20: 41 43 48 20 55 4E 54 45 4E 20 53 43 48 49 45 42 |ACH UNTEN SCHIEB|
00002A30: 45 4E 00 19 4A 94 11 20 42 43 43 44 45 4C 45 54 |EN..J.. BCCDELET|
00002A40: 45 32 00 29 4A 9E 11 20 42 45 51 44 45 4C 45 54 |E2.)J.. BEQDELET|
00002A50: 45 32 00 2F 4A A8 11 3B 00 53 4A B2 11 20 4C 44 |E2./J..;.SJ.. LD|
00002A60: 41 23 22 20 22 3B 4C 45 54 5A 54 45 53 20 5A 45 |A#" ";LETZTES ZE|
00002A70: 49 43 48 45 4E 3A 20 53 50 41 43 45 00 5C 4A BC |ICHEN: SPACE.\J.|
00002A80: 11 20 44 45 59 00 6F 4A C6 11 20 53 54 41 28 53 |. DEY.oJ.. STA(S|
00002A90: 54 52 45 4E 44 29 2C 59 00 9C 4A D0 11 44 45 4C |TREND),Y..J..DEL|
00002AA0: 45 54 45 33 20 4C 44 41 23 31 35 37 3B 27 43 55 |ETE3 LDA#157;'CU|
00002AB0: 52 53 4F 52 20 4C 45 46 54 27 20 53 49 4D 55 4C |RSOR LEFT' SIMUL|
00002AC0: 49 45 52 45 4E 00 AA 4A DA 11 20 4A 4D 50 4C 45 |IEREN..J.. JMPLE|
00002AD0: 46 54 31 00 D0 4A E4 11 3B 2A 2A 2A 2A 2A 2A 2A |FT1..J..;*******|
00002AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 4A EE 11 3B 00 |*********..J..;.|
00002B00: DC 4A F8 11 3B 00 E2 4A 02 12 3B 00 FC 4A 0C 12 |.J..;..J..;..J..|
00002B10: 3B 2A 2A 2A 2A 2A 20 49 4E 53 45 52 54 20 3F 20 |;***** INSERT ? |
00002B20: 2A 2A 2A 2A 2A 00 0F 4B 16 12 49 4E 53 45 52 54 |*****..K..INSERT|
00002B30: 20 43 4D 50 23 31 34 38 00 1F 4B 20 12 20 42 4E | CMP#148..K . BN|
00002B40: 45 45 4E 44 43 48 41 52 00 25 4B 22 12 3B 00 4C |EENDCHAR.%K".;.L|
00002B50: 4B 24 12 20 53 54 41 45 44 49 54 46 4C 41 47 3B |K$. STAEDITFLAG;|
00002B60: 45 49 4E 47 41 42 45 20 47 45 41 45 4E 44 45 52 |EINGABE GEAENDER|
00002B70: 54 20 21 21 21 00 52 4B 26 12 3B 00 68 4B 2A 12 |T !!!.RK&.;.hK*.|
00002B80: 49 4E 53 45 52 54 31 20 4C 44 59 4C 45 4E 4D 41 |INSERT1 LDYLENMA|
00002B90: 58 00 7B 4B 34 12 20 4C 44 41 28 53 54 52 45 4E |X.{K4. LDA(STREN|
00002BA0: 44 29 2C 59 00 88 4B 3E 12 20 43 4D 50 23 22 20 |D),Y..K>. CMP#" |
00002BB0: 22 00 98 4B 48 12 20 42 4E 45 49 4E 53 45 52 54 |"..KH. BNEINSERT|
00002BC0: 34 00 9E 4B 52 12 3B 00 C5 4B 5C 12 49 4E 53 45 |4..KR.;..K\.INSE|
00002BD0: 52 54 32 20 44 45 59 3B 5A 45 49 43 48 45 4E 20 |RT2 DEY;ZEICHEN |
00002BE0: 49 4D 20 53 54 52 49 4E 47 53 54 41 43 4B 00 EB |IM STRINGSTACK..|
00002BF0: 4B 66 12 20 4C 44 41 28 53 54 52 45 4E 44 29 2C |Kf. LDA(STREND),|
00002C00: 59 3B 4E 41 43 48 20 4F 42 45 4E 20 53 43 48 49 |Y;NACH OBEN SCHI|
00002C10: 45 42 45 4E 00 F4 4B 70 12 20 49 4E 59 00 07 4C |EBEN..Kp. INY..L|
00002C20: 7A 12 20 53 54 41 28 53 54 52 45 4E 44 29 2C 59 |z. STA(STREND),Y|
00002C30: 00 10 4C 84 12 20 44 45 59 00 1F 4C 8E 12 20 43 |..L.. DEY..L.. C|
00002C40: 50 59 50 4F 53 41 4B 54 00 2F 4C 98 12 20 42 45 |PYPOSAKT./L.. BE|
00002C50: 51 49 4E 53 45 52 54 33 00 3F 4C A2 12 20 42 43 |QINSERT3.?L.. BC|
00002C60: 53 49 4E 53 45 52 54 32 00 45 4C AC 12 3B 00 6E |SINSERT2.EL..;.n|
00002C70: 4C B6 12 49 4E 53 45 52 54 33 20 4C 44 41 23 22 |L..INSERT3 LDA#"|
00002C80: 20 22 3B 5A 45 49 43 48 45 4E 20 41 4E 20 41 4B | ";ZEICHEN AN AK|
00002C90: 54 55 45 4C 4C 45 52 00 90 4C C0 12 20 53 54 41 |TUELLER..L.. STA|
00002CA0: 28 53 54 52 45 4E 44 29 2C 59 3B 50 4F 53 49 54 |(STREND),Y;POSIT|
00002CB0: 49 4F 4E 20 44 55 52 43 48 00 B2 4C CA 12 49 4E |ION DURCH..L..IN|
00002CC0: 53 45 52 54 34 20 4A 4D 50 47 45 54 3B 53 50 41 |SERT4 JMPGET;SPA|
00002CD0: 43 45 20 45 52 53 45 54 5A 45 4E 00 D8 4C 42 13 |CE ERSETZEN..LB.|
00002CE0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00002CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D00: 2A 00 FE 4C 4C 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..LL.;*********|
00002D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D20: 2A 2A 2A 2A 2A 2A 2A 00 24 4D 56 13 3B 2A 2A 2A |*******.$MV.;***|
00002D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2A 4D |*************.*M|
00002D50: 60 13 3B 00 30 4D 6A 13 3B 00 36 4D 74 13 3B 00 |`.;.0Mj.;.6Mt.;.|
00002D60: 4E 4D 7E 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NM~.;***********|
00002D70: 2A 2A 2A 2A 2A 2A 2A 00 66 4D 88 13 3B 2A 20 55 |*******.fM..;* U|
00002D80: 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 20 2A 00 |NTERPROGRAMME *.|
00002D90: 7E 4D 92 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |~M..;***********|
00002DA0: 2A 2A 2A 2A 2A 2A 2A 00 84 4D 9C 13 3B 00 A3 4D |*******..M..;..M|
00002DB0: A6 13 3B 2A 2A 2A 2A 2A 20 53 54 52 49 4E 47 41 |..;***** STRINGA|
00002DC0: 55 53 47 41 42 45 20 2A 2A 2A 2A 2A 00 B9 4D B0 |USGABE *****..M.|
00002DD0: 13 41 55 53 47 41 42 45 20 4C 44 59 43 52 53 43 |.AUSGABE LDYCRSC|
00002DE0: 4F 4C 00 DF 4D BA 13 20 4C 44 58 43 52 53 4C 49 |OL..M.. LDXCRSLI|
00002DF0: 4E 45 3B 43 55 52 53 4F 52 20 41 55 46 20 42 45 |NE;CURSOR AUF BE|
00002E00: 47 49 4E 4E 20 44 45 52 00 FB 4D C4 13 20 43 4C |GINN DER..M.. CL|
00002E10: 43 3B 45 49 4E 47 41 42 45 5A 4F 4E 45 20 53 45 |C;EINGABEZONE SE|
00002E20: 54 5A 45 4E 00 08 4E CE 13 20 4A 53 52 50 4C 4F |TZEN..N.. JSRPLO|
00002E30: 54 00 0E 4E D8 13 3B 00 38 4E E2 13 20 4C 44 41 |T..N..;.8N.. LDA|
00002E40: 41 54 54 52 49 42 55 54 3B 57 45 4E 4E 20 27 41 |ATTRIBUT;WENN 'A|
00002E50: 54 54 52 49 42 55 54 27 20 47 45 53 45 54 5A 54 |TTRIBUT' GESETZT|
00002E60: 3A 00 43 4E EC 13 20 43 4D 50 23 31 00 66 4E F6 |:.CN.. CMP#1.fN.|
00002E70: 13 20 42 4E 45 4E 4F 49 4E 56 45 52 53 3B 27 52 |. BNENOINVERS;'R|
00002E80: 56 53 20 4F 4E 27 20 41 55 53 47 45 42 45 4E 00 |VS ON' AUSGEBEN.|
00002E90: 72 4E 00 14 20 4C 44 41 23 31 38 00 80 4E 0A 14 |rN.. LDA#18..N..|
00002EA0: 20 4A 53 52 42 53 4F 55 54 00 86 4E 14 14 3B 00 | JSRBSOUT..N..;.|
00002EB0: A9 4E 1E 14 4E 4F 49 4E 56 45 52 53 20 4C 44 59 |.N..NOINVERS LDY|
00002EC0: 23 30 3B 53 54 52 49 4E 47 20 4B 4F 4D 50 4C 45 |#0;STRING KOMPLE|
00002ED0: 54 54 00 CD 4E 28 14 41 55 53 47 41 42 45 31 20 |TT..N(.AUSGABE1 |
00002EE0: 4C 44 41 28 53 54 52 45 4E 44 29 2C 59 3B 41 55 |LDA(STREND),Y;AU|
00002EF0: 53 47 45 42 45 4E 00 DB 4E 32 14 20 4A 53 52 42 |SGEBEN..N2. JSRB|
00002F00: 53 4F 55 54 00 E4 4E 3C 14 20 49 4E 59 00 F3 4E |SOUT..N<. INY..N|
00002F10: 46 14 20 43 50 59 4C 45 4E 4D 41 58 00 04 4F 50 |F. CPYLENMAX..OP|
00002F20: 14 20 42 43 43 41 55 53 47 41 42 45 31 00 15 4F |. BCCAUSGABE1..O|
00002F30: 5A 14 20 42 45 51 41 55 53 47 41 42 45 31 00 1B |Z. BEQAUSGABE1..|
00002F40: 4F 64 14 3B 00 26 4F 66 14 20 4C 44 41 23 30 00 |Od.;.&Of. LDA#0.|
00002F50: 38 4F 68 14 20 53 54 41 51 55 4F 54 45 4D 4F 44 |8Oh. STAQUOTEMOD|
00002F60: 45 00 48 4F 6A 14 20 53 54 41 49 4E 53 45 52 54 |E.HOj. STAINSERT|
00002F70: 53 00 68 4F 6E 14 20 4C 44 41 23 31 34 36 3B 27 |S.hOn. LDA#146;'|
00002F80: 52 56 53 20 4F 46 46 27 20 41 55 53 47 45 42 45 |RVS OFF' AUSGEBE|
00002F90: 4E 00 76 4F 78 14 20 4A 4D 50 42 53 4F 55 54 00 |N.vOx. JMPBSOUT.|
00002FA0: 9C 4F 8C 14 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.O..;***********|
00002FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FC0: 2A 2A 2A 2A 2A 00 A2 4F 96 14 3B 00 A8 4F A0 14 |*****..O..;..O..|
00002FD0: 3B 00 AE 4F AA 14 3B 00 F0 4F B4 14 3B 2A 2A 2A |;..O..;..O..;***|
00002FE0: 2A 2A 20 43 55 52 53 4F 52 20 44 55 52 43 48 20 |** CURSOR DURCH |
00002FF0: 5A 45 49 43 48 45 4E 49 4E 56 45 52 54 49 45 52 |ZEICHENINVERTIER|
00003000: 55 4E 47 20 53 49 43 48 54 42 41 52 20 4D 41 43 |UNG SICHTBAR MAC|
00003010: 48 45 4E 20 2A 2A 2A 2A 2A 00 05 50 BE 14 49 4E |HEN *****..P..IN|
00003020: 56 45 52 54 43 52 53 20 4C 44 59 43 4F 4C 00 19 |VERTCRS LDYCOL..|
00003030: 50 C8 14 20 4C 44 41 28 4C 49 4E 45 50 54 52 29 |P.. LDA(LINEPTR)|
00003040: 2C 59 00 3F 50 D2 14 20 4C 44 58 41 54 54 52 49 |,Y.?P.. LDXATTRI|
00003050: 42 55 54 3B 31 2E 4E 4F 52 4D 41 4C 44 41 52 53 |BUT;1.NORMALDARS|
00003060: 54 45 4C 4C 55 4E 47 3A 00 6F 50 DC 14 20 42 4E |TELLUNG:.oP.. BN|
00003070: 45 4E 4F 52 4D 41 4C 3B 5A 45 49 43 48 45 4E 20 |ENORMAL;ZEICHEN |
00003080: 55 4E 54 45 52 20 43 55 52 53 4F 52 20 49 4E 56 |UNTER CURSOR INV|
00003090: 45 52 54 49 45 52 45 4E 00 7C 50 E6 14 20 4F 52 |ERTIEREN.|P.. OR|
000030A0: 41 23 24 38 30 00 AF 50 F0 14 2E 42 59 20 24 32 |A#$80..P...BY $2|
000030B0: 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |C |
000030C0: 20 20 20 3B 32 2E 49 4E 56 45 52 53 44 41 52 53 | ;2.INVERSDARS|
000030D0: 54 45 4C 4C 55 4E 47 3A 00 E5 50 FA 14 4E 4F 52 |TELLUNG:..P..NOR|
000030E0: 4D 41 4C 20 41 4E 44 23 24 37 46 3B 5A 45 49 43 |MAL AND#$7F;ZEIC|
000030F0: 48 45 4E 20 55 4E 54 45 52 20 43 55 52 53 4F 52 |HEN UNTER CURSOR|
00003100: 20 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E 00 F9 | NORMALISIEREN..|
00003110: 50 04 15 20 53 54 41 28 4C 49 4E 45 50 54 52 29 |P.. STA(LINEPTR)|
00003120: 2C 59 00 02 51 0E 15 20 52 54 53 00 28 51 18 15 |,Y..Q.. RTS.(Q..|
00003130: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00003140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003150: 2A 00 2E 51 22 15 3B 00 34 51 2C 15 3B 00 3A 51 |*..Q".;.4Q,.;.:Q|
00003160: 36 15 3B 00 76 51 40 15 3B 2A 2A 2A 2A 2A 20 43 |6.;.vQ@.;***** C|
00003170: 55 52 53 4F 52 20 41 55 46 20 41 4B 54 55 45 4C |URSOR AUF AKTUEL|
00003180: 4C 45 20 45 49 4E 47 41 42 45 50 4F 53 49 54 49 |LE EINGABEPOSITI|
00003190: 4F 4E 20 53 45 54 5A 45 4E 20 2A 2A 2A 2A 2A 00 |ON SETZEN *****.|
000031A0: A2 51 4A 15 53 45 54 43 52 53 20 4C 44 41 43 52 |.QJ.SETCRS LDACR|
000031B0: 53 43 4F 4C 3B 41 4B 54 55 45 4C 4C 45 20 45 49 |SCOL;AKTUELLE EI|
000031C0: 4E 47 41 42 45 53 50 41 4C 54 45 00 D5 51 54 15 |NGABESPALTE..QT.|
000031D0: 20 43 4C 43 3B 3D 20 43 55 52 53 4F 52 53 54 41 | CLC;= CURSORSTA|
000031E0: 52 54 53 50 41 4C 54 45 20 2B 20 41 4B 54 55 45 |RTSPALTE + AKTUE|
000031F0: 4C 4C 45 20 5A 45 49 43 48 45 4E 4E 52 2E 00 E4 |LLE ZEICHENNR...|
00003200: 51 5E 15 20 41 44 43 50 4F 53 41 4B 54 00 ED 51 |Q^. ADCPOSAKT..Q|
00003210: 68 15 20 54 41 59 00 FD 51 72 15 20 4C 44 58 43 |h. TAY..Qr. LDXC|
00003220: 52 53 4C 49 4E 45 00 06 52 7C 15 20 43 4C 43 00 |RSLINE..R|. CLC.|
00003230: 13 52 86 15 20 4A 4D 50 50 4C 4F 54 00 19 52 88 |.R.. JMPPLOT..R.|
00003240: 15 3B 00 1F 52 89 15 3B 00 25 52 8A 15 3B 00 4B |.;..R..;.%R..;.K|
00003250: 52 8B 15 3B 2A 2A 2A 2A 2A 20 52 45 41 44 20 42 |R..;***** READ B|
00003260: 59 54 45 2F 53 54 52 49 4E 47 44 45 53 43 52 2E |YTE/STRINGDESCR.|
00003270: 2A 2A 2A 2A 00 61 52 8C 15 52 45 41 44 42 59 54 |****.aR..READBYT|
00003280: 20 4A 53 52 43 48 4B 4B 4F 4D 00 70 52 8E 15 20 | JSRCHKKOM.pR.. |
00003290: 4A 4D 50 47 45 54 42 59 54 00 76 52 90 15 3B 00 |JMPGETBYT.vR..;.|
000032A0: 8C 52 92 15 52 45 41 44 44 45 53 20 4A 53 52 43 |.R..READDES JSRC|
000032B0: 48 4B 4B 4F 4D 00 9B 52 94 15 20 4A 4D 50 47 45 |HKKOM..R.. JMPGE|
000032C0: 54 50 4F 53 00 C1 52 9A 15 3B 2A 2A 2A 2A 2A 2A |TPOS..R..;******|
000032D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000032E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 52 A4 15 3B |**********..R..;|
000032F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003310: 00 0D 53 AE 15 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..S..;**********|
00003320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003330: 2A 2A 2A 2A 2A 2A 00 13 53 B8 15 3B 00 19 53 C2 |******..S..;..S.|
00003340: 15 3B 00 1F 53 CC 15 3B 00 40 53 D6 15 3B 2A 2A |.;..S..;.@S..;**|
00003350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 53 E0 15 3B 2A |*********.aS..;*|
00003370: 20 42 45 45 4E 44 45 4E 20 44 45 52 20 45 49 4E | BEENDEN DER EIN|
00003380: 47 41 42 45 20 28 3F 29 20 2A 00 82 53 EA 15 3B |GABE (?) *..S..;|
00003390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000033A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 88 53 F4 15 |***********..S..|
000033B0: 3B 00 A7 53 FE 15 3B 2A 2A 2A 2A 2A 20 45 4E 44 |;..S..;***** END|
000033C0: 45 5A 45 49 43 48 45 4E 20 3F 20 2A 2A 2A 2A 2A |EZEICHEN ? *****|
000033D0: 00 BD 53 08 16 45 4E 44 43 48 41 52 20 4C 44 59 |..S..ENDCHAR LDY|
000033E0: 45 4E 44 44 45 53 00 C6 53 12 16 20 44 45 59 00 |ENDDES..S.. DEY.|
000033F0: E0 53 1C 16 45 4E 44 45 31 20 43 4D 50 28 45 4E |.S..ENDE1 CMP(EN|
00003400: 44 44 45 53 2B 31 29 2C 59 00 EE 53 26 16 20 42 |DDES+1),Y..S&. B|
00003410: 45 51 45 4E 44 45 32 00 03 54 30 16 20 44 45 59 |EQENDE2..T0. DEY|
00003420: 3B 50 52 55 45 46 45 4E 2C 20 4F 42 00 29 54 3A |;PRUEFEN, OB.)T:|
00003430: 16 20 42 50 4C 45 4E 44 45 31 3B 5A 55 4C 41 45 |. BPLENDE1;ZULAE|
00003440: 53 53 49 47 45 53 20 45 4E 44 45 5A 45 49 43 48 |SSIGES ENDEZEICH|
00003450: 45 4E 00 3D 54 44 16 20 4A 4D 50 47 45 54 3B 4E |EN.=TD. JMPGET;N|
00003460: 45 49 4E 20 3D 3E 00 63 54 4E 16 3B 2A 2A 2A 2A |EIN =>.cTN.;****|
00003470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 69 54 58 |************.iTX|
00003490: 16 3B 00 6F 54 62 16 3B 00 75 54 6C 16 3B 00 99 |.;.oTb.;.uTl.;..|
000034A0: 54 76 16 3B 2A 2A 2A 2A 2A 20 43 55 52 53 4F 52 |Tv.;***** CURSOR|
000034B0: 20 41 55 53 53 43 48 41 4C 54 45 4E 20 2A 2A 2A | AUSSCHALTEN ***|
000034C0: 2A 2A 00 C0 54 80 16 45 4E 44 45 32 20 50 48 41 |**..T..ENDE2 PHA|
000034D0: 3B 41 4B 54 55 45 4C 4C 45 53 20 5A 45 49 43 48 |;AKTUELLES ZEICH|
000034E0: 45 4E 20 52 45 54 54 45 4E 00 EA 54 C6 16 20 4A |EN RETTEN..T.. J|
000034F0: 53 52 41 55 53 47 41 42 45 3B 41 4B 54 55 45 4C |SRAUSGABE;AKTUEL|
00003500: 4C 45 4E 20 53 54 52 49 4E 47 20 41 55 53 47 45 |LEN STRING AUSGE|
00003510: 42 45 4E 00 10 55 D0 16 3B 2A 2A 2A 2A 2A 2A 2A |BEN..U..;*******|
00003520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 16 55 DA 16 3B 00 |*********..U..;.|
00003540: 1C 55 E4 16 3B 00 22 55 EE 16 3B 00 5E 55 F8 16 |.U..;."U..;.^U..|
00003550: 3B 2A 2A 2A 2A 2A 20 45 49 4E 47 41 42 45 20 49 |;***** EINGABE I|
00003560: 4E 20 56 4F 52 47 41 42 45 53 54 52 49 4E 47 20 |N VORGABESTRING |
00003570: 5A 55 52 55 45 43 4B 55 45 42 45 52 47 45 42 45 |ZURUECKUEBERGEBE|
00003580: 4E 20 2A 2A 2A 2A 2A 00 64 55 02 17 3B 00 86 55 |N *****.dU..;..U|
00003590: 0C 17 3B 2A 45 43 48 54 45 20 4C 41 45 4E 47 45 |..;*ECHTE LAENGE|
000035A0: 28 2D 31 29 20 45 52 4D 49 54 54 45 4C 4E 2A 00 |(-1) ERMITTELN*.|
000035B0: 95 55 16 17 20 4C 44 59 4C 45 4E 4D 41 58 00 BB |.U.. LDYLENMAX..|
000035C0: 55 20 17 45 4E 44 45 33 20 4C 44 41 28 53 54 52 |U .ENDE3 LDA(STR|
000035D0: 45 4E 44 29 2C 59 3B 45 43 48 54 45 20 4C 41 45 |END),Y;ECHTE LAE|
000035E0: 4E 47 45 3D 00 DE 55 2A 17 20 43 4D 50 23 22 20 |NGE=..U*. CMP#" |
000035F0: 22 3B 4C 45 54 5A 54 45 53 20 27 4E 49 43 48 54 |";LETZTES 'NICHT|
00003600: 2D 53 50 41 43 45 27 00 F6 55 34 17 20 42 4E 45 |-SPACE'..U4. BNE|
00003610: 45 4E 44 45 34 3B 49 4D 20 53 54 52 49 4E 47 00 |ENDE4;IM STRING.|
00003620: FF 55 3E 17 20 44 45 59 00 0C 56 48 17 20 43 50 |.U>. DEY..VH. CP|
00003630: 59 23 24 46 46 00 1A 56 52 17 20 42 4E 45 45 4E |Y#$FF..VR. BNEEN|
00003640: 44 45 33 00 20 56 5C 17 3B 00 26 56 66 17 3B 00 |DE3. V\.;.&Vf.;.|
00003650: 49 56 70 17 3B 2A 2A 2A 20 53 54 52 49 4E 47 53 |IVp.;*** STRINGS|
00003660: 54 41 52 54 20 45 52 4D 49 54 54 45 4C 4E 20 2A |TART ERMITTELN *|
00003670: 2A 2A 00 6F 56 7A 17 45 4E 44 45 34 20 53 54 59 |**.oVz.ENDE4 STY|
00003680: 48 45 4C 50 3B 27 48 45 4C 50 27 3D 4C 41 45 4E |HELP;'HELP'=LAEN|
00003690: 47 45 2D 31 20 21 21 21 00 80 56 84 17 20 4C 44 |GE-1 !!!..V.. LD|
000036A0: 41 53 54 52 45 4E 44 2B 31 00 A4 56 8E 17 20 53 |ASTREND+1..V.. S|
000036B0: 54 41 49 4E 44 49 5A 2B 31 3B 45 43 48 54 45 52 |TAINDIZ+1;ECHTER|
000036C0: 20 53 54 52 49 4E 47 53 54 41 52 54 3D 00 C9 56 | STRINGSTART=..V|
000036D0: 98 17 20 4C 44 41 4C 45 4E 4D 41 58 3B 41 4B 54 |.. LDALENMAX;AKT|
000036E0: 55 45 4C 4C 45 52 20 53 54 52 49 4E 47 53 54 41 |UELLER STRINGSTA|
000036F0: 52 54 00 E7 56 A2 17 20 53 45 43 3B 2B 20 44 49 |RT..V.. SEC;+ DI|
00003700: 46 46 45 52 45 4E 5A 20 5A 57 49 53 43 48 45 4E |FFERENZ ZWISCHEN|
00003710: 00 02 57 AC 17 20 53 42 43 48 45 4C 50 3B 4D 41 |..W.. SBCHELP;MA|
00003720: 58 49 4D 41 4C 45 52 20 55 4E 44 00 24 57 B6 17 |XIMALER UND.$W..|
00003730: 20 43 4C 43 3B 45 46 46 45 4B 54 49 56 45 52 20 | CLC;EFFEKTIVER |
00003740: 45 49 4E 47 41 42 45 4C 41 45 4E 47 45 00 33 57 |EINGABELAENGE.3W|
00003750: C0 17 20 41 44 43 53 54 52 45 4E 44 00 54 57 CA |.. ADCSTREND.TW.|
00003760: 17 20 53 54 41 49 4E 44 49 5A 3B 45 43 48 54 45 |. STAINDIZ;ECHTE|
00003770: 4E 20 53 54 52 49 4E 47 53 54 41 52 54 00 7B 57 |N STRINGSTART.{W|
00003780: D4 17 20 42 43 43 45 4E 44 45 35 3B 49 4E 20 27 |.. BCCENDE5;IN '|
00003790: 49 4E 44 49 5A 28 2B 31 29 27 20 53 50 45 49 43 |INDIZ(+1)' SPEIC|
000037A0: 48 45 52 4E 00 8B 57 DE 17 20 49 4E 43 49 4E 44 |HERN..W.. INCIND|
000037B0: 49 5A 2B 31 00 91 57 E8 17 3B 00 97 57 F2 17 3B |IZ+1..W..;..W..;|
000037C0: 00 B7 57 FC 17 3B 2A 2A 2A 20 53 54 52 49 4E 47 |..W..;*** STRING|
000037D0: 20 56 45 52 53 43 48 49 45 42 45 4E 20 2A 2A 2A | VERSCHIEBEN ***|
000037E0: 00 C9 57 06 18 45 4E 44 45 35 20 4C 44 59 48 45 |..W..ENDE5 LDYHE|
000037F0: 4C 50 00 F1 57 10 18 45 4E 44 45 36 20 43 50 59 |LP..W..ENDE6 CPY|
00003800: 23 24 46 46 3B 53 54 52 49 4E 47 20 56 4F 4E 20 |#$FF;STRING VON |
00003810: 4D 4F 4D 45 4E 54 41 4E 45 52 00 12 58 1A 18 20 |MOMENTANER..X.. |
00003820: 42 45 51 45 4E 44 45 37 3B 50 4F 53 49 54 49 4F |BEQENDE7;POSITIO|
00003830: 4E 20 5A 55 20 45 43 48 54 45 52 00 3F 58 24 18 |N ZU ECHTER.?X$.|
00003840: 20 4C 44 41 28 53 54 52 45 4E 44 29 2C 59 3B 53 | LDA(STREND),Y;S|
00003850: 54 41 52 54 50 4F 53 49 54 49 4F 4E 20 56 45 52 |TARTPOSITION VER|
00003860: 53 43 48 49 45 42 45 4E 00 51 58 2E 18 20 53 54 |SCHIEBEN.QX.. ST|
00003870: 41 28 49 4E 44 49 5A 29 2C 59 00 5A 58 38 18 20 |A(INDIZ),Y.ZX8. |
00003880: 44 45 59 00 68 58 42 18 20 4A 4D 50 45 4E 44 45 |DEY.hXB. JMPENDE|
00003890: 36 00 6E 58 4C 18 3B 00 74 58 56 18 3B 00 9F 58 |6.nXL.;.tXV.;..X|
000038A0: 60 18 3B 2A 2A 2A 20 44 45 53 43 52 49 50 54 4F |`.;*** DESCRIPTO|
000038B0: 52 45 4E 2F 53 54 52 45 4E 44 20 42 45 48 41 4E |REN/STREND BEHAN|
000038C0: 44 45 4C 4E 20 2A 2A 2A 00 B5 58 6A 18 45 4E 44 |DELN ***..Xj.END|
000038D0: 45 37 20 4C 44 41 49 4E 50 55 54 50 54 52 00 E1 |E7 LDAINPUTPTR..|
000038E0: 58 74 18 20 4C 44 58 49 4E 50 55 54 50 54 52 2B |Xt. LDXINPUTPTR+|
000038F0: 31 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 44 45 |1;POINTER AUF DE|
00003900: 53 43 52 49 50 54 4F 52 45 4E 00 0A 59 7E 18 20 |SCRIPTOREN..Y~. |
00003910: 53 54 41 49 4E 44 49 5A 31 3B 44 45 53 20 56 4F |STAINDIZ1;DES VO|
00003920: 52 2D 2F 52 55 45 43 4B 47 41 42 45 53 54 52 49 |R-/RUECKGABESTRI|
00003930: 4E 47 53 00 35 59 88 18 20 53 54 58 49 4E 44 49 |NGS.5Y.. STXINDI|
00003940: 5A 31 2B 31 3B 4E 41 43 48 20 27 49 4E 44 49 5A |Z1+1;NACH 'INDIZ|
00003950: 5A 28 2B 31 29 20 4B 4F 50 49 45 52 45 4E 00 3B |Z(+1) KOPIEREN.;|
00003960: 59 92 18 3B 00 62 59 9C 18 20 49 4E 43 48 45 4C |Y..;.bY.. INCHEL|
00003970: 50 3B 3D 3E 27 48 45 4C 50 27 3D 45 43 48 54 45 |P;=>'HELP'=ECHTE|
00003980: 20 4C 41 45 4E 47 45 20 21 21 21 00 6F 59 A6 18 | LAENGE !!!.oY..|
00003990: 20 4C 44 41 48 45 4C 50 00 82 59 B0 18 20 49 4E | LDAHELP..Y.. IN|
000039A0: 59 3B 3D 3E 59 3D 30 20 21 21 21 00 95 59 BA 18 |Y;=>Y=0 !!!..Y..|
000039B0: 20 53 54 41 28 49 4E 44 49 5A 31 29 2C 59 00 9E | STA(INDIZ1),Y..|
000039C0: 59 C4 18 20 49 4E 59 00 BF 59 CE 18 20 4C 44 41 |Y.. INY..Y.. LDA|
000039D0: 49 4E 44 49 5A 3B 53 54 52 49 4E 47 44 45 53 43 |INDIZ;STRINGDESC|
000039E0: 52 49 50 54 4F 52 45 4E 00 E0 59 D8 18 20 53 54 |RIPTOREN..Y.. ST|
000039F0: 41 28 49 4E 44 49 5A 31 29 2C 59 3B 41 4B 54 55 |A(INDIZ1),Y;AKTU|
00003A00: 41 4C 49 53 49 45 52 45 4E 00 EF 59 E2 18 20 53 |ALISIEREN..Y.. S|
00003A10: 54 41 53 54 52 45 4E 44 00 F8 59 EC 18 20 49 4E |TASTREND..Y.. IN|
00003A20: 59 00 08 5A F6 18 20 4C 44 41 49 4E 44 49 5A 2B |Y..Z.. LDAINDIZ+|
00003A30: 31 00 1B 5A 00 19 20 53 54 41 28 49 4E 44 49 5A |1..Z.. STA(INDIZ|
00003A40: 31 29 2C 59 00 2C 5A 0A 19 20 53 54 41 53 54 52 |1),Y.,Z.. STASTR|
00003A50: 45 4E 44 2B 31 00 52 5A 14 19 3B 2A 2A 2A 2A 2A |END+1.RZ..;*****|
00003A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 5A 1E 19 |***********.XZ..|
00003A80: 3B 00 5E 5A 28 19 3B 00 64 5A 32 19 3B 00 8C 5A |;.^Z(.;.dZ2.;..Z|
00003A90: 3C 19 3B 2A 2A 2A 2A 2A 20 45 4E 44 45 5A 45 49 |<.;***** ENDEZEI|
00003AA0: 43 48 45 4E 20 55 45 42 45 52 47 45 42 45 4E 20 |CHEN UEBERGEBEN |
00003AB0: 2A 2A 2A 2A 2A 00 92 5A 46 19 3B 00 C1 5A 50 19 |*****..ZF.;..ZP.|
00003AC0: 3B 2A 50 4F 49 4E 54 45 52 20 41 55 46 20 53 54 |;*POINTER AUF ST|
00003AD0: 52 49 4E 47 44 45 53 43 52 49 50 54 4F 52 45 4E |RINGDESCRIPTOREN|
00003AE0: 20 4B 4F 50 49 45 52 45 4E 2A 00 EA 5A 5A 19 20 | KOPIEREN*..ZZ. |
00003AF0: 4C 44 41 43 48 41 52 50 54 52 3B 50 4F 49 4E 54 |LDACHARPTR;POINT|
00003B00: 45 52 20 41 55 46 20 44 45 53 43 52 49 50 54 4F |ER AUF DESCRIPTO|
00003B10: 52 45 4E 00 16 5B 64 19 20 4C 44 58 43 48 41 52 |REN..[d. LDXCHAR|
00003B20: 50 54 52 2B 31 3B 56 4F 4E 20 27 4C 41 53 54 2D |PTR+1;VON 'LAST-|
00003B30: 5A 45 49 43 48 45 4E 27 2D 53 54 52 49 4E 47 00 |ZEICHEN'-STRING.|
00003B40: 35 5B 6E 19 20 53 54 41 49 4E 44 49 5A 3B 4E 41 |5[n. STAINDIZ;NA|
00003B50: 43 48 20 27 49 4E 44 49 5A 28 2B 31 29 27 00 45 |CH 'INDIZ(+1)'.E|
00003B60: 5B 78 19 20 53 54 58 49 4E 44 49 5A 2B 31 00 4B |[x. STXINDIZ+1.K|
00003B70: 5B 82 19 3B 00 51 5B 8C 19 3B 00 8B 5B 96 19 3B |[..;.Q[..;..[..;|
00003B80: 2A 50 4C 41 54 5A 20 46 55 45 52 20 53 54 52 49 |*PLATZ FUER STRI|
00003B90: 4E 47 20 4D 49 54 20 31 20 5A 45 49 43 48 45 4E |NG MIT 1 ZEICHEN|
00003BA0: 20 4C 41 45 4E 47 45 20 52 45 53 45 52 56 49 45 | LAENGE RESERVIE|
00003BB0: 52 45 4E 2A 00 A6 5B A0 19 20 4C 44 41 23 31 3B |REN*..[.. LDA#1;|
00003BC0: 47 45 4E 41 55 20 31 20 5A 45 49 43 48 45 4E 00 |GENAU 1 ZEICHEN.|
00003BD0: C3 5B AA 19 20 4A 53 52 53 54 52 52 45 53 3B 4C |.[.. JSRSTRRES;L|
00003BE0: 41 4E 47 45 52 20 53 54 52 49 4E 47 00 C9 5B B4 |ANGER STRING..[.|
00003BF0: 19 3B 00 CF 5B BE 19 3B 00 FF 5B C8 19 3B 2A 5A |.;..[..;..[..;*Z|
00003C00: 45 49 43 48 45 4E 20 53 50 45 49 43 48 45 52 4E |EICHEN SPEICHERN|
00003C10: 2F 44 45 53 43 52 49 50 54 4F 52 45 4E 20 42 45 |/DESCRIPTOREN BE|
00003C20: 48 41 4E 44 45 4C 4E 2A 00 0A 5C D2 19 20 4C 44 |HANDELN*..\.. LD|
00003C30: 59 23 30 00 30 5C DC 19 20 50 4C 41 3B 47 45 52 |Y#0.0\.. PLA;GER|
00003C40: 45 54 54 45 54 45 53 20 45 4E 44 45 5A 45 49 43 |ETTETES ENDEZEIC|
00003C50: 48 45 4E 20 48 4F 4C 45 4E 00 43 5C E6 19 20 53 |HEN HOLEN.C\.. S|
00003C60: 54 41 28 53 54 52 45 4E 44 29 2C 59 00 64 5C F0 |TA(STREND),Y.d\.|
00003C70: 19 20 4C 44 41 23 31 3B 45 4E 44 45 5A 45 49 43 |. LDA#1;ENDEZEIC|
00003C80: 48 45 4E 20 53 50 45 49 43 48 45 52 4E 00 8D 5C |HEN SPEICHERN..\|
00003C90: FA 19 20 53 54 41 28 49 4E 44 49 5A 29 2C 59 3B |.. STA(INDIZ),Y;|
00003CA0: 55 4E 44 20 53 54 52 49 4E 47 44 45 53 43 52 49 |UND STRINGDESCRI|
00003CB0: 50 54 4F 52 45 4E 00 A4 5C 04 1A 20 49 4E 59 3B |PTOREN..\.. INY;|
00003CC0: 41 4B 54 55 41 4C 49 53 49 45 52 45 4E 00 B3 5C |AKTUALISIEREN..\|
00003CD0: 0E 1A 20 4C 44 41 53 54 52 45 4E 44 00 C5 5C 18 |.. LDASTREND..\.|
00003CE0: 1A 20 53 54 41 28 49 4E 44 49 5A 29 2C 59 00 CE |. STA(INDIZ),Y..|
00003CF0: 5C 22 1A 20 49 4E 59 00 DF 5C 2C 1A 20 4C 44 41 |\". INY..\,. LDA|
00003D00: 53 54 52 45 4E 44 2B 31 00 F1 5C 36 1A 20 53 54 |STREND+1..\6. ST|
00003D10: 41 28 49 4E 44 49 5A 29 2C 59 00 17 5D 40 1A 3B |A(INDIZ),Y..]@.;|
00003D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D40: 00 1D 5D 4A 1A 3B 00 23 5D 54 1A 3B 00 29 5D 5E |..]J.;.#]T.;.)]^|
00003D50: 1A 3B 00 75 5D 68 1A 3B 2A 2A 2A 2A 2A 20 4C 45 |.;.u]h.;***** LE|
00003D60: 54 5A 54 45 20 43 55 52 53 4F 52 50 4F 53 49 54 |TZTE CURSORPOSIT|
00003D70: 49 4F 4E 20 49 4E 20 44 2E 45 49 4E 47 41 42 45 |ION IN D.EINGABE|
00003D80: 5A 4F 4E 45 20 49 4E 20 27 4E 52 25 27 20 55 45 |ZONE IN 'NR%' UE|
00003D90: 42 45 52 47 45 42 45 4E 20 2A 2A 2A 2A 2A 00 80 |BERGEBEN *****..|
00003DA0: 5D 72 1A 20 4C 44 41 23 30 00 A8 5D 7C 1A 20 54 |]r. LDA#0..]|. T|
00003DB0: 41 59 3B 48 49 47 48 2D 42 59 54 45 20 56 4F 4E |AY;HIGH-BYTE VON|
00003DC0: 20 27 43 48 41 52 4E 52 28 2B 31 29 27 20 3D 20 | 'CHARNR(+1)' = |
00003DD0: 30 00 E0 5D 86 1A 20 53 54 41 28 43 48 41 52 4E |0..].. STA(CHARN|
00003DE0: 52 29 2C 59 3B 4C 4F 57 2D 42 59 54 45 20 56 4F |R),Y;LOW-BYTE VO|
00003DF0: 4E 20 27 43 48 41 52 4E 52 28 2B 31 29 27 20 3D |N 'CHARNR(+1)' =|
00003E00: 20 27 50 4F 53 41 4B 54 27 00 E9 5D 90 1A 20 49 | 'POSAKT'..].. I|
00003E10: 4E 59 00 F9 5D 9A 1A 20 4C 44 58 50 4F 53 46 4C |NY..].. LDXPOSFL|
00003E20: 41 47 00 09 5E A4 1A 20 42 45 51 4E 55 4C 4C 50 |AG..^.. BEQNULLP|
00003E30: 4F 53 00 18 5E AE 1A 20 49 4E 43 50 4F 53 41 4B |OS..^.. INCPOSAK|
00003E40: 54 00 27 5E B8 1A 20 4C 44 41 50 4F 53 41 4B 54 |T.'^.. LDAPOSAKT|
00003E50: 00 41 5E C2 1A 4E 55 4C 4C 50 4F 53 20 53 54 41 |.A^..NULLPOS STA|
00003E60: 28 43 48 41 52 4E 52 29 2C 59 00 67 5E D6 1A 3B |(CHARNR),Y.g^..;|
00003E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003E90: 00 6D 5E E0 1A 3B 00 73 5E EA 1A 3B 00 79 5E F4 |.m^..;.s^..;.y^.|
00003EA0: 1A 3B 00 9F 5E FE 1A 3B 2A 2A 2A 20 41 45 4E 44 |.;..^..;*** AEND|
00003EB0: 45 52 55 4E 47 53 46 4C 41 47 20 55 45 42 45 52 |ERUNGSFLAG UEBER|
00003EC0: 47 45 42 45 4E 20 2A 2A 00 AF 5E 08 1B 20 4A 53 |GEBEN **..^.. JS|
00003ED0: 52 52 45 41 44 44 45 53 00 C0 5E 1C 1B 20 4C 44 |RREADDES..^.. LD|
00003EE0: 41 45 44 49 54 46 4C 41 47 00 CB 5E 26 1B 20 4C |AEDITFLAG..^&. L|
00003EF0: 44 59 23 30 00 DE 5E 30 1B 20 53 54 41 28 56 41 |DY#0..^0. STA(VA|
00003F00: 52 50 54 52 29 2C 59 00 E7 5E 3A 1B 20 49 4E 59 |RPTR),Y..^:. INY|
00003F10: 00 FA 5E 44 1B 20 53 54 41 28 56 41 52 50 54 52 |..^D. STA(VARPTR|
00003F20: 29 2C 59 00 00 5F 4E 1B 3B 00 17 5F 58 1B 20 52 |),Y.._N.;.._X. R|
00003F30: 54 53 3B 20 3D 3E 20 42 41 53 49 43 20 21 21 21 |TS; => BASIC !!!|
00003F40: 00 1F 5F 62 1B 2E 45 4E 00 00 00 |.._b..EN... |
X...D.;*************************.. N.;*
INPUT-ROUTINE *.5 X.;* (C) SAID
BALOUI, 1987 *.T ..;********************
*****.Z ..;.` ..;.F .;.. ..;FUNKTION: -
EINGABE STAND-ALONE.. ..; EI
NBINDUNG IN.M ..; BILDSCHIRM-
EDITOR.S H.;.. R.;EDITKEYS: - CURSORTAST
EN..!..; - INST/DEL.-!..;
- C= + RIGHT/DOWN:.P!..;
WORT RECHTS/LINKS.S!..; - C= +
DEL: LOESCHT..!..; - ZEILE KOMP
LETT..!..;..!..;AUFRUF: SYS X,COL,LINE,L
ENMAX,..!".; VORGABE$,EINGABECHAR
S$,..",.; BACKCHARS$,LASTCHAR$,..
"6.; NR%,FLAG.!"@.;.E"J.; - COL/L
INE: START EINGABEZONE.J"T.; - LENMAX: L
AENGE D.EINGABEZONE.."^.; - VORGABE$: EI
NGABE-VORGABE.."H.; - EINGABECHARS$: ZUL
AESSIGE.M"R.; ZEICHEN..
"|.; - BACKCHARS$: ZEICHEN, DIE DIE..#..
; EINGABE BEENDEN.9#..; -
LASTCHAR$: STRING, IN DEM.]#..;
DAS ENDEZEICHEN..#..;
UEBERGEBEN WIRD..#..; - NR%: 1.IMMER:
IN 'NR%' WIRD.H#..; DIE LETZTE
ZEICHEN-..#B.; POSITION DES CU
RSORS..$L.; UEBERGEBEN.($V.;
2.NR=0 => CURSOR AUF.G$..;
ERSTEM ZEICHEN;.K$..; 'NORMALE
' INPUTROUT...$..; 3.NR<>0 => CUR
SOR NACH..$..; AUFRUF AUF ZEICH
EN.R$..; NR.'NR%' GESETZT;..$..
; CURSORBEWEGUNGEN AUS..%..;
DER EINGABEZONE HERAUS.?%&.;
BEENDEN DIE EINGABE.E%0.;.G%:.; - F
LAG: 0=NORMALDARSTELLUNG..%D.; 1
=INVERSE DARSTELLUNG..%N.; 2=MAL
MODUS..%X.;..%B.;.U%L.;BSP.: SYS X,10,20
,100,V$,E$,B$,..%V.; L$,NR%,1..&..;
EINGABE AB SPALTE 10 VON.#&..;
SPALTE 20;.G&..; MAXIMAL 100 IN '
E$' ENT-.C&..; HALTENE ZEICHEN;..&.
.; STRING IN 'V$' WIRD VOR-..&..;
GEGEBEN;..&..; EINGABEENDE MIT
DEN IN..&F.; 'B$' ENTHALTENEN ZEICH
EN;..'P.; 'ENDEZEICHEN' IN 'L$';.$'
Z.; INVERSE DARSTELLUNG..*'..;.0'..
;.6'..;.R'...BA $C400 ;STARTADRESSE.X'..
;.^'..;.D' .;.S'*.;*********..'4.;* LABE
L *..'>.;*********..'H.;..'R.;..'\.;****
* BETRIEBSSYSTEM *****..'F..EQ CHKKOM
=$AEFD ;LIEST KOMMA..(P..EQ GETBYT =$B
79E ;LIEST 1-BYTE-WERT.@(Z..EQ GETPOS
=$B08B ;HOLT POINTER AUF VARIABLE..(...E
Q STRRES =$B4F4 ;RESERVIERT PLATZ F.AN
ZULEGENDEN STRING..(...EQ PLOT =$FFF
0 ;CURSOR SETZEN.Q(...EQ BSOUT =$FFD2
;ZEICHEN AUSGEBEN..)...EQ GETIN =$FF
E4 ;ZEICHEN VON TASTATUR HOLEN.;)...EQ C
HRGET =$73 ;ZEICHEN AUS BASIC-TEXT H
OLEN.K)...EQ TEXTPTR =$7A ;POINTER AU
F BASIC-TEXT..)...EQ VARPTR =$47 ;PO
INTER AUF AKTUELLE VARIABLE..)J..EQ STRE
ND =$33 ;POINTER AUF UNTERGRENZE STR
INGSTACK..*T..EQ LINEPTR =$D1 ;POINTE
R AUF CURSORZEILE.6*...EQ COL =$D3
;CURSORSPALTE.[*...EQ LINE =$D6
;CURSORZEILE..*...EQ CRSFLAG =$CF ;CU
RSOR MOMENTAN NORMAL/INVERTIERT..*...EQ
CRSENABLE=$CC ;CURSOR EIN/AUS..*...EQ
SHFLAG =$028D ;SHIFT/CTRL/C= - FLAG..+
...EQ QUOTEMODE=212 ;ANFUEHRUNGSZEICHE
NMOODUS.S+...EQ INSERTS =$D8 ;ANZAHL
AUSSTEHENDER INSERTS.Y+..;**************
******************.+..;..+$.;..+..;..+8
.;***** PROGRAMMINTERN *****..+B.;.Q+L.;
*** STRINGDESCRIPTOREN ***..,V..EQ CHARD
ES =$A5 ;STRING MIT LETZTEM ZEICHEN.5
,`..EQ ENDDES =$A8 ;STRING MIT ENDEZ
EICHEN.H,J..EQ OKAYDES =$AB ;STRING M
IT EINGABEZEICHEN..,T..EQ INPUTDES=$AE
;VOR-/RUECKGABESTRING..,~.;..,..;.N,..
;*** POINTER AUF STRINGDESCRIPTOREN ***.
.,...EQ CHARPTR =$02A7 ;S.O.(POINTER..-
...EQ ENDPTR =$02AA ;AUF DIE OBIGEN.J-
...EQ OKAYPTR =$02AD ;STRINGDESSCRIPTOR
EN).A-...EQ INPUTPTR=$02B0.G-D.;.M-N.;..
-X.;*** ZEROPAGE(!)-POINTER ***..-...EQ
INDIZ =$F7 ;POINTER FUER INDIREKT-.
.-...EQ INDIZ1=$F9 ;INDIZIERTE ADR.
(VERSCH.ZWECKE).!....EQ CHARNR=$FB
;POINTER AUF 'NR%'.'...;.C...;*** SONSTI
GE LABEL ***......EQ POSFLAG =$02B3 ;0=
NORMAL / 1=VORGABE DER CURSORSTARTPOSITI
ON.T....EQ POSAKT =$02B4 ;AKTUELLE POS
ITION INNERHALB DER EINGABE (AB 0!!!)../
(..EQ LENMAX =$02B5 ;MAXIMALE EINGABEL
AENGE.1/2..EQ ATTRIBUT=$02B6 ;0=NORMAL
/ 1=INVERS.E/<..EQ CRSLINE =$02B7 ;STAR
TZEILE DER EINGABEZONE../F..EQ CRSCOL =
$02B8 ;STARTSPALTE DER EINGABEZONE../K.
.EQ EDITFLAG=$02B9 ;0=KEINE AENDERUNG,
SONST ZEILENINHALT GEAENDERT..0P..EQ HEL
P =$02BA ;VERSCHIEDENES.00Z.;*******
*************************.V0D.;*********
***********************.|0N.;***********
*********************..0X.;..0..;..0..;.
.0..;*******************..0 .;* INITIALI
SIERUNG *.Y0..;*******************..0..;
..0.. LDA#0..0.. STAEDITFLAG..1..;.%1..;
***** PARAMETER EINLESEN *****.+1H.;.J1R
.;*SPALTE,ZEILE UND LAENGE*.U1.. JSRREAD
BYT;STARTSPALTE UND STARTZEILE..1..;
NACH 'CRSCOL'/'CRSL
INE'..1.. STXCRSCOL.U1.. JSRREADBYT;CURS
OR AUF..2..; STA
RTPOSITION SETZEN..2.. STXCRSLINE.'2.. L
DYCRSCOL.02". CLC.=2,. JSRPLOT.C26.;.I2@
.;.V2J.LAENGE JSRREADBYT;MAXIMALE EINGAB
ELAENGE..2T.; NA
CH 'LENMAX'..2^. STXLENMAX..2H.;..2R.;..
2|.;*ZEICHEN$,ENDE$,RUECK$,BACK$*..2.. L
DX#11.!3..LIESPAR STXHELP;4*POINTER AUF
STRINGDESCRIPTOREN.B3.. JSRREADDES;HOLEN
, SPEICHERN.U3..;
UND DIE DESCRIPTOREN..3.. LDXHELP;SELB
ST HOLEN UND SPEICHERN..3..;..3B. STACHA
RPTR-2,X..3L. TYA.T3V. STACHARPTR-1,X.Z3
..;..3.. LDY#2..4..LIESPAR1 LDA(VARPTR),
Y..4.. STACHARDES,X..4.. DEX.,4.. BMILIE
SPAR2.54.. DEY.F4&. BPLLIESPAR1.V40. BMI
LIESPAR.\4:.;.B4D.;.|4N.;*ZEICHENNR.EINL
ESEN*..4X.LIESPAR2 JSRREADDES.T4B.;
1.'NR%'=0: 'POSFLAG'
AUF 0 SETZEN..4L. STACHARNR;UND 'POSAKT
' MIT 1 INITIAL...5V. STYCHARNR+1.>5.. L
DY#0;2.'NR%'<>0: 'POSFLAG' AUF 1 SETZEN.
I5.. STYPOSAKT;UND 'POSAKT' MIT DEM INHA
LT..5.. STYPOSFLAG;VON 'NR%'-1 INITIAL..
.5.. INY..5.. LDA(CHARNR),Y..5.. BEQATTR
IB.H5.. STAPOSAKT.W5F. DECPOSAKT..5P. DE
CPOSFLAG..5Z.;..5..;..6..;*ATTRIBUT EINL
ESEN*.36..ATTRIB JSRREADBYT;'ATTRIBUT' H
OLEN.G6..; (0=NO
RMAL / 1=INVERS).X6.. STXATTRIBUT.~6..;.
.6 . CPX#2..6*. BNEPLATZRES..64. LDA#$FF
..6>. STAATTRIBUT..6H.;*****************
***************..6R.;..6\.;..6F.;..7P.;*
**** STRINGPLATZ RESERVIEREN *****.E7Z.P
LATZRES LDALENMAX;PLATZ F.ANZULEGENDEN.S
7.. JSRSTRRES;STRING IN 'LENMAX' RESERVI
EREN..7.. DECLENMAX;'LENMAX'=MAX.LAENGE
INCL.!!! ZEICHEN NR.0.R7..;*************
*******************.X7..;..7..;..7..;..8
..;***** VORGABE IN STRING KOPIEREN ****
*..8J. LDY#0.08T.INIT CPYINPUTDES.>8.. B
EQINIT1.U8.. LDA(INPUTDES+1),Y.H8.. STA(
STREND),Y.Q8.. INY..8.. BNEINIT;VORGABES
TRING IN STRINGSTACK.S8..;
;KOPIEREN UND RESERVIERTEN..8.
.INIT1 LDA#" ";PLATZ BIS 'LENMAX'."9$.IN
IT2 CPYLENMAX;MIT SPACES AUFFUELLEN.09..
BEQINIT3.@98. BCSSHOWCRS.X9B.INIT3 STA(
STREND),Y.A9L. INY.O9V. BNEINIT2.U9X.;.{
9Y.;..9Z.;..9[.;***** SHOW CURSOR *****.
.9\.SHOWCRS JSRSETCRS.F9^. JSRINVERTCRS.
S9`. LDY#$14..9B.SHOWLOOP DEX..9D. BNESH
OWLOOP..9F. DEY..:H. BNESHOWLOOP.5:..;**
******************************.[:D.;****
****************************..:N.;******
**************************..:X.;..:..;..
:..;..:..;..:..;*********************.O:
..;* EINGABE EDITIEREN *..:..;**********
***********..:..;..;(.;***** EINGABESCHL
EIFE *****.G;2.GET JSRINVERTCRS;ZEICHEN
UNTER CURSOR INVERTIEREN.N;<. JSRAUSGABE
;EINGABESTRING AUSGEBEN..;F. JSRSETCRS;C
URSOR AUF AKTUELLE EINGABEPOSITION..;G.;
..;H. LDY#0.B;I. STYCRSFLAG.T;K. STYCRSE
NABLE.Z;L.;..;P.GET1 JSRGETIN;AUF TASTE.
.<Z. BEQGET1;WARTEN..<[.;..<\. LDY#0.+<_
. STYCRSFLAG.=<`. INCCRSENABLE.C<D.;****
****************************.I<N.;.O<X.;
.U<..;..<..;***** MALMODUS BEHANDELN ***
**..<.. LDXATTRIBUT..< . BPLNOMALEN..<..
;.F<..;.R<.. LDX#10..<H.KEY1 CMPKEY,X..<
R. BEQKEY2..<.. DEX..=.. BPLKEY1..=.. JM
PDELETE..=..;."=..;.L=..KEY2 STAEDITFLAG
;EINGABE GEANDERT !!!.U=.. PHA.D=.. LDYP
OSAKT.S=". LDACHAR,X..=,. STA(STREND),Y.
.=6. PLA..=@. CMP#157..=J. BEQLEFT..=T.
LDA#29.C=^. BNERIGHT.I=H.;.O=R.;..>|.KEY
.BY"1","2","3","4","5","6","7","8","9",
29,157.=>..CHAR .BY176,174,173,189,171,1
79,177,178,219,192,192.C>..;************
********************.I>..;.O>..;.U>..;.{
>..;..>B.;***** KOMBINATION MIT 'C='-TAS
TE ? *****..>L.NOMALEN LDXSHFLAG.J>V. CP
X#2.W>.. BNEOKAY..>..;..?.. STAEDITFLAG;
EINGABE GEAENDERT !!!..?.. CMP#148..?..
BNESHIFT.-?.. JMPENDE2.??..SHIFT CMP#157
.N?.. BEQWRIGHT.[?&. CMP#145.I?0. BEQWLE
FT..?:.;********************************
..?D.;..?N.;..?X.;.H?B.;***** ZULAESSIGE
S ZEICHEN ? *****..?L.OKAY LDYOKAYDES..?
V. DEY..@..OKAY1 CMP(OKAYDES+1),Y..@.. B
EQOKAY2..@.. DEY;WENN TASTE ZULAESSIGES.
;@.. CPY#$FF.V@.. BNEOKAY1;ZEICHEN IST:.
.@.. BEQRIGHT;IM STRINGSTACK AN AKTUELLE
R..@..; ;POSITION
SPEICHERN.U@F.OKAY2 LDYPOSAKT;UND CURSO
R EINE..@P. STA(STREND),Y;SPALTE NACH RE
CHTS.!AZ. LDA#29;'CURSOR RIGHT' SIMULIER
EN.'A..;.NA.. STAEDITFLAG;EINGABE GEAEND
ERT !!!.TA..;***************************
*****.ZA..;..A..;..A..;..A..;***** CURSO
R RIGHT ? *****..A..RIGHT CMP#29.DA . BN
ELEFT.JA*.;.PA4.;..A>.RIGHT1 LDXPOSAKT;W
ENN NOCH INNERHALB DER..BH. CPXLENMAX;EI
NGABEZONE:.9BR. BEQRIGHT2;POSITIONSZAEHL
ER.QB\. INCPOSAKT;ERHOEHEN.{BF. JSRBSOUT
;UND 'CURSOR RIGHT' AUSGEBEN..BP. JMPGET
JUMP..BZ.;..B..RIGHT2 LDXPOSFLAG;SONST:.
.B.. BEQGETJUMP;1.NORMALE EINGABE(NR%=0)
: ZUR WARTESCHLEIFE. C.. BNELEFT3;2.SCRE
ENEDITOR(NR%<>0): EINGABE BEENDET.FC..;*
*******************************.LC..;.RC
..;.XC..;.WCJ.;***** CURSOR LEFT ? *****
..CT.LEFT CMP#157..C.. BNEDELETE..C..;..
C..;.KC..LEFT1 LDXPOSAKT;WENN NOCH INNER
HALB..C.. BEQLEFT2;DER EINGABEZONE:..D..
DECPOSAKT;POSITIONSZAEHLER.&D.. LDA#157
;DEKREMENTIEREN.OD$. JSRBSOUT;UND 'CURSO
R LEFT' AUSGEBEN.BD..GETJUMP JMPGET.HD8.
;..DB.LEFT2 LDXPOSFLAG;SONST:..DL. BEQGE
TJUMP;1.NORMALE EINGABE(NR%=0): ZUR WART
ESCHLEIFE..DV.LEFT3 JMPENDE2;2.SCREENEDI
TOR(NR%<>0): EINGABE BEENDET. E`.;******
*************************.&EJ.;.,ET.;.2E
~.;.UE..;***** WORT RECHTS/LINKS *****.F
E..WRIGHT LDA#0.RE...BY $2C..E..WLEFT LD
A#1..E.. STAHELP..E..;..ED. JSRCHECKTERM
..EN. BCCWORD2..EX.;.PE..WORD1 JSRWORDSU
B..E.. BEQWORD3..E.. BCCWORD1..E..;..F..
WORD2 JSRWORDSUB..F.. BEQWORD3.#F.. BCSW
ORD2.)F(.;.:F2.WORD3 JMPGET.@F<.;.FFF.;.
QFP.;*** EIN ZEICHEN NACH RECHTS/LINKS *
**..FZ.WORDSUB LDAHELP..FD. BNEWORDSUB1.
.FN.;..FX. LDAPOSAKT..F.. CMPLENMAX.JF..
BEQWORDEND.YF.. INCPOSAKT..F . LDA#29..
F.. BNEWORDSUB2..F..;..G..WORDSUB1 LDAPO
SAKT.#GH. BEQWORDEND.2GR. DECPOSAKT.?G..
LDA#157.EG..;.[G..WORDSUB2 JSRBSOUT.JG.
. LDYPOSAKT.}G.. LDA(STREND),Y..G.. JSRC
HECKTERM..G.. LDA#1..G".WORDEND RTS..G,.
;..G6.;.ZG@.;*** AUF TERMINATOR PRUEFEN
***..GJ.CHECKTERM CMP#48..GT. BCCTERM..H
^. CMP#58..HH. BCCNOTERM.#HR. CMP#65.0H|
. BCCTERM.<H.. CMP#91.KH.. BCCNOTERM.XH.
. CMP#193.EH.. BCCTERM.RH.. CMP#219..H..
BCCNOTERM..HB.;..HL.TERM SEC..HV. RTS..
H..NOTERM CLC..H.. RTS..H..;************
********************..H..;..H..;..H..;..
I..;***** DELETE ? *****..I&.DELETE CMP#
20.(I0. BNEINSERT..I2.;.UI4. STAEDITFLAG
;EINGABE GEAENDERT !!!.[I6.;.QI:.DELETE1
LDYPOSAKT..ID. BEQGETJUMP..IN.;..IX.DEL
ETE2 LDA(STREND),Y..IB. DEY..IL. STA(STR
END),Y.FIV. INY..I.. INY;ZEICHEN IM STRI
NGSTACK..J.. CPYLENMAX;NACH UNTEN SCHIEB
EN..J.. BCCDELETE2.)J.. BEQDELETE2./J..;
.SJ.. LDA#" ";LETZTES ZEICHEN: SPACE.\J.
. DEY.OJF. STA(STREND),Y..JP.DELETE3 LDA
#157;'CURSOR LEFT' SIMULIEREN..JZ. JMPLE
FT1.PJ..;*******************************
*.VJ..;..J..;..J..;..J..;***** INSERT ?
*****..K..INSERT CMP#148..K . BNEENDCHAR
.%K".;.LK$. STAEDITFLAG;EINGABE GEAENDER
T !!!.RK&.;.HK*.INSERT1 LDYLENMAX.{K4. L
DA(STREND),Y..K>. CMP#" "..KH. BNEINSERT
4..KR.;.EK\.INSERT2 DEY;ZEICHEN IM STRIN
GSTACK..KF. LDA(STREND),Y;NACH OBEN SCHI
EBEN..KP. INY..LZ. STA(STREND),Y..L.. DE
Y..L.. CPYPOSAKT./L.. BEQINSERT3.?L.. BC
SINSERT2.EL..;.NL..INSERT3 LDA#" ";ZEICH
EN AN AKTUELLER..L.. STA(STREND),Y;POSIT
ION DURCH..LJ.INSERT4 JMPGET;SPACE ERSET
ZEN.XLB.;*******************************
*..LL.;********************************.
$MV.;********************************.*M
`.;.0MJ.;.6MT.;.NM~.;******************.
FM..;* UNTERPROGRAMME *.~M..;***********
*******..M..;..M..;***** STRINGAUSGABE *
****..M..AUSGABE LDYCRSCOL..M.. LDXCRSLI
NE;CURSOR AUF BEGINN DER..MD. CLC;EINGAB
EZONE SETZEN..NN. JSRPLOT..NX.;.8N.. LDA
ATTRIBUT;WENN 'ATTRIBUT' GESETZT:.CN.. C
MP#1.FN.. BNENOINVERS;'RVS ON' AUSGEBEN.
RN.. LDA#18..N.. JSRBSOUT..N..;..N..NOIN
VERS LDY#0;STRING KOMPLETT.MN(.AUSGABE1
LDA(STREND),Y;AUSGEBEN..N2. JSRBSOUT..N<
. INY..NF. CPYLENMAX..OP. BCCAUSGABE1..O
Z. BEQAUSGABE1..OD.;.&OF. LDA#0.8OH. STA
QUOTEMODE.HOJ. STAINSERTS.HON. LDA#146;'
RVS OFF' AUSGEBEN.VOX. JMPBSOUT..O..;***
*****************************..O..;..O .
;..O..;..O..;***** CURSOR DURCH ZEICHENI
NVERTIERUNG SICHTBAR MACHEN *****..P..IN
VERTCRS LDYCOL..PH. LDA(LINEPTR),Y.?PR.
LDXATTRIBUT;1.NORMALDARSTELLUNG:.OP.. BN
ENORMAL;ZEICHEN UNTER CURSOR INVERTIEREN
.|P.. ORA#$80..P...BY $2C
;2.INVERSDARSTELLUNG:..P..NORMAL AND#
$7F;ZEICHEN UNTER CURSOR NORMALISIEREN..
P.. STA(LINEPTR),Y..Q.. RTS.(Q..;*******
*************************..Q".;.4Q,.;.:Q
6.;.VQ@.;***** CURSOR AUF AKTUELLE EINGA
BEPOSITION SETZEN *****..QJ.SETCRS LDACR
SCOL;AKTUELLE EINGABESPALTE.UQT. CLC;= C
URSORSTARTSPALTE + AKTUELLE ZEICHENNR...
Q^. ADCPOSAKT..QH. TAY..QR. LDXCRSLINE..
R|. CLC..R.. JMPPLOT..R..;..R..;.%R..;.K
R..;***** READ BYTE/STRINGDESCR.****.AR.
.READBYT JSRCHKKOM.PR.. JMPGETBYT.VR..;.
.R..READDES JSRCHKKOM..R.. JMPGETPOS.AR.
.;********************************..R..;
********************************..S..;**
******************************..S..;..SB
.;..SL.;.@SV.;**************************
*.AS..;* BEENDEN DER EINGABE (?) *..S..;
***************************..S..;..S..;*
**** ENDEZEICHEN ? *****..S..ENDCHAR LDY
ENDDES.FS.. DEY..S..ENDE1 CMP(ENDDES+1),
Y..S&. BEQENDE2..T0. DEY;PRUEFEN, OB.)T:
. BPLENDE1;ZULAESSIGES ENDEZEICHEN.=TD.
JMPGET;NEIN =>.CTN.;********************
************.ITX.;.OTB.;.UTL.;..TV.;****
* CURSOR AUSSCHALTEN *****..T..ENDE2 PHA
;AKTUELLES ZEICHEN RETTEN..TF. JSRAUSGAB
E;AKTUELLEN STRING AUSGEBEN..UP.;*******
*************************..UZ.;..U..;."U
..;.^U..;***** EINGABE IN VORGABESTRING
ZURUECKUEBERGEBEN *****.DU..;..U..;*ECHT
E LAENGE(-1) ERMITTELN*..U.. LDYLENMAX..
U .ENDE3 LDA(STREND),Y;ECHTE LAENGE=..U*
. CMP#" ";LETZTES 'NICHT-SPACE'..U4. BNE
ENDE4;IM STRING..U>. DEY..VH. CPY#$FF..V
R. BNEENDE3. V\.;.&VF.;.IVP.;*** STRINGS
TART ERMITTELN ***.OVZ.ENDE4 STYHELP;'HE
LP'=LAENGE-1 !!!..V.. LDASTREND+1..V.. S
TAINDIZ+1;ECHTER STRINGSTART=.IV.. LDALE
NMAX;AKTUELLER STRINGSTART..V.. SEC;+ DI
FFERENZ ZWISCHEN..W.. SBCHELP;MAXIMALER
UND.$W.. CLC;EFFEKTIVER EINGABELAENGE.3W
.. ADCSTREND.TWJ. STAINDIZ;ECHTEN STRING
START.{WT. BCCENDE5;IN 'INDIZ(+1)' SPEIC
HERN..W.. INCINDIZ+1..W..;..W..;..W..;**
* STRING VERSCHIEBEN ***.IW..ENDE5 LDYHE
LP..W..ENDE6 CPY#$FF;STRING VON MOMENTAN
ER..X.. BEQENDE7;POSITION ZU ECHTER.?X$.
LDA(STREND),Y;STARTPOSITION VERSCHIEBEN
.QX.. STA(INDIZ),Y.ZX8. DEY.HXB. JMPENDE
6.NXL.;.TXV.;..X`.;*** DESCRIPTOREN/STRE
ND BEHANDELN ***..XJ.ENDE7 LDAINPUTPTR..
XT. LDXINPUTPTR+1;POINTER AUF DESCRIPTOR
EN..Y~. STAINDIZ1;DES VOR-/RUECKGABESTRI
NGS.5Y.. STXINDIZ1+1;NACH 'INDIZZ(+1) KO
PIEREN.;Y..;.BY.. INCHELP;=>'HELP'=ECHTE
LAENGE !!!.OY.. LDAHELP..Y.. INY;=>Y=0
!!!..Y.. STA(INDIZ1),Y..YD. INY..YN. LDA
INDIZ;STRINGDESCRIPTOREN..YX. STA(INDIZ1
),Y;AKTUALISIEREN..Y.. STASTREND..Y.. IN
Y..Z.. LDAINDIZ+1..Z.. STA(INDIZ1),Y.,Z.
. STASTREND+1.RZ..;*********************
***********.XZ..;.^Z(.;.DZ2.;..Z<.;*****
ENDEZEICHEN UEBERGEBEN *****..ZF.;.AZP.
;*POINTER AUF STRINGDESCRIPTOREN KOPIERE
N*..ZZ. LDACHARPTR;POINTER AUF DESCRIPTO
REN..[D. LDXCHARPTR+1;VON 'LAST-ZEICHEN'
-STRING.5[N. STAINDIZ;NACH 'INDIZ(+1)'.E
[X. STXINDIZ+1.K[..;.Q[..;..[..;*PLATZ F
UER STRING MIT 1 ZEICHEN LAENGE RESERVIE
REN*..[ . LDA#1;GENAU 1 ZEICHEN.C[.. JSR
STRRES;LANGER STRING.I[..;.O[..;..[H.;*Z
EICHEN SPEICHERN/DESCRIPTOREN BEHANDELN*
..\R. LDY#0.0\.. PLA;GERETTETES ENDEZEIC
HEN HOLEN.C\.. STA(STREND),Y.D\.. LDA#1;
ENDEZEICHEN SPEICHERN..\.. STA(INDIZ),Y;
UND STRINGDESCRIPTOREN..\.. INY;AKTUALIS
IEREN..\.. LDASTREND.E\.. STA(INDIZ),Y.N
\". INY..\,. LDASTREND+1..\6. STA(INDIZ)
,Y..]@.;********************************
..]J.;.#]T.;.)]^.;.U]H.;***** LETZTE CUR
SORPOSITION IN D.EINGABEZONE IN 'NR%' UE
BERGEBEN *****..]R. LDA#0..]|. TAY;HIGH-
BYTE VON 'CHARNR(+1)' = 0..].. STA(CHARN
R),Y;LOW-BYTE VON 'CHARNR(+1)' = 'POSAKT
'..].. INY..].. LDXPOSFLAG..^.. BEQNULLP
OS..^.. INCPOSAKT.'^.. LDAPOSAKT.A^B.NUL
LPOS STA(CHARNR),Y.G^V.;****************
****************.M^..;.S^..;.Y^..;..^..;
*** AENDERUNGSFLAG UEBERGEBEN **..^.. JS
RREADDES..^.. LDAEDITFLAG.K^&. LDY#0..^0
. STA(VARPTR),Y..^:. INY..^D. STA(VARPTR
),Y.._N.;.._X. RTS; => BASIC !!!.._B..EN
...
> CLICK IMAGE PREVIEW FOR FULL MODAL