10 SYS58692:INPUT"BILDSCHIRMCODE";X
20 X=X+(X>127)*128:W=X-(X>-1ANDX<32ORX>95)*64-(X>63ANDX<96)*32
30 PRINT"ASCII-CODE:    ";W