VDC-ERW.SRC
FILE INFORMATION
FILENAME(S): VDC-ERW.SRC
FILE TYPE(S): PRG
FILE SIZE: 12.5K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 2 disk(s)
FILE HASH
648f6662b2ba9613e19c22a25fcfa932ad8ba2cae1ecb00ce7289f9e7a465348
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15829 SEITE A | VDC-ERW.SRC | PRG | C64er | 6 | 5 | DOWNLOAD FILE |
| 15829 SEITE A | VDC-ERW.SRC | PRG | DuncanTwain | 6 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 4E 62 64 00 3B D4 CF D0 2A 2A 2A 2A 2A 2A |.bNbd.;...******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 00 8D 62 6E 00 3B 20 D0 D2 CF C7 D2 C1 CD CD CE |..bn.; .........|
00000050: C1 CD C5 3A 20 20 20 20 20 20 20 C2 41 53 49 43 |...: .ASIC|
00000060: 45 52 57 45 49 54 45 52 55 4E 47 2E 2E 2E 2E 2E |ERWEITERUNG.....|
00000070: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 |............. *.|
00000080: CC 62 78 00 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.bx.; ==========|
00000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 2A 00 0B |============ *..|
000000C0: 63 82 00 3B 20 D0 D2 CF C7 D2 C1 CD CD C9 C5 D2 |c..; ...........|
000000D0: D3 D0 D2 C1 C3 C8 C5 3A 20 C1 53 53 45 4D 42 4C |.......: .SSEMBL|
000000E0: 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ER..............|
000000F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 4A 63 |........... *.Jc|
00000100: 8C 00 3B 20 D0 D2 CF C7 D2 C1 CD CD C9 C5 D2 C5 |..; ............|
00000110: D2 3A 20 20 20 20 20 20 C3 4C 41 55 53 20 C7 BC |.: .LAUS ..|
00000120: 54 54 49 4E 47 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |TTING...........|
00000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 89 63 96 |.......... *..c.|
00000140: 00 3B 20 C4 C1 D4 D5 CD 3A 20 20 20 20 20 20 20 |.; .....: |
00000150: 20 20 20 20 20 20 20 32 37 2E 31 32 2E 31 39 38 | 27.12.198|
00000160: 37 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |7...............|
00000170: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 C8 63 A0 00 |......... *..c..|
00000180: 3B 20 CE C5 D5 C5 20 C2 C5 C6 C5 C8 CC C5 3A 20 |; .... .......: |
00000190: 20 20 20 20 20 20 D4 D3 C1 D6 C5 2F D4 CC CF C1 | ...../....|
000001A0: C4 2C C7 D3 C1 D6 C5 2F C7 CC CF C1 C4 2E 2E 2E |.,...../........|
000001B0: 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 07 64 AA 00 3B |........ *..d..;|
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 DA D3 C1 D6 C5 2F DA CC CF C1 C4 | ...../.....|
000001E0: 2C C1 D3 C1 D6 C5 2F C1 CC CF C1 C4 2E 2E 2E 2E |,...../.........|
000001F0: 2E 2E 2E 2E 2E 2E 2E 20 2A 00 46 64 B4 00 3B 20 |....... *.Fd..; |
00000200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000220: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000230: 3D 3D 3D 3D 3D 3D 20 2A 00 85 64 BE 00 3B C2 CF |====== *..d..;..|
00000240: D4 D4 CF CD 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 00 8B 64 C8 00 3B 00 9C 64 |*******..d..;..d|
00000280: D2 00 2E 93 22 54 45 53 54 2C 50 2C 57 22 00 A9 |...."TEST,P,W"..|
00000290: 64 DC 00 20 2E 90 24 32 30 30 30 00 D9 64 E6 00 |d.. ..$2000..d..|
000002A0: 20 2E A9 31 2C 24 32 30 30 30 3B 20 C3 4F 44 45 | ..1,$2000; .ODE|
000002B0: 53 54 41 52 54 20 46 BD 52 20 C1 D3 C5 2D C1 53 |START F.R ...-.S|
000002C0: 53 45 4D 42 4C 49 45 52 55 4E 47 00 DF 64 F0 00 |SEMBLIERUNG..d..|
000002D0: 3B 00 0F 65 FA 00 2E 8F 49 45 53 43 4C 4B 3D 24 |;..e....IESCLK=$|
000002E0: 33 30 43 3B 20 20 D6 45 43 54 4F 52 3A 20 D5 4D |30C; .ECTOR: .M|
000002F0: 57 41 4E 44 4C 55 4E 47 20 49 4E 20 D4 4F 4B 45 |WANDLUNG IN .OKE|
00000300: 4E 00 36 65 04 01 2E 8F 4F 4C 44 49 4C 4B 3D 24 |N.6e....OLDILK=$|
00000310: 34 33 32 31 3B 20 41 4C 54 45 52 20 D6 45 43 54 |4321; ALTER .ECT|
00000320: 4F 52 49 4E 48 41 4C 54 00 5F 65 0E 01 2E 8F 53 |ORINHALT._e....S|
00000330: 45 41 52 43 48 3D 24 34 33 45 32 3B 20 C2 45 46 |EARCH=$43E2; .EF|
00000340: 45 48 4C 53 57 4F 52 54 45 52 4B 45 4E 4E 55 4E |EHLSWORTERKENNUN|
00000350: 47 00 94 65 18 01 2E 8F 49 45 53 43 50 52 3D 24 |G..e....IESCPR=$|
00000360: 33 30 45 3B 20 20 D6 45 4B 54 4F 52 3A 20 D5 4D |30E; .EKTOR: .M|
00000370: 57 41 4E 44 4C 55 4E 47 20 D4 4F 4B 45 4E 20 49 |WANDLUNG .OKEN I|
00000380: 4E 20 D4 45 58 54 00 BB 65 22 01 2E 8F 4F 4C 44 |N .EXT..e"...OLD|
00000390: 49 50 52 3D 24 35 31 43 44 3B 20 41 4C 54 45 52 |IPR=$51CD; ALTER|
000003A0: 20 D6 45 4B 54 4F 52 49 4E 48 41 4C 54 00 E3 65 | .EKTORINHALT..e|
000003B0: 2C 01 2E 8F 55 53 54 4C 53 54 3D 24 35 31 36 41 |,...USTLST=$516A|
000003C0: 3B 20 CC 49 53 54 45 4E 20 45 49 4E 45 53 20 D4 |; .ISTEN EINES .|
000003D0: 4F 4B 45 4E 53 00 10 66 36 01 2E 8F 49 45 53 43 |OKENS..f6...IESC|
000003E0: 45 58 3D 24 33 31 30 3B 20 20 D6 45 4B 54 4F 52 |EX=$310; .EKTOR|
000003F0: 3A 20 C2 45 46 45 48 4C 20 41 55 53 46 BD 48 52 |: .EFEHL AUSF.HR|
00000400: 45 4E 00 37 66 40 01 2E 8F 4F 4C 44 49 45 58 3D |EN.7f@...OLDIEX=|
00000410: 24 34 42 41 39 3B 20 41 4C 54 45 52 20 D6 45 4B |$4BA9; ALTER .EK|
00000420: 54 4F 52 49 4E 48 41 4C 54 00 71 66 4A 01 2E 8F |TORINHALT.qfJ...|
00000430: 5A 45 49 47 45 52 3D 24 46 45 3B 20 20 20 DA 57 |ZEIGER=$FE; .W|
00000440: 45 49 2D C2 59 54 45 5A 45 49 47 45 52 20 46 BD |EI-.YTEZEIGER F.|
00000450: 52 20 D2 BD 43 4B 53 50 52 55 4E 47 41 44 52 45 |R ..CKSPRUNGADRE|
00000460: 53 53 45 00 AA 66 54 01 2E 8F 4F 46 46 3D 24 34 |SSE..fT...OFF=$4|
00000470: 32 35 31 3B 20 4F 46 46 3D 53 45 54 56 45 43 20 |251; OFF=SETVEC |
00000480: 3A 20 D3 45 54 5A 54 20 41 4C 4C 45 20 D6 45 43 |: .ETZT ALLE .EC|
00000490: 54 4F 52 45 4E 20 5A 55 52 BD 43 4B 00 E9 66 5E |TOREN ZUR.CK..f^|
000004A0: 01 2E 8F 53 45 54 50 41 52 3D 24 46 46 42 41 3B |...SETPAR=$FFBA;|
000004B0: 20 CC 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 | .OGISCHE .ILENU|
000004C0: 4D 4D 45 52 2C C7 45 52 BB 54 2C D3 45 4B 2E 2D |MMER,.ER.T,.EK.-|
000004D0: C1 44 52 2E 20 53 45 54 5A 45 4E 00 19 67 68 01 |.DR. SETZEN..gh.|
000004E0: 2E 8F 53 45 54 4E 41 4D 3D 24 46 46 42 44 3B 20 |..SETNAM=$FFBD; |
000004F0: C6 49 4C 45 2D CE 41 4D 45 4E 2D D0 41 52 41 4D |.ILE-.AMEN-.ARAM|
00000500: 45 54 45 52 20 53 45 54 5A 45 4E 00 50 67 72 01 |ETER SETZEN.Pgr.|
00000510: 2E 8F 53 45 54 42 4E 4B 3D 24 46 46 36 38 3B 20 |..SETBNK=$FF68; |
00000520: C2 BB 4E 4B 45 20 46 BD 52 20 CC D3 D6 20 55 4E |..NKE F.R ... UN|
00000530: 44 20 C6 49 4C 45 4E 41 4D 45 4E 20 53 45 54 5A |D .ILENAMEN SETZ|
00000540: 45 4E 00 8A 67 7C 01 2E 8F 59 52 45 47 3D 24 30 |EN..g|...YREG=$0|
00000550: 38 3B 20 20 20 D9 2D D2 45 47 49 53 54 45 52 20 |8; .-.EGISTER |
00000560: 41 4C 53 20 DA BB 48 4C 45 52 20 46 BD 52 20 C2 |ALS ..HLER F.R .|
00000570: 45 52 45 49 43 48 2D CC BB 4E 47 45 00 A8 67 86 |EREICH-..NGE..g.|
00000580: 01 2E 8F 4F 50 45 4E 3D 24 46 46 43 30 3B 20 C6 |...OPEN=$FFC0; .|
00000590: 49 4C 45 20 BC 46 46 4E 45 4E 00 CA 67 90 01 2E |ILE .FFNEN..g...|
000005A0: 8F 43 4C 4F 53 45 3D 24 46 46 43 33 3B 20 C6 49 |.CLOSE=$FFC3; .I|
000005B0: 4C 45 20 53 43 48 4C 49 45 BE 45 4E 00 F4 67 9A |LE SCHLIE.EN..g.|
000005C0: 01 2E 8F 43 4B 4F 55 54 3D 24 46 46 43 39 3B 20 |...CKOUT=$FFC9; |
000005D0: C1 55 53 47 41 42 45 20 41 55 46 20 C6 49 4C 45 |.USGABE AUF .ILE|
000005E0: 20 4C 45 47 45 4E 00 1E 68 A4 01 2E 8F 43 48 4B | LEGEN..h....CHK|
000005F0: 49 4E 3D 24 46 46 43 36 3B 20 C5 49 4E 47 41 42 |IN=$FFC6; .INGAB|
00000600: 45 20 41 55 46 20 C6 49 4C 45 20 4C 45 47 45 4E |E AUF .ILE LEGEN|
00000610: 00 4A 68 AE 01 2E 8F 43 4C 52 43 48 3D 24 46 46 |.Jh....CLRCH=$FF|
00000620: 43 43 3B 20 C5 49 4E 2D 2F C1 55 53 47 41 42 45 |CC; .IN-/.USGABE|
00000630: 20 41 55 46 20 C4 45 46 41 55 4C 54 00 7C 68 B8 | AUF .EFAULT.|h.|
00000640: 01 2E 8F 52 45 47 53 45 54 3D 24 43 44 43 43 3B |...REGSET=$CDCC;|
00000650: 20 49 4E 20 C1 20 D7 45 52 54 2C 49 4E 20 D8 20 | IN . .ERT,IN . |
00000660: D2 45 47 49 53 54 45 52 4E 55 4D 4D 45 52 00 BB |.EGISTERNUMMER..|
00000670: 68 C2 01 2E 8F 52 45 47 52 45 44 3D 24 43 44 44 |h....REGRED=$CDD|
00000680: 38 3B 20 49 4E 20 D8 20 D2 45 47 49 53 54 45 52 |8; IN . .EGISTER|
00000690: 4E 55 4D 4D 45 52 2C 42 45 49 20 D2 BD 43 4B 4B |NUMMER,BEI ..CKK|
000006A0: 45 48 52 20 49 4E 20 C1 20 D7 45 52 54 00 F5 68 |EHR IN . .ERT..h|
000006B0: CC 01 2E 8F 42 53 4F 55 54 3D 24 46 46 44 32 3B |....BSOUT=$FFD2;|
000006C0: 20 DA 45 49 43 48 45 4E 20 41 55 46 20 41 4B 54 | .EICHEN AUF AKT|
000006D0: 2E 20 C1 55 53 47 41 42 45 47 45 52 BB 54 20 41 |. .USGABEGER.T A|
000006E0: 55 53 47 45 42 45 4E 00 2C 69 D6 01 2E 8F 42 41 |USGEBEN.,i....BA|
000006F0: 53 49 4E 3D 24 46 46 43 46 3B 20 DA 45 49 43 48 |SIN=$FFCF; .EICH|
00000700: 45 4E 20 56 4F 4D 20 41 4B 54 2E 20 C5 49 4E 47 |EN VOM AKT. .ING|
00000710: 41 42 45 47 45 52 BB 54 20 48 4F 4C 45 4E 00 53 |ABEGER.T HOLEN.S|
00000720: 69 E0 01 2E 8F 43 52 3D 24 46 46 30 30 3B 20 CB |i....CR=$FF00; .|
00000730: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 53 52 45 47 |ONFIGURATIONSREG|
00000740: 49 53 54 45 52 00 83 69 EA 01 2E 8F 44 4F 53 46 |ISTER..i....DOSF|
00000750: 31 4C 3D 24 31 31 31 3B 20 20 CC BB 4E 47 45 20 |1L=$111; ..NGE |
00000760: 44 45 53 20 45 52 53 54 45 4E 20 C6 49 4C 45 4E |DES ERSTEN .ILEN|
00000770: 41 4D 45 4E 53 00 A3 69 F4 01 2E 8F 44 4F 53 46 |AMENS..i....DOSF|
00000780: 41 3D 24 31 31 43 3B 20 20 C7 45 52 BB 54 45 4E |A=$11C; .ER.TEN|
00000790: 55 4D 4D 45 52 00 C7 69 FE 01 2E 8F 56 45 52 43 |UMMER..i....VERC|
000007A0: 4B 3D 24 30 43 3B 20 20 20 CC 4F 41 44 2F D6 45 |K=$0C; .OAD/.E|
000007B0: 52 49 46 59 2D C6 4C 41 47 00 F9 69 08 02 2E 8F |RIFY-.LAG..i....|
000007C0: 44 4F 53 50 41 52 3D 24 41 33 43 33 3B 20 D0 41 |DOSPAR=$A3C3; .A|
000007D0: 52 41 4D 45 54 45 52 20 46 BD 52 20 CC 4F 41 44 |RAMETER F.R .OAD|
000007E0: 20 45 54 43 2E 20 48 4F 4C 45 4E 00 2A 6A 12 02 | ETC. HOLEN.*j..|
000007F0: 2E 8F 53 59 4E 54 41 58 31 3D 24 38 30 3B 20 20 |..SYNTAX1=$80; |
00000800: 20 D3 59 4E 54 41 58 2D C3 48 45 43 4B 42 59 54 | .YNTAX-.HECKBYT|
00000810: 45 20 56 4F 4E 20 C4 CF D3 D0 C1 D2 00 56 6A 1C |E VON .......Vj.|
00000820: 02 2E 8F 4D 49 53 54 41 4B 45 3D 24 34 44 33 46 |...MISTAKE=$4D3F|
00000830: 3B 20 C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 |; .EHLERMELDUNG |
00000840: 41 55 53 47 45 42 45 4E 00 83 6A 26 02 2E 8F 43 |AUSGEBEN..j&...C|
00000850: 4F 4D 43 50 4C 3D 24 41 36 36 37 3B 20 CB 4F 4D |OMCPL=$A667; .OM|
00000860: 4D 41 4E 44 4F 2D D3 54 52 49 4E 47 20 45 52 5A |MANDO-.TRING ERZ|
00000870: 45 55 47 45 4E 00 C0 6A 30 02 2E 8F 44 4F 53 53 |EUGEN..j0...DOSS|
00000880: 54 52 3D 24 31 31 30 30 3B 20 C1 44 52 45 53 53 |TR=$1100; .DRESS|
00000890: 45 20 44 45 53 20 56 4F 4E 20 C3 CF CD C3 D0 CC |E DES VON ......|
000008A0: 20 45 52 5A 45 55 47 54 45 4E 20 D3 54 52 49 4E | ERZEUGTEN .TRIN|
000008B0: 47 53 00 F5 6A 3A 02 2E 8F 53 45 43 54 4C 4B 3D |GS..j:...SECTLK=|
000008C0: 24 46 46 39 36 3B 20 D3 45 4B 55 4E 44 BB 52 41 |$FF96; .EKUND.RA|
000008D0: 44 52 45 53 53 45 20 4E 41 43 48 20 D4 C1 CC CB |DRESSE NACH ....|
000008E0: 20 53 45 4E 44 45 4E 00 22 6B 44 02 2E 8F 49 45 | SENDEN."kD...IE|
000008F0: 43 49 4E 3D 24 46 46 41 35 3B 20 DA 45 49 43 48 |CIN=$FFA5; .EICH|
00000900: 45 4E 20 56 4F 4D 20 C9 C5 C3 2D C2 55 53 20 48 |EN VOM ...-.US H|
00000910: 4F 4C 45 4E 00 46 6B 4E 02 2E 8F 53 54 41 54 55 |OLEN.FkN...STATU|
00000920: 53 3D 24 39 30 3B 20 20 20 C9 C5 C3 2D D3 54 41 |S=$90; ...-.TA|
00000930: 54 55 53 2D C2 59 54 45 00 64 6B 58 02 2E 8F 54 |TUS-.YTE.dkX...T|
00000940: 41 4C 4B 3D 24 46 46 42 34 3B 20 D4 41 4C 4B 20 |ALK=$FFB4; .ALK |
00000950: 53 45 4E 44 45 4E 00 86 6B 62 02 2E 8F 55 4E 54 |SENDEN..kb...UNT|
00000960: 41 4C 4B 3D 24 46 46 41 42 3B 20 D5 4E 54 41 4C |ALK=$FFAB; .NTAL|
00000970: 4B 20 53 45 4E 44 45 4E 00 BC 6B 6C 02 2E 8F 42 |K SENDEN..kl...B|
00000980: 55 46 46 45 52 3D 24 42 30 30 3B 20 20 DA 57 49 |UFFER=$B00; .WI|
00000990: 53 43 48 45 4E 53 50 45 49 43 48 45 52 20 46 BD |SCHENSPEICHER F.|
000009A0: 52 20 C6 45 48 4C 45 52 53 54 52 49 4E 47 00 F2 |R .EHLERSTRING..|
000009B0: 6B 76 02 2E 8F 44 53 44 41 44 52 3D 24 37 42 3B |kv...DSDADR=$7B;|
000009C0: 20 20 20 C1 44 52 45 53 53 45 20 56 4F 4E 20 C4 | .DRESSE VON .|
000009D0: D3 24 20 49 4D 20 D3 54 52 49 4E 47 2D C2 45 52 |.$ IM .TRING-.ER|
000009E0: 45 49 43 48 00 14 6C 80 02 2E 8F 44 53 44 4C 45 |EICH..l....DSDLE|
000009F0: 4E 3D 24 37 41 3B 20 20 20 CC BB 4E 47 45 20 56 |N=$7A; ..NGE V|
00000A00: 4F 4E 20 C4 D3 24 00 52 6C 8A 02 2E 8F 46 52 45 |ON ..$.Rl....FRE|
00000A10: 54 4F 50 3D 24 33 35 3B 20 20 20 DA 45 49 47 45 |TOP=$35; .EIGE|
00000A20: 52 20 41 55 46 20 44 45 4E 20 D3 54 41 52 54 20 |R AUF DEN .TART |
00000A30: 44 45 53 20 D3 54 52 49 4E 47 2D D3 50 45 49 43 |DES .TRING-.PEIC|
00000A40: 48 45 52 53 00 82 6C 94 02 2E 8F 53 54 41 53 48 |HERS..l....STASH|
00000A50: 3D 24 32 41 46 3B 20 20 49 4E 20 C1 20 D7 45 52 |=$2AF; IN . .ER|
00000A60: 54 2C 49 4E 20 D8 20 CB 4F 4E 46 49 47 55 52 41 |T,IN . .ONFIGURA|
00000A70: 54 49 4F 4E 00 B8 6C 9E 02 2E 8F 53 54 41 56 45 |TION..l....STAVE|
00000A80: 43 3D 24 32 42 39 3B 20 20 49 4E 20 D3 D4 C1 D6 |C=$2B9; IN ....|
00000A90: C5 C3 20 C1 44 52 45 53 53 45 20 56 4F 4E 20 42 |.. .DRESSE VON B|
00000AA0: 45 4C 2E 20 DA 45 49 47 45 52 00 D7 6C A8 02 2E |EL. .EIGER..l...|
00000AB0: 8F 4C 45 4E 3D 24 46 41 3B 20 20 20 CC BB 4E 47 |.LEN=$FA; ..NG|
00000AC0: 45 20 56 4F 4E 20 C4 D3 24 00 DD 6C B2 02 3B 00 |E VON ..$..l..;.|
00000AD0: 10 6D BC 02 53 54 41 52 54 20 81 23 3C 28 4F 57 |.m..START .#<(OW|
00000AE0: 4E 4C 4B 29 3B 20 D6 45 4B 54 4F 52 45 4E 20 41 |NLK); .EKTOREN A|
00000AF0: 55 46 20 45 49 47 45 4E 45 20 D2 4F 55 54 49 4E |UF EIGENE .OUTIN|
00000B00: 45 4E 00 29 6D C6 02 20 83 23 3E 28 4F 57 4E 4C |EN.)m.. .#>(OWNL|
00000B10: 4B 29 3B 20 52 49 43 48 54 45 4E 00 36 6D D0 02 |K); RICHTEN.6m..|
00000B20: 20 82 49 45 53 43 4C 4B 00 45 6D DA 02 20 88 49 | .IESCLK.Em.. .I|
00000B30: 45 53 43 4C 4B 2B 31 00 55 6D E4 02 20 81 23 3C |ESCLK+1.Um.. .#<|
00000B40: 28 4F 57 4E 50 52 29 00 65 6D EE 02 20 83 23 3E |(OWNPR).em.. .#>|
00000B50: 28 4F 57 4E 50 52 29 00 72 6D F8 02 20 82 49 45 |(OWNPR).rm.. .IE|
00000B60: 53 43 50 52 00 81 6D 02 03 20 88 49 45 53 43 50 |SCPR..m.. .IESCP|
00000B70: 52 2B 31 00 90 6D 0C 03 20 81 23 3C 28 45 58 45 |R+1..m.. .#<(EXE|
00000B80: 43 29 00 9F 6D 16 03 20 83 23 3E 28 45 58 45 43 |C)..m.. .#>(EXEC|
00000B90: 29 00 AC 6D 20 03 20 82 49 45 53 43 45 58 00 BB |)..m . .IESCEX..|
00000BA0: 6D 2A 03 20 88 49 45 53 43 45 58 2B 31 00 C2 6D |m*. .IESCEX+1..m|
00000BB0: 34 03 20 A4 00 C8 6D 3E 03 3B 00 CE 6D 48 03 3B |4. ...m>.;..mH.;|
00000BC0: 00 D4 6D 52 03 3B 00 F8 6D 5C 03 4F 57 4E 4C 4B |..mR.;..m\.OWNLK|
00000BD0: 20 99 3B 20 4C 45 54 5A 54 45 53 20 DA 45 49 43 | .; LETZTES .EIC|
00000BE0: 48 45 4E 20 52 45 54 54 45 4E 00 23 6E 66 03 20 |HEN RETTEN.#nf. |
00000BF0: 81 23 3E 28 54 41 42 29 3B 20 D3 54 41 52 54 41 |.#>(TAB); .TARTA|
00000C00: 44 52 45 53 53 45 20 44 45 52 20 D4 41 42 45 4C |DRESSE DER .ABEL|
00000C10: 4C 45 20 41 4E 00 44 6E 70 03 20 84 23 3C 28 54 |LE AN.Dnp. .#<(T|
00000C20: 41 42 29 3B 20 D3 C5 C1 C5 D2 C3 C8 20 BD 42 45 |AB); ....... .BE|
00000C30: 52 47 45 42 45 4E 00 62 6E 7A 03 20 97 53 45 41 |RGEBEN.bnz. .SEA|
00000C40: 52 43 48 3B 20 CB 45 59 2D D7 4F 52 54 20 53 55 |RCH; .EY-.ORT SU|
00000C50: 43 48 45 4E 00 87 6E 84 03 20 B1 4E 46 4F 55 4E |CHEN..n.. .NFOUN|
00000C60: 44 3B 20 D0 4C 55 53 3A 20 4E 49 43 48 54 20 49 |D; .LUS: NICHT I|
00000C70: 4E 20 D4 41 42 45 4C 4C 45 00 B9 6E 8E 03 20 87 |N .ABELLE..n.. .|
00000C80: 23 25 30 31 31 31 27 31 31 31 31 3B 20 44 52 49 |#%0111'1111; DRI|
00000C90: 4E 3A 20 C2 49 54 20 37 20 44 45 52 20 CE 55 4D |N: .IT 7 DER .UM|
00000CA0: 4D 45 52 20 4C BC 53 43 48 45 4E 00 DA 6E 98 03 |MER L.SCHEN..n..|
00000CB0: 20 A6 3B 20 C3 41 52 52 59 20 43 4C 45 41 52 20 | .; .ARRY CLEAR |
00000CC0: 46 BD 52 20 C1 44 44 49 54 49 4F 4E 00 FE 6E A2 |F.R .DDITION..n.|
00000CD0: 03 20 86 23 24 32 37 3B 20 CE 55 4D 4D 45 52 20 |. .#$27; .UMMER |
00000CE0: 49 4E 20 D4 41 42 45 4C 4C 45 20 2B 20 24 32 37 |IN .ABELLE + $27|
00000CF0: 00 1C 6F AC 03 20 83 23 30 3B 20 C6 4C 41 47 20 |..o.. .#0; .LAG |
00000D00: 46 BD 52 20 D0 52 BB 46 49 58 20 24 46 45 00 30 |F.R .R.FIX $FE.0|
00000D10: 6F B6 03 20 B8 42 41 43 4B 3B 20 49 4D 4D 45 52 |o.. .BACK; IMMER|
00000D20: 20 21 00 36 6F C0 03 3B 00 5C 6F CA 03 4E 46 4F | !.6o..;.\o..NFO|
00000D30: 55 4E 44 20 A7 3B 20 C6 4C 41 47 20 46 BD 52 20 |UND .; .LAG F.R |
00000D40: 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 00 75 |NICHT GEFUNDEN.u|
00000D50: 6F D4 03 20 98 3B 20 C1 4B 4B 55 20 5A 55 52 BD |o.. .; .KKU ZUR.|
00000D60: 43 4B 48 4F 4C 45 4E 00 86 6F DE 03 42 41 43 4B |CKHOLEN..o..BACK|
00000D70: 20 96 4F 4C 44 49 4C 4B 00 8C 6F E8 03 3B 00 92 | .OLDILK..o..;..|
00000D80: 6F F2 03 3B 00 98 6F FC 03 3B 00 C6 6F 06 04 4F |o..;..o..;..o..O|
00000D90: 57 4E 50 52 20 8B 23 24 46 46 3B 20 C6 4C 41 47 |WNPR .#$FF; .LAG|
00000DA0: 20 46 BD 52 20 D0 52 BB 46 49 58 20 24 43 45 20 | F.R .R.FIX $CE |
00000DB0: 47 45 53 45 54 5A 54 3F 00 E1 6F 10 04 20 B8 4E |GESETZT?..o.. .N|
00000DC0: 4F 54 3B 20 4A 41 3A 20 4B 45 49 4E 20 CC 49 53 |OT; JA: KEIN .IS|
00000DD0: 54 45 4E 00 0A 70 1A 04 20 85 23 24 32 37 3B 20 |TEN..p.. .#$27; |
00000DE0: 32 2E 20 D4 4F 4B 45 4E 42 59 54 45 20 4B 4C 45 |2. .OKENBYTE KLE|
00000DF0: 49 4E 45 52 20 41 4C 53 20 24 32 37 00 26 70 24 |INER ALS $27.&p$|
00000E00: 04 20 B5 4E 4F 54 3B 20 4A 41 3A 20 4E 49 43 48 |. .NOT; JA: NICH|
00000E10: 54 20 CC 49 53 54 45 4E 00 45 70 2E 04 20 85 23 |T .ISTEN.Ep.. .#|
00000E20: 24 33 30 3B 20 32 2E 20 C2 59 54 45 20 47 52 BC |$30; 2. .YTE GR.|
00000E30: BE 45 52 20 24 32 46 00 61 70 38 04 20 B6 4E 4F |.ER $2F.ap8. .NO|
00000E40: 54 3B 20 4A 41 3A 20 4E 49 43 48 54 20 CC 49 53 |T; JA: NICHT .IS|
00000E50: 54 45 4E 00 76 70 42 04 20 A7 3B 20 C3 41 52 52 |TEN.vpB. .; .ARR|
00000E60: 59 20 53 45 54 5A 45 4E 00 7C 70 4C 04 3B 00 99 |Y SETZEN.|pL.;..|
00000E70: 70 56 04 20 92 23 24 32 37 3B 20 53 4F 4E 53 54 |pV. .#$27; SONST|
00000E80: 20 24 32 37 20 53 55 42 54 52 2E 00 BA 70 60 04 | $27 SUBTR...p`.|
00000E90: 20 8F 23 25 31 30 30 30 27 30 30 30 30 3B 20 37 | .#%1000'0000; 7|
00000EA0: 2E 20 C2 49 54 20 53 45 54 5A 45 4E 00 D1 70 6A |. .IT SETZEN..pj|
00000EB0: 04 20 99 3B 20 49 4E 20 D8 20 BD 42 45 52 47 45 |. .; IN . .BERGE|
00000EC0: 42 45 4E 00 F9 70 74 04 20 81 23 3E 28 54 41 42 |BEN..pt. .#>(TAB|
00000ED0: 29 3B 20 D3 54 41 52 54 41 44 52 45 53 53 45 20 |); .TARTADRESSE |
00000EE0: 44 45 52 20 D4 41 42 45 4C 4C 45 00 12 71 7E 04 |DER .ABELLE..q~.|
00000EF0: 20 84 23 3C 28 54 41 42 29 3B 20 BD 42 45 52 47 | .#<(TAB); .BERG|
00000F00: 45 42 45 4E 00 33 71 88 04 20 96 55 53 54 4C 53 |EBEN.3q.. .USTLS|
00000F10: 54 3B 20 C2 45 46 45 48 4C 53 57 4F 52 54 20 4C |T; .EFEHLSWORT L|
00000F20: 49 53 54 45 4E 00 39 71 92 04 3B 00 65 71 9C 04 |ISTEN.9q..;.eq..|
00000F30: 4E 4F 54 20 A7 3B 20 C6 4C 41 47 3A 20 4B 45 49 |NOT .; .LAG: KEI|
00000F40: 4E 45 20 C1 55 53 47 2E 20 44 55 52 43 48 20 C9 |NE .USG. DURCH .|
00000F50: 4E 54 45 52 50 52 2E 00 8B 71 A6 04 20 96 4F 4C |NTERPR...q.. .OL|
00000F60: 44 49 50 52 3B 20 5A 55 52 BD 43 4B 20 5A 55 52 |DIPR; ZUR.CK ZUR|
00000F70: 20 CC C9 D3 D4 2D D2 4F 55 54 49 4E 45 00 91 71 | ....-.OUTINE..q|
00000F80: B0 04 3B 00 BB 71 BA 04 45 58 45 43 20 85 23 24 |..;..q..EXEC .#$|
00000F90: 32 37 3B 20 32 2E 20 D4 4F 4B 45 4E 42 59 54 45 |27; 2. .OKENBYTE|
00000FA0: 20 4B 4C 45 49 4E 45 52 20 24 32 37 3F 00 D8 71 | KLEINER $27?..q|
00000FB0: C4 04 20 B5 4E 4F 42 45 46 3B 20 4A 41 3A 20 4B |.. .NOBEF; JA: K|
00000FC0: 45 49 4E 20 C2 45 46 45 48 4C 00 F8 71 CE 04 20 |EIN .EFEHL..q.. |
00000FD0: 85 23 24 33 30 3B 20 32 2E 20 C2 59 54 45 20 47 |.#$30; 2. .YTE G|
00000FE0: 52 BC BE 45 52 20 24 32 46 3F 00 15 72 D8 04 20 |R..ER $2F?..r.. |
00000FF0: B6 4E 4F 42 45 46 3B 20 4A 41 3A 20 4B 45 49 4E |.NOBEF; JA: KEIN|
00001000: 20 C2 45 46 45 48 4C 00 37 72 E2 04 20 A7 3B 20 | .EFEHL.7r.. .; |
00001010: C3 41 52 52 59 20 3D 20 31 20 46 BD 52 20 D3 55 |.ARRY = 1 F.R .U|
00001020: 42 54 52 41 43 54 49 4F 4E 00 5C 72 EC 04 20 92 |BTRACTION.\r.. .|
00001030: 23 24 32 37 3B 20 24 32 37 20 53 55 42 54 52 2E |#$27; $27 SUBTR.|
00001040: 3D CE 55 4D 4D 45 52 20 C2 45 46 45 48 4C 00 77 |=.UMMER .EFEHL.w|
00001050: 72 F6 04 20 8C 3B 20 4D 41 4C 20 32 3A 20 30 2C |r.. .; MAL 2: 0,|
00001060: 32 2C 34 2C 36 2C 2E 2E 2E 00 91 72 00 05 20 99 |2,4,6,.....r.. .|
00001070: 3B 20 41 4C 53 20 DA 45 49 47 45 52 20 4E 41 43 |; ALS .EIGER NAC|
00001080: 48 20 D8 00 BC 72 0A 05 20 81 41 44 52 2B 31 2C |H ...r.. .ADR+1,|
00001090: 58 3B 20 C8 49 47 48 42 59 54 45 20 44 45 52 20 |X; .IGHBYTE DER |
000010A0: C2 45 46 45 48 4C 53 41 44 52 45 53 53 45 00 D2 |.EFEHLSADRESSE..|
000010B0: 72 14 05 20 A0 3B 20 41 55 46 20 44 45 4E 20 D3 |r.. .; AUF DEN .|
000010C0: 54 41 43 4B 00 FA 72 1E 05 20 81 41 44 52 2C 58 |TACK..r.. .ADR,X|
000010D0: 3B 20 CC 4F 57 42 59 54 45 20 44 45 52 20 C2 45 |; .OWBYTE DER .E|
000010E0: 46 45 48 4C 53 41 44 52 45 53 53 45 00 10 73 28 |FEHLSADRESSE..s(|
000010F0: 05 20 A0 3B 20 41 55 46 20 44 45 4E 20 D3 54 41 |. .; AUF DEN .TA|
00001100: 43 4B 00 39 73 32 05 20 A6 3B 20 C6 4C 41 47 3A |CK.9s2. .; .LAG:|
00001110: 20 D5 53 45 52 2D C1 44 52 45 53 53 45 20 41 55 | .SER-.DRESSE AU|
00001120: 46 20 44 45 4E 20 D3 54 41 43 4B 00 61 73 3C 05 |F DEN .TACK.as<.|
00001130: 20 2E 91 24 32 34 3B 20 C2 49 54 2D CF 50 43 4F | ..$24; .IT-.PCO|
00001140: 44 45 3A 20 27 53 45 43 27 20 BD 42 45 52 4C 45 |DE: 'SEC' .BERLE|
00001150: 53 45 4E 00 83 73 46 05 4E 4F 42 45 46 20 A7 3B |SEN..sF.NOBEF .;|
00001160: 20 C6 4C 41 47 3A 20 4B 45 49 4E 20 D5 53 45 52 | .LAG: KEIN .SER|
00001170: 54 4F 4B 45 4E 00 A8 73 50 05 20 96 4F 4C 44 49 |TOKEN..sP. .OLDI|
00001180: 45 58 3B 20 5A 55 4D 20 C9 4E 54 45 52 50 52 45 |EX; ZUM .NTERPRE|
00001190: 54 45 52 20 5A 55 52 BD 43 4B 00 AE 73 5A 05 3B |TER ZUR.CK..sZ.;|
000011A0: 00 BC 73 64 05 3B 20 C2 45 46 45 48 4C 45 00 C2 |..sd.; .EFEHLE..|
000011B0: 73 6E 05 3B 00 C8 73 78 05 3B 00 EF 73 82 05 54 |sn.;..sx.;..s..T|
000011C0: 41 42 20 2E 91 22 47 53 41 56 C5 47 4C 4F 41 C4 |AB .."GSAV.GLOA.|
000011D0: 22 3B 20 C2 45 46 45 48 4C 53 54 41 42 45 4C 4C |"; .EFEHLSTABELL|
000011E0: 45 00 04 74 8C 05 20 2E 91 22 54 53 41 56 C5 54 |E..t.. .."TSAV.T|
000011F0: 4C 4F 41 C4 22 3B 00 19 74 96 05 20 2E 91 22 5A |LOA.";..t.. .."Z|
00001200: 53 41 56 C5 5A 4C 4F 41 C4 22 3B 00 35 74 A0 05 |SAV.ZLOA.";.5t..|
00001210: 20 2E 91 22 41 53 41 56 C5 41 4C 4F 41 C4 22 2C | .."ASAV.ALOA.",|
00001220: 22 4F 46 C6 22 2C 30 00 3B 74 AA 05 3B 00 4D 74 |"OF.",0.;t..;.Mt|
00001230: B4 05 41 44 52 20 2E 92 47 53 41 56 45 2D 31 00 |..ADR ..GSAVE-1.|
00001240: 5C 74 BE 05 20 2E 92 47 4C 4F 41 44 2D 31 00 6B |\t.. ..GLOAD-1.k|
00001250: 74 C8 05 20 2E 92 54 53 41 56 45 2D 31 00 7A 74 |t.. ..TSAVE-1.zt|
00001260: D2 05 20 2E 92 54 4C 4F 41 44 2D 31 00 89 74 DC |.. ..TLOAD-1..t.|
00001270: 05 20 2E 92 5A 53 41 56 45 2D 31 00 98 74 E6 05 |. ..ZSAVE-1..t..|
00001280: 20 2E 92 5A 4C 4F 41 44 2D 31 00 A7 74 F0 05 20 | ..ZLOAD-1..t.. |
00001290: 2E 92 41 53 41 56 45 2D 31 00 B6 74 FA 05 20 2E |..ASAVE-1..t.. .|
000012A0: 92 41 4C 4F 41 44 2D 31 00 C3 74 04 06 20 2E 92 |.ALOAD-1..t.. ..|
000012B0: 4F 46 46 2D 31 00 C9 74 0E 06 3B 00 CF 74 18 06 |OFF-1..t..;..t..|
000012C0: 3B 00 D5 74 22 06 3B 00 F4 74 2C 06 3B 20 D4 53 |;..t".;..t,.; .S|
000012D0: 41 56 45 20 3A 20 D4 45 58 54 20 41 42 53 50 45 |AVE : .EXT ABSPE|
000012E0: 49 43 48 45 52 4E 00 FA 74 36 06 3B 00 1B 75 40 |ICHERN..t6.;..u@|
000012F0: 06 54 53 41 56 45 20 97 4E 41 4D 53 45 54 3B 20 |.TSAVE .NAMSET; |
00001300: CE 41 4D 45 20 45 49 4E 4C 45 53 45 4E 00 34 75 |.AME EINLESEN.4u|
00001310: 4A 06 20 97 5A 55 53 41 54 5A 5F 53 3B 20 CE 41 |J. .ZUSATZ_S; .A|
00001320: 4D 45 2C 53 2C 57 00 3D 75 54 06 20 81 23 30 00 |ME,S,W.=uT. .#0.|
00001330: 57 75 5E 06 20 82 43 52 3B 20 C9 2F CF A0 45 49 |Wu^. .CR; ./..EI|
00001340: 4E 53 43 48 41 4C 54 45 4E 00 80 75 68 06 20 97 |NSCHALTEN..uh. .|
00001350: 4F 45 46 46 4E 45 4E 3B 20 C6 49 4C 45 20 5A 55 |OEFFNEN; .ILE ZU|
00001360: 4D 20 53 43 48 52 45 49 42 45 4E 20 BC 46 46 4E |M SCHREIBEN .FFN|
00001370: 45 4E 00 A6 75 72 06 20 81 23 3C 28 54 53 5F 4F |EN..ur. .#<(TS_O|
00001380: 4B 29 3B 20 C1 44 52 45 53 53 45 20 46 BD 52 20 |K); .DRESSE F.R |
00001390: D2 BD 43 4B 4B 45 48 52 00 CB 75 7C 06 20 83 23 |..CKKEHR..u|. .#|
000013A0: 3E 28 54 53 5F 4F 4B 29 3B 20 49 4E 20 5A 45 49 |>(TS_OK); IN ZEI|
000013B0: 47 45 52 20 53 50 45 49 43 48 45 52 4E 00 D8 75 |GER SPEICHERN..u|
000013C0: 86 06 20 82 5A 45 49 47 45 52 00 E7 75 90 06 20 |.. .ZEIGER..u.. |
000013D0: 88 5A 45 49 47 45 52 2B 31 00 16 76 9A 06 20 96 |.ZEIGER+1..v.. .|
000013E0: 46 45 48 4C 45 52 3F 3B 20 C6 45 48 4C 45 52 20 |FEHLER?; .EHLER |
000013F0: 42 45 49 4D 20 DC 46 46 4E 45 4E 20 41 55 46 47 |BEIM .FFNEN AUFG|
00001400: 45 54 52 45 54 45 4E 3F 00 39 76 A4 06 54 53 5F |ETRETEN?.9v..TS_|
00001410: 4F 4B 20 83 23 31 3B 20 4C 4F 47 49 53 43 48 45 |OK .#1; LOGISCHE|
00001420: 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 58 76 AE 06 | .ILENUMMER.Xv..|
00001430: 20 97 43 4B 4F 55 54 3B 20 C7 45 52 BB 54 20 41 | .CKOUT; .ER.T A|
00001440: 55 46 20 C1 55 53 47 41 42 45 00 5E 76 B8 06 3B |UF .USGABE.^v..;|
00001450: 00 72 76 C2 06 20 81 23 38 3B 20 37 2A 32 35 36 |.rv.. .#8; 7*256|
00001460: 2B 32 30 38 00 8A 76 CC 06 20 82 59 52 45 47 3B |+208..v.. .YREG;|
00001470: 20 3D 32 30 30 30 20 C2 59 54 45 53 00 95 76 D6 | =2000 .YTES..v.|
00001480: 06 20 84 23 32 30 38 00 9B 76 E0 06 3B 00 B6 76 |. .#208..v..;..v|
00001490: EA 06 20 97 53 54 53 45 54 5F 31 3B 20 D3 54 41 |.. .STSET_1; .TA|
000014A0: 52 54 20 42 45 49 20 30 00 E0 76 F4 06 20 96 57 |RT BEI 0..v.. .W|
000014B0: 52 49 54 45 3B 20 C2 59 54 45 53 20 41 55 46 20 |RITE; .YTES AUF |
000014C0: C4 49 53 4B 45 54 54 45 20 53 43 48 52 45 49 42 |.ISKETTE SCHREIB|
000014D0: 45 4E 00 E6 76 FE 06 3B 00 EC 76 08 07 3B 00 F2 |EN..v..;..v..;..|
000014E0: 76 12 07 3B 00 0B 77 1C 07 3B 20 D4 4C 4F 41 44 |v..;..w..; .LOAD|
000014F0: 20 3A 20 D4 45 58 54 20 4C 41 44 45 4E 00 11 77 | : .EXT LADEN..w|
00001500: 26 07 3B 00 37 77 30 07 54 4C 4F 41 44 20 97 4E |&.;.7w0.TLOAD .N|
00001510: 41 4D 53 45 54 3B 20 D0 41 52 41 4D 45 54 45 52 |AMSET; .ARAMETER|
00001520: 20 46 BD 52 20 CE 41 4D 45 00 50 77 3A 07 20 97 | F.R .AME.Pw:. .|
00001530: 5A 55 53 41 54 5A 5F 4C 3B 20 CE 41 4D 45 2C 53 |ZUSATZ_L; .AME,S|
00001540: 2C 52 00 59 77 44 07 20 81 23 30 00 73 77 4E 07 |,R.YwD. .#0.swN.|
00001550: 20 82 43 52 3B 20 C9 2F CF A0 45 49 4E 53 43 48 | .CR; ./..EINSCH|
00001560: 41 4C 54 45 4E 00 9C 77 58 07 20 97 4F 45 46 46 |ALTEN..wX. .OEFF|
00001570: 4E 45 4E 3B 20 C6 49 4C 45 20 5A 55 4D 20 53 43 |NEN; .ILE ZUM SC|
00001580: 48 52 45 49 42 45 4E 20 BC 46 46 4E 45 4E 00 C2 |HREIBEN .FFNEN..|
00001590: 77 62 07 20 81 23 3C 28 54 4C 5F 4F 4B 29 3B 20 |wb. .#<(TL_OK); |
000015A0: C1 44 52 45 53 53 45 20 46 BD 52 20 D2 BD 43 4B |.DRESSE F.R ..CK|
000015B0: 4B 45 48 52 00 DD 77 6C 07 20 83 23 3E 28 54 4C |KEHR..wl. .#>(TL|
000015C0: 5F 4F 4B 29 3B 20 49 4E 20 5A 45 49 47 45 52 00 |_OK); IN ZEIGER.|
000015D0: EA 77 76 07 20 82 5A 45 49 47 45 52 00 F9 77 80 |.wv. .ZEIGER..w.|
000015E0: 07 20 88 5A 45 49 47 45 52 2B 31 00 28 78 8A 07 |. .ZEIGER+1.(x..|
000015F0: 20 96 46 45 48 4C 45 52 3F 3B 20 C6 45 48 4C 45 | .FEHLER?; .EHLE|
00001600: 52 20 42 45 49 4D 20 DC 46 46 4E 45 4E 20 41 55 |R BEIM .FFNEN AU|
00001610: 46 47 45 54 52 45 54 45 4E 3F 00 4B 78 94 07 54 |FGETRETEN?.Kx..T|
00001620: 4C 5F 4F 4B 20 83 23 31 3B 20 4C 4F 47 49 53 43 |L_OK .#1; LOGISC|
00001630: 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 6A 78 |HE .ILENUMMER.jx|
00001640: 9E 07 20 97 43 48 4B 49 4E 3B 20 C7 45 52 BB 54 |.. .CHKIN; .ER.T|
00001650: 20 41 55 46 20 C5 49 4E 47 41 42 45 00 70 78 A8 | AUF .INGABE.px.|
00001660: 07 3B 00 84 78 B2 07 20 81 23 38 3B 20 37 2A 32 |.;..x.. .#8; 7*2|
00001670: 35 36 2B 32 30 38 00 9C 78 BC 07 20 82 59 52 45 |56+208..x.. .YRE|
00001680: 47 3B 20 3D 32 30 30 30 20 C2 59 54 45 53 00 A7 |G; =2000 .YTES..|
00001690: 78 C6 07 20 84 23 32 30 38 00 AD 78 D0 07 3B 00 |x.. .#208..x..;.|
000016A0: C8 78 DA 07 20 97 53 54 53 45 54 5F 31 3B 20 D3 |.x.. .STSET_1; .|
000016B0: 54 41 52 54 20 42 45 49 20 30 00 E0 78 E4 07 20 |TART BEI 0..x.. |
000016C0: 96 52 45 41 44 3B 20 C2 59 54 45 53 20 4C 45 53 |.READ; .YTES LES|
000016D0: 45 4E 00 E6 78 EE 07 3B 00 EC 78 F8 07 3B 00 F2 |EN..x..;..x..;..|
000016E0: 78 02 08 3B 00 13 79 0C 08 3B 20 C7 53 41 56 45 |x..;..y..; .SAVE|
000016F0: 20 3A 20 C7 52 41 46 49 4B 20 41 42 53 50 45 49 | : .RAFIK ABSPEI|
00001700: 43 48 45 52 4E 00 19 79 16 08 3B 00 3A 79 20 08 |CHERN..y..;.:y .|
00001710: 47 53 41 56 45 20 97 4E 41 4D 53 45 54 3B 20 CE |GSAVE .NAMSET; .|
00001720: 41 4D 45 20 45 49 4E 4C 45 53 45 4E 00 53 79 2A |AME EINLESEN.Sy*|
00001730: 08 20 97 5A 55 53 41 54 5A 5F 53 3B 20 CE 41 4D |. .ZUSATZ_S; .AM|
00001740: 45 2C 53 2C 57 00 5C 79 34 08 20 81 23 30 00 76 |E,S,W.\y4. .#0.v|
00001750: 79 3E 08 20 82 43 52 3B 20 C9 2F CF A0 45 49 4E |y>. .CR; ./..EIN|
00001760: 53 43 48 41 4C 54 45 4E 00 9F 79 48 08 20 97 4F |SCHALTEN..yH. .O|
00001770: 45 46 46 4E 45 4E 3B 20 C6 49 4C 45 20 5A 55 4D |EFFNEN; .ILE ZUM|
00001780: 20 53 43 48 52 45 49 42 45 4E 20 BC 46 46 4E 45 | SCHREIBEN .FFNE|
00001790: 4E 00 C5 79 52 08 20 81 23 3C 28 47 53 5F 4F 4B |N..yR. .#<(GS_OK|
000017A0: 29 3B 20 C1 44 52 45 53 53 45 20 46 BD 52 20 D2 |); .DRESSE F.R .|
000017B0: BD 43 4B 4B 45 48 52 00 E0 79 5C 08 20 83 23 3E |.CKKEHR..y\. .#>|
000017C0: 28 47 53 5F 4F 4B 29 3B 20 49 4E 20 5A 45 49 47 |(GS_OK); IN ZEIG|
000017D0: 45 52 00 ED 79 66 08 20 82 5A 45 49 47 45 52 00 |ER..yf. .ZEIGER.|
000017E0: FC 79 70 08 20 88 5A 45 49 47 45 52 2B 31 00 2B |.yp. .ZEIGER+1.+|
000017F0: 7A 7A 08 20 96 46 45 48 4C 45 52 3F 3B 20 C6 45 |zz. .FEHLER?; .E|
00001800: 48 4C 45 52 20 42 45 49 4D 20 DC 46 46 4E 45 4E |HLER BEIM .FFNEN|
00001810: 20 41 55 46 47 45 54 52 45 54 45 4E 3F 00 4E 7A | AUFGETRETEN?.Nz|
00001820: 84 08 47 53 5F 4F 4B 20 83 23 31 3B 20 4C 4F 47 |..GS_OK .#1; LOG|
00001830: 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 52 |ISCHE .ILENUMMER|
00001840: 00 6D 7A 8E 08 20 97 43 4B 4F 55 54 3B 20 C7 45 |.mz.. .CKOUT; .E|
00001850: 52 BB 54 20 41 55 46 20 C1 55 53 47 41 42 45 00 |R.T AUF .USGABE.|
00001860: 73 7A 98 08 3B 00 89 7A A2 08 20 81 23 36 33 3B |sz..;..z.. .#63;|
00001870: 20 36 32 2A 32 35 36 2B 31 32 38 00 A3 7A AC 08 | 62*256+128..z..|
00001880: 20 82 59 52 45 47 3B 20 3D 20 31 36 30 30 30 20 | .YREG; = 16000 |
00001890: C2 59 54 45 53 00 AD 7A B6 08 20 84 23 30 3B 00 |.YTES..z.. .#0;.|
000018A0: B3 7A C0 08 3B 00 CE 7A CA 08 20 97 53 54 53 45 |.z..;..z.. .STSE|
000018B0: 54 5F 31 3B 20 D3 54 41 52 54 20 42 45 49 20 30 |T_1; .TART BEI 0|
000018C0: 00 F8 7A D4 08 20 96 57 52 49 54 45 3B 20 C2 59 |..z.. .WRITE; .Y|
000018D0: 54 45 53 20 41 55 46 20 C4 49 53 4B 45 54 54 45 |TES AUF .ISKETTE|
000018E0: 20 53 43 48 52 45 49 42 45 4E 00 FE 7A DE 08 3B | SCHREIBEN..z..;|
000018F0: 00 04 7B E8 08 3B 00 0A 7B F2 08 3B 00 25 7B FC |..{..;..{..;.%{.|
00001900: 08 3B 20 C7 4C 4F 41 44 20 3A 20 C7 52 41 46 49 |.; .LOAD : .RAFI|
00001910: 4B 20 4C 41 44 45 4E 00 2B 7B 06 09 3B 00 51 7B |K LADEN.+{..;.Q{|
00001920: 10 09 47 4C 4F 41 44 20 97 4E 41 4D 53 45 54 3B |..GLOAD .NAMSET;|
00001930: 20 D0 41 52 41 4D 45 54 45 52 20 46 BD 52 20 CE | .ARAMETER F.R .|
00001940: 41 4D 45 00 6A 7B 1A 09 20 97 5A 55 53 41 54 5A |AME.j{.. .ZUSATZ|
00001950: 5F 4C 3B 20 CE 41 4D 45 2C 53 2C 52 00 73 7B 24 |_L; .AME,S,R.s{$|
00001960: 09 20 81 23 30 00 8D 7B 2E 09 20 82 43 52 3B 20 |. .#0..{.. .CR; |
00001970: C9 2F CF A0 45 49 4E 53 43 48 41 4C 54 45 4E 00 |./..EINSCHALTEN.|
00001980: B6 7B 38 09 20 97 4F 45 46 46 4E 45 4E 3B 20 C6 |.{8. .OEFFNEN; .|
00001990: 49 4C 45 20 5A 55 4D 20 53 43 48 52 45 49 42 45 |ILE ZUM SCHREIBE|
000019A0: 4E 20 BC 46 46 4E 45 4E 00 DC 7B 42 09 20 81 23 |N .FFNEN..{B. .#|
000019B0: 3C 28 47 4C 5F 4F 4B 29 3B 20 C1 44 52 45 53 53 |<(GL_OK); .DRESS|
000019C0: 45 20 46 BD 52 20 D2 BD 43 4B 4B 45 48 52 00 F7 |E F.R ..CKKEHR..|
000019D0: 7B 4C 09 20 83 23 3E 28 47 4C 5F 4F 4B 29 3B 20 |{L. .#>(GL_OK); |
000019E0: 49 4E 20 5A 45 49 47 45 52 00 04 7C 56 09 20 82 |IN ZEIGER..|V. .|
000019F0: 5A 45 49 47 45 52 00 13 7C 60 09 20 88 5A 45 49 |ZEIGER..|`. .ZEI|
00001A00: 47 45 52 2B 31 00 42 7C 6A 09 20 96 46 45 48 4C |GER+1.B|j. .FEHL|
00001A10: 45 52 3F 3B 20 C6 45 48 4C 45 52 20 42 45 49 4D |ER?; .EHLER BEIM|
00001A20: 20 DC 46 46 4E 45 4E 20 41 55 46 47 45 54 52 45 | .FFNEN AUFGETRE|
00001A30: 54 45 4E 3F 00 65 7C 74 09 47 4C 5F 4F 4B 20 83 |TEN?.e|t.GL_OK .|
00001A40: 23 31 3B 20 4C 4F 47 49 53 43 48 45 20 C6 49 4C |#1; LOGISCHE .IL|
00001A50: 45 4E 55 4D 4D 45 52 00 84 7C 7E 09 20 97 43 48 |ENUMMER..|~. .CH|
00001A60: 4B 49 4E 3B 20 C7 45 52 BB 54 20 41 55 46 20 C5 |KIN; .ER.T AUF .|
00001A70: 49 4E 47 41 42 45 00 8A 7C 88 09 3B 00 A0 7C 92 |INGABE..|..;..|.|
00001A80: 09 20 81 23 36 33 3B 20 36 32 2A 32 35 36 2B 31 |. .#63; 62*256+1|
00001A90: 32 38 00 BA 7C 9C 09 20 82 59 52 45 47 3B 20 3D |28..|.. .YREG; =|
00001AA0: 20 31 36 30 30 30 20 C2 59 54 45 53 00 C6 7C A6 | 16000 .YTES..|.|
00001AB0: 09 20 84 23 31 32 38 3B 00 CC 7C B0 09 3B 00 E7 |. .#128;..|..;..|
00001AC0: 7C BA 09 20 97 53 54 53 45 54 5F 31 3B 20 D3 54 ||.. .STSET_1; .T|
00001AD0: 41 52 54 20 42 45 49 20 30 00 FF 7C C4 09 20 96 |ART BEI 0..|.. .|
00001AE0: 52 45 41 44 3B 20 C2 59 54 45 53 20 4C 45 53 45 |READ; .YTES LESE|
00001AF0: 4E 00 05 7D CE 09 3B 00 0B 7D D8 09 3B 00 11 7D |N..}..;..}..;..}|
00001B00: E2 09 3B 00 31 7D EC 09 3B 20 DA 4C 4F 41 44 20 |..;.1}..; .LOAD |
00001B10: 3A 20 DA 45 49 43 48 45 4E 53 41 54 5A 20 4C 41 |: .EICHENSATZ LA|
00001B20: 44 45 4E 00 37 7D F6 09 3B 00 5D 7D 00 0A 5A 4C |DEN.7}..;.]}..ZL|
00001B30: 4F 41 44 20 97 4E 41 4D 53 45 54 3B 20 D0 41 52 |OAD .NAMSET; .AR|
00001B40: 41 4D 45 54 45 52 20 46 BD 52 20 CE 41 4D 45 00 |AMETER F.R .AME.|
00001B50: 76 7D 0A 0A 20 97 5A 55 53 41 54 5A 5F 4C 3B 20 |v}.. .ZUSATZ_L; |
00001B60: CE 41 4D 45 2C 53 2C 52 00 7F 7D 14 0A 20 81 23 |.AME,S,R..}.. .#|
00001B70: 30 00 99 7D 1E 0A 20 82 43 52 3B 20 C9 2F CF A0 |0..}.. .CR; ./..|
00001B80: 45 49 4E 53 43 48 41 4C 54 45 4E 00 C2 7D 28 0A |EINSCHALTEN..}(.|
00001B90: 20 97 4F 45 46 46 4E 45 4E 3B 20 C6 49 4C 45 20 | .OEFFNEN; .ILE |
00001BA0: 5A 55 4D 20 53 43 48 52 45 49 42 45 4E 20 BC 46 |ZUM SCHREIBEN .F|
00001BB0: 46 4E 45 4E 00 E8 7D 32 0A 20 81 23 3C 28 5A 4C |FNEN..}2. .#<(ZL|
00001BC0: 5F 4F 4B 29 3B 20 C1 44 52 45 53 53 45 20 46 BD |_OK); .DRESSE F.|
00001BD0: 52 20 D2 BD 43 4B 4B 45 48 52 00 03 7E 3C 0A 20 |R ..CKKEHR..~<. |
00001BE0: 83 23 3E 28 5A 4C 5F 4F 4B 29 3B 20 49 4E 20 5A |.#>(ZL_OK); IN Z|
00001BF0: 45 49 47 45 52 00 10 7E 46 0A 20 82 5A 45 49 47 |EIGER..~F. .ZEIG|
00001C00: 45 52 00 1F 7E 50 0A 20 88 5A 45 49 47 45 52 2B |ER..~P. .ZEIGER+|
00001C10: 31 00 4E 7E 5A 0A 20 96 46 45 48 4C 45 52 3F 3B |1.N~Z. .FEHLER?;|
00001C20: 20 C6 45 48 4C 45 52 20 42 45 49 4D 20 DC 46 46 | .EHLER BEIM .FF|
00001C30: 4E 45 4E 20 41 55 46 47 45 54 52 45 54 45 4E 3F |NEN AUFGETRETEN?|
00001C40: 00 71 7E 64 0A 5A 4C 5F 4F 4B 20 83 23 31 3B 20 |.q~d.ZL_OK .#1; |
00001C50: 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D |LOGISCHE .ILENUM|
00001C60: 4D 45 52 00 90 7E 6E 0A 20 97 43 48 4B 49 4E 3B |MER..~n. .CHKIN;|
00001C70: 20 C7 45 52 BB 54 20 41 55 46 20 C5 49 4E 47 41 | .ER.T AUF .INGA|
00001C80: 42 45 00 96 7E 78 0A 3B 00 AC 7E 82 0A 20 81 23 |BE..~x.;..~.. .#|
00001C90: 33 32 3B 20 33 31 2A 32 35 36 2B 32 35 36 00 C5 |32; 31*256+256..|
00001CA0: 7E 8C 0A 20 82 59 52 45 47 3B 20 3D 20 38 31 39 |~.. .YREG; = 819|
00001CB0: 32 20 C2 59 54 45 53 00 D7 7E 96 0A 20 84 23 30 |2 .YTES..~.. .#0|
00001CC0: 3B 20 32 35 35 2B 31 3D 30 00 DD 7E A0 0A 3B 00 |; 255+1=0..~..;.|
00001CD0: FC 7E AA 0A 20 97 53 54 53 45 54 5F 32 3B 20 D3 |.~.. .STSET_2; .|
00001CE0: 54 41 52 54 20 42 45 49 20 24 32 30 30 30 00 14 |TART BEI $2000..|
00001CF0: 7F B4 0A 20 96 52 45 41 44 3B 20 C2 59 54 45 53 |... .READ; .YTES|
00001D00: 20 4C 45 53 45 4E 00 1A 7F BE 0A 3B 00 20 7F C8 | LESEN.....;. ..|
00001D10: 0A 3B 00 26 7F D2 0A 3B 00 4C 7F DC 0A 3B 20 DA |.;.&...;.L...; .|
00001D20: 53 41 56 45 20 3A 20 DA 45 49 43 48 45 4E 53 41 |SAVE : .EICHENSA|
00001D30: 54 5A 20 41 42 53 50 45 49 43 48 45 52 4E 00 52 |TZ ABSPEICHERN.R|
00001D40: 7F E6 0A 3B 00 73 7F F0 0A 5A 53 41 56 45 20 97 |...;.s...ZSAVE .|
00001D50: 4E 41 4D 53 45 54 3B 20 CE 41 4D 45 20 45 49 4E |NAMSET; .AME EIN|
00001D60: 4C 45 53 45 4E 00 8C 7F FA 0A 20 97 5A 55 53 41 |LESEN..... .ZUSA|
00001D70: 54 5A 5F 53 3B 20 CE 41 4D 45 2C 53 2C 57 00 95 |TZ_S; .AME,S,W..|
00001D80: 7F 04 0B 20 81 23 30 00 AF 7F 0E 0B 20 82 43 52 |... .#0..... .CR|
00001D90: 3B 20 C9 2F CF A0 45 49 4E 53 43 48 41 4C 54 45 |; ./..EINSCHALTE|
00001DA0: 4E 00 D8 7F 18 0B 20 97 4F 45 46 46 4E 45 4E 3B |N..... .OEFFNEN;|
00001DB0: 20 C6 49 4C 45 20 5A 55 4D 20 53 43 48 52 45 49 | .ILE ZUM SCHREI|
00001DC0: 42 45 4E 20 BC 46 46 4E 45 4E 00 FE 7F 22 0B 20 |BEN .FFNEN...". |
00001DD0: 81 23 3C 28 5A 53 5F 4F 4B 29 3B 20 C1 44 52 45 |.#<(ZS_OK); .DRE|
00001DE0: 53 53 45 20 46 BD 52 20 D2 BD 43 4B 4B 45 48 52 |SSE F.R ..CKKEHR|
00001DF0: 00 19 80 2C 0B 20 83 23 3E 28 5A 53 5F 4F 4B 29 |...,. .#>(ZS_OK)|
00001E00: 3B 20 49 4E 20 5A 45 49 47 45 52 00 26 80 36 0B |; IN ZEIGER.&.6.|
00001E10: 20 82 5A 45 49 47 45 52 00 35 80 40 0B 20 88 5A | .ZEIGER.5.@. .Z|
00001E20: 45 49 47 45 52 2B 31 00 64 80 4A 0B 20 96 46 45 |EIGER+1.d.J. .FE|
00001E30: 48 4C 45 52 3F 3B 20 C6 45 48 4C 45 52 20 42 45 |HLER?; .EHLER BE|
00001E40: 49 4D 20 DC 46 46 4E 45 4E 20 41 55 46 47 45 54 |IM .FFNEN AUFGET|
00001E50: 52 45 54 45 4E 3F 00 87 80 54 0B 5A 53 5F 4F 4B |RETEN?...T.ZS_OK|
00001E60: 20 83 23 31 3B 20 4C 4F 47 49 53 43 48 45 20 C6 | .#1; LOGISCHE .|
00001E70: 49 4C 45 4E 55 4D 4D 45 52 00 A6 80 5E 0B 20 97 |ILENUMMER...^. .|
00001E80: 43 4B 4F 55 54 3B 20 C7 45 52 BB 54 20 41 55 46 |CKOUT; .ER.T AUF|
00001E90: 20 C1 55 53 47 41 42 45 00 AC 80 68 0B 3B 00 C2 | .USGABE...h.;..|
00001EA0: 80 72 0B 20 81 23 33 32 3B 20 33 31 2A 32 35 36 |.r. .#32; 31*256|
00001EB0: 2B 32 35 36 00 DB 80 7C 0B 20 82 59 52 45 47 3B |+256...|. .YREG;|
00001EC0: 20 3D 20 38 31 39 32 20 C2 59 54 45 53 00 ED 80 | = 8192 .YTES...|
00001ED0: 86 0B 20 84 23 30 3B 20 32 35 35 2B 31 3D 30 00 |.. .#0; 255+1=0.|
00001EE0: F3 80 90 0B 3B 00 12 81 9A 0B 20 97 53 54 53 45 |....;..... .STSE|
00001EF0: 54 5F 32 3B 20 D3 54 41 52 54 20 42 45 49 20 24 |T_2; .TART BEI $|
00001F00: 32 30 30 30 00 3C 81 A4 0B 20 96 57 52 49 54 45 |2000.<... .WRITE|
00001F10: 3B 20 C2 59 54 45 53 20 41 55 46 20 C4 49 53 4B |; .YTES AUF .ISK|
00001F20: 45 54 54 45 20 53 43 48 52 45 49 42 45 4E 00 42 |ETTE SCHREIBEN.B|
00001F30: 81 AE 0B 3B 00 48 81 B8 0B 3B 00 4E 81 C2 0B 3B |...;.H...;.N...;|
00001F40: 00 74 81 CC 0B 3B 20 C1 53 41 56 45 20 3A 20 C1 |.t...; .SAVE : .|
00001F50: 54 54 52 49 42 55 54 52 41 4D 20 41 42 53 50 45 |TTRIBUTRAM ABSPE|
00001F60: 49 43 48 45 52 4E 00 7A 81 D6 0B 3B 00 9B 81 E0 |ICHERN.z...;....|
00001F70: 0B 41 53 41 56 45 20 97 4E 41 4D 53 45 54 3B 20 |.ASAVE .NAMSET; |
00001F80: CE 41 4D 45 20 45 49 4E 4C 45 53 45 4E 00 B4 81 |.AME EINLESEN...|
00001F90: EA 0B 20 97 5A 55 53 41 54 5A 5F 53 3B 20 CE 41 |.. .ZUSATZ_S; .A|
00001FA0: 4D 45 2C 53 2C 57 00 BD 81 F4 0B 20 81 23 30 00 |ME,S,W..... .#0.|
00001FB0: D7 81 FE 0B 20 82 43 52 3B 20 C9 2F CF A0 45 49 |.... .CR; ./..EI|
00001FC0: 4E 53 43 48 41 4C 54 45 4E 00 00 82 08 0C 20 97 |NSCHALTEN..... .|
00001FD0: 4F 45 46 46 4E 45 4E 3B 20 C6 49 4C 45 20 5A 55 |OEFFNEN; .ILE ZU|
00001FE0: 4D 20 53 43 48 52 45 49 42 45 4E 20 BC 46 46 4E |M SCHREIBEN .FFN|
00001FF0: 45 4E 00 26 82 12 0C 20 81 23 3C 28 41 53 5F 4F |EN.&... .#<(AS_O|
00002000: 4B 29 3B 20 C1 44 52 45 53 53 45 20 46 BD 52 20 |K); .DRESSE F.R |
00002010: D2 BD 43 4B 4B 45 48 52 00 41 82 1C 0C 20 83 23 |..CKKEHR.A... .#|
00002020: 3E 28 41 53 5F 4F 4B 29 3B 20 49 4E 20 5A 45 49 |>(AS_OK); IN ZEI|
00002030: 47 45 52 00 4E 82 26 0C 20 82 5A 45 49 47 45 52 |GER.N.&. .ZEIGER|
00002040: 00 5D 82 30 0C 20 88 5A 45 49 47 45 52 2B 31 00 |.].0. .ZEIGER+1.|
00002050: 8C 82 3A 0C 20 96 46 45 48 4C 45 52 3F 3B 20 C6 |..:. .FEHLER?; .|
00002060: 45 48 4C 45 52 20 42 45 49 4D 20 DC 46 46 4E 45 |EHLER BEIM .FFNE|
00002070: 4E 20 41 55 46 47 45 54 52 45 54 45 4E 3F 00 AF |N AUFGETRETEN?..|
00002080: 82 44 0C 41 53 5F 4F 4B 20 83 23 31 3B 20 4C 4F |.D.AS_OK .#1; LO|
00002090: 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 |GISCHE .ILENUMME|
000020A0: 52 00 CE 82 4E 0C 20 97 43 4B 4F 55 54 3B 20 C7 |R...N. .CKOUT; .|
000020B0: 45 52 BB 54 20 41 55 46 20 C1 55 53 47 41 42 45 |ER.T AUF .USGABE|
000020C0: 00 D4 82 58 0C 3B 00 E8 82 62 0C 20 81 23 38 3B |...X.;...b. .#8;|
000020D0: 20 37 2A 32 35 36 2B 32 30 38 00 00 83 6C 0C 20 | 7*256+208...l. |
000020E0: 82 59 52 45 47 3B 20 3D 32 30 30 30 20 C2 59 54 |.YREG; =2000 .YT|
000020F0: 45 53 00 0B 83 76 0C 20 84 23 32 30 38 00 11 83 |ES...v. .#208...|
00002100: 80 0C 3B 00 2F 83 8A 0C 20 97 53 54 53 45 54 5F |..;./... .STSET_|
00002110: 33 3B 20 D3 54 41 52 54 20 42 45 49 20 24 38 30 |3; .TART BEI $80|
00002120: 30 00 59 83 94 0C 20 96 57 52 49 54 45 3B 20 C2 |0.Y... .WRITE; .|
00002130: 59 54 45 53 20 41 55 46 20 C4 49 53 4B 45 54 54 |YTES AUF .ISKETT|
00002140: 45 20 53 43 48 52 45 49 42 45 4E 00 5F 83 9E 0C |E SCHREIBEN._...|
00002150: 3B 00 65 83 A8 0C 3B 00 6B 83 B2 0C 3B 00 91 83 |;.e...;.k...;...|
00002160: BC 0C 3B 20 C1 4C 4F 41 44 20 3A 20 C1 54 54 52 |..; .LOAD : .TTR|
00002170: 49 42 55 54 52 41 4D 20 41 42 53 50 45 49 43 48 |IBUTRAM ABSPEICH|
00002180: 45 52 4E 00 97 83 C6 0C 3B 00 BD 83 D0 0C 41 4C |ERN.....;.....AL|
00002190: 4F 41 44 20 97 4E 41 4D 53 45 54 3B 20 D0 41 52 |OAD .NAMSET; .AR|
000021A0: 41 4D 45 54 45 52 20 46 BD 52 20 CE 41 4D 45 00 |AMETER F.R .AME.|
000021B0: D6 83 DA 0C 20 97 5A 55 53 41 54 5A 5F 4C 3B 20 |.... .ZUSATZ_L; |
000021C0: CE 41 4D 45 2C 53 2C 52 00 DF 83 E4 0C 20 81 23 |.AME,S,R..... .#|
000021D0: 30 00 F9 83 EE 0C 20 82 43 52 3B 20 C9 2F CF A0 |0..... .CR; ./..|
000021E0: 45 49 4E 53 43 48 41 4C 54 45 4E 00 22 84 F8 0C |EINSCHALTEN."...|
000021F0: 20 97 4F 45 46 46 4E 45 4E 3B 20 C6 49 4C 45 20 | .OEFFNEN; .ILE |
00002200: 5A 55 4D 20 53 43 48 52 45 49 42 45 4E 20 BC 46 |ZUM SCHREIBEN .F|
00002210: 46 4E 45 4E 00 48 84 02 0D 20 81 23 3C 28 41 4C |FNEN.H... .#<(AL|
00002220: 5F 4F 4B 29 3B 20 C1 44 52 45 53 53 45 20 46 BD |_OK); .DRESSE F.|
00002230: 52 20 D2 BD 43 4B 4B 45 48 52 00 63 84 0C 0D 20 |R ..CKKEHR.c... |
00002240: 83 23 3E 28 41 4C 5F 4F 4B 29 3B 20 49 4E 20 5A |.#>(AL_OK); IN Z|
00002250: 45 49 47 45 52 00 70 84 16 0D 20 82 5A 45 49 47 |EIGER.p... .ZEIG|
00002260: 45 52 00 7F 84 20 0D 20 88 5A 45 49 47 45 52 2B |ER... . .ZEIGER+|
00002270: 31 00 AE 84 2A 0D 20 96 46 45 48 4C 45 52 3F 3B |1...*. .FEHLER?;|
00002280: 20 C6 45 48 4C 45 52 20 42 45 49 4D 20 DC 46 46 | .EHLER BEIM .FF|
00002290: 4E 45 4E 20 41 55 46 47 45 54 52 45 54 45 4E 3F |NEN AUFGETRETEN?|
000022A0: 00 D1 84 34 0D 41 4C 5F 4F 4B 20 83 23 31 3B 20 |...4.AL_OK .#1; |
000022B0: 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D |LOGISCHE .ILENUM|
000022C0: 4D 45 52 00 F0 84 3E 0D 20 97 43 48 4B 49 4E 3B |MER...>. .CHKIN;|
000022D0: 20 C7 45 52 BB 54 20 41 55 46 20 C5 49 4E 47 41 | .ER.T AUF .INGA|
000022E0: 42 45 00 F6 84 48 0D 3B 00 0A 85 52 0D 20 81 23 |BE...H.;...R. .#|
000022F0: 38 3B 20 37 2A 32 35 36 2B 32 30 38 00 22 85 5C |8; 7*256+208.".\|
00002300: 0D 20 82 59 52 45 47 3B 20 3D 32 30 30 30 20 C2 |. .YREG; =2000 .|
00002310: 59 54 45 53 00 2D 85 66 0D 20 84 23 32 30 38 00 |YTES.-.f. .#208.|
00002320: 33 85 70 0D 3B 00 51 85 7A 0D 20 97 53 54 53 45 |3.p.;.Q.z. .STSE|
00002330: 54 5F 33 3B 20 D3 54 41 52 54 20 42 45 49 20 24 |T_3; .TART BEI $|
00002340: 38 30 30 00 69 85 84 0D 20 96 52 45 41 44 3B 20 |800.i... .READ; |
00002350: C2 59 54 45 53 20 4C 45 53 45 4E 00 6F 85 8E 0D |.YTES LESEN.o...|
00002360: 3B 00 75 85 98 0D 3B 00 7B 85 A2 0D 3B 00 A1 85 |;.u...;.{...;...|
00002370: AC 0D 53 54 53 45 54 5F 31 20 81 23 30 3B 20 49 |..STSET_1 .#0; I|
00002380: 4D 20 C1 4B 4B 55 20 C8 49 47 48 42 59 54 45 20 |M .KKU .IGHBYTE |
00002390: 44 45 53 00 C9 85 B6 0D 20 B8 53 54 53 45 54 3B |DES..... .STSET;|
000023A0: 20 41 42 5A 55 53 50 45 49 43 48 45 52 4E 44 45 | ABZUSPEICHERNDE|
000023B0: 4E 20 C2 45 52 45 49 43 48 45 53 00 CF 85 C0 0D |N .EREICHES.....|
000023C0: 3B 00 E2 85 CA 0D 53 54 53 45 54 5F 32 20 81 23 |;.....STSET_2 .#|
000023D0: 24 32 30 3B 00 F6 85 D4 0D 20 B7 53 54 53 45 54 |$20;..... .STSET|
000023E0: 3B 20 20 49 4D 4D 45 52 00 FC 85 DE 0D 3B 00 0F |; IMMER.....;..|
000023F0: 86 E8 0D 53 54 53 45 54 5F 33 20 81 23 24 30 38 |...STSET_3 .#$08|
00002400: 3B 00 15 86 F2 0D 3B 00 1B 86 FC 0D 3B 00 42 86 |;.....;.....;.B.|
00002410: 06 0E 53 54 53 45 54 20 83 23 31 38 3B 20 49 4D |..STSET .#18; IM|
00002420: 20 58 52 45 47 20 D2 45 47 49 53 54 45 52 4E 55 | XREG .EGISTERNU|
00002430: 4D 4D 45 52 00 68 86 10 0E 20 97 52 45 47 53 45 |MMER.h... .REGSE|
00002440: 54 3B 20 C8 49 47 48 42 59 54 45 20 49 4E 20 D2 |T; .IGHBYTE IN .|
00002450: 45 47 49 53 54 45 52 20 31 38 00 6E 86 1A 0E 3B |EGISTER 18.n...;|
00002460: 00 8C 86 24 0E 20 81 23 30 3B 20 CC 4F 57 42 59 |...$. .#0; .OWBY|
00002470: 54 45 20 49 53 54 20 49 4D 4D 45 52 20 30 00 97 |TE IST IMMER 0..|
00002480: 86 2E 0E 20 83 23 31 39 3B 00 BC 86 38 0E 20 96 |... .#19;...8. .|
00002490: 52 45 47 53 45 54 3B 20 CC 4F 57 42 59 54 45 20 |REGSET; .OWBYTE |
000024A0: 49 4E 20 D2 45 47 49 53 54 45 52 20 31 39 00 C2 |IN .EGISTER 19..|
000024B0: 86 42 0E 3B 00 C8 86 4C 0E 3B 00 CE 86 56 0E 3B |.B.;...L.;...V.;|
000024C0: 00 F9 86 60 0E 57 52 49 54 45 20 97 52 45 47 52 |...`.WRITE .REGR|
000024D0: 45 44 3B 20 C2 59 54 45 20 41 55 53 20 D3 50 45 |ED; .YTE AUS .PE|
000024E0: 49 43 48 45 52 20 48 4F 4C 45 4E 00 1D 87 6A 0E |ICHER HOLEN...j.|
000024F0: 20 97 42 53 4F 55 54 3B 20 55 4E 44 20 41 55 46 | .BSOUT; UND AUF|
00002500: 20 C4 49 53 4B 20 53 43 48 52 45 49 42 45 4E 00 | .ISK SCHREIBEN.|
00002510: 25 87 74 0E 20 A3 3B 00 47 87 7E 0E 20 B7 57 52 |%.t. .;.G.~. .WR|
00002520: 49 54 45 3B 20 28 59 52 45 47 2D 31 29 2A 32 35 |ITE; (YREG-1)*25|
00002530: 36 2B 59 20 C2 59 54 45 53 00 53 87 88 0E 20 94 |6+Y .YTES.S... .|
00002540: 59 52 45 47 3B 00 5F 87 92 0E 20 B7 57 52 49 54 |YREG;._... .WRIT|
00002550: 45 00 65 87 9C 0E 3B 00 86 87 A6 0E 20 97 43 4C |E.e...;..... .CL|
00002560: 52 43 48 3B 20 C1 55 53 47 41 42 45 20 41 55 46 |RCH; .USGABE AUF|
00002570: 20 C4 45 46 41 55 4C 54 00 A4 87 B0 0E 20 81 23 | .EFAULT..... .#|
00002580: 31 3B 20 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 |1; LOGISCHE .ILE|
00002590: 4E 55 4D 4D 45 52 00 C0 87 BA 0E 20 96 43 4C 4F |NUMMER..... .CLO|
000025A0: 53 45 3B 20 C6 49 4C 45 20 53 43 48 4C 49 45 BE |SE; .ILE SCHLIE.|
000025B0: 45 4E 00 C6 87 C4 0E 3B 00 CC 87 CE 0E 3B 00 D2 |EN.....;.....;..|
000025C0: 87 D8 0E 3B 00 F5 87 E2 0E 52 45 41 44 20 97 42 |...;.....READ .B|
000025D0: 41 53 49 4E 3B 20 C2 59 54 45 20 56 4F 4E 20 C4 |ASIN; .YTE VON .|
000025E0: 49 53 4B 45 54 54 45 00 06 88 EC 0E 20 83 23 33 |ISKETTE..... .#3|
000025F0: 31 3B 20 4C 45 53 45 4E 00 2D 88 F6 0E 20 97 52 |1; LESEN.-... .R|
00002600: 45 47 53 45 54 3B 20 55 4E 44 20 41 4E 20 C1 44 |EGSET; UND AN .D|
00002610: 52 45 53 53 45 20 53 43 48 52 45 49 42 45 4E 00 |RESSE SCHREIBEN.|
00002620: 35 88 00 0F 20 A3 3B 00 56 88 0A 0F 20 B7 52 45 |5... .;.V... .RE|
00002630: 41 44 3B 20 28 59 52 45 47 2D 31 29 2A 32 35 36 |AD; (YREG-1)*256|
00002640: 2B 59 20 C2 59 54 45 53 00 61 88 14 0F 20 94 59 |+Y .YTES.a... .Y|
00002650: 52 45 47 00 6C 88 1E 0F 20 B7 52 45 41 44 00 8D |REG.l... .READ..|
00002660: 88 28 0F 20 97 43 4C 52 43 48 3B 20 C1 55 53 47 |.(. .CLRCH; .USG|
00002670: 41 42 45 20 41 55 46 20 C4 45 46 41 55 4C 54 00 |ABE AUF .EFAULT.|
00002680: AB 88 32 0F 20 81 23 31 3B 20 4C 4F 47 49 53 43 |..2. .#1; LOGISC|
00002690: 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 C7 88 |HE .ILENUMMER...|
000026A0: 3C 0F 20 96 43 4C 4F 53 45 3B 20 C6 49 4C 45 20 |<. .CLOSE; .ILE |
000026B0: 53 43 48 4C 49 45 BE 45 4E 00 CD 88 46 0F 3B 00 |SCHLIE.EN...F.;.|
000026C0: D3 88 50 0F 3B 00 D9 88 5A 0F 3B 00 EB 88 64 0F |..P.;...Z.;...d.|
000026D0: 3B 20 CE 41 4D 45 4E 20 4C 45 53 45 4E 00 F1 88 |; .AMEN LESEN...|
000026E0: 6E 0F 3B 00 1B 89 78 0F 4E 41 4D 53 45 54 20 81 |n.;...x.NAMSET .|
000026F0: 23 30 3B 20 CC 4F 41 44 2F D6 45 52 49 46 59 2D |#0; .OAD/.ERIFY-|
00002700: C6 4C 41 47 20 41 55 46 20 CC 4F 41 44 00 2F 89 |.LAG AUF .OAD./.|
00002710: 82 0F 20 82 56 45 52 43 4B 3B 20 53 45 54 5A 45 |.. .VERCK; SETZE|
00002720: 4E 00 62 89 8C 0F 20 81 23 25 31 31 31 30 27 30 |N.b... .#%1110'0|
00002730: 31 31 30 3B 20 45 52 4C 41 55 42 54 20 D0 41 52 |110; ERLAUBT .AR|
00002740: 41 4D 45 54 45 52 20 57 49 45 20 42 45 49 20 C4 |AMETER WIE BEI .|
00002750: CC CF C1 C4 00 80 89 96 0F 20 97 44 4F 53 50 41 |......... .DOSPA|
00002760: 52 3B 20 D0 41 52 41 4D 45 54 45 52 20 48 4F 4C |R; .ARAMETER HOL|
00002770: 45 4E 00 A6 89 A0 0F 20 81 53 59 4E 54 41 58 31 |EN..... .SYNTAX1|
00002780: 3B 20 C3 48 45 43 4B 42 59 54 45 20 31 20 56 4F |; .HECKBYTE 1 VO|
00002790: 4E 20 C4 CF D3 D0 C1 D2 00 CD 89 AA 0F 20 87 23 |N ........... .#|
000027A0: 25 30 30 30 30 27 30 30 30 31 3B 20 31 2E 20 C4 |%0000'0001; 1. .|
000027B0: 41 54 45 49 44 4F 53 53 54 52 4E 2D C2 49 54 00 |ATEIDOSSTRN-.IT.|
000027C0: E9 89 B4 0F 20 85 23 25 30 30 30 30 27 30 30 30 |.... .#%0000'000|
000027D0: 31 3B 20 47 45 53 45 54 5A 54 3F 00 11 8A BE 0F |1; GESETZT?.....|
000027E0: 20 B7 53 59 4E 45 52 52 3B 20 4E 45 49 4E 3A 20 | .SYNERR; NEIN: |
000027F0: 4B 45 49 4E 20 CE 41 4D 45 20 49 53 54 20 45 52 |KEIN .AME IST ER|
00002800: 52 4F 52 00 2A 8A C8 0F 20 81 23 34 3B 20 D4 45 |ROR.*... .#4; .E|
00002810: 52 4D 5A BB 48 4C 45 52 20 55 4E 44 00 4F 8A D2 |RMZ.HLER UND.O..|
00002820: 0F 20 84 23 35 3B 20 D3 43 48 4C BD 53 53 45 4C |. .#5; .CHL.SSEL|
00002830: 20 46 BD 52 20 27 44 53 41 56 45 27 20 45 54 43 | F.R 'DSAVE' ETC|
00002840: 2E 00 76 8A DC 0F 20 96 43 4F 4D 43 50 4C 3B 20 |..v... .COMCPL; |
00002850: CB 4F 4D 4D 41 4E 44 4F 2D D3 54 52 49 4E 47 20 |.OMMANDO-.TRING |
00002860: 45 52 5A 45 55 47 45 4E 00 7C 8A E6 0F 3B 00 A5 |ERZEUGEN.|...;..|
00002870: 8A F0 0F 53 59 4E 45 52 52 20 83 23 31 31 3B 20 |...SYNERR .#11; |
00002880: CE 55 4D 4D 45 52 20 46 BD 52 20 53 59 4E 54 41 |.UMMER F.R SYNTA|
00002890: 58 20 45 52 52 4F 52 00 C5 8A FA 0F 20 96 4D 49 |X ERROR..... .MI|
000028A0: 53 54 41 4B 45 3B 20 CD 45 4C 44 55 4E 47 20 41 |STAKE; .ELDUNG A|
000028B0: 55 53 47 45 42 45 4E 00 CB 8A 04 10 3B 00 D1 8A |USGEBEN.....;...|
000028C0: 0E 10 3B 00 D7 8A 18 10 3B 00 FB 8A 22 10 5A 55 |..;.....;...".ZU|
000028D0: 53 41 54 5A 5F 53 20 81 23 22 57 22 3B 20 DA 55 |SATZ_S .#"W"; .U|
000028E0: 53 41 54 5A 20 3D 20 27 2C 53 2C 57 27 00 16 8B |SATZ = ',S,W'...|
000028F0: 2C 10 20 82 52 5F 57 3B 20 46 BD 52 20 41 42 53 |,. .R_W; F.R ABS|
00002900: 50 45 49 43 48 45 52 4E 00 23 8B 36 10 20 96 5A |PEICHERN.#.6. .Z|
00002910: 55 53 41 54 5A 00 29 8B 40 10 3B 00 4D 8B 4A 10 |USATZ.).@.;.M.J.|
00002920: 5A 55 53 41 54 5A 5F 4C 20 81 23 22 52 22 3B 20 |ZUSATZ_L .#"R"; |
00002930: DA 55 53 41 54 5A 20 3D 20 27 2C 53 2C 52 27 00 |.USATZ = ',S,R'.|
00002940: 67 8B 54 10 20 82 52 5F 57 3B 46 BD 52 20 41 42 |g.T. .R_W;F.R AB|
00002950: 53 50 45 49 43 48 45 52 4E 00 74 8B 5E 10 20 96 |SPEICHERN.t.^. .|
00002960: 5A 55 53 41 54 5A 00 7A 8B 68 10 3B 00 80 8B 72 |ZUSATZ.z.h.;...r|
00002970: 10 3B 00 8F 8B 7C 10 5A 55 53 41 54 5A 20 84 23 |.;...|.ZUSATZ .#|
00002980: 30 00 AC 8B 86 10 20 8A 44 4F 53 46 31 4C 3B 20 |0..... .DOSF1L; |
00002990: C6 49 4C 45 4E 41 4D 45 4E 4C BB 4E 47 45 00 D0 |.ILENAMENL.NGE..|
000029A0: 8B 90 10 20 8A 44 4F 53 46 31 4C 3B 20 55 4D 20 |... .DOSF1L; UM |
000029B0: 32 20 45 52 48 BC 48 45 4E 20 28 30 3A CE 41 4D |2 ERH.HEN (0:.AM|
000029C0: 45 29 00 DD 8B 9A 10 20 83 44 4F 53 46 31 4C 00 |E)..... .DOSF1L.|
000029D0: ED 8B A4 10 5A 55 53 31 20 81 5A 55 53 2C 59 00 |....ZUS1 .ZUS,Y.|
000029E0: F8 8B AE 10 20 B8 53 4B 49 50 00 07 8C B8 10 20 |.... .SKIP..... |
000029F0: 82 44 4F 53 53 54 52 2C 58 00 0E 8C C2 10 20 A2 |.DOSSTR,X..... .|
00002A00: 00 15 8C CC 10 20 9E 00 20 8C D6 10 20 96 5A 55 |..... .. ... .ZU|
00002A10: 53 31 00 31 8C E0 10 53 4B 49 50 20 88 44 4F 53 |S1.1...SKIP .DOS|
00002A20: 46 31 4C 00 38 8C EA 10 20 A4 00 3E 8C F4 10 3B |F1L.8... ..>...;|
00002A30: 00 4E 8C FE 10 5A 55 53 20 2E 91 22 2C 53 2C 22 |.N...ZUS ..",S,"|
00002A40: 00 68 8C 08 11 52 5F 57 20 2E 91 24 46 46 2C 30 |.h...R_W ..$FF,0|
00002A50: 3B 20 D2 20 4F 44 45 52 20 D7 00 6E 8C 12 11 3B |; . ODER ..n...;|
00002A60: 00 74 8C 1C 11 3B 00 7A 8C 26 11 3B 00 8A 8C 30 |.t...;.z.&.;...0|
00002A70: 11 4F 45 46 46 4E 45 4E 20 81 23 30 00 A4 8C 3A |.OEFFNEN .#0...:|
00002A80: 11 20 82 43 52 3B 20 C9 2F CF 20 45 49 4E 53 43 |. .CR; ./. EINSC|
00002A90: 48 41 4C 54 45 4E 00 C2 8C 44 11 20 81 23 31 3B |HALTEN...D. .#1;|
00002AA0: 20 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 | LOGISCHE .ILENU|
00002AB0: 4D 4D 45 52 00 DD 8C 4E 11 20 83 44 4F 53 46 41 |MMER...N. .DOSFA|
00002AC0: 3B 20 C7 45 52 BB 54 45 41 44 52 45 53 53 45 00 |; .ER.TEADRESSE.|
00002AD0: F7 8C 58 11 20 84 23 34 3B 20 D3 45 4B 55 4E 44 |..X. .#4; .EKUND|
00002AE0: BB 52 41 44 52 45 53 53 45 00 04 8D 62 11 20 97 |.RADRESSE...b. .|
00002AF0: 53 45 54 50 41 52 00 0A 8D 6C 11 3B 00 28 8D 76 |SETPAR...l.;.(.v|
00002B00: 11 20 81 44 4F 53 46 31 4C 3B 20 C6 49 4C 45 2D |. .DOSF1L; .ILE-|
00002B10: CE 41 4D 45 4E 4C BB 4E 47 45 00 53 8D 80 11 20 |.AMENL.NGE.S... |
00002B20: 83 23 3C 28 44 4F 53 53 54 52 29 3B 20 CC 4F 57 |.#<(DOSSTR); .OW|
00002B30: 42 59 54 45 20 44 45 52 20 CE 41 4D 45 4E 41 44 |BYTE DER .AMENAD|
00002B40: 52 45 53 53 45 00 7F 8D 8A 11 20 84 23 3E 28 44 |RESSE..... .#>(D|
00002B50: 4F 53 53 54 52 29 3B 20 C8 49 47 48 42 59 54 45 |OSSTR); .IGHBYTE|
00002B60: 20 44 45 52 20 CE 41 4D 45 4E 41 44 52 45 53 53 | DER .AMENADRESS|
00002B70: 45 00 8C 8D 94 11 20 97 53 45 54 4E 41 4D 00 92 |E..... .SETNAM..|
00002B80: 8D 9E 11 3B 00 BA 8D A8 11 20 81 23 30 3B 20 D2 |...;..... .#0; .|
00002B90: C1 CD 2D C2 41 4E 4B 2D CE 55 4D 4D 45 52 20 46 |..-.ANK-.UMMER F|
00002BA0: BD 52 20 CC 4F 41 44 20 45 54 43 2E 00 E3 8D B2 |.R .OAD ETC.....|
00002BB0: 11 20 99 3B 20 D2 C1 CD 2D C2 41 4E 4B 2D CE 55 |. .; ...-.ANK-.U|
00002BC0: 4D 4D 45 52 20 44 45 53 20 C6 49 4C 45 44 4F 53 |MMER DES .ILEDOS|
00002BD0: 53 54 52 4E 53 00 F0 8D BC 11 20 97 53 45 54 42 |STRNS..... .SETB|
00002BE0: 4E 4B 00 F6 8D C6 11 3B 00 0E 8E D0 11 20 96 4F |NK.....;..... .O|
00002BF0: 50 45 4E 3B 20 C6 49 4C 45 20 BC 46 46 4E 45 4E |PEN; .ILE .FFNEN|
00002C00: 00 14 8E DA 11 3B 00 1A 8E E4 11 3B 00 20 8E EE |.....;.....;. ..|
00002C10: 11 3B 00 39 8E F8 11 3B 20 C6 45 48 4C 45 52 4B |.;.9...; .EHLERK|
00002C20: 41 4E 41 4C 41 42 46 52 41 47 45 00 3F 8E 02 12 |ANALABFRAGE.?...|
00002C30: 3B 00 75 8E 0C 12 46 45 48 4C 45 52 3F 20 B5 46 |;.u...FEHLER? .F|
00002C40: 45 48 31 3B 20 C3 41 52 52 59 20 43 4C 45 41 52 |EH1; .ARRY CLEAR|
00002C50: 20 3A 20 C6 45 48 4C 45 52 4B 41 4E 41 4C 20 41 | : .EHLERKANAL A|
00002C60: 42 46 52 41 47 45 4E 00 85 8E 16 12 20 A0 3B 20 |BFRAGEN..... .; |
00002C70: D3 4F 4E 53 54 20 3A 00 A6 8E 20 12 20 97 43 4C |.ONST :... . .CL|
00002C80: 52 43 48 3B 20 C1 55 53 47 41 42 45 20 41 55 46 |RCH; .USGABE AUF|
00002C90: 20 C4 45 46 41 55 4C 54 00 B0 8E 2A 12 20 81 23 | .EFAULT...*. .#|
00002CA0: 31 3B 00 CC 8E 34 12 20 97 43 4C 4F 53 45 3B 20 |1;...4. .CLOSE; |
00002CB0: C6 49 4C 45 20 53 43 48 4C 49 45 BE 45 4E 00 D3 |.ILE SCHLIE.EN..|
00002CC0: 8E 3E 12 20 A1 00 ED 8E 48 12 20 99 3B 20 C6 45 |.>. ....H. .; .E|
00002CD0: 48 4C 45 52 4E 55 4D 4D 45 52 20 49 4E 20 58 00 |HLERNUMMER IN X.|
00002CE0: 0C 8F 52 12 20 96 4D 49 53 54 41 4B 45 3B 20 C6 |..R. .MISTAKE; .|
00002CF0: 45 48 4C 45 52 20 41 55 53 47 45 42 45 4E 00 12 |EHLER AUSGEBEN..|
00002D00: 8F 5C 12 3B 00 1F 8F 66 12 46 45 48 31 20 81 23 |.\.;...f.FEH1 .#|
00002D10: 30 00 26 8F 70 12 20 99 00 43 8F 7A 12 20 82 53 |0.&.p. ..C.z. .S|
00002D20: 54 41 54 55 53 3B 20 D3 54 41 54 55 53 20 4C BC |TATUS; .TATUS L.|
00002D30: 53 43 48 45 4E 00 5E 8F 84 12 20 81 44 4F 53 46 |SCHEN.^... .DOSF|
00002D40: 41 3B 20 C7 45 52 BB 54 45 41 44 52 45 53 53 45 |A; .ER.TEADRESSE|
00002D50: 00 6A 8F 8E 12 20 97 54 41 4C 4B 3B 00 7B 8F 98 |.j... .TALK;.{..|
00002D60: 12 20 81 23 25 31 31 30 31 31 31 31 3B 00 96 8F |. .#%1101111;...|
00002D70: A2 12 20 97 53 45 43 54 4C 4B 3B 20 CB 41 4E 41 |.. .SECTLK; .ANA|
00002D80: 4C 20 BC 46 46 4E 45 4E 00 BA 8F AC 12 46 31 20 |L .FFNEN.....F1 |
00002D90: 97 49 45 43 49 4E 3B 20 C2 59 54 45 20 56 4F 4E |.IECIN; .YTE VON|
00002DA0: 20 C6 45 48 4C 45 52 4B 41 4E 41 4C 00 DE 8F B6 | .EHLERKANAL....|
00002DB0: 12 20 82 42 55 46 46 45 52 2C 58 3B 20 49 4E 20 |. .BUFFER,X; IN |
00002DC0: DA 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 |.WISCHENSPEICHER|
00002DD0: 00 E5 8F C0 12 20 A2 00 0E 90 CA 12 20 94 46 52 |..... ...... .FR|
00002DE0: 45 54 4F 50 3B 20 46 52 45 49 45 52 20 D0 4C 41 |ETOP; FREIER .LA|
00002DF0: 54 5A 20 46 BD 52 20 D6 41 52 49 41 42 4C 45 4E |TZ F.R .ARIABLEN|
00002E00: 00 34 90 D4 12 20 81 46 52 45 54 4F 50 3B 20 D6 |.4... .FRETOP; .|
00002E10: 45 43 54 4F 52 20 55 4D 20 31 20 45 52 4E 49 45 |ECTOR UM 1 ERNIE|
00002E20: 44 52 49 47 45 4E 00 40 90 DE 12 20 85 23 32 35 |DRIGEN.@... .#25|
00002E30: 35 3B 00 4A 90 E8 12 20 B7 46 32 3B 00 5A 90 F2 |5;.J... .F2;.Z..|
00002E40: 12 20 94 46 52 45 54 4F 50 2B 31 3B 00 81 90 FC |. .FRETOP+1;....|
00002E50: 12 46 32 20 8D 53 54 41 54 55 53 3B 20 57 49 45 |.F2 .STATUS; WIE|
00002E60: 44 45 52 48 4F 4C 45 20 42 49 53 20 C5 CF C6 2D |DERHOLE BIS ...-|
00002E70: C2 49 54 00 93 90 06 13 20 B3 46 31 3B 20 47 45 |.IT..... .F1; GE|
00002E80: 53 45 54 5A 54 00 B2 90 10 13 20 81 23 30 3B 20 |SETZT..... .#0; |
00002E90: C1 4C 53 20 4C 45 54 5A 54 45 53 20 C2 59 54 45 |.LS LETZTES .YTE|
00002EA0: 20 27 30 27 00 C2 90 1A 13 20 82 42 55 46 46 45 | '0'..... .BUFFE|
00002EB0: 52 2C 58 3B 00 D0 90 24 13 20 94 46 52 45 54 4F |R,X;...$. .FRETO|
00002EC0: 50 3B 00 DE 90 2E 13 20 81 46 52 45 54 4F 50 3B |P;..... .FRETOP;|
00002ED0: 00 EA 90 38 13 20 85 23 32 35 35 3B 00 F4 90 42 |...8. .#255;...B|
00002EE0: 13 20 B7 46 33 3B 00 04 91 4C 13 20 94 46 52 45 |. .F3;...L. .FRE|
00002EF0: 54 4F 50 2B 31 3B 00 20 91 56 13 46 33 20 A2 3B |TOP+1;. .V.F3 .;|
00002F00: 20 CC BB 4E 47 45 20 44 45 53 20 D3 54 52 49 4E | ..NGE DES .TRIN|
00002F10: 47 53 00 32 91 60 13 20 88 4C 45 4E 3B 20 49 4E |GS.2.`. .LEN; IN|
00002F20: 20 4C 45 4E 00 4B 91 6A 13 20 88 44 53 44 4C 45 | LEN.K.j. .DSDLE|
00002F30: 4E 3B 20 55 4E 44 20 C4 D3 C4 CC C5 CE 00 6F 91 |N; UND .......o.|
00002F40: 74 13 20 97 55 4E 54 41 4C 4B 3B 20 C6 45 48 4C |t. .UNTALK; .EHL|
00002F50: 45 52 4B 41 4E 41 4C 20 53 43 48 4C 49 45 BE 45 |ERKANAL SCHLIE.E|
00002F60: 4E 00 75 91 7E 13 3B 00 97 91 88 13 20 81 23 46 |N.u.~.;..... .#F|
00002F70: 52 45 54 4F 50 3B 20 C1 44 52 45 53 53 45 20 56 |RETOP; .DRESSE V|
00002F80: 4F 4E 20 C6 D2 C5 D4 CF D0 00 AF 91 92 13 20 82 |ON ........... .|
00002F90: 53 54 41 56 45 43 3B 20 49 4E 20 D3 D4 C1 D6 C5 |STAVEC; IN .....|
00002FA0: C3 00 B8 91 9C 13 20 84 23 30 00 E9 91 A6 13 53 |...... .#0.....S|
00002FB0: 54 4F 52 45 20 81 42 55 46 46 45 52 2C 59 3B 20 |TORE .BUFFER,Y; |
00002FC0: D3 54 52 49 4E 47 20 41 55 53 20 DA 57 49 53 43 |.TRING AUS .WISC|
00002FD0: 48 45 4E 53 50 45 49 43 48 45 52 00 15 92 B0 13 |HENSPEICHER.....|
00002FE0: 20 83 23 25 30 31 31 31 27 31 31 31 31 3B 20 CB | .#%0111'1111; .|
00002FF0: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 46 BD 52 |ONFIGURATION F.R|
00003000: 20 C2 41 4E 4B 20 31 00 37 92 BA 13 20 97 53 54 | .ANK 1.7... .ST|
00003010: 41 53 48 3B 20 49 4E 20 D6 41 52 49 41 42 4C 45 |ASH; IN .ARIABLE|
00003020: 4E 2D C2 45 52 45 49 43 48 00 3F 92 C4 13 20 9E |N-.EREICH.?... .|
00003030: 3B 00 4A 92 CE 13 20 94 4C 45 4E 3B 00 57 92 D8 |;.J... .LEN;.W..|
00003040: 13 20 B7 53 54 4F 52 45 3B 00 5D 92 E2 13 3B 00 |. .STORE;.]...;.|
00003050: 82 92 EC 13 20 81 46 52 45 54 4F 50 3B 20 C1 44 |.... .FRETOP; .D|
00003060: 52 45 53 53 45 20 44 45 53 20 C4 D3 2D D3 54 52 |RESSE DES ..-.TR|
00003070: 49 4E 47 53 00 9C 92 F6 13 20 82 44 53 44 41 44 |INGS..... .DSDAD|
00003080: 52 3B 20 4E 41 43 48 20 C4 D3 C4 C1 C4 D2 00 AC |R; NACH ........|
00003090: 92 00 14 20 81 46 52 45 54 4F 50 2B 31 3B 00 BC |... .FRETOP+1;..|
000030A0: 92 0A 14 20 82 44 53 44 41 44 52 2B 31 3B 00 C2 |... .DSDADR+1;..|
000030B0: 92 14 14 3B 00 ED 92 1E 14 20 81 42 55 46 46 45 |...;..... .BUFFE|
000030C0: 52 3B 20 C5 52 53 54 45 53 20 DA 45 49 43 48 45 |R; .RSTES .EICHE|
000030D0: 4E 20 56 4F 4E 20 C4 D3 2D D3 54 52 49 4E 47 00 |N VON ..-.TRING.|
000030E0: F5 92 28 14 20 A7 3B 00 08 93 32 14 20 92 23 24 |..(. .;...2. .#$|
000030F0: 33 30 3B 20 3C 3E 20 30 20 3F 00 24 93 3C 14 20 |30; <> 0 ?.$.<. |
00003100: B7 46 45 48 4C 45 52 3B 20 4A 41 20 3A 20 C6 45 |.FEHLER; JA : .E|
00003110: 48 4C 45 52 20 21 00 4B 93 46 14 20 81 42 55 46 |HLER !.K.F. .BUF|
00003120: 46 45 52 2B 31 3B 20 D3 4F 4E 53 54 3A 20 DA 57 |FER+1; .ONST: .W|
00003130: 45 49 54 45 53 20 DA 45 49 43 48 45 4E 00 53 93 |EITES .EICHEN.S.|
00003140: 50 14 20 A7 3B 00 70 93 5A 14 20 92 23 24 33 30 |P. .;.p.Z. .#$30|
00003150: 3B 20 41 55 46 20 30 20 BD 42 45 52 50 52 BD 46 |; AUF 0 .BERPR.F|
00003160: 45 4E 00 7E 93 64 14 20 B7 46 45 48 4C 45 52 3B |EN.~.d. .FEHLER;|
00003170: 00 AE 93 6E 14 20 96 28 5A 45 49 47 45 52 29 3B |...n. .(ZEIGER);|
00003180: 20 CB 45 49 4E 20 C6 45 48 4C 45 52 20 3A 20 D7 | .EIN .EHLER : .|
00003190: 45 49 54 45 52 20 49 4E 20 D2 4F 55 54 49 4E 45 |EITER IN .OUTINE|
000031A0: 00 B4 93 78 14 3B 00 DB 93 82 14 46 45 48 4C 45 |...x.;.....FEHLE|
000031B0: 52 20 97 43 4C 52 43 48 3B 20 C1 55 53 47 41 42 |R .CLRCH; .USGAB|
000031C0: 45 20 41 55 46 20 C4 45 46 41 55 4C 54 00 F8 93 |E AUF .EFAULT...|
000031D0: 8C 14 20 81 23 31 3B 20 C6 49 4C 45 20 53 43 48 |.. .#1; .ILE SCH|
000031E0: 4C 49 45 BE 45 4E 20 55 4E 44 00 1A 94 96 14 20 |LIE.EN UND..... |
000031F0: 96 43 4C 4F 53 45 3B 20 C1 55 53 54 49 45 47 20 |.CLOSE; .USTIEG |
00003200: 41 55 53 20 D0 52 4F 47 52 41 4D 4D 00 21 94 A0 |AUS .ROGRAMM.!..|
00003210: 14 2E 94 00 00 00 |...... |
.BNBD.;TOP******************************
************************..BN.; PROGRAMMN
AME: BASICERWEITERUNG.............
..... *.LBX.; ==========================
============================ *..C..; PRO
GRAMMIERSPRACHE: ASSEMBLER..............
........... *.JC..; PROGRAMMIERER:
CLAUS G.TTING..................... *..C.
.; DATUM: 27.12.1987.......
................. *.HC .; NEUE BEFEHLE:
TSAVE/TLOAD,GSAVE/GLOAD...........
*..D..; ZSAVE/ZLOAD
,ASAVE/ALOAD........... *.FD..; ========
========================================
====== *..D..;BOTTOM********************
*******************************..DH.;..D
R..."TEST,P,W"..D.. ..$2000.YD.. ..1,$20
00; CODESTART F.R ASE-ASSEMBLIERUNG..D..
;..E....IESCLK=$30C; VECTOR: UMWANDLUNG
IN TOKEN.6E....OLDILK=$4321; ALTER VECT
ORINHALT._E....SEARCH=$43E2; BEFEHLSWORT
ERKENNUNG..E....IESCPR=$30E; VEKTOR: UM
WANDLUNG TOKEN IN TEXT..E"...OLDIPR=$51C
D; ALTER VEKTORINHALT..E,...USTLST=$516A
; LISTEN EINES TOKENS..F6...IESCEX=$310;
VEKTOR: BEFEHL AUSF.HREN.7F@...OLDIEX=
$4BA9; ALTER VEKTORINHALT.QFJ...ZEIGER=$
FE; ZWEI-BYTEZEIGER F.R R.CKSPRUNGADRE
SSE..FT...OFF=$4251; OFF=SETVEC : SETZT
ALLE VECTOREN ZUR.CK..F^...SETPAR=$FFBA;
LOGISCHE FILENUMMER,GER.T,SEK.-ADR. SET
ZEN..GH...SETNAM=$FFBD; FILE-NAMEN-PARAM
ETER SETZEN.PGR...SETBNK=$FF68; B.NKE F.
R LSV UND FILENAMEN SETZEN..G|...YREG=$0
8; Y-REGISTER ALS Z.HLER F.R BEREICH-L
.NGE..G....OPEN=$FFC0; FILE .FFNEN.JG...
.CLOSE=$FFC3; FILE SCHLIE.EN..G....CKOUT
=$FFC9; AUSGABE AUF FILE LEGEN..H....CHK
IN=$FFC6; EINGABE AUF FILE LEGEN.JH....C
LRCH=$FFCC; EIN-/AUSGABE AUF DEFAULT.|H.
...REGSET=$CDCC; IN A WERT,IN X REGISTER
NUMMER..HB...REGRED=$CDD8; IN X REGISTER
NUMMER,BEI R.CKKEHR IN A WERT..HL...BSOU
T=$FFD2; ZEICHEN AUF AKT. AUSGABEGER.T A
USGEBEN.,IV...BASIN=$FFCF; ZEICHEN VOM A
KT. EINGABEGER.T HOLEN.SI....CR=$FF00; K
ONFIGURATIONSREGISTER..I....DOSF1L=$111;
L.NGE DES ERSTEN FILENAMENS..I....DOSF
A=$11C; GER.TENUMMER.GI....VERCK=$0C;
LOAD/VERIFY-FLAG..I....DOSPAR=$A3C3; PA
RAMETER F.R LOAD ETC. HOLEN.*J....SYNTAX
1=$80; SYNTAX-CHECKBYTE VON DOSPAR.VJ.
...MISTAKE=$4D3F; FEHLERMELDUNG AUSGEBEN
..J&...COMCPL=$A667; KOMMANDO-STRING ERZ
EUGEN..J0...DOSSTR=$1100; ADRESSE DES VO
N COMCPL ERZEUGTEN STRINGS..J:...SECTLK=
$FF96; SEKUND.RADRESSE NACH TALK SENDEN.
"KD...IECIN=$FFA5; ZEICHEN VOM IEC-BUS H
OLEN.FKN...STATUS=$90; IEC-STATUS-BYTE
.DKX...TALK=$FFB4; TALK SENDEN..KB...UNT
ALK=$FFAB; UNTALK SENDEN..KL...BUFFER=$B
00; ZWISCHENSPEICHER F.R FEHLERSTRING..
KV...DSDADR=$7B; ADRESSE VON DS$ IM ST
RING-BEREICH..L....DSDLEN=$7A; L.NGE V
ON DS$.RL....FRETOP=$35; ZEIGER AUF DE
N START DES STRING-SPEICHERS..L....STASH
=$2AF; IN A WERT,IN X KONFIGURATION..L.
...STAVEC=$2B9; IN STAVEC ADRESSE VON B
EL. ZEIGER.WL....LEN=$FA; L.NGE VON DS
$..L..;..M..START .#<(OWNLK); VEKTOREN A
UF EIGENE ROUTINEN.)MF. .#>(OWNLK); RICH
TEN.6MP. .IESCLK.EMZ. .IESCLK+1.UM.. .#<
(OWNPR).EM.. .#>(OWNPR).RM.. .IESCPR..M.
. .IESCPR+1..M.. .#<(EXEC)..M.. .#>(EXEC
)..M . .IESCEX..M*. .IESCEX+1.BM4. ..HM>
.;.NMH.;.TMR.;..M\.OWNLK .; LETZTES ZEIC
HEN RETTEN.#NF. .#>(TAB); STARTADRESSE D
ER TABELLE AN.DNP. .#<(TAB); SEAERCH .BE
RGEBEN.BNZ. .SEARCH; KEY-WORT SUCHEN..N.
. .NFOUND; PLUS: NICHT IN TABELLE..N.. .
#%0111'1111; DRIN: BIT 7 DER NUMMER L.SC
HEN.ZN.. .; CARRY CLEAR F.R ADDITION..N.
. .#$27; NUMMER IN TABELLE + $27..O.. .#
0; FLAG F.R PR.FIX $FE.0O.. .BACK; IMMER
!.6O..;.\OJ.NFOUND .; FLAG F.R NICHT GE
FUNDEN.UOT. .; AKKU ZUR.CKHOLEN..O..BACK
.OLDILK..O..;..O..;..O..;.FO..OWNPR .#$
FF; FLAG F.R PR.FIX $CE GESETZT?..O.. .N
OT; JA: KEIN LISTEN..P.. .#$27; 2. TOKEN
BYTE KLEINER ALS $27.&P$. .NOT; JA: NICH
T LISTEN.EP.. .#$30; 2. BYTE GR..ER $2F.
AP8. .NOT; JA: NICHT LISTEN.VPB. .; CARR
Y SETZEN.|PL.;..PV. .#$27; SONST $27 SUB
TR...P`. .#%1000'0000; 7. BIT SETZEN.QPJ
. .; IN X .BERGEBEN..PT. .#>(TAB); START
ADRESSE DER TABELLE..Q~. .#<(TAB); .BERG
EBEN.3Q.. .USTLST; BEFEHLSWORT LISTEN.9Q
..;.EQ..NOT .; FLAG: KEINE AUSG. DURCH I
NTERPR...Q.. .OLDIPR; ZUR.CK ZUR LIST-RO
UTINE..Q..;..Q..EXEC .#$27; 2. TOKENBYTE
KLEINER $27?.XQD. .NOBEF; JA: KEIN BEFE
HL..QN. .#$30; 2. BYTE GR..ER $2F?..RX.
.NOBEF; JA: KEIN BEFEHL.7R.. .; CARRY =
1 F.R SUBTRACTION.\R.. .#$27; $27 SUBTR.
=NUMMER BEFEHL.WR.. .; MAL 2: 0,2,4,6,..
...R.. .; ALS ZEIGER NACH X..R.. .ADR+1,
X; HIGHBYTE DER BEFEHLSADRESSE.RR.. ; A
UF DEN STACK..R.. .ADR,X; LOWBYTE DER BE
FEHLSADRESSE..S(. ; AUF DEN STACK.9S2.
.; FLAG: USER-ADRESSE AUF DEN STACK.AS<.
..$24; BIT-OPCODE: 'SEC' .BERLESEN..SF.
NOBEF .; FLAG: KEIN USERTOKEN..SP. .OLDI
EX; ZUM INTERPRETER ZUR.CK..SZ.;..SD.; B
EFEHLE.BSN.;.HSX.;..S..TAB .."GSAVEGLOAD
"; BEFEHLSTABELLE..T.. .."TSAVETLOAD";..
T.. .."ZSAVEZLOAD";.5T . .."ASAVEALOAD",
"OFF",0.;T..;.MT..ADR ..GSAVE-1.\T.. ..G
LOAD-1.KTH. ..TSAVE-1.ZTR. ..TLOAD-1..T.
. ..ZSAVE-1..T.. ..ZLOAD-1..T.. ..ASAVE-
1..T.. ..ALOAD-1.CT.. ..OFF-1.IT..;.OT..
;.UT".;..T,.; TSAVE : TEXT ABSPEICHERN..
T6.;..U@.TSAVE .NAMSET; NAME EINLESEN.4U
J. .ZUSATZ_S; NAME,S,W.=UT. .#0.WU^. .CR
; I/O EINSCHALTEN..UH. .OEFFNEN; FILE ZU
M SCHREIBEN .FFNEN..UR. .#<(TS_OK); ADRE
SSE F.R R.CKKEHR.KU|. .#>(TS_OK); IN ZEI
GER SPEICHERN.XU.. .ZEIGER..U.. .ZEIGER+
1..V.. .FEHLER?; FEHLER BEIM .FFNEN AUFG
ETRETEN?.9V..TS_OK .#1; LOGISCHE FILENUM
MER.XV.. .CKOUT; GER.T AUF AUSGABE.^V..;
.RVB. .#8; 7*256+208..VL. .YREG; =2000 B
YTES..VV. .#208..V..;..V.. .STSET_1; STA
RT BEI 0..V.. .WRITE; BYTES AUF DISKETTE
SCHREIBEN..V..;..V..;..V..;..W..; TLOAD
: TEXT LADEN..W&.;.7W0.TLOAD .NAMSET; P
ARAMETER F.R NAME.PW:. .ZUSATZ_L; NAME,S
,R.YWD. .#0.SWN. .CR; I/O EINSCHALTEN..W
X. .OEFFNEN; FILE ZUM SCHREIBEN .FFNEN.B
WB. .#<(TL_OK); ADRESSE F.R R.CKKEHR..WL
. .#>(TL_OK); IN ZEIGER..WV. .ZEIGER..W.
. .ZEIGER+1.(X.. .FEHLER?; FEHLER BEIM .
FFNEN AUFGETRETEN?.KX..TL_OK .#1; LOGISC
HE FILENUMMER.JX.. .CHKIN; GER.T AUF EIN
GABE.PX..;..X.. .#8; 7*256+208..X.. .YRE
G; =2000 BYTES..XF. .#208..XP.;.HXZ. .ST
SET_1; START BEI 0..X.. .READ; BYTES LES
EN..X..;..X..;..X..;..Y..; GSAVE : GRAFI
K ABSPEICHERN..Y..;.:Y .GSAVE .NAMSET; N
AME EINLESEN.SY*. .ZUSATZ_S; NAME,S,W.\Y
4. .#0.VY>. .CR; I/O EINSCHALTEN..YH. .O
EFFNEN; FILE ZUM SCHREIBEN .FFNEN.EYR. .
#<(GS_OK); ADRESSE F.R R.CKKEHR..Y\. .#>
(GS_OK); IN ZEIGER..YF. .ZEIGER..YP. .ZE
IGER+1.+ZZ. .FEHLER?; FEHLER BEIM .FFNEN
AUFGETRETEN?.NZ..GS_OK .#1; LOGISCHE FI
LENUMMER.MZ.. .CKOUT; GER.T AUF AUSGABE.
SZ..;..Z.. .#63; 62*256+128..Z.. .YREG;
= 16000 BYTES..Z.. .#0;..Z..;.NZJ. .STSE
T_1; START BEI 0..ZT. .WRITE; BYTES AUF
DISKETTE SCHREIBEN..Z..;..{..;..{..;.%{.
.; GLOAD : GRAFIK LADEN.+{..;.Q{..GLOAD
.NAMSET; PARAMETER F.R NAME.J{.. .ZUSATZ
_L; NAME,S,R.S{$. .#0..{.. .CR; I/O EINS
CHALTEN..{8. .OEFFNEN; FILE ZUM SCHREIBE
N .FFNEN..{B. .#<(GL_OK); ADRESSE F.R R.
CKKEHR..{L. .#>(GL_OK); IN ZEIGER..|V. .
ZEIGER..|`. .ZEIGER+1.B|J. .FEHLER?; FEH
LER BEIM .FFNEN AUFGETRETEN?.E|T.GL_OK .
#1; LOGISCHE FILENUMMER..|~. .CHKIN; GER
.T AUF EINGABE..|..;. |.. .#63; 62*256+1
28..|.. .YREG; = 16000 BYTES.F|.. .#128;
.L|..;..|.. .STSET_1; START BEI 0..|D. .
READ; BYTES LESEN..}N.;..}X.;..}..;.1}..
; ZLOAD : ZEICHENSATZ LADEN.7}..;.]}..ZL
OAD .NAMSET; PARAMETER F.R NAME.V}.. .ZU
SATZ_L; NAME,S,R.}.. .#0..}.. .CR; I/O
EINSCHALTEN.B}(. .OEFFNEN; FILE ZUM SCHR
EIBEN .FFNEN..}2. .#<(ZL_OK); ADRESSE F.
R R.CKKEHR..~<. .#>(ZL_OK); IN ZEIGER..~
F. .ZEIGER..~P. .ZEIGER+1.N~Z. .FEHLER?;
FEHLER BEIM .FFNEN AUFGETRETEN?.Q~D.ZL_
OK .#1; LOGISCHE FILENUMMER..~N. .CHKIN;
GER.T AUF EINGABE..~X.;..~.. .#32; 31*2
56+256.E~.. .YREG; = 8192 BYTES.W~.. .#0
; 255+1=0..~ .;..~.. .STSET_2; START BEI
$2000.... .READ; BYTES LESEN....;. H
.;.&R.;.L..; ZSAVE : ZEICHENSATZ ABSPE
ICHERN.R..;.S..ZSAVE .NAMSET; NAME EIN
LESEN.... .ZUSATZ_S; NAME,S,W.... .#0.
... .CR; I/O EINSCHALTEN.X.. .OEFFNEN;
FILE ZUM SCHREIBEN .FFNEN..". .#<(ZS_O
K); ADRESSE F.R R.CKKEHR...,. .#>(ZS_OK)
; IN ZEIGER.&.6. .ZEIGER.5.@. .ZEIGER+1.
D.J. .FEHLER?; FEHLER BEIM .FFNEN AUFGET
RETEN?...T.ZS_OK .#1; LOGISCHE FILENUMME
R...^. .CKOUT; GER.T AUF AUSGABE...H.;.B
.R. .#32; 31*256+256...|. .YREG; = 8192
BYTES..... .#0; 255+1=0.....;..... .STSE
T_2; START BEI $2000.<... .WRITE; BYTES
AUF DISKETTE SCHREIBEN.B...;.H...;.N.B.;
.T.L.; ASAVE : ATTRIBUTRAM ABSPEICHERN.Z
.V.;.....ASAVE .NAMSET; NAME EINLESEN...
.. .ZUSATZ_S; NAME,S,W..... .#0.W... .CR
; I/O EINSCHALTEN..... .OEFFNEN; FILE ZU
M SCHREIBEN .FFNEN.&... .#<(AS_OK); ADRE
SSE F.R R.CKKEHR.A... .#>(AS_OK); IN ZEI
GER.N.&. .ZEIGER.].0. .ZEIGER+1...:. .FE
HLER?; FEHLER BEIM .FFNEN AUFGETRETEN?..
.D.AS_OK .#1; LOGISCHE FILENUMMER.N.N. .
CKOUT; GER.T AUF AUSGABE.T.X.;...B. .#8;
7*256+208...L. .YREG; =2000 BYTES...V.
.#208.....;./... .STSET_3; START BEI $80
0.Y... .WRITE; BYTES AUF DISKETTE SCHREI
BEN._...;.E...;.K...;.....; ALOAD : ATTR
IBUTRAM ABSPEICHERN...F.;...P.ALOAD .NAM
SET; PARAMETER F.R NAME.V.Z. .ZUSATZ_L;
NAME,S,R..... .#0..... .CR; I/O EINSCHAL
TEN."... .OEFFNEN; FILE ZUM SCHREIBEN .F
FNEN.H... .#<(AL_OK); ADRESSE F.R R.CKKE
HR.C... .#>(AL_OK); IN ZEIGER.P... .ZEIG
ER.. . .ZEIGER+1...*. .FEHLER?; FEHLER
BEIM .FFNEN AUFGETRETEN?.Q.4.AL_OK .#1;
LOGISCHE FILENUMMER...>. .CHKIN; GER.T A
UF EINGABE...H.;...R. .#8; 7*256+208.".\
. .YREG; =2000 BYTES.-.F. .#208.3.P.;.Q.
Z. .STSET_3; START BEI $800.I... .READ;
BYTES LESEN.O...;.U...;.{...;.....STSET_
1 .#0; IM AKKU HIGHBYTE DES.I... .STSET;
ABZUSPEICHERNDEN BEREICHES.O...;...J.ST
SET_2 .#$20;...T. .STSET; IMMER.....;..
...STSET_3 .#$08;.....;.....;.B...STSET
.#18; IM XREG REGISTERNUMMER.H... .REGSE
T; HIGHBYTE IN REGISTER 18.N...;...$. .#
0; LOWBYTE IST IMMER 0..... .#19;...8. .
REGSET; LOWBYTE IN REGISTER 19.B.B.;.H.L
.;.N.V.;...`.WRITE .REGRED; BYTE AUS SPE
ICHER HOLEN...J. .BSOUT; UND AUF DISK SC
HREIBEN.%.T. .;.G.~. .WRITE; (YREG-1)*25
6+Y BYTES.S... .YREG;._... .WRITE.E...;.
.... .CLRCH; AUSGABE AUF DEFAULT..... .#
1; LOGISCHE FILENUMMER..... .CLOSE; FILE
SCHLIE.EN.F.D.;.L.N.;.R.X.;.....READ .B
ASIN; BYTE VON DISKETTE..... .#31; LESEN
.-... .REGSET; UND AN ADRESSE SCHREIBEN.
5... .;.V... .READ; (YREG-1)*256+Y BYTES
.A... .YREG.L... .READ...(. .CLRCH; AUSG
ABE AUF DEFAULT...2. .#1; LOGISCHE FILEN
UMMER.G.<. .CLOSE; FILE SCHLIE.EN.M.F.;.
S.P.;.Y.Z.;...D.; NAMEN LESEN...N.;...X.
NAMSET .#0; LOAD/VERIFY-FLAG AUF LOAD./.
.. .VERCK; SETZEN.B... .#%1110'0110; ERL
AUBT PARAMETER WIE BEI DLOAD..... .DOSPA
R; PARAMETER HOLEN... . .SYNTAX1; CHECKB
YTE 1 VON DOSPAR.M... .#%0000'0001; 1. D
ATEIDOSSTRN-BIT..... .#%0000'0001; GESET
ZT?..... .SYNERR; NEIN: KEIN NAME IST ER
ROR.*.H. .#4; TERMZ.HLER UND.O.R. .#5; S
CHL.SSEL F.R 'DSAVE' ETC..V... .COMCPL;
KOMMANDO-STRING ERZEUGEN.|...;.....SYNER
R .#11; NUMMER F.R SYNTAX ERROR.E... .MI
STAKE; MELDUNG AUSGEBEN.K...;.Q...;.W...
;...".ZUSATZ_S .#"W"; ZUSATZ = ',S,W'...
,. .R_W; F.R ABSPEICHERN.#.6. .ZUSATZ.).
@.;.M.J.ZUSATZ_L .#"R"; ZUSATZ = ',S,R'.
G.T. .R_W;F.R ABSPEICHERN.T.^. .ZUSATZ.Z
.H.;...R.;...|.ZUSATZ .#0..... .DOSF1L;
FILENAMENL.NGE.P... .DOSF1L; UM 2 ERH.HE
N (0:NAME)..... .DOSF1L.....ZUS1 .ZUS,Y.
.... .SKIP..... .DOSSTR,X...B. ....L. ..
.V. .ZUS1.1...SKIP .DOSF1L.8... ..>...;
.N...ZUS ..",S,".H...R_W ..$FF,0; R ODER
W.N...;.T...;.Z.&.;...0.OEFFNEN .#0...:
. .CR; I/O EINSCHALTEN.B.D. .#1; LOGISCH
E FILENUMMER...N. .DOSFA; GER.TEADRESSE.
..X. .#4; SEKUND.RADRESSE...B. .SETPAR..
.L.;.(.V. .DOSF1L; FILE-NAMENL.NGE.S...
.#<(DOSSTR); LOWBYTE DER NAMENADRESSE..
.. .#>(DOSSTR); HIGHBYTE DER NAMENADRESS
E..... .SETNAM.....;..... .#0; RAM-BANK-
NUMMER F.R LOAD ETC...... .; RAM-BANK-NU
MMER DES FILEDOSSTRNS..... .SETBNK...F.;
...P. .OPEN; FILE .FFNEN...Z.;.....;. ..
.;.9...; FEHLERKANALABFRAGE.?...;.U...FE
HLER? .FEH1; CARRY CLEAR : FEHLERKANAL A
BFRAGEN..... ; SONST :... . .CLRCH; AUS
GABE AUF DEFAULT...*. .#1;.L.4. .CLOSE;
FILE SCHLIE.EN.S.>. ....H. .; FEHLERNUMM
ER IN X...R. .MISTAKE; FEHLER AUSGEBEN..
.\.;...F.FEH1 .#0.&.P. ..C.Z. .STATUS; S
TATUS L.SCHEN.^... .DOSFA; GER.TEADRESSE
.J... .TALK;.{... .#%1101111;..... .SECT
LK; KANAL .FFNEN.....F1 .IECIN; BYTE VON
FEHLERKANAL..... .BUFFER,X; IN ZWISCHEN
SPEICHER..... ....J. .FRETOP; FREIER PLA
TZ F.R VARIABLEN.4.T. .FRETOP; VECTOR UM
1 ERNIEDRIGEN.@... .#255;.J... .F2;.Z..
. .FRETOP+1;.....F2 .STATUS; WIEDERHOLE
BIS EOF-BIT..... .F1; GESETZT..... .#0;
ALS LETZTES BYTE '0'.B... .BUFFER,X;.P.$
. .FRETOP;..... .FRETOP;...8. .#255;...B
. .F3;...L. .FRETOP+1;. .V.F3 .; L.NGE D
ES STRINGS.2.`. .LEN; IN LEN.K.J. .DSDLE
N; UND DSDLEN.O.T. .UNTALK; FEHLERKANAL
SCHLIE.EN.U.~.;..... .#FRETOP; ADRESSE V
ON FRETOP..... .STAVEC; IN STAVEC..... .
#0.....STORE .BUFFER,Y; STRING AUS ZWISC
HENSPEICHER..... .#%0111'1111; KONFIGURA
TION F.R BANK 1.7... .STASH; IN VARIABLE
N-BEREICH.?.D. .;.J.N. .LEN;.W.X. .STORE
;.]...;..... .FRETOP; ADRESSE DES DS-STR
INGS..... .DSDADR; NACH DSDADR..... .FRE
TOP+1;..... .DSDADR+1;.B...;..... .BUFFE
R; ERSTES ZEICHEN VON DS-STRING...(. .;.
..2. .#$30; <> 0 ?.$.<. .FEHLER; JA : FE
HLER !.K.F. .BUFFER+1; SONST: ZWEITES ZE
ICHEN.S.P. .;.P.Z. .#$30; AUF 0 .BERPR.F
EN.~.D. .FEHLER;...N. .(ZEIGER); KEIN FE
HLER : WEITER IN ROUTINE...X.;.....FEHLE
R .CLRCH; AUSGABE AUF DEFAULT..... .#1;
FILE SCHLIE.EN UND..... .CLOSE; AUSTIEG
AUS PROGRAMM.!. ......
> CLICK IMAGE PREVIEW FOR FULL MODAL