> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0B 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 C7 28 31 34 37 29 00 |53281,0:..(147).|
00000020: 46 08 0C 00 8F 20 2A 20 2A 20 2A 20 4D 45 4E 55 |F.... * * * MENU|
00000030: 45 2D 57 4F 52 54 45 20 45 49 4E 4C 45 53 45 4E |E-WORTE EINLESEN|
00000040: 20 2A 20 2A 20 2A 00 7F 08 0D 00 41 4D B2 31 32 | * * *.....AM.12|
00000050: 3A 86 44 24 28 41 4D AA 31 29 3A 86 41 41 28 41 |:.D$(AM.1):.AA(A|
00000060: 4D AA 31 29 3A 8F 20 41 4D 3D 4D 41 58 2E 20 41 |M.1):. AM=MAX. A|
00000070: 4E 5A 41 48 4C 20 44 45 52 20 57 4F 52 54 45 00 |NZAHL DER WORTE.|
00000080: 87 08 0E 00 49 B2 31 00 C2 08 0F 00 87 44 24 28 |....I.1......D$(|
00000090: 49 29 3A 44 24 28 49 29 B2 C7 28 33 32 29 AA 44 |I):D$(I)..(32).D|
000000A0: 24 28 49 29 AA C7 28 33 32 29 3A 8B 44 24 28 49 |$(I)..(32):.D$(I|
000000B0: 29 B3 B1 22 20 5F 20 22 A7 49 B2 49 AA 31 3A 89 |).." _ ".I.I.1:.|
000000C0: 31 35 00 E2 08 10 00 83 53 54 41 52 54 2C 48 45 |15......START,HE|
000000D0: 4C 50 2C 47 4F 54 4F 2C 52 45 4E 55 4D 2C 4C 49 |LP,GOTO,RENUM,LI|
000000E0: 53 54 00 08 09 11 00 83 4F 4C 44 2C 46 49 4E 44 |ST......OLD,FIND|
000000F0: 2C 43 54 52 4C 2C 43 4C 52 2C 4E 45 57 2C 52 55 |,CTRL,CLR,NEW,RU|
00000100: 4E 2C 45 4E 44 45 2C 5F 00 2E 09 12 00 8F 20 2A |N,ENDE,_...... *|
00000110: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *|
00000120: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 00 5A | * * * * * * *.Z|
00000130: 09 13 00 97 32 31 34 2C 31 35 3A 99 3A 99 A3 31 |....214,15:.:..1|
00000140: 30 29 22 3C 3D 20 43 52 53 52 20 3D 3E 20 20 55 |0)"<= CRSR => U|
00000150: 4E 44 20 52 45 54 55 52 4E 22 00 69 09 14 00 8F |ND RETURN".i....|
00000160: 20 42 45 49 53 50 49 45 4C 00 85 09 15 00 41 4E | BEISPIEL.....AN|
00000170: B2 31 3A 41 5A B2 35 3A 8D 33 30 3A 8F 20 31 2E |.1:AZ.5:.30:. 1.|
00000180: 4D 45 4E 55 45 00 9C 09 16 00 91 4B 4B 8D 32 37 |MENUE......KK.27|
00000190: 2C 32 37 2C 32 37 2C 32 37 2C 32 37 00 B8 09 17 |,27,27,27,27....|
000001A0: 00 41 4E B2 36 3A 41 5A B2 37 3A 8D 33 30 3A 8F |.AN.6:AZ.7:.30:.|
000001B0: 20 32 2E 4D 45 4E 55 45 00 D5 09 18 00 91 4B 4B | 2.MENUE......KK|
000001C0: 8D 32 37 2C 32 37 2C 32 37 2C 32 37 2C 32 37 2C |.27,27,27,27,27,|
000001D0: 32 37 2C 32 39 00 DD 09 19 00 89 32 31 00 EB 09 |27,29......21...|
000001E0: 1A 00 8F 20 41 4E 5A 45 49 47 45 00 10 0A 1B 00 |... ANZEIGE.....|
000001F0: 97 32 31 34 2C 31 35 3A 99 3A 99 A3 31 38 29 22 |.214,15:.:..18)"|
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000210: 00 48 0A 1C 00 97 32 31 34 2C 31 35 3A 99 3A 99 |.H....214,15:.:.|
00000220: A3 31 30 29 22 47 45 57 41 45 48 4C 54 3A 22 3B |.10)"GEWAEHLT:";|
00000230: 44 24 28 41 4E AA 4B 4B AB 31 29 3B 22 28 22 3B |D$(AN.KK.1);"(";|
00000240: 4B 4B 3B 22 29 22 3A 8E 00 56 0A 1D 00 99 C7 28 |KK;")":..V.....(|
00000250: 31 34 37 29 3A 80 00 5C 0A 1E 00 8F 00 74 0A 1F |147):..\.....t..|
00000260: 00 8F 20 41 55 46 52 55 46 20 28 42 45 49 53 50 |.. AUFRUF (BEISP|
00000270: 49 45 4C 29 00 8C 0A 20 00 8F 20 41 4E 3D 31 3A |IEL)... .. AN=1:|
00000280: 41 5A 3D 34 3A 47 4F 53 55 42 33 30 00 A7 0A 21 |AZ=4:GOSUB30...!|
00000290: 00 8F 20 4F 4E 20 4B 4B 20 47 4F 53 55 42 31 31 |.. ON KK GOSUB11|
000002A0: 2C 32 32 2C 2E 2E 2E 00 CA 0A 22 00 8F 20 41 4E |,22,......".. AN|
000002B0: 3A 20 41 4E 46 41 4E 47 20 4D 49 54 20 41 4E 2D |: ANFANG MIT AN-|
000002C0: 54 45 4E 20 53 54 52 49 4E 47 00 EB 0A 23 00 8F |TEN STRING...#..|
000002D0: 20 41 5A 3A 20 41 4E 5A 41 48 4C 20 44 45 52 20 | AZ: ANZAHL DER |
000002E0: 4D 45 4E 55 45 50 55 4E 4B 54 45 00 0E 0B 24 00 |MENUEPUNKTE...$.|
000002F0: 8F 20 4B 4B 3A 20 31 20 42 49 53 20 41 5A 20 57 |. KK: 1 BIS AZ W|
00000300: 49 52 44 20 55 45 42 45 52 47 45 42 45 4E 00 1E |IRD UEBERGEBEN..|
00000310: 0B 25 00 8F 20 56 41 52 49 41 42 4C 45 4E 00 35 |.%.. VARIABLEN.5|
00000320: 0B 26 00 8F 20 44 24 28 41 4D 29 3B 41 41 28 41 |.&.. D$(AM);AA(A|
00000330: 4D 29 3B 41 24 00 50 0B 27 00 8F 20 41 4D 3B 41 |M);A$.P.'.. AM;A|
00000340: 5A 3B 41 4E 3B 41 4C 3B 44 49 3B 41 59 3B 4B 4B |Z;AN;AL;DI;AY;KK|
00000350: 00 59 0B 28 00 41 4C B2 30 00 90 0B 29 00 81 49 |.Y.(.AL.0...)..I|
00000360: B2 41 4E A4 28 41 4E AA 41 5A AB 31 29 3A 41 4C |.AN.(AN.AZ.1):AL|
00000370: B2 41 4C AA C3 28 44 24 28 49 29 29 3A 82 3A 8F |.AL..(D$(I)):.:.|
00000380: 20 41 4C 3D 47 45 53 41 4D 54 4C 41 45 4E 47 45 | AL=GESAMTLAENGE|
00000390: 00 C4 0B 2A 00 8B 41 4C B1 33 38 AA 41 5A A7 97 |...*..AL.38.AZ..|
000003A0: 32 31 34 2C 32 32 3A 99 3A 99 22 20 4D 45 4E 55 |214,22:.:." MENU|
000003B0: 45 2D 57 4F 52 54 45 20 4B 55 45 52 5A 45 4E 20 |E-WORTE KUERZEN |
000003C0: 21 22 3A 8E 00 D2 0B 2B 00 8B 41 4C B3 33 39 A7 |!":....+..AL.39.|
000003D0: 34 37 00 E6 0B 2C 00 8F 20 57 4F 52 54 45 20 4B |47...,.. WORTE K|
000003E0: 55 45 52 5A 45 4E 00 23 0C 2D 00 44 49 B2 41 4C |UERZEN.#.-.DI.AL|
000003F0: AB 33 39 3A 81 49 B2 41 4E A4 28 41 4E AA 44 49 |.39:.I.AN.(AN.DI|
00000400: 29 3A 44 24 28 49 29 B2 C8 28 44 24 28 49 29 2C |):D$(I)..(D$(I),|
00000410: C3 28 44 24 28 49 29 29 AB 31 29 3A 82 3A 41 4C |.(D$(I)).1):.:AL|
00000420: B2 33 38 00 3A 0C 2E 00 8F 20 4D 45 4E 55 45 20 |.38.:.... MENUE |
00000430: 44 41 52 53 54 45 4C 4C 45 4E 00 55 0C 2F 00 97 |DARSTELLEN.U./..|
00000440: 32 31 34 2C 32 32 3A 99 3A 99 A3 28 34 30 AB 41 |214,22:.:..(40.A|
00000450: 4C 29 AD 32 29 00 69 0C 30 00 81 49 B2 41 4E A4 |L).2).i.0..I.AN.|
00000460: 28 41 4E AA 41 5A AB 31 29 00 82 0C 31 00 99 C7 |(AN.AZ.1)...1...|
00000470: 28 31 38 29 C7 28 33 30 29 3B 44 24 28 49 29 3B |(18).(30);D$(I);|
00000480: 3A 82 00 90 0C 32 00 8F 20 41 4E 5A 45 49 47 45 |:....2.. ANZEIGE|
00000490: 00 B4 0C 33 00 41 41 28 41 4E 29 B2 28 34 30 AB |...3.AA(AN).(40.|
000004A0: 41 4C 29 AD 32 3A 8F 20 45 52 53 54 45 20 53 54 |AL).2:. ERSTE ST|
000004B0: 45 4C 4C 45 00 C8 0C 34 00 81 49 B2 41 4E A4 28 |ELLE...4..I.AN.(|
000004C0: 41 4E AA 41 5A AB 32 29 00 E5 0C 35 00 41 41 28 |AN.AZ.2)...5.AA(|
000004D0: 49 AA 31 29 B2 41 41 28 49 29 AA C3 28 44 24 28 |I.1).AA(I)..(D$(|
000004E0: 49 29 29 3A 82 00 F9 0C 36 00 8F 20 53 54 41 52 |I)):....6.. STAR|
000004F0: 54 50 4F 53 49 54 49 4F 4E 00 18 0D 37 00 4B 4B |TPOSITION...7.KK|
00000500: B2 B5 28 41 5A AD 32 29 3A 46 4C B2 30 3A 46 52 |..(AZ.2):FL.0:FR|
00000510: B2 31 35 38 3A 8D 36 36 00 26 0D 38 00 8F 20 41 |.158:.66.&.8.. A|
00000520: 42 46 52 41 47 45 00 38 0D 39 00 A1 41 24 3A 8B |BFRAGE.8.9..A$:.|
00000530: 41 24 B2 22 22 A7 35 37 00 5F 0D 3A 00 8B 41 24 |A$."".57._.:..A$|
00000540: B3 B1 C7 28 32 39 29 AF 41 24 B3 B1 C7 28 31 35 |...(29).A$...(15|
00000550: 37 29 AF 41 24 B3 B1 C7 28 31 33 29 A7 35 37 00 |7).A$...(13).57.|
00000560: 91 0D 3B 00 8B 41 24 B2 C7 28 32 39 29 A7 4B 4B |..;..A$..(29).KK|
00000570: B2 4B 4B AA 31 3A 46 4C B2 AB 31 3A 46 52 B2 33 |.KK.1:FL..1:FR.3|
00000580: 30 3A 8D 36 36 3A 8B 4B 4B B2 41 5A A7 4B 4B B2 |0:.66:.KK.AZ.KK.|
00000590: 30 00 C5 0D 3C 00 8B 41 24 B2 C7 28 31 35 37 29 |0...<..A$..(157)|
000005A0: A7 4B 4B B2 4B 4B AB 31 3A 46 4C B2 31 3A 46 52 |.KK.KK.1:FL.1:FR|
000005B0: B2 33 30 3A 8D 36 36 3A 8B 4B 4B B3 30 A7 4B 4B |.30:.66:.KK.0.KK|
000005C0: B2 41 5A AB 31 00 D9 0D 3D 00 46 4C B2 30 3A 46 |.AZ.1...=.FL.0:F|
000005D0: 52 B2 31 35 38 3A 8D 36 36 00 EB 0D 3E 00 8B 41 |R.158:.66...>..A|
000005E0: 24 B3 B1 C7 28 31 33 29 A7 35 37 00 35 0E 3F 00 |$...(13).57.5.?.|
000005F0: 97 32 31 34 2C 32 32 3A 99 3A 99 22 20 20 20 20 |.214,22:.:." |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 20 20 20 22 3A 8F 20 4D 45 4E 55 45 20 4C 4F 45 | ":. MENUE LOE|
00000630: 53 43 48 45 4E 00 62 0E 40 00 4B 4B B2 4B 4B AA |SCHEN.b.@.KK.KK.|
00000640: 31 3A 8E 3A 8F 20 52 55 45 43 4B 53 50 52 55 4E |1:.:. RUECKSPRUN|
00000650: 47 20 4D 49 54 20 50 41 52 41 4D 45 54 45 52 20 |G MIT PARAMETER |
00000660: 4B 4B 00 75 0E 41 00 8F 20 41 4E 5A 45 49 47 45 |KK.u.A.. ANZEIGE|
00000670: 20 47 45 4C 42 00 AC 0E 42 00 97 32 31 34 2C 32 | GELB...B..214,2|
00000680: 32 3A 99 3A 99 A3 41 41 28 4B 4B AA 41 4E AA 46 |2:.:..AA(KK.AN.F|
00000690: 4C 29 29 C7 28 31 38 29 C7 28 46 52 29 3B 44 24 |L)).(18).(FR);D$|
000006A0: 28 4B 4B AA 41 4E AA 46 4C 29 3A 8E 00 00 00 |(KK.AN.FL):.... |
.......53280,0:.53281,0:.G(147).F.... *
* * MENUE-WORTE EINLESEN * * *....AM.12
:.D$(AM.1):.AA(AM.1):. AM=MAX. ANZAHL DE
R WORTE.....I.1.B....D$(I):D$(I).G(32).D
$(I).G(32):.D$(I).." _ ".I.I.1:.15......
START,HELP,GOTO,RENUM,LIST......OLD,FIND
,CTRL,CLR,NEW,RUN,ENDE,_...... * * * * *
* * * * * * * * * * *.Z....214,15:.:..1
0)"<= CRSR => UND RETURN".I.... BEISPIE
L.....AN.1:AZ.5:.30:. 1.MENUE......KK.27
,27,27,27,27.....AN.6:AZ.7:.30:. 2.MENUE
.U....KK.27,27,27,27,27,27,29......21...
... ANZEIGE......214,15:.:..18)"
".H....214,15:.:..10)"GEWAEHLT:";
D$(AN.KK.1);"(";KK;")":..V....G(147):..\
.....T.... AUFRUF (BEISPIEL)... .. AN=1:
AZ=4:GOSUB30...!.. ON KK GOSUB11,22,....
J.".. AN: ANFANG MIT AN-TEN STRING...#..
AZ: ANZAHL DER MENUEPUNKTE...$.. KK: 1
BIS AZ WIRD UEBERGEBEN...%.. VARIABLEN.5
.&.. D$(AM);AA(AM);A$.P.'.. AM;AZ;AN;AL;
DI;AY;KK.Y.(.AL.0...)..I.AN.(AN.AZ.1):AL
.AL.C(D$(I)):.:. AL=GESAMTLAENGE.D.*..AL
.38.AZ..214,22:.:." MENUE-WORTE KUERZEN
!":..R.+..AL.39.47...,.. WORTE KUERZEN.#
.-.DI.AL.39:.I.AN.(AN.DI):D$(I).H(D$(I),
C(D$(I)).1):.:AL.38.:.... MENUE DARSTELL
EN.U./..214,22:.:..(40.AL).2).I.0..I.AN.
(AN.AZ.1)...1..G(18)G(30);D$(I);:....2..
ANZEIGE...3.AA(AN).(40.AL).2:. ERSTE ST
ELLE.H.4..I.AN.(AN.AZ.2)...5.AA(I.1).AA(
I).C(D$(I)):....6.. STARTPOSITION...7.KK
..(AZ.2):FL.0:FR.158:.66.&.8.. ABFRAGE.8
.9..A$:.A$."".57._.:..A$..G(29).A$..G(15
7).A$..G(13).57...;..A$.G(29).KK.KK.1:FL
..1:FR.30:.66:.KK.AZ.KK.0.E.<..A$.G(157)
.KK.KK.1:FL.1:FR.30:.66:.KK.0.KK.AZ.1.Y.
=.FL.0:FR.158:.66...>..A$..G(13).57.5.?.
.214,22:.:."
":. MENUE LOESCHEN.B.@.KK.KK.
1:.:. RUECKSPRUNG MIT PARAMETER KK.U.A..
ANZEIGE GELB...B..214,22:.:..AA(KK.AN.F
L))G(18)G(FR);D$(KK.AN.FL):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL