10 REM >MesgKeys 0.10 20 REM 31-Oct-97 V0.10 Combined for all layouts 30 REM Keystrip printer for 8-Bit Messager 40 REM Needs printer to not do AutoLinefeed 50 REM ie - You normally need *FX6 to print 60 MODE0:PRINT"8-Bit Software Messaging System Keystrip Generator" 70 INPUT"Enter keyboard layout (0=Old, 1=New, 2=Modified): "kb% 80 INPUT"Copies: "C% 90 VDU2,1,27,1,15:REM Set condensed 100 FOR n%=1 TO C% 110 PRINTSTRING$(137,"_") 120 PRINT"|"SPC(57)"8BS Messaging System"SPC(38)"Layout ";kb%;LEFT$(" ("+MID$("OldNewModified",kb%*3+1,3-5*(kb%>1))+") ",12)"|";CHR$13; 130 PRINTSTRING$(137,"_") 140 IFkb%=1:PRINT"| NORM | PIXEL | ";:VDU1,27,1,75,1,7,1,0,255,255,255,255,255,255,1,0:PRINT" | SINGLE | DOUBLE | JOINED | SEPARATED | BLACK | NEW | HOLD | RELEASE |" 150 IFkb%<>1:PRINT"| CTRL | JOINED | SEPARATED | HOLD | RELEASE | DOUBLE | SINGLE | INSERT | INSERT | DELETE | |" 160 : 170 IFkb%=1:PRINT"| | EDIT | (BLOCK) | HEIGHT | HEIGHT | GRAPHICS | GRAPHICS | BACKGROUND | BACKGROUND | GRAPHICS | GRAPHICS |";CHR$13; 180 IFkb%<>1:PRINT"| | GRAPHICS | GRAPHICS | GRAPHICS | GRAPHICS | HEIGHT | HEIGHT | CHARACTER | LINE | LINE | |";CHR$13; 190 : 200 PRINTSTRING$(137,"_") 210 IFkb%=1:PRINT"| SHIFT | SET DEST. | A | L P | H A | N U | M E | R I | C | FLASH | STEADY |" 220 IFkb%=1:PRINT"|-------|-----------| RED | GREEN | YELLOW | BLUE | MAGENTA | CYAN | WHITE |------------|------------|" 230 IFkb%=1:PRINT"| CTRL | INS. CHAR | G | R | A | P H | I | C | S | INSERT LINE| DELETE LINE|";CHR$13; 240 : 250 IFkb%<>1:PRINT"| SHIFT | G | R | A | P H | I | C | S | BLACK BGND | NEW BGND | SET DEST |" 260 IFkb%<>1:PRINT"|-------|"LEFT$(" RED |",-20*(kb%=0))" GREEN | YELLOW |"LEFT$(" BLUE |",-20*(kb%=0))" MAGENTA"SPC(kb%/2)" | CYAN | "SPC(1-kb%/2)" WHITE |"; 270 IFkb%<>1:PRINTLEFT$(" RED | BLUE |",-30*(kb%=2))"------------|------------|-----------|" 280 IFkb%<>1:PRINT"| NORM | A | L P | H A | N U | M E | R I | C | FLASH | STEADY | PIXEL EDIT|";CHR$13; 290 PRINTSTRING$(137,"_") 300 PRINT''' 310 NEXT 320 VDU3