D.C.S

00000000: BA 41 DB 41 64 00 27 44  49 41 4C 4F 47 42 4F 58  |.A.Ad.'DIALOGBOX|
00000010: 2D 43 4F 4E 53 54 52 55  43 54 49 4F 4E 2D 53 45  |-CONSTRUCTION-SE|
00000020: 54 27 00 FA 41 6E 00 27  28 57 29 20 31 39 38 37  |T'..An.'(W) 1987|
00000030: 20 42 59 20 4D 41 52 54  49 4E 20 48 45 43 48 54  | BY MARTIN HECHT|
00000040: 27 00 22 42 78 00 27 41  55 46 20 44 49 53 4B 45  |'."Bx.'AUF DISKE|
00000050: 54 54 45 20 55 4E 54 45  52 20 44 2E 43 2E 53 20  |TTE UNTER D.C.S |
00000060: 41 42 47 45 4C 45 47 54  27 00 28 42 82 00 3A 00  |ABGELEGT'.(B..:.|
00000070: 2E 42 8C 00 3A 00 34 42  96 00 3A 00 4A 42 A0 00  |.B..:.4B..:.JB..|
00000080: 27 49 4E 49 54 49 41 4C  49 53 49 45 52 55 4E 47  |'INITIALISIERUNG|
00000090: 27 00 69 42 AA 00 FA 02  20 22 44 45 4C 49 4E 50  |'.iB.... "DELINP|
000000A0: 22 3A 27 55 45 42 45 52  53 43 48 52 49 46 54 27  |":'UEBERSCHRIFT'|
000000B0: 00 8B 42 B4 00 FA 0E 20  32 34 30 30 30 3A 27 53  |..B.... 24000:'S|
000000C0: 50 45 49 43 48 45 52 20  42 45 47 52 45 4E 5A 45  |PEICHER BEGRENZE|
000000D0: 4E 27 00 BD 42 BE 00 86  20 43 44 24 28 31 30 30  |N'..B... CD$(100|
000000E0: 29 2C 54 58 24 28 31 35  29 2C 44 5A 28 31 35 29  |),TX$(15),DZ(15)|
000000F0: 3A 46 5A B2 30 3A 46 41  B2 30 3A 45 47 B2 30 3A  |:FZ.0:FA.0:EG.0:|
00000100: 54 58 B2 30 00 C3 42 C8  00 3A 00 C9 42 D2 00 3A  |TX.0..B..:..B..:|
00000110: 00 E8 42 DC 00 27 54 41  42 45 4C 4C 45 4E 41 44  |..B..'TABELLENAD|
00000120: 52 45 53 53 45 20 45 52  46 52 41 47 45 4E 27 00  |RESSE ERFRAGEN'.|
00000130: 15 43 E6 00 FA 2F 20 FA  30 20 36 2C 31 3B 22 C1  |.C.../ .0 6,1;".|
00000140: 4E 46 41 4E 47 53 41 44  52 45 53 53 45 20 44 45  |NFANGSADRESSE DE|
00000150: 52 20 D4 41 42 45 4C 4C  45 3A 20 22 00 2C 43 F0  |R .ABELLE: ".,C.|
00000160: 00 FA 3B 20 36 2C 32 38  3A 85 20 54 42 3A 44 5A  |..; 6,28:. TB:DZ|
00000170: B2 54 42 00 32 43 FA 00  3A 00 7A 43 04 01 22 53  |.TB.2C..:.zC.."S|
00000180: 54 41 52 54 22 3A FA 02  20 22 44 45 4C 49 4E 50  |TART":.. "DELINP|
00000190: 22 3A FA 2F 20 FA 30 20  37 2C 31 3B 22 D3 54 41  |":./ .0 7,1;".TA|
000001A0: 4E 44 41 52 44 42 4F 58  20 56 45 52 57 45 4E 44  |NDARDBOX VERWEND|
000001B0: 45 4E 3F 20 28 4A 2F 4E  29 3A 20 20 22 3B 53 44  |EN? (J/N):  ";SD|
000001C0: 24 00 8C 43 0E 01 FA 3B  20 37 2C 33 30 3A 85 20  |$..C...; 7,30:. |
000001D0: 53 44 24 00 BC 43 18 01  FA 6E 20 53 44 24 B2 22  |SD$..C...n SD$."|
000001E0: 4A 22 20 FA 6F 20 FA D0  3A 46 4C B2 31 32 38 3A  |J" .o ..:FL.128:|
000001F0: 44 5A B2 44 5A AA 31 3A  FA 01 20 22 4C 42 31 22  |DZ.DZ.1:.. "LB1"|
00000200: 3A FA 71 00 E7 43 22 01  FA 2F 20 FA 30 20 31 30  |:.q..C"../ .0 10|
00000210: 2C 31 3B 22 CB 4F 4F 52  44 49 4E 41 54 45 4E 20  |,1;".OORDINATEN |
00000220: 44 45 52 20 C4 49 41 4C  4F 47 42 4F 58 22 00 15  |DER .IALOGBOX"..|
00000230: 44 2C 01 FA 2F 20 FA 30  20 31 32 2C 31 3B 22 4C  |D,../ .0 12,1;"L|
00000240: 49 4E 4B 45 2C 4F 42 45  52 45 20 C5 43 4B 45 20  |INKE,OBERE .CKE |
00000250: D8 2D D7 45 52 54 3A 20  22 3B 58 31 00 27 44 36  |.-.ERT: ";X1.'D6|
00000260: 01 FA 3B 20 31 32 2C 32  35 3A 85 20 58 31 00 59  |..; 12,25:. X1.Y|
00000270: 44 40 01 57 48 B2 B5 28  58 31 AD 32 35 36 29 3A  |D@.WH..(X1.256):|
00000280: 57 4C B2 58 31 AB 32 35  36 AC 57 48 3A 97 20 44  |WL.X1.256.WH:. D|
00000290: 5A AA 33 2C 57 4C 3A 97  20 44 5A AA 34 2C 57 48  |Z.3,WL:. DZ.4,WH|
000002A0: 00 87 44 4A 01 FA 2F 20  FA 30 20 31 33 2C 31 3B  |..DJ../ .0 13,1;|
000002B0: 22 4C 49 4E 4B 45 2C 4F  42 45 52 45 20 C5 43 4B  |"LINKE,OBERE .CK|
000002C0: 45 20 D9 2D D7 45 52 54  3A 20 22 3B 59 31 00 99  |E .-.ERT: ";Y1..|
000002D0: 44 54 01 FA 3B 20 31 33  2C 32 35 3A 85 20 59 31  |DT..; 13,25:. Y1|
000002E0: 00 A7 44 5E 01 97 20 44  5A AA 31 2C 59 31 00 D7  |..D^.. DZ.1,Y1..|
000002F0: 44 68 01 FA 2F 20 FA 30  20 31 35 2C 31 3B 22 52  |Dh../ .0 15,1;"R|
00000300: 45 43 48 54 45 2C 55 4E  54 45 52 45 20 C5 43 4B  |ECHTE,UNTERE .CK|
00000310: 45 20 D8 2D D7 45 52 54  3A 20 22 3B 58 32 00 E9  |E .-.ERT: ";X2..|
00000320: 44 72 01 FA 3B 20 31 35  2C 32 37 3A 85 20 58 32  |Dr..; 15,27:. X2|
00000330: 00 1B 45 7C 01 57 48 B2  B5 28 58 32 AD 32 35 36  |..E|.WH..(X2.256|
00000340: 29 3A 57 4C B2 58 32 AB  32 35 36 AC 57 48 3A 97  |):WL.X2.256.WH:.|
00000350: 20 44 5A AA 35 2C 57 4C  3A 97 20 44 5A AA 36 2C  | DZ.5,WL:. DZ.6,|
00000360: 57 48 00 4B 45 86 01 FA  2F 20 FA 30 20 31 36 2C  |WH.KE.../ .0 16,|
00000370: 31 3B 22 52 45 43 48 54  45 2C 55 4E 54 45 52 45  |1;"RECHTE,UNTERE|
00000380: 20 C5 43 4B 45 20 D9 2D  D7 45 52 54 3A 20 22 3B  | .CKE .-.ERT: ";|
00000390: 59 32 00 5D 45 90 01 FA  3B 20 31 36 2C 32 37 3A  |Y2.]E...; 16,27:|
000003A0: 85 20 59 32 00 6B 45 9A  01 97 20 44 5A AA 32 2C  |. Y2.kE... DZ.2,|
000003B0: 59 32 00 7C 45 A4 01 46  4C B2 30 3A 44 5A B2 44  |Y2.|E..FL.0:DZ.D|
000003C0: 5A AA 37 00 B9 45 AE 01  22 4C 42 31 22 3A FA 2F  |Z.7..E.."LB1":./|
000003D0: 20 FA 30 20 31 39 2C 31  3B 22 C6 55 45 4C 4C 4D  | .0 19,1;".UELLM|
000003E0: 55 53 54 45 52 20 44 45  53 20 D3 43 48 41 54 54  |USTER DES .CHATT|
000003F0: 45 4E 53 20 28 30 2D 33  31 29 3A 20 22 3B 46 4D  |ENS (0-31): ";FM|
00000400: 00 CB 45 B8 01 FA 3B 20  31 39 2C 33 34 3A 85 20  |..E...; 19,34:. |
00000410: 46 4D 00 E9 45 C2 01 97  20 54 42 2C 46 4D 20 B0  |FM..E... TB,FM .|
00000420: 20 46 4C 3A 27 53 54 41  54 55 53 57 45 52 54 27  | FL:'STATUSWERT'|
00000430: 00 EF 45 CC 01 3A 00 15  46 D6 01 27 45 49 4E 5A  |..E..:..F..'EINZ|
00000440: 45 4C 4E 45 20 4B 4F 4D  4D 41 4E 44 4F 43 4F 44  |ELNE KOMMANDOCOD|
00000450: 45 53 20 45 49 4E 47 45  42 45 4E 27 00 2F 46 E0  |ES EINGEBEN'./F.|
00000460: 01 22 45 49 4E 47 41 42  45 22 3A FA 02 20 22 44  |."EINGABE":.. "D|
00000470: 45 4C 49 4E 50 22 00 66  46 EA 01 FA 2F 20 FA 30  |ELINP".fF.../ .0|
00000480: 20 35 2C 32 3B 22 C2 49  54 54 45 20 57 41 45 48  | 5,2;".ITTE WAEH|
00000490: 4C 45 4E 20 D3 49 45 20  44 49 45 20 45 49 4E 5A  |LEN .IE DIE EINZ|
000004A0: 45 4C 4E 45 4E 20 C3 4F  44 45 53 21 22 00 96 46  |ELNEN .ODES!"..F|
000004B0: F4 01 FA 2F 20 FA 30 20  37 2C 34 3B 22 31 3A 20  |.../ .0 7,4;"1: |
000004C0: CF CB 2D C6 45 4C 44 20  20 20 20 20 20 20 20 20  |..-.ELD         |
000004D0: 20 20 20 34 3A CE CF 2D  C6 45 4C 44 22 00 C8 46  |   4:..-.ELD"..F|
000004E0: FE 01 FA 2F 20 FA 30 20  38 2C 34 3B 22 32 3A 20  |.../ .0 8,4;"2: |
000004F0: C3 C1 CE C3 C5 CC 2D C6  45 4C 44 20 20 20 20 20  |......-.ELD     |
00000500: 20 20 20 35 3A CF D0 C5  CE 2D C6 45 4C 44 22 00  |   5:....-.ELD".|
00000510: FA 46 08 02 FA 2F 20 FA  30 20 39 2C 34 3B 22 33  |.F.../ .0 9,4;"3|
00000520: 3A 20 D9 C5 D3 2D C6 45  4C 44 20 20 20 20 20 20  |: ...-.ELD      |
00000530: 20 20 20 20 20 36 3A C4  C9 D3 CB 2D C6 45 4C 44  |     6:....-.ELD|
00000540: 22 00 27 47 12 02 FA 2F  20 FA 30 20 31 31 2C 37  |".'G.../ .0 11,7|
00000550: 3B 22 31 34 3A 20 27 C1  42 42 52 55 43 48 20 44  |;"14: '.BBRUCH D|
00000560: 55 52 43 48 20 CB 4C 49  43 4B 45 4E 27 22 00 48  |URCH .LICKEN'".H|
00000570: 47 1C 02 FA 2F 20 FA 30  20 31 32 2C 37 3B 22 31  |G.../ .0 12,7;"1|
00000580: 31 3A 20 D4 45 58 54 41  55 53 47 41 42 45 22 00  |1: .EXTAUSGABE".|
00000590: 69 47 26 02 FA 2F 20 FA  30 20 31 33 2C 37 3B 22  |iG&../ .0 13,7;"|
000005A0: 31 33 3A 20 D4 45 58 54  45 49 4E 47 41 42 45 22  |13: .EXTEINGABE"|
000005B0: 00 86 47 30 02 FA 2F 20  FA 30 20 31 34 2C 37 3B  |..G0../ .0 14,7;|
000005C0: 22 20 30 3A 20 C6 45 52  54 49 47 21 22 00 B6 47  |" 0: .ERTIG!"..G|
000005D0: 3A 02 FA 2F 20 FA 30 20  31 36 2C 37 3B 22 33 33  |:../ .0 16,7;"33|
000005E0: 3A 20 C2 49 53 48 45 52  49 47 45 20 C5 49 4E 47  |: .ISHERIGE .ING|
000005F0: 41 42 45 20 41 42 46 52  41 47 45 4E 22 00 DC 47  |ABE ABFRAGEN"..G|
00000600: 44 02 FA 3B 20 31 39 2C  37 3A 85 20 22 C7 45 57  |D..; 19,7:. ".EW|
00000610: 55 45 4E 53 43 48 54 45  52 20 C3 4F 44 45 3A 22  |UENSCHTER .ODE:"|
00000620: 3B 43 44 00 E6 47 4E 02  FA 7A 20 43 44 00 02 48  |;CD..GN..z CD..H|
00000630: 58 02 FA 7B 20 31 2C 32  2C 33 2C 34 2C 35 2C 36  |X..{ 1,2,3,4,5,6|
00000640: 3A 27 46 45 4C 44 45 52  27 00 2C 48 62 02 97 20  |:'FELDER'.,Hb.. |
00000650: 44 5A 2C 43 44 3A 43 44  24 28 46 5A 29 B2 C4 28  |DZ,CD:CD$(FZ)..(|
00000660: 43 44 29 3A 44 5A B2 44  5A AA 31 3A 46 5A B2 46  |CD):DZ.DZ.1:FZ.F|
00000670: 5A AA 31 00 60 48 6C 02  FA 2F 20 FA 30 20 32 32  |Z.1.`Hl../ .0 22|
00000680: 2C 31 3B 22 C1 42 53 54  41 4E 44 20 49 4E 20 D8  |,1;".BSTAND IN .|
00000690: 2D D2 49 43 48 54 55 4E  47 20 28 49 4E 20 C2 59  |-.ICHTUNG (IN .Y|
000006A0: 54 45 21 29 3A 20 22 00  98 48 76 02 FA 3B 20 32  |TE!): "..Hv..; 2|
000006B0: 32 2C 33 34 3A 85 20 57  54 3A 97 20 44 5A 2C 57  |2,34:. WT:. DZ,W|
000006C0: 54 3A 43 44 24 28 46 5A  29 B2 C4 28 57 54 29 3A  |T:CD$(FZ)..(WT):|
000006D0: 46 5A B2 46 5A AA 31 3A  44 5A B2 44 5A AA 31 00  |FZ.FZ.1:DZ.DZ.1.|
000006E0: CB 48 80 02 FA 2F 20 FA  30 20 32 33 2C 31 3B 22  |.H.../ .0 23,1;"|
000006F0: C1 42 53 54 41 4E 44 20  49 4E 20 D9 2D D2 49 43  |.BSTAND IN .-.IC|
00000700: 48 54 55 4E 47 20 28 49  4E 20 C2 49 54 21 29 3A  |HTUNG (IN .IT!):|
00000710: 20 22 00 03 49 8A 02 FA  3B 20 32 33 2C 33 33 3A  | "..I...; 23,33:|
00000720: 85 20 57 54 3A 97 20 44  5A 2C 57 54 3A 43 44 24  |. WT:. DZ,WT:CD$|
00000730: 28 46 5A 29 B2 C4 28 57  54 29 3A 46 5A B2 46 5A  |(FZ)..(WT):FZ.FZ|
00000740: AA 31 3A 44 5A B2 44 5A  AA 31 00 25 49 94 02 FA  |.1:DZ.DZ.1.%I...|
00000750: 7B 20 31 34 3A 27 41 42  42 52 55 43 48 20 44 55  |{ 14:'ABBRUCH DU|
00000760: 52 43 48 20 4B 4C 49 43  4B 45 4E 27 00 4F 49 9E  |RCH KLICKEN'.OI.|
00000770: 02 97 20 44 5A 2C 43 44  3A 43 44 24 28 46 5A 29  |.. DZ,CD:CD$(FZ)|
00000780: B2 C4 28 43 44 29 3A 44  5A B2 44 5A AA 31 3A 46  |..(CD):DZ.DZ.1:F|
00000790: 5A B2 46 5A AA 31 00 8E  49 A8 02 FA 2F 20 FA 30  |Z.FZ.1..I.../ .0|
000007A0: 20 32 32 2C 37 3B 22 CB  45 49 4E 45 20 D0 41 52  | 22,7;".EINE .AR|
000007B0: 41 4D 45 54 45 52 20 45  52 46 4F 52 44 45 52 4C  |AMETER ERFORDERL|
000007C0: 49 43 48 21 22 3A 81 20  49 B2 31 20 A4 20 33 30  |ICH!":. I.1 . 30|
000007D0: 30 3A 82 20 49 00 A6 49  B2 02 FA 7B 20 31 31 3A  |0:. I..I...{ 11:|
000007E0: 27 54 45 58 54 41 55 53  47 41 42 45 27 00 D0 49  |'TEXTAUSGABE'..I|
000007F0: BC 02 97 20 44 5A 2C 43  44 3A 43 44 24 28 46 5A  |... DZ,CD:CD$(FZ|
00000800: 29 B2 C4 28 43 44 29 3A  44 5A B2 44 5A AA 31 3A  |)..(CD):DZ.DZ.1:|
00000810: 46 5A B2 46 5A AA 31 00  03 4A C6 02 FA 2F 20 FA  |FZ.FZ.1..J.../ .|
00000820: 30 20 32 32 2C 31 3B 22  C1 42 53 54 41 4E 44 20  |0 22,1;".BSTAND |
00000830: 49 4E 20 D8 2D D2 49 43  48 54 55 4E 47 20 28 49  |IN .-.ICHTUNG (I|
00000840: 4E 20 C2 49 54 21 29 3A  20 22 00 3B 4A D0 02 FA  |N .IT!): ".;J...|
00000850: 3B 20 32 32 2C 33 34 3A  85 20 57 54 3A 97 20 44  |; 22,34:. WT:. D|
00000860: 5A 2C 57 54 3A 43 44 24  28 46 5A 29 B2 C4 28 57  |Z,WT:CD$(FZ)..(W|
00000870: 54 29 3A 46 5A B2 46 5A  AA 31 3A 44 5A B2 44 5A  |T):FZ.FZ.1:DZ.DZ|
00000880: AA 31 00 6E 4A DA 02 FA  2F 20 FA 30 20 32 33 2C  |.1.nJ.../ .0 23,|
00000890: 31 3B 22 C1 42 53 54 41  4E 44 20 49 4E 20 D9 2D  |1;".BSTAND IN .-|
000008A0: D2 49 43 48 54 55 4E 47  20 28 49 4E 20 C2 49 54  |.ICHTUNG (IN .IT|
000008B0: 21 29 3A 20 22 00 A6 4A  E4 02 FA 3B 20 32 33 2C  |!): "..J...; 23,|
000008C0: 33 33 3A 85 20 57 54 3A  97 20 44 5A 2C 57 54 3A  |33:. WT:. DZ,WT:|
000008D0: 43 44 24 28 46 5A 29 B2  C4 28 57 54 29 3A 46 5A  |CD$(FZ)..(WT):FZ|
000008E0: B2 46 5A AA 31 3A 44 5A  B2 44 5A AA 31 00 CC 4A  |.FZ.1:DZ.DZ.1..J|
000008F0: EE 02 FA 2F 20 FA 30 20  32 34 2C 31 3B 22 C1 55  |.../ .0 24,1;".U|
00000900: 53 5A 55 47 45 42 45 4E  44 45 52 20 D4 45 58 54  |SZUGEBENDER .EXT|
00000910: 3A 20 22 00 15 4B F8 02  FA 3B 20 32 34 2C 32 30  |: "..K...; 24,20|
00000920: 3A 85 20 54 58 24 28 54  58 29 3A 43 44 24 28 46  |:. TX$(TX):CD$(F|
00000930: 5A 29 B2 54 58 24 28 54  58 29 3A 46 5A B2 46 5A  |Z).TX$(TX):FZ.FZ|
00000940: AA 31 3A 44 5A 28 54 58  29 B2 44 5A 3A 44 5A B2  |.1:DZ(TX).DZ:DZ.|
00000950: 44 5A AA 32 3A 54 58 B2  54 58 AA 31 00 2D 4B 02  |DZ.2:TX.TX.1.-K.|
00000960: 03 FA 7B 20 31 33 3A 27  54 45 58 54 45 49 4E 47  |..{ 13:'TEXTEING|
00000970: 41 42 45 27 00 57 4B 0C  03 97 20 44 5A 2C 43 44  |ABE'.WK... DZ,CD|
00000980: 3A 43 44 24 28 46 5A 29  B2 C4 28 43 44 29 3A 44  |:CD$(FZ)..(CD):D|
00000990: 5A B2 44 5A AA 31 3A 46  5A B2 46 5A AA 31 00 8A  |Z.DZ.1:FZ.FZ.1..|
000009A0: 4B 16 03 FA 2F 20 FA 30  20 32 32 2C 31 3B 22 C1  |K.../ .0 22,1;".|
000009B0: 42 53 54 41 4E 44 20 49  4E 20 D8 2D D2 49 43 48  |BSTAND IN .-.ICH|
000009C0: 54 55 4E 47 20 28 49 4E  20 C2 49 54 21 29 3A 20  |TUNG (IN .IT!): |
000009D0: 22 00 C2 4B 20 03 FA 3B  20 32 32 2C 33 34 3A 85  |"..K ..; 22,34:.|
000009E0: 20 57 54 3A 97 20 44 5A  2C 57 54 3A 43 44 24 28  | WT:. DZ,WT:CD$(|
000009F0: 46 5A 29 B2 C4 28 57 54  29 3A 46 5A B2 46 5A AA  |FZ)..(WT):FZ.FZ.|
00000A00: 31 3A 44 5A B2 44 5A AA  31 00 F5 4B 2A 03 FA 2F  |1:DZ.DZ.1..K*../|
00000A10: 20 FA 30 20 32 33 2C 31  3B 22 C1 42 53 54 41 4E  | .0 23,1;".BSTAN|
00000A20: 44 20 49 4E 20 D9 2D D2  49 43 48 54 55 4E 47 20  |D IN .-.ICHTUNG |
00000A30: 28 49 4E 20 C2 49 54 21  29 3A 20 22 00 2D 4C 34  |(IN .IT!): ".-L4|
00000A40: 03 FA 3B 20 32 33 2C 33  33 3A 85 20 57 54 3A 97  |..; 23,33:. WT:.|
00000A50: 20 44 5A 2C 57 54 3A 43  44 24 28 46 5A 29 B2 C4  | DZ,WT:CD$(FZ)..|
00000A60: 28 57 54 29 3A 46 5A B2  46 5A AA 31 3A 44 5A B2  |(WT):FZ.FZ.1:DZ.|
00000A70: 44 5A AA 31 00 41 4C 3E  03 97 20 44 5A 2C 31 32  |DZ.1.AL>.. DZ,12|
00000A80: 3A 44 5A B2 44 5A AA 31  00 6B 4C 48 03 FA 2F 20  |:DZ.DZ.1.kLH../ |
00000A90: FA 30 20 32 34 2C 31 3B  22 CD 41 58 49 4D 41 4C  |.0 24,1;".AXIMAL|
00000AA0: 45 20 C5 49 4E 47 41 42  45 4C 41 45 4E 47 45 3A  |E .INGABELAENGE:|
00000AB0: 20 22 00 A8 4C 52 03 FA  3B 20 32 34 2C 32 34 3A  | "..LR..; 24,24:|
00000AC0: 85 20 57 54 3A 97 20 44  5A 2C 57 54 3A 43 44 24  |. WT:. DZ,WT:CD$|
00000AD0: 28 46 5A 29 B2 C4 28 57  54 29 3A 46 5A B2 46 5A  |(FZ)..(WT):FZ.FZ|
00000AE0: AA 31 3A 44 5A B2 44 5A  AA 31 3A 45 46 B2 31 00  |.1:DZ.DZ.1:EF.1.|
00000AF0: BB 4C 5C 03 FA 7B 20 20  30 3A 27 46 45 52 54 49  |.L\..{  0:'FERTI|
00000B00: 47 27 00 EB 4C 66 03 97  20 44 5A 2C 43 44 3A 43  |G'..Lf.. DZ,CD:C|
00000B10: 44 24 28 46 5A 29 B2 C4  28 43 44 29 3A 46 5A B2  |D$(FZ)..(CD):FZ.|
00000B20: 46 5A AA 31 3A 44 5A B2  44 5A AA 31 3A 53 5A B2  |FZ.1:DZ.DZ.1:SZ.|
00000B30: 44 5A 00 10 4D 70 03 FA  6E 20 54 58 B2 30 20 FA  |DZ..Mp..n TX.0 .|
00000B40: 6F 20 FA D0 3A FA 01 20  22 44 41 52 53 54 45 4C  |o ..:.. "DARSTEL|
00000B50: 4C 45 4E 22 3A FA 71 00  31 4D 7A 03 81 20 49 B2  |LEN":.q.1Mz.. I.|
00000B60: 30 20 A4 20 54 58 AB 31  3A 27 54 45 58 54 45 20  |0 . TX.1:'TEXTE |
00000B70: 41 42 4C 45 47 45 4E 27  00 42 4D 84 03 FA B5 20  |ABLEGEN'.BM.... |
00000B80: 44 5A 2C 54 58 24 28 49  29 00 78 4D 8E 03 57 48  |DZ,TX$(I).xM..WH|
00000B90: B2 B5 28 44 5A AD 32 35  36 29 3A 57 4C B2 44 5A  |..(DZ.256):WL.DZ|
00000BA0: AB 32 35 36 AC 57 48 3A  97 20 44 5A 28 49 29 2C  |.256.WH:. DZ(I),|
00000BB0: 57 4C 3A 97 20 44 5A 28  49 29 AA 31 2C 57 48 00  |WL:. DZ(I).1,WH.|
00000BC0: 9B 4D 98 03 44 5A B2 44  5A AA C3 28 54 58 24 28  |.M..DZ.DZ..(TX$(|
00000BD0: 49 29 29 3A 97 20 44 5A  2C 30 3A 44 5A B2 44 5A  |I)):. DZ,0:DZ.DZ|
00000BE0: AA 31 00 A3 4D A2 03 82  20 49 00 B8 4D AC 03 44  |.1..M... I..M..D|
00000BF0: 5A B2 44 5A AB 31 3A FA  D8 20 53 5A 2C 44 5A 00  |Z.DZ.1:.. SZ,DZ.|
00000C00: CC 4D B6 03 FA 01 20 22  44 41 52 53 54 45 4C 4C  |.M.... "DARSTELL|
00000C10: 45 4E 22 00 F3 4D C0 03  FA 7B 20 33 33 3A 27 42  |EN"..M...{ 33:'B|
00000C20: 49 53 48 45 52 49 47 45  20 45 49 4E 47 41 42 45  |ISHERIGE EINGABE|
00000C30: 20 41 42 46 52 41 47 45  4E 27 00 03 4E CA 03 FA  | ABFRAGEN'..N...|
00000C40: 02 20 22 44 45 4C 49 4E  50 22 00 2E 4E D4 03 FA  |. "DELINP"..N...|
00000C50: 2F 20 FA 30 20 35 2C 31  32 3B 22 C2 49 53 48 45  |/ .0 5,12;".ISHE|
00000C60: 52 49 47 45 20 C5 49 4E  47 41 42 45 3A 22 3A FA  |RIGE .INGABE:":.|
00000C70: 3B 20 37 2C 31 00 54 4E  DE 03 FA 6E 20 45 47 B3  |; 7,1.TN...n EG.|
00000C80: B1 30 20 FA 6F 20 5A 5A  B2 45 47 AB 31 3A FA 70  |.0 .o ZZ.EG.1:.p|
00000C90: 20 5A 5A B2 46 5A AB 31  3A FA 71 00 63 4E E8 03  | ZZ.FZ.1:.q.cN..|
00000CA0: 81 20 5A B2 30 20 A4 20  5A 5A 00 76 4E F2 03 FA  |. Z.0 . ZZ.vN...|
00000CB0: 2F 20 43 44 24 28 5A 29  3B 22 20 22 3B 00 7E 4E  |/ CD$(Z);" ";.~N|
00000CC0: FC 03 82 20 5A 00 AE 4E  06 04 FA 2F 20 FA 30 20  |... Z..N.../ .0 |
00000CD0: 32 32 2C 36 3B 22 C2 49  54 54 45 20 44 52 55 45  |22,6;".ITTE DRUE|
00000CE0: 43 4B 45 4E 20 D3 49 45  20 45 49 4E 45 20 D4 41  |CKEN .IE EINE .A|
00000CF0: 53 54 45 21 22 00 B5 4E  10 04 FA 25 00 C9 4E 1A  |STE!"..N...%..N.|
00000D00: 04 FA 7D 3A FA 01 20 22  45 49 4E 47 41 42 45 22  |..}:.. "EINGABE"|
00000D10: 00 CF 4E 24 04 3A 00 EB  4E 2E 04 27 44 49 41 4C  |..N$.:..N..'DIAL|
00000D20: 4F 47 42 4F 58 20 20 44  41 52 53 54 45 4C 4C 45  |OGBOX  DARSTELLE|
00000D30: 4E 27 00 08 4F 38 04 22  44 41 52 53 54 45 4C 4C  |N'..O8."DARSTELL|
00000D40: 45 4E 22 3A FA 02 20 22  44 45 4C 49 4E 50 22 00  |EN":.. "DELINP".|
00000D50: 40 4F 42 04 FA 2F 20 FA  30 20 31 30 2C 31 3B 22  |@OB../ .0 10,1;"|
00000D60: DA 55 52 20 C4 41 52 53  54 45 4C 4C 55 4E 47 20  |.UR .ARSTELLUNG |
00000D70: 44 45 52 20 C4 49 41 4C  4F 47 42 4F 58 20 44 52  |DER .IALOGBOX DR|
00000D80: 55 45 43 4B 45 4E 22 00  67 4F 4C 04 FA 2F 20 FA  |UECKEN".gOL../ .|
00000D90: 30 20 31 31 2C 31 3B 22  D3 49 45 20 42 49 54 54  |0 11,1;".IE BITT|
00000DA0: 45 20 45 49 4E 45 20 D4  41 53 54 45 21 22 00 97  |E EINE .ASTE!"..|
00000DB0: 4F 56 04 FA 2F 20 FA 30  20 31 33 2C 31 3B 22 DA  |OV../ .0 13,1;".|
00000DC0: 55 4D 20 C1 42 42 52 45  43 48 45 4E 20 45 49 4E  |UM .BBRECHEN EIN|
00000DD0: 46 41 43 48 20 45 49 4E  20 C6 45 4C 44 22 00 B3  |FACH EIN .ELD"..|
00000DE0: 4F 60 04 FA 2F 20 FA 30  20 31 34 2C 31 3B 22 41  |O`../ .0 14,1;"A|
00000DF0: 4E 4B 4C 49 43 4B 45 4E  21 22 00 BA 4F 6A 04 FA  |NKLICKEN!"..Oj..|
00000E00: 25 00 D2 4F 74 04 FA D3  3A FA E3 20 30 2C 30 2C  |%..Ot...:.. 0,0,|
00000E10: 33 31 39 2C 31 39 39 2C  32 00 FF 4F 7E 04 FA 6E  |319,199,2..O~..n|
00000E20: 20 45 46 B2 30 20 FA 6F  20 FA D5 20 54 42 3A FA  | EF.0 .o .. TB:.|
00000E30: 70 20 97 20 38 32 38 2C  30 3A FA D5 20 54 42 2C  |p . 828,0:.. TB,|
00000E40: 38 32 38 3A FA 71 00 12  50 88 04 FA D4 3A FA 02  |828:.q..P....:..|
00000E50: 20 22 44 45 4C 49 4E 50  22 00 47 50 92 04 FA 2F  | "DELINP".GP.../|
00000E60: 20 FA 30 20 31 30 2C 31  3B 22 C4 49 41 4C 4F 47  | .0 10,1;".IALOG|
00000E70: 42 4F 58 20 49 4E 20 CF  52 44 4E 55 4E 47 3F 20  |BOX IN .RDNUNG? |
00000E80: 28 4A 2F 4E 29 3A 22 3B  3A 85 20 45 47 24 00 7E  |(J/N):";:. EG$.~|
00000E90: 50 9C 04 FA 6E 20 45 47  24 B2 22 4E 22 20 FA 6F  |P...n EG$."N" .o|
00000EA0: 20 FA D0 3A FA 02 20 22  44 45 4C 49 4E 50 22 3A  | ..:.. "DELINP":|
00000EB0: 45 47 B2 46 5A 3A 46 5A  B2 30 3A 45 46 B2 30 3A  |EG.FZ:FZ.0:EF.0:|
00000EC0: 44 5A B2 54 42 00 95 50  A6 04 54 58 B2 30 3A FA  |DZ.TB..P..TX.0:.|
00000ED0: 01 20 22 53 54 41 52 54  22 3A FA 71 00 C0 50 B0  |. "START":.q..P.|
00000EE0: 04 FA 2F 20 FA 30 20 31  33 2C 31 3B 22 CE 41 4D  |../ .0 13,1;".AM|
00000EF0: 45 20 44 45 52 20 D4 41  42 45 4C 4C 45 3A 20 22  |E DER .ABELLE: "|
00000F00: 3B 3A 85 20 4E 4D 24 00  EC 50 BA 04 FA 53 20 4E  |;:. NM$..P...S N|
00000F10: 4D 24 2C 54 42 2C 44 5A  3A 27 54 41 42 45 4C 4C  |M$,TB,DZ:'TABELL|
00000F20: 45 20 41 55 46 20 44 49  53 4B 20 41 42 4C 45 47  |E AUF DISK ABLEG|
00000F30: 45 4E 27 00 FC 50 C4 04  FA 02 20 22 44 45 4C 49  |EN'..P.... "DELI|
00000F40: 4E 50 22 00 2B 51 CE 04  FA 2F 20 FA 30 20 36 2C  |NP".+Q.../ .0 6,|
00000F50: 31 3B 22 C4 49 45 20 D4  41 42 45 4C 4C 45 20 45  |1;".IE .ABELLE E|
00000F60: 52 53 54 52 45 43 4B 54  20 53 49 43 48 20 56 4F  |RSTRECKT SICH VO|
00000F70: 4E 22 00 49 51 D8 04 FA  2F 20 FA 30 20 38 2C 31  |N".IQ.../ .0 8,1|
00000F80: 3B 54 42 3B 22 42 49 53  22 3B 44 5A 3B 22 2E 22  |;TB;"BIS";DZ;"."|
00000F90: 00 83 51 E2 04 FA 2F 20  FA 30 20 31 30 2C 31 3B  |..Q.../ .0 10,1;|
00000FA0: 22 D3 49 45 20 4D 55 53  53 20 4D 49 54 20 27 44  |".IE MUSS MIT 'D|
00000FB0: 4C 4F 41 44 4D 22 3B C7  28 33 34 29 3B 4E 4D 24  |LOADM";.(34);NM$|
00000FC0: 3B C7 28 33 34 29 3B 22  27 22 00 C1 51 EC 04 FA  |;.(34);"'"..Q...|
00000FD0: 2F 20 FA 30 20 31 32 2C  31 3B 22 47 45 4C 41 44  |/ .0 12,1;"GELAD|
00000FE0: 45 4E 20 55 4E 44 20 4D  49 54 22 3A FA 2F 20 FA  |EN UND MIT":./ .|
00000FF0: 30 20 31 34 2C 31 3B 22  27 20 44 49 41 4C 4F 47  |0 14,1;"' DIALOG|
00001000: 42 4F 58 22 3B 54 42 3B  00 F4 51 F6 04 FA 6E 20  |BOX";TB;..Q...n |
00001010: 45 46 B2 30 20 FA 6F 20  FA 2F 20 22 27 22 3A FA  |EF.0 .o ./ "'":.|
00001020: 70 20 FA 2F 20 22 2C C5  49 4E 47 41 42 45 41 44  |p ./ ",.INGABEAD|
00001030: 52 45 53 53 45 20 27 22  3A FA 71 00 17 52 00 05  |RESSE '":.q..R..|
00001040: FA 2F 20 FA 30 20 31 36  2C 31 3B 22 47 45 53 54  |./ .0 16,1;"GEST|
00001050: 41 52 54 45 54 20 57 45  52 44 45 4E 21 22 00 20  |ARTET WERDEN!". |
00001060: 52 0A 05 FA 25 3A 80 00  26 52 14 05 3A 00 2C 52  |R...%:..&R..:.,R|
00001070: 1E 05 3A 00 32 52 28 05  3A 00 64 52 32 05 27 45  |..:.2R(.:.dR2.'E|
00001080: 49 4E 47 41 42 45 4E 20  4C 4F 45 53 43 48 45 4E  |INGABEN LOESCHEN|
00001090: 20 55 4E 44 20 55 45 42  45 52 53 43 48 52 49 46  | UND UEBERSCHRIF|
000010A0: 54 20 41 55 53 47 45 42  45 4E 27 00 86 52 3C 05  |T AUSGEBEN'..R<.|
000010B0: 22 44 45 4C 49 4E 50 22  3A FA 35 3A FA 85 3A FA  |"DELINP":.5:..:.|
000010C0: 3C 20 31 3A FA 33 20 30  3A FA 34 20 30 00 B1 52  |< 1:.3 0:.4 0..R|
000010D0: 46 05 FA 2F 20 FA 30 20  32 2C 37 3B 22 C4 49 41  |F../ .0 2,7;".IA|
000010E0: 4C 4F 47 42 4F 58 2D C3  4F 4E 53 54 52 55 43 54  |LOGBOX-.ONSTRUCT|
000010F0: 49 4F 4E 2D D3 45 54 22  00 EC 52 50 05 FA 2F 20  |ION-.ET"..RP../ |
00001100: FA 30 20 33 2C 31 3B 22  1E A3 A3 A3 A3 A3 A3 A3  |.0 3,1;"........|
00001110: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00001120: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00001130: A3 05 22 00 F2 52 5A 05  8E 00 00 00              |.."..RZ.....    |

.A.AD.'DIALOGBOX-CONSTRUCTION-SET'..AN.'
(W) 1987 BY MARTIN HECHT'."BX.'AUF DISKE
TTE UNTER D.C.S ABGELEGT'.(B..:..B..:.4B
..:.JB .'INITIALISIERUNG'.IB.... "DELINP
":'UEBERSCHRIFT'..B.... 24000:'SPEICHER 
BEGRENZEN'..B... CD$(100),TX$(15),DZ(15)
:FZ.0:FA.0:EG.0:TX.0.CBH.:.IBR.:..B..'TA
BELLENADRESSE ERFRAGEN'..C.../ .0 6,1;"A
NFANGSADRESSE DER TABELLE: ".,C...; 6,28
:. TB:DZ.TB.2C..:.ZC.."START":.. "DELINP
":./ .0 7,1;"STANDARDBOX VERWENDEN? (J/N
):  ";SD$..C...; 7,30:. SD$..C...N SD$."
J" .O .P:FL.128:DZ.DZ.1:.. "LB1":.Q..C".
./ .0 10,1;"KOORDINATEN DER DIALOGBOX"..
D,../ .0 12,1;"LINKE,OBERE ECKE X-WERT: 
";X1.'D6..; 12,25:. X1.YD@.WH..(X1.256):
WL.X1.256.WH:. DZ.3,WL:. DZ.4,WH..DJ../ 
.0 13,1;"LINKE,OBERE ECKE Y-WERT: ";Y1..
DT..; 13,25:. Y1..D^.. DZ.1,Y1.WDH../ .0
 15,1;"RECHTE,UNTERE ECKE X-WERT: ";X2..
DR..; 15,27:. X2..E|.WH..(X2.256):WL.X2.
256.WH:. DZ.5,WL:. DZ.6,WH.KE.../ .0 16,
1;"RECHTE,UNTERE ECKE Y-WERT: ";Y2.]E...
; 16,27:. Y2.KE... DZ.2,Y2.|E..FL.0:DZ.D
Z.7..E.."LB1":./ .0 19,1;"FUELLMUSTER DE
S SCHATTENS (0-31): ";FM.KE...; 19,34:. 
FM..EB.. TB,FM . FL:'STATUSWERT'..EL.:..
FV.'EINZELNE KOMMANDOCODES EINGEBEN'./F.
."EINGABE":.. "DELINP".FF.../ .0 5,2;"BI
TTE WAEHLEN SIE DIE EINZELNEN CODES!"..F
.../ .0 7,4;"1: OK-FELD            4:NO-
FELD".HF.../ .0 8,4;"2: CANCEL-FELD     
   5:OPEN-FELD"..F.../ .0 9,4;"3: YES-FE
LD           6:DISK-FELD".'G.../ .0 11,7
;"14: 'ABBRUCH DURCH KLICKEN'".HG.../ .0
 12,7;"11: TEXTAUSGABE".IG&../ .0 13,7;"
13: TEXTEINGABE"..G0../ .0 14,7;" 0: FER
TIG!"..G:../ .0 16,7;"33: BISHERIGE EING
ABE ABFRAGEN"..GD..; 19,7:. "GEWUENSCHTE
R CODE:";CD..GN..Z CD..HX..{ 1,2,3,4,5,6
:'FELDER'.,HB.. DZ,CD:CD$(FZ).D(CD):DZ.D
Z.1:FZ.FZ.1.`HL../ .0 22,1;"ABSTAND IN X
-RICHTUNG (IN BYTE!): "..HV..; 22,34:. W
T:. DZ,WT:CD$(FZ).D(WT):FZ.FZ.1:DZ.DZ.1.
KH.../ .0 23,1;"ABSTAND IN Y-RICHTUNG (I
N BIT!): "..I...; 23,33:. WT:. DZ,WT:CD$
(FZ).D(WT):FZ.FZ.1:DZ.DZ.1.%I...{ 14:'AB
BRUCH DURCH KLICKEN'.OI... DZ,CD:CD$(FZ)
.D(CD):DZ.DZ.1:FZ.FZ.1..I.../ .0 22,7;"K
EINE PARAMETER ERFORDERLICH!":. I.1 . 30
0:. I..I...{ 11:'TEXTAUSGABE'.PI... DZ,C
D:CD$(FZ).D(CD):DZ.DZ.1:FZ.FZ.1..JF../ .
0 22,1;"ABSTAND IN X-RICHTUNG (IN BIT!):
 ".;JP..; 22,34:. WT:. DZ,WT:CD$(FZ).D(W
T):FZ.FZ.1:DZ.DZ.1.NJZ../ .0 23,1;"ABSTA
ND IN Y-RICHTUNG (IN BIT!): "..J...; 23,
33:. WT:. DZ,WT:CD$(FZ).D(WT):FZ.FZ.1:DZ
.DZ.1.LJ.../ .0 24,1;"AUSZUGEBENDER TEXT
: "..K...; 24,20:. TX$(TX):CD$(FZ).TX$(T
X):FZ.FZ.1:DZ(TX).DZ:DZ.DZ.2:TX.TX.1.-K.
..{ 13:'TEXTEINGABE'.WK... DZ,CD:CD$(FZ)
.D(CD):DZ.DZ.1:FZ.FZ.1..K.../ .0 22,1;"A
BSTAND IN X-RICHTUNG (IN BIT!): ".BK ..;
 22,34:. WT:. DZ,WT:CD$(FZ).D(WT):FZ.FZ.
1:DZ.DZ.1..K*../ .0 23,1;"ABSTAND IN Y-R
ICHTUNG (IN BIT!): ".-L4..; 23,33:. WT:.
 DZ,WT:CD$(FZ).D(WT):FZ.FZ.1:DZ.DZ.1.AL>
.. DZ,12:DZ.DZ.1.KLH../ .0 24,1;"MAXIMAL
E EINGABELAENGE: "..LR..; 24,24:. WT:. D
Z,WT:CD$(FZ).D(WT):FZ.FZ.1:DZ.DZ.1:EF.1.
.L\..{  0:'FERTIG'..LF.. DZ,CD:CD$(FZ).D
(CD):FZ.FZ.1:DZ.DZ.1:SZ.DZ..MP..N TX.0 .
O .P:.. "DARSTELLEN":.Q.1MZ.. I.0 . TX.1
:'TEXTE ABLEGEN'.BM.... DZ,TX$(I).XM..WH
..(DZ.256):WL.DZ.256.WH:. DZ(I),WL:. DZ(
I).1,WH..M..DZ.DZ.C(TX$(I)):. DZ,0:DZ.DZ
.1..M... I..M..DZ.DZ.1:.X SZ,DZ.LM.... "
DARSTELLEN"..M...{ 33:'BISHERIGE EINGABE
 ABFRAGEN'..NJ... "DELINP"..NT../ .0 5,1
2;"BISHERIGE EINGABE:":.; 7,1.TN...N EG.
.0 .O ZZ.EG.1:.P ZZ.FZ.1:.Q.CN... Z.0 . 
ZZ.VN.../ CD$(Z);" ";.~N... Z..N.../ .0 
22,6;"BITTE DRUECKEN SIE EINE TASTE!"..N
...%.IN...}:.. "EINGABE".ON$.:..N..'DIAL
OGBOX  DARSTELLEN'..O8."DARSTELLEN":.. "
DELINP".@OB../ .0 10,1;"ZUR DARSTELLUNG 
DER DIALOGBOX DRUECKEN".GOL../ .0 11,1;"
SIE BITTE EINE TASTE!"..OV../ .0 13,1;"Z
UM ABBRECHEN EINFACH EIN FELD"..O`../ .0
 14,1;"ANKLICKEN!"..OJ..%.ROT..S:.. 0,0,
319,199,2..O~..N EF.0 .O .U TB:.P . 828,
0:.U TB,828:.Q..P...T:.. "DELINP".GP.../
 .0 10,1;"DIALOGBOX IN ORDNUNG? (J/N):";
:. EG$.~P...N EG$."N" .O .P:.. "DELINP":
EG.FZ:FZ.0:EF.0:DZ.TB..P..TX.0:.. "START
":.Q..P.../ .0 13,1;"NAME DER TABELLE: "
;:. NM$..P...S NM$,TB,DZ:'TABELLE AUF DI
SK ABLEGEN'..PD... "DELINP".+QN../ .0 6,
1;"DIE TABELLE ERSTRECKT SICH VON".IQX..
/ .0 8,1;TB;"BIS";DZ;"."..Q.../ .0 10,1;
"SIE MUSS MIT 'DLOADM";G(34);NM$;G(34);"
'".AQ.../ .0 12,1;"GELADEN UND MIT":./ .
0 14,1;"' DIALOGBOX";TB;..Q...N EF.0 .O 
./ "'":.P ./ ",EINGABEADRESSE '":.Q..R..
./ .0 16,1;"GESTARTET WERDEN!". R...%:..
&R..:.,R..:.2R(.:.DR2.'EINGABEN LOESCHEN
 UND UEBERSCHRIFT AUSGEBEN'..R<."DELINP"
:.5:..:.< 1:.3 0:.4 0..RF../ .0 2,7;"DIA
LOGBOX-CONSTRUCTION-SET"..RP../ .0 3,1;"
........................................
.."..RZ.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL