PDM.C.S

00000000: BA 41 E0 41 64 00 27 50  55 4C 4C 2D 44 4F 57 4E  |.A.Ad.'PULL-DOWN|
00000010: 2D 4D 45 4E 55 2D 43 4F  4E 53 54 52 55 43 54 49  |-MENU-CONSTRUCTI|
00000020: 4F 4E 2D 53 45 54 27 00  FF 41 6E 00 27 28 57 29  |ON-SET'..An.'(W)|
00000030: 20 31 39 38 37 20 42 59  20 4D 41 52 54 49 4E 20  | 1987 BY MARTIN |
00000040: 48 45 43 48 54 27 00 29  42 78 00 27 41 55 46 20  |HECHT'.)Bx.'AUF |
00000050: 44 49 53 4B 45 54 54 45  20 55 4E 54 45 52 20 50  |DISKETTE UNTER P|
00000060: 44 4D 2E 43 2E 53 20 41  42 47 45 4C 45 47 54 27  |DM.C.S ABGELEGT'|
00000070: 00 2F 42 82 00 3A 00 35  42 8C 00 3A 00 3B 42 96  |./B..:.5B..:.;B.|
00000080: 00 3A 00 51 42 A0 00 27  49 4E 49 54 49 41 4C 49  |.:.QB..'INITIALI|
00000090: 53 49 45 52 55 4E 47 27  00 70 42 AA 00 FA 02 20  |SIERUNG'.pB.... |
000000A0: 22 44 45 4C 49 4E 50 22  3A 27 55 45 42 45 52 53  |"DELINP":'UEBERS|
000000B0: 43 48 52 49 46 54 27 00  92 42 B4 00 FA 0E 20 32  |CHRIFT'..B.... 2|
000000C0: 34 30 30 30 3A 27 53 50  45 49 43 48 45 52 20 42  |4000:'SPEICHER B|
000000D0: 45 47 52 45 4E 5A 45 4E  27 00 DB 42 BE 00 86 20  |EGRENZEN'..B... |
000000E0: 48 54 24 28 31 30 29 2C  4D 31 25 28 31 30 29 2C  |HT$(10),M1%(10),|
000000F0: 4F 31 25 28 31 30 29 2C  48 31 25 28 31 30 29 2C  |O1%(10),H1%(10),|
00000100: 48 32 25 28 31 30 29 2C  48 33 25 28 31 30 29 2C  |H2%(10),H3%(10),|
00000110: 48 34 25 28 31 30 29 2C  55 54 24 28 31 30 2C 31  |H4%(10),UT$(10,1|
00000120: 30 29 00 E1 42 C8 00 3A  00 E7 42 D2 00 3A 00 06  |0)..B..:..B..:..|
00000130: 43 DC 00 27 54 41 42 45  4C 4C 45 4E 41 44 52 45  |C..'TABELLENADRE|
00000140: 53 53 45 20 45 52 46 52  41 47 45 4E 27 00 33 43  |SSE ERFRAGEN'.3C|
00000150: E6 00 FA 2F 20 FA 30 20  36 2C 31 3B 22 C1 4E 46  |.../ .0 6,1;".NF|
00000160: 41 4E 47 53 41 44 52 45  53 53 45 20 44 45 52 20  |ANGSADRESSE DER |
00000170: D4 41 42 45 4C 4C 45 3A  20 22 00 50 43 F0 00 FA  |.ABELLE: ".PC...|
00000180: 3B 20 36 2C 32 38 3A 85  20 54 42 3A FA 02 20 22  |; 6,28:. TB:.. "|
00000190: 44 45 4C 49 4E 50 22 00  56 43 FA 00 3A 00 78 43  |DELINP".VC..:.xC|
000001A0: 04 01 27 52 55 45 43 4B  53 50 52 55 4E 47 52 4F  |..'RUECKSPRUNGRO|
000001B0: 55 54 49 4E 45 20 45 52  5A 45 55 47 45 4E 27 00  |UTINE ERZEUGEN'.|
000001C0: 8C 43 0E 01 81 20 5A 47  B2 54 42 20 A4 20 54 42  |.C... ZG.TB . TB|
000001D0: AA 37 34 00 9D 43 18 01  87 20 57 54 3A 97 20 5A  |.74..C... WT:. Z|
000001E0: 47 2C 57 54 00 A6 43 22  01 82 20 5A 47 00 E3 43  |G,WT..C".. ZG..C|
000001F0: 24 01 57 31 B2 54 42 AA  37 34 3A 57 48 B2 B5 28  |$.W1.TB.74:WH..(|
00000200: 57 31 AD 32 35 36 29 3A  57 4C B2 57 31 AB 32 35  |W1.256):WL.W1.25|
00000210: 36 AC 57 48 3A 97 20 54  42 AA 36 35 2C 57 4C 3A  |6.WH:. TB.65,WL:|
00000220: 97 20 54 42 AA 36 36 2C  57 48 00 20 44 26 01 57  |. TB.66,WH. D&.W|
00000230: 31 B2 54 42 AA 38 34 3A  57 48 B2 B5 28 57 31 AD  |1.TB.84:WH..(W1.|
00000240: 32 35 36 29 3A 57 4C B2  57 31 AB 32 35 36 AC 57  |256):WL.W1.256.W|
00000250: 48 3A 97 20 54 42 AA 37  30 2C 57 4C 3A 97 20 54  |H:. TB.70,WL:. T|
00000260: 42 AA 37 31 2C 57 48 00  2D 44 28 01 5A 47 B2 54  |B.71,WH.-D(.ZG.T|
00000270: 42 AA 39 35 00 33 44 2C  01 3A 00 51 44 36 01 27  |B.95.3D,.:.QD6.'|
00000280: 48 41 55 50 54 4D 45 4E  55 44 41 54 45 4E 20 45  |HAUPTMENUDATEN E|
00000290: 52 46 52 41 47 45 4E 27  00 83 44 40 01 22 53 54  |RFRAGEN'..D@."ST|
000002A0: 41 52 54 22 3A FA 2F 20  FA 30 20 37 2C 31 3B 22  |ART":./ .0 7,1;"|
000002B0: C1 4E 5A 41 48 4C 20 44  45 52 20 CD 45 4E 55 50  |.NZAHL DER .ENUP|
000002C0: 55 4E 4B 54 45 20 44 45  53 22 00 B7 44 4A 01 FA  |UNKTE DES"..DJ..|
000002D0: 2F 20 FA 30 20 38 2C 31  3B 22 C8 41 55 50 54 4D  |/ .0 8,1;".AUPTM|
000002E0: 45 4E 55 53 22 3A FA 2F  20 FA 30 20 38 2C 31 32  |ENUS":./ .0 8,12|
000002F0: 3B 22 28 31 2D 31 30 29  3A 20 22 3B 48 4D 00 C8  |;"(1-10): ";HM..|
00000300: 44 54 01 FA 3B 20 38 2C  31 39 3A 85 20 48 4D 00  |DT..; 8,19:. HM.|
00000310: FC 44 5E 01 FA 2F 20 FA  30 20 31 30 2C 31 3B 22  |.D^../ .0 10,1;"|
00000320: C8 4F 52 49 5A 4F 4E 54  41 4C 45 20 28 30 29 20  |.ORIZONTALE (0) |
00000330: 4F 44 45 52 20 56 45 52  54 49 4B 41 4C 45 20 28  |ODER VERTIKALE (|
00000340: 31 29 22 00 2A 45 68 01  FA 2F 20 FA 30 20 31 31  |1)".*Eh../ .0 11|
00000350: 2C 31 3B 22 C1 4E 4F 52  44 4E 55 4E 47 3A 20 22  |,1;".NORDNUNG: "|
00000360: 3B 48 4F 3A FA 3B 20 31  31 2C 31 31 3A 85 20 48  |;HO:.; 11,11:. H|
00000370: 4F 00 51 45 72 01 FA 2F  20 FA 30 20 31 34 2C 31  |O.QEr../ .0 14,1|
00000380: 3B 22 CB 4F 4F 52 44 49  4E 41 54 45 4E 20 44 45  |;".OORDINATEN DE|
00000390: 53 20 CD 45 4E 55 53 22  00 7F 45 7C 01 FA 2F 20  |S .ENUS"..E|../ |
000003A0: FA 30 20 31 36 2C 31 3B  22 4C 49 4E 4B 45 2C 4F  |.0 16,1;"LINKE,O|
000003B0: 42 45 52 45 20 C5 43 4B  45 20 D8 2D D7 45 52 54  |BERE .CKE .-.ERT|
000003C0: 3A 20 22 3B 48 31 00 91  45 86 01 FA 3B 20 31 36  |: ";H1..E...; 16|
000003D0: 2C 32 35 3A 85 20 48 31  00 BF 45 90 01 FA 2F 20  |,25:. H1..E.../ |
000003E0: FA 30 20 31 37 2C 31 3B  22 4C 49 4E 4B 45 2C 4F  |.0 17,1;"LINKE,O|
000003F0: 42 45 52 45 20 C5 43 4B  45 20 D9 2D D7 45 52 54  |BERE .CKE .-.ERT|
00000400: 3A 20 22 3B 48 32 00 D1  45 9A 01 FA 3B 20 31 37  |: ";H2..E...; 17|
00000410: 2C 32 35 3A 85 20 48 32  00 01 46 A4 01 FA 2F 20  |,25:. H2..F.../ |
00000420: FA 30 20 31 39 2C 31 3B  22 52 45 43 48 54 45 2C  |.0 19,1;"RECHTE,|
00000430: 55 4E 54 45 52 45 20 C5  43 4B 45 20 D8 2D D7 45  |UNTERE .CKE .-.E|
00000440: 52 54 3A 20 22 3B 48 33  00 13 46 AE 01 FA 3B 20  |RT: ";H3..F...; |
00000450: 31 39 2C 32 37 3A 85 20  48 33 00 43 46 B8 01 FA  |19,27:. H3.CF...|
00000460: 2F 20 FA 30 20 32 30 2C  31 3B 22 52 45 43 48 54  |/ .0 20,1;"RECHT|
00000470: 45 2C 55 4E 54 45 52 45  20 C5 43 4B 45 20 D9 2D  |E,UNTERE .CKE .-|
00000480: D7 45 52 54 3A 20 22 3B  48 34 00 55 46 C2 01 FA  |.ERT: ";H4.UF...|
00000490: 3B 20 32 30 2C 32 37 3A  85 20 48 34 00 85 46 CC  |; 20,27:. H4..F.|
000004A0: 01 FA 2F 20 FA 30 20 32  33 2C 31 3B 22 D4 45 58  |../ .0 23,1;".EX|
000004B0: 54 45 20 44 45 52 20 45  49 4E 5A 45 4C 4E 45 4E  |TE DER EINZELNEN|
000004C0: 20 CD 45 4E 55 50 55 4E  4B 54 45 22 00 94 46 D6  | .ENUPUNKTE"..F.|
000004D0: 01 81 20 5A B2 31 20 A4  20 48 4D 00 C3 46 E0 01  |.. Z.1 . HM..F..|
000004E0: FA 2F 20 FA 30 20 32 34  2C 31 3B 22 CD 45 4E 55  |./ .0 24,1;".ENU|
000004F0: 50 55 4E 4B 54 22 3B 5A  3B 22 3A 20 20 20 20 20  |PUNKT";Z;":     |
00000500: 20 20 20 20 20 20 20 20  20 22 00 EC 46 EA 01 FA  |         "..F...|
00000510: 2F 20 FA 30 20 32 34 2C  31 36 3B 48 54 24 28 5A  |/ .0 24,16;HT$(Z|
00000520: 29 3A FA 3B 20 32 34 2C  31 34 3A 85 20 48 54 24  |):.; 24,14:. HT$|
00000530: 28 5A 29 00 F4 46 F4 01  82 20 5A 00 FA 46 FE 01  |(Z)..F... Z..F..|
00000540: 3A 00 22 47 08 02 27 48  41 55 50 54 4D 45 4E 55  |:."G..'HAUPTMENU|
00000550: 44 41 54 45 4E 20 49 4E  20 54 41 42 45 4C 4C 45  |DATEN IN TABELLE|
00000560: 20 41 42 4C 45 47 45 4E  27 00 34 47 12 02 27 4B  | ABLEGEN'.4G..'K|
00000570: 4F 4F 52 44 49 4E 41 54  45 4E 27 00 4A 47 1C 02  |OORDINATEN'.JG..|
00000580: 97 20 5A 47 2C 48 32 3A  97 20 5A 47 AA 31 2C 48  |. ZG,H2:. ZG.1,H|
00000590: 34 00 7C 47 26 02 57 48  B2 B5 28 48 31 AD 32 35  |4.|G&.WH..(H1.25|
000005A0: 36 29 3A 57 4C B2 48 31  AB 32 35 36 AC 57 48 3A  |6):WL.H1.256.WH:|
000005B0: 97 20 5A 47 AA 32 2C 57  4C 3A 97 20 5A 47 AA 33  |. ZG.2,WL:. ZG.3|
000005C0: 2C 57 48 00 AE 47 30 02  57 48 B2 B5 28 48 33 AD  |,WH..G0.WH..(H3.|
000005D0: 32 35 36 29 3A 57 4C B2  48 33 AB 32 35 36 AC 57  |256):WL.H3.256.W|
000005E0: 48 3A 97 20 5A 47 AA 34  2C 57 4C 3A 97 20 5A 47  |H:. ZG.4,WL:. ZG|
000005F0: AA 35 2C 57 48 00 D7 47  3A 02 97 20 5A 47 AA 36  |.5,WH..G:.. ZG.6|
00000600: 2C 48 4D AA 36 34 20 B0  20 28 48 4F AC 31 32 38  |,HM.64 . (HO.128|
00000610: 29 3A 27 53 54 41 54 55  53 57 45 52 54 27 00 10  |):'STATUSWERT'..|
00000620: 48 44 02 5A 47 B2 5A 47  AA 37 3A 5A 53 B2 5A 47  |HD.ZG.ZG.7:ZS.ZG|
00000630: AA 35 AC 48 4D 3A 5A 57  B2 5A 53 3A 27 5A 45 49  |.5.HM:ZW.ZS:'ZEI|
00000640: 47 45 52 20 41 55 46 20  4D 45 4E 55 54 45 58 54  |GER AUF MENUTEXT|
00000650: 41 4E 46 41 4E 47 27 00  35 48 4E 02 81 20 5A B2  |ANFANG'.5HN.. Z.|
00000660: 31 20 A4 20 48 4D 3A 27  45 49 4E 5A 45 4C 4E 45  |1 . HM:'EINZELNE|
00000670: 20 4D 45 4E 55 50 55 4E  4B 54 45 27 00 77 48 58  | MENUPUNKTE'.wHX|
00000680: 02 57 48 B2 B5 28 5A 53  AD 32 35 36 29 3A 57 4C  |.WH..(ZS.256):WL|
00000690: B2 5A 53 AB 32 35 36 AC  57 48 3A 97 20 5A 47 2C  |.ZS.256.WH:. ZG,|
000006A0: 57 4C 3A 97 20 5A 47 AA  31 2C 57 48 3A 27 5A 45  |WL:. ZG.1,WH:'ZE|
000006B0: 49 47 45 52 20 41 55 46  20 54 45 58 54 27 00 B6  |IGER AUF TEXT'..|
000006C0: 48 62 02 FA B5 20 5A 53  2C 48 54 24 28 5A 29 3A  |Hb... ZS,HT$(Z):|
000006D0: 5A 53 B2 5A 53 AA C3 28  48 54 24 28 5A 29 29 3A  |ZS.ZS..(HT$(Z)):|
000006E0: 97 20 5A 53 2C 30 3A 5A  53 B2 5A 53 AA 31 3A 27  |. ZS,0:ZS.ZS.1:'|
000006F0: 54 45 58 54 20 41 42 4C  45 47 45 4E 27 00 CD 48  |TEXT ABLEGEN'..H|
00000700: 6C 02 97 20 5A 47 AA 32  2C 30 3A 27 4D 45 4E 55  |l.. ZG.2,0:'MENU|
00000710: 54 59 50 27 00 FF 48 76  02 57 31 B2 54 42 AA 33  |TYP'..Hv.W1.TB.3|
00000720: AC 28 5A AB 31 29 3A 27  5A 45 49 47 45 52 20 41  |.(Z.1):'ZEIGER A|
00000730: 55 46 20 52 55 45 43 4B  53 50 52 55 4E 47 52 4F  |UF RUECKSPRUNGRO|
00000740: 55 54 49 4E 45 27 00 31  49 80 02 57 48 B2 B5 28  |UTINE'.1I..WH..(|
00000750: 57 31 AD 32 35 36 29 3A  57 4C B2 57 31 AB 32 35  |W1.256):WL.W1.25|
00000760: 36 AC 57 48 3A 97 20 5A  47 AA 33 2C 57 4C 3A 97  |6.WH:. ZG.3,WL:.|
00000770: 20 5A 47 AA 34 2C 57 48  00 3D 49 8A 02 5A 47 B2  | ZG.4,WH.=I..ZG.|
00000780: 5A 47 AA 35 00 45 49 94  02 82 20 5A 00 54 49 9E  |ZG.5.EI... Z.TI.|
00000790: 02 FA D8 20 5A 57 2C 5A  53 AB 31 00 86 49 A8 02  |... ZW,ZS.1..I..|
000007A0: 5A 47 B2 5A 53 3A 27 4E  41 45 43 48 53 54 45 20  |ZG.ZS:'NAECHSTE |
000007B0: 56 45 52 46 55 45 47 42  41 52 45 20 54 41 42 45  |VERFUEGBARE TABE|
000007C0: 4C 4C 45 4E 50 4F 53 49  54 49 4F 4E 27 00 8C 49  |LLENPOSITION'..I|
000007D0: B2 02 3A 00 AA 49 BC 02  27 55 4E 54 45 52 4D 45  |..:..I..'UNTERME|
000007E0: 4E 55 44 41 54 45 4E 20  45 52 46 52 41 47 45 4E  |NUDATEN ERFRAGEN|
000007F0: 27 00 B9 49 C6 02 81 20  5A B2 31 20 A4 20 48 4D  |'..I... Z.1 . HM|
00000800: 00 C9 49 D0 02 FA 02 20  22 44 45 4C 49 4E 50 22  |..I.... "DELINP"|
00000810: 00 0B 4A DA 02 FA 2F 20  FA 30 20 37 2C 31 3B 22  |..J.../ .0 7,1;"|
00000820: CD 45 4E 55 50 55 4E 4B  54 22 3B 5A 3B 22 20 3A  |.ENUPUNKT";Z;" :|
00000830: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000840: 3A FA 2F 20 FA 30 20 37  2C 31 37 3B 48 54 24 28  |:./ .0 7,17;HT$(|
00000850: 5A 29 00 3D 4A E4 02 FA  2F 20 FA 30 20 31 30 2C  |Z).=J.../ .0 10,|
00000860: 31 3B 22 D3 4F 4C 4C 20  44 45 52 20 CD 45 4E 55  |1;".OLL DER .ENU|
00000870: 50 55 4E 4B 54 20 45 49  4E 20 D5 4E 54 45 52 4D  |PUNKT EIN .NTERM|
00000880: 45 4E 55 22 00 78 4A EE  02 FA 2F 20 FA 30 20 31  |ENU".xJ.../ .0 1|
00000890: 31 2C 31 3B 22 45 52 48  41 4C 54 45 4E 3F 20 28  |1,1;"ERHALTEN? (|
000008A0: 4A 2F 4E 29 3A 20 20 20  20 20 20 22 3A FA 2F 20  |J/N):      ":./ |
000008B0: FA 30 20 31 31 2C 31 39  3B 55 31 24 28 5A 29 00  |.0 11,19;U1$(Z).|
000008C0: 8E 4A F8 02 FA 3B 20 31  31 2C 31 37 3A 85 20 55  |.J...; 11,17:. U|
000008D0: 31 24 28 5A 29 00 B2 4A  02 03 FA 6E 20 55 31 24  |1$(Z)..J...n U1$|
000008E0: 28 5A 29 B2 22 4E 22 20  FA 6F 20 FA D0 3A FA 01  |(Z)."N" .o ..:..|
000008F0: 20 22 4C 42 31 22 3A FA  71 00 C2 4A 0C 03 FA 02  | "LB1":.q..J....|
00000900: 20 22 44 45 4C 49 4E 50  22 00 EC 4A 16 03 FA 2F  | "DELINP"..J.../|
00000910: 20 FA 30 20 37 2C 31 3B  22 C1 4E 5A 41 48 4C 20  | .0 7,1;".NZAHL |
00000920: 44 45 52 20 CD 45 4E 55  50 55 4E 4B 54 45 20 44  |DER .ENUPUNKTE D|
00000930: 45 53 22 00 24 4B 20 03  FA 2F 20 FA 30 20 38 2C  |ES".$K ../ .0 8,|
00000940: 31 3B 22 D5 4E 54 45 52  4D 45 4E 55 53 22 3A FA  |1;".NTERMENUS":.|
00000950: 2F 20 FA 30 20 38 2C 31  32 3B 22 28 31 2D 31 30  |/ .0 8,12;"(1-10|
00000960: 29 3A 20 22 3B 4D 31 25  28 5A 29 00 39 4B 2A 03  |): ";M1%(Z).9K*.|
00000970: FA 3B 20 38 2C 31 39 3A  85 20 4D 31 25 28 5A 29  |.; 8,19:. M1%(Z)|
00000980: 00 6D 4B 34 03 FA 2F 20  FA 30 20 31 30 2C 31 3B  |.mK4../ .0 10,1;|
00000990: 22 C8 4F 52 49 5A 4F 4E  54 41 4C 45 20 28 30 29  |".ORIZONTALE (0)|
000009A0: 20 4F 44 45 52 20 56 45  52 54 49 4B 41 4C 45 20  | ODER VERTIKALE |
000009B0: 28 31 29 22 00 A3 4B 3E  03 FA 2F 20 FA 30 20 31  |(1)"..K>../ .0 1|
000009C0: 31 2C 31 3B 22 C1 4E 4F  52 44 4E 55 4E 47 3A 20  |1,1;".NORDNUNG: |
000009D0: 22 3B 4F 31 25 28 5A 29  3A FA 3B 20 31 31 2C 31  |";O1%(Z):.; 11,1|
000009E0: 31 3A 85 20 4F 31 25 28  5A 29 00 CA 4B 48 03 FA  |1:. O1%(Z)..KH..|
000009F0: 2F 20 FA 30 20 31 34 2C  31 3B 22 CB 4F 4F 52 44  |/ .0 14,1;".OORD|
00000A00: 49 4E 41 54 45 4E 20 44  45 53 20 CD 45 4E 55 53  |INATEN DES .ENUS|
00000A10: 22 00 FC 4B 52 03 FA 2F  20 FA 30 20 31 36 2C 31  |"..KR../ .0 16,1|
00000A20: 3B 22 4C 49 4E 4B 45 2C  4F 42 45 52 45 20 C5 43  |;"LINKE,OBERE .C|
00000A30: 4B 45 20 D8 2D D7 45 52  54 3A 20 22 3B 48 31 25  |KE .-.ERT: ";H1%|
00000A40: 28 5A 29 00 12 4C 5C 03  FA 3B 20 31 36 2C 32 35  |(Z)..L\..; 16,25|
00000A50: 3A 85 20 48 31 25 28 5A  29 00 44 4C 66 03 FA 2F  |:. H1%(Z).DLf../|
00000A60: 20 FA 30 20 31 37 2C 31  3B 22 4C 49 4E 4B 45 2C  | .0 17,1;"LINKE,|
00000A70: 4F 42 45 52 45 20 C5 43  4B 45 20 D9 2D D7 45 52  |OBERE .CKE .-.ER|
00000A80: 54 3A 20 22 3B 48 32 25  28 5A 29 00 5A 4C 70 03  |T: ";H2%(Z).ZLp.|
00000A90: FA 3B 20 31 37 2C 32 35  3A 85 20 48 32 25 28 5A  |.; 17,25:. H2%(Z|
00000AA0: 29 00 8E 4C 7A 03 FA 2F  20 FA 30 20 31 39 2C 31  |)..Lz../ .0 19,1|
00000AB0: 3B 22 52 45 43 48 54 45  2C 55 4E 54 45 52 45 20  |;"RECHTE,UNTERE |
00000AC0: C5 43 4B 45 20 D8 2D D7  45 52 54 3A 20 22 3B 48  |.CKE .-.ERT: ";H|
00000AD0: 33 25 28 5A 29 00 A4 4C  84 03 FA 3B 20 31 39 2C  |3%(Z)..L...; 19,|
00000AE0: 32 37 3A 85 20 48 33 25  28 5A 29 00 D8 4C 8E 03  |27:. H3%(Z)..L..|
00000AF0: FA 2F 20 FA 30 20 32 30  2C 31 3B 22 52 45 43 48  |./ .0 20,1;"RECH|
00000B00: 54 45 2C 55 4E 54 45 52  45 20 C5 43 4B 45 20 D9  |TE,UNTERE .CKE .|
00000B10: 2D D7 45 52 54 3A 20 22  3B 48 34 25 28 5A 29 00  |-.ERT: ";H4%(Z).|
00000B20: EE 4C 98 03 FA 3B 20 32  30 2C 32 37 3A 85 20 48  |.L...; 20,27:. H|
00000B30: 34 25 28 5A 29 00 1E 4D  A2 03 FA 2F 20 FA 30 20  |4%(Z)..M.../ .0 |
00000B40: 32 33 2C 31 3B 22 D4 45  58 54 45 20 44 45 52 20  |23,1;".EXTE DER |
00000B50: 45 49 4E 5A 45 4C 4E 45  4E 20 CD 45 4E 55 50 55  |EINZELNEN .ENUPU|
00000B60: 4E 4B 54 45 22 00 32 4D  AC 03 81 20 5A 5A B2 31  |NKTE".2M... ZZ.1|
00000B70: 20 A4 20 4D 31 25 28 5A  29 00 63 4D B6 03 FA 2F  | . M1%(Z).cM.../|
00000B80: 20 FA 30 20 32 34 2C 31  3B 22 CD 45 4E 55 50 55  | .0 24,1;".ENUPU|
00000B90: 4E 4B 54 22 3B 5A 5A 3B  22 3A 20 20 20 20 20 20  |NKT";ZZ;":      |
00000BA0: 20 20 20 20 20 20 20 20  20 22 00 92 4D C0 03 FA  |         "..M...|
00000BB0: 2F 20 FA 30 20 32 34 2C  31 36 3B 55 54 24 28 5A  |/ .0 24,16;UT$(Z|
00000BC0: 2C 5A 5A 29 3A FA 3B 20  32 34 2C 31 34 3A 85 20  |,ZZ):.; 24,14:. |
00000BD0: 55 54 24 28 5A 2C 5A 5A  29 00 9B 4D CA 03 82 20  |UT$(Z,ZZ)..M... |
00000BE0: 5A 5A 00 A1 4D D4 03 3A  00 C2 4D DE 03 27 44 41  |ZZ..M..:..M..'DA|
00000BF0: 54 45 4E 20 49 4E 20 54  41 42 45 4C 4C 45 20 53  |TEN IN TABELLE S|
00000C00: 43 48 52 45 49 42 45 4E  27 00 E0 4D E8 03 57 32  |CHREIBEN'..M..W2|
00000C10: B2 54 42 AA 31 30 34 AA  35 AC 28 5A AB 31 29 3A  |.TB.104.5.(Z.1):|
00000C20: 97 20 57 32 2C 36 34 00  15 4E ED 03 57 31 B2 54  |. W2,64..N..W1.T|
00000C30: 42 AA 33 32 AA 33 AC 28  5A AB 31 29 3A 27 5A 45  |B.32.3.(Z.1):'ZE|
00000C40: 49 47 45 52 20 41 55 46  20 52 55 45 43 4B 53 50  |IGER AUF RUECKSP|
00000C50: 52 55 4E 47 52 4F 55 54  49 4E 45 27 00 47 4E EF  |RUNGROUTINE'.GN.|
00000C60: 03 57 48 B2 B5 28 57 31  AD 32 35 36 29 3A 57 4C  |.WH..(W1.256):WL|
00000C70: B2 57 31 AB 32 35 36 AC  57 48 3A 97 20 57 32 AA  |.W1.256.WH:. W2.|
00000C80: 31 2C 57 4C 3A 97 20 57  32 AA 32 2C 57 48 00 7F  |1,WL:. W2.2,WH..|
00000C90: 4E F2 03 57 48 B2 B5 28  5A 47 AD 32 35 36 29 3A  |N..WH..(ZG.256):|
00000CA0: 57 4C B2 5A 47 AB 32 35  36 AC 57 48 3A 97 20 54  |WL.ZG.256.WH:. T|
00000CB0: 42 AA 37 34 AA 5A 2C 57  4C 3A 97 20 54 42 AA 38  |B.74.Z,WL:. TB.8|
00000CC0: 34 AA 5A 2C 57 48 00 91  4E FC 03 27 4B 4F 4F 52  |4.Z,WH..N..'KOOR|
00000CD0: 44 49 4E 41 54 45 4E 27  00 AF 4E 06 04 97 20 5A  |DINATEN'..N... Z|
00000CE0: 47 2C 48 32 25 28 5A 29  3A 97 20 5A 47 AA 31 2C  |G,H2%(Z):. ZG.1,|
00000CF0: 48 34 25 28 5A 29 00 E9  4E 10 04 57 48 B2 B5 28  |H4%(Z)..N..WH..(|
00000D00: 48 31 25 28 5A 29 AD 32  35 36 29 3A 57 4C B2 48  |H1%(Z).256):WL.H|
00000D10: 31 25 28 5A 29 AB 32 35  36 AC 57 48 3A 97 20 5A  |1%(Z).256.WH:. Z|
00000D20: 47 AA 32 2C 57 4C 3A 97  20 5A 47 AA 33 2C 57 48  |G.2,WL:. ZG.3,WH|
00000D30: 00 23 4F 1A 04 57 48 B2  B5 28 48 33 25 28 5A 29  |.#O..WH..(H3%(Z)|
00000D40: AD 32 35 36 29 3A 57 4C  B2 48 33 25 28 5A 29 AB  |.256):WL.H3%(Z).|
00000D50: 32 35 36 AC 57 48 3A 97  20 5A 47 AA 34 2C 57 4C  |256.WH:. ZG.4,WL|
00000D60: 3A 97 20 5A 47 AA 35 2C  57 48 00 56 4F 24 04 97  |:. ZG.5,WH.VO$..|
00000D70: 20 5A 47 AA 36 2C 28 4D  31 25 28 5A 29 AA 36 34  | ZG.6,(M1%(Z).64|
00000D80: 29 20 B0 20 28 4F 31 25  28 5A 29 AC 31 32 38 29  |) . (O1%(Z).128)|
00000D90: 3A 27 53 54 41 54 55 53  57 45 52 54 27 00 93 4F  |:'STATUSWERT'..O|
00000DA0: 2E 04 5A 47 B2 5A 47 AA  37 3A 5A 53 B2 5A 47 AA  |..ZG.ZG.7:ZS.ZG.|
00000DB0: 35 AC 4D 31 25 28 5A 29  3A 5A 57 B2 5A 53 3A 27  |5.M1%(Z):ZW.ZS:'|
00000DC0: 5A 45 49 47 45 52 20 41  55 46 20 4D 45 4E 55 54  |ZEIGER AUF MENUT|
00000DD0: 45 58 54 41 4E 46 41 4E  47 27 00 BD 4F 38 04 81  |EXTANFANG'..O8..|
00000DE0: 20 5A 5A B2 31 20 A4 20  4D 31 25 28 5A 29 3A 27  | ZZ.1 . M1%(Z):'|
00000DF0: 45 49 4E 5A 45 4C 4E 45  20 4D 45 4E 55 50 55 4E  |EINZELNE MENUPUN|
00000E00: 4B 54 45 27 00 FF 4F 42  04 57 48 B2 B5 28 5A 53  |KTE'..OB.WH..(ZS|
00000E10: AD 32 35 36 29 3A 57 4C  B2 5A 53 AB 32 35 36 AC  |.256):WL.ZS.256.|
00000E20: 57 48 3A 97 20 5A 47 2C  57 4C 3A 97 20 5A 47 AA  |WH:. ZG,WL:. ZG.|
00000E30: 31 2C 57 48 3A 27 5A 45  49 47 45 52 20 41 55 46  |1,WH:'ZEIGER AUF|
00000E40: 20 54 45 58 54 27 00 44  50 4C 04 FA B5 20 5A 53  | TEXT'.DPL... ZS|
00000E50: 2C 55 54 24 28 5A 2C 5A  5A 29 3A 5A 53 B2 5A 53  |,UT$(Z,ZZ):ZS.ZS|
00000E60: AA C3 28 55 54 24 28 5A  2C 5A 5A 29 29 3A 97 20  |..(UT$(Z,ZZ)):. |
00000E70: 5A 53 2C 30 3A 5A 53 B2  5A 53 AA 31 3A 27 54 45  |ZS,0:ZS.ZS.1:'TE|
00000E80: 58 54 20 41 42 4C 45 47  45 4E 27 00 5B 50 56 04  |XT ABLEGEN'.[PV.|
00000E90: 97 20 5A 47 AA 32 2C 30  3A 27 4D 45 4E 55 54 59  |. ZG.2,0:'MENUTY|
00000EA0: 50 27 00 8E 50 60 04 57  31 B2 54 42 AA 33 AC 28  |P'..P`.W1.TB.3.(|
00000EB0: 5A 5A AB 31 29 3A 27 5A  45 49 47 45 52 20 41 55  |ZZ.1):'ZEIGER AU|
00000EC0: 46 20 52 55 45 43 4B 53  50 52 55 4E 47 52 4F 55  |F RUECKSPRUNGROU|
00000ED0: 54 49 4E 45 27 00 C0 50  6A 04 57 48 B2 B5 28 57  |TINE'..Pj.WH..(W|
00000EE0: 31 AD 32 35 36 29 3A 57  4C B2 57 31 AB 32 35 36  |1.256):WL.W1.256|
00000EF0: AC 57 48 3A 97 20 5A 47  AA 33 2C 57 4C 3A 97 20  |.WH:. ZG.3,WL:. |
00000F00: 5A 47 AA 34 2C 57 48 00  CC 50 74 04 5A 47 B2 5A  |ZG.4,WH..Pt.ZG.Z|
00000F10: 47 AA 35 00 D5 50 7E 04  82 20 5A 5A 00 E4 50 88  |G.5..P~.. ZZ..P.|
00000F20: 04 FA D8 20 5A 57 2C 5A  53 AB 31 00 16 51 92 04  |... ZW,ZS.1..Q..|
00000F30: 5A 47 B2 5A 53 3A 27 4E  41 45 43 48 53 54 45 20  |ZG.ZS:'NAECHSTE |
00000F40: 56 45 52 46 55 45 47 42  41 52 45 20 54 41 42 45  |VERFUEGBARE TABE|
00000F50: 4C 4C 45 4E 50 4F 53 49  54 49 4F 4E 27 00 1C 51  |LLENPOSITION'..Q|
00000F60: 9C 04 3A 00 2A 51 A6 04  22 4C 42 31 22 3A 82 20  |..:.*Q.."LB1":. |
00000F70: 5A 00 30 51 B0 04 3A 00  46 51 BA 04 27 4D 45 4E  |Z.0Q..:.FQ..'MEN|
00000F80: 55 20 44 41 52 53 54 45  4C 4C 45 4E 27 00 56 51  |U DARSTELLEN'.VQ|
00000F90: C4 04 FA 02 20 22 44 45  4C 49 4E 50 22 00 8E 51  |.... "DELINP"..Q|
00000FA0: CE 04 FA 2F 20 FA 30 20  31 30 2C 31 3B 22 DA 55  |.../ .0 10,1;".U|
00000FB0: 52 20 C4 41 52 53 54 45  4C 4C 55 4E 47 20 44 45  |R .ARSTELLUNG DE|
00000FC0: 53 20 CD 45 4E 55 53 20  44 52 55 45 43 4B 45 4E  |S .ENUS DRUECKEN|
00000FD0: 20 D3 49 45 22 00 B1 51  D8 04 FA 2F 20 FA 30 20  | .IE"..Q.../ .0 |
00000FE0: 31 31 2C 31 3B 22 42 49  54 54 45 20 45 49 4E 45  |11,1;"BITTE EINE|
00000FF0: 20 D4 41 53 54 45 21 22  00 E8 51 E2 04 FA 2F 20  | .ASTE!"..Q.../ |
00001000: FA 30 20 31 33 2C 31 3B  22 DA 55 4D 20 C1 42 42  |.0 13,1;".UM .BB|
00001010: 52 45 43 48 45 4E 20 45  49 4E 46 41 43 48 20 45  |RECHEN EINFACH E|
00001020: 49 4E 45 4E 20 CD 45 4E  55 50 55 4E 4B 54 22 00  |INEN .ENUPUNKT".|
00001030: 04 52 EC 04 FA 2F 20 FA  30 20 31 34 2C 31 3B 22  |.R.../ .0 14,1;"|
00001040: 41 4E 4B 4C 49 43 4B 45  4E 21 22 00 0B 52 F6 04  |ANKLICKEN!"..R..|
00001050: FA 25 00 2F 52 00 05 FA  D3 3A FA E3 20 30 2C 30  |.%./R....:.. 0,0|
00001060: 2C 33 31 39 2C 31 39 39  2C 32 3A FA D2 20 54 42  |,319,199,2:.. TB|
00001070: AA 39 35 3A FA D4 00 3F  52 0A 05 FA 02 20 22 44  |.95:...?R.... "D|
00001080: 45 4C 49 4E 50 22 00 7A  52 14 05 FA 2F 20 FA 30  |ELINP".zR.../ .0|
00001090: 20 31 30 2C 31 3B 22 CD  45 4E 55 44 41 52 53 54  | 10,1;".ENUDARST|
000010A0: 45 4C 4C 55 4E 47 20 49  4E 20 CF 52 44 4E 55 4E  |ELLUNG IN .RDNUN|
000010B0: 47 3F 20 28 4A 2F 4E 29  3A 22 3B 3A 85 20 45 47  |G? (J/N):";:. EG|
000010C0: 24 00 B2 52 1E 05 FA 6E  20 45 47 24 B2 22 4E 22  |$..R...n EG$."N"|
000010D0: 20 FA 6F 20 FA D0 3A FA  02 20 22 44 45 4C 49 4E  | .o ..:.. "DELIN|
000010E0: 50 22 3A 5A 47 B2 54 42  AA 39 35 3A FA 01 20 22  |P":ZG.TB.95:.. "|
000010F0: 53 54 41 52 54 22 3A FA  71 00 DD 52 28 05 FA 2F  |START":.q..R(../|
00001100: 20 FA 30 20 31 33 2C 31  3B 22 CE 41 4D 45 20 44  | .0 13,1;".AME D|
00001110: 45 52 20 D4 41 42 45 4C  4C 45 3A 20 22 3B 3A 85  |ER .ABELLE: ";:.|
00001120: 20 4E 4D 24 00 0B 53 32  05 FA 53 20 4E 4D 24 2C  | NM$..S2..S NM$,|
00001130: 54 42 2C 5A 47 AB 31 3A  27 54 41 42 45 4C 4C 45  |TB,ZG.1:'TABELLE|
00001140: 20 41 55 46 20 44 49 53  4B 20 41 42 4C 45 47 45  | AUF DISK ABLEGE|
00001150: 4E 27 00 1B 53 3C 05 FA  02 20 22 44 45 4C 49 4E  |N'..S<... "DELIN|
00001160: 50 22 00 4A 53 46 05 FA  2F 20 FA 30 20 36 2C 31  |P".JSF../ .0 6,1|
00001170: 3B 22 C4 49 45 20 D4 41  42 45 4C 4C 45 20 45 52  |;".IE .ABELLE ER|
00001180: 53 54 52 45 43 4B 54 20  53 49 43 48 20 56 4F 4E  |STRECKT SICH VON|
00001190: 22 00 6A 53 50 05 FA 2F  20 FA 30 20 38 2C 31 3B  |".jSP../ .0 8,1;|
000011A0: 54 42 3B 22 42 49 53 22  3B 5A 47 AB 31 3B 22 2E  |TB;"BIS";ZG.1;".|
000011B0: 22 00 A4 53 5A 05 FA 2F  20 FA 30 20 31 30 2C 31  |"..SZ../ .0 10,1|
000011C0: 3B 22 D3 49 45 20 4D 55  53 53 20 4D 49 54 20 27  |;".IE MUSS MIT '|
000011D0: 44 4C 4F 41 44 4D 22 3B  C7 28 33 34 29 3B 4E 4D  |DLOADM";.(34);NM|
000011E0: 24 3B C7 28 33 34 29 3B  22 27 22 00 D8 53 64 05  |$;.(34);"'"..Sd.|
000011F0: FA 2F 20 FA 30 20 31 32  2C 31 3B 22 47 45 4C 41  |./ .0 12,1;"GELA|
00001200: 44 45 4E 20 55 4E 44 20  4D 49 54 20 27 20 50 44  |DEN UND MIT ' PD|
00001210: 4D 45 4E 55 22 3B 54 42  AA 39 35 3B 22 27 22 00  |MENU";TB.95;"'".|
00001220: FB 53 6E 05 FA 2F 20 FA  30 20 31 34 2C 31 3B 22  |.Sn../ .0 14,1;"|
00001230: 47 45 53 54 41 52 54 45  54 20 57 45 52 44 45 4E  |GESTARTET WERDEN|
00001240: 21 22 00 04 54 78 05 FA  25 3A 80 00 0A 54 82 05  |!"..Tx..%:...T..|
00001250: 3A 00 10 54 8C 05 3A 00  16 54 96 05 3A 00 48 54  |:..T..:..T..:.HT|
00001260: A0 05 27 45 49 4E 47 41  42 45 4E 20 4C 4F 45 53  |..'EINGABEN LOES|
00001270: 43 48 45 4E 20 55 4E 44  20 55 45 42 45 52 53 43  |CHEN UND UEBERSC|
00001280: 48 52 49 46 54 20 41 55  53 47 45 42 45 4E 27 00  |HRIFT AUSGEBEN'.|
00001290: 6A 54 AA 05 22 44 45 4C  49 4E 50 22 3A FA 35 3A  |jT.."DELINP":.5:|
000012A0: FA 85 3A FA 3C 20 31 3A  FA 33 20 30 3A FA 34 20  |..:.< 1:.3 0:.4 |
000012B0: 30 00 9A 54 B4 05 FA 2F  20 FA 30 20 32 2C 35 3B  |0..T.../ .0 2,5;|
000012C0: 22 D0 55 4C 4C 2D C4 4F  57 4E 2D CD 45 4E 55 2D  |".ULL-.OWN-.ENU-|
000012D0: C3 4F 4E 53 54 52 55 43  54 49 4F 4E 2D D3 45 54  |.ONSTRUCTION-.ET|
000012E0: 22 00 D4 54 BE 05 FA 2F  20 FA 30 20 33 2C 31 3B  |"..T.../ .0 3,1;|
000012F0: 22 1E A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |"...............|
00001300: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00001310: A3 A3 A3 A3 A3 A3 A3 A3  A3 05 22 00 DA 54 C8 05  |.........."..T..|
00001320: 8E 00 E0 54 D2 05 3A 00  E6 54 DC 05 3A 00 EC 54  |...T..:..T..:..T|
00001330: E6 05 3A 00 15 55 F0 05  27 56 45 52 53 43 48 49  |..:..U..'VERSCHI|
00001340: 45 44 45 4E 45 20 54 41  42 45 4C 4C 45 4E 53 54  |EDENE TABELLENST|
00001350: 41 4E 44 41 52 44 57 45  52 54 45 27 00 5A 55 FA  |ANDARDWERTE'.ZU.|
00001360: 05 83 20 31 36 39 2C 31  2C 34 34 2C 31 36 39 2C  |.. 169,1,44,169,|
00001370: 32 2C 34 34 2C 31 36 39  2C 33 2C 34 34 2C 31 36  |2,44,169,3,44,16|
00001380: 39 2C 34 2C 34 34 2C 31  36 39 2C 35 2C 34 34 2C  |9,4,44,169,5,44,|
00001390: 31 36 39 2C 36 2C 34 34  2C 31 36 39 2C 37 2C 34  |169,6,44,169,7,4|
000013A0: 34 00 79 55 04 06 83 20  31 36 39 2C 38 2C 34 34  |4.yU... 169,8,44|
000013B0: 2C 31 36 39 2C 39 2C 34  34 2C 31 36 39 2C 31 30  |,169,9,44,169,10|
000013C0: 00 8A 55 0E 06 83 20 31  33 33 2C 31 39 30 2C 39  |..U... 133,190,9|
000013D0: 36 00 CF 55 18 06 83 20  31 36 39 2C 31 2C 34 34  |6..U... 169,1,44|
000013E0: 2C 31 36 39 2C 32 2C 34  34 2C 31 36 39 2C 33 2C  |,169,2,44,169,3,|
000013F0: 34 34 2C 31 36 39 2C 34  2C 34 34 2C 31 36 39 2C  |44,169,4,44,169,|
00001400: 35 2C 34 34 2C 31 36 39  2C 36 2C 34 34 2C 31 36  |5,44,169,6,44,16|
00001410: 39 2C 37 2C 34 34 00 EE  55 22 06 83 20 31 36 39  |9,7,44..U".. 169|
00001420: 2C 38 2C 34 34 2C 31 36  39 2C 39 2C 34 34 2C 31  |,8,44,169,9,44,1|
00001430: 36 39 2C 31 30 00 1F 56  2C 06 83 20 31 33 33 2C  |69,10..V,.. 133,|
00001440: 31 39 31 2C 31 36 38 2C  31 38 35 2C 30 2C 30 2C  |191,168,185,0,0,|
00001450: 31 33 33 2C 32 2C 31 38  35 2C 30 2C 30 2C 31 33  |133,2,185,0,0,13|
00001460: 33 2C 33 2C 39 36 00 00  00                       |3,3,96...       |

.A.AD.'PULL-DOWN-MENU-CONSTRUCTION-SET'.
.AN.'(W) 1987 BY MARTIN HECHT'.)BX.'AUF 
DISKETTE UNTER PDM.C.S ABGELEGT'./B..:.5
B..:.;B..:.QB .'INITIALISIERUNG'.PB.... 
"DELINP":'UEBERSCHRIFT'..B.... 24000:'SP
EICHER BEGRENZEN'..B... HT$(10),M1%(10),
O1%(10),H1%(10),H2%(10),H3%(10),H4%(10),
UT$(10,10)..BH.:..BR.:..C..'TABELLENADRE
SSE ERFRAGEN'.3C.../ .0 6,1;"ANFANGSADRE
SSE DER TABELLE: ".PC...; 6,28:. TB:.. "
DELINP".VC..:.XC..'RUECKSPRUNGROUTINE ER
ZEUGEN'..C... ZG.TB . TB.74..C... WT:. Z
G,WT..C".. ZG..C$.W1.TB.74:WH..(W1.256):
WL.W1.256.WH:. TB.65,WL:. TB.66,WH. D&.W
1.TB.84:WH..(W1.256):WL.W1.256.WH:. TB.7
0,WL:. TB.71,WH.-D(.ZG.TB.95.3D,.:.QD6.'
HAUPTMENUDATEN ERFRAGEN'..D@."START":./ 
.0 7,1;"ANZAHL DER MENUPUNKTE DES"..DJ..
/ .0 8,1;"HAUPTMENUS":./ .0 8,12;"(1-10)
: ";HM.HDT..; 8,19:. HM..D^../ .0 10,1;"
HORIZONTALE (0) ODER VERTIKALE (1)".*EH.
./ .0 11,1;"ANORDNUNG: ";HO:.; 11,11:. H
O.QER../ .0 14,1;"KOORDINATEN DES MENUS"
.E|../ .0 16,1;"LINKE,OBERE ECKE X-WERT
: ";H1..E...; 16,25:. H1..E.../ .0 17,1;
"LINKE,OBERE ECKE Y-WERT: ";H2.QE...; 17
,25:. H2..F.../ .0 19,1;"RECHTE,UNTERE E
CKE X-WERT: ";H3..F...; 19,27:. H3.CF...
/ .0 20,1;"RECHTE,UNTERE ECKE Y-WERT: ";
H4.UFB..; 20,27:. H4..FL../ .0 23,1;"TEX
TE DER EINZELNEN MENUPUNKTE"..FV.. Z.1 .
 HM.CF.../ .0 24,1;"MENUPUNKT";Z;":     
         "..F.../ .0 24,16;HT$(Z):.; 24,
14:. HT$(Z)..F... Z..F..:."G..'HAUPTMENU
DATEN IN TABELLE ABLEGEN'.4G..'KOORDINAT
EN'.JG... ZG,H2:. ZG.1,H4.|G&.WH..(H1.25
6):WL.H1.256.WH:. ZG.2,WL:. ZG.3,WH..G0.
WH..(H3.256):WL.H3.256.WH:. ZG.4,WL:. ZG
.5,WH.WG:.. ZG.6,HM.64 . (HO.128):'STATU
SWERT'..HD.ZG.ZG.7:ZS.ZG.5.HM:ZW.ZS:'ZEI
GER AUF MENUTEXTANFANG'.5HN.. Z.1 . HM:'
EINZELNE MENUPUNKTE'.WHX.WH..(ZS.256):WL
.ZS.256.WH:. ZG,WL:. ZG.1,WH:'ZEIGER AUF
 TEXT'..HB... ZS,HT$(Z):ZS.ZS.C(HT$(Z)):
. ZS,0:ZS.ZS.1:'TEXT ABLEGEN'.MHL.. ZG.2
,0:'MENUTYP'..HV.W1.TB.3.(Z.1):'ZEIGER A
UF RUECKSPRUNGROUTINE'.1I..WH..(W1.256):
WL.W1.256.WH:. ZG.3,WL:. ZG.4,WH.=I..ZG.
ZG.5.EI... Z.TI...X ZW,ZS.1..I..ZG.ZS:'N
AECHSTE VERFUEGBARE TABELLENPOSITION'..I
..:..I..'UNTERMENUDATEN ERFRAGEN'..IF.. 
Z.1 . HM.IIP... "DELINP"..JZ../ .0 7,1;"
MENUPUNKT";Z;" :               ":./ .0 7
,17;HT$(Z).=J.../ .0 10,1;"SOLL DER MENU
PUNKT EIN UNTERMENU".XJ.../ .0 11,1;"ERH
ALTEN? (J/N):      ":./ .0 11,19;U1$(Z).
.J...; 11,17:. U1$(Z)..J...N U1$(Z)."N" 
.O .P:.. "LB1":.Q.BJ.... "DELINP"..J.../
 .0 7,1;"ANZAHL DER MENUPUNKTE DES".$K .
./ .0 8,1;"UNTERMENUS":./ .0 8,12;"(1-10
): ";M1%(Z).9K*..; 8,19:. M1%(Z).MK4../ 
.0 10,1;"HORIZONTALE (0) ODER VERTIKALE 
(1)"..K>../ .0 11,1;"ANORDNUNG: ";O1%(Z)
:.; 11,11:. O1%(Z).JKH../ .0 14,1;"KOORD
INATEN DES MENUS"..KR../ .0 16,1;"LINKE,
OBERE ECKE X-WERT: ";H1%(Z)..L\..; 16,25
:. H1%(Z).DLF../ .0 17,1;"LINKE,OBERE EC
KE Y-WERT: ";H2%(Z).ZLP..; 17,25:. H2%(Z
)..LZ../ .0 19,1;"RECHTE,UNTERE ECKE X-W
ERT: ";H3%(Z)..L...; 19,27:. H3%(Z).XL..
./ .0 20,1;"RECHTE,UNTERE ECKE Y-WERT: "
;H4%(Z)..L...; 20,27:. H4%(Z)..M.../ .0 
23,1;"TEXTE DER EINZELNEN MENUPUNKTE".2M
... ZZ.1 . M1%(Z).CM.../ .0 24,1;"MENUPU
NKT";ZZ;":               "..M.../ .0 24,
16;UT$(Z,ZZ):.; 24,14:. UT$(Z,ZZ)..MJ.. 
ZZ..MT.:.BM..'DATEN IN TABELLE SCHREIBEN
'..M..W2.TB.104.5.(Z.1):. W2,64..N..W1.T
B.32.3.(Z.1):'ZEIGER AUF RUECKSPRUNGROUT
INE'.GN..WH..(W1.256):WL.W1.256.WH:. W2.
1,WL:. W2.2,WH.N..WH..(ZG.256):WL.ZG.25
6.WH:. TB.74.Z,WL:. TB.84.Z,WH..N..'KOOR
DINATEN'..N... ZG,H2%(Z):. ZG.1,H4%(Z)..
N..WH..(H1%(Z).256):WL.H1%(Z).256.WH:. Z
G.2,WL:. ZG.3,WH.#O..WH..(H3%(Z).256):WL
.H3%(Z).256.WH:. ZG.4,WL:. ZG.5,WH.VO$..
 ZG.6,(M1%(Z).64) . (O1%(Z).128):'STATUS
