5REM  Graphic screen must 
6REM  already be on screen
7REM  before program is
8REM  run. ENJOY (MODIFY).
9REM  brought to you by
10REM  STAKXON programmers
11REM  group. by Alex Chaney
12REM 
13REM 
20HTAB 12:? "ProGRAPH"
25FOR t=1 TO 1000:NEXT t
30HTAB 8:? "THE PROFESSIONAL"
35FOR t=1 TO 1000:NEXT t
40HTAB 6:? "LOW GRAPHICS PRINTER"
45FOR t=1 TO 1000:NEXT t
50HTAB 16:? "By STAKXON"
55FOR t=1 TO 1000:NEXT t
1000FOR t=1 TO 1000:NEXT t
1010HTAB 1:? "How many colors to be pulled"
1020HTAB 30:INPUT ""; n
1040FOR t=1 TO n
1050? "color number,char. to print"
1060INPUT k(t), ch$(t)
1070NEXT t
1075PR #1
1080FOR x=0 TO 39
1090FOR y=0 TO 39
1100 k=32
1110FOR l=1 TO n
1120IF SCRN(y, x)=k(l) THEN  k=ASC(ch$(l))
1130NEXT l
1135? CHR$(k); 
1140NEXT y
1145?
1150NEXT x
1160PR #0
