TREIBERETC.SRC
FILE INFORMATION
FILENAME(S): TREIBERETC.SRC
FILE TYPE(S): PRG
FILE SIZE: 18K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
2bca479dc8cef4a01751ab19e7f1f78de98bf52af9bc7ed407f4ad695ee5aa18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | TREIBERETC.SRC | PRG | Treasure Chest - ToGuMi | 12 | 1 | 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 44 52 55 43 |.. n.;* DRUC|
00000030: 4B 45 52 54 52 45 49 42 45 52 20 20 20 20 2A 00 |KERTREIBER *.|
00000040: 35 20 78 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |5 x.;***********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B |**************.;|
00000060: 20 82 00 3B 00 49 20 8C 00 2E 42 41 20 24 39 42 | ..;.I ...BA $9B|
00000070: 44 30 00 4F 20 96 00 3B 00 6A 20 A0 00 2E 45 51 |D0.O ..;.j ...EQ|
00000080: 20 42 53 4F 55 54 4F 52 49 47 20 20 3D 20 24 46 | BSOUTORIG = $F|
00000090: 31 43 41 00 83 20 B4 00 2E 45 51 20 44 45 56 49 |1CA.. ...EQ DEVI|
000000A0: 43 45 20 20 20 20 20 3D 20 24 39 41 00 9E 20 BE |CE = $9A.. .|
000000B0: 00 2E 45 51 20 44 54 41 42 45 4C 4C 45 20 20 20 |..EQ DTABELLE |
000000C0: 3D 20 24 30 37 30 30 00 B7 20 C8 00 2E 45 51 20 |= $0700.. ...EQ |
000000D0: 57 41 4E 44 45 4C 46 4C 41 47 20 3D 20 24 30 32 |WANDELFLAG = $02|
000000E0: 00 BD 20 D2 00 3B 00 C3 20 DC 00 3B 00 D6 20 E6 |.. ..;.. ..;.. .|
000000F0: 00 20 4A 4D 50 4D 41 4B 52 4F 53 49 4E 49 54 00 |. JMPMAKROSINIT.|
00000100: EA 20 F0 00 20 4A 4D 50 46 53 43 52 45 45 4E 49 |. .. JMPFSCREENI|
00000110: 4E 49 54 00 FB 20 FA 00 20 4A 4D 50 53 43 53 45 |NIT.. .. JMPSCSE|
00000120: 41 52 43 48 00 10 21 04 01 20 4A 4D 50 53 54 52 |ARCH..!.. JMPSTR|
00000130: 49 4E 47 53 45 41 52 43 48 00 1F 21 0E 01 20 4A |INGSEARCH..!.. J|
00000140: 4D 50 53 54 52 4F 55 54 00 2F 21 22 01 20 4A 4D |MPSTROUT./!". JM|
00000150: 50 53 45 52 49 4E 49 54 00 40 21 2C 01 20 4A 4D |PSERINIT.@!,. JM|
00000160: 50 43 45 4E 54 49 4E 49 54 00 46 21 36 01 3B 00 |PCENTINIT.F!6.;.|
00000170: 4C 21 40 01 3B 00 52 21 4A 01 3B 00 58 21 54 01 |L!@.;.R!J.;.X!T.|
00000180: 3B 00 5E 21 5E 01 3B 00 7C 21 68 01 3B 2A 2A 2A |;.^!^.;.|!h.;***|
00000190: 20 44 45 56 49 43 45 20 50 52 45 53 45 4E 54 20 | DEVICE PRESENT |
000001A0: 3F 20 2A 2A 2A 00 93 21 72 01 2E 45 51 20 4C 49 |? ***..!r..EQ LI|
000001B0: 53 54 45 4E 20 3D 20 24 46 46 42 31 00 A9 21 7C |STEN = $FFB1..!||
000001C0: 01 2E 45 51 20 55 4E 4C 53 4E 20 3D 20 24 46 46 |..EQ UNLSN = $FF|
000001D0: 41 45 00 BE 21 86 01 2E 45 51 20 53 54 41 54 55 |AE..!...EQ STATU|
000001E0: 53 20 3D 20 24 39 30 00 C4 21 90 01 3B 00 CA 21 |S = $90..!..;..!|
000001F0: 9A 01 3B 00 D9 21 A4 01 20 4C 44 41 53 54 41 54 |..;..!.. LDASTAT|
00000200: 55 53 00 E4 21 AE 01 20 43 4D 50 23 38 00 F5 21 |US..!.. CMP#8..!|
00000210: B8 01 20 42 43 53 50 53 45 52 49 45 4C 4C 00 FB |.. BCSPSERIELL..|
00000220: 21 C2 01 3B 00 0C 22 CC 01 20 4C 44 58 53 50 52 |!..;..".. LDXSPR|
00000230: 55 4E 47 2B 31 00 22 22 D6 01 20 43 50 58 23 3C |UNG+1."".. CPX#<|
00000240: 28 42 53 4F 55 54 4F 52 49 47 29 00 34 22 E0 01 |(BSOUTORIG).4"..|
00000250: 20 42 4E 45 50 50 41 52 41 4C 4C 45 4C 00 45 22 | BNEPPARALLEL.E"|
00000260: EA 01 20 4C 44 58 53 50 52 55 4E 47 2B 32 00 5B |.. LDXSPRUNG+2.[|
00000270: 22 F4 01 20 43 50 58 23 3E 28 42 53 4F 55 54 4F |".. CPX#>(BSOUTO|
00000280: 52 49 47 29 00 6C 22 FE 01 20 42 45 51 50 53 45 |RIG).l".. BEQPSE|
00000290: 52 49 45 4C 4C 00 72 22 08 02 3B 00 78 22 12 02 |RIELL.r"..;.x"..|
000002A0: 3B 00 94 22 1C 02 3B 2A 20 50 41 52 41 4C 4C 45 |;.."..;* PARALLE|
000002B0: 4C 45 52 20 44 52 55 43 4B 45 52 20 2A 00 AA 22 |LER DRUCKER *.."|
000002C0: 26 02 50 50 41 52 41 4C 4C 45 4C 20 4C 44 58 23 |&.PPARALLEL LDX#|
000002D0: 24 30 44 00 B8 22 30 02 20 53 54 58 24 44 44 30 |$0D.."0. STX$DD0|
000002E0: 31 00 C6 22 3A 02 20 4C 44 41 24 44 44 30 30 00 |1..":. LDA$DD00.|
000002F0: D3 22 44 02 20 41 4E 44 23 24 46 42 00 E1 22 4E |."D. AND#$FB.."N|
00000300: 02 20 53 54 41 24 44 44 30 30 00 EE 22 58 02 20 |. STA$DD00.."X. |
00000310: 4F 52 41 23 24 30 34 00 FC 22 62 02 20 53 54 41 |ORA#$04.."b. STA|
00000320: 24 44 44 30 30 00 02 23 6C 02 3B 00 14 23 76 02 |$DD00..#l.;..#v.|
00000330: 50 57 41 49 54 20 4C 44 59 23 24 30 30 00 28 23 |PWAIT LDY#$00.(#|
00000340: 80 02 50 57 41 49 54 31 20 4C 44 41 24 44 44 30 |..PWAIT1 LDA$DD0|
00000350: 44 00 35 23 8A 02 20 41 4E 44 23 24 31 30 00 43 |D.5#.. AND#$10.C|
00000360: 23 94 02 20 42 4E 45 50 4F 4B 41 59 00 4C 23 9E |#.. BNEPOKAY.L#.|
00000370: 02 20 44 45 59 00 5B 23 A8 02 20 42 4E 45 50 57 |. DEY.[#.. BNEPW|
00000380: 41 49 54 31 00 64 23 B2 02 20 44 45 58 00 72 23 |AIT1.d#.. DEX.r#|
00000390: BC 02 20 42 4E 45 50 57 41 49 54 00 78 23 C6 02 |.. BNEPWAIT.x#..|
000003A0: 3B 00 85 23 D0 02 20 4C 44 41 23 24 38 30 00 91 |;..#.. LDA#$80..|
000003B0: 23 DA 02 20 2E 42 59 24 32 43 00 A3 23 E4 02 50 |#.. .BY$2C..#..P|
000003C0: 4F 4B 41 59 20 4C 44 41 23 24 30 30 00 B2 23 EE |OKAY LDA#$00..#.|
000003D0: 02 20 53 54 41 53 54 41 54 55 53 00 BF 23 F8 02 |. STASTATUS..#..|
000003E0: 20 4C 44 41 23 24 31 30 00 CD 23 02 03 20 53 54 | LDA#$10..#.. ST|
000003F0: 41 24 44 44 30 44 00 DB 23 0C 03 20 4C 44 41 24 |A$DD0D..#.. LDA$|
00000400: 44 44 30 44 00 E4 23 16 03 20 52 54 53 00 EA 23 |DD0D..#.. RTS..#|
00000410: 20 03 3B 00 F0 23 2A 03 3B 00 0A 24 34 03 3B 2A | .;..#*.;..$4.;*|
00000420: 20 53 45 52 49 45 4C 4C 45 53 20 47 45 52 41 45 | SERIELLES GERAE|
00000430: 54 20 2A 00 1D 24 3E 03 50 53 45 52 49 45 4C 4C |T *..$>.PSERIELL|
00000440: 20 4C 44 58 23 30 00 2C 24 48 03 20 53 54 58 53 | LDX#0.,$H. STXS|
00000450: 54 41 54 55 53 00 3B 24 52 03 20 4A 53 52 4C 49 |TATUS.;$R. JSRLI|
00000460: 53 54 45 4E 00 49 24 5C 03 20 4A 4D 50 55 4E 4C |STEN.I$\. JMPUNL|
00000470: 53 4E 00 4F 24 66 03 3B 00 55 24 70 03 3B 00 5B |SN.O$f.;.U$p.;.[|
00000480: 24 7A 03 3B 00 61 24 84 03 3B 00 67 24 8E 03 3B |$z.;.a$..;.g$..;|
00000490: 00 84 24 98 03 3B 2A 2A 2A 20 43 45 4E 54 52 4F |..$..;*** CENTRO|
000004A0: 4E 49 43 53 2D 49 4E 49 54 20 2A 2A 2A 00 95 24 |NICS-INIT ***..$|
000004B0: A2 03 43 45 4E 54 49 4E 49 54 20 53 45 49 00 A2 |..CENTINIT SEI..|
000004C0: 24 AC 03 20 4C 44 41 23 24 46 46 00 B0 24 B6 03 |$.. LDA#$FF..$..|
000004D0: 20 53 54 41 24 44 44 30 33 00 BE 24 C0 03 20 4C | STA$DD03..$.. L|
000004E0: 44 41 24 44 44 30 32 00 CB 24 CA 03 20 4F 52 41 |DA$DD02..$.. ORA|
000004F0: 23 24 30 34 00 D9 24 D4 03 20 53 54 41 24 44 44 |#$04..$.. STA$DD|
00000500: 30 32 00 E7 24 DE 03 20 4C 44 41 24 44 44 30 30 |02..$.. LDA$DD00|
00000510: 00 F4 24 E8 03 20 4F 52 41 23 24 30 34 00 02 25 |..$.. ORA#$04..%|
00000520: F2 03 20 53 54 41 24 44 44 30 30 00 0F 25 FC 03 |.. STA$DD00..%..|
00000530: 20 4C 44 41 23 24 31 30 00 1D 25 06 04 20 53 54 | LDA#$10..%.. ST|
00000540: 41 24 44 44 30 44 00 2B 25 10 04 20 4C 44 41 24 |A$DD0D.+%.. LDA$|
00000550: 44 44 30 44 00 3F 25 1A 04 20 4C 44 41 23 3C 28 |DD0D.?%.. LDA#<(|
00000560: 43 45 4E 54 4F 55 54 29 00 50 25 24 04 20 53 54 |CENTOUT).P%$. ST|
00000570: 41 53 50 52 55 4E 47 2B 31 00 64 25 2E 04 20 4C |ASPRUNG+1.d%.. L|
00000580: 44 41 23 3E 28 43 45 4E 54 4F 55 54 29 00 75 25 |DA#>(CENTOUT).u%|
00000590: 38 04 20 53 54 41 53 50 52 55 4E 47 2B 32 00 7E |8. STASPRUNG+2.~|
000005A0: 25 42 04 20 43 4C 49 00 87 25 4C 04 20 52 54 53 |%B. CLI..%L. RTS|
000005B0: 00 8D 25 56 04 3B 00 93 25 60 04 3B 00 AD 25 6A |..%V.;..%`.;..%j|
000005C0: 04 3B 2A 2A 2A 20 53 45 52 49 45 4C 4C 2D 49 4E |.;*** SERIELL-IN|
000005D0: 49 54 20 2A 2A 2A 00 BD 25 74 04 53 45 52 49 4E |IT ***..%t.SERIN|
000005E0: 49 54 20 53 45 49 00 D3 25 7E 04 20 4C 44 41 23 |IT SEI..%~. LDA#|
000005F0: 3C 28 42 53 4F 55 54 4F 52 49 47 29 00 E4 25 88 |<(BSOUTORIG)..%.|
00000600: 04 20 53 54 41 53 50 52 55 4E 47 2B 31 00 FA 25 |. STASPRUNG+1..%|
00000610: 92 04 20 4C 44 41 23 3E 28 42 53 4F 55 54 4F 52 |.. LDA#>(BSOUTOR|
00000620: 49 47 29 00 0B 26 9C 04 20 53 54 41 53 50 52 55 |IG)..&.. STASPRU|
00000630: 4E 47 2B 32 00 14 26 A6 04 20 43 4C 49 00 1D 26 |NG+2..&.. CLI..&|
00000640: B0 04 20 52 54 53 00 23 26 BA 04 3B 00 29 26 C4 |.. RTS.#&..;.)&.|
00000650: 04 3B 00 4F 26 CE 04 3B 2A 2A 2A 20 41 55 53 47 |.;.O&..;*** AUSG|
00000660: 41 42 45 20 55 45 42 45 52 20 43 45 4E 54 52 4F |ABE UEBER CENTRO|
00000670: 4E 49 43 53 20 2A 2A 2A 00 64 26 D8 04 43 45 4E |NICS ***.d&..CEN|
00000680: 54 4F 55 54 20 53 54 41 24 44 44 30 31 00 72 26 |TOUT STA$DD01.r&|
00000690: E2 04 20 4C 44 41 24 44 44 30 30 00 7F 26 EC 04 |.. LDA$DD00..&..|
000006A0: 20 41 4E 44 23 24 46 42 00 8D 26 F6 04 20 53 54 | AND#$FB..&.. ST|
000006B0: 41 24 44 44 30 30 00 9A 26 00 05 20 4F 52 41 23 |A$DD00..&.. ORA#|
000006C0: 24 30 34 00 A8 26 0A 05 20 53 54 41 24 44 44 30 |$04..&.. STA$DD0|
000006D0: 30 00 BA 26 14 05 57 41 49 54 20 4C 44 41 24 44 |0..&..WAIT LDA$D|
000006E0: 44 30 44 00 C7 26 1E 05 20 41 4E 44 23 24 31 30 |D0D..&.. AND#$10|
000006F0: 00 D4 26 28 05 20 42 45 51 57 41 49 54 00 DD 26 |..&(. BEQWAIT..&|
00000700: 32 05 20 43 4C 43 00 E6 26 3C 05 20 52 54 53 00 |2. CLC..&<. RTS.|
00000710: EC 26 46 05 3B 00 F2 26 50 05 3B 00 09 27 BE 05 |.&F.;..&P.;..'..|
00000720: 3B 2A 2A 2A 20 42 53 4F 55 54 2D 4E 45 55 20 2A |;*** BSOUT-NEU *|
00000730: 2A 2A 00 0F 27 C8 05 3B 00 2B 27 D2 05 3B 2A 41 |**..'..;.+'..;*A|
00000740: 55 53 47 41 42 45 20 41 55 46 20 44 52 55 43 4B |USGABE AUF DRUCK|
00000750: 45 52 3F 2A 00 3C 27 DC 05 42 53 4F 55 54 4E 45 |ER?*.<'..BSOUTNE|
00000760: 55 20 50 48 41 00 4B 27 E6 05 20 4C 44 41 44 45 |U PHA.K'.. LDADE|
00000770: 56 49 43 45 00 56 27 F0 05 20 43 4D 50 23 34 00 |VICE.V'.. CMP#4.|
00000780: 68 27 FA 05 20 42 43 43 42 53 4F 55 54 4E 45 55 |h'.. BCCBSOUTNEU|
00000790: 31 00 73 27 04 06 20 43 4D 50 23 37 00 82 27 0E |1.s'.. CMP#7..'.|
000007A0: 06 20 42 43 43 42 53 4F 55 54 31 00 94 27 18 06 |. BCCBSOUT1..'..|
000007B0: 42 53 4F 55 54 4E 45 55 31 20 50 4C 41 00 A6 27 |BSOUTNEU1 PLA..'|
000007C0: 22 06 20 4A 4D 50 42 53 4F 55 54 4F 52 49 47 00 |". JMPBSOUTORIG.|
000007D0: AC 27 2C 06 3B 00 B2 27 36 06 3B 00 D3 27 40 06 |.',.;..'6.;..'@.|
000007E0: 3B 2A 42 59 54 45 20 57 41 4E 44 45 4C 4E 20 55 |;*BYTE WANDELN U|
000007F0: 4E 44 20 41 55 53 47 45 42 45 4E 2A 00 E7 27 4A |ND AUSGEBEN*..'J|
00000800: 06 42 53 4F 55 54 31 20 53 54 58 44 48 45 4C 50 |.BSOUT1 STXDHELP|
00000810: 00 F0 27 54 06 20 50 4C 41 00 03 28 5E 06 20 4C |..'T. PLA..(^. L|
00000820: 44 58 57 41 4E 44 45 4C 46 4C 41 47 00 12 28 68 |DXWANDELFLAG..(h|
00000830: 06 20 42 4D 49 42 53 4F 55 54 32 00 1B 28 72 06 |. BMIBSOUT2..(r.|
00000840: 20 54 41 58 00 24 28 7C 06 20 44 45 58 00 37 28 | TAX.$(|. DEX.7(|
00000850: 86 06 20 4C 44 41 44 54 41 42 45 4C 4C 45 2C 58 |.. LDADTABELLE,X|
00000860: 00 4B 28 90 06 42 53 4F 55 54 32 20 4C 44 58 44 |.K(..BSOUT2 LDXD|
00000870: 48 45 4C 50 00 63 28 9A 06 53 50 52 55 4E 47 20 |HELP.c(..SPRUNG |
00000880: 4A 4D 50 42 53 4F 55 54 4F 52 49 47 00 72 28 A4 |JMPBSOUTORIG.r(.|
00000890: 06 44 48 45 4C 50 20 2E 42 59 30 00 78 28 AE 06 |.DHELP .BY0.x(..|
000008A0: 3B 00 7E 28 B8 06 3B 00 84 28 C2 06 3B 00 8A 28 |;.~(..;..(..;..(|
000008B0: CC 06 3B 00 90 28 D6 06 3B 00 96 28 E0 06 3B 00 |..;..(..;..(..;.|
000008C0: B3 28 EA 06 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(..;***********|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 28 F4 |************..(.|
000008E0: 06 3B 2A 20 20 20 20 20 20 20 4D 41 4B 52 4F 53 |.;* MAKROS|
000008F0: 20 20 20 20 20 20 20 20 2A 00 ED 28 FE 06 3B 2A | *..(..;*|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 2A 2A 2A 2A 2A 00 F3 28 08 07 3B 00 F9 28 12 |******..(..;..(.|
00000920: 07 3B 00 11 29 1C 07 2E 45 51 20 49 52 51 56 45 |.;..)...EQ IRQVE|
00000930: 4B 54 4F 52 3D 24 30 33 31 34 00 27 29 26 07 2E |KTOR=$0314.')&..|
00000940: 45 51 20 49 52 51 4F 52 49 47 3D 24 45 41 33 31 |EQ IRQORIG=$EA31|
00000950: 00 37 29 30 07 2E 45 51 20 4B 45 59 3D 24 43 35 |.7)0..EQ KEY=$C5|
00000960: 00 4A 29 3A 07 2E 45 51 20 43 54 52 4C 3D 24 30 |.J):..EQ CTRL=$0|
00000970: 32 38 44 00 5F 29 44 07 2E 45 51 20 50 55 46 46 |28D._)D..EQ PUFF|
00000980: 45 52 3D 24 30 32 37 36 00 72 29 4E 07 2E 45 51 |ER=$0276.r)N..EQ|
00000990: 20 41 4E 5A 41 48 4C 3D 24 43 36 00 89 29 58 07 | ANZAHL=$C6..)X.|
000009A0: 2E 45 51 20 4D 54 41 42 45 4C 4C 45 3D 24 30 36 |.EQ MTABELLE=$06|
000009B0: 30 30 00 8F 29 62 07 3B 00 95 29 6C 07 3B 00 9B |00..)b.;..)l.;..|
000009C0: 29 76 07 3B 00 A1 29 80 07 3B 00 C0 29 8A 07 3B |)v.;..)..;..)..;|
000009D0: 2A 2A 2A 20 49 52 51 2D 52 4F 55 54 49 4E 45 20 |*** IRQ-ROUTINE |
000009E0: 49 4E 49 54 2E 20 2A 2A 2A 00 D3 29 94 07 4D 41 |INIT. ***..)..MA|
000009F0: 4B 52 4F 53 49 4E 49 54 20 53 45 49 00 EA 29 9E |KROSINIT SEI..).|
00000A00: 07 20 4C 44 41 23 3C 28 49 52 51 52 4F 55 54 49 |. LDA#<(IRQROUTI|
00000A10: 4E 45 29 00 FC 29 A8 07 20 53 54 41 49 52 51 56 |NE)..).. STAIRQV|
00000A20: 45 4B 54 4F 52 00 13 2A B2 07 20 4C 44 41 23 3E |EKTOR..*.. LDA#>|
00000A30: 28 49 52 51 52 4F 55 54 49 4E 45 29 00 27 2A BC |(IRQROUTINE).'*.|
00000A40: 07 20 53 54 41 49 52 51 56 45 4B 54 4F 52 2B 31 |. STAIRQVEKTOR+1|
00000A50: 00 39 2A C6 07 20 4A 53 52 44 45 4C 4D 41 4B 52 |.9*.. JSRDELMAKR|
00000A60: 4F 53 00 42 2A D0 07 20 43 4C 49 00 4B 2A DA 07 |OS.B*.. CLI.K*..|
00000A70: 20 52 54 53 00 51 2A E4 07 3B 00 57 2A EE 07 3B | RTS.Q*..;.W*..;|
00000A80: 00 5D 2A F8 07 3B 00 78 2A 02 08 3B 2A 2A 2A 20 |.]*..;.x*..;*** |
00000A90: 52 54 49 20 56 45 52 42 49 45 47 45 4E 20 2A 2A |RTI VERBIEGEN **|
00000AA0: 2A 00 94 2A 0C 08 49 52 51 52 4F 55 54 49 4E 45 |*..*..IRQROUTINE|
00000AB0: 20 50 4C 41 3B 4E 41 43 48 20 49 52 51 00 AF 2A | PLA;NACH IRQ..*|
00000AC0: 16 08 20 53 54 41 52 45 47 49 53 54 45 52 3B 41 |.. STAREGISTER;A|
00000AD0: 55 46 20 53 54 41 43 4B 00 CB 2A 20 08 20 50 4C |UF STACK..* . PL|
00000AE0: 41 3B 47 45 52 45 54 54 45 54 45 20 52 45 47 49 |A;GERETTETE REGI|
00000AF0: 53 54 45 52 00 E8 2A 2A 08 20 53 54 41 52 45 47 |STER..**. STAREG|
00000B00: 49 53 54 45 52 2B 31 3B 48 4F 4C 45 4E 20 55 4E |ISTER+1;HOLEN UN|
00000B10: 44 00 03 2B 34 08 20 50 4C 41 3B 5A 57 49 53 43 |D..+4. PLA;ZWISC|
00000B20: 48 45 4E 53 50 45 49 43 48 45 52 4E 00 16 2B 3E |HENSPEICHERN..+>|
00000B30: 08 20 53 54 41 52 45 47 49 53 54 45 52 2B 32 00 |. STAREGISTER+2.|
00000B40: 1C 2B 48 08 3B 00 49 2B 52 08 20 4C 44 41 23 3E |.+H.;.I+R. LDA#>|
00000B50: 28 52 4F 55 54 49 4E 45 29 3B 41 44 52 45 53 53 |(ROUTINE);ADRESS|
00000B60: 45 20 44 45 52 20 48 41 55 50 54 52 4F 55 54 49 |E DER HAUPTROUTI|
00000B70: 4E 45 00 61 2B 5C 08 20 50 48 41 3B 55 4E 44 20 |NE.a+\. PHA;UND |
00000B80: 53 54 41 54 55 53 20 41 55 46 00 83 2B 66 08 20 |STATUS AUF..+f. |
00000B90: 4C 44 41 23 3C 28 52 4F 55 54 49 4E 45 29 3B 53 |LDA#<(ROUTINE);S|
00000BA0: 54 41 43 4B 20 42 52 49 4E 47 45 4E 00 8C 2B 70 |TACK BRINGEN..+p|
00000BB0: 08 20 50 48 41 00 95 2B 7A 08 20 50 48 50 00 B6 |. PHA..+z. PHP..|
00000BC0: 2B 84 08 20 4C 44 41 52 45 47 49 53 54 45 52 2B |+.. LDAREGISTER+|
00000BD0: 32 3B 41 4E 53 43 48 4C 49 45 53 53 45 4E 44 00 |2;ANSCHLIESSEND.|
00000BE0: CF 2B 8E 08 20 50 48 41 3B 52 45 47 49 53 54 45 |.+.. PHA;REGISTE|
00000BF0: 52 49 4E 48 41 4C 54 45 00 EE 2B 98 08 20 4C 44 |RINHALTE..+.. LD|
00000C00: 41 52 45 47 49 53 54 45 52 2B 31 3B 41 55 43 48 |AREGISTER+1;AUCH|
00000C10: 20 57 49 45 44 45 52 00 09 2C A2 08 20 50 48 41 | WIEDER..,.. PHA|
00000C20: 3B 41 55 46 20 53 54 41 43 4B 20 42 52 49 4E 47 |;AUF STACK BRING|
00000C30: 45 4E 00 1A 2C AC 08 20 4C 44 41 52 45 47 49 53 |EN..,.. LDAREGIS|
00000C40: 54 45 52 00 23 2C B6 08 20 50 48 41 00 4A 2C C0 |TER.#,.. PHA.J,.|
00000C50: 08 20 4A 4D 50 49 52 51 4F 52 49 47 3B 3D 3E 20 |. JMPIRQORIG;=> |
00000C60: 4E 4F 52 4D 41 4C 45 20 49 52 51 2D 52 4F 55 54 |NORMALE IRQ-ROUT|
00000C70: 49 4E 45 00 50 2C CA 08 3B 00 56 2C D4 08 3B 00 |INE.P,..;.V,..;.|
00000C80: 74 2C DE 08 3B 2A 2A 2A 20 49 52 51 2D 48 41 55 |t,..;*** IRQ-HAU|
00000C90: 50 54 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 94 2C |PTROUTINE ***..,|
00000CA0: E8 08 52 4F 55 54 49 4E 45 20 50 48 41 3B 52 45 |..ROUTINE PHA;RE|
00000CB0: 47 49 53 54 45 52 20 52 45 54 54 45 4E 00 9D 2C |GISTER RETTEN..,|
00000CC0: F2 08 20 54 58 41 00 A6 2C FC 08 20 50 48 41 00 |.. TXA..,.. PHA.|
00000CD0: AF 2C 06 09 20 54 59 41 00 B8 2C 10 09 20 50 48 |.,.. TYA..,.. PH|
00000CE0: 41 00 BE 2C 1A 09 3B 00 D6 2C 24 09 20 4C 44 41 |A..,..;..,$. LDA|
00000CF0: 4B 45 59 3B 4B 45 49 4E 45 20 54 41 53 54 45 00 |KEY;KEINE TASTE.|
00000D00: ED 2C 2E 09 20 43 4D 50 23 36 34 3B 47 45 44 52 |.,.. CMP#64;GEDR|
00000D10: 55 45 43 4B 54 3F 00 01 2D 38 09 20 42 45 51 49 |UECKT?..-8. BEQI|
00000D20: 52 51 45 4E 44 3B 4A 41 3D 3E 00 07 2D 42 09 3B |RQEND;JA=>..-B.;|
00000D30: 00 2B 2D 4C 09 20 43 4D 50 4C 41 53 54 4B 45 59 |.+-L. CMPLASTKEY|
00000D40: 3B 54 41 53 54 45 3D 4C 45 54 5A 54 45 20 54 41 |;TASTE=LETZTE TA|
00000D50: 53 54 45 3F 00 49 2D 56 09 20 42 45 51 49 52 51 |STE?.I-V. BEQIRQ|
00000D60: 45 4E 44 3B 4A 41 3D 3E 49 47 4E 4F 52 49 45 52 |END;JA=>IGNORIER|
00000D70: 45 4E 00 4F 2D 60 09 3B 00 70 2D 6A 09 20 4C 44 |EN.O-`.;.p-j. LD|
00000D80: 41 46 4C 41 47 3B 44 45 46 49 4E 45 46 4C 41 47 |AFLAG;DEFINEFLAG|
00000D90: 20 47 45 53 45 54 5A 54 3F 00 8A 2D 74 09 20 42 | GESETZT?..-t. B|
00000DA0: 4E 45 44 45 46 49 4E 45 3B 4A 41 3D 3E 44 45 46 |NEDEFINE;JA=>DEF|
00000DB0: 49 4E 45 00 90 2D 7E 09 3B 00 AE 2D 88 09 20 4C |INE..-~.;..-.. L|
00000DC0: 44 41 43 54 52 4C 3B 43 54 52 4C 2D 4B 4F 4D 42 |DACTRL;CTRL-KOMB|
00000DD0: 49 4E 41 54 49 4F 4E 00 CE 2D 92 09 20 43 4D 50 |INATION..-.. CMP|
00000DE0: 23 34 3B 28 3D 4D 41 4B 52 4F 41 55 53 46 55 45 |#4;(=MAKROAUSFUE|
00000DF0: 48 52 55 4E 47 29 3F 00 E0 2D 9C 09 20 42 45 51 |HRUNG)?..-.. BEQ|
00000E00: 49 52 51 31 3B 4A 41 3D 3E 00 E6 2D A6 09 3B 00 |IRQ1;JA=>..-..;.|
00000E10: 03 2E B0 09 20 43 4D 50 23 32 3B 43 3D 20 2D 20 |.... CMP#2;C= - |
00000E20: 4B 4F 4D 42 49 4E 41 54 49 4F 4E 3F 00 23 2E BA |KOMBINATION?.#..|
00000E30: 09 20 42 4E 45 49 52 51 45 4E 44 3B 4E 45 49 4E |. BNEIRQEND;NEIN|
00000E40: 3D 3E 49 47 4E 4F 52 49 45 52 45 4E 00 29 2E C4 |=>IGNORIEREN.)..|
00000E50: 09 3B 00 41 2E CE 09 20 4C 44 41 4B 45 59 3B 43 |.;.A... LDAKEY;C|
00000E60: 3D 20 2B 20 53 50 41 43 45 3F 00 4D 2E D8 09 20 |= + SPACE?.M... |
00000E70: 43 4D 50 23 36 30 00 62 2E E2 09 20 42 4E 45 4E |CMP#60.b... BNEN|
00000E80: 4F 44 45 4C 3B 4E 45 49 4E 3D 3E 00 68 2E EC 09 |ODEL;NEIN=>.h...|
00000E90: 3B 00 6E 2E F6 09 3B 00 87 2E 00 0A 3B 2A 20 4D |;.n...;.....;* M|
00000EA0: 41 4B 52 4F 53 20 4C 4F 45 53 43 48 45 4E 20 2A |AKROS LOESCHEN *|
00000EB0: 00 95 2E 0A 0A 20 49 4E 43 35 33 32 38 30 00 A0 |..... INC53280..|
00000EC0: 2E 14 0A 20 4C 44 59 23 30 00 B6 2E 1E 0A 4C 4F |... LDY#0.....LO|
00000ED0: 4F 50 20 4A 53 52 44 45 4C 4D 41 4B 52 4F 53 00 |OP JSRDELMAKROS.|
00000EE0: BF 2E 28 0A 20 44 45 59 00 CC 2E 32 0A 20 42 4E |..(. DEY...2. BN|
00000EF0: 45 4C 4F 4F 50 00 DA 2E 3C 0A 20 44 45 43 35 33 |ELOOP...<. DEC53|
00000F00: 32 38 30 00 E9 2E 46 0A 20 4A 4D 50 49 52 51 45 |280...F. JMPIRQE|
00000F10: 4E 44 00 EF 2E 50 0A 3B 00 0C 2F 5A 0A 4E 4F 44 |ND...P.;../Z.NOD|
00000F20: 45 4C 20 43 4D 50 23 31 3B 43 3D 20 2B 20 52 45 |EL CMP#1;C= + RE|
00000F30: 54 55 52 4E 3F 00 2C 2F 64 0A 20 42 4E 45 49 52 |TURN?.,/d. BNEIR|
00000F40: 51 45 4E 44 3B 4E 45 49 4E 3D 3E 49 47 4E 4F 52 |QEND;NEIN=>IGNOR|
00000F50: 49 45 52 45 4E 00 32 2F 6E 0A 3B 00 5A 2F 78 0A |IEREN.2/n.;.Z/x.|
00000F60: 3B 2A 20 4D 41 4B 52 4F 44 45 46 49 4E 49 54 49 |;* MAKRODEFINITI|
00000F70: 4F 4E 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 |ON INITIALISIERE|
00000F80: 4E 20 2A 00 68 2F 82 0A 20 49 4E 43 35 33 32 38 |N *.h/.. INC5328|
00000F90: 30 00 75 2F 8C 0A 20 49 4E 43 46 4C 41 47 00 81 |0.u/.. INCFLAG..|
00000FA0: 2F 96 0A 20 4C 44 58 23 31 31 00 8C 2F A0 0A 20 |/.. LDX#11../.. |
00000FB0: 4C 44 41 23 30 00 A5 2F AA 0A 49 4E 49 54 4D 41 |LDA#0../..INITMA|
00000FC0: 4B 52 4F 20 53 54 41 4D 41 4B 52 4F 2C 58 00 AE |KRO STAMAKRO,X..|
00000FD0: 2F B4 0A 20 44 45 58 00 C0 2F BE 0A 20 42 50 4C |/.. DEX../.. BPL|
00000FE0: 49 4E 49 54 4D 41 4B 52 4F 00 CF 2F C8 0A 20 42 |INITMAKRO../.. B|
00000FF0: 4D 49 49 52 51 45 4E 44 00 D5 2F D2 0A 3B 00 DB |MIIRQEND../..;..|
00001000: 2F DC 0A 3B 00 EB 2F E6 0A 3B 2A 20 4D 41 4B 52 |/..;../..;* MAKR|
00001010: 4F 3F 20 2A 00 13 30 F0 0A 49 52 51 31 20 4C 44 |O? *..0..IRQ1 LD|
00001020: 41 4B 45 59 3B 43 54 52 4C 2D 4B 4F 4D 42 49 4E |AKEY;CTRL-KOMBIN|
00001030: 41 54 49 4F 4E 20 53 55 43 48 45 4E 00 22 30 FA |ATION SUCHEN."0.|
00001040: 0A 20 53 54 41 5A 57 49 53 43 48 00 31 30 04 0B |. STAZWISCH.10..|
00001050: 20 4A 53 52 53 45 41 52 43 48 00 51 30 0E 0B 20 | JSRSEARCH.Q0.. |
00001060: 42 43 43 49 52 51 45 4E 44 3B 4E 49 43 48 54 20 |BCCIRQEND;NICHT |
00001070: 47 45 46 55 4E 44 45 4E 3D 3E 00 57 30 18 0B 3B |GEFUNDEN=>.W0..;|
00001080: 00 71 30 22 0B 20 4C 44 59 23 30 3B 53 4F 4E 53 |.q0". LDY#0;SONS|
00001090: 54 20 4D 41 4B 52 4F 20 49 4E 00 96 30 2C 0B 43 |T MAKRO IN..0,.C|
000010A0: 4F 50 59 20 49 4E 58 3B 54 41 53 54 41 54 55 52 |OPY INX;TASTATUR|
000010B0: 50 55 46 46 45 52 20 4B 4F 50 49 45 52 45 4E 00 |PUFFER KOPIEREN.|
000010C0: 9F 30 36 0B 20 49 4E 59 00 B2 30 40 0B 20 4C 44 |.06. INY..0@. LD|
000010D0: 41 4D 54 41 42 45 4C 4C 45 2C 58 00 C0 30 4A 0B |AMTABELLE,X..0J.|
000010E0: 20 42 45 51 43 4F 50 59 31 00 D1 30 54 0B 20 53 | BEQCOPY1..0T. S|
000010F0: 54 41 50 55 46 46 45 52 2C 59 00 DE 30 5E 0B 20 |TAPUFFER,Y..0^. |
00001100: 42 4E 45 43 4F 50 59 00 EC 30 68 0B 43 4F 50 59 |BNECOPY..0h.COPY|
00001110: 31 20 44 45 59 00 FB 30 72 0B 20 53 54 59 41 4E |1 DEY..0r. STYAN|
00001120: 5A 41 48 4C 00 01 31 7C 0B 3B 00 07 31 86 0B 3B |ZAHL..1|.;..1..;|
00001130: 00 17 31 90 0B 3B 2A 20 49 52 51 45 4E 44 20 2A |..1..;* IRQEND *|
00001140: 00 3D 31 9A 0B 49 52 51 45 4E 44 20 4C 44 41 4B |.=1..IRQEND LDAK|
00001150: 45 59 3B 41 4B 54 55 45 4C 4C 45 20 54 41 53 54 |EY;AKTUELLE TAST|
00001160: 45 20 46 55 45 52 00 65 31 A4 0B 20 53 54 41 4C |E FUER.e1.. STAL|
00001170: 41 53 54 4B 45 59 3B 4E 41 45 43 48 53 54 45 4E |ASTKEY;NAECHSTEN|
00001180: 20 41 55 46 52 55 46 20 52 45 54 54 45 4E 00 6B | AUFRUF RETTEN.k|
00001190: 31 AE 0B 3B 00 83 31 B8 0B 20 50 4C 41 3B 52 45 |1..;..1.. PLA;RE|
000011A0: 47 49 53 54 45 52 20 48 4F 4C 45 4E 00 98 31 C2 |GISTER HOLEN..1.|
000011B0: 0B 20 54 41 59 3B 55 4E 44 20 52 54 49 20 5A 55 |. TAY;UND RTI ZU|
000011C0: 52 00 B0 31 CC 0B 20 50 4C 41 3B 4F 52 49 47 49 |R..1.. PLA;ORIGI|
000011D0: 4E 41 4C 41 44 52 45 53 45 00 B9 31 D6 0B 20 54 |NALADRESE..1.. T|
000011E0: 41 58 00 C2 31 E0 0B 20 50 4C 41 00 CB 31 EA 0B |AX..1.. PLA..1..|
000011F0: 20 52 54 49 00 D1 31 F4 0B 3B 00 D7 31 FE 0B 3B | RTI..1..;..1..;|
00001200: 00 EB 31 08 0C 3B 2A 2A 2A 20 44 45 46 49 4E 45 |..1..;*** DEFINE|
00001210: 20 2A 2A 2A 00 0B 32 12 0C 44 45 46 49 4E 45 20 | ***..2..DEFINE |
00001220: 4C 44 41 43 54 52 4C 3B 43 3D 20 2B 20 52 45 54 |LDACTRL;C= + RET|
00001230: 55 52 4E 3F 00 25 32 1C 0C 20 43 4D 50 23 32 3B |URN?.%2.. CMP#2;|
00001240: 4E 45 49 4E 3D 3E 20 50 55 46 46 45 52 4E 00 35 |NEIN=> PUFFERN.5|
00001250: 32 26 0C 20 42 4E 45 50 55 46 46 45 52 4E 00 41 |2&. BNEPUFFERN.A|
00001260: 32 30 0C 20 4C 44 41 4B 45 59 00 4C 32 3A 0C 20 |20. LDAKEY.L2:. |
00001270: 43 4D 50 23 31 00 5C 32 44 0C 20 42 4E 45 50 55 |CMP#1.\2D. BNEPU|
00001280: 46 46 45 52 4E 00 62 32 4E 0C 3B 00 73 32 58 0C |FFERN.b2N.;.s2X.|
00001290: 3B 2A 20 44 45 46 53 41 56 45 20 2A 00 A0 32 62 |;* DEFSAVE *..2b|
000012A0: 0C 44 45 46 53 41 56 45 20 4C 44 41 4D 41 4B 52 |.DEFSAVE LDAMAKR|
000012B0: 4F 3B 43 54 52 4C 2D 4B 4F 4D 42 49 4E 41 54 49 |O;CTRL-KOMBINATI|
000012C0: 4F 4E 20 53 55 43 48 45 4E 00 C5 32 6C 0C 20 53 |ON SUCHEN..2l. S|
000012D0: 54 41 5A 57 49 53 43 48 3B 4D 41 4B 52 4F 20 41 |TAZWISCH;MAKRO A|
000012E0: 4E 20 42 45 54 52 45 46 46 45 4E 44 45 52 00 E4 |N BETREFFENDER..|
000012F0: 32 76 0C 20 4A 53 52 53 45 41 52 43 48 3B 50 4F |2v. JSRSEARCH;PO|
00001300: 53 49 54 49 4F 4E 20 49 4E 20 44 49 45 00 05 33 |SITION IN DIE..3|
00001310: 80 0C 20 4C 44 59 23 30 3B 4D 41 4B 52 4F 54 41 |.. LDY#0;MAKROTA|
00001320: 42 45 4C 4C 45 20 4B 4F 50 49 45 52 45 4E 00 1D |BELLE KOPIEREN..|
00001330: 33 8A 0C 44 45 46 53 41 56 45 31 20 4C 44 41 4D |3..DEFSAVE1 LDAM|
00001340: 41 4B 52 4F 2C 59 00 30 33 94 0C 20 53 54 41 4D |AKRO,Y.03.. STAM|
00001350: 54 41 42 45 4C 4C 45 2C 58 00 39 33 9E 0C 20 49 |TABELLE,X.93.. I|
00001360: 4E 59 00 42 33 A8 0C 20 49 4E 58 00 4E 33 B2 0C |NY.B3.. INX.N3..|
00001370: 20 43 50 59 23 31 31 00 5F 33 BC 0C 20 42 4E 45 | CPY#11._3.. BNE|
00001380: 44 45 46 53 41 56 45 31 00 65 33 C6 0C 3B 00 73 |DEFSAVE1.e3..;.s|
00001390: 33 D0 0C 20 44 45 43 35 33 32 38 30 00 80 33 DA |3.. DEC53280..3.|
000013A0: 0C 20 44 45 43 46 4C 41 47 00 8F 33 E4 0C 20 4A |. DECFLAG..3.. J|
000013B0: 4D 50 49 52 51 45 4E 44 00 95 33 EE 0C 3B 00 A6 |MPIRQEND..3..;..|
000013C0: 33 F8 0C 3B 2A 20 50 55 46 46 45 52 4E 20 2A 00 |3..;* PUFFERN *.|
000013D0: C9 33 02 0D 50 55 46 46 45 52 4E 20 4C 44 58 23 |.3..PUFFERN LDX#|
000013E0: 30 3B 46 52 45 49 20 50 4F 53 49 54 49 4F 4E 20 |0;FREI POSITION |
000013F0: 49 4D 00 F6 33 0C 0D 50 55 46 46 45 52 4E 31 20 |IM..3..PUFFERN1 |
00001400: 4C 44 41 4D 41 4B 52 4F 2C 58 3B 4D 41 4B 52 4F |LDAMAKRO,X;MAKRO|
00001410: 53 50 45 49 43 48 45 52 20 53 55 43 48 45 4E 00 |SPEICHER SUCHEN.|
00001420: 07 34 16 0D 20 42 45 51 50 55 46 46 45 52 4E 32 |.4.. BEQPUFFERN2|
00001430: 00 10 34 20 0D 20 49 4E 58 00 21 34 2A 0D 20 42 |..4 . INX.!4*. B|
00001440: 4E 45 50 55 46 46 45 52 4E 31 00 27 34 34 0D 3B |NEPUFFERN1.'44.;|
00001450: 00 42 34 3E 0D 50 55 46 46 45 52 4E 32 20 4C 44 |.B4>.PUFFERN2 LD|
00001460: 41 43 54 52 4C 3B 43 54 52 4C 2D 00 5A 34 48 0D |ACTRL;CTRL-.Z4H.|
00001470: 20 43 4D 50 23 34 3B 4B 4F 4D 42 49 4E 41 54 49 | CMP#4;KOMBINATI|
00001480: 4F 4E 3F 00 72 34 52 0D 20 42 4E 45 50 55 46 46 |ON?.r4R. BNEPUFF|
00001490: 45 52 4E 33 3B 4E 45 49 4E 3D 3E 00 A2 34 5C 0D |ERN3;NEIN=>..4\.|
000014A0: 20 44 45 43 41 4E 5A 41 48 4C 3B 41 55 53 47 41 | DECANZAHL;AUSGA|
000014B0: 42 45 20 44 45 52 20 43 54 52 4C 2D 4B 4F 4D 42 |BE DER CTRL-KOMB|
000014C0: 2E 56 45 52 48 49 4E 44 45 52 4E 00 AE 34 66 0D |.VERHINDERN..4f.|
000014D0: 20 4C 44 41 4B 45 59 00 BF 34 70 0D 20 42 4E 45 | LDAKEY..4p. BNE|
000014E0: 50 55 46 46 45 52 4E 34 00 D4 34 7A 0D 50 55 46 |PUFFERN4..4z.PUF|
000014F0: 46 45 52 4E 33 20 4A 53 52 43 48 41 52 00 EC 34 |FERN3 JSRCHAR..4|
00001500: 84 0D 50 55 46 46 45 52 4E 34 20 53 54 41 4D 41 |..PUFFERN4 STAMA|
00001510: 4B 52 4F 2C 58 00 F8 34 8E 0D 20 43 50 58 23 31 |KRO,X..4.. CPX#1|
00001520: 30 00 08 35 98 0D 20 42 45 51 44 45 46 53 41 56 |0..5.. BEQDEFSAV|
00001530: 45 00 17 35 A2 0D 20 42 4E 45 49 52 51 45 4E 44 |E..5.. BNEIRQEND|
00001540: 00 1D 35 AC 0D 3B 00 23 35 B6 0D 3B 00 37 35 C0 |..5..;.#5..;.75.|
00001550: 0D 3B 2A 2A 2A 20 53 45 41 52 43 48 20 2A 2A 2A |.;*** SEARCH ***|
00001560: 00 48 35 CA 0D 53 45 41 52 43 48 20 4C 44 58 23 |.H5..SEARCH LDX#|
00001570: 30 00 62 35 D4 0D 53 45 41 52 43 48 31 20 4C 44 |0.b5..SEARCH1 LD|
00001580: 41 4D 54 41 42 45 4C 4C 45 2C 58 00 73 35 DE 0D |AMTABELLE,X.s5..|
00001590: 20 42 45 51 4E 4F 54 46 4F 55 4E 44 00 82 35 E8 | BEQNOTFOUND..5.|
000015A0: 0D 20 43 4D 50 5A 57 49 53 43 48 00 90 35 F2 0D |. CMPZWISCH..5..|
000015B0: 20 42 45 51 46 4F 55 4E 44 00 99 35 FC 0D 20 54 | BEQFOUND..5.. T|
000015C0: 58 41 00 A2 35 06 0E 20 43 4C 43 00 AE 35 10 0E |XA..5.. CLC..5..|
000015D0: 20 41 44 43 23 31 32 00 B7 35 1A 0E 20 54 41 58 | ADC#12..5.. TAX|
000015E0: 00 C4 35 24 0E 20 43 50 58 23 32 34 30 00 D4 35 |..5$. CPX#240..5|
000015F0: 2E 0E 20 42 4E 45 53 45 41 52 43 48 31 00 DF 35 |.. BNESEARCH1..5|
00001600: 38 0E 20 4C 44 58 23 30 00 E5 35 42 0E 3B 00 F6 |8. LDX#0..5B.;..|
00001610: 35 4C 0E 4E 4F 54 46 4F 55 4E 44 20 43 4C 43 00 |5L.NOTFOUND CLC.|
00001620: FF 35 56 0E 20 52 54 53 00 0D 36 60 0E 46 4F 55 |.5V. RTS..6`.FOU|
00001630: 4E 44 20 53 45 43 00 16 36 6A 0E 20 52 54 53 00 |ND SEC..6j. RTS.|
00001640: 1C 36 74 0E 3B 00 22 36 7E 0E 3B 00 40 36 88 0E |.6t.;."6~.;.@6..|
00001650: 3B 2A 2A 2A 20 43 48 41 52 3A 20 41 53 43 49 49 |;*** CHAR: ASCII|
00001660: 2D 43 4F 44 45 20 2A 2A 2A 00 53 36 92 0E 43 48 |-CODE ***.S6..CH|
00001670: 41 52 20 4C 44 59 41 4E 5A 41 48 4C 00 64 36 9C |AR LDYANZAHL.d6.|
00001680: 0E 20 4C 44 41 50 55 46 46 45 52 2C 59 00 6D 36 |. LDAPUFFER,Y.m6|
00001690: A6 0E 20 52 54 53 00 73 36 B0 0E 3B 00 79 36 BA |.. RTS.s6..;.y6.|
000016A0: 0E 3B 00 91 36 C4 0E 3B 2A 2A 2A 20 44 45 4C 20 |.;..6..;*** DEL |
000016B0: 4D 41 4B 52 4F 53 20 2A 2A 2A 00 A7 36 CE 0E 44 |MAKROS ***..6..D|
000016C0: 45 4C 4D 41 4B 52 4F 53 20 4C 44 58 23 32 34 30 |ELMAKROS LDX#240|
000016D0: 00 B2 36 D8 0E 20 4C 44 41 23 30 00 C9 36 E2 0E |..6.. LDA#0..6..|
000016E0: 44 45 4C 31 20 53 54 41 4D 54 41 42 45 4C 4C 45 |DEL1 STAMTABELLE|
000016F0: 2C 58 00 D2 36 EC 0E 20 44 45 58 00 DF 36 F6 0E |,X..6.. DEX..6..|
00001700: 20 43 50 58 23 24 46 46 00 EC 36 00 0F 20 42 4E | CPX#$FF..6.. BN|
00001710: 45 44 45 4C 31 00 F5 36 0A 0F 20 52 54 53 00 FB |EDEL1..6.. RTS..|
00001720: 36 14 0F 3B 00 0E 37 1E 0F 4C 41 53 54 4B 45 59 |6..;..7..LASTKEY|
00001730: 20 2E 42 59 24 30 30 00 1E 37 28 0F 46 4C 41 47 | .BY$00..7(.FLAG|
00001740: 20 2E 42 59 24 30 30 00 30 37 32 0F 5A 57 49 53 | .BY$00.072.ZWIS|
00001750: 43 48 20 2E 42 59 24 30 30 00 4C 37 3C 0F 52 45 |CH .BY$00.L7<.RE|
00001760: 47 49 53 54 45 52 20 2E 42 59 24 30 30 2C 24 30 |GISTER .BY$00,$0|
00001770: 30 2C 24 30 30 00 89 37 46 0F 4D 41 4B 52 4F 20 |0,$00..7F.MAKRO |
00001780: 2E 42 59 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |.BY$00,$00,$00,$|
00001790: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |00,$00,$00,$00,$|
000017A0: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |00,$00,$00,$00,$|
000017B0: 30 30 00 8F 37 50 0F 3B 00 95 37 5A 0F 3B 00 9B |00..7P.;..7Z.;..|
000017C0: 37 64 0F 3B 00 A1 37 6E 0F 3B 00 A7 37 78 0F 3B |7d.;..7n.;..7x.;|
000017D0: 00 AD 37 82 0F 3B 00 C5 37 8C 0F 3B 2A 2A 2A 2A |..7..;..7..;****|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DD |**************..|
000017F0: 37 96 0F 3B 2A 20 20 20 46 41 53 54 53 43 52 45 |7..;* FASTSCRE|
00001800: 45 4E 20 20 20 2A 00 F5 37 A0 0F 3B 2A 2A 2A 2A |EN *..7..;****|
00001810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB |**************..|
00001820: 37 AA 0F 3B 00 01 38 B4 0F 3B 00 14 38 BE 0F 2E |7..;..8..;..8...|
00001830: 45 51 20 50 4C 4F 54 3D 24 46 46 46 30 00 28 38 |EQ PLOT=$FFF0.(8|
00001840: C8 0F 2E 45 51 20 42 53 4F 55 54 3D 24 46 31 43 |...EQ BSOUT=$F1C|
00001850: 41 00 3F 38 D2 0F 2E 45 51 20 42 53 4F 55 54 56 |A.?8...EQ BSOUTV|
00001860: 4B 54 3D 24 30 33 32 36 00 53 38 DC 0F 2E 45 51 |KT=$0326.S8...EQ|
00001870: 20 52 56 53 46 4C 41 47 3D 24 43 37 00 67 38 E6 | RVSFLAG=$C7.g8.|
00001880: 0F 2E 45 51 20 43 4F 4C 4F 52 3D 24 30 32 38 36 |..EQ COLOR=$0286|
00001890: 00 7C 38 F0 0F 2E 45 51 20 44 45 56 49 43 45 4E |.|8...EQ DEVICEN|
000018A0: 52 3D 24 39 41 00 90 38 FA 0F 2E 45 51 20 4C 49 |R=$9A..8...EQ LI|
000018B0: 4E 45 50 54 52 3D 24 44 31 00 A0 38 04 10 2E 45 |NEPTR=$D1..8...E|
000018C0: 51 20 43 4F 4C 3D 24 44 33 00 B1 38 0E 10 2E 45 |Q COL=$D3..8...E|
000018D0: 51 20 4C 49 4E 45 3D 24 44 36 00 BF 38 18 10 2E |Q LINE=$D6..8...|
000018E0: 45 51 20 58 3D 24 39 45 00 CD 38 22 10 2E 45 51 |EQ X=$9E..8"..EQ|
000018F0: 20 59 3D 24 39 46 00 E1 38 2C 10 2E 45 51 20 50 | Y=$9F..8,..EQ P|
00001900: 41 49 4E 54 3D 24 44 38 30 30 00 E7 38 36 10 3B |AINT=$D800..86.;|
00001910: 00 ED 38 40 10 3B 00 F3 38 4A 10 3B 00 F9 38 54 |..8@.;..8J.;..8T|
00001920: 10 3B 00 0D 39 5E 10 46 53 43 52 45 45 4E 49 4E |.;..9^.FSCREENIN|
00001930: 49 54 20 53 45 49 00 23 39 68 10 20 4C 44 41 23 |IT SEI.#9h. LDA#|
00001940: 3C 28 46 53 43 52 53 54 41 52 54 29 00 39 39 72 |<(FSCRSTART).99r|
00001950: 10 20 4C 44 58 23 3E 28 46 53 43 52 53 54 41 52 |. LDX#>(FSCRSTAR|
00001960: 54 29 00 4A 39 7C 10 20 53 54 41 42 53 4F 55 54 |T).J9|. STABSOUT|
00001970: 56 4B 54 00 5D 39 86 10 20 53 54 58 42 53 4F 55 |VKT.]9.. STXBSOU|
00001980: 54 56 4B 54 2B 31 00 66 39 90 10 20 43 4C 49 00 |TVKT+1.f9.. CLI.|
00001990: 6F 39 9A 10 20 52 54 53 00 75 39 A4 10 3B 00 7B |o9.. RTS.u9..;.{|
000019A0: 39 AE 10 3B 00 8E 39 B8 10 46 53 43 52 53 54 41 |9..;..9..FSCRSTA|
000019B0: 52 54 20 53 54 58 58 00 94 39 C2 10 3B 00 A5 39 |RT STXX..9..;..9|
000019C0: CC 10 20 4C 44 58 44 45 56 49 43 45 4E 52 00 B0 |.. LDXDEVICENR..|
000019D0: 39 D6 10 20 43 50 58 23 33 00 C4 39 E0 10 20 42 |9.. CPX#3..9.. B|
000019E0: 4E 45 4F 52 49 47 52 4F 55 54 49 4E 45 00 D0 39 |NEORIGROUTINE..9|
000019F0: EA 10 20 4C 44 58 43 4F 4C 00 DC 39 F4 10 20 43 |.. LDXCOL..9.. C|
00001A00: 50 58 23 33 39 00 F0 39 FE 10 20 42 45 51 4F 52 |PX#39..9.. BEQOR|
00001A10: 49 47 52 4F 55 54 49 4E 45 00 FC 39 08 11 20 43 |IGROUTINE..9.. C|
00001A20: 50 58 23 37 39 00 10 3A 12 11 20 42 45 51 4F 52 |PX#79..:.. BEQOR|
00001A30: 49 47 52 4F 55 54 49 4E 45 00 16 3A 1C 11 3B 00 |IGROUTINE..:..;.|
00001A40: 23 3A 26 11 20 43 4D 50 23 22 20 22 00 37 3A 30 |#:&. CMP#" ".7:0|
00001A50: 11 20 42 43 43 4F 52 49 47 52 4F 55 54 49 4E 45 |. BCCORIGROUTINE|
00001A60: 00 49 3A 3A 11 20 43 4D 50 23 39 31 3B 27 5A 27 |.I::. CMP#91;'Z'|
00001A70: 2B 31 00 59 3A 44 11 20 42 43 43 4E 4F 53 48 49 |+1.Y:D. BCCNOSHI|
00001A80: 46 54 00 5F 3A 4E 11 3B 00 74 3A 58 11 4F 52 49 |FT._:N.;.t:X.ORI|
00001A90: 47 52 4F 55 54 49 4E 45 20 4C 44 58 58 00 9A 3A |GROUTINE LDXX..:|
00001AA0: 62 11 20 4A 4D 50 42 53 4F 55 54 4E 45 55 3B 5A |b. JMPBSOUTNEU;Z|
00001AB0: 55 52 20 43 4F 44 45 57 41 4E 44 4C 55 4E 47 20 |UR CODEWANDLUNG |
00001AC0: 21 21 21 00 A0 3A 6C 11 3B 00 A6 3A 76 11 3B 00 |!!!..:l.;..:v.;.|
00001AD0: B6 3A 80 11 4E 4F 53 48 49 46 54 20 50 48 41 00 |.:..NOSHIFT PHA.|
00001AE0: C0 3A 8A 11 20 53 54 59 59 00 CD 3A 94 11 20 41 |.:.. STYY..:.. A|
00001AF0: 4E 44 23 31 39 31 00 DD 3A 9E 11 20 4C 44 58 52 |ND#191..:.. LDXR|
00001B00: 56 53 46 4C 41 47 00 EB 3A A8 11 20 42 45 51 4E |VSFLAG..:.. BEQN|
00001B10: 4F 52 56 53 00 F8 3A B2 11 20 4F 52 41 23 24 38 |ORVS..:.. ORA#$8|
00001B20: 30 00 FE 3A BC 11 3B 00 0F 3B C6 11 4E 4F 52 56 |0..:..;..;..NORV|
00001B30: 53 20 4C 44 59 43 4F 4C 00 23 3B D0 11 20 53 54 |S LDYCOL.#;.. ST|
00001B40: 41 28 4C 49 4E 45 50 54 52 29 2C 59 00 35 3B DA |A(LINEPTR),Y.5;.|
00001B50: 11 20 4C 44 41 4C 49 4E 45 50 54 52 2B 31 00 3E |. LDALINEPTR+1.>|
00001B60: 3B E4 11 20 54 41 58 00 4B 3B EE 11 20 41 4E 44 |;.. TAX.K;.. AND|
00001B70: 23 24 30 33 00 5D 3B F8 11 20 4F 52 41 23 3E 28 |#$03.];.. ORA#>(|
00001B80: 50 41 49 4E 54 29 00 6F 3B 02 12 20 53 54 41 4C |PAINT).o;.. STAL|
00001B90: 49 4E 45 50 54 52 2B 31 00 7D 3B 0C 12 20 4C 44 |INEPTR+1.};.. LD|
00001BA0: 41 43 4F 4C 4F 52 00 91 3B 16 12 20 53 54 41 28 |ACOLOR..;.. STA(|
00001BB0: 4C 49 4E 45 50 54 52 29 2C 59 00 A3 3B 20 12 20 |LINEPTR),Y..; . |
00001BC0: 53 54 58 4C 49 4E 45 50 54 52 2B 31 00 A9 3B 2A |STXLINEPTR+1..;*|
00001BD0: 12 3B 00 B5 3B 34 12 20 49 4E 43 43 4F 4C 00 BB |.;..;4. INCCOL..|
00001BE0: 3B 3E 12 3B 00 C9 3B 48 12 4E 4F 49 4E 43 20 50 |;>.;..;H.NOINC P|
00001BF0: 4C 41 00 D3 3B 52 12 20 4C 44 58 58 00 DD 3B 5C |LA..;R. LDXX..;\|
00001C00: 12 20 4C 44 59 59 00 E6 3B 66 12 20 52 54 53 00 |. LDYY..;f. RTS.|
00001C10: EC 3B 70 12 3B 00 F2 3B 7A 12 3B 00 F8 3B 84 12 |.;p.;..;z.;..;..|
00001C20: 3B 00 FE 3B 8E 12 3B 00 04 3C 98 12 3B 00 1E 3C |;..;..;..<..;..<|
00001C30: A2 12 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00001C40: 2A 2A 2A 2A 2A 2A 2A 00 38 3C AC 12 3B 2A 20 20 |*******.8<..;* |
00001C50: 20 53 45 41 52 43 48 20 43 4F 4D 41 4E 44 20 20 | SEARCH COMAND |
00001C60: 2A 00 52 3C B6 12 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.R<..;*********|
00001C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 3C C0 12 |***********.X<..|
00001C80: 3B 00 5E 3C CA 12 3B 00 71 3C D4 12 2E 45 51 20 |;.^<..;.q<...EQ |
00001C90: 53 54 52 44 45 53 3D 24 46 42 00 86 3C DE 12 2E |STRDES=$FB..<...|
00001CA0: 45 51 20 43 48 4B 4B 4F 4D 3D 24 41 45 46 44 00 |EQ CHKKOM=$AEFD.|
00001CB0: 9B 3C E8 12 2E 45 51 20 47 45 54 42 59 54 3D 24 |.<...EQ GETBYT=$|
00001CC0: 42 37 39 45 00 B0 3C F2 12 2E 45 51 20 47 45 54 |B79E..<...EQ GET|
00001CD0: 50 4F 53 3D 24 42 30 38 42 00 C3 3C FC 12 2E 45 |POS=$B08B..<...E|
00001CE0: 51 20 56 41 52 50 54 52 3D 24 34 37 00 C9 3C 06 |Q VARPTR=$47..<.|
00001CF0: 13 3B 00 E3 3C 10 13 53 43 53 45 41 52 43 48 20 |.;..<..SCSEARCH |
00001D00: 4A 53 52 48 4F 4C 56 41 52 50 54 52 00 EE 3C 1A |JSRHOLVARPTR..<.|
00001D10: 13 20 4C 44 59 23 32 00 14 3D 24 13 48 4F 4C 44 |. LDY#2..=$.HOLD|
00001D20: 45 53 20 4C 44 41 28 56 41 52 50 54 52 29 2C 59 |ES LDA(VARPTR),Y|
00001D30: 3B 44 45 53 43 52 49 50 54 4F 52 45 4E 00 2A 3D |;DESCRIPTOREN.*=|
00001D40: 2E 13 20 53 54 41 53 54 52 44 45 53 2C 59 3B 4E |.. STASTRDES,Y;N|
00001D50: 41 43 48 00 47 3D 38 13 20 44 45 59 3B 53 54 52 |ACH.G=8. DEY;STR|
00001D60: 44 45 53 20 42 49 53 20 53 54 52 44 45 53 2B 32 |DES BIS STRDES+2|
00001D70: 00 56 3D 42 13 20 42 50 4C 48 4F 4C 44 45 53 00 |.V=B. BPLHOLDES.|
00001D80: 5C 3D 4C 13 3B 00 78 3D 56 13 20 4A 53 52 43 48 |\=L.;.x=V. JSRCH|
00001D90: 4B 4B 4F 4D 3B 5A 55 20 53 55 43 48 45 4E 44 45 |KKOM;ZU SUCHENDE|
00001DA0: 53 00 99 3D 60 13 20 4A 53 52 47 45 54 42 59 54 |S..=`. JSRGETBYT|
00001DB0: 3B 5A 45 49 43 48 45 4E 20 41 55 46 20 53 54 41 |;ZEICHEN AUF STA|
00001DC0: 43 4B 00 A2 3D 6A 13 20 54 58 41 00 AB 3D 74 13 |CK..=j. TXA..=t.|
00001DD0: 20 50 48 41 00 B1 3D 7E 13 3B 00 D3 3D 88 13 20 | PHA..=~.;..=.. |
00001DE0: 4A 53 52 48 4F 4C 56 41 52 50 54 52 3B 53 55 43 |JSRHOLVARPTR;SUC|
00001DF0: 48 53 54 41 52 54 20 28 55 4D 20 31 00 DE 3D 92 |HSTART (UM 1..=.|
00001E00: 13 20 4C 44 59 23 31 00 F1 3D 9C 13 20 4C 44 41 |. LDY#1..=.. LDA|
00001E10: 28 56 41 52 50 54 52 29 2C 59 00 FA 3D A6 13 20 |(VARPTR),Y..=.. |
00001E20: 54 41 59 00 03 3E B0 13 20 44 45 59 00 0C 3E BA |TAY..>.. DEY..>.|
00001E30: 13 20 50 4C 41 00 12 3E C4 13 3B 00 3D 3E CE 13 |. PLA..>..;.=>..|
00001E40: 43 4F 4D 50 41 52 45 20 43 50 59 53 54 52 44 45 |COMPARE CPYSTRDE|
00001E50: 53 3B 53 54 52 49 4E 47 45 4E 44 45 20 45 52 52 |S;STRINGENDE ERR|
00001E60: 45 49 43 48 54 3F 00 56 3E D8 13 20 42 43 53 53 |EICHT?.V>.. BCSS|
00001E70: 43 4E 4F 54 46 4F 55 4E 44 3B 4A 41 20 3D 3E 00 |CNOTFOUND;JA =>.|
00001E80: 75 3E E2 13 20 43 4D 50 28 53 54 52 44 45 53 2B |u>.. CMP(STRDES+|
00001E90: 31 29 2C 59 3B 47 45 46 55 4E 44 45 4E 3F 00 8B |1),Y;GEFUNDEN?..|
00001EA0: 3E EC 13 20 42 45 51 53 43 46 4F 55 4E 44 3B 4A |>.. BEQSCFOUND;J|
00001EB0: 41 20 3D 3E 00 A2 3E F6 13 20 49 4E 59 3B 53 4F |A =>..>.. INY;SO|
00001EC0: 4E 53 54 20 57 45 49 54 45 52 2D 00 B9 3E 00 14 |NST WEITER-..>..|
00001ED0: 20 42 4E 45 43 4F 4D 50 41 52 45 3B 53 55 43 48 | BNECOMPARE;SUCH|
00001EE0: 45 4E 00 BF 3E 0A 14 3B 00 D6 3E 14 14 53 43 4E |EN..>..;..>..SCN|
00001EF0: 4F 54 46 4F 55 4E 44 20 4C 44 59 23 24 46 46 00 |OTFOUND LDY#$FF.|
00001F00: E6 3E 1E 14 53 43 46 4F 55 4E 44 20 49 4E 59 00 |.>..SCFOUND INY.|
00001F10: EF 3E 28 14 20 54 59 41 00 FA 3E 32 14 20 4C 44 |.>(. TYA..>2. LD|
00001F20: 59 23 31 00 0D 3F 3C 14 20 53 54 41 28 56 41 52 |Y#1..?<. STA(VAR|
00001F30: 50 54 52 29 2C 59 00 16 3F 46 14 20 52 54 53 00 |PTR),Y..?F. RTS.|
00001F40: 1C 3F 50 14 3B 00 22 3F 5A 14 3B 00 28 3F 64 14 |.?P.;."?Z.;.(?d.|
00001F50: 3B 00 2E 3F 6E 14 3B 00 34 3F 78 14 3B 00 3A 3F |;..?n.;.4?x.;.:?|
00001F60: 82 14 3B 00 59 3F 8C 14 3B 2A 2A 2A 2A 2A 2A 2A |..;.Y?..;*******|
00001F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F80: 2A 2A 00 78 3F 96 14 3B 2A 20 20 20 20 20 53 55 |**.x?..;* SU|
00001F90: 43 48 52 4F 55 54 49 4E 45 20 20 20 20 20 20 20 |CHROUTINE |
00001FA0: 2A 00 97 3F A0 14 3B 2A 20 28 43 29 20 53 41 49 |*..?..;* (C) SAI|
00001FB0: 44 20 42 41 4C 4F 55 49 2C 20 31 39 38 37 20 2A |D BALOUI, 1987 *|
00001FC0: 00 B6 3F AA 14 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..?..;**********|
00001FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001FE0: BC 3F B4 14 3B 00 C2 3F BE 14 3B 00 C8 3F C8 14 |.?..;..?..;..?..|
00001FF0: 3B 00 EE 3F D2 14 3B 46 55 4E 4B 54 49 4F 4E 3A |;..?..;FUNKTION:|
00002000: 20 53 55 43 48 54 20 49 4E 20 45 49 4E 45 4D 20 | SUCHT IN EINEM |
00002010: 53 54 52 49 4E 47 2D 00 10 40 DC 14 3B 41 52 52 |STRING-..@..;ARR|
00002020: 41 59 20 44 49 45 20 41 4E 47 45 47 2E 5A 45 49 |AY DIE ANGEG.ZEI|
00002030: 43 48 45 4E 4B 45 54 54 45 00 16 40 E6 14 3B 00 |CHENKETTE..@..;.|
00002040: 38 40 F0 14 3B 41 55 46 52 55 46 3A 20 53 59 53 |8@..;AUFRUF: SYS|
00002050: 20 58 2C 53 55 43 48 4B 52 49 54 45 52 49 55 4D | X,SUCHKRITERIUM|
00002060: 2C 00 59 40 FA 14 3B 20 20 20 20 20 20 20 20 53 |,.Y@..; S|
00002070: 55 43 48 45 20 41 42 2C 53 55 43 48 45 20 42 49 |UCHE AB,SUCHE BI|
00002080: 53 2C 00 7D 40 04 15 3B 20 20 20 20 20 20 20 20 |S,.}@..; |
00002090: 55 45 42 45 52 47 41 42 45 56 41 52 2E 28 49 4E |UEBERGABEVAR.(IN|
000020A0: 54 45 47 45 52 29 00 83 40 0E 15 3B 00 A7 40 18 |TEGER)..@..;..@.|
000020B0: 15 3B 53 55 43 48 4B 52 49 54 2E 3A 20 2D 41 42 |.;SUCHKRIT.: -AB|
000020C0: 4B 55 45 52 5A 45 4E 20 28 22 4D 41 49 2A 22 29 |KUERZEN ("MAI*")|
000020D0: 00 CD 40 22 15 3B 20 20 20 20 20 20 20 20 20 20 |..@".; |
000020E0: 20 2D 4D 41 53 4B 49 45 52 45 4E 20 28 22 4D 3F | -MASKIEREN ("M?|
000020F0: 41 3F 45 52 22 29 00 F3 40 2C 15 3B 20 20 20 20 |A?ER")..@,.; |
00002100: 20 20 20 20 20 20 20 2D 4B 4F 4D 42 49 4E 49 45 | -KOMBINIE|
00002110: 52 45 4E 20 28 22 4D 3F 49 2A 22 29 00 19 41 36 |REN ("M?I*")..A6|
00002120: 15 3B 53 55 43 48 45 20 41 42 2F 42 49 53 3A 20 |.;SUCHE AB/BIS: |
00002130: 55 4E 54 45 52 45 2F 4F 42 45 52 45 20 47 52 45 |UNTERE/OBERE GRE|
00002140: 4E 2D 00 3F 41 40 15 3B 20 20 20 20 20 20 20 20 |N-.?A@.; |
00002150: 20 20 20 20 20 20 5A 45 20 44 45 53 20 5A 55 20 | ZE DES ZU |
00002160: 44 55 52 43 48 53 55 2D 00 63 41 4A 15 3B 20 20 |DURCHSU-.cAJ.; |
00002170: 20 20 20 20 20 20 20 20 20 20 20 20 53 55 43 48 | SUCH|
00002180: 45 4E 44 45 4E 20 41 52 52 41 59 53 00 86 41 54 |ENDEN ARRAYS..AT|
00002190: 15 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000021A0: 28 41 24 28 31 30 29 2C 41 24 28 33 32 29 29 00 |(A$(10),A$(32)).|
000021B0: AC 41 5E 15 3B 55 45 42 45 52 47 2E 56 41 52 2E |.A^.;UEBERG.VAR.|
000021C0: 3A 20 49 4E 54 45 47 45 52 56 41 52 2E 2C 20 49 |: INTEGERVAR., I|
000021D0: 4E 20 44 45 52 00 D9 41 68 15 3B 20 20 20 20 20 |N DER..Ah.; |
000021E0: 20 20 20 20 20 20 20 20 44 45 52 20 49 4E 44 45 | DER INDE|
000021F0: 58 20 45 49 4E 45 53 20 47 45 46 55 4E 44 45 4E |X EINES GEFUNDEN|
00002200: 45 4E 00 03 42 72 15 3B 20 20 20 20 20 20 20 20 |EN..Br.; |
00002210: 20 20 20 20 20 53 54 52 49 4E 47 53 20 55 45 42 | STRINGS UEB|
00002220: 45 52 47 45 42 45 4E 20 57 49 52 44 00 29 42 7C |ERGEBEN WIRD.)B||
00002230: 15 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 28 |.; (|
00002240: 30 3D 53 55 43 48 45 20 45 52 46 4F 4C 47 4C 4F |0=SUCHE ERFOLGLO|
00002250: 53 29 00 2F 42 86 15 3B 00 54 42 90 15 3B 42 53 |S)./B..;.TB..;BS|
00002260: 50 2E 3A 20 53 59 53 20 58 2C 53 24 2C 41 24 28 |P.: SYS X,S$,A$(|
00002270: 30 29 2C 41 24 28 31 30 30 29 2C 50 25 00 78 42 |0),A$(100),P%.xB|
00002280: 9A 15 3B 20 20 20 20 20 20 44 55 52 43 48 53 55 |..; DURCHSU|
00002290: 43 48 54 20 41 24 28 30 29 2D 41 24 28 31 30 30 |CHT A$(0)-A$(100|
000022A0: 29 00 9E 42 A4 15 3B 20 20 20 20 20 20 4E 41 43 |)..B..; NAC|
000022B0: 48 20 53 24 20 55 2E 55 45 42 45 52 47 49 42 54 |H S$ U.UEBERGIBT|
000022C0: 20 52 45 53 55 4C 54 00 AF 42 AE 15 3B 20 20 20 | RESULT..B..; |
000022D0: 20 20 20 49 4E 20 50 25 00 B5 42 B8 15 3B 00 BB | IN P%..B..;..|
000022E0: 42 C2 15 3B 00 C1 42 CC 15 3B 00 D4 42 D6 15 3B |B..;..B..;..B..;|
000022F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 42 |*************..B|
00002300: E0 15 3B 2A 2A 2A 20 4C 41 42 45 4C 20 2A 2A 2A |..;*** LABEL ***|
00002310: 00 FA 42 EA 15 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..B..;**********|
00002320: 2A 2A 2A 00 22 43 F4 15 3B 20 20 20 20 20 20 20 |***."C..; |
00002330: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 50 52 | ;PR|
00002340: 4F 47 52 41 4D 4D 53 54 41 52 54 00 28 43 FE 15 |OGRAMMSTART.(C..|
00002350: 3B 00 2E 43 08 16 3B 00 54 43 12 16 2E 45 51 20 |;..C..;.TC...EQ |
00002360: 43 48 4B 4B 4F 4D 20 20 3D 24 41 45 46 44 20 20 |CHKKOM =$AEFD |
00002370: 20 3B 4C 49 45 53 54 20 4B 4F 4D 4D 41 00 80 43 | ;LIEST KOMMA..C|
00002380: 1C 16 2E 45 51 20 47 45 54 42 59 54 20 20 3D 24 |...EQ GETBYT =$|
00002390: 42 37 39 45 20 20 20 3B 4C 49 45 53 54 20 31 2D |B79E ;LIEST 1-|
000023A0: 42 59 54 45 2D 57 45 52 54 00 B4 43 26 16 2E 45 |BYTE-WERT..C&..E|
000023B0: 51 20 47 45 54 50 4F 53 20 20 3D 24 42 30 38 42 |Q GETPOS =$B08B|
000023C0: 20 20 20 3B 48 4F 4C 54 20 50 4F 49 4E 54 45 52 | ;HOLT POINTER|
000023D0: 20 41 55 46 20 56 41 52 49 41 42 4C 45 00 EB 43 | AUF VARIABLE..C|
000023E0: 30 16 2E 45 51 20 46 52 4D 4E 55 4D 20 20 3D 24 |0..EQ FRMNUM =$|
000023F0: 41 44 38 41 20 20 20 3B 4C 49 45 53 54 20 4E 55 |AD8A ;LIEST NU|
00002400: 2E 41 55 53 44 52 55 43 4B 20 49 4E 20 46 41 43 |.AUSDRUCK IN FAC|
00002410: 20 45 49 4E 00 1E 44 3A 16 2E 45 51 20 41 44 52 | EIN..D:..EQ ADR|
00002420: 46 4F 52 20 20 3D 24 42 37 46 37 20 20 20 3B 57 |FOR =$B7F7 ;W|
00002430: 41 4E 44 45 4C 54 20 46 41 43 20 4E 41 43 48 20 |ANDELT FAC NACH |
00002440: 49 4E 54 45 47 45 52 00 60 44 44 16 2E 45 51 20 |INTEGER.`DD..EQ |
00002450: 43 48 52 47 45 54 20 20 3D 24 37 33 20 20 20 20 |CHRGET =$73 |
00002460: 20 3B 49 4E 4B 52 45 4D 2E 54 45 58 54 50 54 52 | ;INKREM.TEXTPTR|
00002470: 20 55 2E 48 4F 4C 54 20 41 4B 54 55 45 4C 4C 45 | U.HOLT AKTUELLE|
00002480: 53 20 5A 45 49 43 48 45 4E 00 91 44 4E 16 2E 45 |S ZEICHEN..DN..E|
00002490: 51 20 43 48 52 47 4F 54 20 20 3D 24 37 39 20 20 |Q CHRGOT =$79 |
000024A0: 20 20 20 3B 48 4F 4C 54 20 41 4B 54 55 45 4C 4C | ;HOLT AKTUELL|
000024B0: 45 53 20 5A 45 49 43 48 45 4E 00 C2 44 58 16 2E |ES ZEICHEN..DX..|
000024C0: 45 51 20 54 45 58 54 50 54 52 20 3D 24 37 41 20 |EQ TEXTPTR =$7A |
000024D0: 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 46 | ;POINTER AUF|
000024E0: 20 42 41 53 49 43 2D 54 45 58 54 00 C8 44 62 16 | BASIC-TEXT..Db.|
000024F0: 3B 00 EB 44 6C 16 3B 2A 50 4F 49 4E 54 45 52 20 |;..Dl.;*POINTER |
00002500: 41 55 46 20 53 54 52 49 4E 47 44 45 53 43 52 49 |AUF STRINGDESCRI|
00002510: 50 54 2E 2A 00 26 45 76 16 2E 45 51 20 53 55 43 |PT.*.&Ev..EQ SUC|
00002520: 48 20 20 20 3D 24 41 37 20 20 20 20 20 20 3B 50 |H =$A7 ;P|
00002530: 54 52 2E 41 55 46 20 44 45 53 43 52 2E 56 2E 53 |TR.AUF DESCR.V.S|
00002540: 55 43 48 4B 52 49 54 2E 2D 53 54 52 49 4E 47 00 |UCHKRIT.-STRING.|
00002550: 61 45 80 16 2E 45 51 20 45 4E 44 45 20 20 20 3D |aE...EQ ENDE =|
00002560: 24 41 39 20 20 20 20 20 20 3B 50 54 52 2E 41 55 |$A9 ;PTR.AU|
00002570: 46 20 44 45 53 43 52 2E 56 2E 41 52 52 41 59 53 |F DESCR.V.ARRAYS|
00002580: 54 52 49 4E 47 28 4D 49 4E 29 00 9C 45 8A 16 2E |TRING(MIN)..E...|
00002590: 45 51 20 53 54 41 52 54 20 20 3D 24 41 42 20 20 |EQ START =$AB |
000025A0: 20 20 20 20 3B 50 54 52 2E 41 55 46 20 44 45 53 | ;PTR.AUF DES|
000025B0: 43 52 2E 56 2E 41 52 52 41 59 53 54 52 49 4E 47 |CR.V.ARRAYSTRING|
000025C0: 28 4D 41 58 29 00 CE 45 94 16 2E 45 51 20 49 4E |(MAX)..E...EQ IN|
000025D0: 54 56 41 52 20 3D 24 34 37 20 20 20 20 20 20 3B |TVAR =$47 ;|
000025E0: 50 54 52 2E 41 55 46 20 49 4E 54 45 47 45 52 56 |PTR.AUF INTEGERV|
000025F0: 41 52 49 41 42 4C 45 00 D4 45 9E 16 3B 00 ED 45 |ARIABLE..E..;..E|
00002600: A8 16 3B 2A 53 54 52 49 4E 47 44 45 53 52 49 50 |..;*STRINGDESRIP|
00002610: 54 4F 52 45 4E 2A 00 24 46 B2 16 2E 45 51 20 53 |TOREN*.$F...EQ S|
00002620: 55 43 48 44 45 53 20 3D 24 42 34 20 20 20 20 20 |UCHDES =$B4 |
00002630: 3B 44 45 53 43 52 2E 20 44 45 53 20 53 55 43 48 |;DESCR. DES SUCH|
00002640: 4B 52 49 54 2E 2D 53 54 52 49 4E 47 53 00 65 46 |KRIT.-STRINGS.eF|
00002650: BC 16 2E 45 51 20 41 4B 54 44 45 53 20 20 3D 24 |...EQ AKTDES =$|
00002660: 46 42 20 20 20 20 20 3B 44 45 53 43 52 2E 20 44 |FB ;DESCR. D|
00002670: 45 53 20 41 4B 54 55 45 4C 4C 45 4E 20 56 45 52 |ES AKTUELLEN VER|
00002680: 47 4C 45 49 43 48 53 53 54 52 49 4E 47 53 00 6B |GLEICHSSTRINGS.k|
00002690: 46 C6 16 3B 00 82 46 D0 16 3B 2A 53 4F 4E 53 54 |F..;..F..;*SONST|
000026A0: 49 47 45 20 4C 41 42 20 45 4C 2A 00 BC 46 DA 16 |IGE LAB EL*..F..|
000026B0: 2E 45 51 20 4C 45 4E 46 4C 41 47 20 20 3D 24 30 |.EQ LENFLAG =$0|
000026C0: 33 33 34 20 20 3B 24 30 30 3D 56 4F 4C 4C 56 45 |334 ;$00=VOLLVE|
000026D0: 52 47 4C 45 49 43 48 3B 24 46 46 3D 41 42 4B 55 |RGLEICH;$FF=ABKU|
000026E0: 45 52 5A 45 4E 00 E7 46 E4 16 2E 45 51 20 50 52 |ERZEN..F...EQ PR|
000026F0: 55 45 46 4C 45 4E 20 3D 24 30 33 33 35 20 20 3B |UEFLEN =$0335 ;|
00002700: 56 45 52 47 4C 45 49 43 48 53 4C 41 45 4E 47 45 |VERGLEICHSLAENGE|
00002710: 00 25 47 EE 16 2E 45 51 20 45 4C 45 4D 4E 52 20 |.%G...EQ ELEMNR |
00002720: 20 20 3D 24 30 33 33 36 20 20 3B 4E 52 2E 44 45 | =$0336 ;NR.DE|
00002730: 53 20 41 4B 54 55 45 45 4C 4C 45 4E 20 56 45 52 |S AKTUEELLEN VER|
00002740: 47 4C 45 49 43 48 53 53 54 52 49 4E 47 53 00 2B |GLEICHSSTRINGS.+|
00002750: 47 F8 16 3B 00 31 47 02 17 3B 00 37 47 0C 17 3B |G..;.1G..;.7G..;|
00002760: 00 54 47 16 17 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.TG..;**********|
00002770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 71 47 |*************.qG|
00002780: 20 17 3B 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 | .;*** INITIALIS|
00002790: 49 45 52 55 4E 47 20 2A 2A 2A 00 8E 47 2A 17 3B |IERUNG ***..G*.;|
000027A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000027B0: 2A 2A 2A 2A 2A 2A 2A 00 94 47 34 17 3B 00 B8 47 |*******..G4.;..G|
000027C0: 3E 17 3B 2A 50 4F 49 4E 54 45 52 20 41 55 46 20 |>.;*POINTER AUF |
000027D0: 53 55 43 48 4B 52 49 54 2E 2D 44 45 53 43 52 2E |SUCHKRIT.-DESCR.|
000027E0: 2A 00 ED 47 48 17 53 54 52 49 4E 47 53 45 41 52 |*..GH.STRINGSEAR|
000027F0: 43 48 20 4A 53 52 48 4F 4C 56 41 52 50 54 52 3B |CH JSRHOLVARPTR;|
00002800: 53 55 43 48 28 2B 31 29 20 3D 20 50 4F 49 4E 54 |SUCH(+1) = POINT|
00002810: 45 52 20 41 55 46 00 16 48 52 17 20 53 54 41 53 |ER AUF..HR. STAS|
00002820: 55 43 48 3B 44 45 53 43 52 2E 20 44 45 53 20 53 |UCH;DESCR. DES S|
00002830: 55 43 48 4B 52 49 54 2E 53 54 52 49 4E 47 53 00 |UCHKRIT.STRINGS.|
00002840: 25 48 5C 17 20 53 54 59 53 55 43 48 2B 31 00 2B |%H\. STYSUCH+1.+|
00002850: 48 66 17 3B 00 31 48 70 17 3B 00 4F 48 7A 17 3B |Hf.;.1Hp.;.OHz.;|
00002860: 2A 53 55 43 48 44 45 53 43 52 49 50 54 4F 52 45 |*SUCHDESCRIPTORE|
00002870: 4E 20 48 4F 4C 45 4E 2A 00 77 48 84 17 20 4C 44 |N HOLEN*.wH.. LD|
00002880: 59 23 24 30 32 3B 53 55 43 48 44 45 53 28 2B 32 |Y#$02;SUCHDES(+2|
00002890: 29 20 3D 20 44 45 53 43 52 49 50 54 4F 52 45 4E |) = DESCRIPTOREN|
000028A0: 00 A4 48 8E 17 47 45 54 53 55 43 48 20 4C 44 41 |..H..GETSUCH LDA|
000028B0: 28 53 55 43 48 29 2C 59 3B 44 45 53 20 53 55 43 |(SUCH),Y;DES SUC|
000028C0: 48 4B 52 49 54 2E 53 54 52 49 4E 47 53 00 B6 48 |HKRIT.STRINGS..H|
000028D0: 98 17 20 53 54 41 53 55 43 48 44 45 53 2C 59 00 |.. STASUCHDES,Y.|
000028E0: BF 48 A2 17 20 44 45 59 00 CF 48 AC 17 20 42 50 |.H.. DEY..H.. BP|
000028F0: 4C 47 45 54 53 55 43 48 00 D5 48 B6 17 3B 00 DB |LGETSUCH..H..;..|
00002900: 48 C0 17 3B 00 F6 48 CA 17 3B 2A 45 4C 45 4D 45 |H..;..H..;*ELEME|
00002910: 4E 54 4E 55 4D 4D 45 52 20 48 4F 4C 45 4E 2A 00 |NTNUMMER HOLEN*.|
00002920: 06 49 D4 17 20 4C 44 41 54 45 58 54 50 54 52 00 |.I.. LDATEXTPTR.|
00002930: 0F 49 DE 17 20 50 48 41 00 21 49 E8 17 20 4C 44 |.I.. PHA.!I.. LD|
00002940: 41 54 45 58 54 50 54 52 2B 31 00 2A 49 F2 17 20 |ATEXTPTR+1.*I.. |
00002950: 50 48 41 00 30 49 FC 17 3B 00 5A 49 06 18 56 4F |PHA.0I..;.ZI..VO|
00002960: 52 57 41 45 52 54 53 20 4A 53 52 43 48 52 47 45 |RWAERTS JSRCHRGE|
00002970: 54 3B 45 4C 45 4D 4E 52 28 2B 31 29 3D 4E 55 4D |T;ELEMNR(+1)=NUM|
00002980: 4D 45 52 00 7C 49 10 18 20 43 4D 50 23 22 28 22 |MER.|I.. CMP#"("|
00002990: 3B 44 45 52 20 41 52 52 41 59 55 4E 54 45 52 47 |;DER ARRAYUNTERG|
000029A0: 52 45 4E 5A 45 00 8E 49 1A 18 20 42 4E 45 56 4F |RENZE..I.. BNEVO|
000029B0: 52 57 41 45 52 54 53 00 94 49 24 18 3B 00 A3 49 |RWAERTS..I$.;..I|
000029C0: 2E 18 20 4A 53 52 46 52 4D 4E 55 4D 00 B2 49 38 |.. JSRFRMNUM..I8|
000029D0: 18 20 4A 53 52 41 44 52 46 4F 52 00 C1 49 42 18 |. JSRADRFOR..IB.|
000029E0: 20 53 54 59 45 4C 45 4D 4E 52 00 D2 49 4C 18 20 | STYELEMNR..IL. |
000029F0: 53 54 41 45 4C 45 4D 4E 52 2B 31 00 D8 49 56 18 |STAELEMNR+1..IV.|
00002A00: 3B 00 E1 49 60 18 20 50 4C 41 00 F3 49 6A 18 20 |;..I`. PLA..Ij. |
00002A10: 53 54 41 54 45 58 54 50 54 52 2B 31 00 FC 49 74 |STATEXTPTR+1..It|
00002A20: 18 20 50 4C 41 00 0C 4A 7E 18 20 53 54 41 54 45 |. PLA..J~. STATE|
00002A30: 58 54 50 54 52 00 12 4A 88 18 3B 00 18 4A 92 18 |XTPTR..J..;..J..|
00002A40: 3B 00 3E 4A 9C 18 3B 2A 50 4F 49 4E 54 45 52 20 |;.>J..;*POINTER |
00002A50: 41 55 46 20 53 54 52 49 4E 47 44 45 53 43 52 2E |AUF STRINGDESCR.|
00002A60: 20 48 4F 4C 45 4E 2A 00 66 4A A6 18 20 4A 53 52 | HOLEN*.fJ.. JSR|
00002A70: 48 4F 4C 56 41 52 50 54 52 3B 53 54 41 52 54 28 |HOLVARPTR;START(|
00002A80: 2B 31 29 3D 50 4F 49 4E 54 45 52 20 41 55 46 00 |+1)=POINTER AUF.|
00002A90: 85 4A B0 18 20 53 54 41 53 54 41 52 54 3B 44 45 |.J.. STASTART;DE|
00002AA0: 53 43 52 49 50 54 4F 52 45 4E 20 56 4F 4E 00 A6 |SCRIPTOREN VON..|
00002AB0: 4A BA 18 20 53 54 59 53 54 41 52 54 2B 31 3B 41 |J.. STYSTART+1;A|
00002AC0: 52 52 41 59 53 54 52 49 4E 47 28 4D 49 4E 29 00 |RRAYSTRING(MIN).|
00002AD0: AC 4A C4 18 3B 00 D3 4A CE 18 20 4A 53 52 48 4F |.J..;..J.. JSRHO|
00002AE0: 4C 56 41 52 50 54 52 3B 45 4E 44 45 28 2B 31 29 |LVARPTR;ENDE(+1)|
00002AF0: 3D 50 4F 49 4E 54 45 52 20 41 55 46 00 FB 4A D8 |=POINTER AUF..J.|
00002B00: 18 20 53 54 41 45 4E 44 45 3B 44 45 53 43 52 2E |. STAENDE;DESCR.|
00002B10: 56 4F 4E 20 41 52 52 41 59 53 54 52 49 4E 47 28 |VON ARRAYSTRING(|
00002B20: 4D 41 58 29 00 0A 4B E2 18 20 53 54 59 45 4E 44 |MAX)..K.. STYEND|
00002B30: 45 2B 31 00 10 4B EC 18 3B 00 16 4B F6 18 3B 00 |E+1..K..;..K..;.|
00002B40: 1C 4B 00 19 3B 00 37 4B 0A 19 3B 2A 2A 2A 2A 2A |.K..;.7K..;*****|
00002B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B60: 00 52 4B 14 19 3B 2A 2A 2A 20 48 41 55 50 54 50 |.RK..;*** HAUPTP|
00002B70: 52 4F 47 52 41 4D 4D 20 2A 2A 2A 00 6D 4B 1E 19 |ROGRAMM ***.mK..|
00002B80: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00002B90: 2A 2A 2A 2A 2A 2A 00 73 4B 28 19 3B 00 95 4B 32 |******.sK(.;..K2|
00002BA0: 19 3B 2A 56 45 52 47 4C 45 49 43 48 53 4C 41 45 |.;*VERGLEICHSLAE|
00002BB0: 4E 47 45 20 45 52 4D 49 54 54 45 4C 4E 2A 00 BF |NGE ERMITTELN*..|
00002BC0: 4B 3C 19 20 4C 44 41 23 24 30 30 3B 4C 45 4E 46 |K<. LDA#$00;LENF|
00002BD0: 4C 41 47 3A 20 24 30 30 3D 4B 45 49 4E 20 41 42 |LAG: $00=KEIN AB|
00002BE0: 4B 55 45 52 5A 45 4E 2C 00 DD 4B 46 19 20 53 54 |KUERZEN,..KF. ST|
00002BF0: 41 4C 45 4E 46 4C 41 47 3B 24 46 46 3D 41 42 4B |ALENFLAG;$FF=ABK|
00002C00: 55 45 52 5A 45 4E 00 05 4C 50 19 20 4C 44 59 53 |UERZEN..LP. LDYS|
00002C10: 55 43 48 44 45 53 3B 50 52 55 45 46 4C 45 4E 3A |UCHDES;PRUEFLEN:|
00002C20: 20 45 4E 54 48 41 45 4C 54 20 42 45 49 4D 00 24 | ENTHAELT BEIM.$|
00002C30: 4C 5A 19 20 53 54 59 50 52 55 45 46 4C 45 4E 3B |LZ. STYPRUEFLEN;|
00002C40: 41 42 4B 55 45 52 5A 45 4E 20 44 49 45 00 3C 4C |ABKUERZEN DIE.<L|
00002C50: 64 19 20 44 45 59 3B 53 54 52 49 4E 47 4C 41 45 |d. DEY;STRINGLAE|
00002C60: 4E 47 45 2D 31 00 62 4C 6E 19 20 4C 44 41 28 53 |NGE-1.bLn. LDA(S|
00002C70: 55 43 48 44 45 53 2B 31 29 2C 59 3B 28 4F 48 4E |UCHDES+1),Y;(OHN|
00002C80: 45 22 2A 22 29 2C 53 4F 4E 53 54 00 86 4C 78 19 |E"*"),SONST..Lx.|
00002C90: 20 43 4D 50 23 22 2A 22 3B 44 49 45 20 45 43 48 | CMP#"*";DIE ECH|
00002CA0: 54 45 20 53 54 52 49 4E 47 4C 41 45 4E 47 45 00 |TE STRINGLAENGE.|
00002CB0: A8 4C 82 19 20 42 4E 45 47 45 54 44 45 53 3B 56 |.L.. BNEGETDES;V|
00002CC0: 45 52 47 4C 45 49 43 48 20 50 4F 53 49 54 49 56 |ERGLEICH POSITIV|
00002CD0: 2C 00 CA 4C 8C 19 20 44 45 43 4C 45 4E 46 4C 41 |,..L.. DECLENFLA|
00002CE0: 47 3B 57 45 4E 4E 20 22 2A 22 20 45 49 4E 5A 49 |G;WENN "*" EINZI|
00002CF0: 47 45 53 00 E7 4C 96 19 20 44 45 43 50 52 55 45 |GES..L.. DECPRUE|
00002D00: 46 4C 45 4E 3B 5A 45 49 43 48 45 4E 20 49 53 54 |FLEN;ZEICHEN IST|
00002D10: 00 ED 4C A0 19 3B 00 F3 4C AA 19 3B 00 17 4D B4 |..L..;..L..;..M.|
00002D20: 19 3B 2A 41 4B 54 55 45 4C 4C 45 4E 20 53 54 52 |.;*AKTUELLEN STR|
00002D30: 49 4E 47 44 45 53 43 52 2E 20 48 4F 4C 45 4E 2A |INGDESCR. HOLEN*|
00002D40: 00 42 4D BE 19 47 45 54 44 45 53 20 4C 44 59 23 |.BM..GETDES LDY#|
00002D50: 24 30 32 3B 41 4B 54 44 45 53 28 2B 32 29 3D 44 |$02;AKTDES(+2)=D|
00002D60: 45 53 43 52 49 50 54 4F 52 45 4E 00 70 4D C8 19 |ESCRIPTOREN.pM..|
00002D70: 47 45 54 44 45 53 31 20 4C 44 41 28 53 54 41 52 |GETDES1 LDA(STAR|
00002D80: 54 29 2C 59 3B 56 4F 4E 20 41 52 52 41 59 53 54 |T),Y;VON ARRAYST|
00002D90: 52 49 4E 47 28 4D 49 4E 29 00 81 4D D2 19 20 53 |RING(MIN)..M.. S|
00002DA0: 54 41 41 4B 54 44 45 53 2C 59 00 8A 4D DC 19 20 |TAAKTDES,Y..M.. |
00002DB0: 44 45 59 00 9A 4D E6 19 20 42 50 4C 47 45 54 44 |DEY..M.. BPLGETD|
00002DC0: 45 53 31 00 A0 4D F0 19 3B 00 A6 4D FA 19 3B 00 |ES1..M..;..M..;.|
00002DD0: C4 4D 04 1A 3B 2A 53 4F 4E 44 45 52 46 41 45 4C |.M..;*SONDERFAEL|
00002DE0: 4C 45 20 42 45 48 41 4E 44 45 4C 4E 2A 00 D5 4D |LE BEHANDELN*..M|
00002DF0: 0E 1A 20 4C 44 41 50 52 55 45 46 4C 45 4E 00 FA |.. LDAPRUEFLEN..|
00002E00: 4D 18 1A 20 42 45 51 50 4F 53 49 54 49 56 3B 31 |M.. BEQPOSITIV;1|
00002E10: 29 56 45 52 47 4C 45 49 43 48 20 50 4F 53 49 54 |)VERGLEICH POSIT|
00002E20: 49 56 2C 00 2B 4E 22 1A 3B 20 20 20 20 20 20 20 |IV,.+N".; |
00002E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002E40: 20 20 57 45 4E 4E 20 50 52 55 45 46 4C 41 45 4E | WENN PRUEFLAEN|
00002E50: 47 45 3D 30 00 3A 4E 2C 1A 20 43 4D 50 41 4B 54 |GE=0.:N,. CMPAKT|
00002E60: 44 45 53 00 58 4E 36 1A 20 50 48 50 3B 32 29 56 |DES.XN6. PHP;2)V|
00002E70: 45 52 47 4C 45 49 43 48 20 4E 45 47 41 54 49 56 |ERGLEICH NEGATIV|
00002E80: 2C 00 7B 4E 40 1A 20 4C 44 41 4C 45 4E 46 4C 41 |,.{N@. LDALENFLA|
00002E90: 47 3B 57 45 4E 4E 20 22 2A 22 20 45 4E 54 48 41 |G;WENN "*" ENTHA|
00002EA0: 4C 54 45 4E 00 9F 4E 4A 1A 20 42 45 51 4E 4F 53 |LTEN..NJ. BEQNOS|
00002EB0: 54 45 52 4E 3B 55 4E 44 20 56 45 52 4C 45 49 43 |TERN;UND VERLEIC|
00002EC0: 48 53 53 54 52 49 4E 47 00 BA 4E 54 1A 20 50 4C |HSSTRING..NT. PL|
00002ED0: 50 3B 4E 49 43 48 54 20 4C 41 45 4E 47 45 52 20 |P;NICHT LAENGER |
00002EE0: 41 4C 53 00 ED 4E 5E 1A 3B 20 20 20 20 20 20 20 |ALS..N^.; |
00002EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F00: 20 20 53 55 43 48 4B 52 49 54 45 52 49 55 4D 53 | SUCHKRITERIUMS|
00002F10: 53 54 52 49 4E 47 00 10 4F 68 1A 20 42 43 53 4E |STRING..Oh. BCSN|
00002F20: 45 58 54 53 54 52 3B 55 2E 41 4B 54 55 45 4C 4C |EXTSTR;U.AKTUELL|
00002F30: 45 4D 20 53 54 52 49 4E 47 00 20 4F 72 1A 20 42 |EM STRING. Or. B|
00002F40: 43 43 50 52 55 45 46 45 4E 00 53 4F 7C 1A 3B 20 |CCPRUEFEN.SO|.; |
00002F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F60: 20 20 20 20 20 20 20 20 33 29 56 45 52 47 4C 45 | 3)VERGLE|
00002F70: 49 43 48 20 4E 45 47 41 54 49 56 2C 00 7B 4F 86 |ICH NEGATIV,.{O.|
00002F80: 1A 4E 4F 53 54 45 52 4E 20 50 4C 50 3B 57 45 4E |.NOSTERN PLP;WEN|
00002F90: 4E 20 4B 45 49 4E 20 22 2A 22 20 45 4E 54 48 41 |N KEIN "*" ENTHA|
00002FA0: 4C 54 45 4E 00 9D 4F 90 1A 20 42 4E 45 4E 45 58 |LTEN..O.. BNENEX|
00002FB0: 54 53 54 52 3B 55 4E 44 20 53 54 52 49 4E 47 4C |TSTR;UND STRINGL|
00002FC0: 41 45 4E 47 45 4E 00 CB 4F 9A 1A 3B 20 20 20 20 |AENGEN..O..; |
00002FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002FE0: 20 20 20 20 20 55 4E 54 45 52 53 43 48 49 45 44 | UNTERSCHIED|
00002FF0: 4C 49 43 48 00 D1 4F A4 1A 3B 00 E8 4F AE 1A 3B |LICH..O..;..O..;|
00003000: 2A 53 54 52 49 4E 47 56 45 52 47 4C 45 49 43 48 |*STRINGVERGLEICH|
00003010: 2A 00 0A 50 B8 1A 50 52 55 45 46 45 4E 20 4C 44 |*..P..PRUEFEN LD|
00003020: 59 23 24 30 30 3B 5A 45 49 43 48 45 4E 57 45 49 |Y#$00;ZEICHENWEI|
00003030: 53 45 52 00 3B 50 C2 1A 50 52 55 45 46 4C 4F 4F |SER.;P..PRUEFLOO|
00003040: 50 20 4C 44 41 28 53 55 43 48 44 45 53 2B 31 29 |P LDA(SUCHDES+1)|
00003050: 2C 59 3B 56 45 52 47 4C 45 49 43 48 20 42 49 53 |,Y;VERGLEICH BIS|
00003060: 20 5A 55 52 00 54 50 CC 1A 20 43 4D 50 23 22 3F | ZUR.TP.. CMP#"?|
00003070: 22 3B 50 52 55 45 46 4C 41 45 4E 47 45 00 7A 50 |";PRUEFLAENGE.zP|
00003080: D6 1A 20 42 45 51 4E 45 58 54 43 48 41 52 3B 28 |.. BEQNEXTCHAR;(|
00003090: 22 3F 22 20 49 53 54 20 49 4D 4D 45 52 20 4F 4B |"?" IST IMMER OK|
000030A0: 41 59 29 00 93 50 E0 1A 20 4A 53 52 49 47 4E 4F |AY)..P.. JSRIGNO|
000030B0: 52 45 3B 56 45 52 47 4C 2E 49 53 54 00 B1 50 EA |RE;VERGL.IST..P.|
000030C0: 1A 20 42 43 43 4E 45 58 54 53 54 52 3B 4E 45 47 |. BCCNEXTSTR;NEG|
000030D0: 41 54 49 56 2C 20 57 45 4E 4E 00 D4 50 F4 1A 4E |ATIV, WENN..P..N|
000030E0: 45 58 54 43 48 41 52 20 49 4E 59 3B 45 49 4E 20 |EXTCHAR INY;EIN |
000030F0: 5A 45 49 43 48 45 4E 20 4E 49 43 48 54 00 F4 50 |ZEICHEN NICHT..P|
00003100: FE 1A 20 43 50 59 50 52 55 45 46 4C 45 4E 3B 55 |.. CPYPRUEFLEN;U|
00003110: 45 42 45 52 45 49 4E 53 54 49 4D 4D 54 00 06 51 |EBEREINSTIMMT..Q|
00003120: 08 1B 20 42 43 43 50 52 55 45 46 4C 4F 4F 50 00 |.. BCCPRUEFLOOP.|
00003130: 1F 51 12 1B 50 4F 53 42 52 41 4E 43 48 20 42 45 |.Q..POSBRANCH BE|
00003140: 51 50 4F 53 49 54 49 56 00 25 51 1C 1B 3B 00 2B |QPOSITIV.%Q..;.+|
00003150: 51 26 1B 3B 00 4F 51 30 1B 3B 2A 50 4F 49 4E 54 |Q&.;.OQ0.;*POINT|
00003160: 45 52 20 41 55 46 20 4E 45 58 54 53 54 52 49 4E |ER AUF NEXTSTRIN|
00003170: 47 44 45 53 43 52 2E 2A 00 64 51 3A 1B 4E 45 58 |GDESCR.*.dQ:.NEX|
00003180: 54 53 54 52 20 4C 44 41 53 54 41 52 54 00 79 51 |TSTR LDASTART.yQ|
00003190: 44 1B 20 43 4C 43 3B 50 4F 49 4E 54 45 52 20 41 |D. CLC;POINTER A|
000031A0: 55 46 00 97 51 4E 1B 20 41 44 43 23 24 30 33 3B |UF..QN. ADC#$03;|
000031B0: 4E 41 45 43 48 53 54 45 4E 20 53 54 52 49 4E 47 |NAECHSTEN STRING|
000031C0: 00 B8 51 58 1B 20 53 54 41 53 54 41 52 54 3B 53 |..QX. STASTART;S|
000031D0: 45 54 5A 45 4E 20 28 3D 41 4B 54 55 45 4C 4C 45 |ETZEN (=AKTUELLE|
000031E0: 52 00 D2 51 62 1B 20 42 43 43 49 4E 43 4E 52 3B |R..Qb. BCCINCNR;|
000031F0: 50 4F 49 4E 54 45 52 20 2B 33 29 00 E2 51 6C 1B |POINTER +3)..Ql.|
00003200: 20 49 4E 43 53 54 41 52 54 2B 31 00 E8 51 76 1B | INCSTART+1..Qv.|
00003210: 3B 00 EE 51 80 1B 3B 00 0E 52 8A 1B 3B 2A 45 4C |;..Q..;..R..;*EL|
00003220: 45 4D 45 4E 54 4E 52 2E 49 4E 4B 52 45 4D 45 4E |EMENTNR.INKREMEN|
00003230: 54 49 45 52 45 4E 2A 00 22 52 94 1B 49 4E 43 4E |TIEREN*."R..INCN|
00003240: 52 20 49 4E 43 45 4C 45 4D 4E 52 00 40 52 9E 1B |R INCELEMNR.@R..|
00003250: 20 42 4E 45 43 4F 4D 50 50 54 52 3B 45 4C 45 4D | BNECOMPPTR;ELEM|
00003260: 45 4E 54 4E 52 2C 20 55 4D 00 5F 52 A8 1B 20 49 |ENTNR, UM._R.. I|
00003270: 4E 43 45 4C 45 4D 4E 52 2B 31 3B 45 49 4E 53 20 |NCELEMNR+1;EINS |
00003280: 45 52 48 4F 45 48 45 4E 00 65 52 B2 1B 3B 00 6B |ERHOEHEN.eR..;.k|
00003290: 52 BC 1B 3B 00 8F 52 C6 1B 3B 2A 50 4F 49 4E 54 |R..;..R..;*POINT|
000032A0: 45 52 20 4D 49 54 20 45 4E 44 45 20 56 45 52 47 |ER MIT ENDE VERG|
000032B0: 4C 45 49 43 48 45 4E 2A 00 A6 52 D0 1B 43 4F 4D |LEICHEN*..R..COM|
000032C0: 50 50 54 52 20 4C 44 41 53 54 41 52 54 2B 31 00 |PPTR LDASTART+1.|
000032D0: C8 52 DA 1B 20 43 4D 50 45 4E 44 45 2B 31 3B 53 |.R.. CMPENDE+1;S|
000032E0: 55 43 48 45 20 49 53 54 20 42 45 45 4E 44 45 54 |UCHE IST BEENDET|
000032F0: 2C 00 E7 52 E4 1B 20 42 43 43 47 45 54 44 45 53 |,..R.. BCCGETDES|
00003300: 3B 57 45 4E 4E 20 28 53 54 41 52 54 28 2B 31 29 |;WENN (START(+1)|
00003310: 00 02 53 EE 1B 20 4C 44 41 53 54 41 52 54 3B 47 |..S.. LDASTART;G|
00003320: 52 4F 45 53 53 45 52 20 49 53 54 00 1C 53 F8 1B |ROESSER IST..S..|
00003330: 20 43 4D 50 45 4E 44 45 3B 41 4C 53 20 45 4E 44 | CMPENDE;ALS END|
00003340: 45 28 2B 31 29 00 2B 53 02 1C 20 42 43 43 47 45 |E(+1).+S.. BCCGE|
00003350: 54 44 45 53 00 3A 53 0C 1C 20 42 45 51 47 45 54 |TDES.:S.. BEQGET|
00003360: 44 45 53 00 40 53 16 1C 3B 00 46 53 20 1C 3B 00 |DES.@S..;.FS .;.|
00003370: 60 53 2A 1C 3B 2A 56 45 52 47 4C 45 49 43 48 20 |`S*.;*VERGLEICH |
00003380: 4E 45 47 41 54 54 49 56 2A 00 74 53 34 1C 4E 45 |NEGATTIV*.tS4.NE|
00003390: 47 41 54 49 56 20 4C 44 41 23 24 30 30 00 90 53 |GATIV LDA#$00..S|
000033A0: 3E 1C 20 53 54 41 45 4C 45 4D 4E 52 3B 45 4C 45 |>. STAELEMNR;ELE|
000033B0: 4D 45 4E 54 4E 52 2E 3D 30 00 A1 53 48 1C 20 53 |MENTNR.=0..SH. S|
000033C0: 54 41 45 4C 45 4D 4E 52 2B 31 00 A7 53 52 1C 3B |TAELEMNR+1..SR.;|
000033D0: 00 AD 53 5C 1C 3B 00 C6 53 66 1C 3B 2A 56 45 52 |..S\.;..Sf.;*VER|
000033E0: 47 4C 45 49 43 48 20 50 4F 53 49 54 49 56 2A 00 |GLEICH POSITIV*.|
000033F0: F4 53 70 1C 50 4F 53 49 54 49 56 20 4A 53 52 43 |.Sp.POSITIV JSRC|
00003400: 48 4B 4B 4F 4D 3B 50 4F 49 4E 54 45 52 20 41 55 |HKKOM;POINTER AU|
00003410: 46 20 49 4E 54 45 47 45 52 56 41 52 2E 00 19 54 |F INTEGERVAR...T|
00003420: 7A 1C 20 4A 53 52 47 45 54 50 4F 53 3B 4E 41 43 |z. JSRGETPOS;NAC|
00003430: 48 20 49 4E 54 56 41 52 28 2B 31 29 20 48 4F 4C |H INTVAR(+1) HOL|
00003440: 45 4E 00 1F 54 84 1C 3B 00 3E 54 8E 1C 20 4C 44 |EN..T..;.>T.. LD|
00003450: 58 45 4C 45 4D 4E 52 3B 45 4C 45 4D 45 4E 54 4E |XELEMNR;ELEMENTN|
00003460: 52 2E 4C 41 44 45 4E 00 4F 54 98 1C 20 4C 44 41 |R.LADEN.OT.. LDA|
00003470: 45 4C 45 4D 4E 52 2B 31 00 55 54 A2 1C 3B 00 5B |ELEMNR+1.UT..;.[|
00003480: 54 AC 1C 3B 00 76 54 B6 1C 3B 2A 45 52 47 45 42 |T..;.vT..;*ERGEB|
00003490: 4E 49 53 20 55 45 42 45 52 47 45 42 45 4E 2A 00 |NIS UEBERGEBEN*.|
000034A0: 87 54 C0 1C 42 41 43 4B 20 4C 44 59 23 24 30 30 |.T..BACK LDY#$00|
000034B0: 00 A5 54 CA 1C 20 53 54 41 28 49 4E 54 56 41 52 |..T.. STA(INTVAR|
000034C0: 29 2C 59 3B 45 4C 45 4D 45 4E 54 4E 52 2E 00 BE |),Y;ELEMENTNR...|
000034D0: 54 D4 1C 20 49 4E 59 3B 49 4E 20 44 49 45 20 49 |T.. INY;IN DIE I|
000034E0: 4E 54 45 47 45 52 2D 00 D0 54 DE 1C 20 54 58 41 |NTEGER-..T.. TXA|
000034F0: 3B 56 41 52 49 41 42 4C 45 00 EC 54 E8 1C 20 53 |;VARIABLE..T.. S|
00003500: 54 41 28 49 4E 54 56 41 52 29 2C 59 3B 4B 4F 50 |TA(INTVAR),Y;KOP|
00003510: 49 45 52 45 4E 00 FE 54 F2 1C 20 52 54 53 3B 3D |IEREN..T.. RTS;=|
00003520: 3E 20 42 41 53 49 43 00 04 55 FC 1C 3B 00 0A 55 |> BASIC..U..;..U|
00003530: 06 1D 3B 00 2F 55 10 1D 3B 2A 2A 2A 20 55 4E 54 |..;./U..;*** UNT|
00003540: 45 50 52 4F 47 2E 3A 20 56 41 52 50 54 52 20 48 |EPROG.: VARPTR H|
00003550: 4F 4C 45 4E 20 2A 2A 2A 00 47 55 1A 1D 48 4F 4C |OLEN ***.GU..HOL|
00003560: 56 41 52 50 54 52 20 4A 53 52 43 48 4B 4B 4F 4D |VARPTR JSRCHKKOM|
00003570: 00 56 55 24 1D 20 4A 4D 50 47 45 54 50 4F 53 00 |.VU$. JMPGETPOS.|
00003580: 5C 55 2E 1D 3B 00 62 55 38 1D 3B 00 68 55 42 1D |\U..;.bU8.;.hUB.|
00003590: 3B 00 6E 55 4C 1D 3B 00 74 55 56 1D 3B 00 7A 55 |;.nUL.;.tUV.;.zU|
000035A0: 60 1D 3B 00 9B 55 6A 1D 3B 2A 2A 2A 2A 2A 2A 2A |`.;..Uj.;*******|
000035B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035C0: 2A 2A 2A 2A 00 BC 55 74 1D 3B 2A 20 20 20 53 54 |****..Ut.;* ST|
000035D0: 52 49 4E 47 41 52 52 41 59 20 41 55 53 47 45 42 |RINGARRAY AUSGEB|
000035E0: 45 4E 20 20 2A 00 DD 55 7E 1D 3B 2A 20 28 43 29 |EN *..U~.;* (C)|
000035F0: 20 53 41 49 44 20 42 41 4C 4F 55 49 2C 20 31 39 | SAID BALOUI, 19|
00003600: 38 37 20 20 20 2A 00 FE 55 88 1D 3B 2A 2A 2A 2A |87 *..U..;****|
00003610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003620: 2A 2A 2A 2A 2A 2A 2A 00 04 56 92 1D 3B 00 0A 56 |*******..V..;..V|
00003630: 9C 1D 3B 00 10 56 A6 1D 3B 00 35 56 B0 1D 3B 46 |..;..V..;.5V..;F|
00003640: 55 4E 4B 54 49 4F 4E 3A 20 47 49 42 54 20 41 52 |UNKTION: GIBT AR|
00003650: 52 41 59 53 54 52 49 4E 47 53 20 41 55 46 00 57 |RAYSTRINGS AUF.W|
00003660: 56 BA 1D 3B 20 20 20 20 20 20 20 20 20 20 44 45 |V..; DE|
00003670: 4D 20 42 49 4C 44 53 43 48 49 52 4D 20 41 55 53 |M BILDSCHIRM AUS|
00003680: 00 5D 56 C4 1D 3B 00 63 56 CE 1D 3B 00 89 56 D8 |.]V..;.cV..;..V.|
00003690: 1D 3B 41 55 46 52 55 46 3A 20 53 59 53 20 58 2C |.;AUFRUF: SYS X,|
000036A0: 43 4F 4C 25 28 2E 2E 29 2C 4C 49 4E 45 25 28 2E |COL%(..),LINE%(.|
000036B0: 2E 29 00 AF 56 E2 1D 3B 20 20 20 20 20 20 20 20 |.)..V..; |
000036C0: 2C 4C 45 4E 4D 41 58 25 28 2E 2E 29 2C 41 52 52 |,LENMAX%(..),ARR|
000036D0: 41 59 24 28 2E 2E 29 2C 00 C9 56 EC 1D 3B 20 20 |AY$(..),..V..; |
000036E0: 20 20 20 20 20 20 2C 41 4E 5A 41 48 4C 2C 46 4C | ,ANZAHL,FL|
000036F0: 41 47 00 CF 56 F6 1D 3B 00 F4 56 00 1E 3B 20 2D |AG..V..;..V..; -|
00003700: 20 43 4F 4C 25 28 2E 2E 29 3A 20 49 4E 54 2D 41 | COL%(..): INT-A|
00003710: 52 52 41 59 2C 20 44 41 53 20 44 49 45 00 17 57 |RRAY, DAS DIE..W|
00003720: 0A 1E 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00003730: 53 50 41 4C 54 45 4E 20 44 45 52 20 41 55 53 2D |SPALTEN DER AUS-|
00003740: 00 3A 57 14 1E 3B 20 20 20 20 20 20 20 20 20 20 |.:W..; |
00003750: 20 20 20 47 41 42 45 50 4F 53 2E 45 4E 54 48 41 | GABEPOS.ENTHA|
00003760: 45 4C 54 00 40 57 1E 1E 3B 00 66 57 28 1E 3B 20 |ELT.@W..;.fW(.; |
00003770: 2D 20 4C 49 4E 45 25 28 2E 2E 29 3A 20 49 4E 54 |- LINE%(..): INT|
00003780: 2D 41 52 52 41 59 2C 20 44 41 53 20 44 49 45 00 |-ARRAY, DAS DIE.|
00003790: 89 57 32 1E 3B 20 20 20 20 20 20 20 20 20 20 20 |.W2.; |
000037A0: 20 20 20 5A 45 49 4C 45 4E 20 44 45 52 20 41 55 | ZEILEN DER AU|
000037B0: 53 2D 00 AD 57 3C 1E 3B 20 20 20 20 20 20 20 20 |S-..W<.; |
000037C0: 20 20 20 20 20 20 47 41 42 45 50 4F 53 2E 45 4E | GABEPOS.EN|
000037D0: 54 48 41 45 4C 54 00 B3 57 46 1E 3B 00 D7 57 50 |THAELT..WF.;..WP|
000037E0: 1E 3B 20 2D 20 4C 45 4E 4D 41 58 25 28 2E 2E 29 |.; - LENMAX%(..)|
000037F0: 3A 20 49 4E 54 2D 41 52 52 41 59 2C 20 44 41 53 |: INT-ARRAY, DAS|
00003800: 00 FC 57 5A 1E 3B 20 20 20 20 20 20 20 20 20 20 |..WZ.; |
00003810: 20 20 20 20 20 20 44 49 45 20 41 55 53 47 41 42 | DIE AUSGAB|
00003820: 45 4C 41 45 4E 00 1E 58 64 1E 3B 20 20 20 20 20 |ELAEN..Xd.; |
00003830: 20 20 20 20 20 20 20 20 20 20 20 47 45 4E 20 45 | GEN E|
00003840: 4E 54 48 41 45 4C 54 00 44 58 6E 1E 3B 20 20 20 |NTHAELT.DXn.; |
00003850: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 49 | (WI|
00003860: 52 44 20 4D 49 54 20 53 50 41 43 45 53 00 66 58 |RD MIT SPACES.fX|
00003870: 78 1E 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |x.; |
00003880: 20 20 20 41 55 46 47 45 46 55 45 4C 4C 54 29 00 | AUFGEFUELLT).|
00003890: 6C 58 82 1E 3B 00 72 58 8C 1E 3B 00 95 58 96 1E |lX..;.rX..;..X..|
000038A0: 3B 20 2D 20 41 52 52 41 59 24 28 2E 2E 29 3A 20 |; - ARRAY$(..): |
000038B0: 41 52 52 41 59 2C 20 44 41 53 20 44 49 45 00 B7 |ARRAY, DAS DIE..|
000038C0: 58 A0 1E 3B 20 20 20 20 20 20 20 20 20 20 20 20 |X..; |
000038D0: 20 20 20 41 55 53 5A 55 47 45 42 45 4E 44 45 4E | AUSZUGEBENDEN|
000038E0: 00 DC 58 AA 1E 3B 20 20 20 20 20 20 20 20 20 20 |..X..; |
000038F0: 20 20 20 20 20 53 54 52 49 4E 47 53 20 45 4E 54 | STRINGS ENT|
00003900: 48 41 45 4C 54 00 E2 58 B4 1E 3B 00 07 59 BE 1E |HAELT..X..;..Y..|
00003910: 3B 20 2D 20 41 4E 5A 41 48 4C 3A 20 41 4E 5A 41 |; - ANZAHL: ANZA|
00003920: 48 4C 20 41 55 53 5A 55 47 45 42 45 4E 44 45 52 |HL AUSZUGEBENDER|
00003930: 00 1F 59 C8 1E 3B 20 20 20 20 20 20 20 20 20 20 |..Y..; |
00003940: 20 53 54 52 49 4E 47 53 00 25 59 D2 1E 3B 00 45 | STRINGS.%Y..;.E|
00003950: 59 DC 1E 3B 20 2D 20 46 4C 41 47 3A 20 30 3D 4E |Y..; - FLAG: 0=N|
00003960: 4F 52 4D 41 4C 45 20 41 55 53 47 41 42 45 00 65 |ORMALE AUSGABE.e|
00003970: 59 E6 1E 3B 20 20 20 20 20 20 20 20 20 31 3D 49 |Y..; 1=I|
00003980: 4E 56 45 52 53 45 20 41 55 53 47 41 42 45 00 6B |NVERSE AUSGABE.k|
00003990: 59 F0 1E 3B 00 71 59 FA 1E 3B 00 94 59 04 1F 3B |Y..;.qY..;..Y..;|
000039A0: 42 53 50 2E 3A 20 53 59 53 20 58 2C 43 4F 4C 25 |BSP.: SYS X,COL%|
000039B0: 28 31 29 2C 4C 49 4E 45 25 28 31 29 2C 00 B5 59 |(1),LINE%(1),..Y|
000039C0: 0E 1F 3B 20 20 20 20 20 20 4C 45 4E 4D 41 58 25 |..; LENMAX%|
000039D0: 28 31 29 2C 41 24 28 31 29 2C 31 30 2C 31 00 DA |(1),A$(1),10,1..|
000039E0: 59 18 1F 3B 20 20 20 20 20 20 47 49 42 54 20 27 |Y..; GIBT '|
000039F0: 41 24 28 31 29 27 2C 20 27 41 24 28 32 29 27 2C |A$(1)', 'A$(2)',|
00003A00: 2E 2E 2E 00 FC 59 22 1F 3B 20 20 20 20 20 20 2C |.....Y".; ,|
00003A10: 27 41 24 28 31 30 29 27 20 28 31 30 20 53 54 52 |'A$(10)' (10 STR|
00003A20: 49 4E 47 53 29 00 1F 5A 2C 1F 3B 20 20 20 20 20 |INGS)..Z,.; |
00003A30: 20 41 4E 20 44 45 4E 20 44 55 52 43 48 20 27 43 | AN DEN DURCH 'C|
00003A40: 4F 4C 25 28 31 29 27 2F 00 41 5A 36 1F 3B 20 20 |OL%(1)'/.AZ6.; |
00003A50: 20 20 20 20 27 4C 49 4E 45 25 28 31 29 27 2C 20 | 'LINE%(1)', |
00003A60: 27 43 4F 4C 25 28 32 29 27 2F 00 5B 5A 40 1F 3B |'COL%(2)'/.[Z@.;|
00003A70: 20 20 20 20 20 20 27 4C 49 4E 45 25 28 32 29 27 | 'LINE%(2)'|
00003A80: 20 2E 2E 2E 00 7D 5A 4A 1F 3B 20 20 20 20 20 20 | ....}ZJ.; |
00003A90: 44 45 46 49 4E 49 45 52 54 45 4E 20 50 4F 53 49 |DEFINIERTEN POSI|
00003AA0: 54 49 4F 4E 45 4E 00 A3 5A 54 1F 3B 20 20 20 20 |TIONEN..ZT.; |
00003AB0: 20 20 49 4E 20 44 45 4E 20 44 55 52 43 48 20 27 | IN DEN DURCH '|
00003AC0: 4C 45 4E 4D 41 58 25 28 2E 2E 29 27 00 C9 5A 5E |LENMAX%(..)'..Z^|
00003AD0: 1F 3B 20 20 20 20 20 20 44 45 46 49 4E 49 45 52 |.; DEFINIER|
00003AE0: 54 45 4E 20 4C 41 45 4E 47 45 4E 20 49 4E 56 45 |TEN LAENGEN INVE|
00003AF0: 52 53 00 D8 5A 68 1F 3B 20 20 20 20 20 20 41 55 |RS..Zh.; AU|
00003B00: 53 00 DE 5A 72 1F 3B 00 E4 5A 7C 1F 3B 00 EA 5A |S..Zr.;..Z|.;..Z|
00003B10: 86 1F 3B 00 F0 5A 90 1F 3B 00 FF 5A 9A 1F 3B 2A |..;..Z..;..Z..;*|
00003B20: 2A 2A 2A 2A 2A 2A 2A 2A 00 0E 5B A4 1F 3B 2A 20 |********..[..;* |
00003B30: 4C 41 42 45 4C 20 2A 00 1D 5B AE 1F 3B 2A 2A 2A |LABEL *..[..;***|
00003B40: 2A 2A 2A 2A 2A 2A 00 23 5B B8 1F 3B 00 43 5B C2 |******.#[..;.C[.|
00003B50: 1F 3B 2A 2A 2A 2A 2A 20 42 45 54 52 49 45 42 53 |.;***** BETRIEBS|
00003B60: 53 59 53 54 45 4D 20 2A 2A 2A 2A 2A 00 69 5B CC |SYSTEM *****.i[.|
00003B70: 1F 2E 45 51 20 42 53 4F 55 54 20 3D 24 46 46 44 |..EQ BSOUT =$FFD|
00003B80: 32 20 20 3B 5A 45 49 43 48 45 4E 41 55 53 47 41 |2 ;ZEICHENAUSGA|
00003B90: 42 45 00 8B 5B D6 1F 2E 45 51 20 50 4C 4F 54 20 |BE..[...EQ PLOT |
00003BA0: 20 3D 24 46 46 46 30 20 20 3B 43 52 53 2E 53 45 | =$FFF0 ;CRS.SE|
00003BB0: 54 5A 45 4E 00 AE 5B E0 1F 2E 45 51 20 43 48 4B |TZEN..[...EQ CHK|
00003BC0: 4B 4F 4D 3D 24 41 45 46 44 20 20 3B 4C 49 45 53 |KOM=$AEFD ;LIES|
00003BD0: 54 20 4B 4F 4D 4D 41 00 D7 5B EA 1F 2E 45 51 20 |T KOMMA..[...EQ |
00003BE0: 47 45 54 42 59 54 3D 24 42 37 39 45 20 20 3B 4C |GETBYT=$B79E ;L|
00003BF0: 49 45 53 54 20 31 2D 42 59 54 45 2D 57 45 52 54 |IEST 1-BYTE-WERT|
00003C00: 00 08 5C F4 1F 2E 45 51 20 47 45 54 50 4F 53 3D |..\...EQ GETPOS=|
00003C10: 24 42 30 38 42 20 20 3B 48 4F 4C 54 20 50 4F 49 |$B08B ;HOLT POI|
00003C20: 4E 54 45 52 20 41 55 46 20 56 41 52 49 41 42 4C |NTER AUF VARIABL|
00003C30: 45 00 1E 5C FE 1F 2E 45 51 20 51 55 4F 54 45 4D |E..\...EQ QUOTEM|
00003C40: 4F 44 45 3D 24 44 34 00 32 5C 08 20 2E 45 51 20 |ODE=$D4.2\. .EQ |
00003C50: 49 4E 53 45 52 54 53 3D 24 44 38 00 38 5C 12 20 |INSERTS=$D8.8\. |
00003C60: 3B 00 3E 5C 1C 20 3B 00 5E 5C 26 20 3B 2A 2A 2A |;.>\. ;.^\& ;***|
00003C70: 2A 2A 20 50 52 4F 47 52 41 4D 4D 49 4E 54 45 52 |** PROGRAMMINTER|
00003C80: 4E 20 2A 2A 2A 2A 2A 00 87 5C 30 20 2E 45 51 20 |N *****..\0 .EQ |
00003C90: 53 54 52 49 4E 47 50 54 52 3D 24 41 35 20 20 20 |STRINGPTR=$A5 |
00003CA0: 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 44 49 45 |;POINTER AUF DIE|
00003CB0: 00 B9 5C 3A 20 2E 45 51 20 4C 45 4E 50 54 52 3D |..\: .EQ LENPTR=|
00003CC0: 24 41 37 20 20 20 20 20 20 3B 50 4F 53 49 54 49 |$A7 ;POSITI|
00003CD0: 4F 4E 45 4E 20 44 45 52 20 56 41 52 49 41 42 4C |ONEN DER VARIABL|
00003CE0: 45 4E 00 EB 5C 44 20 2E 45 51 20 4C 49 4E 45 50 |EN..\D .EQ LINEP|
00003CF0: 54 52 3D 24 41 39 20 20 20 20 20 3B 27 43 4F 4C |TR=$A9 ;'COL|
00003D00: 25 28 2E 2E 29 27 2C 20 27 4C 49 4E 45 25 28 2E |%(..)', 'LINE%(.|
00003D10: 2E 29 27 2C 00 15 5D 4E 20 2E 45 51 20 43 4F 4C |.)',..]N .EQ COL|
00003D20: 50 54 52 3D 24 41 42 20 20 20 20 20 20 3B 27 4C |PTR=$AB ;'L|
00003D30: 45 4E 4D 41 58 25 28 2E 2E 29 20 55 4E 44 00 3A |ENMAX%(..) UND.:|
00003D40: 5D 58 20 2E 45 51 20 53 54 52 49 4E 47 44 45 53 |]X .EQ STRINGDES|
00003D50: 3D 24 41 44 20 20 20 3B 27 41 52 41 59 24 28 2E |=$AD ;'ARAY$(.|
00003D60: 2E 29 27 00 40 5D 62 20 3B 00 68 5D 6C 20 2E 45 |.)'.@]b ;.h]l .E|
00003D70: 51 20 53 48 45 4C 50 20 20 3D 24 46 42 20 20 20 |Q SHELP =$FB |
00003D80: 20 20 20 3B 56 45 52 53 43 48 49 45 44 45 4E 45 | ;VERSCHIEDENE|
00003D90: 53 00 9E 5D 76 20 2E 45 51 20 53 4E 55 4D 42 45 |S..]v .EQ SNUMBE|
00003DA0: 52 3D 24 46 43 20 20 20 20 20 20 3B 41 4E 5A 41 |R=$FC ;ANZA|
00003DB0: 48 4C 20 41 55 53 47 45 47 45 42 45 4E 45 52 20 |HL AUSGEGEBENER |
00003DC0: 53 54 52 49 4E 47 53 00 D9 5D 80 20 2E 45 51 20 |STRINGS..]. .EQ |
00003DD0: 4C 45 4E 4D 41 58 3D 24 46 44 20 20 20 20 20 20 |LENMAX=$FD |
00003DE0: 3B 27 4C 45 4E 4D 41 58 27 46 55 45 52 20 44 45 |;'LENMAX'FUER DE|
00003DF0: 4E 20 41 4B 54 55 45 4C 4C 45 4E 20 53 54 52 49 |N AKTUELLEN STRI|
00003E00: 4E 47 00 DF 5D 8A 20 3B 00 E5 5D 94 20 3B 00 EB |NG..]. ;..]. ;..|
00003E10: 5D 9E 20 3B 00 04 5E A8 20 3B 2A 2A 2A 2A 2A 2A |]. ;..^. ;******|
00003E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 5E |*************..^|
00003E30: B2 20 3B 2A 20 49 4E 49 54 49 41 4C 49 53 49 45 |. ;* INITIALISIE|
00003E40: 52 55 4E 47 20 2A 00 36 5E BC 20 3B 2A 2A 2A 2A |RUNG *.6^. ;****|
00003E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003E60: 3C 5E C6 20 3B 00 68 5E D0 20 3B 2A 2A 2A 2A 2A |<^. ;.h^. ;*****|
00003E70: 20 5A 45 49 47 45 52 20 41 55 46 20 56 41 52 49 | ZEIGER AUF VARI|
00003E80: 41 42 4C 45 4E 20 48 4F 4C 45 4E 20 2A 2A 2A 2A |ABLEN HOLEN ****|
00003E90: 2A 00 79 5E DA 20 53 54 52 4F 55 54 20 4C 44 58 |*.y^. STROUT LDX|
00003EA0: 23 36 00 A3 5E E4 20 4C 49 45 53 50 41 52 20 53 |#6..^. LIESPAR S|
00003EB0: 54 58 53 48 45 4C 50 3B 4E 41 43 48 45 49 4E 41 |TXSHELP;NACHEINA|
00003EC0: 4E 44 45 52 20 50 4F 49 4E 54 45 52 00 C7 5E EE |NDER POINTER..^.|
00003ED0: 20 20 4A 53 52 48 4F 4C 56 41 52 50 54 52 3B 41 | JSRHOLVARPTR;A|
00003EE0: 55 46 20 44 49 45 20 56 41 52 49 41 42 4C 45 4E |UF DIE VARIABLEN|
00003EF0: 00 DB 5E F8 20 20 4C 44 58 53 48 45 4C 50 3B 48 |..^. LDXSHELP;H|
00003F00: 4F 4C 45 4E 00 E1 5E 02 21 3B 00 F5 5E 0C 21 20 |OLEN..^.!;..^.! |
00003F10: 53 54 41 53 54 52 49 4E 47 50 54 52 2C 58 00 0B |STASTRINGPTR,X..|
00003F20: 5F 16 21 20 53 54 59 53 54 52 49 4E 47 50 54 52 |_.! STYSTRINGPTR|
00003F30: 2B 31 2C 58 00 14 5F 20 21 20 44 45 58 00 1D 5F |+1,X.._ ! DEX.._|
00003F40: 2A 21 20 44 45 58 00 2D 5F 34 21 20 42 50 4C 4C |*! DEX.-_4! BPLL|
00003F50: 49 45 53 50 41 52 00 33 5F 3E 21 3B 00 39 5F 48 |IESPAR.3_>!;.9_H|
00003F60: 21 3B 00 3F 5F 52 21 3B 00 67 5F 5C 21 3B 2A 2A |!;.?_R!;.g_\!;**|
00003F70: 2A 2A 2A 20 41 4E 5A 41 48 4C 20 55 4E 44 20 46 |*** ANZAHL UND F|
00003F80: 4C 41 47 20 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 2A |LAG HOLEN ******|
00003F90: 00 76 5F 66 21 20 4A 53 52 43 48 4B 4B 4F 4D 00 |.v_f! JSRCHKKOM.|
00003FA0: 85 5F 70 21 20 4A 53 52 47 45 54 42 59 54 00 95 |._p! JSRGETBYT..|
00003FB0: 5F 7A 21 20 53 54 58 53 4E 55 4D 42 45 52 00 9B |_z! STXSNUMBER..|
00003FC0: 5F 84 21 3B 00 B8 5F 8E 21 20 4A 53 52 43 48 4B |_.!;.._.! JSRCHK|
00003FD0: 4B 4F 4D 3B 57 45 4E 4E 20 46 4C 41 47 3C 3E 30 |KOM;WENN FLAG<>0|
00003FE0: 3A 00 D9 5F 98 21 20 4A 53 52 47 45 54 42 59 54 |:.._.! JSRGETBYT|
00003FF0: 3B 27 52 56 53 20 4F 4E 27 20 41 55 53 47 45 42 |;'RVS ON' AUSGEB|
00004000: 45 4E 00 E4 5F A2 21 20 43 50 58 23 30 00 F5 5F |EN.._.! CPX#0.._|
00004010: AC 21 20 42 45 51 53 54 52 53 54 41 52 54 00 01 |.! BEQSTRSTART..|
00004020: 60 B6 21 20 4C 44 41 23 31 38 00 0F 60 C0 21 20 |`.! LDA#18..`.! |
00004030: 4A 53 52 42 53 4F 55 54 00 15 60 CA 21 3B 00 1B |JSRBSOUT..`.!;..|
00004040: 60 D4 21 3B 00 21 60 DE 21 3B 00 44 60 E8 21 3B |`.!;.!`.!;.D`.!;|
00004050: 2A 2A 2A 2A 2A 2A 20 53 54 52 49 4E 47 20 41 55 |****** STRING AU|
00004060: 53 47 45 42 45 4E 20 2A 2A 2A 2A 2A 2A 00 4A 60 |SGEBEN ******.J`|
00004070: F2 21 3B 00 5F 60 FC 21 3B 2A 43 55 52 53 4F 52 |.!;._`.!;*CURSOR|
00004080: 20 53 45 54 5A 45 4E 2A 00 72 60 06 22 53 54 52 | SETZEN*.r`."STR|
00004090: 53 54 41 52 54 20 4C 44 59 23 31 00 86 60 10 22 |START LDY#1..`."|
000040A0: 20 4C 44 41 28 4C 49 4E 45 50 54 52 29 2C 59 00 | LDA(LINEPTR),Y.|
000040B0: 8F 60 1A 22 20 54 41 58 00 B7 60 24 22 20 4C 44 |.`." TAX..`$" LD|
000040C0: 41 28 43 4F 4C 50 54 52 29 2C 59 3B 43 55 52 53 |A(COLPTR),Y;CURS|
000040D0: 4F 52 20 41 55 46 20 53 54 41 52 54 50 4F 53 2E |OR AUF STARTPOS.|
000040E0: 00 D3 60 2E 22 20 54 41 59 3B 46 55 45 52 20 44 |..`." TAY;FUER D|
000040F0: 45 4E 20 41 4B 54 55 45 4C 4C 45 4E 00 EA 60 38 |EN AKTUELLEN..`8|
00004100: 22 20 43 4C 43 3B 53 54 52 49 4E 47 20 53 45 54 |" CLC;STRING SET|
00004110: 5A 45 4E 00 F7 60 42 22 20 4A 53 52 50 4C 4F 54 |ZEN..`B" JSRPLOT|
00004120: 00 FD 60 4C 22 3B 00 03 61 56 22 3B 00 09 61 60 |..`L";..aV";..a`|
00004130: 22 3B 00 23 61 6A 22 3B 2A 27 4C 45 4E 4D 41 58 |";.#aj";*'LENMAX|
00004140: 27 20 45 52 4D 49 54 54 45 4C 4E 2A 00 2E 61 74 |' ERMITTELN*..at|
00004150: 22 20 4C 44 59 23 31 00 41 61 7E 22 20 4C 44 41 |" LDY#1.Aa~" LDA|
00004160: 28 4C 45 4E 50 54 52 29 2C 59 00 50 61 88 22 20 |(LENPTR),Y.Pa." |
00004170: 53 54 41 4C 45 4E 4D 41 58 00 56 61 92 22 3B 00 |STALENMAX.Va.";.|
00004180: 5C 61 9C 22 3B 00 62 61 A6 22 3B 00 82 61 B0 22 |\a.";.ba.";..a."|
00004190: 3B 2A 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 |;*STRINGDESCRIPT|
000041A0: 4F 52 45 4E 20 48 4F 4C 45 4E 2A 00 8D 61 BA 22 |OREN HOLEN*..a."|
000041B0: 20 4C 44 59 23 32 00 AC 61 C4 22 53 54 52 48 4F | LDY#2..a."STRHO|
000041C0: 4C 44 45 53 20 4C 44 41 28 53 54 52 49 4E 47 50 |LDES LDA(STRINGP|
000041D0: 54 52 29 2C 59 00 C0 61 CE 22 20 53 54 41 53 54 |TR),Y..a." STAST|
000041E0: 52 49 4E 47 44 45 53 2C 59 00 C9 61 D8 22 20 44 |RINGDES,Y..a." D|
000041F0: 45 59 00 DB 61 E2 22 20 42 50 4C 53 54 52 48 4F |EY..a." BPLSTRHO|
00004200: 4C 44 45 53 00 E1 61 EC 22 3B 00 E7 61 F6 22 3B |LDES..a.";..a.";|
00004210: 00 ED 61 00 23 3B 00 04 62 0A 23 3B 2A 53 54 52 |..a.#;..b.#;*STR|
00004220: 49 4E 47 20 41 55 53 47 45 42 45 4E 2A 00 0F 62 |ING AUSGEBEN*..b|
00004230: 14 23 20 4C 44 59 23 30 00 28 62 1E 23 41 55 53 |.# LDY#0.(b.#AUS|
00004240: 47 41 42 45 20 43 50 59 53 54 52 49 4E 47 44 45 |GABE CPYSTRINGDE|
00004250: 53 00 39 62 28 23 20 42 45 51 41 55 53 47 41 42 |S.9b(# BEQAUSGAB|
00004260: 45 31 00 51 62 32 23 20 4C 44 41 28 53 54 52 49 |E1.Qb2# LDA(STRI|
00004270: 4E 47 44 45 53 2B 31 29 2C 59 00 5F 62 3C 23 20 |NGDES+1),Y._b<# |
00004280: 4A 53 52 42 53 4F 55 54 00 78 62 46 23 20 49 4E |JSRBSOUT.xbF# IN|
00004290: 59 3B 53 54 52 49 4E 47 20 41 55 53 47 45 42 45 |Y;STRING AUSGEBE|
000042A0: 4E 00 9D 62 50 23 20 42 4E 45 41 55 53 47 41 42 |N..bP# BNEAUSGAB|
000042B0: 45 3B 55 4E 44 20 52 45 53 54 4C 49 43 48 45 20 |E;UND RESTLICHE |
000042C0: 4C 41 45 4E 47 45 00 CC 62 5A 23 3B 20 20 20 20 |LAENGE..bZ#; |
000042D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000042E0: 20 20 20 20 3B 42 49 53 20 27 4C 45 4E 4D 41 58 | ;BIS 'LENMAX|
000042F0: 27 20 4D 49 54 00 FC 62 64 23 3B 20 20 20 20 20 |' MIT..bd#; |
00004300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004310: 20 20 20 3B 53 50 41 43 45 53 20 41 55 46 46 55 | ;SPACES AUFFU|
00004320: 45 4C 4C 45 4E 00 11 63 6E 23 41 55 53 47 41 42 |ELLEN..cn#AUSGAB|
00004330: 45 31 20 4C 44 41 23 22 20 22 00 28 63 78 23 41 |E1 LDA#" ".(cx#A|
00004340: 55 53 47 41 42 45 32 20 43 50 59 4C 45 4E 4D 41 |USGABE2 CPYLENMA|
00004350: 58 00 39 63 82 23 20 42 43 53 41 55 53 47 41 42 |X.9c.# BCSAUSGAB|
00004360: 45 33 00 47 63 8C 23 20 4A 53 52 42 53 4F 55 54 |E3.Gc.# JSRBSOUT|
00004370: 00 50 63 96 23 20 49 4E 59 00 61 63 A0 23 20 42 |.Pc.# INY.ac.# B|
00004380: 4E 45 41 55 53 47 41 42 45 32 00 67 63 AA 23 3B |NEAUSGABE2.gc.#;|
00004390: 00 6D 63 B4 23 3B 00 73 63 BE 23 3B 00 99 63 C8 |.mc.#;.sc.#;..c.|
000043A0: 23 3B 2A 46 45 52 54 49 47 3F 20 53 4F 4E 53 54 |#;*FERTIG? SONST|
000043B0: 20 50 4F 49 4E 54 45 52 20 45 52 48 45 4F 48 45 | POINTER ERHEOHE|
000043C0: 4E 2A 00 B1 63 D2 23 41 55 53 47 41 42 45 33 20 |N*..c.#AUSGABE3 |
000043D0: 44 45 43 53 4E 55 4D 42 45 52 00 C0 63 DC 23 20 |DECSNUMBER..c.# |
000043E0: 42 45 51 46 45 52 54 49 47 00 C6 63 E6 23 3B 00 |BEQFERTIG..c.#;.|
000043F0: D1 63 F0 23 20 4C 44 58 23 34 00 08 64 FA 23 4E |.c.# LDX#4..d.#N|
00004400: 45 58 54 20 4C 44 41 4C 45 4E 50 54 52 2C 58 3B |EXT LDALENPTR,X;|
00004410: 55 4D 20 4A 45 20 32 20 45 52 48 4F 45 48 45 4E |UM JE 2 ERHOEHEN|
00004420: 20 28 3D 4E 45 58 54 20 50 4F 49 4E 54 45 52 29 | (=NEXT POINTER)|
00004430: 3A 00 25 64 04 24 20 43 4C 43 3B 27 43 4F 4C 50 |:.%d.$ CLC;'COLP|
00004440: 54 52 27 2C 20 27 4C 49 4E 45 50 54 52 27 00 3D |TR', 'LINEPTR'.=|
00004450: 64 0E 24 20 41 44 43 23 32 3B 55 4E 44 20 27 4C |d.$ ADC#2;UND 'L|
00004460: 45 4E 50 54 52 27 00 4E 64 18 24 20 53 54 41 4C |ENPTR'.Nd.$ STAL|
00004470: 45 4E 50 54 52 2C 58 00 5C 64 22 24 20 42 43 43 |ENPTR,X.\d"$ BCC|
00004480: 4E 45 58 54 31 00 6F 64 2C 24 20 49 4E 43 4C 45 |NEXT1.od,$ INCLE|
00004490: 4E 50 54 52 2B 31 2C 58 00 7D 64 36 24 4E 45 58 |NPTR+1,X.}d6$NEX|
000044A0: 54 31 20 44 45 58 00 86 64 40 24 20 44 45 58 00 |T1 DEX..d@$ DEX.|
000044B0: 93 64 4A 24 20 42 50 4C 4E 45 58 54 00 99 64 54 |.dJ$ BPLNEXT..dT|
000044C0: 24 3B 00 9F 64 5E 24 3B 00 B1 64 68 24 20 4C 44 |$;..d^$;..dh$ LD|
000044D0: 41 53 54 52 49 4E 47 50 54 52 00 D4 64 72 24 20 |ASTRINGPTR..dr$ |
000044E0: 43 4C 43 3B 27 53 54 52 49 4E 47 50 54 52 27 20 |CLC;'STRINGPTR' |
000044F0: 55 4D 20 33 20 45 52 48 4F 45 48 45 4E 00 DF 64 |UM 3 ERHOEHEN..d|
00004500: 7C 24 20 41 44 43 23 33 00 F1 64 86 24 20 53 54 ||$ ADC#3..d.$ ST|
00004510: 41 53 54 52 49 4E 47 50 54 52 00 FF 64 90 24 20 |ASTRINGPTR..d.$ |
00004520: 42 43 43 4E 45 58 54 32 00 13 65 9A 24 20 49 4E |BCCNEXT2..e.$ IN|
00004530: 43 53 54 52 49 4E 47 50 54 52 2B 31 00 29 65 A4 |CSTRINGPTR+1.)e.|
00004540: 24 4E 45 58 54 32 20 4A 4D 50 53 54 52 53 54 41 |$NEXT2 JMPSTRSTA|
00004550: 52 54 00 2F 65 AE 24 3B 00 35 65 B8 24 3B 00 3B |RT./e.$;.5e.$;.;|
00004560: 65 C2 24 3B 00 53 65 CC 24 3B 2A 2A 2A 2A 2A 20 |e.$;.Se.$;***** |
00004570: 46 45 52 54 49 47 20 2A 2A 2A 2A 2A 00 64 65 D6 |FERTIG *****.de.|
00004580: 24 46 45 52 54 49 47 20 4C 44 41 23 30 00 76 65 |$FERTIG LDA#0.ve|
00004590: E0 24 20 53 54 41 51 55 4F 54 45 4D 4F 44 45 00 |.$ STAQUOTEMODE.|
000045A0: 86 65 EA 24 20 53 54 41 49 4E 53 45 52 54 53 00 |.e.$ STAINSERTS.|
000045B0: 93 65 F4 24 20 4C 44 41 23 31 34 36 00 C0 65 FE |.e.$ LDA#146..e.|
000045C0: 24 20 4A 4D 50 42 53 4F 55 54 3B 27 52 56 53 20 |$ JMPBSOUT;'RVS |
000045D0: 4F 46 46 27 20 41 55 53 47 45 42 45 4E 20 2B 20 |OFF' AUSGEBEN + |
000045E0: 42 41 53 49 43 20 21 21 21 00 C6 65 00 25 3B 00 |BASIC !!!..e.%;.|
000045F0: CC 65 02 25 3B 00 D2 65 04 25 3B 00 D8 65 06 25 |.e.%;..e.%;..e.%|
00004600: 3B 00 DE 65 08 25 3B 00 02 66 12 25 3B 2A 2A 2A |;..e.%;..f.%;***|
00004610: 20 47 52 4F 53 53 2F 4B 4C 45 49 4E 20 49 47 4E | GROSS/KLEIN IGN|
00004620: 4F 52 49 45 52 45 4E 20 2A 2A 2A 00 13 66 58 25 |ORIEREN ***..fX%|
00004630: 49 47 4E 4F 52 45 20 4C 44 58 23 32 00 2C 66 62 |IGNORE LDX#2.,fb|
00004640: 25 49 47 4E 4F 52 45 31 20 43 4D 50 4B 4C 45 49 |%IGNORE1 CMPKLEI|
00004650: 4E 55 4D 2C 58 00 3A 66 64 25 20 42 45 51 4B 4C |NUM,X.:fd% BEQKL|
00004660: 45 49 4E 00 4C 66 66 25 20 43 4D 50 47 52 4F 53 |EIN.Lff% CMPGROS|
00004670: 53 55 4D 2C 58 00 5A 66 68 25 20 42 45 51 47 52 |SUM,X.Zfh% BEQGR|
00004680: 4F 53 53 00 63 66 80 25 20 44 45 58 00 73 66 8A |OSS.cf.% DEX.sf.|
00004690: 25 20 42 50 4C 49 47 4E 4F 52 45 31 00 83 66 94 |% BPLIGNORE1..f.|
000046A0: 25 20 42 4D 49 49 47 4E 4F 52 45 32 00 89 66 A8 |% BMIIGNORE2..f.|
000046B0: 25 3B 00 A0 66 C6 25 4B 4C 45 49 4E 20 4C 44 41 |%;..f.%KLEIN LDA|
000046C0: 47 52 4F 53 53 55 4D 2C 58 00 AF 66 D0 25 20 42 |GROSSUM,X..f.% B|
000046D0: 4E 45 55 4D 4C 41 55 54 00 C6 66 DA 25 47 52 4F |NEUMLAUT..f.%GRO|
000046E0: 53 53 20 4C 44 41 4B 4C 45 49 4E 55 4D 2C 58 00 |SS LDAKLEINUM,X.|
000046F0: E1 66 E4 25 55 4D 4C 41 55 54 20 43 4D 50 28 41 |.f.%UMLAUT CMP(A|
00004700: 4B 54 44 45 53 2B 31 29 2C 59 00 ED 66 EE 25 20 |KTDES+1),Y..f.% |
00004710: 42 45 51 50 4F 53 00 F3 66 FC 25 3B 00 10 67 FD |BEQPOS..f.%;..g.|
00004720: 25 49 47 4E 4F 52 45 32 20 4C 44 41 28 53 55 43 |%IGNORE2 LDA(SUC|
00004730: 48 44 45 53 2B 31 29 2C 59 00 25 67 FE 25 20 43 |HDES+1),Y.%g.% C|
00004740: 4D 50 28 41 4B 54 44 45 53 2B 31 29 2C 59 00 31 |MP(AKTDES+1),Y.1|
00004750: 67 00 26 20 42 45 51 50 4F 53 00 3E 67 02 26 20 |g.& BEQPOS.>g.& |
00004760: 45 4F 52 23 24 38 30 00 53 67 04 26 20 43 4D 50 |EOR#$80.Sg.& CMP|
00004770: 28 41 4B 54 44 45 53 2B 31 29 2C 59 00 5F 67 06 |(AKTDES+1),Y._g.|
00004780: 26 20 42 45 51 50 4F 53 00 6B 67 08 26 4E 45 47 |& BEQPOS.kg.&NEG|
00004790: 20 43 4C 43 00 74 67 09 26 20 52 54 53 00 80 67 | CLC.tg.& RTS..g|
000047A0: 0A 26 50 4F 53 20 53 45 43 00 89 67 0B 26 20 52 |.&POS SEC..g.& R|
000047B0: 54 53 00 8F 67 0C 26 3B 00 AC 67 0E 26 3B 2A 20 |TS..g.&;..g.&;* |
000047C0: 55 4D 4C 41 55 54 45 20 4B 4C 45 49 4E 2F 47 52 |UMLAUTE KLEIN/GR|
000047D0: 4F 53 53 20 2A 00 C6 67 16 26 4B 4C 45 49 4E 55 |OSS *..g.&KLEINU|
000047E0: 4D 20 2E 42 59 22 3A 22 2C 35 39 2C 22 40 22 00 |M .BY":",59,"@".|
000047F0: E1 67 2A 26 47 52 4F 53 53 55 4D 20 2E 42 59 22 |.g*&GROSSUM .BY"|
00004800: 5B 22 2C 22 5D 22 2C 22 BA 22 00 E7 67 3E 26 3B |[","]","."..g>&;|
00004810: 00 EF 67 48 26 2E 45 4E 00 00 00 |..gH&.EN... |
X...D.;*************************.. N.;*
DRUCKERTREIBER *.5 X.;***********
**************.; ..;.I ...BA $9BD0.O ..;
.J ..EQ BSOUTORIG = $F1CA.. ...EQ DEVI
CE = $9A.. ...EQ DTABELLE = $0700.
. H..EQ WANDELFLAG = $02.. R.;.C ..;.V .
. JMPMAKROSINIT.. .. JMPFSCREENINIT.. ..
JMPSCSEARCH..!.. JMPSTRINGSEARCH..!.. J
MPSTROUT./!". JMPSERINIT.@!,. JMPCENTINI
T.F!6.;.L!@.;.R!J.;.X!T.;.^!^.;.|!H.;***
DEVICE PRESENT ? ***..!R..EQ LISTEN = $
FFB1..!|..EQ UNLSN = $FFAE..!...EQ STATU
S = $90.D!..;.J!..;.Y!.. LDASTATUS..!..
CMP#8..!.. BCSPSERIELL..!B.;.."L. LDXSPR
UNG+1.""V. CPX#<(BSOUTORIG).4".. BNEPPAR
ALLEL.E".. LDXSPRUNG+2.[".. CPX#>(BSOUTO
RIG).L".. BEQPSERIELL.R"..;.X"..;.."..;*
PARALLELER DRUCKER *.."&.PPARALLEL LDX#
$0D.."0. STX$DD01.F":. LDA$DD00.S"D. AND
#$FB.."N. STA$DD00.."X. ORA#$04.."B. STA
$DD00..#L.;..#V.PWAIT LDY#$00.(#..PWAIT1
LDA$DD0D.5#.. AND#$10.C#.. BNEPOKAY.L#.
. DEY.[#.. BNEPWAIT1.D#.. DEX.R#.. BNEPW
AIT.X#F.;..#P. LDA#$80..#Z. .BY$2C..#..P
OKAY LDA#$00..#.. STASTATUS..#.. LDA#$10
.M#.. STA$DD0D..#.. LDA$DD0D..#.. RTS..#
.;..#*.;..$4.;* SERIELLES GERAET *..$>.
PSERIELL LDX#0.,$H. STXSTATUS.;$R. JSRLI
STEN.I$\. JMPUNLSN.O$F.;.U$P.;.[$Z.;.A$.
.;.G$..;..$..;*** CENTRONICS-INIT ***..$
..CENTINIT SEI..$.. LDA#$FF..$.. STA$DD0
3..$.. LDA$DD02.K$J. ORA#$04.Y$T. STA$DD
02..$.. LDA$DD00..$.. ORA#$04..%.. STA$D
D00..%.. LDA#$10..%.. STA$DD0D.+%.. LDA$
DD0D.?%.. LDA#<(CENTOUT).P%$. STASPRUNG+
1.D%.. LDA#>(CENTOUT).U%8. STASPRUNG+2.~
%B. CLI..%L. RTS..%V.;..%`.;..%J.;*** SE
RIELL-INIT ***..%T.SERINIT SEI.S%~. LDA#
<(BSOUTORIG)..%.. STASPRUNG+1..%.. LDA#>
(BSOUTORIG)..&.. STASPRUNG+2..&.. CLI..&
.. RTS.#&..;.)&D.;.O&N.;*** AUSGABE UEBE
R CENTRONICS ***.D&X.CENTOUT STA$DD01.R&
.. LDA$DD00.&.. AND#$FB..&.. STA$DD00..
&.. ORA#$04..&.. STA$DD00..&..WAIT LDA$D
D0D.G&.. AND#$10.T&(. BEQWAIT..&2. CLC..
&<. RTS..&F.;..&P.;..'..;*** BSOUT-NEU *
**..'H.;.+'R.;*AUSGABE AUF DRUCKER?*.<'.
.BSOUTNEU PHA.K'.. LDADEVICE.V'.. CMP#4.
H'.. BCCBSOUTNEU1.S'.. CMP#7..'.. BCCBSO
UT1..'..BSOUTNEU1 PLA..'". JMPBSOUTORIG.
.',.;..'6.;.S'@.;*BYTE WANDELN UND AUSGE
BEN*..'J.BSOUT1 STXDHELP..'T. PLA..(^. L
DXWANDELFLAG..(H. BMIBSOUT2..(R. TAX.$(|
. DEX.7(.. LDADTABELLE,X.K(..BSOUT2 LDXD
HELP.C(..SPRUNG JMPBSOUTORIG.R(..DHELP .
BY0.X(..;.~(..;..(B.;..(L.;..(V.;..(..;.
.(..;***********************.P(..;*
MAKROS *..(..;*****************
******..(..;..(..;..)...EQ IRQVEKTOR=$03
14.')&..EQ IRQORIG=$EA31.7)0..EQ KEY=$C5
.J):..EQ CTRL=$028D._)D..EQ PUFFER=$0276
.R)N..EQ ANZAHL=$C6..)X..EQ MTABELLE=$06
00..)B.;..)L.;..)V.;..)..;..)..;*** IRQ-
ROUTINE INIT. ***.S)..MAKROSINIT SEI..).
. LDA#<(IRQROUTINE)..).. STAIRQVEKTOR..*
.. LDA#>(IRQROUTINE).'*.. STAIRQVEKTOR+1
.9*F. JSRDELMAKROS.B*P. CLI.K*Z. RTS.Q*.
.;.W*..;.]*..;.X*..;*** RTI VERBIEGEN **
*..*..IRQROUTINE PLA;NACH IRQ..*.. STARE
GISTER;AUF STACK.K* . PLA;GERETTETE REGI
STER..**. STAREGISTER+1;HOLEN UND..+4. P
LA;ZWISCHENSPEICHERN..+>. STAREGISTER+2.
.+H.;.I+R. LDA#>(ROUTINE);ADRESSE DER HA
UPTROUTINE.A+\. PHA;UND STATUS AUF..+F.
LDA#<(ROUTINE);STACK BRINGEN..+P. PHA..+
Z. PHP..+.. LDAREGISTER+2;ANSCHLIESSEND.
O+.. PHA;REGISTERINHALTE..+.. LDAREGISTE
R+1;AUCH WIEDER..,.. PHA;AUF STACK BRING
EN..,.. LDAREGISTER.#,.. PHA.J,.. JMPIRQ
ORIG;=> NORMALE IRQ-ROUTINE.P,J.;.V,T.;.
T,..;*** IRQ-HAUPTROUTINE ***..,..ROUTIN
E PHA;REGISTER RETTEN..,.. TXA..,.. PHA.
.,.. TYA..,.. PHA..,..;.V,$. LDAKEY;KEIN
E TASTE..,.. CMP#64;GEDRUECKT?..-8. BEQI
RQEND;JA=>..-B.;.+-L. CMPLASTKEY;TASTE=L
ETZTE TASTE?.I-V. BEQIRQEND;JA=>IGNORIER
EN.O-`.;.P-J. LDAFLAG;DEFINEFLAG GESETZT
?..-T. BNEDEFINE;JA=>DEFINE..-~.;..-.. L
DACTRL;CTRL-KOMBINATION.N-.. CMP#4;(=MAK
ROAUSFUEHRUNG)?..-.. BEQIRQ1;JA=>..-..;.
.... CMP#2;C= - KOMBINATION?.#... BNEIRQ
END;NEIN=>IGNORIEREN.).D.;.A.N. LDAKEY;C
= + SPACE?.M.X. CMP#60.B... BNENODEL;NEI
N=>.H...;.N...;.....;* MAKROS LOESCHEN *
..... INC53280. ... LDY#0.....LOOP JSRDE
LMAKROS...(. DEY.L.2. BNELOOP.Z.<. DEC53
280...F. JMPIRQEND...P.;../Z.NODEL CMP#1
;C= + RETURN?.,/D. BNEIRQEND;NEIN=>IGNOR
IEREN.2/N.;.Z/X.;* MAKRODEFINITION INITI
ALISIEREN *.H/.. INC53280.U/.. INCFLAG..
/.. LDX#11../ . LDA#0../..INITMAKRO STAM
AKRO,X../.. DEX../.. BPLINITMAKRO.O/H. B
MIIRQEND.U/R.;../..;../..;* MAKRO? *..0.
.IRQ1 LDAKEY;CTRL-KOMBINATION SUCHEN."0.
. STAZWISCH.10.. JSRSEARCH.Q0.. BCCIRQEN
D;NICHT GEFUNDEN=>.W0..;.Q0". LDY#0;SONS
T MAKRO IN..0,.COPY INX;TASTATURPUFFER K
OPIEREN..06. INY..0@. LDAMTABELLE,X..0J.
BEQCOPY1.Q0T. STAPUFFER,Y..0^. BNECOPY.
.0H.COPY1 DEY..0R. STYANZAHL..1|.;..1..;
..1..;* IRQEND *.=1..IRQEND LDAKEY;AKTUE
LLE TASTE FUER.E1.. STALASTKEY;NAECHSTEN
AUFRUF RETTEN.K1..;..1.. PLA;REGISTER H
OLEN..1B. TAY;UND RTI ZUR..1L. PLA;ORIGI
NALADRESE..1V. TAX.B1.. PLA.K1.. RTI.Q1.
.;.W1..;..1..;*** DEFINE ***..2..DEFINE
LDACTRL;C= + RETURN?.%2.. CMP#2;NEIN=> P
UFFERN.52&. BNEPUFFERN.A20. LDAKEY.L2:.
CMP#1.\2D. BNEPUFFERN.B2N.;.S2X.;* DEFSA
VE *. 2B.DEFSAVE LDAMAKRO;CTRL-KOMBINATI
ON SUCHEN.E2L. STAZWISCH;MAKRO AN BETREF
FENDER..2V. JSRSEARCH;POSITION IN DIE..3
.. LDY#0;MAKROTABELLE KOPIEREN..3..DEFSA
VE1 LDAMAKRO,Y.03.. STAMTABELLE,X.93.. I
NY.B3.. INX.N3.. CPY#11._3.. BNEDEFSAVE1
.E3F.;.S3P. DEC53280..3Z. DECFLAG..3.. J
MPIRQEND..3..;..3..;* PUFFERN *.I3..PUFF
ERN LDX#0;FREI POSITION IM..3..PUFFERN1
LDAMAKRO,X;MAKROSPEICHER SUCHEN..4.. BEQ
PUFFERN2..4 . INX.!4*. BNEPUFFERN1.'44.;
.B4>.PUFFERN2 LDACTRL;CTRL-.Z4H. CMP#4;K
OMBINATION?.R4R. BNEPUFFERN3;NEIN=>..4\.
DECANZAHL;AUSGABE DER CTRL-KOMB.VERHIND
ERN..4F. LDAKEY..4P. BNEPUFFERN4.T4Z.PUF
FERN3 JSRCHAR..4..PUFFERN4 STAMAKRO,X..4
.. CPX#10..5.. BEQDEFSAVE..5.. BNEIRQEND
..5..;.#5..;.75..;*** SEARCH ***.H5J.SEA
RCH LDX#0.B5T.SEARCH1 LDAMTABELLE,X.S5..
BEQNOTFOUND..5.. CMPZWISCH..5.. BEQFOUN
D..5.. TXA..5.. CLC..5.. ADC#12..5.. TAX
.D5$. CPX#240.T5.. BNESEARCH1..58. LDX#0
..5B.;..5L.NOTFOUND CLC..5V. RTS..6`.FOU
ND SEC..6J. RTS..6T.;."6~.;.@6..;*** CHA
R: ASCII-CODE ***.S6..CHAR LDYANZAHL.D6.
. LDAPUFFER,Y.M6.. RTS.S6..;.Y6..;..6D.;
*** DEL MAKROS ***..6N.DELMAKROS LDX#240
..6X. LDA#0.I6..DEL1 STAMTABELLE,X.R6..
DEX..6.. CPX#$FF..6.. BNEDEL1..6.. RTS..
6..;..7..LASTKEY .BY$00..7(.FLAG .BY$00.
072.ZWISCH .BY$00.L7<.REGISTER .BY$00,$0
0,$00..7F.MAKRO .BY$00,$00,$00,$00,$00,$
00,$00,$00,$00,$00,$00,$00..7P.;..7Z.;..
7D.;..7N.;..7X.;..7..;.E7..;************
******..7..;* FASTSCREEN *..7 .;****
**************..7..;..8..;..8...EQ PLOT=
$FFF0.(8H..EQ BSOUT=$F1CA.?8R..EQ BSOUTV
KT=$0326.S8...EQ RVSFLAG=$C7.G8...EQ COL
OR=$0286.|8...EQ DEVICENR=$9A..8...EQ LI
NEPTR=$D1. 8...EQ COL=$D3..8...EQ LINE=$
D6..8...EQ X=$9E.M8"..EQ Y=$9F..8,..EQ P
AINT=$D800..86.;..8@.;..8J.;..8T.;..9^.F
SCREENINIT SEI.#9H. LDA#<(FSCRSTART).99R
. LDX#>(FSCRSTART).J9|. STABSOUTVKT.]9..
STXBSOUTVKT+1.F9.. CLI.O9.. RTS.U9..;.{
9..;..9..FSCRSTART STXX..9B.;..9L. LDXDE
VICENR..9V. CPX#3.D9.. BNEORIGROUTINE.P9
.. LDXCOL..9.. CPX#39..9.. BEQORIGROUTIN
E..9.. CPX#79..:.. BEQORIGROUTINE..:..;.
#:&. CMP#" ".7:0. BCCORIGROUTINE.I::. CM
P#91;'Z'+1.Y:D. BCCNOSHIFT._:N.;.T:X.ORI
GROUTINE LDXX..:B. JMPBSOUTNEU;ZUR CODEW
ANDLUNG !!!. :L.;..:V.;..:..NOSHIFT PHA.
.:.. STYY.M:.. AND#191..:.. LDXRVSFLAG..
:.. BEQNORVS..:.. ORA#$80..:..;..;F.NORV
S LDYCOL.#;P. STA(LINEPTR),Y.5;Z. LDALIN
EPTR+1.>;.. TAX.K;.. AND#$03.];.. ORA#>(
PAINT).O;.. STALINEPTR+1.};.. LDACOLOR..
;.. STA(LINEPTR),Y..; . STXLINEPTR+1..;*
.;..;4. INCCOL..;>.;.I;H.NOINC PLA.S;R.
LDXX..;\. LDYY..;F. RTS..;P.;..;Z.;..;..
;..;..;..<..;..<..;********************.
8<..;* SEARCH COMAND *.R<..;*********
***********.X<..;.^<J.;.Q<T..EQ STRDES=$
FB..<...EQ CHKKOM=$AEFD..<...EQ GETBYT=$
B79E..<...EQ GETPOS=$B08B.C<...EQ VARPTR
=$47.I<..;..<..SCSEARCH JSRHOLVARPTR..<.
. LDY#2..=$.HOLDES LDA(VARPTR),Y;DESCRIP
TOREN.*=.. STASTRDES,Y;NACH.G=8. DEY;STR
DES BIS STRDES+2.V=B. BPLHOLDES.\=L.;.X=
V. JSRCHKKOM;ZU SUCHENDES..=`. JSRGETBYT
;ZEICHEN AUF STACK..=J. TXA..=T. PHA..=~
.;.S=.. JSRHOLVARPTR;SUCHSTART (UM 1..=.
. LDY#1..=.. LDA(VARPTR),Y..=.. TAY..>..
DEY..>.. PLA..>D.;.=>N.COMPARE CPYSTRDE
S;STRINGENDE ERREICHT?.V>X. BCSSCNOTFOUN
D;JA =>.U>.. CMP(STRDES+1),Y;GEFUNDEN?..
>.. BEQSCFOUND;JA =>..>.. INY;SONST WEIT
ER-..>.. BNECOMPARE;SUCHEN..>..;.V>..SCN
OTFOUND LDY#$FF..>..SCFOUND INY..>(. TYA
..>2. LDY#1..?<. STA(VARPTR),Y..?F. RTS.
.?P.;."?Z.;.(?D.;..?N.;.4?X.;.:?..;.Y?..
;*************************.X?..;* SU
CHROUTINE *..? .;* (C) SAID BALOUI
, 1987 *..?..;*************************.
.?..;.B?..;.H?H.;..?R.;FUNKTION: SUCHT I
N EINEM STRING-..@..;ARRAY DIE ANGEG.ZEI
CHENKETTE..@..;.8@..;AUFRUF: SYS X,SUCHK
RITERIUM,.Y@..; SUCHE AB,SUCHE BI
S,.}@..; UEBERGABEVAR.(INTEGER)..
@..;..@..;SUCHKRIT.: -ABKUERZEN ("MAI*")
.M@".; -MASKIEREN ("M?A?ER")..
@,.; -KOMBINIEREN ("M?I*")..A6
.;SUCHE AB/BIS: UNTERE/OBERE GREN-.?A@.;
ZE DES ZU DURCHSU-.CAJ.;
SUCHENDEN ARRAYS..AT.;
(A$(10),A$(32))..A^.;UEBERG.VAR.
: INTEGERVAR., IN DER.YAH.;
DER INDEX EINES GEFUNDENEN..BR.;
STRINGS UEBERGEBEN WIRD.)B|.;
(0=SUCHE ERFOLGLOS)./B..;.TB..;BS
P.: SYS X,S$,A$(0),A$(100),P%.XB..;
DURCHSUCHT A$(0)-A$(100)..B..; NAC
H S$ U.UEBERGIBT RESULT..B..; IN P%
..B..;..BB.;.ABL.;.TBV.;*************..B
..;*** LABEL ***..B..;*************."C..
; ;PROGRAMMSTART.(C..
;..C..;.TC...EQ CHKKOM =$AEFD ;LIEST
KOMMA..C...EQ GETBYT =$B79E ;LIEST 1-
BYTE-WERT..C&..EQ GETPOS =$B08B ;HOLT
POINTER AUF VARIABLE..C0..EQ FRMNUM =$
AD8A ;LIEST NU.AUSDRUCK IN FAC EIN..D:
..EQ ADRFOR =$B7F7 ;WANDELT FAC NACH
INTEGER.`DD..EQ CHRGET =$73 ;INKREM
.TEXTPTR U.HOLT AKTUELLES ZEICHEN..DN..E
Q CHRGOT =$79 ;HOLT AKTUELLES ZEICH
EN.BDX..EQ TEXTPTR =$7A ;POINTER AUF
BASIC-TEXT.HDB.;..DL.;*POINTER AUF STRI
NGDESCRIPT.*.&EV..EQ SUCH =$A7 ;P
TR.AUF DESCR.V.SUCHKRIT.-STRING.AE...EQ
ENDE =$A9 ;PTR.AUF DESCR.V.ARRAYS
TRING(MIN)..E...EQ START =$AB ;PTR
.AUF DESCR.V.ARRAYSTRING(MAX).NE...EQ IN
TVAR =$47 ;PTR.AUF INTEGERVARIABLE.
TE..;..E..;*STRINGDESRIPTOREN*.$F...EQ S
UCHDES =$B4 ;DESCR. DES SUCHKRIT.-ST
RINGS.EF...EQ AKTDES =$FB ;DESCR. D
ES AKTUELLEN VERGLEICHSSTRINGS.KFF.;..FP
.;*SONSTIGE LAB EL*..FZ..EQ LENFLAG =$0
334 ;$00=VOLLVERGLEICH;$FF=ABKUERZEN..F
...EQ PRUEFLEN =$0335 ;VERGLEICHSLAENGE
.%G...EQ ELEMNR =$0336 ;NR.DES AKTUEE
LLEN VERGLEICHSSTRINGS.+G..;.1G..;.7G..;
.TG..;***********************.QG .;*** I
NITIALISIERUNG ***..G*.;****************
*******..G4.;..G>.;*POINTER AUF SUCHKRIT
.-DESCR.*..GH.STRINGSEARCH JSRHOLVARPTR;
SUCH(+1) = POINTER AUF..HR. STASUCH;DESC
R. DES SUCHKRIT.STRINGS.%H\. STYSUCH+1.+
HF.;.1HP.;.OHZ.;*SUCHDESCRIPTOREN HOLEN*
.WH.. LDY#$02;SUCHDES(+2) = DESCRIPTOREN
..H..GETSUCH LDA(SUCH),Y;DES SUCHKRIT.ST
RINGS..H.. STASUCHDES,Y..H.. DEY.OH.. BP
LGETSUCH.UH..;..H..;..HJ.;*ELEMENTNUMMER
HOLEN*..IT. LDATEXTPTR..I.. PHA.!I.. LD
ATEXTPTR+1.*I.. PHA.0I..;.ZI..VORWAERTS
JSRCHRGET;ELEMNR(+1)=NUMMER.|I.. CMP#"("
;DER ARRAYUNTERGRENZE..I.. BNEVORWAERTS.
.I$.;..I.. JSRFRMNUM..I8. JSRADRFOR.AIB.
STYELEMNR.RIL. STAELEMNR+1.XIV.;..I`. P
LA..IJ. STATEXTPTR+1..IT. PLA..J~. STATE
XTPTR..J..;..J..;.>J..;*POINTER AUF STRI
NGDESCR. HOLEN*.FJ.. JSRHOLVARPTR;START(
+1)=POINTER AUF..J.. STASTART;DESCRIPTOR
EN VON..J.. STYSTART+1;ARRAYSTRING(MIN).
.JD.;.SJN. JSRHOLVARPTR;ENDE(+1)=POINTER
AUF..JX. STAENDE;DESCR.VON ARRAYSTRING(
MAX)..K.. STYENDE+1..K..;..K..;..K..;.7K
..;*********************.RK..;*** HAUPTP
ROGRAMM ***.MK..;*********************.S
K(.;..K2.;*VERGLEICHSLAENGE ERMITTELN*..
K<. LDA#$00;LENFLAG: $00=KEIN ABKUERZEN,
..KF. STALENFLAG;$FF=ABKUERZEN..LP. LDYS
UCHDES;PRUEFLEN: ENTHAELT BEIM.$LZ. STYP
RUEFLEN;ABKUERZEN DIE.<LD. DEY;STRINGLAE
NGE-1.BLN. LDA(SUCHDES+1),Y;(OHNE"*"),SO
NST..LX. CMP#"*";DIE ECHTE STRINGLAENGE.
.L.. BNEGETDES;VERGLEICH POSITIV,.JL.. D
ECLENFLAG;WENN "*" EINZIGES..L.. DECPRUE
FLEN;ZEICHEN IST..L .;..L..;..M..;*AKTUE
LLEN STRINGDESCR. HOLEN*.BM..GETDES LDY#
$02;AKTDES(+2)=DESCRIPTOREN.PMH.GETDES1
LDA(START),Y;VON ARRAYSTRING(MIN)..MR. S
TAAKTDES,Y..M.. DEY..M.. BPLGETDES1. M..
;..M..;.DM..;*SONDERFAELLE BEHANDELN*.UM
.. LDAPRUEFLEN..M.. BEQPOSITIV;1)VERGLEI
CH POSITIV,.+N".;
WENN PRUEFLAENGE=0.:N,. CMPAKTDES.XN6.
PHP;2)VERGLEICH NEGATIV,.{N@. LDALENFLA
G;WENN "*" ENTHALTEN..NJ. BEQNOSTERN;UND
VERLEICHSSTRING..NT. PLP;NICHT LAENGER
ALS..N^.; SUCHKR
ITERIUMSSTRING..OH. BCSNEXTSTR;U.AKTUELL
EM STRING. OR. BCCPRUEFEN.SO|.;
3)VERGLEICH NEGATIV,.{O.
.NOSTERN PLP;WENN KEIN "*" ENTHALTEN..O.
. BNENEXTSTR;UND STRINGLAENGEN.KO..;
UNTERSCHIEDLICH.QO.
.;..O..;*STRINGVERGLEICH*..P..PRUEFEN LD
Y#$00;ZEICHENWEISER.;PB.PRUEFLOOP LDA(SU
CHDES+1),Y;VERGLEICH BIS ZUR.TPL. CMP#"?
";PRUEFLAENGE.ZPV. BEQNEXTCHAR;("?" IST
IMMER OKAY)..P.. JSRIGNORE;VERGL.IST..P.
. BCCNEXTSTR;NEGATIV, WENN.TP..NEXTCHAR
INY;EIN ZEICHEN NICHT..P.. CPYPRUEFLEN;U
EBEREINSTIMMT..Q.. BCCPRUEFLOOP..Q..POSB
RANCH BEQPOSITIV.%Q..;.+Q&.;.OQ0.;*POINT
ER AUF NEXTSTRINGDESCR.*.DQ:.NEXTSTR LDA
START.YQD. CLC;POINTER AUF..QN. ADC#$03;
NAECHSTEN STRING..QX. STASTART;SETZEN (=
AKTUELLER.RQB. BCCINCNR;POINTER +3)..QL.
INCSTART+1..QV.;..Q..;..R..;*ELEMENTNR.
INKREMENTIEREN*."R..INCNR INCELEMNR.@R..
BNECOMPPTR;ELEMENTNR, UM._R.. INCELEMNR
+1;EINS ERHOEHEN.ER..;.KR..;..RF.;*POINT
ER MIT ENDE VERGLEICHEN*..RP.COMPPTR LDA
START+1.HRZ. CMPENDE+1;SUCHE IST BEENDET
,..R.. BCCGETDES;WENN (START(+1)..S.. LD
ASTART;GROESSER IST..S.. CMPENDE;ALS END
E(+1).+S.. BCCGETDES.:S.. BEQGETDES.@S..
;.FS .;.`S*.;*VERGLEICH NEGATTIV*.TS4.NE
GATIV LDA#$00..S>. STAELEMNR;ELEMENTNR.=
0..SH. STAELEMNR+1..SR.;..S\.;.FSF.;*VER
GLEICH POSITIV*..SP.POSITIV JSRCHKKOM;PO
INTER AUF INTEGERVAR...TZ. JSRGETPOS;NAC
H INTVAR(+1) HOLEN..T..;.>T.. LDXELEMNR;
ELEMENTNR.LADEN.OT.. LDAELEMNR+1.UT..;.[
T..;.VT..;*ERGEBNIS UEBERGEBEN*..T..BACK
LDY#$00..TJ. STA(INTVAR),Y;ELEMENTNR...
TT. INY;IN DIE INTEGER-.PT.. TXA;VARIABL
E..T.. STA(INTVAR),Y;KOPIEREN..T.. RTS;=
> BASIC..U..;..U..;./U..;*** UNTEPROG.:
VARPTR HOLEN ***.GU..HOLVARPTR JSRCHKKOM
.VU$. JMPGETPOS.\U..;.BU8.;.HUB.;.NUL.;.
TUV.;.ZU`.;..UJ.;***********************
****..UT.;* STRINGARRAY AUSGEBEN *..U
~.;* (C) SAID BALOUI, 1987 *..U..;****
***********************..V..;..V..;..V..
;.5V..;FUNKTION: GIBT ARRAYSTRINGS AUF.W
V..; DEM BILDSCHIRM AUS.]VD.;.C
VN.;..VX.;AUFRUF: SYS X,COL%(..),LINE%(.
.)..V..; ,LENMAX%(..),ARRAY$(..),
.IV..; ,ANZAHL,FLAG.OV..;..V..; -
COL%(..): INT-ARRAY, DAS DIE..W..;
SPALTEN DER AUS-.:W..;
GABEPOS.ENTHAELT.@W..;.FW(.; - LINE%(
..): INT-ARRAY, DAS DIE..W2.;
ZEILEN DER AUS-..W<.; GA
BEPOS.ENTHAELT..WF.;.WWP.; - LENMAX%(..)
: INT-ARRAY, DAS..WZ.; DI
E AUSGABELAEN..XD.; GEN E
NTHAELT.DXN.; (WIRD MIT S
PACES.FXX.; AUFGEFUELLT).
LX..;.RX..;..X..; - ARRAY$(..): ARRAY, D
AS DIE..X .; AUSZUGEBENDEN
..X..; STRINGS ENTHAELT..X
..;..Y..; - ANZAHL: ANZAHL AUSZUGEBENDER
..YH.; STRINGS.%YR.;.EY..; - F
LAG: 0=NORMALE AUSGABE.EY..; 1=I
NVERSE AUSGABE.KY..;.QY..;..Y..;BSP.: SY
S X,COL%(1),LINE%(1),..Y..; LENMAX%
(1),A$(1),10,1.ZY..; GIBT 'A$(1)',
'A$(2)',.....Y".; ,'A$(10)' (10 STR
INGS)..Z,.; AN DEN DURCH 'COL%(1)'/
.AZ6.; 'LINE%(1)', 'COL%(2)'/.[Z@.;
'LINE%(2)' ....}ZJ.; DEFINIER
TEN POSITIONEN..ZT.; IN DEN DURCH '
LENMAX%(..)'.IZ^.; DEFINIERTEN LAEN
GEN INVERS.XZH.; AUS..ZR.;..Z|.;..Z
..;..Z..;..Z..;*********..[..;* LABEL *.
.[..;*********.#[..;.C[B.;***** BETRIEBS
SYSTEM *****.I[L..EQ BSOUT =$FFD2 ;ZEIC
HENAUSGABE..[V..EQ PLOT =$FFF0 ;CRS.SE
TZEN..[...EQ CHKKOM=$AEFD ;LIEST KOMMA.
W[...EQ GETBYT=$B79E ;LIEST 1-BYTE-WERT
..\...EQ GETPOS=$B08B ;HOLT POINTER AUF
VARIABLE..\...EQ QUOTEMODE=$D4.2\. .EQ
INSERTS=$D8.8\. ;.>\. ;.^\& ;***** PROGR
AMMINTERN *****..\0 .EQ STRINGPTR=$A5
;POINTER AUF DIE..\: .EQ LENPTR=$A7
;POSITIONEN DER VARIABLEN..\D .EQ LINEP
TR=$A9 ;'COL%(..)', 'LINE%(..)',..]N
.EQ COLPTR=$AB ;'LENMAX%(..) UND.:
]X .EQ STRINGDES=$AD ;'ARAY$(..)'.@]B
;.H]L .EQ SHELP =$FB ;VERSCHIEDENE
S..]V .EQ SNUMBER=$FC ;ANZAHL AUSGE
GEBENER STRINGS.Y]. .EQ LENMAX=$FD
;'LENMAX'FUER DEN AKTUELLEN STRING..]. ;
..]. ;..]. ;..^. ;*******************..^
. ;* INITIALISIERUNG *.6^. ;************
*******.<^F ;.H^P ;***** ZEIGER AUF VARI
ABLEN HOLEN *****.Y^Z STROUT LDX#6..^. L
IESPAR STXSHELP;NACHEINANDER POINTER.G^.
JSRHOLVARPTR;AUF DIE VARIABLEN..^. LD
XSHELP;HOLEN..^.!;..^.! STASTRINGPTR,X..
_.! STYSTRINGPTR+1,X.._ ! DEX.._*! DEX.-
_4! BPLLIESPAR.3_>!;.9_H!;.?_R!;.G_\!;**
*** ANZAHL UND FLAG HOLEN ******.V_F! JS
RCHKKOM.._P! JSRGETBYT.._Z! STXSNUMBER..
_.!;.._.! JSRCHKKOM;WENN FLAG<>0:.Y_.! J
SRGETBYT;'RVS ON' AUSGEBEN.._.! CPX#0.._
.! BEQSTRSTART..`.! LDA#18..`.! JSRBSOUT
..`J!;..`T!;.!`.!;.D`.!;****** STRING AU
SGEBEN ******.J`.!;._`.!;*CURSOR SETZEN*
.R`."STRSTART LDY#1..`." LDA(LINEPTR),Y.
.`." TAX..`$" LDA(COLPTR),Y;CURSOR AUF S
TARTPOS..S`." TAY;FUER DEN AKTUELLEN..`8
" CLC;STRING SETZEN..`B" JSRPLOT..`L";..
AV";..A`";.#AJ";*'LENMAX' ERMITTELN*..AT
" LDY#1.AA~" LDA(LENPTR),Y.PA." STALENMA
X.VA.";.\A.";.BA.";..A.";*STRINGDESCRIPT
OREN HOLEN*..A." LDY#2..AD"STRHOLDES LDA
(STRINGPTR),Y..AN" STASTRINGDES,Y.IAX" D
EY..A." BPLSTRHOLDES..A.";..A.";..A.#;..
B.#;*STRING AUSGEBEN*..B.# LDY#0.(B.#AUS
GABE CPYSTRINGDES.9B(# BEQAUSGABE1.QB2#
LDA(STRINGDES+1),Y._B<# JSRBSOUT.XBF# IN
Y;STRING AUSGEBEN..BP# BNEAUSGABE;UND RE
STLICHE LAENGE.LBZ#;
;BIS 'LENMAX' MIT..BD#;
;SPACES AUFFUELLEN..CN#AUSGAB
E1 LDA#" ".(CX#AUSGABE2 CPYLENMAX.9C.# B
CSAUSGABE3.GC.# JSRBSOUT.PC.# INY.AC # B
NEAUSGABE2.GC.#;.MC.#;.SC.#;..CH#;*FERTI
G? SONST POINTER ERHEOHEN*..CR#AUSGABE3
DECSNUMBER..C.# BEQFERTIG.FC.#;.QC.# LDX
#4..D.#NEXT LDALENPTR,X;UM JE 2 ERHOEHEN
(=NEXT POINTER):.%D.$ CLC;'COLPTR', 'LI
NEPTR'.=D.$ ADC#2;UND 'LENPTR'.ND.$ STAL
ENPTR,X.\D"$ BCCNEXT1.OD,$ INCLENPTR+1,X
.}D6$NEXT1 DEX..D@$ DEX..DJ$ BPLNEXT..DT
$;..D^$;..DH$ LDASTRINGPTR.TDR$ CLC;'STR
INGPTR' UM 3 ERHOEHEN..D|$ ADC#3..D.$ ST
ASTRINGPTR..D.$ BCCNEXT2..E.$ INCSTRINGP
TR+1.)E.$NEXT2 JMPSTRSTART./E.$;.5E.$;.;
EB$;.SEL$;***** FERTIG *****.DEV$FERTIG
LDA#0.VE.$ STAQUOTEMODE..E.$ STAINSERTS.
.E.$ LDA#146..E.$ JMPBSOUT;'RVS OFF' AUS
GEBEN + BASIC !!!.FE.%;.LE.%;.RE.%;.XE.%
;..E.%;..F.%;*** GROSS/KLEIN IGNORIEREN
***..FX%IGNORE LDX#2.,FB%IGNORE1 CMPKLEI
NUM,X.:FD% BEQKLEIN.LFF% CMPGROSSUM,X.ZF
H% BEQGROSS.CF.% DEX.SF.% BPLIGNORE1..F.
% BMIIGNORE2..F.%;. FF%KLEIN LDAGROSSUM,
X..FP% BNEUMLAUT.FFZ%GROSS LDAKLEINUM,X.
.F.%UMLAUT CMP(AKTDES+1),Y..F.% BEQPOS..
F.%;..G.%IGNORE2 LDA(SUCHDES+1),Y.%G.% C
MP(AKTDES+1),Y.1G.& BEQPOS.>G.& EOR#$80.
SG.& CMP(AKTDES+1),Y._G.& BEQPOS.KG.&NEG
CLC.TG.& RTS..G.&POS SEC..G.& RTS..G.&;
..G.&;* UMLAUTE KLEIN/GROSS *.FG.&KLEINU
M .BY":",59,"@"..G*&GROSSUM .BY"[","]","
."..G>&;..GH&.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL