home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / DROPIN.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  30 lines
  1. 10  REM  ************************
  2. 20  REM  *     DROPIN.DEMO      *
  3. 30  REM  *   By Brad Edwards    *
  4. 40  REM  *  Copyright (C) 1992  *
  5. 50  REM  * MindCraft Publ. Corp.*
  6. 60  REM  *  Lincoln, MA  01773  *
  7. 70  REM  ************************
  8. 80  ONERR  GOTO 300
  9. 90  PRINT  CHR$(4);"BLOAD DROPIN":DROPIN = 768:HIRES = 62450
  10. 100  HGR : HGR2 : POKE 230,32: HCOLOR= 3
  11. 110  FOR X = 0 TO 140  STEP 20
  12. 120 Y1 = 95 -X/3:Y2 = 95 +X/3
  13. 130  HPLOT X,Y1 TO 139,0 TO 279 -X,Y1 TO 140,95 TO X,Y1
  14. 140  HPLOT X,Y2 TO 139,191 TO 279 -X,Y2 TO 140,95 TO X,Y2
  15. 150  NEXT 
  16. 160  HPLOT 0,95 TO 139,48 TO 279,95 TO 139,142 TO 0,95
  17. 170  CALL DROPIN: CALL HIRES
  18. 180  FOR I = 1 TO 150
  19. 190 X =  RND(1):Y =  RND(1) *X *94:X = X *139 +139
  20. 200  HPLOT X,Y: HPLOT 279 -X,Y: HPLOT X,191 -Y: HPLOT 279 -X,191 -Y
  21. 210  NEXT : HPLOT 0,0 TO 279,0 TO 279,191 TO 0,191 TO 0,0
  22. 220  CALL DROPIN: CALL HIRES
  23. 230  FOR X = 0 TO 140
  24. 240 Y1 = 95 -X/3:Y2 = 95 +X/3
  25. 250  HCOLOR= 6: HPLOT 279 -X,Y2 TO 139,191: HPLOT 279 -X,Y1 TO 139,0
  26. 260  HCOLOR= 3: HPLOT 139,0 TO X,Y1: HPLOT X,Y2 TO 140,95 TO 279 -X,Y2
  27. 270  NEXT : CALL DROPIN
  28. 280  IF  PEEK( -16384) <128  THEN 280
  29. 290  TEXT : END 
  30. 300  PRINT  CHR$(7);"ERROR WHILE LOADING 'DROPIN'": END