home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26b.dsk / WAIT.2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  765b  |  26 lines
  1. 100  REM  ***************
  2. 110  REM  *             *
  3. 120  REM  * WAIT.2 DEMO *
  4. 130  REM  *             *
  5. 140  REM  ***************
  6. 150  REM 
  7. 160  REM  ANY KEYPRESS
  8. 170  TEXT : HOME 
  9. 180  POKE  -16368,0
  10. 190  VTAB 4: PRINT "PRESS ANY KEY TO BEGIN...";
  11. 200  WAIT  -16384,128
  12. 210 A$ =  CHR$( PEEK( -16384) -128)
  13. 220  PRINT A$
  14. 230  PRINT : PRINT "PRESS BUTTON #0 TO PROCEED...": PRINT 
  15. 240  REM  BUTTON #0
  16. 250  WAIT  -16287,128
  17. 260  PRINT "BUTTON ZERO PUSHED !"
  18. 270  REM  BUTTON #1
  19. 280  PRINT : PRINT "NOW PRESS BUTTON #1 TO CONTINUE...": PRINT 
  20. 290  WAIT  -16286,128
  21. 300  PRINT "BUTTON ONE PUSHED !"
  22. 310  CALL  -856: REM  A PAUSE
  23. 320  REM  BUTTON #1 AGAIN
  24. 330  PRINT : PRINT "PRESS BUTTON #1 AGAIN TO QUIT..."
  25. 340  WAIT  -16286,128
  26. 350  PRINT  CHR$(7): PRINT "DEMO OVER"