home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / NEWMODE.BAS < prev    next >
BASIC Source File  |  1987-03-26  |  547b  |  31 lines
  1. 'New color combinations by John Craig, Jeff Bretz
  2. 'Converted to Quickbasic 2.01 & additional rwts by Dennis Dreyer 3/87
  3. 'NEWMODE.BAS
  4.  
  5. clear
  6. screen 1,1
  7.  for b=0 to 7
  8. for C=1 to 15
  9.  
  10. color C,b
  11. locate 4,20:print "Fore = ";c: locate 3,20:print "Back = ";b
  12. locate 20,1:print "Press any key to quit!"
  13.  
  14.  
  15. for ww=1 to 2500:next ww
  16. cls
  17. circle (120,100),70
  18. circle (200,100),70
  19. paint (80,100),2,3
  20. paint (240,100),1,3
  21. paint (0,0),3,3
  22. for w=1 to 1500:next w
  23. GOSUB LOOP
  24. next c
  25. next b
  26.  
  27. LOOP:
  28. A$=inkey$
  29. if A$ <> "" then cls:end
  30. RETURN
  31.