10
20
30
40
50 :
60 grog%=FALSE:
70 *FX6
80 MODE0:PRINT"ABZ Teletext Editor Keystrip Generator"
90 INPUT"Copies: "C%
100 VDU2,1,27,1,15:
110 FOR n%=1 TO C%
120 PRINTSTRING$(137,"_")
130 PRINT"|"SPC(58)"ABZ TELETEXT EDITOR"SPC(38)"(C) 1991 J.G.Harston|";CHR$13;
140 PRINTSTRING$(137,"_")
150 PROCpr("| CTRL | | G | R | A | P H | I | C | S | START BOX | END BOX |")
160 PROCpr("|-------|-----------| RED | GREEN | YELLOW | BLUE | MAGENTA | CYAN | WHITE |------------|------------|"):PRINT
170 PROCpr("| SHIFT | EXECUTION | A | L P | H A | N U | M E | R I | C | FLASH | STEADY |"):PRINT
180 PRINTSTRING$(137,"_")
190 PROCpr("| NORM | "+CHR$255+" | NORMAL | DOUBLE | JOINED | SEPARATED | BLACK | NEW | HOLD | RELEASE | CONCEAL |"):PRINT
200 PROCpr("| | (BLOCK) | HEIGHT | HEIGHT | GRAPHICS | GRAPHICS | BACKGROUND| BACKGROUND | GRAPHICS | GRAPHICS | DISPLAY |")
210 PRINTSTRING$(137,"_")
220 PRINT'''
230 NEXT
240 VDU3
250 END
260 :
270 DEFPROCpr(A$)
280 IFgrog%:PRINTLEFT$(A$,9);MID$(A$,22);MID$(A$,10,12);CHR$13;:ENDPROC
290 PRINTA$;CHR$13;:ENDPROC
300 :
310
320
330
340