WERT'..O..ZG.ZG.7:ZS.ZG.5.M1%(Z):ZW.ZS:'
ZEIGER AUF MENUTEXTANFANG'..O8.. ZZ.1 . 
M1%(Z):'EINZELNE MENUPUNKTE'..OB.WH..(ZS
.256):WL.ZS.256.WH:. ZG,WL:. ZG.1,WH:'ZE
IGER AUF TEXT'.DPL... ZS,UT$(Z,ZZ):ZS.ZS
.C(UT$(Z,ZZ)):. ZS,0:ZS.ZS.1:'TEXT ABLEG
EN'.[PV.. ZG.2,0:'MENUTYP'..P`.W1.TB.3.(
ZZ.1):'ZEIGER AUF RUECKSPRUNGROUTINE'..P
J.WH..(W1.256):WL.W1.256.WH:. ZG.3,WL:. 
ZG.4,WH.LPT.ZG.ZG.5.UP~.. ZZ..P...X ZW,Z
S.1..Q..ZG.ZS:'NAECHSTE VERFUEGBARE TABE
LLENPOSITION'..Q..:.*Q.."LB1":. Z.0Q..:.
FQ..'MENU DARSTELLEN'.VQD... "DELINP"..Q
N../ .0 10,1;"ZUR DARSTELLUNG DES MENUS 
DRUECKEN SIE"..QX../ .0 11,1;"BITTE EINE
 TASTE!"..Q.../ .0 13,1;"ZUM ABBRECHEN E
INFACH EINEN MENUPUNKT"..R.../ .0 14,1;"
ANKLICKEN!"..R...%./R...S:.. 0,0,319,199
,2:.R TB.95:.T.?R.... "DELINP".ZR.../ .0
 10,1;"MENUDARSTELLUNG IN ORDNUNG? (J/N)
:";:. EG$..R...N EG$."N" .O .P:.. "DELIN
P":ZG.TB.95:.. "START":.Q..R(../ .0 13,1
;"NAME DER TABELLE: ";:. NM$..S2..S NM$,
TB,ZG.1:'TABELLE AUF DISK ABLEGEN'..S<..
. "DELINP".JSF../ .0 6,1;"DIE TABELLE ER
STRECKT SICH VON".JSP../ .0 8,1;TB;"BIS"
;ZG.1;"."..SZ../ .0 10,1;"SIE MUSS MIT '
DLOADM";G(34);NM$;G(34);"'".XSD../ .0 12
,1;"GELADEN UND MIT ' PDMENU";TB.95;"'".
.SN../ .0 14,1;"GESTARTET WERDEN!"..TX..
%:...T..:..T..:..T..:.HT .'EINGABEN LOES
CHEN UND UEBERSCHRIFT AUSGEBEN'.JT.."DEL
INP":.5:..:.< 1:.3 0:.4 0..T.../ .0 2,5;
"PULL-DOWN-MENU-CONSTRUCTION-SET".TT.../
 .0 3,1;"...............................
..........".ZTH....TR.:..T..:..T..:..U..
'VERSCHIEDENE TABELLENSTANDARDWERTE'.ZU.
.. 169,1,44,169,2,44,169,3,44,169,4,44,1
69,5,44,169,6,44,169,7,44.YU... 169,8,44
,169,9,44,169,10..U... 133,190,96.OU... 
169,1,44,169,2,44,169,3,44,169,4,44,169,
5,44,169,6,44,169,7,44..U".. 169,8,44,16
9,9,44,169,10..V,.. 133,191,168,185,0,0,
133,2,185,0,0,133,3,96...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL