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