> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 02 00 8F 20 20 20 2A 2A 2A 2A 2A 2A |..".... ******|
00000010: 20 4D 45 4E 55 45 2D 44 45 4D 4F 20 2A 2A 2A 2A | MENUE-DEMO ****|
00000020: 2A 2A 00 40 08 04 00 97 35 33 32 38 30 2C 30 3A |**.@....53280,0:|
00000030: 97 35 33 32 38 31 2C 30 3A 99 C7 28 31 34 37 29 |.53281,0:..(147)|
00000040: 00 67 08 05 00 8F 20 2A 20 2A 20 2A 20 4D 45 4E |.g.... * * * MEN|
00000050: 55 45 2D 57 4F 52 54 45 20 45 49 4E 4C 45 53 45 |UE-WORTE EINLESE|
00000060: 4E 20 2A 20 2A 20 2A 00 A0 08 06 00 41 4D B2 31 |N * * *.....AM.1|
00000070: 32 3A 86 44 24 28 41 4D AA 31 29 3A 86 41 41 28 |2:.D$(AM.1):.AA(|
00000080: 41 4D AA 31 29 3A 8F 20 41 4D 3D 4D 41 58 2E 20 |AM.1):. AM=MAX. |
00000090: 41 4E 5A 41 48 4C 20 44 45 52 20 57 4F 52 54 45 |ANZAHL DER WORTE|
000000A0: 00 A8 08 07 00 49 B2 31 00 E2 08 08 00 87 44 24 |.....I.1......D$|
000000B0: 28 49 29 3A 44 24 28 49 29 B2 C7 28 33 32 29 AA |(I):D$(I)..(32).|
000000C0: 44 24 28 49 29 AA C7 28 33 32 29 3A 8B 44 24 28 |D$(I)..(32):.D$(|
000000D0: 49 29 B3 B1 22 20 5F 20 22 A7 49 B2 49 AA 31 3A |I).." _ ".I.I.1:|
000000E0: 89 38 00 02 09 09 00 83 53 54 41 52 54 2C 48 45 |.8......START,HE|
000000F0: 4C 50 2C 47 4F 54 4F 2C 52 45 4E 55 4D 2C 4C 49 |LP,GOTO,RENUM,LI|
00000100: 53 54 00 28 09 0A 00 83 4F 4C 44 2C 46 49 4E 44 |ST.(....OLD,FIND|
00000110: 2C 43 54 52 4C 2C 43 4C 52 2C 4E 45 57 2C 52 55 |,CTRL,CLR,NEW,RU|
00000120: 4E 2C 45 4E 44 45 2C 5F 00 4E 09 0D 00 8F 20 2A |N,ENDE,_.N.... *|
00000130: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000140: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 7A | * * * * * * *.z|
00000150: 09 0E 00 97 32 31 34 2C 31 35 3A 99 3A 99 A3 31 |....214,15:.:..1|
00000160: 30 29 22 3C 3D 20 43 52 53 52 20 3D 3E 20 20 55 |0)"<= CRSR => U|
00000170: 4E 44 20 52 45 54 55 52 4E 22 00 89 09 0F 00 8F |ND RETURN"......|
00000180: 20 42 45 49 53 50 49 45 4C 00 A7 09 10 00 41 4E | BEISPIEL.....AN|
00000190: B2 31 3A 41 5A B2 35 3A 8D 31 30 30 30 3A 8F 20 |.1:AZ.5:.1000:. |
000001A0: 31 2E 4D 45 4E 55 45 00 BE 09 11 00 91 4B 4B 8D |1.MENUE......KK.|
000001B0: 32 37 2C 32 37 2C 32 37 2C 32 37 2C 32 37 00 C4 |27,27,27,27,27..|
000001C0: 09 12 00 3A 00 E2 09 13 00 41 4E B2 36 3A 41 5A |...:.....AN.6:AZ|
000001D0: B2 37 3A 8D 31 30 30 30 3A 8F 20 32 2E 4D 45 4E |.7:.1000:. 2.MEN|
000001E0: 55 45 00 FF 09 14 00 91 4B 4B 8D 32 37 2C 32 37 |UE......KK.27,27|
000001F0: 2C 32 37 2C 32 37 2C 32 37 2C 32 37 2C 33 30 00 |,27,27,27,27,30.|
00000200: 07 0A 16 00 89 31 36 00 0D 0A 19 00 3A 00 1B 0A |.....16.....:...|
00000210: 1A 00 8F 20 41 4E 5A 45 49 47 45 00 40 0A 1B 00 |... ANZEIGE.@...|
00000220: 97 32 31 34 2C 31 35 3A 99 3A 99 A3 31 38 29 22 |.214,15:.:..18)"|
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000240: 00 78 0A 1C 00 97 32 31 34 2C 31 35 3A 99 3A 99 |.x....214,15:.:.|
00000250: A3 31 30 29 22 47 45 57 41 45 48 4C 54 3A 22 3B |.10)"GEWAEHLT:";|
00000260: 44 24 28 41 4E AA 4B 4B AB 31 29 3B 22 28 22 3B |D$(AN.KK.1);"(";|
00000270: 4B 4B 3B 22 29 22 3A 8E 00 7E 0A 1D 00 3A 00 8C |KK;")":..~...:..|
00000280: 0A 1E 00 99 C7 28 31 34 37 29 3A 80 00 92 0A 20 |.....(147):.... |
00000290: 00 3A 00 B7 0A E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 00 DC 0A F2 03 8F 20 2A 2A |*******...... **|
000002C0: 2A 2A 20 4D 45 4E 55 45 20 55 4E 54 45 52 50 52 |** MENUE UNTERPR|
000002D0: 4F 47 52 41 4D 4D 20 20 2A 2A 2A 2A 00 01 0B FC |OGRAMM ****....|
000002E0: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 00 26 0B 06 04 8F 20 2A 2A 2A 2A 20 20 28 43 |*.&.... **** (C|
00000310: 29 20 4D 41 52 49 4F 20 53 43 48 41 43 48 54 20 |) MARIO SCHACHT |
00000320: 20 20 2A 2A 2A 2A 00 4B 0B 10 04 8F 20 2A 2A 2A | ****.K.... ***|
00000330: 2A 20 20 20 20 20 20 28 30 33 30 29 34 39 36 38 |* (030)4968|
00000340: 38 37 32 20 20 20 20 2A 2A 2A 2A 00 70 0B 1A 04 |872 ****.p...|
00000350: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 00 95 0B 24 04 8F 20 2A 2A 2A 2A 20 41 55 46 52 |...$.. **** AUFR|
00000380: 55 46 20 28 42 45 49 53 50 49 45 4C 29 20 20 20 |UF (BEISPIEL) |
00000390: 20 2A 2A 2A 2A 00 BA 0B 2E 04 8F 20 2A 2A 2A 2A | ****...... ****|
000003A0: 20 41 4E 3D 31 3A 41 5A 3D 34 3A 47 4F 53 55 42 | AN=1:AZ=4:GOSUB|
000003B0: 31 30 30 30 20 20 2A 2A 2A 2A 00 DF 0B 38 04 8F |1000 ****...8..|
000003C0: 20 2A 2A 2A 2A 20 4F 4E 20 4B 4B 20 47 4F 53 55 | **** ON KK GOSU|
000003D0: 42 31 31 2C 32 32 2C 2E 2E 2E 20 2A 2A 2A 2A 00 |B11,22,... ****.|
000003E0: 04 0C 42 04 8F 20 2A 2A 2A 2A 2D 20 2D 20 2D 20 |..B.. ****- - - |
000003F0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 |- - - - - - - - |
00000400: 2A 2A 2A 2A 00 29 0C 4C 04 8F 20 2A 2A 2A 2A 20 |****.).L.. **** |
00000410: 41 4E 3A 20 41 4E 46 41 4E 47 20 4D 49 54 20 41 |AN: ANFANG MIT A|
00000420: 4E 2D 54 45 4E 2A 2A 2A 2A 00 4E 0C 56 04 8F 20 |N-TEN****.N.V.. |
00000430: 2A 2A 2A 2A 20 20 20 20 20 53 54 52 49 4E 47 20 |**** STRING |
00000440: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 73 | ****.s|
00000450: 0C 60 04 8F 20 2A 2A 2A 2A 20 41 5A 3A 20 41 4E |.`.. **** AZ: AN|
00000460: 5A 41 48 4C 20 44 45 52 20 4D 45 4E 55 45 2D 2A |ZAHL DER MENUE-*|
00000470: 2A 2A 2A 00 98 0C 6A 04 8F 20 2A 2A 2A 2A 20 20 |***...j.. **** |
00000480: 20 20 20 50 55 4E 4B 54 45 20 20 20 20 20 20 20 | PUNKTE |
00000490: 20 20 20 20 2A 2A 2A 2A 00 BD 0C 74 04 8F 20 2A | ****...t.. *|
000004A0: 2A 2A 2A 20 4B 4B 3A 20 31 20 42 49 53 20 41 5A |*** KK: 1 BIS AZ|
000004B0: 20 57 49 52 44 20 20 20 20 2A 2A 2A 2A 00 E2 0C | WIRD ****...|
000004C0: 7E 04 8F 20 2A 2A 2A 2A 20 20 20 20 20 55 45 42 |~.. **** UEB|
000004D0: 45 52 47 45 42 45 4E 20 20 20 20 20 20 20 2A 2A |ERGEBEN **|
000004E0: 2A 2A 00 07 0D 88 04 8F 20 2A 2A 2A 2A 2A 2A 2A |**...... *******|
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 00 2C 0D 92 04 8F 20 2A 2A |*******.,.... **|
00000510: 2A 2A 20 56 45 52 57 45 4E 44 45 54 45 20 56 41 |** VERWENDETE VA|
00000520: 52 49 41 42 4C 45 4E 20 2A 2A 2A 2A 00 51 0D 9C |RIABLEN ****.Q..|
00000530: 04 8F 20 2A 2A 2A 2A 20 44 24 28 41 4D 29 3B 41 |.. **** D$(AM);A|
00000540: 41 28 41 4D 29 3B 41 24 20 20 20 20 20 2A 2A 2A |A(AM);A$ ***|
00000550: 2A 00 76 0D A6 04 8F 20 2A 2A 2A 2A 20 41 4D 3B |*.v.... **** AM;|
00000560: 41 5A 3B 41 4E 3B 41 4C 3B 44 49 3B 41 59 3B 4B |AZ;AN;AL;DI;AY;K|
00000570: 4B 20 2A 2A 2A 2A 00 9B 0D B0 04 8F 20 2A 2A 2A |K ****...... ***|
00000580: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000590: 20 20 20 20 20 20 20 2A 2A 2A 2A 00 C0 0D BA 04 | ****.....|
000005A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 00 C9 0D C4 04 41 4C B2 30 00 00 0E CE 04 81 49 |.....AL.0......I|
000005D0: B2 41 4E A4 28 41 4E AA 41 5A AB 31 29 3A 41 4C |.AN.(AN.AZ.1):AL|
000005E0: B2 41 4C AA C3 28 44 24 28 49 29 29 3A 82 3A 8F |.AL..(D$(I)):.:.|
000005F0: 20 41 4C 3D 47 45 53 41 4D 54 4C 41 45 4E 47 45 | AL=GESAMTLAENGE|
00000600: 00 34 0E D8 04 8B 41 4C B1 33 38 AA 41 5A A7 97 |.4....AL.38.AZ..|
00000610: 32 31 34 2C 32 32 3A 99 3A 99 22 20 4D 45 4E 55 |214,22:.:." MENU|
00000620: 45 2D 57 4F 52 54 45 20 4B 55 45 52 5A 45 4E 20 |E-WORTE KUERZEN |
00000630: 21 22 3A 8E 00 44 0E E2 04 8B 41 4C B3 33 39 A7 |!":..D....AL.39.|
00000640: 31 32 39 30 00 58 0E EC 04 8F 20 57 4F 52 54 45 |1290.X.... WORTE|
00000650: 20 4B 55 45 52 5A 45 4E 00 95 0E F6 04 44 49 B2 | KUERZEN.....DI.|
00000660: 41 4C AB 33 39 3A 81 49 B2 41 4E A4 28 41 4E AA |AL.39:.I.AN.(AN.|
00000670: 44 49 29 3A 44 24 28 49 29 B2 C8 28 44 24 28 49 |DI):D$(I)..(D$(I|
00000680: 29 2C C3 28 44 24 28 49 29 29 AB 31 29 3A 82 3A |),.(D$(I)).1):.:|
00000690: 41 4C B2 33 38 00 AC 0E 00 05 8F 20 4D 45 4E 55 |AL.38...... MENU|
000006A0: 45 20 44 41 52 53 54 45 4C 4C 45 4E 00 C7 0E 0A |E DARSTELLEN....|
000006B0: 05 97 32 31 34 2C 32 32 3A 99 3A 99 A3 28 34 30 |..214,22:.:..(40|
000006C0: AB 41 4C 29 AD 32 29 00 DB 0E 14 05 81 49 B2 41 |.AL).2)......I.A|
000006D0: 4E A4 28 41 4E AA 41 5A AB 31 29 00 F4 0E 1E 05 |N.(AN.AZ.1).....|
000006E0: 99 C7 28 31 38 29 C7 28 33 30 29 3B 44 24 28 49 |..(18).(30);D$(I|
000006F0: 29 3B 3A 82 00 02 0F 32 05 8F 20 41 4E 5A 45 49 |);:....2.. ANZEI|
00000700: 47 45 00 26 0F 3C 05 41 41 28 41 4E 29 B2 28 34 |GE.&.<.AA(AN).(4|
00000710: 30 AB 41 4C 29 AD 32 3A 8F 20 45 52 53 54 45 20 |0.AL).2:. ERSTE |
00000720: 53 54 45 4C 4C 45 00 3A 0F 46 05 81 49 B2 41 4E |STELLE.:.F..I.AN|
00000730: A4 28 41 4E AA 41 5A AB 32 29 00 57 0F 50 05 41 |.(AN.AZ.2).W.P.A|
00000740: 41 28 49 AA 31 29 B2 41 41 28 49 29 AA C3 28 44 |A(I.1).AA(I)..(D|
00000750: 24 28 49 29 29 3A 82 00 6B 0F 64 05 8F 20 53 54 |$(I)):..k.d.. ST|
00000760: 41 52 54 50 4F 53 49 54 49 4F 4E 00 8C 0F 6E 05 |ARTPOSITION...n.|
00000770: 4B 4B B2 B5 28 41 5A AD 32 29 3A 46 4C B2 30 3A |KK..(AZ.2):FL.0:|
00000780: 46 52 B2 31 35 38 3A 8D 31 35 35 30 00 9A 0F 78 |FR.158:.1550...x|
00000790: 05 8F 20 41 42 46 52 41 47 45 00 AE 0F 82 05 A1 |.. ABFRAGE......|
000007A0: 41 24 3A 8B 41 24 B2 22 22 A7 31 34 31 30 00 D7 |A$:.A$."".1410..|
000007B0: 0F 8C 05 8B 41 24 B3 B1 C7 28 32 39 29 AF 41 24 |....A$...(29).A$|
000007C0: B3 B1 C7 28 31 35 37 29 AF 41 24 B3 B1 C7 28 31 |...(157).A$...(1|
000007D0: 33 29 A7 31 34 31 30 00 0B 10 96 05 8B 41 24 B2 |3).1410......A$.|
000007E0: C7 28 32 39 29 A7 4B 4B B2 4B 4B AA 31 3A 46 4C |.(29).KK.KK.1:FL|
000007F0: B2 AB 31 3A 46 52 B2 33 30 3A 8D 31 35 35 30 3A |..1:FR.30:.1550:|
00000800: 8B 4B 4B B2 41 5A A7 4B 4B B2 30 00 41 10 A0 05 |.KK.AZ.KK.0.A...|
00000810: 8B 41 24 B2 C7 28 31 35 37 29 A7 4B 4B B2 4B 4B |.A$..(157).KK.KK|
00000820: AB 31 3A 46 4C B2 31 3A 46 52 B2 33 30 3A 8D 31 |.1:FL.1:FR.30:.1|
00000830: 35 35 30 3A 8B 4B 4B B3 30 A7 4B 4B B2 41 5A AB |550:.KK.0.KK.AZ.|
00000840: 31 00 57 10 AA 05 46 4C B2 30 3A 46 52 B2 31 35 |1.W...FL.0:FR.15|
00000850: 38 3A 8D 31 35 35 30 00 6B 10 B4 05 8B 41 24 B3 |8:.1550.k....A$.|
00000860: B1 C7 28 31 33 29 A7 31 34 31 30 00 B5 10 BE 05 |..(13).1410.....|
00000870: 97 32 31 34 2C 32 32 3A 99 3A 99 22 20 20 20 20 |.214,22:.:." |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 22 3A 8F 20 4D 45 4E 55 45 20 4C 4F 45 | ":. MENUE LOE|
000008B0: 53 43 48 45 4E 00 E2 10 DC 05 4B 4B B2 4B 4B AA |SCHEN.....KK.KK.|
000008C0: 31 3A 8E 3A 8F 20 52 55 45 43 4B 53 50 52 55 4E |1:.:. RUECKSPRUN|
000008D0: 47 20 4D 49 54 20 50 41 52 41 4D 45 54 45 52 20 |G MIT PARAMETER |
000008E0: 4B 4B 00 F5 10 04 06 8F 20 41 4E 5A 45 49 47 45 |KK...... ANZEIGE|
000008F0: 20 47 45 4C 42 00 2C 11 0E 06 97 32 31 34 2C 32 | GELB.,....214,2|
00000900: 32 3A 99 3A 99 A3 41 41 28 4B 4B AA 41 4E AA 46 |2:.:..AA(KK.AN.F|
00000910: 4C 29 29 C7 28 31 38 29 C7 28 46 52 29 3B 44 24 |L)).(18).(FR);D$|
00000920: 28 4B 4B AA 41 4E AA 46 4C 29 3A 8E 00 00 00 30 |(KK.AN.FL):....0|
..".... ****** MENUE-DEMO ******.@....
53280,0:.53281,0:.G(147).G.... * * * MEN
UE-WORTE EINLESEN * * *. ...AM.12:.D$(AM
.1):.AA(AM.1):. AM=MAX. ANZAHL DER WORTE
.....I.1......D$(I):D$(I).G(32).D$(I).G(
32):.D$(I).." _ ".I.I.1:.8......START,HE
LP,GOTO,RENUM,LIST.(....OLD,FIND,CTRL,CL
R,NEW,RUN,ENDE,_.N.... * * * * * * * * *
* * * * * * *.Z....214,15:.:..10)"<= CR
SR => UND RETURN"...... BEISPIEL.....AN
.1:AZ.5:.1000:. 1.MENUE......KK.27,27,27
,27,27.D...:.....AN.6:AZ.7:.1000:. 2.MEN
UE......KK.27,27,27,27,27,27,30......16.
....:...... ANZEIGE.@....214,15:.:..18)"
".X....214,15:.:..10)"GEW
AEHLT:";D$(AN.KK.1);"(";KK;")":..~...:..
....G(147):.... .:...... ***************
***************...... **** MENUE UNTERPR
OGRAMM ****...... *********************
*********.&.... **** (C) MARIO SCHACHT
****.K.... **** (030)4968872 *
***.P.... ******************************
...$.. **** AUFRUF (BEISPIEL) ****...
... **** AN=1:AZ=4:GOSUB1000 ****...8..
**** ON KK GOSUB11,22,... ****...B.. **
**- - - - - - - - - - - ****.).L.. ****
AN: ANFANG MIT AN-TEN****.N.V.. ****
STRING ****.S.`.. **** AZ: AN
ZAHL DER MENUE-****...J.. **** PUNKT
E ****...T.. **** KK: 1 BIS AZ
WIRD ****...~.. **** UEBERGEBEN
****...... ***********************
*******.,.... **** VERWENDETE VARIABLEN
****.Q.... **** D$(AM);AA(AM);A$ ***
*.V.... **** AM;AZ;AN;AL;DI;AY;KK ****..
.... **** ****.....
. ******************************.I.D.AL.
0...N..I.AN.(AN.AZ.1):AL.AL.C(D$(I)):.:.
AL=GESAMTLAENGE.4.X..AL.38.AZ..214,22:.
:." MENUE-WORTE KUERZEN !":..D....AL.39.
1290.X.... WORTE KUERZEN.....DI.AL.39:.I
.AN.(AN.DI):D$(I).H(D$(I),C(D$(I)).1):.:
AL.38...... MENUE DARSTELLEN.G....214,22
:.:..(40.AL).2)......I.AN.(AN.AZ.1).....
.G(18)G(30);D$(I);:....2.. ANZEIGE.&.<.A
A(AN).(40.AL).2:. ERSTE STELLE.:.F..I.AN
.(AN.AZ.2).W.P.AA(I.1).AA(I).C(D$(I)):..
K.D.. STARTPOSITION...N.KK..(AZ.2):FL.0:
FR.158:.1550...X.. ABFRAGE......A$:.A$."
".1410.W....A$..G(29).A$..G(157).A$..G(1
3).1410......A$.G(29).KK.KK.1:FL..1:FR.3
0:.1550:.KK.AZ.KK.0.A. ..A$.G(157).KK.KK
.1:FL.1:FR.30:.1550:.KK.0.KK.AZ.1.W...FL
.0:FR.158:.1550.K....A$..G(13).1410.....
.214,22:.:."
":. MENUE LOESCHEN.....KK.KK.
1:.:. RUECKSPRUNG MIT PARAMETER KK......
ANZEIGE GELB.,....214,22:.:..AA(KK.AN.F
L))G(18)G(FR);D$(KK.AN.FL):....0
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL