PULLDOWN MAKER

00000000: 01 08 20 08 09 00 8B 46  4C B2 30 A7 86 4D 28 35  |.. ....FL.0..M(5|
00000010: 29 2C 4D 24 28 35 29 2C  42 24 28 35 2C 31 31 29  |),M$(5),B$(5,11)|
00000020: 00 50 08 0A 00 8B 46 4C  B2 30 A7 46 4C B2 31 3A  |.P....FL.0.FL.1:|
00000030: 99 22 93 20 4C 4F 41 44  49 4E 47 20 50 44 31 2D  |.". LOADING PD1-|
00000040: 34 2E 2E 2E 22 3A 93 22  50 44 31 22 2C 38 2C 31  |4...":."PD1",8,1|
00000050: 00 6A 08 0B 00 8B 46 4C  B2 31 A7 46 4C B2 32 3A  |.j....FL.1.FL.2:|
00000060: 93 22 50 44 32 22 2C 38  2C 31 00 84 08 0C 00 8B  |."PD2",8,1......|
00000070: 46 4C B2 32 A7 46 4C B2  33 3A 93 22 50 44 33 22  |FL.2.FL.3:."PD3"|
00000080: 2C 38 2C 31 00 9E 08 0D  00 8B 46 4C B2 33 A7 46  |,8,1......FL.3.F|
00000090: 4C B2 34 3A 93 22 50 44  34 22 2C 38 2C 31 00 BB  |L.4:."PD4",8,1..|
000000A0: 08 0E 00 99 22 93 50 55  4C 4C 44 4F 57 4E 20 4D  |....".PULLDOWN M|
000000B0: 45 4E 55 45 20 4D 41 4B  45 52 22 00 D9 08 0F 00  |ENUE MAKER".....|
000000C0: 9F 31 2C 38 2C 31 35 3A  98 31 2C 22 52 3A 48 23  |.1,8,15:.1,"R:H#|
000000D0: 48 23 48 23 3D 50 44 30  22 00 F2 08 10 00 84 31  |H#H#=PD0"......1|
000000E0: 2C 41 2C 42 24 2C 43 2C  44 3A 8B 41 B3 B1 30 A7  |,A,B$,C,D:.A..0.|
000000F0: 32 30 00 32 09 11 00 98  31 2C 22 52 3A 50 44 30  |20.2....1,"R:PD0|
00000100: 3D 48 23 48 23 48 23 22  3A 99 22 11 11 20 50 44  |=H#H#H#":.".. PD|
00000110: 30 20 45 58 49 53 54 49  45 52 54 20 53 43 48 4F  |0 EXISTIERT SCHO|
00000120: 4E 20 41 55 46 20 44 49  45 53 45 52 20 44 49 53  |N AUF DIESER DIS|
00000130: 4B 22 00 5C 09 12 00 99  22 41 4E 44 45 52 45 20  |K".\...."ANDERE |
00000140: 44 49 53 4B 20 45 49 4E  4C 45 47 45 4E 2C 20 3C  |DISK EINLEGEN, <|
00000150: 20 12 52 45 54 55 52 4E  92 20 3E 22 00 6C 09 13  | .RETURN. >".l..|
00000160: 00 85 20 41 24 3A A0 31  3A 89 31 35 00 7A 09 14  |.. A$:.1:.15.z..|
00000170: 00 98 31 2C 22 49 22 3A  A0 31 00 AA 09 15 00 99  |..1,"I":.1......|
00000180: 22 11 11 11 45 53 20 53  54 45 48 45 4E 20 35 20  |"...ES STEHEN 5 |
00000190: 4F 42 45 52 4D 45 4E 55  45 53 20 5A 55 52 20 56  |OBERMENUES ZUR V|
000001A0: 45 52 46 55 45 47 55 4E  47 2E 00 D1 09 16 00 99  |ERFUEGUNG.......|
000001B0: 22 11 42 49 54 54 45 20  47 45 42 45 4E 20 53 49  |".BITTE GEBEN SI|
000001C0: 45 20 44 49 45 20 4E 41  4D 45 4E 20 45 49 4E 3A  |E DIE NAMEN EIN:|
000001D0: 22 00 16 0A 17 00 99 22  11 53 54 45 4C 4C 45 4E  |"......".STELLEN|
000001E0: 20 53 49 45 20 44 49 45  20 47 52 4F 53 53 2F 4B  | SIE DIE GROSS/K|
000001F0: 4C 45 49 4E 20 53 43 48  52 45 49 42 55 4E 47 20  |LEIN SCHREIBUNG |
00000200: 57 49 45 20 49 4D 20 50  52 4F 47 52 41 4D 4D 20  |WIE IM PROGRAMM |
00000210: 45 49 4E 20 11 11 00 33  0A 1E 00 81 58 B2 31 A4  |EIN ...3....X.1.|
00000220: 35 3A 42 24 B2 22 20 22  3A 8B 58 B2 35 A7 42 24  |5:B$." ":.X.5.B$|
00000230: B2 22 22 00 45 0A 28 00  99 22 4D 45 4E 55 45 22  |."".E.(.."MENUE"|
00000240: 58 22 3A 22 3B 00 4D 0A  32 00 85 54 24 00 6A 0A  |X":";.M.2..T$.j.|
00000250: 3C 00 8B C3 28 54 24 29  B1 37 AA 28 58 B2 35 29  |<...(T$).7.(X.5)|
00000260: A7 99 22 91 22 3B 3A 89  34 30 00 70 0A 46 00 99  |..".";:.40.p.F..|
00000270: 00 87 0A 50 00 8B C3 28  54 24 29 B2 37 AA 28 58  |...P...(T$).7.(X|
00000280: B2 35 29 A7 31 30 30 00  99 0A 5A 00 54 24 B2 54  |.5).100...Z.T$.T|
00000290: 24 AA 22 20 22 3A 89 38  30 00 BB 0A 64 00 4D 24  |$." ":.80...d.M$|
000002A0: 28 58 29 B2 54 24 3A 54  24 B2 22 22 3A 99 3A 99  |(X).T$:T$."":.:.|
000002B0: 22 91 1D 1D 1D 1D 1D 1D  1D 20 22 00 C1 0A 6E 00  |"........ "...n.|
000002C0: 82 00 CD 0A 78 00 4D 45  24 B2 22 20 22 00 ED 0A  |....x.ME$." "...|
000002D0: 82 00 81 58 B2 31 A4 35  3A 4D 45 24 B2 4D 45 24  |...X.1.5:ME$.ME$|
000002E0: AA 4D 24 28 58 29 AA 22  20 22 3A 82 58 00 0C 0B  |.M$(X)." ":.X...|
000002F0: 8C 00 99 22 93 22 4D 45  24 3B 3A 81 58 B2 31 A4  |..."."ME$;:.X.1.|
00000300: 34 30 3A 99 22 3D 22 3B  3A 3A 82 58 00 42 0B 96  |40:."=";::.X.B..|
00000310: 00 99 3A 99 22 11 11 11  5E 53 4F 20 53 49 45 48  |..:."...^SO SIEH|
00000320: 54 20 44 49 45 20 4B 4F  50 46 5A 45 49 4C 45 20  |T DIE KOPFZEILE |
00000330: 41 55 53 2E 20 4F 4B 20  28 20 12 4A 2F 4E 92 20  |AUS. OK ( .J/N. |
00000340: 29 22 00 55 0B A0 00 A1  41 24 3A 8B 41 24 B2 22  |)".U....A$:.A$."|
00000350: 22 A7 31 36 30 00 65 0B  AA 00 8B 41 24 B3 B1 22  |".160.e....A$.."|
00000360: 4A 22 A7 31 30 00 91 0B  C8 00 99 22 93 11 4A 45  |J".10......"..JE|
00000370: 54 5A 54 20 44 49 45 20  41 4E 5A 48 4C 20 42 45  |TZT DIE ANZHL BE|
00000380: 46 45 48 4C 45 20 50 52  4F 20 4D 45 4E 55 45 3A  |FEHLE PRO MENUE:|
00000390: 22 00 9C 0B D2 00 81 58  B2 31 A4 35 00 BB 0B DC  |"......X.1.5....|
000003A0: 00 99 22 11 4D 45 4E 55  45 22 58 22 3A 20 22 AA  |..".MENUE"X": ".|
000003B0: 4D 24 28 58 29 3A 85 4D  28 58 29 00 DC 0B E6 00  |M$(X):.M(X).....|
000003C0: 8B 4D 28 58 29 B1 31 30  B0 4D 28 58 29 B3 31 A7  |.M(X).10.M(X).1.|
000003D0: 99 22 91 91 91 22 3B 3A  89 32 32 30 00 E2 0B F0  |."...";:.220....|
000003E0: 00 82 00 02 0C FA 00 99  22 93 11 55 4E 44 20 4A  |........"..UND J|
000003F0: 45 54 5A 54 20 44 49 45  20 42 45 46 45 48 4C 45  |ETZT DIE BEFEHLE|
00000400: 3A 22 00 32 0C 04 01 81  58 B2 31 A4 35 3A 99 22  |:".2....X.1.5:."|
00000410: 11 46 55 45 52 20 4D 45  4E 55 45 22 58 22 3A 20  |.FUER MENUE"X": |
00000420: 22 4D 24 28 58 29 22 20  28 22 4D 28 58 29 22 29  |"M$(X)" ("M(X)")|
00000430: 11 22 00 40 0C 0E 01 81  59 B2 31 A4 4D 28 58 29  |.".@....Y.1.M(X)|
00000440: 00 53 0C 18 01 99 59 22  3A 22 3A 85 42 24 28 58  |.S....Y":":.B$(X|
00000450: 2C 59 29 00 71 0C 22 01  8B C3 28 42 24 28 58 2C  |,Y).q."...(B$(X,|
00000460: 59 29 29 B1 31 37 A7 99  22 91 22 3B 3A 89 32 38  |Y)).17..".";:.28|
00000470: 30 00 88 0C 23 01 8B C3  28 42 24 28 58 2C 59 29  |0...#...(B$(X,Y)|
00000480: 29 B2 31 37 A7 32 39 33  00 A5 0C 24 01 42 24 28  |).17.293...$.B$(|
00000490: 58 2C 59 29 B2 42 24 28  58 2C 59 29 AA 22 20 22  |X,Y).B$(X,Y)." "|
000004A0: 3A 89 32 39 31 00 C3 0C  25 01 42 24 28 58 2C 59  |:.291...%.B$(X,Y|
000004B0: 29 B2 22 B4 20 22 AA 42  24 28 58 2C 59 29 AA 22  |).". ".B$(X,Y)."|
000004C0: 20 AA 22 00 ED 0C 2C 01  82 59 3A 42 24 28 58 2C  | ."...,..Y:B$(X,|
000004D0: 59 29 B2 22 CC AF AF AF  AF AF AF AF AF AF AF AF  |Y)."............|
000004E0: AF AF AF AF AF AF AF AF  BA 22 3A 82 58 00 15 0D  |.........":.X...|
000004F0: 36 01 99 22 93 11 11 20  20 28 31 29 20 55 45 42  |6.."...  (1) UEB|
00000500: 45 52 53 49 43 48 54 20  41 4D 20 42 49 4C 44 53  |ERSICHT AM BILDS|
00000510: 43 48 49 52 4D 00 3A 0D  37 01 99 22 11 20 20 28  |CHIRM.:.7..".  (|
00000520: 32 29 20 55 45 42 45 52  53 49 43 48 54 20 41 55  |2) UEBERSICHT AU|
00000530: 46 20 44 52 55 43 4B 45  52 22 00 66 0D 38 01 99  |F DRUCKER".f.8..|
00000540: 22 11 20 20 28 33 29 20  44 41 54 45 4E 20 45 52  |".  (3) DATEN ER|
00000550: 52 45 43 48 4E 45 4E 20  55 4E 44 20 53 50 45 49  |RECHNEN UND SPEI|
00000560: 43 48 45 52 4E 22 00 83  0D 40 01 A1 41 24 3A 41  |CHERN"...@..A$:A|
00000570: B2 C5 28 41 24 29 3A 8B  41 B3 31 B0 41 B1 33 A7  |..(A$):.A.1.A.3.|
00000580: 33 32 30 00 90 0D 4A 01  8B 41 B2 33 A7 35 30 30  |320...J..A.3.500|
00000590: 00 9B 0D 54 01 9F 31 2C  32 AA 41 00 AC 0D 5E 01  |...T..1,2.A...^.|
000005A0: 98 31 3A 98 31 3A 98 31  2C 4D 45 24 00 C9 0D 68  |.1:.1:.1,ME$...h|
000005B0: 01 81 58 B2 31 A4 35 3A  98 31 3A 98 31 2C 4D 24  |..X.1.5:.1:.1,M$|
000005C0: 28 58 29 22 3A 22 3A 98  31 00 E8 0D 72 01 81 59  |(X)":":.1...r..Y|
000005D0: B2 31 A4 4D 28 58 29 3A  98 31 2C 59 22 20 20 2D  |.1.M(X):.1,Y"  -|
000005E0: 22 42 24 28 58 2C 59 29  00 02 0E 73 01 82 3A 97  |"B$(X,Y)...s..:.|
000005F0: 31 39 38 2C 30 3A 92 31  39 38 2C 31 3A 99 22 93  |198,0:.198,1:.".|
00000600: 22 3B 00 11 0E 7C 01 82  58 3A A0 31 3A 89 33 31  |";...|..X:.1:.31|
00000610: 30 00 49 0E F4 01 99 22  93 11 11 11 11 42 49 54  |0.I....".....BIT|
00000620: 54 45 20 57 41 52 54 45  4E 2C 49 43 48 20 52 45  |TE WARTEN,ICH RE|
00000630: 43 48 4E 45 11 13 20 5F  20 48 49 45 52 20 43 4F  |CHNE.. _ HIER CO|
00000640: 44 45 54 45 53 54 20 21  22 00 4F 0E FE 01 3A 00  |DETEST !".O...:.|
00000650: 69 0E 08 02 4C B2 34 39  34 30 38 3A 54 24 B2 4D  |i...L.49408:T$.M|
00000660: 45 24 3A 8D 31 30 30 30  30 00 74 0E 12 02 81 58  |E$:.10000.t....X|
00000670: B2 31 A4 35 00 88 0E 1C  02 97 35 30 39 32 37 AA  |.1.5......50927.|
00000680: 58 2C 4D 28 58 29 AB 31  00 8E 0E 26 02 82 00 9A  |X,M(X).1...&....|
00000690: 0E 30 02 4C B2 35 31 37  31 32 00 AD 0E 3A 02 81  |.0.L.51712...:..|
000006A0: 58 B2 31 A4 35 3A 4C B2  4C AA 32 35 36 00 DB 0E  |X.1.5:L.L.256...|
000006B0: 44 02 54 24 B2 22 22 3A  81 59 B2 31 A4 4D 28 58  |D.T$."":.Y.1.M(X|
000006C0: 29 AA 31 3A 54 24 B2 54  24 AA 42 24 28 58 2C 59  |).1:T$.T$.B$(X,Y|
000006D0: 29 3A 82 59 3A 8D 31 30  30 30 30 00 E1 0E 4E 02  |):.Y:.10000...N.|
000006E0: 82 00 07 0F 58 02 99 22  93 20 20 20 20 20 20 20  |....X..".       |
000006F0: 20 5F 20 43 4F 55 4E 54  44 4F 57 4E 20 20 20 20  | _ COUNTDOWN    |
00000700: 20 20 20 20 20 20 22 00  2E 0F 5C 02 99 22 44 49  |      "...\.."DI|
00000710: 53 4B 45 54 54 45 20 45  49 4E 4C 45 47 45 4E 20  |SKETTE EINLEGEN |
00000720: 20 3C 20 12 52 45 54 55  52 4E 92 20 3E 22 00 41  | < .RETURN. >".A|
00000730: 0F 5D 02 A1 41 24 3A 8B  41 24 B2 22 22 A7 36 30  |.]..A$:.A$."".60|
00000740: 35 00 62 0F 62 02 99 22  13 11 11 11 11 11 11 49  |5.b.b..".......I|
00000750: 43 48 20 53 50 45 49 43  48 52 45 20 4A 45 54 5A  |CH SPEICHRE JETZ|
00000760: 54 22 00 77 0F 6C 02 9F  31 2C 38 2C 32 2C 22 50  |T".w.l..1,8,2,"P|
00000770: 44 30 2C 50 2C 57 22 00  8B 0F 76 02 98 31 2C C7  |D0,P,W"...v..1,.|
00000780: 28 30 29 3B C7 28 31 39  32 29 3B 00 B0 0F 80 02  |(0);.(192);.....|
00000790: 81 58 B2 34 39 31 35 32  A4 35 33 32 34 37 3A 99  |.X.49152.53247:.|
000007A0: 22 13 22 35 33 32 34 37  AB 58 22 20 20 20 20 22  |"."53247.X"    "|
000007B0: 00 C6 0F 8A 02 98 31 2C  C7 28 C2 28 58 29 29 3B  |......1,.(.(X));|
000007C0: 3A 82 58 3A A0 31 00 F0  0F BC 02 99 22 93 11 11  |:.X:.1......"...|
000007D0: 11 43 4F 44 45 54 41 42  45 4C 4C 45 20 41 55 53  |.CODETABELLE AUS|
000007E0: 44 52 55 43 4B 45 4E 20  28 12 4C 2F 4E 92 29 22  |DRUCKEN (.L/N.)"|
000007F0: 00 03 10 C6 02 A1 41 24  3A 8B 41 24 B2 22 22 A7  |......A$:.A$."".|
00000800: 37 31 30 00 15 10 D0 02  8B 41 24 B3 B1 22 4A 22  |710......A$.."J"|
00000810: A7 39 39 39 39 00 1E 10  DA 02 9F 31 2C 34 00 48  |.9999......1,4.H|
00000820: 10 E4 02 98 31 2C 22 43  4F 44 45 54 41 42 45 4C  |....1,"CODETABEL|
00000830: 4C 45 20 46 55 45 52 20  50 55 4C 4C 44 4F 57 4E  |LE FUER PULLDOWN|
00000840: 2D 4D 45 4E 55 45 53 22  00 66 10 EE 02 98 31 3A  |-MENUES".f....1:|
00000850: 98 31 2C 22 4B 4F 50 46  5A 45 49 4C 45 3A 22 3A  |.1,"KOPFZEILE:":|
00000860: 98 31 2C 4D 45 24 00 80  10 F8 02 81 58 B2 31 A4  |.1,ME$......X.1.|
00000870: 35 3A 98 31 3A 98 31 2C  4D 24 28 58 29 3A 98 31  |5:.1:.1,M$(X):.1|
00000880: 00 AF 10 02 03 81 59 B2  31 A4 4D 28 58 29 3A 98  |......Y.1.M(X):.|
00000890: 31 2C 28 58 AB 31 29 AC  31 30 AA 59 AB 31 3B A3  |1,(X.1).10.Y.1;.|
000008A0: 35 29 3B 42 24 28 58 2C  59 29 3A 82 59 2C 58 00  |5);B$(X,Y):.Y,X.|
000008B0: D3 10 0C 03 98 31 3A 98  31 2C 39 39 3B A3 35 29  |.....1:.1,99;.5)|
000008C0: 22 51 55 49 54 20 4F 48  4E 45 20 41 55 53 57 41  |"QUIT OHNE AUSWA|
000008D0: 48 4C 22 00 DA 10 16 03  A0 31 00 E0 10 0F 27 80  |HL"......1....'.|
000008E0: 00 E6 10 10 27 3A 00 02  11 1A 27 81 49 B2 31 A4  |....':....'.I.1.|
000008F0: C3 28 54 24 29 3A 41 24  B2 CA 28 54 24 2C 49 2C  |.(T$):A$..(T$,I,|
00000900: 31 29 00 0F 11 24 27 99  22 13 22 3B 41 24 3B 00  |1)...$'.".";A$;.|
00000910: 22 11 2E 27 97 4C AA 49  AB 31 2C C2 28 31 30 32  |"..'.L.I.1,.(102|
00000920: 34 29 00 28 11 38 27 82  00 2E 11 42 27 8E 00 00  |4).(.8'....B'...|
00000930: 00                                                |.               |

.. ....FL.0..M(5),M$(5),B$(5,11).P....FL
.0.FL.1:.". LOADING PD1-4...":."PD1",8,1
.J....FL.1.FL.2:."PD2",8,1......FL.2.FL.
3:."PD3",8,1......FL.3.FL.4:."PD4",8,1..
....".PULLDOWN MENUE MAKER".Y....1,8,15:
.1,"R:H#H#H#=PD0"......1,A,B$,C,D:.A..0.
20.2....1,"R:PD0=H#H#H#":.".. PD0 EXISTI
ERT SCHON AUF DIESER DISK".\...."ANDERE 
DISK EINLEGEN, < .RETURN. >".L.... A$: 1
:.15.Z....1,"I": 1......"...ES STEHEN 5 
OBERMENUES ZUR VERFUEGUNG..Q....".BITTE 
GEBEN SIE DIE NAMEN EIN:"......".STELLEN
 SIE DIE GROSS/KLEIN SCHREIBUNG WIE IM P
ROGRAMM EIN ...3....X.1.5:B$." ":.X.5.B$
."".E.(.."MENUE"X":";.M.2..T$.J.<..C(T$)
.7.(X.5)..".";:.40.P.F.....P..C(T$).7.(X
.5).100...Z.T$.T$." ":.80...D.M$(X).T$:T
$."":.:."........ ".A.N...M.X.ME$." "...
...X.1.5:ME$.ME$.M$(X)." ":.X......"."ME
$;:.X.1.40:."=";::.X.B....:."...^SO SIEH
T DIE KOPFZEILE AUS. OK ( .J/N. )".U. ..
A$:.A$."".160.E....A$.."J".10...H.."..JE
TZT DIE ANZHL BEFEHLE PRO MENUE:"...R..X
.1.5......".MENUE"X": ".M$(X):.M(X).....
.M(X).10.M(X).1.."...";:.220............
"..UND JETZT DIE BEFEHLE:".2....X.1.5:."
.FUER MENUE"X": "M$(X)" ("M(X)").".@....
Y.1.M(X).S....Y":":.B$(X,Y).Q."..C(B$(X,
Y)).17..".";:.280...#..C(B$(X,Y)).17.293
...$.B$(X,Y).B$(X,Y)." ":.291.C.%.B$(X,Y
).". ".B$(X,Y)." ."...,..Y:B$(X,Y)."L...
.................":.X...6.."...  (1) UEB
ERSICHT AM BILDSCHIRM.:.7..".  (2) UEBER
SICHT AUF DRUCKER".F.8..".  (3) DATEN ER
RECHNEN UND SPEICHERN"...@..A$:A.E(A$):.
A.1.A.3.320...J..A.3.500...T..1,2.A...^.
.1:.1:.1,ME$.I.H..X.1.5:.1:.1,M$(X)":":.
1...R..Y.1.M(X):.1,Y"  -"B$(X,Y)...S..:.
198,0:.198,1:.".";...|..X: 1:.310.I...."
.....BITTE WARTEN,ICH RECHNE.. _ HIER CO
DETEST !".O...:.I...L.49408:T$.ME$:.1000
0.T....X.1.5......50927.X,M(X).1...&....
.0.L.51712...:..X.1.5:L.L.256...D.T$."":
.Y.1.M(X).1:T$.T$.B$(X,Y):.Y:.10000...N.
....X..".        _ COUNTDOWN          ".
..\.."DISKETTE EINLEGEN  < .RETURN. >".A
.]..A$:.A$."".605.B.B..".......ICH SPEIC
HRE JETZT".W.L..1,8,2,"PD0,P,W"...V..1,G
(0);G(192);......X.49152.53247:."."53247
.X"    ".F....1,G(B(X));:.X: 1......"...
.CODETABELLE AUSDRUCKEN (.L/N.)"...F..A$
:.A$."".710...P..A$.."J".9999...Z..1,4.H
....1,"CODETABELLE FUER PULLDOWN-MENUES"
.F....1:.1,"KOPFZEILE:":.1,ME$......X.1.
5:.1:.1,M$(X):.1......Y.1.M(X):.1,(X.1).
10.Y.1;.5);B$(X,Y):.Y,X.S....1:.1,99;.5)
"QUIT OHNE AUSWAHL".Z... 1....'.....':..
..'.I.1.C(T$):A$.J(T$,I,1)...$'.".";A$;.
"..'.L.I.1,B(1024).(.8'....B'....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL