home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30a.dsk / MARCH.1987 / THE.ANGRY.BEE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  911b  |  23 lines
  1. 10  REM  ************************
  2. 20  REM  * THE.ANGRY.BEE        *
  3. 30  REM  * BY ADAM COTI         *
  4. 40  REM  * COPYRIGHT (C) 1987   *
  5. 50  REM  * BY MICROSPARC, INC.  *
  6. 60  REM  * CONCORD, MA  01742   *
  7. 70  REM  ************************
  8. 80  ONERR  GOTO 230
  9. 90  PRINT  CHR$(4)"BLOAD HI.RES.SCRN"
  10. 100  HGR : HCOLOR= 3: HOME : ONERR  GOTO 220
  11. 110  HPLOT 115,50 TO 135,50 TO 140,100 TO 110,100 TO 115,50
  12. 120  HCOLOR= 0: HPLOT 130,50 TO 133,50: HCOLOR= 3
  13. 130 X = 130:Y = 75:A = 1:B = 1
  14. 140  CALL 768,X +A,Y +B
  15. 150  IF  PEEK(242) = 1  THEN  GOTO 190
  16. 160 X = X +A:Y = Y +B
  17. 170  HPLOT X,Y: HCOLOR= 0: HPLOT X -A,Y -B: HCOLOR= 3
  18. 180  GOTO 140
  19. 190  FOR C = 1 TO 5:S =  PEEK( -16336): NEXT C
  20. 200 A =  INT( RND(1) *3) -1:B =  INT( RND(1) *3) -1
  21. 210  GOTO 140
  22. 220  VTAB 23: HTAB 11: PRINT "FREEDOM AT LAST": END 
  23. 230  TEXT : HOME : VTAB 5: PRINT "THIS PROGRAM REQUIRES THE HI.RES.SCRN": PRINT "FILE TO BE ON THE SAME DISK."