10REM >TelKeys
20REM Keystrip printer for ABZ telete
xt programs
30REM Needs printer to not do AutoLin
efeed
40REM ie - You normally need *FX6 to
print
50grog%=FALSE
60*FX6
70MODE0:PRINT"ABZ Teletext Editor Key
strip Generator"
80INPUT"Copies: "C%
90VDU2,1,27,1,15:REM Set condensed
100FOR n%=1 TO C%
110PRINTSTRING$(137,"`")
120PRINT"|"SPC(58)"ABZ TELETEXT EDITOR
"SPC(38)"(C) 1991 J.G.Harston|";CHR$13;
130PRINTSTRING$(137,"`")
140PRINT"| NORM |";:IFNOTgrog% PRINT"
CONCEAL |";
150PRINT" ";:VDU1,27,1,75,1,6,1,0,
255,255,255,255,255,255
160PRINT" | NORMAL | DOUBLE
| JOINED | SEPARATED | BLACK
| NEW | HOLD | RELEASE |
";:IFgrog% PRINT" CONCEAL |";
170PRINT
180PROCpr("| | DISPLAY | (BL
OCK) | HEIGHT | HEIGHT | GRAPH
ICS | GRAPHICS | BACKGROUND | BACKGROU
ND | GRAPHICS | GRAPHICS |")
190PRINTSTRING$(137,"`")
200PROCpr("| SHIFT | EXECUTION |
A | L P | H A | N
U | M E | R I | C
| FLASH | STEADY |"):PRINT
210PROCpr("|-------|-----------| RE
D | GREEN | YELLOW | BLU
E | MAGENTA | CYAN | WHITE
|------------|------------|"):PRINT
220PROCpr("| CTRL | | G
| R | A | P
H | I | C | S
| START BOX | END BOX |")
230PRINTSTRING$(137,"`")
240PRINT'''
250NEXT
260VDU3
270END
280:
290REM key10: Esc
300REM key10: -------
310REM key10: SO
320REM key10: SI
330DEFPROCpr(A$)
340IFNOTgrog% PRINTA$;CHR$13;:ENDPROC
350PRINTLEFT$(A$,9);MID$(A$,22);MID$(A
$,10,12);CHR$13;:ENDPROC