DO CLS LOCATE 22, 20: PRINT "Press CTRL+PAUSE to exit" LOCATE 10, 20 INPUT "Outs binary: ", x LOCATE 11, 10: PRINT " x =", x, "" LPRINT CHR$(x); LOOP END