ARRAY-DUMP.SRC
FILE INFORMATION
FILENAME(S): ARRAY-DUMP.SRC
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 2 disk(s)
FILE HASH
d626fbf5a6de1ba568cc65b05ffe0972cb427e9bfdf29442667d98397c39c0af
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10708 SEITE 1 | ARRAY-DUMP.SRC | PRG | C64er | 20 | 3 | DOWNLOAD FILE |
| 15833 SEITE B | ARRAY-DUMP.SRC | PRG | C64er | 27 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F5 1F 50 00 3B 20 43 36 34 20 3A 20 44 55 |....P.; C64 : DU|
00000010: 4D 50 20 46 55 45 52 20 41 52 52 41 59 53 00 FB |MP FUER ARRAYS..|
00000020: 1F 55 00 3B 00 09 20 5A 00 20 2E 4C 49 31 2C 34 |.U.;.. Z. .LI1,4|
00000030: 2C 37 00 17 20 5B 00 20 2E 53 59 31 2C 34 2C 37 |,7.. [. .SY1,4,7|
00000040: 00 1D 20 5C 00 3B 00 42 20 5F 00 3B 20 41 52 52 |.. \.;.B _.; ARR|
00000050: 41 59 20 44 55 4D 50 20 20 28 43 29 20 41 2E 20 |AY DUMP (C) A. |
00000060: 44 45 54 54 4B 45 20 31 39 38 35 00 48 20 60 00 |DETTKE 1985.H `.|
00000070: 3B 00 74 20 61 00 3B 20 41 55 46 52 55 46 20 3A |;.t a.; AUFRUF :|
00000080: 20 53 59 53 20 35 32 34 34 32 2C 30 20 20 20 3D | SYS 52442,0 =|
00000090: 3E 20 41 4C 4C 45 20 46 45 4C 44 45 52 00 A3 20 |> ALLE FELDER.. |
000000A0: 62 00 3B 20 20 20 20 20 20 20 20 20 20 53 59 53 |b.; SYS|
000000B0: 20 35 32 34 34 32 2C 56 41 52 20 3D 3E 20 45 49 | 52442,VAR => EI|
000000C0: 4E 20 42 45 53 54 2E 20 46 45 4C 44 00 A9 20 63 |N BEST. FELD.. c|
000000D0: 00 3B 00 BA 20 64 00 20 2E 45 51 43 4E 54 31 3D |.;.. d. .EQCNT1=|
000000E0: 24 30 32 00 CB 20 6E 00 20 2E 45 51 44 49 4D 53 |$02.. n. .EQDIMS|
000000F0: 3D 24 30 42 00 DC 20 78 00 20 2E 45 51 54 59 50 |=$0B.. x. .EQTYP|
00000100: 45 3D 24 30 44 00 F0 20 82 00 20 2E 45 51 4E 55 |E=$0D.. .. .EQNU|
00000110: 4D 54 59 50 45 3D 24 30 45 00 03 21 8C 00 20 2E |MTYPE=$0E..!.. .|
00000120: 45 51 56 45 4B 54 4F 52 3D 24 32 30 00 18 21 A0 |EQVEKTOR=$20..!.|
00000130: 00 20 2E 45 51 41 52 52 53 54 41 52 54 3D 24 32 |. .EQARRSTART=$2|
00000140: 46 00 2B 21 B4 00 20 2E 45 51 41 52 52 45 4E 44 |F.+!.. .EQARREND|
00000150: 3D 24 33 31 00 3E 21 C8 00 20 2E 45 51 56 41 52 |=$31.>!.. .EQVAR|
00000160: 4E 41 4D 3D 24 34 35 00 52 21 DC 00 20 2E 45 51 |NAM=$45.R!.. .EQ|
00000170: 4C 41 53 54 41 52 52 3D 24 35 46 00 64 21 F0 00 |LASTARR=$5F.d!..|
00000180: 20 2E 45 51 44 45 53 43 52 3D 24 36 34 00 77 21 | .EQDESCR=$64.w!|
00000190: FA 00 20 2E 45 51 43 48 52 47 45 54 3D 24 37 33 |.. .EQCHRGET=$73|
000001A0: 00 89 21 04 01 20 2E 45 51 48 4F 4C 44 31 3D 24 |..!.. .EQHOLD1=$|
000001B0: 41 46 00 9A 21 0E 01 20 2E 45 51 43 4E 54 32 3D |AF..!.. .EQCNT2=|
000001C0: 24 42 30 00 AF 21 22 01 20 2E 45 51 42 55 46 46 |$B0..!". .EQBUFF|
000001D0: 45 52 3D 24 30 32 43 30 00 C2 21 36 01 20 2E 45 |ER=$02C0..!6. .E|
000001E0: 51 57 41 52 4D 3D 24 30 33 30 30 00 D4 21 40 01 |QWARM=$0300..!@.|
000001F0: 20 2E 45 51 47 45 54 3D 24 46 46 45 34 00 E9 21 | .EQGET=$FFE4..!|
00000200: 4A 01 20 2E 45 51 43 48 4B 4B 4F 4D 3D 24 41 45 |J. .EQCHKKOM=$AE|
00000210: 46 44 00 FE 21 9A 01 20 2E 45 51 45 4E 44 53 49 |FD..!.. .EQENDSI|
00000220: 4D 3D 24 38 32 32 41 00 12 22 A4 01 20 2E 45 51 |M=$822A..".. .EQ|
00000230: 42 41 53 4F 4E 3D 24 38 32 46 33 00 4E 22 B8 01 |BASON=$82F3.N"..|
00000240: 3B 20 20 20 20 20 20 20 20 20 2E 45 51 20 57 41 |; .EQ WA|
00000250: 49 54 3D 24 39 35 42 33 20 3A 3D 20 54 55 4E 45 |IT=$95B3 := TUNE|
00000260: 44 20 53 49 4D 4F 4E 27 53 20 42 41 53 49 43 20 |D SIMON'S BASIC |
00000270: 52 4F 55 54 49 4E 45 00 84 22 C2 01 3B 20 20 20 |ROUTINE.."..; |
00000280: 20 20 20 20 20 20 2E 45 51 20 49 4E 43 32 30 3D | .EQ INC20=|
00000290: 24 39 43 44 43 3A 3D 20 53 49 4D 4F 4E 27 53 20 |$9CDC:= SIMON'S |
000002A0: 42 41 53 49 43 20 52 4F 55 54 49 4E 45 00 96 22 |BASIC ROUTINE.."|
000002B0: CC 01 20 2E 45 51 45 4E 44 3D 24 41 38 33 34 00 |.. .EQEND=$A834.|
000002C0: AB 22 D6 01 20 2E 45 51 53 54 52 4F 55 54 3D 24 |.".. .EQSTROUT=$|
000002D0: 41 42 31 45 00 C0 22 E0 01 20 2E 45 51 53 54 52 |AB1E..".. .EQSTR|
000002E0: 50 52 54 3D 24 41 42 32 31 00 D5 22 EA 01 20 2E |PRT=$AB21..".. .|
000002F0: 45 51 53 59 4E 45 52 52 3D 24 41 46 30 38 00 EA |EQSYNERR=$AF08..|
00000300: 22 F4 01 20 2E 45 51 47 45 54 56 41 52 3D 24 41 |".. .EQGETVAR=$A|
00000310: 46 32 42 00 FF 22 FE 01 20 2E 45 51 49 53 4C 45 |F2B..".. .EQISLE|
00000320: 54 43 3D 24 42 31 31 33 00 14 23 08 02 20 2E 45 |TC=$B113..#.. .E|
00000330: 51 46 4D 41 50 54 52 3D 24 42 31 39 34 00 2B 23 |QFMAPTR=$B194.+#|
00000340: 12 02 20 2E 45 51 47 45 54 45 4C 4D 4E 54 3D 24 |.. .EQGETELMNT=$|
00000350: 42 32 45 41 00 40 23 1C 02 20 2E 45 51 49 4E 54 |B2EA.@#.. .EQINT|
00000360: 46 4C 54 3D 24 42 33 39 35 00 55 23 26 02 20 2E |FLT=$B395.U#&. .|
00000370: 45 51 4C 49 4E 50 52 54 3D 24 42 44 43 44 00 68 |EQLINPRT=$BDCD.h|
00000380: 23 30 02 20 2E 45 51 46 4F 55 54 3D 24 42 44 44 |#0. .EQFOUT=$BDD|
00000390: 44 00 7C 23 3A 02 20 2E 45 51 46 4F 55 54 32 3D |D.|#:. .EQFOUT2=|
000003A0: 24 42 44 44 46 00 91 23 44 02 20 2E 45 51 43 48 |$BDDF..#D. .EQCH|
000003B0: 52 4F 55 54 3D 24 46 46 44 32 00 A4 23 4E 02 20 |ROUT=$FFD2..#N. |
000003C0: 2E 45 51 53 54 4F 50 3D 24 46 46 45 31 00 AA 23 |.EQSTOP=$FFE1..#|
000003D0: 58 02 3B 00 B8 23 62 02 20 2E 42 41 24 43 43 30 |X.;..#b. .BA$CC0|
000003E0: 30 00 BE 23 6C 02 3B 00 D5 23 76 02 4B 4C 41 55 |0..#l.;..#v.KLAU|
000003F0: 46 20 4C 44 41 23 24 32 38 3B 20 22 28 22 00 E1 |F LDA#$28; "("..|
00000400: 23 80 02 20 2E 42 59 24 32 43 00 F7 23 8A 02 4B |#.. .BY$2C..#..K|
00000410: 4C 5A 55 20 4C 44 41 23 24 32 39 3B 20 22 29 22 |LZU LDA#$29; ")"|
00000420: 00 03 24 94 02 20 2E 42 59 24 32 43 00 1B 24 9E |..$.. .BY$2C..$.|
00000430: 02 47 4C 45 49 43 48 20 4C 44 41 23 24 33 44 3B |.GLEICH LDA#$3D;|
00000440: 20 22 3D 22 00 27 24 A8 02 20 2E 42 59 24 32 43 | "=".'$.. .BY$2C|
00000450: 00 51 24 B2 02 43 52 20 4C 44 41 23 24 30 44 3B |.Q$..CR LDA#$0D;|
00000460: 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4E | CARRIAGE RETURN|
00000470: 3B 20 43 48 52 24 28 31 33 29 00 5D 24 BC 02 20 |; CHR$(13).]$.. |
00000480: 2E 42 59 24 32 43 00 74 24 C6 02 4B 4F 4D 4D 41 |.BY$2C.t$..KOMMA|
00000490: 20 4C 44 41 23 24 32 43 3B 20 22 2C 22 00 80 24 | LDA#$2C; ","..$|
000004A0: D0 02 20 2E 42 59 24 32 43 00 98 24 DA 02 44 4F |.. .BY$2C..$..DO|
000004B0: 4C 4C 41 52 20 4C 44 41 23 24 32 34 3B 20 22 24 |LLAR LDA#$24; "$|
000004C0: 22 00 A4 24 E4 02 20 2E 42 59 24 32 43 00 BD 24 |"..$.. .BY$2C..$|
000004D0: EE 02 50 52 4F 5A 45 4E 54 20 4C 44 41 23 24 32 |..PROZENT LDA#$2|
000004E0: 35 3B 20 22 25 22 00 C9 24 F8 02 20 2E 42 59 24 |5; "%"..$.. .BY$|
000004F0: 32 43 00 E0 24 02 03 53 50 41 43 45 20 4C 44 41 |2C..$..SPACE LDA|
00000500: 23 24 32 30 3B 20 22 20 22 00 EC 24 0C 03 20 2E |#$20; " "..$.. .|
00000510: 42 59 24 32 43 00 03 25 16 03 43 4F 4C 4F 4E 20 |BY$2C..%..COLON |
00000520: 4C 44 41 23 24 33 41 3B 20 22 3A 22 00 0F 25 20 |LDA#$3A; ":"..% |
00000530: 03 20 2E 42 59 24 32 43 00 26 25 2A 03 51 55 4F |. .BY$2C.&%*.QUO|
00000540: 54 45 20 4C 44 41 23 24 32 32 3B 20 22 22 22 00 |TE LDA#$22; """.|
00000550: 32 25 34 03 20 2E 42 59 24 32 43 00 49 25 39 03 |2%4. .BY$2C.I%9.|
00000560: 43 4C 45 41 52 20 4C 44 41 23 24 39 33 3B 20 22 |CLEAR LDA#$93; "|
00000570: 93 22 00 58 25 3E 03 20 4A 4D 50 43 48 52 4F 55 |.".X%>. JMPCHROU|
00000580: 54 00 5E 25 48 03 3B 00 88 25 52 03 57 41 49 54 |T.^%H.;..%R.WAIT|
00000590: 4B 45 59 20 4A 53 52 53 54 4F 50 3B 20 41 55 53 |KEY JSRSTOP; AUS|
000005A0: 47 41 42 45 20 55 4E 54 45 52 42 52 45 43 48 45 |GABE UNTERBRECHE|
000005B0: 4E 00 96 25 5C 03 20 42 45 51 42 52 45 41 4B 00 |N..%\. BEQBREAK.|
000005C0: A3 25 66 03 20 4A 53 52 57 41 49 54 00 C7 25 70 |.%f. JSRWAIT..%p|
000005D0: 03 20 4A 53 52 53 54 4F 50 3B 20 41 42 42 52 55 |. JSRSTOP; ABBRU|
000005E0: 43 48 20 42 45 49 20 53 54 4F 50 54 41 53 54 45 |CH BEI STOPTASTE|
000005F0: 00 D5 25 7A 03 20 42 45 51 42 52 45 41 4B 00 DE |..%z. BEQBREAK..|
00000600: 25 84 03 20 52 54 53 00 E4 25 8E 03 3B 00 F2 25 |%.. RTS..%..;..%|
00000610: 98 03 42 52 45 41 4B 20 50 4C 41 00 FB 25 A2 03 |..BREAK PLA..%..|
00000620: 20 50 4C 41 00 07 26 AC 03 20 4A 4D 50 45 4E 44 | PLA..&.. JMPEND|
00000630: 00 0D 26 B6 03 3B 00 24 26 C0 03 53 45 54 50 54 |..&..;.$&..SETPT|
00000640: 52 20 4C 44 41 41 52 52 53 54 41 52 54 00 33 26 |R LDAARRSTART.3&|
00000650: CA 03 20 53 54 41 56 45 4B 54 4F 52 00 43 26 D4 |.. STAVEKTOR.C&.|
00000660: 03 20 53 54 41 4C 41 53 54 41 52 52 00 56 26 DE |. STALASTARR.V&.|
00000670: 03 20 4C 44 41 41 52 52 53 54 41 52 54 2B 31 00 |. LDAARRSTART+1.|
00000680: 67 26 E8 03 20 53 54 41 56 45 4B 54 4F 52 2B 31 |g&.. STAVEKTOR+1|
00000690: 00 79 26 F2 03 20 53 54 41 4C 41 53 54 41 52 52 |.y&.. STALASTARR|
000006A0: 2B 31 00 82 26 FC 03 20 52 54 53 00 88 26 06 04 |+1..&.. RTS..&..|
000006B0: 3B 00 B5 26 10 04 41 44 44 4C 45 4E 20 4C 44 59 |;..&..ADDLEN LDY|
000006C0: 23 24 30 32 3B 20 4E 41 45 43 48 53 54 45 53 20 |#$02; NAECHSTES |
000006D0: 41 52 52 41 59 20 41 4E 50 45 49 4C 45 4E 00 BE |ARRAY ANPEILEN..|
000006E0: 26 1A 04 20 43 4C 43 00 D2 26 24 04 20 4C 44 41 |&.. CLC..&$. LDA|
000006F0: 28 4C 41 53 54 41 52 52 29 2C 59 00 E2 26 2E 04 |(LASTARR),Y..&..|
00000700: 20 41 44 43 4C 41 53 54 41 52 52 00 EB 26 38 04 | ADCLASTARR..&8.|
00000710: 20 54 41 58 00 F4 26 42 04 20 49 4E 59 00 08 27 | TAX..&B. INY..'|
00000720: 4C 04 20 4C 44 41 28 4C 41 53 54 41 52 52 29 2C |L. LDA(LASTARR),|
00000730: 59 00 1A 27 56 04 20 41 44 43 4C 41 53 54 41 52 |Y..'V. ADCLASTAR|
00000740: 52 2B 31 00 2C 27 60 04 20 53 54 41 4C 41 53 54 |R+1.,'`. STALAST|
00000750: 41 52 52 2B 31 00 3D 27 6A 04 20 53 54 41 56 45 |ARR+1.='j. STAVE|
00000760: 4B 54 4F 52 2B 31 00 46 27 74 04 20 54 58 41 00 |KTOR+1.F't. TXA.|
00000770: 56 27 7E 04 20 53 54 41 4C 41 53 54 41 52 52 00 |V'~. STALASTARR.|
00000780: 65 27 88 04 20 53 54 41 56 45 4B 54 4F 52 00 6E |e'.. STAVEKTOR.n|
00000790: 27 92 04 20 52 54 53 00 74 27 9C 04 3B 00 A0 27 |'.. RTS.t'..;..'|
000007A0: A6 04 49 4E 44 45 58 4F 55 54 20 4A 53 52 49 4E |..INDEXOUT JSRIN|
000007B0: 54 46 4C 54 3B 20 4C 46 44 2E 20 49 4E 44 45 58 |TFLT; LFD. INDEX|
000007C0: 20 41 55 53 47 45 42 45 4E 00 AE 27 B0 04 20 4A | AUSGEBEN..'.. J|
000007D0: 53 52 46 4F 55 54 32 00 BD 27 BA 04 20 4A 4D 50 |SRFOUT2..'.. JMP|
000007E0: 53 54 52 4F 55 54 00 C3 27 C4 04 3B 00 F3 27 CE |STROUT..'..;..'.|
000007F0: 04 45 4C 4D 4E 54 4F 55 54 20 4A 53 52 4B 4C 41 |.ELMNTOUT JSRKLA|
00000800: 55 46 3B 20 44 49 4D 45 4E 53 49 4F 4E 49 45 52 |UF; DIMENSIONIER|
00000810: 55 4E 47 20 41 55 53 47 45 42 45 4E 00 02 28 D8 |UNG AUSGEBEN..(.|
00000820: 04 20 4A 53 52 48 45 41 44 45 52 00 0F 28 E2 04 |. JSRHEADER..(..|
00000830: 20 4A 53 52 4B 4C 5A 55 00 1E 28 EC 04 20 4A 53 | JSRKLZU..(.. JS|
00000840: 52 47 4C 45 49 43 48 00 29 28 F6 04 20 4A 53 52 |RGLEICH.)(.. JSR|
00000850: 43 52 00 34 28 00 05 20 4A 4D 50 43 52 00 3A 28 |CR.4(.. JMPCR.:(|
00000860: 0A 05 3B 00 6B 28 14 05 48 45 41 44 45 52 20 4A |..;.k(..HEADER J|
00000870: 53 52 49 4E 43 32 30 3B 20 41 4E 5A 41 48 4C 20 |SRINC20; ANZAHL |
00000880: 44 2E 20 44 49 4D 45 4E 53 49 4F 4E 45 4E 20 48 |D. DIMENSIONEN H|
00000890: 4F 4C 45 4E 00 79 28 1E 05 20 4A 53 52 49 4E 43 |OLEN.y(.. JSRINC|
000008A0: 32 30 00 87 28 28 05 20 4A 53 52 49 4E 43 32 30 |20..((. JSRINC20|
000008B0: 00 9A 28 32 05 20 4C 44 41 28 56 45 4B 54 4F 52 |..(2. LDA(VEKTOR|
000008C0: 29 2C 59 00 B3 28 3C 05 20 53 54 41 44 49 4D 53 |),Y..(<. STADIMS|
000008D0: 3B 20 55 4E 44 20 4D 45 52 4B 45 4E 00 C1 28 46 |; UND MERKEN..(F|
000008E0: 05 20 53 54 41 48 4F 4C 44 31 00 D6 28 50 05 20 |. STAHOLD1..(P. |
000008F0: 41 53 4C 3B 20 56 45 52 44 4F 50 50 45 4C 4E 00 |ASL; VERDOPPELN.|
00000900: E3 28 5A 05 20 53 54 41 43 4E 54 31 00 F0 28 64 |.(Z. STACNT1..(d|
00000910: 05 20 4C 44 58 23 24 46 46 00 FD 28 6E 05 20 53 |. LDX#$FF..(n. S|
00000920: 54 58 43 4E 54 32 00 0C 29 78 05 48 31 20 4C 44 |TXCNT2..)x.H1 LD|
00000930: 59 43 4E 54 31 00 35 29 82 05 20 4C 44 41 28 56 |YCNT1.5).. LDA(V|
00000940: 45 4B 54 4F 52 29 2C 59 3B 20 47 52 4F 45 53 53 |EKTOR),Y; GROESS|
00000950: 45 20 44 2E 20 44 49 4D 45 4E 53 49 4F 4E 00 3E |E D. DIMENSION.>|
00000960: 29 8C 05 20 54 41 58 00 47 29 96 05 20 44 45 59 |).. TAX.G).. DEY|
00000970: 00 5A 29 A0 05 20 4C 44 41 28 56 45 4B 54 4F 52 |.Z).. LDA(VEKTOR|
00000980: 29 2C 59 00 6F 29 AA 05 20 44 45 58 3B 20 4D 49 |),Y.o).. DEX; MI|
00000990: 4E 55 53 20 31 20 4C 4F 00 7C 29 B4 05 20 43 50 |NUS 1 LO.|).. CP|
000009A0: 58 23 24 46 46 00 87 29 BE 05 20 42 4E 45 48 32 |X#$FF..).. BNEH2|
000009B0: 00 9C 29 C8 05 20 53 45 43 3B 20 4D 49 4E 55 53 |..).. SEC; MINUS|
000009C0: 20 31 20 48 49 00 A9 29 D2 05 20 53 42 43 23 24 | 1 HI..).. SBC#$|
000009D0: 30 31 00 C4 29 DC 05 48 32 20 4A 53 52 4C 49 4E |01..)..H2 JSRLIN|
000009E0: 50 52 54 3B 20 41 55 53 47 45 42 45 4E 00 D1 29 |PRT; AUSGEBEN..)|
000009F0: E6 05 20 4C 44 59 43 4E 54 31 00 DE 29 F0 05 20 |.. LDYCNT1..).. |
00000A00: 4C 44 58 43 4E 54 32 00 E7 29 FA 05 20 49 4E 58 |LDXCNT2..).. INX|
00000A10: 00 FA 29 04 06 20 4C 44 41 28 56 45 4B 54 4F 52 |..).. LDA(VEKTOR|
00000A20: 29 2C 59 00 0B 2A 0E 06 20 53 54 41 42 55 46 46 |),Y..*.. STABUFF|
00000A30: 45 52 2C 58 00 14 2A 18 06 20 44 45 59 00 1D 2A |ER,X..*.. DEY..*|
00000A40: 22 06 20 49 4E 58 00 30 2A 2C 06 20 4C 44 41 28 |". INX.0*,. LDA(|
00000A50: 56 45 4B 54 4F 52 29 2C 59 00 41 2A 36 06 20 53 |VEKTOR),Y.A*6. S|
00000A60: 54 41 42 55 46 46 45 52 2C 58 00 4E 2A 40 06 20 |TABUFFER,X.N*@. |
00000A70: 53 54 58 43 4E 54 32 00 5D 2A 4A 06 20 53 54 58 |STXCNT2.]*J. STX|
00000A80: 43 4E 54 32 2B 31 00 7E 2A 54 06 20 44 45 43 43 |CNT2+1.~*T. DECC|
00000A90: 4E 54 31 3B 20 41 4C 4C 45 20 44 49 4D 45 4E 53 |NT1; ALLE DIMENS|
00000AA0: 49 4F 4E 45 4E 20 3F 00 8B 2A 5E 06 20 44 45 43 |IONEN ?..*^. DEC|
00000AB0: 43 4E 54 31 00 A2 2A 68 06 20 42 45 51 48 33 3B |CNT1..*h. BEQH3;|
00000AC0: 20 4A 41 2C 20 46 45 52 54 49 47 00 BF 2A 72 06 | JA, FERTIG..*r.|
00000AD0: 20 4A 53 52 4B 4F 4D 4D 41 3B 20 53 4F 4E 53 54 | JSRKOMMA; SONST|
00000AE0: 20 3A 20 4B 4F 4D 4D 41 00 CA 2A 7C 06 20 42 4E | : KOMMA..*|. BN|
00000AF0: 45 48 31 00 D0 2A 81 06 3B 00 F6 2A 86 06 48 33 |EH1..*..;..*..H3|
00000B00: 20 49 4E 43 43 4E 54 32 3B 20 41 55 53 47 41 42 | INCCNT2; AUSGAB|
00000B10: 45 5A 41 45 48 4C 45 52 20 4E 55 4C 4C 45 4E 00 |EZAEHLER NULLEN.|
00000B20: 03 2B 90 06 20 4C 44 41 43 4E 54 32 00 0C 2B 9A |.+.. LDACNT2..+.|
00000B30: 06 20 54 41 58 00 15 2B A4 06 20 41 53 4C 00 22 |. TAX..+.. ASL."|
00000B40: 2B AE 06 20 53 54 41 43 4E 54 31 00 2F 2B B8 06 |+.. STACNT1./+..|
00000B50: 20 4C 44 41 23 24 30 30 00 42 2B C2 06 48 34 20 | LDA#$00.B+..H4 |
00000B60: 53 54 41 42 55 46 46 45 52 2C 58 00 4B 2B CC 06 |STABUFFER,X.K+..|
00000B70: 20 49 4E 58 00 68 2B D6 06 20 43 50 58 43 4E 54 | INX.h+.. CPXCNT|
00000B80: 31 3B 20 41 4C 4C 45 20 49 4E 44 49 43 45 53 20 |1; ALLE INDICES |
00000B90: 3F 00 79 2B E0 06 20 42 4D 49 48 34 3B 20 4E 45 |?.y+.. BMIH4; NE|
00000BA0: 49 4E 00 82 2B EA 06 20 52 54 53 00 88 2B F4 06 |IN..+.. RTS..+..|
00000BB0: 3B 00 8E 2B F9 06 3B 00 C5 2B FE 06 52 45 41 44 |;..+..;..+..READ|
00000BC0: 59 20 4A 4D 50 43 48 52 47 45 54 3B 20 41 55 46 |Y JMPCHRGET; AUF|
00000BD0: 20 54 52 45 4E 4E 5A 45 49 43 48 45 4E 20 53 45 | TRENNZEICHEN SE|
00000BE0: 54 5A 45 4E 20 28 53 42 3A 20 4A 53 52 29 00 E5 |TZEN (SB: JSR)..|
00000BF0: 2B 08 07 20 4A 4D 50 45 4E 44 53 49 4D 3B 20 5A |+.. JMPENDSIM; Z|
00000C00: 55 4D 20 49 4E 54 45 52 50 52 45 54 45 52 00 EB |UM INTERPRETER..|
00000C10: 2B 12 07 3B 00 F1 2B 17 07 3B 00 26 2C 1C 07 20 |+..;..+..;.&,.. |
00000C20: 4A 53 52 42 41 53 4F 4E 3B 20 42 41 53 49 43 20 |JSRBASON; BASIC |
00000C30: 41 4E 53 43 48 41 4C 54 45 4E 20 28 53 42 3A 20 |ANSCHALTEN (SB: |
00000C40: 45 49 4E 53 50 52 55 4E 47 20 48 49 45 52 29 00 |EINSPRUNG HIER).|
00000C50: 62 2C 26 07 45 49 4E 53 50 52 55 4E 47 20 4A 53 |b,&.EINSPRUNG JS|
00000C60: 52 43 48 4B 4B 4F 4D 3B 20 4E 41 45 43 48 53 54 |RCHKKOM; NAECHST|
00000C70: 45 53 20 5A 45 49 43 48 45 4E 20 28 53 42 3A 20 |ES ZEICHEN (SB: |
00000C80: 4A 53 52 20 43 48 52 47 45 54 29 00 7E 2C 30 07 |JSR CHRGET).~,0.|
00000C90: 20 4A 53 52 49 53 4C 45 54 43 3B 20 42 55 43 48 | JSRISLETC; BUCH|
00000CA0: 53 54 41 42 45 20 3F 00 91 2C 3A 07 20 42 43 43 |STABE ?..,:. BCC|
00000CB0: 5A 45 52 4F 3B 20 4E 45 49 4E 00 B8 2C 44 07 20 |ZERO; NEIN..,D. |
00000CC0: 4A 4D 50 50 4C 41 43 45 56 41 52 3B 20 53 4F 4E |JMPPLACEVAR; SON|
00000CD0: 53 54 20 3A 20 41 52 52 41 59 20 53 55 43 48 45 |ST : ARRAY SUCHE|
00000CE0: 4E 00 BE 2C 4E 07 3B 00 DC 2C 58 07 5A 45 52 4F |N..,N.;..,X.ZERO|
00000CF0: 20 43 4D 50 23 24 33 30 3B 20 46 4F 4C 47 54 20 | CMP#$30; FOLGT |
00000D00: 22 30 22 20 3F 00 EA 2C 62 07 20 42 45 51 50 4C |"0" ?..,b. BEQPL|
00000D10: 41 43 45 00 07 2D 6C 07 20 4A 4D 50 53 59 4E 45 |ACE..-l. JMPSYNE|
00000D20: 52 52 3B 20 4E 45 49 4E 2C 20 46 45 48 4C 45 52 |RR; NEIN, FEHLER|
00000D30: 00 0D 2D 76 07 3B 00 28 2D 80 07 50 4C 41 43 45 |..-v.;.(-..PLACE|
00000D40: 20 4A 53 52 43 52 3B 20 4C 45 45 52 5A 45 49 4C | JSRCR; LEERZEIL|
00000D50: 45 00 46 2D 8A 07 20 4A 53 52 53 45 54 50 54 52 |E.F-.. JSRSETPTR|
00000D60: 3B 20 5A 45 49 47 45 52 20 53 45 54 5A 45 4E 00 |; ZEIGER SETZEN.|
00000D70: 68 2D 94 07 50 31 20 4C 44 41 56 45 4B 54 4F 52 |h-..P1 LDAVEKTOR|
00000D80: 2B 31 3B 20 41 4C 4C 45 20 41 52 52 41 59 53 20 |+1; ALLE ARRAYS |
00000D90: 3F 00 79 2D 9E 07 20 43 4D 50 41 52 52 45 4E 44 |?.y-.. CMPARREND|
00000DA0: 2B 31 00 84 2D A8 07 20 42 4E 45 50 32 00 93 2D |+1..-.. BNEP2..-|
00000DB0: B2 07 20 4C 44 41 56 45 4B 54 4F 52 00 A2 2D BC |.. LDAVEKTOR..-.|
00000DC0: 07 20 43 4D 50 41 52 52 45 4E 44 00 BC 2D C6 07 |. CMPARREND..-..|
00000DD0: 20 42 45 51 52 45 41 44 59 3B 20 4A 41 2C 20 46 | BEQREADY; JA, F|
00000DE0: 45 52 54 49 47 00 DF 2D D0 07 50 32 20 4A 53 52 |ERTIG..-..P2 JSR|
00000DF0: 41 55 53 47 41 42 45 3B 20 49 4E 48 41 4C 54 20 |AUSGABE; INHALT |
00000E00: 41 55 53 47 45 42 45 4E 00 08 2E DA 07 20 4A 53 |AUSGEBEN..... JS|
00000E10: 52 41 44 44 4C 45 4E 3B 20 4E 41 45 43 48 53 54 |RADDLEN; NAECHST|
00000E20: 45 53 20 41 52 52 41 59 20 41 4E 50 45 49 4C 45 |ES ARRAY ANPEILE|
00000E30: 4E 00 1E 2E E4 07 20 4A 53 52 43 52 3B 20 4C 45 |N..... JSRCR; LE|
00000E40: 45 52 5A 45 49 4C 45 00 33 2E EE 07 20 42 4E 45 |ERZEILE.3... BNE|
00000E50: 50 31 3B 20 53 43 48 4C 45 49 46 45 00 39 2E F3 |P1; SCHLEIFE.9..|
00000E60: 07 3B 00 3F 2E F4 07 3B 00 64 2E F8 07 41 55 53 |.;.?...;.d...AUS|
00000E70: 47 41 42 45 20 4C 44 59 23 24 30 30 3B 20 4E 41 |GABE LDY#$00; NA|
00000E80: 4D 45 20 31 2E 20 5A 45 49 43 48 45 4E 00 77 2E |ME 1. ZEICHEN.w.|
00000E90: 02 08 20 4C 44 41 28 56 45 4B 54 4F 52 29 2C 59 |.. LDA(VEKTOR),Y|
00000EA0: 00 86 2E 0C 08 20 53 54 41 56 41 52 4E 41 4D 00 |..... STAVARNAM.|
00000EB0: 96 2E 16 08 20 42 4D 49 49 4E 54 45 47 45 52 00 |.... BMIINTEGER.|
00000EC0: A5 2E 20 08 20 4A 53 52 43 48 52 4F 55 54 00 B3 |.. . JSRCHROUT..|
00000ED0: 2E 2A 08 20 4A 53 52 49 4E 43 32 30 00 D2 2E 34 |.*. JSRINC20...4|
00000EE0: 08 20 4C 44 41 28 56 45 4B 54 4F 52 29 2C 59 3B |. LDA(VEKTOR),Y;|
00000EF0: 20 32 2E 20 5A 45 49 43 48 45 4E 00 E3 2E 3E 08 | 2. ZEICHEN...>.|
00000F00: 20 53 54 41 56 41 52 4E 41 4D 2B 31 00 F2 2E 48 | STAVARNAM+1...H|
00000F10: 08 20 42 4D 49 53 54 52 49 4E 47 00 05 2F 52 08 |. BMISTRING../R.|
00000F20: 52 45 41 4C 20 4A 53 52 43 48 52 4F 55 54 00 1C |REAL JSRCHROUT..|
00000F30: 2F 5C 08 20 4C 44 41 23 24 30 30 3B 20 52 45 41 |/\. LDA#$00; REA|
00000F40: 4C 46 4C 41 47 00 27 2F 66 08 20 42 45 51 50 33 |LFLAG.'/f. BEQP3|
00000F50: 00 3B 2F 70 08 49 4E 54 45 47 45 52 20 41 4E 44 |.;/p.INTEGER AND|
00000F60: 23 24 37 46 00 4A 2F 7A 08 20 4A 53 52 43 48 52 |#$7F.J/z. JSRCHR|
00000F70: 4F 55 54 00 58 2F 84 08 20 4A 53 52 49 4E 43 32 |OUT.X/.. JSRINC2|
00000F80: 30 00 6B 2F 8E 08 20 4C 44 41 28 56 45 4B 54 4F |0.k/.. LDA(VEKTO|
00000F90: 52 29 2C 59 00 7C 2F 98 08 20 53 54 41 56 41 52 |R),Y.|/.. STAVAR|
00000FA0: 4E 41 4D 2B 31 00 89 2F A2 08 20 41 4E 44 23 24 |NAM+1../.. AND#$|
00000FB0: 37 46 00 98 2F AC 08 20 4A 53 52 43 48 52 4F 55 |7F../.. JSRCHROU|
00000FC0: 54 00 A8 2F B6 08 20 4A 53 52 50 52 4F 5A 45 4E |T../.. JSRPROZEN|
00000FD0: 54 00 C2 2F C0 08 20 4C 44 41 23 24 38 30 3B 20 |T../.. LDA#$80; |
00000FE0: 49 4E 54 45 47 45 52 46 4C 41 47 00 D4 2F CA 08 |INTEGERFLAG../..|
00000FF0: 50 33 20 53 54 41 4E 55 4D 54 59 50 45 00 E5 2F |P3 STANUMTYPE../|
00001000: D4 08 20 4A 53 52 45 4C 4D 4E 54 4F 55 54 00 F4 |.. JSRELMNTOUT..|
00001010: 2F DE 08 20 4A 53 52 46 4D 41 50 54 52 00 06 30 |/.. JSRFMAPTR..0|
00001020: E8 08 50 34 20 4A 53 52 57 41 49 54 4B 45 59 00 |..P4 JSRWAITKEY.|
00001030: 15 30 F2 08 20 4C 44 41 43 4E 54 32 2B 31 00 22 |.0.. LDACNT2+1."|
00001040: 30 FC 08 20 53 54 41 43 4E 54 32 00 3F 30 06 09 |0.. STACNT2.?0..|
00001050: 20 4A 53 52 47 49 56 45 3B 20 49 4E 44 45 58 20 | JSRGIVE; INDEX |
00001060: 41 55 53 47 45 42 45 4E 00 57 30 10 09 20 4C 44 |AUSGEBEN.W0.. LD|
00001070: 58 23 24 30 30 3B 20 4E 55 4D 45 52 49 53 43 48 |X#$00; NUMERISCH|
00001080: 00 64 30 1A 09 20 53 54 58 54 59 50 45 00 8A 30 |.d0.. STXTYPE..0|
00001090: 24 09 20 4A 53 52 43 4F 4E 54 45 4E 54 53 3B 20 |$. JSRCONTENTS; |
000010A0: 46 45 4C 44 49 4E 48 41 4C 54 20 41 55 53 47 45 |FELDINHALT AUSGE|
000010B0: 42 45 4E 00 A6 30 2E 09 20 42 4E 45 50 34 3B 20 |BEN..0.. BNEP4; |
000010C0: 4E 41 45 43 48 53 54 45 4E 20 49 4E 44 45 58 00 |NAECHSTEN INDEX.|
000010D0: D0 30 38 09 20 52 54 53 3B 20 53 4F 4E 53 54 20 |.08. RTS; SONST |
000010E0: 3A 20 46 45 52 54 49 47 3B 20 4E 41 45 43 48 53 |: FERTIG; NAECHS|
000010F0: 54 45 53 20 41 52 52 41 59 00 D6 30 42 09 3B 00 |TES ARRAY..0B.;.|
00001100: E9 30 4C 09 53 54 52 49 4E 47 20 41 4E 44 23 24 |.0L.STRING AND#$|
00001110: 37 46 00 F8 30 56 09 20 4A 53 52 43 48 52 4F 55 |7F..0V. JSRCHROU|
00001120: 54 00 07 31 60 09 20 4A 53 52 44 4F 4C 4C 41 52 |T..1`. JSRDOLLAR|
00001130: 00 18 31 6A 09 20 4A 53 52 45 4C 4D 4E 54 4F 55 |..1j. JSRELMNTOU|
00001140: 54 00 27 31 74 09 20 4A 53 52 46 4D 41 50 54 52 |T.'1t. JSRFMAPTR|
00001150: 00 39 31 7E 09 50 35 20 4A 53 52 57 41 49 54 4B |.91~.P5 JSRWAITK|
00001160: 45 59 00 48 31 88 09 20 4C 44 41 43 4E 54 32 2B |EY.H1.. LDACNT2+|
00001170: 31 00 55 31 92 09 20 53 54 41 43 4E 54 32 00 69 |1.U1.. STACNT2.i|
00001180: 31 9C 09 20 4A 53 52 47 49 56 45 3B 20 49 4E 44 |1.. JSRGIVE; IND|
00001190: 45 58 00 82 31 A6 09 20 4C 44 58 23 24 46 46 3B |EX..1.. LDX#$FF;|
000011A0: 20 53 54 52 49 4E 47 46 4C 41 47 00 8F 31 B0 09 | STRINGFLAG..1..|
000011B0: 20 53 54 58 54 59 50 45 00 AE 31 BA 09 20 4A 53 | STXTYPE..1.. JS|
000011C0: 52 47 45 54 56 41 52 3B 20 45 4C 45 4D 45 4E 54 |RGETVAR; ELEMENT|
000011D0: 20 53 55 43 48 45 4E 00 BC 31 C4 09 20 4A 53 52 | SUCHEN..1.. JSR|
000011E0: 51 55 4F 54 45 00 C9 31 CE 09 20 4C 44 59 23 24 |QUOTE..1.. LDY#$|
000011F0: 30 32 00 DB 31 D8 09 20 4C 44 41 28 44 45 53 43 |02..1.. LDA(DESC|
00001200: 52 29 2C 59 00 EF 31 E2 09 20 43 4D 50 23 24 30 |R),Y..1.. CMP#$0|
00001210: 38 3B 20 4C 45 45 52 3F 00 FE 31 EC 09 20 42 43 |8; LEER?..1.. BC|
00001220: 43 50 36 3B 20 4A 41 00 1F 32 F6 09 20 4A 53 52 |CP6; JA..2.. JSR|
00001230: 53 54 52 50 52 54 3B 20 53 4F 4E 53 54 20 3A 20 |STRPRT; SONST : |
00001240: 41 55 53 47 45 42 45 4E 00 2F 32 00 0A 50 36 20 |AUSGEBEN./2..P6 |
00001250: 4A 53 52 51 55 4F 54 45 00 3D 32 0A 0A 20 4A 53 |JSRQUOTE.=2.. JS|
00001260: 52 43 4F 55 4E 54 00 48 32 14 0A 20 42 4E 45 50 |RCOUNT.H2.. BNEP|
00001270: 35 00 51 32 1E 0A 20 52 54 53 00 57 32 28 0A 3B |5.Q2.. RTS.W2(.;|
00001280: 00 7D 32 32 0A 47 49 56 45 20 4C 44 41 48 4F 4C |.}22.GIVE LDAHOL|
00001290: 44 31 3B 20 45 49 4E 47 41 42 45 20 53 49 4D 55 |D1; EINGABE SIMU|
000012A0: 4C 49 45 52 45 4E 00 8A 32 3C 0A 20 53 54 41 43 |LIEREN..2<. STAC|
000012B0: 4E 54 31 00 97 32 46 0A 20 53 54 41 44 49 4D 53 |NT1..2F. STADIMS|
000012C0: 00 A0 32 50 0A 20 41 53 4C 00 AD 32 5A 0A 20 53 |..2P. ASL..2Z. S|
000012D0: 54 41 43 4E 54 32 00 CE 32 64 0A 47 31 20 4C 44 |TACNT2..2d.G1 LD|
000012E0: 58 43 4E 54 32 3B 20 4C 46 44 2E 20 49 4E 44 45 |XCNT2; LFD. INDE|
000012F0: 58 20 48 4F 4C 45 4E 00 DF 32 6E 0A 20 4C 44 41 |X HOLEN..2n. LDA|
00001300: 42 55 46 46 45 52 2C 58 00 E8 32 78 0A 20 54 41 |BUFFER,X..2x. TA|
00001310: 59 00 F1 32 82 0A 20 49 4E 58 00 02 33 8C 0A 20 |Y..2.. INX..3.. |
00001320: 4C 44 41 42 55 46 46 45 52 2C 58 00 0B 33 96 0A |LDABUFFER,X..3..|
00001330: 20 50 48 41 00 14 33 A0 0A 20 54 41 58 00 1D 33 | PHA..3.. TAX..3|
00001340: AA 0A 20 54 59 41 00 26 33 B4 0A 20 50 48 41 00 |.. TYA.&3.. PHA.|
00001350: 2F 33 BE 0A 20 54 58 41 00 3C 33 C8 0A 20 49 4E |/3.. TXA.<3.. IN|
00001360: 43 43 4E 54 32 00 49 33 D2 0A 20 49 4E 43 43 4E |CCNT2.I3.. INCCN|
00001370: 54 32 00 68 33 DC 0A 20 4A 53 52 49 4E 44 45 58 |T2.h3.. JSRINDEX|
00001380: 4F 55 54 3B 20 55 4E 44 20 41 55 53 47 45 42 45 |OUT; UND AUSGEBE|
00001390: 4E 00 7D 33 E6 0A 20 44 45 43 43 4E 54 31 3B 20 |N.}3.. DECCNT1; |
000013A0: 41 4C 4C 45 20 3F 00 8C 33 F0 0A 20 42 45 51 47 |ALLE ?..3.. BEQG|
000013B0: 32 3B 20 4A 41 00 A9 33 FA 0A 20 4A 53 52 4B 4F |2; JA..3.. JSRKO|
000013C0: 4D 4D 41 3B 20 53 4F 4E 53 54 20 3A 20 4B 4F 4D |MMA; SONST : KOM|
000013D0: 4D 41 00 B4 33 04 0B 20 42 4E 45 47 31 00 BA 33 |MA..3.. BNEG1..3|
000013E0: 09 0B 3B 00 CA 33 0E 0B 47 32 20 4A 53 52 53 50 |..;..3..G2 JSRSP|
000013F0: 41 43 45 00 D8 33 18 0B 20 4A 53 52 43 4F 4C 4F |ACE..3.. JSRCOLO|
00001400: 4E 00 E6 33 22 0B 20 4A 53 52 53 50 41 43 45 00 |N..3". JSRSPACE.|
00001410: 03 34 2C 0B 20 4C 44 59 23 24 30 34 3B 20 45 4C |.4,. LDY#$04; EL|
00001420: 45 4D 45 4E 54 20 53 55 43 48 45 4E 00 14 34 36 |EMENT SUCHEN..46|
00001430: 0B 20 4A 4D 50 47 45 54 45 4C 4D 4E 54 00 1A 34 |. JMPGETELMNT..4|
00001440: 40 0B 3B 00 40 34 4A 0B 43 4F 4E 54 45 4E 54 53 |@.;.@4J.CONTENTS|
00001450: 20 4A 53 52 47 45 54 56 41 52 3B 20 5A 41 48 4C | JSRGETVAR; ZAHL|
00001460: 20 41 55 53 47 45 42 45 4E 00 4D 34 54 0B 20 4A | AUSGEBEN.M4T. J|
00001470: 53 52 46 4F 55 54 00 5C 34 5E 0B 20 4A 53 52 53 |SRFOUT.\4^. JSRS|
00001480: 54 52 4F 55 54 00 91 34 68 0B 43 4F 55 4E 54 20 |TROUT..4h.COUNT |
00001490: 4A 53 52 57 41 49 54 4B 45 59 3B 20 49 4E 44 45 |JSRWAITKEY; INDE|
000014A0: 58 20 3D 20 47 52 4F 45 53 53 45 20 44 2E 20 44 |X = GROESSE D. D|
000014B0: 49 4D 45 4E 53 49 4F 4E 20 3F 00 9C 34 72 0B 20 |IMENSION ?..4r. |
000014C0: 4A 53 52 43 52 00 AA 34 7C 0B 20 4C 44 41 48 4F |JSRCR..4|. LDAHO|
000014D0: 4C 44 31 00 B3 34 86 0B 20 41 53 4C 00 C0 34 90 |LD1..4.. ASL..4.|
000014E0: 0B 20 53 54 41 43 4E 54 31 00 C9 34 9A 0B 20 54 |. STACNT1..4.. T|
000014F0: 41 58 00 D6 34 A4 0B 20 4C 44 59 23 24 30 30 00 |AX..4.. LDY#$00.|
00001500: F8 34 AE 0B 4C 4F 4F 50 31 20 49 4E 43 42 55 46 |.4..LOOP1 INCBUF|
00001510: 46 45 52 2C 58 3B 20 45 52 52 45 49 43 48 54 20 |FER,X; ERREICHT |
00001520: 3F 00 06 35 B8 0B 20 42 4E 45 4C 4F 4F 50 32 00 |?..5.. BNELOOP2.|
00001530: 19 35 C2 0B 20 49 4E 43 42 55 46 46 45 52 2B 31 |.5.. INCBUFFER+1|
00001540: 2C 58 00 2F 35 CC 0B 4C 4F 4F 50 32 20 4C 44 41 |,X./5..LOOP2 LDA|
00001550: 42 55 46 46 45 52 2C 58 00 40 35 D6 0B 20 43 4D |BUFFER,X.@5.. CM|
00001560: 50 42 55 46 46 45 52 2C 59 00 64 35 E0 0B 20 42 |PBUFFER,Y.d5.. B|
00001570: 4E 45 43 4F 4E 54 3B 20 4E 45 49 4E 2C 20 57 45 |NECONT; NEIN, WE|
00001580: 49 54 45 52 20 41 55 53 47 45 42 45 4E 00 77 35 |ITER AUSGEBEN.w5|
00001590: EA 0B 20 4C 44 41 42 55 46 46 45 52 2B 31 2C 58 |.. LDABUFFER+1,X|
000015A0: 00 8A 35 F4 0B 20 43 4D 50 42 55 46 46 45 52 2B |..5.. CMPBUFFER+|
000015B0: 31 2C 59 00 97 35 FE 0B 20 42 4E 45 43 4F 4E 54 |1,Y..5.. BNECONT|
000015C0: 00 9D 35 03 0C 3B 00 CB 35 08 0C 20 4C 44 41 23 |..5..;..5.. LDA#|
000015D0: 24 30 30 3B 20 53 4F 4E 53 54 20 3A 20 5A 41 45 |$00; SONST : ZAE|
000015E0: 48 4C 45 52 20 55 2E 20 4B 4F 4E 54 52 2E 20 41 |HLER U. KONTR. A|
000015F0: 55 46 20 30 00 DC 35 12 0C 20 53 54 41 42 55 46 |UF 0..5.. STABUF|
00001600: 46 45 52 2C 58 00 EF 35 1C 0C 20 53 54 41 42 55 |FER,X..5.. STABU|
00001610: 46 46 45 52 2B 31 2C 58 00 F8 35 26 0C 20 49 4E |FFER+1,X..5&. IN|
00001620: 58 00 01 36 30 0C 20 49 4E 58 00 0A 36 3A 0C 20 |X..60. INX..6:. |
00001630: 49 4E 59 00 13 36 44 0C 20 49 4E 59 00 30 36 4E |INY..6D. INY.06N|
00001640: 0C 20 43 50 59 43 4E 54 31 3B 20 41 4C 4C 45 20 |. CPYCNT1; ALLE |
00001650: 49 4E 44 49 43 45 53 20 3F 00 4C 36 58 0C 20 42 |INDICES ?.L6X. B|
00001660: 4E 45 4C 4F 4F 50 31 3B 20 4E 45 49 4E 2C 20 57 |NELOOP1; NEIN, W|
00001670: 45 49 54 45 52 00 59 36 62 0C 43 4F 4E 54 20 52 |EITER.Y6b.CONT R|
00001680: 54 53 00 5F 36 6C 0C 3B 00 65 36 71 0C 3B 00 8F |TS._6l.;.e6q.;..|
00001690: 36 76 0C 50 4C 41 43 45 56 41 52 20 53 54 41 56 |6v.PLACEVAR STAV|
000016A0: 41 52 4E 41 4D 3B 20 56 41 52 49 41 42 4C 45 20 |ARNAM; VARIABLE |
000016B0: 45 52 4B 45 4E 4E 45 4E 00 9C 36 80 0C 20 4C 44 |ERKENNEN..6.. LD|
000016C0: 58 23 24 30 30 00 AB 36 8A 0C 20 4A 53 52 43 48 |X#$00..6.. JSRCH|
000016D0: 52 47 45 54 00 B6 36 94 0C 20 42 43 43 56 31 00 |RGET..6.. BCCV1.|
000016E0: DD 36 9E 0C 20 4A 53 52 49 53 4C 45 54 43 3B 20 |.6.. JSRISLETC; |
000016F0: 42 49 53 20 4B 45 4E 4E 55 4E 47 20 55 45 42 45 |BIS KENNUNG UEBE|
00001700: 52 4C 45 53 45 4E 00 E8 36 A8 0C 20 42 43 43 56 |RLESEN..6.. BCCV|
00001710: 33 00 F3 36 B2 0C 56 31 20 54 41 58 00 04 37 BC |3..6..V1 TAX..7.|
00001720: 0C 56 32 20 4A 53 52 43 48 52 47 45 54 00 0F 37 |.V2 JSRCHRGET..7|
00001730: C6 0C 20 42 43 43 56 32 00 1E 37 D0 0C 20 4A 53 |.. BCCV2..7.. JS|
00001740: 52 49 53 4C 45 54 43 00 29 37 DA 0C 20 42 43 53 |RISLETC.)7.. BCS|
00001750: 56 32 00 3D 37 E4 0C 56 33 20 43 4D 50 23 24 32 |V2.=7..V3 CMP#$2|
00001760: 34 3B 20 22 24 22 00 48 37 EE 0C 20 42 45 51 56 |4; "$".H7.. BEQV|
00001770: 34 00 5A 37 F8 0C 20 43 4D 50 23 24 32 35 3B 20 |4.Z7.. CMP#$25; |
00001780: 22 25 22 00 65 37 02 0D 20 42 4E 45 56 35 00 91 |"%".e7.. BNEV5..|
00001790: 37 0C 0D 20 4C 44 41 23 24 38 30 3B 20 4B 45 4E |7.. LDA#$80; KEN|
000017A0: 4E 5A 45 49 43 48 4E 45 4E 20 28 53 54 52 49 4E |NZEICHNEN (STRIN|
000017B0: 47 2F 49 4E 54 45 47 45 52 29 00 A0 37 16 0D 20 |G/INTEGER)..7.. |
000017C0: 4F 52 41 56 41 52 4E 41 4D 00 AF 37 20 0D 20 53 |ORAVARNAM..7 . S|
000017D0: 54 41 56 41 52 4E 41 4D 00 BA 37 2A 0D 56 34 20 |TAVARNAM..7*.V4 |
000017E0: 54 58 41 00 C7 37 34 0D 20 4F 52 41 23 24 38 30 |TXA..74. ORA#$80|
000017F0: 00 D0 37 3E 0D 20 54 41 58 00 E3 37 48 0D 56 35 |..7>. TAX..7H.V5|
00001800: 20 53 54 58 56 41 52 4E 41 4D 2B 31 00 EE 37 52 | STXVARNAM+1..7R|
00001810: 0D 20 4A 53 52 43 52 00 0C 38 5C 0D 20 4A 53 52 |. JSRCR..8\. JSR|
00001820: 53 45 54 50 54 52 3B 20 5A 45 49 47 45 52 20 53 |SETPTR; ZEIGER S|
00001830: 45 54 5A 45 4E 00 2E 38 66 0D 56 36 20 4C 44 41 |ETZEN..8f.V6 LDA|
00001840: 56 45 4B 54 4F 52 2B 31 3B 20 41 4C 4C 45 20 41 |VEKTOR+1; ALLE A|
00001850: 52 52 41 59 53 20 3F 00 3F 38 70 0D 20 43 4D 50 |RRAYS ?.?8p. CMP|
00001860: 41 52 52 45 4E 44 2B 31 00 4A 38 7A 0D 20 42 4E |ARREND+1.J8z. BN|
00001870: 45 56 37 00 59 38 84 0D 20 4C 44 41 56 45 4B 54 |EV7.Y8.. LDAVEKT|
00001880: 4F 52 00 68 38 8E 0D 20 43 4D 50 41 52 52 45 4E |OR.h8.. CMPARREN|
00001890: 44 00 8A 38 98 0D 20 42 45 51 45 52 52 4F 55 54 |D..8.. BEQERROUT|
000018A0: 3B 20 4A 41 20 3A 20 56 45 52 49 46 59 20 45 52 |; JA : VERIFY ER|
000018B0: 52 4F 52 00 A5 38 A2 0D 56 37 20 4C 44 59 23 24 |ROR..8..V7 LDY#$|
000018C0: 30 30 3B 20 47 45 46 55 4E 44 45 4E 20 3F 00 B8 |00; GEFUNDEN ?..|
000018D0: 38 AC 0D 20 4C 44 41 28 56 45 4B 54 4F 52 29 2C |8.. LDA(VEKTOR),|
000018E0: 59 00 C7 38 B6 0D 20 43 4D 50 56 41 52 4E 41 4D |Y..8.. CMPVARNAM|
000018F0: 00 D4 38 C0 0D 20 42 4E 45 4E 45 58 54 00 DD 38 |..8.. BNENEXT..8|
00001900: CA 0D 20 49 4E 59 00 F0 38 D4 0D 20 4C 44 41 28 |.. INY..8.. LDA(|
00001910: 56 45 4B 54 4F 52 29 2C 59 00 01 39 DE 0D 20 43 |VEKTOR),Y..9.. C|
00001920: 4D 50 56 41 52 4E 41 4D 2B 31 00 1E 39 E8 0D 20 |MPVARNAM+1..9.. |
00001930: 42 45 51 41 52 52 4F 55 54 3B 20 4A 41 2C 20 41 |BEQARROUT; JA, A|
00001940: 55 53 47 45 42 45 4E 00 4A 39 F2 0D 4E 45 58 54 |USGEBEN.J9..NEXT|
00001950: 20 4A 53 52 41 44 44 4C 45 4E 3B 20 53 4F 4E 53 | JSRADDLEN; SONS|
00001960: 54 20 3A 20 4E 41 45 43 48 53 54 45 53 20 41 52 |T : NAECHSTES AR|
00001970: 52 41 59 00 55 39 FC 0D 20 4A 4D 50 56 36 00 5B |RAY.U9.. JMPV6.[|
00001980: 39 06 0E 3B 00 71 39 10 0E 41 52 52 4F 55 54 20 |9..;.q9..ARROUT |
00001990: 4A 53 52 41 55 53 47 41 42 45 00 7F 39 1A 0E 20 |JSRAUSGABE..9.. |
000019A0: 4A 4D 50 52 45 41 44 59 00 85 39 24 0E 3B 00 A6 |JMPREADY..9$.;..|
000019B0: 39 2E 0E 45 52 52 4F 55 54 20 4C 44 58 23 24 31 |9..ERROUT LDX#$1|
000019C0: 43 3B 20 56 45 52 49 46 59 20 45 52 52 4F 52 00 |C; VERIFY ERROR.|
000019D0: B5 39 38 0E 20 4A 4D 50 28 57 41 52 4D 29 00 BB |.98. JMP(WARM)..|
000019E0: 39 42 0E 3B 00 C1 39 56 0E 3B 00 D2 39 60 0E 49 |9B.;..9V.;..9`.I|
000019F0: 4E 43 32 30 20 49 4E 43 24 32 30 00 DD 39 6A 0E |NC20 INC$20..9j.|
00001A00: 20 42 4E 45 49 31 00 E9 39 74 0E 20 49 4E 43 24 | BNEI1..9t. INC$|
00001A10: 32 31 00 F4 39 7E 0E 49 31 20 52 54 53 00 FA 39 |21..9~.I1 RTS..9|
00001A20: 88 0E 3B 00 0A 3A 9C 0E 57 41 49 54 20 4A 53 52 |..;..:..WAIT JSR|
00001A30: 47 45 54 00 15 3A A6 0E 20 42 45 51 57 32 00 23 |GET..:.. BEQW2.#|
00001A40: 3A B0 0E 57 31 20 4A 53 52 47 45 54 00 2E 3A BA |:..W1 JSRGET..:.|
00001A50: 0E 20 42 45 51 57 31 00 39 3A C4 0E 57 32 20 52 |. BEQW1.9:..W2 R|
00001A60: 54 53 00 3F 3A CE 0E 3B 00 62 3A D8 0E 3B 20 45 |TS.?:..;.b:..; E|
00001A70: 49 4E 42 49 4E 44 45 4E 20 49 4E 20 53 49 4D 4F |INBINDEN IN SIMO|
00001A80: 4E 27 53 20 42 41 53 49 43 20 3A 00 81 3A E2 0E |N'S BASIC :..:..|
00001A90: 3B 20 20 20 20 49 4E 43 32 30 20 4C 49 45 47 54 |; INC20 LIEGT|
00001AA0: 20 42 45 49 20 24 39 43 44 43 00 A2 3A EC 0E 3B | BEI $9CDC..:..;|
00001AB0: 20 20 20 20 5A 45 49 4C 45 20 31 37 39 30 20 3A | ZEILE 1790 :|
00001AC0: 20 4A 53 52 20 43 48 52 47 45 54 00 C3 3A F6 0E | JSR CHRGET..:..|
00001AD0: 3B 20 20 20 20 5A 45 49 4C 45 20 31 38 33 30 20 |; ZEILE 1830 |
00001AE0: 3A 20 4A 53 52 20 43 48 52 47 45 54 00 E5 3A 00 |: JSR CHRGET..:.|
00001AF0: 0F 3B 20 20 20 20 45 49 4E 53 50 52 55 4E 47 20 |.; EINSPRUNG |
00001B00: 42 45 49 20 5A 45 49 4C 45 20 31 38 32 30 00 09 |BEI ZEILE 1820..|
00001B10: 3B 0A 0F 3B 20 20 20 20 45 52 52 4F 52 56 45 4B |;..; ERRORVEK|
00001B20: 54 4F 52 20 45 49 4E 45 52 20 46 55 4E 4B 54 49 |TOR EINER FUNKTI|
00001B30: 4F 4E 00 2F 3B 14 0F 3B 20 20 20 20 28 5A 2E 42 |ON./;..; (Z.B|
00001B40: 2E 20 50 4C 41 43 45 29 20 41 55 46 20 45 49 4E |. PLACE) AUF EIN|
00001B50: 53 50 52 55 4E 47 2D 31 00 3F 3B 1E 0F 3B 20 20 |SPRUNG-1.?;..; |
00001B60: 20 20 4C 45 47 45 4E 2E 00 65 3B 28 0F 3B 20 20 | LEGEN..e;(.; |
00001B70: 20 20 3D 3E 20 50 4F 4B 45 20 24 38 36 45 32 2C | => POKE $86E2,|
00001B80: 3C 28 45 49 4E 53 50 52 55 4E 47 2D 31 29 00 89 |<(EINSPRUNG-1)..|
00001B90: 3B 32 0F 3B 20 20 20 20 20 20 20 50 4F 4B 45 20 |;2.; POKE |
00001BA0: 24 38 36 45 33 2C 3E 28 45 49 4E 53 50 52 55 4E |$86E3,>(EINSPRUN|
00001BB0: 47 29 00 A3 3B 3C 0F 3B 20 20 20 20 41 55 46 52 |G)..;<.; AUFR|
00001BC0: 55 46 20 3A 20 50 4C 41 43 45 20 30 00 BF 3B 46 |UF : PLACE 0..;F|
00001BD0: 0F 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 50 |.; P|
00001BE0: 4C 41 43 45 20 56 41 52 00 C5 3B 50 0F 3B 00 CE |LACE VAR..;P.;..|
00001BF0: 3B 5A 0F 20 2E 45 4E 00 00 00 |;Z. .EN... |
X...P.; C64 : DUMP FUER ARRAYS...U.;.. Z
. .LI1,4,7.. [. .SY1,4,7.. \.;.B _.; ARR
AY DUMP (C) A. DETTKE 1985.H `.;.T A.;
AUFRUF : SYS 52442,0 => ALLE FELDER..
B.; SYS 52442,VAR => EIN BEST.
FELD.. C.;.. D. .EQCNT1=$02.K N. .EQDIMS
=$0B.. X. .EQTYPE=$0D.. .. .EQNUMTYPE=$0
E..!.. .EQVEKTOR=$20..! . .EQARRSTART=$2
F.+!.. .EQARREND=$31.>!H. .EQVARNAM=$45.
R!.. .EQLASTARR=$5F.D!.. .EQDESCR=$64.W!
.. .EQCHRGET=$73..!.. .EQHOLD1=$AF..!..
.EQCNT2=$B0..!". .EQBUFFER=$02C0.B!6. .E
QWARM=$0300.T!@. .EQGET=$FFE4..!J. .EQCH
KKOM=$AEFD..!.. .EQENDSIM=$822A..".. .EQ
BASON=$82F3.N"..; .EQ WAIT=$95B3
:= TUNED SIMON'S BASIC ROUTINE.."B.;
.EQ INC20=$9CDC:= SIMON'S BASIC RO
UTINE.."L. .EQEND=$A834.."V. .EQSTROUT=$
AB1E..".. .EQSTRPRT=$AB21.U".. .EQSYNERR
=$AF08..".. .EQGETVAR=$AF2B..".. .EQISLE
TC=$B113..#.. .EQFMAPTR=$B194.+#.. .EQGE
TELMNT=$B2EA.@#.. .EQINTFLT=$B395.U#&. .
EQLINPRT=$BDCD.H#0. .EQFOUT=$BDDD.|#:. .
EQFOUT2=$BDDF..#D. .EQCHROUT=$FFD2..#N.
.EQSTOP=$FFE1..#X.;..#B. .BA$CC00..#L.;.
U#V.KLAUF LDA#$28; "("..#.. .BY$2C..#..K
LZU LDA#$29; ")"..$.. .BY$2C..$..GLEICH
LDA#$3D; "=".'$.. .BY$2C.Q$..CR LDA#$0D;
CARRIAGE RETURN; CHR$(13).]$.. .BY$2C.T
$F.KOMMA LDA#$2C; ","..$P. .BY$2C..$Z.DO
LLAR LDA#$24; "$"..$.. .BY$2C..$..PROZEN
T LDA#$25; "%".I$.. .BY$2C..$..SPACE LDA
#$20; " "..$.. .BY$2C..%..COLON LDA#$3A;
":"..% . .BY$2C.&%*.QUOTE LDA#$22; """.
2%4. .BY$2C.I%9.CLEAR LDA#$93; ".".X%>.
JMPCHROUT.^%H.;..%R.WAITKEY JSRSTOP; AUS
GABE UNTERBRECHEN..%\. BEQBREAK..%F. JSR
WAIT.G%P. JSRSTOP; ABBRUCH BEI STOPTASTE
.U%Z. BEQBREAK..%.. RTS..%..;..%..BREAK
PLA..%.. PLA..&.. JMPEND..&..;.$&..SETPT
R LDAARRSTART.3&J. STAVEKTOR.C&T. STALAS
TARR.V&.. LDAARRSTART+1.G&.. STAVEKTOR+1
.Y&.. STALASTARR+1..&.. RTS..&..;..&..AD
DLEN LDY#$02; NAECHSTES ARRAY ANPEILEN..
&.. CLC.R&$. LDA(LASTARR),Y..&.. ADCLAST
ARR..&8. TAX..&B. INY..'L. LDA(LASTARR),
Y..'V. ADCLASTARR+1.,'`. STALASTARR+1.='
J. STAVEKTOR+1.F'T. TXA.V'~. STALASTARR.
E'.. STAVEKTOR.N'.. RTS.T'..;. '..INDEXO
UT JSRINTFLT; LFD. INDEX AUSGEBEN..'.. J
SRFOUT2..'.. JMPSTROUT.C'D.;..'N.ELMNTOU
T JSRKLAUF; DIMENSIONIERUNG AUSGEBEN..(X
. JSRHEADER..(.. JSRKLZU..(.. JSRGLEICH.
)(.. JSRCR.4(.. JMPCR.:(..;.K(..HEADER J
SRINC20; ANZAHL D. DIMENSIONEN HOLEN.Y(.
. JSRINC20..((. JSRINC20..(2. LDA(VEKTOR
),Y..(<. STADIMS; UND MERKEN.A(F. STAHOL
D1.V(P. ASL; VERDOPPELN..(Z. STACNT1..(D
. LDX#$FF..(N. STXCNT2..)X.H1 LDYCNT1.5)
.. LDA(VEKTOR),Y; GROESSE D. DIMENSION.>
).. TAX.G).. DEY.Z) . LDA(VEKTOR),Y.O)..
DEX; MINUS 1 LO.|).. CPX#$FF..).. BNEH2
..)H. SEC; MINUS 1 HI..)R. SBC#$01.D)..H
2 JSRLINPRT; AUSGEBEN.Q).. LDYCNT1..)..
LDXCNT2..).. INX..).. LDA(VEKTOR),Y..*..
STABUFFER,X..*.. DEY..*". INX.0*,. LDA(
VEKTOR),Y.A*6. STABUFFER,X.N*@. STXCNT2.
]*J. STXCNT2+1.~*T. DECCNT1; ALLE DIMENS
IONEN ?..*^. DECCNT1..*H. BEQH3; JA, FER
TIG..*R. JSRKOMMA; SONST : KOMMA.J*|. BN
EH1.P*..;..*..H3 INCCNT2; AUSGABEZAEHLER
NULLEN..+.. LDACNT2..+.. TAX..+.. ASL."
+.. STACNT1./+.. LDA#$00.B+B.H4 STABUFFE
R,X.K+L. INX.H+V. CPXCNT1; ALLE INDICES
?.Y+.. BMIH4; NEIN..+.. RTS..+..;..+..;.
E+..READY JMPCHRGET; AUF TRENNZEICHEN SE
TZEN (SB: JSR)..+.. JMPENDSIM; ZUM INTER
PRETER..+..;..+..;.&,.. JSRBASON; BASIC
ANSCHALTEN (SB: EINSPRUNG HIER).B,&.EINS
PRUNG JSRCHKKOM; NAECHSTES ZEICHEN (SB:
JSR CHRGET).~,0. JSRISLETC; BUCHSTABE ?.
.,:. BCCZERO; NEIN..,D. JMPPLACEVAR; SON
ST : ARRAY SUCHEN..,N.;..,X.ZERO CMP#$30
; FOLGT "0" ?..,B. BEQPLACE..-L. JMPSYNE
RR; NEIN, FEHLER..-V.;.(-..PLACE JSRCR;
LEERZEILE.F-.. JSRSETPTR; ZEIGER SETZEN.
H-..P1 LDAVEKTOR+1; ALLE ARRAYS ?.Y-.. C
MPARREND+1..-.. BNEP2..-.. LDAVEKTOR..-.
. CMPARREND..-F. BEQREADY; JA, FERTIG..-
P.P2 JSRAUSGABE; INHALT AUSGEBEN...Z. JS
RADDLEN; NAECHSTES ARRAY ANPEILEN..... J
SRCR; LEERZEILE.3... BNEP1; SCHLEIFE.9..
.;.?...;.D...AUSGABE LDY#$00; NAME 1. ZE
ICHEN.W... LDA(VEKTOR),Y..... STAVARNAM.
.... BMIINTEGER... . JSRCHROUT...*. JSRI
NC20.R.4. LDA(VEKTOR),Y; 2. ZEICHEN...>.
STAVARNAM+1...H. BMISTRING../R.REAL JSR
CHROUT../\. LDA#$00; REALFLAG.'/F. BEQP3
.;/P.INTEGER AND#$7F.J/Z. JSRCHROUT.X/..
JSRINC20.K/.. LDA(VEKTOR),Y.|/.. STAVAR
NAM+1../.. AND#$7F../.. JSRCHROUT../.. J
SRPROZENT.B/.. LDA#$80; INTEGERFLAG.T/J.
P3 STANUMTYPE../T. JSRELMNTOUT../.. JSRF
MAPTR..0..P4 JSRWAITKEY..0.. LDACNT2+1."
0.. STACNT2.?0.. JSRGIVE; INDEX AUSGEBEN
.W0.. LDX#$00; NUMERISCH.D0.. STXTYPE..0
$. JSRCONTENTS; FELDINHALT AUSGEBEN..0..
BNEP4; NAECHSTEN INDEX.P08. RTS; SONST
: FERTIG; NAECHSTES ARRAY.V0B.;..0L.STRI
NG AND#$7F..0V. JSRCHROUT..1`. JSRDOLLAR
..1J. JSRELMNTOUT.'1T. JSRFMAPTR.91~.P5
JSRWAITKEY.H1.. LDACNT2+1.U1.. STACNT2.I
1.. JSRGIVE; INDEX..1.. LDX#$FF; STRINGF
LAG..1.. STXTYPE..1.. JSRGETVAR; ELEMENT
SUCHEN..1D. JSRQUOTE.I1N. LDY#$02..1X.
LDA(DESCR),Y..1.. CMP#$08; LEER?..1.. BC
CP6; JA..2.. JSRSTRPRT; SONST : AUSGEBEN
./2..P6 JSRQUOTE.=2.. JSRCOUNT.H2.. BNEP
5.Q2.. RTS.W2(.;.}22.GIVE LDAHOLD1; EING
ABE SIMULIEREN..2<. STACNT1..2F. STADIMS
. 2P. ASL..2Z. STACNT2.N2D.G1 LDXCNT2; L
FD. INDEX HOLEN..2N. LDABUFFER,X..2X. TA
Y..2.. INX..3.. LDABUFFER,X..3.. PHA..3
. TAX..3.. TYA.&3.. PHA./3.. TXA.<3H. IN
CCNT2.I3R. INCCNT2.H3.. JSRINDEXOUT; UND
AUSGEBEN.}3.. DECCNT1; ALLE ?..3.. BEQG
2; JA..3.. JSRKOMMA; SONST : KOMMA..3..
BNEG1..3..;.J3..G2 JSRSPACE.X3.. JSRCOLO
N..3". JSRSPACE..4,. LDY#$04; ELEMENT SU
CHEN..46. JMPGETELMNT..4@.;.@4J.CONTENTS
JSRGETVAR; ZAHL AUSGEBEN.M4T. JSRFOUT.\
4^. JSRSTROUT..4H.COUNT JSRWAITKEY; INDE
X = GROESSE D. DIMENSION ?..4R. JSRCR..4
|. LDAHOLD1..4.. ASL..4.. STACNT1.I4.. T
AX.V4.. LDY#$00..4..LOOP1 INCBUFFER,X; E
RREICHT ?..5.. BNELOOP2..5B. INCBUFFER+1
,X./5L.LOOP2 LDABUFFER,X.@5V. CMPBUFFER,
Y.D5.. BNECONT; NEIN, WEITER AUSGEBEN.W5
.. LDABUFFER+1,X..5.. CMPBUFFER+1,Y..5..
BNECONT..5..;.K5.. LDA#$00; SONST : ZAE
HLER U. KONTR. AUF 0..5.. STABUFFER,X..5
.. STABUFFER+1,X..5&. INX..60. INX..6:.
INY..6D. INY.06N. CPYCNT1; ALLE INDICES
?.L6X. BNELOOP1; NEIN, WEITER.Y6B.CONT R
TS._6L.;.E6Q.;..6V.PLACEVAR STAVARNAM; V
ARIABLE ERKENNEN..6.. LDX#$00..6.. JSRCH
RGET..6.. BCCV1..6.. JSRISLETC; BIS KENN
UNG UEBERLESEN..6.. BCCV3..6..V1 TAX..7.
.V2 JSRCHRGET..7F. BCCV2..7P. JSRISLETC.
)7Z. BCSV2.=7..V3 CMP#$24; "$".H7.. BEQV
4.Z7.. CMP#$25; "%".E7.. BNEV5..7.. LDA#
$80; KENNZEICHNEN (STRING/INTEGER). 7..
ORAVARNAM..7 . STAVARNAM..7*.V4 TXA.G74.
ORA#$80.P7>. TAX..7H.V5 STXVARNAM+1..7R
. JSRCR..8\. JSRSETPTR; ZEIGER SETZEN..8
F.V6 LDAVEKTOR+1; ALLE ARRAYS ?.?8P. CMP
ARREND+1.J8Z. BNEV7.Y8.. LDAVEKTOR.H8..
CMPARREND..8.. BEQERROUT; JA : VERIFY ER
ROR..8..V7 LDY#$00; GEFUNDEN ?..8.. LDA(
VEKTOR),Y.G8.. CMPVARNAM.T8.. BNENEXT..8
J. INY..8T. LDA(VEKTOR),Y..9.. CMPVARNAM
+1..9.. BEQARROUT; JA, AUSGEBEN.J9..NEXT
JSRADDLEN; SONST : NAECHSTES ARRAY.U9..
JMPV6.[9..;.Q9..ARROUT JSRAUSGABE.9..
JMPREADY..9$.;..9..ERROUT LDX#$1C; VERIF
Y ERROR..98. JMP(WARM)..9B.;.A9V.;.R9`.I
NC20 INC$20..9J. BNEI1..9T. INC$21..9~.I
1 RTS..9..;..:..WAIT JSRGET..:.. BEQW2.#
:..W1 JSRGET..:.. BEQW1.9:D.W2 RTS.?:N.;
.B:X.; EINBINDEN IN SIMON'S BASIC :..:..
; INC20 LIEGT BEI $9CDC..:..; ZEIL
E 1790 : JSR CHRGET.C:..; ZEILE 1830
: JSR CHRGET..:..; EINSPRUNG BEI ZEIL
E 1820..;..; ERRORVEKTOR EINER FUNKTI
ON./;..; (Z.B. PLACE) AUF EINSPRUNG-1
.?;..; LEGEN..E;(.; => POKE $86E2,
<(EINSPRUNG-1)..;2.; POKE $86E3,>(
EINSPRUNG)..;<.; AUFRUF : PLACE 0..;F
.; PLACE VAR.E;P.;.N;Z. .EN.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL