home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26b.dsk / WAIT.3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  613b  |  15 lines
  1. 100  REM  ***************
  2. 110  REM  *             *
  3. 120  REM  * WAIT.3 DEMO *
  4. 130  REM  *             *
  5. 140  REM  ***************
  6. 150  REM 
  7. 160  REM  ANY KEYPRESS NOT A CONTROL CHARACTER
  8. 170  TEXT : HOME 
  9. 180  POKE  -16368,0
  10. 190  VTAB 4: PRINT "PRESS ANY KEY EXCEPT A CONTROL CHARACTER";:: PRINT "TO PROCEED.": PRINT : PRINT "CONTROL CHARACTERS ARE REJECTED.": PRINT : PRINT "TRY A FEW TO SEE..."
  11. 200  PRINT : PRINT "A SIMPLE AND FAST WAY TO SCREEN INPUT!": PRINT : PRINT 
  12. 210  WAIT  -16384,96
  13. 220  PRINT "YOU PRESSED ASCII CODE # "; PEEK( -16384) -128
  14. 230  POKE  -16368,0
  15. 240  PRINT  CHR$(7): PRINT "END OF DEMO"