LISTING 8
FILE INFORMATION
FILENAME(S): LISTING 8
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 3 disk(s)
FILE HASH
ecedde9355ddf98c18fd0d23ef82888b864d14e5a3515ddbf9c72ab61729b63c
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 7 86 | LISTING 8 | PRG | C64er | 14 | 2 | DOWNLOAD FILE |
| SONDERHEFT 7 86 | LISTING 8 | PRG | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
| SONDERHEFT 7 86 | LISTING 8 | PRG | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 6D 5C 64 00 2E 90 24 31 43 35 30 00 7B 5C |a\m\d...$1C50.{\|
00000010: 6E 00 2E 93 22 4F 2C 50 2C 57 22 00 A1 5C 78 00 |n..."O,P,W"..\x.|
00000020: 3B 20 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: 2A 00 C7 5C 82 00 3B 20 2A 20 20 20 20 20 20 20 |*..\..; * |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 2A 00 ED 5C 8C 00 3B 20 2A 20 | *..\..; * |
00000070: 20 4D 41 53 43 48 49 4E 45 4E 53 50 52 41 43 48 | MASCHINENSPRACH|
00000080: 45 2D 50 52 4F 47 52 41 4D 4D 20 20 2A 00 13 5D |E-PROGRAMM *..]|
00000090: 96 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 2A 00 39 5D A0 00 3B 20 2A 20 20 20 20 20 | *.9]..; * |
000000C0: 20 4D 49 54 20 57 49 4E 44 4F 57 2D 54 45 43 48 | MIT WINDOW-TECH|
000000D0: 4E 49 4B 20 20 20 20 20 2A 00 5F 5D AA 00 3B 20 |NIK *._]..; |
000000E0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000100: 85 5D B4 00 3B 20 2A 20 20 20 20 20 20 20 20 20 |.]..; * |
00000110: 20 20 20 20 43 20 31 32 38 20 20 20 20 20 20 20 | C 128 |
00000120: 20 20 20 20 2A 00 AB 5D BE 00 3B 20 2A 20 20 20 | *..]..; * |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 2A 00 D1 5D C8 00 | *..]..|
00000150: 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |; **************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 00 F7 5D D2 00 3B 20 2A 20 20 20 20 20 20 20 |*..]..; * |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 2A 00 1D 5E DC 00 3B 20 2A 20 | *..^..; * |
000001A0: 28 43 29 20 31 39 38 36 20 42 59 20 46 4C 4F 52 |(C) 1986 BY FLOR|
000001B0: 49 41 4E 20 4D 55 45 4C 4C 45 52 20 2A 00 43 5E |IAN MUELLER *.C^|
000001C0: E6 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 2A 00 69 5E F0 00 3B 20 2A 2A 2A 2A 2A 2A | *.i^..; ******|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 5E FA 00 3B 00 |*********.o^..;.|
00000210: 97 5E 04 01 20 96 4D 41 49 4E 3B 20 55 4E 54 45 |.^.. .MAIN; UNTE|
00000220: 52 52 4F 55 54 49 4E 45 4E 20 55 45 42 45 52 53 |RROUTINEN UEBERS|
00000230: 50 52 49 4E 47 45 4E 00 9D 5E 0E 01 3B 00 B7 5E |PRINGEN..^..;..^|
00000240: 18 01 3B 20 53 59 4D 42 4F 4C 44 45 46 49 4E 49 |..; SYMBOLDEFINI|
00000250: 54 49 4F 4E 45 4E 3A 00 BD 5E 22 01 3B 00 E3 5E |TIONEN:..^".;..^|
00000260: 2C 01 2E 8F 5A 45 49 4C 45 3D 24 45 42 3B 20 41 |,...ZEILE=$EB; A|
00000270: 4B 54 55 45 4C 4C 45 20 43 55 52 53 4F 52 5A 45 |KTUELLE CURSORZE|
00000280: 49 4C 45 00 0B 5F 36 01 2E 8F 53 50 41 4C 54 45 |ILE.._6...SPALTE|
00000290: 3D 24 45 43 3B 20 41 4B 54 55 45 4C 4C 45 20 43 |=$EC; AKTUELLE C|
000002A0: 55 52 53 4F 52 53 50 41 4C 54 45 00 2E 5F 40 01 |URSORSPALTE.._@.|
000002B0: 5A 45 49 4C 45 31 20 2E 91 30 3B 20 5A 45 49 4C |ZEILE1 ..0; ZEIL|
000002C0: 45 20 49 4E 20 57 49 4E 44 4F 57 20 23 31 00 52 |E IN WINDOW #1.R|
000002D0: 5F 4A 01 53 50 41 4C 54 45 31 20 2E 91 30 3B 20 |_J.SPALTE1 ..0; |
000002E0: 53 50 41 4C 54 45 20 49 2E 57 49 4E 44 4F 57 20 |SPALTE I.WINDOW |
000002F0: 23 31 00 75 5F 54 01 5A 45 49 4C 45 32 20 2E 91 |#1.u_T.ZEILE2 ..|
00000300: 30 3B 20 5A 45 49 4C 45 20 49 4E 20 57 49 4E 44 |0; ZEILE IN WIND|
00000310: 4F 57 20 23 32 00 99 5F 5E 01 53 50 41 4C 54 45 |OW #2.._^.SPALTE|
00000320: 32 20 2E 91 30 3B 20 53 50 41 4C 54 45 20 49 2E |2 ..0; SPALTE I.|
00000330: 57 49 4E 44 4F 57 20 23 32 00 9F 5F 68 01 3B 00 |WINDOW #2.._h.;.|
00000340: C1 5F 72 01 2E 8F 53 45 54 43 55 52 3D 24 43 43 |._r...SETCUR=$CC|
00000350: 36 43 3B 20 43 55 52 53 4F 52 20 53 45 54 5A 45 |6C; CURSOR SETZE|
00000360: 4E 00 C7 5F 7C 01 3B 00 EC 5F 86 01 2E 8F 42 41 |N.._|.;.._....BA|
00000370: 53 4F 55 54 3D 24 46 46 44 32 3B 20 5A 45 49 43 |SOUT=$FFD2; ZEIC|
00000380: 48 45 4E 20 41 55 53 47 45 42 45 4E 00 0E 60 90 |HEN AUSGEBEN..`.|
00000390: 01 2E 8F 47 45 54 3D 24 46 46 45 34 3B 20 5A 45 |...GET=$FFE4; ZE|
000003A0: 49 43 48 45 4E 20 45 49 4E 47 45 42 45 4E 00 14 |ICHEN EINGEBEN..|
000003B0: 60 9A 01 3B 00 3D 60 A4 01 54 45 4D 50 31 20 2E |`..;.=`..TEMP1 .|
000003C0: 91 30 2C 30 3B 20 31 36 2D 42 49 54 2D 5A 57 49 |.0,0; 16-BIT-ZWI|
000003D0: 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 64 60 |SCHENSPEICHER.d`|
000003E0: AE 01 45 52 4B 4C 46 4C 41 47 20 2E 91 30 3B 20 |..ERKLFLAG ..0; |
000003F0: 46 4C 41 47 20 46 55 45 52 20 45 52 4B 4C 41 45 |FLAG FUER ERKLAE|
00000400: 52 55 4E 47 00 6A 60 B8 01 3B 00 91 60 C2 01 2E |RUNG.j`..;..`...|
00000410: 8F 43 4C 45 41 52 3D 24 39 33 3B 20 41 53 43 49 |.CLEAR=$93; ASCI|
00000420: 49 2D 43 4F 44 45 20 46 55 45 52 20 43 4C 45 41 |I-CODE FUER CLEA|
00000430: 52 00 B6 60 CC 01 2E 8F 48 4F 4D 45 3D 24 31 33 |R..`....HOME=$13|
00000440: 3B 20 41 53 43 49 49 2D 43 4F 44 45 20 46 55 45 |; ASCII-CODE FUE|
00000450: 52 20 48 4F 4D 45 00 DB 60 D6 01 2E 8F 43 52 3D |R HOME..`....CR=|
00000460: 24 30 44 3B 20 41 53 43 49 49 2D 43 4F 44 45 20 |$0D; ASCII-CODE |
00000470: 46 55 45 52 20 52 45 54 55 52 4E 00 E1 60 E0 01 |FUER RETURN..`..|
00000480: 3B 00 FB 60 EA 01 2E 8F 4C 49 4E 4B 53 31 3D 32 |;..`....LINKS1=2|
00000490: 3B 20 50 41 52 41 4D 45 54 45 52 00 12 61 F4 01 |; PARAMETER..a..|
000004A0: 2E 8F 52 45 43 48 54 53 31 3D 39 2B 31 3B 20 56 |..RECHTS1=9+1; V|
000004B0: 4F 4E 00 28 61 FE 01 2E 8F 4F 42 45 4E 31 3D 32 |ON.(a....OBEN1=2|
000004C0: 3B 20 57 49 4E 44 4F 57 00 41 61 08 02 2E 8F 55 |; WINDOW.Aa....U|
000004D0: 4E 54 45 4E 31 3D 31 30 2B 31 3B 20 4E 52 2E 20 |NTEN1=10+1; NR. |
000004E0: 31 00 47 61 12 02 3B 00 62 61 1C 02 2E 8F 4C 49 |1.Ga..;.ba....LI|
000004F0: 4E 4B 53 32 3D 31 32 3B 20 50 41 52 41 4D 45 54 |NKS2=12; PARAMET|
00000500: 45 52 00 7A 61 26 02 2E 8F 52 45 43 48 54 53 32 |ER.za&...RECHTS2|
00000510: 3D 32 39 2B 31 3B 20 56 4F 4E 00 90 61 30 02 2E |=29+1; VON..a0..|
00000520: 8F 4F 42 45 4E 32 3D 36 3B 20 57 49 4E 44 4F 57 |.OBEN2=6; WINDOW|
00000530: 00 A9 61 3A 02 2E 8F 55 4E 54 45 4E 32 3D 31 38 |..a:...UNTEN2=18|
00000540: 2B 31 3B 20 4E 52 2E 20 32 00 AF 61 44 02 3B 00 |+1; NR. 2..aD.;.|
00000550: DD 61 4E 02 2E 8F 4C 41 45 4E 47 45 31 3D 28 52 |.aN...LAENGE1=(R|
00000560: 45 43 48 54 53 31 2D 4C 49 4E 4B 53 31 29 2A 28 |ECHTS1-LINKS1)*(|
00000570: 55 4E 54 45 4E 31 2D 4F 42 45 4E 31 29 00 0B 62 |UNTEN1-OBEN1)..b|
00000580: 58 02 2E 8F 4C 41 45 4E 47 45 32 3D 28 52 45 43 |X...LAENGE2=(REC|
00000590: 48 54 53 32 2D 4C 49 4E 4B 53 32 29 2A 28 55 4E |HTS2-LINKS2)*(UN|
000005A0: 54 45 4E 32 2D 4F 42 45 4E 32 29 00 11 62 62 02 |TEN2-OBEN2)..bb.|
000005B0: 3B 00 36 62 6C 02 4F 55 54 50 55 54 42 59 54 45 |;.6bl.OUTPUTBYTE|
000005C0: 20 2E 91 30 3B 20 5A 57 49 53 43 48 45 4E 53 50 | ..0; ZWISCHENSP|
000005D0: 45 49 43 48 45 52 00 3C 62 76 02 3B 00 65 62 80 |EICHER.<bv.;.eb.|
000005E0: 02 2E 8F 54 45 58 54 50 54 52 3D 24 32 32 3B 20 |...TEXTPTR=$22; |
000005F0: 5A 45 49 47 45 52 20 41 55 46 20 54 45 58 54 53 |ZEIGER AUF TEXTS|
00000600: 54 45 4C 4C 45 00 6B 62 8A 02 3B 00 7F 62 94 02 |TELLE.kb..;..b..|
00000610: 3B 20 50 52 4F 47 52 41 4D 4D 54 45 58 54 3A 00 |; PROGRAMMTEXT:.|
00000620: 93 62 9E 02 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.b..; ==========|
00000630: 3D 3D 3D 00 99 62 A8 02 3B 00 9F 62 B2 02 3B 00 |===..b..;..b..;.|
00000640: A5 62 BC 02 3B 00 C7 62 C6 02 3B 20 55 4E 54 45 |.b..;..b..; UNTE|
00000650: 52 52 4F 55 54 49 4E 45 4E 20 46 55 45 52 20 57 |RROUTINEN FUER W|
00000660: 49 4E 44 4F 57 53 3A 00 E9 62 D0 02 3B 20 3D 3D |INDOWS:..b..; ==|
00000670: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000680: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 EF 62 DA 02 3B 00 |=========..b..;.|
00000690: 15 63 E4 02 4F 55 54 57 31 20 82 4F 55 54 50 55 |.c..OUTW1 .OUTPU|
000006A0: 54 42 59 54 45 3B 20 5A 45 49 43 48 45 4E 20 4D |TBYTE; ZEICHEN M|
000006B0: 45 52 4B 45 4E 00 28 63 EE 02 20 98 3B 20 58 2D |ERKEN.(c.. .; X-|
000006C0: 52 45 47 49 53 54 45 52 00 37 63 F8 02 20 A0 3B |REGISTER.7c.. .;|
000006D0: 20 52 45 54 54 45 4E 00 4A 63 02 03 20 9A 3B 20 | RETTEN.Jc.. .; |
000006E0: 59 2D 52 45 47 49 53 54 45 52 00 59 63 0C 03 20 |Y-REGISTER.Yc.. |
000006F0: A0 3B 20 52 45 54 54 45 4E 00 5F 63 16 03 3B 00 |.; RETTEN._c..;.|
00000700: 7A 63 20 03 20 81 53 50 41 4C 54 45 3B 20 43 55 |zc . .SPALTE; CU|
00000710: 52 53 4F 52 53 50 41 4C 54 45 00 89 63 2A 03 20 |RSORSPALTE..c*. |
00000720: A0 3B 20 52 45 54 54 45 4E 00 A2 63 34 03 20 81 |.; RETTEN..c4. .|
00000730: 5A 45 49 4C 45 3B 20 43 55 52 53 4F 52 5A 45 49 |ZEILE; CURSORZEI|
00000740: 4C 45 00 B1 63 3E 03 20 A0 3B 20 52 45 54 54 45 |LE..c>. .; RETTE|
00000750: 4E 00 B7 63 48 03 3B 00 DE 63 52 03 20 81 4F 55 |N..cH.;..cR. .OU|
00000760: 54 50 55 54 42 59 54 45 3B 20 5A 45 49 43 48 45 |TPUTBYTE; ZEICHE|
00000770: 4E 20 57 49 45 44 45 52 20 48 4F 4C 45 4E 00 F1 |N WIEDER HOLEN..|
00000780: 63 5C 03 20 85 23 43 52 3B 20 52 45 54 55 52 4E |c\. .#CR; RETURN|
00000790: 3F 00 14 64 66 03 20 B7 54 45 53 54 48 4F 4D 45 |?..df. .TESTHOME|
000007A0: 31 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 |1; NEIN, DANN WE|
000007B0: 49 54 45 52 00 2E 64 70 03 20 81 5A 45 49 4C 45 |ITER..dp. .ZEILE|
000007C0: 31 3B 20 5A 45 49 4C 45 20 48 4F 4C 45 4E 00 4D |1; ZEILE HOLEN.M|
000007D0: 64 7A 03 20 85 23 55 4E 54 45 4E 31 3B 20 55 4E |dz. .#UNTEN1; UN|
000007E0: 54 45 52 53 54 45 20 5A 45 49 4C 45 3F 00 6C 64 |TERSTE ZEILE?.ld|
000007F0: 84 03 20 B6 45 4E 44 43 52 31 3B 20 4A 41 2C 20 |.. .ENDCR1; JA, |
00000800: 44 41 4E 4E 20 42 45 45 4E 44 45 4E 00 91 64 8E |DANN BEENDEN..d.|
00000810: 03 20 8A 5A 45 49 4C 45 31 3B 20 53 4F 4E 53 54 |. .ZEILE1; SONST|
00000820: 20 5A 45 49 4C 45 20 4E 41 43 48 20 55 4E 54 45 | ZEILE NACH UNTE|
00000830: 4E 00 B0 64 98 03 20 81 23 4C 49 4E 4B 53 31 3B |N..d.. .#LINKS1;|
00000840: 20 4C 49 4E 4B 45 4E 20 52 41 4E 44 20 41 4C 53 | LINKEN RAND ALS|
00000850: 00 CD 64 A2 03 20 82 53 50 41 4C 54 45 31 3B 20 |..d.. .SPALTE1; |
00000860: 53 50 41 4C 54 45 20 53 45 54 5A 45 4E 00 D3 64 |SPALTE SETZEN..d|
00000870: AC 03 3B 00 05 65 B6 03 45 4E 44 43 52 31 20 96 |..;..e..ENDCR1 .|
00000880: 45 4E 44 4F 55 54 57 3B 20 57 45 52 54 45 20 56 |ENDOUTW; WERTE V|
00000890: 4F 4D 20 53 54 41 43 4B 20 48 4F 4C 45 4E 20 26 |OM STACK HOLEN &|
000008A0: 20 45 4E 44 45 00 0B 65 C0 03 3B 00 27 65 CA 03 | ENDE..e..;.'e..|
000008B0: 54 45 53 54 48 4F 4D 45 31 20 85 23 48 4F 4D 45 |TESTHOME1 .#HOME|
000008C0: 3B 20 48 4F 4D 45 3F 00 49 65 D4 03 20 B7 54 45 |; HOME?.Ie.. .TE|
000008D0: 53 54 43 4C 52 31 3B 20 4E 45 49 4E 2C 20 44 41 |STCLR1; NEIN, DA|
000008E0: 4E 4E 20 57 45 49 54 45 52 00 68 65 DE 03 48 4F |NN WEITER.he..HO|
000008F0: 4D 45 31 20 81 23 4F 42 45 4E 31 3B 20 4F 42 45 |ME1 .#OBEN1; OBE|
00000900: 52 45 4E 20 52 41 4E 44 00 87 65 E8 03 20 82 5A |REN RAND..e.. .Z|
00000910: 45 49 4C 45 31 3B 20 41 4C 53 20 5A 45 49 4C 45 |EILE1; ALS ZEILE|
00000920: 20 53 45 54 5A 45 4E 00 A2 65 F2 03 20 81 23 4C | SETZEN..e.. .#L|
00000930: 49 4E 4B 53 31 3B 20 4C 49 4E 4B 45 4E 20 52 41 |INKS1; LINKEN RA|
00000940: 4E 44 00 C3 65 FC 03 20 82 53 50 41 4C 54 45 31 |ND..e.. .SPALTE1|
00000950: 3B 20 41 4C 53 20 53 50 41 4C 54 45 20 53 45 54 |; ALS SPALTE SET|
00000960: 5A 45 4E 00 D7 65 06 04 20 96 45 4E 44 4F 55 54 |ZEN..e.. .ENDOUT|
00000970: 57 3B 20 45 4E 44 45 00 DD 65 10 04 3B 00 FA 65 |W; ENDE..e..;..e|
00000980: 1A 04 54 45 53 54 43 4C 52 31 20 85 23 43 4C 45 |..TESTCLR1 .#CLE|
00000990: 41 52 3B 20 43 4C 45 41 52 3F 00 24 66 24 04 20 |AR; CLEAR?.$f$. |
000009A0: B7 50 52 49 4E 54 31 3B 20 4E 45 49 4E 2C 20 44 |.PRINT1; NEIN, D|
000009B0: 41 4E 4E 20 5A 45 49 43 48 45 4E 20 41 55 53 47 |ANN ZEICHEN AUSG|
000009C0: 45 42 45 4E 00 2A 66 2E 04 3B 00 41 66 38 04 3B |EBEN.*f..;.Af8.;|
000009D0: 20 57 49 4E 44 4F 57 20 4C 4F 45 53 43 48 45 4E | WINDOW LOESCHEN|
000009E0: 3A 00 47 66 42 04 3B 00 5E 66 4C 04 20 81 23 31 |:.GfB.;.^fL. .#1|
000009F0: 34 36 3B 20 52 45 56 45 52 53 20 4F 46 46 00 75 |46; REVERS OFF.u|
00000A00: 66 56 04 20 97 42 41 53 4F 55 54 3B 20 41 55 53 |fV. .BASOUT; AUS|
00000A10: 47 45 42 45 4E 00 7B 66 60 04 3B 00 90 66 6A 04 |GEBEN.{f`.;..fj.|
00000A20: 20 81 23 4C 49 4E 4B 53 31 3B 20 4C 49 4E 4B 45 | .#LINKS1; LINKE|
00000A30: 00 A5 66 74 04 20 82 53 50 41 4C 54 45 31 3B 20 |..ft. .SPALTE1; |
00000A40: 4F 42 45 52 45 00 BC 66 7E 04 20 81 23 4F 42 45 |OBERE..f~. .#OBE|
00000A50: 4E 31 3B 20 45 43 4B 45 20 41 4C 53 00 D9 66 88 |N1; ECKE ALS..f.|
00000A60: 04 20 82 5A 45 49 4C 45 31 3B 20 43 55 52 53 4F |. .ZEILE1; CURSO|
00000A70: 52 50 4F 53 49 54 49 4F 4E 00 DF 66 92 04 3B 00 |RPOSITION..f..;.|
00000A80: 06 67 9C 04 53 43 48 4C 45 49 46 45 31 20 97 43 |.g..SCHLEIFE1 .C|
00000A90: 4C 45 41 52 31 43 3B 20 53 50 41 43 45 20 41 55 |LEAR1C; SPACE AU|
00000AA0: 53 47 45 42 45 4E 00 22 67 A6 04 20 81 53 50 41 |SGEBEN."g.. .SPA|
00000AB0: 4C 54 45 31 3B 20 53 50 41 4C 54 45 20 48 4F 4C |LTE1; SPALTE HOL|
00000AC0: 45 4E 00 4D 67 B0 04 20 85 23 28 52 45 43 48 54 |EN.Mg.. .#(RECHT|
00000AD0: 53 31 2D 31 29 3B 20 53 43 48 4F 4E 20 41 4D 20 |S1-1); SCHON AM |
00000AE0: 52 45 43 48 54 45 4E 20 52 41 4E 44 3F 00 77 67 |RECHTEN RAND?.wg|
00000AF0: BA 04 20 B5 43 4C 45 41 52 31 41 3B 20 4E 45 49 |.. .CLEAR1A; NEI|
00000B00: 4E 2C 20 44 41 4E 4E 20 53 50 41 4C 54 45 20 45 |N, DANN SPALTE E|
00000B10: 52 48 4F 45 48 45 4E 00 91 67 C4 04 20 81 5A 45 |RHOEHEN..g.. .ZE|
00000B20: 49 4C 45 31 3B 20 5A 45 49 4C 45 20 48 4F 4C 45 |ILE1; ZEILE HOLE|
00000B30: 4E 00 B2 67 CE 04 20 85 23 28 55 4E 54 45 4E 31 |N..g.. .#(UNTEN1|
00000B40: 2D 31 29 3B 20 55 4E 54 45 52 45 52 20 52 41 4E |-1); UNTERER RAN|
00000B50: 44 3F 00 D5 67 D8 04 20 B8 45 4E 44 43 4C 45 41 |D?..g.. .ENDCLEA|
00000B60: 52 31 3B 20 20 4A 41 2C 20 44 41 4E 4E 20 42 45 |R1; JA, DANN BE|
00000B70: 45 4E 44 45 4E 00 08 68 E2 04 20 B7 43 4C 45 41 |ENDEN..h.. .CLEA|
00000B80: 52 31 42 3B 20 53 4F 4E 53 54 20 41 4E 20 42 45 |R1B; SONST AN BE|
00000B90: 47 49 4E 4E 20 44 45 52 20 4E 41 45 43 48 53 54 |GINN DER NAECHST|
00000BA0: 45 4E 20 5A 45 49 4C 45 00 0E 68 EC 04 3B 00 34 |EN ZEILE..h..;.4|
00000BB0: 68 F6 04 43 4C 45 41 52 31 41 20 8A 53 50 41 4C |h..CLEAR1A .SPAL|
00000BC0: 54 45 31 3B 20 53 50 41 4C 54 45 20 45 52 48 4F |TE1; SPALTE ERHO|
00000BD0: 45 48 45 4E 00 52 68 00 05 20 96 53 43 48 4C 45 |EHEN.Rh.. .SCHLE|
00000BE0: 49 46 45 31 3B 20 57 45 49 54 45 52 4D 41 43 48 |IFE1; WEITERMACH|
00000BF0: 45 4E 00 58 68 0A 05 3B 00 7C 68 14 05 43 4C 45 |EN.Xh..;.|h..CLE|
00000C00: 41 52 31 42 20 8A 5A 45 49 4C 45 31 3B 20 5A 45 |AR1B .ZEILE1; ZE|
00000C10: 49 4C 45 20 45 52 48 4F 45 48 45 4E 00 97 68 1E |ILE ERHOEHEN..h.|
00000C20: 05 20 81 23 4C 49 4E 4B 53 31 3B 20 4C 49 4E 4B |. .#LINKS1; LINK|
00000C30: 45 4E 20 52 41 4E 44 00 B8 68 28 05 20 82 53 50 |EN RAND..h(. .SP|
00000C40: 41 4C 54 45 31 3B 20 41 4C 53 20 53 50 41 4C 54 |ALTE1; ALS SPALT|
00000C50: 45 20 53 45 54 5A 45 4E 00 DD 68 32 05 20 96 53 |E SETZEN..h2. .S|
00000C60: 43 48 4C 45 49 46 45 31 3B 20 55 4E 44 20 57 45 |CHLEIFE1; UND WE|
00000C70: 49 54 45 52 20 4C 4F 45 53 43 48 45 4E 00 E3 68 |ITER LOESCHEN..h|
00000C80: 3C 05 3B 00 FE 68 46 05 43 4C 45 41 52 31 43 20 |<.;..hF.CLEAR1C |
00000C90: 83 5A 45 49 4C 45 31 3B 20 5A 45 49 4C 45 00 18 |.ZEILE1; ZEILE..|
00000CA0: 69 50 05 20 84 53 50 41 4C 54 45 31 3B 20 55 4E |iP. .SPALTE1; UN|
00000CB0: 44 20 53 50 41 4C 54 45 00 2D 69 5A 05 20 97 53 |D SPALTE.-iZ. .S|
00000CC0: 45 54 43 55 52 3B 20 53 45 54 5A 45 4E 00 45 69 |ETCUR; SETZEN.Ei|
00000CD0: 64 05 20 81 23 22 20 22 3B 20 4C 45 45 52 5A 45 |d. .#" "; LEERZE|
00000CE0: 49 43 48 45 4E 00 6E 69 6E 05 20 96 42 41 53 4F |ICHEN.nin. .BASO|
00000CF0: 55 54 3B 20 41 4E 20 4C 4F 45 53 43 48 50 4F 53 |UT; AN LOESCHPOS|
00000D00: 49 54 49 4F 4E 20 41 55 53 47 45 42 45 4E 00 74 |ITION AUSGEBEN.t|
00000D10: 69 78 05 3B 00 7A 69 82 05 3B 00 B2 69 8C 05 45 |ix.;.zi..;..i..E|
00000D20: 4E 44 43 4C 45 41 52 31 20 96 48 4F 4D 45 31 3B |NDCLEAR1 .HOME1;|
00000D30: 20 43 55 52 53 4F 52 20 49 4E 20 4C 49 4E 4B 45 | CURSOR IN LINKE|
00000D40: 20 4F 42 45 52 45 20 57 49 4E 44 4F 57 2D 45 43 | OBERE WINDOW-EC|
00000D50: 4B 45 00 B8 69 96 05 3B 00 BE 69 A0 05 3B 00 C4 |KE..i..;..i..;..|
00000D60: 69 AA 05 3B 00 DE 69 B4 05 50 52 49 4E 54 31 20 |i..;..i..PRINT1 |
00000D70: 83 5A 45 49 4C 45 31 3B 20 5A 45 49 4C 45 00 F8 |.ZEILE1; ZEILE..|
00000D80: 69 BE 05 20 84 53 50 41 4C 54 45 31 3B 20 55 4E |i.. .SPALTE1; UN|
00000D90: 44 20 53 50 41 4C 54 45 00 17 6A C8 05 20 97 53 |D SPALTE..j.. .S|
00000DA0: 45 54 43 55 52 3B 20 49 4D 20 57 49 4E 44 4F 57 |ETCUR; IM WINDOW|
00000DB0: 20 53 45 54 5A 45 4E 00 37 6A D2 05 20 81 4F 55 | SETZEN.7j.. .OU|
00000DC0: 54 50 55 54 42 59 54 45 3B 20 5A 45 49 43 48 45 |TPUTBYTE; ZEICHE|
00000DD0: 4E 20 48 4F 4C 45 4E 00 68 6A DC 05 20 97 42 41 |N HOLEN.hj.. .BA|
00000DE0: 53 4F 55 54 3B 20 55 4E 44 20 41 4E 20 47 45 53 |SOUT; UND AN GES|
00000DF0: 45 54 5A 54 45 52 20 50 4F 53 49 54 49 4F 4E 20 |ETZTER POSITION |
00000E00: 41 55 53 47 45 42 45 4E 00 6E 6A E6 05 3B 00 8D |AUSGEBEN.nj..;..|
00000E10: 6A F0 05 20 8A 53 50 41 4C 54 45 31 3B 20 53 50 |j.. .SPALTE1; SP|
00000E20: 41 4C 54 45 20 45 52 48 4F 45 48 45 4E 00 A9 6A |ALTE ERHOEHEN..j|
00000E30: FA 05 20 81 53 50 41 4C 54 45 31 3B 20 53 50 41 |.. .SPALTE1; SPA|
00000E40: 4C 54 45 20 48 4F 4C 45 4E 00 D5 6A 04 06 20 85 |LTE HOLEN..j.. .|
00000E50: 23 52 45 43 48 54 53 31 3B 20 55 45 42 45 52 20 |#RECHTS1; UEBER |
00000E60: 52 45 43 48 54 45 20 47 52 45 4E 5A 45 20 48 49 |RECHTE GRENZE HI|
00000E70: 4E 41 55 53 3F 00 F7 6A 0E 06 20 B5 45 4E 44 4F |NAUS?..j.. .ENDO|
00000E80: 55 54 57 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 |UTW; NEIN, DANN |
00000E90: 42 45 45 4E 44 45 4E 00 18 6B 18 06 20 81 23 4C |BEENDEN..k.. .#L|
00000EA0: 49 4E 4B 53 31 3B 20 53 4F 4E 53 54 20 4C 49 4E |INKS1; SONST LIN|
00000EB0: 4B 45 4E 20 52 41 4E 44 00 39 6B 22 06 20 82 53 |KEN RAND.9k". .S|
00000EC0: 50 41 4C 54 45 31 3B 20 41 4C 53 20 53 50 41 4C |PALTE1; ALS SPAL|
00000ED0: 54 45 20 53 45 54 5A 45 4E 00 5D 6B 2C 06 20 8A |TE SETZEN.]k,. .|
00000EE0: 5A 45 49 4C 45 31 3B 20 45 49 4E 45 20 5A 45 49 |ZEILE1; EINE ZEI|
00000EF0: 4C 45 20 4E 41 43 48 20 55 4E 54 45 4E 00 77 6B |LE NACH UNTEN.wk|
00000F00: 36 06 20 81 5A 45 49 4C 45 31 3B 20 5A 45 49 4C |6. .ZEILE1; ZEIL|
00000F10: 45 20 48 4F 4C 45 4E 00 9B 6B 40 06 20 85 23 55 |E HOLEN..k@. .#U|
00000F20: 4E 54 45 4E 31 3B 20 53 43 48 4F 4E 20 55 4E 54 |NTEN1; SCHON UNT|
00000F30: 45 52 53 54 45 20 5A 45 49 4C 45 00 BA 6B 4A 06 |ERSTE ZEILE..kJ.|
00000F40: 20 B5 45 4E 44 4F 55 54 57 3B 20 4E 45 49 4E 2C | .ENDOUTW; NEIN,|
00000F50: 20 44 41 4E 4E 20 45 4E 44 45 00 DF 6B 54 06 20 | DANN ENDE..kT. |
00000F60: 81 23 4F 42 45 4E 31 3B 20 53 4F 4E 53 54 20 43 |.#OBEN1; SONST C|
00000F70: 55 52 53 4F 52 20 49 4D 20 57 49 4E 44 4F 57 00 |URSOR IM WINDOW.|
00000F80: FE 6B 5E 06 20 82 5A 45 49 4C 45 31 3B 20 49 4E |.k^. .ZEILE1; IN|
00000F90: 20 4F 42 45 52 53 54 45 20 5A 45 49 4C 45 00 04 | OBERSTE ZEILE..|
00000FA0: 6C 68 06 3B 00 19 6C 72 06 45 4E 44 4F 55 54 57 |lh.;..lr.ENDOUTW|
00000FB0: 20 A1 3B 20 5A 45 49 4C 45 00 2C 6C 7C 06 20 82 | .; ZEILE.,l|. .|
00000FC0: 5A 45 49 4C 45 3B 20 48 4F 4C 45 4E 00 3B 6C 86 |ZEILE; HOLEN.;l.|
00000FD0: 06 20 A1 3B 20 53 50 41 4C 54 45 00 4F 6C 90 06 |. .; SPALTE.Ol..|
00000FE0: 20 82 53 50 41 4C 54 45 3B 20 48 4F 4C 45 4E 00 | .SPALTE; HOLEN.|
00000FF0: 55 6C 9A 06 3B 00 68 6C A4 06 20 A1 3B 20 59 2D |Ul..;.hl.. .; Y-|
00001000: 52 45 47 49 53 54 45 52 00 76 6C AE 06 20 9B 3B |REGISTER.vl.. .;|
00001010: 20 48 4F 4C 45 4E 00 89 6C B8 06 20 A1 3B 20 58 | HOLEN..l.. .; X|
00001020: 2D 52 45 47 49 53 54 45 52 00 97 6C C2 06 20 99 |-REGISTER..l.. .|
00001030: 3B 20 48 4F 4C 45 4E 00 B9 6C CC 06 20 81 4F 55 |; HOLEN..l.. .OU|
00001040: 54 50 55 54 42 59 54 45 3B 20 5A 45 49 43 48 45 |TPUTBYTE; ZEICHE|
00001050: 4E 20 49 4E 20 41 4B 4B 55 00 D1 6C D6 06 20 A4 |N IN AKKU..l.. .|
00001060: 3B 20 52 4F 55 54 49 4E 45 20 42 45 45 4E 44 45 |; ROUTINE BEENDE|
00001070: 4E 00 D7 6C E0 06 3B 00 DD 6C EA 06 3B 00 FC 6C |N..l..;..l..;..l|
00001080: F4 06 3B 20 44 49 45 20 47 4C 45 49 43 48 45 20 |..; DIE GLEICHE |
00001090: 52 4F 55 54 49 4E 45 20 46 55 45 52 00 0D 6D FE |ROUTINE FUER..m.|
000010A0: 06 3B 20 57 49 4E 44 4F 57 20 23 32 3A 00 13 6D |.; WINDOW #2:..m|
000010B0: 08 07 3B 00 29 6D 12 07 4F 55 54 57 32 20 82 4F |..;.)m..OUTW2 .O|
000010C0: 55 54 50 55 54 42 59 54 45 00 30 6D 1C 07 20 98 |UTPUTBYTE.0m.. .|
000010D0: 00 37 6D 26 07 20 A0 00 3E 6D 30 07 20 9A 00 45 |.7m&. ..>m0. ..E|
000010E0: 6D 3A 07 20 A0 00 4B 6D 44 07 3B 00 58 6D 4E 07 |m:. ..KmD.;.XmN.|
000010F0: 20 81 53 50 41 4C 54 45 00 5F 6D 58 07 20 A0 00 | .SPALTE._mX. ..|
00001100: 6B 6D 62 07 20 81 5A 45 49 4C 45 00 72 6D 6C 07 |kmb. .ZEILE.rml.|
00001110: 20 A0 00 78 6D 76 07 3B 00 89 6D 80 07 20 81 4F | ..xmv.;..m.. .O|
00001120: 55 54 50 55 54 42 59 54 45 00 93 6D 8A 07 20 85 |UTPUTBYTE..m.. .|
00001130: 23 43 52 00 A3 6D 94 07 20 B7 54 45 53 54 48 4F |#CR..m.. .TESTHO|
00001140: 4D 45 32 00 B0 6D 9E 07 20 81 5A 45 49 4C 45 32 |ME2..m.. .ZEILE2|
00001150: 00 BE 6D A8 07 20 85 23 55 4E 54 45 4E 32 00 CB |..m.. .#UNTEN2..|
00001160: 6D B2 07 20 B6 45 4E 44 43 52 32 00 D8 6D BC 07 |m.. .ENDCR2..m..|
00001170: 20 8A 5A 45 49 4C 45 32 00 E6 6D C6 07 20 81 23 | .ZEILE2..m.. .#|
00001180: 4C 49 4E 4B 53 32 00 F4 6D D0 07 20 82 53 50 41 |LINKS2..m.. .SPA|
00001190: 4C 54 45 32 00 FA 6D DA 07 3B 00 0E 6E E4 07 45 |LTE2..m..;..n..E|
000011A0: 4E 44 43 52 32 20 96 45 4E 44 4F 55 54 57 00 14 |NDCR2 .ENDOUTW..|
000011B0: 6E EE 07 3B 00 29 6E F8 07 54 45 53 54 48 4F 4D |n..;.)n..TESTHOM|
000011C0: 45 32 20 85 23 48 4F 4D 45 00 38 6E 02 08 20 B7 |E2 .#HOME.8n.. .|
000011D0: 54 45 53 54 43 4C 52 32 00 4A 6E 0C 08 48 4F 4D |TESTCLR2.Jn..HOM|
000011E0: 45 32 20 81 23 4F 42 45 4E 32 00 57 6E 16 08 20 |E2 .#OBEN2.Wn.. |
000011F0: 82 5A 45 49 4C 45 32 00 65 6E 20 08 20 81 23 4C |.ZEILE2.en . .#L|
00001200: 49 4E 4B 53 32 00 73 6E 2A 08 20 82 53 50 41 4C |INKS2.sn*. .SPAL|
00001210: 54 45 32 00 81 6E 34 08 20 96 45 4E 44 4F 55 54 |TE2..n4. .ENDOUT|
00001220: 57 00 87 6E 3E 08 3B 00 9C 6E 48 08 54 45 53 54 |W..n>.;..nH.TEST|
00001230: 43 4C 52 32 20 85 23 43 4C 45 41 52 00 A9 6E 52 |CLR2 .#CLEAR..nR|
00001240: 08 20 B7 50 52 49 4E 54 32 00 AF 6E 5C 08 3B 00 |. .PRINT2..n\.;.|
00001250: C6 6E 66 08 3B 20 57 49 4E 44 4F 57 20 4C 4F 45 |.nf.; WINDOW LOE|
00001260: 53 43 48 45 4E 3A 00 CC 6E 70 08 3B 00 E3 6E 7A |SCHEN:..np.;..nz|
00001270: 08 20 81 23 31 34 36 3B 20 52 45 56 45 52 53 20 |. .#146; REVERS |
00001280: 4F 46 46 00 FA 6E 84 08 20 97 42 41 53 4F 55 54 |OFF..n.. .BASOUT|
00001290: 3B 20 41 55 53 47 45 42 45 4E 00 00 6F 8E 08 3B |; AUSGEBEN..o..;|
000012A0: 00 0E 6F 98 08 20 81 23 4C 49 4E 4B 53 32 00 1C |..o.. .#LINKS2..|
000012B0: 6F A2 08 20 82 53 50 41 4C 54 45 32 00 29 6F AC |o.. .SPALTE2.)o.|
000012C0: 08 20 81 23 4F 42 45 4E 32 00 36 6F B6 08 20 82 |. .#OBEN2.6o.. .|
000012D0: 5A 45 49 4C 45 32 00 3C 6F C0 08 3B 00 53 6F CA |ZEILE2.<o..;.So.|
000012E0: 08 53 43 48 4C 45 49 46 45 32 20 97 43 4C 45 41 |.SCHLEIFE2 .CLEA|
000012F0: 52 32 43 00 61 6F D4 08 20 81 53 50 41 4C 54 45 |R2C.ao.. .SPALTE|
00001300: 32 00 74 6F DE 08 20 85 23 28 52 45 43 48 54 53 |2.to.. .#(RECHTS|
00001310: 32 2D 31 29 00 82 6F E8 08 20 B5 43 4C 45 41 52 |2-1)..o.. .CLEAR|
00001320: 32 41 00 8F 6F F2 08 20 81 5A 45 49 4C 45 32 00 |2A..o.. .ZEILE2.|
00001330: A1 6F FC 08 20 85 23 28 55 4E 54 45 4E 32 2D 31 |.o.. .#(UNTEN2-1|
00001340: 29 00 B1 6F 06 09 20 B8 45 4E 44 43 4C 45 41 52 |)..o.. .ENDCLEAR|
00001350: 32 00 BF 6F 10 09 20 B7 43 4C 45 41 52 32 42 00 |2..o.. .CLEAR2B.|
00001360: C5 6F 1A 09 3B 00 DA 6F 24 09 43 4C 45 41 52 32 |.o..;..o$.CLEAR2|
00001370: 41 20 8A 53 50 41 4C 54 45 32 00 EA 6F 2E 09 20 |A .SPALTE2..o.. |
00001380: 96 53 43 48 4C 45 49 46 45 32 00 F0 6F 38 09 3B |.SCHLEIFE2..o8.;|
00001390: 00 04 70 42 09 43 4C 45 41 52 32 42 20 8A 5A 45 |..pB.CLEAR2B .ZE|
000013A0: 49 4C 45 32 00 12 70 4C 09 20 81 23 4C 49 4E 4B |ILE2..pL. .#LINK|
000013B0: 53 32 00 20 70 56 09 20 82 53 50 41 4C 54 45 32 |S2. pV. .SPALTE2|
000013C0: 00 30 70 60 09 20 96 53 43 48 4C 45 49 46 45 32 |.0p`. .SCHLEIFE2|
000013D0: 00 36 70 6A 09 3B 00 4A 70 74 09 43 4C 45 41 52 |.6pj.;.Jpt.CLEAR|
000013E0: 32 43 20 83 5A 45 49 4C 45 32 00 58 70 7E 09 20 |2C .ZEILE2.Xp~. |
000013F0: 84 53 50 41 4C 54 45 32 00 65 70 88 09 20 97 53 |.SPALTE2.ep.. .S|
00001400: 45 54 43 55 52 00 70 70 92 09 20 81 23 22 20 22 |ETCUR.pp.. .#" "|
00001410: 00 7D 70 9C 09 20 96 42 41 53 4F 55 54 00 83 70 |.}p.. .BASOUT..p|
00001420: A6 09 3B 00 89 70 B0 09 3B 00 9E 70 BA 09 45 4E |..;..p..;..p..EN|
00001430: 44 43 4C 45 41 52 32 20 96 48 4F 4D 45 32 00 A4 |DCLEAR2 .HOME2..|
00001440: 70 C4 09 3B 00 AA 70 CE 09 3B 00 B0 70 D8 09 3B |p..;..p..;..p..;|
00001450: 00 C3 70 E2 09 50 52 49 4E 54 32 20 83 5A 45 49 |..p..PRINT2 .ZEI|
00001460: 4C 45 32 00 D1 70 EC 09 20 84 53 50 41 4C 54 45 |LE2..p.. .SPALTE|
00001470: 32 00 DE 70 F6 09 20 97 53 45 54 43 55 52 00 EF |2..p.. .SETCUR..|
00001480: 70 00 0A 20 81 4F 55 54 50 55 54 42 59 54 45 00 |p.. .OUTPUTBYTE.|
00001490: FC 70 0A 0A 20 97 42 41 53 4F 55 54 00 02 71 14 |.p.. .BASOUT..q.|
000014A0: 0A 3B 00 10 71 1E 0A 20 8A 53 50 41 4C 54 45 32 |.;..q.. .SPALTE2|
000014B0: 00 1E 71 28 0A 20 81 53 50 41 4C 54 45 32 00 2D |..q(. .SPALTE2.-|
000014C0: 71 32 0A 20 85 23 52 45 43 48 54 53 32 00 3C 71 |q2. .#RECHTS2.<q|
000014D0: 3C 0A 20 B5 45 4E 44 4F 55 54 57 32 00 4A 71 46 |<. .ENDOUTW2.JqF|
000014E0: 0A 20 81 23 4C 49 4E 4B 53 32 00 58 71 50 0A 20 |. .#LINKS2.XqP. |
000014F0: 82 53 50 41 4C 54 45 32 00 65 71 5A 0A 20 8A 5A |.SPALTE2.eqZ. .Z|
00001500: 45 49 4C 45 32 00 72 71 64 0A 20 81 5A 45 49 4C |EILE2.rqd. .ZEIL|
00001510: 45 32 00 80 71 6E 0A 20 85 23 55 4E 54 45 4E 32 |E2..qn. .#UNTEN2|
00001520: 00 8F 71 78 0A 20 B5 45 4E 44 4F 55 54 57 32 00 |..qx. .ENDOUTW2.|
00001530: 9C 71 82 0A 20 81 23 4F 42 45 4E 32 00 A9 71 8C |.q.. .#OBEN2..q.|
00001540: 0A 20 82 5A 45 49 4C 45 32 00 AF 71 96 0A 3B 00 |. .ZEILE2..q..;.|
00001550: DB 71 A0 0A 45 4E 44 4F 55 54 57 32 20 96 45 4E |.q..ENDOUTW2 .EN|
00001560: 44 4F 55 54 57 3B 20 57 45 49 54 45 52 20 57 49 |DOUTW; WEITER WI|
00001570: 45 20 42 45 49 20 4F 55 54 57 31 00 E1 71 AA 0A |E BEI OUTW1..q..|
00001580: 3B 00 E7 71 B4 0A 3B 00 ED 71 BE 0A 3B 00 F3 71 |;..q..;..q..;..q|
00001590: C8 0A 3B 00 13 72 D2 0A 3B 20 52 4F 55 54 49 4E |..;..r..; ROUTIN|
000015A0: 45 20 5A 55 4D 20 44 52 55 43 4B 45 4E 20 45 49 |E ZUM DRUCKEN EI|
000015B0: 4E 45 53 00 28 72 DC 0A 3B 20 47 41 4E 5A 45 4E |NES.(r..; GANZEN|
000015C0: 20 57 49 4E 44 4F 57 53 00 2E 72 E6 0A 3B 00 53 | WINDOWS..r..;.S|
000015D0: 72 F0 0A 3B 20 41 44 52 45 53 53 45 20 57 49 52 |r..; ADRESSE WIR|
000015E0: 44 20 49 4E 20 41 2F 59 20 55 45 42 45 52 47 45 |D IN A/Y UEBERGE|
000015F0: 42 45 4E 00 59 72 FA 0A 3B 00 7D 72 04 0B 50 52 |BEN.Yr..;.}r..PR|
00001600: 57 49 4E 31 20 82 54 45 58 54 50 54 52 3B 20 4C |WIN1 .TEXTPTR; L|
00001610: 4F 2D 42 59 54 45 20 53 45 54 5A 45 4E 00 9D 72 |O-BYTE SETZEN..r|
00001620: 0E 0B 20 89 54 45 58 54 50 54 52 2B 31 3B 20 48 |.. .TEXTPTR+1; H|
00001630: 49 2D 42 59 54 45 20 53 45 54 5A 45 4E 00 A3 72 |I-BYTE SETZEN..r|
00001640: 18 0B 3B 00 C8 72 22 0B 20 81 23 48 4F 4D 45 3B |..;..r". .#HOME;|
00001650: 20 4C 49 4E 4B 45 20 4F 42 45 52 45 20 57 49 4E | LINKE OBERE WIN|
00001660: 44 4F 57 2D 45 43 4B 45 00 E0 72 2C 0B 20 97 4F |DOW-ECKE..r,. .O|
00001670: 55 54 57 31 3B 20 41 4E 53 50 52 49 4E 47 45 4E |UTW1; ANSPRINGEN|
00001680: 00 04 73 36 0B 20 A6 3B 20 43 41 52 52 59 20 56 |..s6. .; CARRY V|
00001690: 4F 52 20 41 44 44 49 54 49 4F 4E 20 4C 4F 45 53 |OR ADDITION LOES|
000016A0: 43 48 45 4E 00 20 73 40 0B 20 81 54 45 58 54 50 |CHEN. s@. .TEXTP|
000016B0: 54 52 3B 20 5A 55 52 20 41 4E 46 41 4E 47 53 2D |TR; ZUR ANFANGS-|
000016C0: 00 3F 73 4A 0B 20 86 23 3C 28 4C 41 45 4E 47 45 |.?sJ. .#<(LAENGE|
000016D0: 31 29 3B 20 41 44 52 45 53 53 45 20 44 45 53 00 |1); ADRESSE DES.|
000016E0: 53 73 54 0B 20 82 54 45 4D 50 31 3B 20 54 45 58 |SsT. .TEMP1; TEX|
000016F0: 54 45 53 00 74 73 5E 0B 20 81 54 45 58 54 50 54 |TES.ts^. .TEXTPT|
00001700: 52 2B 31 3B 20 57 49 52 44 20 4C 41 45 4E 47 45 |R+1; WIRD LAENGE|
00001710: 20 44 45 53 00 97 73 68 0B 20 86 23 3E 28 4C 41 | DES..sh. .#>(LA|
00001720: 45 4E 47 45 31 29 3B 20 54 45 58 54 45 53 20 41 |ENGE1); TEXTES A|
00001730: 44 44 49 45 52 54 2E 00 C4 73 72 0B 20 82 54 45 |DDIERT...sr. .TE|
00001740: 4D 50 31 2B 31 3B 20 45 52 47 45 42 4E 49 53 20 |MP1+1; ERGEBNIS |
00001750: 49 4E 20 28 54 45 4D 50 31 29 2F 28 54 45 4D 50 |IN (TEMP1)/(TEMP|
00001760: 31 2B 31 29 00 CA 73 7C 0B 3B 00 DF 73 86 0B 20 |1+1)..s|.;..s.. |
00001770: 84 23 30 3B 20 4F 46 46 53 45 54 20 3D 20 30 00 |.#0; OFFSET = 0.|
00001780: 12 74 90 0B 53 43 48 4C 45 49 46 45 33 20 81 28 |.t..SCHLEIFE3 .(|
00001790: 54 45 58 54 50 54 52 29 2C 59 3B 20 5A 45 49 43 |TEXTPTR),Y; ZEIC|
000017A0: 48 45 4E 20 41 55 53 20 54 45 58 54 20 48 4F 4C |HEN AUS TEXT HOL|
000017B0: 45 4E 00 2C 74 9A 0B 20 97 4F 55 54 57 31 3B 20 |EN.,t.. .OUTW1; |
000017C0: 55 4E 44 20 41 55 53 47 45 42 45 4E 00 46 74 A4 |UND AUSGEBEN.Ft.|
000017D0: 0B 20 8A 54 45 58 54 50 54 52 3B 20 5A 45 49 47 |. .TEXTPTR; ZEIG|
000017E0: 45 52 20 41 55 46 00 60 74 AE 0B 20 B7 50 52 57 |ER AUF.`t.. .PRW|
000017F0: 49 4E 31 41 3B 20 54 45 58 54 53 54 45 4C 4C 45 |IN1A; TEXTSTELLE|
00001800: 00 7F 74 B8 0B 20 8A 54 45 58 54 50 54 52 2B 31 |..t.. .TEXTPTR+1|
00001810: 3B 20 55 4D 20 31 20 45 52 48 4F 45 48 45 4E 00 |; UM 1 ERHOEHEN.|
00001820: 85 74 C2 0B 3B 00 A4 74 CC 0B 50 52 57 49 4E 31 |.t..;..t..PRWIN1|
00001830: 41 20 81 54 45 58 54 50 54 52 3B 20 50 52 55 45 |A .TEXTPTR; PRUE|
00001840: 46 45 4E 2C 00 BA 74 D6 0B 20 85 54 45 4D 50 31 |FEN,..t.. .TEMP1|
00001850: 3B 20 4F 42 20 53 43 48 4F 4E 00 D5 74 E0 0B 20 |; OB SCHON..t.. |
00001860: 81 54 45 58 54 50 54 52 2B 31 3B 20 44 45 52 20 |.TEXTPTR+1; DER |
00001870: 47 41 4E 5A 45 00 FA 74 EA 0B 20 92 54 45 4D 50 |GANZE..t.. .TEMP|
00001880: 31 2B 31 3B 20 54 45 58 54 20 41 55 53 47 45 47 |1+1; TEXT AUSGEG|
00001890: 45 42 45 4E 20 57 55 52 44 45 00 1E 75 F4 0B 20 |EBEN WURDE..u.. |
000018A0: B5 53 43 48 4C 45 49 46 45 33 3B 20 4E 45 49 4E |.SCHLEIFE3; NEIN|
000018B0: 20 28 43 3D 30 29 3A 20 57 45 49 54 45 52 00 24 | (C=0): WEITER.$|
000018C0: 75 FE 0B 3B 00 37 75 08 0C 20 A4 3B 20 53 4F 4E |u..;.7u.. .; SON|
000018D0: 53 54 20 45 4E 44 45 00 3D 75 12 0C 3B 00 43 75 |ST ENDE.=u..;.Cu|
000018E0: 1C 0C 3B 00 66 75 26 0C 3B 20 45 52 4B 4C 41 45 |..;.fu&.; ERKLAE|
000018F0: 52 55 4E 47 53 54 45 58 54 20 49 4E 20 57 49 4E |RUNGSTEXT IN WIN|
00001900: 44 4F 57 20 23 31 00 76 75 30 0C 3B 20 53 43 48 |DOW #1.vu0.; SCH|
00001910: 52 45 49 42 45 4E 00 7C 75 3A 0C 3B 00 82 75 44 |REIBEN.|u:.;..uD|
00001920: 0C 3B 00 9F 75 4E 0C 45 52 4B 4C 41 45 52 47 20 |.;..uN.ERKLAERG |
00001930: 81 23 31 38 3B 20 52 45 56 45 52 53 20 4F 4E 00 |.#18; REVERS ON.|
00001940: B6 75 58 0C 20 97 42 41 53 4F 55 54 3B 20 41 55 |.uX. .BASOUT; AU|
00001950: 53 47 45 42 45 4E 00 D5 75 62 0C 20 81 23 3C 28 |SGEBEN..ub. .#<(|
00001960: 45 52 4B 4C 54 58 29 3B 20 45 52 4B 4C 41 45 52 |ERKLTX); ERKLAER|
00001970: 55 4E 47 53 2D 00 EC 75 6C 0C 20 84 23 3E 28 45 |UNGS-..ul. .#>(E|
00001980: 52 4B 4C 54 58 29 3B 20 54 45 58 54 00 03 76 76 |RKLTX); TEXT..vv|
00001990: 0C 20 96 50 52 57 49 4E 31 3B 20 41 55 53 47 45 |. .PRWIN1; AUSGE|
000019A0: 42 45 4E 00 09 76 80 0C 3B 00 21 76 8A 0C 45 52 |BEN..v..;.!v..ER|
000019B0: 4B 4C 54 58 20 2E 91 22 20 20 20 20 20 20 20 20 |KLTX .." |
000019C0: 22 00 33 76 94 0C 20 2E 91 22 20 44 49 45 53 20 |".3v.. .." DIES |
000019D0: 20 20 22 00 45 76 9E 0C 20 2E 91 22 20 20 20 20 | ".Ev.. .." |
000019E0: 20 20 20 20 22 00 57 76 A8 0C 20 2E 91 22 20 49 | ".Wv.. .." I|
000019F0: 53 54 20 20 20 20 22 00 69 76 B2 0C 20 2E 91 22 |ST ".iv.. .."|
00001A00: 20 20 20 20 20 20 20 20 22 00 7B 76 BC 0C 20 2E | ".{v.. .|
00001A10: 91 22 20 57 49 4E 44 4F 57 20 22 00 8D 76 C6 0C |." WINDOW "..v..|
00001A20: 20 2E 91 22 20 20 20 20 20 20 20 20 22 00 9F 76 | .." "..v|
00001A30: D0 0C 20 2E 91 22 20 4E 52 2E 20 31 20 20 22 00 |.. .." NR. 1 ".|
00001A40: B1 76 DA 0C 20 2E 91 22 20 20 20 20 20 20 20 20 |.v.. .." |
00001A50: 22 00 B7 76 E4 0C 3B 00 BD 76 EE 0C 3B 00 DD 76 |"..v..;..v..;..v|
00001A60: F8 0C 3B 20 52 4F 55 54 49 4E 45 20 5A 55 4D 20 |..; ROUTINE ZUM |
00001A70: 44 52 55 43 4B 45 4E 20 45 49 4E 45 53 00 01 77 |DRUCKEN EINES..w|
00001A80: 02 0D 3B 20 47 41 4E 5A 45 4E 20 57 49 4E 44 4F |..; GANZEN WINDO|
00001A90: 57 53 20 46 55 45 52 20 57 49 4E 44 4F 57 20 23 |WS FUER WINDOW #|
00001AA0: 32 00 07 77 0C 0D 3B 00 1B 77 16 0D 50 52 57 49 |2..w..;..w..PRWI|
00001AB0: 4E 32 20 82 54 45 58 54 50 54 52 00 2B 77 20 0D |N2 .TEXTPTR.+w .|
00001AC0: 20 89 54 45 58 54 50 54 52 2B 31 00 31 77 2A 0D | .TEXTPTR+1.1w*.|
00001AD0: 3B 00 3D 77 34 0D 20 81 23 48 4F 4D 45 00 49 77 |;.=w4. .#HOME.Iw|
00001AE0: 3E 0D 20 97 4F 55 54 57 32 00 50 77 48 0D 20 A6 |>. .OUTW2.PwH. .|
00001AF0: 00 5E 77 52 0D 20 81 54 45 58 54 50 54 52 00 70 |.^wR. .TEXTPTR.p|
00001B00: 77 5C 0D 20 86 23 3C 28 4C 41 45 4E 47 45 32 29 |w\. .#<(LAENGE2)|
00001B10: 00 7C 77 66 0D 20 82 54 45 4D 50 31 00 8C 77 70 |.|wf. .TEMP1..wp|
00001B20: 0D 20 81 54 45 58 54 50 54 52 2B 31 00 9E 77 7A |. .TEXTPTR+1..wz|
00001B30: 0D 20 86 23 3E 28 4C 41 45 4E 47 45 32 29 00 AC |. .#>(LAENGE2)..|
00001B40: 77 84 0D 20 82 54 45 4D 50 31 2B 31 00 B2 77 8E |w.. .TEMP1+1..w.|
00001B50: 0D 3B 00 BB 77 98 0D 20 84 23 30 00 D6 77 A2 0D |.;..w.. .#0..w..|
00001B60: 53 43 48 4C 45 49 46 45 34 20 81 28 54 45 58 54 |SCHLEIFE4 .(TEXT|
00001B70: 50 54 52 29 2C 59 00 E2 77 AC 0D 20 97 4F 55 54 |PTR),Y..w.. .OUT|
00001B80: 57 32 00 F0 77 B6 0D 20 8A 54 45 58 54 50 54 52 |W2..w.. .TEXTPTR|
00001B90: 00 FE 77 C0 0D 20 B7 50 52 57 49 4E 32 41 00 0E |..w.. .PRWIN2A..|
00001BA0: 78 CA 0D 20 8A 54 45 58 54 50 54 52 2B 31 00 14 |x.. .TEXTPTR+1..|
00001BB0: 78 D4 0D 3B 00 29 78 DE 0D 50 52 57 49 4E 32 41 |x..;.)x..PRWIN2A|
00001BC0: 20 81 54 45 58 54 50 54 52 00 35 78 E8 0D 20 85 | .TEXTPTR.5x.. .|
00001BD0: 54 45 4D 50 31 00 45 78 F2 0D 20 81 54 45 58 54 |TEMP1.Ex.. .TEXT|
00001BE0: 50 54 52 2B 31 00 53 78 FC 0D 20 92 54 45 4D 50 |PTR+1.Sx.. .TEMP|
00001BF0: 31 2B 31 00 63 78 06 0E 20 B5 53 43 48 4C 45 49 |1+1.cx.. .SCHLEI|
00001C00: 46 45 34 00 69 78 10 0E 3B 00 70 78 1A 0E 20 A4 |FE4.ix..;.px.. .|
00001C10: 00 76 78 24 0E 3B 00 7C 78 2E 0E 3B 00 9F 78 38 |.vx$.;.|x..;..x8|
00001C20: 0E 3B 20 4D 45 4E 55 45 20 49 4E 20 57 49 4E 44 |.; MENUE IN WIND|
00001C30: 4F 57 20 23 32 20 53 43 48 52 45 49 42 45 4E 00 |OW #2 SCHREIBEN.|
00001C40: A5 78 42 0E 3B 00 AB 78 4C 0E 3B 00 CB 78 56 0E |.xB.;..xL.;..xV.|
00001C50: 53 43 48 52 4D 45 4E 55 45 20 81 23 31 34 36 3B |SCHRMENUE .#146;|
00001C60: 20 52 45 56 45 52 53 20 4F 46 46 00 E2 78 60 0E | REVERS OFF..x`.|
00001C70: 20 97 42 41 53 4F 55 54 3B 20 41 55 53 47 45 42 | .BASOUT; AUSGEB|
00001C80: 45 4E 00 FC 78 6A 0E 20 81 23 3C 28 4D 45 4E 55 |EN..xj. .#<(MENU|
00001C90: 45 54 58 29 3B 20 4D 45 4E 55 45 2D 00 14 79 74 |ETX); MENUE-..yt|
00001CA0: 0E 20 84 23 3E 28 4D 45 4E 55 45 54 58 29 3B 20 |. .#>(MENUETX); |
00001CB0: 54 45 58 54 00 2B 79 7E 0E 20 96 50 52 57 49 4E |TEXT.+y~. .PRWIN|
00001CC0: 32 3B 20 41 55 53 47 45 42 45 4E 00 31 79 88 0E |2; AUSGEBEN.1y..|
00001CD0: 3B 00 54 79 92 0E 4D 45 4E 55 45 54 58 20 2E 91 |;.Ty..MENUETX ..|
00001CE0: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00001CF0: 2A 2A 2A 22 00 70 79 9C 0E 20 2E 91 22 2A 20 20 |***".py.. .."* |
00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 | *"|
00001D10: 00 8C 79 A6 0E 20 2E 91 22 2A 20 20 20 20 20 4D |..y.. .."* M|
00001D20: 45 4E 55 45 20 20 20 20 20 20 2A 22 00 A8 79 B0 |ENUE *"..y.|
00001D30: 0E 20 2E 91 22 2A 20 20 20 20 20 20 20 20 20 20 |. .."* |
00001D40: 20 20 20 20 20 20 2A 22 00 C4 79 BA 0E 20 2E 91 | *"..y.. ..|
00001D50: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00001D60: 2A 2A 2A 22 00 E0 79 C4 0E 20 2E 91 22 2A 20 20 |***"..y.. .."* |
00001D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 | *"|
00001D80: 00 FC 79 CE 0E 20 2E 91 22 2A 20 28 31 29 20 45 |..y.. .."* (1) E|
00001D90: 52 4B 4C 41 45 52 55 4E 47 20 2A 22 00 18 7A D8 |RKLAERUNG *"..z.|
00001DA0: 0E 20 2E 91 22 2A 20 20 20 20 20 20 20 20 20 20 |. .."* |
00001DB0: 20 20 20 20 20 20 2A 22 00 34 7A E2 0E 20 2E 91 | *".4z.. ..|
00001DC0: 22 2A 20 28 32 29 20 46 41 52 42 45 20 20 20 20 |"* (2) FARBE |
00001DD0: 20 20 2A 22 00 50 7A EC 0E 20 2E 91 22 2A 20 20 | *".Pz.. .."* |
00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 | *"|
00001DF0: 00 6C 7A F6 0E 20 2E 91 22 2A 20 28 33 29 20 42 |.lz.. .."* (3) B|
00001E00: 45 45 4E 44 45 4E 20 20 20 20 2A 22 00 88 7A 00 |EENDEN *"..z.|
00001E10: 0F 20 2E 91 22 2A 20 20 20 20 20 20 20 20 20 20 |. .."* |
00001E20: 20 20 20 20 20 20 2A 22 00 A4 7A 0A 0F 20 2E 91 | *"..z.. ..|
00001E30: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00001E40: 2A 2A 2A 22 00 AA 7A 14 0F 3B 00 B0 7A 1E 0F 3B |***"..z..;..z..;|
00001E50: 00 B6 7A 28 0F 3B 00 CA 7A 32 0F 3B 20 48 41 55 |..z(.;..z2.; HAU|
00001E60: 50 54 50 52 4F 47 52 41 4D 4D 00 DE 7A 3C 0F 3B |PTPROGRAMM..z<.;|
00001E70: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E4 | =============..|
00001E80: 7A 46 0F 3B 00 04 7B 50 0F 4D 41 49 4E 20 81 23 |zF.;..{P.MAIN .#|
00001E90: 30 3B 20 43 4F 44 45 20 46 55 45 52 20 53 43 48 |0; CODE FUER SCH|
00001EA0: 57 41 52 5A 00 20 7B 5A 0F 20 82 24 44 30 32 30 |WARZ. {Z. .$D020|
00001EB0: 3B 20 52 41 48 4D 45 4E 20 53 43 48 57 41 52 5A |; RAHMEN SCHWARZ|
00001EC0: 00 40 7B 64 0F 20 82 24 44 30 32 31 3B 48 49 4E |.@{d. .$D021;HIN|
00001ED0: 54 45 52 47 52 55 4E 44 20 53 43 48 57 41 52 5A |TERGRUND SCHWARZ|
00001EE0: 00 60 7B 6E 0F 20 81 23 35 3B 20 41 53 43 49 49 |.`{n. .#5; ASCII|
00001EF0: 2D 43 4F 44 45 20 46 55 45 52 20 57 45 49 53 53 |-CODE FUER WEISS|
00001F00: 00 86 7B 78 0F 20 97 42 41 53 4F 55 54 3B 20 41 |..{x. .BASOUT; A|
00001F10: 4C 53 20 53 43 48 52 49 46 54 46 41 52 42 45 20 |LS SCHRIFTFARBE |
00001F20: 53 45 54 5A 45 4E 00 A0 7B 82 0F 20 81 23 30 3B |SETZEN..{.. .#0;|
00001F30: 20 45 52 4B 4C 41 45 52 55 4E 47 53 46 4C 41 47 | ERKLAERUNGSFLAG|
00001F40: 00 BE 7B 8C 0F 20 82 45 52 4B 4C 46 4C 41 47 3B |..{.. .ERKLFLAG;|
00001F50: 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 C4 | ZURUECKSETZEN..|
00001F60: 7B 96 0F 3B 00 E4 7B A0 0F 20 97 53 43 48 52 4D |{..;..{.. .SCHRM|
00001F70: 45 4E 55 45 3B 20 4D 45 4E 55 45 20 41 55 53 47 |ENUE; MENUE AUSG|
00001F80: 45 42 45 4E 00 EA 7B AA 0F 3B 00 0C 7C B4 0F 54 |EBEN..{..;..|..T|
00001F90: 41 53 54 45 20 97 47 45 54 3B 20 54 41 53 54 45 |ASTE .GET; TASTE|
00001FA0: 4E 44 52 55 43 4B 20 48 4F 4C 45 4E 00 1D 7C BE |NDRUCK HOLEN..|.|
00001FB0: 0F 20 85 23 22 31 22 3B 20 22 31 22 3F 00 4F 7C |. .#"1"; "1"?.O||
00001FC0: C8 0F 20 B8 50 55 4E 4B 54 31 3B 20 4A 41 3A 20 |.. .PUNKT1; JA: |
00001FD0: 52 4F 55 54 49 4E 45 20 46 55 45 52 20 50 55 4E |ROUTINE FUER PUN|
00001FE0: 4B 54 20 31 20 41 4E 53 50 52 49 4E 47 45 4E 00 |KT 1 ANSPRINGEN.|
00001FF0: 60 7C D2 0F 20 85 23 22 32 22 3B 20 22 32 22 3F |`|.. .#"2"; "2"?|
00002000: 00 91 7C DC 0F 20 B8 50 55 4E 4B 54 32 3B 20 4A |..|.. .PUNKT2; J|
00002010: 41 3A 20 52 4F 55 54 49 4E 45 20 46 55 45 52 20 |A: ROUTINE FUER |
00002020: 50 55 4E 4B 54 32 20 41 4E 53 50 52 49 4E 47 45 |PUNKT2 ANSPRINGE|
00002030: 4E 00 A2 7C E6 0F 20 85 23 22 33 22 3B 20 22 33 |N..|.. .#"3"; "3|
00002040: 22 3F 00 CB 7C F0 0F 20 B7 54 41 53 54 45 3B 20 |"?..|.. .TASTE; |
00002050: 4E 45 49 4E 2C 20 44 41 4E 4E 20 41 55 46 20 54 |NEIN, DANN AUF T|
00002060: 41 53 54 45 20 57 41 52 54 45 4E 00 D1 7C FA 0F |ASTE WARTEN..|..|
00002070: 3B 00 E9 7C 04 10 3B 20 50 55 4E 4B 54 20 33 20 |;..|..; PUNKT 3 |
00002080: 28 42 45 45 4E 44 45 4E 29 00 EF 7C 0E 10 3B 00 |(BEENDEN)..|..;.|
00002090: FF 7C 18 10 20 A4 3B 20 42 45 45 4E 44 45 4E 00 |.|.. .; BEENDEN.|
000020A0: 05 7D 22 10 3B 00 0B 7D 2C 10 3B 00 22 7D 36 10 |.}".;..},.;."}6.|
000020B0: 3B 20 50 55 4E 4B 54 20 32 20 28 46 41 52 42 45 |; PUNKT 2 (FARBE|
000020C0: 29 3A 00 28 7D 40 10 3B 00 50 7D 4A 10 50 55 4E |):.(}@.;.P}J.PUN|
000020D0: 4B 54 32 20 8A 24 44 30 32 30 3B 20 52 41 48 4D |KT2 .$D020; RAHM|
000020E0: 45 4E 46 41 52 42 45 20 45 52 48 4F 45 48 45 4E |ENFARBE ERHOEHEN|
000020F0: 00 73 7D 54 10 20 8A 24 44 30 32 31 3B 20 41 55 |.s}T. .$D021; AU|
00002100: 43 48 20 48 49 4E 54 45 52 47 52 55 4E 44 46 41 |CH HINTERGRUNDFA|
00002110: 52 42 45 00 92 7D 5E 10 20 96 54 41 53 54 45 3B |RBE..}^. .TASTE;|
00002120: 20 5A 55 52 55 45 43 4B 20 5A 55 4D 20 4D 45 4E | ZURUECK ZUM MEN|
00002130: 55 45 00 98 7D 68 10 3B 00 9E 7D 72 10 3B 00 C4 |UE..}h.;..}r.;..|
00002140: 7D 7C 10 50 55 4E 4B 54 31 20 81 45 52 4B 4C 46 |}|.PUNKT1 .ERKLF|
00002150: 4C 41 47 3B 20 45 52 4B 4C 41 45 52 55 4E 47 53 |LAG; ERKLAERUNGS|
00002160: 46 4C 41 47 00 D8 7D 86 10 20 95 23 31 3B 20 22 |FLAG..}.. .#1; "|
00002170: 53 4B 49 50 50 45 4E 22 00 FD 7D 90 10 20 82 45 |SKIPPEN"..}.. .E|
00002180: 52 4B 4C 46 4C 41 47 3B 20 55 4E 44 20 5A 55 52 |RKLFLAG; UND ZUR|
00002190: 55 45 43 4B 53 43 48 52 45 49 42 45 4E 00 03 7E |UECKSCHREIBEN..~|
000021A0: 9A 10 3B 00 30 7E A4 10 20 B8 4C 4F 45 53 43 48 |..;.0~.. .LOESCH|
000021B0: 45 52 4B 3B 20 3D 30 2C 20 44 41 4E 4E 20 57 49 |ERK; =0, DANN WI|
000021C0: 4E 44 4F 57 20 23 31 20 4C 4F 45 53 43 48 45 4E |NDOW #1 LOESCHEN|
000021D0: 00 36 7E AE 10 3B 00 60 7E B8 10 20 97 45 52 4B |.6~..;.`~.. .ERK|
000021E0: 4C 41 45 52 47 3B 20 53 4F 4E 53 54 20 45 52 4B |LAERG; SONST ERK|
000021F0: 4C 41 45 52 55 4E 47 20 41 55 53 47 45 42 45 4E |LAERUNG AUSGEBEN|
00002200: 00 83 7E C2 10 20 96 54 41 53 54 45 3B 20 55 4E |..~.. .TASTE; UN|
00002210: 44 20 5A 55 52 55 45 43 4B 20 5A 55 4D 20 4D 45 |D ZURUECK ZUM ME|
00002220: 4E 55 45 00 89 7E CC 10 3B 00 AA 7E D6 10 4C 4F |NUE..~..;..~..LO|
00002230: 45 53 43 48 45 52 4B 20 81 23 43 4C 45 41 52 3B |ESCHERK .#CLEAR;|
00002240: 20 57 49 4E 44 4F 57 20 23 31 00 C0 7E E0 10 20 | WINDOW #1..~.. |
00002250: 97 4F 55 54 57 31 3B 20 4C 4F 45 53 43 48 45 4E |.OUTW1; LOESCHEN|
00002260: 00 DF 7E EA 10 20 96 54 41 53 54 45 3B 20 5A 55 |..~.. .TASTE; ZU|
00002270: 52 55 45 43 4B 20 5A 55 4D 20 4D 45 4E 55 45 00 |RUECK ZUM MENUE.|
00002280: 00 00 |.. |
A\M\D...$1C50.{\N..."O,P,W"..\X.; ******
*************************.G\..; *
*..\..; * MASCHIN
ENSPRACHE-PROGRAMM *..]..; *
*.9] .; * MIT WIN
DOW-TECHNIK *._]..; *
*..]..; * C 12
8 *..]..; *
*.Q]H.; **********************
*********..]R.; *
*..^..; * (C) 1986 BY FLORIAN MUEL
LER *.C^..; *
*.I^..; ******************************
*.O^..;..^.. .MAIN; UNTERROUTINEN UEBERS
PRINGEN..^..;..^..; SYMBOLDEFINITIONEN:.
.^".;..^,...ZEILE=$EB; AKTUELLE CURSORZE
ILE.._6...SPALTE=$EC; AKTUELLE CURSORSPA
LTE.._@.ZEILE1 ..0; ZEILE IN WINDOW #1.R
_J.SPALTE1 ..0; SPALTE I.WINDOW #1.U_T.Z
EILE2 ..0; ZEILE IN WINDOW #2.._^.SPALTE
2 ..0; SPALTE I.WINDOW #2.._H.;.A_R...SE
TCUR=$CC6C; CURSOR SETZEN.G_|.;.._....BA
SOUT=$FFD2; ZEICHEN AUSGEBEN..`....GET=$
FFE4; ZEICHEN EINGEBEN..`..;.=`..TEMP1 .
.0,0; 16-BIT-ZWISCHENSPEICHER.D`..ERKLFL
AG ..0; FLAG FUER ERKLAERUNG.J`..;..`B..
.CLEAR=$93; ASCII-CODE FUER CLEAR..`L...
HOME=$13; ASCII-CODE FUER HOME..`V...CR=
$0D; ASCII-CODE FUER RETURN..`..;..`....
LINKS1=2; PARAMETER..A....RECHTS1=9+1; V
ON.(A....OBEN1=2; WINDOW.AA....UNTEN1=10
+1; NR. 1.GA..;.BA....LINKS2=12; PARAMET
ER.ZA&...RECHTS2=29+1; VON..A0...OBEN2=6
; WINDOW..A:...UNTEN2=18+1; NR. 2..AD.;.
.AN...LAENGE1=(RECHTS1-LINKS1)*(UNTEN1-O
BEN1)..BX...LAENGE2=(RECHTS2-LINKS2)*(UN
TEN2-OBEN2)..BB.;.6BL.OUTPUTBYTE ..0; ZW
ISCHENSPEICHER.<BV.;.EB....TEXTPTR=$22;
ZEIGER AUF TEXTSTELLE.KB..;.B..; PROGRA
MMTEXT:..B..; =============..B..;..B..;.
.B..;.GBF.; UNTERROUTINEN FUER WINDOWS:.
.BP.; ===========================..BZ.;.
.C..OUTW1 .OUTPUTBYTE; ZEICHEN MERKEN.(C
.. .; X-REGISTER.7C.. ; RETTEN.JC.. .;
Y-REGISTER.YC.. ; RETTEN._C..;.ZC . .SP
ALTE; CURSORSPALTE..C*. ; RETTEN..C4. .
ZEILE; CURSORZEILE..C>. ; RETTEN..CH.;.
.CR. .OUTPUTBYTE; ZEICHEN WIEDER HOLEN..
C\. .#CR; RETURN?..DF. .TESTHOME1; NEIN,
DANN WEITER..DP. .ZEILE1; ZEILE HOLEN.M
DZ. .#UNTEN1; UNTERSTE ZEILE?.LD.. .ENDC
R1; JA, DANN BEENDEN..D.. .ZEILE1; SONST
ZEILE NACH UNTEN..D.. .#LINKS1; LINKEN
RAND ALS.MD.. .SPALTE1; SPALTE SETZEN.SD
..;..E..ENDCR1 .ENDOUTW; WERTE VOM STACK
HOLEN & ENDE..E..;.'EJ.TESTHOME1 .#HOME
; HOME?.IET. .TESTCLR1; NEIN, DANN WEITE
R.HE..HOME1 .#OBEN1; OBEREN RAND..E.. .Z
EILE1; ALS ZEILE SETZEN..E.. .#LINKS1; L
INKEN RAND.CE.. .SPALTE1; ALS SPALTE SET
ZEN.WE.. .ENDOUTW; ENDE..E..;..E..TESTCL
R1 .#CLEAR; CLEAR?.$F$. .PRINT1; NEIN, D
ANN ZEICHEN AUSGEBEN.*F..;.AF8.; WINDOW
LOESCHEN:.GFB.;.^FL. .#146; REVERS OFF.U
FV. .BASOUT; AUSGEBEN.{F`.;..FJ. .#LINKS
1; LINKE..FT. .SPALTE1; OBERE..F~. .#OBE
N1; ECKE ALS.YF.. .ZEILE1; CURSORPOSITIO
N..F..;..G..SCHLEIFE1 .CLEAR1C; SPACE AU
SGEBEN."G.. .SPALTE1; SPALTE HOLEN.MG..
.#(RECHTS1-1); SCHON AM RECHTEN RAND?.WG
.. .CLEAR1A; NEIN, DANN SPALTE ERHOEHEN.
.GD. .ZEILE1; ZEILE HOLEN..GN. .#(UNTEN1
-1); UNTERER RAND?.UGX. .ENDCLEAR1; JA,
DANN BEENDEN..H.. .CLEAR1B; SONST AN BE
GINN DER NAECHSTEN ZEILE..H..;.4H..CLEAR
1A .SPALTE1; SPALTE ERHOEHEN.RH.. .SCHLE
IFE1; WEITERMACHEN.XH..;.|H..CLEAR1B .ZE
ILE1; ZEILE ERHOEHEN..H.. .#LINKS1; LINK
EN RAND..H(. .SPALTE1; ALS SPALTE SETZEN
..H2. .SCHLEIFE1; UND WEITER LOESCHEN..H
<.;..HF.CLEAR1C .ZEILE1; ZEILE..IP. .SPA
LTE1; UND SPALTE.-IZ. .SETCUR; SETZEN.EI
D. .#" "; LEERZEICHEN.NIN. .BASOUT; AN L
OESCHPOSITION AUSGEBEN.TIX.;.ZI..;..I..E
NDCLEAR1 .HOME1; CURSOR IN LINKE OBERE W
INDOW-ECKE..I..;..I .;.DI..;..I..PRINT1
.ZEILE1; ZEILE..I.. .SPALTE1; UND SPALTE
..JH. .SETCUR; IM WINDOW SETZEN.7JR. .OU
TPUTBYTE; ZEICHEN HOLEN.HJ.. .BASOUT; UN
D AN GESETZTER POSITION AUSGEBEN.NJ..;..
J.. .SPALTE1; SPALTE ERHOEHEN..J.. .SPAL
TE1; SPALTE HOLEN.UJ.. .#RECHTS1; UEBER
RECHTE GRENZE HINAUS?..J.. .ENDOUTW; NEI
N, DANN BEENDEN..K.. .#LINKS1; SONST LIN
KEN RAND.9K". .SPALTE1; ALS SPALTE SETZE
N.]K,. .ZEILE1; EINE ZEILE NACH UNTEN.WK
6. .ZEILE1; ZEILE HOLEN..K@. .#UNTEN1; S
CHON UNTERSTE ZEILE..KJ. .ENDOUTW; NEIN,
DANN ENDE..KT. .#OBEN1; SONST CURSOR IM
WINDOW..K^. .ZEILE1; IN OBERSTE ZEILE..
LH.;..LR.ENDOUTW .; ZEILE.,L|. .ZEILE; H
OLEN.;L.. .; SPALTE.OL.. .SPALTE; HOLEN.
UL..;.HL.. .; Y-REGISTER.VL.. .; HOLEN..
L.. .; X-REGISTER..LB. .; HOLEN..LL. .OU
TPUTBYTE; ZEICHEN IN AKKU.QLV. .; ROUTIN
E BEENDEN.WL..;..L..;..L..; DIE GLEICHE
ROUTINE FUER..M..; WINDOW #2:..M..;.)M..
OUTW2 .OUTPUTBYTE.0M.. ..7M&. .>M0. ..E
M:. .KMD.;.XMN. .SPALTE._MX. .KMB. .ZE
ILE.RML. .XMV.;..M.. .OUTPUTBYTE..M.. .
#CR..M.. .TESTHOME2..M.. .ZEILE2..M.. .#
UNTEN2.KM.. .ENDCR2.XM.. .ZEILE2..MF. .#
LINKS2..MP. .SPALTE2..MZ.;..N..ENDCR2 .E
NDOUTW..N..;.)N..TESTHOME2 .#HOME.8N.. .
TESTCLR2.JN..HOME2 .#OBEN2.WN.. .ZEILE2.
EN . .#LINKS2.SN*. .SPALTE2..N4. .ENDOUT
W..N>.;..NH.TESTCLR2 .#CLEAR..NR. .PRINT
2..N\.;.FNF.; WINDOW LOESCHEN:.LNP.;..NZ
. .#146; REVERS OFF..N.. .BASOUT; AUSGEB
EN..O..;..O.. .#LINKS2..O.. .SPALTE2.)O.
. .#OBEN2.6O.. .ZEILE2.<O..;.SOJ.SCHLEIF
E2 .CLEAR2C.AOT. .SPALTE2.TO.. .#(RECHTS
2-1)..O.. .CLEAR2A..O.. .ZEILE2..O.. .#(
UNTEN2-1)..O.. .ENDCLEAR2..O.. .CLEAR2B.
EO..;.ZO$.CLEAR2A .SPALTE2..O.. .SCHLEIF
E2..O8.;..PB.CLEAR2B .ZEILE2..PL. .#LINK
S2. PV. .SPALTE2.0P`. .SCHLEIFE2.6PJ.;.J
PT.CLEAR2C .ZEILE2.XP~. .SPALTE2.EP.. .S
ETCUR.PP.. .#" ".}P.. .BASOUT..P..;..P..
;..P..ENDCLEAR2 .HOME2..PD.;..PN.;..PX.;
.CP..PRINT2 .ZEILE2.QP.. .SPALTE2..P.. .
SETCUR..P.. .OUTPUTBYTE..P.. .BASOUT..Q.
.;..Q.. .SPALTE2..Q(. .SPALTE2.-Q2. .#RE
CHTS2.<Q<. .ENDOUTW2.JQF. .#LINKS2.XQP.
.SPALTE2.EQZ. .ZEILE2.RQD. .ZEILE2..QN.
.#UNTEN2..QX. .ENDOUTW2..Q.. .#OBEN2..Q.
. .ZEILE2..Q..;..Q .ENDOUTW2 .ENDOUTW; W
EITER WIE BEI OUTW1..Q..;..Q..;..Q..;..Q
H.;..RR.; ROUTINE ZUM DRUCKEN EINES.(R..
; GANZEN WINDOWS..R..;.SR..; ADRESSE WIR
D IN A/Y UEBERGEBEN.YR..;.}R..PRWIN1 .TE
XTPTR; LO-BYTE SETZEN..R.. .TEXTPTR+1; H
I-BYTE SETZEN..R..;.HR". .#HOME; LINKE O
BERE WINDOW-ECKE..R,. .OUTW1; ANSPRINGEN
..S6. .; CARRY VOR ADDITION LOESCHEN. S@
. .TEXTPTR; ZUR ANFANGS-.?SJ. .#<(LAENGE
1); ADRESSE DES.SST. .TEMP1; TEXTES.TS^.
.TEXTPTR+1; WIRD LAENGE DES..SH. .#>(LA
ENGE1); TEXTES ADDIERT..DSR. .TEMP1+1; E
RGEBNIS IN (TEMP1)/(TEMP1+1).JS|.;..S..
.#0; OFFSET = 0..T..SCHLEIFE3 .(TEXTPTR)
,Y; ZEICHEN AUS TEXT HOLEN.,T.. .OUTW1;
UND AUSGEBEN.FT.. .TEXTPTR; ZEIGER AUF.`
T.. .PRWIN1A; TEXTSTELLE.T.. .TEXTPTR+1
; UM 1 ERHOEHEN..TB.;..TL.PRWIN1A .TEXTP
TR; PRUEFEN,..TV. .TEMP1; OB SCHON.UT..
.TEXTPTR+1; DER GANZE..T.. .TEMP1+1; TEX
T AUSGEGEBEN WURDE..U.. .SCHLEIFE3; NEIN
(C=0): WEITER.$U..;.7U.. .; SONST ENDE.
=U..;.CU..;.FU&.; ERKLAERUNGSTEXT IN WIN
DOW #1.VU0.; SCHREIBEN.|U:.;..UD.;..UN.E
RKLAERG .#18; REVERS ON..UX. .BASOUT; AU
SGEBEN.UUB. .#<(ERKLTX); ERKLAERUNGS-..U
L. .#>(ERKLTX); TEXT..VV. .PRWIN1; AUSGE
BEN..V..;.!V..ERKLTX .." ".3V.. .
." DIES ".EV.. .." ".WV.. .." I
ST ".IV.. .." ".{V.. .." WINDO
W "..VF. .." "..VP. .." NR. 1 ".
.VZ. .." "..V..;..V..;..V..; ROUT
INE ZUM DRUCKEN EINES..W..; GANZEN WINDO
WS FUER WINDOW #2..W..;..W..PRWIN2 .TEXT
PTR.+W . .TEXTPTR+1.1W*.;.=W4. .#HOME.IW
>. .OUTW2.PWH. ..^WR. .TEXTPTR.PW\. .#<(
LAENGE2).|WF. .TEMP1..WP. .TEXTPTR+1..WZ
. .#>(LAENGE2)..W.. .TEMP1+1..W..;..W..
.#0.VW..SCHLEIFE4 .(TEXTPTR),Y..W.. .OUT
W2..W.. .TEXTPTR..W.. .PRWIN2A..XJ. .TEX
TPTR+1..XT.;.)X..PRWIN2A .TEXTPTR.5X.. .
TEMP1.EX.. .TEXTPTR+1.SX.. .TEMP1+1.CX..
.SCHLEIFE4.IX..;.PX.. ..VX$.;.|X..;..X8
.; MENUE IN WINDOW #2 SCHREIBEN..XB.;..X
L.;.KXV.SCHRMENUE .#146; REVERS OFF..X`.
.BASOUT; AUSGEBEN..XJ. .#<(MENUETX); ME
NUE-..YT. .#>(MENUETX); TEXT.+Y~. .PRWIN
2; AUSGEBEN.1Y..;.TY..MENUETX .."*******
***********".PY.. .."* *"
..Y.. .."* MENUE *"..Y.. .."*
*".DY.. .."***************
***"..YD. .."* *"..YN. ..
"* (1) ERKLAERUNG *"..ZX. .."*
*".4Z.. .."* (2) FARBE *".PZ.
. .."* *".LZ.. .."* (3) B
EENDEN *"..Z.. .."* *"
..Z.. .."******************"..Z..;..Z..;
..Z(.;.JZ2.; HAUPTPROGRAMM..Z<.; =======
======..ZF.;..{P.MAIN .#0; CODE FUER SCH
WARZ. {Z. .$D020; RAHMEN SCHWARZ.@{D. .$
D021;HINTERGRUND SCHWARZ.`{N. .#5; ASCII
-CODE FUER WEISS..{X. .BASOUT; ALS SCHRI
FTFARBE SETZEN. {.. .#0; ERKLAERUNGSFLAG
..{.. .ERKLFLAG; ZURUECKSETZEN.D{..;..{
. .SCHRMENUE; MENUE AUSGEBEN..{..;..|..T
ASTE .GET; TASTENDRUCK HOLEN..|.. .#"1";
"1"?.O|H. .PUNKT1; JA: ROUTINE FUER PUN
KT 1 ANSPRINGEN.`|R. .#"2"; "2"?..|.. .P
UNKT2; JA: ROUTINE FUER PUNKT2 ANSPRINGE
N..|.. .#"3"; "3"?.K|.. .TASTE; NEIN, DA
NN AUF TASTE WARTEN.Q|..;..|..; PUNKT 3
(BEENDEN)..|..;..|.. .; BEENDEN..}".;..}
,.;."}6.; PUNKT 2 (FARBE):.(}@.;.P}J.PUN
KT2 .$D020; RAHMENFARBE ERHOEHEN.S}T. .$
D021; AUCH HINTERGRUNDFARBE..}^. .TASTE;
ZURUECK ZUM MENUE..}H.;..}R.;.D}|.PUNKT
1 .ERKLFLAG; ERKLAERUNGSFLAG.X}.. .#1; "
SKIPPEN"..}.. .ERKLFLAG; UND ZURUECKSCHR
EIBEN..~..;.0~.. .LOESCHERK; =0, DANN WI
NDOW #1 LOESCHEN.6~..;.`~.. .ERKLAERG; S
ONST ERKLAERUNG AUSGEBEN..~B. .TASTE; UN
D ZURUECK ZUM MENUE..~L.;..~V.LOESCHERK
.#CLEAR; WINDOW #1..~.. .OUTW1; LOESCHEN
..~.. .TASTE; ZURUECK ZUM MENUE...
> CLICK IMAGE PREVIEW FOR FULL MODAL