> 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 1A 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.&.... ********|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 00 4B 0B 24 04 8F 20 2A 2A 2A |******.K.$.. ***|
00000330: 2A 20 41 55 46 52 55 46 20 28 42 45 49 53 50 49 |* AUFRUF (BEISPI|
00000340: 45 4C 29 20 20 20 20 2A 2A 2A 2A 00 70 0B 2E 04 |EL) ****.p...|
00000350: 8F 20 2A 2A 2A 2A 20 41 4E 3D 31 3A 41 5A 3D 34 |. **** AN=1:AZ=4|
00000360: 3A 47 4F 53 55 42 31 30 30 30 20 20 2A 2A 2A 2A |:GOSUB1000 ****|
00000370: 00 95 0B 38 04 8F 20 2A 2A 2A 2A 20 4F 4E 20 4B |...8.. **** ON K|
00000380: 4B 20 47 4F 53 55 42 31 31 2C 32 32 2C 2E 2E 2E |K GOSUB11,22,...|
00000390: 20 2A 2A 2A 2A 00 BA 0B 42 04 8F 20 2A 2A 2A 2A | ****...B.. ****|
000003A0: 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 |- - - - - - - - |
000003B0: 2D 20 2D 20 2D 20 2A 2A 2A 2A 00 DF 0B 4C 04 8F |- - - ****...L..|
000003C0: 20 2A 2A 2A 2A 20 41 4E 3A 20 41 4E 46 41 4E 47 | **** AN: ANFANG|
000003D0: 20 4D 49 54 20 41 4E 2D 54 45 4E 2A 2A 2A 2A 00 | MIT AN-TEN****.|
000003E0: 04 0C 56 04 8F 20 2A 2A 2A 2A 20 20 20 20 20 53 |..V.. **** S|
000003F0: 54 52 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 |TRING |
00000400: 2A 2A 2A 2A 00 29 0C 60 04 8F 20 2A 2A 2A 2A 20 |****.).`.. **** |
00000410: 41 5A 3A 20 41 4E 5A 41 48 4C 20 44 45 52 20 4D |AZ: ANZAHL DER M|
00000420: 45 4E 55 45 2D 2A 2A 2A 2A 00 4E 0C 6A 04 8F 20 |ENUE-****.N.j.. |
00000430: 2A 2A 2A 2A 20 20 20 20 20 50 55 4E 4B 54 45 20 |**** PUNKTE |
00000440: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 73 | ****.s|
00000450: 0C 74 04 8F 20 2A 2A 2A 2A 20 4B 4B 3A 20 31 20 |.t.. **** KK: 1 |
00000460: 42 49 53 20 41 5A 20 57 49 52 44 20 20 20 20 2A |BIS AZ WIRD *|
00000470: 2A 2A 2A 00 98 0C 7E 04 8F 20 2A 2A 2A 2A 20 20 |***...~.. **** |
00000480: 20 20 20 55 45 42 45 52 47 45 42 45 4E 20 20 20 | UEBERGEBEN |
00000490: 20 20 20 20 2A 2A 2A 2A 00 BD 0C 88 04 8F 20 2A | ****...... *|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 0C |*************...|
000004C0: 92 04 8F 20 2A 2A 2A 2A 20 56 45 52 57 45 4E 44 |... **** VERWEND|
000004D0: 45 54 45 20 56 41 52 49 41 42 4C 45 4E 20 2A 2A |ETE VARIABLEN **|
000004E0: 2A 2A 00 07 0D 9C 04 8F 20 2A 2A 2A 2A 20 44 24 |**...... **** D$|
000004F0: 28 41 4D 29 3B 41 41 28 41 4D 29 3B 41 24 20 20 |(AM);AA(AM);A$ |
00000500: 20 20 20 2A 2A 2A 2A 00 2C 0D A6 04 8F 20 2A 2A | ****.,.... **|
00000510: 2A 2A 20 41 4D 3B 41 5A 3B 41 4E 3B 41 4C 3B 44 |** AM;AZ;AN;AL;D|
00000520: 49 3B 41 59 3B 4B 4B 20 2A 2A 2A 2A 00 51 0D B0 |I;AY;KK ****.Q..|
00000530: 04 8F 20 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 |.. **** |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
00000550: 2A 00 76 0D BA 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.v.... ********|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 00 7F 0D C4 04 41 4C B2 30 00 |******.....AL.0.|
00000580: B6 0D CE 04 81 49 B2 41 4E A4 28 41 4E AA 41 5A |.....I.AN.(AN.AZ|
00000590: AB 31 29 3A 41 4C B2 41 4C AA C3 28 44 24 28 49 |.1):AL.AL..(D$(I|
000005A0: 29 29 3A 82 3A 8F 20 41 4C 3D 47 45 53 41 4D 54 |)):.:. AL=GESAMT|
000005B0: 4C 41 45 4E 47 45 00 EA 0D D8 04 8B 41 4C B1 33 |LAENGE......AL.3|
000005C0: 38 AA 41 5A A7 97 32 31 34 2C 32 32 3A 99 3A 99 |8.AZ..214,22:.:.|
000005D0: 22 20 4D 45 4E 55 45 2D 57 4F 52 54 45 20 4B 55 |" MENUE-WORTE KU|
000005E0: 45 52 5A 45 4E 20 21 22 3A 8E 00 FA 0D E2 04 8B |ERZEN !":.......|
000005F0: 41 4C B3 33 39 A7 31 32 39 30 00 0E 0E EC 04 8F |AL.39.1290......|
00000600: 20 57 4F 52 54 45 20 4B 55 45 52 5A 45 4E 00 4B | WORTE KUERZEN.K|
00000610: 0E F6 04 44 49 B2 41 4C AB 33 39 3A 81 49 B2 41 |...DI.AL.39:.I.A|
00000620: 4E A4 28 41 4E AA 44 49 29 3A 44 24 28 49 29 B2 |N.(AN.DI):D$(I).|
00000630: C8 28 44 24 28 49 29 2C C3 28 44 24 28 49 29 29 |.(D$(I),.(D$(I))|
00000640: AB 31 29 3A 82 3A 41 4C B2 33 38 00 62 0E 00 05 |.1):.:AL.38.b...|
00000650: 8F 20 4D 45 4E 55 45 20 44 41 52 53 54 45 4C 4C |. MENUE DARSTELL|
00000660: 45 4E 00 7D 0E 0A 05 97 32 31 34 2C 32 32 3A 99 |EN.}....214,22:.|
00000670: 3A 99 A3 28 34 30 AB 41 4C 29 AD 32 29 00 91 0E |:..(40.AL).2)...|
00000680: 14 05 81 49 B2 41 4E A4 28 41 4E AA 41 5A AB 31 |...I.AN.(AN.AZ.1|
00000690: 29 00 AA 0E 1E 05 99 C7 28 31 38 29 C7 28 33 30 |).......(18).(30|
000006A0: 29 3B 44 24 28 49 29 3B 3A 82 00 B8 0E 32 05 8F |);D$(I);:....2..|
000006B0: 20 41 4E 5A 45 49 47 45 00 DC 0E 3C 05 41 41 28 | ANZEIGE...<.AA(|
000006C0: 41 4E 29 B2 28 34 30 AB 41 4C 29 AD 32 3A 8F 20 |AN).(40.AL).2:. |
000006D0: 45 52 53 54 45 20 53 54 45 4C 4C 45 00 F0 0E 46 |ERSTE STELLE...F|
000006E0: 05 81 49 B2 41 4E A4 28 41 4E AA 41 5A AB 32 29 |..I.AN.(AN.AZ.2)|
000006F0: 00 0D 0F 50 05 41 41 28 49 AA 31 29 B2 41 41 28 |...P.AA(I.1).AA(|
00000700: 49 29 AA C3 28 44 24 28 49 29 29 3A 82 00 21 0F |I)..(D$(I)):..!.|
00000710: 64 05 8F 20 53 54 41 52 54 50 4F 53 49 54 49 4F |d.. STARTPOSITIO|
00000720: 4E 00 42 0F 6E 05 4B 4B B2 B5 28 41 5A AD 32 29 |N.B.n.KK..(AZ.2)|
00000730: 3A 46 4C B2 30 3A 46 52 B2 31 35 38 3A 8D 31 35 |:FL.0:FR.158:.15|
00000740: 35 30 00 50 0F 78 05 8F 20 41 42 46 52 41 47 45 |50.P.x.. ABFRAGE|
00000750: 00 64 0F 82 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.d....A$:.A$."".|
00000760: 31 34 31 30 00 8D 0F 8C 05 8B 41 24 B3 B1 C7 28 |1410......A$...(|
00000770: 32 39 29 AF 41 24 B3 B1 C7 28 31 35 37 29 AF 41 |29).A$...(157).A|
00000780: 24 B3 B1 C7 28 31 33 29 A7 31 34 31 30 00 C1 0F |$...(13).1410...|
00000790: 96 05 8B 41 24 B2 C7 28 32 39 29 A7 4B 4B B2 4B |...A$..(29).KK.K|
000007A0: 4B AA 31 3A 46 4C B2 AB 31 3A 46 52 B2 33 30 3A |K.1:FL..1:FR.30:|
000007B0: 8D 31 35 35 30 3A 8B 4B 4B B2 41 5A A7 4B 4B B2 |.1550:.KK.AZ.KK.|
000007C0: 30 00 F7 0F A0 05 8B 41 24 B2 C7 28 31 35 37 29 |0......A$..(157)|
000007D0: A7 4B 4B B2 4B 4B AB 31 3A 46 4C B2 31 3A 46 52 |.KK.KK.1:FL.1:FR|
000007E0: B2 33 30 3A 8D 31 35 35 30 3A 8B 4B 4B B3 30 A7 |.30:.1550:.KK.0.|
000007F0: 4B 4B B2 41 5A AB 31 00 0D 10 AA 05 46 4C B2 30 |KK.AZ.1.....FL.0|
00000800: 3A 46 52 B2 31 35 38 3A 8D 31 35 35 30 00 21 10 |:FR.158:.1550.!.|
00000810: B4 05 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 34 31 |...A$...(13).141|
00000820: 30 00 6B 10 BE 05 97 32 31 34 2C 32 32 3A 99 3A |0.k....214,22:.:|
00000830: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000850: 20 20 20 20 20 20 20 20 20 22 3A 8F 20 4D 45 4E | ":. MEN|
00000860: 55 45 20 4C 4F 45 53 43 48 45 4E 00 98 10 DC 05 |UE LOESCHEN.....|
00000870: 4B 4B B2 4B 4B AA 31 3A 8E 3A 8F 20 52 55 45 43 |KK.KK.1:.:. RUEC|
00000880: 4B 53 50 52 55 4E 47 20 4D 49 54 20 50 41 52 41 |KSPRUNG MIT PARA|
00000890: 4D 45 54 45 52 20 4B 4B 00 AB 10 04 06 8F 20 41 |METER KK...... A|
000008A0: 4E 5A 45 49 47 45 20 47 45 4C 42 00 E2 10 0E 06 |NZEIGE GELB.....|
000008B0: 97 32 31 34 2C 32 32 3A 99 3A 99 A3 41 41 28 4B |.214,22:.:..AA(K|
000008C0: 4B AA 41 4E AA 46 4C 29 29 C7 28 31 38 29 C7 28 |K.AN.FL)).(18).(|
000008D0: 46 52 29 3B 44 24 28 4B 4B AA 41 4E AA 46 4C 29 |FR);D$(KK.AN.FL)|
000008E0: 3A 8E 00 00 00 30 |:....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 ****...... *********************
*********.&.... ************************
******.K.$.. **** AUFRUF (BEISPIEL) *
***.P.... **** AN=1:AZ=4:GOSUB1000 ****
...8.. **** ON KK GOSUB11,22,... ****...
B.. ****- - - - - - - - - - - ****...L..
**** AN: ANFANG MIT AN-TEN****...V.. **
** STRING ****.).`.. ****
AZ: ANZAHL DER MENUE-****.N.J.. ****
PUNKTE ****.S.T.. **** KK: 1
BIS AZ WIRD ****...~.. **** UEBER
GEBEN ****...... *****************
*************...... **** VERWENDETE VARI
ABLEN ****...... **** D$(AM);AA(AM);A$
****.,.... **** AM;AZ;AN;AL;DI;AY;KK
****.Q.... **** ***
*.V.... ******************************.
.D.AL.0...N..I.AN.(AN.AZ.1):AL.AL.C(D$(I
)):.:. AL=GESAMTLAENGE...X..AL.38.AZ..21
4,22:.:." MENUE-WORTE KUERZEN !":.......
AL.39.1290...... WORTE KUERZEN.K...DI.AL
.39:.I.AN.(AN.DI):D$(I).H(D$(I),C(D$(I))
.1):.:AL.38.B.... MENUE DARSTELLEN.}....
214,22:.:..(40.AL).2)......I.AN.(AN.AZ.1
)......G(18)G(30);D$(I);:....2.. ANZEIGE
...<.AA(AN).(40.AL).2:. ERSTE STELLE...F
..I.AN.(AN.AZ.2)...P.AA(I.1).AA(I).C(D$(
I)):..!.D.. STARTPOSITION.B.N.KK..(AZ.2)
:FL.0:FR.158:.1550.P.X.. ABFRAGE.D....A$
:.A$."".1410......A$..G(29).A$..G(157).A
$..G(13).1410.A....A$.G(29).KK.KK.1:FL..
1:FR.30:.1550:.KK.AZ.KK.0... ..A$.G(157)
.KK.KK.1:FL.1:FR.30:.1550:.KK.0.KK.AZ.1.
....FL.0:FR.158:.1550.!....A$..G(13).141
0.K....214,22:.:."
":. MENUE LOESCHEN.....
KK.KK.1:.:. RUECKSPRUNG MIT PARAMETER KK
...... ANZEIGE GELB......214,22:.:..AA(K
K.AN.FL))G(18)G(FR);D$(KK.AN.FL):....0
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL