home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Planet_Squarez.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  560 b   |  31 lines
  1. ' Planet M. Squarez
  2. ' cODED bY ßudda/NFA 
  3. ' StARtEd : 15/10/1995 
  4. ' FiNiSHed: 15/10/1995 
  5.  
  6. ' Idea from the start of "Planet M." demo by Melon!
  7. '
  8. Screen Open 0,336,256,16,Lowres
  9. Flash Off 
  10. Curs Off 
  11. Hide On 
  12. Palette $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  13.  
  14. For Y=0 To Screen Height Step 8
  15. For X=0 To Screen Width Step 8
  16. Ink Rnd(15)
  17. Bar X,Y To X+8,Y+8
  18. Next X
  19. Next Y
  20.  
  21. Shift Down 4,0,15,1
  22.  
  23. ' Because the routine requires NO code to keep running you can use it
  24. ' to make a blank screen intresting whilst loading a file! 
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.