home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26b.dsk / WAIT.4.bas < prev   
BASIC Source File  |  2023-02-26  |  790b  |  19 lines
  1. 10  REM  ***************
  2. 20  REM  *             *
  3. 30  REM  * WAIT.4 DEMO *
  4. 40  REM  *             *
  5. 50  REM  ***************
  6. 60  REM 
  7. 70  REM  ANY CHARACTER WITH ASCII CODES 32-63 OKAY
  8. 80  TEXT : HOME 
  9. 90  POKE  -16368,0
  10. 100  VTAB 4: PRINT "PRESS ANY KEY.  ": PRINT : PRINT "HOWEVER, ONLY ASCII CODES 32-63 WILL": PRINT "BE ACCEPTED"
  11. 110  PRINT "THESE CODES ARE MOSTLY THE SYMBOLS ": PRINT "AND THE NUMBERS-NO LETTERS ALLOWED !"
  12. 120  PRINT : PRINT "ANOTHER WAY TO SCREEN KEYBOARD INPUT !": PRINT : PRINT 
  13. 130  POKE  -16368,0
  14. 140  WAIT  -16384,32,15
  15. 150  IF  PEEK( -16384) >224  THEN 140
  16. 160  PRINT "YOU PRESSED ASCII CODE # "; PEEK( -16384) -128
  17. 170  PRINT : PRINT "THE CHARACTER IS '";: PRINT  CHR$( PEEK( -16384) -128);"'"
  18. 180  PRINT  CHR$(7): PRINT "END OF DEMO"
  19. 190  PRINT "-----------"