RosettaCodeData/Task/Terminal-control-Inverse-video/BASIC/terminal-control-inverse-video-3.basic

      inverse$ = CHR$(17)+CHR$(128)+CHR$(17)+CHR$(15)
      normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0)
      PRINT inverse$ + "Inverse" + normal$ + " video"