`L i=L\Ʃx ? Nٷ)i  ʭ?-ȱ lMUST BOOT FROM SLOT 6NO FILE RTSTRP.APPLE RTSTRP.APPLE   L$J) (jJJ>L "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E BBBLNz)BGBB'"GN" #RPASCALIOLONGINTICHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU "UW NRTSETMODE.CODEgQRTBOOTLOAD.CODEQSYSTEM.STARTUPozPFS2BME*SYSTEM.LIBRARYg1*+SYSTEM.MISCINFOE+-SYSTEM.CHARSETg-E RTSTRP.APPLEvg1Eb SYSTEM.PASCALvgbf HISTORY.TEXT{fSYSTEM.STARTUPg蠷SYSTEM.STARTUPOڣz~ ~ ~ DhFhzvɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" "?I(  8 `  ` x @ Nx .x- | d `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪ ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTTtI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &Z ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE> 6تP+,+,ȡ+++V 0 Z Zʎ^ Z) ><0l   ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@ ) Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F?  4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?OF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRCe*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXhhhhhhhhHH v # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8heheHHL<  B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p v hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh hehe)`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @'cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  Iif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^ JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8SETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#ihh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡLjB|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# BZOi?޽ CZ(k?7 DZCm?[ EZEn? FZGp? GZTr?  HZ s?yx IZ;t?hн JZLv?D KZNw?F LZ x?Re MZOy?Pp NZ z?g OZ;{?K PZH v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPO $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATI $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ōݢ ۚݢܚ   .á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáݣޢÄá ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L E ER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |,  &  * عteVG8  )   uh[NA4'á +-Í-09Ȅ0ݡߑ ع    ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHZ   :    ( tV8z <|hvhwhhxylxMz|vwlvl llhzh{hƁhh-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E צO,á<צ$88š8(8X $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I  z Z   :    ( tV8z <|  [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n G := CH = '-'; FGET(F); CH := FWINDOW^[0] END; *WHILE (CH>='0') AND (CH<='9') AND (NOT FEOF) DO ,BEGIN XVA "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E br AP0`b6 6 ^``Pb6 r  ajћ+pA֘Ÿ e/ޛyqi՚umǙeD6c}{Jݘ:%fXXXXXXXXXXXXXXXX*ʔvtȩttituveztȱve{tȱvtȱvttituvivwзRޔSߔ악\핅][ ޔ\ߔ]x RPRRSQRR RȭR악Z핅[g lqnpsΔLHHH)(H`HHHHHH)   lNi i3HHHH `# ]е8Ɓzȱ{HHH)(H`HHHH{HzH)   l @tu`w SYSTEM.PASCAL SYSTEM.PASCAL not found#-+,hL'hح/0 !"'()*)VV#$)6 /\z FLLIEHJh**F`F$Lө oʔʕ .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:> (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYAP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK.تPš++.تPRš+R+PP0RšزRPزPR,"6h b6 6 ^``Pb6 r  AP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK.\oyy]ƬШmwœQgu ݪL-X_XYX ^&_` ^_`RbScbtȱbctb`ҔӔ`ZӔ[ҔӔ`Zʔt@<8ҔӔZ\t]b[       idʔ˔  HʔH V x PRȥQRRvȱRwv8vwv8vRwv RLXiXYXiXY HHXYX oLnhh)X0 eXXYL{eTteUut8tXutYLHHLXHXHLn飨RHRHL URe^YRRRؔSٔL8|}`|ȱ|LU8||tȥ}|utetȱtet|8|}Ƅ`t et HHH* ! o* H.t/u\8t\]u]\Z][ 8\Z][L×]H\HuHtH-H,H! * L lʔL` ~~~LXx P~Qȑ~LXxX XY |0 LXx QHPH ~P~ȱP~~P֔QהL RhP֔hQהL RR8tSut\ȱt]X i RHLRtȱRuVt HtVܔuWݔRTڔȱRU۔RXȱRP~ ~i jik|L'hj ~|it}iu8ttXutY|iTڔ}iU۔~RؔSٔ~8vw\vȥ]vv\w]VܔWݔlXx |ƄRSL̤ȱȱńRRLXx ~tuL#hhVtWu\z]{XiXYt8xtut8xtu8tt|ut}|=0 8   |8|}8||ȥ}|HHlL|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[L×~vwhthuttutvv ȱtvtv %l HHL{HHL{h)thh)htLO lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLhHHL%lHHLhh vI%~t~wI%u~xȥxL?? lXLLLmL   UF_f^L UhvhwhthuXY^Lࡱtvtuvw_LSLWLO~hvhwvXXz{hh &hexheHxH{HzHezHHLnh|h}hzh{hxhyx~ȱx|80~~ iff~z ~=#~=$H~HLhthuh|h}hzh{z #v%tt$w%uu|80tuutvwwvi t&uv&whxhyx~ȱxYYHXHL"XYYHXHXXYeXXYLhhhihjhkXi&jhȑjL{hhjLhhjL{LtutLL Uhe^xhe_yxHxHL{ Uhe^he_HHL{hh U_ ^&L^_ ChexheHxHL{Ɗ8冥凰 ` ef"f fefd8de8&&`ffefd&&`hhhh IiIiHHLhhhh HHLhthuhvhwxyEw0wy)xv!y0uEy0yutxyLLXYXXhthuhheteuHHLhIihIiHHLhthuhh8tuHHLedff dedeeefefdff`hh0 hhLhh"IiIiIiIi CHHLHHLjdeLߗIiIi报IiIi`0\XE0XLXŌC?8XX&XeYei捠8XYLXiXYL hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][L×L{ hthuZtȥ[tL{hthutZȱt[ҔӔL{lhh0HHLIiIiHHLXYLȱXt v8vthhhihHhHL{L×ȱXtetetjktL\hjhjhhL{hthuhettheuuHtHLhhhthuhettheuutLhhhihjhk ULhthuhh%uH%tHLhthuhhuHtHLhhIHIHLXXhhQX0XōiXd_ecedi deeHdHLnX q U^ebd_ece hdhdLnX Ue^te_utHtHLnX Ue^te_uhthtLnX Ue^e_HHLnhthuȱtHtHLhthuhvhwtvȥuvLȱXȘ tX)XYXHXHXetdSe_e dHdHL{ URe^dSe_edi deeHdHL{ URe^dSe_e hdhdL{èPHPHL UPe^dQe_e dHdHL{ UPe^dQe_edi deeHdHL{ UPe^dQe_e hdhdL{X q U^ebd_ece dHdHLnX q U^eb  `\J]K t et,$-8\.\]/]\8]`8\] hz8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLPQ |l|8|}8||ȥ}||8|}| iiL ( ( ( (8ƑzL` 8   ` J\K]`hh L{hh HL{X rLqhhh^h_hhhhL{hjhkhejjhekk_ ʑjkL^L˨jL{hhh|h}he||he}}hhhhh^eh_eϐ8 (H 7 +P 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `"ZxDŽ `І `?;78H<8Hֶ ڶ 8`Ί ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪ϮVE]V]H)]V])]T])]Ψ 8$hU>`ȅSϭ83Ii  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴    `Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`LJ 8彐.mĿ"Š>?( XˍL ˩($8` h Hǹxhx ڵN`8Ύ켽0zϩHhHh    VYΝY켝ꪽ   Ͱ()I يJJJ(jǩF؅G(  7 k( F G  Xj0  $8 xH Ｉ`Ǚx kh kL~@(LYLWH͍h (ͥpi)ͥˤ˹HH(x zh(`~Ȍ``hhh )hJ¥jJJhhihhhJihhha [U8ſƅh)x h H('eƍ8ƅи ĘHH` Ｎ ~(8 Ǝ IL`` I I` I`Dʔ`DHCHlDHCHlwhxhy0LhhhhhhL{h0yhzh{hezzhe{{hh %) | L !" | L | lL iLt | LxL|8 Zz~#ĄLzz{xyLt Lz z{xгyL|hh %) | L ! | L oLHHHH `L fL xL ~ LʔL{hhHHHH{HzHyHxHwHvHHH`L{LȬ|~hJJJJ) ʔ)~)hhvh{]]{cuZZr) `) e`ʔhhL{˔HʔHL{ʔLL{hh %HHL{hh %L{|hhhzh{hezzhe{{hh %HH{HzH)X ! _ L L L L hhhhLL UL{XiXYLhthuhvhwtvȑtvL{he^hie_ije^jke_k_ik ʱhjLT^LthjL{h^h_ hhhhhhhhL{hjhkhejjhekkhhhihehhheiiXЀ_ʱhjkiL^LتhjL{8Ӕ\Ҕ]ӔL\Z][JHjHL^Ii^Ii_|ň.L&'|}0 |}L|8|}L|8優}HHL{hxhhhTLT8tUut8tXȥutYxT VLRSLȱvȱwvLv8vwv8vwv xvиtȱutƊgƈЪ ` QRTW E ϻ *0 L-qŐ`8Hh`HHH*@^]U)j7 [ +)L;~ lJf)jjAUIL;0 ,> Lط )?l I@L;  "L;,QL,c*A[ Lڷ0%H)@hILө UЪhhh(`N`hhhhhhHH)> 6` a0* )` z `(5ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ šš  ġ݂š  šš!ڞڂڂڕߓS  RUNTIME SYSTEM.CODEz6 ʪz|z6 UNb6 *,, SYSTEM.CODEEM.SWAPDISK ̅(צSYSTEM.TEXT - %̅,ړצLis SYSTEM.CODE.CODE[*]AP0WRK:SYSTEM.SWAPDISK. " $PROCEDURE FGet(VAR F: FIB); $ "IMPLEMENTATION E ODEDISKWAPDISKԍ֍br r b^br RUN`b6 6 ^``Pb6 r BBBBBB >zPASCALSYUSERPROGSYSIO PRINTERRINITIALIGETCMD FIOPRIMS THISISIT THISISIT -LLLLLL) emөmԥl` ҹ!H H` ``LzLθLXLL˹LL(L,LLLL$LL LLLLͼLLzL:LhiZhihh ҭHH`l]^@MNP]^@(8LLLLLLLLLLLL) emөmԥl` ҹ!H H` ``LzLθLXLL˹LL(L,LLLL$LL LLLLͼLLzL:LhiZhi`HH8(iPH Ի'(hH'O'OhhmhLԻJL680%`M8$LL2LhhhhhhhhץHH` ȑآL 8ؘ ؈ȩؠ#LLLLL Ի'È rh`@ n n0`LԻ` KLTLԻHH r hhLԻ ~` OȄ`H$)A[hIH80(hI`i(LĻ8(hI`LJ) )i i`¥ĥ zJ` 5 AHL z A MȽ`H AL zH ,h`   ׺ݺ"5>EKTrU808 0PL8 0 Ի``) ` )? L~ @` ONl```LԻH Ի 4# `H A hlQ`) թ` A Ȣ`JJJJ ϱ` z,p 0*P$ ϻ j ϻ`H 5 AL zH Ah ɢ`) 2 z0` z)` ( `) '! "ˡ! "ˡ ߡp  ᄡM "ˡo )á á ávˡ á cń# Ȅ ښ6áÄ  š  ġ݂š  šš!ڞڂڂڕߓS  šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ġڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ   7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢۢ؂X!  ,ߓ$ ޓ "ߓۄ, ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯߢ  d˯ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓń Ȅޓޓ! ܲݤߓÍߡ`ݤW ˡɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ"á  $.GRAFׯצ.FOTO < ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷iȡFۤ ō5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFOުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*á ݲצ:22ȡáݲ 2á!2ȡ5252š[22š2222ȡ2šoseType); $ $FUNCTION VolSearch(VAR FVID: VID; 7LookHard: Boolean; VAR FDir: DirP): UnitNum; " $PROCEDURE InsEntry(VAR FEntry: DirEntry; FInx: DirRange; FDir: Dirp); " $PROCEDURE DelEntry(FInx: DirRange; FDir: DirP); $ $FUNCTION FetchDir(FUnit: UnitNum): Boolean; $ $PROCEDURE WriteDir(FUnit: UnitNum; FDir: DirP); " "IMPLEMENTATION E CEDURE FReset(VAR F: FIB); $ $PROCEDURE FOpen(VAR F: FIB; VAR FTitle: String; FOpenOld: Boolean; 4Junk: FIBP); " $PROCEDURE FClose(VAR F: FIB; FType: CloseType); $ $FUNCTION VolSearch(VAR FVID: VID; 7LookHard: Boolean; VAR FDir: DirP): UnitNum; " $PROCEDURE InsEntry(VAR FEntry: DirEntry; FInx: DirRange; FDir: Dirp); " $PROCEDURE DelEntry(FInx: DirRange; FDir: DirP); $ $FUNCTION FetchDir(FUnit: Un $ $USES FIOPrims; $ $PROCEDURE FInit(VAR F: FIB; Window: WindowP; RecWords: Integer); $ $PROCEDURE FReset(VAR F: FIB); $ $PROCEDURE FOpen(VAR F: FIB; VAR FTitle: String; FOpenOld: Boolean; 4Junk: FIBP); " $PROCEDURE FClose(VAR F: FIB; FType: Cl! "ˡ! "ˡ ߡp  ᄡM "ˡo )á á ávˡ á cń# Máš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ  P  p  CONSOLE:ת צSYSTERM: ~ Dø !m צTARTUPתٟá'      CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT\8gikm V  ʀʀʀoʀo <@تٞ&"á ٤  ȡؤצۢÍ ȄۢؓÍ؞&"á ۶ ضár۪*SYSTEM.S,ʀ%2 &̀ʀʀʀʀ%̀oʀoʀʀʀʀ ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀ٢ š٢ ٢٢ 4$ o/ o d'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n   䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n   䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n b@"䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n  䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄצ   ١  n ١ á9 ٓ/! !!١ ˡ) !תPL`V\Z     CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT\8gikm V  צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!Ȅ0ń0ˡ ɡa Mȡš ȡ뾿  + dá2á" ɚ V  Oš *š  4T h ɡ'áצ-32768 ^ 逫-ġ>0ɡ F b$ Ą ɡ 낫š ꓡ#š땫Ě@$"á1ꓡ삫Ú š K$"á61 !  ! "ˡf á3 á+á! "ˡ  +Uz ?š?ˡ?ء "ˡ$ߕނߚ  d쓡  # á1 š#    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ    šˡ 퓄 Ä퓡x š   ɍM   "ˡ.ˡ j <"!&ˡ ! !6%ɡšɡš  P š 쾿  .Tá $ ,áá200áQP 0á0 é000+-Í-ë009ȄZ 000á("á 009Ȅ00 tU\ ȡ饀Eؤ"ˡK=== =jhhhhhhHHHH`HIHHHHhHH A? .?hHHHj .? ] H^HVPGGG B G G#&  PFS FORMAT DISPLAY IO COMPARE INIT   PFS for the APPLE II, Version B:00, Initial release, Jan. 29, 1982   N^á %%á" & ܟˡ".ZZP r >& b l@$|Tj P~  6 J%蕿@šQȡ2 š:X f铡b!   תˡ%ˡ& öÍ##&*ńȄ4šáRתPńȄ ,ń.áš蕿@šQ {>( F> =$0x8x @A- @# H8` >k @@f0x> %> %>Hh @A#-8` @A @x @A - @x8`->0ݩ>ʥ ` H t>x$50xh$50xLAJJJJ`HHjf5 t>h $50x`80^݌Hh ? ?݌ $? $? $? ? ? ?EEHJh #? $? $? $?`HJ݌h Hh݌` @?Hh݌``c COPY FUNCTION MENU 1 COPY DESIGN ONLY= 2 COPY SELECTED FORMS: 3 COPY WHOLE DISKETTEcc SELECTION NUMBER:cc NEW FILE NAME:cc SELECTED FORMS ABOUT TO BE REMOVED(-ccCURRENT PRE-DEFINED PRINT SPECSccPRINT SPEC NAME:ccW1ccPROBLEM AN ITEM IS TOO LONG PRESS ESC TO ABANDON THIS OPERATION* PRESS CTRL-C TO CHANGE ITEM AND CONTINUEcc PUT FILE IN DRIVE 1; PUT DISKETTE IN DRIVE 2i WARNING! -? THE DISKETTE IN DRIVE 2 WILL5 BE COMPLETELY OVER-WRITTENcVED| PRESS RETURN TO KEEP THE PRINT SPEC, PRESS CTRL-C TO REMOVE THE PRINT SPECcc PRINT OPTIONSccPRE-DEFINED PRINT SPEC:cc PRINT ITEM NAMES (Y/N):cc OUTPUT DEVICE (P/L) :ccLINES PER PAGE :ccNUMBER OF COPIES:  Y P66ILL5 BE COMPLETELY OVER-WRITTENccPROBLEM W PRESS ESC TO RETURN TO PFS MENU5 (SEE MANUAL APPENDIX A)ccCURRENT FORM ABOUT TO BE REMOVED PRESS RETURN TO KEEP THE FORM2 PRESS CTRL-C TO REMOVE THE FORMccCURRENT PRINT SPEC ABOUT TO BE REMOzcc PFS FUNCTION MENU - 1 DESIGN FILE 4 SEARCH/UPDATE. 2 ADD 5 PRINT6 3 COPY 6 REMOVEcc SELECTION NUMBER:cc FILE NAME:ccPUT DISKETTE IN DRIVE 1i WARNING! -? THE DISKETTE IN DRIVE 1 W}|mVSC5-*'5hhhhh,,)HHH`*hhh Xhhh00ɠ `)? 0h Xhhh00)L;ɠ @00 0 @)0HH`#R8bLZW >3/g{>( ` X0`  % G G G G`  E J G G8  ȑ% #ȥ$!c`  ` #$2!'  `HH`i`ZKJED?0/,+LL)) RL) L)ɠL) L ɺ RL)ɠ RL) L)ɠL) )%L RL))LL)ɠ G`  `ɠ  G` `0 G` G G G``0>hhhhhhh XhhhH0HHH`*hhhhhhhh RL(  PLQ R ) %Lb Le  G G8  ȑLw%=O^uLLBcL)%#$J ء ٓ HJ) 1h)i0 00` @  0`8Hh`, X0(`" X0)0(ܥ   آآ آ آ ّآآ*ڡ  ؑÍ ÍÍÍÍ ؑƅ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  AB A') +B A&п Ax) ++`FG8`0($ p,&";91R =`x@ @ @VY@'&Y@xꪽ@' @ @ @ @ @`Hh` aI꽌ɪVɭ&Y?&D&Y?&C? 꽌ɪ\8`&&꽌ɪɖ  !"#$%&'()*+,-./0123456789:;<=>?8'x0|&HhHh @ ARNING! -< ALL FORMS ARE ABOUT TO BE REMOVEDATTACHMENT :cc DESIGN FILE MENU 1 CREATE FILEB 2 CHANGE DESIGNcc SELECTION NUMBER:ccPRINT MENU 1 PRINT FORMSB 2 DEFINE PRINT SPECcc SELECTION NUMBER:ccPRESS CTRL-C TO CONTINUEcc PUT 'FROM' FILE IN DRIVE 17 PUT 'TO' FILE IN DRIVE 2cc(NONE)cc S E L E C T I N G F O R M SccPRESS ESC TO ABANDON THIS OPERATION3 PRESS CTRL-C TO CONTINUEcc(C) 1982 SOFTWARE PUBLISHING CORP. B:01h h!h(h)h$h%h 7ǫá c$á cá cáݡc c ۢ쥀 +> ۢܚۢۢšܚ  áRá*ۢܚۢ ǀۢǀۢۢ! ۢǀۢ Íܓ "" #"áڄ5 Ǜá  šꥀ  ! ?ȥ!˄!!  ۢcc!ˡTÄۢ  ǀނǀ 8  "ˡE># ##  ݢ!ݢݢݢݢš @ء٦ת( ȡܢǀ(ɍ˄Aء!Dájj09Ȅ 0ݿǀP  ɡsá RETRIEVE SPECPáצ PRINT SPEC2áצREPORThBáצDESIGN5ؓצFORM  ( צ ؓ:( צPAGE   š* (n"ۢ+ڢ5ڣ ˍ! !ڢE"ˡ ؓ ۥ  % FULL j    צFILE 5 (LE MUST BE IN DRIVE 1ת(צ'TO' FILE MUST BE IN DRIVE 2(cONLY 4 PAGES CAN BE CHANGEDת(?CAN'T FIND PRINT SPECת(!%Kr:Z (((*M* ,xڢšmڣE 7EY 8 CHARACTERSת("INVALID SELECTION NUMBER, RE-ENTERת(צMUST GIVE A FILE NAME(צSEARCH LIST TOO LONG(MUST GIVE A PRINT SPEC NAMEת(&PRINT SPECS CAN HAVE ONLY 8 CHARACTERSת(צONLY 8 PRINT SPECS ARE ALLOWED('FROM' FIڞ (ɡšߚá +á ɡ   h ˡ ǛǃÍǍÄ" :ת(ٹCAN'T FIND FILEת( DISKETTE FULLת(%FILE NAMES CAN HAVE ONL SHEETNUM(Iv(IITEMNUM >Iv>IINDEX LvGETKEYVAIxI SHEETNUMIIvIITEMNUM LLvISORTKEY FGETMENU &$I  WHICHMENIvI MAXSELECbJ J 6^PdxPFSFUNCTNHMvNHPUTRETRILLDELETEFOHH CURSOR HLD'HENTRY &DESIGNFOH FILENAMELLB$FINDSHEEvI}ysni^ZUm0(h*h+h(h)h,h-h.h/.2&,3' X)2L42'233 |3 XLk2(233 |3LF3'2&.20)4(4L4ЕL42.3,+H*H`~dI*!xu^x(2 hhh h ? JP^oLL@) ɺ L L L L L  LL  LL   XL L L HH`   ` %0(  X`hh"hY" '&&$$%&'(ȑ(˥ " HH"=HH !H H`[YU#Thhh Xhhhh0hHH`$hhۢǀۢǀۢǀFۢڡ)ݣF ݢݢݣݢۢ> "  ˡ  &ښˡˡݢݢݢ   ۡa OOȡEڤݢ n ݢݢFYIFYIݢ5ܪ ݣɡ  ݣ ݣ ݣšnݣȡݣ ݣ OOġǀ  Eڤ ݢݢǛá,  ܣܣɡ    ǀ ނǀܢܢܣܢނǀܢ Fáڢ }~ۣš  ˡ)ۣD ۣۢۢۢš  š !JL+ ɡ @Íצ I/O ERROR(Bá$DISKETTE IS WRITE PROTECTEDת(צI/O ERROR CODE (( ١ (ͥ ڢÍ ڢÍ ڢÍj# "ڢÄń#ńڢá  " "ނݥY Láȡצ hhȡߥ ōڢˍ šۥ  ߥ š 1ˡ   š ڢɡá ڢɡ "ڢ ڢپ  ˶ ˄j á> " ڢ( ڢȡ "  " Ǻ؄ ڢپ  }C# ݢdb  ˡ4 ۢښE"ˡ H ۢá Ǡ)ǠáۢǠáFɡۣ  á?ڣ áڢ ǀǀFڢ ڢǀǀFڢFǀFǀFFġǀFF EE áڣ áڢEڢڢڢEڢ H)"Eڢ n"ˡڢ@šڥ   ) 4 ˄JǮۢ޾ǮÄǼǾÍǽÍǯÍÄÍݿá^ ~ˡ؞!؟٢ ٢nFnF )nF!nF"nF#nF$nF%nF&ǎnF'nF(nF)ǢnF*nF+`>>Ä>Ä8 >š >š >šbAnFnF nF nF nF ǩnF ǀnF ǍnFnFnFǩnF#nFǍnFnFnFǩnFnFǍnFnFnFnFǾnFǹnFǭnFڸٸؿ@TFǭTFTFTF)TF@TFTF TF ǎTF TF TF ǢTFTF`@BFnFǭnFǾnFǹnF ((`(0 k k k)L( kL0)`$%`(' vhcGFE@98hhhhhhhhHQ*HHH`,b" V : DT &ښˡˡݢݢݢ " $ɮ-ȱ$ɮ& k k$%&' Lsɮ$ɮ J ɠ@N3&'  &'$%  LL     LsHHHH`0$(ɡ 0 k(`(ɠ0 k)L( Ф ܢܢ ܢá'   ܢ߾  )ǼǾȄ ܢ擡    53 zhhhhhhh$h%he$$he%%h&h'he&&he'' ńǽÄȄĄ@(V  䥀   ڥڢۚ ȡܢᾥ šA á6  ۥ   ܢɡ⥀ ⥀áá     ǮǮÍˡ>ǠǮǮǼɄǠǠȡ ǰ5á      ǰǹȄ ǰaá! Ǯ ǰ9ǭáÄWڢ>ޣڢ=ޣڢ<ڢ<  ǀ ڢ<   Iڢá!ڢIܤڨ݂HH Há   (   ȡ2| áˡ FF F  Ná< ܢܢ   ȡ:ߤݯ ߤ˄ۓߤÄߚݢߤ ڣ>ˡڢ<ڣ>áۓáۥڥ  ˡ  ˡ ǯá     ˡWǼǾȄÄ 2ǽǮÄǮÄ       á 4 š+       ؿ  P ء     .   Ǜá   šݥ    Ǜ٣ ٢Ǜ٢٢٢٢Xš8  ۡ ܡ  ܡ H*d X Dh"pR fD .TNFv8xF # H)"?L?M?Ǩ?ۿ@??j EEE E E E    L nǟ"á.ǰ?Ǯ?Ǭ?ǩ?' ˡ(  ThhhhhhQ)'ɓHhԩHHHH`Z* vn š >šbADD ȡDݩD D  šD š DM\^zD(áڲ{ ȡ{ˡ|ۮ{D Ä[ D6 šȶɍDD+DDDDDD࿩DD߿DDڡDDDDۡDD D ݚD DD DD   D D ߕ(á(( (á ڡ8lܤ3lܤ3 šڶÄšR Ǜá((ǒá ɶlܤ3ÄD ȡD á šD ńړÄDDD ȡ D D DšD ( (D Dá (qm  y ڢپ˄,áڢ ڢپ7NDDD $ˡ  D ٚDš DDDDáD 8rw{ šá v@ šݶ  ¶ǛáZǒáwm ?m  ń.wm mEڤ"#"!!áEڤ"#"!!ÄEۤ"#"!!ˡ! á! #"#á! 8  ګ 8ݪ ۫5{DFDˡS:B ƞ!  %D&%&&D DD D DDD !!ɩDˍ !š á"("" á " ##ȡ#"š #"Eۤ"#"!!Ä$ Ǜáݪ(۫ݥ !!ˍ  !šÍ'DADښDD DD DܹD %&'&'ȡv& D6DD D %DD D%D D3 á  á ōEDD nWOX5XmP$+D D !, E  Ǜáá$ $  ǠˡD Ǡˡ˄  D ǠǺÍ  ǠǺÍD Äȡf382&33ˍ$3ǘ D ȡDġ2Dá$義DÄá 3ۚDšߩD š ˡ       &>  ǃá D L ڣ ڢڢ ڢ T٢ "?L?M?Ǩ?ۿ@??        nǟ"á.ǰ?Ǯ?Ǭ?DDDD D{D D{  ƀƞ ̀ڡƀr ̀á!llD뚩Dá,á ̀ù̀ʀ ǛáZáUkǃk k̀ʀ4z.z\ ̀̀6   yʀ̀̀&̀ʀšƀʀǛǀáʀm ̀ʀáÍcʀá̀áʀˡ  ʀˡʀ      ém ǃámééÍé˄˄ m ɡ  gá`)m 62m$  0,* c::    #-"hhhhhhHHHH`(* :BVPprR^~ p <Jl   ɡ   jáj     ék ǃákééÍé˄˄ k ɡ  gá`)k 62k$  0,* c88 (ɡEڶġ8 ɶ ۂ ۾Ä ɶ ۂ ۾ń8 Z     ɡ   jáHHH&ILILȡGGǛǀáJJ JÄJJJKMKMȡ_ KˡLHH JH KHÄHHH ɡ KH JHɡKJKK J JII|á  Ǜˡ A  ǒǛ    ,  ؤk ؤ ڢ ؤٚá  ؤ já ڢjzšHLHLȡ (á  Ǜá  áh šX   Í"ġ  ˡ á ǡ kܤ): Ǜáá .4Aá$ǀ A   A  __ȡCˡ-(áˡ ڢ Í) V á  Ǜá  ݡ$ áȡ8۪  ō Ä ń ˡ á W d " RUNTIME ERROR  (@ ˡ7 š  á    áȡ#g z  š 0á+  ړ5  Ǜá  إ ɡ  š áá, Ǜá    hB ǛړQ  إ á8DD DD DDת   8ت 7hK   á      h  Ǜá átإ ád>? ȡܥAݤFORMS COPIED: ` FORMS FOUND: FFORMS PRINTED: +צFORMS REMOVED: rZB)ʀ (̀ʀǃʀǛÍ`á[D;>?ˡ?DʀäAʀäʀ̀ùD  ̀ʀ̀۹ZD ^ ʀPʀzƀƀkkʀk wm aXL'ʀšʀʀʀʀ ̀ʀ ̀yʀzƀƀkkƀkڡ ۹j   #-"hhhhhhHHHH`(* 4<P~NprR^~ p <Jl   ɡ   jájhhhhhhHHHH`( V *h"h:ln6v4Tj ~: jɡ   jáj     (   Y P661áJJ JÄJJJKMKMȡ_ KˡLHH JH KHÄHHH ɡ KH JHɡKJKK J JII|(ɡEڶġ8 ɶ  ǒá    /  ؤk ؤ ڢ ؤٚá  ؤ já ڢjzšHLHLȡ HHH&ILILȡGGǛ  Ǜá  áh š X     Íᓡ"ġ   ˡ á    ǃá  Ǜˡ  ): Ǜáá .4Bá    ``ȡC ˡ- (á(á  Í) V á  Ǜá  ݡ á ō Ä  ń ˡ á ȡ kܤ " RUNTIME ERROR  (@ ˡ7 š  á    áȡ#g z  š 0á+  ˡ ڢ Ǜá áSإ áD?@ړ4  Ǜá  إ ˡ áá, Ǜá    hB  Ǜړ!    ǃʀǛÍ2á-E