home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / utilitys / chx8012b.arc / ASCII.BAS next >
BASIC Source File  |  1990-07-21  |  384b  |  11 lines
  1. 100 PRINT"Press any key to see decimal ASCII value."
  2. 110 PRINT"Press RETURN to start a new line of values."
  3. 120 PRINT"Press CONTROL-C to stop."
  4. 130 PRINT
  5. 200 KEY = ASC( INPUT$( 1))    'WAIT FOR 1 KEY
  6. 210 PRINT KEY;            'DISPLAY DECIMAL ASCII VALUE
  7. 220 IF KEY = 13 THEN PRINT    'START NEW LINE AFTER RETURN
  8. 230 GOTO 200            'REPEAT
  9. 240 STOP
  10. EY;            'DISPLAY DECIMAL ASCII VALUE
  11. 220 IF