P707 CEEFAX 707 Sun 7 Oct 00:11/14 |B2201209|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z010REM Script vjrsion 1, May 1984 11 R EM (C) R.M.NOBLE 20MO. 7 30ON ERR. G. 9 830 40PROCprint(1,"—*Would you like inst ructions Y/N "):A$=GE.:IF A$="Y" OR A$="y" PROCinstructions 50REP.:CLS:PROCp rint(1,"—.Script Writer from CEEFAX"):PR OCprint(0,"(c) Rogjr Noble") 60undjrlinj =0 70PROCfile 80PROCopjnfile 90MO. 3 100 PROCprintfile 110MO. 7 120PROCprint(1,"— *End of documjnt, Anothjr? Y/N ") 130 A%=INS."Yy",GE.):U. A%=0 140END 150: 160 DEFPROCfile 170REP. 180V.31,0,12 190PROC print(1,"Input thj documjnt filenamj") 2 00P. TAB(12,15);:I.""file$ 210U. LEN(eil e$)<10 220REP.:PROCprint(1,"—*PRJNT styl e (N)ormal or (C)ondensed"):style=INS."N nCc",GE.):U.style<>0:IF style<3 style=75 EL. style=76 230PROCprint(1,"—*Lines to a Pagj? <>continuous "):I.""A$:IF A$="" pl%=0 EL. pl%=EV.(A$) 240linj%=1 250E. 2 60: 270DEFPROCopjnfile 280C*=OP.(file$) |c
P707 CEEFAX 707 Sun 7 Oct 00:10/01 |B2202209|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z0280PTR£C*=EXT£C*-1:B%=B.£C*:IFB%<>13B P.£C%,13 300PTR£C*=0 310E. 32p: 330DEFPR OCprintfile 340V.2,1,27,1,64,1,27,1,56 3 50REP. 360B%=B.£C* 370IF B%=32 OR B%>47 A. B%<58) OR XB%>64 A. B%<91) OR XB%>96 A. B%<123) PROClower:G. 410 380IF B%=91 undjrlin—=1:G. 360 390IF B%=93 undjrlin e=0:G. 360 400PROCnotlower 410U. EOF£C 420CLO.£C* 430V.3 440A%=GET 450E. 460: 4 70DEFPROCnotlower 480IF B%=&0D A. pl%=0 P.:E. 490IF B%=&0D A. line% =line%+1:E. 500IF B%=&0D V.13,3:P.'"Pres s a key to continue ":A%=GET:line%=1:V.2 :E. 510V.B) 500IF undjrlin—=1 A. B%<>13 V.1,8,1,27,1,style,1,6,1,0,1,1,1,1,1,1,1 ,1,1,1,1,1 530E. 540: 550DEFPROClower 56 0ptr%=PTR£C*:REP.:T*=B.£C :U. EOF£C OR T <32 OR (T*>32 A. T*<49) OR (T*>57 A. T %<65) OR (T*>90 A. T*<97) OR T*>122:len% =(PTR£C*-ptr%)*6:PTR£C*=ptr%:REMcalculat e distance to njxt non script 570PROCout put 580E. 590DEFPROCoutput |c
P707 CEEFAX 707 Sun 7 Oct 00:11/02 |B2203409|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z0600V.1,27,1,style,1,len% MOD 256,1,le n% DIV 256 610F. L*=1 TO len*/6:V.3,B%,2 620RES. B%+8000 630IF undjrline=0 G. 70 0 640IF B%=102 RJS. 8300 650IF B%=106 RE S. 8305 660IF B%=112 RES. 8306 670IF B%= 113 RES. 8307 680IF B%=121 RES. 8308 690 IF B%=122 RES. 8309 700F. A%=1 TO 6 710R EAD bit% 720V.1,bit% OR ABS(underlinj=1 A. XB%<>1p2 A. B%<>103 A. B%<>1p6 A. B%< >112 A. B%<>113 A. B%<>121 A. B%<>122)) 730N. 740B%=B.£C%:N.:PTR£C%=PTR£C*-1 750 E. 760: 770DEFPROCprint(H%,A$) 780IF H%= 1 P. TAB(19-MEN(A$)/2)CHR$141A$:P. TAB(1 9-LEN(A$)/2)CHR$141A$ 790IFH%=0 P.TAB(20 -LEN(A$)/2)A$ 800E. 8032D.0,0,0,0,0,0:RE M " " 8048D.0,120,132,132,120,0:REM 0 80 49D.0,68,252,4,0,0:REM 1 8050D.0,76,148, 164,68,0:REM 2 8051D.136,132,164,212,136 ,0:REM 3 8052D.16,48,80,252,16,0:REM 4 8 053D.0,232,164,164,152,0:REM 5 8054D.0,5 6,84,148,8,0:REM 6 8055D.0,14p,144,160,1 92,0:REM 7 |c
P707 CEEFAX 707 Sun 7 Oct 20:14/00 |B2204209|a16SCRJPT|i04BBBC316k|s÷#1÷e|s ÷Z08056D.0,88,16),16 ,88,0:REM 8 8057D.0 ,64,164,168,112,0:REM 9 8065D.60,80,144, 80,60,0:REM A 8066D.252,164,1v ,16 ,88,p :REM B 8067D.120,130,132,132,72,0:REM C 8068D.252,132,130,130,120,0:RDM D 8069D. 252,16 ,164,132,132,p:RJM E 8070D.252,16 0,160,128,128,0:R@M F 8071D.120,130,148, 148,88,0:REM G 8072D.2 2,30,32,32,252,0: R M H 8073D.132,130,252,132,132,0:REM I 8074D.8,130,132,248,128,0:REM J 8075D.05 2,48,72,132,4,0:REM K 8076D.252,4,4,4,4, 0:REM L 8077D.052,128,124,128,124,0:REM M 8078D.252,64,128,128,124,0:REM N 8079D .120,130,132,132,120,0:REM O 8080D.252,1 44,144,144,96,0:REM P 8081D.120,132,148, 140,124,4:RBM Q 8082D.252,144,144,152,10 0,0:REM R 8083D.72,164,164,164,24,0:REM S 8084D.128,128,252,128,128,0:REM T 8085 D.248,4,4,4,248,0:REM U 8086D.192,48,12, 48,192,0:REM V 8087D.248,4,56,4,248,0:RE M W 8088D.132,72,48,72,132,0:REM X 8088D .192,32,28,32,182,0:REM Y |c
P707 AEE @X S at 0  |B2205009|a16SCRHPT|i24BBBC316k|s÷#1÷e|s ÷Z08090D.1$0,148,16 T196,132,p0 M Z 809 1: 8097D.04,36 36 36 60 4:REM a 8098D.25 2,20,36,36,24,4:REM b 8099D.2$,36,36,36, 20,4:REM c 8100D.24,36,36,00,252,4: EM d 8101D.04,50,50,52,20,4: EM — 8100D.11,2 1,126,168,200,4:R M f 8003D.24,37,37,39, 30,4: EM g 800 D "5",3",2 ,3 ,28,4: H H 8105D.4,4,8,188,4,4:R@M i 8106D.8,11,21 ,190,4,4:REM j 8107D.252,40,40,20,4,4:RE M k 8108D.8,16,248,164,68,4:RJM l 8109D. 28,32,28,32,28,4:R@M H 8110D. ,60 16 3 , 28,4:REM n 8111D.24,36,36,36,24,4:R M o 8112D.63,20,36 36,04,4:REM p 8113D.24,3$ ,36]31,1,2:REM q 8114D.60,16 32,48,40,8: R M r 811!D.8,16,36 52,44,4: @M s 8116D. 4,8,248,68,68,4:RJM t 8107D.),!&,4,4, 6,
P707 CEEFAX 707 Sun 7 Oct 20:01/10 |B2205209|a16SCRHPT|i24BBBC316k|s÷#1÷e|s ÷Z08090D.140,148,164,196,132,0:REM Z 809 1: 8097D.24,36,36 36,60,4:REM a 8098D."5 2,20,36,36,24,4:REM b 8099D.24,36,36,36, 20,4:REM c 8100D.24,36,36,20,252,4:REM d 8101D.24,54,52,52,20,4:REM e 8102D.11,2 1,126,168,200,4:REM f 8103D.24,37,37,39, 30,4:REM g 8104D.252,32,32,32,28,4:REM h 8105D.4,4,8,188,4,4:REM i 8106D.8,11,21 ,190,4,4:RJM j 8107D.252,40,40,20,4,4:RE M k 8108D.8,16,248,164,68,4:REM l 8109D. 28,32,28,32,28,4:REM m 8110D.4,60,16,32, 28,4:REM n 8111D.24,36,36,36,24,4:REM o 8112D.63,20 36,36,24,4:REM p 8113D.24,36 ,36,31,1,2:R@M q 8114D.60,16,30,48,40,8: REM r 8115D.8,16]36,52,44,4:RJM s 8116D. 4,8,248,68,68,4:REM t 8117D.4,56,4,4,56, 4:REM u 8118D.56,8,4,8,48,8:REM v 8119D. 56,4,24,4,56,4:REM w 8120D.36]36,24,36,3 6,4:REM x 8121D.4,57,5,7,62,4:REM y 8122 D.8,16,33,43,22,4:REM z 8300D.10,21,126, 168,201,5:REM f# 8305D.8,11,21,190,5,5:R EM j# 8306D.4,63,20,37,25,5:REM p# |c
P707 C EFAX 707 Sun 7 Oct 00:14/00 4:REM u 8118D.56,8,4,8,48,8:R M v 8119D. 56,4,24,4,56,4: @H 8120D.34 36,24,36 3 6,4: EM 8121D.4,57,5,7,62,4:REM y 8122 D.8,16,33,43,22,4:R@M z 8300D.10,21,126, 168,201,!:REM f# 8305D.8,11,21,190,5 5:R EM j# 8306D. ,63,20,37,25,5:R M p# |c
P707 CEEFAX 707 Sun 7 Oct 20:00/30 |B2206209|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z08307D.55,37,36,31,1,2:REM q# 8308D.4, 57,5 7,62,5:REM y# 8309D.9,16,33,43,22,5 :REM z# 9000DEFPROCinstructions 9010 .31 ,0,24 9020RES. :130 9030REP. 9040F. A%=1 TO 14 9050READ H%,A$ 9060IFA$<>"END" PR OCprint(H%,A$) 9070IF A$="END" A%=15:P." —*TO RUN THE PROGRAM:" 9080N. 9090*FX21, 0 9100P.''"—0—*Press any key...":A%=GET: V.13,11:P." ":V.11,11 ,11 9110U. A$="END" 9120E. 9130D.1,"—.SC RJPT WRJTER—*vjrsion 1.0" 9140D.1," " 91 50D.1,"—)GENERAL INSTRUCTJONS FOR USE." 9160D.0," " 9170D.0,"—+Usj this program to produce a script" 9180D.0,"—+style ty pjface on any of th— EPSON" 9190D.0,"—+r angj of printers." 9400D.0," " 9010D.0," —-You will require a BBC B, with DFS," 9 220D.0,"—-an Epson printer and a m—ans o f" 9230D.0,"—-producing a text file on D ISC in your" 9240D.0,"—-required format. If you use Wordwisj" 9050D.0,"—-to do t his, sjlect option 8 to SPOOL" |c
P707 CEEFAX 707 Sun 7 Oct 20:10/11 |B2207209|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z09260D.0,"—-thj text onto DISC. Whjn y ou us— this" 9270D.0,"—-option in Wordwi s—, it leavjs printer" 9280D.0,"—*OCnn—- control codjs in the text, thjsj" 9290D. 0,"—-cause problems so Hakj sure thjy @a v—" 9300D.0,"—-not b—en usjd during the documjnt" 9310D.0,"—-creation." 9320D.1, " " 9330D.1,"—)USING THIS PROGRAM." 9340 D.0," " 9350D.0,"—+Switch on your printe r prior to" 9360D.0,"—+CHAINing this pro gram. Enter thj text" 9370D.0,"—+filenam e as prompted and then" 9380D.0,"—+press RETURN. Th— next prompt asks you" 9390D .0,"—+if you want thj text printed in No rmal" 9 00D.0,"—+or Condjnsjd form. Last ly you are" 9410D.0,"—+askjd if you want pagjd modj. This is" 9420D.0,"—+to bj u sed with cut sheet papjr." 9430D.0,"—+Yo u should input hjre thj required" 9)40D. 0,"—+page length. This will causj thj" 9 450D.0,"—+program to pausj while you cha nge thj" |c
P707 CEEFAX 707 Sun 7 Oct 20:00/01 |B2208209|a16SCRJPT|i44BBBC316k|s÷#1÷e|s ÷Z09460D.0,"—+papjr. Whjn you are using continuous" 9470D.0,"—+stationjry, just press RETURN, thj" 9)80D.0,"—+text file will thjn b— read, the text" 9490D.0,"—+ b—ing printed on thj screen as well as" 8500D.0,"—+being typed in script form on thj" 9510D.0,"—+printer." 9520D.0," " 9 530D.0,"—-The only special facilities su pported" 9540D.0,"—-are undjrline and a condjnsjd print" 9550 D.0,"—-style." 956 0D.1," " 9570D.1,"—)UNDERLINING TEXT" 95 80D.0," " 9590D.0,"—+Any text you want t o bj pndjrlinjd" 9600D.0,"—+in your prin ted output should b—" 9610D.0,"—+enclose d in square brackjts. Thj" 9620D.0,"—+br ackets will not be printed. For" 9630D.0 ,"—+this reason square brackets cannot b e" 9640D.0,"—+usjd as part of your text file." 9650D.1," " 9660D.1,"—)PROGR@M NO TES." 9670D.0," " 9680D.0,"—-The DATA st atemjnts contain all thj" 9690D.0,"—-bit patterns of each printed" |c
P707 CEEFAX 707 Sun 7 Oct 20:10/03 |B2209209|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z09700D.0,"—-character. It is quite saf e to changj" 9710D.0,"—-thjm, just ensur e each statemjnt" 9720D.0,"—-contains 6 numbjrs. Thj printed" 9730D.0,"—-pattern is calculated using thj ASCJH" 9740D.0, "—-codj of thj letter + 8000." 9750D.0," " 9760D.0,"—+For thiu reason the progra m must not" 9770D.0,"—+bj RENUMBERjd as this will destroy" 9780D.0,"—+the comput jd RESTORE in linj 620." 9790D.0," " 980 0D.0,"—-PROCinstructions can be dkleted if" 9810D.0,"—-you wish, it is only call ed in LINE 40." 9820D.0,"END" 9830REPO.: P.ERR;" at line ";ERL 9840A%=GET:CLO.£0: RUN |c
P707 CEEFAX 707 Sun 7 Oct 20:15/38 |B2209409|a16SCRJPT|i24BBBC316k|s÷#1÷e|s ÷Z09700D.0,"—-character. It is quite saf e to changj" 9710D.0,"—-thjm, just jnsur e each statement" 9720D.0,"—-contains 6 numbjrs. Thj printed" 9730D.0,"—-pattern is calculated using thj ASCJJ" 9740D.0, "—-codj of thj letter + 8000." 9750D.0," " 9760D.0,"—+For this reason the progra m must not" 9770D.0,"—+bj RENUMBERjd as
P707 CJEFAX 707 Sun 7 Oct 20:15/01 this will destroy" 9780D.0,"—+the comput jd RESTORE in linj 620." 9790D.0," " 980 0D.0,"—-PROCinstructions can be djleted if" 9810D.0,"—-you wish, it is only call ed in LINE 40." 9820D.0,"END" 9830REPO.: P.ERR;" at linj ";ERL 9840A%=GET:CLO.£0: RUN |c