2SCREENS(SRCE)..
FILE INFORMATION
FILENAME(S): 2SCREENS(SRCE)..
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
a5f05bb428f3aec4ab511258f7d4997b270ea411e2e092975c197676a26955cf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15829 SEITE B | 2SCREENS(SRCE).. | PRG | C64er, DuncanTwain | 32 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 5C 62 01 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.b\b..;*********|
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: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 |**************..|
00000050: 62 02 00 3B 20 20 20 20 20 20 32 D3 C3 D2 C5 C5 |b..; 2.....|
00000060: CE D3 3A 20 D5 4D 53 43 48 41 4C 54 45 4E 20 5A |..: .MSCHALTEN Z|
00000070: 57 49 53 43 48 45 4E 20 32 20 D6 C4 C3 2D C2 49 |WISCHEN 2 ...-.I|
00000080: 4C 44 53 43 48 49 52 4D 45 4E 20 4D 49 54 20 C3 |LDSCHIRMEN MIT .|
00000090: D4 D2 CC 2D 41 00 D7 62 03 00 3B 20 20 20 20 20 |...-A..b..; |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 28 57 29 20 42 59 20 C3 41 52 53 54 45 4E 20 | (W) BY .ARSTEN |
000000C0: C8 41 48 4E 20 31 39 38 37 00 24 63 04 00 3B 2A |.AHN 1987.$c..;*|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 00 2A 63 05 00 3B 00 30 63 06 |******.*c..;.0c.|
00000120: 00 3B 00 36 63 07 00 3B 00 83 63 08 00 3B 2A 2A |.;.6c..;..c..;**|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 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 2A 2A 2A 2A 00 9B 63 09 00 3B 20 20 CC 41 42 |*****..c..; .AB|
00000180: 45 4C 20 44 45 46 49 4E 49 45 52 45 4E 00 E8 63 |EL DEFINIEREN..c|
00000190: 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 63 0B 00 3B |**********..c..;|
000001E0: 00 FA 63 0C 00 2E 90 24 31 41 30 30 00 0B 64 0D |..c....$1A00..d.|
000001F0: 00 3B 2E 4C 49 53 54 20 31 2C 34 2C 37 00 1C 64 |.;.LIST 1,4,7..d|
00000200: 0E 00 3B 2E 53 4B 49 50 20 31 33 30 2C 39 00 41 |..;.SKIP 130,9.A|
00000210: 64 0F 00 3B 2E 4C 50 52 49 4E 54 20 32 37 2C 35 |d..;.LPRINT 27,5|
00000220: 31 2C 31 35 2C 32 37 2C 38 33 2C 34 38 2C 32 37 |1,15,27,83,48,27|
00000230: 2C 31 35 00 6E 64 10 00 2E 8F 49 50 52 43 54 52 |,15.nd....IPRCTR|
00000240: 4C 3D 24 30 33 33 34 3B 20 D6 45 43 54 4F 52 20 |L=$0334; .ECTOR |
00000250: 46 BD 52 20 C3 D4 D2 CC 2D C1 55 53 47 41 42 45 |F.R ....-.USGABE|
00000260: 00 95 64 11 00 2E 8F 43 52 3D 24 46 46 30 30 3B |..d....CR=$FF00;|
00000270: 20 CB 4F 4E 46 49 47 55 52 41 54 49 4F 4E 53 52 | .ONFIGURATIONSR|
00000280: 45 47 49 53 54 45 52 00 CE 64 12 00 2E 8F 53 43 |EGISTER..d....SC|
00000290: 52 45 45 4E 3D 24 30 41 32 45 3B 20 D3 43 52 45 |REEN=$0A2E; .CRE|
000002A0: 45 4E 2D D2 45 47 49 53 54 45 52 20 46 BD 52 27 |EN-.EGISTER F.R'|
000002B0: 53 20 C2 45 54 52 49 45 42 53 53 59 53 54 45 4D |S .ETRIEBSSYSTEM|
000002C0: 00 0B 65 13 00 2E 8F 41 54 54 52 49 42 55 54 3D |..e....ATTRIBUT=|
000002D0: 24 30 41 32 46 3B 20 C1 54 54 52 49 42 55 54 2D |$0A2F; .TTRIBUT-|
000002E0: D2 45 47 49 53 54 45 52 20 46 BD 52 27 53 20 C2 |.EGISTER F.R'S .|
000002F0: 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 44 65 |ETRIEBSSYSTEM.De|
00000300: 14 00 2E 8F 43 55 52 5F 31 3D 24 30 30 45 42 3B |....CUR_1=$00EB;|
00000310: 20 C3 55 52 53 4F 52 2D C8 49 47 48 2D C2 59 54 | .URSOR-.IGH-.YT|
00000320: 45 20 46 BD 52 27 53 20 C2 45 54 52 49 45 42 53 |E F.R'S .ETRIEBS|
00000330: 53 59 53 54 45 4D 00 7C 65 15 00 2E 8F 43 55 52 |SYSTEM.|e....CUR|
00000340: 5F 32 3D 24 30 30 45 43 3B 20 C3 55 52 53 4F 52 |_2=$00EC; .URSOR|
00000350: 2D CC 4F 57 2D C2 59 54 45 20 46 BD 52 27 53 20 |-.OW-.YTE F.R'S |
00000360: C2 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 B8 |.ETRIEBSSYSTEM..|
00000370: 65 16 00 2E 8F 43 4F 4C 4F 52 5F 42 3D 24 30 30 |e....COLOR_B=$00|
00000380: 46 31 3B 20 C1 4B 54 55 45 4C 4C 45 20 C1 54 54 |F1; .KTUELLE .TT|
00000390: 52 49 42 55 54 2D CB 4F 4D 42 49 4E 41 54 49 4F |RIBUT-.OMBINATIO|
000003A0: 4E 20 46 BD 52 27 53 20 C2 2E 00 D6 65 17 00 2E |N F.R'S ....e...|
000003B0: 8F 52 56 53 3D 24 30 30 46 33 3B 20 D2 45 56 45 |.RVS=$00F3; .EVE|
000003C0: 52 53 45 2D C6 4C 41 47 00 09 66 18 00 2E 8F 51 |RSE-.LAG..f....Q|
000003D0: 54 53 57 3D 24 30 30 46 34 3B 20 C6 4C 41 47 20 |TSW=$00F4; .LAG |
000003E0: 46 BD 52 20 C1 4E 46 BD 48 52 55 4E 47 53 5A 45 |F.R .NF.HRUNGSZE|
000003F0: 49 43 48 45 4E 2D CD 4F 44 55 53 00 28 66 19 00 |ICHEN-.ODUS.(f..|
00000400: 2E 8F 49 4E 53 52 54 3D 24 30 30 46 35 3B 20 C9 |..INSRT=$00F5; .|
00000410: 4E 53 45 52 54 2D C6 4C 41 47 00 4D 66 1A 00 2E |NSERT-.LAG.Mf...|
00000420: 8F 49 4E 53 46 4C 47 3D 24 30 30 46 36 3B 20 C1 |.INSFLG=$00F6; .|
00000430: 55 54 4F 2D C9 4E 53 45 52 54 2D C6 4C 41 47 00 |UTO-.NSERT-.LAG.|
00000440: 6F 66 1B 00 2E 8F 53 43 52 4F 4C 4C 5F 42 3D 24 |of....SCROLL_B=$|
00000450: 30 30 46 38 3B 20 D3 43 52 4F 4C 4C 2D C6 4C 41 |00F8; .CROLL-.LA|
00000460: 47 00 99 66 1C 00 2E 8F 50 52 49 4D 4D 3D 24 46 |G..f....PRIMM=$F|
00000470: 46 37 44 3B 20 D3 54 52 49 4E 47 2D C1 55 53 47 |F7D; .TRING-.USG|
00000480: 41 42 45 2D D2 4F 55 54 49 4E 45 00 BF 66 1D 00 |ABE-.OUTINE..f..|
00000490: 2E 8F 56 44 43 5F 31 3D 24 44 36 30 30 3B 20 D6 |..VDC_1=$D600; .|
000004A0: C4 C3 2D D2 45 47 49 53 54 45 52 4E 55 4D 4D 45 |..-.EGISTERNUMME|
000004B0: 52 00 DC 66 1E 00 2E 8F 56 44 43 5F 32 3D 24 44 |R..f....VDC_2=$D|
000004C0: 36 30 31 3B 20 D6 C4 C3 2D C4 41 54 55 4D 00 E2 |601; ...-.ATUM..|
000004D0: 66 1F 00 3B 00 E8 66 20 00 3B 00 EE 66 21 00 3B |f..;..f .;..f!.;|
000004E0: 00 3B 67 22 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;g".;**********|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 67 |*************.Mg|
00000530: 23 00 3B 20 20 20 C5 49 4E 53 50 52 55 4E 47 00 |#.; .INSPRUNG.|
00000540: 9A 67 24 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.g$.;***********|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 67 25 |************..g%|
00000590: 00 3B 00 C5 67 26 00 53 54 41 52 54 20 81 23 24 |.;..g&.START .#$|
000005A0: 30 30 3B 20 C9 2F CF 20 53 49 43 48 54 42 41 52 |00; ./. SICHTBAR|
000005B0: 20 4D 41 43 48 45 4E 00 CF 67 27 00 20 82 43 52 | MACHEN..g'. .CR|
000005C0: 3B 00 DC 67 28 00 20 97 50 52 49 4D 4D 3B 00 FC |;..g(. .PRIMM;..|
000005D0: 67 29 00 20 2E 91 31 33 2C 32 37 2C 38 31 2C 22 |g). ..13,27,81,"|
000005E0: 32 20 53 43 52 45 45 4E 53 20 4F 22 2C 30 00 2F |2 SCREENS O",0./|
000005F0: 68 2A 00 53 45 4C 46 4D 4F 44 20 96 4F 4E 3B 20 |h*.SELFMOD .ON; |
00000600: D3 50 52 49 4E 47 45 4E 3A 20 D2 4F 55 54 49 4E |.PRINGEN: .OUTIN|
00000610: 45 20 45 49 4E 2F 41 55 53 53 43 48 41 4C 54 45 |E EIN/AUSSCHALTE|
00000620: 4E 00 35 68 2B 00 3B 00 3B 68 2C 00 3B 00 41 68 |N.5h+.;.;h,.;.Ah|
00000630: 2D 00 3B 00 8E 68 2E 00 3B 2A 2A 2A 2A 2A 2A 2A |-.;..h..;*******|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 00 A8 68 2F 00 3B 20 20 D2 4F 55 54 49 4E 45 20 |..h/.; .OUTINE |
00000690: 41 4B 54 49 56 49 45 52 45 4E 00 F5 68 30 00 3B |AKTIVIEREN..h0.;|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 00 31 69 31 00 4F 4E 20 83 |*******.1i1.ON .|
000006F0: 49 50 52 43 54 52 4C 3B 20 41 4C 54 45 4E 20 C9 |IPRCTRL; ALTEN .|
00000700: 4E 48 41 4C 54 20 48 4F 4C 45 4E 20 55 4E 44 20 |NHALT HOLEN UND |
00000710: 49 4E 20 44 49 45 20 C8 41 55 50 54 52 4F 55 54 |IN DIE .AUPTROUT|
00000720: 49 4E 45 00 42 69 32 00 20 84 49 50 52 43 54 52 |INE.Bi2. .IPRCTR|
00000730: 4C 2B 31 3B 00 52 69 33 00 20 88 4F 4C 44 4A 4D |L+1;.Ri3. .OLDJM|
00000740: 50 2B 31 3B 00 62 69 34 00 20 89 4F 4C 44 4A 4D |P+1;.bi4. .OLDJM|
00000750: 50 2B 32 3B 00 9B 69 35 00 20 83 23 3C 28 4F 57 |P+2;..i5. .#<(OW|
00000760: 4E 29 3B 20 D6 45 43 54 4F 52 20 4D 49 54 20 45 |N); .ECTOR MIT E|
00000770: 49 47 45 4E 45 52 20 D2 4F 55 54 49 4E 45 20 49 |IGENER .OUTINE I|
00000780: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 AA 69 |NITIALISIEREN..i|
00000790: 36 00 20 84 23 3E 28 4F 57 4E 29 3B 00 B9 69 37 |6. .#>(OWN);..i7|
000007A0: 00 20 88 49 50 52 43 54 52 4C 3B 00 CA 69 38 00 |. .IPRCTRL;..i8.|
000007B0: 20 89 49 50 52 43 54 52 4C 2B 31 3B 00 EF 69 39 | .IPRCTRL+1;..i9|
000007C0: 00 20 97 50 52 49 4D 4D 3B 20 C1 43 54 49 56 45 |. .PRIMM; .CTIVE|
000007D0: 2D CD 45 4C 44 55 4E 47 20 41 55 53 47 45 42 45 |-.ELDUNG AUSGEBE|
000007E0: 4E 00 FE 69 3A 00 20 2E 91 22 4E 2E 22 2C 30 3B |N..i:. .."N.",0;|
000007F0: 00 37 6A 3B 00 20 83 23 3C 28 4F 46 46 29 3B 20 |.7j;. .#<(OFF); |
00000800: CA 55 4D 50 2D C2 45 46 45 48 4C 20 27 55 4D 44 |.UMP-.EFEHL 'UMD|
00000810: 52 45 48 45 4E 27 3A 20 41 55 46 20 27 4F 46 46 |REHEN': AUF 'OFF|
00000820: 27 2D D2 4F 55 54 49 4E 45 00 46 6A 3C 00 20 84 |'-.OUTINE.Fj<. .|
00000830: 23 3E 28 4F 46 46 29 3B 00 57 6A 3D 00 20 88 53 |#>(OFF);.Wj=. .S|
00000840: 45 4C 46 4D 4F 44 2B 31 3B 00 68 6A 3E 00 20 89 |ELFMOD+1;.hj>. .|
00000850: 53 45 4C 46 4D 4F 44 2B 32 3B 00 99 6A 3F 00 20 |SELFMOD+2;..j?. |
00000860: 81 46 4C 41 47 3B 20 C6 4C 41 47 20 BD 42 45 52 |.FLAG; .LAG .BER|
00000870: 50 52 BD 46 45 4E 3B 20 57 45 4E 4E 20 4E 49 43 |PR.FEN; WENN NIC|
00000880: 48 54 20 47 45 53 45 54 5A 54 2C 00 CA 6A 40 00 |HT GESETZT,..j@.|
00000890: 20 2E D4 23 4E 4F 54 45 51 55 41 4C 3B 20 20 44 | ..#NOTEQUAL; D|
000008A0: 41 4E 4E 20 32 2E 20 D3 43 48 49 52 4D 20 49 4E |ANN 2. .CHIRM IN|
000008B0: 49 54 49 41 4C 49 53 49 45 52 45 4E 00 F1 6A 41 |ITIALISIEREN..jA|
000008C0: 00 20 83 23 24 31 30 3B 20 C2 49 4C 44 53 43 48 |. .#$10; .ILDSCH|
000008D0: 49 52 4D 53 50 45 49 43 48 45 52 20 4C BC 53 43 |IRMSPEICHER L.SC|
000008E0: 48 45 4E 00 07 6B 42 00 20 81 23 33 32 3B 20 20 |HEN..kB. .#32; |
000008F0: C6 BD 4C 4C 2D 42 59 54 45 00 13 6B 43 00 20 82 |..LL-BYTE..kC. .|
00000900: 46 49 4C 4C 3B 00 27 6B 44 00 20 81 23 24 31 38 |FILL;.'kD. .#$18|
00000910: 3B 20 20 C5 4E 44 45 2B 31 00 32 6B 45 00 20 82 |; .NDE+1.2kE. .|
00000920: 45 4E 44 3B 00 54 6B 46 00 20 97 46 49 4C 4C 5F |END;.TkF. .FILL_|
00000930: 4D 45 4D 3B 20 20 D2 4F 55 54 49 4E 45 20 41 55 |MEM; .OUTINE AU|
00000940: 46 52 55 46 45 4E 00 75 6B 47 00 20 83 23 24 31 |FRUFEN.ukG. .#$1|
00000950: 38 3B 20 C1 54 54 52 49 42 55 54 2D D2 41 4D 20 |8; .TTRIBUT-.AM |
00000960: 4C BC 53 43 48 45 4E 00 8C 6B 48 00 20 81 23 31 |L.SCHEN..kH. .#1|
00000970: 33 33 3B 20 20 C6 BD 4C 4C 2D 42 59 54 45 00 98 |33; ..LL-BYTE..|
00000980: 6B 49 00 20 82 46 49 4C 4C 3B 00 AC 6B 4A 00 20 |kI. .FILL;..kJ. |
00000990: 81 23 24 32 30 3B 20 20 C5 4E 44 45 2B 31 00 B7 |.#$20; .NDE+1..|
000009A0: 6B 4B 00 20 82 45 4E 44 3B 00 D9 6B 4C 00 20 97 |kK. .END;..kL. .|
000009B0: 46 49 4C 4C 5F 4D 45 4D 3B 20 20 D2 4F 55 54 49 |FILL_MEM; .OUTI|
000009C0: 4E 45 20 41 55 46 52 55 46 45 4E 00 F2 6B 4D 00 |NE AUFRUFEN..kM.|
000009D0: 20 81 23 24 30 30 3B 20 C6 4C 41 47 20 4C BC 53 | .#$00; .LAG L.S|
000009E0: 43 48 45 4E 00 FE 6B 4E 00 20 82 46 4C 41 47 3B |CHEN..kN. .FLAG;|
000009F0: 00 1E 6C 4F 00 20 81 23 31 32 3B 20 C4 45 46 41 |..lO. .#12; .EFA|
00000A00: 55 4C 54 2D D7 45 52 54 45 20 53 45 54 5A 45 4E |ULT-.ERTE SETZEN|
00000A10: 00 2A 6C 50 00 20 83 23 24 30 30 3B 00 54 6C 51 |.*lP. .#$00;.TlQ|
00000A20: 00 20 97 56 44 43 5F 53 54 4F 52 45 3B 20 20 D6 |. .VDC_STORE; .|
00000A30: 49 44 45 4F 2D D2 C1 CD 20 28 31 29 20 42 45 49 |IDEO-... (1) BEI|
00000A40: 20 24 30 30 30 30 00 7B 6C 52 00 20 81 23 32 30 | $0000.{lR. .#20|
00000A50: 3B 20 20 C1 54 54 52 49 42 55 54 2D D2 C1 CD 20 |; .TTRIBUT-... |
00000A60: 28 31 29 20 42 45 49 20 24 30 38 30 30 00 87 6C |(1) BEI $0800..l|
00000A70: 53 00 20 83 23 24 30 38 3B 00 98 6C 54 00 20 97 |S. .#$08;..lT. .|
00000A80: 56 44 43 5F 53 54 4F 52 45 3B 00 A1 6C 55 00 20 |VDC_STORE;..lU. |
00000A90: 2E D6 3B 00 CC 6C 56 00 20 A4 3B 20 DA 55 52 BD |..;..lV. .; .UR.|
00000AA0: 43 4B 20 5A 55 4D 20 C2 C1 D3 C9 C3 3B 20 C3 D4 |CK ZUM .....; ..|
00000AB0: D2 CC 2D 41 20 49 53 54 20 41 4B 54 49 56 00 D2 |..-A IST AKTIV..|
00000AC0: 6C 57 00 3B 00 D8 6C 58 00 3B 00 DE 6C 59 00 3B |lW.;..lX.;..lY.;|
00000AD0: 00 2B 6D 5A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.+mZ.;**********|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 48 6D |*************.Hm|
00000B20: 5B 00 3B 20 20 D2 4F 55 54 49 4E 45 20 44 45 53 |[.; .OUTINE DES|
00000B30: 41 4B 54 49 56 49 45 52 45 4E 00 95 6D 5C 00 3B |AKTIVIEREN..m\.;|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B80: 2A 2A 2A 2A 2A 2A 2A 00 9B 6D 5D 00 3B 00 CC 6D |*******..m].;..m|
00000B90: 5E 00 4F 46 46 20 83 4F 4C 44 4A 4D 50 2B 31 3B |^.OFF .OLDJMP+1;|
00000BA0: 20 41 4C 54 45 4E 20 C9 4E 48 41 4C 54 20 57 49 | ALTEN .NHALT WI|
00000BB0: 45 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 00 DC |EDERHERSTELLEN..|
00000BC0: 6D 5F 00 20 84 4F 4C 44 4A 4D 50 2B 32 3B 00 EB |m_. .OLDJMP+2;..|
00000BD0: 6D 60 00 20 88 49 50 52 43 54 52 4C 3B 00 FC 6D |m`. .IPRCTRL;..m|
00000BE0: 61 00 20 89 49 50 52 43 54 52 4C 2B 31 3B 00 27 |a. .IPRCTRL+1;.'|
00000BF0: 6E 62 00 20 97 50 52 49 4D 4D 3B 20 C4 45 53 41 |nb. .PRIMM; .ESA|
00000C00: 43 54 49 56 41 54 45 44 2D CD 45 4C 44 55 4E 47 |CTIVATED-.ELDUNG|
00000C10: 20 41 55 53 47 45 42 45 4E 00 37 6E 63 00 20 2E | AUSGEBEN.7nc. .|
00000C20: 91 22 46 46 2E 22 2C 30 3B 00 6E 6E 64 00 20 83 |."FF.",0;.nnd. .|
00000C30: 23 3C 28 4F 4E 29 3B 20 CA 55 4D 50 2D C2 45 46 |#<(ON); .UMP-.EF|
00000C40: 45 48 4C 20 27 55 4D 44 52 45 48 45 4E 27 3A 20 |EHL 'UMDREHEN': |
00000C50: 41 55 46 20 27 4F 4E 27 2D D2 4F 55 54 49 4E 45 |AUF 'ON'-.OUTINE|
00000C60: 00 7C 6E 65 00 20 84 23 3E 28 4F 4E 29 3B 00 8D |.|ne. .#>(ON);..|
00000C70: 6E 66 00 20 88 53 45 4C 46 4D 4F 44 2B 31 3B 00 |nf. .SELFMOD+1;.|
00000C80: 9E 6E 67 00 20 89 53 45 4C 46 4D 4F 44 2B 32 3B |.ng. .SELFMOD+2;|
00000C90: 00 D1 6E 68 00 20 A4 3B 20 DA 55 52 BD 43 4B 20 |..nh. .; .UR.CK |
00000CA0: 5A 55 4D 20 C2 C1 D3 C9 C3 3B 20 C3 D4 D2 CC 2D |ZUM .....; ....-|
00000CB0: 41 20 49 53 54 20 41 55 53 47 45 53 43 48 41 4C |A IST AUSGESCHAL|
00000CC0: 54 45 54 00 D7 6E 69 00 3B 00 DD 6E 6A 00 3B 00 |TET..ni.;..nj.;.|
00000CD0: E3 6E 6B 00 3B 00 30 6F 6C 00 3B 2A 2A 2A 2A 2A |.nk.;.0ol.;*****|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D20: 2A 2A 00 6C 6F 6D 00 3B 20 20 C8 41 55 50 54 50 |**.lom.; .AUPTP|
00000D30: 52 4F 47 52 41 4D 4D 3A 20 D5 4D 53 43 48 41 4C |ROGRAMM: .MSCHAL|
00000D40: 54 45 4E 20 41 55 46 20 44 45 4E 20 41 4E 44 45 |TEN AUF DEN ANDE|
00000D50: 52 45 4E 20 C2 49 4C 44 53 43 48 49 52 4D 00 B9 |REN .ILDSCHIRM..|
00000D60: 6F 6E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |on.;************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 6F 6F 00 |***********..oo.|
00000DB0: 3B 00 DE 6F 70 00 4F 57 4E 20 85 23 24 30 31 3B |;..op.OWN .#$01;|
00000DC0: 20 C3 4F 44 45 20 56 4F 4E 20 C3 D4 D2 CC 2D 41 | .ODE VON ....-A|
00000DD0: 00 15 70 71 00 20 2E D4 23 4E 4F 54 45 51 55 41 |..pq. ..#NOTEQUA|
00000DE0: 4C 3B 20 57 45 4E 4E 20 4E 49 43 48 54 2C 20 5A |L; WENN NICHT, Z|
00000DF0: 55 52 BD 43 4B 20 5A 55 52 20 41 4C 54 45 4E 20 |UR.CK ZUR ALTEN |
00000E00: D2 4F 55 54 49 4E 45 00 40 70 72 00 4F 4C 44 4A |.OUTINE.@pr.OLDJ|
00000E10: 4D 50 20 96 24 30 30 30 30 3B 20 53 4F 4E 53 54 |MP .$0000; SONST|
00000E20: 20 5A 55 52 20 41 4C 54 45 4E 20 52 4F 55 54 49 | ZUR ALTEN ROUTI|
00000E30: 4E 45 00 49 70 73 00 20 2E D6 3B 00 69 70 74 00 |NE.Ips. ..;.ipt.|
00000E40: 20 81 23 24 30 30 3B 20 C9 2F CF 20 53 49 43 48 | .#$00; ./. SICH|
00000E50: 54 42 41 52 20 4D 41 43 48 45 4E 00 73 70 75 00 |TBAR MACHEN.spu.|
00000E60: 20 82 43 52 3B 00 98 70 76 00 20 81 23 31 32 3B | .CR;..pv. .#12;|
00000E70: 20 D5 4D 53 43 48 41 4C 54 45 4E 20 44 45 53 20 | .MSCHALTEN DES |
00000E80: D6 49 44 45 4F 2D D2 C1 CD 53 00 C1 70 77 00 20 |.IDEO-...S..pw. |
00000E90: 83 48 49 47 48 53 43 52 45 45 4E 3B 20 20 4E 45 |.HIGHSCREEN; NE|
00000EA0: 55 45 52 20 D7 45 52 54 20 41 4E 20 44 45 4E 20 |UER .ERT AN DEN |
00000EB0: D6 C4 C3 00 D2 70 78 00 20 97 56 44 43 5F 53 54 |.....px. .VDC_ST|
00000EC0: 4F 52 45 3B 00 F2 70 79 00 20 81 53 43 52 45 45 |ORE;..py. .SCREE|
00000ED0: 4E 3B 20 20 41 4C 54 45 4E 20 D7 45 52 54 20 48 |N; ALTEN .ERT H|
00000EE0: 4F 4C 45 4E 00 29 71 7A 00 20 82 48 49 47 48 53 |OLEN.)qz. .HIGHS|
00000EF0: 43 52 45 45 4E 3B 20 20 55 4E 44 20 49 4E 20 44 |CREEN; UND IN D|
00000F00: 45 4E 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 |EN .WISCHENSPEIC|
00000F10: 48 45 52 20 42 52 49 4E 47 45 4E 00 5D 71 7B 00 |HER BRINGEN.]q{.|
00000F20: 20 88 53 43 52 45 45 4E 3B 20 20 4E 45 55 45 52 | .SCREEN; NEUER|
00000F30: 20 D7 45 52 54 20 41 55 43 48 20 46 BD 52 27 53 | .ERT AUCH F.R'S|
00000F40: 20 C2 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 | .ETRIEBSSYSTEM.|
00000F50: 85 71 7C 00 20 81 23 32 30 3B 20 D5 4D 53 43 48 |.q|. .#20; .MSCH|
00000F60: 41 4C 54 45 4E 20 44 45 53 20 C1 54 54 52 49 42 |ALTEN DES .TTRIB|
00000F70: 55 54 2D D2 C1 CD 53 00 AB 71 7D 00 20 83 48 49 |UT-...S..q}. .HI|
00000F80: 47 48 41 54 54 3B 20 20 4E 45 55 45 52 20 D7 45 |GHATT; NEUER .E|
00000F90: 52 54 20 41 4E 20 44 45 4E 20 D6 C4 C3 00 BC 71 |RT AN DEN .....q|
00000FA0: 7E 00 20 97 56 44 43 5F 53 54 4F 52 45 3B 00 DE |~. .VDC_STORE;..|
00000FB0: 71 7F 00 20 81 41 54 54 52 49 42 55 54 3B 20 20 |q.. .ATTRIBUT; |
00000FC0: 41 4C 54 45 4E 20 D7 45 52 54 20 48 4F 4C 45 4E |ALTEN .ERT HOLEN|
00000FD0: 00 12 72 80 00 20 82 48 49 47 48 41 54 54 3B 20 |..r.. .HIGHATT; |
00000FE0: 20 55 4E 44 20 49 4E 20 44 45 4E 20 DA 57 49 53 | UND IN DEN .WIS|
00000FF0: 43 48 45 4E 53 50 45 49 43 48 45 52 20 42 52 49 |CHENSPEICHER BRI|
00001000: 4E 47 45 4E 00 3D 72 81 00 20 88 41 54 54 52 49 |NGEN.=r.. .ATTRI|
00001010: 42 55 54 3B 20 20 41 55 43 48 20 46 BD 52 27 53 |BUT; AUCH F.R'S|
00001020: 20 C2 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 | .ETRIEBSSYSTEM.|
00001030: 69 72 82 00 20 81 43 55 52 4C 49 4E 45 3B 20 C3 |ir.. .CURLINE; .|
00001040: 55 52 53 4F 52 50 4F 53 49 54 49 4F 4E 45 4E 20 |URSORPOSITIONEN |
00001050: 41 55 53 54 41 55 53 43 48 45 4E 00 84 72 83 00 |AUSTAUSCHEN..r..|
00001060: 20 83 43 55 52 5F 31 3B 20 20 C3 55 52 53 4F 52 | .CUR_1; .URSOR|
00001070: 2D DA 45 49 4C 45 00 93 72 84 00 20 88 43 55 52 |-.EILE..r.. .CUR|
00001080: 4C 49 4E 45 3B 00 A0 72 85 00 20 82 43 55 52 5F |LINE;..r.. .CUR_|
00001090: 31 3B 00 C6 72 86 00 20 85 23 32 34 3B 20 20 20 |1;..r.. .#24; |
000010A0: BD 42 45 52 50 52 BD 46 45 4E 2C 20 4F 42 20 32 |.BERPR.FEN, OB 2|
000010B0: 35 2E 20 DA 45 49 4C 45 00 D5 72 87 00 20 2E D4 |5. .EILE..r.. ..|
000010C0: 23 45 51 55 41 4C 3B 00 FB 72 88 00 20 9E 3B 20 |#EQUAL;..r.. .; |
000010D0: 20 20 57 45 4E 4E 20 4A 41 2C 20 44 41 4E 4E 20 | WENN JA, DANN |
000010E0: 59 2D C6 4C 41 47 20 53 45 54 5A 45 4E 00 04 73 |Y-.LAG SETZEN..s|
000010F0: 89 00 20 2E D6 3B 00 24 73 8A 00 20 81 43 55 52 |.. ..;.$s.. .CUR|
00001100: 43 4F 4C 55 4D 4E 3B 20 20 C3 55 52 53 4F 52 2D |COLUMN; .URSOR-|
00001110: D3 50 41 4C 54 45 00 31 73 8B 00 20 83 43 55 52 |.PALTE.1s.. .CUR|
00001120: 5F 32 3B 00 42 73 8C 00 20 88 43 55 52 43 4F 4C |_2;.Bs.. .CURCOL|
00001130: 55 4D 4E 3B 00 4F 73 8D 00 20 82 43 55 52 5F 32 |UMN;.Os.. .CUR_2|
00001140: 3B 00 7D 73 8E 00 20 83 43 4F 4C 4F 52 5F 42 3B |;.}s.. .COLOR_B;|
00001150: 20 C3 4F 4C 4F 52 53 20 28 C1 54 54 52 49 42 55 | .OLORS (.TTRIBU|
00001160: 54 45 29 20 41 55 53 54 41 55 53 43 48 45 4E 00 |TE) AUSTAUSCHEN.|
00001170: 8A 73 8F 00 20 81 43 4F 4C 4F 52 3B 00 BA 73 90 |.s.. .COLOR;..s.|
00001180: 00 20 82 43 4F 4C 4F 52 5F 42 3B 20 20 4E 45 55 |. .COLOR_B; NEU|
00001190: 45 4E 20 D7 45 52 54 20 46 BD 52 27 53 20 C2 45 |EN .ERT F.R'S .E|
000011A0: 54 52 49 45 42 53 53 59 53 54 45 4D 00 EB 73 91 |TRIEBSSYSTEM..s.|
000011B0: 00 20 88 43 4F 4C 4F 52 3B 20 20 41 4C 54 45 4E |. .COLOR; ALTEN|
000011C0: 20 D7 45 52 54 20 49 4E 20 44 45 4E 20 DA 57 49 | .ERT IN DEN .WI|
000011D0: 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 22 74 |SCHENSPEICHER."t|
000011E0: 92 00 20 83 23 24 30 30 3B 20 D1 55 4F 54 45 2D |.. .#$00; .UOTE-|
000011F0: 20 26 20 C9 4E 53 45 52 54 2D C6 4C 41 47 20 4C | & .NSERT-.LAG L|
00001200: BC 53 43 48 45 4E 20 46 BD 52 20 C3 55 52 53 4F |.SCHEN F.R .URSO|
00001210: 52 53 45 54 00 52 74 93 00 20 81 49 4E 53 52 54 |RSET.Rt.. .INSRT|
00001220: 3B 20 20 41 4C 54 45 4E 20 C9 4E 48 41 4C 54 20 |; ALTEN .NHALT |
00001230: 41 55 46 20 44 45 4E 20 D3 54 41 43 4B 20 52 45 |AUF DEN .TACK RE|
00001240: 54 54 45 4E 00 5A 74 94 00 20 A0 3B 00 67 74 95 |TTEN.Zt.. .;.gt.|
00001250: 00 20 88 49 4E 53 52 54 3B 00 96 74 96 00 20 81 |. .INSRT;..t.. .|
00001260: 51 54 53 57 3B 20 20 41 4C 54 45 4E 20 C9 4E 48 |QTSW; ALTEN .NH|
00001270: 41 4C 54 20 41 55 46 20 44 45 4E 20 D3 54 41 43 |ALT AUF DEN .TAC|
00001280: 4B 20 52 45 54 54 45 4E 00 9E 74 97 00 20 A0 3B |K RETTEN..t.. .;|
00001290: 00 AA 74 98 00 20 88 51 54 53 57 3B 00 D5 74 99 |..t.. .QTSW;..t.|
000012A0: 00 20 93 23 24 30 31 3B 20 C3 55 52 53 4F 52 20 |. .#$01; .URSOR |
000012B0: 53 45 54 5A 45 4E 20 41 55 46 20 4E 45 55 45 4D |SETZEN AUF NEUEM|
000012C0: 20 D3 43 52 45 45 4E 00 11 75 9A 00 20 2E D4 23 | .CREEN..u.. ..#|
000012D0: 45 51 55 41 4C 3B 20 20 59 20 BD 42 45 52 50 52 |EQUAL; Y .BERPR|
000012E0: BD 46 45 4E 2C 20 4F 42 20 C6 4C 41 47 20 46 BD |.FEN, OB .LAG F.|
000012F0: 52 20 32 35 2E 20 DA 45 49 4C 45 20 47 45 53 45 |R 25. .EILE GESE|
00001300: 54 5A 54 00 46 75 9B 00 20 97 50 52 49 4D 4D 3B |TZT.Fu.. .PRIMM;|
00001310: 20 20 57 45 4E 4E 20 59 20 47 45 53 45 54 5A 54 | WENN Y GESETZT|
00001320: 2C 20 44 41 4E 4E 20 5A 55 45 52 53 54 20 4E 41 |, DANN ZUERST NA|
00001330: 43 48 20 4F 42 45 4E 2C 00 82 75 9C 00 20 2E 91 |CH OBEN,..u.. ..|
00001340: 22 91 11 22 2C 30 3B 20 20 44 41 4D 49 54 20 C2 |"..",0; DAMIT .|
00001350: 49 4C 44 53 43 48 49 52 4D 20 4E 49 43 48 54 20 |ILDSCHIRM NICHT |
00001360: 57 45 49 54 45 52 47 45 53 43 48 4F 42 45 4E 20 |WEITERGESCHOBEN |
00001370: 57 49 52 44 00 8B 75 9D 00 20 2E D5 3B 00 C4 75 |WIRD..u.. ..;..u|
00001380: 9E 00 20 97 50 52 49 4D 4D 3B 20 20 57 45 4E 4E |.. .PRIMM; WENN|
00001390: 20 59 20 4E 49 43 48 54 20 47 45 53 45 54 5A 54 | Y NICHT GESETZT|
000013A0: 20 57 41 52 2C 20 44 41 4E 4E 20 5A 55 45 52 53 | WAR, DANN ZUERS|
000013B0: 54 20 4E 41 43 48 00 DA 75 9F 00 20 2E 91 22 11 |T NACH..u.. ..".|
000013C0: 91 22 2C 30 3B 20 20 55 4E 54 45 4E 00 E3 75 A0 |.",0; UNTEN..u.|
000013D0: 00 20 2E D6 3B 00 16 76 A1 00 20 A1 3B 20 C1 4E |. ..;..v.. .; .N|
000013E0: 46 BD 48 52 55 4E 47 53 5A 45 49 43 48 45 4E 2D |F.HRUNGSZEICHEN-|
000013F0: C6 4C 41 47 20 28 D1 55 4F 54 45 29 20 56 45 52 |.LAG (.UOTE) VER|
00001400: 54 41 55 53 43 48 45 4E 00 23 76 A2 00 20 83 51 |TAUSCHEN.#v.. .Q|
00001410: 55 4F 54 45 3B 00 50 76 A3 00 20 88 51 54 53 57 |UOTE;.Pv.. .QTSW|
00001420: 3B 20 20 4E 45 55 45 4E 20 D7 45 52 54 20 46 BD |; NEUEN .ERT F.|
00001430: 52 27 53 20 C2 45 54 52 49 45 42 53 53 59 53 54 |R'S .ETRIEBSSYST|
00001440: 45 4D 00 81 76 A4 00 20 82 51 55 4F 54 45 3B 20 |EM..v.. .QUOTE; |
00001450: 20 41 4C 54 45 4E 20 D7 45 52 54 20 49 4E 20 44 | ALTEN .ERT IN D|
00001460: 45 4E 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 |EN .WISCHENSPEIC|
00001470: 48 45 52 00 A5 76 A5 00 20 83 52 56 53 3B 20 D2 |HER..v.. .RVS; .|
00001480: 45 56 45 52 53 45 2D C6 4C 41 47 20 56 45 52 54 |EVERSE-.LAG VERT|
00001490: 41 55 53 43 48 45 4E 00 B4 76 A6 00 20 81 52 45 |AUSCHEN..v.. .RE|
000014A0: 56 45 52 53 45 3B 00 E0 76 A7 00 20 82 52 56 53 |VERSE;..v.. .RVS|
000014B0: 3B 20 20 4E 45 55 45 4E 20 D7 45 52 54 20 46 BD |; NEUEN .ERT F.|
000014C0: 52 27 53 20 C2 45 54 52 49 45 42 53 53 59 53 54 |R'S .ETRIEBSSYST|
000014D0: 45 4D 00 13 77 A8 00 20 88 52 45 56 45 52 53 45 |EM..w.. .REVERSE|
000014E0: 3B 20 20 41 4C 54 45 4E 20 D7 45 52 54 20 49 4E |; ALTEN .ERT IN|
000014F0: 20 44 45 4E 20 DA 57 49 53 43 48 45 4E 53 50 45 | DEN .WISCHENSPE|
00001500: 49 43 48 45 52 00 33 77 A9 00 20 A1 3B 20 C9 4E |ICHER.3w.. .; .N|
00001510: 53 45 52 54 2D C6 4C 41 47 20 56 45 52 54 41 55 |SERT-.LAG VERTAU|
00001520: 53 43 48 45 4E 00 41 77 AA 00 20 83 49 4E 53 45 |SCHEN.Aw.. .INSE|
00001530: 52 54 3B 00 6F 77 AB 00 20 88 49 4E 53 52 54 3B |RT;.ow.. .INSRT;|
00001540: 20 20 4E 45 55 45 4E 20 D7 45 52 54 20 46 BD 52 | NEUEN .ERT F.R|
00001550: 27 53 20 C2 45 54 52 49 45 42 53 53 59 53 54 45 |'S .ETRIEBSSYSTE|
00001560: 4D 00 A1 77 AC 00 20 82 49 4E 53 45 52 54 3B 20 |M..w.. .INSERT; |
00001570: 20 41 4C 54 45 4E 20 D7 45 52 54 20 49 4E 20 44 | ALTEN .ERT IN D|
00001580: 45 4E 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 |EN .WISCHENSPEIC|
00001590: 48 45 52 00 CB 77 AD 00 20 83 49 4E 53 46 4C 47 |HER..w.. .INSFLG|
000015A0: 3B 20 C1 55 54 4F 49 4E 53 45 52 54 2D C6 4C 41 |; .UTOINSERT-.LA|
000015B0: 47 20 56 45 52 54 41 55 53 43 48 45 4E 00 DD 77 |G VERTAUSCHEN..w|
000015C0: AE 00 20 81 41 55 54 4F 49 4E 53 45 52 54 3B 00 |.. .AUTOINSERT;.|
000015D0: 0C 78 AF 00 20 82 49 4E 53 46 4C 47 3B 20 20 4E |.x.. .INSFLG; N|
000015E0: 45 55 45 4E 20 D7 45 52 54 20 46 BD 52 27 53 20 |EUEN .ERT F.R'S |
000015F0: C2 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 42 |.ETRIEBSSYSTEM.B|
00001600: 78 B0 00 20 88 41 55 54 4F 49 4E 53 45 52 54 3B |x.. .AUTOINSERT;|
00001610: 20 20 41 4C 54 45 4E 20 D7 45 52 54 20 49 4E 20 | ALTEN .ERT IN |
00001620: 44 45 4E 20 DA 57 49 53 43 48 45 4E 53 50 45 49 |DEN .WISCHENSPEI|
00001630: 43 48 45 52 00 6A 78 B1 00 20 83 53 43 52 4F 4C |CHER.jx.. .SCROL|
00001640: 4C 5F 42 3B 20 D3 43 52 4F 4C 4C 2D C6 4C 41 47 |L_B; .CROLL-.LAG|
00001650: 20 56 45 52 54 41 55 53 43 48 45 4E 00 78 78 B2 | VERTAUSCHEN.xx.|
00001660: 00 20 81 53 43 52 4F 4C 4C 3B 00 A9 78 B3 00 20 |. .SCROLL;..x.. |
00001670: 82 53 43 52 4F 4C 4C 5F 42 3B 20 20 4E 45 55 45 |.SCROLL_B; NEUE|
00001680: 4E 20 D7 45 52 54 20 46 BD 52 27 53 20 C2 45 54 |N .ERT F.R'S .ET|
00001690: 52 49 45 42 53 53 59 53 54 45 4D 00 DB 78 B4 00 |RIEBSSYSTEM..x..|
000016A0: 20 88 53 43 52 4F 4C 4C 3B 20 20 41 4C 54 45 4E | .SCROLL; ALTEN|
000016B0: 20 D7 45 52 54 20 49 4E 20 44 45 4E 20 DA 57 49 | .ERT IN DEN .WI|
000016C0: 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 F4 78 |SCHENSPEICHER..x|
000016D0: B5 00 20 A4 3B 20 5A 55 52 BD 43 4B 20 5A 55 4D |.. .; ZUR.CK ZUM|
000016E0: 20 C2 C1 D3 C9 C3 00 FA 78 B6 00 3B 00 00 79 B7 | .......x..;..y.|
000016F0: 00 3B 00 06 79 B8 00 3B 00 53 79 B9 00 3B 2A 2A |.;..y..;.Sy..;**|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001740: 2A 2A 2A 2A 2A 00 91 79 BA 00 3B 20 20 D3 55 42 |*****..y..; .UB|
00001750: 52 4F 55 54 49 4E 45 20 D6 C4 C3 5F D3 D4 CF D2 |ROUTINE ..._....|
00001760: C5 20 3A 20 C2 45 53 43 48 52 45 49 42 45 4E 20 |. : .ESCHREIBEN |
00001770: 45 49 4E 45 53 20 D6 C4 C3 2D D2 45 47 49 53 54 |EINES ...-.EGIST|
00001780: 45 52 53 00 DE 79 BB 00 3B 2A 2A 2A 2A 2A 2A 2A |ERS..y..;*******|
00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017D0: 00 E4 79 BC 00 3B 00 F2 79 BD 00 56 44 43 5F 53 |..y..;..y..VDC_S|
000017E0: 54 4F 52 45 00 1A 7A BE 00 20 2E 81 3B 20 D7 41 |TORE..z.. ..; .A|
000017F0: 52 54 45 4E 2C 20 42 49 53 20 44 45 52 20 D6 C4 |RTEN, BIS DER ..|
00001800: C3 20 42 45 52 45 49 54 20 49 53 54 00 27 7A BF |. BEREIT IST.'z.|
00001810: 00 20 8D 56 44 43 5F 31 3B 00 36 7A C0 00 20 2E |. .VDC_1;.6z.. .|
00001820: 82 23 4D 49 4E 55 53 3B 00 5A 7A C1 00 20 82 56 |.#MINUS;.Zz.. .V|
00001830: 44 43 5F 31 3B 20 D2 45 47 49 53 54 45 52 4E 55 |DC_1; .EGISTERNU|
00001840: 4D 4D 45 52 20 41 4E 47 45 42 45 4E 00 82 7A C2 |MMER ANGEBEN..z.|
00001850: 00 20 2E 81 3B 20 D7 41 52 54 45 4E 2C 20 42 49 |. ..; .ARTEN, BI|
00001860: 53 20 44 45 52 20 D6 C4 C3 20 42 45 52 45 49 54 |S DER ... BEREIT|
00001870: 20 49 53 54 00 8F 7A C3 00 20 8D 56 44 43 5F 31 | IST..z.. .VDC_1|
00001880: 3B 00 9E 7A C4 00 20 2E 82 23 4D 49 4E 55 53 3B |;..z.. ..#MINUS;|
00001890: 00 B9 7A C5 00 20 88 56 44 43 5F 32 3B 20 C4 41 |..z.. .VDC_2; .A|
000018A0: 54 55 4D 20 41 4E 47 45 42 45 4E 00 E1 7A C6 00 |TUM ANGEBEN..z..|
000018B0: 20 A4 3B 20 DA 55 52 BD 43 4B 20 5A 55 4D 20 41 | .; .UR.CK ZUM A|
000018C0: 55 46 52 55 46 45 4E 44 45 4E 20 D0 52 4F 47 52 |UFRUFENDEN .ROGR|
000018D0: 41 4D 4D 00 E7 7A C7 00 3B 00 ED 7A C8 00 3B 00 |AMM..z..;..z..;.|
000018E0: F3 7A C9 00 3B 00 40 7B CA 00 3B 2A 2A 2A 2A 2A |.z..;.@{..;*****|
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001930: 2A 2A 00 83 7B CB 00 3B 20 20 D3 55 42 52 4F 55 |**..{..; .UBROU|
00001940: 54 49 4E 45 20 D6 C4 C3 5F C6 C5 D4 C3 C8 20 3A |TINE ..._..... :|
00001950: 20 C8 4F 4C 45 4E 20 44 45 53 20 D7 45 52 54 45 | .OLEN DES .ERTE|
00001960: 53 20 45 49 4E 45 53 20 D6 C4 C3 2D D2 45 47 49 |S EINES ...-.EGI|
00001970: 53 54 45 52 53 00 D0 7B CC 00 3B 2A 2A 2A 2A 2A |STERS..{..;*****|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019C0: 2A 2A 00 D6 7B CD 00 3B 00 E4 7B CE 00 56 44 43 |**..{..;..{..VDC|
000019D0: 5F 46 45 54 43 48 00 0C 7C CF 00 20 2E 81 3B 20 |_FETCH..|.. ..; |
000019E0: D7 41 52 54 45 4E 2C 20 42 49 53 20 44 45 52 20 |.ARTEN, BIS DER |
000019F0: D6 C4 C3 20 42 45 52 45 49 54 20 49 53 54 00 19 |... BEREIT IST..|
00001A00: 7C D0 00 20 8D 56 44 43 5F 31 3B 00 28 7C D1 00 ||.. .VDC_1;.(|..|
00001A10: 20 2E 82 23 4D 49 4E 55 53 3B 00 4C 7C D2 00 20 | ..#MINUS;.L|.. |
00001A20: 82 56 44 43 5F 31 3B 20 D2 45 47 49 53 54 45 52 |.VDC_1; .EGISTER|
00001A30: 4E 55 4D 4D 45 52 20 41 4E 47 45 42 45 4E 00 74 |NUMMER ANGEBEN.t|
00001A40: 7C D3 00 20 2E 81 3B 20 D7 41 52 54 45 4E 2C 20 ||.. ..; .ARTEN, |
00001A50: 42 49 53 20 44 45 52 20 D6 C4 C3 20 42 45 52 45 |BIS DER ... BERE|
00001A60: 49 54 20 49 53 54 00 81 7C D4 00 20 8D 56 44 43 |IT IST..|.. .VDC|
00001A70: 5F 31 3B 00 90 7C D5 00 20 2E 82 23 4D 49 4E 55 |_1;..|.. ..#MINU|
00001A80: 53 3B 00 AB 7C D6 00 20 83 56 44 43 5F 32 3B 20 |S;..|.. .VDC_2; |
00001A90: C4 41 54 55 4D 20 41 4E 47 45 42 45 4E 00 D3 7C |.ATUM ANGEBEN..||
00001AA0: D7 00 20 A4 3B 20 DA 55 52 BD 43 4B 20 5A 55 4D |.. .; .UR.CK ZUM|
00001AB0: 20 41 55 46 52 55 46 45 4E 44 45 4E 20 D0 52 4F | AUFRUFENDEN .RO|
00001AC0: 47 52 41 4D 4D 00 D9 7C D8 00 3B 00 DF 7C D9 00 |GRAMM..|..;..|..|
00001AD0: 3B 00 E5 7C DA 00 3B 00 32 7D DB 00 3B 2A 2A 2A |;..|..;.2}..;***|
00001AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B20: 2A 2A 2A 2A 00 7C 7D DC 00 3B 20 20 D3 55 42 52 |****.|}..; .UBR|
00001B30: 4F 55 54 49 4E 45 20 C6 C9 CC CC 5F CD C5 CD 20 |OUTINE ...._... |
00001B40: 3A 20 C6 BD 4C 4C 45 4E 20 45 49 4E 45 53 20 D3 |: ..LLEN EINES .|
00001B50: 50 45 49 43 48 45 52 42 45 52 45 49 43 48 45 53 |PEICHERBEREICHES|
00001B60: 20 49 4D 20 D6 C4 C3 2D CD 45 4D 4F 52 59 00 C9 | IM ...-.EMORY..|
00001B70: 7D DD 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |}..;************|
00001B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 7D DE 00 |***********..}..|
00001BC0: 3B 00 DC 7D DF 00 46 49 4C 4C 5F 4D 45 4D 00 06 |;..}..FILL_MEM..|
00001BD0: 7E E0 00 20 2E 81 3B 20 BB 55 BE 45 52 45 20 D3 |~.. ..; .U.ERE .|
00001BE0: 43 48 4C 45 49 46 45 3A 20 C8 49 47 48 42 59 54 |CHLEIFE: .IGHBYT|
00001BF0: 45 2D DA BB 48 4C 45 52 00 12 7E E1 00 20 84 23 |E-..HLER..~.. .#|
00001C00: 24 30 30 3B 00 3B 7E E2 00 20 2E 81 3B 20 49 4E |$00;.;~.. ..; IN|
00001C10: 4E 45 52 45 20 D3 43 48 4C 45 49 46 45 3A 20 CC |NERE .CHLEIFE: .|
00001C20: 4F 57 42 59 54 45 2D DA BB 48 4C 45 52 00 61 7E |OWBYTE-..HLER.a~|
00001C30: E3 00 20 81 23 31 38 3B 20 20 C8 49 47 48 2D C2 |.. .#18; .IGH-.|
00001C40: 59 54 45 20 49 4E 53 20 D2 45 47 49 53 54 45 52 |YTE INS .EGISTER|
00001C50: 20 31 38 00 72 7E E4 00 20 97 56 44 43 5F 53 54 | 18.r~.. .VDC_ST|
00001C60: 4F 52 45 3B 00 93 7E E5 00 20 98 3B 20 20 20 C8 |ORE;..~.. .; .|
00001C70: 49 47 48 42 59 54 45 20 41 55 46 20 44 45 4E 20 |IGHBYTE AUF DEN |
00001C80: D3 54 41 43 4B 00 9B 7E E6 00 20 A0 3B 00 A3 7E |.TACK..~.. .;..~|
00001C90: E7 00 20 9A 3B 00 AB 7E E8 00 20 99 3B 00 D0 7E |.. .;..~.. .;..~|
00001CA0: E9 00 20 81 23 31 39 3B 20 20 CC 4F 57 2D C2 59 |.. .#19; .OW-.Y|
00001CB0: 54 45 20 49 4E 53 20 D2 45 47 49 53 54 45 52 20 |TE INS .EGISTER |
00001CC0: 31 39 00 E1 7E EA 00 20 97 56 44 43 5F 53 54 4F |19..~.. .VDC_STO|
00001CD0: 52 45 3B 00 05 7F EB 00 20 81 23 33 31 3B 20 20 |RE;..... .#31; |
00001CE0: C6 BD 4C 4C 42 59 54 45 20 49 4E 20 D2 45 47 49 |..LLBYTE IN .EGI|
00001CF0: 53 54 45 52 20 33 31 00 11 7F EC 00 20 83 46 49 |STER 31..... .FI|
00001D00: 4C 4C 3B 00 22 7F ED 00 20 97 56 44 43 5F 53 54 |LL;."... .VDC_ST|
00001D10: 4F 52 45 3B 00 41 7F EE 00 20 A1 3B 20 20 20 C8 |ORE;.A... .; .|
00001D20: 49 47 48 42 59 54 45 20 57 49 45 44 45 52 48 4F |IGHBYTE WIEDERHO|
00001D30: 4C 45 4E 00 49 7F EF 00 20 99 3B 00 66 7F F0 00 |LEN.I... .;.f...|
00001D40: 20 9E 3B 20 20 D3 43 48 4C 45 49 46 45 20 48 4F | .; .CHLEIFE HO|
00001D50: 43 48 5A BB 48 4C 45 4E 00 75 7F F1 00 20 2E 82 |CHZ.HLEN.u... ..|
00001D60: 23 45 51 55 41 4C 3B 00 7D 7F F2 00 20 A2 3B 00 |#EQUAL;.}... .;.|
00001D70: 88 7F F3 00 20 8B 45 4E 44 3B 00 97 7F F4 00 20 |.... .END;..... |
00001D80: 2E 82 23 45 51 55 41 4C 3B 00 AA 7F F5 00 20 A4 |..#EQUAL;..... .|
00001D90: 3B 20 D2 BD 43 4B 53 50 52 55 4E 47 00 B0 7F F6 |; ..CKSPRUNG....|
00001DA0: 00 3B 00 B6 7F F7 00 3B 00 BC 7F F8 00 3B 00 09 |.;.....;.....;..|
00001DB0: 80 F9 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...;************|
00001DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 80 FA 00 |***********.:...|
00001E00: 3B 20 20 C4 41 54 45 4E 20 44 45 53 20 4A 45 57 |; .ATEN DES JEW|
00001E10: 45 49 4C 53 20 41 55 53 47 45 53 43 48 41 4C 54 |EILS AUSGESCHALT|
00001E20: 45 54 45 4E 20 D3 43 52 45 45 4E 53 00 87 80 FB |ETEN .CREENS....|
00001E30: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00001E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 80 FC 00 3B 00 |*********.....;.|
00001E80: BC 80 FD 00 48 49 47 48 53 43 52 45 45 4E 20 2E |....HIGHSCREEN .|
00001E90: 91 24 31 30 3B 20 C8 49 47 48 2D C2 59 54 45 20 |.$10; .IGH-.YTE |
00001EA0: 44 45 53 20 D6 49 44 45 4F 2D D2 C1 CD 53 00 EB |DES .IDEO-...S..|
00001EB0: 80 FE 00 48 49 47 48 41 54 54 20 2E 91 24 31 38 |...HIGHATT ..$18|
00001EC0: 3B 20 C8 49 47 48 2D C2 59 54 45 20 44 45 53 20 |; .IGH-.YTE DES |
00001ED0: C1 54 54 52 49 42 55 54 2D D2 C1 CD 53 00 1D 81 |.TTRIBUT-...S...|
00001EE0: FF 00 43 4F 4C 4F 52 20 2E 91 24 38 35 3B 20 41 |..COLOR ..$85; A|
00001EF0: 4B 54 55 45 4C 4C 45 20 D3 43 48 52 49 46 54 46 |KTUELLE .CHRIFTF|
00001F00: 41 52 42 45 20 28 C1 54 54 52 49 42 55 54 29 00 |ARBE (.TTRIBUT).|
00001F10: 44 81 00 01 43 55 52 4C 49 4E 45 20 2E 91 24 30 |D...CURLINE ..$0|
00001F20: 30 3B 20 C3 55 52 53 4F 52 2D DA 45 49 4C 45 20 |0; .URSOR-.EILE |
00001F30: 28 30 2D 32 34 29 00 6E 81 01 01 43 55 52 43 4F |(0-24).n...CURCO|
00001F40: 4C 55 4D 4E 20 2E 91 24 30 30 3B 20 C3 55 52 53 |LUMN ..$00; .URS|
00001F50: 4F 52 2D D3 50 41 4C 54 45 20 28 30 2D 37 39 29 |OR-.PALTE (0-79)|
00001F60: 00 96 81 02 01 51 55 4F 54 45 20 2E 91 24 30 30 |.....QUOTE ..$00|
00001F70: 3B 20 C1 4E 46 BD 48 52 55 4E 47 53 5A 45 49 43 |; .NF.HRUNGSZEIC|
00001F80: 48 45 4E 2D C6 4C 41 47 00 BD 81 03 01 49 4E 53 |HEN-.LAG.....INS|
00001F90: 45 52 54 20 2E 91 24 30 30 3B 20 4E 4F 52 4D 41 |ERT ..$00; NORMA|
00001FA0: 4C 45 53 20 C9 4E 53 45 52 54 2D C6 4C 41 47 00 |LES .NSERT-.LAG.|
00001FB0: EE 81 04 01 41 55 54 4F 49 4E 53 45 52 54 20 2E |....AUTOINSERT .|
00001FC0: 91 24 30 30 3B 20 C1 55 54 4F 49 4E 53 45 52 54 |.$00; .UTOINSERT|
00001FD0: 2D C6 4C 41 47 20 28 C5 53 43 41 50 45 2D 41 29 |-.LAG (.SCAPE-A)|
00001FE0: 00 13 82 05 01 53 43 52 4F 4C 4C 20 2E 91 24 30 |.....SCROLL ..$0|
00001FF0: 30 3B 20 C2 49 4C 44 53 43 48 49 52 4D 53 43 52 |0; .ILDSCHIRMSCR|
00002000: 4F 4C 4C 45 4E 00 33 82 06 01 52 45 56 45 52 53 |OLLEN.3...REVERS|
00002010: 45 20 2E 91 24 30 30 3B 20 D2 45 56 45 52 53 45 |E ..$00; .EVERSE|
00002020: 2D C6 4C 41 47 00 6E 82 07 01 45 4E 44 20 2E 91 |-.LAG.n...END ..|
00002030: 24 30 30 3B 20 DA 57 49 53 43 48 45 4E 53 50 45 |$00; .WISCHENSPE|
00002040: 49 43 48 45 52 20 46 BD 52 20 C5 4E 44 45 20 44 |ICHER F.R .NDE D|
00002050: 45 53 20 C6 BD 4C 4C 2D C2 45 52 45 49 43 48 53 |ES ..LL-.EREICHS|
00002060: 00 9C 82 08 01 46 49 4C 4C 20 2E 91 24 30 30 3B |.....FILL ..$00;|
00002070: 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 | .WISCHENSPEICHE|
00002080: 52 20 46 BD 52 20 C6 BD 4C 4C 42 59 54 45 00 CB |R F.R ..LLBYTE..|
00002090: 82 09 01 46 4C 41 47 20 2E 91 24 43 31 3B 20 C6 |...FLAG ..$C1; .|
000020A0: 4C 41 47 20 46 BD 52 20 44 45 46 49 4E 49 45 52 |LAG F.R DEFINIER|
000020B0: 54 45 4E 20 32 2E 20 D3 43 52 45 45 4E 00 00 00 |TEN 2. .CREEN...|
.B\B..;*********************************
**************************************..
B..; 2SCREENS: UMSCHALTEN ZWISCHEN
2 VDC-BILDSCHIRMEN MIT CTRL-A.WB..;
(W) BY CARSTEN HAHN 198
7.$C..;*********************************
**************************************.*
C..;.0C..;.6C..;..C..;******************
****************************************
*************..C..; LABEL DEFINIEREN..C
..;*************************************
**********************************..C..;
..C....$1A00..D..;.LIST 1,4,7..D..;.SKIP
130,9.AD..;.LPRINT 27,51,15,27,83,48,27
,15.ND....IPRCTRL=$0334; VECTOR F.R CTRL
-AUSGABE..D....CR=$FF00; KONFIGURATIONSR
EGISTER.ND....SCREEN=$0A2E; SCREEN-REGIS
TER F.R'S BETRIEBSSYSTEM..E....ATTRIBUT=
$0A2F; ATTRIBUT-REGISTER F.R'S BETRIEBSS
YSTEM.DE....CUR_1=$00EB; CURSOR-HIGH-BYT
E F.R'S BETRIEBSSYSTEM.|E....CUR_2=$00EC
; CURSOR-LOW-BYTE F.R'S BETRIEBSSYSTEM..
E....COLOR_B=$00F1; AKTUELLE ATTRIBUT-KO
MBINATION F.R'S B..VE....RVS=$00F3; REVE
RSE-FLAG..F....QTSW=$00F4; FLAG F.R ANF.
HRUNGSZEICHEN-MODUS.(F....INSRT=$00F5; I
NSERT-FLAG.MF....INSFLG=$00F6; AUTO-INSE
RT-FLAG.OF....SCROLL_B=$00F8; SCROLL-FLA
G..F....PRIMM=$FF7D; STRING-AUSGABE-ROUT
INE..F....VDC_1=$D600; VDC-REGISTERNUMME
R..F....VDC_2=$D601; VDC-DATUM..F..;..F
.;..F!.;.;G".;**************************
****************************************
*****.MG#.; EINSPRUNG..G$.;***********
****************************************
********************. G%.;.EG&.START .#$
00; I/O SICHTBAR MACHEN.OG'. .CR;..G(. .
PRIMM;..G). ..13,27,81,"2 SCREENS O",0./
H*.SELFMOD .ON; SPRINGEN: ROUTINE EIN/AU
SSCHALTEN.5H+.;.;H,.;.AH-.;..H..;*******
****************************************
************************..H/.; ROUTINE
AKTIVIEREN..H0.;************************
****************************************
*******.1I1.ON .IPRCTRL; ALTEN INHALT HO
LEN UND IN DIE HAUPTROUTINE.BI2. .IPRCTR
L+1;.RI3. .OLDJMP+1;.BI4. .OLDJMP+2;..I5
. .#<(OWN); VECTOR MIT EIGENER ROUTINE I
NITIALISIEREN..I6. .#>(OWN);..I7. .IPRCT
RL;.JI8. .IPRCTRL+1;..I9. .PRIMM; ACTIVE
-MELDUNG AUSGEBEN..I:. .."N.",0;.7J;. .#
<(OFF); JUMP-BEFEHL 'UMDREHEN': AUF 'OFF
'-ROUTINE.FJ<. .#>(OFF);.WJ=. .SELFMOD+1
;.HJ>. .SELFMOD+2;..J?. .FLAG; FLAG .BER
PR.FEN; WENN NICHT GESETZT,.JJ@. .T#NOTE
QUAL; DANN 2. SCHIRM INITIALISIEREN..JA
. .#$10; BILDSCHIRMSPEICHER L.SCHEN..KB.
.#32; F.LL-BYTE..KC. .FILL;.'KD. .#$18
; ENDE+1.2KE. .END;.TKF. .FILL_MEM; RO
UTINE AUFRUFEN.UKG. .#$18; ATTRIBUT-RAM
L.SCHEN..KH. .#133; F.LL-BYTE..KI. .FIL
L;..KJ. .#$20; ENDE+1..KK. .END;.YKL. .
FILL_MEM; ROUTINE AUFRUFEN..KM. .#$00;
FLAG L.SCHEN..KN. .FLAG;..LO. .#12; DEFA
ULT-WERTE SETZEN.*LP. .#$00;.TLQ. .VDC_S
TORE; VIDEO-RAM (1) BEI $0000.{LR. .#20
; ATTRIBUT-RAM (1) BEI $0800..LS. .#$08
;..LT. .VDC_STORE;..LU. .V;.LLV. .; ZUR.
CK ZUM BASIC; CTRL-A IST AKTIV.RLW.;.XLX
.;..LY.;.+MZ.;**************************
****************************************
*****.HM[.; ROUTINE DESAKTIVIEREN..M\.;
****************************************
*******************************..M].;.LM
^.OFF .OLDJMP+1; ALTEN INHALT WIEDERHERS
TELLEN..M_. .OLDJMP+2;..M`. .IPRCTRL;..M
A. .IPRCTRL+1;.'NB. .PRIMM; DESACTIVATED
-MELDUNG AUSGEBEN.7NC. .."FF.",0;.NND. .
#<(ON); JUMP-BEFEHL 'UMDREHEN': AUF 'ON'
-ROUTINE.|NE. .#>(ON);..NF. .SELFMOD+1;.
.NG. .SELFMOD+2;.QNH. .; ZUR.CK ZUM BASI
C; CTRL-A IST AUSGESCHALTET.WNI.;..NJ.;.
.NK.;.0OL.;*****************************
****************************************
**.LOM.; HAUPTPROGRAMM: UMSCHALTEN AUF
DEN ANDEREN BILDSCHIRM..ON.;************
****************************************
*******************..OO.;..OP.OWN .#$01;
CODE VON CTRL-A..PQ. .T#NOTEQUAL; WENN
NICHT, ZUR.CK ZUR ALTEN ROUTINE.@PR.OLDJ
MP .$0000; SONST ZUR ALTEN ROUTINE.IPS.
.V;.IPT. .#$00; I/O SICHTBAR MACHEN.SPU.
.CR;..PV. .#12; UMSCHALTEN DES VIDEO-RA
MS.APW. .HIGHSCREEN; NEUER WERT AN DEN
VDC.RPX. .VDC_STORE;..PY. .SCREEN; ALTE
N WERT HOLEN.)QZ. .HIGHSCREEN; UND IN D
EN ZWISCHENSPEICHER BRINGEN.]Q{. .SCREEN
; NEUER WERT AUCH F.R'S BETRIEBSSYSTEM.
.Q|. .#20; UMSCHALTEN DES ATTRIBUT-RAMS.
.Q}. .HIGHATT; NEUER WERT AN DEN VDC..Q
~. .VDC_STORE;..Q. .ATTRIBUT; ALTEN WE
RT HOLEN..R.. .HIGHATT; UND IN DEN ZWIS
CHENSPEICHER BRINGEN.=R.. .ATTRIBUT; AU
CH F.R'S BETRIEBSSYSTEM.IR.. .CURLINE; C
URSORPOSITIONEN AUSTAUSCHEN..R.. .CUR_1;
CURSOR-ZEILE..R.. .CURLINE;. R.. .CUR_
1;.FR.. .#24; .BERPR.FEN, OB 25. ZEILE
.UR.. .T#EQUAL;..R.. .; WENN JA, DANN
Y-FLAG SETZEN..S.. .V;.$S.. .CURCOLUMN;
CURSOR-SPALTE.1S.. .CUR_2;.BS.. .CURCOL
UMN;.OS.. .CUR_2;.}S.. .COLOR_B; COLORS
(ATTRIBUTE) AUSTAUSCHEN..S.. .COLOR;..S.
. .COLOR_B; NEUEN WERT F.R'S BETRIEBSSY
STEM..S.. .COLOR; ALTEN WERT IN DEN ZWI
SCHENSPEICHER."T.. .#$00; QUOTE- & INSER
T-FLAG L.SCHEN F.R CURSORSET.RT.. .INSRT
; ALTEN INHALT AUF DEN STACK RETTEN.ZT.
. ;.GT.. .INSRT;..T.. .QTSW; ALTEN INH
ALT AUF DEN STACK RETTEN..T.. ;..T.. .Q
TSW;.UT.. .#$01; CURSOR SETZEN AUF NEUEM
SCREEN..U.. .T#EQUAL; Y .BERPR.FEN, OB
FLAG F.R 25. ZEILE GESETZT.FU.. .PRIMM;
WENN Y GESETZT, DANN ZUERST NACH OBEN,
..U.. .."..",0; DAMIT BILDSCHIRM NICHT
WEITERGESCHOBEN WIRD..U.. .U;.DU.. .PRIM
M; WENN Y NICHT GESETZT WAR, DANN ZUERS
T NACH.ZU.. .."..",0; UNTEN..U . .V;..V
.. .; ANF.HRUNGSZEICHEN-FLAG (QUOTE) VER
TAUSCHEN.#V.. .QUOTE;.PV.. .QTSW; NEUEN
WERT F.R'S BETRIEBSSYSTEM..V.. .QUOTE;
ALTEN WERT IN DEN ZWISCHENSPEICHER..V..
.RVS; REVERSE-FLAG VERTAUSCHEN..V.. .RE
VERSE;..V.. .RVS; NEUEN WERT F.R'S BETR
IEBSSYSTEM..W.. .REVERSE; ALTEN WERT IN
DEN ZWISCHENSPEICHER.3W.. .; INSERT-FLA
G VERTAUSCHEN.AW.. .INSERT;.OW.. .INSRT;
NEUEN WERT F.R'S BETRIEBSSYSTEM..W.. .
INSERT; ALTEN WERT IN DEN ZWISCHENSPEIC
HER.KW.. .INSFLG; AUTOINSERT-FLAG VERTAU
SCHEN..W.. .AUTOINSERT;..X.. .INSFLG; N
EUEN WERT F.R'S BETRIEBSSYSTEM.BX.. .AUT
OINSERT; ALTEN WERT IN DEN ZWISCHENSPEI
CHER.JX.. .SCROLL_B; SCROLL-FLAG VERTAUS
CHEN.XX.. .SCROLL;..X.. .SCROLL_B; NEUE
N WERT F.R'S BETRIEBSSYSTEM..X.. .SCROLL
; ALTEN WERT IN DEN ZWISCHENSPEICHER..X
.. .; ZUR.CK ZUM BASIC..X..;..Y..;..Y..;
.SY..;**********************************
*************************************..Y
..; SUBROUTINE VDC_STORE : BESCHREIBEN
EINES VDC-REGISTERS..Y..;***************
****************************************
****************..Y..;..Y..VDC_STORE..Z.
. ..; WARTEN, BIS DER VDC BEREIT IST.'Z.
. .VDC_1;.6Z.. ..#MINUS;.ZZA. .VDC_1; RE
GISTERNUMMER ANGEBEN..ZB. ..; WARTEN, BI
S DER VDC BEREIT IST..ZC. .VDC_1;..ZD. .
.#MINUS;..ZE. .VDC_2; DATUM ANGEBEN..ZF.
.; ZUR.CK ZUM AUFRUFENDEN PROGRAMM..ZG.
;..ZH.;..ZI.;.@{J.;*********************
****************************************
**********..{K.; SUBROUTINE VDC_FETCH :
HOLEN DES WERTES EINES VDC-REGISTERS.P{
L.;*************************************
**********************************.V{M.;
..{N.VDC_FETCH..|O. ..; WARTEN, BIS DER
VDC BEREIT IST..|P. .VDC_1;.(|Q. ..#MINU
S;.L|R. .VDC_1; REGISTERNUMMER ANGEBEN.T
|S. ..; WARTEN, BIS DER VDC BEREIT IST..
|T. .VDC_1;..|U. ..#MINUS;..|V. .VDC_2;
DATUM ANGEBEN.S|W. .; ZUR.CK ZUM AUFRUFE
NDEN PROGRAMM.Y|X.;..|Y.;..|Z.;.2}..;***
****************************************
****************************.|}..; SUBR
OUTINE FILL_MEM : F.LLEN EINES SPEICHERB
EREICHES IM VDC-MEMORY.I}..;************
****************************************
*******************.O}..;..}..FILL_MEM..
~.. ..; .U.ERE SCHLEIFE: HIGHBYTE-Z.HLER
..~.. .#$00;.;~.. ..; INNERE SCHLEIFE: L
OWBYTE-Z.HLER.A~.. .#18; HIGH-BYTE INS
REGISTER 18.R~.. .VDC_STORE;..~.. .; H
IGHBYTE AUF DEN STACK..~.. ;..~.. .;..~
.. .;.P~.. .#19; LOW-BYTE INS REGISTER
19..~.. .VDC_STORE;.... .#31; F.LLBYTE
IN REGISTER 31.... .FILL;.".. .VDC_ST
ORE;.A.. .; HIGHBYTE WIEDERHOLEN.I..
.;.F.. .; SCHLEIFE HOCHZ.HLEN.U.. ..
#EQUAL;.}.. .;.... .END;.... ..#EQUAL
;.... .; R.CKSPRUNG....;....;....;..
...;************************************
***********************************.:...
; DATEN DES JEWEILS AUSGESCHALTETEN SCR
EENS.....;******************************
****************************************
*.....;.....HIGHSCREEN ..$10; HIGH-BYTE
DES VIDEO-RAMS.....HIGHATT ..$18; HIGH-B
YTE DES ATTRIBUT-RAMS.....COLOR ..$85; A
KTUELLE SCHRIFTFARBE (ATTRIBUT).D...CURL
INE ..$00; CURSOR-ZEILE (0-24).N...CURCO
LUMN ..$00; CURSOR-SPALTE (0-79).....QUO
TE ..$00; ANF.HRUNGSZEICHEN-FLAG.....INS
ERT ..$00; NORMALES INSERT-FLAG.....AUTO
INSERT ..$00; AUTOINSERT-FLAG (ESCAPE-A)
.....SCROLL ..$00; BILDSCHIRMSCROLLEN.3.
..REVERSE ..$00; REVERSE-FLAG.N...END ..
$00; ZWISCHENSPEICHER F.R ENDE DES F.LL-
BEREICHS.....FILL ..$00; ZWISCHENSPEICHE
R F.R F.LLBYTE.K...FLAG ..$C1; FLAG F.R
DEFINIERTEN 2. SCREEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL