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