home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l076 / 1.ddi / 2PT1TEXT.TRU next >
Encoding:
Text File  |  1988-12-22  |  190 b   |  15 lines
  1. set mode "vga"
  2.  
  3. clear
  4.  
  5. ask max color maxcolor
  6. print maxcolor
  7. plot text, at 0,0:str$(maxcolor)
  8.  
  9. for k = 0 to maxcolor
  10.     set color k
  11.     print "Color";k
  12. next k
  13. get key xxx
  14. end
  15.