GEOS-MENUEDEMO.S
FILE INFORMATION
FILENAME(S): GEOS-MENUEDEMO.S
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 1 disk(s)
FILE HASH
aaa4b0c0af0406d66b460ea68f4dd5d0f192baae5bf75d7c1a0c1a1bbca1195a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10708 SEITE 1 | GEOS-MENUEDEMO.S | PRG | C64er | 23 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E5 1F 64 00 2E 42 41 20 32 30 30 30 00 03 |....d..BA 2000..| 00000010: 20 69 00 2E 4F 42 20 22 40 3A 4D 45 4E 55 45 44 | i..OB "@:MENUED| 00000020: 45 4D 4F 2D 45 58 45 2C 50 2C 57 22 00 2D 20 6E |EMO-EXE,P,W".- n| 00000030: 00 20 2E 2E 2E 49 4E 49 54 2D 4C 49 42 3B 20 C7 |. ...INIT-LIB; .| 00000040: 45 4F 53 2D C2 49 42 4C 49 4F 54 48 45 4B 20 4F |EOS-.IBLIOTHEK O| 00000050: 45 46 46 4E 45 4E 00 4A 20 73 00 20 2E 2E 2E 43 |EFFNEN.J s. ...C| 00000060: 4C 53 3B 20 D3 43 48 49 52 4D 20 4C 4F 45 53 43 |LS; .CHIRM LOESC| 00000070: 48 45 4E 00 79 20 78 00 20 2E 2E 2E 45 58 45 43 |HEN.y x. ...EXEC| 00000080: 4C 49 42 28 4D 54 45 58 54 31 2C 43 4F 4E 56 45 |LIB(MTEXT1,CONVE| 00000090: 52 54 29 3B 20 CD 45 4E 55 45 54 45 58 54 45 20 |RT); .ENUETEXTE | 000000A0: 31 2C 00 AA 20 7D 00 20 2E 2E 2E 45 58 45 43 4C |1,.. }. ...EXECL| 000000B0: 49 42 28 4D 54 45 58 54 32 2C 43 4F 4E 56 45 52 |IB(MTEXT2,CONVER| 000000C0: 54 29 3B 20 20 20 20 20 20 20 20 20 20 20 32 20 |T); 2 | 000000D0: 55 4E 44 00 E2 20 82 00 20 2E 2E 2E 45 58 45 43 |UND.. .. ...EXEC| 000000E0: 4C 49 42 28 4D 54 45 58 54 33 2C 43 4F 4E 56 45 |LIB(MTEXT3,CONVE| 000000F0: 52 54 29 3B 20 20 20 20 20 20 20 20 20 33 20 4B |RT); 3 K| 00000100: 4F 4E 56 45 52 54 49 45 52 45 4E 00 0B 21 87 00 |ONVERTIEREN..!..| 00000110: 20 2E 2E 2E 4D 45 4E 55 28 54 41 42 45 4C 4C 45 | ...MENU(TABELLE| 00000120: 31 2C 30 29 3B 20 CD 45 4E 55 45 20 41 55 46 42 |1,0); .ENUE AUFB| 00000130: 41 55 45 4E 00 48 21 8C 00 53 43 48 4C 45 49 46 |AUEN.H!..SCHLEIF| 00000140: 45 20 2E 2E 2E 43 41 4C 4C 4D 41 49 4E 28 53 43 |E ...CALLMAIN(SC| 00000150: 48 4C 45 49 46 45 29 3B 20 C8 41 55 50 54 53 43 |HLEIFE); .AUPTSC| 00000160: 48 4C 45 49 46 45 20 41 4E 53 50 52 49 4E 47 45 |HLEIFE ANSPRINGE| 00000170: 4E 00 4E 21 91 00 3B 00 54 21 96 00 3B 00 5A 21 |N.N!..;.T!..;.Z!| 00000180: 9B 00 3B 00 60 21 A0 00 3B 00 66 21 A5 00 3B 00 |..;.`!..;.f!..;.| 00000190: 8C 21 AA 00 3B 23 23 23 20 D4 41 42 45 4C 4C 45 |.!..;### .ABELLE| 000001A0: 20 46 55 45 52 20 CD 45 4E 55 45 4C 45 49 53 54 | FUER .ENUELEIST| 000001B0: 45 20 23 23 23 00 B2 21 AF 00 3B 23 23 23 23 23 |E ###..!..;#####| 000001C0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################| 000001D0: 23 23 23 23 23 23 23 23 23 23 23 00 E4 21 B4 00 |###########..!..| 000001E0: 54 41 42 45 4C 4C 45 31 20 2E 42 59 35 3B 20 C1 |TABELLE1 .BY5; .| 000001F0: 4E 47 41 42 45 4E 20 5A 55 52 20 C7 52 4F 45 53 |NGABEN ZUR .ROES| 00000200: 53 45 20 44 45 53 20 CD 45 4E 55 45 53 00 EF 21 |SE DES .ENUES..!| 00000210: B9 00 20 2E 42 59 31 37 00 F9 21 BE 00 20 2E 57 |.. .BY17..!.. .W| 00000220: 4F 35 00 05 22 C3 00 20 2E 57 4F 31 33 30 00 3F |O5..".. .WO130.?| 00000230: 22 C8 00 20 2E 42 59 32 21 4F 21 56 49 53 49 42 |".. .BY2!O!VISIB| 00000240: 4C 45 21 4F 21 48 4F 52 49 5A 4F 4E 54 41 4C 3B |LE!O!HORIZONTAL;| 00000250: 20 32 20 C5 49 4E 54 52 41 41 47 45 2C 20 48 4F | 2 .INTRAAGE, HO| 00000260: 52 49 5A 4F 4E 54 41 4C 00 63 22 CD 00 3B 20 23 |RIZONTAL.c"..; #| 00000270: 23 20 CD 45 4E 55 45 50 55 4E 4B 54 20 22 CD 45 |# .ENUEPUNKT ".E| 00000280: 4E 55 45 2D C4 45 4D 4F 22 20 23 23 00 79 22 D2 |NUE-.EMO" ##.y".| 00000290: 00 4D 50 55 4E 4B 54 31 20 2E 57 4F 4D 54 45 58 |.MPUNKT1 .WOMTEX| 000002A0: 54 31 00 9A 22 D7 00 20 2E 42 59 53 55 42 4D 45 |T1..".. .BYSUBME| 000002B0: 4E 55 45 3B 20 41 4C 53 20 D5 4E 54 45 52 4D 45 |NUE; ALS .NTERME| 000002C0: 4E 55 45 00 CA 22 DC 00 20 2E 57 4F 54 41 42 45 |NUE..".. .WOTABE| 000002D0: 4C 4C 45 32 3B 20 DA 45 49 47 45 52 20 41 55 46 |LLE2; .EIGER AUF| 000002E0: 20 D5 4E 54 45 52 4D 45 4E 55 45 54 41 42 45 4C | .NTERMENUETABEL| 000002F0: 4C 4C 45 00 EF 22 E1 00 3B 20 23 23 20 CD 45 4E |LLE.."..; ## .EN| 00000300: 55 45 50 55 4E 4B 54 20 22 CD 45 4E 55 45 4C 45 |UEPUNKT ".ENUELE| 00000310: 49 53 54 45 22 20 23 23 00 05 23 E6 00 4D 50 55 |ISTE" ##..#..MPU| 00000320: 4E 4B 54 32 20 2E 57 4F 4D 54 45 58 54 32 00 2F |NKT2 .WOMTEXT2./| 00000330: 23 EB 00 20 2E 42 59 53 50 52 55 4E 54 45 52 4D |#.. .BYSPRUNTERM| 00000340: 3B 20 D5 4E 54 45 52 4D 45 4E 55 45 20 4D 49 54 |; .NTERMENUE MIT| 00000350: 20 D2 4F 55 54 49 4E 45 00 52 23 F0 00 20 2E 57 | .OUTINE.R#.. .W| 00000360: 4F 45 58 45 43 31 3B 20 DA 45 49 47 45 52 20 41 |OEXEC1; .EIGER A| 00000370: 55 46 20 C4 49 53 50 41 54 43 48 00 58 23 F5 00 |UF .ISPATCH.X#..| 00000380: 3B 00 5E 23 FA 00 3B 00 7A 23 FF 00 3B 20 20 20 |;.^#..;.z#..; | 00000390: 20 20 28 D4 45 58 54 45 20 5A 55 20 CD 45 4E 55 | (.EXTE ZU .ENU| 000003A0: 45 31 29 00 AE 23 04 01 4D 54 45 58 54 31 20 2E |E1)..#..MTEXT1 .| 000003B0: 54 58 22 CD 45 4E 55 45 2D C4 45 4D 4F 22 3B 20 |TX".ENUE-.EMO"; | 000003C0: D4 45 58 54 20 5A 55 20 CD 45 4E 55 45 20 31 2C |.EXT ZU .ENUE 1,| 000003D0: D0 55 4E 4B 54 20 31 00 DA 23 09 01 20 2E 42 59 |.UNKT 1..#.. .BY| 000003E0: 4E 55 4C 4C 3B 20 C1 42 53 43 48 4C 55 53 53 4B |NULL; .BSCHLUSSK| 000003F0: 45 4E 4E 55 4E 47 20 28 57 49 45 20 49 4D 4D 45 |ENNUNG (WIE IMME| 00000400: 52 21 29 00 0F 24 0E 01 4D 54 45 58 54 32 20 2E |R!)..$..MTEXT2 .| 00000410: 54 58 22 CD 45 4E 55 45 4C 45 49 53 54 45 22 3B |TX".ENUELEISTE";| 00000420: 20 D4 45 58 54 20 5A 55 20 CD 45 4E 55 45 20 31 | .EXT ZU .ENUE 1| 00000430: 2C D0 55 4E 4B 54 20 32 00 1C 24 13 01 20 2E 42 |,.UNKT 2..$.. .B| 00000440: 59 4E 55 4C 4C 00 22 24 18 01 3B 00 28 24 1D 01 |YNULL."$..;.($..| 00000450: 3B 00 2E 24 22 01 3B 00 54 24 27 01 3B 23 23 20 |;..$".;.T$'.;## | 00000460: D5 4E 54 45 52 4D 45 4E 55 45 20 5A 55 20 22 CD |.NTERMENUE ZU ".| 00000470: 45 4E 55 45 2D C4 45 4D 4F 22 20 23 23 00 7A 24 |ENUE-.EMO" ##.z$| 00000480: 2C 01 3B 23 23 23 23 23 23 23 23 23 23 23 23 23 |,.;#############| 00000490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################| 000004A0: 23 23 23 00 80 24 31 01 3B 00 B2 24 36 01 54 41 |###..$1.;..$6.TA| 000004B0: 42 45 4C 4C 45 32 20 2E 42 59 31 38 3B 20 D5 4E |BELLE2 .BY18; .N| 000004C0: 54 45 52 4D 45 4E 55 45 20 5A 55 20 20 CD 45 4E |TERMENUE ZU .EN| 000004D0: 55 45 31 2C D0 55 4E 4B 54 20 31 00 BD 24 3B 01 |UE1,.UNKT 1..$;.| 000004E0: 20 2E 42 59 33 30 00 C7 24 40 01 20 2E 57 4F 35 | .BY30..$@. .WO5| 000004F0: 00 D2 24 45 01 20 2E 57 4F 33 30 00 14 25 4A 01 |..$E. .WO30..%J.| 00000500: 20 2E 42 59 31 21 4F 21 56 49 53 49 42 4C 45 21 | .BY1!O!VISIBLE!| 00000510: 4F 21 56 45 52 54 49 4B 41 4C 3B 20 31 20 CD 45 |O!VERTIKAL; 1 .E| 00000520: 4E 55 45 50 55 4E 4B 54 2C 53 43 48 4C 49 45 53 |NUEPUNKT,SCHLIES| 00000530: 53 45 4E 44 2C 56 45 52 54 49 4B 41 4C 00 33 25 |SEND,VERTIKAL.3%| 00000540: 4F 01 3B 20 20 23 23 20 CD 45 4E 55 45 50 55 4E |O.; ## .ENUEPUN| 00000550: 4B 54 20 22 C7 C5 CF D3 22 20 23 23 00 61 25 54 |KT "...." ##.a%T| 00000560: 01 4D 50 55 4E 4B 54 33 20 2E 57 4F 4D 54 45 58 |.MPUNKT3 .WOMTEX| 00000570: 54 33 3B 20 DA 45 49 47 45 52 20 41 55 46 20 D4 |T3; .EIGER AUF .| 00000580: 45 58 54 20 22 C7 C5 CF D3 22 00 9C 25 59 01 20 |EXT "...."..%Y. | 00000590: 2E 42 59 53 50 52 55 4E 47 3B 20 42 45 49 20 41 |.BYSPRUNG; BEI A| 000005A0: 4E 4B 4C 49 43 4B 45 4E 20 5A 55 52 20 D2 4F 55 |NKLICKEN ZUR .OU| 000005B0: 54 49 4E 45 20 D2 C5 D8 D4 D5 D2 CE A0 53 50 52 |TINE ........SPR| 000005C0: 49 4E 47 45 4E 00 AB 25 5E 01 20 2E 57 4F 52 45 |INGEN..%^. .WORE| 000005D0: 54 55 52 4E 00 C5 25 63 01 3B 20 20 20 28 54 45 |TURN..%c.; (TE| 000005E0: 58 54 20 5A 55 20 4D 45 4E 55 45 20 32 29 00 DA |XT ZU MENUE 2)..| 000005F0: 25 68 01 4D 54 45 58 54 33 20 2E 54 58 22 C7 C5 |%h.MTEXT3 .TX"..| 00000600: CF D3 22 00 E7 25 6D 01 20 2E 42 59 4E 55 4C 4C |.."..%m. .BYNULL| 00000610: 00 ED 25 72 01 3B 00 F3 25 77 01 3B 00 F9 25 7C |..%r.;..%w.;..%|| 00000620: 01 3B 00 1C 26 81 01 3B 20 20 23 23 20 D2 45 41 |.;..&..; ## .EA| 00000630: 4B 54 49 4F 4E 45 4E 20 5A 55 20 CD 45 4E 55 45 |KTIONEN ZU .ENUE| 00000640: 20 31 20 23 23 00 3F 26 86 01 3B 20 20 23 23 23 | 1 ##.?&..; ###| 00000650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################| 00000660: 23 23 23 23 23 23 23 23 00 45 26 8B 01 3B 00 7E |########.E&..;.~| 00000670: 26 90 01 45 58 45 43 31 20 4A 53 52 49 4E 49 54 |&..EXEC1 JSRINIT| 00000680: 49 4F 3B 20 D6 C9 C3 20 49 4E 20 44 45 4E 20 C1 |IO; ... IN DEN .| 00000690: 44 52 45 53 53 42 45 52 45 49 43 48 20 45 49 4E |DRESSBEREICH EIN| 000006A0: 42 4C 45 4E 44 45 4E 00 B2 26 95 01 20 4C 44 58 |BLENDEN..&.. LDX| 000006B0: 23 24 46 46 3B 20 D8 2D 49 4E 44 49 5A 49 45 52 |#$FF; .-INDIZIER| 000006C0: 54 45 20 D3 43 48 4C 45 49 46 45 20 5A 55 4D 20 |TE .CHLEIFE ZUM | 000006D0: C6 41 52 42 57 45 43 48 53 45 4C 00 C4 26 9A 01 |.ARBWECHSEL..&..| 000006E0: 4C 4F 4F 50 20 49 4E 43 24 44 30 32 30 00 D1 26 |LOOP INC$D020..&| 000006F0: 9F 01 20 4C 44 59 23 24 46 46 00 DD 26 A4 01 4C |.. LDY#$FF..&..L| 00000700: 50 32 20 44 45 59 00 E9 26 A9 01 20 42 4E 45 4C |P2 DEY..&.. BNEL| 00000710: 50 32 00 F2 26 AE 01 20 44 45 58 00 FF 26 B3 01 |P2..&.. DEX..&..| 00000720: 20 42 4E 45 4C 4F 4F 50 00 3E 27 B8 01 20 4A 53 | BNELOOP.>'.. JS| 00000730: 52 44 4F 4E 45 49 4F 3B 20 CF 52 49 47 49 4E 41 |RDONEIO; .RIGINA| 00000740: 4C 20 C7 C5 CF D3 2D CB 4F 4E 46 49 47 55 52 41 |L ....-.ONFIGURA| 00000750: 54 49 4F 4E 20 57 49 45 44 45 52 20 45 49 4E 53 |TION WIEDER EINS| 00000760: 43 48 41 4C 54 45 4E 00 7F 27 BD 01 20 2E 2E 2E |CHALTEN..'.. ...| 00000770: 4C 4F 41 44 57 28 54 41 42 45 4C 4C 45 33 2C 52 |LOADW(TABELLE3,R| 00000780: 30 29 3B 20 C1 44 52 45 53 53 45 20 44 45 53 20 |0); .DRESSE DES | 00000790: D5 4E 54 45 52 4D 45 4E 55 45 53 20 48 49 4E 54 |.NTERMENUES HINT| 000007A0: 45 52 4C 41 53 53 45 4E 00 9B 27 C2 01 20 52 54 |ERLASSEN..'.. RT| 000007B0: 53 3B 20 5A 55 52 20 C8 41 55 50 54 53 43 48 4C |S; ZUR .AUPTSCHL| 000007C0: 45 49 46 45 00 A1 27 C7 01 3B 00 D2 27 CC 01 54 |EIFE..'..;..'..T| 000007D0: 41 42 45 4C 4C 45 33 20 2E 42 59 31 39 3B 20 D5 |ABELLE3 .BY19; .| 000007E0: 4E 54 45 52 4D 45 4E 55 45 20 5A 55 20 CD 45 4E |NTERMENUE ZU .EN| 000007F0: 55 45 50 55 4E 4B 54 20 31 2F 32 00 DD 27 D1 01 |UEPUNKT 1/2..'..| 00000800: 20 2E 42 59 33 30 00 E8 27 D6 01 20 2E 57 4F 38 | .BY30..'.. .WO8| 00000810: 30 00 F4 27 DB 01 20 2E 57 4F 31 31 30 00 13 28 |0..'.. .WO110..(| 00000820: E0 01 20 2E 42 59 31 21 4F 21 43 4C 4F 53 49 4E |.. .BY1!O!CLOSIN| 00000830: 47 21 4F 21 56 45 52 54 49 4B 41 4C 00 19 28 E5 |G!O!VERTIKAL..(.| 00000840: 01 3B 00 3B 28 EA 01 20 2E 57 4F 4D 54 45 58 54 |.;.;(.. .WOMTEXT| 00000850: 33 3B 20 DA 45 49 47 45 52 20 41 55 46 20 22 C7 |3; .EIGER AUF ".| 00000860: C5 CF D3 22 00 4A 28 EF 01 20 2E 42 59 53 50 52 |...".J(.. .BYSPR| 00000870: 55 4E 47 00 59 28 F4 01 20 2E 57 4F 52 45 54 55 |UNG.Y(.. .WORETU| 00000880: 52 4E 00 5F 28 F9 01 3B 00 82 28 FE 01 52 45 54 |RN._(..;..(..RET| 00000890: 55 52 4E 20 4A 4D 50 44 45 53 4B 54 4F 50 3B 20 |URN JMPDESKTOP; | 000008A0: DA 55 4D 20 C4 45 53 4B D4 4F 50 00 00 00 |.UM .ESK.OP... |
X...D..BA 2000.. I..OB "@:MENUEDEMO-EXE,
P,W".- N. ...INIT-LIB; GEOS-BIBLIOTHEK O
EFFNEN.J S. ...CLS; SCHIRM LOESCHEN.Y X.
...EXECLIB(MTEXT1,CONVERT); MENUETEXTE
1,.. }. ...EXECLIB(MTEXT2,CONVERT);
2 UND.. .. ...EXECLIB(MTEXT3,CONVE
RT); 3 KONVERTIEREN..!.. ...MENU
(TABELLE1,0); MENUE AUFBAUEN.H!..SCHLEIF
E ...CALLMAIN(SCHLEIFE); HAUPTSCHLEIFE A
NSPRINGEN.N!..;.T!..;.Z!..;.`! .;.F!..;.
.!..;### TABELLE FUER MENUELEISTE ###..!
..;################################..!..
TABELLE1 .BY5; ANGABEN ZUR GROESSE DES M
ENUES..!.. .BY17..!.. .WO5.."C. .WO130.?
"H. .BY2!O!VISIBLE!O!HORIZONTAL; 2 EINTR
AAGE, HORIZONTAL.C"M.; ## MENUEPUNKT "ME
NUE-DEMO" ##.Y"R.MPUNKT1 .WOMTEXT1.."W.
.BYSUBMENUE; ALS UNTERMENUE.J".. .WOTABE
LLE2; ZEIGER AUF UNTERMENUETABELLLE.."..
; ## MENUEPUNKT "MENUELEISTE" ##..#..MPU
NKT2 .WOMTEXT2./#.. .BYSPRUNTERM; UNTERM
ENUE MIT ROUTINE.R#.. .WOEXEC1; ZEIGER A
UF DISPATCH.X#..;.^#..;.Z#..; (TEXTE
ZU MENUE1)..#..MTEXT1 .TX"MENUE-DEMO";
TEXT ZU MENUE 1,PUNKT 1.Z#.. .BYNULL; AB
SCHLUSSKENNUNG (WIE IMMER!)..$..MTEXT2 .
TX"MENUELEISTE"; TEXT ZU MENUE 1,PUNKT 2
..$.. .BYNULL."$..;.($..;..$".;.T$'.;##
UNTERMENUE ZU "MENUE-DEMO" ##.Z$,.;#####
###########################..$1.;..$6.TA
BELLE2 .BY18; UNTERMENUE ZU MENUE1,PUNK
T 1..$;. .BY30.G$@. .WO5.R$E. .WO30..%J.
.BY1!O!VISIBLE!O!VERTIKAL; 1 MENUEPUNKT
,SCHLIESSEND,VERTIKAL.3%O.; ## MENUEPUN
KT "GEOS" ##.A%T.MPUNKT3 .WOMTEXT3; ZEIG
ER AUF TEXT "GEOS"..%Y. .BYSPRUNG; BEI A
NKLICKEN ZUR ROUTINE REXTURN SPRINGEN..%
^. .WORETURN.E%C.; (TEXT ZU MENUE 2).Z
%H.MTEXT3 .TX"GEOS"..%M. .BYNULL..%R.;..
%W.;..%|.;..&..; ## REAKTIONEN ZU MENUE
1 ##.?&..; ###########################
.E&..;.~&..EXEC1 JSRINITIO; VIC IN DEN A
DRESSBEREICH EINBLENDEN..&.. LDX#$FF; X-
INDIZIERTE SCHLEIFE ZUM FARBWECHSEL.D&..
LOOP INC$D020.Q&.. LDY#$FF..&..LP2 DEY..
&.. BNELP2..&.. DEX..&.. BNELOOP.>'.. JS
RDONEIO; ORIGINAL GEOS-KONFIGURATION WIE
DER EINSCHALTEN.'.. ...LOADW(TABELLE3,R
0); ADRESSE DES UNTERMENUES HINTERLASSEN
..'B. RTS; ZUR HAUPTSCHLEIFE..'G.;.R'L.T
ABELLE3 .BY19; UNTERMENUE ZU MENUEPUNKT
1/2..'Q. .BY30..'V. .WO80..'.. .WO110..(
.. .BY1!O!CLOSING!O!VERTIKAL..(..;.;(..
.WOMTEXT3; ZEIGER AUF "GEOS".J(.. .BYSPR
UNG.Y(.. .WORETURN._(..;..(..RETURN JMPD
ESKTOP; ZUM DESKTOP...
> CLICK IMAGE PREVIEW FOR FULL MODAL