l *(cl()"E"()"H" clT2 "PLEASE ENTER STYLE SHEET NAME ON DISC DRIVE 'A' THEN PRESS ";fs< (fs) (8FpPpB (p),c(),f()'Pypfl"a:" Z VMd s(lfs)"" "ERROR: Can not find style sheet"  @ !n "i",#,lfsx , "" c() N "" x%()" "  ()(,,) " "  A  ,,",6,J,^,r,,,,,," "PAGE"     ?p&() p (p)p     "" "FRAME"   , >6f&() f (f)f   @ J "AT"   T I^x&() x xP (x)x   h Iry&() y yB (y)y   | # "WIDTH"    Iw&() w wB (w)w    # "HEIGHT"    Ih&() h hB (h)h    " "FILE"     f "I",#,f  #   "" pp N4&l   ff() ::0lc()c()f(): D tN () x X # b lfl  ,v c() fl fl fl n  fl  ) c() fl% fl pp Z+ "menu" chain to next program point  errorsA  , ,, ,*,4,>,H,R,\,f,p,z "NO FRAME";   "BAD FRAME VALUE";  "NO 'AT' "; !  "BAD 'X'-LOCATION "; !* "BAD 'Y'-LOCATION "; 4 "NO WIDTH"; > "INVALID WIDTH"; H "NO HEIGHT" ; R "INVALID HEIGHT"; \ "NO FILE"; f "BAD FILE"; p "NO PAGE"; z "BAD PAGE VALUE";  "ON LINE" ;  ();"!"   error handling 5      print pageA y "ERROR - NOTHING TO PRINT ON PAGE";p 4 cl "DO YOU WISH TO SEE TEXT ON SCREEN?"/  "PRESS S FOR SCREEN OR P FOR PRINTER" jku jk"" 5 jk"S" jk"s" fd  fd9 fd "PLEASE WAIT...PRINTING"  cl;$  p?. fd ()  () printer string8BLV initialise.`  p() (p)jt paste a file~ fr xl yl wd he.cyclxcly "i",#,f ,(cl)Vx(,w)l()|(,()l)ccl l -cc() cl  () ,  F|(,cl)cc(cl)l 1 ragged right margin, first step to justifyH(|(,)" " x(,)" ") w(," ") "" d0 (,l,)" " ll   w(," ")l  lw </ (,l,)" " ll 7(|(,wl)x(,l)2cc(wl)%< l l() P/F (,l,)" " ll <Px(,l)Z justify sectiond w(," ") 5n x(,)" " |(,()) n4xtw() l l() t , w(," ") l()  l l(), x(,)" " l() 0 (,l,)" " ll Hx(,l)" "|(,()l)ll x end of justify+ ()w " " ?x(,cl)|(,p()cl)(cl) clp ,! clyh (c()cf()f  ,% "" clcl $clcl () !"c()f() , #6 @ delayJ dl $cl