home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / ZAPPER.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  38 lines
  1. 10  REM  ***********************
  2. 20  REM  * ZAPPER.DEMO         *
  3. 30  REM  * BY JOHN A. WARD     *
  4. 40  REM  * COPYRIGHT(C) 1989   *
  5. 50  REM  * MICROSPARC, INC.    *
  6. 60  REM  * CONCORD, MA 01742   *
  7. 70  REM  ***********************
  8. 80  HOME : HGR : HCOLOR= 3
  9. 90  LET D$ =  CHR$(4): REM  CTRL-D
  10. 100  REM  *** PART ONE - INITIALIZE ***
  11. 110  PRINT D$;"BLOAD ZAPPER.BIN"
  12. 120  PRINT D$;"BLOAD APPLE.PIC,A$4000"
  13. 130  CALL 768
  14. 140  VTAB 21
  15. 150  PRINT "PRESS RETURN TO CONTINUE.";: GET AN$
  16. 160  REM 
  17. 170  REM  *** PART TWO - DRAW ***
  18. 180  HPLOT 145,90 TO 140,80
  19. 190  HPLOT  TO 165,70
  20. 200  HPLOT  TO 185,50
  21. 210  HPLOT  TO 210,65
  22. 220  HPLOT  TO 195,70
  23. 230  HPLOT  TO 185,65
  24. 240  HPLOT  TO 165,80
  25. 250  HPLOT  TO 145,90
  26. 260  HPLOT 185,55 TO 187,57
  27. 270  HOME : VTAB 21: HTAB 30
  28. 280  PRINT "OH!OH!"
  29. 290  HPLOT 210,159 TO 190,80
  30. 300  PRINT 
  31. 310  PRINT "PRESS RETURN TO REMOVE THE WORM!";: GET AN$
  32. 320  REM 
  33. 330  REM  *** PART THREE - ERASE *** 
  34. 340  CALL 768
  35. 350  HOME : VTAB 21
  36. 360  PRINT "TRY AGAIN? (Y/N)?";: GET AN$
  37. 370  IF AN$ = "Y"  THEN 170
  38. 380  TEXT : HOME : END