MENUEDEMO+BIB.
FILE INFORMATION
FILENAME(S): MENUEDEMO+BIB.
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 1 disk(s)
FILE HASH
8e8867e164dadb1c70347ff96ea7dc15caa93ce5386b83d5a4f1971520bde304
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10708 SEITE 1 | MENUEDEMO+BIB. | PRG | C64er | 24 | 0 | 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 A8 28 10 27 |.UM .ESK.OP..(.'|
000008B0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008D0: 2A 00 AE 28 11 27 3B 00 CE 28 12 27 3B 20 C7 45 |*..(.';..(.'; .E|
000008E0: 4F 53 20 CC 49 42 52 41 52 59 20 3A 20 CB 4F 4E |OS .IBRARY : .ON|
000008F0: 53 54 41 4E 54 45 4E 00 F2 28 13 27 3B 20 20 20 |STANTEN..(.'; |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 50 52 | .PR|
00000910: 55 4E 47 41 44 52 45 53 53 45 4E 00 0E 29 14 27 |UNGADRESSEN..).'|
00000920: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00000930: 20 CD 41 4B 52 4F 53 00 14 29 15 27 3B 00 34 29 | .AKROS..).';.4)|
00000940: 16 27 3B 20 20 20 46 55 45 52 20 C7 C5 CF D3 20 |.'; FUER .... |
00000950: D0 52 4F 47 52 41 4D 4D 49 45 52 45 52 00 3A 29 |.ROGRAMMIERER.:)|
00000960: 17 27 3B 00 5B 29 18 27 3B 20 20 C1 55 54 4F 52 |.';.[).'; .UTOR|
00000970: 3A 20 D4 48 4F 52 53 54 45 4E 20 D0 45 54 52 4F |: .HORSTEN .ETRO|
00000980: 57 53 4B 49 00 61 29 19 27 3B 00 86 29 1A 27 3B |WSKI.a).';..).';|
00000990: 20 20 20 20 20 20 20 28 43 29 20 31 39 38 37 20 | (C) 1987 |
000009A0: 36 34 27 45 52 20 20 3E 20 D6 31 2E 31 20 3C 00 |64'ER > .1.1 <.|
000009B0: 8C 29 1B 27 3B 00 B2 29 1C 27 3B 2A 2A 2A 2A 2A |.).';..).';*****|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 29 1D 27 |***********..).'|
000009E0: 3B 00 BE 29 1E 27 3B 00 C4 29 1F 27 3B 00 E2 29 |;..).';..).';..)|
000009F0: 20 27 3B 20 2A 2A 20 D5 45 42 45 52 47 45 42 45 | '; ** .EBERGEBE|
00000A00: 4E 20 44 45 52 20 C7 C5 CF D3 2D 00 04 2A 21 27 |N DER ....-..*!'|
00000A10: 3B 20 20 20 20 CB 4F 4E 53 54 41 4E 54 45 4E 20 |; .ONSTANTEN |
00000A20: 26 20 D2 4F 55 54 49 4E 45 4E 20 2A 2A 00 0A 2A |& .OUTINEN **..*|
00000A30: 22 27 3B 00 1B 2A 23 27 2E 4D 41 20 49 4E 49 54 |"';..*#'.MA INIT|
00000A40: 2D 4C 49 42 00 37 2A E0 2E 2E 47 4C 20 49 50 55 |-LIB.7*...GL IPU|
00000A50: 54 53 54 52 49 4E 47 20 20 3D 20 24 43 31 41 45 |TSTRING = $C1AE|
00000A60: 00 4F 2A E1 2E 2E 47 4C 20 4E 55 4C 4C 20 20 20 |.O*...GL NULL |
00000A70: 20 20 20 20 20 3D 20 30 00 67 2A E2 2E 2E 47 4C | = 0.g*...GL|
00000A80: 20 42 41 43 4B 53 50 43 20 20 20 20 20 3D 20 38 | BACKSPC = 8|
00000A90: 00 7F 2A E3 2E 2E 47 4C 20 46 57 44 53 50 43 20 |..*...GL FWDSPC |
00000AA0: 20 20 20 20 20 3D 20 39 00 98 2A E4 2E 2E 47 4C | = 9..*...GL|
00000AB0: 20 4C 46 20 20 20 20 20 20 20 20 20 20 3D 20 31 | LF = 1|
00000AC0: 30 00 B1 2A E6 2E 2E 47 4C 20 55 50 4C 20 20 20 |0..*...GL UPL |
00000AD0: 20 20 20 20 20 20 3D 20 31 32 00 CA 2A E7 2E 2E | = 12..*...|
00000AE0: 47 4C 20 43 52 20 20 20 20 20 20 20 20 20 20 3D |GL CR =|
00000AF0: 20 31 33 00 E3 2A E8 2E 2E 47 4C 20 55 4E 44 45 | 13..*...GL UNDE|
00000B00: 52 4C 49 4E 45 4F 4E 20 3D 20 31 34 00 FC 2A E9 |RLINEON = 14..*.|
00000B10: 2E 2E 47 4C 20 55 4E 44 45 52 4C 49 4E 45 4F 46 |..GL UNDERLINEOF|
00000B20: 46 3D 20 31 35 00 15 2B EA 2E 2E 47 4C 20 52 45 |F= 15..+...GL RE|
00000B30: 56 45 52 53 45 4F 4E 20 20 20 3D 20 31 38 00 2E |VERSEON = 18..|
00000B40: 2B EB 2E 2E 47 4C 20 52 45 56 45 52 53 45 4F 46 |+...GL REVERSEOF|
00000B50: 46 20 20 3D 20 31 39 00 47 2B EC 2E 2E 47 4C 20 |F = 19.G+...GL |
00000B60: 47 4F 54 4F 58 20 20 20 20 20 20 20 3D 20 32 30 |GOTOX = 20|
00000B70: 00 60 2B ED 2E 2E 47 4C 20 47 4F 54 4F 59 20 20 |.`+...GL GOTOY |
00000B80: 20 20 20 20 20 3D 20 32 31 00 79 2B EE 2E 2E 47 | = 21.y+...G|
00000B90: 4C 20 47 4F 54 4F 58 59 20 20 20 20 20 20 3D 20 |L GOTOXY = |
00000BA0: 32 32 00 92 2B EF 2E 2E 47 4C 20 42 4F 4C 44 4F |22..+...GL BOLDO|
00000BB0: 4E 20 20 20 20 20 20 3D 20 32 34 00 AB 2B F0 2E |N = 24..+..|
00000BC0: 2E 47 4C 20 49 54 41 4C 49 43 4F 4E 20 20 20 20 |.GL ITALICON |
00000BD0: 3D 20 32 35 00 C4 2B F1 2E 2E 47 4C 20 4F 55 54 |= 25..+...GL OUT|
00000BE0: 4C 49 4E 45 20 20 20 20 20 3D 20 32 36 00 DD 2B |LINE = 26..+|
00000BF0: F2 2E 2E 47 4C 20 50 4C 41 49 4E 54 45 58 54 20 |...GL PLAINTEXT |
00000C00: 20 20 3D 20 32 37 00 F7 2B F3 2E 2E 47 4C 20 43 | = 27..+...GL C|
00000C10: 4F 4D 4D 4F 44 4F 52 45 20 20 20 3D 20 31 32 38 |OMMODORE = 128|
00000C20: 00 13 2C F4 2E 3B 20 2A 2A 20 4E 45 55 20 53 45 |..,..; ** NEU SE|
00000C30: 49 54 20 54 45 49 4C 20 34 20 2A 2A 00 2D 2C F5 |IT TEIL 4 **.-,.|
00000C40: 2E 2E 47 4C 20 52 30 20 20 20 20 20 20 20 20 20 |..GL R0 |
00000C50: 20 3D 20 24 30 32 00 47 2C F6 2E 2E 47 4C 20 52 | = $02.G,...GL R|
00000C60: 31 20 20 20 20 20 20 20 20 20 20 3D 20 24 30 34 |1 = $04|
00000C70: 00 61 2C F8 2E 2E 47 4C 20 52 32 20 20 20 20 20 |.a,...GL R2 |
00000C80: 20 20 20 20 20 3D 20 24 30 36 00 7B 2C F9 2E 2E | = $06.{,...|
00000C90: 47 4C 20 52 33 20 20 20 20 20 20 20 20 20 20 3D |GL R3 =|
00000CA0: 20 24 30 38 00 95 2C FA 2E 2E 47 4C 20 52 34 20 | $08..,...GL R4 |
00000CB0: 20 20 20 20 20 20 20 20 20 3D 20 24 30 41 00 AF | = $0A..|
00000CC0: 2C FB 2E 2E 47 4C 20 52 35 20 20 20 20 20 20 20 |,...GL R5 |
00000CD0: 20 20 20 3D 20 24 30 43 00 C9 2C FC 2E 2E 47 4C | = $0C..,...GL|
00000CE0: 20 52 36 20 20 20 20 20 20 20 20 20 20 3D 20 24 | R6 = $|
00000CF0: 30 45 00 E3 2C FD 2E 2E 47 4C 20 52 37 20 20 20 |0E..,...GL R7 |
00000D00: 20 20 20 20 20 20 20 3D 20 24 31 30 00 FD 2C FE | = $10..,.|
00000D10: 2E 2E 47 4C 20 52 38 20 20 20 20 20 20 20 20 20 |..GL R8 |
00000D20: 20 3D 20 24 31 32 00 17 2D FF 2E 2E 47 4C 20 52 | = $12..-...GL R|
00000D30: 39 20 20 20 20 20 20 20 20 20 20 3D 20 24 31 34 |9 = $14|
00000D40: 00 31 2D 00 2F 2E 47 4C 20 52 31 30 20 20 20 20 |.1-./.GL R10 |
00000D50: 20 20 20 20 20 3D 20 24 31 36 00 4B 2D 01 2F 2E | = $16.K-./.|
00000D60: 47 4C 20 52 31 31 20 20 20 20 20 20 20 20 20 3D |GL R11 =|
00000D70: 20 24 31 38 00 65 2D 02 2F 2E 47 4C 20 52 31 32 | $18.e-./.GL R12|
00000D80: 20 20 20 20 20 20 20 20 20 3D 20 24 31 41 00 7F | = $1A..|
00000D90: 2D 03 2F 2E 47 4C 20 52 31 33 20 20 20 20 20 20 |-./.GL R13 |
00000DA0: 20 20 20 3D 20 24 31 43 00 99 2D 04 2F 2E 47 4C | = $1C..-./.GL|
00000DB0: 20 52 31 34 20 20 20 20 20 20 20 20 20 3D 20 24 | R14 = $|
00000DC0: 31 45 00 B3 2D 05 2F 2E 47 4C 20 52 31 35 20 20 |1E..-./.GL R15 |
00000DD0: 20 20 20 20 20 20 20 3D 20 24 32 30 00 CF 2D 06 | = $20..-.|
00000DE0: 2F 2E 47 4C 20 50 41 4E 49 43 20 20 20 20 20 20 |/.GL PANIC |
00000DF0: 20 3D 20 24 43 32 43 32 00 EB 2D 07 2F 2E 47 4C | = $C2C2..-./.GL|
00000E00: 20 49 4E 49 54 49 4F 20 20 20 20 20 20 3D 20 24 | INITIO = $|
00000E10: 43 32 35 43 00 07 2E 08 2F 2E 47 4C 20 44 4F 4E |C25C..../.GL DON|
00000E20: 45 49 4F 20 20 20 20 20 20 3D 20 24 43 32 35 46 |EIO = $C25F|
00000E30: 00 23 2E 09 2F 2E 47 4C 20 44 45 53 4B 54 4F 50 |.#../.GL DESKTOP|
00000E40: 20 20 20 20 20 3D 20 24 43 32 32 43 00 3F 2E 0A | = $C22C.?..|
00000E50: 2F 3B 20 2A 2A 20 4E 45 55 20 53 45 49 54 20 54 |/; ** NEU SEIT T|
00000E60: 45 49 4C 20 35 20 2A 2A 00 5B 2E 0B 2F 2E 47 4C |EIL 5 **.[../.GL|
00000E70: 20 44 49 41 4C 42 4F 58 20 20 20 20 20 3D 20 24 | DIALBOX = $|
00000E80: 43 32 35 36 00 77 2E 0C 2F 2E 47 4C 20 4F 4B 20 |C256.w../.GL OK |
00000E90: 20 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 31 | = $01|
00000EA0: 00 93 2E 0D 2F 2E 47 4C 20 43 41 4E 43 45 4C 20 |..../.GL CANCEL |
00000EB0: 20 20 20 20 20 3D 20 20 20 24 30 32 00 AF 2E 0E | = $02....|
00000EC0: 2F 2E 47 4C 20 59 45 53 20 20 20 20 20 20 20 20 |/.GL YES |
00000ED0: 20 3D 20 20 20 24 30 33 00 CB 2E 0F 2F 2E 47 4C | = $03..../.GL|
00000EE0: 20 4E 4F 20 20 20 20 20 20 20 20 20 20 3D 20 20 | NO = |
00000EF0: 20 24 30 34 00 E7 2E 10 2F 2E 47 4C 20 4F 50 45 | $04..../.GL OPE|
00000F00: 4E 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 35 |N = $05|
00000F10: 00 03 2F 11 2F 2E 47 4C 20 44 49 53 4B 20 20 20 |.././.GL DISK |
00000F20: 20 20 20 20 20 3D 20 20 20 24 30 36 00 1F 2F 12 | = $06../.|
00000F30: 2F 2E 47 4C 20 44 42 54 58 54 53 54 52 20 20 20 |/.GL DBTXTSTR |
00000F40: 20 3D 20 20 20 20 31 31 00 3B 2F 13 2F 2E 47 4C | = 11.;/./.GL|
00000F50: 20 44 42 56 41 52 53 54 52 20 20 20 20 3D 20 20 | DBVARSTR = |
00000F60: 20 20 31 32 00 57 2F 14 2F 2E 47 4C 20 44 42 47 | 12.W/./.GL DBG|
00000F70: 45 54 53 54 52 49 4E 47 20 3D 20 20 20 20 31 33 |ETSTRING = 13|
00000F80: 00 73 2F 15 2F 2E 47 4C 20 44 42 53 59 53 4F 50 |.s/./.GL DBSYSOP|
00000F90: 56 20 20 20 20 3D 20 20 20 20 31 34 00 95 2F 16 |V = 14../.|
00000FA0: 2F 2E 47 4C 20 44 42 47 45 54 46 49 4C 45 53 20 |/.GL DBGETFILES |
00000FB0: 20 3D 20 20 20 20 31 35 20 3B 20 2A 2A 2A 00 B1 | = 15 ; ***..|
00000FC0: 2F 17 2F 2E 47 4C 20 44 42 4F 50 56 20 20 20 20 |/./.GL DBOPV |
00000FD0: 20 20 20 3D 20 20 20 20 31 37 00 D3 2F 18 2F 2E | = 17.././.|
00000FE0: 47 4C 20 44 42 55 53 52 49 43 4F 4E 20 20 20 3D |GL DBUSRICON =|
00000FF0: 20 20 20 20 31 38 20 3B 20 2A 2A 2A 00 EF 2F 19 | 18 ; ***../.|
00001000: 2F 2E 47 4C 20 44 42 55 53 52 52 4F 55 54 20 20 |/.GL DBUSRROUT |
00001010: 20 3D 20 20 20 20 31 39 00 09 30 1A 2F 3B 20 2A | = 19..0./; *|
00001020: 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 36 | NEU SEIT TEIL 6|
00001030: 20 2A 00 26 30 1B 2F 2E 47 4C 20 48 4C 49 4E 45 | *.&0./.GL HLINE|
00001040: 20 20 20 20 20 20 20 3D 20 20 24 43 31 31 38 00 | = $C118.|
00001050: 43 30 1C 2F 2E 47 4C 20 49 4E 56 4C 49 4E 45 20 |C0./.GL INVLINE |
00001060: 20 20 20 20 3D 20 20 24 43 31 31 42 00 60 30 1D | = $C11B.`0.|
00001070: 2F 2E 47 4C 20 52 45 43 56 4C 49 4E 45 20 20 20 |/.GL RECVLINE |
00001080: 20 3D 20 20 24 43 31 31 45 00 91 30 1E 2F 2E 47 | = $C11E..0./.G|
00001090: 4C 20 49 4D 50 52 4C 49 4E 45 20 20 20 20 3D 20 |L IMPRLINE = |
000010A0: 20 24 45 44 44 32 20 3B 20 4E 55 52 20 46 55 45 | $EDD2 ; NUR FUE|
000010B0: 52 20 47 45 4F 53 20 31 2E 32 00 AE 30 1F 2F 2E |R GEOS 1.2..0./.|
000010C0: 47 4C 20 56 4C 49 4E 45 20 20 20 20 20 20 20 3D |GL VLINE =|
000010D0: 20 20 24 43 31 32 31 00 CB 30 20 2F 2E 47 4C 20 | $C121..0 /.GL |
000010E0: 42 4F 58 20 20 20 20 20 20 20 20 20 3D 20 20 24 |BOX = $|
000010F0: 43 31 32 34 00 E8 30 21 2F 2E 47 4C 20 46 52 41 |C124..0!/.GL FRA|
00001100: 4D 45 20 20 20 20 20 20 20 3D 20 20 24 43 31 32 |ME = $C12|
00001110: 37 00 05 31 22 2F 2E 47 4C 20 49 4E 56 42 4F 58 |7..1"/.GL INVBOX|
00001120: 20 20 20 20 20 20 3D 20 20 24 43 31 32 41 00 22 | = $C12A."|
00001130: 31 23 2F 2E 47 4C 20 52 45 43 56 42 4F 58 20 20 |1#/.GL RECVBOX |
00001140: 20 20 20 3D 20 20 24 43 31 32 44 00 3F 31 24 2F | = $C12D.?1$/|
00001150: 2E 47 4C 20 4C 49 4E 45 20 20 20 20 20 20 20 20 |.GL LINE |
00001160: 3D 20 20 24 43 31 33 30 00 5C 31 25 2F 2E 47 4C |= $C130.\1%/.GL|
00001170: 20 50 4F 49 4E 54 20 20 20 20 20 20 20 3D 20 20 | POINT = |
00001180: 24 43 31 33 33 00 79 31 26 2F 2E 47 4C 20 53 54 |$C133.y1&/.GL ST|
00001190: 52 49 4E 47 20 20 20 20 20 20 3D 20 20 24 43 31 |RING = $C1|
000011A0: 33 36 00 96 31 27 2F 2E 47 4C 20 53 45 54 50 49 |36..1'/.GL SETPI|
000011B0: 58 20 20 20 20 20 20 3D 20 20 20 20 20 20 31 00 |X = 1.|
000011C0: B3 31 28 2F 2E 47 4C 20 4C 4E 45 50 49 58 20 20 |.1(/.GL LNEPIX |
000011D0: 20 20 20 20 3D 20 20 20 20 20 20 32 00 D0 31 29 | = 2..1)|
000011E0: 2F 2E 47 4C 20 42 4F 58 50 49 58 20 20 20 20 20 |/.GL BOXPIX |
000011F0: 20 3D 20 20 20 20 20 20 33 00 ED 31 2A 2F 2E 47 | = 3..1*/.G|
00001200: 4C 20 50 41 54 50 49 58 20 20 20 20 20 20 3D 20 |L PATPIX = |
00001210: 20 20 20 20 20 35 00 0A 32 2B 2F 2E 47 4C 20 50 | 5..2+/.GL P|
00001220: 55 54 50 49 58 20 20 20 20 20 20 3D 20 20 20 20 |UTPIX = |
00001230: 20 20 36 00 27 32 2C 2F 2E 47 4C 20 46 52 41 4D | 6.'2,/.GL FRAM|
00001240: 45 50 49 58 20 20 20 20 3D 20 20 20 20 20 20 37 |EPIX = 7|
00001250: 00 44 32 2D 2F 2E 47 4C 20 52 49 47 48 54 50 49 |.D2-/.GL RIGHTPI|
00001260: 58 20 20 20 20 3D 20 20 20 20 20 20 38 00 61 32 |X = 8.a2|
00001270: 2E 2F 2E 47 4C 20 44 4F 57 4E 50 49 58 20 20 20 |./.GL DOWNPIX |
00001280: 20 20 3D 20 20 20 20 20 20 39 00 7E 32 2F 2F 2E | = 9.~2//.|
00001290: 47 4C 20 44 52 50 49 58 20 20 20 20 20 20 20 3D |GL DRPIX =|
000012A0: 20 20 20 20 20 31 30 00 9B 32 30 2F 2E 47 4C 20 | 10..20/.GL |
000012B0: 50 41 54 54 45 52 4E 20 20 20 20 20 3D 20 20 24 |PATTERN = $|
000012C0: 43 31 33 39 00 B8 32 31 2F 2E 47 4C 20 53 43 41 |C139..21/.GL SCA|
000012D0: 4E 20 20 20 20 20 20 20 20 3D 20 20 24 43 31 31 |N = $C11|
000012E0: 42 00 D5 32 32 2F 2E 47 4C 20 52 50 4F 49 4E 54 |B..22/.GL RPOINT|
000012F0: 20 20 20 20 20 20 3D 20 20 24 43 31 33 46 00 F2 | = $C13F..|
00001300: 32 33 2F 2E 47 4C 20 49 42 4F 58 20 20 20 20 20 |23/.GL IBOX |
00001310: 20 20 20 3D 20 20 24 43 31 39 46 00 0F 33 34 2F | = $C19F..34/|
00001320: 2E 47 4C 20 49 46 52 41 4D 45 20 20 20 20 20 20 |.GL IFRAME |
00001330: 3D 20 20 24 43 31 41 32 00 2C 33 35 2F 2E 47 4C |= $C1A2.,35/.GL|
00001340: 20 49 52 45 56 42 4F 58 20 20 20 20 20 3D 20 20 | IREVBOX = |
00001350: 24 43 31 41 35 00 49 33 36 2F 2E 47 4C 20 49 53 |$C1A5.I36/.GL IS|
00001360: 54 52 49 4E 47 20 20 20 20 20 3D 20 20 24 43 31 |TRING = $C1|
00001370: 41 38 00 63 33 37 2F 3B 20 2A 20 4E 45 55 20 53 |A8.c37/; * NEU S|
00001380: 45 49 54 20 54 45 49 4C 20 37 20 2A 00 80 33 38 |EIT TEIL 7 *..38|
00001390: 2F 2E 47 4C 20 4D 41 49 4E 20 20 20 20 20 20 20 |/.GL MAIN |
000013A0: 20 3D 20 20 24 43 31 43 33 00 9D 33 39 2F 2E 47 | = $C1C3..39/.G|
000013B0: 4C 20 4D 45 4E 55 31 20 20 20 20 20 20 20 3D 20 |L MENU1 = |
000013C0: 20 24 43 31 42 44 00 BA 33 3A 2F 2E 47 4C 20 44 | $C1BD..3:/.GL D|
000013D0: 4F 4D 45 4E 55 20 20 20 20 20 20 3D 20 20 24 43 |OMENU = $C|
000013E0: 31 35 31 00 D7 33 3B 2F 2E 47 4C 20 56 45 52 54 |151..3;/.GL VERT|
000013F0: 49 4B 41 4C 20 20 20 20 3D 20 20 20 20 24 38 30 |IKAL = $80|
00001400: 00 F4 33 3C 2F 2E 47 4C 20 48 4F 52 49 5A 4F 4E |..3</.GL HORIZON|
00001410: 54 41 4C 20 20 3D 20 20 20 20 24 30 30 00 11 34 |TAL = $00..4|
00001420: 3D 2F 2E 47 4C 20 56 49 53 49 42 4C 45 20 20 20 |=/.GL VISIBLE |
00001430: 20 20 3D 20 20 20 20 24 34 30 00 2E 34 3E 2F 2E | = $40..4>/.|
00001440: 47 4C 20 43 4C 4F 53 49 4E 47 20 20 20 20 20 3D |GL CLOSING =|
00001450: 20 20 20 20 24 30 30 00 4B 34 3F 2F 2E 47 4C 20 | $00.K4?/.GL |
00001460: 53 50 52 55 4E 47 20 20 20 20 20 20 3D 20 20 20 |SPRUNG = |
00001470: 20 24 30 30 00 68 34 40 2F 2E 47 4C 20 53 50 52 | $00.h4@/.GL SPR|
00001480: 55 4E 54 45 52 4D 20 20 20 3D 20 20 20 20 24 34 |UNTERM = $4|
00001490: 30 00 85 34 41 2F 2E 47 4C 20 53 55 42 4D 45 4E |0..4A/.GL SUBMEN|
000014A0: 55 45 20 20 20 20 3D 20 20 20 20 24 38 30 00 A2 |UE = $80..|
000014B0: 34 42 2F 2E 47 4C 20 43 4F 4E 54 49 4E 55 45 20 |4B/.GL CONTINUE |
000014C0: 20 20 20 3D 20 20 24 38 34 39 42 00 AA 34 C7 32 | = $849B..4.2|
000014D0: 2E 52 54 00 B0 34 98 3A 3B 00 CD 34 9D 3A 3B 20 |.RT..4.:;..4.:; |
000014E0: 20 2A 20 CD 41 4B 52 4F 53 20 26 20 D2 4F 55 54 | * .AKROS & .OUT|
000014F0: 49 4E 45 4E 20 2A 00 09 35 A2 3A 3B 20 20 20 20 |INEN *..5.:; |
00001500: C2 49 42 4C 49 4F 54 48 45 4B 53 46 55 4E 4B 54 |.IBLIOTHEKSFUNKT|
00001510: 49 4F 4E 20 4D 49 54 20 D0 41 52 41 4D 45 54 45 |ION MIT .ARAMETE|
00001520: 52 20 56 45 52 53 4F 52 47 54 20 53 54 41 52 54 |R VERSORGT START|
00001530: 45 4E 00 26 35 A7 3A 2E 4D 41 20 45 58 45 43 4C |EN.&5.:.MA EXECL|
00001540: 49 42 20 28 4C 41 42 4C 45 2C 43 41 4C 4C 29 00 |IB (LABLE,CALL).|
00001550: 38 35 AC 3A 20 4C 44 41 23 3C 28 4C 41 42 4C 45 |85.: LDA#<(LABLE|
00001560: 29 00 44 35 B1 3A 20 53 54 41 24 46 42 00 56 35 |).D5.: STA$FB.V5|
00001570: B6 3A 20 4C 44 41 23 3E 28 4C 41 42 4C 45 29 00 |.: LDA#>(LABLE).|
00001580: 62 35 BB 3A 20 53 54 41 24 46 43 00 6F 35 C0 3A |b5.: STA$FC.o5.:|
00001590: 20 4A 53 52 43 41 4C 4C 00 78 35 C5 3A 20 2E 52 | JSRCALL.x5.: .R|
000015A0: 54 00 7E 35 CA 3A 3B 00 84 35 CF 3A 3B 00 A8 35 |T.~5.:;..5.:;..5|
000015B0: D4 3A 3B 2F 2A 20 4B 4F 4E 56 45 52 54 49 45 52 |.:;/* KONVERTIER|
000015C0: 55 4E 47 20 54 45 58 54 2D 3E 47 45 4F 53 20 2A |UNG TEXT->GEOS *|
000015D0: 2F 00 BC 35 D9 3A 43 4F 4E 56 45 52 54 20 4C 44 |/..5.:CONVERT LD|
000015E0: 58 23 24 30 30 00 C8 35 DE 3A 20 4C 44 41 24 46 |X#$00..5.: LDA$F|
000015F0: 42 00 D8 35 E3 3A 20 53 54 41 43 4E 56 54 33 2B |B..5.: STACNVT3+|
00001600: 31 00 E7 35 E8 3A 20 53 54 41 4E 45 58 54 2B 31 |1..5.: STANEXT+1|
00001610: 00 F3 35 ED 3A 20 4C 44 41 24 46 43 00 03 36 F2 |..5.: LDA$FC..6.|
00001620: 3A 20 53 54 41 43 4E 56 54 33 2B 32 00 12 36 F7 |: STACNVT3+2..6.|
00001630: 3A 20 53 54 41 4E 45 58 54 2B 32 00 27 36 FC 3A |: STANEXT+2.'6.:|
00001640: 43 4E 56 54 33 20 4C 44 41 24 46 46 46 46 2C 58 |CNVT3 LDA$FFFF,X|
00001650: 00 36 36 01 3B 20 42 45 51 45 4E 44 43 4E 56 00 |.66.; BEQENDCNV.|
00001660: 4C 36 06 3B 43 4F 4E 56 45 52 54 43 44 20 43 4D |L6.;CONVERTCD CM|
00001670: 50 23 22 41 22 00 59 36 0B 3B 20 42 43 43 4E 45 |P#"A".Y6.; BCCNE|
00001680: 58 54 00 65 36 10 3B 20 43 4D 50 23 39 31 00 72 |XT.e6.; CMP#91.r|
00001690: 36 15 3B 20 42 43 53 4E 45 58 54 00 7F 36 1A 3B |6.; BCSNEXT..6.;|
000016A0: 20 45 4F 52 23 24 32 30 00 8C 36 1F 3B 20 4A 4D | EOR#$20..6.; JM|
000016B0: 50 4E 45 58 54 00 A1 36 24 3B 53 43 4E 44 43 4E |PNEXT..6$;SCNDCN|
000016C0: 56 54 20 43 4D 50 23 22 C1 22 00 AE 36 29 3B 20 |VT CMP#"."..6); |
000016D0: 42 43 43 4E 45 58 54 00 BB 36 2E 3B 20 43 4D 50 |BCCNEXT..6.; CMP|
000016E0: 23 32 31 39 00 C8 36 33 3B 20 42 43 53 4E 45 58 |#219..63; BCSNEX|
000016F0: 54 00 D5 36 38 3B 20 45 4F 52 23 24 32 30 00 E9 |T..68; EOR#$20..|
00001700: 36 3D 3B 4E 45 58 54 20 53 54 41 24 46 46 46 46 |6=;NEXT STA$FFFF|
00001710: 2C 58 00 F2 36 42 3B 20 49 4E 58 00 00 37 47 3B |,X..6B; INX..7G;|
00001720: 20 4A 4D 50 43 4E 56 54 33 00 0F 37 4C 3B 45 4E | JMPCNVT3..7L;EN|
00001730: 44 43 4E 56 20 52 54 53 00 15 37 51 3B 3B 00 1B |DCNV RTS..7Q;;..|
00001740: 37 56 3B 3B 00 35 37 5B 3B 3B 20 2A 20 D3 43 48 |7V;;.57[;; * .CH|
00001750: 49 52 4D 20 4C 4F 45 53 43 48 45 4E 20 2A 00 41 |IRM LOESCHEN *.A|
00001760: 37 60 3B 2E 4D 41 20 43 4C 53 00 4F 37 61 3B 20 |7`;.MA CLS.O7a; |
00001770: 4A 53 52 24 43 44 41 33 00 58 37 65 3B 20 2E 52 |JSR$CDA3.X7e; .R|
00001780: 54 00 5E 37 66 3B 3B 00 78 37 67 3B 3B 20 2A 20 |T.^7f;;.x7g;; * |
00001790: D3 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 20 |.TRING AUSGEBEN |
000017A0: 2A 00 90 37 6A 3B 2E 4D 41 20 50 55 54 53 54 52 |*..7j;.MA PUTSTR|
000017B0: 49 4E 47 20 28 58 2C 59 29 00 9E 37 74 3B 20 4A |ING (X,Y)..7t; J|
000017C0: 53 52 24 43 31 41 45 00 A8 37 79 3B 20 2E 57 4F |SR$C1AE..7y; .WO|
000017D0: 58 00 B2 37 7E 3B 20 2E 42 59 59 00 BB 37 83 3B |X..7~; .BYY..7.;|
000017E0: 20 2E 52 54 00 DA 37 88 3B 3B 2F 2A 2A 2A 20 4E | .RT..7.;;/*** N|
000017F0: 45 55 20 53 45 49 54 20 54 45 49 4C 20 34 20 2A |EU SEIT TEIL 4 *|
00001800: 2A 2A 2F 00 1C 38 8D 3B 2E 4D 41 20 4C 4F 41 44 |**/..8.;.MA LOAD|
00001810: 57 20 28 56 41 4C 55 45 2C 52 45 47 49 53 54 45 |W (VALUE,REGISTE|
00001820: 52 29 20 3B 20 57 4F 52 54 20 27 56 41 4C 55 45 |R) ; WORT 'VALUE|
00001830: 27 20 49 4E 20 27 52 45 47 49 53 54 45 52 27 20 |' IN 'REGISTER' |
00001840: 4C 41 44 45 4E 00 2E 38 92 3B 20 4C 44 41 23 3C |LADEN..8.; LDA#<|
00001850: 28 56 41 4C 55 45 29 00 3F 38 97 3B 20 53 54 41 |(VALUE).?8.; STA|
00001860: 52 45 47 49 53 54 45 52 00 51 38 9C 3B 20 4C 44 |REGISTER.Q8.; LD|
00001870: 41 23 3E 28 56 41 4C 55 45 29 00 64 38 A1 3B 20 |A#>(VALUE).d8.; |
00001880: 53 54 41 52 45 47 49 53 54 45 52 2B 31 00 6D 38 |STAREGISTER+1.m8|
00001890: A6 3B 20 2E 52 54 00 73 38 A7 3B 3B 00 C0 38 AB |.; .RT.s8.;;..8.|
000018A0: 3B 2E 4D 41 20 54 52 41 4E 53 57 20 28 53 52 43 |;.MA TRANSW (SRC|
000018B0: 52 45 47 2C 44 45 53 54 52 45 47 29 20 3B 20 57 |REG,DESTREG) ; W|
000018C0: 4F 52 54 20 41 55 53 20 27 53 52 43 52 45 47 27 |ORT AUS 'SRCREG'|
000018D0: 20 49 4E 20 27 44 45 53 54 52 45 47 27 20 55 45 | IN 'DESTREG' UE|
000018E0: 42 45 52 54 52 41 47 45 4E 00 CF 38 B0 3B 20 4C |BERTRAGEN..8.; L|
000018F0: 44 41 53 52 43 52 45 47 00 DF 38 B5 3B 20 53 54 |DASRCREG..8.; ST|
00001900: 41 44 45 53 54 52 45 47 00 F0 38 BA 3B 20 4C 44 |ADESTREG..8.; LD|
00001910: 41 53 52 43 52 45 47 2B 31 00 02 39 BF 3B 20 53 |ASRCREG+1..9.; S|
00001920: 54 41 44 45 53 54 52 45 47 2B 31 00 0B 39 C0 3B |TADESTREG+1..9.;|
00001930: 20 2E 52 54 00 11 39 C1 3B 3B 00 38 39 14 3C 2E | .RT..9.;;.89.<.|
00001940: 4D 41 20 50 55 53 48 43 50 55 20 20 3B 20 43 50 |MA PUSHCPU ; CP|
00001950: 55 20 49 4E 48 41 4C 54 45 20 53 49 43 48 45 52 |U INHALTE SICHER|
00001960: 4E 00 44 39 1E 3C 20 53 54 41 24 46 44 00 50 39 |N.D9.< STA$FD.P9|
00001970: 28 3C 20 53 54 58 24 46 45 00 5C 39 32 3C 20 53 |(< STX$FE.\92< S|
00001980: 54 59 24 46 46 00 65 39 37 3C 20 50 48 50 00 6E |TY$FF.e97< PHP.n|
00001990: 39 3C 3C 20 2E 52 54 00 74 39 41 3C 3B 00 A0 39 |9<< .RT.t9A<;..9|
000019A0: 46 3C 2E 4D 41 20 50 4F 50 43 50 55 20 20 20 3B |F<.MA POPCPU ;|
000019B0: 20 43 50 55 20 49 4E 48 41 4C 54 45 20 5A 55 52 | CPU INHALTE ZUR|
000019C0: 55 45 43 4B 4C 41 44 45 4E 00 AC 39 4B 3C 20 4C |UECKLADEN..9K< L|
000019D0: 44 41 24 46 44 00 B8 39 50 3C 20 4C 44 58 24 46 |DA$FD..9P< LDX$F|
000019E0: 45 00 C4 39 5A 3C 20 4C 44 59 24 46 46 00 CD 39 |E..9Z< LDY$FF..9|
000019F0: 5B 3C 20 50 4C 50 00 D6 39 5F 3C 20 2E 52 54 00 |[< PLP..9_< .RT.|
00001A00: DC 39 60 3C 3B 00 F9 39 64 3C 2E 4D 41 20 52 45 |.9`<;..9d<.MA RE|
00001A10: 53 45 54 43 50 55 20 3B 20 43 50 55 2D 52 45 53 |SETCPU ; CPU-RES|
00001A20: 45 54 00 06 3A 78 3C 20 4C 44 41 23 24 30 30 00 |ET..:x< LDA#$00.|
00001A30: 0F 3A 82 3C 20 50 48 41 00 18 3A 87 3C 20 50 4C |.:.< PHA..:.< PL|
00001A40: 50 00 21 3A 8C 3C 20 54 41 58 00 2A 3A 91 3C 20 |P.!:.< TAX.*:.< |
00001A50: 54 41 59 00 33 3A 96 3C 20 2E 52 54 00 39 3A 97 |TAY.3:.< .RT.9:.|
00001A60: 3C 3B 00 55 3A A0 3C 3B 20 2A 2A 20 4E 45 55 20 |<;.U:.<; ** NEU |
00001A70: 53 45 49 54 20 54 45 49 4C 20 35 20 2A 2A 00 6F |SEIT TEIL 5 **.o|
00001A80: 3A A5 3C 2E 4D 41 20 44 49 41 4C 42 4F 58 20 28 |:.<.MA DIALBOX (|
00001A90: 41 44 52 45 53 53 45 29 00 83 3A AA 3C 20 4C 44 |ADRESSE)..:.< LD|
00001AA0: 41 23 3C 28 41 44 52 45 53 53 45 29 00 8F 3A AF |A#<(ADRESSE)..:.|
00001AB0: 3C 20 53 54 41 24 30 32 00 A3 3A B4 3C 20 4C 44 |< STA$02..:.< LD|
00001AC0: 41 23 3E 28 41 44 52 45 53 53 45 29 00 AF 3A B9 |A#>(ADRESSE)..:.|
00001AD0: 3C 20 53 54 41 24 30 33 00 B7 3A BE 3C 2E 52 54 |< STA$03..:.<.RT|
00001AE0: 00 BD 3A C3 3C 3B 00 E4 3A C8 3C 2E 4D 41 20 44 |..:.<;..:.<.MA D|
00001AF0: 49 41 4C 49 4E 54 52 4F 20 28 4D 55 53 54 45 52 |IALINTRO (MUSTER|
00001B00: 2C 59 53 2C 59 45 2C 58 53 2C 58 45 29 00 F3 3A |,YS,YE,XS,XE)..:|
00001B10: CD 3C 20 2E 42 59 4D 55 53 54 45 52 00 FE 3A D2 |.< .BYMUSTER..:.|
00001B20: 3C 20 2E 42 59 59 53 00 09 3B D7 3C 20 2E 42 59 |< .BYYS..;.< .BY|
00001B30: 59 45 00 14 3B DC 3C 20 2E 57 4F 58 53 00 1F 3B |YE..;.< .WOXS..;|
00001B40: E1 3C 20 2E 57 4F 58 45 00 27 3B E6 3C 2E 52 54 |.< .WOXE.';.<.RT|
00001B50: 00 2D 3B EB 3C 3B 00 49 3B F0 3C 3B 20 2A 2A 20 |.-;.<;.I;.<; ** |
00001B60: 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 37 20 |NEU SEIT TEIL 7 |
00001B70: 2A 2A 00 5F 3B F5 3C 2E 4D 41 20 4D 45 4E 55 20 |**._;.<.MA MENU |
00001B80: 28 41 44 52 2C 4E 52 29 00 76 3B FA 3C 20 2E 2E |(ADR,NR).v;.< ..|
00001B90: 2E 4C 4F 41 44 57 28 41 44 52 2C 24 30 32 29 00 |.LOADW(ADR,$02).|
00001BA0: 82 3B FF 3C 20 4C 44 41 23 4E 52 00 90 3B 04 3D |.;.< LDA#NR..;.=|
00001BB0: 20 4A 53 52 24 43 31 35 31 00 98 3B 09 3D 2E 52 | JSR$C151..;.=.R|
00001BC0: 54 00 9E 3B 0E 3D 3B 00 B5 3B 13 3D 2E 4D 41 20 |T..;.=;..;.=.MA |
00001BD0: 43 41 4C 4C 4D 41 49 4E 20 28 41 44 52 29 00 CE |CALLMAIN (ADR)..|
00001BE0: 3B 18 3D 20 2E 2E 2E 4C 4F 41 44 57 28 41 44 52 |;.= ...LOADW(ADR|
00001BF0: 2C 24 38 34 39 42 29 00 DC 3B 22 3D 20 4A 4D 50 |,$849B)..;"= JMP|
00001C00: 24 43 31 43 33 00 E4 3B 27 3D 2E 52 54 00 EC 3B |$C1C3..;'=.RT..;|
00001C10: 7F 3E 2E 45 4E 00 00 00 |.>.EN... |
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..(.';***************
*****************..(.';.N(.'; GEOS LIBRA
RY : KONSTANTEN..(.'; SPR
UNGADRESSEN..).'; MAKROS.
.).';.4).'; FUER GEOS PROGRAMMIERER.:)
.';.[).'; AUTOR: THORSTEN PETROWSKI.A).
';..).'; (C) 1987 64'ER > V1.1 <.
.).';..).';*****************************
***..).';..).';.D).';..) '; ** UEBERGEBE
N DER GEOS-..*!'; KONSTANTEN & ROUTIN
EN **..*"';..*#'.MA INIT-LIB.7*...GL IPU
TSTRING = $C1AE.O*...GL NULL = 0
.G*...GL BACKSPC = 8.*...GL FWDSPC
= 9..*...GL LF = 10..*...G
L UPL = 12.J*...GL CR =
13..*...GL UNDERLINEON = 14..*...GL UND
ERLINEOFF= 15..+...GL REVERSEON = 18..
+...GL REVERSEOFF = 19.G+...GL GOTOX
= 20.`+...GL GOTOY = 21.Y+...G
L GOTOXY = 22..+...GL BOLDON =
24..+...GL ITALICON = 25.D+...GL OUT
LINE = 26..+...GL PLAINTEXT = 27..
+...GL COMMODORE = 128..,..; ** NEU SE
IT TEIL 4 **.-,...GL R0 = $02.G
,...GL R1 = $04.A,...GL R2
= $06.{,...GL R3 = $08..,.
..GL R4 = $0A..,...GL R5
= $0C.I,...GL R6 = $0E..,...
GL R7 = $10..,...GL R8
= $12..-...GL R9 = $14.1-./.GL
R10 = $16.K-./.GL R11 =
$18.E-./.GL R12 = $1A.-./.GL R
13 = $1C..-./.GL R14 = $
1E..-./.GL R15 = $20.O-./.GL PAN
IC = $C2C2..-./.GL INITIO = $
C25C..../.GL DONEIO = $C25F.#../.GL
DESKTOP = $C22C.?../; ** NEU SEIT T
EIL 5 **.[../.GL DIALBOX = $C256.W..
/.GL OK = $01..../.GL CANCEL
= $02..../.GL YES = $03
.K../.GL NO = $04..../.GL OPE
N = $05.././.GL DISK =
$06.././.GL DBTXTSTR = 11.;/./.GL
DBVARSTR = 12.W/./.GL DBGETSTRING
= 13.S/./.GL DBSYSOPV = 14../.
/.GL DBGETFILES = 15 ; ***.././.GL D
BOPV = 17.S/./.GL DBUSRICON =
18 ; ***.././.GL DBUSRROUT = 19
..0./; * NEU SEIT TEIL 6 *.&0./.GL HLINE
= $C118.C0./.GL INVLINE = $
C11B.`0./.GL RECVLINE = $C11E..0./.G
L IMPRLINE = $EDD2 ; NUR FUER GEOS 1
.2..0./.GL VLINE = $C121.K0 /.GL
BOX = $C124..0!/.GL FRAME
= $C127..1"/.GL INVBOX = $C12A."
1#/.GL RECVBOX = $C12D.?1$/.GL LINE
= $C130.\1%/.GL POINT =
$C133.Y1&/.GL STRING = $C136..1'/.
GL SETPIX = 1..1(/.GL LNEPIX
= 2.P1)/.GL BOXPIX =
3..1*/.GL PATPIX = 5..2+/.GL P
UTPIX = 6.'2,/.GL FRAMEPIX
= 7.D2-/.GL RIGHTPIX = 8.A2
./.GL DOWNPIX = 9.~2//.GL DRPIX
= 10..20/.GL PATTERN = $
C139..21/.GL SCAN = $C11B.U22/.G
L RPOINT = $C13F..23/.GL IBOX
= $C19F..34/.GL IFRAME = $C1A2
.,35/.GL IREVBOX = $C1A5.I36/.GL IS
TRING = $C1A8.C37/; * NEU SEIT TEIL
7 *..38/.GL MAIN = $C1C3..39/.G
L MENU1 = $C1BD..3:/.GL DOMENU
= $C151.W3;/.GL VERTIKAL = $80
..3</.GL HORIZONTAL = $00..4=/.GL VI
SIBLE = $40..4>/.GL CLOSING =
$00.K4?/.GL SPRUNG = $00.H4@
/.GL SPRUNTERM = $40..4A/.GL SUBMEN
UE = $80..4B/.GL CONTINUE = $8
49B..4G2.RT..4.:;.M4.:; * MAKROS & ROUT
INEN *..5.:; BIBLIOTHEKSFUNKTION MIT
PARAMETER VERSORGT STARTEN.&5.:.MA EXECL
IB (LABLE,CALL).85.: LDA#<(LABLE).D5.: S
TA$FB.V5.: LDA#>(LABLE).B5.: STA$FC.O5.:
JSRCALL.X5E: .RT.~5J:;..5O:;..5T:;/* KO
NVERTIERUNG TEXT->GEOS */..5Y:CONVERT LD
X#$00.H5.: LDA$FB.X5.: STACNVT3+1..5.: S
TANEXT+1..5.: LDA$FC..6.: STACNVT3+2..6.
: STANEXT+2.'6.:CNVT3 LDA$FFFF,X.66.; BE
QENDCNV.L6.;CONVERTCD CMP#"A".Y6.; BCCNE
XT.E6.; CMP#91.R6.; BCSNEXT.6.; EOR#$20
..6.; JMPNEXT..6$;SCNDCNVT CMP#"A"..6);
BCCNEXT..6.; CMP#219.H63; BCSNEXT.U68; E
OR#$20..6=;NEXT STA$FFFF,X..6B; INX..7G;
JMPCNVT3..7L;ENDCNV RTS..7Q;;..7V;;.57[
;; * SCHIRM LOESCHEN *.A7`;.MA CLS.O7A;
JSR$CDA3.X7E; .RT.^7F;;.X7G;; * STRING A
USGEBEN *..7J;.MA PUTSTRING (X,Y)..7T; J
SR$C1AE..7Y; .WOX..7~; .BYY..7.; .RT.Z7.
;;/*** NEU SEIT TEIL 4 ***/..8.;.MA LOAD
W (VALUE,REGISTER) ; WORT 'VALUE' IN 'RE
GISTER' LADEN..8.; LDA#<(VALUE).?8.; STA
REGISTER.Q8.; LDA#>(VALUE).D8.; STAREGIS
TER+1.M8.; .RT.S8.;;..8.;.MA TRANSW (SRC
REG,DESTREG) ; WORT AUS 'SRCREG' IN 'DES
TREG' UEBERTRAGEN.O8.; LDASRCREG..8.; ST
ADESTREG..8.; LDASRCREG+1..9.; STADESTRE
G+1..9.; .RT..9A;;.89.<.MA PUSHCPU ; CP
U INHALTE SICHERN.D9.< STA$FD.P9(< STX$F
E.\92< STY$FF.E97< PHP.N9<< .RT.T9A<;. 9
F<.MA POPCPU ; CPU INHALTE ZURUECKLADE
N..9K< LDA$FD..9P< LDX$FE.D9Z< LDY$FF.M9
[< PLP.V9_< .RT..9`<;..9D<.MA RESETCPU ;
CPU-RESET..:X< LDA#$00..:.< PHA..:.< PL
P.!:.< TAX.*:.< TAY.3:.< .RT.9:.<;.U: <;
** NEU SEIT TEIL 5 **.O:.<.MA DIALBOX (
ADRESSE)..:.< LDA#<(ADRESSE)..:.< STA$02
..:.< LDA#>(ADRESSE)..:.< STA$03..:.<.RT
..:C<;..:H<.MA DIALINTRO (MUSTER,YS,YE,X
S,XE)..:M< .BYMUSTER..:R< .BYYS..;W< .BY
YE..;.< .WOXS..;.< .WOXE.';.<.RT.-;.<;.I
;.<; ** NEU SEIT TEIL 7 **._;.<.MA MENU
(ADR,NR).V;.< ...LOADW(ADR,$02)..;.< LDA
#NR..;.= JSR$C151..;.=.RT..;.=;..;.=.MA
CALLMAIN (ADR).N;.= ...LOADW(ADR,$849B).
.;"= JMP$C1C3..;'=.RT..;>.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL