Use zero-page bootstrap to write:
- All of the following bytes to $6000
- #$6000 to $50 (or any other free zero-page address)

TILE TABLE $6000
0000000000004C2B6868686868E1E1E1E168689BE25D4D8A96B8000000000000
00000000004C8820000014B0862FF00F269D21E5E5AAD974749B649300000000
00000000243D0000EECDD6E4E5DF0F0F269DE5AAAAAAE5E5219D211DA1000000
000000DB183000ED1FCAED4E2F3020C6780000004FAA23E5ABDC00002D380000
000000FA170000DB1CCA3000000000004C000000DBFB000000D38C00F0290000
0000635A3000000021EE065DBA653193000000003500EEF017002000008FB800
006362E772170031DB6262E0E0604DA4D0000000EE26E0E0E01A9096F01C25DC
EE942BF0318A8A260DA0869D12A09B4D8320006CFC2B3F59862F00FF6812682D
68B92062699D662D648A8A946900002130000000F3330000B868466FA1F1FFA3
4B29248D0064A18C21A0863000000000000000005F3800009B5D6326640EECC9
392935AD5CE0A040A1B800EED4A9532B52000000F05DBADC0000DB2D00246EB4
EC74FB3925F327F0A02264968C00A560855D620000247BA2130024E069CE1C4B
2D38F182000D42A1DCA921749B646F63620000A05C3D2000F06E2EE005306806
00824E0A000029662DE04EB800C24C57E24DA18ADF318A5CCB44243305DB4B00
00F04878000021C1DCEB2D22645A050000214B9D5D00869D2E352D4234352300
000021EC000000211AA4001C57FC2225A18AB98A8AEC8A5C945DE0E005353400
0000002D270000002140DC000042645712E0E0E0E0E0E0E0E0E0E0E005353900
000000212278000000214BA124C90000004FA074222B7B212EBD4B6806352300
00000000212293348CA1F0A06D38960000AD0000EE332425D51718C900352300
0000000000211DA1C613C67E98A057E24D438A8A628A62252B3F692000022900
00000000000000C64093C67E391F9600002525DFDF262F200000E6ECA1002900
000000000000000021A4318AF7B3E21B3D13D4D49696F0F091CDF66855001B00
00000000000000000000F0669BA1DC219DE53D13D4D496F0F0F0ED4720681B00
00000000000000000000000000C62DA196000000000000000020000000FA8D00
0000000000000000000000000000001C579B258A968C000000000068460A2000
00000000000000000000000000000000000021A0D968E2E26F955D7547200000

PATTERN TABLE $6340
0000000000000D4F49494949490E4E4E0E49490CCE4A0D4ECC4A000000000000
00000000000D488C00004F4A8E8D020B430D02020200090D0D0CC80A00000000
00000000CC490000450A894002890B0B430D020000000202028C0C0A0D000000
0000000A4E4E00420C8A8D4A8D0E0C4ACD000000C6004302890A00004F0D0000
0000000C4C00004ACC8A4E0000000000400000004A0A0000008E8A000A4F0000
00008E8D4E000000CC054CCA0D494D8A000000000E00450247008C00000E4A00
008E0B0C42C7000E0A0BCA0000C88F0E48000000054C0000004BCA0C020D4C0A
050E4C4E4E4E4EC340CB8E4D0DCB0C0D4F0C00880E4F48488E8D0007040F0F8C
4CCF8C0B0D4D4D4DC84E4E0E4E00000C0E0000004D4D00008A444A4E0D4C8A0D
0D40CC8B004F0D8A4CCB8E0E0000000000000000CE4D00000CCA4DC3880FC44D
8E400DCD4A00CBCD0D4A0005030A894F0C0000004A4F480A00000A8C008C4D8E
48CA0E8E434D4C0ACB49C8CC8A000DCE4D4ACE0000CC490E4F00CC0004494C0D
4F4D4A4E00CFC80D0A8D0C0D0CC84888C000004D4A498C000A480E004C0E4C4B
00CF0D0D00004BCD4D000D4A008B4EC9CE0D0D4EC94E4E4AC94F4F0E4C0A0D00
000ACA4D0000CC4F0A0F4D49C84A4C00000C0D4D4F4C8E4D4F0E8C8E0E0E8C00
00004C480000000C4B4F000AC90E494C0D4EC94E4E484E4A48CA00004C0E0E00
0000004F4C0000000CCD0A00008E88C94900000000000000000000004C0E8E00
000000CC0C4D0000004C0E0D4C4F0000000DCB0D0C4F494B0A4E0FCC0B0E8C00
000000004C0C8A458A420ACB4C4D0C00004A00004D4DCCCD4E4C0D4F000E8C00
00000000004C0A0DCACFCA4D8CCBC9CE0D494E4E0B4E0B4C4F480D8C000B4F00
000000000000008ACD8ACA4D0CCA0C0000C3438989438D8C00000A0AC1004F00
0000000000000000CC0E4D4ECA0C8E0B440B03034C4C0202010ACA040A008E00
000000000000000000000A4D0C0D0ACC0D02440B03030C0202020D0A0CC48E00
000000000000000000000000008A4D0D0C00000000000000000C0000000C8B00
0000000000000000000000000000000AC90C4C4E4C8A0000000000044A4E8C00
000000000000000000000000000000000000CCCB8949CECE4ECF0A0F0A0C0000


PALETTES $6680
3010000F30100F003000100F30000F10

CODE @ 6690 -> Uses PAD1 input to print the above data.
Enter "60" as the last input to exit the loop.
A900A820B9F9A56E9150E650D002E651D0EE

6690 A9 00    ; LDA #$00
6692 A8       ; TAY
6693 20 B9 F9 ; Poll PAD1 input
6696 A5 6E    ; LDA $6E
6698 91 50    ; STA ($50),Y
669A E6 50    ; INC $50
669C D0 02    ; BNE $66A0
669E E6 51    ; INC $51
66A0 D0 EE    ; BNE $6690

CODE @ 66A2 -> Sets palette BG to white
A93F8D0620A9008D0620A9308D072060

66A2 A9 3F    ; LDA #$3F
66A4 8D 06 20 ; STA PPUADDR
66A7 A9 00    ; LDA #$00
66A9 8D 06 20 ; STA PPUADDR
66AC A9 30    ; LDA #$30
66AE 8D 07 20 ; STA PPUDATA
66B1 60       ; RTS

CODE @ 66B2 -> Performs everything necessary for the custom graphic print.
Jump here from the zero-page bootstrap after everything has been written.
AC90668E80668D1060E981D606ACA2668E40638E00608D1A8D20626068E9E6EE10D62A00

66B2 AC 90 66    / Transfer data

66B5 8E 80 66    / Push #$6680
66B8 8D 10       / Push #$10
66BA 60          / Push #$00
66BB E9 81 D6 06 / Call $D681 / Update BG palettes

66BF AC A2 66    / Call $66A2 / Set palette BG to white

66C2 8E 40 63    / Push #$6340 (pattern table)
66C5 8E 00 60    / Push #$6000 (tile table)
66C8 8D 1A       / Height (27 tiles)
66CA 8D 20       / Width  (32 tiles)
66CC 62          / Y-pos  (2)
66CD 60          / X-pos  (0)
66CE 68
66CF E9 E6 EE 10 / Call $EEE6 -> Sysop 0x08 (Print graphic)

66D3 D6 D3 66    / Loop (end)