home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / HUMANFLY.DSK / SPLAT.bas < prev    next >
BASIC Source File  |  2014-09-09  |  764b  |  8 lines
  1. 10  HGR : POKE  -16302,0: HCOLOR= 3: ROT= 32
  2. 15  GOSUB 100
  3. 20 S = 1: POKE 769,2: XDRAW S AT 150,20: FOR I = 22 TO 130  STEP 2: XDRAW S AT 150,I -2:S = S +1: ON S >5 GOSUB 25: XDRAW S AT 150,I: POKE 826,I: CALL 768: CALL 768: NEXT : XDRAW S AT 150,I -2: ROT= 16: XDRAW 1 AT 150,I -2: GOTO 30
  4. 25 S = 1: RETURN 
  5. 30  HCOLOR= 5: FOR J = 1 TO 40:X =  RND(1) *40 +130:Y =  RND(1) *20 +120: POKE 826,X: CALL 768: HPLOT 160,130 TO X,Y: NEXT J
  6. 40  RETURN 
  7. 100 Z = 191: HPLOT 279,Z TO 40,0: HPLOT 40,Z TO 20,0: FOR I = 160 TO 30  STEP  -20:Z = Z -25: HPLOT I,Z TO I -10,Z -10: NEXT I
  8. 110  HPLOT 140,80 TO 140,0: HPLOT 160,0 TO 279,50 TO 279,191: HPLOT 160,95 TO 160,0: HPLOT 180,112 TO 180,8: HPLOT 200,127 TO 200,18: HPLOT 220,144 TO 220,26: HPLOT 250,168 TO 250,38: RETURN