GEOS-LIB
FILE INFORMATION
FILENAME(S): GEOS-LIB
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 01:13:15
APPEARS ON: 1 disk(s)
FILE HASH
e64ce7067cc7860de4c9952f44ac2132600bc53d5f2e5525a36a09177b90cf25
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15828 SEITE A | GEOS-LIB | PRG | C64er | 13 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 10 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....';*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 04 20 11 27 3B 00 24 20 |*******.. .';.$ |
00000030: 12 27 3B 20 C7 45 4F 53 20 CC 49 42 52 41 52 59 |.'; .EOS .IBRARY|
00000040: 20 3A 20 CB 4F 4E 53 54 41 4E 54 45 4E 00 48 20 | : .ONSTANTEN.H |
00000050: 13 27 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |.'; |
00000060: 20 20 20 D3 50 52 55 4E 47 41 44 52 45 53 53 45 | .PRUNGADRESSE|
00000070: 4E 00 64 20 14 27 3B 20 20 20 20 20 20 20 20 20 |N.d .'; |
00000080: 20 20 20 20 20 20 20 CD 41 4B 52 4F 53 00 6A 20 | .AKROS.j |
00000090: 15 27 3B 00 8A 20 16 27 3B 20 20 20 46 55 45 52 |.';.. .'; FUER|
000000A0: 20 C7 C5 CF D3 20 D0 52 4F 47 52 41 4D 4D 49 45 | .... .ROGRAMMIE|
000000B0: 52 45 52 00 90 20 17 27 3B 00 B1 20 18 27 3B 20 |RER.. .';.. .'; |
000000C0: 20 C1 55 54 4F 52 3A 20 D4 48 4F 52 53 54 45 4E | .UTOR: .HORSTEN|
000000D0: 20 D0 45 54 52 4F 57 53 4B 49 00 B7 20 19 27 3B | .ETROWSKI.. .';|
000000E0: 00 DA 20 1A 27 3B 20 20 28 43 29 20 31 39 38 37 |.. .'; (C) 1987|
000000F0: 2F 38 38 20 36 34 27 45 52 20 20 3E 20 D6 31 2E |/88 64'ER > .1.|
00000100: 31 20 3C 00 E0 20 1B 27 3B 00 06 21 1C 27 3B 2A |1 <.. .';..!.';*|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000130: 0C 21 1D 27 3B 00 12 21 1E 27 3B 00 18 21 1F 27 |.!.';..!.';..!.'|
00000140: 3B 00 36 21 20 27 3B 20 2A 2A 20 D5 45 42 45 52 |;.6! '; ** .EBER|
00000150: 47 45 42 45 4E 20 44 45 52 20 C7 C5 CF D3 2D 00 |GEBEN DER ....-.|
00000160: 58 21 21 27 3B 20 20 20 20 CB 4F 4E 53 54 41 4E |X!!'; .ONSTAN|
00000170: 54 45 4E 20 26 20 D2 4F 55 54 49 4E 45 4E 20 2A |TEN & .OUTINEN *|
00000180: 2A 00 5E 21 22 27 3B 00 6F 21 23 27 2E 4D 41 20 |*.^!"';.o!#'.MA |
00000190: 49 4E 49 54 2D 4C 49 42 00 8B 21 E0 2E 2E 47 4C |INIT-LIB..!...GL|
000001A0: 20 49 50 55 54 53 54 52 49 4E 47 20 20 3D 20 24 | IPUTSTRING = $|
000001B0: 43 31 41 45 00 A3 21 E1 2E 2E 47 4C 20 4E 55 4C |C1AE..!...GL NUL|
000001C0: 4C 20 20 20 20 20 20 20 20 3D 20 30 00 BB 21 E2 |L = 0..!.|
000001D0: 2E 2E 47 4C 20 42 41 43 4B 53 50 43 20 20 20 20 |..GL BACKSPC |
000001E0: 20 3D 20 38 00 D3 21 E3 2E 2E 47 4C 20 46 57 44 | = 8..!...GL FWD|
000001F0: 53 50 43 20 20 20 20 20 20 3D 20 39 00 EC 21 E4 |SPC = 9..!.|
00000200: 2E 2E 47 4C 20 4C 46 20 20 20 20 20 20 20 20 20 |..GL LF |
00000210: 20 3D 20 31 30 00 05 22 E6 2E 2E 47 4C 20 55 50 | = 10.."...GL UP|
00000220: 4C 20 20 20 20 20 20 20 20 20 3D 20 31 32 00 1E |L = 12..|
00000230: 22 E7 2E 2E 47 4C 20 43 52 20 20 20 20 20 20 20 |"...GL CR |
00000240: 20 20 20 3D 20 31 33 00 37 22 E8 2E 2E 47 4C 20 | = 13.7"...GL |
00000250: 55 4E 44 45 52 4C 49 4E 45 4F 4E 20 3D 20 31 34 |UNDERLINEON = 14|
00000260: 00 50 22 E9 2E 2E 47 4C 20 55 4E 44 45 52 4C 49 |.P"...GL UNDERLI|
00000270: 4E 45 4F 46 46 3D 20 31 35 00 69 22 EA 2E 2E 47 |NEOFF= 15.i"...G|
00000280: 4C 20 52 45 56 45 52 53 45 4F 4E 20 20 20 3D 20 |L REVERSEON = |
00000290: 31 38 00 82 22 EB 2E 2E 47 4C 20 52 45 56 45 52 |18.."...GL REVER|
000002A0: 53 45 4F 46 46 20 20 3D 20 31 39 00 9B 22 EC 2E |SEOFF = 19.."..|
000002B0: 2E 47 4C 20 47 4F 54 4F 58 20 20 20 20 20 20 20 |.GL GOTOX |
000002C0: 3D 20 32 30 00 B4 22 ED 2E 2E 47 4C 20 47 4F 54 |= 20.."...GL GOT|
000002D0: 4F 59 20 20 20 20 20 20 20 3D 20 32 31 00 CD 22 |OY = 21.."|
000002E0: EE 2E 2E 47 4C 20 47 4F 54 4F 58 59 20 20 20 20 |...GL GOTOXY |
000002F0: 20 20 3D 20 32 32 00 E6 22 EF 2E 2E 47 4C 20 42 | = 22.."...GL B|
00000300: 4F 4C 44 4F 4E 20 20 20 20 20 20 3D 20 32 34 00 |OLDON = 24.|
00000310: FF 22 F0 2E 2E 47 4C 20 49 54 41 4C 49 43 4F 4E |."...GL ITALICON|
00000320: 20 20 20 20 3D 20 32 35 00 18 23 F1 2E 2E 47 4C | = 25..#...GL|
00000330: 20 4F 55 54 4C 49 4E 45 20 20 20 20 20 3D 20 32 | OUTLINE = 2|
00000340: 36 00 31 23 F2 2E 2E 47 4C 20 50 4C 41 49 4E 54 |6.1#...GL PLAINT|
00000350: 45 58 54 20 20 20 3D 20 32 37 00 4B 23 F3 2E 2E |EXT = 27.K#...|
00000360: 47 4C 20 43 4F 4D 4D 4F 44 4F 52 45 20 20 20 3D |GL COMMODORE =|
00000370: 20 31 32 38 00 65 23 F5 2E 2E 47 4C 20 52 30 20 | 128.e#...GL R0 |
00000380: 20 20 20 20 20 20 20 20 20 3D 20 24 30 32 00 7F | = $02..|
00000390: 23 F6 2E 2E 47 4C 20 52 31 20 20 20 20 20 20 20 |#...GL R1 |
000003A0: 20 20 20 3D 20 24 30 34 00 99 23 F8 2E 2E 47 4C | = $04..#...GL|
000003B0: 20 52 32 20 20 20 20 20 20 20 20 20 20 3D 20 24 | R2 = $|
000003C0: 30 36 00 B3 23 F9 2E 2E 47 4C 20 52 33 20 20 20 |06..#...GL R3 |
000003D0: 20 20 20 20 20 20 20 3D 20 24 30 38 00 CD 23 FA | = $08..#.|
000003E0: 2E 2E 47 4C 20 52 34 20 20 20 20 20 20 20 20 20 |..GL R4 |
000003F0: 20 3D 20 24 30 41 00 E7 23 FB 2E 2E 47 4C 20 52 | = $0A..#...GL R|
00000400: 35 20 20 20 20 20 20 20 20 20 20 3D 20 24 30 43 |5 = $0C|
00000410: 00 01 24 FC 2E 2E 47 4C 20 52 36 20 20 20 20 20 |..$...GL R6 |
00000420: 20 20 20 20 20 3D 20 24 30 45 00 1B 24 FD 2E 2E | = $0E..$...|
00000430: 47 4C 20 52 37 20 20 20 20 20 20 20 20 20 20 3D |GL R7 =|
00000440: 20 24 31 30 00 35 24 FE 2E 2E 47 4C 20 52 38 20 | $10.5$...GL R8 |
00000450: 20 20 20 20 20 20 20 20 20 3D 20 24 31 32 00 4F | = $12.O|
00000460: 24 FF 2E 2E 47 4C 20 52 39 20 20 20 20 20 20 20 |$...GL R9 |
00000470: 20 20 20 3D 20 24 31 34 00 69 24 00 2F 2E 47 4C | = $14.i$./.GL|
00000480: 20 52 31 30 20 20 20 20 20 20 20 20 20 3D 20 24 | R10 = $|
00000490: 31 36 00 83 24 01 2F 2E 47 4C 20 52 31 31 20 20 |16..$./.GL R11 |
000004A0: 20 20 20 20 20 20 20 3D 20 24 31 38 00 9D 24 02 | = $18..$.|
000004B0: 2F 2E 47 4C 20 52 31 32 20 20 20 20 20 20 20 20 |/.GL R12 |
000004C0: 20 3D 20 24 31 41 00 B7 24 03 2F 2E 47 4C 20 52 | = $1A..$./.GL R|
000004D0: 31 33 20 20 20 20 20 20 20 20 20 3D 20 24 31 43 |13 = $1C|
000004E0: 00 D1 24 04 2F 2E 47 4C 20 52 31 34 20 20 20 20 |..$./.GL R14 |
000004F0: 20 20 20 20 20 3D 20 24 31 45 00 EB 24 05 2F 2E | = $1E..$./.|
00000500: 47 4C 20 52 31 35 20 20 20 20 20 20 20 20 20 3D |GL R15 =|
00000510: 20 24 32 30 00 07 25 06 2F 2E 47 4C 20 50 41 4E | $20..%./.GL PAN|
00000520: 49 43 20 20 20 20 20 20 20 3D 20 24 43 32 43 32 |IC = $C2C2|
00000530: 00 23 25 07 2F 2E 47 4C 20 49 4E 49 54 49 4F 20 |.#%./.GL INITIO |
00000540: 20 20 20 20 20 3D 20 24 43 32 35 43 00 3F 25 08 | = $C25C.?%.|
00000550: 2F 2E 47 4C 20 44 4F 4E 45 49 4F 20 20 20 20 20 |/.GL DONEIO |
00000560: 20 3D 20 24 43 32 35 46 00 5B 25 09 2F 2E 47 4C | = $C25F.[%./.GL|
00000570: 20 44 45 53 4B 54 4F 50 20 20 20 20 20 3D 20 24 | DESKTOP = $|
00000580: 43 32 32 43 00 77 25 0B 2F 2E 47 4C 20 44 49 41 |C22C.w%./.GL DIA|
00000590: 4C 42 4F 58 20 20 20 20 20 3D 20 24 43 32 35 36 |LBOX = $C256|
000005A0: 00 93 25 0C 2F 2E 47 4C 20 4F 4B 20 20 20 20 20 |..%./.GL OK |
000005B0: 20 20 20 20 20 3D 20 20 20 24 30 31 00 AF 25 0D | = $01..%.|
000005C0: 2F 2E 47 4C 20 43 41 4E 43 45 4C 20 20 20 20 20 |/.GL CANCEL |
000005D0: 20 3D 20 20 20 24 30 32 00 CB 25 0E 2F 2E 47 4C | = $02..%./.GL|
000005E0: 20 59 45 53 20 20 20 20 20 20 20 20 20 3D 20 20 | YES = |
000005F0: 20 24 30 33 00 E7 25 0F 2F 2E 47 4C 20 4E 4F 20 | $03..%./.GL NO |
00000600: 20 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 34 | = $04|
00000610: 00 03 26 10 2F 2E 47 4C 20 4F 50 45 4E 20 20 20 |..&./.GL OPEN |
00000620: 20 20 20 20 20 3D 20 20 20 24 30 35 00 1F 26 11 | = $05..&.|
00000630: 2F 2E 47 4C 20 44 49 53 4B 20 20 20 20 20 20 20 |/.GL DISK |
00000640: 20 3D 20 20 20 24 30 36 00 3B 26 12 2F 2E 47 4C | = $06.;&./.GL|
00000650: 20 44 42 54 58 54 53 54 52 20 20 20 20 3D 20 20 | DBTXTSTR = |
00000660: 20 20 31 31 00 57 26 13 2F 2E 47 4C 20 44 42 56 | 11.W&./.GL DBV|
00000670: 41 52 53 54 52 20 20 20 20 3D 20 20 20 20 31 32 |ARSTR = 12|
00000680: 00 73 26 14 2F 2E 47 4C 20 44 42 47 45 54 53 54 |.s&./.GL DBGETST|
00000690: 52 49 4E 47 20 3D 20 20 20 20 31 33 00 8F 26 15 |RING = 13..&.|
000006A0: 2F 2E 47 4C 20 44 42 53 59 53 4F 50 56 20 20 20 |/.GL DBSYSOPV |
000006B0: 20 3D 20 20 20 20 31 34 00 B1 26 16 2F 2E 47 4C | = 14..&./.GL|
000006C0: 20 44 42 47 45 54 46 49 4C 45 53 20 20 3D 20 20 | DBGETFILES = |
000006D0: 20 20 31 35 20 3B 20 2A 2A 2A 00 CD 26 17 2F 2E | 15 ; ***..&./.|
000006E0: 47 4C 20 44 42 4F 50 56 20 20 20 20 20 20 20 3D |GL DBOPV =|
000006F0: 20 20 20 20 31 37 00 EF 26 18 2F 2E 47 4C 20 44 | 17..&./.GL D|
00000700: 42 55 53 52 49 43 4F 4E 20 20 20 3D 20 20 20 20 |BUSRICON = |
00000710: 31 38 20 3B 20 2A 2A 2A 00 0B 27 19 2F 2E 47 4C |18 ; ***..'./.GL|
00000720: 20 44 42 55 53 52 52 4F 55 54 20 20 20 3D 20 20 | DBUSRROUT = |
00000730: 20 20 31 39 00 28 27 1B 2F 2E 47 4C 20 48 4C 49 | 19.('./.GL HLI|
00000740: 4E 45 20 20 20 20 20 20 20 3D 20 20 24 43 31 31 |NE = $C11|
00000750: 38 00 45 27 1C 2F 2E 47 4C 20 49 4E 56 4C 49 4E |8.E'./.GL INVLIN|
00000760: 45 20 20 20 20 20 3D 20 20 24 43 31 31 42 00 62 |E = $C11B.b|
00000770: 27 1D 2F 2E 47 4C 20 52 45 43 56 4C 49 4E 45 20 |'./.GL RECVLINE |
00000780: 20 20 20 3D 20 20 24 43 31 31 45 00 93 27 1E 2F | = $C11E..'./|
00000790: 2E 47 4C 20 49 4D 50 52 4C 49 4E 45 20 20 20 20 |.GL IMPRLINE |
000007A0: 3D 20 20 24 45 44 44 32 20 3B 20 4E 55 52 20 46 |= $EDD2 ; NUR F|
000007B0: 55 45 52 20 47 45 4F 53 20 31 2E 32 00 B0 27 1F |UER GEOS 1.2..'.|
000007C0: 2F 2E 47 4C 20 56 4C 49 4E 45 20 20 20 20 20 20 |/.GL VLINE |
000007D0: 20 3D 20 20 24 43 31 32 31 00 CD 27 20 2F 2E 47 | = $C121..' /.G|
000007E0: 4C 20 42 4F 58 20 20 20 20 20 20 20 20 20 3D 20 |L BOX = |
000007F0: 20 24 43 31 32 34 00 EA 27 21 2F 2E 47 4C 20 46 | $C124..'!/.GL F|
00000800: 52 41 4D 45 20 20 20 20 20 20 20 3D 20 20 24 43 |RAME = $C|
00000810: 31 32 37 00 07 28 22 2F 2E 47 4C 20 49 4E 56 42 |127..("/.GL INVB|
00000820: 4F 58 20 20 20 20 20 20 3D 20 20 24 43 31 32 41 |OX = $C12A|
00000830: 00 24 28 23 2F 2E 47 4C 20 52 45 43 56 42 4F 58 |.$(#/.GL RECVBOX|
00000840: 20 20 20 20 20 3D 20 20 24 43 31 32 44 00 41 28 | = $C12D.A(|
00000850: 24 2F 2E 47 4C 20 4C 49 4E 45 20 20 20 20 20 20 |$/.GL LINE |
00000860: 20 20 3D 20 20 24 43 31 33 30 00 5E 28 25 2F 2E | = $C130.^(%/.|
00000870: 47 4C 20 50 4F 49 4E 54 20 20 20 20 20 20 20 3D |GL POINT =|
00000880: 20 20 24 43 31 33 33 00 7B 28 26 2F 2E 47 4C 20 | $C133.{(&/.GL |
00000890: 53 54 52 49 4E 47 20 20 20 20 20 20 3D 20 20 24 |STRING = $|
000008A0: 43 31 33 36 00 98 28 27 2F 2E 47 4C 20 53 45 54 |C136..('/.GL SET|
000008B0: 50 49 58 20 20 20 20 20 20 3D 20 20 20 20 20 20 |PIX = |
000008C0: 31 00 B5 28 28 2F 2E 47 4C 20 4C 4E 45 50 49 58 |1..((/.GL LNEPIX|
000008D0: 20 20 20 20 20 20 3D 20 20 20 20 20 20 32 00 D2 | = 2..|
000008E0: 28 29 2F 2E 47 4C 20 42 4F 58 50 49 58 20 20 20 |()/.GL BOXPIX |
000008F0: 20 20 20 3D 20 20 20 20 20 20 33 00 EF 28 2A 2F | = 3..(*/|
00000900: 2E 47 4C 20 50 41 54 50 49 58 20 20 20 20 20 20 |.GL PATPIX |
00000910: 3D 20 20 20 20 20 20 35 00 0C 29 2B 2F 2E 47 4C |= 5..)+/.GL|
00000920: 20 50 55 54 50 49 58 20 20 20 20 20 20 3D 20 20 | PUTPIX = |
00000930: 20 20 20 20 36 00 29 29 2C 2F 2E 47 4C 20 46 52 | 6.)),/.GL FR|
00000940: 41 4D 45 50 49 58 20 20 20 20 3D 20 20 20 20 20 |AMEPIX = |
00000950: 20 37 00 46 29 2D 2F 2E 47 4C 20 52 49 47 48 54 | 7.F)-/.GL RIGHT|
00000960: 50 49 58 20 20 20 20 3D 20 20 20 20 20 20 38 00 |PIX = 8.|
00000970: 63 29 2E 2F 2E 47 4C 20 44 4F 57 4E 50 49 58 20 |c)./.GL DOWNPIX |
00000980: 20 20 20 20 3D 20 20 20 20 20 20 39 00 80 29 2F | = 9..)/|
00000990: 2F 2E 47 4C 20 44 52 50 49 58 20 20 20 20 20 20 |/.GL DRPIX |
000009A0: 20 3D 20 20 20 20 20 31 30 00 9D 29 30 2F 2E 47 | = 10..)0/.G|
000009B0: 4C 20 50 41 54 54 45 52 4E 20 20 20 20 20 3D 20 |L PATTERN = |
000009C0: 20 24 43 31 33 39 00 BA 29 31 2F 2E 47 4C 20 53 | $C139..)1/.GL S|
000009D0: 43 41 4E 20 20 20 20 20 20 20 20 3D 20 20 24 43 |CAN = $C|
000009E0: 31 31 42 00 D7 29 32 2F 2E 47 4C 20 52 50 4F 49 |11B..)2/.GL RPOI|
000009F0: 4E 54 20 20 20 20 20 20 3D 20 20 24 43 31 33 46 |NT = $C13F|
00000A00: 00 F4 29 33 2F 2E 47 4C 20 49 42 4F 58 20 20 20 |..)3/.GL IBOX |
00000A10: 20 20 20 20 20 3D 20 20 24 43 31 39 46 00 11 2A | = $C19F..*|
00000A20: 34 2F 2E 47 4C 20 49 46 52 41 4D 45 20 20 20 20 |4/.GL IFRAME |
00000A30: 20 20 3D 20 20 24 43 31 41 32 00 2E 2A 35 2F 2E | = $C1A2..*5/.|
00000A40: 47 4C 20 49 52 45 56 42 4F 58 20 20 20 20 20 3D |GL IREVBOX =|
00000A50: 20 20 24 43 31 41 35 00 4B 2A 36 2F 2E 47 4C 20 | $C1A5.K*6/.GL |
00000A60: 49 53 54 52 49 4E 47 20 20 20 20 20 3D 20 20 24 |ISTRING = $|
00000A70: 43 31 41 38 00 68 2A 38 2F 2E 47 4C 20 4D 41 49 |C1A8.h*8/.GL MAI|
00000A80: 4E 20 20 20 20 20 20 20 20 3D 20 20 24 43 31 43 |N = $C1C|
00000A90: 33 00 85 2A 39 2F 2E 47 4C 20 4D 45 4E 55 31 20 |3..*9/.GL MENU1 |
00000AA0: 20 20 20 20 20 20 3D 20 20 24 43 31 42 44 00 A2 | = $C1BD..|
00000AB0: 2A 3A 2F 2E 47 4C 20 44 4F 4D 45 4E 55 20 20 20 |*:/.GL DOMENU |
00000AC0: 20 20 20 3D 20 20 24 43 31 35 31 00 BF 2A 3B 2F | = $C151..*;/|
00000AD0: 2E 47 4C 20 56 45 52 54 49 4B 41 4C 20 20 20 20 |.GL VERTIKAL |
00000AE0: 3D 20 20 20 20 24 38 30 00 DC 2A 3C 2F 2E 47 4C |= $80..*</.GL|
00000AF0: 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 20 3D 20 20 | HORIZONTAL = |
00000B00: 20 20 24 30 30 00 F9 2A 3D 2F 2E 47 4C 20 56 49 | $00..*=/.GL VI|
00000B10: 53 49 42 4C 45 20 20 20 20 20 3D 20 20 20 20 24 |SIBLE = $|
00000B20: 34 30 00 16 2B 3E 2F 2E 47 4C 20 43 4C 4F 53 49 |40..+>/.GL CLOSI|
00000B30: 4E 47 20 20 20 20 20 3D 20 20 20 20 24 30 30 00 |NG = $00.|
00000B40: 33 2B 3F 2F 2E 47 4C 20 53 50 52 55 4E 47 20 20 |3+?/.GL SPRUNG |
00000B50: 20 20 20 20 3D 20 20 20 20 24 30 30 00 50 2B 40 | = $00.P+@|
00000B60: 2F 2E 47 4C 20 53 50 52 55 4E 54 45 52 4D 20 20 |/.GL SPRUNTERM |
00000B70: 20 3D 20 20 20 20 24 34 30 00 6D 2B 41 2F 2E 47 | = $40.m+A/.G|
00000B80: 4C 20 53 55 42 4D 45 4E 55 45 20 20 20 20 3D 20 |L SUBMENUE = |
00000B90: 20 20 20 24 38 30 00 8A 2B 42 2F 2E 47 4C 20 43 | $80..+B/.GL C|
00000BA0: 4F 4E 54 49 4E 55 45 20 20 20 20 3D 20 20 24 38 |ONTINUE = $8|
00000BB0: 34 39 42 00 92 2B C7 32 2E 52 54 00 98 2B 98 3A |49B..+.2.RT..+.:|
00000BC0: 3B 00 B5 2B 9D 3A 3B 20 20 2A 20 CD 41 4B 52 4F |;..+.:; * .AKRO|
00000BD0: 53 20 26 20 D2 4F 55 54 49 4E 45 4E 20 2A 00 F1 |S & .OUTINEN *..|
00000BE0: 2B A2 3A 3B 20 20 20 20 C2 49 42 4C 49 4F 54 48 |+.:; .IBLIOTH|
00000BF0: 45 4B 53 46 55 4E 4B 54 49 4F 4E 20 4D 49 54 20 |EKSFUNKTION MIT |
00000C00: D0 41 52 41 4D 45 54 45 52 20 56 45 52 53 4F 52 |.ARAMETER VERSOR|
00000C10: 47 54 20 53 54 41 52 54 45 4E 00 0E 2C A7 3A 2E |GT STARTEN..,.:.|
00000C20: 4D 41 20 45 58 45 43 4C 49 42 20 28 4C 41 42 4C |MA EXECLIB (LABL|
00000C30: 45 2C 43 41 4C 4C 29 00 20 2C AC 3A 20 4C 44 41 |E,CALL). ,.: LDA|
00000C40: 23 3C 28 4C 41 42 4C 45 29 00 2C 2C B1 3A 20 53 |#<(LABLE).,,.: S|
00000C50: 54 41 24 46 42 00 3E 2C B6 3A 20 4C 44 41 23 3E |TA$FB.>,.: LDA#>|
00000C60: 28 4C 41 42 4C 45 29 00 4A 2C BB 3A 20 53 54 41 |(LABLE).J,.: STA|
00000C70: 24 46 43 00 57 2C C0 3A 20 4A 53 52 43 41 4C 4C |$FC.W,.: JSRCALL|
00000C80: 00 60 2C C5 3A 20 2E 52 54 00 66 2C CA 3A 3B 00 |.`,.: .RT.f,.:;.|
00000C90: 6C 2C CF 3A 3B 00 90 2C D4 3A 3B 2F 2A 20 4B 4F |l,.:;..,.:;/* KO|
00000CA0: 4E 56 45 52 54 49 45 52 55 4E 47 20 54 45 58 54 |NVERTIERUNG TEXT|
00000CB0: 2D 3E 47 45 4F 53 20 2A 2F 00 A4 2C D9 3A 43 4F |->GEOS */..,.:CO|
00000CC0: 4E 56 45 52 54 20 4C 44 58 23 24 30 30 00 B0 2C |NVERT LDX#$00..,|
00000CD0: DE 3A 20 4C 44 41 24 46 42 00 C0 2C E3 3A 20 53 |.: LDA$FB..,.: S|
00000CE0: 54 41 43 4E 56 54 33 2B 31 00 CF 2C E8 3A 20 53 |TACNVT3+1..,.: S|
00000CF0: 54 41 4E 45 58 54 2B 31 00 DB 2C ED 3A 20 4C 44 |TANEXT+1..,.: LD|
00000D00: 41 24 46 43 00 EB 2C F2 3A 20 53 54 41 43 4E 56 |A$FC..,.: STACNV|
00000D10: 54 33 2B 32 00 FA 2C F7 3A 20 53 54 41 4E 45 58 |T3+2..,.: STANEX|
00000D20: 54 2B 32 00 0F 2D FC 3A 43 4E 56 54 33 20 4C 44 |T+2..-.:CNVT3 LD|
00000D30: 41 24 46 46 46 46 2C 58 00 1E 2D 01 3B 20 42 45 |A$FFFF,X..-.; BE|
00000D40: 51 45 4E 44 43 4E 56 00 34 2D 06 3B 43 4F 4E 56 |QENDCNV.4-.;CONV|
00000D50: 45 52 54 43 44 20 43 4D 50 23 22 41 22 00 41 2D |ERTCD CMP#"A".A-|
00000D60: 0B 3B 20 42 43 43 4E 45 58 54 00 4D 2D 10 3B 20 |.; BCCNEXT.M-.; |
00000D70: 43 4D 50 23 39 31 00 5A 2D 15 3B 20 42 43 53 4E |CMP#91.Z-.; BCSN|
00000D80: 45 58 54 00 67 2D 1A 3B 20 45 4F 52 23 24 32 30 |EXT.g-.; EOR#$20|
00000D90: 00 74 2D 1F 3B 20 4A 4D 50 4E 45 58 54 00 89 2D |.t-.; JMPNEXT..-|
00000DA0: 24 3B 53 43 4E 44 43 4E 56 54 20 43 4D 50 23 22 |$;SCNDCNVT CMP#"|
00000DB0: C1 22 00 96 2D 29 3B 20 42 43 43 4E 45 58 54 00 |."..-); BCCNEXT.|
00000DC0: A3 2D 2E 3B 20 43 4D 50 23 32 31 39 00 B0 2D 33 |.-.; CMP#219..-3|
00000DD0: 3B 20 42 43 53 4E 45 58 54 00 BD 2D 38 3B 20 45 |; BCSNEXT..-8; E|
00000DE0: 4F 52 23 24 32 30 00 D1 2D 3D 3B 4E 45 58 54 20 |OR#$20..-=;NEXT |
00000DF0: 53 54 41 24 46 46 46 46 2C 58 00 DA 2D 42 3B 20 |STA$FFFF,X..-B; |
00000E00: 49 4E 58 00 E8 2D 47 3B 20 4A 4D 50 43 4E 56 54 |INX..-G; JMPCNVT|
00000E10: 33 00 F7 2D 4C 3B 45 4E 44 43 4E 56 20 52 54 53 |3..-L;ENDCNV RTS|
00000E20: 00 FD 2D 51 3B 3B 00 03 2E 56 3B 3B 00 1D 2E 5B |..-Q;;...V;;...[|
00000E30: 3B 3B 20 2A 20 D3 43 48 49 52 4D 20 4C 4F 45 53 |;; * .CHIRM LOES|
00000E40: 43 48 45 4E 20 2A 00 29 2E 60 3B 2E 4D 41 20 43 |CHEN *.).`;.MA C|
00000E50: 4C 53 00 41 2E 61 3B 20 4A 53 52 24 43 44 41 33 |LS.A.a; JSR$CDA3|
00000E60: 3B 20 47 45 4F 53 20 31 2E 32 00 5A 2E 62 3B 3B |; GEOS 1.2.Z.b;;|
00000E70: 42 45 49 20 C7 45 4F 53 20 31 2E 33 3A 20 24 43 |BEI .EOS 1.3: $C|
00000E80: 34 39 43 00 63 2E 65 3B 20 2E 52 54 00 69 2E 66 |49C.c.e; .RT.i.f|
00000E90: 3B 3B 00 83 2E 67 3B 3B 20 2A 20 D3 54 52 49 4E |;;...g;; * .TRIN|
00000EA0: 47 20 41 55 53 47 45 42 45 4E 20 2A 00 9B 2E 6A |G AUSGEBEN *...j|
00000EB0: 3B 2E 4D 41 20 50 55 54 53 54 52 49 4E 47 20 28 |;.MA PUTSTRING (|
00000EC0: 58 2C 59 29 00 A9 2E 74 3B 20 4A 53 52 24 43 31 |X,Y)...t; JSR$C1|
00000ED0: 41 45 00 B3 2E 79 3B 20 2E 57 4F 58 00 BD 2E 7E |AE...y; .WOX...~|
00000EE0: 3B 20 2E 42 59 59 00 C6 2E 83 3B 20 2E 52 54 00 |; .BYY....; .RT.|
00000EF0: 08 2F 8D 3B 2E 4D 41 20 4C 4F 41 44 57 20 28 56 |./.;.MA LOADW (V|
00000F00: 41 4C 55 45 2C 52 45 47 49 53 54 45 52 29 20 3B |ALUE,REGISTER) ;|
00000F10: 20 57 4F 52 54 20 27 56 41 4C 55 45 27 20 49 4E | WORT 'VALUE' IN|
00000F20: 20 27 52 45 47 49 53 54 45 52 27 20 4C 41 44 45 | 'REGISTER' LADE|
00000F30: 4E 00 1A 2F 92 3B 20 4C 44 41 23 3C 28 56 41 4C |N../.; LDA#<(VAL|
00000F40: 55 45 29 00 2B 2F 97 3B 20 53 54 41 52 45 47 49 |UE).+/.; STAREGI|
00000F50: 53 54 45 52 00 3D 2F 9C 3B 20 4C 44 41 23 3E 28 |STER.=/.; LDA#>(|
00000F60: 56 41 4C 55 45 29 00 50 2F A1 3B 20 53 54 41 52 |VALUE).P/.; STAR|
00000F70: 45 47 49 53 54 45 52 2B 31 00 59 2F A6 3B 20 2E |EGISTER+1.Y/.; .|
00000F80: 52 54 00 5F 2F A7 3B 3B 00 AC 2F AB 3B 2E 4D 41 |RT._/.;;../.;.MA|
00000F90: 20 54 52 41 4E 53 57 20 28 53 52 43 52 45 47 2C | TRANSW (SRCREG,|
00000FA0: 44 45 53 54 52 45 47 29 20 3B 20 57 4F 52 54 20 |DESTREG) ; WORT |
00000FB0: 41 55 53 20 27 53 52 43 52 45 47 27 20 49 4E 20 |AUS 'SRCREG' IN |
00000FC0: 27 44 45 53 54 52 45 47 27 20 55 45 42 45 52 54 |'DESTREG' UEBERT|
00000FD0: 52 41 47 45 4E 00 BB 2F B0 3B 20 4C 44 41 53 52 |RAGEN../.; LDASR|
00000FE0: 43 52 45 47 00 CB 2F B5 3B 20 53 54 41 44 45 53 |CREG../.; STADES|
00000FF0: 54 52 45 47 00 DC 2F BA 3B 20 4C 44 41 53 52 43 |TREG../.; LDASRC|
00001000: 52 45 47 2B 31 00 EE 2F BF 3B 20 53 54 41 44 45 |REG+1../.; STADE|
00001010: 53 54 52 45 47 2B 31 00 F7 2F C0 3B 20 2E 52 54 |STREG+1../.; .RT|
00001020: 00 FD 2F C1 3B 3B 00 24 30 14 3C 2E 4D 41 20 50 |../.;;.$0.<.MA P|
00001030: 55 53 48 43 50 55 20 20 3B 20 43 50 55 20 49 4E |USHCPU ; CPU IN|
00001040: 48 41 4C 54 45 20 53 49 43 48 45 52 4E 00 30 30 |HALTE SICHERN.00|
00001050: 1E 3C 20 53 54 41 24 46 44 00 3C 30 28 3C 20 53 |.< STA$FD.<0(< S|
00001060: 54 58 24 46 45 00 48 30 32 3C 20 53 54 59 24 46 |TX$FE.H02< STY$F|
00001070: 46 00 51 30 37 3C 20 50 48 50 00 5A 30 3C 3C 20 |F.Q07< PHP.Z0<< |
00001080: 2E 52 54 00 60 30 41 3C 3B 00 8C 30 46 3C 2E 4D |.RT.`0A<;..0F<.M|
00001090: 41 20 50 4F 50 43 50 55 20 20 20 3B 20 43 50 55 |A POPCPU ; CPU|
000010A0: 20 49 4E 48 41 4C 54 45 20 5A 55 52 55 45 43 4B | INHALTE ZURUECK|
000010B0: 4C 41 44 45 4E 00 98 30 4B 3C 20 4C 44 41 24 46 |LADEN..0K< LDA$F|
000010C0: 44 00 A4 30 50 3C 20 4C 44 58 24 46 45 00 B0 30 |D..0P< LDX$FE..0|
000010D0: 5A 3C 20 4C 44 59 24 46 46 00 B9 30 5B 3C 20 50 |Z< LDY$FF..0[< P|
000010E0: 4C 50 00 C2 30 5F 3C 20 2E 52 54 00 C8 30 60 3C |LP..0_< .RT..0`<|
000010F0: 3B 00 E5 30 64 3C 2E 4D 41 20 52 45 53 45 54 43 |;..0d<.MA RESETC|
00001100: 50 55 20 3B 20 43 50 55 2D 52 45 53 45 54 00 F2 |PU ; CPU-RESET..|
00001110: 30 78 3C 20 4C 44 41 23 24 30 30 00 FB 30 82 3C |0x< LDA#$00..0.<|
00001120: 20 50 48 41 00 04 31 87 3C 20 50 4C 50 00 0D 31 | PHA..1.< PLP..1|
00001130: 8C 3C 20 54 41 58 00 16 31 91 3C 20 54 41 59 00 |.< TAX..1.< TAY.|
00001140: 1F 31 96 3C 20 2E 52 54 00 25 31 97 3C 3B 00 3F |.1.< .RT.%1.<;.?|
00001150: 31 A5 3C 2E 4D 41 20 44 49 41 4C 42 4F 58 20 28 |1.<.MA DIALBOX (|
00001160: 41 44 52 45 53 53 45 29 00 53 31 AA 3C 20 4C 44 |ADRESSE).S1.< LD|
00001170: 41 23 3C 28 41 44 52 45 53 53 45 29 00 5F 31 AF |A#<(ADRESSE)._1.|
00001180: 3C 20 53 54 41 24 30 32 00 73 31 B4 3C 20 4C 44 |< STA$02.s1.< LD|
00001190: 41 23 3E 28 41 44 52 45 53 53 45 29 00 7F 31 B9 |A#>(ADRESSE)..1.|
000011A0: 3C 20 53 54 41 24 30 33 00 87 31 BE 3C 2E 52 54 |< STA$03..1.<.RT|
000011B0: 00 8D 31 C3 3C 3B 00 B4 31 C8 3C 2E 4D 41 20 44 |..1.<;..1.<.MA D|
000011C0: 49 41 4C 49 4E 54 52 4F 20 28 4D 55 53 54 45 52 |IALINTRO (MUSTER|
000011D0: 2C 59 53 2C 59 45 2C 58 53 2C 58 45 29 00 C3 31 |,YS,YE,XS,XE)..1|
000011E0: CD 3C 20 2E 42 59 4D 55 53 54 45 52 00 CE 31 D2 |.< .BYMUSTER..1.|
000011F0: 3C 20 2E 42 59 59 53 00 D9 31 D7 3C 20 2E 42 59 |< .BYYS..1.< .BY|
00001200: 59 45 00 E4 31 DC 3C 20 2E 57 4F 58 53 00 EF 31 |YE..1.< .WOXS..1|
00001210: E1 3C 20 2E 57 4F 58 45 00 F7 31 E6 3C 2E 52 54 |.< .WOXE..1.<.RT|
00001220: 00 FD 31 EB 3C 3B 00 13 32 F5 3C 2E 4D 41 20 4D |..1.<;..2.<.MA M|
00001230: 45 4E 55 20 28 41 44 52 2C 4E 52 29 00 2A 32 FA |ENU (ADR,NR).*2.|
00001240: 3C 20 2E 2E 2E 4C 4F 41 44 57 28 41 44 52 2C 24 |< ...LOADW(ADR,$|
00001250: 30 32 29 00 36 32 FF 3C 20 4C 44 41 23 4E 52 00 |02).62.< LDA#NR.|
00001260: 44 32 04 3D 20 4A 53 52 24 43 31 35 31 00 4C 32 |D2.= JSR$C151.L2|
00001270: 09 3D 2E 52 54 00 52 32 0E 3D 3B 00 69 32 13 3D |.=.RT.R2.=;.i2.=|
00001280: 2E 4D 41 20 43 41 4C 4C 4D 41 49 4E 20 28 41 44 |.MA CALLMAIN (AD|
00001290: 52 29 00 82 32 18 3D 20 2E 2E 2E 4C 4F 41 44 57 |R)..2.= ...LOADW|
000012A0: 28 41 44 52 2C 24 38 34 39 42 29 00 90 32 22 3D |(ADR,$849B)..2"=|
000012B0: 20 4A 4D 50 24 43 31 43 33 00 98 32 27 3D 2E 52 | JMP$C1C3..2'=.R|
000012C0: 54 00 A0 32 7F 3E 2E 45 4E 00 00 00 |T..2.>.EN... |
X....';********************************.
. .';.$ .'; GEOS LIBRARY : KONSTANTEN.H
.'; SPRUNGADRESSEN.D .';
MAKROS.J .';.. .'; FUER
GEOS PROGRAMMIERER.. .';.. .'; AUTOR:
THORSTEN PETROWSKI.. .';.Z .'; (C) 1987
/88 64'ER > V1.1 <.. .';..!.';*********
***********************..!.';..!.';..!.'
;.6! '; ** UEBERGEBEN DER GEOS-.X!!';
KONSTANTEN & ROUTINEN **.^!"';.O!#'.MA
INIT-LIB..!...GL IPUTSTRING = $C1AE..!.
..GL NULL = 0..!...GL BACKSPC
= 8.S!...GL FWDSPC = 9..!...GL LF
= 10.."...GL UPL = 12..
"...GL CR = 13.7"...GL UNDERLIN
EON = 14.P"...GL UNDERLINEOFF= 15.I"...G
L REVERSEON = 18.."...GL REVERSEOFF =
19.."...GL GOTOX = 20.."...GL GOT
OY = 21.M"...GL GOTOXY = 22..
"...GL BOLDON = 24.."...GL ITALICON
= 25..#...GL OUTLINE = 26.1#...G
L PLAINTEXT = 27.K#...GL COMMODORE =
128.E#...GL R0 = $02.#...GL R
1 = $04..#...GL R2 = $
06..#...GL R3 = $08.M#...GL R4
= $0A..#...GL R5 = $0C
..$...GL R6 = $0E..$...GL R7
= $10.5$...GL R8 = $12.O
$...GL R9 = $14.I$./.GL R10
= $16..$./.GL R11 = $18..$.
/.GL R12 = $1A..$./.GL R13
= $1C.Q$./.GL R14 = $1E..$./.
GL R15 = $20..%./.GL PANIC
= $C2C2.#%./.GL INITIO = $C25C.?%.
/.GL DONEIO = $C25F.[%./.GL DESKTOP
= $C22C.W%./.GL DIALBOX = $C256
..%./.GL OK = $01..%./.GL CAN
CEL = $02.K%./.GL YES =
$03..%./.GL NO = $04..&./.GL
OPEN = $05..&./.GL DISK
= $06.;&./.GL DBTXTSTR = 11.W&.
/.GL DBVARSTR = 12.S&./.GL DBGETST
RING = 13..&./.GL DBSYSOPV = 14
..&./.GL DBGETFILES = 15 ; ***.M&./.
GL DBOPV = 17..&./.GL DBUSRICON
= 18 ; ***..'./.GL DBUSRROUT =
19.('./.GL HLINE = $C118.E'./.G
L INVLINE = $C11B.B'./.GL RECVLINE
= $C11E..'./.GL IMPRLINE = $EDD2
; NUR FUER GEOS 1.2..'./.GL VLINE
= $C121.M' /.GL BOX = $C124..
'!/.GL FRAME = $C127..("/.GL INVB
OX = $C12A.$(#/.GL RECVBOX =
$C12D.A($/.GL LINE = $C130.^(%/.
GL POINT = $C133.{(&/.GL STRING
= $C136..('/.GL SETPIX =
1..((/.GL LNEPIX = 2.R()/.GL B
OXPIX = 3..(*/.GL PATPIX
= 5..)+/.GL PUTPIX = 6.))
,/.GL FRAMEPIX = 7.F)-/.GL RIGHT
PIX = 8.C)./.GL DOWNPIX =
9..)//.GL DRPIX = 10..)0/.G
L PATTERN = $C139..)1/.GL SCAN
= $C11B.W)2/.GL RPOINT = $C13F
..)3/.GL IBOX = $C19F..*4/.GL IF
RAME = $C1A2..*5/.GL IREVBOX =
$C1A5.K*6/.GL ISTRING = $C1A8.H*8
/.GL MAIN = $C1C3..*9/.GL MENU1
= $C1BD..*:/.GL DOMENU = $C
151..*;/.GL VERTIKAL = $80..*</.GL
HORIZONTAL = $00..*=/.GL VISIBLE
= $40..+>/.GL CLOSING = $00.
3+?/.GL SPRUNG = $00.P+@/.GL SPR
UNTERM = $40.M+A/.GL SUBMENUE =
$80..+B/.GL CONTINUE = $849B..+G2
.RT..+.:;..+.:; * MAKROS & ROUTINEN *..
+.:; BIBLIOTHEKSFUNKTION MIT PARAMETE
R VERSORGT STARTEN..,.:.MA EXECLIB (LABL
E,CALL). ,.: LDA#<(LABLE).,,.: STA$FB.>,
.: LDA#>(LABLE).J,.: STA$FC.W,.: JSRCALL
.`,E: .RT.F,J:;.L,O:;..,T:;/* KONVERTIER
UNG TEXT->GEOS */..,Y:CONVERT LDX#$00..,
.: LDA$FB..,.: STACNVT3+1.O,.: STANEXT+1
..,.: LDA$FC..,.: STACNVT3+2..,.: STANEX
T+2..-.:CNVT3 LDA$FFFF,X..-.; BEQENDCNV.
4-.;CONVERTCD CMP#"A".A-.; BCCNEXT.M-.;
CMP#91.Z-.; BCSNEXT.G-.; EOR#$20.T-.; JM
PNEXT..-$;SCNDCNVT CMP#"A"..-); BCCNEXT.
.-.; CMP#219..-3; BCSNEXT..-8; EOR#$20.Q
-=;NEXT STA$FFFF,X.Z-B; INX..-G; JMPCNVT
3..-L;ENDCNV RTS..-Q;;...V;;...[;; * SCH
IRM LOESCHEN *.).`;.MA CLS.A.A; JSR$CDA3
; GEOS 1.2.Z.B;;BEI GEOS 1.3: $C49C.C.E;
.RT.I.F;;...G;; * STRING AUSGEBEN *...J
;.MA PUTSTRING (X,Y)...T; JSR$C1AE...Y;
.WOX...~; .BYY.F..; .RT../.;.MA LOADW (V
ALUE,REGISTER) ; WORT 'VALUE' IN 'REGIST
ER' LADEN../.; LDA#<(VALUE).+/.; STAREGI
STER.=/.; LDA#>(VALUE).P/.; STAREGISTER+
1.Y/.; .RT._/.;;../.;.MA TRANSW (SRCREG,
DESTREG) ; WORT AUS 'SRCREG' IN 'DESTREG
' UEBERTRAGEN../.; LDASRCREG.K/.; STADES
TREG../.; LDASRCREG+1../.; STADESTREG+1.
./.; .RT../A;;.$0.<.MA PUSHCPU ; CPU IN
HALTE SICHERN.00.< STA$FD.<0(< STX$FE.H0
2< STY$FF.Q07< PHP.Z0<< .RT.`0A<;..0F<.M
A POPCPU ; CPU INHALTE ZURUECKLADEN..0
K< LDA$FD..0P< LDX$FE..0Z< LDY$FF..0[< P
LP.B0_< .RT.H0`<;..0D<.MA RESETCPU ; CPU
-RESET..0X< LDA#$00..0.< PHA..1.< PLP..1
.< TAX..1.< TAY..1.< .RT.%1.<;.?1.<.MA D
IALBOX (ADRESSE).S1.< LDA#<(ADRESSE)._1.
< STA$02.S1.< LDA#>(ADRESSE).1.< STA$03
..1.<.RT..1C<;..1H<.MA DIALINTRO (MUSTER
,YS,YE,XS,XE).C1M< .BYMUSTER.N1R< .BYYS.
Y1W< .BYYE..1.< .WOXS..1.< .WOXE..1.<.RT
..1.<;..2.<.MA MENU (ADR,NR).*2.< ...LOA
DW(ADR,$02).62.< LDA#NR.D2.= JSR$C151.L2
.=.RT.R2.=;.I2.=.MA CALLMAIN (ADR)..2.=
...LOADW(ADR,$849B)..2"= JMP$C1C3..2'=.R
T. 2>.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL