home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / COLORED.BLOCKS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  655b  |  16 lines
  1. 10  REM  ************************
  2. 20  REM  *    COLORED.BLOCKS    *
  3. 30  REM  *     BY TIM LORS      *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : GR 
  9. 90  IF  PEEK( -16384) <128  THEN 90
  10. 100  POKE  -16368,0:Z =  ABS( PEEK( -16384) -43): COLOR= Z/3
  11. 110 X =  RND(1) *40:Y =  RND(1) *40:Y1 =  RND(1) *40:X1 =  RND(1) *40
  12. 120  IF Y1 <Y  THEN Z = Y:Y = Y1:Y1 = Z
  13. 130  IF X1 <X  THEN Z = X:X = X1:X1 = Z
  14. 140  FOR Z = Y TO Y1: HLIN X,X1 AT Z: NEXT : PRINT  CHR$(7)
  15. 150  HOME : HTAB  RND(1) *256: IF  POS(0) >31  THEN 150
  16. 160  PRINT "KEVIN !!!";: GOTO 90