8-Bit Software Online Conversion

8BS Keystrip - Listing

10REM >MesgKeys 0.10 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% 110PRINTSTRING$(137,"`") 120PRINT"|"SPC(57)"8BS Messaging Syste m"SPC(38)"Layout ";kb%;LEFT$(" ("+MID$(" OldNewModified",kb%*3+1,3-5*(kb%>1))+") ",12)"|";CHR$13; 130PRINTSTRING$(137,"`") 140IFkb%=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 |" 150IFkb%<>1:PRINT"| CTRL | JOINED | SEPARATED | HOLD | RELEASE | DOUBLE | SINGLE | INSERT | INSERT | DELETE | |" 160: 170IFkb%=1:PRINT"| | EDIT | (BLOCK) | HEIGHT | HEIGHT | GRAPHICS | GRAPHICS | BACKGROUND | BA CKGROUND | GRAPHICS | GRAPHICS |";CH R$13; 180IFkb%<>1:PRINT"| | GRAPHICS | GRAPHICS | GRAPHICS | GRAPHICS | HEIGHT | HEIGHT | CHARACTER | LINE | LINE | |";C HR$13; 190: 200PRINTSTRING$(137,"`") 210IFkb%=1:PRINT"| SHIFT | SET DEST. | A | L P | H A | N U | M E | R I | C | FLASH | STEADY |" 220IFkb%=1:PRINT"|-------|-----------| RED | GREEN | YELLOW | BLUE | MAGENTA | CYAN | WHITE |------------|------------|" 230IFkb%=1:PRINT"| CTRL | INS. CHAR | G | R | A | P H | I | C | S | INSERT LINE| DELETE LINE|";CH R$13; 240: 250IFkb%<>1:PRINT"| SHIFT | G | R | A | P H | I | C | S | BLACK BGND | NEW BGND | SET DEST |" 260IFkb%<>1:PRINT"|-------|"LEFT$(" RED |",-20*(kb%=0))" GREEN | YELLOW |"LEFT$(" BLUE |",-20*(k b%=0))" MAGENTA"SPC(kb%/2)" | CYAN | "SPC(1-kb%/2)" WHITE |"; 270IFkb%<>1:PRINTLEFT$(" RED | BLUE |",-30*(kb%=2))"------------| ------------|-----------|" 280IFkb%<>1:PRINT"| NORM | A | L P | H A | N U | M E | R I | C | FLASH | STEADY | PIXEL EDIT|";C HR$13; 290PRINTSTRING$(137,"`") 300PRINT''' 310NEXT 320VDU3