home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
BEEHIVE
/
UTILITYS
/
CHX8012B.ARC
/
ASCII.BAS
next >
Wrap
BASIC Source File
|
1990-07-21
|
384b
|
11 lines
100 PRINT"Press any key to see decimal ASCII value."
110 PRINT"Press RETURN to start a new line of values."
120 PRINT"Press CONTROL-C to stop."
130 PRINT
200 KEY = ASC( INPUT$( 1)) 'WAIT FOR 1 KEY
210 PRINT KEY; 'DISPLAY DECIMAL ASCII VALUE
220 IF KEY = 13 THEN PRINT 'START NEW LINE AFTER RETURN
230 GOTO 200 'REPEAT
240 STOP
EY; 'DISPLAY DECIMAL ASCII VALUE
220 IF