WINPROC

00000000: 89 41 D4 41 64 00 27 4E  41 43 48 20 45 49 4E 42  |.A.Ad.'NACH EINB|
00000010: 49 4E 44 55 4E 47 20 49  4E 20 45 49 4E 20 41 4E  |INDUNG IN EIN AN|
00000020: 44 45 52 45 53 20 50 52  4F 47 52 41 4D 4D 20 44  |DERES PROGRAMM D|
00000030: 49 45 53 45 20 5A 45 49  4C 45 4E 20 42 49 54 54  |IESE ZEILEN BITT|
00000040: 45 20 45 4E 54 46 45 52  4E 45 4E 27 00 DA 41 6E  |E ENTFERNEN'..An|
00000050: 00 3A 00 E9 41 73 00 FA  35 3A FA 85 3A FA 3C 20  |.:..As..5:..:.< |
00000060: 31 00 22 42 78 00 FA 2F  20 FA 30 20 33 2C 31 3B  |1."Bx../ .0 3,1;|
00000070: 22 C4 41 53 20 D0 52 4F  47 52 41 4D 4D 20 42 49  |".AS .ROGRAMM BI|
00000080: 54 54 45 20 4E 49 43 48  54 20 44 49 52 45 4B 54  |TTE NICHT DIREKT|
00000090: 20 53 54 41 52 54 45 4E  21 22 00 57 42 82 00 FA  | STARTEN!".WB...|
000000A0: 2F 20 FA 30 20 36 2C 31  3B 22 C5 53 20 49 53 54  |/ .0 6,1;".S IST|
000000B0: 20 44 41 5A 55 20 47 45  44 41 43 48 54 2C 20 49  | DAZU GEDACHT, I|
000000C0: 4E 20 45 49 4E 20 41 4E  44 45 52 45 53 2C 22 00  |N EIN ANDERES,".|
000000D0: 88 42 8C 00 FA 2F 20 FA  30 20 37 2C 31 3B 22 56  |.B.../ .0 7,1;"V|
000000E0: 4F 4E 20 C9 48 4E 45 4E  20 47 45 53 43 48 52 49  |ON .HNEN GESCHRI|
000000F0: 45 42 45 4E 45 53 20 D0  52 4F 47 52 41 4D 4D 22  |EBENES .ROGRAMM"|
00000100: 00 AE 42 96 00 FA 2F 20  FA 30 20 38 2C 31 3B 22  |..B.../ .0 8,1;"|
00000110: 49 4E 54 45 47 52 49 45  52 54 20 5A 55 20 57 45  |INTEGRIERT ZU WE|
00000120: 52 44 45 4E 2E 22 00 DE  42 A0 00 FA 2F 20 FA 30  |RDEN."..B.../ .0|
00000130: 20 31 37 2C 36 3B 22 C2  49 54 54 45 20 44 52 55  | 17,6;".ITTE DRU|
00000140: 45 43 4B 45 4E 20 D3 49  45 20 45 49 4E 45 20 D4  |ECKEN .IE EINE .|
00000150: 41 53 54 45 21 22 00 E7  42 A5 00 FA 25 3A 80 00  |ASTE!"..B...%:..|
00000160: ED 42 AA 00 3A 00 F3 42  B4 00 3A 00 F9 42 BE 00  |.B..:..B..:..B..|
00000170: 3A 00 0E 43 E8 03 27 57  49 4E 44 4F 57 2D 54 45  |:..C..'WINDOW-TE|
00000180: 43 48 4E 49 4B 27 00 2D  43 F2 03 27 28 57 29 20  |CHNIK'.-C..'(W) |
00000190: 31 39 38 37 20 42 59 20  4D 41 52 54 49 4E 20 48  |1987 BY MARTIN H|
000001A0: 45 43 48 54 27 00 33 43  FC 03 3A 00 67 43 06 04  |ECHT'.3C..:.gC..|
000001B0: 27 41 55 46 20 44 49 53  4B 45 54 54 45 20 55 4E  |'AUF DISKETTE UN|
000001C0: 54 45 52 20 44 45 4D 20  4E 41 4D 45 4E 20 57 49  |TER DEM NAMEN WI|
000001D0: 4E 50 52 4F 43 20 41 42  47 45 4C 45 47 54 27 00  |NPROC ABGELEGT'.|
000001E0: 6D 43 10 04 3A 00 73 43  1A 04 3A 00 79 43 24 04  |mC..:.sC..:.yC$.|
000001F0: 3A 00 99 43 2E 04 FA 7E  20 22 57 49 4E 4F 50 45  |:..C...~ "WINOPE|
00000200: 4E 22 2C 28 57 5A 2C 57  53 2C 5A 4C 2C 53 4C 3B  |N",(WZ,WS,ZL,SL;|
00000210: 29 00 9F 43 38 04 3A 00  C9 43 42 04 57 41 B2 FA  |)..C8.:..CB.WA..|
00000220: EC 28 34 35 35 33 35 29  3A 27 41 4B 54 55 45 4C  |.(45535):'AKTUEL|
00000230: 4C 45 20 46 45 4E 53 54  45 52 41 4E 5A 41 48 4C  |LE FENSTERANZAHL|
00000240: 27 00 F5 43 4C 04 FA 6E  20 57 41 B2 35 20 FA 6F  |'..CL..n WA.5 .o|
00000250: 20 FA 2F 20 22 5A 55 20  56 49 45 4C 45 20 46 45  | ./ "ZU VIELE FE|
00000260: 4E 53 54 45 52 21 22 3A  FA D0 3A FA 7F 00 0F 44  |NSTER!":..:....D|
00000270: 56 04 FA 70 20 57 41 B2  57 41 AA 31 3A 97 20 34  |V..p WA.WA.1:. 4|
00000280: 35 35 33 35 2C 57 41 00  16 44 60 04 FA 71 00 1C  |5535,WA..D`..q..|
00000290: 44 6A 04 3A 00 46 44 74  04 27 42 49 4C 44 53 43  |Dj.:.FDt.'BILDSC|
000002A0: 48 49 52 4D 42 45 52 45  49 43 48 20 5A 57 49 53  |HIRMBEREICH ZWIS|
000002B0: 43 48 45 4E 53 50 45 49  43 48 45 52 4E 27 00 5E  |CHENSPEICHERN'.^|
000002C0: 44 7E 04 FA 6E 20 57 41  B2 31 20 FA 6F 20 42 41  |D~..n WA.1 .o BA|
000002D0: B2 34 35 35 30 35 00 79  44 88 04 FA 70 20 42 41  |.45505.yD...p BA|
000002E0: B2 FA EB 28 34 35 35 33  35 AB 57 41 AC 32 AA 32  |...(45535.WA.2.2|
000002F0: 29 00 80 44 92 04 FA 71  00 92 44 9C 04 42 44 B2  |)..D...q..D..BD.|
00000300: C2 28 36 34 38 29 AC 32  35 36 00 A8 44 A6 04 81  |.(648).256..D...|
00000310: 20 41 5A B2 57 5A 20 A4  20 57 5A AA 53 4C AB 31  | AZ.WZ . WZ.SL.1|
00000320: 00 E5 44 B0 04 5A 57 B2  42 44 AA 28 41 5A AB 31  |..D..ZW.BD.(AZ.1|
00000330: 29 AC 34 30 3A FA 41 20  5A 57 AA 57 53 AB 31 2C  |).40:.A ZW.WS.1,|
00000340: 5A 57 AA 57 53 AA 5A 4C  AB 32 2C 42 41 AB 28 5A  |ZW.WS.ZL.2,BA.(Z|
00000350: 4C AB 31 29 3A 42 41 B2  42 41 AB 5A 4C 00 EE 44  |L.1):BA.BA.ZL..D|
00000360: BA 04 82 20 41 5A 00 F4  44 C4 04 3A 00 16 45 CE  |... AZ..D..:..E.|
00000370: 04 27 50 41 52 41 4D 45  54 45 52 20 5A 57 49 53  |.'PARAMETER ZWIS|
00000380: 43 48 45 4E 53 50 45 49  43 48 45 52 4E 27 00 5A  |CHENSPEICHERN'.Z|
00000390: 45 D8 04 FA 42 20 34 35  35 33 35 AB 57 41 AC 32  |E...B 45535.WA.2|
000003A0: 2C 42 41 3A 27 42 41 53  49 53 41 44 52 45 53 53  |,BA:'BASISADRESS|
000003B0: 45 20 44 45 53 20 42 49  4C 44 53 43 48 49 52 4D  |E DES BILDSCHIRM|
000003C0: 5A 57 49 53 43 48 45 4E  53 50 45 49 43 48 45 52  |ZWISCHENSPEICHER|
000003D0: 53 27 00 8E 45 E2 04 97  20 34 35 35 32 35 AB 57  |S'..E... 45525.W|
000003E0: 41 2C 57 5A 3A 97 20 34  35 35 32 30 AB 57 41 2C  |A,WZ:. 45520.WA,|
000003F0: 57 53 3A 27 57 49 4E 44  4F 57 41 4E 46 41 4E 47  |WS:'WINDOWANFANG|
00000400: 53 50 4F 53 2E 27 00 C6  45 EC 04 97 20 34 35 35  |SPOS.'..E... 455|
00000410: 31 35 AB 57 41 2C 53 4C  3A 97 20 34 35 35 31 30  |15.WA,SL:. 45510|
00000420: AB 57 41 2C 5A 4C 3A 27  53 50 41 4C 54 45 4E 2D  |.WA,ZL:'SPALTEN-|
00000430: 2F 5A 45 49 4C 45 4E 4C  41 45 4E 47 45 27 00 CC  |/ZEILENLAENGE'..|
00000440: 45 F6 04 3A 00 D3 45 00  05 FA 7F 00 D9 45 0A 05  |E..:..E......E..|
00000450: 3A 00 DF 45 14 05 3A 00  E5 45 1E 05 3A 00 FB 45  |:..E..:..E..:..E|
00000460: 28 05 FA 7E 20 22 57 49  4E 43 4C 4F 53 45 22 2C  |(..~ "WINCLOSE",|
00000470: 28 3B 29 00 01 46 32 05  3A 00 2B 46 3C 05 57 41  |(;)..F2.:.+F<.WA|
00000480: B2 FA EC 28 34 35 35 33  35 29 3A 27 41 4B 54 55  |...(45535):'AKTU|
00000490: 45 4C 4C 45 20 46 45 4E  53 54 45 52 41 4E 5A 41  |ELLE FENSTERANZA|
000004A0: 48 4C 27 00 43 46 46 05  FA 6E 20 57 41 B2 30 20  |HL'.CFF..n WA.0 |
000004B0: FA 6F 20 FA D0 3A FA 7F  3A FA 71 00 49 46 50 05  |.o ..:..:.q.IFP.|
000004C0: 3A 00 5F 46 5A 05 27 50  41 52 41 4D 45 54 45 52  |:._FZ.'PARAMETER|
000004D0: 20 48 4F 4C 45 4E 27 00  97 46 64 05 42 41 B2 FA  | HOLEN'..Fd.BA..|
000004E0: EB 28 34 35 35 33 35 AB  57 41 AC 32 29 3A 27 42  |.(45535.WA.2):'B|
000004F0: 41 53 49 53 41 44 52 2E  20 44 45 53 20 5A 57 49  |ASISADR. DES ZWI|
00000500: 53 43 48 45 4E 53 50 45  49 43 48 45 52 53 27 00  |SCHENSPEICHERS'.|
00000510: CF 46 6E 05 57 5A B2 FA  EC 28 34 35 35 32 35 AB  |.Fn.WZ...(45525.|
00000520: 57 41 29 3A 57 53 B2 FA  EC 28 34 35 35 32 30 AB  |WA):WS...(45520.|
00000530: 57 41 29 3A 27 57 49 4E  44 4F 57 41 4E 46 41 4E  |WA):'WINDOWANFAN|
00000540: 47 53 50 4F 53 2E 27 00  0B 47 78 05 53 4C B2 FA  |GSPOS.'..Gx.SL..|
00000550: EC 28 34 35 35 31 35 AB  57 41 29 3A 5A 4C B2 FA  |.(45515.WA):ZL..|
00000560: EC 28 34 35 35 31 30 AB  57 41 29 3A 27 53 50 41  |.(45510.WA):'SPA|
00000570: 4C 54 45 4E 2D 2F 5A 45  49 4C 45 4E 4C 41 45 4E  |LTEN-/ZEILENLAEN|
00000580: 47 45 27 00 11 47 82 05  3A 00 3A 47 8C 05 27 42  |GE'..G..:.:G..'B|
00000590: 49 4C 44 53 43 48 49 52  4D 42 45 52 45 49 43 48  |ILDSCHIRMBEREICH|
000005A0: 20 5A 55 52 55 45 43 4B  53 50 45 49 43 48 45 52  | ZURUECKSPEICHER|
000005B0: 4E 27 00 58 47 96 05 42  44 B2 C2 28 36 34 38 29  |N'.XG..BD..(648)|
000005C0: AC 32 35 36 3A 42 41 B2  42 41 AA 53 4C AC 5A 4C  |.256:BA.BA.SL.ZL|
000005D0: 00 6E 47 A0 05 81 20 41  5A B2 57 5A 20 A4 20 57  |.nG... AZ.WZ . W|
000005E0: 5A AA 53 4C AB 31 00 9D  47 AA 05 FA 41 20 42 41  |Z.SL.1..G...A BA|
000005F0: AB 28 5A 4C AB 31 29 2C  42 41 2C 42 44 AA 28 41  |.(ZL.1),BA,BD.(A|
00000600: 5A AB 31 29 AC 34 30 AA  57 53 AB 31 3A 42 41 B2  |Z.1).40.WS.1:BA.|
00000610: 42 41 AB 5A 4C 00 A6 47  B4 05 82 20 41 5A 00 AC  |BA.ZL..G... AZ..|
00000620: 47 BE 05 3A 00 DC 47 C8  05 57 41 B2 57 41 AB 31  |G..:..G..WA.WA.1|
00000630: 3A 97 20 34 35 35 33 35  2C 57 41 3A 27 41 4E 5A  |:. 45535,WA:'ANZ|
00000640: 41 48 4C 20 4F 46 46 45  4E 45 52 20 46 45 4E 53  |AHL OFFENER FENS|
00000650: 54 45 52 27 00 E3 47 D2  05 FA 7F 00 E9 47 DC 05  |TER'..G......G..|
00000660: 3A 00 EF 47 E6 05 3A 00  F5 47 F0 05 3A 00 14 48  |:..G..:..G..:..H|
00000670: FA 05 FA 7E 20 22 57 49  4E 44 45 4C 22 2C 28 57  |...~ "WINDEL",(W|
00000680: 5A 2C 57 53 2C 5A 4C 2C  53 4C 3B 29 00 1A 48 04  |Z,WS,ZL,SL;)..H.|
00000690: 06 3A 00 3B 48 0E 06 27  42 49 4C 44 53 43 48 49  |.:.;H..'BILDSCHI|
000006A0: 52 4D 42 45 52 45 49 43  48 20 4C 4F 45 53 43 48  |RMBEREICH LOESCH|
000006B0: 45 4E 27 00 4D 48 18 06  42 44 B2 C2 28 36 34 38  |EN'.MH..BD..(648|
000006C0: 29 AC 32 35 36 00 63 48  22 06 81 20 41 5A B2 57  |).256.cH".. AZ.W|
000006D0: 5A 20 A4 20 57 5A AA 53  4C AB 31 00 90 48 2C 06  |Z . WZ.SL.1..H,.|
000006E0: 5A 57 B2 42 44 AA 28 41  5A AB 31 29 AC 34 30 3A  |ZW.BD.(AZ.1).40:|
000006F0: FA 43 20 5A 57 AA 57 53  AB 31 2C 5A 57 AA 57 53  |.C ZW.WS.1,ZW.WS|
00000700: AA 5A 4C AB 32 2C 33 32  00 99 48 36 06 82 20 41  |.ZL.2,32..H6.. A|
00000710: 5A 00 9F 48 40 06 3A 00  A6 48 4A 06 FA 7F 00 AC  |Z..H@.:..HJ.....|
00000720: 48 54 06 3A 00 B2 48 5E  06 3A 00 B8 48 68 06 3A  |HT.:..H^.:..Hh.:|
00000730: 00 E3 48 72 06 FA 7E 20  22 57 49 4E 50 52 49 4E  |..Hr..~ "WINPRIN|
00000740: 54 22 2C 28 57 5A 2C 57  53 2C 5A 4C 2C 53 4C 2C  |T",(WZ,WS,ZL,SL,|
00000750: 41 47 24 28 53 4C AB 31  29 3B 29 00 E9 48 7C 06  |AG$(SL.1);)..H|.|
00000760: 3A 00 08 49 86 06 27 44  41 54 45 4E 20 49 4E 20  |:..I..'DATEN IN |
00000770: 57 49 4E 44 4F 57 20 41  55 53 47 45 42 45 4E 27  |WINDOW AUSGEBEN'|
00000780: 00 1A 49 90 06 81 20 41  5A B2 30 20 A4 20 53 4C  |..I... AZ.0 . SL|
00000790: AB 31 00 35 49 9A 06 FA  3B 20 57 5A AA 41 5A 2C  |.1.5I...; WZ.AZ,|
000007A0: 57 53 3A FA 2F 20 41 47  24 28 41 5A 29 00 3E 49  |WS:./ AG$(AZ).>I|
000007B0: A4 06 82 20 41 5A 00 44  49 AE 06 3A 00 4B 49 B8  |... AZ.DI..:.KI.|
000007C0: 06 FA 7F 00 51 49 C2 06  3A 00 57 49 CC 06 3A 00  |....QI..:.WI..:.|
000007D0: 5D 49 D6 06 3A 00 8E 49  E0 06 FA 7E 20 22 57 49  |]I..:..I...~ "WI|
000007E0: 4E 49 4E 50 55 54 22 2C  28 57 5A 2C 57 53 2C 5A  |NINPUT",(WZ,WS,Z|
000007F0: 4C 2C 53 4C 3B 45 47 24  28 30 29 AB 45 47 24 28  |L,SL;EG$(0).EG$(|
00000800: 53 4C AB 31 29 29 00 94  49 EA 06 3A 00 9B 49 F4  |SL.1))..I..:..I.|
00000810: 06 FA 21 00 C9 49 FE 06  5A 45 B2 57 5A 3A 53 50  |..!..I..ZE.WZ:SP|
00000820: B2 57 53 3A 27 43 55 52  53 4F 52 20 49 4E 20 57  |.WS:'CURSOR IN W|
00000830: 49 4E 44 4F 57 41 4E 46  41 4E 47 53 50 4F 53 2E  |INDOWANFANGSPOS.|
00000840: 27 00 D0 49 08 07 FA 77  00 EC 49 12 07 FA 3B 20  |'..I...w..I...; |
00000850: 5A 45 2C 53 50 3A FA 3D  3A FA 25 3A A1 20 54 44  |ZE,SP:.=:.%:. TD|
00000860: 24 3A FA A8 00 0D 4A 1C  07 FA 7A 20 C6 28 54 44  |$:....J...z .(TD|
00000870: 24 29 3A 27 41 4B 54 55  45 4C 4C 45 20 45 49 4E  |$):'AKTUELLE EIN|
00000880: 47 41 42 45 27 00 26 4A  26 07 FA 7B 20 32 39 3A  |GABE'.&J&..{ 29:|
00000890: 27 43 55 52 53 4F 52 20  52 49 47 48 54 27 00 4B  |'CURSOR RIGHT'.K|
000008A0: 4A 30 07 22 43 52 22 3A  FA 6E 20 A8 28 53 50 B2  |J0."CR":.n .(SP.|
000008B0: 57 53 AA 5A 4C AB 31 29  20 FA 6F 20 53 50 B2 53  |WS.ZL.1) .o SP.S|
000008C0: 50 AA 31 00 77 4A 3A 07  FA 70 20 FA 6E 20 A8 28  |P.1.wJ:..p .n .(|
000008D0: 5A 45 B2 57 5A AA 53 4C  AB 31 29 20 FA 6F 20 53  |ZE.WZ.SL.1) .o S|
000008E0: 50 B2 57 53 3A 5A 45 B2  5A 45 AA 31 3A FA 71 00  |P.WS:ZE.ZE.1:.q.|
000008F0: 7E 4A 44 07 FA 71 00 97  4A 4E 07 FA 7B 20 31 35  |~JD..q..JN..{ 15|
00000900: 37 3A 27 43 55 52 53 4F  52 20 4C 45 46 54 27 00  |7:'CURSOR LEFT'.|
00000910: B2 4A 58 07 FA 6E 20 A8  28 53 50 B2 57 53 29 20  |.JX..n .(SP.WS) |
00000920: FA 6F 20 53 50 B2 53 50  AB 31 00 DE 4A 62 07 FA  |.o SP.SP.1..Jb..|
00000930: 70 20 FA 6E 20 A8 28 5A  45 B2 57 5A 29 20 FA 6F  |p .n .(ZE.WZ) .o|
00000940: 20 53 50 B2 57 53 AA 5A  4C AB 31 3A 5A 45 B2 5A  | SP.WS.ZL.1:ZE.Z|
00000950: 45 AB 31 3A FA 71 00 E5  4A 6C 07 FA 71 00 FD 4A  |E.1:.q..Jl..q..J|
00000960: 76 07 FA 7B 20 31 37 3A  27 43 55 52 53 4F 52 20  |v..{ 17:'CURSOR |
00000970: 44 4F 57 4E 27 00 20 4B  80 07 FA 6E 20 A8 28 5A  |DOWN'. K...n .(Z|
00000980: 45 B2 57 5A AA 53 4C AB  31 29 20 FA 6F 20 5A 45  |E.WZ.SL.1) .o ZE|
00000990: B2 5A 45 AA 31 3A FA 71  00 37 4B 8A 07 FA 7B 20  |.ZE.1:.q.7K...{ |
000009A0: 31 34 35 3A 27 43 55 52  53 4F 52 20 55 50 27 00  |145:'CURSOR UP'.|
000009B0: 55 4B 94 07 FA 6E 20 A8  28 5A 45 B2 57 5A 29 20  |UK...n .(ZE.WZ) |
000009C0: FA 6F 20 5A 45 B2 5A 45  AB 31 3A FA 71 00 73 4B  |.o ZE.ZE.1:.q.sK|
000009D0: 9E 07 FA 7B 20 31 33 3A  27 44 41 54 45 4E 20 55  |...{ 13:'DATEN U|
000009E0: 45 42 45 52 4E 45 48 4D  45 4E 27 00 81 4B A8 07  |EBERNEHMEN'..K..|
000009F0: FA 01 20 22 57 55 45 42  22 00 96 4B B2 07 FA 7B  |.. "WUEB"..K...{|
00000A00: 20 31 34 31 3A 27 41 42  42 52 55 43 48 27 00 A4  | 141:'ABBRUCH'..|
00000A10: 4B BC 07 FA 01 20 22 57  45 4E 44 22 00 BB 4B C6  |K.... "WEND"..K.|
00000A20: 07 FA 7C 20 FA 2F 20 54  44 24 3B 3A FA 01 20 22  |..| ./ TD$;:.. "|
00000A30: 43 52 22 00 C2 4B D0 07  FA 7D 00 C9 4B DA 07 FA  |CR"..K...}..K...|
00000A40: 79 00 CF 4B E4 07 3A 00  EE 4B EE 07 22 57 55 45  |y..K..:..K.."WUE|
00000A50: 42 22 3A 27 44 41 54 45  4E 20 55 45 42 45 52 4E  |B":'DATEN UEBERN|
00000A60: 45 48 4D 45 4E 27 00 FE  4B F8 07 86 20 45 47 24  |EHMEN'..K... EG$|
00000A70: 28 53 4C AB 31 29 00 10  4C 02 08 81 20 41 5A B2  |(SL.1)..L... AZ.|
00000A80: 30 20 A4 20 53 4C AB 31  00 2B 4C 0C 08 FA 2B 20  |0 . SL.1.+L...+ |
00000A90: 45 47 24 28 41 5A 29 2C  5A 4C 2C 57 5A AA 41 5A  |EG$(AZ),ZL,WZ.AZ|
00000AA0: 2C 57 53 00 34 4C 16 08  82 20 41 5A 00 3A 4C 20  |,WS.4L... AZ.:L |
00000AB0: 08 3A 00 48 4C 2A 08 22  57 45 4E 44 22 3A FA CF  |.:.HL*."WEND":..|
00000AC0: 00 4F 4C 34 08 FA 7F 00  00 00                    |.OL4......      |

.ATAD.'NACH EINBINDUNG IN EIN ANDERES PR
OGRAMM DIESE ZEILEN BITTE ENTFERNEN'.ZAN
.:..AS..5:..:.< 1."BX../ .0 3,1;"DAS PRO
GRAMM BITTE NICHT DIREKT STARTEN!".WB...
/ .0 6,1;"ES IST DAZU GEDACHT, IN EIN AN
DERES,"..B.../ .0 7,1;"VON IHNEN GESCHRI
EBENES PROGRAMM"..B.../ .0 8,1;"INTEGRIE
RT ZU WERDEN."..B ../ .0 17,6;"BITTE DRU
ECKEN SIE EINE TASTE!"..B...%:...B..:..B
..:..B..:..C..'WINDOW-TECHNIK'.-C..'(W) 
1987 BY MARTIN HECHT'.3C..:.GC..'AUF DIS
KETTE UNTER DEM NAMEN WINPROC ABGELEGT'.
MC..:.SC..:.YC$.:..C...~ "WINOPEN",(WZ,W
S,ZL,SL;)..C8.:.ICB.WA...(45535):'AKTUEL
LE FENSTERANZAHL'..CL..N WA.5 .O ./ "ZU 
VIELE FENSTER!":.P:...DV..P WA.WA.1:. 4
5535,WA..D`..Q..DJ.:.FDT.'BILDSCHIRMBERE
ICH ZWISCHENSPEICHERN'.^D~..N WA.1 .O BA
.45505.YD...P BA...(45535.WA.2.2)..D...Q
..D..BD.B(648).256..D... AZ.WZ . WZ.SL.1
..D..ZW.BD.(AZ.1).40:.A ZW.WS.1,ZW.WS.ZL
.2,BA.(ZL.1):BA.BA.ZL..D... AZ..DD.:..EN
.'PARAMETER ZWISCHENSPEICHERN'.ZEX..B 45
535.WA.2,BA:'BASISADRESSE DES BILDSCHIRM
ZWISCHENSPEICHERS'..E... 45525.WA,WZ:. 4
5520.WA,WS:'WINDOWANFANGSPOS.'.FE... 455
15.WA,SL:. 45510.WA,ZL:'SPALTEN-/ZEILENL
AENGE'.LE..:.SE....YE..:..E..:..E..:..E
(..~ "WINCLOSE",(;)..F2.:.+F<.WA...(4553
5):'AKTUELLE FENSTERANZAHL'.CFF..N WA.0 
.O .P:.:.Q.IFP.:._FZ.'PARAMETER HOLEN'.
.FD.BA...(45535.WA.2):'BASISADR. DES ZWI
SCHENSPEICHERS'.OFN.WZ...(45525.WA):WS..
.(45520.WA):'WINDOWANFANGSPOS.'..GX.SL..
.(45515.WA):ZL...(45510.WA):'SPALTEN-/ZE
ILENLAENGE'..G..:.:G..'BILDSCHIRMBEREICH
 ZURUECKSPEICHERN'.XG..BD.B(648).256:BA.
BA.SL.ZL.NG .. AZ.WZ . WZ.SL.1..G...A BA
.(ZL.1),BA,BD.(AZ.1).40.WS.1:BA.BA.ZL..G
... AZ..G..:..GH.WA.WA.1:. 45535,WA:'ANZ
AHL OFFENER FENSTER'..GR....G..:..G..:.
.G..:..H...~ "WINDEL",(WZ,WS,ZL,SL;)..H.
.:.;H..'BILDSCHIRMBEREICH LOESCHEN'.MH..
BD.B(648).256.CH".. AZ.WZ . WZ.SL.1..H,.
ZW.BD.(AZ.1).40:.C ZW.WS.1,ZW.WS.ZL.2,32
..H6.. AZ..H@.:..HJ....HT.:..H^.:..HH.:
..HR..~ "WINPRINT",(WZ,WS,ZL,SL,AG$(SL.1
);)..H|.:..I..'DATEN IN WINDOW AUSGEBEN'
..I... AZ.0 . SL.1.5I...; WZ.AZ,WS:./ AG
$(AZ).>I... AZ.DI..:.KI....QIB.:.WIL.:.
]IV.:..I...~ "WININPUT",(WZ,WS,ZL,SL;EG$
(0).EG$(SL.1))..I..:..I...!.II..ZE.WZ:SP
.WS:'CURSOR IN WINDOWANFANGSPOS.'.PI...W
..I...; ZE,SP:.=:.%:. TD$:....J...Z F(TD
$):'AKTUELLE EINGABE'.&J&..{ 29:'CURSOR 
RIGHT'.KJ0."CR":.N .(SP.WS.ZL.1) .O SP.S
P.1.WJ:..P .N .(ZE.WZ.SL.1) .O SP.WS:ZE.
ZE.1:.Q.~JD..Q..JN..{ 157:'CURSOR LEFT'.
.JX..N .(SP.WS) .O SP.SP.1..JB..P .N .(Z
E.WZ) .O SP.WS.ZL.1:ZE.ZE.1:.Q..JL..Q..J
V..{ 17:'CURSOR DOWN'. K...N .(ZE.WZ.SL.
1) .O ZE.ZE.1:.Q.7K...{ 145:'CURSOR UP'.
UK...N .(ZE.WZ) .O ZE.ZE.1:.Q.SK...{ 13:
'DATEN UEBERNEHMEN'..K.... "WUEB"..K...{
 141:'ABBRUCH'..K.... "WEND"..KF..| ./ T
D$;:.. "CR".BKP..}.IKZ..Y.OK..:..K.."WUE
B":'DATEN UEBERNEHMEN'..K... EG$(SL.1)..
L... AZ.0 . SL.1.+L...+ EG$(AZ),ZL,WZ.AZ
,WS.4L... AZ.:L .:.HL*."WEND":.O.OL4...
..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL