10
20
30
40
50
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:
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