Respond to this messageReturn to Index
Original Message
  • Here's one from me
    • Unseen Machine (no login)
      Posted Sep 19, 2010 2:51 PM

      SCREEN 12

      FOR i = 1 TO 8
      x = 0
      FOR j = 1 TO 8
      READ clr
      IF clr = 1 THEN PSET (x, y), 15
      x = x + 1
      NEXT
      y = y + 1
      NEXT

      DATA 0,0,0,0,0,0,0,0
      DATA 0,0,1,1,1,1,0,0
      DATA 0,1,0,0,0,0,1,0
      DATA 0,1,0,0,0,0,1,0
      DATA 0,1,0,0,0,0,1,0
      DATA 0,1,0,0,0,0,1,0
      DATA 0,0,1,1,1,1,0,0
      DATA 0,0,0,0,0,0,0,0
    Your Name
    Message Title
    Message Text
    Options
          


     Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement