GEOS LIB 64.3ALT
FILE INFORMATION
FILENAME(S): GEOS LIB 64.3ALT
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-10-20 14:30:09
APPEARS ON: 2 disk(s)
FILE HASH
98d08cd7ad20d0b9e913b3cb3a0469640e28a071fe396dfa59b49c001032443d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S 1074 | GEOS LIB 64.3ALT | PRG | Treasure Chest - Klaus Der Suhler | 14 | 19 | DOWNLOAD FILE |
| G PD 1 | GEOS LIB 64.3ALT | PRG | Treasure Chest - Klaus Der Suhler | 14 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E9 1F 23 27 2E 4D 41 20 49 4E 49 54 2D 4C |....#'.MA INIT-L|
00000010: 49 42 00 05 20 E0 2E 2E 47 4C 20 49 50 55 54 53 |IB.. ...GL IPUTS|
00000020: 54 52 49 4E 47 20 20 3D 20 24 43 31 41 45 00 1D |TRING = $C1AE..|
00000030: 20 E1 2E 2E 47 4C 20 4E 55 4C 4C 20 20 20 20 20 | ...GL NULL |
00000040: 20 20 20 3D 20 30 00 35 20 E2 2E 2E 47 4C 20 42 | = 0.5 ...GL B|
00000050: 41 43 4B 53 50 43 20 20 20 20 20 3D 20 38 00 4D |ACKSPC = 8.M|
00000060: 20 E3 2E 2E 47 4C 20 46 57 44 53 50 43 20 20 20 | ...GL FWDSPC |
00000070: 20 20 20 3D 20 39 00 66 20 E4 2E 2E 47 4C 20 4C | = 9.f ...GL L|
00000080: 46 20 20 20 20 20 20 20 20 20 20 3D 20 31 30 00 |F = 10.|
00000090: 7F 20 E6 2E 2E 47 4C 20 55 50 4C 20 20 20 20 20 |. ...GL UPL |
000000A0: 20 20 20 20 3D 20 31 32 00 98 20 E7 2E 2E 47 4C | = 12.. ...GL|
000000B0: 20 43 52 20 20 20 20 20 20 20 20 20 20 3D 20 31 | CR = 1|
000000C0: 33 00 B1 20 E8 2E 2E 47 4C 20 55 4E 44 45 52 4C |3.. ...GL UNDERL|
000000D0: 49 4E 45 4F 4E 20 3D 20 31 34 00 CA 20 E9 2E 2E |INEON = 14.. ...|
000000E0: 47 4C 20 55 4E 44 45 52 4C 49 4E 45 4F 46 46 3D |GL UNDERLINEOFF=|
000000F0: 20 31 35 00 E3 20 EA 2E 2E 47 4C 20 52 45 56 45 | 15.. ...GL REVE|
00000100: 52 53 45 4F 4E 20 20 20 3D 20 31 38 00 FC 20 EB |RSEON = 18.. .|
00000110: 2E 2E 47 4C 20 52 45 56 45 52 53 45 4F 46 46 20 |..GL REVERSEOFF |
00000120: 20 3D 20 31 39 00 15 21 EC 2E 2E 47 4C 20 47 4F | = 19..!...GL GO|
00000130: 54 4F 58 20 20 20 20 20 20 20 3D 20 32 30 00 2E |TOX = 20..|
00000140: 21 ED 2E 2E 47 4C 20 47 4F 54 4F 59 20 20 20 20 |!...GL GOTOY |
00000150: 20 20 20 3D 20 32 31 00 47 21 EE 2E 2E 47 4C 20 | = 21.G!...GL |
00000160: 47 4F 54 4F 58 59 20 20 20 20 20 20 3D 20 32 32 |GOTOXY = 22|
00000170: 00 60 21 EF 2E 2E 47 4C 20 42 4F 4C 44 4F 4E 20 |.`!...GL BOLDON |
00000180: 20 20 20 20 20 3D 20 32 34 00 79 21 F0 2E 2E 47 | = 24.y!...G|
00000190: 4C 20 49 54 41 4C 49 43 4F 4E 20 20 20 20 3D 20 |L ITALICON = |
000001A0: 32 35 00 92 21 F1 2E 2E 47 4C 20 4F 55 54 4C 49 |25..!...GL OUTLI|
000001B0: 4E 45 20 20 20 20 20 3D 20 32 36 00 AB 21 F2 2E |NE = 26..!..|
000001C0: 2E 47 4C 20 50 4C 41 49 4E 54 45 58 54 20 20 20 |.GL PLAINTEXT |
000001D0: 3D 20 32 37 00 C5 21 F3 2E 2E 47 4C 20 43 4F 4D |= 27..!...GL COM|
000001E0: 4D 4F 44 4F 52 45 20 20 20 3D 20 31 32 38 00 CB |MODORE = 128..|
000001F0: 21 F4 2E 3B 00 DC 21 F5 2E 2E 47 4C 20 52 30 20 |!..;..!...GL R0 |
00000200: 3D 20 24 30 32 00 ED 21 F6 2E 2E 47 4C 20 52 31 |= $02..!...GL R1|
00000210: 20 3D 20 24 30 34 00 FE 21 F8 2E 2E 47 4C 20 52 | = $04..!...GL R|
00000220: 32 20 3D 20 24 30 36 00 0F 22 F9 2E 2E 47 4C 20 |2 = $06.."...GL |
00000230: 52 33 20 3D 20 24 30 38 00 20 22 FA 2E 2E 47 4C |R3 = $08. "...GL|
00000240: 20 52 34 20 3D 20 24 30 41 00 31 22 FB 2E 2E 47 | R4 = $0A.1"...G|
00000250: 4C 20 52 35 20 3D 20 24 30 43 00 42 22 FC 2E 2E |L R5 = $0C.B"...|
00000260: 47 4C 20 52 36 20 3D 20 24 30 45 00 53 22 FD 2E |GL R6 = $0E.S"..|
00000270: 2E 47 4C 20 52 37 20 3D 20 24 31 30 00 64 22 FE |.GL R7 = $10.d".|
00000280: 2E 2E 47 4C 20 52 38 20 3D 20 24 31 32 00 75 22 |..GL R8 = $12.u"|
00000290: FF 2E 2E 47 4C 20 52 39 20 3D 20 24 31 34 00 87 |...GL R9 = $14..|
000002A0: 22 00 2F 2E 47 4C 20 52 31 30 20 3D 20 24 31 36 |"./.GL R10 = $16|
000002B0: 00 99 22 01 2F 2E 47 4C 20 52 31 31 20 3D 20 24 |.."./.GL R11 = $|
000002C0: 31 38 00 AB 22 02 2F 2E 47 4C 20 52 31 32 20 3D |18.."./.GL R12 =|
000002D0: 20 24 31 41 00 BD 22 03 2F 2E 47 4C 20 52 31 33 | $1A.."./.GL R13|
000002E0: 20 3D 20 24 31 43 00 CF 22 04 2F 2E 47 4C 20 52 | = $1C.."./.GL R|
000002F0: 31 34 20 3D 20 24 31 45 00 E1 22 05 2F 2E 47 4C |14 = $1E.."./.GL|
00000300: 20 52 31 35 20 3D 20 24 32 30 00 F7 22 06 2F 2E | R15 = $20.."./.|
00000310: 47 4C 20 50 41 4E 49 43 20 3D 20 24 43 32 43 32 |GL PANIC = $C2C2|
00000320: 00 0E 23 07 2F 2E 47 4C 20 49 4E 49 54 49 4F 20 |..#./.GL INITIO |
00000330: 3D 20 24 43 32 35 43 00 25 23 08 2F 2E 47 4C 20 |= $C25C.%#./.GL |
00000340: 44 4F 4E 45 49 4F 20 3D 20 24 43 32 35 46 00 3D |DONEIO = $C25F.=|
00000350: 23 09 2F 2E 47 4C 20 44 45 53 4B 54 4F 50 20 3D |#./.GL DESKTOP =|
00000360: 20 24 43 32 32 43 00 55 23 0B 2F 2E 47 4C 20 44 | $C22C.U#./.GL D|
00000370: 49 41 4C 42 4F 58 20 3D 20 24 43 32 35 36 00 6B |IALBOX = $C256.k|
00000380: 23 0C 2F 2E 47 4C 20 4F 4B 20 20 20 20 20 20 3D |#./.GL OK =|
00000390: 20 24 30 31 00 81 23 0D 2F 2E 47 4C 20 43 41 4E | $01..#./.GL CAN|
000003A0: 43 45 4C 20 20 3D 20 24 30 32 00 97 23 0E 2F 2E |CEL = $02..#./.|
000003B0: 47 4C 20 59 45 53 20 20 20 20 20 3D 20 24 30 33 |GL YES = $03|
000003C0: 00 AD 23 0F 2F 2E 47 4C 20 4E 4F 20 20 20 20 20 |..#./.GL NO |
000003D0: 20 3D 20 24 30 34 00 C3 23 10 2F 2E 47 4C 20 4F | = $04..#./.GL O|
000003E0: 50 45 4E 20 20 20 20 3D 20 24 30 35 00 D9 23 11 |PEN = $05..#.|
000003F0: 2F 2E 47 4C 20 44 49 53 4B 20 20 20 20 3D 20 24 |/.GL DISK = $|
00000400: 30 36 00 EF 23 12 2F 2E 47 4C 20 44 42 54 58 54 |06..#./.GL DBTXT|
00000410: 53 54 52 20 3D 20 31 31 00 08 24 13 2F 2E 47 4C |STR = 11..$./.GL|
00000420: 20 44 42 56 41 52 53 54 52 20 20 20 20 3D 20 31 | DBVARSTR = 1|
00000430: 32 00 21 24 14 2F 2E 47 4C 20 44 42 47 45 54 53 |2.!$./.GL DBGETS|
00000440: 54 52 49 4E 47 20 3D 20 31 33 00 3A 24 15 2F 2E |TRING = 13.:$./.|
00000450: 47 4C 20 44 42 53 59 53 4F 50 56 20 20 20 20 3D |GL DBSYSOPV =|
00000460: 20 31 34 00 53 24 16 2F 2E 47 4C 20 44 42 47 45 | 14.S$./.GL DBGE|
00000470: 54 46 49 4C 45 53 20 20 3D 20 31 35 00 6C 24 17 |TFILES = 15.l$.|
00000480: 2F 2E 47 4C 20 44 42 4F 50 56 20 20 20 20 20 20 |/.GL DBOPV |
00000490: 20 3D 20 31 37 00 85 24 18 2F 2E 47 4C 20 44 42 | = 17..$./.GL DB|
000004A0: 55 53 52 49 43 4F 4E 20 20 20 3D 20 31 38 00 9E |USRICON = 18..|
000004B0: 24 19 2F 2E 47 4C 20 44 42 55 53 52 52 4F 55 54 |$./.GL DBUSRROUT|
000004C0: 20 20 20 3D 20 31 39 00 BA 24 1B 2F 2E 47 4C 20 | = 19..$./.GL |
000004D0: 48 4C 49 4E 45 20 20 20 20 20 20 20 3D 20 24 43 |HLINE = $C|
000004E0: 31 31 38 00 D6 24 1C 2F 2E 47 4C 20 49 4E 56 4C |118..$./.GL INVL|
000004F0: 49 4E 45 20 20 20 20 20 3D 20 24 43 31 31 42 00 |INE = $C11B.|
00000500: F2 24 1D 2F 2E 47 4C 20 52 45 43 56 4C 49 4E 45 |.$./.GL RECVLINE|
00000510: 20 20 20 20 3D 20 24 43 31 31 45 00 0E 25 1E 2F | = $C11E..%./|
00000520: 2E 47 4C 20 49 4D 50 52 4C 49 4E 45 20 20 20 20 |.GL IMPRLINE |
00000530: 3D 20 24 43 37 33 37 00 2A 25 1F 2F 2E 47 4C 20 |= $C737.*%./.GL |
00000540: 56 4C 49 4E 45 20 20 20 20 20 20 20 3D 20 24 43 |VLINE = $C|
00000550: 31 32 31 00 46 25 20 2F 2E 47 4C 20 42 4F 58 20 |121.F% /.GL BOX |
00000560: 20 20 20 20 20 20 20 20 3D 20 24 43 31 32 34 00 | = $C124.|
00000570: 62 25 21 2F 2E 47 4C 20 46 52 41 4D 45 20 20 20 |b%!/.GL FRAME |
00000580: 20 20 20 20 3D 20 24 43 31 32 37 00 7E 25 22 2F | = $C127.~%"/|
00000590: 2E 47 4C 20 49 4E 56 42 4F 58 20 20 20 20 20 20 |.GL INVBOX |
000005A0: 3D 20 24 43 31 32 41 00 9A 25 23 2F 2E 47 4C 20 |= $C12A..%#/.GL |
000005B0: 52 45 43 56 42 4F 58 20 20 20 20 20 3D 20 24 43 |RECVBOX = $C|
000005C0: 31 32 44 00 B6 25 24 2F 2E 47 4C 20 4C 49 4E 45 |12D..%$/.GL LINE|
000005D0: 20 20 20 20 20 20 20 20 3D 20 24 43 31 33 30 00 | = $C130.|
000005E0: D2 25 25 2F 2E 47 4C 20 50 4F 49 4E 54 20 20 20 |.%%/.GL POINT |
000005F0: 20 20 20 20 3D 20 24 43 31 33 33 00 EE 25 26 2F | = $C133..%&/|
00000600: 2E 47 4C 20 53 54 52 49 4E 47 20 20 20 20 20 20 |.GL STRING |
00000610: 3D 20 24 43 31 33 36 00 06 26 27 2F 2E 47 4C 20 |= $C136..&'/.GL |
00000620: 53 45 54 50 49 58 20 20 20 20 20 20 3D 20 31 00 |SETPIX = 1.|
00000630: 1E 26 28 2F 2E 47 4C 20 4C 4E 45 50 49 58 20 20 |.&(/.GL LNEPIX |
00000640: 20 20 20 20 3D 20 32 00 36 26 29 2F 2E 47 4C 20 | = 2.6&)/.GL |
00000650: 42 4F 58 50 49 58 20 20 20 20 20 20 3D 20 33 00 |BOXPIX = 3.|
00000660: 4E 26 2A 2F 2E 47 4C 20 50 41 54 50 49 58 20 20 |N&*/.GL PATPIX |
00000670: 20 20 20 20 3D 20 35 00 66 26 2B 2F 2E 47 4C 20 | = 5.f&+/.GL |
00000680: 50 55 54 50 49 58 20 20 20 20 20 20 3D 20 36 00 |PUTPIX = 6.|
00000690: 7E 26 2C 2F 2E 47 4C 20 46 52 41 4D 45 50 49 58 |~&,/.GL FRAMEPIX|
000006A0: 20 20 20 20 3D 20 37 00 96 26 2D 2F 2E 47 4C 20 | = 7..&-/.GL |
000006B0: 52 49 47 48 54 50 49 58 20 20 20 20 3D 20 38 00 |RIGHTPIX = 8.|
000006C0: AE 26 2E 2F 2E 47 4C 20 44 4F 57 4E 50 49 58 20 |.&./.GL DOWNPIX |
000006D0: 20 20 20 20 3D 20 39 00 C7 26 2F 2F 2E 47 4C 20 | = 9..&//.GL |
000006E0: 44 52 50 49 58 20 20 20 20 20 20 20 3D 20 31 30 |DRPIX = 10|
000006F0: 00 E3 26 30 2F 2E 47 4C 20 50 41 54 54 45 52 4E |..&0/.GL PATTERN|
00000700: 20 20 20 20 20 3D 20 24 43 31 33 39 00 FF 26 31 | = $C139..&1|
00000710: 2F 2E 47 4C 20 53 43 41 4E 20 20 20 20 20 20 20 |/.GL SCAN |
00000720: 20 3D 20 24 43 31 31 42 00 1B 27 32 2F 2E 47 4C | = $C11B..'2/.GL|
00000730: 20 52 50 4F 49 4E 54 20 20 20 20 20 20 3D 20 24 | RPOINT = $|
00000740: 43 31 33 46 00 37 27 33 2F 2E 47 4C 20 49 42 4F |C13F.7'3/.GL IBO|
00000750: 58 20 20 20 20 20 20 20 20 3D 20 24 43 31 39 46 |X = $C19F|
00000760: 00 53 27 34 2F 2E 47 4C 20 49 46 52 41 4D 45 20 |.S'4/.GL IFRAME |
00000770: 20 20 20 20 20 3D 20 24 43 31 41 32 00 6F 27 35 | = $C1A2.o'5|
00000780: 2F 2E 47 4C 20 49 52 45 56 42 4F 58 20 20 20 20 |/.GL IREVBOX |
00000790: 20 3D 20 24 43 31 41 35 00 8B 27 36 2F 2E 47 4C | = $C1A5..'6/.GL|
000007A0: 20 49 53 54 52 49 4E 47 20 20 20 20 20 3D 20 24 | ISTRING = $|
000007B0: 43 31 41 38 00 A7 27 38 2F 2E 47 4C 20 4D 41 49 |C1A8..'8/.GL MAI|
000007C0: 4E 20 20 20 20 20 20 20 20 3D 20 24 43 31 43 33 |N = $C1C3|
000007D0: 00 C3 27 39 2F 2E 47 4C 20 4D 45 4E 55 31 20 20 |..'9/.GL MENU1 |
000007E0: 20 20 20 20 20 3D 20 24 43 31 42 44 00 DF 27 3A | = $C1BD..':|
000007F0: 2F 2E 47 4C 20 44 4F 4D 45 4E 55 20 20 20 20 20 |/.GL DOMENU |
00000800: 20 3D 20 24 43 31 35 31 00 F9 27 3B 2F 2E 47 4C | = $C151..';/.GL|
00000810: 20 56 45 52 54 49 4B 41 4C 20 20 20 20 3D 20 24 | VERTIKAL = $|
00000820: 38 30 00 13 28 3C 2F 2E 47 4C 20 48 4F 52 49 5A |80..(</.GL HORIZ|
00000830: 4F 4E 54 41 4C 20 20 3D 20 24 30 30 00 2D 28 3D |ONTAL = $00.-(=|
00000840: 2F 2E 47 4C 20 56 49 53 49 42 4C 45 20 20 20 20 |/.GL VISIBLE |
00000850: 20 3D 20 24 34 30 00 47 28 3E 2F 2E 47 4C 20 43 | = $40.G(>/.GL C|
00000860: 4C 4F 53 49 4E 47 20 20 20 20 20 3D 20 24 30 30 |LOSING = $00|
00000870: 00 61 28 3F 2F 2E 47 4C 20 53 50 52 55 4E 47 20 |.a(?/.GL SPRUNG |
00000880: 20 20 20 20 20 3D 20 24 30 30 00 7B 28 40 2F 2E | = $00.{(@/.|
00000890: 47 4C 20 53 50 52 55 4E 54 45 52 4D 20 20 20 3D |GL SPRUNTERM =|
000008A0: 20 24 34 30 00 95 28 41 2F 2E 47 4C 20 53 55 42 | $40..(A/.GL SUB|
000008B0: 4D 45 4E 55 45 20 20 20 20 3D 20 24 38 30 00 B1 |MENUE = $80..|
000008C0: 28 42 2F 2E 47 4C 20 43 4F 4E 54 49 4E 55 45 20 |(B/.GL CONTINUE |
000008D0: 20 20 20 3D 20 24 38 34 39 42 00 B9 28 C7 32 2E | = $849B..(.2.|
000008E0: 52 54 00 BF 28 98 3A 3B 00 DC 28 9D 3A 3B 20 20 |RT..(.:;..(.:; |
000008F0: 2A 20 4D 41 4B 52 4F 53 20 26 20 52 4F 55 54 49 |* MAKROS & ROUTI|
00000900: 4E 45 4E 20 2A 00 E2 28 A2 3A 3B 00 FF 28 A7 3A |NEN *..(.:;..(.:|
00000910: 2E 4D 41 20 45 58 45 43 4C 49 42 20 28 4C 41 42 |.MA EXECLIB (LAB|
00000920: 4C 45 2C 43 41 4C 4C 29 00 11 29 AC 3A 20 4C 44 |LE,CALL)..).: LD|
00000930: 41 23 3C 28 4C 41 42 4C 45 29 00 1D 29 B1 3A 20 |A#<(LABLE)..).: |
00000940: 53 54 41 24 46 42 00 2F 29 B6 3A 20 4C 44 41 23 |STA$FB./).: LDA#|
00000950: 3E 28 4C 41 42 4C 45 29 00 3B 29 BB 3A 20 53 54 |>(LABLE).;).: ST|
00000960: 41 24 46 43 00 48 29 C0 3A 20 4A 53 52 43 41 4C |A$FC.H).: JSRCAL|
00000970: 4C 00 51 29 C5 3A 20 2E 52 54 00 57 29 CA 3A 3B |L.Q).: .RT.W).:;|
00000980: 00 5D 29 CF 3A 3B 00 80 29 D4 3A 3B 20 20 20 4B |.]).:;..).:; K|
00000990: 4F 4E 56 45 52 54 49 45 52 55 4E 47 20 56 4F 4E |ONVERTIERUNG VON|
000009A0: 20 54 45 58 54 20 49 4E 53 00 98 29 D5 3A 3B 20 | TEXT INS..).:; |
000009B0: 20 20 20 20 20 20 47 45 4F 53 2D 46 4F 52 4D 41 | GEOS-FORMA|
000009C0: 54 00 9E 29 D6 3A 3B 00 B2 29 D9 3A 43 4F 4E 56 |T..).:;..).:CONV|
000009D0: 45 52 54 20 4C 44 58 23 24 30 30 00 BE 29 DE 3A |ERT LDX#$00..).:|
000009E0: 20 4C 44 41 24 46 42 00 CE 29 E3 3A 20 53 54 41 | LDA$FB..).: STA|
000009F0: 43 4E 56 54 33 2B 31 00 DD 29 E8 3A 20 53 54 41 |CNVT3+1..).: STA|
00000A00: 4E 45 58 54 2B 31 00 E9 29 ED 3A 20 4C 44 41 24 |NEXT+1..).: LDA$|
00000A10: 46 43 00 F9 29 F2 3A 20 53 54 41 43 4E 56 54 33 |FC..).: STACNVT3|
00000A20: 2B 32 00 08 2A F7 3A 20 53 54 41 4E 45 58 54 2B |+2..*.: STANEXT+|
00000A30: 32 00 1D 2A FC 3A 43 4E 56 54 33 20 4C 44 41 24 |2..*.:CNVT3 LDA$|
00000A40: 46 46 46 46 2C 58 00 2C 2A 01 3B 20 42 45 51 45 |FFFF,X.,*.; BEQE|
00000A50: 4E 44 43 4E 56 00 42 2A 06 3B 43 4F 4E 56 45 52 |NDCNV.B*.;CONVER|
00000A60: 54 43 44 20 43 4D 50 23 22 41 22 00 4F 2A 0B 3B |TCD CMP#"A".O*.;|
00000A70: 20 42 43 43 4E 45 58 54 00 5B 2A 10 3B 20 43 4D | BCCNEXT.[*.; CM|
00000A80: 50 23 39 31 00 68 2A 15 3B 20 42 43 53 4E 45 58 |P#91.h*.; BCSNEX|
00000A90: 54 00 75 2A 1A 3B 20 45 4F 52 23 24 32 30 00 82 |T.u*.; EOR#$20..|
00000AA0: 2A 1F 3B 20 4A 4D 50 4E 45 58 54 00 97 2A 24 3B |*.; JMPNEXT..*$;|
00000AB0: 53 43 4E 44 43 4E 56 54 20 43 4D 50 23 22 41 22 |SCNDCNVT CMP#"A"|
00000AC0: 00 A4 2A 29 3B 20 42 43 43 4E 45 58 54 00 B1 2A |..*); BCCNEXT..*|
00000AD0: 2E 3B 20 43 4D 50 23 32 31 39 00 BE 2A 33 3B 20 |.; CMP#219..*3; |
00000AE0: 42 43 53 4E 45 58 54 00 CB 2A 38 3B 20 45 4F 52 |BCSNEXT..*8; EOR|
00000AF0: 23 24 32 30 00 DF 2A 3D 3B 4E 45 58 54 20 53 54 |#$20..*=;NEXT ST|
00000B00: 41 24 46 46 46 46 2C 58 00 E8 2A 42 3B 20 49 4E |A$FFFF,X..*B; IN|
00000B10: 58 00 F6 2A 47 3B 20 4A 4D 50 43 4E 56 54 33 00 |X..*G; JMPCNVT3.|
00000B20: 05 2B 4C 3B 45 4E 44 43 4E 56 20 52 54 53 00 0B |.+L;ENDCNV RTS..|
00000B30: 2B 51 3B 3B 00 11 2B 56 3B 3B 00 2F 2B 5B 3B 3B |+Q;;..+V;;./+[;;|
00000B40: 20 2A 20 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F | * BILDSCHIRM LO|
00000B50: 45 53 43 48 45 4E 20 2A 00 3B 2B 60 3B 2E 4D 41 |ESCHEN *.;+`;.MA|
00000B60: 20 43 4C 53 00 49 2B 61 3B 20 4A 53 52 24 43 34 | CLS.I+a; JSR$C4|
00000B70: 38 44 00 52 2B 65 3B 20 2E 52 54 00 58 2B 66 3B |8D.R+e; .RT.X+f;|
00000B80: 3B 00 72 2B 67 3B 3B 20 2A 20 53 54 52 49 4E 47 |;.r+g;; * STRING|
00000B90: 20 41 55 53 47 45 42 45 4E 20 2A 00 8A 2B 6A 3B | AUSGEBEN *..+j;|
00000BA0: 2E 4D 41 20 50 55 54 53 54 52 49 4E 47 20 28 58 |.MA PUTSTRING (X|
00000BB0: 2C 59 29 00 98 2B 74 3B 20 4A 53 52 24 43 31 41 |,Y)..+t; JSR$C1A|
00000BC0: 45 00 A2 2B 79 3B 20 2E 57 4F 58 00 AC 2B 7E 3B |E..+y; .WOX..+~;|
00000BD0: 20 2E 42 59 59 00 B5 2B 83 3B 20 2E 52 54 00 D4 | .BYY..+.; .RT..|
00000BE0: 2B 8D 3B 2E 4D 41 20 4C 4F 41 44 57 20 28 56 41 |+.;.MA LOADW (VA|
00000BF0: 4C 55 45 2C 52 45 47 49 53 54 45 52 29 00 E6 2B |LUE,REGISTER)..+|
00000C00: 92 3B 20 4C 44 41 23 3C 28 56 41 4C 55 45 29 00 |.; LDA#<(VALUE).|
00000C10: F7 2B 97 3B 20 53 54 41 52 45 47 49 53 54 45 52 |.+.; STAREGISTER|
00000C20: 00 09 2C 9C 3B 20 4C 44 41 23 3E 28 56 41 4C 55 |..,.; LDA#>(VALU|
00000C30: 45 29 00 1C 2C A1 3B 20 53 54 41 52 45 47 49 53 |E)..,.; STAREGIS|
00000C40: 54 45 52 2B 31 00 25 2C A6 3B 20 2E 52 54 00 45 |TER+1.%,.; .RT.E|
00000C50: 2C AB 3B 2E 4D 41 20 54 52 41 4E 53 57 20 28 53 |,.;.MA TRANSW (S|
00000C60: 52 43 52 45 47 2C 44 45 53 54 52 45 47 29 00 54 |RCREG,DESTREG).T|
00000C70: 2C B0 3B 20 4C 44 41 53 52 43 52 45 47 00 64 2C |,.; LDASRCREG.d,|
00000C80: B5 3B 20 53 54 41 44 45 53 54 52 45 47 00 75 2C |.; STADESTREG.u,|
00000C90: BA 3B 20 4C 44 41 53 52 43 52 45 47 2B 31 00 87 |.; LDASRCREG+1..|
00000CA0: 2C BF 3B 20 53 54 41 44 45 53 54 52 45 47 2B 31 |,.; STADESTREG+1|
00000CB0: 00 90 2C C0 3B 20 2E 52 54 00 A0 2C 14 3C 2E 4D |..,.; .RT..,.<.M|
00000CC0: 41 20 50 55 53 48 43 50 55 00 AC 2C 1E 3C 20 53 |A PUSHCPU..,.< S|
00000CD0: 54 41 24 46 44 00 B8 2C 28 3C 20 53 54 58 24 46 |TA$FD..,(< STX$F|
00000CE0: 45 00 C4 2C 32 3C 20 53 54 59 24 46 46 00 CD 2C |E..,2< STY$FF..,|
00000CF0: 37 3C 20 50 48 50 00 D6 2C 3C 3C 20 2E 52 54 00 |7< PHP..,<< .RT.|
00000D00: E5 2C 46 3C 2E 4D 41 20 50 4F 50 43 50 55 00 F1 |.,F<.MA POPCPU..|
00000D10: 2C 4B 3C 20 4C 44 41 24 46 44 00 FD 2C 50 3C 20 |,K< LDA$FD..,P< |
00000D20: 4C 44 58 24 46 45 00 09 2D 5A 3C 20 4C 44 59 24 |LDX$FE..-Z< LDY$|
00000D30: 46 46 00 12 2D 5B 3C 20 50 4C 50 00 1B 2D 5F 3C |FF..-[< PLP..-_<|
00000D40: 20 2E 52 54 00 2C 2D 64 3C 2E 4D 41 20 52 45 53 | .RT.,-d<.MA RES|
00000D50: 45 54 43 50 55 00 39 2D 78 3C 20 4C 44 41 23 24 |ETCPU.9-x< LDA#$|
00000D60: 30 30 00 42 2D 82 3C 20 50 48 41 00 4B 2D 87 3C |00.B-.< PHA.K-.<|
00000D70: 20 50 4C 50 00 54 2D 8C 3C 20 54 41 58 00 5D 2D | PLP.T-.< TAX.]-|
00000D80: 91 3C 20 54 41 59 00 66 2D 96 3C 20 2E 52 54 00 |.< TAY.f-.< .RT.|
00000D90: 80 2D A5 3C 2E 4D 41 20 44 49 41 4C 42 4F 58 20 |.-.<.MA DIALBOX |
00000DA0: 28 41 44 52 45 53 53 45 29 00 94 2D AA 3C 20 4C |(ADRESSE)..-.< L|
00000DB0: 44 41 23 3C 28 41 44 52 45 53 53 45 29 00 A0 2D |DA#<(ADRESSE)..-|
00000DC0: AF 3C 20 53 54 41 24 30 32 00 B4 2D B4 3C 20 4C |.< STA$02..-.< L|
00000DD0: 44 41 23 3E 28 41 44 52 45 53 53 45 29 00 C0 2D |DA#>(ADRESSE)..-|
00000DE0: B9 3C 20 53 54 41 24 30 33 00 C8 2D BE 3C 2E 52 |.< STA$03..-.<.R|
00000DF0: 54 00 EF 2D C8 3C 2E 4D 41 20 44 49 41 4C 49 4E |T..-.<.MA DIALIN|
00000E00: 54 52 4F 20 28 4D 55 53 54 45 52 2C 59 53 2C 59 |TRO (MUSTER,YS,Y|
00000E10: 45 2C 58 53 2C 58 45 29 00 FE 2D CD 3C 20 2E 42 |E,XS,XE)..-.< .B|
00000E20: 59 4D 55 53 54 45 52 00 09 2E D2 3C 20 2E 42 59 |YMUSTER....< .BY|
00000E30: 59 53 00 14 2E D7 3C 20 2E 42 59 59 45 00 1F 2E |YS....< .BYYE...|
00000E40: DC 3C 20 2E 57 4F 58 53 00 2A 2E E1 3C 20 2E 57 |.< .WOXS.*..< .W|
00000E50: 4F 58 45 00 32 2E E6 3C 2E 52 54 00 48 2E F5 3C |OXE.2..<.RT.H..<|
00000E60: 2E 4D 41 20 4D 45 4E 55 20 28 41 44 52 2C 4E 52 |.MA MENU (ADR,NR|
00000E70: 29 00 5F 2E FA 3C 20 2E 2E 2E 4C 4F 41 44 57 28 |)._..< ...LOADW(|
00000E80: 41 44 52 2C 24 30 32 29 00 6B 2E FF 3C 20 4C 44 |ADR,$02).k..< LD|
00000E90: 41 23 4E 52 00 79 2E 04 3D 20 4A 53 52 24 43 31 |A#NR.y..= JSR$C1|
00000EA0: 35 31 00 81 2E 09 3D 2E 52 54 00 98 2E 13 3D 2E |51....=.RT....=.|
00000EB0: 4D 41 20 43 41 4C 4C 4D 41 49 4E 20 28 41 44 52 |MA CALLMAIN (ADR|
00000EC0: 29 00 B1 2E 18 3D 20 2E 2E 2E 4C 4F 41 44 57 28 |)....= ...LOADW(|
00000ED0: 41 44 52 2C 24 38 34 39 42 29 00 BF 2E 22 3D 20 |ADR,$849B)..."= |
00000EE0: 4A 4D 50 24 43 31 43 33 00 C7 2E 27 3D 2E 52 54 |JMP$C1C3...'=.RT|
00000EF0: 00 CF 2E 7F 3E 2E 45 4E 00 00 00 |....>.EN... |
X...#'.MA INIT-LIB.. ...GL IPUTSTRING =
$C1AE.. ...GL NULL = 0.5 ...GL B
ACKSPC = 8.M ...GL FWDSPC = 9.F
...GL LF = 10. ...GL UPL
= 12.. ...GL CR = 13.. ...G
L UNDERLINEON = 14.J ...GL UNDERLINEOFF=
15.. ...GL REVERSEON = 18.. ...GL REV
ERSEOFF = 19..!...GL GOTOX = 20..
!...GL GOTOY = 21.G!...GL GOTOXY
= 22.`!...GL BOLDON = 24.Y!...G
L ITALICON = 25..!...GL OUTLINE =
26..!...GL PLAINTEXT = 27.E!...GL COM
MODORE = 128.K!..;..!...GL R0 = $02..!
...GL R1 = $04..!...GL R2 = $06.."...GL
R3 = $08. "...GL R4 = $0A.1"...GL R5 = $
0C.B"...GL R6 = $0E.S"...GL R7 = $10.D".
..GL R8 = $12.U"...GL R9 = $14.."./.GL R
10 = $16.."./.GL R11 = $18.."./.GL R12 =
$1A.."./.GL R13 = $1C.O"./.GL R14 = $1E
.."./.GL R15 = $20.."./.GL PANIC = $C2C2
..#./.GL INITIO = $C25C.%#./.GL DONEIO =
$C25F.=#./.GL DESKTOP = $C22C.U#./.GL D
IALBOX = $C256.K#./.GL OK = $01..#.
/.GL CANCEL = $02..#./.GL YES = $03
..#./.GL NO = $04.C#./.GL OPEN =
$05.Y#./.GL DISK = $06..#./.GL DBTXT
STR = 11..$./.GL DBVARSTR = 12.!$./.G
L DBGETSTRING = 13.:$./.GL DBSYSOPV =
14.S$./.GL DBGETFILES = 15.L$./.GL DBO
PV = 17..$./.GL DBUSRICON = 18..
$./.GL DBUSRROUT = 19..$./.GL HLINE
= $C118.V$./.GL INVLINE = $C11B.
.$./.GL RECVLINE = $C11E..%./.GL IMPR
LINE = $C737.*%./.GL VLINE = $C
121.F% /.GL BOX = $C124.B%!/.GL
FRAME = $C127.~%"/.GL INVBOX
= $C12A..%#/.GL RECVBOX = $C12D..%$/
.GL LINE = $C130.R%%/.GL POINT
= $C133..%&/.GL STRING = $C136.
.&'/.GL SETPIX = 1..&(/.GL LNEPIX
= 2.6&)/.GL BOXPIX = 3.N&*/.GL
PATPIX = 5.F&+/.GL PUTPIX = 6.
~&,/.GL FRAMEPIX = 7..&-/.GL RIGHTPIX
= 8..&./.GL DOWNPIX = 9.G&//.GL
DRPIX = 10..&0/.GL PATTERN = $
C139..&1/.GL SCAN = $C11B..'2/.GL
RPOINT = $C13F.7'3/.GL IBOX
= $C19F.S'4/.GL IFRAME = $C1A2.O'5
/.GL IREVBOX = $C1A5..'6/.GL ISTRING
= $C1A8..'8/.GL MAIN = $C1C3
.C'9/.GL MENU1 = $C1BD..':/.GL DOM
ENU = $C151..';/.GL VERTIKAL = $
80..(</.GL HORIZONTAL = $00.-(=/.GL VIS
IBLE = $40.G(>/.GL CLOSING = $00
.A(?/.GL SPRUNG = $00.{(@/.GL SPRUN
TERM = $40..(A/.GL SUBMENUE = $80..
(B/.GL CONTINUE = $849B..(G2.RT..(.:;
..(.:; * MAKROS & ROUTINEN *..(.:;..(.:
.MA EXECLIB (LABLE,CALL)..).: LDA#<(LABL
E)..).: STA$FB./).: LDA#>(LABLE).;).: ST
A$FC.H).: JSRCALL.Q)E: .RT.W)J:;.])O:;..
)T:; KONVERTIERUNG VON TEXT INS..)U:;
GEOS-FORMAT..)V:;..)Y:CONVERT LDX#
$00..).: LDA$FB.N).: STACNVT3+1..).: STA
NEXT+1..).: LDA$FC..).: STACNVT3+2..*.:
STANEXT+2..*.:CNVT3 LDA$FFFF,X.,*.; BEQE
NDCNV.B*.;CONVERTCD CMP#"A".O*.; BCCNEXT
.[*.; CMP#91.H*.; BCSNEXT.U*.; EOR#$20..
*.; JMPNEXT..*$;SCNDCNVT CMP#"A"..*); BC
CNEXT..*.; CMP#219..*3; BCSNEXT.K*8; EOR
#$20..*=;NEXT STA$FFFF,X..*B; INX..*G; J
MPCNVT3..+L;ENDCNV RTS..+Q;;..+V;;./+[;;
* BILDSCHIRM LOESCHEN *.;+`;.MA CLS.I+A
; JSR$C48D.R+E; .RT.X+F;;.R+G;; * STRING
AUSGEBEN *..+J;.MA PUTSTRING (X,Y)..+T;
JSR$C1AE..+Y; .WOX..+~; .BYY..+.; .RT.T
+.;.MA LOADW (VALUE,REGISTER)..+.; LDA#<
(VALUE)..+.; STAREGISTER..,.; LDA#>(VALU
E)..,.; STAREGISTER+1.%,.; .RT.E,.;.MA T
RANSW (SRCREG,DESTREG).T,.; LDASRCREG.D,
.; STADESTREG.U,.; LDASRCREG+1..,.; STAD
ESTREG+1..,.; .RT. ,.<.MA PUSHCPU..,.< S
TA$FD..,(< STX$FE.D,2< STY$FF.M,7< PHP.V
,<< .RT..,F<.MA POPCPU..,K< LDA$FD..,P<
LDX$FE..-Z< LDY$FF..-[< PLP..-_< .RT.,-D
<.MA RESETCPU.9-X< LDA#$00.B-.< PHA.K-.<
PLP.T-.< TAX.]-.< TAY.F-.< .RT..-.<.MA
DIALBOX (ADRESSE)..-.< LDA#<(ADRESSE). -
.< STA$02..-.< LDA#>(ADRESSE)..-.< STA$0
3.H-.<.RT..-H<.MA DIALINTRO (MUSTER,YS,Y
E,XS,XE)..-M< .BYMUSTER...R< .BYYS...W<
.BYYE....< .WOXS.*..< .WOXE.2..<.RT.H..<
.MA MENU (ADR,NR)._..< ...LOADW(ADR,$02)
.K..< LDA#NR.Y..= JSR$C151....=.RT....=.
MA CALLMAIN (ADR)....= ...LOADW(ADR,$849
B)..."= JMP$C1C3.G.'=.RT.O.>.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL