home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / ARROW.bas < prev    next >
BASIC Source File  |  2023-02-26  |  652b  |  24 lines
  1. 10  GOSUB 200: REM  POKE SHAPE TABLE
  2. 20  HOME 
  3. 30  HGR 
  4. 40  HCOLOR= 3
  5. 50  SCALE= 1
  6. 60  ROT= 16: REM  POINT RIGHT
  7. 70 X = 10
  8. 80 Y = 50
  9. 90  XDRAW 1 AT X,Y
  10. 100  FOR I = 1 TO 24
  11. 110  FOR T = 1 TO 150: NEXT T: REM  SHORT DELAY
  12. 120  XDRAW 1 AT X,Y
  13. 130 X = X +10
  14. 140  XDRAW 1 AT X,Y
  15. 150  NEXT I
  16. 160  VTAB 22: PRINT "PRESS RETURN TO QUIT"
  17. 170  GET K$
  18. 180  TEXT : HOME : END 
  19. 190  REM  POKE IN SHAPE TABLE
  20. 200  FOR I = 0 TO 34: READ ML: POKE 768 +I,ML: NEXT I
  21. 210  DATA   1,0,4,0,36,36,36,60,63,63,8,12,12,12,12,12,12,12,21,21,21,21,21,21,21,62
  22. 220  DATA   63,55,54,54,54,63,63,39,0    
  23. 230  POKE 232,0: POKE 233,3: REM   POKE SHAPE TABLE POINTERS  
  24. 240  RETURN