10DEFFNS="MessStr" 20MODE7 30PRINT''"Function key strip for 8BS Messaging"'"system" 40PRINT'"PREPARE PRINTER AND PRESS A KEY" 50REPEATUNTILGET 60PROCDES 70VDU2 80PRINT" " 90PRINT " 0 1 2 3 4 5 6 7 8 9 " 100VDU1,27,1,37,1,1:PRINT" !";:VDU1,27 ,1,37,1,0:PRINT" 8BS Messaging Sys tem " 110PRINT" " 120PRINT"CTRL Cont Sep Hold Rel Double Single Insert Insert Del ete Help " 130PRINT" Grap Grap Grap Grap Height Height Space Line Li ne " 140PRINT" " 150PRINT"SHIFT Graph Graph Graph Graph Graph Graph Graph Colour Bl ack Change" 160PRINT" Red Green Yellow Blue Magenta Cyan White Back/d Bac k/d Recip " 170PRINT" " 180PRINT" Text Text Text Text Text Text Text Pixel " 190PRINT" Red Green Yellow Blue Magenta Cyan White Flash Ste ady Editor" 200PRINT" " 210VDU3 220END 230DEFPROCDES 240OSCLI"FX225,128":OSCLI"FX226,138":V DU23,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,2 4,24,24,24 250VDU23,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,13 6,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 260FORL%=0TO9:OSCLI"K."+STR$L%+CHR$(12 8+L%):NEXT 270VDU2 280VDU1,27,1,64:REM CLEAR 290VDU1,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=! 300VDU1,27,1,109,1,4:REM GRAPHICS ON 310VDU1,27,1,71,1,27,1,69:REM DOUBLE S TRIKE EMPH 320VDU1,27,1,37,1,0:REM GRAPHICS ON 330VDU1,27,1,49:REM 1/8 LINESPACE 340VDU1,27,1,85,1,1:REM UNIDIRECTIONAL 350REM REST OF PRINTER OPTIONS HERE 360VDU3 370ENDPROC