6.WINDOW DEMO
FILE INFORMATION
FILENAME(S): 6.WINDOW DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 16:44:36
APPEARS ON: 1 disk(s)
FILE HASH
08055197415cdde08ccfe5669c6ee98be231200fc3a80e6a4b52a1b6c99060a3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | 6.WINDOW DEMO | PRG | High Voltage Complete C64 Collection | 34 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 10 3B 46 4F 52 20 55 53 49 4E 47 20 41 20 57 |..;FOR USING A W| 00000010: 49 4E 44 4F 57 20 53 59 53 54 45 4D 00 02 00 2A |INDOW SYSTEM...*| 00000020: 24 36 30 30 30 00 02 00 BB 53 54 52 55 43 54 55 |$6000....STRUCTU| 00000030: 52 45 20 4F 46 20 41 20 57 49 4E 44 4F 57 20 46 |RE OF A WINDOW F| 00000040: 49 4C 45 00 00 3B 20 53 54 41 52 54 50 4F 49 4E |ILE..; STARTPOIN| 00000050: 54 20 20 32 20 42 59 54 45 53 20 2F 58 2C 59 2F |T 2 BYTES /X,Y/| 00000060: 00 3B 20 57 49 44 45 4E 45 53 53 20 20 20 20 31 |.; WIDENESS 1| 00000070: 20 42 59 54 45 00 3B 20 43 4F 4C 4F 52 20 20 20 | BYTE.; COLOR | 00000080: 20 20 20 20 31 20 42 59 54 45 00 3B 20 43 48 4F | 1 BYTE.; CHO| 00000090: 4F 53 45 43 4F 4C 4F 52 20 31 20 42 59 54 45 00 |OSECOLOR 1 BYTE.| 000000A0: 3B 20 54 45 58 54 20 2F 4C 49 4E 45 20 53 45 50 |; TEXT /LINE SEP| 000000B0: 41 52 41 54 4F 52 20 3A 20 26 20 2F 00 3B 20 45 |ARATOR : & /.; E| 000000C0: 4E 44 20 4F 46 20 46 49 4C 45 20 3A 20 23 00 02 |ND OF FILE : #..| 000000D0: 00 BB 20 4D 41 43 52 4F 53 00 02 00 5B 4D 4F 56 |.. MACROS...[MOV| 000000E0: 20 20 20 20 20 20 53 4F 55 52 43 45 2C 44 45 53 | SOURCE,DES| 000000F0: 54 00 CC 44 41 20 53 4F 55 52 43 45 00 D3 54 41 |T..DA SOURCE..TA| 00000100: 20 44 45 53 54 00 CC 44 41 20 53 4F 55 52 43 45 | DEST..DA SOURCE| 00000110: 2B 31 00 D3 54 41 20 44 45 53 54 2B 31 00 5D 4D |+1..TA DEST+1.]M| 00000120: 4F 56 00 00 5B 53 42 57 20 20 20 20 20 20 50 4C |OV..[SBW PL| 00000130: 41 43 45 2C 51 55 41 4E 54 49 54 59 00 CC 44 41 |ACE,QUANTITY..DA| 00000140: 20 50 4C 41 43 45 00 D3 45 43 00 D3 42 43 20 23 | PLACE..EC..BC #| 00000150: 51 55 41 4E 54 49 54 59 00 D3 54 41 20 50 4C 41 |QUANTITY..TA PLA| 00000160: 43 45 00 C2 43 53 20 43 41 52 52 59 00 C4 45 43 |CE..CS CARRY..EC| 00000170: 20 50 4C 41 43 45 2B 31 00 43 41 52 52 59 2F 00 | PLACE+1.CARRY/.| 00000180: 5D 53 42 57 00 02 00 00 53 54 41 52 54 2F 00 CC |]SBW....START/..| 00000190: 44 41 20 23 3C 54 45 58 54 31 00 CC 44 59 20 23 |DA #<TEXT1..DY #| 000001A0: 3E 54 45 58 54 31 00 CA 53 52 20 57 49 4E 44 4F |>TEXT1..SR WINDO| 000001B0: 57 00 C3 4D 50 20 23 34 00 C2 45 51 20 52 45 54 |W..MP #4..EQ RET| 000001C0: 55 52 4E 00 D0 48 41 00 00 CC 44 41 20 23 3C 54 |URN..HA...DA #<T| 000001D0: 45 58 54 32 00 CC 44 59 20 23 3E 54 45 58 54 32 |EXT2..DY #>TEXT2| 000001E0: 00 CA 53 52 20 57 49 4E 44 4F 57 00 D4 41 58 00 |..SR WINDOW..AX.| 000001F0: 00 D0 4C 41 00 D4 41 59 00 C2 45 51 20 42 4F 52 |..LA..AY..EQ BOR| 00000200: 44 45 52 00 C4 45 59 00 C2 45 51 20 42 41 43 4B |DER..EY..EQ BACK| 00000210: 47 4E 44 00 C4 45 59 00 C2 45 51 20 57 49 4E 44 |GND..EY..EQ WIND| 00000220: 4F 57 43 4F 4C 00 C4 45 59 00 43 48 4F 53 45 4E |OWCOL..EY.CHOSEN| 00000230: 43 4F 4C 2F 00 D3 54 58 20 54 45 58 54 31 2B 34 |COL/..TX TEXT1+4| 00000240: 00 C2 45 51 20 53 54 41 52 54 00 42 4F 52 44 45 |..EQ START.BORDE| 00000250: 52 2F 00 D3 54 58 20 35 33 32 38 30 00 C2 45 51 |R/..TX 53280..EQ| 00000260: 20 53 54 41 52 54 00 42 41 43 4B 47 4E 44 2F 00 | START.BACKGND/.| 00000270: D3 54 58 20 35 33 32 38 31 00 C2 45 51 20 53 54 |.TX 53281..EQ ST| 00000280: 41 52 54 00 57 49 4E 44 4F 57 43 4F 4C 2F 00 D3 |ART.WINDOWCOL/..| 00000290: 54 58 20 54 45 58 54 31 2B 33 00 C2 45 51 20 53 |TX TEXT1+3..EQ S| 000002A0: 54 41 52 54 00 02 00 52 45 54 55 52 4E 2F 00 D2 |TART...RETURN/..| 000002B0: 54 53 00 00 02 00 54 45 58 54 31 2F 00 2E 42 20 |TS....TEXT1/..B | 000002C0: 31 2C 31 30 2C 31 35 2C 31 2C 30 00 2E 54 20 22 |1,10,15,1,0..T "| 000002D0: 42 4F 52 44 45 52 20 43 4F 4C 4F 52 26 42 41 43 |BORDER COLOR&BAC| 000002E0: 4B 47 52 4F 55 4E 44 26 22 00 2E 54 20 22 57 49 |KGROUND&"..T "WI| 000002F0: 4E 44 4F 57 20 43 4F 4C 4F 52 26 43 48 4F 53 45 |NDOW COLOR&CHOSE| 00000300: 20 43 4F 4C 4F 52 26 45 58 49 54 23 22 00 00 54 | COLOR&EXIT#"..T| 00000310: 45 58 54 32 2F 00 2E 42 20 32 30 2C 35 2C 31 32 |EXT2/..B 20,5,12| 00000320: 2C 31 2C 30 00 2E 54 20 22 42 4C 41 43 4B 26 57 |,1,0..T "BLACK&W| 00000330: 48 49 54 45 26 52 45 44 26 43 59 41 4E 26 50 55 |HITE&RED&CYAN&PU| 00000340: 52 50 4C 45 26 47 52 45 45 4E 26 22 00 2E 54 20 |RPLE&GREEN&"..T | 00000350: 22 42 4C 55 45 26 59 45 4C 4C 4F 57 26 22 00 2E |"BLUE&YELLOW&"..| 00000360: 54 20 22 4F 52 41 4E 47 45 26 42 52 4F 57 4E 26 |T "ORANGE&BROWN&| 00000370: 4C 49 47 48 54 20 52 45 44 26 20 47 52 45 59 20 |LIGHT RED& GREY | 00000380: 4F 4E 45 26 22 00 2E 54 20 22 47 52 45 59 20 54 |ONE&"..T "GREY T| 00000390: 57 4F 26 4C 49 47 48 54 20 47 52 45 45 4E 26 4C |WO&LIGHT GREEN&L| 000003A0: 49 47 48 54 20 42 4C 55 45 26 22 00 2E 54 20 22 |IGHT BLUE&"..T "| 000003B0: 47 52 45 59 20 54 48 52 45 45 23 22 00 00 02 00 |GREY THREE#"....| 000003C0: 00 00 02 00 BB 4C 41 42 45 4C 53 00 41 43 43 55 |.....LABELS.ACCU| 000003D0: 3D 24 46 41 00 41 44 44 52 45 53 53 3D 24 46 43 |=$FA.ADDRESS=$FC| 000003E0: 00 43 4F 4C 4F 52 41 44 44 3D 24 46 45 00 00 4B |.COLORADD=$FE..K| 000003F0: 45 59 49 4E 3D 24 45 35 42 34 00 43 52 53 52 44 |EYIN=$E5B4.CRSRD| 00000400: 4F 57 4E 3D 31 37 00 43 52 53 52 55 50 3D 31 34 |OWN=17.CRSRUP=14| 00000410: 35 00 02 00 57 49 4E 44 4F 57 2F 00 D3 54 41 20 |5...WINDOW/..TA | 00000420: 41 43 43 55 00 D3 54 59 20 41 43 43 55 2B 31 00 |ACCU..TY ACCU+1.| 00000430: 00 CA 53 52 20 47 45 54 00 D3 54 41 20 41 44 44 |..SR GET..TA ADD| 00000440: 52 45 53 53 00 CC 44 41 20 23 34 00 D3 54 41 20 |RESS..DA #4..TA | 00000450: 41 44 44 52 45 53 53 2B 31 00 00 CA 53 52 20 47 |ADDRESS+1...SR G| 00000460: 45 54 00 D4 41 58 00 C2 45 51 20 4F 56 45 52 00 |ET..AX..EQ OVER.| 00000470: 4D 4F 52 45 4C 49 4E 45 2F 00 CA 53 52 20 4E 45 |MORELINE/..SR NE| 00000480: 57 4C 49 4E 45 00 C4 45 58 00 C2 4E 45 20 4D 4F |WLINE..EX..NE MO| 00000490: 52 45 4C 49 4E 45 00 CD 4F 56 20 41 44 44 52 45 |RELINE..OV ADDRE| 000004A0: 53 53 2C 53 54 41 52 54 41 44 44 00 00 4F 56 45 |SS,STARTADD..OVE| 000004B0: 52 2F 00 CA 53 52 20 47 45 54 00 D3 54 41 20 57 |R/..SR GET..TA W| 000004C0: 49 44 45 4E 45 53 53 00 CA 53 52 20 47 45 54 00 |IDENESS..SR GET.| 000004D0: D3 54 41 20 43 4F 4C 4F 52 00 CA 53 52 20 47 45 |.TA COLOR..SR GE| 000004E0: 54 00 C5 4F 52 20 43 4F 4C 4F 52 00 D3 54 41 20 |T..OR COLOR..TA | 000004F0: 41 43 54 43 4F 4C 4F 52 00 CC 44 41 20 23 30 00 |ACTCOLOR..DA #0.| 00000500: D3 54 41 20 4C 49 4E 45 53 00 00 53 54 41 52 54 |.TA LINES..START| 00000510: 4C 49 4E 45 2F 00 CA 53 52 20 43 4F 52 52 45 43 |LINE/..SR CORREC| 00000520: 54 00 CC 44 59 20 23 24 46 46 00 4D 4F 52 45 43 |T..DY #$FF.MOREC| 00000530: 48 41 52 2F 00 C9 4E 59 00 CA 53 52 20 47 45 54 |HAR/..NY..SR GET| 00000540: 00 C3 4D 50 20 23 22 23 22 00 C2 45 51 20 45 4F |..MP #"#"..EQ EO| 00000550: 46 00 C3 4D 50 20 23 22 26 22 00 C2 45 51 20 4F |F..MP #"&"..EQ O| 00000560: 54 48 45 52 4C 49 4E 45 00 CF 52 41 20 23 24 38 |THERLINE..RA #$8| 00000570: 30 00 CA 53 52 20 50 55 54 00 C3 50 59 20 57 49 |0..SR PUT..PY WI| 00000580: 44 45 4E 45 53 53 00 C2 4E 45 20 4D 4F 52 45 43 |DENESS..NE MOREC| 00000590: 48 41 52 00 CA 4D 50 20 47 45 54 45 52 52 4F 52 |HAR..MP GETERROR| 000005A0: 00 4F 54 48 45 52 4C 49 4E 45 2F 00 CA 53 52 20 |.OTHERLINE/..SR | 000005B0: 46 49 4C 4C 00 CA 4D 50 20 53 54 41 52 54 4C 49 |FILL..MP STARTLI| 000005C0: 4E 45 00 45 4F 46 2F 00 CA 53 52 20 46 49 4C 4C |NE.EOF/..SR FILL| 000005D0: 00 CA 4D 50 20 43 48 4F 53 45 00 46 49 4C 4C 2F |..MP CHOSE.FILL/| 000005E0: 00 C9 4E 43 20 4C 49 4E 45 53 00 C2 4E 45 20 46 |..NC LINES..NE F| 000005F0: 49 4C 4C 31 00 4D 4F 52 45 45 4D 50 54 59 2F 00 |ILL1.MOREEMPTY/.| 00000600: CC 44 41 20 23 31 36 30 00 CA 53 52 20 50 55 54 |.DA #160..SR PUT| 00000610: 00 C9 4E 59 00 46 49 4C 4C 31 2F 20 20 20 20 43 |..NY.FILL1/ C| 00000620: 50 59 20 57 49 44 45 4E 45 53 53 00 C2 4E 45 20 |PY WIDENESS..NE | 00000630: 4D 4F 52 45 45 4D 50 54 59 00 CA 4D 50 20 4E 45 |MOREEMPTY..MP NE| 00000640: 57 4C 49 4E 45 00 00 47 45 54 49 4E 49 43 2F 00 |WLINE..GETINIC/.| 00000650: D3 54 41 20 41 43 43 55 00 D3 54 59 20 41 43 43 |.TA ACCU..TY ACC| 00000660: 55 2B 31 00 D2 54 53 00 02 00 47 45 54 2F 00 D3 |U+1..TS...GET/..| 00000670: 54 59 20 47 45 54 48 45 4C 50 00 CC 44 59 20 23 |TY GETHELP..DY #| 00000680: 30 00 CC 44 41 20 28 41 43 43 55 29 2C 59 00 C9 |0..DA (ACCU),Y..| 00000690: 4E 43 20 41 43 43 55 00 C2 4E 45 20 47 45 54 31 |NC ACCU..NE GET1| 000006A0: 00 C9 4E 43 20 41 43 43 55 2B 31 00 47 45 54 31 |..NC ACCU+1.GET1| 000006B0: 2F 00 CC 44 59 20 47 45 54 48 45 4C 50 00 D2 54 |/..DY GETHELP..T| 000006C0: 53 00 02 00 4E 45 57 4C 49 4E 45 2F 00 CC 44 41 |S...NEWLINE/..DA| 000006D0: 20 23 34 30 00 C3 4C 43 00 C1 44 43 20 41 44 44 | #40..LC..DC ADD| 000006E0: 52 45 53 53 00 D3 54 41 20 41 44 44 52 45 53 53 |RESS..TA ADDRESS| 000006F0: 00 C2 43 43 20 4E 45 57 31 00 C9 4E 43 20 41 44 |..CC NEW1..NC AD| 00000700: 44 52 45 53 53 2B 31 00 4E 45 57 31 2F 00 D2 54 |DRESS+1.NEW1/..T| 00000710: 53 00 00 43 4F 52 52 45 43 54 2F 00 CC 44 41 20 |S..CORRECT/..DA | 00000720: 41 44 44 52 45 53 53 00 D3 54 41 20 43 4F 4C 4F |ADDRESS..TA COLO| 00000730: 52 41 44 44 00 CC 44 41 20 41 44 44 52 45 53 53 |RADD..DA ADDRESS| 00000740: 2B 31 00 C1 4E 44 20 23 33 00 CF 52 41 20 23 24 |+1..ND #3..RA #$| 00000750: 44 38 00 D3 54 41 20 43 4F 4C 4F 52 41 44 44 2B |D8..TA COLORADD+| 00000760: 31 00 D2 54 53 00 00 50 55 54 2F 00 D3 54 41 20 |1..TS..PUT/..TA | 00000770: 28 41 44 44 52 45 53 53 29 2C 59 00 CC 44 41 20 |(ADDRESS),Y..DA | 00000780: 43 4F 4C 4F 52 00 D3 54 41 20 28 43 4F 4C 4F 52 |COLOR..TA (COLOR| 00000790: 41 44 44 29 2C 59 00 D2 54 53 00 02 00 43 48 4F |ADD),Y..TS...CHO| 000007A0: 53 45 2F 00 CC 44 41 20 53 54 41 52 54 41 44 44 |SE/..DA STARTADD| 000007B0: 00 D3 54 41 20 41 44 44 52 45 53 53 00 CC 44 41 |..TA ADDRESS..DA| 000007C0: 20 53 54 41 52 54 41 44 44 2B 31 00 C1 4E 44 20 | STARTADD+1..ND | 000007D0: 23 33 00 CF 52 41 20 23 24 44 38 00 D3 54 41 20 |#3..RA #$D8..TA | 000007E0: 41 44 44 52 45 53 53 2B 31 00 00 CC 44 58 20 4C |ADDRESS+1...DX L| 000007F0: 49 4E 45 53 00 C2 4E 45 20 47 4F 4F 44 00 CA 4D |INES..NE GOOD..M| 00000800: 50 20 47 45 54 45 52 52 4F 52 00 47 4F 4F 44 2F |P GETERROR.GOOD/| 00000810: 00 CC 44 41 20 23 30 00 D3 54 41 20 41 43 54 55 |..DA #0..TA ACTU| 00000820: 41 4C 00 D3 54 58 20 4C 41 53 54 00 4C 4F 4F 50 |AL..TX LAST.LOOP| 00000830: 2F 00 CC 44 41 20 4C 41 53 54 00 C3 4D 50 20 41 |/..DA LAST..MP A| 00000840: 43 54 55 41 4C 00 C2 45 51 20 4E 4F 44 52 41 57 |CTUAL..EQ NODRAW| 00000850: 00 CA 53 52 20 49 4E 56 45 52 54 00 4E 4F 44 52 |..SR INVERT.NODR| 00000860: 41 57 2F 00 CC 44 41 20 41 43 54 55 41 4C 00 D3 |AW/..DA ACTUAL..| 00000870: 54 41 20 4C 41 53 54 00 4E 4F 4B 45 59 2F 00 CC |TA LAST.NOKEY/..| 00000880: 44 41 20 24 43 36 00 C2 45 51 20 4E 4F 4B 45 59 |DA $C6..EQ NOKEY| 00000890: 00 00 CA 53 52 20 4B 45 59 49 4E 00 C3 4D 50 20 |...SR KEYIN..MP | 000008A0: 23 31 33 00 C2 45 51 20 43 48 4F 4F 53 45 4E 00 |#13..EQ CHOOSEN.| 000008B0: C3 4D 50 20 23 43 52 53 52 44 4F 57 4E 00 C2 45 |.MP #CRSRDOWN..E| 000008C0: 51 20 44 4F 57 4E 00 C3 4D 50 20 23 43 52 53 52 |Q DOWN..MP #CRSR| 000008D0: 55 50 00 C2 4E 45 20 4C 4F 4F 50 00 00 55 50 2F |UP..NE LOOP..UP/| 000008E0: 00 CC 44 41 20 41 43 54 55 41 4C 00 C2 45 51 20 |..DA ACTUAL..EQ | 000008F0: 4C 4F 4F 50 00 CA 53 52 20 49 4E 56 45 52 54 00 |LOOP..SR INVERT.| 00000900: C4 45 43 20 41 43 54 55 41 4C 00 D3 42 57 20 41 |.EC ACTUAL..BW A| 00000910: 44 44 52 45 53 53 2C 34 30 00 CA 4D 50 20 4C 4F |DDRESS,40..MP LO| 00000920: 4F 50 00 00 43 48 4F 4F 53 45 4E 2F 00 CC 44 41 |OP..CHOOSEN/..DA| 00000930: 20 41 43 54 55 41 4C 00 C3 4C 43 00 D2 54 53 00 | ACTUAL..LC..TS.| 00000940: 00 44 4F 57 4E 2F 00 CC 44 58 20 4C 49 4E 45 53 |.DOWN/..DX LINES| 00000950: 00 C4 45 58 00 C3 50 58 20 41 43 54 55 41 4C 00 |..EX..PX ACTUAL.| 00000960: C2 45 51 20 4C 4F 4F 50 00 CA 53 52 20 49 4E 56 |.EQ LOOP..SR INV| 00000970: 45 52 54 00 C9 4E 43 20 41 43 54 55 41 4C 00 CA |ERT..NC ACTUAL..| 00000980: 53 52 20 4E 45 57 4C 49 4E 45 00 CA 4D 50 20 4C |SR NEWLINE..MP L| 00000990: 4F 4F 50 00 00 49 4E 56 45 52 54 2F 00 CC 44 59 |OOP..INVERT/..DY| 000009A0: 20 57 49 44 45 4E 45 53 53 00 C4 45 59 00 49 4E | WIDENESS..EY.IN| 000009B0: 56 2F 00 CC 44 41 20 28 41 44 44 52 45 53 53 29 |V/..DA (ADDRESS)| 000009C0: 2C 59 00 C5 4F 52 20 41 43 54 43 4F 4C 4F 52 00 |,Y..OR ACTCOLOR.| 000009D0: D3 54 41 20 28 41 44 44 52 45 53 53 29 2C 59 00 |.TA (ADDRESS),Y.| 000009E0: C4 45 59 00 C2 50 4C 20 49 4E 56 00 D2 54 53 00 |.EY..PL INV..TS.| 000009F0: 00 47 45 54 45 52 52 4F 52 2F 20 49 4E 43 20 24 |.GETERROR/ INC $| 00000A00: 44 30 32 30 00 D3 45 43 00 D2 54 53 00 02 00 00 |D020..EC..TS....| 00000A10: BB 56 41 52 49 41 42 4C 45 53 00 00 57 49 44 45 |.VARIABLES..WIDE| 00000A20: 4E 45 53 53 2F 2E 42 20 30 00 43 4F 4C 4F 52 2F |NESS/.B 0.COLOR/| 00000A30: 2E 42 20 30 00 41 43 54 43 4F 4C 4F 52 2F 2E 42 |.B 0.ACTCOLOR/.B| 00000A40: 20 30 00 4C 49 4E 45 53 2F 2E 42 20 30 00 47 45 | 0.LINES/.B 0.GE| 00000A50: 54 48 45 4C 50 2F 2E 42 20 30 00 53 54 41 52 54 |THELP/.B 0.START| 00000A60: 41 44 44 2F 2E 57 20 30 00 41 43 54 55 41 4C 2F |ADD/.W 0.ACTUAL/| 00000A70: 2E 42 20 30 00 4C 41 53 54 2F 2E 42 20 30 00 02 |.B 0.LAST/.B 0..| 00000A80: 00 5D 2E 24 38 30 30 30 00 01 |.].$8000.. |
..;FOR USING A WINDOW SYSTEM...*$6000... .STRUCTURE OF A WINDOW FILE..; STARTPOIN T 2 BYTES /X,Y/.; WIDENESS 1 BYTE.; COLOR 1 BYTE.; CHOOSECOLOR 1 BYTE. ; TEXT /LINE SEPARATOR : & /.; END OF FI LE : #.... MACROS...[MOV SOURCE,DES T.LDA SOURCE.STA DEST.LDA SOURCE+1.STA D EST+1.]MOV..[SBW PLACE,QUANTITY.LDA PLACE.SEC.SBC #QUANTITY.STA PLACE.BCS C ARRY.DEC PLACE+1.CARRY/.]SBW....START/.L DA #<TEXT1.LDY #>TEXT1.JSR WINDOW.CMP #4 .BEQ RETURN.PHA..LDA #<TEXT2.LDY #>TEXT2 .JSR WINDOW.TAX..PLA.TAY.BEQ BORDER.DEY. BEQ BACKGND.DEY.BEQ WINDOWCOL.DEY.CHOSEN COL/.STX TEXT1+4.BEQ START.BORDER/.STX 5 3280.BEQ START.BACKGND/.STX 53281.BEQ ST ART.WINDOWCOL/.STX TEXT1+3.BEQ START...R ETURN/.RTS....TEXT1/..B 1,10,15,1,0..T " BORDER COLOR&BACKGROUND&"..T "WINDOW COL OR&CHOSE COLOR&EXIT#"..TEXT2/..B 20,5,12 ,1,0..T "BLACK&WHITE&RED&CYAN&PURPLE&GRE EN&"..T "BLUE&YELLOW&"..T "ORANGE&BROWN& LIGHT RED& GREY ONE&"..T "GREY TWO&LIGHT GREEN&LIGHT BLUE&"..T "GREY THREE#".... .....LABELS.ACCU=$FA.ADDRESS=$FC.COLORAD D=$FE..KEYIN=$E5B4.CRSRDOWN=17.CRSRUP=14 5...WINDOW/.STA ACCU.STY ACCU+1..JSR GET .STA ADDRESS.LDA #4.STA ADDRESS+1..JSR G ET.TAX.BEQ OVER.MORELINE/.JSR NEWLINE.DE X.BNE MORELINE.MOV ADDRESS,STARTADD..OVE R/.JSR GET.STA WIDENESS.JSR GET.STA COLO R.JSR GET.EOR COLOR.STA ACTCOLOR.LDA #0. STA LINES..STARTLINE/.JSR CORRECT.LDY #$ FF.MORECHAR/.INY.JSR GET.CMP #"#".BEQ EO F.CMP #"&".BEQ OTHERLINE.ORA #$80.JSR PU T.CPY WIDENESS.BNE MORECHAR.JMP GETERROR .OTHERLINE/.JSR FILL.JMP STARTLINE.EOF/. JSR FILL.JMP CHOSE.FILL/.INC LINES.BNE F ILL1.MOREEMPTY/.LDA #160.JSR PUT.INY.FIL L1/ CPY WIDENESS.BNE MOREEMPTY.JMP NE WLINE..GETINIC/.STA ACCU.STY ACCU+1.RTS. ..GET/.STY GETHELP.LDY #0.LDA (ACCU),Y.I NC ACCU.BNE GET1.INC ACCU+1.GET1/.LDY GE THELP.RTS...NEWLINE/.LDA #40.CLC.ADC ADD RESS.STA ADDRESS.BCC NEW1.INC ADDRESS+1. NEW1/.RTS..CORRECT/.LDA ADDRESS.STA COLO RADD.LDA ADDRESS+1.AND #3.ORA #$D8.STA C OLORADD+1.RTS..PUT/.STA (ADDRESS),Y.LDA COLOR.STA (COLORADD),Y.RTS...CHOSE/.LDA STARTADD.STA ADDRESS.LDA STARTADD+1.AND #3.ORA #$D8.STA ADDRESS+1..LDX LINES.BNE GOOD.JMP GETERROR.GOOD/.LDA #0.STA ACTU AL.STX LAST.LOOP/.LDA LAST.CMP ACTUAL.BE Q NODRAW.JSR INVERT.NODRAW/.LDA ACTUAL.S TA LAST.NOKEY/.LDA $C6.BEQ NOKEY..JSR KE YIN.CMP #13.BEQ CHOOSEN.CMP #CRSRDOWN.BE Q DOWN.CMP #CRSRUP.BNE LOOP..UP/.LDA ACT UAL.BEQ LOOP.JSR INVERT.DEC ACTUAL.SBW A DDRESS,40.JMP LOOP..CHOOSEN/.LDA ACTUAL. CLC.RTS..DOWN/.LDX LINES.DEX.CPX ACTUAL. BEQ LOOP.JSR INVERT.INC ACTUAL.JSR NEWLI NE.JMP LOOP..INVERT/.LDY WIDENESS.DEY.IN V/.LDA (ADDRESS),Y.EOR ACTCOLOR.STA (ADD RESS),Y.DEY.BPL INV.RTS..GETERROR/ INC $ D020.SEC.RTS.....VARIABLES..WIDENESS/.B 0.COLOR/.B 0.ACTCOLOR/.B 0.LINES/.B 0.GE THELP/.B 0.STARTADD/.W 0.ACTUAL/.B 0.LAS T/.B 0...].$8000..
> CLICK IMAGE PREVIEW FOR FULL MODAL