LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 ?#GB* )AWEZP.LST&aI11-READ.ME.FIRSTh OIII.BLM.113085u' *SOS.DRIVER 8.#*SOS.KERNEL %,V.a*SOS.INTERPQ#D/~*AWEZP.TEXTtA  ;SYS.PRTp)5$ (AWEZP.AWm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   !"#,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L ҅ӥĥŰ+,0p 4 Ls Ls i )"|tȌs|st HH` MjH,: <J h̰ <h(ĥŐL i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  * @jIHh`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H h 4 `5!   4(P 4 4 `,g0L,10kH0 ԥ f0)ĭ9)9҅xf`7 I`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4+- ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aIн%y?8 Ѯ=Ѝ ȱЍ ЈЈ Щ` D (`  ).49<BGJOUX[bgknqvDʈ˫Lp;>6 Э7'í<έ'; 6`,HH)Ʉ ) hHhh`  `04:`xL6 67 7>н8 ѠШٕވH)=h#ЭЧȱ .CONSOLE"BRD)  D`Ȟhh`̱;` )8 9 :  8  (˥@ i  i:и i( 9И D E˫L <)<2DL8H\0`(d  $,($  ,IAttach.driver - Copyright 1983 by VMS, Inc. distributed by SoftLife, Inc. .ATTACH `e.PRINTER NQ12{ SCREEN DUMP ACTIVE 0,>!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>rh,oL`%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L> ,lXL ==L> ,lCL <=L> <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8   x) `(, [I꽌ɪVɭռYռY 꽌ɪ8``80^݌Hh  ݌      EEH    + / @ C H K R Y j o t | ,/DIMV_x}  RU>.FMTD1 LLLLLVLLLLLVLGLJLMLPLS             . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |   !%*/369<?BEJMRUX]`h  2;AGMS[fot|  <?BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw|eمАA萿 > `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot8*Ȅ F ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L> ֦ڱΑ0Б֤ l L p,:0 JfiΥiώJe΅Хiю@ F $p̑бʑΈ0 Б̱Αʈeمΐϑ̑ʈ`pJհ0`ՑʭrpȐ`=m@< F l AL> 8p,:Jf׮@$PA F $P@/A'ʤ˅΄ϥ̤ͅЄ F $̑бʑΈ0Ƞ l L> $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:0<<AAA@@8A@q==C)CB)B Crx 00 )ߍ:) J,P,QJ,R,S,T,V( > `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐҰةeÅÐн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p,}P-X~ F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~8 `)2ȱÍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L`" (~)y ~JJ* I `x|x|,`6`7`8`9`<ȭ=` * @jI`:ȭpȭqé,i0LÈ`,g HH`LL! l      5  Hdcefh&+si M0  h) `(" ( (È& LuL1upp<`uqq=L> vuL L L <Li Li ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` * IMk`4`5JНh    `HJН݌h Hh݌` JJJJ PF` ɠ&Lɠ%()G`0`L% hvV`)"#$ MׅP  SLtxөЩ(ԩѥѢ` `L L0ƓL` G` ѥ#H` vVH(h`ҠԢ` L` JLҥҩ0   Hh` G&x (I  ) (j` DÈ` ȑ`! (`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ƅԥDžծ*x (3'͝ )X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 *̍m%%#$  " ` L ``(%, ( *"),/\ad;Profile Driver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&% `)ߍQI "L), (3C> SHJI̍%*/4?CLNPRZfou{#-AOU]cgw  #(-25:B^finqtwzTQS DL+ EL+ F=Q ) ` ) `x,;05 3)(`.2`drtvxz|~ $),KP[qz} <uTJQ,90L@9EPI>L?@M,M,TJ$>H; ))hT PP0 VWTV>LX,M,;LXO)`LF,OL3,9P 9HL,::9IL==L3Qq,<0l,GP?,@0]@HL?SSUV;5POC)  BB C ) (`A" ( ÙA `Í7ȱÍ8`Q064e0> 5x ;(> Y`5O) )g PPL)` PPLy ),G-H<LyI YR`Q YL 8fTQ,60Lm MHLH`! (STq`A" (AÈȌP`7ȭ8` Q  T `ȩ`,60Lm HH`LG;We,9 : Y,:0xB)B TQ=>RQ  5)./ `,60LmUEąĩEŅT,N0sWH 8fTKT:,90-,;0 5x) ;()L: Yh,78LBUȥȑ`,60LmREąĩEŅ sHrH` (# ("-gg6`,6$ ( 0 i5)4./ . "B78N9:<?@ 6`% (6LmpW.PRINTER A *߄0.FMTD3 .FMTD4 HKNQT/2AFKPUZpuz  )3;@UZ_ery| "',?GJMXsz >@`bԥ8`` G` !Ɠ` G ` LƓ8`0ة ` HH`& (&;! ( Í"č#$ `+ (' (" (! (ȑ```.FMTD2 <ѩ ϩ - (A= NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= N8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eJx{~$/6;>AHOTW\_bx{'69@IPW]`cfjmpsx} #4:=Z_bpsv{ "%(+.2ADGx (̠%L#fowz*13579;=?ACFNWaehmpx "'+@\mrv{#&+25FKQT\adgjmry~8`AB*0 B8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx (̠`x (̠` [   `L `` ``I FF )54`x* ,< ʝ88 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*:1ߠ*x (,< K 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt `` LLɠ8`ΛLL渠`0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`X٠ŠҠî!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECé@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5 ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`FХ+jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J>  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ堠󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L ) SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2%H H @`)h8`  HШБˆeЅАѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJ騩  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` SOS NTRPs1BLsL-xL~xLjyLyL2|LY|L|L|Le{L{L{L{LzLzL@{LP{L{L{L|L |L|L|LA~LU~L^{LwQusnssPLtLt ;*(|@΍ߞJBITڌ*xY6YsB_>3F b$9ˉ?$^V`ZRybÇԮSͰͰ lllllllllllllllla^^^^^^^hhhHH``8Zv[vvv vZ[``)s svLw`)ssvL&whhhhhhHH`tststt`tststP tt`hvhvhh h h  vvh)s1 svhhh) $v v vHH`hhh))Z[L} }    ~HH`* |8  }L} |`|` } }` }`8\] ~ h|vvv v`|svLwsvsL&wsvW|vX|vvv vV|`V|}|sv~|v|vvv v`}|svLwsvL&whhhvhvhvhvhhvvh)ssvhhh vHH`hhhhhi thht thsthhhtt FvHH` s` `svL&wLysv{v{vvv v{`{{sv{v{vvv v`{svLwsvL&wsv{v{vvv v{`{|sv|v thj thh t thsth   hht t t.tU t8\Z][TZ[ te t tt e    FvHH`(LzLyhhh th th thjw w`svywyw w w w ww ww w t t t t`hhhyhyhhTy y xHH` yyy yy y  `tstty ty tt`svL&whhh th ths x yHH`}x|x yx|x`|x tsvzxv{xv}xȘvv v txx`xxhhsvhvhvhhvv vHH`svywyww ww w}xw w w w v`# Fv`vvv cv`v Fv`hhhhwwhhjjjjwjvj vLw wvsw }x|xHH`wswsw w`hhhhhhUsȑȭsȭsȭsȭsȭsȭsȢs y s }~)yL!&X(E'+@FGH{|}~ @ Ev0vDvvLQv1vEv `uv Fv`|v Fv`nsPnsPv`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv` ts;ttttt ts?tt@ttt tss18tAttBttst t St8tLbut~sts tt tt t tttL ctDta s5sLub s&sLuA ssLu  s StLu CtЫsvv cv xPRSTUVWXYZ[\]^_`abcdefghijklmnopqr t.CONSOLE.GRAFIX.PRINTER.RS232.D?tt%t.t5tsss`sss`s+s&s!ss0ss0``tstt`tҰt ̮tssssssssst9tt:tttA'rFͰͰͰͰͰͰͰNj䋂 Y.D1/SYSTEM.PASCALg.D1/SYSTEM.MISCINFO<Put Pascal system disk in built-in drive. Press RETURN.!?_ @`檥HHL펭kmhjhkhlhmXk&ljȑlLjjlLQjlLLװwvwvLVL{ he`zhea{zHzHL he`heaHHLhh a `&L揥`a lhezheHzHLXX{0{wvz{LLV^__`XȱY`ȱL+ XYXYXXYL XYXYX步kg\8孅\]\)\]H\H0X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LXeXYL iIiIi挥IiIiƌ8別剰 ` gf!ffgff8fg8&&`ffgff&&`hhhh 挥IiIiHHLhhhh 挥HHLhvhwhxhyz{Ey0y{)zx!{0wEȩLLshh0HHLIiIiHHLhvhwhhevewHHLhIihIiHHLhvhwhh8vwHHLgfff fefgegfgffff`hh0 hhLΌhh"IiIiIiIi lHHLHHLfgLX&XeYei揭W8XYL XiXYL hvhwv&whxhyy8\v\]w]8\Z][L\xȥ]xL ņhvhwhxhyv&wyZxȥ[xZevZ[ew[8\Z][LL ņhvhwwZvȥ[vLhvhwwvZȱv[mmvLhlhlhhLhvhwhevvhewwwHvHLhhhvhwhevvhewwwvLkmhjhkhlhm Lɢhvhwhh%wH%vHLhvhwhhwHvHLhhIHIHLXXhhQX0XŏoXf0bXE0XRXŎIE8XveawvHvHL冠Xw e`veawhvhvL冠X e`eaHHL𨭙whvhwȱvHvHLhvhwhxhyyvxȥwxLȱXȘ vX)XYXHXHXevXYL ȱX khjhkjHjHLȱXvevevlPe`fQeag fHfHL Pe`fQeagfi fggHfHL gPe`fQeag hfhfLX  eg`edfaeeg fHfHL冠X  `edfaeegfi fggHfHL冠X  eg`edfaeeg hfhfL冠Xw e`HHXYp X lLhh)X0 eXXYLeTveUwUwv8vXwvYL HHLXHXHL飨RHRHL gRe`fSeag fHfHL Re`fSeagfi fggHfHL gRe`fSeag hfhfLèPHPHL g\R]S]S_\ȥ]Z[[ )z RPRRSQRRQ RȥRi fL XaXYX `&a` `a`RdSeSedvȱdevd`ȱ`Zȱ[`XiXYXiXY HH LURSTUVWRmvmwwyz{{|}}}|Fxy exxx&yvexxweyyxȩxxixyzxȱzxȱzxȱzxziz{|i|}Г\]\8\]SU T쀍VW@RRSTUVARARWXYZ[ 8 8 ť 8i杩村ƝRSTbVcWXYZd[e\Rح)pRSERRSTUVARX8  W8LZW RSUTVW@RRSTVXWRHH LRUSTUWVR3vRRvjjj)*R`p|}hh &hezheHzH}H|He|HHLh~hh|h}hzh{{zȱz~80 iff| ==HHLhvhwh~hh|h}| x%vvy%ww~80vwwvxyyxi v&wx&yhzh{{zȱzxI%vyI%wzȥzLhhh ~he~Ȅ Ȅvl %~8~e~ h9 0 ʚL %~~ hI9ʚL %~0~ hʚL|v|z}{zve|ʥ~z{Ɵ,0 2) LҰ0 2)HHL8w#0 xyzL]Fxfyfzzzvxyzz aLvɀ牢L(xyvxIxyIiyxxHyHLhh' HHHHLHHHH0 2)LҰ? w֢| Lw}v |  Lv Ȗv|L^LILhhhh:ɀ ,IiIi&lh{hzhyhx Y xHyHzH{HL Y LLv ȖwLi ћ Lw8}8eP&$0 LhhLҰwe}8eL^iL^挅@Fxfyfzeee~ffffإ Lr % a `v Ȗ| Ȗ U LvE|v|w&}0  F2)2LҰv L}x ~8&&&&&&&~ȥ~ ; % a `v Ȗ| Ȗ U LvE|v|w}M0 2)LҰ FL }| L}wL w0 2)LҰL v 5Li| }8wei L i8~yyzzv`v Ȗ| ȖvIvL2v Ȗ| Ȗ UL˛w} Lɛ|LS}%v0tn50h0 2)XLҰw } $Lɛ}v| Ś L ^%!0~0500 2)LҰ L [Fxfyfzf{F~fff8{zy~`| Ù`v|`4) ``5)@v|v`0  F2)hhLҰ` {ezeyexe~ a ` 8{zy~x4) ` ; a `w}"$x~yzŀ {Ł|8`w}w}x~x)@ L94)  L90 2)hhLҰ`0!ƍL`&&&0 ƃƃ`\0 2)hhhhLҰ40$494) 0-L™"L™&% 8`$ `Vvvv`w8}Iȥ}v Ì665``ō0 2)bENŃ ƃƌ!Ffff 5&Ō0*0  F2)hhLҰ0 2)`Ń 0"kgffff惩ŃO0 2):46vlhh0jH*vjHHHl`w $x$y $z}J`} $~ $ $vLח$xp$~P!0 2)hhLҰx)x~)~y̢|8`$~ $$`|)@0 2)п)8`0戨L 0 8`hh •v h0 LE LElnLdLj/ L 8L •v hI=+ L •v襀I= ƀ LȄHHLhhhhh*68jh*v #n0 2)LҰ%n HHLHHLh)vhh)hvL nhxhyhvhwEy0wyvx/1'w0+!hvhwhvhwHHLhHHL%nHHLhhh ~hxe~ |ŀ8~e|vl8 nXLLL=LN   Faf`LM hxhyhvhwXYwy`LvxvwxyaLL Lwyhxhyxyxyhvhwvwvwvxx ȱvxvx L})L8|~}L~) w~fjv|) y|f}jx8xvyz{{HzHz{{HzHzw9ޓz{9ߓ{{HzHz{v {HzHHxiHLHHLHHLV??zF~H~HLX hh&ņL0eeƆL򆥆8儅ņ 8刪8刪ƄLhh&eȹ~Ȅh)1~)wf~jjj)?vńevw9ܒ hHHLhHHL @hhHHHHh|h}h~hABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v``| Ȗv Ȗw?}:w}NE||0vEvvv|)0L Lv $| v| w}L5)@ w}Lwv0|0X ?lhzhhhTLsUwT8vUwv8vXȥwYzT VL SRSLȱ yxȱyxL`x8xyx8xyx zxб wvȱwvЗLCQHPH PȱPPQL RhPhQL9 RSwR8vSwv^ȱv_ȱv\ȱv]X i RHLj RwRvȱRwVv ΫwWvVwWWURTȱRUWYRXȱRYRRRSL ӯsPQvȑ RȥST^xȥ_xȥ\xȥ]xx\y]^_WVW8\Z][LlXz C ~ƆSRSLtȱ ȱņڠRRL Xz CL Xz CPQȑL XzX )XY  ~0 LOXz L ~8~}8|~}~L~L8~lm8 ƁPȹPȹPȹPȹPȹPȹPȹP Ym~Lhl w~iviwY8vvXwvYU~iTiURSy8xyRER`hh )Lhh ΫLhhw vwLehhWwVvWw]}\|]}XiXYv8zvwv8zvw8vv~wv~\ť~8~8~~ȥ~))i )HHl0 ~8~8\~ȥ]~8~Ə8 ƏL to continueeHH LsL審L審pX8XYL審 L審 L審 L審 L審 L寢hhhh漥HHHH ~x -x 楽HH`Y|{{{-x-x2|e{{{ `hhLHHLLȰLhh nHHLhh nLhhɀ A~L n10 @{LȅɥHHHH jyL |L string; 0wk_strg2: string; 0wk_str255: str255; 0wk_integer: integer; 0wk_char: char; 0ok: boolean; 0in_count: integer; 0i,j,k,l: integer; 0txtline: string; 0txtlen: integer; 0inpath: string; 0buffer: h no greater than 80 chars, } { } {$list-} (uses plutil, plutil2, dirstuff, sosio; ( (type str255 = string [255]; 0 (var wk_string: string; 0wk_strg1: program awezp; {Applewriter files to EZP/AppleWorks format AMB 08-09-89} { } { Assume lpi = 6, cpi = 10, and pw = 102 (Normal Qume settings), } { AppleWriter line lengtsuvwxyz{|}~HEADER1 HEADER2 xxO^7x x x ` x `8\] 6L*`8Z[0[HZHHH ~xZ[``i`iHhHliHhHlhhh|h}he||he}}hhɀ HH}H|H U~L nHH}H|H10 P{L wL yL) |L) {L) |L) hhhhL:B~ L򆥉}zL~? |$RќĆL||}z{Lv ɳ 6L| ɳ|}zЬ{~  6L򆤀+8 Ɛ x Lس``  x x ` x `8\] 6L*`8Z[0[HZHHH ~xZ[``i`iHhHliHhHlhhh|h}he||he}}hhɀ HH}H|H U~L) nHH}H|H10 P{L) wL) ||he}}hhɀL" n10LTv <=TU~ L򆥉}zL~? |$RќĆL||}z{Lv ɳ 6L| ɳ|}zЬ{~  6L򆤀+8 Ɛ x Lس``  {L |L L򆥏HHHH}H|H{HzHyHxH~ |LL |L򆥏HHHH}H|H{HzHyHxH~ zL~ zL`hhL`hhhhLhhhhhhL~[Z[h))hhxhyhzh{0Lh0{h|h}he packed array [1..512] of char; 0bufflen: integer; 0buffindex: integer; 0recread: integer; 0outpath: string; 0master: file; 0outfile: file; 0out_buff: packed array [1..512] of char; 0out_index: integer; 0answer: char; 0us_token: string; 0bs_token: string; 0ibs: integer; 0pm: integer; 0cr: boolean; 0prev_cr: boolean; 0cj: boolean; 0rj: boolean; 0prev_bm: integer; 0prev_tm: integeror: Invalid IO_METHOD parm'; -wk_str2 := concat ('I/O method passed = "',IO_METHOD,'".'); -wk_str3 := 'Fix the calling program, please.'; -wk_str4 := 'Press RETURN to exit program.'; -write_error (wk_str1, wk_str2, wk_str3, wk_str4, 9[chr(13)], wk_ch, 1); 0end; -{endif} *until (i = 0); end; begin upperstr (IO_METHOD); *upperstr (PATHNAME ); *blank0 (IO_METHOD); *blank0 (PATHNAME ); *if (IO_METHOD = 'REWRITE') or (IO_METHOD = 'RESET') -then *else begin -wk_str1 := 'Procedure OPEN er*curs_at_eol: boolean; procedure BLANK0 (var strg: string); {Strip all blanks from string}  var i: integer; 8 begin repeat -if length (strg) = 0 then 0i := 0 -else begin 0i := pos (' ', strg); 0if i > 0 then delete (strg, ium: integer; *i: integer; *user: boolean; *wk_str1: string; *wk_str2: string; *wk_str3: string; *wk_str4: string; *wk_char: char; *ok: boolean; *x,y: integer; oard, wk_char); *write (chr (28)); *if wk_char = chr (27) -then -else ok := sos_terminate; *{endif} end; {terminate} procedure XOPEN (var FILENAME: FILETYPE; 4DISPLAY_NAME: string; 4IO_METHOD: string; 4var PATHNAME: string); var error_nedure terminate; var *wk_char: char; begin *write (chr (28)); *gotoxy (0, 12); *write (' Press RETURN To Terminate'); *gotoxy (0, 14); *write (' Press ESCAPE for the PASCAL System'); *read (keyb2aux_id: packed array [0..1] of 0..255; 2sto_type: 0..255; 2eof: packed array [0..3] of 0..255; 2unused: packed array [0..1] of 0..255; 2stuff: packed array [0..3] of 0..255; 2end; * {$list+} proccked array [1..144]of char; {359} 2end; {512} 0retcode: integer; 0filelist: packed record 2attr_byte: 0..255; 2file_id: 0..255; {341} 2cr: integer; {349} 2ut: variant; {Justify in Version 1} {351} 2justify: variant; {351} 2f4: packed array [1..15] of char; {355} 2fnull: pa {333} 2pi: integer; {335} 2li: integer; {337} 2sp: integer; {339} 2f3: packed array [1.. 8] of char; 2rm: integer; {325} 2tm: integer; {327} 2bm: integer; {329} 2pn: integer; {331} 2pl: integer; {129} 2bl: packed array [0..63] of char; {193} 2f2: packed array [0..63] of char; {257} 2lm: integer; {321} 2pm: integer; {323} tring; 0prtfile: file; 0prt_present: boolean; ( prtrec: packed record 2pd: string [63]; {001} 2tl: packed array [0..63] of char; {065} 2f1: packed array [0..63] of char; r; 0prev_pw: integer; 0plus: boolean; 0number: integer; 0aw_cpi: integer; 0aw_lpi: integer; 0aw_pw: integer; 0aw_ll: integer; 0aw_bl_imbed: string; 0aw_tl_imbed: string; 0prtpath: string; 0prev_prtpath:sar); -exit (program) -end; *{$iocheck-} *user := true; *if copy (PATHNAME, 1, 2) = '**' then begin -delete (PATHNAME, 1, 2); -user := false; -end; *x := -1; *curs_at_eol := false; *dot_text_code := false; *repeat -if user then begin 0wk_str1 := concat 0 ('Enter pathname of the ', DISPLAY_NAME, ': '); 0ok := prompt_for_filename (wk_str1, x, y, 6PATHNAME, curs_at_eol); 0if not ok then PATHNAME := ''; 0i := length (PATHNAME); 0if length (PATHNAME) > 0 then 3if PATHNAME [i] = '.'tring [1] := chr (wk_integer); *wk_string [2] := chr (227); *if prev_tm <> wk_integer then ezwrite (wk_string); *prev_tm := wk_integer; *wk_integer := bm + margin + extra; *if bl [0] <> chr(0) then begin -wk_integer := wk_integer + 1 - 4; -end; *wk*excess := pi - pl; *margin := excess div 2; *extra := excess - 2 * margin; *wk_integer := tm + margin; *if tl [0] <> chr(0) then begin -wk_integer := wk_integer + 1 - 2; -end; *wk_integer := 10 * wk_integer div aw_lpi; *wk_string := ' '; *wk_s-delete (wk_string, i, 1); -end *else plus := false; *number := intstr (wk_string); end;  procedure aw_vmargin; var excess: integer; *extra: integer; *margin: integer; *wk_integer: integer; begin *with prtrec do begin out_index] := txtlong [i]; *end; end; procedure aw_number (wk_string:string; var number:integer; var plus:boolean); var i: integer;  begin *delete (wk_string, 1, 3); *i := pos ('+', wk_string); *if i > 0 then begin -plus := true; d; *{endif} *ll := length (txtlong); *for i := 1 to ll do begin .if out_index = 512 then begin 1j := blockwrite (outfile, out_buff, 1); 1out_index := 0; 1for j := 1 to 512 do out_buff [j] := chr (0); 1end; .out_index := out_index + 1; .out_buff [; *ll: integer; *txtlong: str255; begin *txtlong := txtline; *ll := length (txtlong); *if ll > 1 then begin -if txtline [2] < chr (208) then begin 0eztext (txtline, txtlong); 0end; -{endif} -end *else begin -eztext (txtline, txtlong); -en-wk_str2 [2] := chr (length (txtline) + 128); -end *else begin -wk_str2 [2] := chr (length (txtline)); -end; *txtlong := concat (wk_str1, wk_str2, txtline); end; procedure ezwrite (var txtline: string); var i: integer; *j: integerth (txtline)) div 2; -wk_str2 [1] := chr (wk_integer); -end *else if prtrec.pm < 0 then begin -if prev_cr then begin 0end -else begin 0wk_integer := 0 - prtrec.pm; 0wk_str2 [1] := chr (wk_integer); 0end; -end; *if cr then begin nteger; begin *if rj then begin -justify (txtline, 'R', aw_ll); -end; *wk_str1 := ' '; *wk_str1 [1] := chr (length (txtline) + 2); *wk_str1 [2] := chr (0); *wk_str2 := ' '; *wk_str2 [1] := chr (0); *if cj then begin -wk_integer := (aw_ll - leng in ['A', 'a'] then begin 3close (FILENAME); 3exit (program); 3end; 0end; *until error_num = 0; *{$iocheck+} end; procedure eztext (var txtline: string; var txtlong: str255); var wk_str1: string; *wk_str2: string; *wk_integer: i0wk_str4 := ' or A to abort this program'; 0write_error (wk_str1, wk_str2, wk_str3, wk_str4, 3[chr(13),'q','Q','a','A'], wk_char); 0if wk_char in ['Q', 'q'] then begin 3PATHNAME := ''; 3error_num := 0; 3close (FILENAME); 3end; 0if wk_char4end; 0end; -if error_num <> 0 then begin 0user := true; 0get_pas_error (error_num, wk_str1); 0wk_str1 := concat (PATHNAME, ' is invalid. ', wk_str1); 0wk_str2 := 'Press RETURN to retry'; 0wk_str3 := ' or Q to quit with no file'; (FILENAME, PATHNAME); 0error_num := ioresult; 0if (error_num > 0) 0and (pos ('.TEXT', PATHNAME) = 0) then begin 4wk_str1 := concat (PATHNAME, '.TEXT'); 4reset (filename, wk_str1); 4error_num := ioresult; 4if error_num = 0 then PATHNAME := wk_str1; then delete (PATHNAME, i, 1); 0end; -if PATHNAME = '' then begin 0error_num := 0; 0writeln; 0writeln ('No file'); 0end -else if IO_METHOD = 'REWRITE' then begin 0rewrite (FILENAME, PATHNAME); 0error_num := ioresult; 0end -else begin 0reset _integer := 10 * wk_integer div aw_lpi; *wk_string := ' '; *wk_string [1] := chr (wk_integer); *wk_string [2] := chr (228); *if prev_bm <> wk_integer then ezwrite (wk_string); *prev_bm := wk_integer; *end; end; procedure check_bl (var txtline: string); var wk_string: string; *wk_left: string; *wk_center: string; *wk_right: string; *wk_pnum: string; *wk_delim: string; *i: integer; *hold_cj: boolean; *hold_cr: ; *if prtrec.li < 0 then prtrec.li := 0; *if prtrec.li > 2 then prtrec.li := 2; *wk_string := ' '; *wk_string [1] := chr (0); *wk_string [2] := chr (230 + prtrec.li); *ezwrite (wk_string); end;  procedure check_lm (var txtline: string); var stify} -rj := true; -txtline [2] := chr (224); -end; *{endif} *ezwrite (txtline); end; procedure check_li (var txtline: string); var wk_string: string; *i: integer; begin *aw_number (txtline, number, plus); *prtrec.li := number-txtline [2] := chr (225); -cj := true; -end *else if wk_line = '.lj' then begin -txtline [2] := chr (224); -end *else if wk_line = '.fj' then begin -txtline [2] := chr (223); -end *else if wk_line = '.rj' then begin -{EZP does not have right ju*wk_line := txtline; *for i := 2 to 3 do begin .if wk_line [i] in ['A'..'Z'] then 1wk_line [i] := chr (ord(wk_line[i]) + 32); .{endif} *end; {for i} *txtline := ' '; *txtline [1] := chr (0); *if wk_line = '.cj' then begin '; *wk_string [1] := chr (0); *wk_string [2] := chr (233); *txtline := wk_string; *ezwrite (txtline); end; procedure check_justify (var txtline: string); var wk_line: string; *i: integer;  begin *cj := false; *rj := false; eger; begin *aw_number (txtline, number, plus); *prtrec.bm := number; *if prtrec.bm < 0 then prtrec.bm := 1; *aw_vmargin; end;  procedure check_ff (var txtline: string); var i: integer; *wk_string: string; begin *wk_string := ' *ezwrite (wk_string); *hold_cr := cr; *cr := true; *hold_cj := cj; *cj := false; *ezwrite (txtline); *cj := hold_cj; *cr := hold_cr; *aw_vmargin; end; * procedure check_bm (var txtline: string); var wk_string: string; *i: int ' ' then wk_string[i] := wk_right [i]; -end; {for i} -txtline := wk_string; -prtrec.bl [0] := '*'; -translit (txtline, '#', wk_pnum); -end; *{endif} *wk_string := ' '; *wk_string [1] := chr (0); *wk_string [2] := chr (237); -justify (wk_right, 'R', aw_ll); -wk_string := ''; -justify (wk_string, 'L', aw_ll); -for i := 1 to aw_ll do begin 1if wk_left [i] > ' ' then wk_string[i] := wk_left [i]; 1if wk_center[i] > ' ' then wk_string[i] := wk_center[i]; 1if wk_right [i] >ne, 1, (i-1)); 3delete (txtline, 1, i); 3end; 0{endif} 0end; -{endif} -wk_right := txtline; -txtline := ''; -stripstr (wk_left); -stripstr (wk_center); -stripstr (wk_right); -justify (wk_left, 'L', aw_ll); -justify (wk_center, 'C', aw_ll); -if length (txtline) > 0 then begin 0i := pos (wk_delim, txtline); 0if i = 0 then begin 3wk_center := txtline; 3txtline := ''; 3end 0else if i = 1 then begin 3wk_center := ' '; 3delete (txtline, 1, 1); 3end 0else begin 3wk_center := copy (txtli 3wk_left := txtline; 3txtline := ''; 3end 0else if i = 1 then begin 3wk_left := ' '; 3delete (txtline, 1, 1); 3end 0else begin 3wk_left := copy (txtline, 1, (i-1)); 3delete (txtline, 1, i); 3end; 0{endif} 0end; -{endif} ); -if wk_delim [1] = txtline [length (txtline)] 0then delete (txtline, length (txtline), 1); -{endif} -wk_left := ' '; -wk_center := ' '; -wk_right := ' '; -if length (txtline) > 0 then begin 0i := pos (wk_delim, txtline); 0if i = 0 then begin boolean; begin *wk_pnum := ' '; *wk_pnum [1] := chr (09); *delete (txtline, 1, 3); *if allblank (txtline) then -prtrec.bl [0] := chr (0) *else begin -stripstr (txtline); -wk_delim := ' '; -wk_delim [1] := txtline [1]; -delete (txtline, 1, 1wk_string: string; *wk_sign: string; *wk_integer: integer; begin *wk_sign := ''; *aw_number (txtline, number, plus); *if plus then wk_sign := '+'; *if (number < 0) or (plus) -then prtrec.lm := prtrec.lm + number -else prtrec.lm := number; *if prtrec.lm < 0 then prtrec.lm := 0; *txtline := ' '; *wk_integer := 10 * prtrec.lm div aw_cpi; *txtline [1] := chr (wk_integer); *txtline [2] := chr (217); *ezwrite (txtline); *aw_ll := prtrec.rm - prtrec.lm; *if aw_ 3delete (txtline, 1, 1); 3end 0else begin 3wk_left := copy (txtline, 1, (i-1)); 3delete (txtline, 1, i); 3end; 0{endif} 0end; -{endif} -if length (txtline) > 0 then begin 0i := pos (wk_delim, txtline); 0if i = 0 then begin 3wk_center := txtl, 1); -{endif} -wk_left := ' '; -wk_center := ' '; -wk_right := ' '; -if length (txtline) > 0 then begin 0i := pos (wk_delim, txtline); 0if i = 0 then begin 3wk_left := txtline; 3txtline := ''; 3end 0else if i = 1 then begin 3wk_left := ' ';*if allblank (txtline) then -prtrec.tl [0] := chr (0) *else begin -stripstr (txtline); -wk_delim := ' '; -wk_delim [1] := txtline [1]; -delete (txtline, 1, 1); -if wk_delim [1] = txtline [length (txtline)] 0then delete (txtline, length (txtline)wk_center: string; *wk_right: string; *wk_pnum: string; *wk_delim: string; *i: integer; *hold_cj: boolean; *hold_cr: boolean; begin *wk_pnum := ' '; *wk_pnum [1] := chr (09); *delete (txtline, 1, 3); := number; *if number = 1 then begin -txtline := ' '; -txtline [1] := chr (0); -txtline [2] := chr (240); -ezwrite (txtline); -end; *{endif} end; procedure check_tl (var txtline: string); var wk_string: string; *wk_left: string; *e := ' '; *txtline [1] := chr (i); *txtline [2] := chr (218); *ezwrite (txtline); end; procedure check_sp (var txtline: string); begin *aw_number (txtline, number, plus); *if number < 0 then number := 0; *if number > 1 then number := 1; *prtrec.pn*if (number < 0) or (plus) -then prtrec.rm := prtrec.rm + number -else prtrec.rm := number; *if prtrec.rm < 0 then prtrec.rm := 79; *aw_ll := prtrec.rm - prtrec.lm; *if aw_ll > 80 then aw_ll := 80; *i := 10 * (aw_pw - prtrec.rm) div aw_cpi; *txtlin := 1; *prtrec.pn := number; *txtline := ' '; *txtline [1] := chr (number); *txtline [2] := chr (239); *ezwrite (txtline); end; procedure check_rm (var txtline: string); var i: integer; begin *aw_number (txtline, number, plus); prtrec.pm; -str (number, wk_string); -txtline := concat ('.lm+', wk_string); -check_lm (txtline); -end; *{end} *prtrec.pm := wk_pm; end; procedure check_pn (var txtline: string); begin *aw_number (txtline, number, plus); *if number < 1 then numberite (txtline); -str (number, wk_string); -txtline := concat ('.lm-', wk_string); -check_lm (txtline); -end +else if prtrec.pm < 0 then begin -txtline := ' '; -txtline [1] := chr (0); -txtline [2] := chr (222); -ezwrite (txtline); -number := 0 - *{EZP does not have paragraph indentation} *if number > 0 then number := 0; *wk_pm := number; *txtline [1] := chr (0); *if wk_pm < 0 then begin -number := 0 - wk_pm; -txtline := ' '; -txtline [1] := chr (number); -txtline [2] := chr (222); -ezwrber (txtline, number, plus); *prtrec.pl := number; *if prtrec.pl < 0 then prtrec.pl := 58; *aw_vmargin; end; procedure check_pm (var txtline: string); var wk_string: string; *wk_pm: integer; begin *aw_number (txtline, number, plus); end} *aw_vmargin; *txtline := ' '; *wk_integer := 10 * number div aw_lpi; *txtline [1] := chr (wk_integer); *txtline [2] := chr (226); *ezwrite (txtline); end; procedure check_pl (var txtline: string); var wk_string: string; begin *aw_numll > 80 then aw_ll := 80; end; procedure check_pi (var txtline: string); var wk_string: string; *wk_integer: integer; begin *aw_number (txtline, number, plus); *prtrec.pi := number; *if prtrec.pi < 0 then begin -prtrec.pi := 66; -end; *{ine; 3txtline := ''; 3end 0else if i = 1 then begin 3wk_center := ' '; 3delete (txtline, 1, 1); 3end 0else begin 3wk_center := copy (txtline, 1, (i-1)); 3delete (txtline, 1, i); 3end; 0{endif} 0end; -{endif} -wk_right := txtline; -txtline := ''; -stripstr (wk_left); -stripstr (wk_center); -stripstr (wk_right); -justify (wk_left, 'L', aw_ll); -justify (wk_center, 'C', aw_ll); -justify (wk_right, 'R', aw_ll); -wk_string := ''; -justify (wk_string, 'L', aw_ll); -for i := txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); -ibs := pos (bs_strg, txtline); *end; *i := pos (us_token, txtline); *{Expand underscore token by Apple Writer rules} *while (i > 0) do begin -txtline [i] := ' '; -i := pos (us_token,f "bs/underscore that some use} *bs_strg := concat (bs_token, '_'); *ibs := pos (bs_strg, txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); -ibs := pos (bs_strg, txtline); *end; *bs_strg := concat ('_', bs_token); *ibs := pos (bs_strg,-ibs := pos (bs_strg, txtline); *end; *bs_strg := concat (us_token, bs_token); *ibs := pos (bs_strg, txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); -ibs := pos (bs_strg, txtline); *end; *i := pos (us_token, txtline); *{Take care o string; * begin; ) i := pos (us_token, txtline); *{Take care of "bs/ut" that Al Bloom uses} *bs_strg := concat (bs_token, us_token); *ibs := pos (bs_strg, txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); ) *else begin -gotoxy (0, 22); -write ('"', txtline, '"'); -wk_char := err_23 ('Bypassed Apple Writer command.'); -gotoxy (0, 22); -write (chr (31)); -end; *{endif} end; procedure check_underscore; var i,j: integer; *bs_strg: ing = '.BM' -then check_bm (txtline) *else if wk_string = '.UT' -then check_ut (txtline) *else if wk_string = '.LI' -then check_li (txtline) *else if wk_string = '.PN' -then check_pn (txtline) *else if wk_string = '.SP' -then check_sp (txtline*else if wk_string = '.BL' then begin -{Store the first imbedded BL until first text or CR} -if in_count = 0 0then aw_bl_imbed := txtline 0else check_bl (txtline); -{endif} -end *else if wk_string = '.TM' -then check_tm (txtline) *else if wk_strelse if wk_string = '.PL' -then check_pl (txtline) *else if wk_string = '.TL' then begin -{Store the first imbedded TL until first text or CR} -if in_count = 0 0then aw_tl_imbed := txtline 0else check_tl (txtline); -{endif} -end '.PN' -then check_pn (txtline) *else if wk_string = '.FF' -then check_ff (txtline) *else if wk_string = '.LM' -then check_lm (txtline) *else if wk_string = '.RM' -then check_rm (txtline) *else if wk_string = '.PI' -then check_pi (txtline) *ng; begin; *if length (txtline) < 3 then newlen (txtline, 3); *wk_string := copy (txtline, 1, 3); *upperstr (wk_string); *if wk_string [3] = 'J' -then check_justify (txtline) *else if wk_string = '.PM' -then check_pm (txtline) *else if wk_string =*aw_vmargin; end;  procedure check_ut (var txtline: string); begin *delete (txtline, 1, 3); *blank1 (txtline); *newlen (txtline, 1); *prtrec.ut.word := txtline [1]; *us_token := txtline; end; procedure check_command; var wk_string: stricj; *cr := hold_cr; *aw_vmargin; end; * procedure check_tm (var txtline: string); var wk_string: string; *i: integer; begin *aw_number (txtline, number, plus); *prtrec.tm := number; *if prtrec.tm < 0 then prtrec.tm := 1; *'; -translit (txtline, '#', wk_pnum); -end; *{endif} *wk_string := ' '; *wk_string [1] := chr (0); *wk_string [2] := chr (236); *ezwrite (wk_string); *hold_cr := cr; *cr := true; *hold_cj := cj; *cj := false; *ezwrite (txtline); *cj := hold_1 to aw_ll do begin 1if wk_left [i] > ' ' then wk_string[i] := wk_left [i]; 1if wk_center[i] > ' ' then wk_string[i] := wk_center[i]; 1if wk_right [i] > ' ' then wk_string[i] := wk_right [i]; -end; {for i} -txtline := wk_string; -prtrec.tl [0] := ' txtline); *end; *bs_strg := ' '; *bs_strg [1] := bs_token [1]; *ibs := pos (bs_strg, txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); -ibs := pos (bs_strg, txtline); *end; *bs_strg := ' '; *bs_strg [2] := bs_token [1]; *ibs := pos (bs_strg, txtline); *while (ibs > 0) do begin -delete (txtline, ibs, 2); -ibs := pos (bs_strg, txtline); *end; end; procedure check_text; begin *in_count := in_count + 1; *gotoxy (30, 18); *write (chr(31)); *write (in_count:5); *chec -{endif} -if justify.byte [0] = 1 then begin 0txtline := '.lj'; 0check_justify (txtline); 0end -else if justify.byte [0] = 2 then begin 0txtline := '.fj'; 0check_justify (txtline); 0end -else if justify.byte [0] = 3 then begin 0txtline := '.cj'tline := concat ('.li ', wk_string); 0check_li (txtline); 0end; -{endif} -if justify.byte [0] < 5 then begin 0us_token := ' '; 0us_token [1] := ut.word; 0end -else begin 0us_token := '\'; 0justify.byte [0] := ut.byte [0]; 0ut.word := '\'; 0end;0txtline := concat ('.pn ', wk_string); 0check_pn (txtline); 0end; -{endif} -if sp > 0 then begin 0str (sp, wk_string); 0txtline := concat ('.sp ', wk_string); 0check_sp (txtline); 0end; -{endif} -if li > 0 then begin 0str (li, wk_string); 0tx('.bm ', wk_string); -check_bm (txtline); -if pm < 0 then begin 0str (pm, wk_string); 0txtline := concat ('.pm ', wk_string); 0check_pm (txtline); 0end; -{endif} -if pn > 1 then begin 0str (pn, wk_string); .pi ', wk_string); -check_pi (txtline); -str (pl, wk_string); -txtline := concat ('.pl ', wk_string); -check_pl (txtline); -str (tm, wk_string); -txtline := concat ('.tm ', wk_string); -check_tm (txtline); -str (bm, wk_string); -txtline := concat tring); -txtline := concat ('.lm ', wk_string); -check_lm (txtline); -str (rm, wk_string); -txtline := concat ('.rm ', wk_string); -check_rm (txtline); -aw_ll := rm - lm; -if aw_ll > 80 then aw_ll := 80; -str (pi, wk_string); -txtline := concat ('*i := 10 * aw_pw div aw_cpi; *txtline := ' '; *txtline [1] := chr (i); *txtline [2] := chr (216); *ezwrite (txtline); *txtline := ' '; *txtline [1] := chr (6); *txtline [2] := chr (229); *ezwrite (txtline); *with prtrec do begin -str (lm, wk_s := prtpath; *if prtpath > ' ' then begin -recread := blockread (prtfile, prtrec, 1); -close (prtfile) -end; *{endif} *{$iocheck+} end; procedure write_init; var wk_string: string; *i: integer; begin ; -write (chr(30)); -write ('Blank-RETURN for Apple Writer defaults.'); -close (prtfile) -end *else begin -prtpath := prev_prtpath; -end; *{endif} *gotoxy (0, 15); *xopen (prtfile, 'Apple Writer SYS.PRT file', 1'RESET', prtpath); *prev_prtpath2); *while i > 0 do begin ,wk_string := copy (wk_str2, 1, i); ,delete (wk_str2, 1, i); ,i := pos ('/', wk_str2); *end; *prtpath := concat (wk_string, 'SYS.PRT'); *{$iocheck-} *reset (prtfile, prtpath); *if ioresult = 0 then begin -gotoxy (0, 14)*if aw_tl_imbed > '' then begin -check_tl (aw_tl_imbed); -aw_tl_imbed := ''; -end; *{endif} end; procedure get_sysprt; var wk_string: string; *wk_str2: string;  begin *wk_string := ''; *wk_str2 := inpath; *i := pos ('/', wk_str; *write (chr(31)); *write (in_count:5); *wk_string := ' '; *wk_string [1] := chr (0); *wk_string [2] := chr (208); *ezwrite (wk_string); *if aw_bl_imbed > '' then begin -check_bl (aw_bl_imbed); -aw_bl_imbed := ''; -end; *{endif} imbed); -aw_bl_imbed := ''; -end; *{endif} *if aw_tl_imbed > '' then begin -check_tl (aw_tl_imbed); -aw_tl_imbed := ''; -end; *{endif} end; procedure check_crline; var wk_string: string; begin *in_count := in_count + 1; *gotoxy (30, 18)k_underscore; *{Check for unprintable} *for i := 1 to length (txtline) do begin .if ((txtline [i] < chr (32)) .or (txtline [i] > chr (126))) 1then delete (txtline, i, 1); *end; *ezwrite (txtline); *if aw_bl_imbed > '' then begin -check_bl (aw_bl_; 0check_justify (txtline); 0end -else if justify.byte [0] = 4 then begin 0txtline := '.rj'; 0check_justify (txtline); 0end -else begin 0end; -{endcase} -if tl [0] <> chr (0) then begin 0txtline := ''; 0newlen (txtline, 64); 0for i := 1 to 64 do txtline [i] := tl [i-1]; 0newlen (wk_string, 1); 0wk_string [1] := chr (0); 0i := pos (wk_string, txtline); 0newlen (txtline, i-1); 0txtline := concat ('.tl', txtline); 0check_tl (txtline); 0end; -{endif} -if bl [0] <> chr (0er, buffer, 1); )txtline := ''; )txtlen := 0; )newlen (txtline, 80); )while recread > 0 do begin; ,bufflen := 512 + scan (-512, <> CHR(0), buffer [512]); ,for buffindex := 1 to bufflen do begin; 0if buffer [buffindex] = CHR(13) then begin 3prev_c := 301 to 512 do out_buff [i] := chr (0); )get_sysprt; )wk_integer := 10 * prtrec.lm div aw_cpi; )out_buff [92] := chr (wk_integer); )write_init; )gotoxy (0, 18); )write (chr (31)); )write ('AppleWriter lines read = '); )recread := blockread (mast)out_buff [5] := chr (79); )write ('.'); )for i := 6 to 84 do out_buff [i] := '='; )j := 6; )for i := 1 to 15 do begin -j := j + 5; -out_buff [j] := '|'; )end; )write ('.'); )for i := 85 to 300 do out_buff [i] := chr (0); )write ('.'); )for iev_tm := 0; )prev_bm := 0; )init; )in_count := 0; )gotoxy (0, 11); )write (chr(30)); )write ('Loading EZP/AppleWorks header data'); )init_prt; )write ('.'); )out_index := 300; )for i := 1 to 4 do out_buff [i] := chr (0); 102; &bs_token := ' '; &bs_token [1] := chr (8); ¬ice ('AWEZP', 'AppleWriter to EZP/AppleWorks Conversion', .'08/89', '1989'); &prev_prtpath := ''; &repeat )cr := true; )prev_cr := true; )cj := false; )rj := false; )aw_tl_imbed := ''; )prt_buff [i] := chr (0); *i := blockwrite (outfile, out_buff, 1); *close (outfile, lock); *filelist.file_id := 26; *ok := sos_set_info (outpath, filelist, 15, retcode); *reset (outfile, outpath); end; ) begin; &aw_lpi := 6; &aw_cpi := 10; &aw_pw :=*if outpath <= ' ' then begin -wk_char := err_23 ('No output file.'); -close (master); -gotoxy (0, 0); -write (chr (28)); -terminate; -exit (program); -end; *{endif} *ok := sos_get_info (outpath, filelist, 15, retcode); *for i := 1 to 512 do ouminate; -exit (program); -end; *{endif} *outpath := concat (inpath, '.EZP'); *gotoxy (0, 7); *write (chr(31)); *write ('Blank-RETURN exits program'); *gotoxy (0, 8); *xopen (outfile, -'Output EZP/AppleWorks file', 'rewrite', outpath); (31)); *write ('Press RETURN to exit program'); *gotoxy (0, 4); *inpath := ''; *xopen (master,'input AppleWriter file', 'reset', inpath); *if inpath <= ' ' then begin -wk_char := err_23 ('No input file.'); -gotoxy (0, 0); -write (chr (28)); -ter write ('AWEZP: AppleWriter to EZP/AppleWorks Conversion'); gotoxy (68, 0); write ('AMB v.08/89'); *gotoxy (0, 1); *for i := 1 to 79 do write ('_'); *gotoxy (0, 20); *for i := 1 to 79 do write ('='); *gotoxy (0, 3); *write (chr/justify.byte [0] := 1; /for i := 1 to 15 do f4 [i] := ' '; /for i := 1 to 144 do fnull [i] := chr (0); *end;{with prtrec} end;  procedure init; var i: integer; begin *gotoxy (0, 0); *write (chr (28)); gotoxy (0, 0); [i] := chr (0); /for i := 0 to 63 do f2 [i] := ' '; /lm := 9; /pm := 0; /rm := 79; /tm := 1; /bm := 1; /pn := 1; /pl := 58; /pi := 66; /li := 0; /sp := 0; /for i := 1 to 8 do f3 [i] := ' '; /cr := 0; /ut.word := '\'; k_bl (txtline); 0end; -{endif} -end; {with prtrec} end; procedure init_prt; var i: integer; begin *with prtrec do begin /pd := '.PRINTER'; /for i := 0 to 63 do tl [i] := chr (0); /for i := 0 to 63 do f1 [i] := ' '; /for i := 0 to 63 do bl) then begin 0txtline := ''; 0newlen (txtline, 64); 0for i := 1 to 64 do txtline [i] := bl [i-1]; 0newlen (wk_string, 1); 0wk_string [1] := chr (0); 0i := pos (wk_string, txtline); 0newlen (txtline, i-1); 0txtline := concat ('.bl', txtline); 0checr := cr; 3cr := true; 3newlen (txtline, txtlen); 3if txtlen = 0 then 6check_crline 3else if txtline [1] = '.' then begin 6if prev_cr then 9check_command 6else 9check_text; 6{endif} 6end 3else 6check_text; 3{endif} 3txtline := ''; 3txtlen := 0; 3newlen (txtline, 80); 3end 0else begin 3txtlen := txtlen + 1; 3txtline [txtlen] := buffer [buffindex]; 3if txtlen > 79 then begin 6wk_strg1 := ''; 6wk_strg2 := ''; 6if txtline [80] = ' ' then begin 9end 6else begin 9i := 0; 9jby the /// EZ Pieces (AppleWorks) word processor. The resulting file, once added to the EZP desktop, may be printed by EZP/WP without change, or it may be edited first to take advantage of EZP/WP's special capabilities or to address the few AW/EZP differen, Virginia 24060 Office: (703) 231-7921 Home: (703) 951-2025 CIS: 76656,1514 BitNet: IRBLOOM @ VTVM1 @Copyright 1989 by Allan M Bloom All Commercial Rights Reserved Introduction .lj AWEZP transforms an Apple Writer source file into the format used .tl*Bloom**Apple Writer to EZP/AppleWorks * .bl*AWEZP*August 2, 1989*Page # * .cj AWEZP AppleWriter-to-EZP/AppleWorks Conversion Utility ALLAN M. BLOOM, PhD CDP Institutional Research, Virginia Tech, Blacksburg, VA 24061 2303 San Marcos Street, BlacksburgLLLLLLLLLLLLLLLLLLLLLLLLH : ַ޵BȭߵBhhӵԵ R Z<Bmߵ\LR˵̵.printere` ܫ XI볩쳢8 Laumer Holdings*Page #*January 20, 1984*0, 1983*LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLBȵC`,յp` 䯩 R-յյ`յ0` K *February 8, 1983**LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL2] := chr (255); )ezwrite (wk_string); )if out_index > 0 then begin ,j := blockwrite (outfile, out_buff, 1); ,end; ){endif} )close (outfile, lock); )wk_char := yn_23 ('Convert another file?', 'N'); &until wk_char = 'N'; &terminate; end. {awezp} FF} 2end /else if prev_cr then begin 2check_command; 2end /else begin 2check_text; 2end; /{endif} /end ,else begin /check_text; /end; ,{endif} ,end; ){endif} )close (master); )wk_string := ' '; )wk_string [1] := chr (255); )wk_string [)if txtlen > 0 then begin ,newlen (txtline, txtlen); ,prev_cr := cr; ,cr := true; ,if txtline [1] = '.' then begin /wk_string := txtline; /newlen (wk_string, 3); /upperstr (wk_string); /if wk_string = '.FF' then begin 2{EZP does its own last-page6else begin 9cr := false; 9check_text; 9end; 6{endif} 6txtline := wk_strg2;; 6txtlen := length (txtline); 6newlen (txtline, 80); 6end; 3{endif} 3end; 0{endif} ,end;{for buffindex} ,recread := blockread (master, buffer, 1); )end; 2 := txtline; @txtline := wk_strg1; @txtlen := length (txtline); @end; ={endif}  N | |__________________________________ | | | F: | AppleWriter lines read = 15 | | | | | E: | Blank-RETURN for AppleWriter defaults | | Enter pathname of the AppleWriter SYS.PRT file: .D2/SYS.PRT | | ile: .D2/TEST.EZP | | | D: | Loading EZP/AppleWorks header data..... | | | | ame of the input AppleWriter file: .D2/TEST | | | C: | Blank-RETURN exits program | | Enter pathname of the Output EZP/AppleWorks f AMB v.08/89 | |___________________________________________________________________| | | B: | Press RETURN to exit program | | Enter pathnars, the AWEZP screen appears. It looks like this: ___________________________________________________________________ | | A: | AWEZP: AppleWriter to EZP/AppleWorks Conversion sentially confined to one command screen. When first invoked, the program reminds you that it is copyrighted with all commercial rights reserved. You can pass it around, but please don't sell it without my permission. After the "shark repellent" screen clees. At this point, the conversion begins. An "odometer" ticks off the number of AW source file lines processed so you know something is happening. At the end of the conversion, the program offers to convert another file. Your interaction with AWEZP is esis picked up automatically and presented to you as the default. You may change it to another file name. If there isn't a SYS.PRT, you'll be asked for the pathname of a "SYS.PRT" file. If you specify none, you get the Apple Writer default page printing valuts and bytes in an EZP/WP document. AWEZP uses the Apple Writer "print command" (usually SYS.PRT) file to set up the EZP/WP commands for page layout. If a SYS.PRT file exists in the same directory as your Apple Writer source file, that print command file ou may direct the output file to any "block" device that you have -- floppy disk, hard disk, RAM disk, etc -- but the program will die if you direct the output to a "character" device like a printer or your console screen. There are a lot of unprintable big a default as the input pathname with ".EZP" added to the end. For example, if the input file were .D1/LETTER02, the default for the output file would be .D1/LETTER02.EZP You may accept that default by pressing RETURN, or you may enter another pathname. Yhat I can do about it and get back to you as quickly as possible. .cj Program Usage .lj AWEZP begins by asking for the pathname of the Apple Writer source file to be converted. The program then asks for the pathname of the converted, EZP/WP file, offerin_________________________________| .lm+3 .pm-3 A: The program identifies itself, plus author initials and revision date. B: Type the path name of the AW text file you wish to convert. You may edit the pathname (after the colon) as follows: ESC: No file. Pgm ends. RET: Accept bracket contents. L/R Arrows: Move cursor. Openapple-I : Toggle insert. Openapple-L-Arrow: Delete left. Openapple-R-Arrow: Del right. Openapple-ESCAPE: Default reappears. Up-Arrow: Fietween the CTRL-V delimiters, too. 2. UNDERLINING: I've found underlining to be a nuisance in converting between computers and programs and printers. AWEZP removes a variety of AW underlining commands -- straight underline token, underline token in combinon-printing characters in an AW file are simply deleted. That will leave some junk in the output file if you had anything between the CTRL-V delimiters that were actual printable characters. If I were a sweetie, I'd have had the program delete the stuff btions are due to my very own ignorance. Let's look at what I know to be the limitations of the program. 1. PRINTER-DIRECTING COMMANDS: AWEZP does not handle the CTRL-V sequences used to send special commands to a printer from AW. With few exceptions, all . Adding functions to the program will further slow it down. Maybe without adding to its usefulness. Other limitations are due to the basic incompatibilities between what AW can do and what EZP/WP can do. Damnlittle can be done about that. Yet other limitailt-in limitations. Limitations are separate from bugs. I try not to build in bugs. Some limitations are by my choice, either too much of a nuisance or too difficult to implement. Note that AWEZP is already no speed merchant because it handles many nuanceslp isolate it. I'll get back to you ASAP with a modified AWEZP program. I don't pretend AWEZP is perfect, but I really dislike thinking that it puts out stuff that EZP/WP cannot even load. .cj Program Limitations .lj As I said at the outset, AWEZP has bu stubborn sort, you can pass successively smaller subsets of the Apple Writer file through AWEZP until EZP/WP will load it. That will isolate the problem. Send me the AppleWriter file that caused the problem and any information you might have that would heion process worked, especially if you "zoom" the EZP/WP file. It may not go all that well. EZP/WP may tell you that it has "encountered errors" in trying to load the converted file. If so, you've found a bug in AWEZP. There is nothing for it. If you're thed line instead of going to SYSTEM REBOOT or to the Catalyst/Selector menu. .pm0 .lm-3 After you've exited AWEZP, your converted file(s) should be capable of direct loading into EZP/WP. If all goes well, you'll have a graphic vision of how well the converso convert another file. If not, it tells you that the job has been completed and invites you to press RETURN to clear the screen and exit the program. If you invoked the program from within the Pascal development system, you may ESCAPE to the Pascal commanmessages appear here. During conversion, AWEZP will display anything appearing to be an Apple Writer command that it does not recognize. It will be bypassed. You may want to note it. At the end of a conversion this message area asks if you would like tame, or you may press "spacebar-RETURN" to just get the AW defaults. F: This "odometer" counts the number of input file lines, exclusive of imbedded "dot" commands. The program is no speed merchant. It has too many things to do. G: Information and error some necessary housekeeping. This message just lets you know it hasn't died and gone away. E: If there is a file named SYS.PRT in the same directory as the Apple Writer file, it is offered as the default "print command" file. You may enter another file nle selection menu. C: The output file's path name defaults to the same as the input file's, with an "EZP" extension. If that is OK with you, press RETURN, else type in a different path name. Use the same editing commands as in A. D: The program is doing nation with a backspace, actual underscore character (_) in combination with a backspace. 3. FOOTNOTES: The program does not recognize the "PAREN LESS-THAN" and "GREATER-THAN PAREN" strings used to identify a page footnote. These will be passed to EZP/WP as is. 4. PAGE FORMATTING: AWEZP tries its best to create an EZP/WP file that will replicate the results of AW. In the realm of vertical page layout, AW is just screwy. My best efforts yield the same text that starts lower on an EZP/WP page than on an AW STARTUP --> .PROFILE/AWEZP/AWEZP.CODE .D1/SYSTEM.LIBRARY --> .PROFILE/AWEZP/AWEZP.LIB To install the system under "Catalyst," follow the instructions in the section titled "Installing Simple Pascal Programs." Briefly, 1. Select "Catalyst Edit"s an ".ff" at the end of the source file to eject the last page. AWEZP bypasses an ".ff" if it is the last thing in the AW file. .cj CATALYST INSTALLATION .lj Create a sub-directory .PROFILE/AWEZP and then copy the boot disk files .D1/SYSTEM.d. AWEZP assumes a platen width of 102 characters (8.5 inches at 12 cpi) and computes an EZP/WP right margin accordingly. It doesn't seem to hurt. 13. FORM FEED: EZP/WP automatically issues a form feed (new page) command after printing a document. AW need - .LM): I'm too lazy to rewrite all my useful string handling routines to handle "long" strings (Very different animals to Pascal), so AWEZP lops extra long lines to 80 characters. 12. PLATEN WIDTH: AW has no command corresponding to EZP/WP's "PW" commanommand, it issues an "IN 0" EZP/WP command. 10. COMMENTS: EZP/WP does not support non-printing comments in its documents. AWEZP bypasses "comment" lines -- anything starting with a dot (.) that it does not recognize as an AW command. 11. LINE LENGTH (.RM but it ignores them when it comes time to print the string. AW honors trailing blanks when it centers a string. No fix for that incompatibility. 9. PARAGRAPH MARGINS: EZP/WP does not support paragraph margins. When AWEZP encounters a non-negative ".pm" cs to appear right justified to EZP/WP. A "left justify" command is issued when an ".rj" is encountered to ensure any prior justification is cancelled. 8. CENTER JUSTIFICATION: EZP/WP looks like it honors trailing blanks in a string to be center justified, left margin of your console screen. 7. RIGHT JUSTIFICATION: EZP/WP has no counterpart for the AW ".rj" command. AWEZP assumes each right justified line is a date or return address line or something like that and outputs the line with enough leading blankve changed the minimum left margin, so everything will be shifted right on the EZP/WP screen. It doesn't hurt anything, but it looks yucky. Just delete the pair of offsetting "left margin" commands (openapple-D), and your deathless prose will return to the it knows is coming. Or has already come. If your AW file has the ".lm+" before the ".pm-" command, all you'll notice in EZP/WP is a pair of offsetting "left margin" commands (in zoom mode). If you reverse the order, however, EZP will panic and think you'nd "lm-5" pair will end it. EZP/WP would use a simple "IN 5" and an "IN 0" in that case. AWEZP covers as best it can. When it sees a negative ".pm" command, it issues the appropriate EZP/WP "indent" command, plus a "left margin" change to offset the ".lm+"ou like your paragraphs indented, you'll have to do it yourself in EZP/WP. 6. OUTDENTING (EZP INDENTING): AW does outdenting via a negative paragraph margin and an increased left margin. For example a ".pm-5" and "lm+5" pair will start it, and a ".pm 0" ae line is shorter than AW does. Apple writer counts the control characters in its "line length" calculation. You may find a line sufficiently shortened to have another word added in final printing. EZP/WP does not have AW's "paragraph margin" command. If ypage. The only "fix" is starting your printer a tad higher on the paper page when printing from EZP/WP. 5. PARAGRAPH FORMATTING: If you use a lot of underlining in AW, especially with the backspace character (to remove inappropriate blanks), EZP thinks th from the main menu. 2. Enter "1" to "Edit Catalyst Menu." 3. Arrow to highlight the menu entry you want the program to precede. 4. Press "A" to add a program entry. 5. Respond to the "Catalyst" queries as follows: _____________________________________________________________________ | | | | Display Name: AppleWriter to EZP | | | Interpreter Pathname: CATALYST/PASCAL | (A) equired intrinsics are in SYSTEM.STAR.LIB, both on side 2. .tl .ff .bl is written in Apple Computer's UCSD Pascal. It requires the special intrinsic units SOSIO, DIRSTUFF, PLUTIL, and PLUTIL2 in either the Pascal SYSTEM.LIBRARY or in its own program library. As supplied, AWEZP is the diskette's SYSTEM.STARTUP file, and all r the editor's main menu. .cj Distribution Disk .lj AWEZP is supplied as a two-sided boot disk. Booting side 1 results in a request for the Pascal system disk. Flip the disk over and press RETURN when side 2 is face up in the internal disk drive. AWEZPf all entries are correct, press "openapple-A" to accept the entries. Escape however many times are needed to get to the editor menu. 8. Select "Save the menu file" from the editor menu. 9. Exit to the Selector main menu by choosing "Quit Editing" from.............: .PROFILE | | CHARACTER SET file...................................: Press RETURN | | KEYBOARD LAYOUT file.................................: Press RETURN | |_____________________________________________________________________| 7. I | | PROGRAM file...............: .PROFILE/PROGRAMS/AWEZP/SYSTEM.STARTUP | | LANGUAGE file..................: .PROFILE/LANGUAGES/PASCAL/RTINTERP | | DATA prefix.................................ogram to precede. 4. Press "Control-I" to insert a program entry. 5. Type "AppleWriter to EZP" on the inserted line. 6. Respond to the Selector queries as follows: _____________________________________________________________________ | the section titled "Installing A Pascal Program." Briefly, 1. Select "Menu Editor" from the main menu. 2. Select "Edit the menu file" from the editor menu. 3. Arrow to highlight the folder you want to be in. The arrow to the menu entry you want the prARTUP --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.STARTUP .D1/SYSTEM.LIBRARY --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.STAR.LIB .D1/SYSTEM.MISCINFO --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.MISCINFO To install the system under "Selector," follow the instructions in TERPS file. You do not need to re- calculate the minimum load address. 8. Exit to the Catalyst main menu via entering option "7" .cj SELECTOR INSTALLATION .lj Create a PROGRAMS/AWEZP sub-directory and then copy the boot disk files .D1/SYSTEM.STCSPAR disk, the interpreter pathname is "RTPASCAL.1.1". Verify via other Pascal program menu entries. 6. If all entries are correct, enter "Y" to the final question. Press ESCAPE twice to return to the edit menu. 7. Enter option "5" to update the INP.CODE | | |_______________________________________________________________|_____| NOTE (A): If Pascal 1.2 is installed via "Super PMove", the interpreter pathname is "SOS.INTERP". If the Pascal Runtime Interpreter is installed from the GU Press RETURN | | | Prefix: Press RETURN | | | Max Files Allowed Open: 3 | | | Program Path: .PROFILE/AWEZP/AWEZ| | Extra Drivers: Press RETURN | | | Character Set Pathname: Press RETURN | | | Screen: Press RETURN | | | Keyboard: AWEZP AppleWriter-to-EZP/AppleWorks Conversion Utility ALLAN M. BLOOM, PhD CDP Institutional Research, Virginia Tce file lines processed so you know something is happening. At the end of the conversion, the program offers to convert another file. AWEZP August 2, 1989 Page 1 Bloom file name. If there isn't a SYS.PRT, you'll be asked for the pathname of a "SYS.PRT" file. If you specify none, you get the Apple Writer default page printing values. At this point, the conversion begins. An "odometer" ticks off the number of AW sour) file to set up the EZP/WP commands for page layout. If a SYS.PRT file exists in the same directory as your Apple Writer source file, that print command file is picked up automatically and presented to you as the default. You may change it to another etc -- but the program will die if you direct the output to a "character" device like a printer or your console screen. There are a lot of unprintable bits and bytes in an EZP/WP document. AWEZP uses the Apple Writer "print command" (usually SYS.PRTETTER02, the default for the output file would be .D1/LETTER02.EZP You may accept that default by pressing RETURN, or you may enter another pathname. You may direct the output file to any "block" device that you have -- floppy disk, hard disk, RAM disk,king for the pathname of the Apple Writer source file to be converted. The program then asks for the pathname of the converted, EZP/WP file, offering a default as the input pathname with ".EZP" added to the end. For example, if the input file were .D1/Loperly, please take the time to send me a note about it and a disk containing the offending document file. I'll see what I can do about it and get back to you as quickly as possible. Program Usage AWEZP begins by ases can not be translated to EZP/WP, either elegantly or at all. AWEZP is intended to give a good basic translation that should be sufficient for most purposes. If you find an Apple Writer document that does not convert to EZP/WP, or that does so imprmay be edited first to take advantage of EZP/WP's special capabilities or to address the few AW/EZP differences that this program does not handle. AWEZP doesn't do everything. EZP is a different program from AppleWriter, and some AW commands and featur AWEZP transforms an Apple Writer source file into the format used by the /// EZ Pieces (AppleWorks) word processor. The resulting file, once added to the EZP desktop, may be printed by EZP/WP without change, or it @Copyright 1989 by Allan M Bloom All Commercial Rights Reserved Introduction ech, Blacksburg, VA 24061 2303 San Marcos Street, Blacksburg, Virginia 24060 Office: (703) 231-7921 Home: (703) 951-2025 CIS: 76656,1514 BitNet: IRBLOOM @ VTVM1 Apple Writer to EZP/AppleWorks Your interaction with AWEZP is essentially confined to one command screen. When first invoked, the program reminds you that it is copyrighted with all commercial rights reserved. You can pass it around, but please don't sell it without my permission. After the "shark repellent" screen clears, the AWEZP screen appears. It looks like this: ___________________________________________________________________ | be bypassed. You may want to note it. At the end of a conversion this message area asks if you would like to convert another file. If not, it tells you that the job has been completed and invites you to press RETURN to clear the screen and emmands. The program is no speed merchant. It has too many things to do. G: Information and error messages appear here. During conversion, AWEZP will display anything appearing to be an Apple Writer command that it does not recognize. It will August 2, 1989 Page 2 Bloom Apple Writer to EZP/AppleWorks F: This "odometer" counts the number of input file lines, exclusive of imbedded "dot" coa file named SYS.PRT in the same directory as the Apple Writer file, it is offered as the default "print command" file. You may enter another file name, or you may press "spacebar-RETURN" to just get the AW defaults. AWEZP that is OK with you, press RETURN, else type in a different path name. Use the same editing commands as in A. D: The program is doing some necessary housekeeping. This message just lets you know it hasn't died and gone away. E: If there is . Openapple-L-Arrow: Delete left. Openapple-R-Arrow: Del right. Openapple-ESCAPE: Default reappears. Up-Arrow: File selection menu. C: The output file's path name defaults to the same as the input file's, with an "EZP" extension. Ifpath name of the AW text file you wish to convert. You may edit the pathname (after the colon) as follows: ESC: No file. Pgm ends. RET: Accept bracket contents. L/R Arrows: Move cursor. Openapple-I : Toggle insert | G: | Convert another file? (Y | N) --> N | |___________________________________________________________________| A: The program identifies itself, plus author initials and revision date. B: Type the = 15 | | | |===================================================================| | | Enter pathname of the AppleWriter SYS.PRT file: .D2/SYS.PRT | | | | | F: | AppleWriter lines read ... | | | | | E: | Blank-RETURN for AppleWriter defaults |-RETURN exits program | | Enter pathname of the Output EZP/AppleWorks file: .D2/TEST.EZP | | | D: | Loading EZP/AppleWorks header data.. | B: | Press RETURN to exit program | | Enter pathname of the input AppleWriter file: .D2/TEST | | | C: | Blank | A: | AWEZP: AppleWriter to EZP/AppleWorks Conversion AMB v.08/89 | |___________________________________________________________________| | xit the program. If you invoked the program from within the Pascal development system, you may ESCAPE to the Pascal command line instead of going to SYSTEM REBOOT or to the Catalyst/Selector menu. After you've exited AWEZP, your converted file(s) should be capable of direct loading into EZP/WP. If all goes well, you'll have a graphic vision of how well the conversion process worked, especially if you "zoom" the EZP/WP file. It may not go all that well. EZP/WP may tell you that it has "encoing via a negative paragraph margin and an increased left margin. For example a ".pm-5" and "lm+5" pair will start it, and a ".pm 0" and "lm-5" pair will end it. EZP/WP would use a simple "IN 5" and an "IN 0" in that case. AWEZP covers as best it can. We sufficiently shortened to have another word added in final printing. EZP/WP does not have AW's "paragraph margin" command. If you like your paragraphs indented, you'll have to do it yourself in EZP/WP. 6. OUTDENTING (EZP INDENTING): AW does outdentIf you use a lot of underlining in AW, especially with the backspace character (to remove inappropriate blanks), EZP thinks the line is shorter than AW does. Apple writer counts the control characters in its "line length" calculation. You may find a linal page layout, AW is just screwy. My best efforts yield the same text that starts lower on an EZP/WP page than on an AW page. The only "fix" is starting your printer a tad higher on the paper page when printing from EZP/WP. 5. PARAGRAPH FORMATTING: "PAREN LESS-THAN" and "GREATER-THAN PAREN" strings used to identify a page footnote. These will be passed to EZP/WP as is. 4. PAGE FORMATTING: AWEZP tries its best to create an EZP/WP file that will replicate the results of AW. In the realm of verticth a backspace. AWEZP August 2, 1989 Page 3 Bloom Apple Writer to EZP/AppleWorks 3. FOOTNOTES: The program does not recognize the o be a nuisance in converting between computers and programs and printers. AWEZP removes a variety of AW underlining commands -- straight underline token, underline token in combination with a backspace, actual underscore character (_) in combination wink in the output file if you had anything between the CTRL-V delimiters that were actual printable characters. If I were a sweetie, I'd have had the program delete the stuff between the CTRL-V delimiters, too. 2. UNDERLINING: I've found underlining ts of the program. 1. PRINTER-DIRECTING COMMANDS: AWEZP does not handle the CTRL-V sequences used to send special commands to a printer from AW. With few exceptions, all non-printing characters in an AW file are simply deleted. That will leave some juusefulness. Other limitations are due to the basic incompatibilities between what AW can do and what EZP/WP can do. Damnlittle can be done about that. Yet other limitations are due to my very own ignorance. Let's look at what I know to be the limitationtations are by my choice, either too much of a nuisance or too difficult to implement. Note that AWEZP is already no speed merchant because it handles many nuances. Adding functions to the program will further slow it down. Maybe without adding to its slike thinking that it puts out stuff that EZP/WP cannot even load. Program Limitations As I said at the outset, AWEZP has built-in limitations. Limitations are separate from bugs. I try not to build in bugs. Some limiThat will isolate the problem. Send me the AppleWriter file that caused the problem and any information you might have that would help isolate it. I'll get back to you ASAP with a modified AWEZP program. I don't pretend AWEZP is perfect, but I really diuntered errors" in trying to load the converted file. If so, you've found a bug in AWEZP. There is nothing for it. If you're the stubborn sort, you can pass successively smaller subsets of the Apple Writer file through AWEZP until EZP/WP will load it. hen it sees a negative ".pm" command, it issues the appropriate EZP/WP "indent" command, plus a "left margin" change to offset the ".lm+" it knows is coming. Or has already come. If your AW file has the ".lm+" before the ".pm-" command, all you'll notice in EZP/WP is a pair of offsetting "left margin" commands (in zoom mode). If you reverse the order, however, EZP will panic and think you've changed the minimum left margin, so everything will be shifted right on the EZP/WP screen. It doesn't hurt Press RETURN | | | Max Files Allowed Open: 3 | | | Program Path: .PROFILE/AWEZP/AWEZP.CODE | | |_______________________________________________________________|_____| ame: Press RETURN | | | Screen: Press RETURN | | | Keyboard: Press RETURN | | | Prefix: | | Display Name: AppleWriter to EZP | | | Interpreter Pathname: CATALYST/PASCAL | (A) | | Extra Drivers: Press RETURN | | | Character Set Pathnrogram to precede. 4. Press "A" to add a program entry. 5. Respond to the "Catalyst" queries as follows: _____________________________________________________________________ | | stem under "Catalyst," follow the instructions in the section titled "Installing Simple Pascal Programs." Briefly, 1. Select "Catalyst Edit" from the main menu. 2. Enter "1" to "Edit Catalyst Menu." 3. Arrow to highlight the menu entry you want the p CATALYST INSTALLATION Create a sub-directory .PROFILE/AWEZP and then copy the boot disk files .D1/SYSTEM.STARTUP --> .PROFILE/AWEZP/AWEZP.CODE .D1/SYSTEM.LIBRARY --> .PROFILE/AWEZP/AWEZP.LIB To install the sy13. FORM FEED: EZP/WP automatically issues a form feed (new page) command after printing a document. AW needs an ".ff" at the end of the source file to eject the last page. AWEZP bypasses an ".ff" if it is the last thing in the AW file. ong lines to 80 characters. 12. PLATEN WIDTH: AW has no command corresponding to EZP/WP's "PW" command. AWEZP assumes a platen width of 102 characters (8.5 inches at 12 cpi) and computes an EZP/WP right margin accordingly. It doesn't seem to hurt. Apple Writer to EZP/AppleWorks 11. LINE LENGTH (.RM - .LM): I'm too lazy to rewrite all my useful string handling routines to handle "long" strings (Very different animals to Pascal), so AWEZP lops extra ling comments in its documents. AWEZP bypasses "comment" lines -- anything starting with a dot (.) that it does not recognize as an AW command. AWEZP August 2, 1989 Page 4 Bloom ters a string. No fix for that incompatibility. 9. PARAGRAPH MARGINS: EZP/WP does not support paragraph margins. When AWEZP encounters a non-negative ".pm" command, it issues an "IN 0" EZP/WP command. 10. COMMENTS: EZP/WP does not support non-print to ensure any prior justification is cancelled. 8. CENTER JUSTIFICATION: EZP/WP looks like it honors trailing blanks in a string to be center justified, but it ignores them when it comes time to print the string. AW honors trailing blanks when it cenommand. AWEZP assumes each right justified line is a date or return address line or something like that and outputs the line with enough leading blanks to appear right justified to EZP/WP. A "left justify" command is issued when an ".rj" is encounteredanything, but it looks yucky. Just delete the pair of offsetting "left margin" commands (openapple-D), and your deathless prose will return to the left margin of your console screen. 7. RIGHT JUSTIFICATION: EZP/WP has no counterpart for the AW ".rj" cNOTE (A): If Pascal 1.2 is installed via "Super PMove", the interpreter pathname is "SOS.INTERP". If the Pascal Runtime Interpreter is installed from the GUCSPAR disk, the interpreter pathname is "RTPASCAL.1.1". Verify via other Pascal program menu entries. 6. If all entries are correct, enter "Y" to the final question. Press ESCAPE twice to return to the edit menu. 7. Enter option "5" to update the INTERPS file. You do not need to re- calculate the minimum load address. 8. Exit to Bootable AWEZP transforms an Apple Writer source file into the format used by the /// EZ Pieces (AppleWorks) word processor. The resulting file, once added to the EZP desktop, may be printed by EZP/WP without change, or it may be edited first to take adv WAP /// SIG PUBLIC DOMAIN LIBRARY 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 PDS NAME: AW to 3EZP by Bloom DISK ID#: 3BLM-11 BOOTABLE?: AWEZP August 2, 1989 Page 6 intrinsic units SOSIO, DIRSTUFF, PLUTIL, and PLUTIL2 in either the Pascal SYSTEM.LIBRARY or in its own program library. As supplied, AWEZP is the diskette's SYSTEM.STARTUP file, and all required intrinsics are in SYSTEM.STAR.LIB, both on side 2. ed as a two-sided boot disk. Booting side 1 results in a request for the Pascal system disk. Flip the disk over and press RETURN when side 2 is face up in the internal disk drive. AWEZP is written in Apple Computer's UCSD Pascal. It requires the speciale needed to get to the editor menu. 8. Select "Save the menu file" from the editor menu. 9. Exit to the Selector main menu by choosing "Quit Editing" from the editor's main menu. Distribution Disk AWEZP is suppli KEYBOARD LAYOUT file.................................: Press RETURN | |_____________________________________________________________________| 7. If all entries are correct, press "openapple-A" to accept the entries. Escape however many times arAWEZP/SYSTEM.STARTUP | | LANGUAGE file..................: .PROFILE/LANGUAGES/PASCAL/RTINTERP | | DATA prefix..............................................: .PROFILE | | CHARACTER SET file...................................: Press RETURN | |ne. 6. Respond to the Selector queries as follows: _____________________________________________________________________ | | | PROGRAM file...............: .PROFILE/PROGRAMS/it the menu file" from the editor menu. 3. Arrow to highlight the folder you want to be in. The arrow to the menu entry you want the program to precede. 4. Press "Control-I" to insert a program entry. 5. Type "AppleWriter to EZP" on the inserted li .D1/SYSTEM.MISCINFO --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.MISCINFO To install the system under "Selector," follow the instructions in the section titled "Installing A Pascal Program." Briefly, 1. Select "Menu Editor" from the main menu. 2. Select "Ed SELECTOR INSTALLATION Create a PROGRAMS/AWEZP sub-directory and then copy the boot disk files .D1/SYSTEM.STARTUP --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.STARTUP .D1/SYSTEM.LIBRARY --> .PROFILE/PROGRAMS/AWEZP/SYSTEM.STAR.LIB the Catalyst main menu via entering option "7" AWEZP August 2, 1989 Page 5 Bloom Apple Writer to EZP/AppleWorks antage of EZP/WP's special capabilities or to address the few AW/EZP differences that this program does not handle. AWEZP doesn't do everything. EZP is a different program from AppleWriter, and some AW commands and features can not be translated to EZP/WP,''''l/hZh[hhhhhuhno^alȑk)t\n]ok[HZH`pb.CONSOLExmkmk፴vwȑ୳୴`~}lec`^[X86.*'$"!^/h(h)hhhhhhh;h;; ;ȑ)H(H`"@/h(h)hhhhhh  ;)H(H` D/Copyright Apple Computer Inc. 1981'(),h*h+HH+H*H`;;ȑ)H(H`SROMIHGFEDB8652/h(h)hhhhhhhhh;h;hh;;h;h;; ;;ȑ;)H(H`B@742.,+(! r/h(h)hhhhhhh;h;hhh;h;;;; ;ȑ)H(H`;; ;ȑ)H(H`8430-*'%$ l/č>h(h)hhhhhhh;hhhhh;;;;;; ;ȑ)H(H`QA10-*'%$l/h(h)hhhhhhhhhh;;;h;h;;;;;;h;hhh;; /5h(h)hhhhhhhh;;h;hh;h;; ;ȑ)H(H`G0-+($"!`/h(h)hhhhhhhhhh;;;; ;;ȑ)H(H`+(%#"Z/h(h)hhhhhhhhhhh;h;;;; ;//ȡ ڏ/ڂ '...JanFebMarAprMayJunJulAugSepOctNovDecתP //ȡڏ////////Ч/S/P/|תP9//// s0 ;8L 8  AsciifileDatafile Binary Fontfile תP//ȡ ڏ/ڤ HFotofile BasicprogBasicdataWPfile Sosfile Type = 13Type = 14DirectoryתP//ȡ ڏ/ڂ 6RPS Data RPS IndexAFDiscardAFModel AFReptFMTScreenLibתPš[/"//////Q/P/پ/ˡ////P//Q/P/*ΪP/*>/*š[/*"/*/////*Q/P/*پ/ˡ/*///*P//Q/P?HUnknown Badfile Codefile Textfilê?Ƃ?PƂ?/QƂ?P/ƀ!nFq , //// / / / / /////ö,/ / /.CONSOLEתP/#/??/P/>/ٹ( V "$rrǕá;[ and move up and downצ selects, unselects gives directory infoƀá~˄ʂ> Ʉ+ߞ߂ ̀̂?Ƃ?Ƃ?צ is no longerƂ?#ƀצ selected.#ƀƀ š1ƀ̂?Ƃ?ƀ#Ƃ? $Ƃ?ƀGƂ?#ƀ #ƀfrom the list.ƀƀ////*&/Ɓ%/ƀEZP.LST :Pre-formatted version of the manual. On Side Two: Pascal program files for this program. either elegantly or at all. AWEZP is intended to give a good basic translation that should be sufficient for most purposes. On Side One: AWEZP.TEXT :Pascal Text sourcecode for AW to 3EZP. AWEZP.AW :AppleWriter formatted version of the manual. AWWTGD/h*h+hh/0h-h,+H*H`20'$"J/hhhhhh    eȄ HH`T/T>*.!f###'t'\(|((()4)++),P==@^RdH65H: Lx,-F--05$$`,F.= DOWN1 XDOWN2 lDOWN3 FTEXT PhFASCII FCHAR FCODE CONSBUFF; CONS procedure X_TO_Y (x: long_12; y: integer; var result: long_12); 3{Returns X to the Yth Power }  procedure OPEN (var FILENAME: FILETYPE; {FILENAME: Internal name of file} N{FILETYPE:User-defined data TYPE} N{ } procedure UPPERSTR (var str: string); 3{Change string variable to upper case }  procedure UPPER1 (var str: string); 3{Change string to mixed case } rs, or range of chars } 4 dest: string); {Dest chars, or range of chars } * {Transliterate chars in string } procedure UPPERCHR (var ch1: char); 3{Change char variable to upper case anks if lengthened } procedure NIBBLEX (inchar: char; var outhex: string); 3{Returns 2-nibble representation of char field } ( procedure TRANSLIT (var xstring: string; {String to be transliterated } 8source: string; {Source cha* procedure NEWLEN (var STR: string; {I/O string whose lgth is to be changed} 4LGTH: integer);{New string length. } 3{Change length of a string, pad with blt MI Last, Suffix format. } 4var out_name: string; {Last, First MI, Suffix format. } 4var out_last: string); {Last name. } 3{"First I Last, Suff" name to "LFIS" & "Last Name" } teger; 3{Integer from a numeric string }  procedure IOERROR (IO_ERR_NUM: integer; var IO_ERR_NAME: string); 3{Return the name of an I/O Error from its number } procedure LNAME (in_name: string; {FirsX4 (value : integer; var str : string); 3{Return hex representation of fullword } procedure INC (var counter: integer); 3{Increment a counter }  function INTSTR (strg: string): in3{End Include VARIANT} 3 function BASE_TEN (strg: string): integer; 3{Base-10 representation of a hexadecimal string }  procedure BLANK1 (var strg: string); 3{Strip double/lead/trail blanks from string }  procedure HEPUT 8$maKEYBOARDN$ FALSE 2TRUE H&NIL bMAXINT * BYTESTRELWORDSTREd@\ 3{  ival }  :'')PBBINTEGER xppREAL : CHAR  BOOLEAN v{ STRING 0 TEXT :$ INTERACT* INPUT &$inOUT] of 0..255); <3: (nybl: packed array [0..3] of 0..15); <4: (bit: packed array [0..15] of boolean); <5: (bool: boolean); <6: (octl: packed array [0..4] of 0..7); <7: (word: char); <8: (ch: packed array [0..1] of char); Fצ,PōצInvalid error codePT ɡI@ɡ#--(SOS)-U-P!--צ(SOS)-U-Pצ(SOS) צError not in tableP  ////.2/.P2צInvalid sys buffer parmPئDuplicate volume errorתPئNot a block deviceתPئ Invalid levelתPצInvalid bit map addressPf@Z6jV@,t`E6&n[zǀɄצSystem call errorP Pj V ead after endfileתPئFile position out of rangeתPئIllegal accessתPئUser buffer too smallתPצ File busyPئVolume not SOS or Apple-2תPצInvalid length in parm listPئOut of memory for sys bufferתPئBuffer table fullתPצles openתPצInvalid file reference noPئPath not foundתPئVolume not foundתPئFile not foundתPئDuplicate file nameתPצOverrun on volumePئDirectory fullתPئIncompatible file formatתPئUnsupported storage typeתPئRdPצInvalid byte countPtצInvalid block noP\צ Disk switchedPG .!gO9/@Ʉצ Device errorP PL v@ڹצInvalid pathname syntaxPئToo many char files openתPئToo many block fi+ t^G P1  ?ڹצInvalid request codePצInvalid status or control codePצInvalid control parm listPئDevice not openתPצDevice not availablePצResource not availablePצDevice write protecteal pathnameתPئNo room on disketteתPצUnit not onlinePئ No such fileתPئDuplicate pathnameתPئFile already openתPצ File closedP~ئBad input formatתPfئWrong disk formatתPMצDiskette write-protectedP-"ybF /qs  ڹצNo errorPצNo filename storage spacePئBad unit numberתPצIllegal operationPئIllegal directory specתPئUnit no longer onlineתPצFile no longer in directoryPئIlleg/-7-7ȡ38-8צ 12345678903 3  3//3-$--.///   /  š áK `צ0123456789ABCDEFPئ0000תP..ȡڕ(X ZڪP.á-á.77P+á77PšڪP/-0š-Ʉ11צ0123456789ABCDEF..á(11צ0123456789abcdef..á/-.--/ צ šצ š á for the file. } 4DISPLAY_NAME: string; {English title of for display } 4IO_METHOD: string; {Either RESET or REWRITE. } 4var PATHNAME: string); {In: Default PATHNAME or null} N{Out: Actual PATHNAME if OK. } -.-ȡ!2---2IIIׯ2צII2esqׯ2Esqׯ2ESQׯ2INCׯ2Incׯ2ATCׯ2DEDׯ2DEdׯ2EDDׯ2EdDׯ6[2P Q[ǡ