_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

4X4 SCROLL@

FILE INFORMATION

FILENAME(S): 4X4 SCROLL@

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-12-02 00:16:25

APPEARS ON: 1 disk(s)

FILE HASH

0c82d892b419f68ae7c664ecd794b2ba67188af5c4cdc3f49e45edd86501f99e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CDU DEMO 4X4 SCROLL@ PRG Maestro 20 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0D 08 E8 03 53 50  45 45 44 B2 32 00 1A 08  |......SPEED.2...|
00000010: F2 03 4D 45 53 53 B2 24  41 41 00 28 08 FC 03 4C  |..MESS.$AA.(...L|
00000020: 49 4E 45 B2 31 30 32 34  00 34 08 06 04 52 41 53  |INE.1024.4...RAS|
00000030: B2 24 33 33 00 40 08 10  04 56 B2 35 33 32 34 38  |.$33.@...V.53248|
00000040: 00 46 08 1A 04 21 00 52  08 24 04 AC B2 34 39 31  |.F...!.R.$...491|
00000050: 35 32 00 58 08 2E 04 21  00 64 08 38 04 4C 44 41  |52.X...!.d.8.LDA|
00000060: 20 23 31 30 00 72 08 42  04 53 54 41 20 24 44 30  | #10.r.B.STA $D0|
00000070: 32 31 00 7E 08 4C 04 53  54 41 20 36 34 36 00 8C  |21.~.L.STA 646..|
00000080: 08 56 04 4A 53 52 20 24  45 35 34 34 00 98 08 60  |.V.JSR $E544...`|
00000090: 04 4C 44 41 20 23 31 35  00 A6 08 6A 04 53 54 41  |.LDA #15...j.STA|
000000A0: 20 24 44 30 32 32 00 B2  08 74 04 4C 44 41 20 23  | $D022...t.LDA #|
000000B0: 31 30 00 C0 08 7E 04 53  54 41 20 24 44 30 32 33  |10...~.STA $D023|
000000C0: 00 CB 08 88 04 4C 44 41  20 23 30 00 D9 08 92 04  |.....LDA #0.....|
000000D0: 53 54 41 20 24 44 30 32  30 00 E7 08 9C 04 53 54  |STA $D020.....ST|
000000E0: 41 20 24 44 30 32 31 00  F8 08 A6 04 4A 53 52 20  |A $D021.....JSR |
000000F0: 49 4E 49 54 4D 45 53 53  00 FE 08 B0 04 21 00 0B  |INITMESS.....!..|
00000100: 09 BA 04 53 45 54 49 52  51 20 21 00 13 09 C4 04  |...SETIRQ !.....|
00000110: 53 45 49 00 20 09 CE 04  4C 44 41 20 23 24 37 46  |SEI. ...LDA #$7F|
00000120: 00 2E 09 D8 04 53 54 41  20 24 44 43 30 44 00 3C  |.....STA $DC0D.<|
00000130: 09 E2 04 4C 44 41 20 24  44 43 30 44 00 4A 09 EC  |...LDA $DC0D.J..|
00000140: 04 4C 44 41 20 23 B3 49  52 51 00 57 09 F6 04 53  |.LDA #.IRQ.W...S|
00000150: 54 41 20 24 33 31 34 00  65 09 00 05 4C 44 41 20  |TA $314.e...LDA |
00000160: 23 B1 49 52 51 00 72 09  0A 05 53 54 41 20 24 33  |#.IRQ.r...STA $3|
00000170: 31 35 00 7D 09 14 05 4C  44 41 20 23 31 00 8B 09  |15.}...LDA #1...|
00000180: 1E 05 53 54 41 20 24 44  30 31 41 00 99 09 28 05  |..STA $D01A...(.|
00000190: 4C 44 41 20 24 44 30 31  31 00 A4 09 32 05 AF 20  |LDA $D011...2.. |
000001A0: 23 24 37 46 00 B2 09 3C  05 53 54 41 20 24 44 30  |#$7F...<.STA $D0|
000001B0: 31 31 00 BF 09 46 05 4C  44 41 20 23 24 33 30 00  |11...F.LDA #$30.|
000001C0: CD 09 50 05 53 54 41 20  24 44 30 31 32 00 D8 09  |..P.STA $D012...|
000001D0: 5A 05 4C 44 41 20 23 31  00 E6 09 64 05 53 54 41  |Z.LDA #1...d.STA|
000001E0: 20 24 44 30 31 39 00 EE  09 6E 05 43 4C 49 00 01  | $D019...n.CLI..|
000001F0: 0A 78 05 21 41 4E 44 59  20 4A 4D 50 20 41 4E 44  |.x.!ANDY JMP AND|
00000200: 59 00 09 0A 82 05 52 54  53 00 0F 0A 8C 05 21 00  |Y.....RTS.....!.|
00000210: 1A 0A 96 05 58 B9 20 42  52 4B 00 2B 0A A0 05 4C  |....X. BRK.+...L|
00000220: 41 53 54 43 48 41 52 20  42 52 4B 00 3F 0A AA 05  |ASTCHAR BRK.?...|
00000230: 43 20 42 59 54 20 33 20  20 20 20 20 20 20 20 00  |C BYT 3        .|
00000240: 45 0A B4 05 21 00 4F 0A  BE 05 49 52 51 20 21 00  |E...!.O...IRQ !.|
00000250: 5C 0A DC 05 4C 44 41 20  23 32 31 36 00 67 0A E6  |\...LDA #216.g..|
00000260: 05 AF 20 23 24 46 30 00  71 0A F0 05 B0 41 20 58  |.. #$F0.q....A X|
00000270: B9 00 7F 0A FA 05 53 54  41 20 24 44 30 31 36 00  |......STA $D016.|
00000280: 85 0A 04 06 21 00 91 0A  0E 06 4C 44 41 20 23 32  |....!.....LDA #2|
00000290: 35 00 9F 0A 18 06 53 54  41 20 24 44 30 31 38 00  |5.....STA $D018.|
000002A0: AE 0A 22 06 4C 44 41 20  23 52 41 53 AA 37 00 BC  |..".LDA #RAS.7..|
000002B0: 0A 2C 06 43 4D 50 20 24  44 30 31 32 00 C8 0A 36  |.,.CMP $D012...6|
000002C0: 06 42 4E 45 20 AC AB 33  00 D4 0A 40 06 4C 44 41  |.BNE ..3...@.LDA|
000002D0: 20 23 32 37 00 E0 0A 41  06 4C 44 58 20 23 24 41  | #27...A.LDX #$A|
000002E0: 00 E8 0A 42 06 44 45 58  00 F4 0A 43 06 42 4E 45  |...B.DEX...C.BNE|
000002F0: 20 AC AB 31 00 02 0B 4A  06 53 54 41 20 24 44 30  | ..1...J.STA $D0|
00000300: 31 38 00 12 0B 54 06 4C  44 41 20 23 52 41 53 AA  |18...T.LDA #RAS.|
00000310: 31 36 00 20 0B 5E 06 43  4D 50 20 24 44 30 31 32  |16. .^.CMP $D012|
00000320: 00 2C 0B 68 06 42 4E 45  20 AC AB 33 00 38 0B 72  |.,.h.BNE ..3.8.r|
00000330: 06 4C 44 41 20 23 32 39  00 46 0B 7C 06 53 54 41  |.LDA #29.F.|.STA|
00000340: 20 24 44 30 31 38 00 56  0B 86 06 4C 44 41 20 23  | $D018.V...LDA #|
00000350: 52 41 53 AA 32 34 00 64  0B 90 06 43 4D 50 20 24  |RAS.24.d...CMP $|
00000360: 44 30 31 32 00 70 0B 9A  06 42 4E 45 20 AC AB 33  |D012.p...BNE ..3|
00000370: 00 7C 0B 9B 06 4C 44 41  20 23 33 31 00 8A 0B 9C  |.|...LDA #31....|
00000380: 06 53 54 41 20 24 44 30  31 38 00 9A 0B 9D 06 4C  |.STA $D018.....L|
00000390: 44 41 20 23 52 41 53 AA  33 34 00 A8 0B 9E 06 43  |DA #RAS.34.....C|
000003A0: 4D 50 20 24 44 30 31 32  00 B4 0B 9F 06 42 4E 45  |MP $D012.....BNE|
000003B0: 20 AC AB 33 00 BA 0B A4  06 21 00 C7 0B C2 06 4C  | ..3.....!.....L|
000003C0: 44 41 20 23 32 30 30 00  D5 0B CC 06 53 54 41 20  |DA #200.....STA |
000003D0: 24 44 30 31 36 00 E1 0B  E0 06 4C 44 41 20 23 32  |$D016.....LDA #2|
000003E0: 31 00 EF 0B EA 06 53 54  41 20 35 33 32 37 32 00  |1.....STA 53272.|
000003F0: FE 0B EB 06 4A 53 52 20  53 43 52 4F 4C 4C 00 0C  |....JSR SCROLL..|
00000400: 0C EC 06 49 4E 43 20 24  44 30 31 39 00 1A 0C F4  |...INC $D019....|
00000410: 06 4A 4D 50 20 24 45 41  33 31 00 20 0C FE 06 21  |.JMP $EA31. ...!|
00000420: 00 26 0C 6C 07 21 00 33  0C 76 07 53 43 52 4F 4C  |.&.l.!.3.v.SCROL|
00000430: 4C 20 21 00 3E 0C 80 07  4C 44 41 20 58 B9 00 46  |L !.>...LDA X..F|
00000440: 0C 8A 07 53 45 43 00 55  0C 94 07 53 42 43 20 23  |...SEC.U...SBC #|
00000450: 53 50 45 45 44 00 5E 0C  9E 07 AF 20 23 37 00 69  |SPEED.^.... #7.i|
00000460: 0C A8 07 53 54 41 20 58  B9 00 75 0C B2 07 42 43  |...STA X..u...BC|
00000470: 43 20 53 43 31 00 7D 0C  BC 07 52 54 53 00 83 0C  |C SC1.}...RTS...|
00000480: C6 07 21 00 91 0C D0 07  53 43 31 20 44 45 43 20  |..!.....SC1 DEC |
00000490: 43 00 9B 0C DA 07 4C 44  41 20 43 00 A7 0C E4 07  |C.....LDA C.....|
000004A0: 42 4E 45 20 4E 4F 5A 00  B2 0C EE 07 4C 44 41 20  |BNE NOZ.....LDA |
000004B0: 23 34 00 BC 0C F8 07 53  54 41 20 43 00 CA 0C 02  |#4.....STA C....|
000004C0: 08 4A 53 52 20 A2 43 48  41 52 00 D0 0C 0C 08 21  |.JSR .CHAR.....!|
000004D0: 00 DA 0C 16 08 4E 4F 5A  20 21 00 E0 0C 20 08 21  |.....NOZ !... .!|
000004E0: 00 EB 0C 34 08 4C 44 59  20 23 30 00 00 0D 3E 08  |...4.LDY #0...>.|
000004F0: 53 43 32 20 4C 44 41 20  4C 49 4E 45 AA 31 2C 59  |SC2 LDA LINE.1,Y|
00000500: 00 0F 0D 48 08 53 54 41  20 4C 49 4E 45 2C 59 00  |...H.STA LINE,Y.|
00000510: 17 0D 52 08 49 4E 59 00  24 0D 5C 08 43 50 59 20  |..R.INY.$.\.CPY |
00000520: 23 31 36 30 00 30 0D 66  08 42 43 43 20 53 43 32  |#160.0.f.BCC SC2|
00000530: 00 36 0D 70 08 21 00 47  0D 7A 08 4C 44 41 20 4C  |.6.p.!.G.z.LDA L|
00000540: 41 53 54 43 48 41 52 00  4F 0D 84 08 43 4C 43 00  |ASTCHAR.O...CLC.|
00000550: 5C 0D 8E 08 41 44 43 20  23 24 34 30 00 6D 0D 98  |\...ADC #$40.m..|
00000560: 08 53 54 41 20 4C 41 53  54 43 48 41 52 00 7D 0D  |.STA LASTCHAR.}.|
00000570: A2 08 53 54 41 20 4C 49  4E 45 AA 33 39 00 8D 0D  |..STA LINE.39...|
00000580: AC 08 53 54 41 20 4C 49  4E 45 AA 37 39 00 9E 0D  |..STA LINE.79...|
00000590: B6 08 53 54 41 20 4C 49  4E 45 AA 31 31 39 00 AF  |..STA LINE.119..|
000005A0: 0D C0 08 53 54 41 20 4C  49 4E 45 AA 31 35 39 00  |...STA LINE.159.|
000005B0: B7 0D CA 08 52 54 53 00  BD 0D D4 08 21 00 C9 0D  |....RTS.....!...|
000005C0: DE 08 A2 43 48 41 52 20  21 00 D7 0D E8 08 4A 53  |...CHAR !.....JS|
000005D0: 52 20 A1 43 48 41 52 00  E2 0D F2 08 AF 20 23 24  |R .CHAR...... #$|
000005E0: 33 46 00 F3 0D FC 08 53  54 41 20 4C 41 53 54 43  |3F.....STA LASTC|
000005F0: 48 41 52 00 03 0E 06 09  53 54 41 20 4C 49 4E 45  |HAR.....STA LINE|
00000600: AA 33 39 00 13 0E 10 09  53 54 41 20 4C 49 4E 45  |.39.....STA LINE|
00000610: AA 37 39 00 24 0E 1A 09  53 54 41 20 4C 49 4E 45  |.79.$...STA LINE|
00000620: AA 31 31 39 00 35 0E 24  09 53 54 41 20 4C 49 4E  |.119.5.$.STA LIN|
00000630: 45 AA 31 35 39 00 3D 0E  2E 09 52 54 53 00 43 0E  |E.159.=...RTS.C.|
00000640: 38 09 21 00 52 0E 4C 09  49 4E 49 54 4D 45 53 53  |8.!.R.L.INITMESS|
00000650: 20 21 00 64 0E 56 09 4C  44 41 20 23 B3 4D 45 53  | !.d.V.LDA #.MES|
00000660: 53 41 47 45 00 71 0E 60  09 53 54 41 20 4D 45 53  |SAGE.q.`.STA MES|
00000670: 53 00 83 0E 6A 09 4C 44  41 20 23 B1 4D 45 53 53  |S...j.LDA #.MESS|
00000680: 41 47 45 00 92 0E 74 09  53 54 41 20 4D 45 53 53  |AGE...t.STA MESS|
00000690: AA 31 00 9A 0E 7E 09 52  54 53 00 A0 0E 88 09 21  |.1...~.RTS.....!|
000006A0: 00 AC 0E 92 09 A1 43 48  41 52 20 21 00 B7 0E 9C  |......CHAR !....|
000006B0: 09 4C 44 59 20 23 30 00  C8 0E A6 09 4C 44 41 20  |.LDY #0.....LDA |
000006C0: 28 4D 45 53 53 29 2C 59  00 D4 0E B0 09 42 4E 45  |(MESS),Y.....BNE|
000006D0: 20 A1 43 31 00 E5 0E BA  09 4A 53 52 20 49 4E 49  | .C1.....JSR INI|
000006E0: 54 4D 45 53 53 00 F3 0E  C4 09 4A 4D 50 20 A1 43  |TMESS.....JMP .C|
000006F0: 48 41 52 00 FD 0E CE 09  A1 43 31 20 21 00 0A 0F  |HAR......C1 !...|
00000700: D8 09 49 4E 43 20 4D 45  53 53 00 16 0F E2 09 42  |..INC MESS.....B|
00000710: 4E 45 20 AC AA 34 00 25  0F EC 09 49 4E 43 20 4D  |NE ..4.%...INC M|
00000720: 45 53 53 AA 31 00 32 0F  F6 09 4A 53 52 20 43 4F  |ESS.1.2...JSR CO|
00000730: 4C B0 00 3A 0F 00 0A 52  54 53 00 40 0F 0A 0A 21  |L..:...RTS.@...!|
00000740: 00 46 0F 14 0A 21 00 54  0F 1E 0A 4D 45 53 53 41  |.F...!.T...MESSA|
00000750: 47 45 20 21 00 8E 0F 28  0A 54 58 54 20 22 20 23  |GE !...(.TXT " #|
00000760: 20 20 20 52 45 44 20 20  20 20 24 20 42 4C 55 45  |   RED    $ BLUE|
00000770: 20 20 26 20 47 52 45 45  4E 20 20 20 20 20 20 47  |  & GREEN      G|
00000780: 52 41 59 20 25 20 20 20  20 20 20 22 2C 30 00 94  |RAY %      ",0..|
00000790: 0F 32 0A 21 00 9A 0F 10  27 21 00 A5 0F 1A 27 43  |.2.!....'!....'C|
000007A0: 4F 4C B0 20 21 00 B1 0F  24 27 43 4D 50 20 23 27  |OL. !...$'CMP #'|
000007B0: 23 00 BD 0F 2E 27 42 4E  45 20 4E 4F 41 00 CF 0F  |#....'BNE NOA...|
000007C0: 38 27 4C 44 41 20 23 31  30 20 21 20 52 45 44 00  |8'LDA #10 ! RED.|
000007D0: DD 0F 42 27 53 54 41 20  24 44 30 32 33 00 E9 0F  |..B'STA $D023...|
000007E0: 4C 27 4C 44 41 20 23 31  35 00 F7 0F 56 27 53 54  |L'LDA #15...V'ST|
000007F0: 41 20 24 44 30 32 32 00  03 10 57 27 4C 44 41 20  |A $D022...W'LDA |
00000800: 23 31 30 00 12 10 58 27  4A 53 52 20 53 43 52 45  |#10...X'JSR SCRE|
00000810: 45 4E 00 20 10 60 27 4A  53 52 20 A1 43 48 41 52  |EN. .`'JSR .CHAR|
00000820: 00 26 10 6A 27 21 00 36  10 74 27 4E 4F 41 20 43  |.&.j'!.6.t'NOA C|
00000830: 4D 50 20 23 27 24 00 42  10 7E 27 42 4E 45 20 4E  |MP #'$.B.~'BNE N|
00000840: 4F 42 00 4E 10 88 27 4C  44 41 20 23 31 34 00 5C  |OB.N..'LDA #14.\|
00000850: 10 92 27 53 54 41 20 24  44 30 32 33 00 68 10 9C  |..'STA $D023.h..|
00000860: 27 4C 44 41 20 23 31 35  00 76 10 A6 27 53 54 41  |'LDA #15.v..'STA|
00000870: 20 24 44 30 32 32 00 82  10 A7 27 4C 44 41 20 23  | $D022....'LDA #|
00000880: 31 34 00 91 10 A8 27 4A  53 52 20 53 43 52 45 45  |14....'JSR SCREE|
00000890: 4E 00 9F 10 B0 27 4A 53  52 20 A1 43 48 41 52 00  |N....'JSR .CHAR.|
000008A0: A5 10 BA 27 21 00 B5 10  C4 27 4E 4F 42 20 43 4D  |...'!....'NOB CM|
000008B0: 50 20 23 27 26 00 C1 10  CE 27 42 4E 45 20 4E 4F  |P #'&....'BNE NO|
000008C0: 43 00 CD 10 D8 27 4C 44  41 20 23 31 33 00 DB 10  |C....'LDA #13...|
000008D0: E2 27 53 54 41 20 24 44  30 32 33 00 E6 10 EC 27  |.'STA $D023....'|
000008E0: 4C 44 41 20 23 31 00 F4  10 F6 27 53 54 41 20 24  |LDA #1....'STA $|
000008F0: 44 30 32 32 00 00 11 F7  27 4C 44 41 20 23 31 33  |D022....'LDA #13|
00000900: 00 0F 11 F8 27 4A 53 52  20 53 43 52 45 45 4E 00  |....'JSR SCREEN.|
00000910: 1D 11 00 28 4A 53 52 20  A1 43 48 41 52 00 23 11  |...(JSR .CHAR.#.|
00000920: 0A 28 21 00 2F 11 64 28  4E 4F 43 20 52 54 53 00  |.(!./.d(NOC RTS.|
00000930: 35 11 A0 28 21 00 42 11  AA 28 53 43 52 45 45 4E  |5..(!.B..(SCREEN|
00000940: 20 21 00 4D 11 B4 28 4C  44 58 20 23 30 00 60 11  | !.M..(LDX #0.`.|
00000950: BE 28 53 43 20 53 54 41  20 35 35 32 39 36 2C 58  |.(SC STA 55296,X|
00000960: 00 68 11 C8 28 49 4E 58  00 75 11 D2 28 43 50 58  |.h..(INX.u..(CPX|
00000970: 20 23 31 36 30 00 80 11  DC 28 42 4E 45 20 53 43  | #160....(BNE SC|
00000980: 00 88 11 E6 28 52 54 53  00 00 00                 |....(RTS...     |
......SPEED.2.....MESS.$AA.(...LINE.1024
.4...RAS.$33.@...V.53248.F...!.R.$...491
52.X...!.D.8.LDA #10.R.B.STA $D021.~.L.S
TA 646...V.JSR $E544...`.LDA #15...J.STA
 $D022...T.LDA #10...~.STA $D023.K...LDA
 #0.Y...STA $D020.....STA $D021.....JSR 
INITMESS.....!.....SETIRQ !...D.SEI. .N.
LDA #$7F...X.STA $DC0D.<...LDA $DC0D.J..
.LDA #.IRQ.W...STA $314.E...LDA #.IRQ.R.
..STA $315.}...LDA #1.....STA $D01A...(.
LDA $D011...2.. #$7F...<.STA $D011...F.L
DA #$30.M.P.STA $D012.X.Z.LDA #1...D.STA
 $D019...N.CLI...X.!ANDY JMP ANDY.....RT
S.....!.....X. BRK.+. .LASTCHAR BRK.?...
C BYT 3        .E...!.O...IRQ !.\...LDA 
#216.G.... #$F0.Q....A X.....STA $D016.
....!.....LDA #25.....STA $D018...".LDA 
#RAS.7...,.CMP $D012.H.6.BNE ..3.T.@.LDA
 #27...A.LDX #$A...B.DEX...C.BNE ..1...J
.STA $D018...T.LDA #RAS.16. .^.CMP $D012
.,.H.BNE ..3.8.R.LDA #29.F.|.STA $D018.V
...LDA #RAS.24.D...CMP $D012.P...BNE ..3
.|...LDA #31.....STA $D018.....LDA #RAS.
34.....CMP $D012.....BNE ..3.....!.G.B.L
DA #200.U.L.STA $D016.....LDA #21.....ST
A 53272.....JSR SCROLL.....INC $D019....
.JMP $EA31. ...!.&.L.!.3.V.SCROLL !.>...
LDA X..F...SEC.U...SBC #SPEED.^.... #7.I
...STA X..U...BCC SC1.}...RTS...F.!...P.
SC1 DEC C...Z.LDA C.....BNE NOZ.....LDA 
#4.....STA C.J...JSR .CHAR.P...!.Z...NOZ
 !... .!...4.LDY #0...>.SC2 LDA LINE.1,Y
...H.STA LINE,Y...R.INY.$.\.CPY #160.0.F
.BCC SC2.6.P.!.G.Z.LDA LASTCHAR.O...CLC.
\...ADC #$40.M...STA LASTCHAR.}...STA LI
NE.39.....STA LINE.79.....STA LINE.119..
...STA LINE.159...J.RTS...T.!.I....CHAR 
!.W...JSR .CHAR...... #$3F.....STA LASTC
HAR.....STA LINE.39.....STA LINE.79.$...
STA LINE.119.5.$.STA LINE.159.=...RTS.C.
8.!.R.L.INITMESS !.D.V.LDA #.MESSAGE.Q.`
.STA MESS...J.LDA #.MESSAGE...T.STA MESS
.1...~.RTS. ...!......CHAR !.....LDY #0.
H...LDA (MESS),Y.T...BNE .C1.....JSR INI
TMESS...D.JMP .CHAR...N..C1 !...X.INC ME
SS.....BNE ..4.%...INC MESS.1.2...JSR CO
L..:...RTS.@...!.F...!.T...MESSAGE !...(
.TXT " #   RED    $ BLUE  & GREEN      G
RAY %      ",0...2.!....'!....'COL. !...
$'CMP #'#....'BNE NOA.O.8'LDA #10 ! RED.
..B'STA $D023...L'LDA #15...V'STA $D022.
..W'LDA #10...X'JSR SCREEN. .`'JSR .CHAR
.&.J'!.6.T'NOA CMP #'$.B.~'BNE NOB.N..'L
DA #14.\..'STA $D023.H..'LDA #15.V..'STA
 $D022....'LDA #14....'JSR SCREEN....'JS
R .CHAR....'!...D'NOB CMP #'&.A.N'BNE NO
C.M.X'LDA #13....'STA $D023....'LDA #1..
..'STA $D022....'LDA #13....'JSR SCREEN.
...(JSR .CHAR.#..(!./.D(NOC RTS.5. (!.B.
.(SCREEN !.M..(LDX #0.`..(SC STA 55296,X
.H.H(INX.U.R(CPX #160....(BNE SC....(RTS
...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL