10 DEFFNS="MessStr"
   20 MODE7
   30 PRINT''"Function key strip for 8BS Messaging"'"system"
   40 PRINT'"PREPARE PRINTER AND PRESS A KEY"
   50 REPEATUNTILGET
   60 PROCDES
   70 VDU2
   80 PRINT"……………‚…………………‚………………‚…………………‚………………‚…………………‚………………‚…………………‚………………‚…………………‚………………"
   90 PRINT "     †   0   †  1   †   2   †  3   †   4   †   5  †   6   †   7  †   8   †   9 "
  100 VDU1,27,1,37,1,1:PRINT" !";:VDU1,27,1,37,1,0:PRINT"   †  8BS  Messaging System      †       †      †       †      †       †      "
  110 PRINT"……………€…………………€………………€…………………€………………€…………………€………………€…………………€………………€…………………€………………"
  120 PRINT"CTRL † Cont  † Sep  † Hold  † Rel  † Double†Single†Insert †Insert†Delete † Help "
  130 PRINT"     † Grap  † Grap † Grap  † Grap † Height†Height† Space † Line † Line  †      "
  140 PRINT"……………€…………………€………………€…………………€………………€…………………€………………€…………………€………………€…………………€………………"
  150 PRINT"SHIFT† Graph † Graph† Graph † Graph† Graph † Graph† Graph †Colour† Black †Change"
  160 PRINT"     †  Red  † Green† Yellow† Blue †Magenta† Cyan † White †Back/d†Back/d †Recip "
  170 PRINT"……………€…………………€………………€…………………€………………€…………………€………………€…………………€………………€…………………€………………"
  180 PRINT"     † Text  † Text † Text  † Text † Text  † Text † Text  †      †       †Pixel "
  190 PRINT"     †  Red  † Green† Yellow† Blue †Magenta† Cyan † White † Flash†Steady †Editor"
  200 PRINT"…………………………………………………………………………………………………………………………………………………………………………………………"
  210 VDU3
  220 END
  230 DEFPROCDES
  240 OSCLI"FX225,128":OSCLI"FX226,138":VDU23,128,24,24,24,255,24,24,24,24,23,129,24,24,24,255,0,0,0,0,23,130,0,0,0,255,24,24,24,24
  250 VDU23,131,24,24,24,248,24,24,24,24,23,132,24,24,24,31,24,24,24,24,23,133,0,0,0,255,0,0,0,0,23,134,24,24,24,24,24,24,24,24,23,135,0,0,0,31,24,24,24,24,23,136,0,0,0,248,24,24,24,24,23,137,24,24,24,31,0,0,0,0,23,138,24,24,24,248,0,0,0,0
  260 FORL%=0TO9:OSCLI"K."+STR$L%+CHR$(128+L%):NEXT
  270 VDU2
  280 VDU1,27,1,64:REM CLEAR
  290 VDU1,27,1,58,1,0,1,0,1,0,1,27,1,37,1,1,1,0,1,27,1,38,1,0,1,33,1,33,1,128,1,248,1,6,1,136,1,2,1,0,1,126,1,0,1,63,1,0,1,36,1,27:REM LOGO=!
  300 VDU1,27,1,109,1,4:REM GRAPHICS ON
  310 VDU1,27,1,71,1,27,1,69:REM DOUBLE STRIKE EMPH
  320 VDU1,27,1,37,1,0:REM GRAPHICS ON
  330 VDU1,27,1,49:REM 1/8 LINESPACE
  340 VDU1,27,1,85,1,1:REM UNIDIRECTIONAL
  350 REM REST OF PRINTER OPTIONS HERE
  360 VDU3
  370 ENDPROC