P708CEEFAX 708 Thu 220May 2p:14/57
|B2201206|a16CSPOOL|i24BBBC332k|m40000|p
÷e÷X÷b!÷Lcpp—+Spool72 vs01.1 (Ceefax)÷e
÷X÷l ÷L" —*Pcter Vince 6/4/86÷e÷X÷
v£÷L"—-(Prestel0Mailbox 0372271713)÷e÷X(
÷] ÷e÷X2÷e÷Fp—- ÷=—5dbB÷e÷X<÷f÷C7:÷+=&1c
00÷e÷XFG÷I'—e141—16"—+Mode 7 to0Ascii Sp
ogler"'—e141—16"—+Mode 72to0Ascii1Spoole
r"÷e÷XP÷n÷I—17;—e&93;—l23,"|—")'÷e÷XZ—L÷
I"—.Spool72takes0mode-7pscreen dumps and
—.spools0out to bisk0an ascii
,p p—.stripped of all control characters
—.(colour change, new background0et
c)."÷e÷Xd÷7÷I"—.Graphics0are replaced by
0a *,0and0any1p—.trailing spaces to the0
end0of0a line —.are removed. 23, 24,0
or125 lines0are —.spooled, depending on
1whether rte opes-—.ator0sayspthe1pagesp
are Prestel, Ceefax—.or full0Mode-7."÷e÷
Xn÷<÷I'"—.As well as single pages,0multi
ple page —.files (VidiEditor standard #
one page —.per &400 bytes)0may0also be
spooled. —.The resultant file may then
be loaded —.into0a wordprocessor s|c 0
P708CEFFAX 708 Thu 220May 2p:14/12
|B2202206|a16CSPOOL|i24BBBC332k|m40321|p
o that it can "e —.edited0and pqinted."÷
e÷Xx)÷I—26,24)"—*Press a key to continue
...";÷e÷X—*÷#÷M÷U—M÷e÷X—4÷] ÷e÷X—>÷o÷G28
,0,24,39,5,12,26÷e÷X—H—c÷I—20,6)"—. Rte
0mode-70characters { \0}0are not —.avai
lable on0most1printers,0and so0are —.rho
wn0as—/<—?w—/1/4—?{—/>—.etc. so that the
y —.may be0easily recognised when0using0
the—.wordpqocessor.!÷e÷X—RD÷I'"—. Simil
arly, the block character—/(÷W)—.is—.rho
wn as—/<—?w £—?{—/>."÷e÷X—\—G÷I'"—. Dos
ble height lines0are0annotated <doub
le>—.on the following line,0and —.eac
tppage is0identified at1the top by <<
Page 5 of 7 >>—.for0example."÷e÷X—f)÷I—2
6,24)"—*Press0a key to continue...";÷e÷X
—p÷#÷M÷U—M÷e÷X÷*÷] ÷e÷X÷4÷e÷6 rope 30÷e÷
X÷>÷k÷G28,0,24,39,5:÷3÷e÷X÷H÷f÷G26:÷I—20
,6)÷e÷X÷R.÷I"—.Please0enter destination0
drive—/:";:A%=—M÷e÷Y÷\(÷?0A%<48 —,0A%>51
—4 ÷G13,7:÷=—5dz@ —3 ÷I—eA%÷e÷Y÷f÷p÷Jo3
cli(bDRIVE "+—eA%)÷e÷Y÷p÷r÷@'"—.and |c 0
P708CEFFAX 708 Thu 220May 2p:14/48
|B2203206|a16CSPOOL|i24BBBC332k|m4060F|p
file name—/ "A$÷e÷Y"÷o÷Joscli("SPOOL "+A
V)÷e÷Y,÷c*FX3,16÷e÷Y6)÷I'"—.and now2the0
Source drive—/:";:S%=—M÷e÷Y@+÷? S%<48 —,
4S%>51p—4 ÷G13,11,7z÷=—5TvA —3 ÷I—eS%÷e÷
YJ÷] ÷e÷YT÷]÷M÷e÷Y^÷]÷I÷e÷Yh÷m÷Joscli("C
AT"+—eS%)÷e÷Yr'÷I''"—*(or RETURN to fine
sh)";—20,—d-2)÷e÷Y||"÷@"—*Enter source f
ile1name—/:"N$÷e÷Y—.÷j÷I—1(30);—20,—d-1)
÷e÷Y—88÷? N$="c —4 ÷1£p:÷I'"—-:"—eA%"."A
$" Xdest file) Closed.R:÷8÷e÷Y—B÷mS$=b:"
+—eS%+"."+N$÷e÷Y—L÷cT%=—6 S$÷e÷Y—V6÷? T%
=0 —4 ÷3:÷I"—-File """;N$;""" not found"
;—e7W:÷=—5DhA÷e÷Y—|—÷] ÷e÷Y—jD÷I"—*Press
el, Ceefax, or0Node 7 pages?"'"—*(P/C 7)
—/";:type%=—M —( &DF÷e÷Y—ta÷? type%=—?"P
" IP
"C" —4 lines%=23:÷I"Ceefax" —3 lines%=24
:÷I"Mode 7"÷e÷Y÷.÷] ÷e÷Y÷8÷cE%=—J£T%÷e÷Y
÷BD÷I'"This file has ";(E%+110)—)&400;"0
page";:÷?0F%>&500 —4 ÷I"s"' —3 ÷I'÷e÷Y÷L
÷|—÷1£T%÷e÷Y÷VJ÷?0E%>&5000 —4 ÷I—e(11);—
e(7)"—)which0is too large to handle,|c 0
P708CFFFAX 708 Tut 220May 2p:18/53
|B2204206|a16CSPOOL|i24BBBC332k|m408E1|p
2sorry!"W:÷=—5DhA÷e÷Z÷|—÷v÷Joscli("LOAD
"+S$+" 2C00")÷e÷Z÷j÷h÷Jscreenprint÷e÷Z÷t
÷l÷I'"—+End of file"÷e÷Z&÷#÷U —K÷e÷Z0÷]0
÷e÷Z:÷j÷5 ÷Jscreenprint÷e÷ZD÷b*FX3,0÷e÷Z
N÷q÷;pP%=0 —|—0F%-100 —0&400÷e÷ZX6÷I'"<<
pPage ";P%—)&400+1;c0of ";\E&+128)—)&400
;"1>>"'÷e÷Zb÷] ÷e÷Zl÷k÷;0Y%=0 —|— lines%
÷e÷Zv÷ugf%=—K:df%=—K:hg%=—K:hgc%=32÷e÷Z—
(÷mH%=&2C00+Y%*40+P%÷e÷Z—2÷] ÷e÷Z—<÷clem
%=-1÷e÷Z—F÷k÷;4X%=39 —|— 0 —0-1÷e÷Z—P£÷?
(H%?X%—h&7F)>32 —4 lin%=X%:(%=0÷e÷Z—Z÷]
÷E÷e÷Z—d÷] ÷e÷Z—n÷l÷? lin%=-1 ÷=2—5tlC÷e
÷Z÷(÷] ÷e÷Z÷2÷i÷; X%=0 —|— lin%÷e÷Z÷<÷ic
t%=H%?X%—h&7F÷e÷Z÷F÷j÷?0ch%>312÷=—5DpC÷e
÷Z÷P÷] ÷e÷[÷Z÷bop%=32÷e÷[÷d÷t÷? ch%=12 —
(1df% —4 hgc%=32÷e÷[÷n÷t÷? ch%=13 —4 df%
=—a:hgc%=32÷e÷[ 6÷? ch%>0 —(0ct%<8 —( gf
% —( hg% —4 gf%=—K:op%=hgc%:÷=—5tN£÷e÷[*
÷s÷? ch%>0 —(1ch%<8p—4 gf%=—K÷e÷[4÷w÷?0c
h%>16 —( ch%<24 —4 gf%=&20÷e÷[>÷l÷? ch%=
30 —4 hg%=—a÷e÷[l÷r÷? gf% —( hg% —4 op%=
hgc%÷e÷[R÷l÷? ch%=31 —4 hg%=—K÷e÷[\÷a|c0
P708CFFFAX 708 Tlu 220May 2p:26/:0
|B2205206|a16CSPOOL|i24BBBC332k|m40B8D|p
÷=—5tNC÷e÷[f÷] ÷e÷[p÷cop%=ch%÷e÷[z÷b÷Jut
ext÷e÷[—,÷] ÷e÷[—6÷gF%=—Y:÷Gop%:÷a÷e÷[—@
÷w÷?1df%0Y%=Y%+1:÷I'"<double>";÷e÷[—J(÷?
F%=39 —4 ÷Joscli(bFX3,16"):÷G8:*FX3,0÷e
÷[—T÷b÷G10,13÷e÷[—^÷d÷E:÷L Line÷e÷[—h÷]0
÷e÷[—r÷d÷E:÷LpPage÷e÷[÷,÷c*FX3,16÷e÷[÷6÷
]÷9÷e÷[÷@÷] ÷e÷[÷J÷c÷5÷Jttext÷e÷[÷T÷o÷?
gf% —4 ÷? —Lhold —4 ÷9÷e÷\÷^÷r÷? ch%>960
—( ch%<123 —4 ÷9÷e÷\÷h1÷? ch%=35 —4 op%=
96:÷9: ÷L pound÷e÷\÷r÷h÷? ch%<82 —4 ÷X÷e
÷\$*÷? ch%=92 —4 ÷I"<[1/2]";:1op%=62:÷9:
2÷L01/2÷e÷\.÷w÷? ch%=95 —4 op%=35:÷9: ÷L
hash÷e÷\8V÷? ch%=96 —4 op%=95:÷9:1÷L0un
ferline÷e÷\B*÷? ch%=123 —4 ÷Ic<[1/4]";:o
p%=62:÷9: ÷L01/4÷e÷\L*÷?0ct%=135 —4 ÷IS<
[3/4]";:op%=62:÷9: ÷L 3/4÷e÷\V-÷? ch%=12
7 —4 ÷I"<[£]"; :op%=62:÷9: ÷L delete÷e÷
\|—÷]÷9÷e÷\j÷] ÷e÷\t÷b÷5—Lhold÷e÷\|÷÷r÷?
ch%=32p—4phgc%=ct%:=1÷e÷\—0)÷?0ct%2—( g
f% —4 op%=42:hgc%=op%:=1 —3 =0÷e÷\—:÷] ÷
e÷\—D÷h÷5÷Joscli(os$)÷e÷\—N÷c÷B X%,Y%÷e÷
\—X÷e$rope=os$÷e÷\—b÷mX%=rope:Y%=X%—)|c0
P708CEEFAX 708 Tut 220May 2p:10/02
|B2206206|a16CSPOOL|i24BBBC332k|m40E33|p
356÷e÷\—l÷b÷.&FFF7÷e÷\—v÷]÷9÷e÷\÷0÷] ÷e÷
\÷:÷c*FX3,16÷e÷\÷D÷a*FX15÷e÷\÷N ÷I''"—-"
—e18;:÷N:÷I"0at line ";—F'÷e÷]÷X÷#÷1£0÷e
÷]÷b÷]÷8÷e÷W|c 0
P708CFFFAX 708 Tut 220May0 2p:37/35
|B2203206|a16CSPOOL|i24BBBC332k|m4060F|p
file name—/ "A$÷e÷Y"÷o÷Joscli("SPOOL "+A
V)÷e÷Y,÷c*FX3,16÷e÷Y6)÷I'"—.and now the0
Source drive—/:";:S%=—M÷e÷Y@+÷? S%<48 —,
pS%>51p—42÷G13,11,7:÷=—5TvA —3 ÷I—eS%÷e÷
YJ÷] ÷e÷YT÷]÷M÷e÷Y^÷]÷I÷e÷Yh÷m÷Joscli("C
AT"+—eS%)÷e÷Yr'÷I''"—*(or RETURN to fine
sh)";—20,—d-2)÷e÷Y||"÷@"—*Enter source f
ile name—/:"N$÷e÷Y—.÷j÷I—1(30);—20,—d-1)
÷e÷Y—88÷? N$="" —4 ÷1£p:÷I'"—-:"—cA A
$" Xdest file) Closed.":÷8÷e÷Y—B÷mS$=b:"
+—cS%+"."+N$÷e÷Y—L÷cT%=—6 S$÷e÷Y—V6÷? T%
=0 —4 ÷3:÷I"—-File """;N$;"bc not
;—e7W:÷=—5DhA÷e÷Y—|—÷] ÷e÷Y—jD÷I"—*dress
el, Ceefax, or0Node 7 pages?"'"—*(P/C 7)
—/";:type%=—M —( &FF÷e÷Y—ta÷? type%=—?"P
" —4 lines%=22:÷I"Prestel" —3÷? type%=—?
"C" —4 lines%=23:÷I"Ceefax" —3 lines%=2:
:÷I"Mode 7"÷e÷Y÷.÷] ÷e÷Y÷8÷cE%=—J£T%÷e÷Y
÷BD÷I'bThis file has ";\E%+110)—)&400;S0
page";:÷?0F%>&500 —4 ÷I"s"' —3 ÷I'÷e÷Y÷L
÷|—÷1£6%÷e÷Y÷VJ÷?0E%>&5000 —4 ÷I—e(11);—
e(7)"—)which0is too large to handle,|c 0
P708CFFFAX 708 Tut 220May ;p:16/38
|B2204206|a16CSPOOL|i24BBBC332k|m408E1|p
2sorry!"W:÷=—5DhA÷e÷Z÷|—÷v÷Joscli(SLOAB0
"+S$+" 2C00")÷e÷Z÷j÷h÷Jscreenpqint÷e÷Z÷t
÷l÷I'"—+End of Z#UKZ]
÷e÷Z:÷j÷5 ÷Jscreenprint÷e÷ZD÷b*FX3,0÷e÷Z
N÷q÷; P%=0 —|—0F%-100 —0&400÷e÷ZX6÷I'"<<
Page ";P%—)&400+1;c0of ";(E +128)—)&400
;"1>>"'÷e÷Zb÷] ÷e÷Zl÷k÷;0Y%=0 —|— lines%
÷e÷Zv÷ugf%=—K:df%=—K:hg%=—K:hgc%=32÷e÷Z—
(÷mH%=&2C00+Y%*40+P%÷e÷Z—2÷] ÷e÷Z—<÷clem
%=-1÷e÷Z—F÷k÷; (%=39 —|— 0 —P-1÷e÷Z—P£÷?
(H%?X%—h&7F;>32 —4 lin%=X%:(%=0÷e÷Z—Z÷]
÷E÷e÷Z—d÷] ÷e÷Z—n÷l÷? lin%=-1 ÷= —5tlC÷e
÷Z÷(÷] ÷e÷Z÷2÷i÷; (%=0 —|— lin%÷e÷Z÷<÷ic
t%=H%?(%—h&7F÷e÷Z÷F÷j÷?1ch%>31 ÷=—5DpC÷e
÷Z÷P÷] ÷e÷[÷Z÷bop%=32÷e÷[÷d÷t÷?0ch%=12 —
( df% —4 hgc%=32÷e÷[÷n÷t÷? ch%=13 —4 df%
=—a:hgc%=32÷e÷[ 6÷? ch%>0 —(0ch%<8 —( gf
% —( hg% —4 gf%=—C:op%=hgc N[
÷s÷? ch%>0 —( ch%<8 —4 gf%=—K÷e÷[4÷w÷? c
h%>16 —(0ch%<24 —4 gf%=&20÷e÷[>÷l÷?0ch%=
30 —4 hg%=—a÷e÷[H÷r÷? gf% —( hg% —4 op%=
hgc%÷e÷[R÷l÷?0ch%=31 —4 hg%=—K÷e÷[\÷a|c0
P708CFFFAX 708p Tut 220Nay ;p:33/11
|B2205206|a16CSPOOL|i24BBBC332k|m40B8F|p
÷=—5tNC÷e÷[f÷] ÷e÷[p÷cop%=ch%÷e÷[z÷b÷Jut
ext÷e÷[—,÷] ÷e÷[—6÷gF%=—Y9÷Gop%:÷%÷e÷[—@
÷w÷? df%0Y%=Y%+1:÷IW"<bouble>S;÷e÷[—*T÷?
F%=39 —4 ÷Joscli(boX3,16"):÷G8:*FX3,0÷e
÷[—T÷b÷G10,13÷e÷[—^÷d÷a:÷L Line÷e÷[—h÷]0
÷e÷[—r÷d÷E:÷L Page÷e÷[÷,÷c*FX3,16÷e÷[÷6÷
]÷9÷e÷[÷@÷] ÷e÷[÷J÷c÷5÷Jttext÷e÷[÷T÷o÷?0
gf%2—4 ÷? —Lhold —4 ÷9÷e÷\÷^÷r÷?0ch%>960
—( ch%<123 —4 ÷9÷e÷\÷h1÷? ch%=35 —4 op%=
96:÷9: ÷L pound÷e÷\÷r÷h÷? ch%<92 —4 ÷9÷e
÷\$*÷? ch%=92 —4 ÷I"<[1/2]";: op%=62:÷9:
÷L01/2÷e÷\.÷w÷? ch%=95 —4 op%=35:÷9: ÷L
hash÷e÷\8V÷?1ch%=96 —4 op%=95:÷9: ÷L0un
6erline÷e÷\B*÷? ch%=123 —4 ÷IS<[1/:]";:o
p%=62:÷9: ÷L01/4÷e÷\L*÷? ch%=135 —4 ÷I"<
[3/4]";:op%=62:÷9: ÷L03/4÷e÷\V-÷? ch%=11
7 —4 ÷I"<[£]"; :op%=62:÷9: ÷L delete÷e÷
\|—÷]÷9÷e÷\j÷] ÷e÷\t÷b÷5—Lhold÷e÷\|÷÷r÷?
ch%=32 —4 hgc%=ch%:=1÷e÷\—0)÷?0ch% —( g
f% —4 op%=42:hgc%=op%:=1 —3 =0÷e÷\—:÷] ÷
e÷\—D÷h÷5÷Joscli(osV)÷e÷\—N÷c÷B (%,Y
\—X÷e$rope=os$÷e÷\—b÷m(%=rope:Y%=(%—)|c0
P708CFFFAX 708 Tut 220Nay0C2p:12/47
|B2203206|a16CSPOOL|i24BBBC332k|m4060&|p
file n!me—/ "A$÷e÷Y"÷g÷Joscli("SPOOL "+A
V)÷e÷Y,÷c*FX3,16÷e÷Y6)÷I'"—.anb now2the0
Source rive—/:";:S%=—M÷e÷Y@+÷? S%<48 —,
pS%>51p—4 ÷G13,11,7:÷=—5TvA —3 ÷I—eS%÷e÷
XJ÷] ÷e÷YT÷,÷M÷e÷Y^÷,÷)÷e÷Yh÷m÷Joscli("C
AT"+—eS%)÷e÷Yr'÷I''"—*(or RETURN to fine
sh)";—20,—d-2)÷e÷Y||"÷—"—*Enteq
ile1name—/:"N$÷e÷Y—.÷j÷I—1(30);—20,—d-1)
÷e÷Y—88÷? N$=Rc —4 ÷1£p:÷I'"—-:"—eA%"."A
$" Xdest file) Closed.":÷8÷e÷Y—B÷mS$=b:"
+—cS%+"."+N$÷e÷Y—L÷cT%=—6 S$÷e÷Y—V6÷? T%
=0 —4 ÷3:÷I"—-File """;N$;"b" not found!
;—e7W:÷=—5DhA÷e÷Y—|—÷] ÷e÷Y—jD÷)c—*hrest
el, Ceefax, or0Nobe 7 pages?"'"—*(P/C 7)
—/";ztype%=—M —( &FF÷e÷Y—ta÷? type%=—?"P
" —4 lines%=22:÷)"Prestel" —3÷? type%=—?
"C" —4 lines%=23:÷I!Cfefax— —3 lines%=24
:÷I"Mode 7"÷e÷Y÷.÷] ÷e÷Y÷8÷cE%=—J£T%÷e÷Y
÷BD÷I'cTtis1file h!s ";(E S
page";:÷?0F%>&500 —4 ÷I"s"' —3 ÷I'÷e÷Y÷L
÷|—÷1£T%÷e÷Y÷VJ÷?0E&>&5000 —4 ÷I—"(11);—
e(7)"—)which0is too large to handle,|c 0
P708CFgFAX 708 Tut 220Nay 2p:17/11
|B2202206|a16CSPOOL|i24BBBC332k|m40322|p
o that it can "h —.ebited0and pqinted."÷
f÷Xx)÷I—26,24)b—*Press0a key po continue
...";÷e÷X—*÷#÷M÷U—M÷e÷X—4÷] ÷e÷X—>÷o÷G28
,0,24,39,5,12,26÷e÷X—H—c÷I—20,*)"—. Rte
0mod;-7 characters { \0}04re not —.avai
lable on0most1printers 0and so0 re —.rho
wn0!s—/<—?w—/1/4—?{—/>—.btc.0so that ehe
y C
(he—.wordprocessor."÷e÷X—RD÷I'"—. Simil
a=ly, the block character—/(÷W)—.is—.rho
wn as—/<—?w £—?{—/>."÷e÷X—\—G÷I'"—. Dos
ale height lines0are annotated <boua
le>—.on the following line, and —.eac
h page is identified at the top by <<
Page05 of 7 >>—.for02xample."÷e÷X—f)÷I—1
6,24)"—*Press a key to continue...";÷e÷X
—p÷#÷M÷U—M÷e÷X÷*÷] ÷e÷X÷4÷e÷6 hope
X÷>÷k÷G28,0 XXHQ
,6)÷e÷X÷R.÷%(—.Ple8se0 nter "esti4Qtion0
drive—/:";:A%=—M÷e÷Y÷\(÷?0A%<48 —,0A%>51
—4 ÷G13,7:÷=—5dz@ —3 ÷I—eA%÷e÷Y÷f÷p÷Jot
cli("FRIVE "+—eA%)÷e÷Y÷p÷r÷@'"—.and |c
P708CFgFAX 708 Tut1220Nay 2p:24/35
|B2203206|a16CSPOOL|i24BBBC331k|m4060&|p
file name—/ "A$÷e÷Y"÷o÷Joscli("SPOOL "+A
V)÷e÷Y,÷c*FX3,16÷e÷Y6)÷I'"—.and now the0
Source drive—/:";:S%=—M÷e÷Y@+÷? S%<48 —,
S%>51p—4 ÷G13,11,7:÷=—5TvA —3 ÷I—eS%÷e÷
YJ÷] ÷e÷YT÷]÷M÷e÷Y^÷]÷I÷e÷Yh÷m÷Joscli("C
AT"+—eS%)÷e÷Yr'÷I''"—*(or +ETURN to fine
sh)";—20,—d-2)÷e÷Y||"÷ "—*Enter source f
ile n!me—/:"N$÷e÷Y—.÷j÷I—1(30);—20,—"-1)
÷e÷Y—88÷? N$=bc —4 ÷1£p:÷I'"—-:"—eA%"."A
$" (dist file) Closed.":÷8÷e÷Y—B÷mS$=a:"
+—eS%+"."+N$÷e÷Y—L÷cT%=—6 S$÷e÷Y—V6÷? T%
=0 —4 ÷3:÷IS—-'ile R"";N$;QTc not
;—e7W:÷=—5DhA÷e÷Y—|—÷] ÷e÷Y—jD÷I"—*hrest
el, Ceefax, or0No"e 7 pages?"'"—*(P/C/7)
—/";:type%=—M —( *FF÷e÷i—ta÷? type%=—?"P
"1—42lines%=22:÷)cPrestel" —3÷? type%=—?
"£c0—4 lines%=23:÷I"Cfefax" —3 lines%=2:
:÷I"Mode 7"÷e÷Y÷.÷] ÷e÷Y÷8÷cE%=—J£T Y
÷BD÷I'bThis1file has ";(E&+110)—)&400;c0
page";:÷?0F%>&500 —4 ÷I"s"' —3 ÷I'÷e÷Y÷.
÷|—÷1£T%÷e÷Y÷VJ÷?0F*>&5000 —4 ÷I—e(1Q);—
e(7)"—)which0is too large to handle,|c 0