10 *KEY10"*EXEC !BOOT|M"
   20 MODE7
   30 *FX21
   40 VDU23,1,0;0;0;0;
   50 title0$="                      "
   60 title1$=" _pp  0   _ _ _0 p    "
   70 title2$="  j p 5_0_zbj$e:j 5   "
   80 title3$="  j*~15mwjzjj e:*p%   "
   90 title4$="  |||||||||||||||||   "
  100 B=132
  110 C1=145:C2=147
  120 C3=131:C4=129:F3=C3:F4=C4
  130 C5=129:C6=131
  140 REPEAT:VDU(30)
  150 IF F3=C3 F3=C4 ELSE F3=C3
  160 IF F3=C3 F4=C4
  170 IF F3=C4 F4=C3
  180 PRINTCHR$(B)CHR$(157)
  190 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"
  200 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"
  210 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*  "CHR$(156)CHR$(C2)title0$CHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"
  220 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*  "CHR$(156)CHR$(C2)title1$CHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"
  230 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*  "CHR$(156)CHR$(C2)title2$CHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"
  240 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*  "CHR$(156)CHR$(C2)title3$CHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"
  250 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*  "CHR$(156)CHR$(C1)title4$CHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"
  260 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*";"                            "CHR$(F4)"*"CHR$(F3)"*"
  270 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"CHR$(C6)"     1...Mode 0            "CHR$(F3)"*"CHR$(F4)"*"
  280 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"CHR$(C6)"     2...Mode 7            "CHR$(F4)"*"CHR$(F3)"*"
  290 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"CHR$(C6)"     3...Redchr$ + codes   "CHR$(F3)"*"CHR$(F4)"*"
  300 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"CHR$(C6)"     4...Redchr$ - codes   "CHR$(F4)"*"CHR$(F3)"*"
  310 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"CHR$(C6)"     5...Info              "CHR$(F3)"*"CHR$(F4)"*"
  320 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*";"                            "CHR$(F4)"*"CHR$(F3)"*"
  330 PRINTCHR$(B)CHR$(157)CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"
  340 PRINTCHR$(B)CHR$(157)CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"CHR$(F4)"*"CHR$(F3)"*"
  350 PRINTCHR$(B)CHR$(157)
  360 RESTORE
  370 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  380 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  390 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  400 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  410 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  420 READ A$:PRINTCHR$(B)CHR$(157)CHR$(C6)A$
  430 PRINTCHR$(B)CHR$(157);
  440 A$=INKEY$(2)
  450 IF ASC(A$)<0 A$=" "
  460 UNTIL INSTR("12345",A$)
  470 :
  480 IF A$="1":CHAIN"Teled0"
  490 IF A$="2":CHAIN"Teled7"
  500 IF A$="3"AND?&8008<>1:?&7B=1:CHAIN"Redef"
  510 IF A$="4"AND?&8008<>1:?&7B=0:CHAIN"Redef"
  512 IF A$="5":PROCinfo:RUN
  514 PROCerror:RUN
  520 :
  530 DATA"80 Column Teletext Editor & Printer"
  540 DATA"-----------------------------------"
  550 DATA"If you have an Epson 9pin printer  "
  560 DATA"or compatable then this program    "
  570 DATA"enables you to produce a full A4   "
  580 DATA"sheet of teletext type and graphics"
  590 :
  594 DEFPROCinfo
  600 PRINT
  610 PRINT"1. Mode 0 80 column display            "
  620 PRINT
  630 PRINT"This is an application of the teletext "
  640 PRINT"in all Modes routine.                  "
  650 PRINT"This routine now mimicks the printer   "
  660 PRINT"routine. Since no colours are possible "
  670 PRINT"all the alpha/graphic codes are treat  "
  680 PRINT"the same, however as a bonus these     "
  690 PRINT"may be displayed using the Shift+f9    "
  700 PRINT"function.                              "
  710 PRINT
  720 PRINT"The codes displayed are :-             "
  730 PRINT
  740 PRINT"Inv A...Alpha colour codes             "
  750 PRINT"Inv G...Graphics colour codes          "
  760 PRINT"Inv S...Seperated graphics             "
  770 PRINT"Inv C...Contiguous graphics            "
  780 PRINT"Inv D...Double height"
  790 PRINT
  800 PRINT"Seperated graphics are now displayed   "
  810 PRINT"Inv D serves as a warning as the       "
  820 PRINT"printer does not support double height."
  830 PRINT
  840 PRINT
  850 PRINT"--MORE--";
  860 A=GET
  870 PRINT
  880 PRINT"2. Mode 7 40 column display            "
  890 PRINT"                                       "
  900 PRINT"The mode 0 version is a little slugish "
  910 PRINT"while editing, this mode 7 version is  "
  920 PRINT"a little faster, but you do get some   "
  930 PRINT"strange effects as the control codes   "
  940 PRINT"scroll off the screen.                 "
  950 PRINT"                                       "
  960 PRINT"                                       "
  970 PRINT"3. Redefine characters + codes         "
  980 PRINT"                                       "
  990 PRINT"For the Master this option redefines   "
 1000 PRINT"CHR$128-255 to the grahics and codes   "
 1010 PRINT"Doing this allows you to use EDIT      "
 1020 PRINT"for editing pages.                     "
 1030 PRINT"                                       "
 1040 PRINT"                                       "
 1050 PRINT"4. Redefine characters - codes         "
 1060 PRINT"                                       "
 1070 PRINT"As above except that the control codes "
 1080 PRINT"are not displayed.                     "
 1090 PRINT"                                       "
 1100 PRINT
 1110 PRINT
 1120 PRINT;
 1122 A=GET
 1130 ENDPROC
 1132 :
 1140 DEFPROCerror
 1142 CLS
 1144 PRINT"Options 3 and 4 are for the Master     "
 1150 PRINT"only, please read the info.            "
 1172 A=GET
 1174 ENDPROC