ICON-DEMO.SRC
FILE INFORMATION
FILENAME(S): ICON-DEMO.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-20 00:40:16
APPEARS ON: 1 disk(s)
FILE HASH
582ce606c2bdfac9e2ea23bb524419f4ff13540a099c5fca710afedd8e73a5c2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90570 S B | ICON-DEMO.SRC | PRG | Treasure Chest - Joker79 | 33 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 0A 00 3B 00 FF 1F 0D 00 3B 20 2A 2A |......;.....; **|
00000010: 20 20 49 43 4F 4E 2D 44 45 4D 4F 4E 53 54 52 41 | ICON-DEMONSTRA|
00000020: 54 49 4F 4E 20 20 2A 2A 00 05 20 0E 00 3B 00 12 |TION **.. ..;..|
00000030: 20 14 00 2E 42 41 20 33 30 30 30 00 2B 20 1E 00 | ...BA 3000.+ ..|
00000040: 2E 4F 42 20 22 40 3A 49 43 4F 4E 44 45 4D 4F 2C |.OB "@:ICONDEMO,|
00000050: 50 2C 57 22 00 31 20 28 00 3B 00 42 20 2D 00 20 |P,W".1 (.;.B -. |
00000060: 2E 2E 2E 49 4E 49 54 2D 4C 49 42 00 4E 20 2E 00 |...INIT-LIB.N ..|
00000070: 20 2E 2E 2E 43 4C 53 00 68 20 32 00 20 2E 2E 2E | ...CLS.h 2. ...|
00000080: 44 45 46 49 43 4F 4E 53 28 54 41 42 45 4C 4C 45 |DEFICONS(TABELLE|
00000090: 29 00 83 20 3C 00 4C 4F 4F 50 20 2E 2E 2E 43 41 |).. <.LOOP ...CA|
000000A0: 4C 4C 4D 41 49 4E 28 4C 4F 4F 50 29 00 89 20 50 |LLMAIN(LOOP).. P|
000000B0: 00 3B 00 A6 20 5A 00 54 41 42 45 4C 4C 45 20 2E |.;.. Z.TABELLE .|
000000C0: 42 59 31 3B 20 45 49 4E 20 49 43 4F 4E 20 21 00 |BY1; EIN ICON !.|
000000D0: B1 20 64 00 20 2E 57 4F 31 30 00 D4 20 6E 00 20 |. d. .WO10.. n. |
000000E0: 2E 42 59 31 30 3B 20 4D 41 55 53 5A 45 49 47 45 |.BY10; MAUSZEIGE|
000000F0: 52 20 4E 41 43 48 20 41 55 46 42 41 55 00 F9 20 |R NACH AUFBAU.. |
00000100: 78 00 20 2E 57 4F 44 45 4D 4F 3B 20 5A 45 49 47 |x. .WODEMO; ZEIG|
00000110: 45 52 20 41 55 46 20 49 43 4F 4E 2D 47 52 41 46 |ER AUF ICON-GRAF|
00000120: 49 4B 00 22 21 82 00 20 2E 42 59 31 38 3B 20 58 |IK."!.. .BY18; X|
00000130: 28 2A 38 29 20 2F 20 59 20 50 4F 53 49 54 49 4F |(*8) / Y POSITIO|
00000140: 4E 20 44 45 53 20 49 43 4F 4E 53 00 2E 21 8C 00 |N DES ICONS..!..|
00000150: 20 2E 42 59 31 30 30 00 56 21 96 00 20 2E 42 59 | .BY100.V!.. .BY|
00000160: 34 3B 20 49 43 4F 4E 20 49 53 54 20 34 2A 38 3D |4; ICON IST 4*8=|
00000170: 33 32 20 50 55 4E 4B 54 45 20 42 52 45 49 54 00 |32 PUNKTE BREIT.|
00000180: 78 21 A0 00 20 2E 42 59 36 3B 20 49 43 4F 4E 20 |x!.. .BY6; ICON |
00000190: 49 53 54 20 36 20 50 55 4E 4B 54 45 20 48 4F 43 |IST 6 PUNKTE HOC|
000001A0: 48 00 A7 21 AA 00 20 2E 57 4F 52 45 54 55 52 4E |H..!.. .WORETURN|
000001B0: 3B 20 5A 45 49 47 45 52 20 41 55 46 20 41 55 53 |; ZEIGER AUF AUS|
000001C0: 57 45 52 54 45 4E 44 45 20 52 4F 55 54 49 4E 45 |WERTENDE ROUTINE|
000001D0: 00 AD 21 B4 00 3B 00 B3 21 BE 00 3B 00 E4 21 C8 |..!..;..!..;..!.|
000001E0: 00 52 45 54 55 52 4E 20 4A 4D 50 44 45 53 4B 54 |.RETURN JMPDESKT|
000001F0: 4F 50 3B 20 44 45 53 4B 54 4F 50 20 4C 41 44 45 |OP; DESKTOP LADE|
00000200: 4E 20 55 4E 44 20 53 54 41 52 54 45 4E 00 EA 21 |N UND STARTEN..!|
00000210: D2 00 3B 00 FA 21 E8 03 44 45 4D 4F 20 2E 42 59 |..;..!..DEMO .BY|
00000220: 31 35 33 00 2A 22 FC 03 20 2E 42 59 30 30 30 2C |153.*".. .BY000,|
00000230: 30 30 30 2C 30 30 30 2C 30 30 30 2C 31 30 33 2C |000,000,000,103,|
00000240: 30 35 32 2C 31 32 31 2C 31 35 32 2C 30 38 34 2C |052,121,152,084,|
00000250: 30 36 39 00 5A 22 06 04 20 2E 42 59 30 33 34 2C |069.Z".. .BY034,|
00000260: 30 38 34 2C 30 38 37 2C 30 33 38 2C 30 33 34 2C |084,087,038,034,|
00000270: 31 38 38 2C 30 38 34 2C 30 32 31 2C 30 33 34 2C |188,084,021,034,|
00000280: 30 38 30 00 72 22 10 04 20 2E 42 59 31 30 33 2C |080.r".. .BY103,|
00000290: 31 30 30 2C 31 36 31 2C 31 34 34 00 98 22 10 27 |100,161,144..".'|
000002A0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 00 9E 22 11 27 3B 00 BE 22 12 27 3B 20 C7 45 |*..".';..".'; .E|
000002D0: 4F 53 20 CC 49 42 52 41 52 59 20 3A 20 CB 4F 4E |OS .IBRARY : .ON|
000002E0: 53 54 41 4E 54 45 4E 00 E2 22 13 27 3B 20 20 20 |STANTEN..".'; |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 50 52 | .PR|
00000300: 55 4E 47 41 44 52 45 53 53 45 4E 00 FE 22 14 27 |UNGADRESSEN..".'|
00000310: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; |
00000320: 20 CD 41 4B 52 4F 53 00 04 23 15 27 3B 00 24 23 | .AKROS..#.';.$#|
00000330: 16 27 3B 20 20 20 46 55 45 52 20 C7 C5 CF D3 2D |.'; FUER ....-|
00000340: D0 52 4F 47 52 41 4D 4D 49 45 52 45 52 00 2A 23 |.ROGRAMMIERER.*#|
00000350: 17 27 3B 00 4B 23 18 27 3B 20 20 C1 55 54 4F 52 |.';.K#.'; .UTOR|
00000360: 3A 20 D4 48 4F 52 53 54 45 4E 20 D0 45 54 52 4F |: .HORSTEN .ETRO|
00000370: 57 53 4B 49 00 51 23 19 27 3B 00 76 23 1A 27 3B |WSKI.Q#.';.v#.';|
00000380: 20 20 20 20 20 20 20 28 43 29 20 31 39 38 37 20 | (C) 1987 |
00000390: 36 34 27 45 52 20 20 3E 20 D6 31 2E 31 20 3C 00 |64'ER > .1.1 <.|
000003A0: 7C 23 1B 27 3B 00 A2 23 1C 27 3B 2A 2A 2A 2A 2A ||#.';..#.';*****|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 23 1D 27 |***********..#.'|
000003D0: 3B 00 AE 23 1E 27 3B 00 B4 23 1F 27 3B 00 D2 23 |;..#.';..#.';..#|
000003E0: 20 27 3B 20 2A 2A 20 D5 45 42 45 52 47 45 42 45 | '; ** .EBERGEBE|
000003F0: 4E 20 44 45 52 20 C7 C5 CF D3 2D 00 F4 23 21 27 |N DER ....-..#!'|
00000400: 3B 20 20 20 20 CB 4F 4E 53 54 41 4E 54 45 4E 20 |; .ONSTANTEN |
00000410: 26 20 D2 4F 55 54 49 4E 45 4E 20 2A 2A 00 FA 23 |& .OUTINEN **..#|
00000420: 22 27 3B 00 0B 24 23 27 2E 4D 41 20 49 4E 49 54 |"';..$#'.MA INIT|
00000430: 2D 4C 49 42 00 27 24 E0 2E 2E 47 4C 20 49 50 55 |-LIB.'$...GL IPU|
00000440: 54 53 54 52 49 4E 47 20 20 3D 20 24 43 31 41 45 |TSTRING = $C1AE|
00000450: 00 3F 24 E1 2E 2E 47 4C 20 4E 55 4C 4C 20 20 20 |.?$...GL NULL |
00000460: 20 20 20 20 20 3D 20 30 00 57 24 E2 2E 2E 47 4C | = 0.W$...GL|
00000470: 20 42 41 43 4B 53 50 43 20 20 20 20 20 3D 20 38 | BACKSPC = 8|
00000480: 00 6F 24 E3 2E 2E 47 4C 20 46 57 44 53 50 43 20 |.o$...GL FWDSPC |
00000490: 20 20 20 20 20 3D 20 39 00 88 24 E4 2E 2E 47 4C | = 9..$...GL|
000004A0: 20 4C 46 20 20 20 20 20 20 20 20 20 20 3D 20 31 | LF = 1|
000004B0: 30 00 A1 24 E6 2E 2E 47 4C 20 55 50 4C 20 20 20 |0..$...GL UPL |
000004C0: 20 20 20 20 20 20 3D 20 31 32 00 BA 24 E7 2E 2E | = 12..$...|
000004D0: 47 4C 20 43 52 20 20 20 20 20 20 20 20 20 20 3D |GL CR =|
000004E0: 20 31 33 00 D3 24 E8 2E 2E 47 4C 20 55 4E 44 45 | 13..$...GL UNDE|
000004F0: 52 4C 49 4E 45 4F 4E 20 3D 20 31 34 00 EC 24 E9 |RLINEON = 14..$.|
00000500: 2E 2E 47 4C 20 55 4E 44 45 52 4C 49 4E 45 4F 46 |..GL UNDERLINEOF|
00000510: 46 3D 20 31 35 00 05 25 EA 2E 2E 47 4C 20 52 45 |F= 15..%...GL RE|
00000520: 56 45 52 53 45 4F 4E 20 20 20 3D 20 31 38 00 1E |VERSEON = 18..|
00000530: 25 EB 2E 2E 47 4C 20 52 45 56 45 52 53 45 4F 46 |%...GL REVERSEOF|
00000540: 46 20 20 3D 20 31 39 00 37 25 EC 2E 2E 47 4C 20 |F = 19.7%...GL |
00000550: 47 4F 54 4F 58 20 20 20 20 20 20 20 3D 20 32 30 |GOTOX = 20|
00000560: 00 50 25 ED 2E 2E 47 4C 20 47 4F 54 4F 59 20 20 |.P%...GL GOTOY |
00000570: 20 20 20 20 20 3D 20 32 31 00 69 25 EE 2E 2E 47 | = 21.i%...G|
00000580: 4C 20 47 4F 54 4F 58 59 20 20 20 20 20 20 3D 20 |L GOTOXY = |
00000590: 32 32 00 82 25 EF 2E 2E 47 4C 20 42 4F 4C 44 4F |22..%...GL BOLDO|
000005A0: 4E 20 20 20 20 20 20 3D 20 32 34 00 9B 25 F0 2E |N = 24..%..|
000005B0: 2E 47 4C 20 49 54 41 4C 49 43 4F 4E 20 20 20 20 |.GL ITALICON |
000005C0: 3D 20 32 35 00 B4 25 F1 2E 2E 47 4C 20 4F 55 54 |= 25..%...GL OUT|
000005D0: 4C 49 4E 45 20 20 20 20 20 3D 20 32 36 00 CD 25 |LINE = 26..%|
000005E0: F2 2E 2E 47 4C 20 50 4C 41 49 4E 54 45 58 54 20 |...GL PLAINTEXT |
000005F0: 20 20 3D 20 32 37 00 E7 25 F3 2E 2E 47 4C 20 43 | = 27..%...GL C|
00000600: 4F 4D 4D 4F 44 4F 52 45 20 20 20 3D 20 31 32 38 |OMMODORE = 128|
00000610: 00 03 26 F4 2E 3B 20 2A 2A 20 4E 45 55 20 53 45 |..&..; ** NEU SE|
00000620: 49 54 20 54 45 49 4C 20 34 20 2A 2A 00 1D 26 F5 |IT TEIL 4 **..&.|
00000630: 2E 2E 47 4C 20 52 30 20 20 20 20 20 20 20 20 20 |..GL R0 |
00000640: 20 3D 20 24 30 32 00 37 26 F6 2E 2E 47 4C 20 52 | = $02.7&...GL R|
00000650: 31 20 20 20 20 20 20 20 20 20 20 3D 20 24 30 34 |1 = $04|
00000660: 00 51 26 F8 2E 2E 47 4C 20 52 32 20 20 20 20 20 |.Q&...GL R2 |
00000670: 20 20 20 20 20 3D 20 24 30 36 00 6B 26 F9 2E 2E | = $06.k&...|
00000680: 47 4C 20 52 33 20 20 20 20 20 20 20 20 20 20 3D |GL R3 =|
00000690: 20 24 30 38 00 85 26 FA 2E 2E 47 4C 20 52 34 20 | $08..&...GL R4 |
000006A0: 20 20 20 20 20 20 20 20 20 3D 20 24 30 41 00 9F | = $0A..|
000006B0: 26 FB 2E 2E 47 4C 20 52 35 20 20 20 20 20 20 20 |&...GL R5 |
000006C0: 20 20 20 3D 20 24 30 43 00 B9 26 FC 2E 2E 47 4C | = $0C..&...GL|
000006D0: 20 52 36 20 20 20 20 20 20 20 20 20 20 3D 20 24 | R6 = $|
000006E0: 30 45 00 D3 26 FD 2E 2E 47 4C 20 52 37 20 20 20 |0E..&...GL R7 |
000006F0: 20 20 20 20 20 20 20 3D 20 24 31 30 00 ED 26 FE | = $10..&.|
00000700: 2E 2E 47 4C 20 52 38 20 20 20 20 20 20 20 20 20 |..GL R8 |
00000710: 20 3D 20 24 31 32 00 07 27 FF 2E 2E 47 4C 20 52 | = $12..'...GL R|
00000720: 39 20 20 20 20 20 20 20 20 20 20 3D 20 24 31 34 |9 = $14|
00000730: 00 21 27 00 2F 2E 47 4C 20 52 31 30 20 20 20 20 |.!'./.GL R10 |
00000740: 20 20 20 20 20 3D 20 24 31 36 00 3B 27 01 2F 2E | = $16.;'./.|
00000750: 47 4C 20 52 31 31 20 20 20 20 20 20 20 20 20 3D |GL R11 =|
00000760: 20 24 31 38 00 55 27 02 2F 2E 47 4C 20 52 31 32 | $18.U'./.GL R12|
00000770: 20 20 20 20 20 20 20 20 20 3D 20 24 31 41 00 6F | = $1A.o|
00000780: 27 03 2F 2E 47 4C 20 52 31 33 20 20 20 20 20 20 |'./.GL R13 |
00000790: 20 20 20 3D 20 24 31 43 00 89 27 04 2F 2E 47 4C | = $1C..'./.GL|
000007A0: 20 52 31 34 20 20 20 20 20 20 20 20 20 3D 20 24 | R14 = $|
000007B0: 31 45 00 A3 27 05 2F 2E 47 4C 20 52 31 35 20 20 |1E..'./.GL R15 |
000007C0: 20 20 20 20 20 20 20 3D 20 24 32 30 00 BF 27 06 | = $20..'.|
000007D0: 2F 2E 47 4C 20 50 41 4E 49 43 20 20 20 20 20 20 |/.GL PANIC |
000007E0: 20 3D 20 24 43 32 43 32 00 DB 27 07 2F 2E 47 4C | = $C2C2..'./.GL|
000007F0: 20 49 4E 49 54 49 4F 20 20 20 20 20 20 3D 20 24 | INITIO = $|
00000800: 43 32 35 43 00 F7 27 08 2F 2E 47 4C 20 44 4F 4E |C25C..'./.GL DON|
00000810: 45 49 4F 20 20 20 20 20 20 3D 20 24 43 32 35 46 |EIO = $C25F|
00000820: 00 13 28 09 2F 2E 47 4C 20 44 45 53 4B 54 4F 50 |..(./.GL DESKTOP|
00000830: 20 20 20 20 20 3D 20 24 43 32 32 43 00 2F 28 0A | = $C22C./(.|
00000840: 2F 3B 20 2A 2A 20 4E 45 55 20 53 45 49 54 20 54 |/; ** NEU SEIT T|
00000850: 45 49 4C 20 35 20 2A 2A 00 4B 28 0B 2F 2E 47 4C |EIL 5 **.K(./.GL|
00000860: 20 44 49 41 4C 42 4F 58 20 20 20 20 20 3D 20 24 | DIALBOX = $|
00000870: 43 32 35 36 00 67 28 0C 2F 2E 47 4C 20 4F 4B 20 |C256.g(./.GL OK |
00000880: 20 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 31 | = $01|
00000890: 00 83 28 0D 2F 2E 47 4C 20 43 41 4E 43 45 4C 20 |..(./.GL CANCEL |
000008A0: 20 20 20 20 20 3D 20 20 20 24 30 32 00 9F 28 0E | = $02..(.|
000008B0: 2F 2E 47 4C 20 59 45 53 20 20 20 20 20 20 20 20 |/.GL YES |
000008C0: 20 3D 20 20 20 24 30 33 00 BB 28 0F 2F 2E 47 4C | = $03..(./.GL|
000008D0: 20 4E 4F 20 20 20 20 20 20 20 20 20 20 3D 20 20 | NO = |
000008E0: 20 24 30 34 00 D7 28 10 2F 2E 47 4C 20 4F 50 45 | $04..(./.GL OPE|
000008F0: 4E 20 20 20 20 20 20 20 20 3D 20 20 20 24 30 35 |N = $05|
00000900: 00 F3 28 11 2F 2E 47 4C 20 44 49 53 4B 20 20 20 |..(./.GL DISK |
00000910: 20 20 20 20 20 3D 20 20 20 24 30 36 00 0F 29 12 | = $06..).|
00000920: 2F 2E 47 4C 20 44 42 54 58 54 53 54 52 20 20 20 |/.GL DBTXTSTR |
00000930: 20 3D 20 20 20 20 31 31 00 2B 29 13 2F 2E 47 4C | = 11.+)./.GL|
00000940: 20 44 42 56 41 52 53 54 52 20 20 20 20 3D 20 20 | DBVARSTR = |
00000950: 20 20 31 32 00 47 29 14 2F 2E 47 4C 20 44 42 47 | 12.G)./.GL DBG|
00000960: 45 54 53 54 52 49 4E 47 20 3D 20 20 20 20 31 33 |ETSTRING = 13|
00000970: 00 63 29 15 2F 2E 47 4C 20 44 42 53 59 53 4F 50 |.c)./.GL DBSYSOP|
00000980: 56 20 20 20 20 3D 20 20 20 20 31 34 00 85 29 16 |V = 14..).|
00000990: 2F 2E 47 4C 20 44 42 47 45 54 46 49 4C 45 53 20 |/.GL DBGETFILES |
000009A0: 20 3D 20 20 20 20 31 35 20 3B 20 2A 2A 2A 00 A1 | = 15 ; ***..|
000009B0: 29 17 2F 2E 47 4C 20 44 42 4F 50 56 20 20 20 20 |)./.GL DBOPV |
000009C0: 20 20 20 3D 20 20 20 20 31 37 00 C3 29 18 2F 2E | = 17..)./.|
000009D0: 47 4C 20 44 42 55 53 52 49 43 4F 4E 20 20 20 3D |GL DBUSRICON =|
000009E0: 20 20 20 20 31 38 20 3B 20 2A 2A 2A 00 DF 29 19 | 18 ; ***..).|
000009F0: 2F 2E 47 4C 20 44 42 55 53 52 52 4F 55 54 20 20 |/.GL DBUSRROUT |
00000A00: 20 3D 20 20 20 20 31 39 00 F9 29 1A 2F 3B 20 2A | = 19..)./; *|
00000A10: 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 36 | NEU SEIT TEIL 6|
00000A20: 20 2A 00 16 2A 1B 2F 2E 47 4C 20 48 4C 49 4E 45 | *..*./.GL HLINE|
00000A30: 20 20 20 20 20 20 20 3D 20 20 24 43 31 31 38 00 | = $C118.|
00000A40: 33 2A 1C 2F 2E 47 4C 20 49 4E 56 4C 49 4E 45 20 |3*./.GL INVLINE |
00000A50: 20 20 20 20 3D 20 20 24 43 31 31 42 00 50 2A 1D | = $C11B.P*.|
00000A60: 2F 2E 47 4C 20 52 45 43 56 4C 49 4E 45 20 20 20 |/.GL RECVLINE |
00000A70: 20 3D 20 20 24 43 31 31 45 00 81 2A 1E 2F 2E 47 | = $C11E..*./.G|
00000A80: 4C 20 49 4D 50 52 4C 49 4E 45 20 20 20 20 3D 20 |L IMPRLINE = |
00000A90: 20 24 45 44 44 32 20 3B 20 4E 55 52 20 46 55 45 | $EDD2 ; NUR FUE|
00000AA0: 52 20 47 45 4F 53 20 31 2E 32 00 9E 2A 1F 2F 2E |R GEOS 1.2..*./.|
00000AB0: 47 4C 20 56 4C 49 4E 45 20 20 20 20 20 20 20 3D |GL VLINE =|
00000AC0: 20 20 24 43 31 32 31 00 BB 2A 20 2F 2E 47 4C 20 | $C121..* /.GL |
00000AD0: 42 4F 58 20 20 20 20 20 20 20 20 20 3D 20 20 24 |BOX = $|
00000AE0: 43 31 32 34 00 D8 2A 21 2F 2E 47 4C 20 46 52 41 |C124..*!/.GL FRA|
00000AF0: 4D 45 20 20 20 20 20 20 20 3D 20 20 24 43 31 32 |ME = $C12|
00000B00: 37 00 F5 2A 22 2F 2E 47 4C 20 49 4E 56 42 4F 58 |7..*"/.GL INVBOX|
00000B10: 20 20 20 20 20 20 3D 20 20 24 43 31 32 41 00 12 | = $C12A..|
00000B20: 2B 23 2F 2E 47 4C 20 52 45 43 56 42 4F 58 20 20 |+#/.GL RECVBOX |
00000B30: 20 20 20 3D 20 20 24 43 31 32 44 00 2F 2B 24 2F | = $C12D./+$/|
00000B40: 2E 47 4C 20 4C 49 4E 45 20 20 20 20 20 20 20 20 |.GL LINE |
00000B50: 3D 20 20 24 43 31 33 30 00 4C 2B 25 2F 2E 47 4C |= $C130.L+%/.GL|
00000B60: 20 50 4F 49 4E 54 20 20 20 20 20 20 20 3D 20 20 | POINT = |
00000B70: 24 43 31 33 33 00 69 2B 26 2F 2E 47 4C 20 53 54 |$C133.i+&/.GL ST|
00000B80: 52 49 4E 47 20 20 20 20 20 20 3D 20 20 24 43 31 |RING = $C1|
00000B90: 33 36 00 86 2B 27 2F 2E 47 4C 20 53 45 54 50 49 |36..+'/.GL SETPI|
00000BA0: 58 20 20 20 20 20 20 3D 20 20 20 20 20 20 31 00 |X = 1.|
00000BB0: A3 2B 28 2F 2E 47 4C 20 4C 4E 45 50 49 58 20 20 |.+(/.GL LNEPIX |
00000BC0: 20 20 20 20 3D 20 20 20 20 20 20 32 00 C0 2B 29 | = 2..+)|
00000BD0: 2F 2E 47 4C 20 42 4F 58 50 49 58 20 20 20 20 20 |/.GL BOXPIX |
00000BE0: 20 3D 20 20 20 20 20 20 33 00 DD 2B 2A 2F 2E 47 | = 3..+*/.G|
00000BF0: 4C 20 50 41 54 50 49 58 20 20 20 20 20 20 3D 20 |L PATPIX = |
00000C00: 20 20 20 20 20 35 00 FA 2B 2B 2F 2E 47 4C 20 50 | 5..++/.GL P|
00000C10: 55 54 50 49 58 20 20 20 20 20 20 3D 20 20 20 20 |UTPIX = |
00000C20: 20 20 36 00 17 2C 2C 2F 2E 47 4C 20 46 52 41 4D | 6..,,/.GL FRAM|
00000C30: 45 50 49 58 20 20 20 20 3D 20 20 20 20 20 20 37 |EPIX = 7|
00000C40: 00 34 2C 2D 2F 2E 47 4C 20 52 49 47 48 54 50 49 |.4,-/.GL RIGHTPI|
00000C50: 58 20 20 20 20 3D 20 20 20 20 20 20 38 00 51 2C |X = 8.Q,|
00000C60: 2E 2F 2E 47 4C 20 44 4F 57 4E 50 49 58 20 20 20 |./.GL DOWNPIX |
00000C70: 20 20 3D 20 20 20 20 20 20 39 00 6E 2C 2F 2F 2E | = 9.n,//.|
00000C80: 47 4C 20 44 52 50 49 58 20 20 20 20 20 20 20 3D |GL DRPIX =|
00000C90: 20 20 20 20 20 31 30 00 8B 2C 30 2F 2E 47 4C 20 | 10..,0/.GL |
00000CA0: 50 41 54 54 45 52 4E 20 20 20 20 20 3D 20 20 24 |PATTERN = $|
00000CB0: 43 31 33 39 00 A8 2C 31 2F 2E 47 4C 20 53 43 41 |C139..,1/.GL SCA|
00000CC0: 4E 20 20 20 20 20 20 20 20 3D 20 20 24 43 31 31 |N = $C11|
00000CD0: 42 00 C5 2C 32 2F 2E 47 4C 20 52 50 4F 49 4E 54 |B..,2/.GL RPOINT|
00000CE0: 20 20 20 20 20 20 3D 20 20 24 43 31 33 46 00 E2 | = $C13F..|
00000CF0: 2C 33 2F 2E 47 4C 20 49 42 4F 58 20 20 20 20 20 |,3/.GL IBOX |
00000D00: 20 20 20 3D 20 20 24 43 31 39 46 00 FF 2C 34 2F | = $C19F..,4/|
00000D10: 2E 47 4C 20 49 46 52 41 4D 45 20 20 20 20 20 20 |.GL IFRAME |
00000D20: 3D 20 20 24 43 31 41 32 00 1C 2D 35 2F 2E 47 4C |= $C1A2..-5/.GL|
00000D30: 20 49 52 45 56 42 4F 58 20 20 20 20 20 3D 20 20 | IREVBOX = |
00000D40: 24 43 31 41 35 00 39 2D 36 2F 2E 47 4C 20 49 53 |$C1A5.9-6/.GL IS|
00000D50: 54 52 49 4E 47 20 20 20 20 20 3D 20 20 24 43 31 |TRING = $C1|
00000D60: 41 38 00 53 2D 37 2F 3B 20 2A 20 4E 45 55 20 53 |A8.S-7/; * NEU S|
00000D70: 45 49 54 20 54 45 49 4C 20 37 20 2A 00 70 2D 38 |EIT TEIL 7 *.p-8|
00000D80: 2F 2E 47 4C 20 4D 41 49 4E 20 20 20 20 20 20 20 |/.GL MAIN |
00000D90: 20 3D 20 20 24 43 31 43 33 00 8D 2D 39 2F 2E 47 | = $C1C3..-9/.G|
00000DA0: 4C 20 4D 45 4E 55 31 20 20 20 20 20 20 20 3D 20 |L MENU1 = |
00000DB0: 20 24 43 31 42 44 00 AA 2D 3A 2F 2E 47 4C 20 44 | $C1BD..-:/.GL D|
00000DC0: 4F 4D 45 4E 55 20 20 20 20 20 20 3D 20 20 24 43 |OMENU = $C|
00000DD0: 31 35 31 00 C7 2D 3B 2F 2E 47 4C 20 56 45 52 54 |151..-;/.GL VERT|
00000DE0: 49 4B 41 4C 20 20 20 20 3D 20 20 20 20 24 38 30 |IKAL = $80|
00000DF0: 00 E4 2D 3C 2F 2E 47 4C 20 48 4F 52 49 5A 4F 4E |..-</.GL HORIZON|
00000E00: 54 41 4C 20 20 3D 20 20 20 20 24 30 30 00 01 2E |TAL = $00...|
00000E10: 3D 2F 2E 47 4C 20 56 49 53 49 42 4C 45 20 20 20 |=/.GL VISIBLE |
00000E20: 20 20 3D 20 20 20 20 24 34 30 00 1E 2E 3E 2F 2E | = $40...>/.|
00000E30: 47 4C 20 43 4C 4F 53 49 4E 47 20 20 20 20 20 3D |GL CLOSING =|
00000E40: 20 20 20 20 24 30 30 00 3B 2E 3F 2F 2E 47 4C 20 | $00.;.?/.GL |
00000E50: 53 50 52 55 4E 47 20 20 20 20 20 20 3D 20 20 20 |SPRUNG = |
00000E60: 20 24 30 30 00 58 2E 40 2F 2E 47 4C 20 53 50 52 | $00.X.@/.GL SPR|
00000E70: 55 4E 54 45 52 4D 20 20 20 3D 20 20 20 20 24 34 |UNTERM = $4|
00000E80: 30 00 75 2E 41 2F 2E 47 4C 20 53 55 42 4D 45 4E |0.u.A/.GL SUBMEN|
00000E90: 55 45 20 20 20 20 3D 20 20 20 20 24 38 30 00 92 |UE = $80..|
00000EA0: 2E 42 2F 2E 47 4C 20 43 4F 4E 54 49 4E 55 45 20 |.B/.GL CONTINUE |
00000EB0: 20 20 20 3D 20 20 24 38 34 39 42 00 A8 2E 43 2F | = $849B...C/|
00000EC0: 3B 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 |; NEU SEIT TEIL |
00000ED0: 39 00 C4 2E 44 2F 2E 47 4C 20 44 4F 49 43 4F 4E |9...D/.GL DOICON|
00000EE0: 53 20 20 20 20 20 3D 20 24 43 31 35 41 00 CC 2E |S = $C15A...|
00000EF0: C7 32 2E 52 54 00 D2 2E 98 3A 3B 00 EF 2E 9D 3A |.2.RT....:;....:|
00000F00: 3B 20 20 2A 20 CD 41 4B 52 4F 53 20 26 20 D2 4F |; * .AKROS & .O|
00000F10: 55 54 49 4E 45 4E 20 2A 00 2B 2F A2 3A 3B 20 20 |UTINEN *.+/.:; |
00000F20: 20 20 C2 49 42 4C 49 4F 54 48 45 4B 53 46 55 4E | .IBLIOTHEKSFUN|
00000F30: 4B 54 49 4F 4E 20 4D 49 54 20 D0 41 52 41 4D 45 |KTION MIT .ARAME|
00000F40: 54 45 52 20 56 45 52 53 4F 52 47 54 20 53 54 41 |TER VERSORGT STA|
00000F50: 52 54 45 4E 00 48 2F A7 3A 2E 4D 41 20 45 58 45 |RTEN.H/.:.MA EXE|
00000F60: 43 4C 49 42 20 28 4C 41 42 4C 45 2C 43 41 4C 4C |CLIB (LABLE,CALL|
00000F70: 29 00 5A 2F AC 3A 20 4C 44 41 23 3C 28 4C 41 42 |).Z/.: LDA#<(LAB|
00000F80: 4C 45 29 00 66 2F B1 3A 20 53 54 41 24 46 42 00 |LE).f/.: STA$FB.|
00000F90: 78 2F B6 3A 20 4C 44 41 23 3E 28 4C 41 42 4C 45 |x/.: LDA#>(LABLE|
00000FA0: 29 00 84 2F BB 3A 20 53 54 41 24 46 43 00 91 2F |)../.: STA$FC../|
00000FB0: C0 3A 20 4A 53 52 43 41 4C 4C 00 9A 2F C5 3A 20 |.: JSRCALL../.: |
00000FC0: 2E 52 54 00 A0 2F CA 3A 3B 00 A6 2F CF 3A 3B 00 |.RT../.:;../.:;.|
00000FD0: CA 2F D4 3A 3B 2F 2A 20 4B 4F 4E 56 45 52 54 49 |./.:;/* KONVERTI|
00000FE0: 45 52 55 4E 47 20 54 45 58 54 2D 3E 47 45 4F 53 |ERUNG TEXT->GEOS|
00000FF0: 20 2A 2F 00 DE 2F D9 3A 43 4F 4E 56 45 52 54 20 | */../.:CONVERT |
00001000: 4C 44 58 23 24 30 30 00 EA 2F DE 3A 20 4C 44 41 |LDX#$00../.: LDA|
00001010: 24 46 42 00 FA 2F E3 3A 20 53 54 41 43 4E 56 54 |$FB../.: STACNVT|
00001020: 33 2B 31 00 09 30 E8 3A 20 53 54 41 4E 45 58 54 |3+1..0.: STANEXT|
00001030: 2B 31 00 15 30 ED 3A 20 4C 44 41 24 46 43 00 25 |+1..0.: LDA$FC.%|
00001040: 30 F2 3A 20 53 54 41 43 4E 56 54 33 2B 32 00 34 |0.: STACNVT3+2.4|
00001050: 30 F7 3A 20 53 54 41 4E 45 58 54 2B 32 00 49 30 |0.: STANEXT+2.I0|
00001060: FC 3A 43 4E 56 54 33 20 4C 44 41 24 46 46 46 46 |.:CNVT3 LDA$FFFF|
00001070: 2C 58 00 58 30 01 3B 20 42 45 51 45 4E 44 43 4E |,X.X0.; BEQENDCN|
00001080: 56 00 6E 30 06 3B 43 4F 4E 56 45 52 54 43 44 20 |V.n0.;CONVERTCD |
00001090: 43 4D 50 23 22 41 22 00 7B 30 0B 3B 20 42 43 43 |CMP#"A".{0.; BCC|
000010A0: 4E 45 58 54 00 87 30 10 3B 20 43 4D 50 23 39 31 |NEXT..0.; CMP#91|
000010B0: 00 94 30 15 3B 20 42 43 53 4E 45 58 54 00 A1 30 |..0.; BCSNEXT..0|
000010C0: 1A 3B 20 45 4F 52 23 24 32 30 00 AE 30 1F 3B 20 |.; EOR#$20..0.; |
000010D0: 4A 4D 50 4E 45 58 54 00 C3 30 24 3B 53 43 4E 44 |JMPNEXT..0$;SCND|
000010E0: 43 4E 56 54 20 43 4D 50 23 22 C1 22 00 D0 30 29 |CNVT CMP#"."..0)|
000010F0: 3B 20 42 43 43 4E 45 58 54 00 DD 30 2E 3B 20 43 |; BCCNEXT..0.; C|
00001100: 4D 50 23 32 31 39 00 EA 30 33 3B 20 42 43 53 4E |MP#219..03; BCSN|
00001110: 45 58 54 00 F7 30 38 3B 20 45 4F 52 23 24 32 30 |EXT..08; EOR#$20|
00001120: 00 0B 31 3D 3B 4E 45 58 54 20 53 54 41 24 46 46 |..1=;NEXT STA$FF|
00001130: 46 46 2C 58 00 14 31 42 3B 20 49 4E 58 00 22 31 |FF,X..1B; INX."1|
00001140: 47 3B 20 4A 4D 50 43 4E 56 54 33 00 31 31 4C 3B |G; JMPCNVT3.11L;|
00001150: 45 4E 44 43 4E 56 20 52 54 53 00 37 31 51 3B 3B |ENDCNV RTS.71Q;;|
00001160: 00 3D 31 56 3B 3B 00 57 31 5B 3B 3B 20 2A 20 D3 |.=1V;;.W1[;; * .|
00001170: 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E 20 2A |CHIRM LOESCHEN *|
00001180: 00 63 31 60 3B 2E 4D 41 20 43 4C 53 00 71 31 61 |.c1`;.MA CLS.q1a|
00001190: 3B 20 4A 53 52 24 43 34 38 44 00 7A 31 65 3B 20 |; JSR$C48D.z1e; |
000011A0: 2E 52 54 00 80 31 66 3B 3B 00 9A 31 67 3B 3B 20 |.RT..1f;;..1g;; |
000011B0: 2A 20 D3 54 52 49 4E 47 20 41 55 53 47 45 42 45 |* .TRING AUSGEBE|
000011C0: 4E 20 2A 00 B2 31 6A 3B 2E 4D 41 20 50 55 54 53 |N *..1j;.MA PUTS|
000011D0: 54 52 49 4E 47 20 28 58 2C 59 29 00 C0 31 74 3B |TRING (X,Y)..1t;|
000011E0: 20 4A 53 52 24 43 31 41 45 00 CA 31 79 3B 20 2E | JSR$C1AE..1y; .|
000011F0: 57 4F 58 00 D4 31 7E 3B 20 2E 42 59 59 00 DD 31 |WOX..1~; .BYY..1|
00001200: 83 3B 20 2E 52 54 00 FC 31 88 3B 3B 2F 2A 2A 2A |.; .RT..1.;;/***|
00001210: 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 34 | NEU SEIT TEIL 4|
00001220: 20 2A 2A 2A 2F 00 3E 32 8D 3B 2E 4D 41 20 4C 4F | ***/.>2.;.MA LO|
00001230: 41 44 57 20 28 56 41 4C 55 45 2C 52 45 47 49 53 |ADW (VALUE,REGIS|
00001240: 54 45 52 29 20 3B 20 57 4F 52 54 20 27 56 41 4C |TER) ; WORT 'VAL|
00001250: 55 45 27 20 49 4E 20 27 52 45 47 49 53 54 45 52 |UE' IN 'REGISTER|
00001260: 27 20 4C 41 44 45 4E 00 50 32 92 3B 20 4C 44 41 |' LADEN.P2.; LDA|
00001270: 23 3C 28 56 41 4C 55 45 29 00 61 32 97 3B 20 53 |#<(VALUE).a2.; S|
00001280: 54 41 52 45 47 49 53 54 45 52 00 73 32 9C 3B 20 |TAREGISTER.s2.; |
00001290: 4C 44 41 23 3E 28 56 41 4C 55 45 29 00 86 32 A1 |LDA#>(VALUE)..2.|
000012A0: 3B 20 53 54 41 52 45 47 49 53 54 45 52 2B 31 00 |; STAREGISTER+1.|
000012B0: 8F 32 A6 3B 20 2E 52 54 00 95 32 A7 3B 3B 00 E2 |.2.; .RT..2.;;..|
000012C0: 32 AB 3B 2E 4D 41 20 54 52 41 4E 53 57 20 28 53 |2.;.MA TRANSW (S|
000012D0: 52 43 52 45 47 2C 44 45 53 54 52 45 47 29 20 3B |RCREG,DESTREG) ;|
000012E0: 20 57 4F 52 54 20 41 55 53 20 27 53 52 43 52 45 | WORT AUS 'SRCRE|
000012F0: 47 27 20 49 4E 20 27 44 45 53 54 52 45 47 27 20 |G' IN 'DESTREG' |
00001300: 55 45 42 45 52 54 52 41 47 45 4E 00 F1 32 B0 3B |UEBERTRAGEN..2.;|
00001310: 20 4C 44 41 53 52 43 52 45 47 00 01 33 B5 3B 20 | LDASRCREG..3.; |
00001320: 53 54 41 44 45 53 54 52 45 47 00 12 33 BA 3B 20 |STADESTREG..3.; |
00001330: 4C 44 41 53 52 43 52 45 47 2B 31 00 24 33 BF 3B |LDASRCREG+1.$3.;|
00001340: 20 53 54 41 44 45 53 54 52 45 47 2B 31 00 2D 33 | STADESTREG+1.-3|
00001350: C0 3B 20 2E 52 54 00 33 33 C1 3B 3B 00 5A 33 14 |.; .RT.33.;;.Z3.|
00001360: 3C 2E 4D 41 20 50 55 53 48 43 50 55 20 20 3B 20 |<.MA PUSHCPU ; |
00001370: 43 50 55 20 49 4E 48 41 4C 54 45 20 53 49 43 48 |CPU INHALTE SICH|
00001380: 45 52 4E 00 66 33 1E 3C 20 53 54 41 24 46 44 00 |ERN.f3.< STA$FD.|
00001390: 72 33 28 3C 20 53 54 58 24 46 45 00 7E 33 32 3C |r3(< STX$FE.~32<|
000013A0: 20 53 54 59 24 46 46 00 87 33 37 3C 20 50 48 50 | STY$FF..37< PHP|
000013B0: 00 90 33 3C 3C 20 2E 52 54 00 96 33 41 3C 3B 00 |..3<< .RT..3A<;.|
000013C0: C2 33 46 3C 2E 4D 41 20 50 4F 50 43 50 55 20 20 |.3F<.MA POPCPU |
000013D0: 20 3B 20 43 50 55 20 49 4E 48 41 4C 54 45 20 5A | ; CPU INHALTE Z|
000013E0: 55 52 55 45 43 4B 4C 41 44 45 4E 00 CE 33 4B 3C |URUECKLADEN..3K<|
000013F0: 20 4C 44 41 24 46 44 00 DA 33 50 3C 20 4C 44 58 | LDA$FD..3P< LDX|
00001400: 24 46 45 00 E6 33 5A 3C 20 4C 44 59 24 46 46 00 |$FE..3Z< LDY$FF.|
00001410: EF 33 5B 3C 20 50 4C 50 00 F8 33 5F 3C 20 2E 52 |.3[< PLP..3_< .R|
00001420: 54 00 FE 33 60 3C 3B 00 1B 34 64 3C 2E 4D 41 20 |T..3`<;..4d<.MA |
00001430: 52 45 53 45 54 43 50 55 20 3B 20 43 50 55 2D 52 |RESETCPU ; CPU-R|
00001440: 45 53 45 54 00 28 34 78 3C 20 4C 44 41 23 24 30 |ESET.(4x< LDA#$0|
00001450: 30 00 31 34 82 3C 20 50 48 41 00 3A 34 87 3C 20 |0.14.< PHA.:4.< |
00001460: 50 4C 50 00 43 34 8C 3C 20 54 41 58 00 4C 34 91 |PLP.C4.< TAX.L4.|
00001470: 3C 20 54 41 59 00 55 34 96 3C 20 2E 52 54 00 5B |< TAY.U4.< .RT.[|
00001480: 34 97 3C 3B 00 77 34 A0 3C 3B 20 2A 2A 20 4E 45 |4.<;.w4.<; ** NE|
00001490: 55 20 53 45 49 54 20 54 45 49 4C 20 35 20 2A 2A |U SEIT TEIL 5 **|
000014A0: 00 91 34 A5 3C 2E 4D 41 20 44 49 41 4C 42 4F 58 |..4.<.MA DIALBOX|
000014B0: 20 28 41 44 52 45 53 53 45 29 00 A5 34 AA 3C 20 | (ADRESSE)..4.< |
000014C0: 4C 44 41 23 3C 28 41 44 52 45 53 53 45 29 00 B1 |LDA#<(ADRESSE)..|
000014D0: 34 AF 3C 20 53 54 41 24 30 32 00 C5 34 B4 3C 20 |4.< STA$02..4.< |
000014E0: 4C 44 41 23 3E 28 41 44 52 45 53 53 45 29 00 D1 |LDA#>(ADRESSE)..|
000014F0: 34 B9 3C 20 53 54 41 24 30 33 00 D9 34 BE 3C 2E |4.< STA$03..4.<.|
00001500: 52 54 00 DF 34 C3 3C 3B 00 06 35 C8 3C 2E 4D 41 |RT..4.<;..5.<.MA|
00001510: 20 44 49 41 4C 49 4E 54 52 4F 20 28 4D 55 53 54 | DIALINTRO (MUST|
00001520: 45 52 2C 59 53 2C 59 45 2C 58 53 2C 58 45 29 00 |ER,YS,YE,XS,XE).|
00001530: 15 35 CD 3C 20 2E 42 59 4D 55 53 54 45 52 00 20 |.5.< .BYMUSTER. |
00001540: 35 D2 3C 20 2E 42 59 59 53 00 2B 35 D7 3C 20 2E |5.< .BYYS.+5.< .|
00001550: 42 59 59 45 00 36 35 DC 3C 20 2E 57 4F 58 53 00 |BYYE.65.< .WOXS.|
00001560: 41 35 E1 3C 20 2E 57 4F 58 45 00 49 35 E6 3C 2E |A5.< .WOXE.I5.<.|
00001570: 52 54 00 4F 35 EB 3C 3B 00 6B 35 F0 3C 3B 20 2A |RT.O5.<;.k5.<; *|
00001580: 2A 20 4E 45 55 20 53 45 49 54 20 54 45 49 4C 20 |* NEU SEIT TEIL |
00001590: 37 20 2A 2A 00 81 35 F5 3C 2E 4D 41 20 4D 45 4E |7 **..5.<.MA MEN|
000015A0: 55 20 28 41 44 52 2C 4E 52 29 00 98 35 FA 3C 20 |U (ADR,NR)..5.< |
000015B0: 2E 2E 2E 4C 4F 41 44 57 28 41 44 52 2C 24 30 32 |...LOADW(ADR,$02|
000015C0: 29 00 A4 35 FF 3C 20 4C 44 41 23 4E 52 00 B2 35 |)..5.< LDA#NR..5|
000015D0: 04 3D 20 4A 53 52 24 43 31 35 31 00 BA 35 09 3D |.= JSR$C151..5.=|
000015E0: 2E 52 54 00 C0 35 0E 3D 3B 00 D7 35 13 3D 2E 4D |.RT..5.=;..5.=.M|
000015F0: 41 20 43 41 4C 4C 4D 41 49 4E 20 28 41 44 52 29 |A CALLMAIN (ADR)|
00001600: 00 F0 35 18 3D 20 2E 2E 2E 4C 4F 41 44 57 28 41 |..5.= ...LOADW(A|
00001610: 44 52 2C 24 38 34 39 42 29 00 FE 35 22 3D 20 4A |DR,$849B)..5"= J|
00001620: 4D 50 24 43 31 43 33 00 06 36 27 3D 2E 52 54 00 |MP$C1C3..6'=.RT.|
00001630: 0C 36 2C 3D 3B 00 12 36 31 3D 3B 00 28 36 36 3D |.6,=;..61=;.(66=|
00001640: 20 2E 4D 41 44 45 46 49 43 4F 4E 53 28 42 54 41 | .MADEFICONS(BTA|
00001650: 29 00 3F 36 3B 3D 20 2E 2E 2E 4C 4F 41 44 57 28 |).?6;= ...LOADW(|
00001660: 42 54 41 2C 24 30 32 29 00 4F 36 40 3D 20 4A 53 |BTA,$02).O6@= JS|
00001670: 52 44 4F 49 43 4F 4E 53 00 58 36 45 3D 20 2E 52 |RDOICONS.X6E= .R|
00001680: 54 00 60 36 7F 3E 2E 45 4E 00 00 00 |T.`6.>.EN... |
X.....;.....; ** ICON-DEMONSTRATION **
.. ..;.. ...BA 3000.+ ...OB "@:ICONDEMO,
P,W".1 (.;.B -. ...INIT-LIB.N .. ...CLS.
H 2. ...DEFICONS(TABELLE).. <.LOOP ...CA
LLMAIN(LOOP).. P.;.. Z.TABELLE .BY1; EIN
ICON !.. D. .WO10.T N. .BY10; MAUSZEIGE
R NACH AUFBAU.. X. .WODEMO; ZEIGER AUF I
CON-GRAFIK."!.. .BY18; X(*8) / Y POSITIO
N DES ICONS..!.. .BY100.V!.. .BY4; ICON
IST 4*8=32 PUNKTE BREIT.X! . .BY6; ICON
IST 6 PUNKTE HOCH..!.. .WORETURN; ZEIGER
AUF AUSWERTENDE ROUTINE..!..;..!..;..!H
.RETURN JMPDESKTOP; DESKTOP LADEN UND ST
ARTEN..!R.;..!..DEMO .BY153.*".. .BY000,
000,000,000,103,052,121,152,084,069.Z"..
.BY034,084,087,038,034,188,084,021,034,
080.R".. .BY103,100,161,144..".';*******
*************************..".';..".'; GE
OS LIBRARY : KONSTANTEN..".';
SPRUNGADRESSEN..".';
MAKROS..#.';.$#.'; FUER GEOS-PROGRAMM
IERER.*#.';.K#.'; AUTOR: THORSTEN PETRO
WSKI.Q#.';.V#.'; (C) 1987 64'ER >
V1.1 <.|#.';..#.';*********************
***********..#.';..#.';..#.';.R# '; ** U
EBERGEBEN DER GEOS-..#!'; KONSTANTEN
& ROUTINEN **..#"';..$#'.MA INIT-LIB.'$.
..GL IPUTSTRING = $C1AE.?$...GL NULL
= 0.W$...GL BACKSPC = 8.O$...GL
FWDSPC = 9..$...GL LF = 1
0..$...GL UPL = 12..$...GL CR
= 13.S$...GL UNDERLINEON = 14..$.
..GL UNDERLINEOFF= 15..%...GL REVERSEON
= 18..%...GL REVERSEOFF = 19.7%...GL
GOTOX = 20.P%...GL GOTOY = 2
1.I%...GL GOTOXY = 22..%...GL BOLDO
N = 24..%...GL ITALICON = 25..%.
..GL OUTLINE = 26.M%...GL PLAINTEXT
= 27..%...GL COMMODORE = 128..&..; *
* NEU SEIT TEIL 4 **..&...GL R0
= $02.7&...GL R1 = $04.Q&...GL
R2 = $06.K&...GL R3 =
$08..&...GL R4 = $0A..&...GL R
5 = $0C..&...GL R6 = $
0E.S&...GL R7 = $10..&...GL R8
= $12..'...GL R9 = $14
.!'./.GL R10 = $16.;'./.GL R11
= $18.U'./.GL R12 = $1A.O
'./.GL R13 = $1C..'./.GL R14
= $1E..'./.GL R15 = $20..'.
/.GL PANIC = $C2C2..'./.GL INITIO
= $C25C..'./.GL DONEIO = $C25F
..(./.GL DESKTOP = $C22C./(./; ** NE
U SEIT TEIL 5 **.K(./.GL DIALBOX = $
C256.G(./.GL OK = $01..(./.GL
CANCEL = $02..(./.GL YES
= $03..(./.GL NO = $04.W(.
/.GL OPEN = $05..(./.GL DISK
= $06..)./.GL DBTXTSTR = 11
.+)./.GL DBVARSTR = 12.G)./.GL DBG
ETSTRING = 13.C)./.GL DBSYSOPV =
14..)./.GL DBGETFILES = 15 ; ***..
)./.GL DBOPV = 17.C)./.GL DBUSR
ICON = 18 ; ***..)./.GL DBUSRROUT
= 19..)./; * NEU SEIT TEIL 6 *..*./.
GL HLINE = $C118.3*./.GL INVLINE
= $C11B.P*./.GL RECVLINE = $C11
E..*./.GL IMPRLINE = $EDD2 ; NUR FUE
R GEOS 1.2..*./.GL VLINE = $C121.
.* /.GL BOX = $C124.X*!/.GL FRA
ME = $C127..*"/.GL INVBOX =
$C12A..+#/.GL RECVBOX = $C12D./+$/
.GL LINE = $C130.L+%/.GL POINT
= $C133.I+&/.GL STRING = $C1
36..+'/.GL SETPIX = 1..+(/.GL
LNEPIX = 2..+)/.GL BOXPIX
= 3..+*/.GL PATPIX = 5..
++/.GL PUTPIX = 6..,,/.GL FRAM
EPIX = 7.4,-/.GL RIGHTPIX =
8.Q,./.GL DOWNPIX = 9.N,//.
GL DRPIX = 10..,0/.GL PATTERN
= $C139..,1/.GL SCAN = $C11
B.E,2/.GL RPOINT = $C13F..,3/.GL I
BOX = $C19F..,4/.GL IFRAME
= $C1A2..-5/.GL IREVBOX = $C1A5.9-
6/.GL ISTRING = $C1A8.S-7/; * NEU S
EIT TEIL 7 *.P-8/.GL MAIN = $C1C
3..-9/.GL MENU1 = $C1BD..-:/.GL D
OMENU = $C151.G-;/.GL VERTIKAL
= $80..-</.GL HORIZONTAL = $00...
=/.GL VISIBLE = $40...>/.GL CLOSI
NG = $00.;.?/.GL SPRUNG =
$00.X.@/.GL SPRUNTERM = $40.U.A/.G
L SUBMENUE = $80...B/.GL CONTINUE
= $849B...C/; NEU SEIT TEIL 9.D.D/.G
L DOICONS = $C15A.L.G2.RT.R..:;....:
; * MAKROS & ROUTINEN *.+/.:; BIBLIO
THEKSFUNKTION MIT PARAMETER VERSORGT STA
RTEN.H/.:.MA EXECLIB (LABLE,CALL).Z/.: L
DA#<(LABLE).F/.: STA$FB.X/.: LDA#>(LABLE
)../.: STA$FC../.: JSRCALL../E: .RT. /J:
;../O:;.J/T:;/* KONVERTIERUNG TEXT->GEOS
*/../Y:CONVERT LDX#$00../.: LDA$FB../.:
STACNVT3+1..0.: STANEXT+1..0.: LDA$FC.%
0.: STACNVT3+2.40.: STANEXT+2.I0.:CNVT3
LDA$FFFF,X.X0.; BEQENDCNV.N0.;CONVERTCD
CMP#"A".{0.; BCCNEXT..0.; CMP#91..0.; BC
SNEXT..0.; EOR#$20..0.; JMPNEXT.C0$;SCND
CNVT CMP#"A".P0); BCCNEXT..0.; CMP#219..
03; BCSNEXT..08; EOR#$20..1=;NEXT STA$FF
FF,X..1B; INX."1G; JMPCNVT3.11L;ENDCNV R
TS.71Q;;.=1V;;.W1[;; * SCHIRM LOESCHEN *
.C1`;.MA CLS.Q1A; JSR$C48D.Z1E; .RT..1F;
;..1G;; * STRING AUSGEBEN *..1J;.MA PUTS
TRING (X,Y)..1T; JSR$C1AE.J1Y; .WOX.T1~;
.BYY..1.; .RT..1.;;/*** NEU SEIT TEIL 4
***/.>2.;.MA LOADW (VALUE,REGISTER) ; W
ORT 'VALUE' IN 'REGISTER' LADEN.P2.; LDA
#<(VALUE).A2.; STAREGISTER.S2.; LDA#>(VA
LUE)..2.; STAREGISTER+1..2.; .RT..2.;;..
2.;.MA TRANSW (SRCREG,DESTREG) ; WORT AU
S 'SRCREG' IN 'DESTREG' UEBERTRAGEN..2.;
LDASRCREG..3.; STADESTREG..3.; LDASRCRE
G+1.$3.; STADESTREG+1.-3.; .RT.33A;;.Z3.
<.MA PUSHCPU ; CPU INHALTE SICHERN.F3.<
STA$FD.R3(< STX$FE.~32< STY$FF..37< PHP
..3<< .RT..3A<;.B3F<.MA POPCPU ; CPU I
NHALTE ZURUECKLADEN.N3K< LDA$FD.Z3P< LDX
$FE..3Z< LDY$FF..3[< PLP..3_< .RT..3`<;.
.4D<.MA RESETCPU ; CPU-RESET.(4X< LDA#$0
0.14.< PHA.:4.< PLP.C4.< TAX.L4.< TAY.U4
.< .RT.[4.<;.W4 <; ** NEU SEIT TEIL 5 **
..4.<.MA DIALBOX (ADRESSE)..4.< LDA#<(AD
RESSE)..4.< STA$02.E4.< LDA#>(ADRESSE).Q
4.< STA$03.Y4.<.RT..4C<;..5H<.MA DIALINT
RO (MUSTER,YS,YE,XS,XE)..5M< .BYMUSTER.
5R< .BYYS.+5W< .BYYE.65.< .WOXS.A5.< .WO
XE.I5.<.RT.O5.<;.K5.<; ** NEU SEIT TEIL
7 **..5.<.MA MENU (ADR,NR)..5.< ...LOADW
(ADR,$02)..5.< LDA#NR..5.= JSR$C151..5.=
.RT..5.=;.W5.=.MA CALLMAIN (ADR)..5.= ..
.LOADW(ADR,$849B)..5"= JMP$C1C3..6'=.RT.
.6,=;..61=;.(66= .MADEFICONS(BTA).?6;= .
..LOADW(BTA,$02).O6@= JSRDOICONS.X6E= .R
T.`6>.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL