;›;›;Another Graphics 10 demo›;›;  By. Rich Gortatowsky›;›;›;        10/23/84›;›;›;›;E - Exits back to ACTION!›;›;(This one turned out better!)›;   (p.s. Kills video DMA)›;›PROC INITCOLOR()› BYTE CLR› CARD IDX›› FOR IDX=0 TO 7›  DO›   CLR=(IDX+1)*16+8›   POKE(705+IDX,CLR)›  OD›RETURN››PROC MAIN()› BYTE I,C,Q› CARD IDX› GRAPHICS(10)› INITCOLOR()› POKE(559,0)›  FOR I=1 TO 64›  DO›   IF C<8 THEN C==+1›   ELSE C=1›   FI›  COLOR=C›  PLOT(I,I)›  DRAWTO(I,191-I)›  DRAWTO(79-I,191-I)›  DRAWTO(79-I,I)›  DRAWTO(I,I)›  OD›  POKE(559,34)›  POKE(764,255)›  DO›  Q=PEEK(764)›  I=PEEK(705)›   FOR IDX=705 TO 711›   DO›    C=PEEK(IDX+1) ›    POKE (IDX,C)›   OD›   POKE(712,I)›   IF Q=42 THEN RETURN›   FI›  FOR IDX=1 TO 4000›  DO›  OD›  OD  ›RETURN››