10 REM >TelKeys 20 REM Keystrip printer for ABZ teletext programs 30 REM Needs printer to not do AutoLinefeed 40 REM ie - You normally need *FX6 to print 50 grog%=FALSE 60 *FX6 70 MODE0:PRINT"ABZ Teletext Editor Keystrip Generator" 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(58)"ABZ TELETEXT EDITOR"SPC(38)"(C) 1991 J.G.Harston|";CHR$13; 130 PRINTSTRING$(137,"_") 140 PRINT"| NORM |";:IFNOTgrog% PRINT" CONCEAL |"; 150 PRINT" ";:VDU1,27,1,75,1,6,1,0,255,255,255,255,255,255 160 PRINT" | NORMAL | DOUBLE | JOINED | SEPARATED | BLACK | NEW | HOLD | RELEASE |";:IFgrog% PRINT" CONCEAL |"; 170 PRINT 180 PROCpr("| | DISPLAY | (BLOCK) | HEIGHT | HEIGHT | GRAPHICS | GRAPHICS | BACKGROUND | BACKGROUND | GRAPHICS | GRAPHICS |") 190 PRINTSTRING$(137,"_") 200 PROCpr("| SHIFT | EXECUTION | A | L P | H A | N U | M E | R I | C | FLASH | STEADY |"):PRINT 210 PROCpr("|-------|-----------| RED | GREEN | YELLOW | BLUE | MAGENTA | CYAN | WHITE |------------|------------|"):PRINT 220 PROCpr("| CTRL | | G | R | A | P H | I | C | S | START BOX | END BOX |") 230 PRINTSTRING$(137,"_") 240 PRINT''' 250 NEXT 260 VDU3 270 END 280 : 290 REM key10: Esc 300 REM key10: ------- 310 REM key10: SO 320 REM key10: SI 330 DEFPROCpr(A$) 340 IFNOTgrog% PRINTA$;CHR$13;:ENDPROC 350 PRINTLEFT$(A$,9);MID$(A$,22);MID$(A$,10,12);CHR$13;:ENDPROC