10 REM 'CODE(CHARACTER)' TEST PROGRAM
20 PRINT "THE ASCII CODE FOR LETTER A IS";
30 PRINT CODE("A")
40 IF CODE("A")=65 THEN 70
50 PRINT "CODE FAILED THE TEST"
60 GOTO 99
70 PRINT "CODE PASSED THE TEST"
99 END
