home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG096.ARC / STAR.WSF < prev    next >
Text File  |  1979-12-31  |  640b  |  24 lines
  1.                             -- STAR --
  2.                          by Simon Carter
  3.  
  4.  
  5. This program produces  a familiar pattern on the  screen using one 
  6. loop and eight PLOT commands.
  7.  
  8.  
  9. 00100 HIRES2
  10. 00110 FOR I=0 TO 120 STEP 5
  11. 00120 PLOT 255+I*2,127 TO 255,247-I
  12. 00130 PLOT 255-I*2,127 TO 255,247-I
  13. 00140 PLOT 255+I*2,127 TO 255,I+7
  14. 00150 PLOT 255-I*2,127 TO 255,I+7
  15. 00160 PLOT 15+I*2,7 TO 15,127-I
  16. 00170 PLOT 496-I*2,7 TO 496,127-I
  17. 00180 PLOT 15+I*2,248 TO 15,I+128
  18. 00190 PLOT 496-I*2,248 TO 496,I+128
  19. 00200 NEXT I
  20. 00210 GOTO 210
  21.  
  22. 96-I*2,7 TO 496,127-I
  23. 00180 PLOT 15+I*2,248 TO 15,I+128
  24. 00190 PLOT 496-I*2,248 TO 496,I+