8BS65: Messaging Function Key Strip Listing

20REM 31-Oct-97 V0.10 Combined for al
l layouts
30REM Keystrip printer for 8-Bit Mess
ager
40REM Needs printer to not do AutoLin
efeed
50REM ie - You normally need *FX6 to
print
60MODE0:PRINT"8-Bit Software Messagin
g System Keystrip Generator"
70INPUT"Enter keyboard layout (0=Old,
1=New, 2=Modified): "kb%
80INPUT"Copies: "C%
90VDU2,1,27,1,15:REM Set condensed
100FOR n%=1 TO C%
110 PRINTSTRING$(137,"_")
120 PRINT"|"SPC(57)"8BS Messaging Sys
tem"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,2
55,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"| | GRAPHIC
S | 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)" | CYA
N | "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'''
310NEXT
320VDU3