XB/I 1.2
FILE INFORMATION
FILENAME(S): XB/I 1.2
FILE TYPE(S): PRG
FILE SIZE: 12.4K
FIRST SEEN: 2025-10-20 14:31:04
APPEARS ON: 2 disk(s)
FILE HASH
5964fa5831a30fedcd9b9f2fa30ae0e1d159e8273500989403ae9f862f705e5c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | XB/I 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 16 | 1 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | XB/I 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 6E 31 3B 3B 3B D8 C2 C1 D3 C9 C3 20 D6 45 52 53 |n1;;;...... .ERS|
00000010: 49 4F 4E 20 31 2E 32 20 28 43 29 20 CD 2E C6 52 |ION 1.2 (C) ...R|
00000020: 49 45 53 45 20 31 2F 38 38 00 3B 3B 3B 2D 2D 58 |IESE 1/88.;;;--X|
00000030: 42 2F 49 20 31 2E 32 00 20 00 3B 2D 2D 2D 2D 2D |B/I 1.2. .;-----|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000060: 2D 2D 00 3B 2D 2D 2D 20 20 20 20 20 D6 45 52 45 |--.;--- .ERE|
00000070: 49 4E 42 41 52 55 4E 47 20 44 45 52 20 D3 59 4D |INBARUNG DER .YM|
00000080: 42 4F 4C 45 20 20 20 20 2D 2D 2D 00 3B 2D 2D 2D |BOLE ---.;---|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000B0: 2D 2D 2D 2D 00 58 54 4F 4B 45 4E 3A 2E 45 51 32 |----.XTOKEN:.EQ2|
000000C0: 31 30 3B D4 4F 4B 45 4E 4E 55 4D 4D 45 52 20 44 |10;.OKENNUMMER D|
000000D0: 45 52 20 C5 52 57 45 49 54 45 52 55 4E 47 00 20 |ER .RWEITERUNG. |
000000E0: 00 50 50 3A 2E 45 51 31 3B D0 52 4F 5A 45 53 53 |.PP:.EQ1;.ROZESS|
000000F0: 4F 52 50 4F 52 54 00 58 4D 45 4D 3A 2E 45 51 32 |ORPORT.XMEM:.EQ2|
00000100: 3B D8 2D D2 45 47 49 53 54 45 52 20 46 55 45 52 |;.-.EGISTER FUER|
00000110: 20 D2 CF CD 2D D2 4F 55 54 49 4E 45 4E 00 41 5A | ...-.OUTINEN.AZ|
00000120: 47 3A 2E 45 51 32 35 31 3B 41 4C 4C 47 45 4D 45 |G:.EQ251;ALLGEME|
00000130: 49 4E 45 52 20 DA 45 49 47 45 52 20 31 00 41 5A |INER .EIGER 1.AZ|
00000140: 47 32 3A 2E 45 51 32 35 33 3B 41 4C 4C 47 45 4D |G2:.EQ253;ALLGEM|
00000150: 45 49 4E 45 52 20 DA 45 49 47 45 52 20 32 00 42 |EINER .EIGER 2.B|
00000160: 41 53 45 4E 44 3A 2E 45 51 24 33 37 3B C2 41 53 |ASEND:.EQ$37;.AS|
00000170: 49 43 20 D3 50 45 49 43 48 45 52 45 4E 44 45 00 |IC .PEICHERENDE.|
00000180: 43 48 41 52 50 41 47 45 3A 2E 45 51 36 34 38 3B |CHARPAGE:.EQ648;|
00000190: C6 45 53 54 4C 45 47 55 4E 47 20 44 45 52 20 D4 |.ESTLEGUNG DER .|
000001A0: 45 58 54 53 45 49 54 45 00 4E 4D 49 56 45 43 3A |EXTSEITE.NMIVEC:|
000001B0: 2E 45 51 24 33 31 38 3B CE CD C9 2D D6 45 4B 54 |.EQ$318;...-.EKT|
000001C0: 4F 52 00 4C 49 53 54 56 45 43 3A 2E 45 51 24 33 |OR.LISTVEC:.EQ$3|
000001D0: 30 36 3B CC C9 D3 D4 20 D6 45 4B 54 4F 52 00 54 |06;.... .EKTOR.T|
000001E0: 4F 4B 45 4E 56 45 43 3A 2E 45 51 24 33 30 34 3B |OKENVEC:.EQ$304;|
000001F0: C9 4E 20 D4 4F 4B 45 4E 20 57 41 4E 44 45 4C 4E |.N .OKEN WANDELN|
00000200: 00 45 58 45 43 55 54 45 56 45 43 3A 2E 45 51 24 |.EXECUTEVEC:.EQ$|
00000210: 33 30 38 3B C1 55 53 46 55 45 48 52 55 4E 47 53 |308;.USFUEHRUNGS|
00000220: 56 45 4B 54 4F 52 00 46 4B 54 56 45 43 3A 2E 45 |VEKTOR.FKTVEC:.E|
00000230: 51 24 33 30 41 3B C6 55 4E 54 49 4F 4E 45 4E 20 |Q$30A;.UNTIONEN |
00000240: D6 45 4B 54 4F 52 00 5A 45 49 4C 45 3A 2E 45 51 |.EKTOR.ZEILE:.EQ|
00000250: 24 32 30 30 3B C1 44 52 45 53 53 45 20 44 45 52 |$200;.DRESSE DER|
00000260: 20 C5 49 4E 47 41 42 45 5A 45 49 4C 45 00 4D 45 | .INGABEZEILE.ME|
00000270: 4D 3A 2E 45 51 38 32 38 3B 41 4C 4C 47 45 4D 45 |M:.EQ828;ALLGEME|
00000280: 49 4E 45 52 20 D0 55 46 46 45 52 00 52 45 47 31 |INER .UFFER.REG1|
00000290: 3A 2E 45 51 39 37 3B 31 2E 20 CF 50 45 52 41 4E |:.EQ97;1. .PERAN|
000002A0: 44 20 46 55 45 52 20 CD 55 4C 54 49 50 4C 49 4B |D FUER .ULTIPLIK|
000002B0: 41 54 49 4F 4E 00 52 45 47 32 3A 2E 45 51 31 30 |ATION.REG2:.EQ10|
000002C0: 35 3B 32 2E 20 CF 50 45 52 41 4E 44 00 4D 45 52 |5;2. .PERAND.MER|
000002D0: 47 3A 2E 45 51 31 30 38 3B C5 52 47 45 42 4E 49 |G:.EQ108;.RGEBNI|
000002E0: 53 00 20 00 49 4E 50 55 46 46 45 52 3A 2E 45 51 |S. .INPUFFER:.EQ|
000002F0: 24 35 30 30 3B C2 4C 4F 43 4B 20 46 55 45 52 20 |$500;.LOCK FUER |
00000300: CC C9 CE C5 2D C9 CE D0 D5 D4 00 59 43 55 52 53 |....-......YCURS|
00000310: 32 3A 2E 45 51 31 30 32 33 3B C7 52 41 50 48 49 |2:.EQ1023;.RAPHI|
00000320: 4B 20 C5 4E 44 50 55 4E 4B 54 20 D9 00 58 43 55 |K .NDPUNKT ..XCU|
00000330: 52 53 32 3A 2E 45 51 31 30 32 31 3B C7 52 41 50 |RS2:.EQ1021;.RAP|
00000340: 48 49 4B 20 C5 4E 44 50 55 4E 4B 54 20 D8 00 44 |HIK .NDPUNKT ..D|
00000350: 52 41 57 4D 4F 44 45 3A 2E 45 51 31 30 31 37 3B |RAWMODE:.EQ1017;|
00000360: DA 45 49 43 48 45 4E 4D 4F 44 55 53 00 58 43 55 |.EICHENMODUS.XCU|
00000370: 52 53 3A 2E 45 51 31 30 31 38 3B C7 52 41 50 48 |RS:.EQ1018;.RAPH|
00000380: 49 4B 20 D8 00 59 43 55 52 53 3A 2E 45 51 31 30 |IK ..YCURS:.EQ10|
00000390: 32 30 3B C7 52 41 50 48 49 4B 20 59 00 43 4F 4C |20;.RAPHIK Y.COL|
000003A0: 4D 4F 44 45 3A 2E 45 51 31 30 31 36 3B C7 52 41 |MODE:.EQ1016;.RA|
000003B0: 50 48 49 4B 20 C6 41 52 42 4D 4F 44 55 53 00 43 |PHIK .ARBMODUS.C|
000003C0: 4F 4C 4D 45 4D 3A 2E 45 51 24 36 30 30 3B C6 41 |OLMEM:.EQ$600;.A|
000003D0: 52 42 45 4E 53 50 45 49 43 48 45 52 00 20 00 45 |RBENSPEICHER. .E|
000003E0: 49 4E 47 41 42 45 56 45 43 3A 2E 45 51 24 30 33 |INGABEVEC:.EQ$03|
000003F0: 30 32 3B D6 45 4B 54 4F 52 20 46 55 45 52 20 C5 |02;.EKTOR FUER .|
00000400: 49 4E 47 41 42 45 2D D7 41 52 54 45 53 43 48 4C |INGABE-.ARTESCHL|
00000410: 45 49 46 45 00 4F 4C 44 45 49 4E 47 41 42 45 3A |EIFE.OLDEINGABE:|
00000420: 2E 45 51 24 41 34 38 33 3B 41 4C 54 45 20 C5 49 |.EQ$A483;ALTE .I|
00000430: 4E 47 41 42 45 2D D7 41 52 54 45 53 43 48 4C 45 |NGABE-.ARTESCHLE|
00000440: 49 46 45 00 20 00 56 49 43 3A 2E 45 51 24 44 30 |IFE. .VIC:.EQ$D0|
00000450: 30 30 3B D6 49 44 45 4F 20 C9 C3 00 53 49 44 3A |00;.IDEO ...SID:|
00000460: 2E 45 51 24 44 34 30 30 3B D3 4F 55 4E 44 20 C9 |.EQ$D400;.OUND .|
00000470: C3 00 46 41 52 42 52 41 4D 3A 2E 45 51 24 44 38 |..FARBRAM:.EQ$D8|
00000480: 30 30 3B C6 41 52 42 52 41 4D 00 43 49 41 31 3A |00;.ARBRAM.CIA1:|
00000490: 2E 45 51 24 44 43 30 30 3B C3 C9 C1 20 23 31 00 |.EQ$DC00;... #1.|
000004A0: 43 49 41 32 3A 2E 45 51 24 44 44 30 30 3B C3 C9 |CIA2:.EQ$DD00;..|
000004B0: C1 20 23 32 00 5A 45 49 43 48 45 4E 53 41 54 5A |. #2.ZEICHENSATZ|
000004C0: 3A 2E 45 51 24 44 30 30 30 3B D3 54 41 52 54 41 |:.EQ$D000;.TARTA|
000004D0: 44 52 45 53 53 45 20 DA 45 49 43 48 45 4E 53 41 |DRESSE .EICHENSA|
000004E0: 54 5A 00 20 00 58 42 41 53 49 43 53 54 41 52 54 |TZ. .XBASICSTART|
000004F0: 3A 2E 45 51 24 41 30 30 30 2D 32 30 34 38 3B D3 |:.EQ$A000-2048;.|
00000500: 54 41 52 54 41 44 52 45 53 53 45 20 56 4F 4E 20 |TARTADRESSE VON |
00000510: D8 C2 C1 D3 C9 C3 00 54 45 58 54 53 45 49 54 45 |.......TEXTSEITE|
00000520: 3A 2E 45 51 24 43 43 30 30 3B C1 44 52 45 53 53 |:.EQ$CC00;.DRESS|
00000530: 45 20 44 45 52 20 D4 45 58 54 53 45 49 54 45 00 |E DER .EXTSEITE.|
00000540: 46 41 52 42 45 48 49 52 45 53 3A 2E 45 51 24 43 |FARBEHIRES:.EQ$C|
00000550: 38 30 30 3B C1 44 52 45 53 53 45 20 44 45 52 20 |800;.DRESSE DER |
00000560: C6 41 52 42 45 20 46 55 45 52 20 C8 49 52 45 53 |.ARBE FUER .IRES|
00000570: 00 48 49 52 45 53 53 45 49 54 45 3A 2E 45 51 24 |.HIRESSEITE:.EQ$|
00000580: 45 30 30 30 3B C1 44 52 45 53 53 45 20 44 45 52 |E000;.DRESSE DER|
00000590: 20 C8 49 52 45 53 53 45 49 54 45 00 20 00 43 48 | .IRESSEITE. .CH|
000005A0: 52 47 45 54 3A 2E 45 51 24 37 33 3B 45 49 4E 20 |RGET:.EQ$73;EIN |
000005B0: DA 45 49 43 48 45 4E 20 41 55 53 20 C2 41 53 49 |.EICHEN AUS .ASI|
000005C0: 43 20 48 4F 4C 45 4E 00 43 48 52 47 4F 54 3A 2E |C HOLEN.CHRGOT:.|
000005D0: 45 51 24 37 39 3B DA 45 49 43 48 45 4E 20 4E 4F |EQ$79;.EICHEN NO|
000005E0: 43 48 20 45 49 4E 4D 41 4C 20 4C 45 53 45 4E 00 |CH EINMAL LESEN.|
000005F0: 56 41 52 53 55 43 48 3A 2E 45 51 24 42 30 38 42 |VARSUCH:.EQ$B08B|
00000600: 3B D6 41 52 49 41 4C 45 20 53 55 43 48 45 4E 00 |;.ARIALE SUCHEN.|
00000610: 42 53 4F 55 54 3A 2E 45 51 24 46 46 44 32 3B 45 |BSOUT:.EQ$FFD2;E|
00000620: 49 4E 20 DA 45 49 43 48 45 4E 20 41 55 53 47 45 |IN .EICHEN AUSGE|
00000630: 42 45 4E 00 43 55 52 53 4F 52 3A 2E 45 51 24 46 |BEN.CURSOR:.EQ$F|
00000640: 46 46 30 3B C3 55 52 53 4F 52 20 53 45 54 5A 45 |FF0;.URSOR SETZE|
00000650: 4E 2F 4C 4F 45 53 43 48 45 4E 00 C3 D5 D2 52 45 |N/LOESCHEN....RE|
00000660: 43 48 54 53 3A 2E 45 51 24 41 42 33 42 3B C3 55 |CHTS:.EQ$AB3B;.U|
00000670: 52 53 4F 52 20 52 45 43 48 54 53 00 52 45 53 45 |RSOR RECHTS.RESE|
00000680: 54 3A 2E 45 51 24 46 43 45 32 3B C3 4F 4D 50 55 |T:.EQ$FCE2;.OMPU|
00000690: 54 45 52 20 D2 45 53 45 54 00 D2 CF CD 46 52 4D |TER .ESET....FRM|
000006A0: 45 56 4C 3A 2E 45 51 24 41 44 39 45 3B C1 55 53 |EVL:.EQ$AD9E;.US|
000006B0: 44 52 55 43 4B 20 42 45 52 45 43 48 4E 45 4E 00 |DRUCK BERECHNEN.|
000006C0: D2 CF CD 43 48 4B 4B 4C 41 5A 55 3A 2E 45 51 24 |...CHKKLAZU:.EQ$|
000006D0: 41 45 46 37 3B 41 55 46 20 27 CB 4C 41 4D 4D 45 |AEF7;AUF '.LAMME|
000006E0: 52 20 5A 55 27 20 54 45 53 54 45 4E 00 D2 CF CD |R ZU' TESTEN....|
000006F0: 43 48 4B 4C 41 41 55 46 3A 2E 45 51 24 41 45 46 |CHKLAAUF:.EQ$AEF|
00000700: 41 3B 41 55 46 20 27 CB 4C 41 4D 4D 45 52 20 41 |A;AUF '.LAMMER A|
00000710: 55 46 27 20 54 45 53 54 45 4E 00 D2 CF CD 4B 4C |UF' TESTEN....KL|
00000720: 41 4D 4D 45 52 3A 2E 45 51 24 41 45 46 31 3B CB |AMMER:.EQ$AEF1;.|
00000730: 4C 41 4D 4D 45 52 41 55 53 44 52 55 43 4B 20 41 |LAMMERAUSDRUCK A|
00000740: 55 53 57 45 52 54 45 4E 00 D2 CF CD 41 44 52 45 |USWERTEN....ADRE|
00000750: 53 53 45 3A 2E 45 51 24 42 37 46 37 3B C6 C1 C3 |SSE:.EQ$B7F7;...|
00000760: 2D 3E 50 4F 53 2E 20 C9 4E 54 45 47 45 52 00 54 |->POS. .NTEGER.T|
00000770: 45 53 54 43 4F 44 45 3A 2E 45 51 24 41 45 46 46 |ESTCODE:.EQ$AEFF|
00000780: 3B 41 55 46 20 C3 4F 44 45 20 54 45 53 54 45 4E |;AUF .ODE TESTEN|
00000790: 00 46 52 45 53 54 52 3A 2E 45 51 24 42 36 41 36 |.FRESTR:.EQ$B6A6|
000007A0: 3B D3 54 52 49 4E 47 20 41 55 46 52 41 45 55 4D |;.TRING AUFRAEUM|
000007B0: 45 4E 00 47 41 52 42 41 47 45 3A 2E 45 51 24 42 |EN.GARBAGE:.EQ$B|
000007C0: 35 32 36 3B C7 41 52 42 41 52 47 45 20 43 4F 4C |526;.ARBARGE COL|
000007D0: 4C 45 43 54 49 4F 4E 00 D2 CF CD 52 45 53 53 54 |LECTION....RESST|
000007E0: 52 3A 2E 45 51 24 42 34 37 44 3B D3 54 52 49 4E |R:.EQ$B47D;.TRIN|
000007F0: 47 20 52 45 53 45 52 56 49 45 52 45 4E 00 D2 CF |G RESERVIEREN...|
00000800: CD 53 54 52 49 4E 47 3A 2E 45 51 24 42 34 43 41 |.STRING:.EQ$B4CA|
00000810: 3B D3 54 52 49 4E 47 20 49 4E 20 D3 54 52 49 4E |;.TRING IN .TRIN|
00000820: 47 53 54 41 43 4B 00 47 45 54 53 54 52 49 4E 47 |GSTACK.GETSTRING|
00000830: 3A 2E 45 51 24 42 37 38 32 3B D3 54 52 49 4E 47 |:.EQ$B782;.TRING|
00000840: 20 48 4F 4C 45 4E 00 43 4C 52 53 43 52 3A 2E 45 | HOLEN.CLRSCR:.E|
00000850: 51 24 45 35 34 34 3B C2 49 4C 44 53 43 48 49 51 |Q$E544;.ILDSCHIQ|
00000860: 4D 20 4C 4F 45 53 43 48 45 4E 00 47 45 54 3A 2E |M LOESCHEN.GET:.|
00000870: 45 51 24 46 46 45 34 3B C7 C5 D4 2D C2 45 46 45 |EQ$FFE4;...-.EFE|
00000880: 48 4C 00 D2 CF CD 47 45 54 42 59 54 45 3A 2E 45 |HL....GETBYTE:.E|
00000890: 51 24 42 37 39 45 3B C8 4F 4C 54 20 45 49 4E 20 |Q$B79E;.OLT EIN |
000008A0: C2 59 54 45 00 D2 CF CD 43 48 4B 4B 4F 4D 3A 2E |.YTE....CHKKOM:.|
000008B0: 45 51 24 41 45 46 44 3B 41 55 46 20 CB 4F 4D 4D |EQ$AEFD;AUF .OMM|
000008C0: 41 20 50 52 55 45 46 45 4E 00 20 00 20 00 49 4E |A PRUEFEN. . .IN|
000008D0: 49 54 4D 45 4C 44 55 4E 47 3A 2E 45 51 24 45 34 |ITMELDUNG:.EQ$E4|
000008E0: 32 44 3B D3 54 41 52 54 4D 45 4C 44 55 4E 47 20 |2D;.TARTMELDUNG |
000008F0: 41 55 53 47 45 42 45 4E 00 42 41 53 49 43 57 41 |AUSGEBEN.BASICWA|
00000900: 53 54 41 3A 2E 45 51 24 45 33 38 36 3B C2 41 53 |STA:.EQ$E386;.AS|
00000910: 49 43 20 D7 41 52 4D 53 54 41 52 54 00 20 00 3B |IC .ARMSTART. .;|
00000920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000940: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 20 20 D8 |-------.;--- .|
00000950: C2 C1 D3 C9 C3 20 C2 41 53 49 43 2D D3 54 41 52 |..... .ASIC-.TAR|
00000960: 54 52 4F 55 54 49 4E 45 20 20 20 20 20 2D 2D 2D |TROUTINE ---|
00000970: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00000980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 2E 57 41 3B 42 45 |---------..WA;BE|
000009A0: 49 20 C6 45 48 4C 45 52 20 57 41 52 54 45 4E 00 |I .EHLER WARTEN.|
000009B0: D4 C5 D3 D4 3A 2E 49 4E 22 D4 45 53 54 56 45 52 |....:.IN".ESTVER|
000009C0: 53 49 4F 4E 20 28 CA 3D 31 29 20 3F 20 31 9D 22 |SION (.=1) ? 1."|
000009D0: 00 2E 3F 45 D4 C5 D3 D4 2D 31 00 2E 4F 53 00 2E |..?E....-1..OS..|
000009E0: 42 41 58 42 41 53 49 43 53 54 41 52 54 00 2E 45 |BAXBASICSTART..E|
000009F0: 42 00 20 00 2E 3F 4E D4 C5 D3 D4 2D 31 00 2E 42 |B. ..?N....-1..B|
00000A00: 41 24 38 30 31 3B C2 41 53 49 43 20 D3 54 41 52 |A$801;.ASIC .TAR|
00000A10: 54 00 2E 4F 55 22 40 30 3A 58 42 41 53 49 43 20 |T..OU"@0:XBASIC |
00000A20: 31 2E 32 22 3B 45 52 5A 45 55 47 54 45 20 C4 41 |1.2";ERZEUGTE .A|
00000A30: 54 45 49 20 41 55 46 20 C4 49 53 4B 20 53 43 48 |TEI AUF .ISK SCH|
00000A40: 52 45 49 42 45 4E 00 2E 4F 43 3B 4B 45 49 4E 45 |REIBEN..OC;KEINE|
00000A50: 20 C1 55 53 47 41 42 45 20 49 4E 20 44 41 53 20 | .USGABE IN DAS |
00000A60: D2 C1 CD 00 20 00 2E 42 59 31 31 2C 38 2C 3C 31 |.... ..BY11,8,<1|
00000A70: 39 38 37 2C 3E 31 39 38 37 2C 31 35 38 2C 22 32 |987,>1987,158,"2|
00000A80: 30 36 31 22 2C 30 2C 30 2C 30 3B C5 4E 54 53 50 |061",0,0,0;.NTSP|
00000A90: 52 49 43 48 54 20 22 31 39 38 37 20 D3 D9 D3 32 |RICHT "1987 ...2|
00000AA0: 30 36 31 22 00 20 00 4C 44 41 23 3C D8 C2 C1 D3 |061". .LDA#<....|
00000AB0: C9 C3 3B C1 4E 20 CE 4F 52 4D 41 4C 53 54 41 52 |..;.N .ORMALSTAR|
00000AC0: 54 20 53 43 48 49 45 42 45 4E 00 4C 44 58 23 3E |T SCHIEBEN.LDX#>|
00000AD0: D8 C2 C1 D3 C9 C3 3B DA 45 49 47 45 52 20 53 45 |......;.EIGER SE|
00000AE0: 54 5A 45 4E 00 53 54 41 41 5A 47 00 53 54 58 41 |TZEN.STAAZG.STXA|
00000AF0: 5A 47 2B 31 00 4C 44 41 23 3C 58 42 41 53 49 43 |ZG+1.LDA#<XBASIC|
00000B00: 53 54 41 52 54 3B CE 4F 52 4D 41 4C 41 44 52 45 |START;.ORMALADRE|
00000B10: 53 53 45 00 4C 44 58 23 3E 58 42 41 53 49 43 53 |SSE.LDX#>XBASICS|
00000B20: 54 41 52 54 00 53 54 41 41 5A 47 32 00 53 54 58 |TART.STAAZG2.STX|
00000B30: 41 5A 47 32 2B 31 00 4C 44 58 23 34 2A 39 3B 39 |AZG2+1.LDX#4*9;9|
00000B40: 20 CB C2 59 54 45 20 55 45 42 45 52 54 52 41 47 | ..YTE UEBERTRAG|
00000B50: 45 4E 00 4C 44 59 23 30 00 D4 D2 C1 C2 C1 D3 C9 |EN.LDY#0........|
00000B60: C3 3A 4C 44 41 28 41 5A 47 29 2C 59 3B D6 45 52 |.:LDA(AZG),Y;.ER|
00000B70: 53 43 48 49 45 42 45 53 43 48 4C 45 49 46 45 00 |SCHIEBESCHLEIFE.|
00000B80: 53 54 41 28 41 5A 47 32 29 2C 59 00 49 4E 59 00 |STA(AZG2),Y.INY.|
00000B90: 42 4E 45 D4 D2 C1 C2 C1 D3 C9 C3 3B 42 49 53 20 |BNE........;BIS |
00000BA0: 45 49 4E 45 20 D0 41 47 45 20 56 45 52 53 43 48 |EINE .AGE VERSCH|
00000BB0: 4F 42 45 4E 00 49 4E 43 41 5A 47 2B 31 00 49 4E |OBEN.INCAZG+1.IN|
00000BC0: 43 41 5A 47 32 2B 31 00 44 45 58 00 42 4E 45 D4 |CAZG2+1.DEX.BNE.|
00000BD0: D2 C1 C2 C1 D3 C9 C3 3B 42 49 53 20 41 4C 4C 45 |.......;BIS ALLE|
00000BE0: 20 D3 45 49 54 45 4E 20 56 45 52 53 43 48 4F 42 | .EITEN VERSCHOB|
00000BF0: 45 4E 00 4A 4D 50 58 42 41 53 49 43 53 54 41 52 |EN.JMPXBASICSTAR|
00000C00: 54 3B D8 C2 C1 D3 C9 C3 20 53 54 41 52 54 45 4E |T;...... STARTEN|
00000C10: 00 D8 C2 C1 D3 C9 C3 3A 00 2E 43 42 58 42 41 53 |.......:..CBXBAS|
00000C20: 49 43 53 54 41 52 54 3B D2 45 53 54 20 5A 55 52 |ICSTART;.EST ZUR|
00000C30: 20 CE 4F 52 4D 41 4C 41 44 52 45 53 53 45 20 41 | .ORMALADRESSE A|
00000C40: 53 53 45 4D 42 4C 49 45 52 45 4E 00 2E 45 42 00 |SSEMBLIEREN..EB.|
00000C50: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
00000C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 20 D8 |--------.;--- .|
00000C80: C2 C1 D3 C9 C3 20 C9 4E 49 54 49 41 4C 49 53 49 |..... .NITIALISI|
00000C90: 45 52 55 4E 47 53 52 4F 55 54 49 4E 45 20 2D 2D |ERUNGSROUTINE --|
00000CA0: 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------|
00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 58 42 41 |----------...XBA|
00000CD0: 53 49 43 3A 4C 44 41 23 24 33 37 3B D3 50 45 49 |SIC:LDA#$37;.PEI|
00000CE0: 43 48 45 52 41 55 46 54 45 49 4C 55 4E 47 20 4E |CHERAUFTEILUNG N|
00000CF0: 4F 52 4D 41 4C 00 53 54 41 50 50 00 4A 53 52 53 |ORMAL.STAPP.JSRS|
00000D00: 45 54 5A 45 49 43 48 45 4E 00 4A 53 52 49 4E 49 |ETZEICHEN.JSRINI|
00000D10: 54 58 42 41 53 49 43 3B D8 C2 C1 D3 C9 C3 20 D6 |TXBASIC;...... .|
00000D20: 45 4B 54 4F 52 45 4E 20 53 45 54 5A 45 4E 00 4C |EKTOREN SETZEN.L|
00000D30: 44 41 23 3C 4D 45 4C 44 55 4E 47 3B C1 44 52 45 |DA#<MELDUNG;.DRE|
00000D40: 53 53 45 20 44 45 52 20 C5 49 4E 53 43 48 41 4C |SSE DER .INSCHAL|
00000D50: 54 4D 45 4C 44 55 4E 47 20 4C 41 44 45 4E 00 4C |TMELDUNG LADEN.L|
00000D60: 44 59 23 3E 4D 45 4C 44 55 4E 47 00 4A 53 52 49 |DY#>MELDUNG.JSRI|
00000D70: 4E 49 54 4D 45 4C 44 55 4E 47 3B C1 55 53 47 41 |NITMELDUNG;.USGA|
00000D80: 42 45 20 49 4D 20 C3 20 36 34 20 C2 41 53 49 43 |BE IM . 64 .ASIC|
00000D90: 00 4C 44 58 23 24 46 42 3B D3 54 41 43 4B 50 4F |.LDX#$FB;.TACKPO|
00000DA0: 49 4E 54 45 52 20 4C 41 44 45 4E 00 54 58 53 00 |INTER LADEN.TXS.|
00000DB0: 4A 4D 50 42 41 53 49 43 57 41 53 54 41 3B 55 4E |JMPBASICWASTA;UN|
00000DC0: 44 20 5A 55 4D 20 C2 41 53 49 43 2D D7 41 52 4D |D ZUM .ASIC-.ARM|
00000DD0: 53 54 41 52 54 00 20 00 20 00 49 4E 49 54 58 42 |START. . .INITXB|
00000DE0: 41 53 49 43 3A 4C 44 41 23 25 30 30 31 31 30 31 |ASIC:LDA#%001101|
00000DF0: 31 30 3B C1 44 52 45 53 53 45 20 44 45 53 20 C2 |10;.DRESSE DES .|
00000E00: 49 4C 44 53 43 48 49 52 4D 53 00 53 54 41 56 49 |ILDSCHIRMS.STAVI|
00000E10: 43 2B 32 34 3B 55 4E 44 20 44 45 53 20 DA 45 49 |C+24;UND DES .EI|
00000E20: 43 48 45 4E 53 41 54 5A 45 53 20 46 45 53 54 4C |CHENSATZES FESTL|
00000E30: 45 47 45 4E 00 4C 44 41 43 49 41 32 3B D6 C9 C3 |EGEN.LDACIA2;...|
00000E40: 20 C2 45 52 45 49 43 48 20 56 4F 4E 20 24 C3 30 | .EREICH VON $.0|
00000E50: 30 30 2D 24 C6 C6 C6 C6 00 41 4E 44 23 25 31 31 |00-$.....AND#%11|
00000E60: 31 31 31 31 30 30 00 53 54 41 43 49 41 32 00 4C |111100.STACIA2.L|
00000E70: 44 41 23 54 45 58 54 53 45 49 54 45 2F 32 35 36 |DA#TEXTSEITE/256|
00000E80: 3B D4 45 58 54 53 45 49 54 45 20 46 55 45 52 20 |;.EXTSEITE FUER |
00000E90: C2 41 53 49 43 20 46 45 53 54 4C 45 47 45 4E 00 |.ASIC FESTLEGEN.|
00000EA0: 53 54 41 43 48 41 52 50 41 47 45 00 20 00 4C 44 |STACHARPAGE. .LD|
00000EB0: 41 23 3C 58 42 41 53 49 43 53 54 41 52 54 3B CE |A#<XBASICSTART;.|
00000EC0: 45 55 45 53 20 C2 41 53 49 43 2D C5 4E 44 45 20 |EUES .ASIC-.NDE |
00000ED0: 53 45 54 5A 45 4E 00 4C 44 58 23 3E 58 42 41 53 |SETZEN.LDX#>XBAS|
00000EE0: 49 43 53 54 41 52 54 00 53 54 41 42 41 53 45 4E |ICSTART.STABASEN|
00000EF0: 44 00 53 54 58 42 41 53 45 4E 44 2B 31 00 4C 44 |D.STXBASEND+1.LD|
00000F00: 41 23 3C 4E 45 57 4E 4D 49 3B 4E 45 55 45 20 CE |A#<NEWNMI;NEUE .|
00000F10: CD C9 2D D2 4F 55 54 49 4E 45 00 4C 44 58 23 3E |..-.OUTINE.LDX#>|
00000F20: 4E 45 57 4E 4D 49 00 53 54 41 4E 4D 49 56 45 43 |NEWNMI.STANMIVEC|
00000F30: 00 53 54 58 4E 4D 49 56 45 43 2B 31 00 4C 44 41 |.STXNMIVEC+1.LDA|
00000F40: 23 3C 54 4F 4B 45 4E 3B 4E 45 55 45 20 D4 4F 4B |#<TOKEN;NEUE .OK|
00000F50: 45 4E 2D D7 41 4E 44 45 4C 52 4F 55 54 49 4E 45 |EN-.ANDELROUTINE|
00000F60: 00 4C 44 58 23 3E 54 4F 4B 45 4E 00 53 54 41 54 |.LDX#>TOKEN.STAT|
00000F70: 4F 4B 45 4E 56 45 43 00 53 54 58 54 4F 4B 45 4E |OKENVEC.STXTOKEN|
00000F80: 56 45 43 2B 31 00 4C 44 41 23 3C 4C 49 53 54 3B |VEC+1.LDA#<LIST;|
00000F90: 4E 45 55 45 20 CC 49 53 54 2D D2 4F 55 54 49 4E |NEUE .IST-.OUTIN|
00000FA0: 45 00 4C 44 58 23 3E 4C 49 53 54 00 53 54 41 4C |E.LDX#>LIST.STAL|
00000FB0: 49 53 54 56 45 43 00 53 54 58 4C 49 53 54 56 45 |ISTVEC.STXLISTVE|
00000FC0: 43 2B 31 00 4C 44 41 23 3C 45 58 45 43 55 54 45 |C+1.LDA#<EXECUTE|
00000FD0: 3B 4E 45 55 45 20 C1 55 53 46 55 45 48 52 55 4E |;NEUE .USFUEHRUN|
00000FE0: 47 53 52 4F 55 54 49 4E 45 00 4C 44 58 23 3E 45 |GSROUTINE.LDX#>E|
00000FF0: 58 45 43 55 54 45 00 53 54 41 45 58 45 43 55 54 |XECUTE.STAEXECUT|
00001000: 45 56 45 43 00 53 54 58 45 58 45 43 55 54 45 56 |EVEC.STXEXECUTEV|
00001010: 45 43 2B 31 00 4C 44 41 23 3C 45 58 45 46 4B 54 |EC+1.LDA#<EXEFKT|
00001020: 3B CE 45 55 45 53 20 C2 41 53 49 43 2D C5 4E 44 |;.EUES .ASIC-.ND|
00001030: 45 20 53 45 54 5A 45 4E 00 4C 44 58 23 3E 45 58 |E SETZEN.LDX#>EX|
00001040: 45 46 4B 54 00 53 54 41 46 4B 54 56 45 43 00 53 |EFKT.STAFKTVEC.S|
00001050: 54 58 46 4B 54 56 45 43 2B 31 00 4C 44 41 23 3C |TXFKTVEC+1.LDA#<|
00001060: 4E 45 57 45 49 4E 47 41 42 45 3B CE 45 55 45 20 |NEWEINGABE;.EUE |
00001070: C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 53 52 4F |.EHLERMELDUNGSRO|
00001080: 55 54 49 4E 45 00 4C 44 58 23 3E 4E 45 57 45 49 |UTINE.LDX#>NEWEI|
00001090: 4E 47 41 42 45 00 53 54 41 45 49 4E 47 41 42 45 |NGABE.STAEINGABE|
000010A0: 56 45 43 00 53 54 58 45 49 4E 47 41 42 45 56 45 |VEC.STXEINGABEVE|
000010B0: 43 2B 31 00 4C 44 41 23 30 3B C7 52 41 50 48 49 |C+1.LDA#0;.RAPHI|
000010C0: 4B 20 41 55 46 20 D3 54 41 4E 44 41 52 44 00 53 |K AUF .TANDARD.S|
000010D0: 54 41 44 52 41 57 4D 4F 44 45 00 53 54 41 43 4F |TADRAWMODE.STACO|
000010E0: 4C 4D 4F 44 45 00 52 54 53 00 20 00 53 45 54 5A |LMODE.RTS. .SETZ|
000010F0: 45 49 43 48 45 4E 3A 53 45 49 00 4C 44 41 50 50 |EICHEN:SEI.LDAPP|
00001100: 00 50 48 41 00 4C 44 58 23 34 2A 34 3B 34 20 CB |.PHA.LDX#4*4;4 .|
00001110: C2 59 54 45 20 DA 45 49 43 48 45 4E 53 41 54 5A |.YTE .EICHENSATZ|
00001120: 20 56 4F 4E 20 D2 CF CD 20 49 4E 20 D2 C1 CD 20 | VON ... IN ... |
00001130: 42 52 49 4E 47 45 4E 00 4C 44 41 23 3E 5A 45 49 |BRINGEN.LDA#>ZEI|
00001140: 43 48 45 4E 53 41 54 5A 00 4C 44 59 23 30 00 53 |CHENSATZ.LDY#0.S|
00001150: 54 41 41 5A 47 2B 31 3B 41 5A 47 20 5A 45 49 47 |TAAZG+1;AZG ZEIG|
00001160: 54 20 41 55 46 20 DA 45 49 43 48 45 4E 53 41 54 |T AUF .EICHENSAT|
00001170: 5A 00 53 54 59 41 5A 47 00 4C 44 41 23 24 33 32 |Z.STYAZG.LDA#$32|
00001180: 3B DA 45 49 43 48 45 4E 53 41 54 5A 2D D2 CF CD |;.EICHENSATZ-...|
00001190: 20 4C 45 53 42 41 52 20 4D 41 43 48 45 4E 00 53 | LESBAR MACHEN.S|
000011A0: 54 41 50 50 00 54 52 41 5A 45 49 43 48 45 4E 3A |TAPP.TRAZEICHEN:|
000011B0: 4C 44 41 28 41 5A 47 29 2C 59 3B 41 55 53 20 D2 |LDA(AZG),Y;AUS .|
000011C0: CF CD 20 49 4E 20 D2 C1 CD 20 42 52 49 4E 47 45 |.. IN ... BRINGE|
000011D0: 4E 00 53 54 41 28 41 5A 47 29 2C 59 00 49 4E 59 |N.STA(AZG),Y.INY|
000011E0: 3B 55 4E 44 20 57 45 49 54 45 52 00 42 4E 45 54 |;UND WEITER.BNET|
000011F0: 52 41 5A 45 49 43 48 45 4E 00 49 4E 43 41 5A 47 |RAZEICHEN.INCAZG|
00001200: 2B 31 00 44 45 58 3B 42 49 53 20 41 4C 4C 45 20 |+1.DEX;BIS ALLE |
00001210: D3 45 49 54 45 4E 20 55 45 42 45 52 54 52 41 47 |.EITEN UEBERTRAG|
00001220: 45 4E 00 42 4E 45 54 52 41 5A 45 49 43 48 45 4E |EN.BNETRAZEICHEN|
00001230: 00 50 4C 41 3B 4E 4F 52 4D 41 4C 45 20 D3 50 45 |.PLA;NORMALE .PE|
00001240: 49 43 48 45 52 42 45 4C 45 47 55 4E 47 00 53 54 |ICHERBELEGUNG.ST|
00001250: 41 50 50 00 43 4C 49 00 52 54 53 00 20 00 3B 2D |APP.CLI.RTS. .;-|
00001260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001280: 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 20 D8 C2 C1 |------.;--- ...|
00001290: D3 C9 C3 20 C5 49 4E 47 41 42 45 2D D7 41 52 54 |... .INGABE-.ART|
000012A0: 45 53 43 48 4C 45 49 46 45 20 20 20 2D 2D 2D 00 |ESCHLEIFE ---.|
000012B0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
000012C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012D0: 2D 2D 2D 2D 2D 2D 2D 2D 00 4E 45 57 45 49 4E 47 |--------.NEWEING|
000012E0: 41 42 45 3A 4C 44 41 50 50 00 50 48 41 00 4C 44 |ABE:LDAPP.PHA.LD|
000012F0: 41 23 24 33 36 00 53 54 41 50 50 00 4A 53 52 44 |A#$36.STAPP.JSRD|
00001300: 4F 47 52 41 46 4F 46 46 00 50 4C 41 00 53 54 41 |OGRAFOFF.PLA.STA|
00001310: 50 50 00 4A 4D 50 4F 4C 44 45 49 4E 47 41 42 45 |PP.JMPOLDEINGABE|
00001320: 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. .;------------|
00001330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D |-----------.;---|
00001350: 20 20 D8 C2 C1 D3 C9 C3 20 CE CD C9 20 D2 4F 55 | ...... ... .OU|
00001360: 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 20 20 |TINE |
00001370: 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---.;----------|
00001380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4E 45 |-------------.NE|
000013A0: 57 4E 4D 49 3A 50 48 41 3B CB 4F 50 49 45 20 44 |WNMI:PHA;.OPIE D|
000013B0: 45 52 20 C3 20 36 34 20 CE CD C9 2D D2 4F 55 54 |ER . 64 ...-.OUT|
000013C0: 49 4E 45 00 54 58 41 00 50 48 41 00 54 59 41 00 |INE.TXA.PHA.TYA.|
000013D0: 50 48 41 00 4C 44 41 23 24 37 46 00 53 54 41 24 |PHA.LDA#$7F.STA$|
000013E0: 44 44 30 44 00 4C 44 59 24 44 44 30 44 00 42 4D |DD0D.LDY$DD0D.BM|
000013F0: 49 52 53 32 33 32 00 4A 53 52 24 46 36 42 43 00 |IRS232.JSR$F6BC.|
00001400: 4A 53 52 24 46 46 45 31 00 42 4E 45 52 53 32 33 |JSR$FFE1.BNERS23|
00001410: 32 00 4C 44 58 23 24 46 42 00 54 58 53 00 4A 53 |2.LDX#$FB.TXS.JS|
00001420: 52 24 46 44 31 35 00 4A 53 52 49 4E 49 54 58 42 |R$FD15.JSRINITXB|
00001430: 41 53 49 43 3B D8 C2 C1 D3 C9 C3 20 45 49 4E 42 |ASIC;...... EINB|
00001440: 49 4E 44 45 4E 00 4A 53 52 24 46 44 41 33 00 4A |INDEN.JSR$FDA3.J|
00001450: 53 52 24 45 35 31 38 00 4A 53 52 49 4E 49 54 58 |SR$E518.JSRINITX|
00001460: 42 41 53 49 43 3B D8 C2 C1 D3 C9 C3 20 45 49 4E |BASIC;...... EIN|
00001470: 42 49 4E 44 45 4E 00 4A 4D 50 28 24 41 30 30 32 |BINDEN.JMP($A002|
00001480: 29 3B 57 45 49 54 45 52 20 49 4D 20 C3 20 36 34 |);WEITER IM . 64|
00001490: 20 C2 41 53 49 43 00 20 00 52 53 32 33 32 3A 4A | .ASIC. .RS232:J|
000014A0: 4D 50 24 46 45 37 32 00 20 00 3B 2D 2D 2D 2D 2D |MP$FE72. .;-----|
000014B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014D0: 2D 2D 00 3B 2D 2D 2D 20 20 C2 C1 D3 C9 C3 20 D2 |--.;--- ..... .|
000014E0: CF CD 2D D2 4F 55 54 49 4E 45 4E 20 41 55 46 52 |..-.OUTINEN AUFR|
000014F0: 55 46 45 4E 20 20 20 20 2D 2D 2D 00 3B 2D 2D 2D |UFEN ---.;---|
00001500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001520: 2D 2D 2D 2D 00 42 41 53 49 43 52 4F 4D 3A 53 54 |----.BASICROM:ST|
00001530: 41 41 4B 4B 55 3B C1 4B 4B 55 20 4D 45 52 4B 45 |AAKKU;.KKU MERKE|
00001540: 4E 00 4A 53 52 52 4F 4D 41 55 46 52 55 46 3B D2 |N.JSRROMAUFRUF;.|
00001550: 4F 55 54 49 4E 45 20 41 55 46 52 55 46 45 4E 00 |OUTINE AUFRUFEN.|
00001560: 50 48 50 3B D3 54 41 55 53 20 4D 45 52 4B 45 4E |PHP;.TAUS MERKEN|
00001570: 00 50 48 41 3B C1 4B 4B 55 20 4D 45 52 4B 45 4E |.PHA;.KKU MERKEN|
00001580: 00 4C 44 41 23 24 33 36 3B D2 CF CD 20 41 55 53 |.LDA#$36;... AUS|
00001590: 53 43 48 41 4C 54 45 4E 00 53 54 41 50 50 00 50 |SCHALTEN.STAPP.P|
000015A0: 4C 41 3B C1 4B 4B 55 20 57 49 45 44 45 52 48 45 |LA;.KKU WIEDERHE|
000015B0: 52 53 54 45 4C 4C 45 4E 00 50 4C 50 3B D3 54 41 |RSTELLEN.PLP;.TA|
000015C0: 54 55 53 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |TUS ZURUECKHOLEN|
000015D0: 00 52 54 53 00 20 00 52 4F 4D 41 55 46 52 55 46 |.RTS. .ROMAUFRUF|
000015E0: 3A 4C 44 41 52 4F 4D 42 45 46 45 48 4C 45 2B 31 |:LDAROMBEFEHLE+1|
000015F0: 2C 58 3B C1 44 52 45 53 53 45 20 44 45 52 20 D2 |,X;.DRESSE DER .|
00001600: 4F 55 54 49 4E 45 20 41 55 46 20 44 45 4E 20 D3 |OUTINE AUF DEN .|
00001610: 54 41 43 4B 20 42 52 49 4E 47 45 4E 00 50 48 41 |TACK BRINGEN.PHA|
00001620: 00 4C 44 41 52 4F 4D 42 45 46 45 48 4C 45 2C 58 |.LDAROMBEFEHLE,X|
00001630: 00 50 48 41 00 4C 44 41 23 24 33 37 3B C2 41 53 |.PHA.LDA#$37;.AS|
00001640: 49 43 52 4F 4D 20 45 49 4E 53 43 48 41 4C 54 45 |ICROM EINSCHALTE|
00001650: 4E 00 53 54 41 50 50 00 4C 44 41 41 4B 4B 55 3B |N.STAPP.LDAAKKU;|
00001660: C1 4B 4B 55 20 4C 41 44 45 4E 00 4C 44 58 58 4D |.KKU LADEN.LDXXM|
00001670: 45 4D 3B D8 2D D2 45 47 49 53 54 45 52 20 4C 41 |EM;.-.EGISTER LA|
00001680: 44 45 4E 00 52 54 53 00 20 00 47 45 54 41 5A 47 |DEN.RTS. .GETAZG|
00001690: 3A 49 4E 43 50 50 3B D7 45 52 54 20 55 4E 54 45 |:INCPP;.ERT UNTE|
000016A0: 52 20 41 5A 47 20 41 55 53 20 D2 CF CD 20 48 4F |R AZG AUS ... HO|
000016B0: 4C 45 4E 00 4C 44 41 28 41 5A 47 29 2C 59 00 44 |LEN.LDA(AZG),Y.D|
000016C0: 45 43 50 50 00 52 54 53 00 20 00 41 44 52 46 45 |ECPP.RTS. .ADRFE|
000016D0: 48 4C 45 52 3A 53 54 58 24 32 32 3B C6 45 48 4C |HLER:STX$22;.EHL|
000016E0: 45 52 4D 45 4C 44 55 4E 47 20 41 42 20 C1 44 52 |ERMELDUNG AB .DR|
000016F0: 45 53 53 45 20 C1 2F D8 00 49 4E 43 50 50 3B 41 |ESSE ./..INCPP;A|
00001700: 55 53 47 45 42 45 4E 00 4A 4D 50 24 41 34 34 35 |USGEBEN.JMP$A445|
00001710: 00 20 00 53 4C 45 52 52 54 58 54 3A 2E 42 59 22 |. .SLERRTXT:.BY"|
00001720: 57 52 4F 4E 47 20 53 54 52 49 4E 47 4C 45 CE 22 |WRONG STRINGLE."|
00001730: 00 42 43 45 52 52 54 58 54 3A 2E 42 59 22 42 41 |.BCERRTXT:.BY"BA|
00001740: 44 20 43 48 41 52 20 49 4E 20 53 54 52 49 4E C7 |D CHAR IN STRIN.|
00001750: 22 00 20 00 46 45 48 4C 45 52 3A 49 4E 43 50 50 |". .FEHLER:INCPP|
00001760: 3B C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 4D |;.EHLERMELDUNG M|
00001770: 49 54 20 CE 55 4D 4D 45 52 20 D8 20 41 55 53 47 |IT .UMMER . AUSG|
00001780: 45 42 45 4E 00 4A 4D 50 24 41 34 33 37 00 20 00 |EBEN.JMP$A437. .|
00001790: 46 52 4D 45 56 4C 3A 49 4E 43 50 50 3B C1 55 53 |FRMEVL:INCPP;.US|
000017A0: 44 52 55 43 4B 20 45 49 4E 4C 45 53 45 4E 00 4A |DRUCK EINLESEN.J|
000017B0: 53 52 D2 CF CD 46 52 4D 45 56 4C 00 44 45 43 50 |SR...FRMEVL.DECP|
000017C0: 50 00 52 54 53 00 20 00 43 48 4B 4B 4C 41 5A 55 |P.RTS. .CHKKLAZU|
000017D0: 3A 49 4E 43 50 50 3B C1 55 46 20 27 29 27 20 50 |:INCPP;.UF ')' P|
000017E0: 52 55 45 46 45 4E 00 4A 53 52 D2 CF CD 43 48 4B |RUEFEN.JSR...CHK|
000017F0: 4B 4C 41 5A 55 00 44 45 43 50 50 00 52 54 53 00 |KLAZU.DECPP.RTS.|
00001800: 20 00 43 48 4B 4C 41 41 55 46 3A 49 4E 43 50 50 | .CHKLAAUF:INCPP|
00001810: 3B C1 55 46 20 27 28 27 20 50 52 55 45 46 45 4E |;.UF '(' PRUEFEN|
00001820: 00 4A 53 52 D2 CF CD 43 48 4B 4C 41 41 55 46 00 |.JSR...CHKLAAUF.|
00001830: 44 45 43 50 50 00 52 54 53 00 20 00 43 48 4B 4B |DECPP.RTS. .CHKK|
00001840: 4F 4D 3A 49 4E 43 50 50 3B C1 55 46 20 27 2C 27 |OM:INCPP;.UF ','|
00001850: 20 50 52 55 45 46 45 4E 00 4A 53 52 D2 CF CD 43 | PRUEFEN.JSR...C|
00001860: 48 4B 4B 4F 4D 00 44 45 43 50 50 00 52 54 53 00 |HKKOM.DECPP.RTS.|
00001870: 20 00 41 44 52 45 53 53 45 3A 49 4E 43 50 50 3B | .ADRESSE:INCPP;|
00001880: C1 44 52 45 53 53 45 20 48 4F 4C 45 4E 00 4A 53 |.DRESSE HOLEN.JS|
00001890: 52 D2 CF CD 41 44 52 45 53 53 45 00 44 45 43 50 |R...ADRESSE.DECP|
000018A0: 50 00 52 54 53 00 20 00 47 45 54 42 59 54 45 3A |P.RTS. .GETBYTE:|
000018B0: 49 4E 43 50 50 3B C2 59 54 45 57 45 52 54 20 48 |INCPP;.YTEWERT H|
000018C0: 4F 4C 45 4E 00 4A 53 52 D2 CF CD 47 45 54 42 59 |OLEN.JSR...GETBY|
000018D0: 54 45 00 44 45 43 50 50 00 52 54 53 00 20 00 47 |TE.DECPP.RTS. .G|
000018E0: 45 54 41 44 52 3A 49 4E 43 50 50 3B 31 36 C2 49 |ETADR:INCPP;16.I|
000018F0: 54 2D D7 45 52 54 20 48 4F 4C 45 4E 00 4A 53 52 |T-.ERT HOLEN.JSR|
00001900: 24 41 44 38 41 00 4A 53 52 24 42 37 46 37 00 44 |$AD8A.JSR$B7F7.D|
00001910: 45 43 50 50 00 52 54 53 00 20 00 47 45 54 41 44 |ECPP.RTS. .GETAD|
00001920: 42 59 3A 49 4E 43 50 50 3B C1 44 52 45 53 53 45 |BY:INCPP;.DRESSE|
00001930: 2C C2 59 54 45 20 48 4F 4C 45 4E 00 4A 53 52 24 |,.YTE HOLEN.JSR$|
00001940: 42 37 45 42 00 44 45 43 50 50 00 52 54 53 00 20 |B7EB.DECPP.RTS. |
00001950: 00 52 45 53 45 52 56 53 54 52 3A 49 4E 43 50 50 |.RESERVSTR:INCPP|
00001960: 3B D3 54 52 49 4E 47 20 52 45 53 45 52 56 49 45 |;.TRING RESERVIE|
00001970: 52 45 4E 00 4A 53 52 D2 CF CD 52 45 53 53 54 52 |REN.JSR...RESSTR|
00001980: 00 44 45 43 50 50 00 52 54 53 00 20 00 53 54 52 |.DECPP.RTS. .STR|
00001990: 49 4E 47 3A 49 4E 43 50 50 3B D3 54 52 49 4E 47 |ING:INCPP;.TRING|
000019A0: 20 45 49 4E 54 52 41 47 45 4E 00 4A 53 52 D2 CF | EINTRAGEN.JSR..|
000019B0: CD 53 54 52 49 4E 47 00 44 45 43 50 50 00 52 54 |.STRING.DECPP.RT|
000019C0: 53 00 20 00 4B 4C 41 4D 4D 45 52 3A 49 4E 43 50 |S. .KLAMMER:INCP|
000019D0: 50 3B CB 4C 41 4D 4D 45 52 41 55 53 44 52 55 43 |P;.LAMMERAUSDRUC|
000019E0: 4B 20 48 4F 4C 45 4E 00 4A 53 52 D2 CF CD 4B 4C |K HOLEN.JSR...KL|
000019F0: 41 4D 4D 45 52 00 44 45 43 50 50 00 52 54 53 00 |AMMER.DECPP.RTS.|
00001A00: 20 00 41 4B 4B 55 3A 2E 42 59 30 3B D3 50 45 49 | .AKKU:.BY0;.PEI|
00001A10: 43 48 45 52 20 46 55 45 52 20 C1 4B 4B 55 00 20 |CHER FUER .KKU. |
00001A20: 00 52 4F 4D 42 45 46 45 48 4C 45 3A 00 2E 57 4F |.ROMBEFEHLE:..WO|
00001A30: 54 45 53 54 43 4F 44 45 2D 31 3B 30 00 2E 57 4F |TESTCODE-1;0..WO|
00001A40: 47 41 52 42 41 47 45 2D 31 3B 32 00 2E 57 4F 47 |GARBAGE-1;2..WOG|
00001A50: 45 54 53 54 52 49 4E 47 2D 31 3B 34 00 2E 57 4F |ETSTRING-1;4..WO|
00001A60: 24 42 38 46 37 2D 31 3B 36 00 2E 57 4F 24 42 43 |$B8F7-1;6..WO$BC|
00001A70: 34 39 2D 31 3B 38 00 2E 57 4F C3 D5 D2 52 45 43 |49-1;8..WO...REC|
00001A80: 48 54 53 2D 31 3B 31 30 00 2E 57 4F 47 45 54 2D |HTS-1;10..WOGET-|
00001A90: 31 3B 31 32 00 2E 57 4F 24 45 35 36 43 2D 31 3B |1;12..WO$E56C-1;|
00001AA0: 31 34 00 2E 57 4F 46 52 45 53 54 52 2D 31 3B 31 |14..WOFRESTR-1;1|
00001AB0: 36 00 2E 57 4F 34 32 32 39 31 2D 31 3B 31 38 00 |6..WO42291-1;18.|
00001AC0: 2E 57 4F 56 41 52 53 55 43 48 2D 31 3B 32 30 00 |.WOVARSUCH-1;20.|
00001AD0: 2E 57 4F 24 42 44 44 44 2D 31 3B 32 32 00 2E 57 |.WO$BDDD-1;22..W|
00001AE0: 4F 24 41 35 37 43 2D 31 3B 32 34 00 2E 57 4F 24 |O$A57C-1;24..WO$|
00001AF0: 46 46 42 41 2D 31 3B 32 36 20 C6 49 4C 45 50 41 |FFBA-1;26 .ILEPA|
00001B00: 52 41 4D 45 54 45 52 00 2E 57 4F 24 46 46 42 44 |RAMETER..WO$FFBD|
00001B10: 2D 31 3B 32 38 20 C6 49 4C 45 4E 41 4D 45 00 2E |-1;28 .ILENAME..|
00001B20: 57 4F 24 46 46 43 30 2D 31 3B 33 30 20 CF 50 45 |WO$FFC0-1;30 .PE|
00001B30: 4E 00 2E 57 4F 24 46 46 43 33 2D 31 3B 33 32 20 |N..WO$FFC3-1;32 |
00001B40: C3 4C 4F 53 45 00 2E 57 4F 24 46 46 43 36 2D 31 |.LOSE..WO$FFC6-1|
00001B50: 3B 33 34 20 C3 48 4B 49 4E 00 2E 57 4F 24 46 46 |;34 .HKIN..WO$FF|
00001B60: 43 39 2D 31 3B 33 36 20 C3 48 4B 4F 55 54 00 2E |C9-1;36 .HKOUT..|
00001B70: 57 4F 24 46 46 43 43 2D 31 3B 33 38 20 C3 4C 52 |WO$FFCC-1;38 .LR|
00001B80: 43 48 00 2E 57 4F 24 46 46 43 46 2D 31 3B 34 30 |CH..WO$FFCF-1;40|
00001B90: 20 C2 41 53 49 4E 00 2E 57 4F 42 53 4F 55 54 2D | .ASIN..WOBSOUT-|
00001BA0: 31 3B 34 32 00 2E 57 4F 54 4F 4B 45 4E 2D 31 3B |1;42..WOTOKEN-1;|
00001BB0: 34 34 00 2E 57 4F 24 41 39 36 42 2D 31 3B 34 36 |44..WO$A96B-1;46|
00001BC0: 00 2E 57 4F 24 46 46 45 31 2D 31 3B 34 38 20 D3 |..WO$FFE1-1;48 .|
00001BD0: D4 CF D0 2D D4 41 53 54 45 00 2E 57 4F 24 42 41 |...-.ASTE..WO$BA|
00001BE0: 32 38 2D 31 3B 35 30 20 C6 C1 C3 2A 28 C1 2F D9 |28-1;50 ...*(./.|
00001BF0: 29 00 2E 57 4F 24 42 43 30 43 2D 31 3B 35 32 20 |)..WO$BC0C-1;52 |
00001C00: C6 C1 C3 2D 3E C1 D2 C7 00 2E 57 4F 24 42 41 32 |...->.....WO$BA2|
00001C10: 42 2D 31 3B 35 34 20 C6 C1 C3 3A 3D C6 C1 C3 2A |B-1;54 ...:=...*|
00001C20: C1 D2 C7 00 2E 57 4F 24 45 32 36 42 2D 31 3B 35 |.....WO$E26B-1;5|
00001C30: 36 20 53 49 4E 00 2E 57 4F 24 45 32 36 34 2D 31 |6 SIN..WO$E264-1|
00001C40: 3B 35 38 20 43 4F 53 00 2E 57 4F 24 42 31 41 41 |;58 COS..WO$B1AA|
00001C50: 2D 31 3B 36 30 20 C6 C1 C3 20 4E 41 43 48 20 C9 |-1;60 ... NACH .|
00001C60: 4E 54 45 47 45 52 00 2E 57 4F 24 45 31 44 34 2D |NTEGER..WO$E1D4-|
00001C70: 31 3B 36 32 20 CC CF C1 C4 20 D0 41 52 41 4D 45 |1;62 .... .ARAME|
00001C80: 54 45 52 20 48 4F 4C 45 4E 00 2E 57 4F 24 41 39 |TER HOLEN..WO$A9|
00001C90: 33 42 2D 31 3B 36 34 20 CE 41 45 43 48 53 54 45 |3B-1;64 .AECHSTE|
00001CA0: 20 DA 45 49 4C 45 00 2E 57 4F 24 42 44 44 31 2D | .EILE..WO$BDD1-|
00001CB0: 31 3B 36 36 20 49 4E 20 C6 4C 49 45 53 53 4B 4F |1;66 IN .LIESSKO|
00001CC0: 4D 4D 41 20 57 41 4E 44 45 4C 4E 00 2E 57 4F 24 |MMA WANDELN..WO$|
00001CD0: 42 44 44 46 2D 31 3B 36 38 20 C6 C1 C3 20 49 4E |BDDF-1;68 ... IN|
00001CE0: 20 C1 D3 C3 C9 C9 20 57 41 4E 44 45 4C 4E 00 2E | ..... WANDELN..|
00001CF0: 57 4F 24 42 44 43 32 2D 31 3B 37 30 20 DA 45 49 |WO$BDC2-1;70 .EI|
00001D00: 4C 45 4E 4E 55 4D 4D 45 52 20 42 45 49 20 C6 45 |LENNUMMER BEI .E|
00001D10: 48 4C 45 52 00 20 00 D2 C5 D3 C5 D2 D6 C5 31 3A |HLER. ........1:|
00001D20: 2E 45 51 38 30 2A 32 2B 52 4F 4D 42 45 46 45 48 |.EQ80*2+ROMBEFEH|
00001D30: 4C 45 2D D2 C5 D3 C5 D2 D6 C5 31 00 2E 44 42 D2 |LE-.......1..DB.|
00001D40: C5 D3 C5 D2 D6 C5 31 00 2E 54 58 22 D2 45 53 45 |......1..TX".ESE|
00001D50: 52 56 45 20 D2 4F 4D 42 45 46 45 48 4C 45 3A 22 |RVE .OMBEFEHLE:"|
00001D60: 00 2E 4F 4F D2 C5 D3 C5 D2 D6 C5 31 00 20 00 3B |..OO.......1. .;|
00001D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D90: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 20 C5 49 |-------.;--- .I|
00001DA0: 4E 47 41 42 45 20 49 4E 20 D4 4F 4B 45 4E 20 57 |NGABE IN .OKEN W|
00001DB0: 41 4E 44 45 4C 4E 20 20 20 20 20 20 20 2D 2D 2D |ANDELN ---|
00001DC0: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00001DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 54 4F 4B 45 4E 3A |---------.TOKEN:|
00001DF0: 44 45 43 50 50 3B D7 45 49 54 45 52 20 42 45 49 |DECPP;.EITER BEI|
00001E00: 20 44 45 52 20 C1 D5 D4 CF 2D D2 4F 55 54 49 4E | DER ....-.OUTIN|
00001E10: 45 00 4A 53 52 41 55 54 4F 45 58 45 43 00 49 4E |E.JSRAUTOEXEC.IN|
00001E20: 43 50 50 00 42 4E 45 4E 45 58 54 54 4B 00 20 00 |CPP.BNENEXTTK. .|
00001E30: 56 47 4C 31 3A 4C 44 59 23 24 46 46 3B D9 20 5A |VGL1:LDY#$FF;. Z|
00001E40: 45 49 47 54 20 41 55 46 20 44 49 45 20 C2 45 46 |EIGT AUF DIE .EF|
00001E50: 45 48 4C 53 4C 49 53 54 45 00 4C 44 41 23 3C 42 |EHLSLISTE.LDA#<B|
00001E60: 45 46 4C 49 53 54 3B 41 5A 47 20 26 20 D9 20 41 |EFLIST;AZG & . A|
00001E70: 55 46 20 44 49 45 20 C2 45 46 45 48 4C 53 54 41 |UF DIE .EFEHLSTA|
00001E80: 42 45 4C 4C 45 00 53 54 41 41 5A 47 00 4C 44 41 |BELLE.STAAZG.LDA|
00001E90: 23 3E 42 45 46 4C 49 53 54 00 53 54 41 41 5A 47 |#>BEFLIST.STAAZG|
00001EA0: 2B 31 00 4C 44 41 23 31 3B D4 4F 4B 45 4E 4E 55 |+1.LDA#1;.OKENNU|
00001EB0: 4D 4D 45 52 20 49 53 54 20 31 00 53 54 41 41 5A |MMER IST 1.STAAZ|
00001EC0: 47 32 00 44 45 58 00 56 47 4C 3A 49 4E 59 3B 4E |G2.DEX.VGL:INY;N|
00001ED0: 41 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 4E |AECHSTES .EICHEN|
00001EE0: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 49 4E 58 | VERGLEICHEN.INX|
00001EF0: 00 56 47 4C 32 3A 4C 44 41 28 41 5A 47 29 2C 59 |.VGL2:LDA(AZG),Y|
00001F00: 3B C2 45 46 45 48 4C 53 54 45 58 54 20 4D 49 54 |;.EFEHLSTEXT MIT|
00001F10: 20 DA 45 49 4C 45 20 56 45 52 47 4C 2E 00 42 45 | .EILE VERGL..BE|
00001F20: 51 45 4F 42 3B C2 45 46 45 48 4C 53 57 4F 52 54 |QEOB;.EFEHLSWORT|
00001F30: 2D C5 4E 44 45 00 43 4D 50 5A 45 49 4C 45 2C 58 |-.NDE.CMPZEILE,X|
00001F40: 00 42 4E 45 55 4E 47 4C 3B 4E 45 49 4E 00 42 45 |.BNEUNGL;NEIN.BE|
00001F50: 51 56 47 4C 00 45 4F 42 3A 4C 44 59 58 4D 45 4D |QVGL.EOB:LDYXMEM|
00001F60: 3B C2 45 46 45 48 4C 20 47 45 46 55 4E 44 45 4E |;.EFEHL GEFUNDEN|
00001F70: 00 4C 44 41 23 58 54 4F 4B 45 4E 3B D8 C2 C1 D3 |.LDA#XTOKEN;....|
00001F80: C9 C3 2D D4 4F 4B 45 4E 20 49 4E 20 DA 45 49 4C |..-.OKEN IN .EIL|
00001F90: 45 20 42 52 49 4E 47 45 4E 00 53 54 41 5A 45 49 |E BRINGEN.STAZEI|
00001FA0: 4C 45 2C 59 00 49 4E 59 00 4C 44 41 41 5A 47 32 |LE,Y.INY.LDAAZG2|
00001FB0: 00 53 54 41 5A 45 49 4C 45 2C 59 00 49 4E 59 00 |.STAZEILE,Y.INY.|
00001FC0: 56 45 52 53 43 48 3A 4C 44 41 5A 45 49 4C 45 2C |VERSCH:LDAZEILE,|
00001FD0: 58 3B D2 45 53 54 20 44 45 53 20 C2 45 46 45 48 |X;.EST DES .EFEH|
00001FE0: 4C 53 57 4F 52 54 45 53 20 4C 4F 45 53 43 48 45 |LSWORTES LOESCHE|
00001FF0: 4E 00 53 54 41 5A 45 49 4C 45 2C 59 00 42 45 51 |N.STAZEILE,Y.BEQ|
00002000: 54 4F 4E 45 58 54 54 4B 3B CC 41 45 4E 47 45 20 |TONEXTTK;.AENGE |
00002010: 44 45 52 20 DA 45 49 4C 45 20 4B 4F 52 52 49 47 |DER .EILE KORRIG|
00002020: 49 45 52 45 4E 00 49 4E 58 00 49 4E 59 00 42 4E |IEREN.INX.INY.BN|
00002030: 45 56 45 52 53 43 48 00 20 00 55 4E 47 4C 3A 4C |EVERSCH. .UNGL:L|
00002040: 44 58 58 4D 45 4D 3B C5 4E 44 45 20 44 45 53 20 |DXXMEM;.NDE DES |
00002050: C2 45 46 45 48 4C 53 57 4F 52 54 45 53 20 49 4E |.EFEHLSWORTES IN|
00002060: 20 D4 41 42 45 4C 4C 45 20 53 55 43 48 45 4E 00 | .ABELLE SUCHEN.|
00002070: 44 45 59 00 49 4E 43 41 5A 47 32 3B D4 4F 4B 45 |DEY.INCAZG2;.OKE|
00002080: 4E 4E 55 4D 4D 45 52 20 2B 31 00 53 42 45 3A 49 |NNUMMER +1.SBE:I|
00002090: 4E 59 00 4C 44 41 28 41 5A 47 29 2C 59 00 42 4E |NY.LDA(AZG),Y.BN|
000020A0: 45 53 42 45 00 53 45 43 00 54 59 41 00 41 44 43 |ESBE.SEC.TYA.ADC|
000020B0: 41 5A 47 00 53 54 41 41 5A 47 00 4C 44 41 23 30 |AZG.STAAZG.LDA#0|
000020C0: 00 54 41 59 00 41 44 43 41 5A 47 2B 31 00 53 54 |.TAY.ADCAZG+1.ST|
000020D0: 41 41 5A 47 2B 31 00 4C 44 41 28 41 5A 47 29 2C |AAZG+1.LDA(AZG),|
000020E0: 59 00 42 4E 45 56 47 4C 32 3B 4E 45 49 4E 2C 20 |Y.BNEVGL2;NEIN, |
000020F0: 57 45 49 54 45 52 56 45 52 47 4C 45 49 43 48 45 |WEITERVERGLEICHE|
00002100: 4E 00 20 00 4E 45 58 54 54 4B 3A 49 4E 58 3B 41 |N. .NEXTTK:INX;A|
00002110: 42 20 4E 41 45 43 48 54 45 52 20 D0 4F 53 49 54 |B NAECHTER .OSIT|
00002120: 49 4F 4E 20 49 4E 20 DA 45 49 4C 45 20 4E 45 55 |ION IN .EILE NEU|
00002130: 53 55 43 48 45 4E 00 53 54 58 58 4D 45 4D 00 4C |SUCHEN.STXXMEM.L|
00002140: 44 41 5A 45 49 4C 45 2C 58 3B DA 45 49 4C 45 20 |DAZEILE,X;.EILE |
00002150: 42 45 45 4E 44 45 54 20 3F 00 42 45 51 41 42 4F |BEENDET ?.BEQABO|
00002160: 52 54 54 4B 00 43 4D 50 23 31 33 31 3B C4 C1 D4 |RTTK.CMP#131;...|
00002170: C1 2D D4 4F 4B 45 4E 20 3F 00 42 45 51 41 42 4F |.-.OKEN ?.BEQABO|
00002180: 52 54 54 4B 3B 44 41 4E 4E 20 D2 45 53 54 20 44 |RTTK;DANN .EST D|
00002190: 45 52 20 DA 45 49 4C 45 20 4E 49 43 48 54 20 42 |ER .EILE NICHT B|
000021A0: 45 41 43 48 54 45 4E 00 43 4D 50 23 31 34 33 3B |EACHTEN.CMP#143;|
000021B0: D2 C5 CD 2D D4 4F 4B 45 4E 20 3F 00 42 45 51 41 |...-.OKEN ?.BEQA|
000021C0: 42 4F 52 54 54 4B 3B 44 41 4E 4E 20 D2 45 53 54 |BORTTK;DANN .EST|
000021D0: 20 4E 49 43 48 54 20 42 45 41 43 48 54 45 4E 00 | NICHT BEACHTEN.|
000021E0: 43 4D 50 23 33 34 3B D3 54 52 49 4E 47 20 3F 00 |CMP#34;.TRING ?.|
000021F0: 42 4E 45 56 47 4C 31 3B 4E 45 49 4E 00 48 4B 4F |BNEVGL1;NEIN.HKO|
00002200: 4D 4D 41 3A 49 4E 58 3B D3 54 52 49 4E 47 53 20 |MMA:INX;.TRINGS |
00002210: 55 45 42 45 52 4C 45 53 45 4E 00 4C 44 41 5A 45 |UEBERLESEN.LDAZE|
00002220: 49 4C 45 2C 58 00 42 45 51 41 42 4F 52 54 54 4B |ILE,X.BEQABORTTK|
00002230: 3B C5 4E 44 45 20 44 45 52 20 DA 45 49 4C 45 20 |;.NDE DER .EILE |
00002240: 45 52 52 45 49 43 48 54 00 43 4D 50 23 33 34 00 |ERREICHT.CMP#34.|
00002250: 42 4E 45 48 4B 4F 4D 4D 41 00 49 4E 58 00 53 54 |BNEHKOMMA.INX.ST|
00002260: 58 58 4D 45 4D 00 42 4E 45 56 47 4C 31 3B D3 54 |XXMEM.BNEVGL1;.T|
00002270: 52 49 4E 47 45 4E 44 45 20 45 52 52 45 49 43 48 |RINGENDE ERREICH|
00002280: 54 00 20 00 41 42 4F 52 54 54 4B 3A 4C 44 59 24 |T. .ABORTTK:LDY$|
00002290: 42 3B CC 41 45 4E 47 45 20 44 45 52 20 DA 45 49 |B;.AENGE DER .EI|
000022A0: 4C 45 20 4C 41 44 45 4E 00 4C 44 41 23 30 00 53 |LE LADEN.LDA#0.S|
000022B0: 54 41 24 32 30 30 2D 33 2C 59 00 52 54 53 3B 46 |TA$200-3,Y.RTS;F|
000022C0: 45 52 54 49 47 00 20 00 54 4F 4E 45 58 54 54 4B |ERTIG. .TONEXTTK|
000022D0: 3A 54 59 41 3B CC 41 45 4E 47 45 20 44 45 52 20 |:TYA;.AENGE DER |
000022E0: DA 45 49 4C 45 20 4B 4F 52 52 49 47 49 45 52 45 |.EILE KORRIGIERE|
000022F0: 4E 00 4C 44 58 58 4D 45 4D 3B CC 41 45 4E 47 45 |N.LDXXMEM;.AENGE|
00002300: 20 44 45 52 20 4E 45 55 45 4E 20 DA 45 49 4C 45 | DER NEUEN .EILE|
00002310: 00 49 4E 58 00 43 4C 43 3B 2B 36 20 46 55 45 52 |.INX.CLC;+6 FUER|
00002320: 20 D6 45 52 57 41 4C 54 55 4E 47 00 41 44 43 23 | .ERWALTUNG.ADC#|
00002330: 35 00 53 54 41 24 42 3B 45 52 47 49 42 54 20 44 |5.STA$B;ERGIBT D|
00002340: 49 45 20 CC 41 45 4E 47 45 00 42 4E 45 4E 45 58 |IE .AENGE.BNENEX|
00002350: 54 54 4B 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |TTK. .;---------|
00002360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B |--------------.;|
00002380: 2D 2D 2D 20 20 CC 49 53 54 45 20 44 45 52 20 D8 |--- .ISTE DER .|
00002390: C2 C1 D3 C9 C3 20 C2 45 46 45 48 4C 45 20 20 20 |..... .EFEHLE |
000023A0: 20 20 20 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D | ---.;-------|
000023B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000023C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000023D0: 00 3B 20 20 31 2E 20 CC 49 53 54 45 20 44 45 52 |.; 1. .ISTE DER|
000023E0: 20 C6 55 4E 4B 54 49 4F 4E 45 4E 00 46 55 4E 4B | .UNKTIONEN.FUNK|
000023F0: 54 49 4F 4E 45 4E 3A 2E 42 59 31 35 2B 31 3B C1 |TIONEN:.BY15+1;.|
00002400: 4E 5A 41 48 4C 20 44 45 52 20 C6 55 4E 4B 54 49 |NZAHL DER .UNKTI|
00002410: 4F 4E 45 4E 20 2B 31 00 20 00 42 45 46 4C 49 53 |ONEN +1. .BEFLIS|
00002420: 54 3A 2E 42 59 31 38 34 2C 27 28 2C 30 3B C6 D2 |T:.BY184,'(,0;..|
00002430: C5 28 20 20 CC 49 53 54 45 20 44 45 52 20 C6 55 |.( .ISTE DER .U|
00002440: 4E 4B 54 49 4F 4E 53 57 4F 52 54 45 00 2E 42 59 |NKTIONSWORTE..BY|
00002450: 22 41 54 28 22 2C 30 3B C1 D4 28 00 2E 42 59 22 |"AT(",0;..(..BY"|
00002460: 48 45 58 24 22 2C 30 3B C8 C5 D8 24 00 2E 42 59 |HEX$",0;...$..BY|
00002470: 22 44 45 43 22 2C 30 3B C4 C5 C3 00 2E 42 59 22 |"DEC",0;.....BY"|
00002480: 49 4E 4B 45 59 24 22 2C 30 3B C9 CE CB C5 D9 24 |INKEY$",0;.....$|
00002490: 00 2E 42 59 22 49 4E 53 54 52 28 22 2C 30 3B C9 |..BY"INSTR(",0;.|
000024A0: CE D3 D4 D2 28 00 2E 42 59 22 53 54 52 49 4E 47 |....(..BY"STRING|
000024B0: 24 28 22 2C 30 3B D3 D4 D2 C9 CE C7 24 00 2E 42 |$(",0;......$..B|
000024C0: 59 22 53 50 41 43 45 24 28 22 2C 30 3B D3 D0 C1 |Y"SPACE$(",0;...|
000024D0: C3 C5 24 00 2E 42 59 22 44 52 45 45 4B 22 2C 30 |..$..BY"DREEK",0|
000024E0: 3B C4 D2 C5 C5 CB 00 2E 42 59 22 52 45 45 4B 22 |;.......BY"REEK"|
000024F0: 2C 30 3B D2 C5 C5 CB 00 2E 42 59 22 44 45 45 4B |,0;......BY"DEEK|
00002500: 22 2C 30 3B C4 C5 C5 CB 00 2E 42 59 22 53 54 24 |",0;......BY"ST$|
00002510: 22 2C 30 3B D3 D4 24 00 2E 42 59 22 54 49 4D 45 |",0;..$..BY"TIME|
00002520: 22 2C 30 3B D4 C9 CD C5 00 2E 42 59 22 54 45 53 |",0;......BY"TES|
00002530: 54 52 28 22 2C 30 3B D4 C5 D3 D4 D2 00 2E 42 59 |TR(",0;.......BY|
00002540: 22 54 45 53 54 28 22 2C 30 3B D4 C5 D3 D4 00 20 |"TEST(",0;..... |
00002550: 00 3B 20 20 32 2E 20 CC 49 53 54 45 20 44 45 52 |.; 2. .ISTE DER|
00002560: 20 C2 45 46 45 48 4C 45 00 2E 42 59 22 43 4C 53 | .EFEHLE..BY"CLS|
00002570: 22 2C 30 3B C3 CC D3 20 20 CC 49 53 54 45 20 44 |",0;... .ISTE D|
00002580: 45 52 20 C2 45 46 45 48 4C 53 57 4F 52 54 45 00 |ER .EFEHLSWORTE.|
00002590: 2E 42 59 22 4F 4C 44 43 48 41 52 22 2C 30 3B CF |.BY"OLDCHAR",0;.|
000025A0: CC C4 C3 C8 C1 D2 00 2E 42 59 22 43 36 34 22 2C |........BY"C64",|
000025B0: 30 3B C3 36 34 00 2E 42 59 22 58 42 41 53 49 43 |0;.64..BY"XBASIC|
000025C0: 22 2C 30 3B D8 C2 C1 D3 C9 C3 00 2E 42 59 22 49 |",0;........BY"I|
000025D0: 4E 53 54 22 2C 30 3B C9 CE D3 D4 00 2E 42 59 31 |NST",0;......BY1|
000025E0: 35 30 2C 22 43 48 41 52 22 2C 30 3B C4 C5 C6 C3 |50,"CHAR",0;....|
000025F0: C8 C1 D2 00 2E 42 59 22 4F 4C 44 22 2C 30 3B CF |.....BY"OLD",0;.|
00002600: CC C4 00 2E 42 59 22 44 52 4F 4B 45 22 2C 30 3B |....BY"DROKE",0;|
00002610: C4 D2 CF CB C5 00 2E 42 59 22 52 4F 4B 45 22 2C |.......BY"ROKE",|
00002620: 30 3B D2 CF CB C5 00 2E 42 59 22 44 4F 4B 45 22 |0;......BY"DOKE"|
00002630: 2C 30 3B C4 CF CB C5 00 2E 42 59 22 41 55 22 2C |,0;......BY"AU",|
00002640: 31 36 34 2C 30 3B C1 D5 D4 CF 00 2E 42 59 22 53 |164,0;......BY"S|
00002650: 57 41 50 22 2C 30 3B D3 D7 C1 D0 00 2E 42 59 22 |WAP",0;......BY"|
00002660: 44 49 52 22 2C 30 3B C4 C9 D2 00 2E 42 59 27 51 |DIR",0;.....BY'Q|
00002670: 2C 31 34 37 2C 30 3B D1 CC CF C1 C4 00 2E 42 59 |,147,0;.......BY|
00002680: 22 43 4F 4C 4C 45 43 54 22 2C 30 3B C3 CF CC CC |"COLLECT",0;....|
00002690: C5 C3 D4 00 2E 42 59 22 48 45 41 44 45 52 22 2C |.....BY"HEADER",|
000026A0: 30 3B C8 C5 C1 C4 C5 D2 00 2E 42 59 22 44 49 52 |0;........BY"DIR|
000026B0: 22 2C 30 3B C4 55 4D 4D 59 20 46 55 45 52 20 C2 |",0;.UMMY FUER .|
000026C0: 45 46 45 48 4C 20 33 32 00 2E 42 59 22 52 45 4E |EFEHL 32..BY"REN|
000026D0: 41 4D 45 22 2C 30 3B D2 C5 CE C1 CD C5 00 2E 42 |AME",0;........B|
000026E0: 59 22 53 43 52 41 54 43 48 22 2C 30 3B D3 C3 D2 |Y"SCRATCH",0;...|
000026F0: C1 D4 C3 C8 00 2E 42 59 22 49 4E 49 54 49 41 4C |......BY"INITIAL|
00002700: 49 53 45 22 2C 30 3B C9 CE C9 D4 C9 C1 CC C9 D3 |ISE",0;.........|
00002710: C5 00 2E 42 59 22 53 45 54 44 22 2C 31 39 33 2C |...BY"SETD",193,|
00002720: 27 52 2C 30 3B D3 C5 D4 C4 C1 D4 CE D2 00 2E 42 |'R,0;..........B|
00002730: 59 22 50 41 55 53 45 22 2C 30 3B D0 C1 D5 D3 C5 |Y"PAUSE",0;.....|
00002740: 00 2E 42 59 22 53 45 54 54 49 4D 45 22 2C 30 3B |..BY"SETTIME",0;|
00002750: D3 C5 D4 D4 C9 CD C5 00 2E 42 59 22 53 45 54 45 |.........BY"SETE|
00002760: 4F 4C 22 2C 30 3B D3 C5 D4 C5 CF CC 00 2E 42 59 |OL",0;........BY|
00002770: 22 4C 49 4E 45 22 2C 31 33 33 2C 30 3B CC C9 CE |"LINE",133,0;...|
00002780: C5 C9 CE D0 D5 D4 00 2E 42 59 22 4C 49 4E 45 22 |........BY"LINE"|
00002790: 2C 31 33 32 2C 30 3B CC C9 CE C5 C9 CE D0 D5 D4 |,132,0;.........|
000027A0: 23 00 2E 42 59 22 44 52 41 57 4D 4F 44 45 22 2C |#..BY"DRAWMODE",|
000027B0: 30 3B C4 D2 C1 D7 CD CF C4 C5 00 2E 42 59 27 42 |0;..........BY'B|
000027C0: 2C 31 37 36 2C 22 44 45 52 22 2C 30 3B C2 CF D2 |,176,"DER",0;...|
000027D0: C4 C5 D2 00 2E 42 59 22 49 4E 4B 22 2C 30 3B C9 |.....BY"INK",0;.|
000027E0: CE CB 00 2E 42 59 22 50 41 50 45 52 22 2C 30 3B |....BY"PAPER",0;|
000027F0: D0 C1 D0 C5 D2 00 2E 42 59 22 50 45 4E 22 2C 30 |.......BY"PEN",0|
00002800: 3B D0 C5 CE C3 C9 CC 00 2E 42 59 22 47 52 41 46 |;........BY"GRAF|
00002810: 22 2C 31 34 35 2C 30 3B C7 D2 C1 C6 CF CE 00 2E |",145,0;........|
00002820: 42 59 22 47 52 41 46 4F 46 46 22 2C 30 3B C7 D2 |BY"GRAFOFF",0;..|
00002830: C1 C6 CF C6 C6 00 2E 42 59 22 47 52 41 46 22 2C |.......BY"GRAF",|
00002840: 31 35 36 2C 30 3B C7 D2 C1 C6 C3 CC D2 00 2E 42 |156,0;.........B|
00002850: 59 22 4D 55 4C 54 49 22 2C 31 34 35 2C 30 3B CD |Y"MULTI",145,0;.|
00002860: D5 CC D4 C9 CF CE 00 2E 42 59 22 4D 4F 56 45 52 |........BY"MOVER|
00002870: 22 2C 30 3B CD CF D6 C5 D2 00 2E 42 59 22 4D 4F |",0;.......BY"MO|
00002880: 56 45 22 2C 30 3B CD CF D6 C5 00 2E 42 59 22 50 |VE",0;......BY"P|
00002890: 4C 4F 54 52 22 2C 30 3B D0 CC CF D4 D2 00 2E 42 |LOTR",0;.......B|
000028A0: 59 22 50 4C 4F 54 22 2C 30 3B D0 CC CF D4 00 2E |Y"PLOT",0;......|
000028B0: 42 59 22 4C 49 4E 45 52 22 2C 30 3B CC C9 CE C5 |BY"LINER",0;....|
000028C0: D2 00 2E 42 59 22 4C 49 4E 45 22 2C 30 3B CC C9 |...BY"LINE",0;..|
000028D0: CE C5 00 2E 42 59 22 46 52 41 4D 45 22 2C 30 3B |....BY"FRAME",0;|
000028E0: C6 D2 C1 CD C5 00 2E 42 59 22 42 4F 58 22 2C 30 |.......BY"BOX",0|
000028F0: 3B C2 CF D8 00 2E 42 59 22 43 49 52 43 4C 45 22 |;.....BY"CIRCLE"|
00002900: 2C 30 3B C3 C9 D2 C3 CC C5 00 2E 42 59 22 41 4E |,0;........BY"AN|
00002910: 47 4C 45 22 2C 30 3B C1 CE C7 CC C5 00 2E 42 59 |GLE",0;.......BY|
00002920: 22 43 4F 4C 42 4C 4F 43 4B 22 2C 30 3B C3 CF CC |"COLBLOCK",0;...|
00002930: C2 CC CF C3 CB 00 2E 42 59 22 42 4C 4F 43 4B 22 |.......BY"BLOCK"|
00002940: 2C 30 3B C2 CC CF C3 CB 00 2E 42 59 22 4D 45 52 |,0;.......BY"MER|
00002950: 47 45 22 2C 30 3B CD C5 D2 C7 C5 00 2E 42 59 27 |GE",0;.......BY'|
00002960: 42 2C 31 34 38 2C 30 3B C2 D3 C1 D6 C5 00 2E 42 |B,148,0;.......B|
00002970: 59 27 42 2C 31 34 37 2C 30 3B C2 CC CF C1 C4 00 |Y'B,147,0;......|
00002980: 2E 42 59 27 47 2C 31 34 38 2C 30 3B C7 D3 C1 D6 |.BY'G,148,0;....|
00002990: C5 00 2E 42 59 27 47 2C 31 34 37 2C 27 41 2C 30 |...BY'G,147,'A,0|
000029A0: 3B C7 CC CF C1 C4 C1 00 2E 42 59 27 47 2C 31 34 |;........BY'G,14|
000029B0: 37 2C 27 4F 2C 30 3B C7 CC CF C1 C4 CF 00 2E 42 |7,'O,0;........B|
000029C0: 59 27 47 2C 31 34 37 2C 27 58 2C 30 3B C7 CC CF |Y'G,147,'X,0;...|
000029D0: C1 C4 D8 00 2E 42 59 27 47 2C 31 34 37 2C 30 3B |.....BY'G,147,0;|
000029E0: C7 CC CF C1 C4 00 2E 42 59 22 48 52 44 43 50 59 |.......BY"HRDCPY|
000029F0: 22 2C 30 3B C8 D2 C4 C3 D0 D9 00 2E 42 59 22 52 |",0;........BY"R|
00002A00: 45 4E 55 4D 22 2C 30 3B D2 C5 CE D5 CD 00 2E 42 |ENUM",0;.......B|
00002A10: 59 22 41 4C 53 4F 22 2C 30 3B C1 CC D3 CF 00 2E |Y"ALSO",0;......|
00002A20: 42 59 22 45 4C 53 45 22 2C 30 3B C5 CC D3 C5 00 |BY"ELSE",0;.....|
00002A30: 2E 42 59 22 42 4D 4F 56 45 22 2C 30 3B C2 CD CF |.BY"BMOVE",0;...|
00002A40: D6 C5 00 20 00 2E 42 59 30 3B D4 41 42 45 4C 4C |... ..BY0;.ABELL|
00002A50: 45 4E 41 42 53 43 48 4C 55 53 53 00 20 00 D2 C5 |ENABSCHLUSS. ...|
00002A60: D3 C5 D2 D6 C5 32 3A 2E 45 51 37 30 30 2B 42 45 |.....2:.EQ700+BE|
00002A70: 46 4C 49 53 54 2D D2 C5 D3 C5 D2 D6 C5 32 00 2E |FLIST-.......2..|
00002A80: 44 42 D2 C5 D3 C5 D2 D6 C5 32 00 2E 54 58 22 D2 |DB.......2..TX".|
00002A90: 45 53 45 52 56 45 20 46 55 45 52 20 C2 45 46 45 |ESERVE FUER .EFE|
00002AA0: 48 4C 45 20 28 D4 45 58 54 29 3A 22 00 2E 4F 4F |HLE (.EXT):"..OO|
00002AB0: D2 C5 D3 C5 D2 D6 C5 32 00 20 00 46 4B 31 30 30 |.......2. .FK100|
00002AC0: 3A 2E 42 59 24 38 37 2C 24 34 38 2C 30 2C 30 2C |:.BY$87,$48,0,0,|
00002AD0: 30 00 50 49 46 41 43 3A 2E 42 59 24 37 42 2C 24 |0.PIFAC:.BY$7B,$|
00002AE0: 30 45 2C 24 46 41 2C 24 33 35 2C 24 31 32 00 20 |0E,$FA,$35,$12. |
00002AF0: 00 3B D4 41 42 45 4C 4C 45 20 44 45 52 20 C1 44 |.;.ABELLE DER .D|
00002B00: 52 45 53 53 45 4E 20 44 45 52 20 C2 45 46 45 48 |RESSEN DER .EFEH|
00002B10: 4C 45 20 26 20 C6 55 4E 4B 54 49 4F 4E 45 4E 00 |LE & .UNKTIONEN.|
00002B20: 42 45 46 45 48 4C 45 3A 2E 57 4F C2 C2 46 52 45 |BEFEHLE:.WO..FRE|
00002B30: 2D 31 3B C6 D2 C5 28 20 20 2A 20 C6 55 4E 4B 54 |-1;...( * .UNKT|
00002B40: 49 4F 4E 45 4E 00 2E 57 4F C2 C2 41 54 2D 31 3B |IONEN..WO..AT-1;|
00002B50: C1 D4 28 00 2E 57 4F C2 C2 48 45 58 2D 31 3B C8 |..(..WO..HEX-1;.|
00002B60: C5 D8 24 00 2E 57 4F C2 C2 44 45 5A 2D 31 3B C4 |..$..WO..DEZ-1;.|
00002B70: C5 C3 00 2E 57 4F C2 C2 49 4E 4B 45 59 2D 31 3B |....WO..INKEY-1;|
00002B80: C9 CE CB C5 D9 24 00 2E 57 4F C2 C2 49 4E 53 54 |.....$..WO..INST|
00002B90: 52 2D 31 3B C9 CE D3 D4 D2 00 2E 57 4F C2 C2 53 |R-1;.......WO..S|
00002BA0: 54 52 49 4E 47 2D 31 3B D3 D4 D2 C9 CE C7 24 00 |TRING-1;......$.|
00002BB0: 2E 57 4F C2 C2 53 50 41 43 45 53 2D 31 3B D3 D0 |.WO..SPACES-1;..|
00002BC0: C1 C3 C5 D3 00 2E 57 4F C2 C2 44 52 45 45 4B 2D |......WO..DREEK-|
00002BD0: 31 3B C4 D2 C5 C5 CB 00 2E 57 4F C2 C2 52 45 45 |1;.......WO..REE|
00002BE0: 4B 2D 31 3B D2 C5 C5 CB 00 2E 57 4F C2 C2 44 45 |K-1;......WO..DE|
00002BF0: 45 4B 2D 31 3B C4 C5 C5 CB 00 2E 57 4F C2 C2 53 |EK-1;......WO..S|
00002C00: 54 2D 31 3B D3 D4 24 00 2E 57 4F C2 C2 54 49 4D |T-1;..$..WO..TIM|
00002C10: 45 2D 31 3B D4 C9 CD C5 00 2E 57 4F C2 C2 54 45 |E-1;......WO..TE|
00002C20: 53 54 52 2D 31 3B D4 C5 D3 D4 D2 00 2E 57 4F C2 |STR-1;.......WO.|
00002C30: C2 54 45 53 54 2D 31 3B D4 C5 D3 D4 00 20 00 2E |.TEST-1;..... ..|
00002C40: 57 4F 43 4C 52 53 43 52 2D 31 3B C3 CC D3 20 20 |WOCLRSCR-1;... |
00002C50: 20 2A 20 C2 45 46 45 48 4C 45 00 2E 57 4F 53 45 | * .EFEHLE..WOSE|
00002C60: 54 5A 45 49 43 48 45 4E 2D 31 3B CF CC C4 C3 C8 |TZEICHEN-1;.....|
00002C70: C1 D2 00 2E 57 4F 52 45 53 45 54 2D 31 3B C3 36 |....WORESET-1;.6|
00002C80: 34 00 2E 57 4F C2 C2 58 42 41 53 49 43 2D 31 3B |4..WO..XBASIC-1;|
00002C90: D8 C2 C1 D3 C9 C3 00 2E 57 4F C2 C2 49 4E 53 54 |........WO..INST|
00002CA0: 2D 31 3B C9 CE D3 D4 00 2E 57 4F C2 C2 44 45 46 |-1;......WO..DEF|
00002CB0: 43 48 41 52 2D 31 3B C4 C5 C6 C3 C8 C1 D2 00 2E |CHAR-1;.........|
00002CC0: 57 4F C2 C2 4F 4C 44 2D 31 3B CF CC C4 C3 C8 C1 |WO..OLD-1;......|
00002CD0: D2 00 2E 57 4F C2 C2 44 52 4F 4B 45 2D 31 3B C4 |...WO..DROKE-1;.|
00002CE0: D2 CF CB C5 00 2E 57 4F C2 C2 52 4F 4B 45 2D 31 |......WO..ROKE-1|
00002CF0: 3B D2 CF CB C5 00 2E 57 4F C2 C2 44 4F 4B 45 2D |;......WO..DOKE-|
00002D00: 31 3B C4 CF CB C5 00 2E 57 4F C2 C2 41 55 54 4F |1;......WO..AUTO|
00002D10: 2D 31 3B C1 D5 D4 CF 00 2E 57 4F C2 C2 53 57 41 |-1;......WO..SWA|
00002D20: 50 2D 31 3B D3 D7 C1 D0 00 2E 57 4F C2 C2 44 49 |P-1;......WO..DI|
00002D30: 52 2D 31 3B C4 C9 D2 00 2E 57 4F C2 C2 51 4C 4F |R-1;.....WO..QLO|
00002D40: 41 44 2D 31 3B D1 CC CF C1 C4 00 2E 57 4F C2 C2 |AD-1;.......WO..|
00002D50: 43 4F 4C 4C 45 43 54 2D 31 3B C3 CF CC CC C5 C3 |COLLECT-1;......|
00002D60: D4 00 2E 57 4F C2 C2 48 45 41 44 45 52 2D 31 3B |...WO..HEADER-1;|
00002D70: C8 C5 C1 C4 C5 D2 00 2E 57 4F 30 3B C4 55 4D 4D |........WO0;.UMM|
00002D80: 59 20 46 55 45 52 20 C2 45 46 45 48 4C 20 33 32 |Y FUER .EFEHL 32|
00002D90: 00 2E 57 4F C2 C2 52 45 4E 41 4D 45 2D 31 3B D2 |..WO..RENAME-1;.|
00002DA0: C5 CE C1 CD C5 00 2E 57 4F C2 C2 53 43 52 41 54 |.......WO..SCRAT|
00002DB0: 43 48 2D 31 3B D3 C3 D2 C1 D4 C3 C8 00 2E 57 4F |CH-1;.........WO|
00002DC0: C2 C2 49 4E 49 54 49 41 4C 2D 31 3B C9 CE C9 D4 |..INITIAL-1;....|
00002DD0: C9 C1 CC C9 D3 C5 00 2E 57 4F C2 C2 53 45 54 44 |........WO..SETD|
00002DE0: 41 54 4E 52 2D 31 3B D3 C5 D4 C4 C1 D4 CE D2 00 |ATNR-1;.........|
00002DF0: 2E 57 4F C2 C2 50 41 55 53 45 2D 31 3B D0 C1 D5 |.WO..PAUSE-1;...|
00002E00: D3 C5 00 2E 57 4F C2 C2 53 45 54 54 49 4D 45 2D |....WO..SETTIME-|
00002E10: 31 3B D3 C5 D4 C3 CC CF C3 CB 00 2E 57 4F C2 C2 |1;..........WO..|
00002E20: 53 45 54 45 4F 4C 2D 31 3B D3 C5 D4 C5 CF CC 00 |SETEOL-1;.......|
00002E30: 2E 57 4F C2 C2 4C 49 4E 45 49 4E 50 55 54 2D 31 |.WO..LINEINPUT-1|
00002E40: 3B CC C9 CE C5 C9 CE D0 D5 D4 00 2E 57 4F C2 C2 |;...........WO..|
00002E50: 4C 49 4E 45 49 4E 44 45 56 2D 31 3B CC C9 CE C5 |LINEINDEV-1;....|
00002E60: C9 CE D0 D5 D4 23 00 2E 57 4F C2 C2 44 52 41 57 |.....#..WO..DRAW|
00002E70: 4D 4F 44 45 2D 31 3B C4 D2 C1 D7 CD CF C4 C5 00 |MODE-1;.........|
00002E80: 2E 57 4F C2 C2 42 4F 52 44 45 52 2D 31 3B C2 CF |.WO..BORDER-1;..|
00002E90: D2 C4 C5 D2 00 2E 57 4F C2 C2 49 4E 4B 2D 31 3B |......WO..INK-1;|
00002EA0: C9 CE CB 00 2E 57 4F C2 C2 50 41 50 45 52 2D 31 |.....WO..PAPER-1|
00002EB0: 3B D0 C1 D0 C5 D2 00 2E 57 4F C2 C2 50 45 4E 43 |;.......WO..PENC|
00002EC0: 49 4C 2D 31 3B D0 C5 CE C3 C9 CC 00 2E 57 4F C2 |IL-1;........WO.|
00002ED0: C2 47 52 41 46 4F 4E 2D 31 3B C7 D2 C1 C6 CF CE |.GRAFON-1;......|
00002EE0: 00 2E 57 4F C2 C2 47 52 41 46 4F 46 46 2D 31 3B |..WO..GRAFOFF-1;|
00002EF0: C7 D2 C1 C6 CF C6 C6 00 2E 57 4F C2 C2 47 52 41 |.........WO..GRA|
00002F00: 46 43 4C 52 2D 31 3B C7 D2 C1 C6 C3 CC D2 00 2E |FCLR-1;.........|
00002F10: 57 4F C2 C2 4D 55 4C 54 49 4F 4E 2D 31 3B CD D5 |WO..MULTION-1;..|
00002F20: CC D4 C9 CF CE 00 2E 57 4F C2 C2 4D 4F 56 45 52 |.......WO..MOVER|
00002F30: 2D 31 3B CD CF D6 C5 D2 00 2E 57 4F C2 C2 4D 4F |-1;.......WO..MO|
00002F40: 56 45 2D 31 3B CD CF D6 C5 00 2E 57 4F C2 C2 50 |VE-1;......WO..P|
00002F50: 4C 4F 54 52 2D 31 3B D0 CC CF D4 D2 00 2E 57 4F |LOTR-1;.......WO|
00002F60: C2 C2 50 4C 4F 54 2D 31 3B D0 CC CF D4 00 2E 57 |..PLOT-1;......W|
00002F70: 4F C2 C2 4C 49 4E 45 52 2D 31 3B CC C9 CE C5 D2 |O..LINER-1;.....|
00002F80: 00 2E 57 4F C2 C2 4C 49 4E 45 2D 31 3B CC C9 CE |..WO..LINE-1;...|
00002F90: C5 00 2E 57 4F C2 C2 46 52 41 4D 45 2D 31 3B C6 |...WO..FRAME-1;.|
00002FA0: D2 C1 CD C5 00 2E 57 4F C2 C2 42 4F 58 2D 31 3B |......WO..BOX-1;|
00002FB0: C2 CF D8 00 2E 57 4F C2 C2 43 49 52 43 4C 45 2D |.....WO..CIRCLE-|
00002FC0: 31 3B C3 C9 D2 C3 CC C5 00 2E 57 4F C2 C2 41 4E |1;........WO..AN|
00002FD0: 47 4C 45 2D 31 3B C1 CE C7 CC C5 00 2E 57 4F C2 |GLE-1;.......WO.|
00002FE0: C2 43 4F 4C 42 4C 4F 43 4B 2D 31 3B C3 CF CC C2 |.COLBLOCK-1;....|
00002FF0: CC CF C3 CB 00 2E 57 4F C2 C2 42 4C 4F 43 4B 2D |......WO..BLOCK-|
00003000: 31 3B C2 CC CF C3 CB 00 2E 57 4F C2 C2 4D 45 52 |1;.......WO..MER|
00003010: 47 45 2D 31 3B CD C5 D2 C7 C5 00 2E 57 4F C2 C2 |GE-1;.......WO..|
00003020: 42 53 41 56 45 2D 31 3B C2 D3 C1 D6 C5 00 2E 57 |BSAVE-1;.......W|
00003030: 4F C2 C2 42 4C 4F 41 44 2D 31 3B C2 CC CF C1 C4 |O..BLOAD-1;.....|
00003040: 00 2E 57 4F C2 C2 47 53 41 56 45 2D 31 3B C7 D3 |..WO..GSAVE-1;..|
00003050: C1 D6 C5 00 2E 57 4F C2 C2 47 4C 4F 41 44 41 2D |.....WO..GLOADA-|
00003060: 31 3B C7 CC CF C1 C4 C1 00 2E 57 4F C2 C2 47 4C |1;........WO..GL|
00003070: 4F 41 44 4F 2D 31 3B C7 CC CF C1 C4 CF 00 2E 57 |OADO-1;........W|
00003080: 4F C2 C2 47 4C 4F 41 44 58 2D 31 3B C7 CC CF C1 |O..GLOADX-1;....|
00003090: C4 D8 00 2E 57 4F C2 C2 47 4C 4F 41 44 2D 31 3B |....WO..GLOAD-1;|
000030A0: C7 CC CF C1 C4 00 2E 57 4F C2 C2 48 52 44 43 50 |.......WO..HRDCP|
000030B0: 59 2D 31 3B C8 D2 C4 C3 D0 D9 00 2E 57 4F C2 C2 |Y-1;........WO..|
000030C0: 52 45 4E 55 4D 2D 31 3B D2 C5 CE D5 CD 00 2E 57 |RENUM-1;.......W|
000030D0: 4F C2 C2 41 4C 53 4F 2D 31 3B C1 CC D3 CF 00 2E |O..ALSO-1;......|
000030E0: 57 4F C2 C2 45 4C 53 45 2D 31 3B C5 CC D3 C5 00 |WO..ELSE-1;.....|
000030F0: 2E 57 4F C2 C2 42 4D 4F 56 45 2D 31 3B C2 CD CF |.WO..BMOVE-1;...|
00003100: D6 C5 00 20 00 D2 C5 D3 C5 D2 D6 C5 33 3A 2E 45 |... ........3:.E|
00003110: 51 32 39 37 2B 42 45 46 45 48 4C 45 2D D2 C5 D3 |Q297+BEFEHLE-...|
00003120: C5 D2 D6 C5 33 00 2E 44 42 D2 C5 D3 C5 D2 D6 C5 |....3..DB.......|
00003130: 33 00 2E 54 58 22 D2 45 53 45 52 56 45 20 46 55 |3..TX".ESERVE FU|
00003140: 45 52 20 C2 45 46 45 48 4C 45 20 28 D4 41 42 20 |ER .EFEHLE (.AB |
00003150: 29 3A 22 00 2E 4F 4F D2 C5 D3 C5 D2 D6 C5 33 00 |):"..OO.......3.|
00003160: 20 00 2E 46 49 22 58 42 2F 53 20 31 2E 32 22 00 | ..FI"XB/S 1.2".|
00003170: 00 41 52 |.AR |
N1;;;XBASIC VERSION 1.2 (C) M.FRIESE 1/8
8.;;;--XB/I 1.2. .;---------------------
------------------.;--- VEREINBARUNG
DER SYMBOLE ---.;-------------------
--------------------.XTOKEN:.EQ210;TOKEN
NUMMER DER ERWEITERUNG. .PP:.EQ1;PROZESS
ORPORT.XMEM:.EQ2;X-REGISTER FUER ROM-ROU
TINEN.AZG:.EQ251;ALLGEMEINER ZEIGER 1.AZ
G2:.EQ253;ALLGEMEINER ZEIGER 2.BASEND:.E
Q$37;BASIC SPEICHERENDE.CHARPAGE:.EQ648;
FESTLEGUNG DER TEXTSEITE.NMIVEC:.EQ$318;
NMI-VEKTOR.LISTVEC:.EQ$306;LIST VEKTOR.T
OKENVEC:.EQ$304;IN TOKEN WANDELN.EXECUTE
VEC:.EQ$308;AUSFUEHRUNGSVEKTOR.FKTVEC:.E
Q$30A;FUNTIONEN VEKTOR.ZEILE:.EQ$200;ADR
ESSE DER EINGABEZEILE.MEM:.EQ828;ALLGEME
INER PUFFER.REG1:.EQ97;1. OPERAND FUER M
ULTIPLIKATION.REG2:.EQ105;2. OPERAND.MER
G:.EQ108;ERGEBNIS. .INPUFFER:.EQ$500;BLO
CK FUER LINE-INPUT.YCURS2:.EQ1023;GRAPHI
K ENDPUNKT Y.XCURS2:.EQ1021;GRAPHIK ENDP
UNKT X.DRAWMODE:.EQ1017;ZEICHENMODUS.XCU
RS:.EQ1018;GRAPHIK X.YCURS:.EQ1020;GRAPH
IK Y.COLMODE:.EQ1016;GRAPHIK FARBMODUS.C
OLMEM:.EQ$600;FARBENSPEICHER. .EINGABEVE
C:.EQ$0302;VEKTOR FUER EINGABE-WARTESCHL
EIFE.OLDEINGABE:.EQ$A483;ALTE EINGABE-WA
RTESCHLEIFE. .VIC:.EQ$D000;VIDEO IC.SID:
.EQ$D400;SOUND IC.FARBRAM:.EQ$D800;FARBR
AM.CIA1:.EQ$DC00;CIA #1.CIA2:.EQ$DD00;CI
A #2.ZEICHENSATZ:.EQ$D000;STARTADRESSE Z
EICHENSATZ. .XBASICSTART:.EQ$A000-2048;S
TARTADRESSE VON XBASIC.TEXTSEITE:.EQ$CC0
0;ADRESSE DER TEXTSEITE.FARBEHIRES:.EQ$C
800;ADRESSE DER FARBE FUER HIRES.HIRESSE
ITE:.EQ$E000;ADRESSE DER HIRESSEITE. .CH
RGET:.EQ$73;EIN ZEICHEN AUS BASIC HOLEN.
CHRGOT:.EQ$79;ZEICHEN NOCH EINMAL LESEN.
VARSUCH:.EQ$B08B;VARIALE SUCHEN.BSOUT:.E
Q$FFD2;EIN ZEICHEN AUSGEBEN.CURSOR:.EQ$F
FF0;CURSOR SETZEN/LOESCHEN.CURRECHTS:.EQ
$AB3B;CURSOR RECHTS.RESET:.EQ$FCE2;COMPU
TER RESET.ROMFRMEVL:.EQ$AD9E;AUSDRUCK BE
RECHNEN.ROMCHKKLAZU:.EQ$AEF7;AUF 'KLAMME
R ZU' TESTEN.ROMCHKLAAUF:.EQ$AEFA;AUF 'K
LAMMER AUF' TESTEN.ROMKLAMMER:.EQ$AEF1;K
LAMMERAUSDRUCK AUSWERTEN.ROMADRESSE:.EQ$
B7F7;FAC->POS. INTEGER.TESTCODE:.EQ$AEFF
;AUF CODE TESTEN.FRESTR:.EQ$B6A6;STRING
AUFRAEUMEN.GARBAGE:.EQ$B526;GARBARGE COL
LECTION.ROMRESSTR:.EQ$B47D;STRING RESERV
IEREN.ROMSTRING:.EQ$B4CA;STRING IN STRIN
GSTACK.GETSTRING:.EQ$B782;STRING HOLEN.C
LRSCR:.EQ$E544;BILDSCHIQM LOESCHEN.GET:.
EQ$FFE4;GET-BEFEHL.ROMGETBYTE:.EQ$B79E;H
OLT EIN BYTE.ROMCHKKOM:.EQ$AEFD;AUF KOMM
A PRUEFEN. . .INITMELDUNG:.EQ$E42D;START
MELDUNG AUSGEBEN.BASICWASTA:.EQ$E386;BAS
IC WARMSTART. .;------------------------
---------------.;--- XBASIC BASIC-STAR
TROUTINE ---.;----------------------
-----------------..WA;BEI FEHLER WARTEN.
TEST:.IN"TESTVERSION (J=1) ? 1."..?ETEST
-1..OS..BAXBASICSTART..EB. ..?NTEST-1..B
A$801;BASIC START..OU"@0:XBASIC 1.2";ERZ
EUGTE DATEI AUF DISK SCHREIBEN..OC;KEINE
AUSGABE IN DAS RAM. ..BY11,8,<1987,>198
7,158,"2061",0,0,0;ENTSPRICHT "1987 SYS2
061". .LDA#<XBASIC;AN NORMALSTART SCHIEB
EN.LDX#>XBASIC;ZEIGER SETZEN.STAAZG.STXA
ZG+1.LDA#<XBASICSTART;NORMALADRESSE.LDX#
>XBASICSTART.STAAZG2.STXAZG2+1.LDX#4*9;9
KBYTE UEBERTRAGEN.LDY#0.TRABASIC:LDA(AZ
G),Y;VERSCHIEBESCHLEIFE.STA(AZG2),Y.INY.
BNETRABASIC;BIS EINE PAGE VERSCHOBEN.INC
AZG+1.INCAZG2+1.DEX.BNETRABASIC;BIS ALLE
SEITEN VERSCHOBEN.JMPXBASICSTART;XBASIC
STARTEN.XBASIC:..CBXBASICSTART;REST ZUR
NORMALADRESSE ASSEMBLIEREN..EB.;-------
--------------------------------.;--- X
BASIC INITIALISIERUNGSROUTINE ---.;-----
----------------------------------.BBXBA
SIC:LDA#$37;SPEICHERAUFTEILUNG NORMAL.ST
APP.JSRSETZEICHEN.JSRINITXBASIC;XBASIC V
EKTOREN SETZEN.LDA#<MELDUNG;ADRESSE DER
EINSCHALTMELDUNG LADEN.LDY#>MELDUNG.JSRI
NITMELDUNG;AUSGABE IM C 64 BASIC.LDX#$FB
;STACKPOINTER LADEN.TXS.JMPBASICWASTA;UN
D ZUM BASIC-WARMSTART. . .INITXBASIC:LDA
#%00110110;ADRESSE DES BILDSCHIRMS.STAVI
C+24;UND DES ZEICHENSATZES FESTLEGEN.LDA
CIA2;VIC BEREICH VON $C000-$FFFF.AND#%11
111100.STACIA2.LDA#TEXTSEITE/256;TEXTSEI
TE FUER BASIC FESTLEGEN.STACHARPAGE. .LD
A#<XBASICSTART;NEUES BASIC-ENDE SETZEN.L
DX#>XBASICSTART.STABASEND.STXBASEND+1.LD
A#<NEWNMI;NEUE NMI-ROUTINE.LDX#>NEWNMI.S
TANMIVEC.STXNMIVEC+1.LDA#<TOKEN;NEUE TOK
EN-WANDELROUTINE.LDX#>TOKEN.STATOKENVEC.
STXTOKENVEC+1.LDA#<LIST;NEUE LIST-ROUTIN
E.LDX#>LIST.STALISTVEC.STXLISTVEC+1.LDA#
<EXECUTE;NEUE AUSFUEHRUNGSROUTINE.LDX#>E
XECUTE.STAEXECUTEVEC.STXEXECUTEVEC+1.LDA
#<EXEFKT;NEUES BASIC-ENDE SETZEN.LDX#>EX
EFKT.STAFKTVEC.STXFKTVEC+1.LDA#<NEWEINGA
BE;NEUE FEHLERMELDUNGSROUTINE.LDX#>NEWEI
NGABE.STAEINGABEVEC.STXEINGABEVEC+1.LDA#
0;GRAPHIK AUF STANDARD.STADRAWMODE.STACO
LMODE.RTS. .SETZEICHEN:SEI.LDAPP.PHA.LDX
#4*4;4 KBYTE ZEICHENSATZ VON ROM IN RAM
BRINGEN.LDA#>ZEICHENSATZ.LDY#0.STAAZG+1;
AZG ZEIGT AUF ZEICHENSATZ.STYAZG.LDA#$32
;ZEICHENSATZ-ROM LESBAR MACHEN.STAPP.TRA
ZEICHEN:LDA(AZG),Y;AUS ROM IN RAM BRINGE
N.STA(AZG),Y.INY;UND WEITER.BNETRAZEICHE
N.INCAZG+1.DEX;BIS ALLE SEITEN UEBERTRAG
EN.BNETRAZEICHEN.PLA;NORMALE SPEICHERBEL
EGUNG.STAPP.CLI.RTS. .;-----------------
----------------------.;--- XBASIC EING
ABE-WARTESCHLEIFE ---.;---------------
------------------------.NEWEINGABE:LDAP
P.PHA.LDA#$36.STAPP.JSRDOGRAFOFF.PLA.STA
PP.JMPOLDEINGABE. .;--------------------
-------------------.;--- XBASIC NMI ROU
TINE ---.;------------------
---------------------.NEWNMI:PHA;KOPIE D
ER C 64 NMI-ROUTINE.TXA.PHA.TYA.PHA.LDA#
$7F.STA$DD0D.LDY$DD0D.BMIRS232.JSR$F6BC.
JSR$FFE1.BNERS232.LDX#$FB.TXS.JSR$FD15.J
SRINITXBASIC;XBASIC EINBINDEN.JSR$FDA3.J
SR$E518.JSRINITXBASIC;XBASIC EINBINDEN.J
MP($A002);WEITER IM C 64 BASIC. .RS232:J
MP$FE72. .;-----------------------------
----------.;--- BASIC ROM-ROUTINEN AUFR
UFEN ---.;---------------------------
------------.BASICROM:STAAKKU;AKKU MERKE
N.JSRROMAUFRUF;ROUTINE AUFRUFEN.PHP;STAU
S MERKEN.PHA;AKKU MERKEN.LDA#$36;ROM AUS
SCHALTEN.STAPP.PLA;AKKU WIEDERHERSTELLEN
.PLP;STATUS ZURUECKHOLEN.RTS. .ROMAUFRUF
:LDAROMBEFEHLE+1,X;ADRESSE DER ROUTINE A
UF DEN STACK BRINGEN.PHA.LDAROMBEFEHLE,X
.PHA.LDA#$37;BASICROM EINSCHALTEN.STAPP.
LDAAKKU;AKKU LADEN.LDXXMEM;X-REGISTER LA
DEN.RTS. .GETAZG:INCPP;WERT UNTER AZG AU
S ROM HOLEN.LDA(AZG),Y.DECPP.RTS. .ADRFE
HLER:STX$22;FEHLERMELDUNG AB ADRESSE A/X
.INCPP;AUSGEBEN.JMP$A445. .SLERRTXT:.BY"
WRONG STRINGLEN".BCERRTXT:.BY"BAD CHAR I
N STRING". .FEHLER:INCPP;FEHLERMELDUNG M
IT NUMMER X AUSGEBEN.JMP$A437. .FRMEVL:I
NCPP;AUSDRUCK EINLESEN.JSRROMFRMEVL.DECP
P.RTS. .CHKKLAZU:INCPP;AUF ')' PRUEFEN.J
SRROMCHKKLAZU.DECPP.RTS. .CHKLAAUF:INCPP
;AUF '(' PRUEFEN.JSRROMCHKLAAUF.DECPP.RT
S. .CHKKOM:INCPP;AUF ',' PRUEFEN.JSRROMC
HKKOM.DECPP.RTS. .ADRESSE:INCPP;ADRESSE
HOLEN.JSRROMADRESSE.DECPP.RTS. .GETBYTE:
INCPP;BYTEWERT HOLEN.JSRROMGETBYTE.DECPP
.RTS. .GETADR:INCPP;16BIT-WERT HOLEN.JSR
$AD8A.JSR$B7F7.DECPP.RTS. .GETADBY:INCPP
;ADRESSE,BYTE HOLEN.JSR$B7EB.DECPP.RTS.
.RESERVSTR:INCPP;STRING RESERVIEREN.JSRR
OMRESSTR.DECPP.RTS. .STRING:INCPP;STRING
EINTRAGEN.JSRROMSTRING.DECPP.RTS. .KLAM
MER:INCPP;KLAMMERAUSDRUCK HOLEN.JSRROMKL
AMMER.DECPP.RTS. .AKKU:.BY0;SPEICHER FUE
R AKKU. .ROMBEFEHLE:..WOTESTCODE-1;0..WO
GARBAGE-1;2..WOGETSTRING-1;4..WO$B8F7-1;
6..WO$BC49-1;8..WOCURRECHTS-1;10..WOGET-
1;12..WO$E56C-1;14..WOFRESTR-1;16..WO422
91-1;18..WOVARSUCH-1;20..WO$BDDD-1;22..W
O$A57C-1;24..WO$FFBA-1;26 FILEPARAMETER.
.WO$FFBD-1;28 FILENAME..WO$FFC0-1;30 OPE
N..WO$FFC3-1;32 CLOSE..WO$FFC6-1;34 CHKI
N..WO$FFC9-1;36 CHKOUT..WO$FFCC-1;38 CLR
CH..WO$FFCF-1;40 BASIN..WOBSOUT-1;42..WO
TOKEN-1;44..WO$A96B-1;46..WO$FFE1-1;48 S
TOP-TASTE..WO$BA28-1;50 FAC*(A/Y)..WO$BC
0C-1;52 FAC->ARG..WO$BA2B-1;54 FAC:=FAC*
ARG..WO$E26B-1;56 SIN..WO$E264-1;58 COS.
.WO$B1AA-1;60 FAC NACH INTEGER..WO$E1D4-
1;62 LOAD PARAMETER HOLEN..WO$A93B-1;64
NAECHSTE ZEILE..WO$BDD1-1;66 IN FLIESSKO
MMA WANDELN..WO$BDDF-1;68 FAC IN ASCII W
ANDELN..WO$BDC2-1;70 ZEILENNUMMER BEI FE
HLER. .RESERVE1:.EQ80*2+ROMBEFEHLE-RESER
VE1..DBRESERVE1..TX"RESERVE ROMBEFEHLE:"
..OORESERVE1. .;------------------------
---------------.;--- EINGABE IN TOKEN W
ANDELN ---.;----------------------
-----------------.TOKEN:DECPP;WEITER BEI
DER AUTO-ROUTINE.JSRAUTOEXEC.INCPP.BNEN
EXTTK. .VGL1:LDY#$FF;Y ZEIGT AUF DIE BEF
EHLSLISTE.LDA#<BEFLIST;AZG & Y AUF DIE B
EFEHLSTABELLE.STAAZG.LDA#>BEFLIST.STAAZG
+1.LDA#1;TOKENNUMMER IST 1.STAAZG2.DEX.V
GL:INY;NAECHSTES ZEICHEN VERGLEICHEN.INX
.VGL2:LDA(AZG),Y;BEFEHLSTEXT MIT ZEILE V
ERGL..BEQEOB;BEFEHLSWORT-ENDE.CMPZEILE,X
.BNEUNGL;NEIN.BEQVGL.EOB:LDYXMEM;BEFEHL
GEFUNDEN.LDA#XTOKEN;XBASIC-TOKEN IN ZEIL
E BRINGEN.STAZEILE,Y.INY.LDAAZG2.STAZEIL
E,Y.INY.VERSCH:LDAZEILE,X;REST DES BEFEH
LSWORTES LOESCHEN.STAZEILE,Y.BEQTONEXTTK
;LAENGE DER ZEILE KORRIGIEREN.INX.INY.BN
EVERSCH. .UNGL:LDXXMEM;ENDE DES BEFEHLSW
ORTES IN TABELLE SUCHEN.DEY.INCAZG2;TOKE
NNUMMER +1.SBE:INY.LDA(AZG),Y.BNESBE.SEC
.TYA.ADCAZG.STAAZG.LDA#0.TAY.ADCAZG+1.ST
AAZG+1.LDA(AZG),Y.BNEVGL2;NEIN, WEITERVE
RGLEICHEN. .NEXTTK:INX;AB NAECHTER POSIT
ION IN ZEILE NEUSUCHEN.STXXMEM.LDAZEILE,
X;ZEILE BEENDET ?.BEQABORTTK.CMP#131;DAT
A-TOKEN ?.BEQABORTTK;DANN REST DER ZEILE
NICHT BEACHTEN.CMP#143;REM-TOKEN ?.BEQA
BORTTK;DANN REST NICHT BEACHTEN.CMP#34;S
TRING ?.BNEVGL1;NEIN.HKOMMA:INX;STRINGS
UEBERLESEN.LDAZEILE,X.BEQABORTTK;ENDE DE
R ZEILE ERREICHT.CMP#34.BNEHKOMMA.INX.ST
XXMEM.BNEVGL1;STRINGENDE ERREICHT. .ABOR
TTK:LDY$B;LAENGE DER ZEILE LADEN.LDA#0.S
TA$200-3,Y.RTS;FERTIG. .TONEXTTK:TYA;LAE
NGE DER ZEILE KORRIGIEREN.LDXXMEM;LAENGE
DER NEUEN ZEILE.INX.CLC;+6 FUER VERWALT
UNG.ADC#5.STA$B;ERGIBT DIE LAENGE.BNENEX
TTK. .;---------------------------------
------.;--- LISTE DER XBASIC BEFEHLE
---.;-------------------------------
--------.; 1. LISTE DER FUNKTIONEN.FUNK
TIONEN:.BY15+1;ANZAHL DER FUNKTIONEN +1.
.BEFLIST:.BY184,'(,0;FRE( LISTE DER FU
NKTIONSWORTE..BY"AT(",0;AT(..BY"HEX$",0;
HEX$..BY"DEC",0;DEC..BY"INKEY$",0;INKEY$
..BY"INSTR(",0;INSTR(..BY"STRING$(",0;ST
RING$..BY"SPACE$(",0;SPACE$..BY"DREEK",0
;DREEK..BY"REEK",0;REEK..BY"DEEK",0;DEEK
..BY"ST$",0;ST$..BY"TIME",0;TIME..BY"TES
TR(",0;TESTR..BY"TEST(",0;TEST. .; 2. L
ISTE DER BEFEHLE..BY"CLS",0;CLS LISTE D
ER BEFEHLSWORTE..BY"OLDCHAR",0;OLDCHAR..
BY"C64",0;C64..BY"XBASIC",0;XBASIC..BY"I
NST",0;INST..BY150,"CHAR",0;DEFCHAR..BY"
OLD",0;OLD..BY"DROKE",0;DROKE..BY"ROKE",
0;ROKE..BY"DOKE",0;DOKE..BY"AU",164,0;AU
TO..BY"SWAP",0;SWAP..BY"DIR",0;DIR..BY'Q
,147,0;QLOAD..BY"COLLECT",0;COLLECT..BY"
HEADER",0;HEADER..BY"DIR",0;DUMMY FUER B
EFEHL 32..BY"RENAME",0;RENAME..BY"SCRATC
H",0;SCRATCH..BY"INITIALISE",0;INITIALIS
E..BY"SETD",193,'R,0;SETDATNR..BY"PAUSE"
,0;PAUSE..BY"SETTIME",0;SETTIME..BY"SETE
OL",0;SETEOL..BY"LINE",133,0;LINEINPUT..
BY"LINE",132,0;LINEINPUT#..BY"DRAWMODE",
0;DRAWMODE..BY'B,176,"DER",0;BORDER..BY"
INK",0;INK..BY"PAPER",0;PAPER..BY"PEN",0
;PENCIL..BY"GRAF",145,0;GRAFON..BY"GRAFO
FF",0;GRAFOFF..BY"GRAF",156,0;GRAFCLR..B
Y"MULTI",145,0;MULTION..BY"MOVER",0;MOVE
R..BY"MOVE",0;MOVE..BY"PLOTR",0;PLOTR..B
Y"PLOT",0;PLOT..BY"LINER",0;LINER..BY"LI
NE",0;LINE..BY"FRAME",0;FRAME..BY"BOX",0
;BOX..BY"CIRCLE",0;CIRCLE..BY"ANGLE",0;A
NGLE..BY"COLBLOCK",0;COLBLOCK..BY"BLOCK"
,0;BLOCK..BY"MERGE",0;MERGE..BY'B,148,0;
BSAVE..BY'B,147,0;BLOAD..BY'G,148,0;GSAV
E..BY'G,147,'A,0;GLOADA..BY'G,147,'O,0;G
LOADO..BY'G,147,'X,0;GLOADX..BY'G,147,0;
GLOAD..BY"HRDCPY",0;HRDCPY..BY"RENUM",0;
RENUM..BY"ALSO",0;ALSO..BY"ELSE",0;ELSE.
.BY"BMOVE",0;BMOVE. ..BY0;TABELLENABSCHL
USS. .RESERVE2:.EQ700+BEFLIST-RESERVE2..
DBRESERVE2..TX"RESERVE FUER BEFEHLE (TEX
T):"..OORESERVE2. .FK100:.BY$87,$48,0,0,
0.PIFAC:.BY$7B,$0E,$FA,$35,$12. .;TABELL
E DER ADRESSEN DER BEFEHLE & FUNKTIONEN.
BEFEHLE:.WOBBFRE-1;FRE( * FUNKTIONEN..W
OBBAT-1;AT(..WOBBHEX-1;HEX$..WOBBDEZ-1;D
EC..WOBBINKEY-1;INKEY$..WOBBINSTR-1;INST
R..WOBBSTRING-1;STRING$..WOBBSPACES-1;SP
ACES..WOBBDREEK-1;DREEK..WOBBREEK-1;REEK
..WOBBDEEK-1;DEEK..WOBBST-1;ST$..WOBBTIM
E-1;TIME..WOBBTESTR-1;TESTR..WOBBTEST-1;
TEST. ..WOCLRSCR-1;CLS * BEFEHLE..WOSE
TZEICHEN-1;OLDCHAR..WORESET-1;C64..WOBBX
BASIC-1;XBASIC..WOBBINST-1;INST..WOBBDEF
CHAR-1;DEFCHAR..WOBBOLD-1;OLDCHAR..WOBBD
ROKE-1;DROKE..WOBBROKE-1;ROKE..WOBBDOKE-
1;DOKE..WOBBAUTO-1;AUTO..WOBBSWAP-1;SWAP
..WOBBDIR-1;DIR..WOBBQLOAD-1;QLOAD..WOBB
COLLECT-1;COLLECT..WOBBHEADER-1;HEADER..
WO0;DUMMY FUER BEFEHL 32..WOBBRENAME-1;R
ENAME..WOBBSCRATCH-1;SCRATCH..WOBBINITIA
L-1;INITIALISE..WOBBSETDATNR-1;SETDATNR.
.WOBBPAUSE-1;PAUSE..WOBBSETTIME-1;SETCLO
CK..WOBBSETEOL-1;SETEOL..WOBBLINEINPUT-1
;LINEINPUT..WOBBLINEINDEV-1;LINEINPUT#..
WOBBDRAWMODE-1;DRAWMODE..WOBBBORDER-1;BO
RDER..WOBBINK-1;INK..WOBBPAPER-1;PAPER..
WOBBPENCIL-1;PENCIL..WOBBGRAFON-1;GRAFON
..WOBBGRAFOFF-1;GRAFOFF..WOBBGRAFCLR-1;G
RAFCLR..WOBBMULTION-1;MULTION..WOBBMOVER
-1;MOVER..WOBBMOVE-1;MOVE..WOBBPLOTR-1;P
LOTR..WOBBPLOT-1;PLOT..WOBBLINER-1;LINER
..WOBBLINE-1;LINE..WOBBFRAME-1;FRAME..WO
BBBOX-1;BOX..WOBBCIRCLE-1;CIRCLE..WOBBAN
GLE-1;ANGLE..WOBBCOLBLOCK-1;COLBLOCK..WO
BBBLOCK-1;BLOCK..WOBBMERGE-1;MERGE..WOBB
BSAVE-1;BSAVE..WOBBBLOAD-1;BLOAD..WOBBGS
AVE-1;GSAVE..WOBBGLOADA-1;GLOADA..WOBBGL
OADO-1;GLOADO..WOBBGLOADX-1;GLOADX..WOBB
GLOAD-1;GLOAD..WOBBHRDCPY-1;HRDCPY..WOBB
RENUM-1;RENUM..WOBBALSO-1;ALSO..WOBBELSE
-1;ELSE..WOBBBMOVE-1;BMOVE. .RESERVE3:.E
Q297+BEFEHLE-RESERVE3..DBRESERVE3..TX"RE
SERVE FUER BEFEHLE (TAB ):"..OORESERVE3.
..FI"XB/S 1.2"..AR
> CLICK IMAGE PREVIEW FOR FULL MODAL