LISTING 14
FILE INFORMATION
FILENAME(S): LISTING 14
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 01:13:15
APPEARS ON: 1 disk(s)
FILE HASH
cbc6ac09483bb3fd40db9e86bc49c922cd73f450922220171c7fd3946b236513
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15828 SEITE A | LISTING 14 | PRG | C64er | 7 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 64 00 2E 42 41 20 24 32 30 30 30 00 |....d..BA $2000.|
00000010: 00 20 69 00 2E 4F 42 20 22 40 3A 4D 45 4E 55 45 |. i..OB "@:MENUE|
00000020: 2E 45 58 45 2C 50 2C 57 22 00 2A 20 6E 00 20 2E |.EXE,P,W".* n. .|
00000030: 2E 2E 49 4E 49 54 2D 4C 49 42 3B 20 C7 45 4F 53 |..INIT-LIB; .EOS|
00000040: 2D C2 49 42 4C 49 4F 54 48 45 4B 20 4F 45 46 46 |-.IBLIOTHEK OEFF|
00000050: 4E 45 4E 00 47 20 73 00 20 2E 2E 2E 43 4C 53 3B |NEN.G s. ...CLS;|
00000060: 20 D3 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E | .CHIRM LOESCHEN|
00000070: 00 76 20 78 00 20 2E 2E 2E 45 58 45 43 4C 49 42 |.v x. ...EXECLIB|
00000080: 28 4D 54 45 58 54 31 2C 43 4F 4E 56 45 52 54 29 |(MTEXT1,CONVERT)|
00000090: 3B 20 CD 45 4E 55 45 54 45 58 54 45 20 31 2C 00 |; .ENUETEXTE 1,.|
000000A0: A7 20 7D 00 20 2E 2E 2E 45 58 45 43 4C 49 42 28 |. }. ...EXECLIB(|
000000B0: 4D 54 45 58 54 32 2C 43 4F 4E 56 45 52 54 29 3B |MTEXT2,CONVERT);|
000000C0: 20 20 20 20 20 20 20 20 20 20 20 32 20 55 4E 44 | 2 UND|
000000D0: 00 DF 20 82 00 20 2E 2E 2E 45 58 45 43 4C 49 42 |.. .. ...EXECLIB|
000000E0: 28 4D 54 45 58 54 33 2C 43 4F 4E 56 45 52 54 29 |(MTEXT3,CONVERT)|
000000F0: 3B 20 20 20 20 20 20 20 20 20 33 20 4B 4F 4E 56 |; 3 KONV|
00000100: 45 52 54 49 45 52 45 4E 00 08 21 87 00 20 2E 2E |ERTIEREN..!.. ..|
00000110: 2E 4D 45 4E 55 28 54 41 42 45 4C 4C 45 31 2C 30 |.MENU(TABELLE1,0|
00000120: 29 3B 20 CD 45 4E 55 45 20 41 55 46 42 41 55 45 |); .ENUE AUFBAUE|
00000130: 4E 00 45 21 8C 00 53 43 48 4C 45 49 46 45 20 2E |N.E!..SCHLEIFE .|
00000140: 2E 2E 43 41 4C 4C 4D 41 49 4E 28 53 43 48 4C 45 |..CALLMAIN(SCHLE|
00000150: 49 46 45 29 3B 20 C8 41 55 50 54 53 43 48 4C 45 |IFE); .AUPTSCHLE|
00000160: 49 46 45 20 41 4E 53 50 52 49 4E 47 45 4E 00 4B |IFE ANSPRINGEN.K|
00000170: 21 91 00 3B 00 51 21 96 00 3B 00 57 21 9B 00 3B |!..;.Q!..;.W!..;|
00000180: 00 5D 21 A0 00 3B 00 63 21 A5 00 3B 00 89 21 AA |.]!..;.c!..;..!.|
00000190: 00 3B 23 23 23 20 D4 41 42 45 4C 4C 45 20 46 55 |.;### .ABELLE FU|
000001A0: 45 52 20 CD 45 4E 55 45 4C 45 49 53 54 45 20 23 |ER .ENUELEISTE #|
000001B0: 23 23 00 AF 21 AF 00 3B 23 23 23 23 23 23 23 23 |##..!..;########|
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 00 E1 21 B4 00 54 41 42 |########..!..TAB|
000001E0: 45 4C 4C 45 31 20 2E 42 59 35 3B 20 C1 4E 47 41 |ELLE1 .BY5; .NGA|
000001F0: 42 45 4E 20 5A 55 52 20 C7 52 4F 45 53 53 45 20 |BEN ZUR .ROESSE |
00000200: 44 45 53 20 CD 45 4E 55 45 53 00 EC 21 B9 00 20 |DES .ENUES..!.. |
00000210: 2E 42 59 31 37 00 F6 21 BE 00 20 2E 57 4F 35 00 |.BY17..!.. .WO5.|
00000220: 02 22 C3 00 20 2E 57 4F 31 33 30 00 3C 22 C8 00 |.".. .WO130.<"..|
00000230: 20 2E 42 59 32 21 4F 21 56 49 53 49 42 4C 45 21 | .BY2!O!VISIBLE!|
00000240: 4F 21 48 4F 52 49 5A 4F 4E 54 41 4C 3B 20 32 20 |O!HORIZONTAL; 2 |
00000250: C5 49 4E 54 52 41 41 47 45 2C 20 48 4F 52 49 5A |.INTRAAGE, HORIZ|
00000260: 4F 4E 54 41 4C 00 60 22 CD 00 3B 20 23 23 20 CD |ONTAL.`"..; ## .|
00000270: 45 4E 55 45 50 55 4E 4B 54 20 22 CD 45 4E 55 45 |ENUEPUNKT ".ENUE|
00000280: 2D C4 45 4D 4F 22 20 23 23 00 76 22 D2 00 4D 50 |-.EMO" ##.v"..MP|
00000290: 55 4E 4B 54 31 20 2E 57 4F 4D 54 45 58 54 31 00 |UNKT1 .WOMTEXT1.|
000002A0: 97 22 D7 00 20 2E 42 59 53 55 42 4D 45 4E 55 45 |.".. .BYSUBMENUE|
000002B0: 3B 20 41 4C 53 20 D5 4E 54 45 52 4D 45 4E 55 45 |; ALS .NTERMENUE|
000002C0: 00 C7 22 DC 00 20 2E 57 4F 54 41 42 45 4C 4C 45 |..".. .WOTABELLE|
000002D0: 32 3B 20 DA 45 49 47 45 52 20 41 55 46 20 D5 4E |2; .EIGER AUF .N|
000002E0: 54 45 52 4D 45 4E 55 45 54 41 42 45 4C 4C 4C 45 |TERMENUETABELLLE|
000002F0: 00 EC 22 E1 00 3B 20 23 23 20 CD 45 4E 55 45 50 |.."..; ## .ENUEP|
00000300: 55 4E 4B 54 20 22 CD 45 4E 55 45 4C 45 49 53 54 |UNKT ".ENUELEIST|
00000310: 45 22 20 23 23 00 02 23 E6 00 4D 50 55 4E 4B 54 |E" ##..#..MPUNKT|
00000320: 32 20 2E 57 4F 4D 54 45 58 54 32 00 2C 23 EB 00 |2 .WOMTEXT2.,#..|
00000330: 20 2E 42 59 53 50 52 55 4E 54 45 52 4D 3B 20 D5 | .BYSPRUNTERM; .|
00000340: 4E 54 45 52 4D 45 4E 55 45 20 4D 49 54 20 D2 4F |NTERMENUE MIT .O|
00000350: 55 54 49 4E 45 00 4F 23 F0 00 20 2E 57 4F 45 58 |UTINE.O#.. .WOEX|
00000360: 45 43 31 3B 20 DA 45 49 47 45 52 20 41 55 46 20 |EC1; .EIGER AUF |
00000370: C4 49 53 50 41 54 43 48 00 55 23 F5 00 3B 00 5B |.ISPATCH.U#..;.[|
00000380: 23 FA 00 3B 00 77 23 FF 00 3B 20 20 20 20 20 28 |#..;.w#..; (|
00000390: D4 45 58 54 45 20 5A 55 20 CD 45 4E 55 45 31 29 |.EXTE ZU .ENUE1)|
000003A0: 00 AB 23 04 01 4D 54 45 58 54 31 20 2E 54 58 22 |..#..MTEXT1 .TX"|
000003B0: CD 45 4E 55 45 2D C4 45 4D 4F 22 3B 20 D4 45 58 |.ENUE-.EMO"; .EX|
000003C0: 54 20 5A 55 20 CD 45 4E 55 45 20 31 2C D0 55 4E |T ZU .ENUE 1,.UN|
000003D0: 4B 54 20 31 00 D7 23 09 01 20 2E 42 59 4E 55 4C |KT 1..#.. .BYNUL|
000003E0: 4C 3B 20 C1 42 53 43 48 4C 55 53 53 4B 45 4E 4E |L; .BSCHLUSSKENN|
000003F0: 55 4E 47 20 28 57 49 45 20 49 4D 4D 45 52 21 29 |UNG (WIE IMMER!)|
00000400: 00 0C 24 0E 01 4D 54 45 58 54 32 20 2E 54 58 22 |..$..MTEXT2 .TX"|
00000410: CD 45 4E 55 45 4C 45 49 53 54 45 22 3B 20 D4 45 |.ENUELEISTE"; .E|
00000420: 58 54 20 5A 55 20 CD 45 4E 55 45 20 31 2C D0 55 |XT ZU .ENUE 1,.U|
00000430: 4E 4B 54 20 32 00 19 24 13 01 20 2E 42 59 4E 55 |NKT 2..$.. .BYNU|
00000440: 4C 4C 00 1F 24 18 01 3B 00 25 24 1D 01 3B 00 2B |LL..$..;.%$..;.+|
00000450: 24 22 01 3B 00 51 24 27 01 3B 23 23 20 D5 4E 54 |$".;.Q$'.;## .NT|
00000460: 45 52 4D 45 4E 55 45 20 5A 55 20 22 CD 45 4E 55 |ERMENUE ZU ".ENU|
00000470: 45 2D C4 45 4D 4F 22 20 23 23 00 77 24 2C 01 3B |E-.EMO" ##.w$,.;|
00000480: 23 23 23 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: 00 7D 24 31 01 3B 00 AF 24 36 01 54 41 42 45 4C |.}$1.;..$6.TABEL|
000004B0: 4C 45 32 20 2E 42 59 31 38 3B 20 D5 4E 54 45 52 |LE2 .BY18; .NTER|
000004C0: 4D 45 4E 55 45 20 5A 55 20 20 CD 45 4E 55 45 31 |MENUE ZU .ENUE1|
000004D0: 2C D0 55 4E 4B 54 20 31 00 BA 24 3B 01 20 2E 42 |,.UNKT 1..$;. .B|
000004E0: 59 33 30 00 C4 24 40 01 20 2E 57 4F 35 00 CF 24 |Y30..$@. .WO5..$|
000004F0: 45 01 20 2E 57 4F 33 30 00 11 25 4A 01 20 2E 42 |E. .WO30..%J. .B|
00000500: 59 31 21 4F 21 56 49 53 49 42 4C 45 21 4F 21 56 |Y1!O!VISIBLE!O!V|
00000510: 45 52 54 49 4B 41 4C 3B 20 31 20 CD 45 4E 55 45 |ERTIKAL; 1 .ENUE|
00000520: 50 55 4E 4B 54 2C 53 43 48 4C 49 45 53 53 45 4E |PUNKT,SCHLIESSEN|
00000530: 44 2C 56 45 52 54 49 4B 41 4C 00 30 25 4F 01 3B |D,VERTIKAL.0%O.;|
00000540: 20 20 23 23 20 CD 45 4E 55 45 50 55 4E 4B 54 20 | ## .ENUEPUNKT |
00000550: 22 C7 C5 CF D3 22 20 23 23 00 5E 25 54 01 4D 50 |"...." ##.^%T.MP|
00000560: 55 4E 4B 54 33 20 2E 57 4F 4D 54 45 58 54 33 3B |UNKT3 .WOMTEXT3;|
00000570: 20 DA 45 49 47 45 52 20 41 55 46 20 D4 45 58 54 | .EIGER AUF .EXT|
00000580: 20 22 C7 C5 CF D3 22 00 99 25 59 01 20 2E 42 59 | "...."..%Y. .BY|
00000590: 53 50 52 55 4E 47 3B 20 42 45 49 20 41 4E 4B 4C |SPRUNG; BEI ANKL|
000005A0: 49 43 4B 45 4E 20 5A 55 52 20 D2 4F 55 54 49 4E |ICKEN ZUR .OUTIN|
000005B0: 45 20 D2 C5 D8 D4 D5 D2 CE A0 53 50 52 49 4E 47 |E ........SPRING|
000005C0: 45 4E 00 A8 25 5E 01 20 2E 57 4F 52 45 54 55 52 |EN..%^. .WORETUR|
000005D0: 4E 00 C2 25 63 01 3B 20 20 20 28 54 45 58 54 20 |N..%c.; (TEXT |
000005E0: 5A 55 20 4D 45 4E 55 45 20 32 29 00 D7 25 68 01 |ZU MENUE 2)..%h.|
000005F0: 4D 54 45 58 54 33 20 2E 54 58 22 C7 C5 CF D3 22 |MTEXT3 .TX"...."|
00000600: 00 E4 25 6D 01 20 2E 42 59 4E 55 4C 4C 00 EA 25 |..%m. .BYNULL..%|
00000610: 72 01 3B 00 F0 25 77 01 3B 00 F6 25 7C 01 3B 00 |r.;..%w.;..%|.;.|
00000620: 19 26 81 01 3B 20 20 23 23 20 D2 45 41 4B 54 49 |.&..; ## .EAKTI|
00000630: 4F 4E 45 4E 20 5A 55 20 CD 45 4E 55 45 20 31 20 |ONEN ZU .ENUE 1 |
00000640: 23 23 00 3C 26 86 01 3B 20 20 23 23 23 23 23 23 |##.<&..; ######|
00000650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000660: 23 23 23 23 23 00 42 26 8B 01 3B 00 7B 26 90 01 |#####.B&..;.{&..|
00000670: 45 58 45 43 31 20 4A 53 52 49 4E 49 54 49 4F 3B |EXEC1 JSRINITIO;|
00000680: 20 D6 C9 C3 20 49 4E 20 44 45 4E 20 C1 44 52 45 | ... IN DEN .DRE|
00000690: 53 53 42 45 52 45 49 43 48 20 45 49 4E 42 4C 45 |SSBEREICH EINBLE|
000006A0: 4E 44 45 4E 00 AF 26 95 01 20 4C 44 58 23 24 46 |NDEN..&.. LDX#$F|
000006B0: 46 3B 20 D8 2D 49 4E 44 49 5A 49 45 52 54 45 20 |F; .-INDIZIERTE |
000006C0: D3 43 48 4C 45 49 46 45 20 5A 55 4D 20 C6 41 52 |.CHLEIFE ZUM .AR|
000006D0: 42 57 45 43 48 53 45 4C 00 C1 26 9A 01 4C 4F 4F |BWECHSEL..&..LOO|
000006E0: 50 20 49 4E 43 24 44 30 32 30 00 CE 26 9F 01 20 |P INC$D020..&.. |
000006F0: 4C 44 59 23 24 46 46 00 DA 26 A4 01 4C 50 32 20 |LDY#$FF..&..LP2 |
00000700: 44 45 59 00 E6 26 A9 01 20 42 4E 45 4C 50 32 00 |DEY..&.. BNELP2.|
00000710: EF 26 AE 01 20 44 45 58 00 FC 26 B3 01 20 42 4E |.&.. DEX..&.. BN|
00000720: 45 4C 4F 4F 50 00 3B 27 B8 01 20 4A 53 52 44 4F |ELOOP.;'.. JSRDO|
00000730: 4E 45 49 4F 3B 20 CF 52 49 47 49 4E 41 4C 20 C7 |NEIO; .RIGINAL .|
00000740: C5 CF D3 2D CB 4F 4E 46 49 47 55 52 41 54 49 4F |...-.ONFIGURATIO|
00000750: 4E 20 57 49 45 44 45 52 20 45 49 4E 53 43 48 41 |N WIEDER EINSCHA|
00000760: 4C 54 45 4E 00 7C 27 BD 01 20 2E 2E 2E 4C 4F 41 |LTEN.|'.. ...LOA|
00000770: 44 57 28 54 41 42 45 4C 4C 45 33 2C 52 30 29 3B |DW(TABELLE3,R0);|
00000780: 20 C1 44 52 45 53 53 45 20 44 45 53 20 D5 4E 54 | .DRESSE DES .NT|
00000790: 45 52 4D 45 4E 55 45 53 20 48 49 4E 54 45 52 4C |ERMENUES HINTERL|
000007A0: 41 53 53 45 4E 00 98 27 C2 01 20 52 54 53 3B 20 |ASSEN..'.. RTS; |
000007B0: 5A 55 52 20 C8 41 55 50 54 53 43 48 4C 45 49 46 |ZUR .AUPTSCHLEIF|
000007C0: 45 00 9E 27 C7 01 3B 00 CF 27 CC 01 54 41 42 45 |E..'..;..'..TABE|
000007D0: 4C 4C 45 33 20 2E 42 59 31 39 3B 20 D5 4E 54 45 |LLE3 .BY19; .NTE|
000007E0: 52 4D 45 4E 55 45 20 5A 55 20 CD 45 4E 55 45 50 |RMENUE ZU .ENUEP|
000007F0: 55 4E 4B 54 20 31 2F 32 00 DA 27 D1 01 20 2E 42 |UNKT 1/2..'.. .B|
00000800: 59 33 30 00 E5 27 D6 01 20 2E 57 4F 38 30 00 F1 |Y30..'.. .WO80..|
00000810: 27 DB 01 20 2E 57 4F 31 31 30 00 10 28 E0 01 20 |'.. .WO110..(.. |
00000820: 2E 42 59 31 21 4F 21 43 4C 4F 53 49 4E 47 21 4F |.BY1!O!CLOSING!O|
00000830: 21 56 45 52 54 49 4B 41 4C 00 16 28 E5 01 3B 00 |!VERTIKAL..(..;.|
00000840: 38 28 EA 01 20 2E 57 4F 4D 54 45 58 54 33 3B 20 |8(.. .WOMTEXT3; |
00000850: DA 45 49 47 45 52 20 41 55 46 20 22 C7 C5 CF D3 |.EIGER AUF "....|
00000860: 22 00 47 28 EF 01 20 2E 42 59 53 50 52 55 4E 47 |".G(.. .BYSPRUNG|
00000870: 00 56 28 F4 01 20 2E 57 4F 52 45 54 55 52 4E 00 |.V(.. .WORETURN.|
00000880: 5C 28 F9 01 3B 00 7F 28 FE 01 52 45 54 55 52 4E |\(..;..(..RETURN|
00000890: 20 4A 4D 50 44 45 53 4B 54 4F 50 3B 20 DA 55 4D | JMPDESKTOP; .UM|
000008A0: 20 C4 45 53 4B D4 4F 50 00 A5 28 10 27 3B 2A 2A | .ESK.OP..(.';**|
000008B0: 2A 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 00 AB |**************..|
000008D0: 28 11 27 3B 00 CB 28 12 27 3B 20 C7 45 4F 53 20 |(.';..(.'; .EOS |
000008E0: CC 49 42 52 41 52 59 20 3A 20 CB 4F 4E 53 54 41 |.IBRARY : .ONSTA|
000008F0: 4E 54 45 4E 00 EF 28 13 27 3B 20 20 20 20 20 20 |NTEN..(.'; |
00000900: 20 20 20 20 20 20 20 20 20 20 D3 50 52 55 4E 47 | .PRUNG|
00000910: 41 44 52 45 53 53 45 4E 00 0B 29 14 27 3B 20 20 |ADRESSEN..).'; |
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CD 41 | .A|
00000930: 4B 52 4F 53 00 11 29 15 27 3B 00 31 29 16 27 3B |KROS..).';.1).';|
00000940: 20 20 20 46 55 45 52 20 C7 C5 CF D3 20 D0 52 4F | FUER .... .RO|
00000950: 47 52 41 4D 4D 49 45 52 45 52 00 37 29 17 27 3B |GRAMMIERER.7).';|
00000960: 00 58 29 18 27 3B 20 20 C1 55 54 4F 52 3A 20 D4 |.X).'; .UTOR: .|
00000970: 48 4F 52 53 54 45 4E 20 D0 45 54 52 4F 57 53 4B |HORSTEN .ETROWSK|
00000980: 49 00 5E 29 19 27 3B 00 83 29 1A 27 3B 20 20 20 |I.^).';..).'; |
00000990: 20 20 20 20 28 43 29 20 31 39 38 37 20 36 34 27 | (C) 1987 64'|
000009A0: 45 52 20 20 3E 20 D6 31 2E 31 20 3C 00 89 29 1B |ER > .1.1 <..).|
000009B0: 27 3B 00 AF 29 1C 27 3B 2A 2A 2A 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 00 B5 29 1D 27 3B 00 BB |********..).';..|
000009E0: 29 1E 27 3B 00 C1 29 1F 27 3B 00 DF 29 20 27 3B |).';..).';..) ';|
000009F0: 20 2A 2A 20 D5 45 42 45 52 47 45 42 45 4E 20 44 | ** .EBERGEBEN D|
00000A00: 45 52 20 C7 C5 CF D3 2D 00 01 2A 21 27 3B 20 20 |ER ....-..*!'; |
00000A10: 20 20 CB 4F 4E 53 54 41 4E 54 45 4E 20 26 20 D2 | .ONSTANTEN & .|
00000A20: 4F 55 54 49 4E 45 4E 20 2A 2A 00 07 2A 22 27 3B |OUTINEN **..*"';|
00000A30: 00 18 2A 23 27 2E 4D 41 20 49 4E 49 54 2D 4C 49 |..*#'.MA INIT-LI|
00000A40: 42 00 34 2A E0 2E 2E 47 4C 20 49 50 55 54 53 54 |B.4*...GL IPUTST|
00000A50: 52 49 4E 47 20 20 3D 20 24 43 31 41 45 00 4C 2A |RING = $C1AE.L*|
00000A60: E1 2E 2E 47 4C 20 4E 55 4C 4C 20 20 20 20 20 20 |...GL NULL |
00000A70: 20 20 3D 20 30 00 64 2A E2 2E 2E 47 4C 20 42 41 | = 0.d*...GL BA|
00000A80: 43 4B 53 50 43 20 20 20 20 20 3D 20 38 00 7C 2A |CKSPC = 8.|*|
00000A90: E3 2E 2E 47 4C 20 46 57 44 53 50 43 20 20 20 20 |...GL FWDSPC |
00000AA0: 20 20 3D 20 39 00 95 2A E4 2E 2E 47 4C 20 4C 46 | = 9..*...GL LF|
00000AB0: 20 20 20 20 20 20 20 20 20 20 3D 20 31 30 00 AE | = 10..|
00000AC0: 2A E6 2E 2E 47 4C 20 55 50 4C 20 20 20 20 20 20 |*...GL UPL |
00000AD0: 20 20 20 3D 20 31 32 00 C7 2A E7 2E 2E 47 4C 20 | = 12..*...GL |
00000AE0: 43 52 20 20 20 20 20 20 20 20 20 20 3D 20 31 33 |CR = 13|
00000AF0: 00 E0 2A E8 2E 2E 47 4C 20 55 4E 44 45 52 4C 49 |..*...GL UNDERLI|
00000B00: 4E 45 4F 4E 20 3D 20 31 34 00 F9 2A E9 2E 2E 47 |NEON = 14..*...G|
00000B10: 4C 20 55 4E 44 45 52 4C 49 4E 45 4F 46 46 3D 20 |L UNDERLINEOFF= |
00000B20: 31 35 00 12 2B EA 2E 2E 47 4C 20 52 45 56 45 52 |15..+...GL REVER|
00000B30: 53 45 4F 4E 20 20 20 3D 20 31 38 00 2B 2B EB 2E |SEON = 18.++..|
00000B40: 2E 47 4C 20 52 45 56 45 52 53 45 4F 46 46 20 20 |.GL REVERSEOFF |
00000B50: 3D 20 31 39 00 44 2B EC 2E 2E 47 4C 20 47 4F 54 |= 19.D+...GL GOT|
00000B60: 4F 58 20 20 20 20 20 20 20 3D 20 32 30 00 5D 2B |OX = 20.]+|
00000B70: ED 2E 2E 47 4C 20 47 4F 54 4F 59 20 20 20 20 20 |...GL GOTOY |
00000B80: 20 20 3D 20 32 31 00 76 2B EE 2E 2E 47 4C 20 47 | = 21.v+...GL G|
00000B90: 4F 54 4F 58 59 20 20 20 20 20 20 3D 20 32 32 00 |OTOXY = 22.|
00000BA0: 8F 2B EF 2E 2E 47 4C 20 42 4F 4C 44 4F 4E 20 20 |.+...GL BOLDON |
00000BB0: 20 20 20 20 3D 20 32 34 00 A8 2B F0 2E 2E 47 4C | = 24..+...GL|
00000BC0: 20 49 54 41 4C 49 43 4F 4E 20 20 20 20 3D 20 32 | ITALICON = 2|
00000BD0: 35 00 C1 2B F1 2E 2E 47 4C 20 4F 55 54 4C 49 4E |5..+...GL OUTLIN|
00000BE0: 45 20 20 20 20 20 3D 20 32 36 00 DA 2B F2 2E 2E |E = 26..+...|
00000BF0: 47 4C 20 50 4C 41 49 4E 54 45 58 54 20 20 20 3D |GL PLAINTEXT =|
00000C00: 20 32 37 00 F4 2B F3 2E 2E 47 4C 20 43 4F 4D 4D | 27..+...GL COMM|
00000C10: 4F 44 4F 52 45 20 20 20 3D 20 31 32 38 00 10 2C |ODORE = 128..,|
00000C20: F4 2E 3B 20 2A 2A 20 4E 45 55 20 53 45 49 54 20 |..; ** NEU SEIT |
00000C30: 54 45 49 4C 20 34 20 2A 2A 00 2A 2C F5 2E 2E 47 |TEIL 4 **.*,...G|
00000C40: 4C 20 52 30 20 20 20 20 20 20 20 20 20 20 3D 20 |L R0 = |
00000C50: 24 30 32 00 44 2C F6 2E 2E 47 4C 20 52 31 20 20 |$02.D,...GL R1 |
00000C60: 20 20 20 20 20 20 20 20 3D 20 24 30 34 00 5E 2C | = $04.^,|
00000C70: F8 2E 2E 47 4C 20 52 32 20 20 20 20 20 20 20 20 |...GL R2 |
00000C80: 20 20 3D 20 24 30 36 00 78 2C F9 2E 2E 47 4C 20 | = $06.x,...GL |
00000C90: 52 33 20 20 20 20 20 20 20 20 20 20 3D 20 24 30 |R3 = $0|
00000CA0: 38 00 92 2C FA 2E 2E 47 4C 20 52 34 20 20 20 20 |8..,...GL R4 |
00000CB0: 20 20 20 20 20 20 3D 20 24 30 41 00 AC 2C FB 2E | = $0A..,..|
00000CC0: 2E 47 4C 20 52 35 20 20 20 20 20 20 20 20 20 20 |.GL R5 |
00000CD0: 3D 20 24 30 43 00 C6 2C FC 2E 2E 47 4C 20 52 36 |= $0C..,...GL R6|
00000CE0: 20 20 20 20 20 20 20 20 20 20 3D 20 24 30 45 00 | = $0E.|
00000CF0: E0 2C FD 2E 2E 47 4C 20 52 37 20 20 20 20 20 20 |.,...GL R7 |
00000D00: 20 20 20 20 3D 20 24 31 30 00 FA 2C FE 2E 2E 47 | = $10..,...G|
00000D10: 4C 20 52 38 20 20 20 20 20 20 20 20 20 20 3D 20 |L R8 = |
00000D20: 24 31 32 00 14 2D FF 2E 2E 47 4C 20 52 39 20 20 |$12..-...GL R9 |
00000D30: 20 20 20 20 20 20 20 20 3D 20 24 31 34 00 2E 2D | = $14..-|
00000D40: 00 2F 2E 47 4C 20 52 31 30 20 20 20 20 20 20 20 |./.GL R10 |
00000D50: 20 20 3D 20 24 31 36 00 48 2D 01 2F 2E 47 4C 20 | = $16.H-./.GL |
00000D60: 52 31 31 20 20 20 20 20 20 20 20 20 3D 20 24 31 |R11 = $1|
00000D70: 38 00 62 2D 02 2F 2E 47 4C 20 52 31 32 20 20 20 |8.b-./.GL R12 |
00000D80: 20 20 20 20 20 20 3D 20 24 31 41 00 7C 2D 03 2F | = $1A.|-./|
00000D90: 2E 47 4C 20 52 31 33 20 20 20 20 20 20 20 20 20 |.GL R13 |
00000DA0: 3D 20 24 31 43 00 96 2D 04 2F 2E 47 4C 20 52 31 |= $1C..-./.GL R1|
00000DB0: 34 20 20 20 20 20 20 20 20 20 3D 20 24 31 45 00 |4 = $1E.|
00000DC0: B0 2D 05 2F 2E 47 4C 20 52 31 35 20 20 20 20 20 |.-./.GL R15 |
00000DD0: 20 20 20 20 3D 20 24 32 30 00 CC 2D 06 2F 2E 47 | = $20..-./.G|
00000DE0: 4C 20 50 41 4E 49 43 20 20 20 20 20 20 20 3D 20 |L PANIC = |
00000DF0: 24 43 32 43 32 00 E8 2D 07 2F 2E 47 4C 20 49 4E |$C2C2..-./.GL IN|
00000E00: 49 54 49 4F 20 20 20 20 20 20 3D 20 24 43 32 35 |ITIO = $C25|
00000E10: 43 00 04 2E 08 2F 2E 47 4C 20 44 4F 4E 45 49 4F |C..../.GL DONEIO|
00000E20: 20 20 20 20 20 20 3D 20 24 43 32 35 46 00 20 2E | = $C25F. .|
00000E30: 09 2F 2E 47 4C 20 44 45 53 4B 54 4F 50 20 20 20 |./.GL DESKTOP |
00000E40: 20 20 3D 20 24 43 32 32 43 00 3C 2E 0A 2F 3B 20 | = $C22C.<../; |
00000E50: 2A 2A 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C |** NEU SEIT TEIL|
00000E60: 20 35 20 2A 2A 00 58 2E 0B 2F 2E 47 4C 20 44 49 | 5 **.X../.GL DI|
00000E70: 41 4C 42 4F 58 20 20 20 20 20 3D 20 24 43 32 35 |ALBOX = $C25|
00000E80: 36 00 74 2E 0C 2F 2E 47 4C 20 4F 4B 20 20 20 20 |6.t../.GL OK |
00000E90: 20 20 20 20 20 20 3D 20 20 20 24 30 31 00 90 2E | = $01...|
00000EA0: 0D 2F 2E 47 4C 20 43 41 4E 43 45 4C 20 20 20 20 |./.GL CANCEL |
00000EB0: 20 20 3D 20 20 20 24 30 32 00 AC 2E 0E 2F 2E 47 | = $02..../.G|
00000EC0: 4C 20 59 45 53 20 20 20 20 20 20 20 20 20 3D 20 |L YES = |
00000ED0: 20 20 24 30 33 00 C8 2E 0F 2F 2E 47 4C 20 4E 4F | $03..../.GL NO|
00000EE0: 20 20 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 | = $0|
00000EF0: 34 00 E4 2E 10 2F 2E 47 4C 20 4F 50 45 4E 20 20 |4..../.GL OPEN |
00000F00: 20 20 20 20 20 20 3D 20 20 20 24 30 35 00 00 2F | = $05../|
00000F10: 11 2F 2E 47 4C 20 44 49 53 4B 20 20 20 20 20 20 |./.GL DISK |
00000F20: 20 20 3D 20 20 20 24 30 36 00 1C 2F 12 2F 2E 47 | = $06.././.G|
00000F30: 4C 20 44 42 54 58 54 53 54 52 20 20 20 20 3D 20 |L DBTXTSTR = |
00000F40: 20 20 20 31 31 00 38 2F 13 2F 2E 47 4C 20 44 42 | 11.8/./.GL DB|
00000F50: 56 41 52 53 54 52 20 20 20 20 3D 20 20 20 20 31 |VARSTR = 1|
00000F60: 32 00 54 2F 14 2F 2E 47 4C 20 44 42 47 45 54 53 |2.T/./.GL DBGETS|
00000F70: 54 52 49 4E 47 20 3D 20 20 20 20 31 33 00 70 2F |TRING = 13.p/|
00000F80: 15 2F 2E 47 4C 20 44 42 53 59 53 4F 50 56 20 20 |./.GL DBSYSOPV |
00000F90: 20 20 3D 20 20 20 20 31 34 00 92 2F 16 2F 2E 47 | = 14.././.G|
00000FA0: 4C 20 44 42 47 45 54 46 49 4C 45 53 20 20 3D 20 |L DBGETFILES = |
00000FB0: 20 20 20 31 35 20 3B 20 2A 2A 2A 00 AE 2F 17 2F | 15 ; ***.././|
00000FC0: 2E 47 4C 20 44 42 4F 50 56 20 20 20 20 20 20 20 |.GL DBOPV |
00000FD0: 3D 20 20 20 20 31 37 00 D0 2F 18 2F 2E 47 4C 20 |= 17.././.GL |
00000FE0: 44 42 55 53 52 49 43 4F 4E 20 20 20 3D 20 20 20 |DBUSRICON = |
00000FF0: 20 31 38 20 3B 20 2A 2A 2A 00 EC 2F 19 2F 2E 47 | 18 ; ***.././.G|
00001000: 4C 20 44 42 55 53 52 52 4F 55 54 20 20 20 3D 20 |L DBUSRROUT = |
00001010: 20 20 20 31 39 00 06 30 1A 2F 3B 20 2A 20 4E 45 | 19..0./; * NE|
00001020: 55 20 53 45 49 54 20 54 45 49 4C 20 36 20 2A 00 |U SEIT TEIL 6 *.|
00001030: 23 30 1B 2F 2E 47 4C 20 48 4C 49 4E 45 20 20 20 |#0./.GL HLINE |
00001040: 20 20 20 20 3D 20 20 24 43 31 31 38 00 40 30 1C | = $C118.@0.|
00001050: 2F 2E 47 4C 20 49 4E 56 4C 49 4E 45 20 20 20 20 |/.GL INVLINE |
00001060: 20 3D 20 20 24 43 31 31 42 00 5D 30 1D 2F 2E 47 | = $C11B.]0./.G|
00001070: 4C 20 52 45 43 56 4C 49 4E 45 20 20 20 20 3D 20 |L RECVLINE = |
00001080: 20 24 43 31 31 45 00 8E 30 1E 2F 2E 47 4C 20 49 | $C11E..0./.GL I|
00001090: 4D 50 52 4C 49 4E 45 20 20 20 20 3D 20 20 24 45 |MPRLINE = $E|
000010A0: 44 44 32 20 3B 20 4E 55 52 20 46 55 45 52 20 47 |DD2 ; NUR FUER G|
000010B0: 45 4F 53 20 31 2E 32 00 AB 30 1F 2F 2E 47 4C 20 |EOS 1.2..0./.GL |
000010C0: 56 4C 49 4E 45 20 20 20 20 20 20 20 3D 20 20 24 |VLINE = $|
000010D0: 43 31 32 31 00 C8 30 20 2F 2E 47 4C 20 42 4F 58 |C121..0 /.GL BOX|
000010E0: 20 20 20 20 20 20 20 20 20 3D 20 20 24 43 31 32 | = $C12|
000010F0: 34 00 E5 30 21 2F 2E 47 4C 20 46 52 41 4D 45 20 |4..0!/.GL FRAME |
00001100: 20 20 20 20 20 20 3D 20 20 24 43 31 32 37 00 02 | = $C127..|
00001110: 31 22 2F 2E 47 4C 20 49 4E 56 42 4F 58 20 20 20 |1"/.GL INVBOX |
00001120: 20 20 20 3D 20 20 24 43 31 32 41 00 1F 31 23 2F | = $C12A..1#/|
00001130: 2E 47 4C 20 52 45 43 56 42 4F 58 20 20 20 20 20 |.GL RECVBOX |
00001140: 3D 20 20 24 43 31 32 44 00 3C 31 24 2F 2E 47 4C |= $C12D.<1$/.GL|
00001150: 20 4C 49 4E 45 20 20 20 20 20 20 20 20 3D 20 20 | LINE = |
00001160: 24 43 31 33 30 00 59 31 25 2F 2E 47 4C 20 50 4F |$C130.Y1%/.GL PO|
00001170: 49 4E 54 20 20 20 20 20 20 20 3D 20 20 24 43 31 |INT = $C1|
00001180: 33 33 00 76 31 26 2F 2E 47 4C 20 53 54 52 49 4E |33.v1&/.GL STRIN|
00001190: 47 20 20 20 20 20 20 3D 20 20 24 43 31 33 36 00 |G = $C136.|
000011A0: 93 31 27 2F 2E 47 4C 20 53 45 54 50 49 58 20 20 |.1'/.GL SETPIX |
000011B0: 20 20 20 20 3D 20 20 20 20 20 20 31 00 B0 31 28 | = 1..1(|
000011C0: 2F 2E 47 4C 20 4C 4E 45 50 49 58 20 20 20 20 20 |/.GL LNEPIX |
000011D0: 20 3D 20 20 20 20 20 20 32 00 CD 31 29 2F 2E 47 | = 2..1)/.G|
000011E0: 4C 20 42 4F 58 50 49 58 20 20 20 20 20 20 3D 20 |L BOXPIX = |
000011F0: 20 20 20 20 20 33 00 EA 31 2A 2F 2E 47 4C 20 50 | 3..1*/.GL P|
00001200: 41 54 50 49 58 20 20 20 20 20 20 3D 20 20 20 20 |ATPIX = |
00001210: 20 20 35 00 07 32 2B 2F 2E 47 4C 20 50 55 54 50 | 5..2+/.GL PUTP|
00001220: 49 58 20 20 20 20 20 20 3D 20 20 20 20 20 20 36 |IX = 6|
00001230: 00 24 32 2C 2F 2E 47 4C 20 46 52 41 4D 45 50 49 |.$2,/.GL FRAMEPI|
00001240: 58 20 20 20 20 3D 20 20 20 20 20 20 37 00 41 32 |X = 7.A2|
00001250: 2D 2F 2E 47 4C 20 52 49 47 48 54 50 49 58 20 20 |-/.GL RIGHTPIX |
00001260: 20 20 3D 20 20 20 20 20 20 38 00 5E 32 2E 2F 2E | = 8.^2./.|
00001270: 47 4C 20 44 4F 57 4E 50 49 58 20 20 20 20 20 3D |GL DOWNPIX =|
00001280: 20 20 20 20 20 20 39 00 7B 32 2F 2F 2E 47 4C 20 | 9.{2//.GL |
00001290: 44 52 50 49 58 20 20 20 20 20 20 20 3D 20 20 20 |DRPIX = |
000012A0: 20 20 31 30 00 98 32 30 2F 2E 47 4C 20 50 41 54 | 10..20/.GL PAT|
000012B0: 54 45 52 4E 20 20 20 20 20 3D 20 20 24 43 31 33 |TERN = $C13|
000012C0: 39 00 B5 32 31 2F 2E 47 4C 20 53 43 41 4E 20 20 |9..21/.GL SCAN |
000012D0: 20 20 20 20 20 20 3D 20 20 24 43 31 31 42 00 D2 | = $C11B..|
000012E0: 32 32 2F 2E 47 4C 20 52 50 4F 49 4E 54 20 20 20 |22/.GL RPOINT |
000012F0: 20 20 20 3D 20 20 24 43 31 33 46 00 EF 32 33 2F | = $C13F..23/|
00001300: 2E 47 4C 20 49 42 4F 58 20 20 20 20 20 20 20 20 |.GL IBOX |
00001310: 3D 20 20 24 43 31 39 46 00 0C 33 34 2F 2E 47 4C |= $C19F..34/.GL|
00001320: 20 49 46 52 41 4D 45 20 20 20 20 20 20 3D 20 20 | IFRAME = |
00001330: 24 43 31 41 32 00 29 33 35 2F 2E 47 4C 20 49 52 |$C1A2.)35/.GL IR|
00001340: 45 56 42 4F 58 20 20 20 20 20 3D 20 20 24 43 31 |EVBOX = $C1|
00001350: 41 35 00 46 33 36 2F 2E 47 4C 20 49 53 54 52 49 |A5.F36/.GL ISTRI|
00001360: 4E 47 20 20 20 20 20 3D 20 20 24 43 31 41 38 00 |NG = $C1A8.|
00001370: 60 33 37 2F 3B 20 2A 20 4E 45 55 20 53 45 49 54 |`37/; * NEU SEIT|
00001380: 20 54 45 49 4C 20 37 20 2A 00 7D 33 38 2F 2E 47 | TEIL 7 *.}38/.G|
00001390: 4C 20 4D 41 49 4E 20 20 20 20 20 20 20 20 3D 20 |L MAIN = |
000013A0: 20 24 43 31 43 33 00 9A 33 39 2F 2E 47 4C 20 4D | $C1C3..39/.GL M|
000013B0: 45 4E 55 31 20 20 20 20 20 20 20 3D 20 20 24 43 |ENU1 = $C|
000013C0: 31 42 44 00 B7 33 3A 2F 2E 47 4C 20 44 4F 4D 45 |1BD..3:/.GL DOME|
000013D0: 4E 55 20 20 20 20 20 20 3D 20 20 24 43 31 35 31 |NU = $C151|
000013E0: 00 D4 33 3B 2F 2E 47 4C 20 56 45 52 54 49 4B 41 |..3;/.GL VERTIKA|
000013F0: 4C 20 20 20 20 3D 20 20 20 20 24 38 30 00 F1 33 |L = $80..3|
00001400: 3C 2F 2E 47 4C 20 48 4F 52 49 5A 4F 4E 54 41 4C |</.GL HORIZONTAL|
00001410: 20 20 3D 20 20 20 20 24 30 30 00 0E 34 3D 2F 2E | = $00..4=/.|
00001420: 47 4C 20 56 49 53 49 42 4C 45 20 20 20 20 20 3D |GL VISIBLE =|
00001430: 20 20 20 20 24 34 30 00 2B 34 3E 2F 2E 47 4C 20 | $40.+4>/.GL |
00001440: 43 4C 4F 53 49 4E 47 20 20 20 20 20 3D 20 20 20 |CLOSING = |
00001450: 20 24 30 30 00 48 34 3F 2F 2E 47 4C 20 53 50 52 | $00.H4?/.GL SPR|
00001460: 55 4E 47 20 20 20 20 20 20 3D 20 20 20 20 24 30 |UNG = $0|
00001470: 30 00 65 34 40 2F 2E 47 4C 20 53 50 52 55 4E 54 |0.e4@/.GL SPRUNT|
00001480: 45 52 4D 20 20 20 3D 20 20 20 20 24 34 30 00 82 |ERM = $40..|
00001490: 34 41 2F 2E 47 4C 20 53 55 42 4D 45 4E 55 45 20 |4A/.GL SUBMENUE |
000014A0: 20 20 20 3D 20 20 20 20 24 38 30 00 9F 34 42 2F | = $80..4B/|
000014B0: 2E 47 4C 20 43 4F 4E 54 49 4E 55 45 20 20 20 20 |.GL CONTINUE |
000014C0: 3D 20 20 24 38 34 39 42 00 A7 34 C7 32 2E 52 54 |= $849B..4.2.RT|
000014D0: 00 AD 34 98 3A 3B 00 CA 34 9D 3A 3B 20 20 2A 20 |..4.:;..4.:; * |
000014E0: CD 41 4B 52 4F 53 20 26 20 D2 4F 55 54 49 4E 45 |.AKROS & .OUTINE|
000014F0: 4E 20 2A 00 06 35 A2 3A 3B 20 20 20 20 C2 49 42 |N *..5.:; .IB|
00001500: 4C 49 4F 54 48 45 4B 53 46 55 4E 4B 54 49 4F 4E |LIOTHEKSFUNKTION|
00001510: 20 4D 49 54 20 D0 41 52 41 4D 45 54 45 52 20 56 | MIT .ARAMETER V|
00001520: 45 52 53 4F 52 47 54 20 53 54 41 52 54 45 4E 00 |ERSORGT STARTEN.|
00001530: 23 35 A7 3A 2E 4D 41 20 45 58 45 43 4C 49 42 20 |#5.:.MA EXECLIB |
00001540: 28 4C 41 42 4C 45 2C 43 41 4C 4C 29 00 35 35 AC |(LABLE,CALL).55.|
00001550: 3A 20 4C 44 41 23 3C 28 4C 41 42 4C 45 29 00 41 |: LDA#<(LABLE).A|
00001560: 35 B1 3A 20 53 54 41 24 46 42 00 53 35 B6 3A 20 |5.: STA$FB.S5.: |
00001570: 4C 44 41 23 3E 28 4C 41 42 4C 45 29 00 5F 35 BB |LDA#>(LABLE)._5.|
00001580: 3A 20 53 54 41 24 46 43 00 6C 35 C0 3A 20 4A 53 |: STA$FC.l5.: JS|
00001590: 52 43 41 4C 4C 00 75 35 C5 3A 20 2E 52 54 00 7B |RCALL.u5.: .RT.{|
000015A0: 35 CA 3A 3B 00 81 35 CF 3A 3B 00 A5 35 D4 3A 3B |5.:;..5.:;..5.:;|
000015B0: 2F 2A 20 4B 4F 4E 56 45 52 54 49 45 52 55 4E 47 |/* KONVERTIERUNG|
000015C0: 20 54 45 58 54 2D 3E 47 45 4F 53 20 2A 2F 00 B9 | TEXT->GEOS */..|
000015D0: 35 D9 3A 43 4F 4E 56 45 52 54 20 4C 44 58 23 24 |5.:CONVERT LDX#$|
000015E0: 30 30 00 C5 35 DE 3A 20 4C 44 41 24 46 42 00 D5 |00..5.: LDA$FB..|
000015F0: 35 E3 3A 20 53 54 41 43 4E 56 54 33 2B 31 00 E4 |5.: STACNVT3+1..|
00001600: 35 E8 3A 20 53 54 41 4E 45 58 54 2B 31 00 F0 35 |5.: STANEXT+1..5|
00001610: ED 3A 20 4C 44 41 24 46 43 00 00 36 F2 3A 20 53 |.: LDA$FC..6.: S|
00001620: 54 41 43 4E 56 54 33 2B 32 00 0F 36 F7 3A 20 53 |TACNVT3+2..6.: S|
00001630: 54 41 4E 45 58 54 2B 32 00 24 36 FC 3A 43 4E 56 |TANEXT+2.$6.:CNV|
00001640: 54 33 20 4C 44 41 24 46 46 46 46 2C 58 00 33 36 |T3 LDA$FFFF,X.36|
00001650: 01 3B 20 42 45 51 45 4E 44 43 4E 56 00 49 36 06 |.; BEQENDCNV.I6.|
00001660: 3B 43 4F 4E 56 45 52 54 43 44 20 43 4D 50 23 22 |;CONVERTCD CMP#"|
00001670: 41 22 00 56 36 0B 3B 20 42 43 43 4E 45 58 54 00 |A".V6.; BCCNEXT.|
00001680: 62 36 10 3B 20 43 4D 50 23 39 31 00 6F 36 15 3B |b6.; CMP#91.o6.;|
00001690: 20 42 43 53 4E 45 58 54 00 7C 36 1A 3B 20 45 4F | BCSNEXT.|6.; EO|
000016A0: 52 23 24 32 30 00 89 36 1F 3B 20 4A 4D 50 4E 45 |R#$20..6.; JMPNE|
000016B0: 58 54 00 9E 36 24 3B 53 43 4E 44 43 4E 56 54 20 |XT..6$;SCNDCNVT |
000016C0: 43 4D 50 23 22 C1 22 00 AB 36 29 3B 20 42 43 43 |CMP#"."..6); BCC|
000016D0: 4E 45 58 54 00 B8 36 2E 3B 20 43 4D 50 23 32 31 |NEXT..6.; CMP#21|
000016E0: 39 00 C5 36 33 3B 20 42 43 53 4E 45 58 54 00 D2 |9..63; BCSNEXT..|
000016F0: 36 38 3B 20 45 4F 52 23 24 32 30 00 E6 36 3D 3B |68; EOR#$20..6=;|
00001700: 4E 45 58 54 20 53 54 41 24 46 46 46 46 2C 58 00 |NEXT STA$FFFF,X.|
00001710: EF 36 42 3B 20 49 4E 58 00 FD 36 47 3B 20 4A 4D |.6B; INX..6G; JM|
00001720: 50 43 4E 56 54 33 00 0C 37 4C 3B 45 4E 44 43 4E |PCNVT3..7L;ENDCN|
00001730: 56 20 52 54 53 00 12 37 51 3B 3B 00 18 37 56 3B |V RTS..7Q;;..7V;|
00001740: 3B 00 32 37 5B 3B 3B 20 2A 20 D3 43 48 49 52 4D |;.27[;; * .CHIRM|
00001750: 20 4C 4F 45 53 43 48 45 4E 20 2A 00 3E 37 60 3B | LOESCHEN *.>7`;|
00001760: 2E 4D 41 20 43 4C 53 00 4C 37 61 3B 20 4A 53 52 |.MA CLS.L7a; JSR|
00001770: 24 43 34 39 43 00 55 37 65 3B 20 2E 52 54 00 5B |$C49C.U7e; .RT.[|
00001780: 37 66 3B 3B 00 75 37 67 3B 3B 20 2A 20 D3 54 52 |7f;;.u7g;; * .TR|
00001790: 49 4E 47 20 41 55 53 47 45 42 45 4E 20 2A 00 8D |ING AUSGEBEN *..|
000017A0: 37 6A 3B 2E 4D 41 20 50 55 54 53 54 52 49 4E 47 |7j;.MA PUTSTRING|
000017B0: 20 28 58 2C 59 29 00 9B 37 74 3B 20 4A 53 52 24 | (X,Y)..7t; JSR$|
000017C0: 43 31 41 45 00 A5 37 79 3B 20 2E 57 4F 58 00 AF |C1AE..7y; .WOX..|
000017D0: 37 7E 3B 20 2E 42 59 59 00 B8 37 83 3B 20 2E 52 |7~; .BYY..7.; .R|
000017E0: 54 00 D7 37 88 3B 3B 2F 2A 2A 2A 20 4E 45 55 20 |T..7.;;/*** NEU |
000017F0: 53 45 49 54 20 54 45 49 4C 20 34 20 2A 2A 2A 2F |SEIT TEIL 4 ***/|
00001800: 00 19 38 8D 3B 2E 4D 41 20 4C 4F 41 44 57 20 28 |..8.;.MA LOADW (|
00001810: 56 41 4C 55 45 2C 52 45 47 49 53 54 45 52 29 20 |VALUE,REGISTER) |
00001820: 3B 20 57 4F 52 54 20 27 56 41 4C 55 45 27 20 49 |; WORT 'VALUE' I|
00001830: 4E 20 27 52 45 47 49 53 54 45 52 27 20 4C 41 44 |N 'REGISTER' LAD|
00001840: 45 4E 00 2B 38 92 3B 20 4C 44 41 23 3C 28 56 41 |EN.+8.; LDA#<(VA|
00001850: 4C 55 45 29 00 3C 38 97 3B 20 53 54 41 52 45 47 |LUE).<8.; STAREG|
00001860: 49 53 54 45 52 00 4E 38 9C 3B 20 4C 44 41 23 3E |ISTER.N8.; LDA#>|
00001870: 28 56 41 4C 55 45 29 00 61 38 A1 3B 20 53 54 41 |(VALUE).a8.; STA|
00001880: 52 45 47 49 53 54 45 52 2B 31 00 6A 38 A6 3B 20 |REGISTER+1.j8.; |
00001890: 2E 52 54 00 70 38 A7 3B 3B 00 BD 38 AB 3B 2E 4D |.RT.p8.;;..8.;.M|
000018A0: 41 20 54 52 41 4E 53 57 20 28 53 52 43 52 45 47 |A TRANSW (SRCREG|
000018B0: 2C 44 45 53 54 52 45 47 29 20 3B 20 57 4F 52 54 |,DESTREG) ; WORT|
000018C0: 20 41 55 53 20 27 53 52 43 52 45 47 27 20 49 4E | AUS 'SRCREG' IN|
000018D0: 20 27 44 45 53 54 52 45 47 27 20 55 45 42 45 52 | 'DESTREG' UEBER|
000018E0: 54 52 41 47 45 4E 00 CC 38 B0 3B 20 4C 44 41 53 |TRAGEN..8.; LDAS|
000018F0: 52 43 52 45 47 00 DC 38 B5 3B 20 53 54 41 44 45 |RCREG..8.; STADE|
00001900: 53 54 52 45 47 00 ED 38 BA 3B 20 4C 44 41 53 52 |STREG..8.; LDASR|
00001910: 43 52 45 47 2B 31 00 FF 38 BF 3B 20 53 54 41 44 |CREG+1..8.; STAD|
00001920: 45 53 54 52 45 47 2B 31 00 08 39 C0 3B 20 2E 52 |ESTREG+1..9.; .R|
00001930: 54 00 0E 39 C1 3B 3B 00 35 39 14 3C 2E 4D 41 20 |T..9.;;.59.<.MA |
00001940: 50 55 53 48 43 50 55 20 20 3B 20 43 50 55 20 49 |PUSHCPU ; CPU I|
00001950: 4E 48 41 4C 54 45 20 53 49 43 48 45 52 4E 00 41 |NHALTE SICHERN.A|
00001960: 39 1E 3C 20 53 54 41 24 46 44 00 4D 39 28 3C 20 |9.< STA$FD.M9(< |
00001970: 53 54 58 24 46 45 00 59 39 32 3C 20 53 54 59 24 |STX$FE.Y92< STY$|
00001980: 46 46 00 62 39 37 3C 20 50 48 50 00 6B 39 3C 3C |FF.b97< PHP.k9<<|
00001990: 20 2E 52 54 00 71 39 41 3C 3B 00 9D 39 46 3C 2E | .RT.q9A<;..9F<.|
000019A0: 4D 41 20 50 4F 50 43 50 55 20 20 20 3B 20 43 50 |MA POPCPU ; CP|
000019B0: 55 20 49 4E 48 41 4C 54 45 20 5A 55 52 55 45 43 |U INHALTE ZURUEC|
000019C0: 4B 4C 41 44 45 4E 00 A9 39 4B 3C 20 4C 44 41 24 |KLADEN..9K< LDA$|
000019D0: 46 44 00 B5 39 50 3C 20 4C 44 58 24 46 45 00 C1 |FD..9P< LDX$FE..|
000019E0: 39 5A 3C 20 4C 44 59 24 46 46 00 CA 39 5B 3C 20 |9Z< LDY$FF..9[< |
000019F0: 50 4C 50 00 D3 39 5F 3C 20 2E 52 54 00 D9 39 60 |PLP..9_< .RT..9`|
00001A00: 3C 3B 00 F6 39 64 3C 2E 4D 41 20 52 45 53 45 54 |<;..9d<.MA RESET|
00001A10: 43 50 55 20 3B 20 43 50 55 2D 52 45 53 45 54 00 |CPU ; CPU-RESET.|
00001A20: 03 3A 78 3C 20 4C 44 41 23 24 30 30 00 0C 3A 82 |.:x< LDA#$00..:.|
00001A30: 3C 20 50 48 41 00 15 3A 87 3C 20 50 4C 50 00 1E |< PHA..:.< PLP..|
00001A40: 3A 8C 3C 20 54 41 58 00 27 3A 91 3C 20 54 41 59 |:.< TAX.':.< TAY|
00001A50: 00 30 3A 96 3C 20 2E 52 54 00 36 3A 97 3C 3B 00 |.0:.< .RT.6:.<;.|
00001A60: 52 3A A0 3C 3B 20 2A 2A 20 4E 45 55 20 53 45 49 |R:.<; ** NEU SEI|
00001A70: 54 20 54 45 49 4C 20 35 20 2A 2A 00 6C 3A A5 3C |T TEIL 5 **.l:.<|
00001A80: 2E 4D 41 20 44 49 41 4C 42 4F 58 20 28 41 44 52 |.MA DIALBOX (ADR|
00001A90: 45 53 53 45 29 00 80 3A AA 3C 20 4C 44 41 23 3C |ESSE)..:.< LDA#<|
00001AA0: 28 41 44 52 45 53 53 45 29 00 8C 3A AF 3C 20 53 |(ADRESSE)..:.< S|
00001AB0: 54 41 24 30 32 00 A0 3A B4 3C 20 4C 44 41 23 3E |TA$02..:.< LDA#>|
00001AC0: 28 41 44 52 45 53 53 45 29 00 AC 3A B9 3C 20 53 |(ADRESSE)..:.< S|
00001AD0: 54 41 24 30 33 00 B4 3A BE 3C 2E 52 54 00 BA 3A |TA$03..:.<.RT..:|
00001AE0: C3 3C 3B 00 E1 3A C8 3C 2E 4D 41 20 44 49 41 4C |.<;..:.<.MA DIAL|
00001AF0: 49 4E 54 52 4F 20 28 4D 55 53 54 45 52 2C 59 53 |INTRO (MUSTER,YS|
00001B00: 2C 59 45 2C 58 53 2C 58 45 29 00 F0 3A CD 3C 20 |,YE,XS,XE)..:.< |
00001B10: 2E 42 59 4D 55 53 54 45 52 00 FB 3A D2 3C 20 2E |.BYMUSTER..:.< .|
00001B20: 42 59 59 53 00 06 3B D7 3C 20 2E 42 59 59 45 00 |BYYS..;.< .BYYE.|
00001B30: 11 3B DC 3C 20 2E 57 4F 58 53 00 1C 3B E1 3C 20 |.;.< .WOXS..;.< |
00001B40: 2E 57 4F 58 45 00 24 3B E6 3C 2E 52 54 00 2A 3B |.WOXE.$;.<.RT.*;|
00001B50: EB 3C 3B 00 46 3B F0 3C 3B 20 2A 2A 20 4E 45 55 |.<;.F;.<; ** NEU|
00001B60: 20 53 45 49 54 20 54 45 49 4C 20 37 20 2A 2A 00 | SEIT TEIL 7 **.|
00001B70: 5C 3B F5 3C 2E 4D 41 20 4D 45 4E 55 20 28 41 44 |\;.<.MA MENU (AD|
00001B80: 52 2C 4E 52 29 00 73 3B FA 3C 20 2E 2E 2E 4C 4F |R,NR).s;.< ...LO|
00001B90: 41 44 57 28 41 44 52 2C 24 30 32 29 00 7F 3B FF |ADW(ADR,$02)..;.|
00001BA0: 3C 20 4C 44 41 23 4E 52 00 8D 3B 04 3D 20 4A 53 |< LDA#NR..;.= JS|
00001BB0: 52 24 43 31 35 31 00 95 3B 09 3D 2E 52 54 00 9B |R$C151..;.=.RT..|
00001BC0: 3B 0E 3D 3B 00 B2 3B 13 3D 2E 4D 41 20 43 41 4C |;.=;..;.=.MA CAL|
00001BD0: 4C 4D 41 49 4E 20 28 41 44 52 29 00 CB 3B 18 3D |LMAIN (ADR)..;.=|
00001BE0: 20 2E 2E 2E 4C 4F 41 44 57 28 41 44 52 2C 24 38 | ...LOADW(ADR,$8|
00001BF0: 34 39 42 29 00 D9 3B 22 3D 20 4A 4D 50 24 43 31 |49B)..;"= JMP$C1|
00001C00: 43 33 00 E1 3B 27 3D 2E 52 54 00 E9 3B 7F 3E 2E |C3..;'=.RT..;.>.|
00001C10: 45 4E 00 00 00 |EN... |
X...D..BA $2000.. I..OB "@:MENUE.EXE,P,W
".* N. ...INIT-LIB; GEOS-BIBLIOTHEK OEFF
NEN.G S. ...CLS; SCHIRM LOESCHEN.V X. ..
.EXECLIB(MTEXT1,CONVERT); MENUETEXTE 1,.
. }. ...EXECLIB(MTEXT2,CONVERT);
2 UND.. .. ...EXECLIB(MTEXT3,CONVERT)
; 3 KONVERTIEREN..!.. ...MENU(TA
BELLE1,0); MENUE AUFBAUEN.E!..SCHLEIFE .
..CALLMAIN(SCHLEIFE); HAUPTSCHLEIFE ANSP
RINGEN.K!..;.Q!..;.W!..;.]! .;.C!..;..!.
.;### TABELLE FUER MENUELEISTE ###..!..;
################################..!..TAB
ELLE1 .BY5; ANGABEN ZUR GROESSE DES MENU
ES..!.. .BY17..!.. .WO5.."C. .WO130.<"H.
.BY2!O!VISIBLE!O!HORIZONTAL; 2 EINTRAAG
E, HORIZONTAL.`"M.; ## MENUEPUNKT "MENUE
-DEMO" ##.V"R.MPUNKT1 .WOMTEXT1.."W. .BY
SUBMENUE; ALS UNTERMENUE.G".. .WOTABELLE
2; ZEIGER AUF UNTERMENUETABELLLE.."..; #
# MENUEPUNKT "MENUELEISTE" ##..#..MPUNKT
2 .WOMTEXT2.,#.. .BYSPRUNTERM; UNTERMENU
E MIT ROUTINE.O#.. .WOEXEC1; ZEIGER AUF
DISPATCH.U#..;.[#..;.W#..; (TEXTE ZU
MENUE1)..#..MTEXT1 .TX"MENUE-DEMO"; TEX
T ZU MENUE 1,PUNKT 1.W#.. .BYNULL; ABSCH
LUSSKENNUNG (WIE IMMER!)..$..MTEXT2 .TX"
MENUELEISTE"; TEXT ZU MENUE 1,PUNKT 2..$
.. .BYNULL..$..;.%$..;.+$".;.Q$'.;## UNT
ERMENUE ZU "MENUE-DEMO" ##.W$,.;########
########################.}$1.;..$6.TABEL
LE2 .BY18; UNTERMENUE ZU MENUE1,PUNKT 1
..$;. .BY30.D$@. .WO5.O$E. .WO30..%J. .B
Y1!O!VISIBLE!O!VERTIKAL; 1 MENUEPUNKT,SC
HLIESSEND,VERTIKAL.0%O.; ## MENUEPUNKT
"GEOS" ##.^%T.MPUNKT3 .WOMTEXT3; ZEIGER
AUF TEXT "GEOS"..%Y. .BYSPRUNG; BEI ANKL
ICKEN ZUR ROUTINE REXTURN SPRINGEN..%^.
.WORETURN.B%C.; (TEXT ZU MENUE 2).W%H.
MTEXT3 .TX"GEOS"..%M. .BYNULL..%R.;..%W.
;..%|.;..&..; ## REAKTIONEN ZU MENUE 1
##.<&..; ###########################.B&
..;.{&..EXEC1 JSRINITIO; VIC IN DEN ADRE
SSBEREICH EINBLENDEN..&.. LDX#$FF; X-IND
IZIERTE SCHLEIFE ZUM FARBWECHSEL.A&..LOO
P INC$D020.N&.. LDY#$FF.Z&..LP2 DEY..&..
BNELP2..&.. DEX..&.. BNELOOP.;'.. JSRDO
NEIO; ORIGINAL GEOS-KONFIGURATION WIEDER
EINSCHALTEN.|'.. ...LOADW(TABELLE3,R0);
ADRESSE DES UNTERMENUES HINTERLASSEN..'
B. RTS; ZUR HAUPTSCHLEIFE..'G.;.O'L.TABE
LLE3 .BY19; UNTERMENUE ZU MENUEPUNKT 1/2
.Z'Q. .BY30..'V. .WO80..'.. .WO110..(..
.BY1!O!CLOSING!O!VERTIKAL..(..;.8(.. .WO
MTEXT3; ZEIGER AUF "GEOS".G(.. .BYSPRUNG
.V(.. .WORETURN.\(..;.(..RETURN JMPDESK
TOP; ZUM DESKTOP..(.';******************
**************..(.';.K(.'; GEOS LIBRARY
: KONSTANTEN..(.'; SPRUNG
ADRESSEN..).'; MAKROS..).
';.1).'; FUER GEOS PROGRAMMIERER.7).';
.X).'; AUTOR: THORSTEN PETROWSKI.^).';.
.).'; (C) 1987 64'ER > V1.1 <..).
';..).';********************************
..).';..).';.A).';..) '; ** UEBERGEBEN D
ER GEOS-..*!'; KONSTANTEN & ROUTINEN
**..*"';..*#'.MA INIT-LIB.4*...GL IPUTST
RING = $C1AE.L*...GL NULL = 0.D*
...GL BACKSPC = 8.|*...GL FWDSPC
= 9..*...GL LF = 10..*...GL U
PL = 12.G*...GL CR = 13
..*...GL UNDERLINEON = 14..*...GL UNDERL
INEOFF= 15..+...GL REVERSEON = 18.++..
.GL REVERSEOFF = 19.D+...GL GOTOX
= 20.]+...GL GOTOY = 21.V+...GL G
OTOXY = 22..+...GL BOLDON = 24
..+...GL ITALICON = 25.A+...GL OUTLIN
E = 26.Z+...GL PLAINTEXT = 27..+..
.GL COMMODORE = 128..,..; ** NEU SEIT
TEIL 4 **.*,...GL R0 = $02.D,..
.GL R1 = $04.^,...GL R2
= $06.X,...GL R3 = $08..,...G
L R4 = $0A..,...GL R5
= $0C.F,...GL R6 = $0E..,...GL
R7 = $10..,...GL R8 =
$12..-...GL R9 = $14..-./.GL R1
0 = $16.H-./.GL R11 = $1
8.B-./.GL R12 = $1A.|-./.GL R13
= $1C..-./.GL R14 = $1E.
.-./.GL R15 = $20.L-./.GL PANIC
= $C2C2..-./.GL INITIO = $C25
C..../.GL DONEIO = $C25F. ../.GL DE
SKTOP = $C22C.<../; ** NEU SEIT TEIL
5 **.X../.GL DIALBOX = $C256.T../.G
L OK = $01..../.GL CANCEL
= $02..../.GL YES = $03.H.
./.GL NO = $04..../.GL OPEN
= $05.././.GL DISK = $0
6.././.GL DBTXTSTR = 11.8/./.GL DB
VARSTR = 12.T/./.GL DBGETSTRING =
13.P/./.GL DBSYSOPV = 14.././.G
L DBGETFILES = 15 ; ***.././.GL DBOP
V = 17.P/./.GL DBUSRICON =
18 ; ***.././.GL DBUSRROUT = 19..0
./; * NEU SEIT TEIL 6 *.#0./.GL HLINE
= $C118.@0./.GL INVLINE = $C11
B.]0./.GL RECVLINE = $C11E..0./.GL I
MPRLINE = $EDD2 ; NUR FUER GEOS 1.2.
.0./.GL VLINE = $C121.H0 /.GL BOX
= $C124..0!/.GL FRAME =
$C127..1"/.GL INVBOX = $C12A..1#/
.GL RECVBOX = $C12D.<1$/.GL LINE
= $C130.Y1%/.GL POINT = $C1
33.V1&/.GL STRING = $C136..1'/.GL
SETPIX = 1..1(/.GL LNEPIX
= 2.M1)/.GL BOXPIX = 3..
1*/.GL PATPIX = 5..2+/.GL PUTP
IX = 6.$2,/.GL FRAMEPIX =
7.A2-/.GL RIGHTPIX = 8.^2./.
GL DOWNPIX = 9.{2//.GL DRPIX
= 10..20/.GL PATTERN = $C13
9..21/.GL SCAN = $C11B.R22/.GL R
POINT = $C13F..23/.GL IBOX
= $C19F..34/.GL IFRAME = $C1A2.)3
5/.GL IREVBOX = $C1A5.F36/.GL ISTRI
NG = $C1A8.`37/; * NEU SEIT TEIL 7
*.}38/.GL MAIN = $C1C3..39/.GL M
ENU1 = $C1BD..3:/.GL DOMENU
= $C151.T3;/.GL VERTIKAL = $80..3
</.GL HORIZONTAL = $00..4=/.GL VISIB
LE = $40.+4>/.GL CLOSING =
$00.H4?/.GL SPRUNG = $00.E4@/.G
L SPRUNTERM = $40..4A/.GL SUBMENUE
= $80..4B/.GL CONTINUE = $849B
..4G2.RT..4.:;.J4.:; * MAKROS & ROUTINE
N *..5.:; BIBLIOTHEKSFUNKTION MIT PAR
AMETER VERSORGT STARTEN.#5.:.MA EXECLIB
(LABLE,CALL).55.: LDA#<(LABLE).A5.: STA$
FB.S5.: LDA#>(LABLE)._5.: STA$FC.L5.: JS
RCALL.U5E: .RT.{5J:;..5O:;..5T:;/* KONVE
RTIERUNG TEXT->GEOS */..5Y:CONVERT LDX#$
00.E5.: LDA$FB.U5.: STACNVT3+1..5.: STAN
EXT+1..5.: LDA$FC..6.: STACNVT3+2..6.: S
TANEXT+2.$6.:CNVT3 LDA$FFFF,X.36.; BEQEN
DCNV.I6.;CONVERTCD CMP#"A".V6.; BCCNEXT.
B6.; CMP#91.O6.; BCSNEXT.|6.; EOR#$20..6
.; JMPNEXT..6$;SCNDCNVT CMP#"A"..6); BCC
NEXT..6.; CMP#219.E63; BCSNEXT.R68; EOR#
$20..6=;NEXT STA$FFFF,X..6B; INX..6G; JM
PCNVT3..7L;ENDCNV RTS..7Q;;..7V;;.27[;;
* SCHIRM LOESCHEN *.>7`;.MA CLS.L7A; JSR
$C49C.U7E; .RT.[7F;;.U7G;; * STRING AUSG
EBEN *..7J;.MA PUTSTRING (X,Y)..7T; JSR$
C1AE..7Y; .WOX..7~; .BYY..7.; .RT.W7.;;/
*** NEU SEIT TEIL 4 ***/..8.;.MA LOADW (
VALUE,REGISTER) ; WORT 'VALUE' IN 'REGIS
TER' LADEN.+8.; LDA#<(VALUE).<8.; STAREG
ISTER.N8.; LDA#>(VALUE).A8.; STAREGISTER
+1.J8.; .RT.P8.;;..8.;.MA TRANSW (SRCREG
,DESTREG) ; WORT AUS 'SRCREG' IN 'DESTRE
G' UEBERTRAGEN.L8.; LDASRCREG..8.; STADE
STREG..8.; LDASRCREG+1..8.; STADESTREG+1
..9.; .RT..9A;;.59.<.MA PUSHCPU ; CPU I
NHALTE SICHERN.A9.< STA$FD.M9(< STX$FE.Y
92< STY$FF.B97< PHP.K9<< .RT.Q9A<;..9F<.
MA POPCPU ; CPU INHALTE ZURUECKLADEN..
9K< LDA$FD..9P< LDX$FE.A9Z< LDY$FF.J9[<
PLP.S9_< .RT.Y9`<;..9D<.MA RESETCPU ; CP
U-RESET..:X< LDA#$00..:.< PHA..:.< PLP..
:.< TAX.':.< TAY.0:.< .RT.6:.<;.R: <; **
NEU SEIT TEIL 5 **.L:.<.MA DIALBOX (ADR
ESSE)..:.< LDA#<(ADRESSE)..:.< STA$02. :
.< LDA#>(ADRESSE)..:.< STA$03..:.<.RT..:
C<;..:H<.MA DIALINTRO (MUSTER,YS,YE,XS,X
E)..:M< .BYMUSTER..:R< .BYYS..;W< .BYYE.
.;.< .WOXS..;.< .WOXE.$;.<.RT.*;.<;.F;.<
; ** NEU SEIT TEIL 7 **.\;.<.MA MENU (AD
R,NR).S;.< ...LOADW(ADR,$02).;.< LDA#NR
..;.= JSR$C151..;.=.RT..;.=;..;.=.MA CAL
LMAIN (ADR).K;.= ...LOADW(ADR,$849B).Y;"
= JMP$C1C3..;'=.RT..;>.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL