P706CFFFAX 706 Tut 220May 2p:14/07
|B22p4211|a17PICBILD|i24BBBC332k|m40895|
paper(2,1,5,37,11)÷e÷^÷\&÷Jn7text(—K,—K,
5,6,1,"Please1press:")÷e÷^÷f1÷$m7text(—K
,—K,5,8,1,SD0if0you0are0using bisks")÷e÷
^÷p1÷Jm7text(—K,—K,5,9,1,bT if0you0are0u
sing tapes")÷e÷^b&÷$m7text(—K,—a,5,11,4,
"Your choice?")÷e÷^,÷pk$=—Lkey1(—a,—E,—a
,"DT")÷e÷^64÷? k$="D" —4 k$=!Disk":disk%
=—a —3 k$="Tape":disk%=—K÷e÷^@£÷Jm7text(
—K,—K,5,11,4,k$+c ppp S)÷e÷^J÷i÷J6elay3
(—a,.5)÷e÷^O÷]÷M÷e÷^P÷gcontinue%=—a÷e÷^T
÷v÷Jm7textpaper(3,1,12,37,15)÷e÷^^2÷$n7t
ext(—K,—K,5,13,1,"Please0enter0a filen!m
e:")÷e÷^h÷f÷Jcursor(—a)÷e÷^r%÷$m7text(—K
,—K,5,15,4,"||P.PIC ||")÷e÷^||÷l÷G8,8
,8,8,8,8,8,8÷e÷^—.÷uk$=—Lusting3(—a,—a,"
AZ09",4)÷e÷^—8÷pfilename$="P.PIC"+k$÷e÷^
—B÷r÷? disk% —4 ÷Jcheckdelete÷e÷^—G÷7÷U0
continue%÷e÷^—L÷v÷Jm7textpaper(6,1,16,37
,20)÷e÷^—V1÷Jm7text(—K,—K,5,17,1,"Now0a0
first line mum"er")÷e÷^—z—,÷Jm7text(—K,—
K,5,18,1,bfor2rte procedure:")÷e÷^—j!÷Jn
7text(—K,—K,5,20,4,"||31 ||!)÷e÷^—t|c0
P706CEEFAX 706 Tlu 220May 2p:10/52
|B2207311|a17PI£BILD|i24BBBC332k|m:113D|
p1%=X%:Y1%=Y%:pen%=-1:wipe%=-1÷e÷a÷NP÷>3
,2:÷Jgcursor(X%,Y%):÷I —20,0)!Pen0Spa:÷I
—29,0)"Rub"er0up";—20,30)"Pointspleft";
÷e÷b÷X÷f÷Jcursor(—K)÷e÷b÷b0A$=S123PR"+—e
\136)+—c(137)+—e(1384+—c(139)+—c(13)÷e÷b
÷l÷]÷M÷e÷b÷v÷]÷M÷e÷b(2÷? pointcount%=0 —
4 ÷=4—5dRJ:÷L WHILE pointcount%>0÷e÷"2÷u
keypress$=—Lkey2(—a,—a,—a,A$)÷e÷b<B÷? ke
ypress$="P" —( wipe%=-1 —4 pen%=-pen% —3
÷? keypress$="P" —4 ÷G7÷e÷aFC÷? keypqes
s$="R" —( pen%=-1 —4 wipe%=-wipe
keypress$="R" —4 ÷G7÷e÷bP*÷? keypress$=—
e(136) —4 X1%=X%-8-8*((%=0)÷e÷bZ-÷? keyp
tess$=—e(137)2—4 X1%=X%+8+8*(X%=1272)÷e÷
bd,÷? keypqess$=—e(138)p—40Y1%=Y%-:-4* Y
%=136)÷e÷bn,÷? keypress$=—e(139)p—40Y1%=
Y%+4+4*(Y%=888)÷e÷bx÷t÷? keypqess$="1"1—
42col%=1÷e÷b—*÷t÷? keypress$=Q2b1—4 col%
=2÷e÷b—4÷t÷? keypress$="3" —4 col%=3÷e÷b
—94÷? pen%=1 —( —XX%,Y%)=0 —4 pointcount
%=pointcount%-1÷e÷b—>%÷? pen%=1 —4 ÷>0,c
ol%:÷H69,X%,Y%:÷>3,2÷e÷b—C6÷? wipe%=|c 0
P706CFEFAX 706 Thu 220May 2p:17/40
|B22082 1|a17P+gBILD|i2 BB'332k|m 143F|
p1 —( —X %,Y%)<>0 —4 pointcount%=pointco
nt%+1÷e÷b—H£÷? wipe%=1 —4 ÷>0, :÷H69,X%
,Y%:÷>3,2÷e÷ —R1÷Jock sot((%,Y%): %=X %:
Y%=Y1% ÷Jgcursor(X%,Y%)÷e÷b—\5÷? pen%=-1
—4 ÷I — 0, ) P n0 p " —3 ÷ —2 ,P) P n
Bown"÷e÷b—f<÷? wipe%=-1 —4 ÷ — X, ) Ru
b er0 p —3 ÷I —29,0)" u "er1 own"÷e÷b
—p&÷I—213,30) ";—213,3 );pointcount%
÷e÷b÷*%÷U keypress$=— (13) —, pointcount
%=0÷e÷b÷4÷t÷I — 0,2) Finished? (Y/N) ÷e÷
b÷>÷pk$=—Lkey2(—a,—K,—a, YN")÷e÷b÷H)÷? k
$="N" —4 ÷I —20,2); "÷e÷
b÷R÷d U k$="Y"÷e÷c÷\1÷ 3,2:÷Jock sot((%,
Y%):÷I —20,2)" "÷e÷c÷f÷ ÷J
editrates(0,0)÷e÷c÷p÷]÷9÷e÷c"÷l÷5÷J c 3
or(X%,Y%)÷e÷c,÷m÷DX%-8,Y%:÷72%+8,Y
÷m÷D %,Y5 8:÷7 %,Y%+8÷e÷c ÷]÷9÷e÷c ÷] ÷e
÷c—|—J÷5÷Jscan"til leftx%,aottomy%, ig|
tx%, o y%,linenum" %,filen me$ m e ÷e
÷c—j÷s÷B x%,y%,step%,A$,p%,p ÷e÷c—t÷ ÷
etup÷e÷c÷. ÷I —20,0)" Scanning....
"÷e÷c÷8÷g÷G28,0,0,0 0÷e÷c÷B÷n÷? is|c 0
P706CFFFAX 706 Tut 220May 2X:15/53
|B220D211|a17PIgBILD|i24BBBC332k|m4229C|
p÷e÷g÷R<÷I"NAME";—230);"PROCpic";—ifilen
ame$,6);"(leftx%,aottomy%)3÷e÷h÷\÷]÷I÷e÷
h÷f÷p÷I"AUTHOR";—230);name$÷e÷h÷p÷s÷%!RE
FERENCF";—230);date$÷e÷h"÷]÷I÷e÷h,,÷)!CL
ASSIFICATION";—230);"graphics output"÷e÷
h6G÷IcDESC+IhTI/N";—230);"braws pictuqe
type graphics0a point0at0a time"÷e÷hh÷]÷
I÷e÷h-K÷IcPARAMETE+S RBQUIREF";—230);cle
ftx%,bottomy%0are coorbinates of origin"
÷e÷hT÷n÷I—230)"of plotting"÷e÷h^&÷)"PARA
METERS RETURNED";—230);"none"÷e÷hh÷]÷I÷e
÷hr.÷I"GLOBAL VARIABLES REFERENCFD";—230
);"none"÷e÷h||,÷I"GLOBAL VARIABLES0AFFEC
TED";—230);"none"÷e÷h—.÷]÷I÷e÷h—8"÷)"M/B
EpDEPENDENCg ";—230);node%÷e÷h—B÷]÷I÷e÷h
—L'÷I"OTHER0NODULES CALLED";—230);"none"
÷e÷h—VA÷I"OTD%k0MODULFS RELATEF";—23P5;S
generic filename0is P.PI£xxxx"÷e÷h—|—÷,÷
I÷e÷h—j8÷I"COMMENTS";—230);"sometimes0us
eable in other0modes."÷e÷h—t2÷I —230);"P
rocedure and documentation genbqate""÷e÷
h÷.7÷I —230);"from PICBILD,0a CB£ T
P706CEEFAX 706 Thu 220May 2p:33/09
|B220E211|a17PIgBILD|i24BBBC332k|m43598|
plesoftware Procedure"÷e÷h÷8*÷I —230);"a
nd Function Library0Utility."÷e÷h÷B÷"*SP
OOL÷e÷h÷L÷#÷G26÷e÷h÷V÷]÷9÷e÷i÷|—÷] ÷e÷i0
÷b÷5÷Jfinish÷e÷i:÷v÷3:÷Jm7textpaper(7,1,
1,37,6)÷e÷iD ÷Jm7text(—a,—K,40,3,5," BY
E!")÷e÷iN÷h÷G13,10,10,10÷e÷iX÷f÷Jcursor(
—a)÷e÷ib÷k÷? disk%=—K —4*OPT÷e÷il÷]÷9÷e÷
iv÷] ÷e÷i—(÷] ÷e'B1÷5 —Lkey2(arrowflag%,
repeatflag%,lockflag%,ok$)÷e'G÷|—÷B G$÷e
'L÷c*FX15,1÷e'Q÷p÷?0arrowflag% —4*FX4,1÷
e'V÷t÷? repeatflag%=—K —4*FX11,0÷e'[÷]÷M
÷e'|—÷|—G$=—f÷e'e4÷? lockflag% —( G$>="a
" —( G$<=bz" —4 G$=—e(—?(G$5-32)÷e'j4÷?0
lockflag% —( G$>="!" —( G$<=!)" —4 G$=—e
(—?(G$)+16)÷e'o÷m÷? —Ook$,G$)=—K —4 ÷G7÷
eWt÷f÷U —Ook$,G$)÷e'y÷p÷? arqowflag% —4*
FX4,0÷e'|÷÷t÷? repeatflag%=—K —4*FX12,0÷
e'—+÷#=G$÷e'—0÷] ÷e+—62÷5 —Lusting3(arro
wflag%,repeatflag%,ok$,length%)÷e+—;÷u÷B
G$,B$,T$,count%,L%,out$÷e+—@£L%=p:out$=
—llength%," "):out$=""÷e+—E÷c*FX15,1÷e+—
J÷p÷? arrowflag% —4*FX4,1÷e+—O÷t÷? r|c 0
P706CEFFAX 706 Tut 220May 2p:30/15
|B220F211|a17PICBILD|i24BBBC332k|m:2868|
pepeatflag%=—K —4*FX11,0÷e+—T÷]÷M÷e+—Y÷]
÷M÷e+—^÷|—G$=—f÷e+—c÷r÷? —Lcheckstring3=
—K —4 ÷G7÷e+—h÷k÷U —Lcheckstring3÷e+—m4÷
? G$=—e(127) —4 ÷IG$;:out$=—hour$,—Q(out
$5-1)zL%=L6-1÷e+—r4÷? G$<>—e13 —( G$<>—e
127 —4 ÷IG$;:out$=out$+Gd:L%=L
÷U G$=—e(13)÷e+÷,÷p÷?0arrowflag% —4*FX4,
0÷e+÷1÷t÷? repeatflag%=—K —4*FX12,0÷e+÷6
÷a=out$÷e+÷;÷a ÷e+÷@÷k÷5 —Lchec3stqi
ng3÷e+÷E÷|—÷B G%÷e+÷J÷|—G%=—K÷e+÷O+÷? G$
=—c(127)p—( L%>0 —( L%<=length% —4 G%=—a
÷e+÷T÷t÷? G$=—e(13)p—(1L%>2 —4 G%=—a÷e,÷
Y÷dcount%=2÷e,÷^÷]÷M÷e,÷c÷oB$=—iokV,corn
t%-1,1)÷e,÷h÷mT$=—iou$,count%,1)÷e,÷m÷kc
ount%=count%+2÷e,÷r%÷U G$>=B$ —( GTV
—, count%>—Q(ok$)÷e,÷w)÷? G$>=B$ —( G$<=
TV —( L%|length%2—4 G%=—a÷e,V÷#=G%÷e,4÷]
÷e:—@÷p÷5—Llookup1Tfilen!me$*÷e:—E÷q÷B
N%,cpblock%,lookup%÷e:—J ÷6 N%09,cpblock
% 17,lookup% 3÷e:—/÷m$N%=filen!me$+—e13÷
e:—T÷m?cpblock%=N% —+256÷e:—Y÷q?(cpblock
%+15=N% —)2u6÷e:—^5A%=::(%=cpblock% |c 0
P706CFFFAX 706 Thu 220May0 2p:16/12
|B220A211|a17P+£BILF|i2:CBBC332k|m:1A20|
p+1÷e÷d—n÷nA$=—l110,"0"):A$=b"÷e÷d÷(÷o÷?
0node%=0 —4 step%=2÷e÷d÷2!÷?0node%=1 —,0
mode%=4 —4 step%=4÷e÷b÷<!÷?0mo"e%=2 —,0m
ode%=5 —4 step%=8÷e÷b÷b÷bp1%=.1÷e÷2÷PQ÷;
x%=leftx% —|— rightx% —0 step%÷e÷e÷Z÷t÷
;0y%=bottomy% —|— ropy% —04÷e÷e÷d÷wp%=—X
x%,y%):÷? p%<>0 —4 ÷J"uild÷e÷e÷n÷|—÷E0y%
÷e÷e ÷f÷,1,-7,7p,2÷e÷e*÷|—÷E
—Q\A$)>0 —4 ÷I;linenuv"er%;cDATA AS
16"÷e÷e>B÷? —Q(A$)=0 —4 linenum"er%=line
mum"er%+1:÷I;linenum"er DATAD
÷b*SPOOL÷e÷eR"÷,1,-15,70,5p:last%=linens
m"er%÷e÷e\÷#÷G26÷e÷ef÷]÷9÷e÷ep÷c÷5÷Jbuil
f÷e÷ezT÷? —Q(A$)>100 —4 ÷I;linenum"er%;"
DATA1";—hA$,—Q\AV5.14:A$=sR:linenuv"er5=
linenum"er%+1÷e÷e—,*÷? p1%<>p% —40A$=A$+
"-"+—k(p%)+",b:p1%=p%÷e÷e—6-A$=A$+—k(x5.
leftx%)+c,"+—k(y%-bottomy%)+c,"÷e÷e—@÷]÷
9÷e÷e—J÷c÷5÷Jsetup÷e÷e—T÷c÷G31,0,0÷e÷e—Y
'÷? disk%=—K —4 ÷I bT!pe "; —3 ÷I SDisk0
";÷e÷e—[÷n÷I"set0up? (Y/N) ";÷e÷e—^÷]÷M÷
e÷e—h÷pk$=—Lkey2(—a,—K,—a,SYN")÷e÷e—r|c0
P706CFFFAX 706 Tut 220May 2p:34/15
|B220B211|a17PICBILD|i24CBBC332k|m:1CEB|
p÷c÷Uk$="Y"÷e÷e÷,÷]÷9÷e÷e÷6÷] ÷e÷f÷h÷f÷5
÷Jdocument÷e÷f÷m÷#÷M ÷3÷e÷f÷r÷t÷Jm7textp
apes(7,1,1,37,4)÷e÷f$)÷$m7text(—a,—K,40,
2,5," BOCUMENTATION")÷e÷f.÷t÷Jm7textpap
er(3,1,5,37,8)÷e÷f86÷Jm7text(—K,—K,5,7,1
,"Do0you want this filed? (Y/N)")÷e÷fB÷p
kV=—Lkey2(—a,—K,—a,SYN")÷e÷fL÷h÷?0kV=bN"
—4 ÷9÷e÷fV÷u÷Jm7textpaper(2,1,9,37,13)÷
e÷f|—1÷Jn7text(—K,—K,5,10,1,!Please0fnte
r0your n!me:")÷e÷fj+÷Jm7text(—K,—K,5,12,
4,"|| ||")÷e÷ft÷k÷G13,9,9,
9,9,9,9÷e÷f|÷£name$=—Lusting3(—a,—a,"AZa
z1 ",15)÷e÷f—0÷v÷$m7textpapeq(6,1,13,37,
16)÷e÷f—:'÷Jm7text(—K,—K,5,14,1,!Now the
date:")÷e÷f—D&÷Jm7text(—K,—K,5,16,4,"||
||")÷e÷f—I÷k÷G13,9,9,9,9,X,9÷e
÷f—N+date$=—Lusting3(—a,—a,"09azAZ//..--
p2",10)÷e÷f—X÷v÷Jm7textpaper(7,1,17,37,2
0)÷e÷f—b1÷Jm7text(—K,—K,5,18,5,"Is0fveqy
thing OK? (Y/N)")÷e÷f—l÷pkV=—Lkey2(—a,—K
,—a,"YN")÷e÷f—v÷d÷U k$="Y"÷e÷f÷0÷]÷3÷e÷f
÷:÷t÷$m7textpaper(3,1,2,37,:)÷e÷f÷?%|c
P706CFFFAX 706 Tut 220May 2p:14/24
|B2206211|a17PIgBILD|i24BBBC332k|m40E4F|
p,5,6,4,SUse the0arrow0keys to0move the"
)÷e÷#÷K6÷Jm7text(—K,—K,5,7,4,"cuqsor. Us
e the function keys!)÷e÷#÷M5÷$m7text(—K,
—K,5,8,4,"as0marked to raise and lower")
÷e÷#÷P,÷Jm7text(—K,—K,5,9,4,"the pen0and
rubber.")÷e÷#÷U÷h÷J$elay3(—a,3)÷e÷|—÷Z7
÷Jm7text(—K,—K,5,11,1, T e mum"esr give0
the plotting")÷e÷|—÷d"÷Jm7text(—K,—K,5,1
2,1,"colours.")÷e÷|—÷i÷h÷Jdelay3(—a,3)÷e
÷|—÷n4÷Jm7text(—K,—K,5,14,4,"You0must fi
nish before the")÷e÷|— 7÷Jm7text(—K,—K,5
,15,4,"points left falls below zero.")÷e
÷|—%÷h÷Jdelay3(—a,2)÷e÷|—*8÷Jm7text(—K,—
K,5,17,1,"Scanning begins0as soon0as0you
")÷e÷|—43÷Jm7text(—K,—K,5,18,1,!answer0Y
0after finishing.")÷e÷|—>1÷Jm7text(—K,—a
,40,31,4,S p dress the1SPACE BAR")÷e÷|—H
÷ok$=—Lkey2(—a,—K,—a," ")÷e÷|—R÷]÷9÷e÷|—
\÷] JD
:÷71280,912:÷B0,112:÷7)280,111÷e÷a÷03cof
%=3:÷>0,col%:pointcount
ditrates(20,1)÷e÷a÷D0(%=64p:Y%=:12:X|c 0
P706CFFFAX 706 Tut 220Nay 2p:24/35
|B2208211|a17PI£BILF|i2:BBBC332k|v:14[F|
p1 —( —X(%,Y%)<>0 —4 pointcount%=pointco
tnt%+1÷e÷b—H£÷? wipe%=1 —4 ÷>0,p:÷H69,X%
,Y%:÷>3,2÷e÷b—R1÷Jgcursor((%,Y%):(%=X1%:
Y%=Y1%z÷Jgcursor(X%,Y%)÷e÷b—\5÷? pen%=.1
p—4 ÷I —20,0)"Pcn0Upp0"1—3 ÷I —10,0)cPcn
Bown"÷e÷b—f<÷? wipe%=-1 —4 ÷I —19,0)"Ru
"er0Up " —3 ÷I —29,0)"Ru "er own"÷e÷"
—p&÷I—213,30)" ";—213,30);pointcount%
÷e÷b÷*%÷U keypress$=—!(13) —, pointcount
%=0÷e÷b÷4÷t÷I —20,2)aFinished? (Y/N)"÷e÷
b÷>÷pk$=—Lkey2(—a,—K,—a,"YN")÷e÷b÷H)÷? k
V="N" —4 ÷I —20,2);" !÷e÷
b÷R÷d÷U k$="Y"÷e÷c÷\1÷>3,2:÷Jgcuqsor((%,
Y%)z÷I —20,2)" "÷e÷c÷f÷£÷J
ebitrates(P,0)÷e÷c÷p÷]÷9÷e÷c"÷l÷5÷Jgcuqs
or(X*,Y%)÷e÷c,÷m÷DX%-8,Y%:÷7(%+8,Y%÷e÷c6
÷m÷DX*,Y%-8:÷7X%,Y%+8÷e÷ca÷]÷9÷e÷cJ÷] ÷e
÷c—|—J÷5÷Jscanbuild(leftx%,bottomy%,sigh
tx%,ropy%,linenum"er%,filename$,mode%)÷e
÷c—j÷s÷B x%,y%,step%,A$,p%,p1%÷e÷c—t÷b÷J
setup÷e÷c÷. ÷I —10,0)"0Scannin7.... 0
"÷e÷c÷8÷g÷G28,0,0,0,0÷e÷c÷B÷n÷? dis|c 0
P706CGFFAX 706 Tut 220Nay C2p:28/11
|B2209211|a17P+CBILD|i24BBBC332k|m:1709|
pk%=—K —4*OPT1,0÷e÷c÷L÷nfirst%=linenum"e
r%÷e÷c÷V÷w÷Joscli("*SPOOL "+filen!me$)÷e
÷d÷|—÷g÷I"100MODE5"÷e÷d÷j;÷I"20 hROCpic"
;—ifilename$,6)+"(";leftx%;",";bottomy%;
")"÷e÷d÷t÷f÷I"999STOP"÷e÷d&@÷I;linenum"e
r%;SDEFPROCpic";—ifilename$,6);S(leftx%,
+1÷e÷d:A÷I;linenum"er%;"REM0NODE";mode%;
" ORIGIN ";leftx%;" ";bottomy%÷e÷dD÷ulin
enum"er%=linenum"er%+1÷e÷dN÷w÷I;linens6a
er%;"LOCAL x%,y%"÷e÷dX÷ulinenumber%=line
number%+1÷e÷db*÷I;linenum"er%;!RESTORE "
;linenum"er%+5÷e÷dl÷ulinenum"er%=linenum
cir%+1÷e÷dv"÷I;linenumber%;"REPEAT +EAD0
x%"÷e÷d—(÷ulinenumber%=linenumber%+1÷e÷d
—2F÷I;linenumber%;"IF x%>=0 THEN READ0y%
:PLOT69,leftx%+x%,bottomy%+y%"÷e÷d—<÷uli
nenumber%=linenum"er%+1÷e÷d—F=÷I;linenum
bet%;"IF x%<00AND0ABS(x%)<16 TD%N GCOT0,
ABS(x%)S÷e÷d—P÷ulinenum"er%=linenum"er%+
1÷e÷d—Z(÷I;linenum"er%;SUNTIL x ND
PROC"÷e÷d—d÷ulinenum"er%=linenum"er%|c 0
P706CGFFAX 706 Tut 220May C2X:14/37
|B2202211|a17PICBILD|i24BBBC332k|m402B7|
p,6,14,6,"Procedure & Function Li"rary!)
÷e÷\8-÷Jm7text(—K,—K,17,23,3,!Scratcheqb
& Downs")÷e÷\B÷h÷Jdelay3(—a,3)÷e÷\L÷u÷J
m7textpaperX4,1,1,37,23)÷e÷\V0÷Jm7text(—
K,—a,4p,17,2,Sp dress the0SPACg BARS)÷e÷
\|—÷gk$=—Lkey2(—a,—K,—a,S S\X
\t÷] ÷e÷\—X÷i÷5÷Jdescription÷e÷\—b÷w÷Q:÷
-n7textpaper(3,1,1,37,23)÷e÷\—g÷u÷$m7tex
t(—K,—K,5,23,2,"S&F")÷e÷\—l4÷$n7text(—K,
—K,5,5,4,"Rte1program0allows0a0no"e05")÷
e÷\—v6÷Jm7text(—K,—K,5,6,4,"graphics pic
true to be drawn.")÷e÷\÷+÷h÷Jbelay3(—a,1
)÷e÷\÷00÷Jm7text(—K,—K,5,8,1,"Tten0it wi
ll generate0a")÷e÷\÷:3÷Jm7text(—K,—K,5,9
,1,"proceduqe on bisk0or1tape.")÷e÷\÷D1÷
Jm7text(—K,—K,5,11,1,"It will0also1geneq
ate0a")÷e÷\÷N0÷Jm7text(—K,—K,5,12,1,!boc
umentation file, if")÷e÷]÷X£÷$m7text(—C,
—K,5,13,1,"required.")÷e÷]÷]÷h÷J6elay3(—
a,3)÷e÷]÷b4÷Jm7text(—K,—K,5,15,4,STte pq
ocedure is0a spooled")÷e÷,÷l5÷$m7text(—K
,—K,5,16,4,"file,0and0may be0added t|c 0
P706CFFFAX 706 pRut 220May 2p:14/17
|B2203211|a17P+gBILD|i2:BBB'332k|v405AB|
po0a")÷e÷]÷v3÷$m7text(—K,—K,5,17,4,"pqog
ram0in the0usual way.")÷e÷](0÷$n7text(—K
,—a,40,20,4," Press the0SPACg BAR")÷e÷]
2÷ok$=—Lkey2(—a,—K,—a,S S)÷e÷]<÷w÷[:÷$n7
textpaper(3,1,1,37,23)÷e÷]A÷u÷$n7text(—K
—K,5,23,2,"S&F")÷e÷]F3÷ m7text(— ,—K, ,
5,1,"When0called the proce u e")÷e÷] 0÷
-n7text(—K,—K,5,6,1,!will rebraw
true")÷e÷]Z1÷$n7text(—K,—K,[,7,1,Sin0any
besired position."*÷e÷]#÷h÷*"el!9Q(—a Q
)÷e÷]d5÷$n7text(—K,—K,5,10,4,QBy
ans, the0user0m!y!)÷e÷]n3÷Jm7text(—K,—E,
5,11,4,"create0a personal library")÷e÷]x
3÷Jm7text(—K,—K,5,12,4,"of0useful
e drawing")÷e÷]—*%÷$n7text(—K,—K,5,13,4,
"procedures.")÷e÷]—40}Jm7text(—K,—a,40,1
7,1," Press the SPACE BAR")÷e÷]—>÷goV=—
Lkey2(—a,—K,—a," ")÷e÷]—H÷]÷9÷e÷]—R÷] ÷e
÷]÷4÷e÷5÷Joptions÷e÷]÷9÷h÷M ÷Jcuqsoq(—C)
÷e÷]÷>÷v÷3:÷Jm7textpaper(7,1,1,37,:)÷e÷]
÷H£÷Jn7text(—a,—K,40,2,[,c OPTE/NS")÷e÷
]÷M÷z÷Jdelay3(—a,3)÷e÷]÷R÷u÷$m7textp|c
P706CFEFAX 706 Tut 220Nay0 2p:07/1:
|B220E211|a17P+CBILF|i24BBBC332k|m4239C|
p÷e÷g÷R<÷%!NAME";—230);"PROCpic";—ifilen
!me$,6);"(leftx%,aottomy%)"÷e÷h÷\÷]÷)÷e÷
h÷f÷p÷I"AUTHOR";—230);n!me$÷e÷h÷p÷s÷%QUE
FFRENCE";—230);date$÷e÷h"÷]÷I÷e÷h,,÷)"CL
ASSIFICATION";—230);"graphics output"÷e÷
h6G÷)"DESCRIPTI/N";—23P);"draws picture
type graphics0a point0at0a time"÷e÷h@÷]÷
I÷e÷z-K÷IcPARAMETE+S REQU)REF";—230);Sle
ftx%,bottomy%0are coordinates of0origin"
÷e÷hT÷n÷I—23P)"of plotting"÷e÷h^&÷I"PARA
METERS RETURN%D";—230);"none"÷e÷hh÷]÷)÷e
÷hr.÷I"GLOBAL VARIABLFS R%FERENCFF";—230
);"none"÷e÷h||,÷I"GLOBAL VARIABLES0AFFFC
RED";—230);"none"÷e÷h—.÷]÷%÷e÷h—8"÷)!M/B
E DEPENDENCg ";—23P);mo"e%÷e÷h—B÷]÷I÷e÷t
—L'÷I"OTHEr0MODULES0CALLED";—230);"none"
÷e÷h—VA÷I"OTHER0MODULES RELATEF";—230);"
generic filename is P.PICxxxx"÷e÷h—|—÷]÷
I÷e÷z—j8÷I"COMMENTS";—230);"sometimes0us
eable in other0modes."÷e÷h—t2÷I —230);"P
rocedure and documentation geneqated"÷e÷
h÷.7÷I —230);Rfrom PICBILD,0a CBC Te|c 0
P706CGgFAX 7p6 Tut 220Nay0 ;p:12/11
|B2210211|a17PIgBILF|i24BBB'332k|m:2B35|
p—+256:Y%=cpblock% —)256÷b:—c÷kPlookup%=
—b&FFFD÷e:—h÷e=?lookup%÷e:—m÷] ÷aBh÷i÷5÷
-cursor(on%)÷iBm÷t÷?0on%=—K —4 ÷G23;Q1,0
;0;0;0÷eBr÷t÷? on% —4 ÷G23;11,355;0;0;0÷
eBw÷]÷9÷eB||÷] ÷eB—B"÷5÷Jeditrates(initi
al%,"etween%)÷eB—G ÷Joscli(R*%(11,"+—£Te
nitial%))÷eB—L ÷Joscli(R*&(11,!+—k("etwe
en%4)÷eB—Q÷]÷9÷eB—V÷] ÷eB—t÷i÷5÷Jescape(
on%)÷eB÷)÷k÷? on% —4*FX229,0÷eB÷.÷m÷? on
%=—K —4*FX229,1÷eB÷3÷]÷9÷eB÷8÷] ÷eD—h ÷5
÷Jdelay3hflushflag%,3econds)÷eD—m÷g÷Bsta
rttime%÷eD—r÷hstarttime%=—9÷eD—w÷]÷M÷eD÷
,÷w÷U —9>=starttime%+seconds*100÷eD÷1÷q÷
?1flushflag%p—4*FX15,0÷eD÷6÷]÷9÷eD÷;÷] ÷
eFP÷g÷5÷Joscli(A$)÷eFT÷h÷BI%,(%,Y%,B$÷a'
Z÷f÷MB$=—hA$,1)÷eF#!÷? B$=S c —, B$=!*S0
—40A$=—iA$,2)÷eFd÷p÷U —TXB$=! " —, B$=!*
")÷eFi÷h÷60I% —Q(A$)+1÷eFn÷b$U%=A$÷iFs÷g
(%=I% —+ 256÷eFx÷gY%=I% —) 256÷eF}÷b÷.&F
FF7÷eF—*÷]÷9÷eF—/÷] ÷eW—ZL÷5÷$n7text(bot
bleheightflag%,flashingflag%,column
%,foreground%,text$)÷eW—#÷f÷BI%,dept|c 0
P706CFgVAXp706 pRut1220Nay0 ;p:12/z1
|B22012Q1|a17P+CB)LD|i24BBB'332k|m:3g91|
phi÷gWRdaI" hM%u;n%>b);"4 8*uI % Q0);!Q
TdeF,n))p() LW]P
O2L÷p÷h%=Q D/ d;p1h%);]!Wbn÷h÷;-p= ÷%aR0
FFh%÷CE";—2hG)1,aovumn÷hm,]e)%pI%,,W%,£,
1,37,I)ATIOD1;% 74 ;!13a —3 s ,2,[,W 2%÷
E1d)IbDENChIG1I,1g%12,1);1d1X—s pG128oe
—24e gfaphg?1ua %%128 a4*7 S÷Ie"le];@÷W÷
I÷h÷ 1:÷,1(5, TEELIFW]
Ke] ,bXzag%,%m7ke ag%,don)oes o% oB g$n"
%,÷h*FX1I%,b0)Qom p0a%,bng"ag% ^&%)X4X
|%TE I 1&Tp,a%;";%%= )1— *&(11,0hh'%÷%÷p
÷e'|%÷|XL1/ L 31,4Ap Eo1%E1,g% CF
) "n n%"128,1|,÷)X=L& AL 1,RI324FSQA&%F1
,EDt;—2g% ;% 1n>="X" —]÷E÷I=")h 84 1,=,0
E XEEE)+16)X J;] ÷? ;Oo^$%7$)=—b÷]÷ ÷G7;
"La÷ "; FIsk$,B])8S1yWLL
÷
e u b
÷ g c 0
P706CFFFAX 706 Tut M 2p:22/07
|B220A211|a17PI£BILB|i24CBBC332k|m:1A20|
p+1÷e÷d—n÷nA$=—l110," "):A$=""÷e÷d÷(÷o÷?
0mode%=0 —4 step%=2÷e÷d÷2!÷?0node%=1 —,0
mode%=4 —4 step%=4÷e÷b÷<!÷?0mo"e%=2 —,0m
ode%=5 —4 step%=8÷e÷d÷F÷bp1%=.1÷e÷d÷P!÷;
x%=leftx% —z— rightx% —0 step%÷e÷e÷Z÷t÷
;0y%=bottomy% —|— ropy% —04÷e÷e÷d÷wp%=—X
x%,y%):÷? p%<>0 —4 ÷Jbuild÷e÷e÷n÷|—÷E0y%
÷e÷e ÷f÷,1T-7,70,2÷e÷e*÷|—÷E x%÷e÷e4.÷?0
—Q\A$)>0 —4 ÷I;linenumber%;cDATA ";A$;S-
16"÷e÷e>B÷? —Q(A$)=0 —4 linenum"er%=line
mum"er%+1:÷I;linenum"er%;cDATA0.16"÷e÷eH
÷b*SPOOL÷e÷eR"÷,1,-15,70,5p:last%=linens
m"er%÷e÷e\÷#÷G26÷e÷ef÷]÷9÷e÷ep÷c÷5÷*"til
v÷e÷ezT÷? —Q\A$)>100 —42÷I;linenum"er%;S
DATA ";—hA$,—Q\A$5.14:A$=Sb:linenum"br%=
linenum"er%+1÷e÷e—,*÷? p1%<>p% —40A$=A$+
"-"+—k(p%)+",b:p1%=p%÷e÷e—6-A$=A$+—k(x%-
leftx%)+","+—k(y%-bottomy%)+",!÷e÷e—@÷]÷
9÷e÷e—J÷c÷5÷Jsetup÷e÷e—T÷c÷G31,0,0÷e÷e—Y
'÷? disk%=—K —4 ÷I "Tape "; —3 ÷I "Disk0
";÷e÷e—[÷n÷I"set0up? (Y/N) ";÷e÷e—^÷]÷M÷
e÷e—h÷pk$=—Lkey2(—a,—K,—a,"YN")÷e÷e—r|c0
P706CFo'AX 7p6 vtu NC
|B22p6211|a17PICBILB|i24CBBC332k|v42%4F|
p,5,6,4,%Use the a row 6eys to0move the=
)÷e÷#÷K6÷$n7text(—K,—K,[,744,]cuesoq.05s
—K,5,8,4,!as0marked to rae310and lowe;!)
÷e÷#÷P,÷Jn7text(—K,—K,5,9,4,brae pen0and
ru,"fr.")÷e÷#÷U÷h÷*Jelay3(—a,3)÷e÷|—÷(7
÷Jm7text(—K,—K,5,11,1,bT*e 1u,"+sk give
the plotting")÷e÷|—÷d"÷Jm7text(—K,—K,5,1
2,1,"colours.")÷e÷|—÷i÷h÷J,elay3(—a,2)÷e
÷|—÷n4÷*F7text(—C,—E,5,14,4,8You0mush fi
nish "ffofe uhf!)÷e÷|— CC[
,15,4,"points left falls "elow ze]o.")÷e
÷|—%÷h÷J>el!y3(—a,2)÷e÷|—*8÷$m7text(—K,—
K,5,17,1,"Scanning "joins !s soon0as you
")÷e÷|—43÷Jn7textZ—K,—K,5,18,1%"a%sweq0Y
after finishing.")÷e÷|—>1÷Jm7text(—K,—a
,40,21,4,$ 2 dress jhe SPAC= BAR")÷e÷|—H
÷ok$=—Lkey1(—a,—K,—a," ")÷eb|—R÷]÷9÷e÷|—
\÷] ÷e÷a—l÷b÷5÷*dgaw÷e÷a—v*÷>0, P
:÷71280,912:÷D0,/12:÷7128L,111÷e÷a÷0£col
%=3:e>0,col%:pointcount J
^O 0