home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26b.dsk / WAIT.1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  566b  |  20 lines
  1. 100  REM  *************
  2. 110  REM  *   WAIT.1  *
  3. 120  REM  *   CUSTOM  *
  4. 130  REM  *   CURSOR  *
  5. 140  REM  *************
  6. 150  REM 
  7. 160  TEXT : HOME 
  8. 170  VTAB 3: HTAB 1: PRINT "INPUT WITHOUT A CURSOR..."
  9. 180  VTAB 10: HTAB 1: PRINT "PRESS ANY KEY..";:
  10. 190  WAIT  -16384,128
  11. 200  POKE  -16368,0
  12. 210  TEXT : HOME : VTAB 9
  13. 220  PRINT "PRESS ANY KEY...": PRINT : PRINT 
  14. 230  PRINT "INPUT WITH A CUSTOM CURSOR...";
  15. 240  FLASH 
  16. 250  PRINT  CHR$(126);: NORMAL : PRINT  CHR$(32);
  17. 260  NORMAL 
  18. 270  WAIT  -16384,128
  19. 280  POKE  -16368,0
  20. 290  PRINT : PRINT : PRINT "END OF DEMO"