I have written a short little assembly program below that when put in a BASIC program makes a very colorful display. The assembly program(in the form of data statements) interrupts the computer giving it 128 colors at the same time. This program can be used to spruce up any program that may have a rather dull beginning. Put this little program at the start of any program and impress your friends. By using the FILL command (on page 54 of your BASIC reference manual) I am able to get the colors within the ROM logo.

10 REM ROM SYMBOL BY TOM TRAN
20 REM VOLUME 1,ISSUE 5
30 POKE 559,0:FOR I=53248 TO 53251:POKE I,0:NEXT I
40 DIM UP$(32),DOWN$(32)
50 T=1.75
60 GOSUB 350
70 GOSUB 210
80 FOR I=1 TO 50:NEXT I
90 SETCOLOR 2,0,0:SETCOLOR 4,0,0
100 SETCOLOR 0,8,2
110 UP$(15,15)=CHR$(22)
120 X=USR(ADR(UP$),T)
130 UP$(15,15)=CHR$(26)
140 X=USR(ADR(UP$),T)
150 SETCOLOR 0,3,4
160 DOWN$(15,15)=CHR$(22)
170 DOWN$(15,15)=CHR$(26)
180 X=USR(ADR(DOWN$),T)
190 GOTO 600
200 REM DRAW ROM LOGO
210 GRAPHICS 7+16
220 SETCOLOR 0,0,0:SETCOLOR 1,0,14:SETCOLOR 2,0,0:SETCOLOR 4,0,0
230 COLOR 2
240 PLOT 25,25:DRAWTO 25,55:DRAWTO 30,55:DRAWTO 30,40:DRAWTO 50,55:DRAWTO 55,55:DRAWTO 35,40:DRAWTO 55,40
250 DRAWTO 55,25:DRAWTO 25,25
260 POSITION 25,55:POKE 765,1:XIO 18,#6,0,0,"S:"
270 PLOT 35,40:POSITION 30,40:POKE 765,1:XIO 18,#6,0,0,"S:"
280 PLOT 65,25:DRAWTO 65,55:DRAWTO 95,55:DRAWTO 95,25:DRAWTO 65,25
290 PLOT 65,55:POSITION 65,25:POKE 765,1:XIO 18,#6,0,0,"S:"
300 PLOT 105,25:DRAWTO 105,55:DRAWTO 110,55:DRAWTO 110,30:DRAWTO 120,40:DRAWTO 130,30
310 DRAWTO 130,55:DRAWTO 135,55:DRAWTO 135,25:DRAWTO 130,25:DRAWTO 120,35:DRAWTO 110,25:DRAWTO 105,25
320 POSITION 105,55:POKE 765,1:XI0 18,#6,0,0,"S:"
330 PLOT 135,55:DRAWTO 135,25:DRAWTO 130,25:POSITION 130,55:POKE 765,1:XIO 18,#6,0,0,"S:"
340 REM READ IN MACHINE DATA
350 RESTORE 410
360 FOR I=1 TO 32
370 READ C:UP$(I)=CHR$(C)
380 NEXT I
390 DOWN$=UP$:DOWN$(12,12)=CHR$(229)
400 RETURN
405 REM PULL THREE BYTE OFF THE STACK
410 DATA 104
420 DATA 104
430 DATA 104
440 DATA 72
450 DATA 162,57
460 DATA 160,0
470 DATA 173,0,210
480 DATA 101,20
490 DATA 141,22,208
500 DATA 141910,212
510 DATA 136
520 DATA 208,242
530 DATA 202
540 DATA 208,237
550 DATA 104
560 DATA 56
570 DATA 233,1
580 DATA 208,228
590 DATA 96
600 GRAPHICS 18:SETCOLOR 4,8,0
610 POKE 764,255:FOR I=1 TO 30:IF PEEK(764)=255 THEN NEXT I
620 GRAPHICS 18:SETCOLOR 4,8,0:POSITION 3,4
630 POKE 764,255:FOR I=1 TO 30:IF PEEK(764)=255 THEN NEXT I
640 POKE 752,1