`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETBBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC fSEE.CODEr=vg TITLEP.TXT=vg蠻 NAMES.TXTr=vg蠽 EXECSYS.CODEvg RIGHTS.TXT;VfSYSTEM.STARTUPfSYSTEM.MISCINFO  EDITOR.CODEVf QDISK/ SYSTEM.PASCALvgi/O SYSTEM.APPLEvgOQSYSTEM.WASTARTgQSYSTEM.LIBRARYgEXECSTRSr=vgDEXECZOGr=vg ( QUILLDATAr=vg\蠗 MOREQDATAr=vg蠘ADD.CODEr=vg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&  Íáɡ 럚肚X  šš  ġš  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡUĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36% "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1:(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initializedSȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá  6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*0<]U)j7 [ )L3~ l )jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|iT}iU･~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx L0 L0 L0 $ L0޽L;hhHHHH{HzHyHxHwHvHHH`L;ҩLp|~hJJJJ) ޽)~)hhvhwhxhy0LhhhhhhL;h0yhzh{hezzhe{{hh ) 6| 9L* " 6HL;ҭ޽LL;hh HHL;hh L;ҩ|hhhzh{hezzhe{{hh HH{HzH)X  _ 0L0 *L0 -L0 3L0 hhhhL0|hh ) | 9L0 | o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Put in the QUILL disk, hold down CTRL and press RESET. #usthL'hح/0 !"opqr)VV#$6ֲkW9Z~?bU ~fBU ܉}{Hy0_҇kٚCKW%iӞ?Sݭӕ݇gr#=*e7/ҝ3+߶;&M+Mҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩjggggggg ҹHH` ``LrLLPLLLL(L,LLLLLXLLXLLLLLrLLBL܅hiZhihh ҭHH`l]^@MNP]^@(8LLLLLLLLLLLLLLLLL) emօөmօԥllL֭l/LRѩ`THISISIT THISISIT RSQRR RȭR)[ [Zg lqnps⽭!  LSp% < Ni iSHHHH "1#"! ! ""ˬ##Е8Ɓzȱ{HHHH`HHHH{HzH  < @tu`wvtȩttituveztȱve{tȱvtȱvttituvivwз\R]S[ \l]m]|\ l\m]x RPR </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < Ni iSHHHH "1#"! ! ""ˬ##Е/֠in:@A'&kւ3LuX_XYX ^&_` ^_`RbScbtȱbctb``Z罅[潩`޽t@<8潍罅Z\]b[      ཀྵὥXY\8轥]齭,҅X-҅YLS)ҥXiXYXiXY HHXYX oLnhh)X0 eXXYL;eTteUut8tXutYLSҩHHLMҠXHXHL.飨RHRHLMҠ UѥRe^dSe_e dHdHL;Ҡ UѥRe^dSe_edi deeHdHL;Ҡ UѥN^Awesome!!#5:PLANNER3.TXTTT0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYeҠX Uѽe^te_utHtHL.ҠX Uѽe^te_uhthtL.ҠX Uѽe^e_HHL.hthuȱtHtHLMhthuhvhwtvȥuvLMȱXȘ tX)XYXHXHXetXYLSȱXt v8vthhhihHhHL;LȱXtetRe^dSe_e hdhdL;èPHPHLMҠ UѥPe^dQe_e dHdHL;Ҡ UѥPe^dQe_edi deeHdHL;Ҡ UѥPe^dQe_e hdhdL;ҠX qѠ Uѥ^ebd_ece dHdHL.ҠX qѠ Uѥ^ebd_ecedi deeHdHL.ҠX qѠ Uѥ^ebd_ece hdhdL.    š4áxAáje  ˄ ȍ  á ȥ  Ä4 H8.۪PڪPD.<[F / צ]:P;~ צ ReplaceY does\ N doesn't\ ESC exitsƅ|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,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  N* عteVG8  )  T 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 צCode file saved62!o.צצ not named $ "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' GBBBBBBBBBBB  B$6Z( /f LONGINTIPASCALIOAPPLESTUQUILLMANQUILLMANCHAINSTUREADLINEREADLINEUTILITY UTILITY PLANNER PLANNER QUILLIO QUILLIO  5- ; # á .?šOš5צBuffer full. Exiting Replace  . ?ꕞɡ ?ꕞ?ˡ؂؂b $<:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n .LIBLIBRARYoEqs TAKE280.CODEODEEsw LONGCALC.TEXT`o1w} DECONE.CODECODEE} UNIT30. ' "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);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B$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 $ $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 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "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); IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS $USES chainstuff; $CONST )maxnested = 20; $TYPE quillprogram = (nullp, execp, seep, addp, changep, transferp, deletep, 9storyp, rollp, editorp, itip); )qstacktyp = ARRAY [1..maxnested] OF quillprogram; )paramtyp = RECORD 6a,b,c,d,e,f: integer; scvalid;  PROCEDURE getresp2(l,yloc:INTEGER;s:STRING);   IMPLEMENTATION E . ';   VAR "yesno, response : STRING; "rf : INTERACTIVE; "ioerror : BOOLEAN; "startposition, endposition : INTEGER; "CR, etoeoln, ff : CHAR; "iresponse : INTEGER;   FUNCTION askuser (s:STRING) : BOOLEAN;  PROCEDURE makeproper(VAR s:STRING);  PROCEDURE getnumb;  PROCEDURE getresp(l,yloc:INTEGER;s:STRING);  PROCEDURE e  CONST "C13='Type a number and press . '; "C15='Type YES or NO and press . ';   VAR "yesno, response : STRING; "rf : INTERACTIVE; "ioerror : BOOLEAN; "startposition, endposiext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tDELETEתPJצEDITORP9ITIתP+STORYתP {qbQ#F7#4:SP*GT ٣ɡ%٣٣-٢٣٢-ؚ٣-<أš!آأآ-أأ-8QDISK:QUILLDATA"ˡ1צQDISK:QUILLDATAצ[1]]QDISK:MOREQDATA"ˡ2]QDISK:MOREQDATA[1]. PSEEתPCHANGEתPnצTRANSFERP[DELETEתPJצEDITORP9ITIתP+STORYתP {qbQ#F7#4:SP*GT ٣ɡ%٣٣-٢٣٢-ؚ٣-<أš!آأآ-أأ-$ $$%$&*&!&&+$QDISK:QUILLDATAعEXECSYSתPADDתPSEEתPCHANGEתPnצTRANSFERP[pe; &state : statype; &qfile : qfiletyp; &q2file : q2filetyp; $ $PROCEDURE call (prog: quillprogram); $PROCEDURE return; $PROCEDURE saveqdata;   IMPLEMENTATION P E t, iti: mparamtyp 3END; &qdatarec = RECORD 6stack: qstacktyp; 6stackpoint: 1..maxnested; 6params: qparamstyp; 6currentprog: quillprogram; 4END; )systype = (plan, lib, mail); )statype = (preED, postED, changepreED, changepostED); ) )qfiletyp = FILE OF qdatarec; (q2filetyp = FILE OF moreparams; 6 $VAR &systat : systy4END; &mparamtyp = RECORD & gstring,hstring: STRING[20]; 4END; &qparamstyp = RECORD 8exec, lib, edit, iti: paramtyp 6END; &moreparams = RECORD 6exec, lib, edit, iti: mparamtyp 3END; &qdatarec = RECORD 6stack: qstacktyp; 6stackpoition : INTEGER; "CR, etoeoln, ff : CHAR; "iresponse : INTEGER;   FUNCTION askuser (s:STRING) : BOOLEAN;  PROCEDURE makeproper(VAR s:STRING);  PROCEDURE getnumb;  PROCEDURE getresp(l,yloc:INTEGER;s:STRING);  PROCEDURE e"+ ǼRZ ٮ # ńDL ĝɄ˄cš ק׿&ititle : STRING[titlelength]; &iauthor1 : STRING[authorlength]; &iauthor2 : STRING[authorlength]; &ikeywdcount : 0..maxkeywords; &ikeys : ARRAY [1..maxkeywords] OF STRING[keywdlength]; &ifilename : STRING [disktitleng]; &ilength : INTEGER; $END; " " " "keyrecord = $RECORD &ckey : STRING[keywdlength]; &cilocation : ARRAY[0..maxinfocount] OF BOOLEAN; $END; $ "inforecord = $RECORD --)vPINTEGE = 26; "toomanyentries = 101; "  TYPE "dskreqtyp = (csrep, dsrep); "bisWAtyp = (save, restore, preserve); "fnamtyp = STRING[23]; "nodeptr = ^node; "node = $RECORD &word : STRING[14]; &leftptr, rightptr : NODEPTR; &rnumber page = 24; "keywdlength = 14; "keywdsperpage = 23; "maxinfocount = 70; "maxinfopointer = 70; "maxkeyslessone = 4; "maxkeywords = 5; "mxothercount = 50; "mxotherpointer = 49; "textlength = 80; "titlelength   USES chainstuff, quillmanager, readline;   CONST "authorlength = 20; "b80string = ' '; "disktitleng = 10; "entriesperpage = 7; "keychoicesperP--j--áתPˡ -š..P$ǧǼ8  ~    B4r\8^<."----áצPˡ -š..P تP--j--áתPˡ -š..P$ǧǼ8  ~  Rȡ- (تP----áצPˡ -š..P ت#Type a number and press .  šb# lڪP* P$Type YES or NO and press . *P*@@*؝؝ ؝'؝؝؝  ŝȄÍ&Ǽ$ǧǼ8 K~R@@ lçÄSȡ? 0Iצȡ؝ áp١F؝Ą˄Náצ   ٧ á á   & á P á    šáKצ ȡ*    v ɝ : INTEGER; $END;  "idrecord = $RECORD &diskid : CHAR; (* L, P, or M for Library, Planner, or Mailbag *) &keywdcount : 0..500; &actualkeywds : 0..500; &entrynum : 0..maxinfocount; &filecount : 0..9999; &emptyblk : 0..280; &availblk : 0..280; $END; ! "keywordrecord = $RECORD &kkey : STRING[14]; &krnumber : INTEGER; &kold : BOOLEAN; &kothers : ARRAY[1..maxkeyslessone] OF INTEGER; $END; " "keyz = ARRAY[1..5] OF STRING[keywdlength]; " "header = " (REy?ת(BYou may choose one of these words to add to your list of keywords.תHצ2Press after putting in your LIBRARY disk,<n-Make sure you have a LIBRARY disk in Drive 2.ת<%You may now want to print this entry.ת<צ&Type the NUá ^Sdá E_ܓ1Do you wish to continue anyway?"ܡ >צ with this keyword. (צ$What do you want to call your entry?(Who wrote this entr צNumber of keywords on disk :  צUseable disk blocks :  צReclaimable disk blocks :  á@צLength of selected file : ^S on 4 on the UTILITY diskto create more room)AUč ɍ  3DANGER! Disk Space Low! Proceed at your own risk!צNumber of entries on disk : 1^qdisk:quilldata XتPRUġ" Aġ" ɡ" צ<-- !!čɍ Ʉ}?(Try CRUNCHING the data disk using Opti: STRING);  PROCEDURE setemup;  PROCEDURE dskstatrep(req : dskreqtyp);    IMPLEMENTATION P E "infofile : FILE OF inforecord; "idfile : FILE OF idrecord; "keywordfile : FILE OF keyrecord; "p1:FILE; "pf1: header;  " "C99A, C08D, C08B, C67 :STRING[12]; " "C99,C12,C08C,C08A,C17:STRING[20]; " "C24,C245,C21,C47,C22,C41,C49,C50,C18,C30,C48,C08:STRING[40]; " "C600,C351,C650,C350,C07,C80,C03:STRING[60]; " "C09,C37,C26,C42,C605:STRING[72]; " "C51 : STRING;   PROCEDURE errmess(messnum : nodeptr; "currentkeyinfo, oldkeyinfo, newkeyinfo : keyrecord; " "q, consolefile, printfile : TEXT; "infofile : FILE OF inforecord; "idfile : FILE OF idrecord; "keywordfile : FILE OF keyrecord; "p1:FILE; "pf1: header;  " "C99A, C08D, C08B, C6"saveresponse, anentry, mcentries, mcnumber : STRING; "w : STRING[14]; " "thekeynumber : ARRAY[1..keychoicesperpage] OF INTEGER; "thekeyword : ARRAY[1..keychoicesperpage] OF STRING[14]; "keywordinfo : ARRAY[1..maxkeywords] OF keywordrecord; " "rootunt, keywordcount, kotherscount, mclinectr, mccount : INTEGER; "keysshown, oldkeycount, ncolumn1, ncolumn2, pagectr, reccount : INTEGER; " "newkey, choice, name, groupname, srchname, persname : STRING; N; "match, found, itemchosen, validresponse, wroteinfo : BOOLEAN; " "syschar, ch : CHAR; " "infochosen, n, keylocation, i, j, k, kreccount, filelength : INTEGER; "keynumb, oldfilelength, entrycount, entrylength, entrynumber : INTEGER; "index, ireccoSaveLastPat:INTEGER; 'HiBit: BOOLEAN; 'LeftToRight:BOOLEAN; 'InName: STRING[23]; 'SkillLevel: INTEGER; 'TheFuture: STRING[175]; '  END;   VAR "srchdone, personal, gotname : BOOLEAN; "printon, moreitems, dodisplay, duplicate, oddentry : BOOLEA(ParaMargin: 0..84; (RunOffCh: CHAR; (Created: PACKED RECORD 8month:0..12; 8day:0..31; 8year:0..100 8END; (LastUsed: PACKED RECORD 8month:0..12; 8day:0..31; 8year:0..100 8END; 'Expert: BOOLEAN; 'DataCollect: BOOLEAN; 'ByString:STRING[80]; 'CORD (Defined : BOOLEAN; (Count:INTEGER; (Name: ARRAY[0..9] OF PACKED ARRAY[0..7] OF CHAR; (POffset: PACKED ARRAY [0..9] OF 0..32767; (AutoIndent : BOOLEAN; (Filling: BOOLEAN; (TokDef: BOOLEAN; (LMargin: 0..84; (RMargin: 0..84; MBER of the entry you want.ת(צ&There are entries for these keywords. <There is 1 entryתצ entries O'Do you want to choose an entry by usingת< key if you don't want to use the LIBRARY.תHצentry hצ with this keyword. (צ&What do you want to call this PLANNER?(Who wrote this PLANNER?ת(BYou may choose one of these words to add to your list of keywords.תHצ2Press after putting in your PLANNER disk,<n; fname : fnamtyp);    IMPLEMENTATION P L E ;   TYPE "qfoptype = (addop, reeditop, newop, loadop, .replaceop, xferop, printop, lengthop); " "qlflrec = RECORD .source : STRING[25]; .dest : STRING[25]; .blckx : BOOLEAN; ,END; ,  VAR "pathinfo : qlflrec; "source1, dest1 : FILE; "source2, dest2 : TEXT; "   PROCEDURE printinfo;  PROCEDURE quilfilio (option : qfoptype);  PROCEDURE updateidfile (option : qfoptype);  PROCEDURE updateWAparams (ronly : BOOLEAN; Adam : bisWAtyp  USES Chainstuff, Quillmanager, Readline, Utility;   TYPE "qfoptype = (addop, reeditop, newop, loadop, .replaceop, xferop, printop, lengthop); " "qlflrec = RECORD .source : STRING[25]; .dest : STRING[25]; .blckx : BOOLEAN; ,END; ,  VAR f there isn't another author press the key and then press .תP@צ> TITLE AUTHOR #1 AUTHOR #2H Keywords: /ת &FR ~Br okay?(jצ$Type your word and press . (U%You can add your own keyword. If youת(ѦFdon't want to add a word, press the key and then press .תH@צUse the first and last name.(Press . ת+צYou can give another author.(eJIצBWhen you are done, press the key and then press . H$Type author #1 and press . ת(צ$Type author #2 and press . ( Type title and press . ת(צYou gave . Is that okay?(jצ$Type your wor""á  <Okay disk drives, take it away! ,@  צ There are  on this disk.תצYou can use only places.ת צ #5:disk.data ^ #5:info.data #5:keywd.dataQDISK:quilldata;Z  צCONSOLE: &"QDISK:quilldata$ &! ^ަ #5:disk.dataP "L M &   náצ N>. (eJIf there isn't another sender press the key and then press .תP@צ> SUBJECT SENDER #1 SENDER #2H key if you don't want to use the MAILBAG.תHצmessage |Ӧ(There are messages for these keywords. ת<צThere is 1 message messagesת "Type subject and press . ת(+צYou can give another sender.($Type sender #1 and press . ת(צ$Type sender #2 and press after putting in your MAILBAG disk,ת<צ(Type the NUMBER of the message you want.( to choose a PLANNER by usingת<צ key if you don't want to use the PLANNER.HPLANNERת xצ to this address. (צWhat is this message about?(צWho wrote this message?(צBYou may choose one of t-Make sure you have a PLANNER disk in Drive 2.ת<'You may now want to print this PLANNER.ת<צ(Type the NUMBER of the PLANNER you want.ת(צ'There are PLANNERS for these keywords. <צThere is 1 PLANNER PLANNERSת O(Do you want"pathinfo : qlflrec; "source1, dest1 : FILE; "source2, dest2 : TEXT; "   PROCEDURE printinfo;  PROCEDURE quilfilio (option : qfoptype);  PROCEDURE updateidfile (option : qfoptype);  PROCEDURE updateWAparams (ronly : BOOLEAN; Adam : bisWAtyp^̂R׷צ*Rצ#RÍRl (Letter to lRlצ from lʂʂצlצ and lʂl)lllRbboardׯRBulletin Boar3837786666PšP6 . ء1 1צ. 87ȡ9Ǹ ˡ^ڡ'צ ء1צ 9Ǹ ء19Ǹ SCRTCH1 PLANNER.CODEz6 z|z6 4b6 *,,.#4:PLANNER.CODEK) ̅(צ #4:PLANNER.TEXT. %̅,ړצList#4:PLANNER.CODEE[*]$:SYSTEM.SWAPDISKRTz  USES Chainstuff, Quillmanager, Readline, Utility; # "PROCEDURE writeplanner; "PROCEDURE plannerhints;   IMPLEMENTATION P E ֍br r b^br SCR`b6 6 ^``Pb6 r  ǠړšvצQUILL1̂Ƃצ#5:ƂƂצ.TXTƂ0̂Ƃ#5:ƂƂ.TEXTƂٹk̂ʂʂʂT<TT;̂ʂTʂTʂTs7Ǡ:"L6llllll تQDISK:SYSTEM.WASTARTǠړšvצQUILL1̂Ƃצ#5:ƂƂצ.TXTƂ0̂Ƃ#5:ƂƂ.TEXTƂٹk̂ʂʂʂT<TT;̂ʂTʂTʂT  šˡȡulצPRINTER:lllllll تQDISK:SYSTEM.WASTART$   =Type a number from 1 to 10 for the number of copies you wouldlike to have printed.%If you don't want any copies, type 0. ġ ġ Fġ ġ 8ġ  @0ÍDvx 0LIBRARYת-MAILBAGתPLANNERת 9+  #5:    .TXT عFġ ġ! W?1D! t ̂\צ.TEXT.textš.TEXTצ.textš̂]̂]D#ʂ\ʂ] ʂ\̂\!# ʂ]ʧ " l 68N4l^Il٣$ȡ%l٢%l/l QSBr!"عP #5:QUILL.TXTתE5PRINTER:ת:SYSTEM.WASTART̂Ǡʂlצlʂllצlʂʂʂš$llʂl2llצlʂldתPllצTo:llRllצFrom:llʂllצ lʂlllצSubject:lצlʂllצQDISKء 1 8*Pȡ-, Restaurant Review:צ%Express your opinion of a restaurant.צ$*What is the name of the restaurant?*Where is it located?>*On a scale of 1 to 10, how would you rate the restaurant, andצwould you go back again?,, ++ ɡ+5ɡ+5á צ'Do you want to see what you just wrote? 1--ȡ1 M1P1š-..ȡ*1*113--ȡ59Ǹ 19Ǹ 11,"Press and to go on.צ5  1 E9Ǹ 1 1*1 1 5311 #5:QUILL.TXT ^-צ-צ11-11צOF THE ABOVE'צ N. SEE MORE TOPICS~  35 Topics... 1 dz Ʉ1** Ǡ9Ǹ ***Ǫ52Ʉ+5553צW ^^ȡ*ٝڝ5ōڝ5š+ N. NONE ve finished writing on this topic, press to go to a9new line, then press the key, followed by .M1 11šUȡצis about 2 and 1/2 pages.0Do you want to see an example of a PLANNER text?F 6ȡ-6ȡ1-1GWhen you haצצ8next topic. You must end each topic, including the last)one, with a to go to a new line.צצ-3. The maximum length allowed for the PLANNERצthe topics of the PLANNER. Each topic may also takeצצ8any number of lines. You must include an ASTERISK ('*')8at the beginning of every topic to separate it from the he introductory message of the PLANNER.צצ It may take any number of lines.צצG2. After you finish the introductory message, go to a new line to startצצ;typing long. 7Here are some directions to follow as you type the text'of the PLANNER you are about to create.61. Start with t'lines contain the topics, one per line.6Notice that every topic begins with an asterisk ('*').צצ8Also notice that one of the topics is more than one line'might look after you have typed in your2text. The first part is the introductory message,צצ6which tells what this PLANNER is about. The followingͶ *Who owns it?%*What kind of foods are served there?*How is the service? צצ(The example above shows how your PLANNER1 hZ \  3--ȡ59Ǹ 19Ǹ 11,"Press and to go on.צ.Helps you think of ideas for writing. You can`0take notes and get a list of your notes when you` are finished.d get a list of your notes when you`2Stores your writing so you can change or add to it`later a1ʁ5"ˡ Bad block #01Ɓ1aݡ9##bboardillersܡ #Must L(ink firstƁ1ƀ:=L FRAME @==" ADDL FRAME @==#CHANGERAME @==1READ FRAME @==2SEND FRAME @=MAILBAGUSE CREATE MODIFYNGE! SEE"á(TS.OQ[QQQUILL@==PLANNER LIBRARY `Bulletin Board.to other people, groups or theg. it` it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. itor theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg.r the Bulleting. it`-Write messages to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups or theg. it`Bulletin Board.to other people, groups choosing keywords orng. it`!Put a new entry into the LIBRARY.keywords orng. it`Change an old LIBRARY entry.RARY.keywords orng. it`-Read messages to you, a group or the Bulleting. it`Board.essages to you, a group oo start working on your writing. it`Make a new PLANNER.art working on your writing. it`Change an old PLANNER. working on your writing. it`,Read LIBRARY entries by choosing keywords orng. it`titles.BRARY entries bynd others can read it.n change or add to it`/Allows you to send messages to your teacher and it`.your classmates or read the messages they haved it` sent to you.tes or read the messages they haved it`/Use a PLANNER t V|GETNEWINGETMAILKGETKEYWOPOSTCHNG P#šk Ʉ^ˡ9 [deleted]ׯÝ Í" ɡצ [Deleted]Gצ4That is an illegal keyword - $؂((ɡ#SEE MORE WORDSת%צNONE OF ABOVE   ȡת'$@ RjPB-2"ץ-2 "Q-2 -Rn$$ɝ`ɡ@1٪˝ȡN  צN  , U ȡ&b ȡ)b/;  ȡ?  ˡš áA צ0Addresses to which you are sending this message:1  צ##bboardHצBulletin BoardR RP צ, Bulletin Board` PO  R RP , R ƀƀ` P ÝÍR - ">D0צ*You must send your message to at least onelocation before choosing #4.  ˡš áA צ0Addresses to which you are sending this message:1  צ##bboardHצBulletin BoardR RP צ, Bulletin Board` PO  R RP , R RצPÝ Ä צ*You must send your message to at least onelocation before choosing #4.  +That is an illegal address - choose anotherצP#F <צ)To whom do you want to send your message?צ**_3To which group would you like to send your message?צ##׮ ##bboardת[R,٪PتPUUȡ ,UUȡš [Deleted]ׯUUPUǠUx2. Send it to a GROUP  3. Post it on the BULLETIN BOARD4. NONE OF THE ABOVE. 2You can send your message to up to five addresses.צ@If you don't want to send your message anywhere else, choose #4: 1. Send this message to a PERSONBBB B*choose another, please.ŝ Ʉ Ý Í š2 /"BHd ȡת'$@ RjPGצ Change it?2 6Would you like to change the title or authors of your 6Bצ?CTITLE: GP^ צ AUTHOR#1: ^ء<^ #5:INFO.DATA^!^^ P  !#!Eš;  NO ROOM TO ADD!!!^!^^ 8á^Sp צINFO1: .TXT<^!^^ 8ޢ#11áצ13)#؂ %= Ě ȡa ɡFˡ3  m`zK!FȡۢF# "ˍ5ޢ##Fr  #ȡ5ÝצXX ȡçȡ*^% ȡ Wڣۢ!F ڣۧۢ!F!ȡۢFܣۡڟáڣ EP ^  ^(eQ)R^V^$  ڪ  ɧ    V fá"   ê  Pڟá&ڵܣ ڱhose disk drives spin along, doo-dah, doo-dah. a צ;Are you sure you want to LOSE the changes you've just made?20_ؓ HN צ again.צצ34. FORGET the changes you just typed and leave the צ as it was.^٣#^^S^^^M  ^^5Watch t from what you've just typed.The old צ will stay the same.3. EDIT the old צ again.צצ34צצ1. REPLACE the old צ with a new one that$includes the changes you just typed.צצ2. Make a NEW ^S^تآآأ$aaȡ%bآ%4F3צLIBRARY0MAILBAGתצPLANNER=.  Which would you like to do?P^D (#!#^^^Mš71צ#5:^M צ.TXT61#5:^M .TEXT1^M  ^SG  P^צ AUTHOR#2: ׯN -- none --Gצ'Do you want to include a second author?2G7áצ addresses צkeywords #`šצYou have run out of space for ..Your entry will have to be added without them.á  3צLIBRARY0MAILBAGתצPLANNER=.  צWhich would you like to do?8 1. SAVE the text you have just written on the disk., 2. EDIT the text you have just written^Mš1צ#5:^M צ.TXT0#5:^M .TEXT0צLIBRARY.צMAILBAGצPLANNER:, ޢ'צ#5:ETURN>)What is your name? Rצ**RP)RPצ/(Type the name of the group and press )צ)What group's mail would you like to see? R##RP'Rצ##bboardP:#ˡ   Í - "]!R]]VgT hRצ&(Type in your name and press )What is your name? Rצ**RP)RPצ/(Type the name of the group and press )צ)What group's mail would you like to see? R##RP'Rצ##bboard | צ [Deleted]Rá JI mRצThere is no mail addressed to Rצ&(Type in your name and press . C6If there is still a problem, try another program disk.NNعצ5Your entry must begin with a letter, a number, or "#"Pצ( Your entry was not a numberP properly./ 1. Make sure the program disk is in drive 1.צ. 2. Make sure the door to drive 1 is closed.ع= 3. Turn the Apple power switch off and then on again once.Eצ' 3. Type Ƃƃ0Ƃצ #4:rights.txtƂƂ áÍƂ;VNNp "ǀ צ)The program disk cannot be readB*jEXECSYS  % 4Copyright 1984 D.C. Heath and Company 1Copyright 1983 Bolt Beranek and Newman Inc. 3Portions Copyright 1984 InterLearn Inc. 3Portions Copyright 1978 Regents of UCSD          -QUILL was developed by Bertram Bruce and Andee Rubin 7of Bolt Beranek and Newman Inc. -The Writer's Assistant was developed by James Levin >of InterLearn Inc.    "Enhancements and Modifications have been made by DCH Educational Software. U U I L L 5Q Q Q U U I L L 5Q QQ U U I L L 5QQQQQQQ UUUUUUU IIIIIII LLLLLLL LLLLLLL . rPGdd NۥrȡrۛrۛN١ d١rGddšédDr rȡ1rܛ 0GddčUƁ)ráT,إrɡrإrr T󓫗TP +́Ɓ SYSINFO:I ƁYƁPU+"́ʁˡ<ʁ áUPROG:IX1!ʁ áUצ SYSINFO:IX2U U  ˡdN dˡ +-W p Ȅ(P,7When you are finished reading this page, press RETURN.  ,V  N pN qdisk:EXECSTRS"@́\ʁ\ˡߡdd ߡdɡdˍ צ) ߡ#dd &צ QUIT USING  Lj LjNš8T Ɓ=N<NN NN NŃ]ʁ]ȡ* %dN NŃ]ʁ]ȡ*ʁMɄ ʁMd́MʁM˄٢ʁMdʁLd٨ʁĹL qUצ the PLANNER.PSצ the LIBRARY.P9" the MAILBAG.תP ]_aIKM57ǀ y )contact the Department of Education directly.  STARTUP ',ةácٕcٕF   & ٪P&áצError: á"; push RETURNTn  JڤVڳ *#D񿥄DPxá#=ȡ D% P  P j ؾ,ھ'ھ(å˄ ˥۾ܥ( V)ڥ˄6)&۹ with (Push RETURN to continue \ ESC to exit&ڡ R šɡá 1!)\) )\)צ#4B 'When text is in drive #4:, push RETURN`&ؿء 0P? عHd`P?>۪PצPut in diskB 8(c) 1984 InterLearn Inc; Portions (c) 1978 Regents of UC ; :t:"z1 WA HELP SYSTEMSTIO SPELLCHKCOPYFILEENVIRONMWACORE z z̈Έb<   P ?YBRARYM.LIBRARYV ٢٢٢٢٢(]צQDISK:moreqdata]آ!צآצآ7צآ,צآ צצآMצآBצ]]]~]X/.ȡ- צ qdisk:EXECSYS]7N&~ PRESS . #4:names.txt,V ٢٢٢٢٢(]צQDISK:moreqdata]آ!צآצآ7צآ,צآ צצآMצآBצ]]]~]X/.ȡ ,, áöÍD\Ɓ0צ #4:titlep.txt,PRESS . #4:names.txt,Ɓ/ VšuV"ٓX&צPut in disk with V; push RETURN١!T% ۾5۾á۾ ۾ á ܕP ^xx1ܥ ٩ڞڂ ˡ ! UT22ȡF1"۾ǀɡ1۾š1 ,۾قةٹצUse another disk nameUse a shorter name^"á ^3Not enough room on the disk  is new. Is that okay? # Yá #4:QUILLDATA"ˡצ #5:QUILLDATA**š!***-***-TlتP++צ#4:F& צ'When text is in drive #4:, push RETURNh۪P^عצEXECSYSPADDתPצSEEPCHANGEתPxTRANSFERתPfDELETEתPVEDITORתPFITIתP9צSTORYP*ROLLתP zl\1$RDצ#4:SP(FT  Ƃƃ1צ#>Help: H for the index\ ESC to exitPƂ-צ #4:WA.HELP ƂƂ-"ˡƂ-5ƂƂ-"áBH ˡ3Há0 # ˄)WA.HELP Ƃ^dCø :Ȅ^ ڡ ق^áQڡ0&á#Yˡáġצ No help found V%  á  % %áá  á á  á !Aˡ)mf  4 L @ \ |  B 8 Z H hL l J4 B R)22P2 what marker? ^2P-,-2,2ȡ-,-,#,,---- B"á"á9צ.TEXTȍP.TEXTUPVb!)U 㓡  ؄ ,"  ݂݂ߞ á.FĄčxJ0"٪P22P2 á  -á á ؓ  Äܕ ũȍ4ء ˄  á@č ؂BĩBɄ B؂BHZ D۫  $éF"č١@ ءáݕݕ3"޾ǀɡ3޾š3 +޾ U܂e` ڡ J١ة5 ۥةč* l$Kȡ'tڤġtڤtڤ6ڕ šH0No room to copy the deletion. Drop anyway? (Y/N)תP#Y(DڕCCBBC3ڂ ܩٕݞ݂ ˡ!X44ȡE \ c[š' 0 ۍ]ۡ צRepeatfactor > 10,000  } á ύpd  áکx ܂áũؓɍš ٚáءh ةx ݂ɡ ݂٩ەݕ<צDisk is write-protectedError # צ in áreadingצwriting@bfhjlfBvxz"$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~4  צ Push RETURN @R j:ץצ:צ.TEXTˡ צ:WA/ƀƀcƀcƀ>#5ת0>QuitתP꫃ )%뚮Q cťń$  c&Ɓ^ƂƁ0.ڹ 80 (  "$&:Ɓ Ɓ^ ɡ|.   ^ˡ+ ɡP ꕞ^ˡ+ .^bT QUILL.TXTת^  Í  2تPצWriting  ^"++ˡ+ C+JǢ:צ.TEXT˄1^ˡ+תP F  ((ń(Ą?Í  JǢ " ȡ"  c (^"ˡ&y4 #4:QUILL.TXTת^"ˡ&y5 #5:x ȡAZȡ AǀAazȡ AǀA09ȡ AǀA    cǪ תPbGIHYSYSTEM.WASTART"ˡ JǢ 6^áJǢCC^> D A@JeJǢ CC~#'JBy תPצ J L M P Q R S V X Z , > . + - ? / = < W O L H B T!         09ȡ ^#4:SYSTEM.WASTART"ˡ1^צ#5:צ آ- آ, آ,آ'آ'آ(آ(أ.á á %آآآN詄  پخ  J A C D F I Text overflow ^> Z آآ-آ٢آآ آ آ#آ#آ! آ"آ!آ%٢  أ.آ)ˡ&^ˡReading .TEXTץá  ^øc.  ĸ á "ˡצ Disk error uit\Jump\Page\Find\ <- \ -> \RETURNת(' In: Type your text \ <- \ CTRL-C \ ESCת(Iצ7 Drop: <- \ -> \ CTRL-C \ ESC \ CTRL-I \ RETURN<4' Aline: Left\Right\Center <- -> CTRL-Cת( צReading .TEXTץ J قؚ. hiצ W: In \ Drop \ Quit \ Help \ ?(i# W: eXchange \ Mix \ Page \ Set \ ?ת(i& W: Aline \ Jump \ Find \ Transfer \ ?ת(iצ" W: By \ Copy \ Replace \ Word \ ?(5i( W: Q)C )-)C ))צText ))Data )))צBy )c)KError #  in opening data fileNb J٤ؚٳצ000á忥)")צ#5#4ת0ˡ)צ[*]#5ׯ"˄ڡ צ#4ړ"á)צWA:)C )-rz l<^V 6 H&H$  ^ˡ+ ɡP ꕞ^ˡ+ .^bT تP (P R&0 BA1CA2DA3FA1GA2JA2KA2LA4MA5NA5PA1QA2RA6SA2TA3VA1XA2ZA2ڤAڳ  ˍJ% á Ǣ ˡ   ˡ    Ƃ%ƃQDצ! Copy: From File(marker,marker)? <Ƃ#Ƃá Ƃ,á צ:Ƃá#Ƃ̂wƂwצ#5:.   tĶɄ, ٨޶ޤ ޤ MMarker not foundתPز+ޤP  ` MצCan't read fileP ,áؕ   ە J~ ȡ=ٕڂġM No more roomתP ڞڂJצ.TEXTá   % ø ifying markersP   צ ˡ ײ..ȡ۲۾#[ײá(ײˡ]ײá)ײɍٲˍ.ڕ.P..#צتP++צ#4:C 'When text is in drive #4:, push RETURNfM  ꂶ4ꕕ*MצIn spec"ˡ9צ$Word is not available. Push RETURNP ٓ 9)Word: ) ١) by ))ٓ;צ(Sorry, don't know that word. Push RETURNP bƂ(ƂP Ƃ((6:^* ace ؂ꕞɡ ؂ꕞ؞ˡڂڂ  Ƃ(ƃTצ Checking...P Ƃ(̂QƂQ#4:ƂQצ SPELL.LIST ƂQ"ˡ0Ƃ(̂QƂQ#5:ƂQצ SPELL.LIST ƂQ"ˡ9צ$Word is not available. Push RETURNP ٓ 9)Word: ) ١) by ))ٓ;צ(Sorry, don't know that word. Push RETURNP bƂ(ƂP Ƃ((6:o room. Can't replace ؂ꕞɡ ؂ꕞ؞ˡڂڂ  Ƃ(ƃTצ Checking...P Ƃ(̂QƂQ#4:ƂQצ SPELL.LIST ƂQ"ˡ0Ƃ(̂QƂQ#5:ƂQצ SPELL.LIST ƂQ      šx /ȡ ؾ زؾ  /ȡ ؾ زؾ 'e    ٕš5šצNھAòھ'Íەھە=d z  Checking...תP  Ķ>پ á  J|  @۩@Yø۩á  Checking...תPv  (0šڑ   ھáھAڶɄڶˡ;ȡ+⾳"   צ0000  ȡȡA %j Do you mean: תP?ȡ2ھšھ ھٕ? #۩  תپٕȡCursor not on a word׮š ڞ ڿSh ٪ ȡ7⾳#  ȡá   ƂwƂ&Ƃw#?ƂƂá ƂƂ%ƂƂƂ%ƂD! Copy: File not found. New name? ת<"áDצ Copy< .TEXTƂˡᓄ ڕɄčᓄ% Ʉ"ˡצ Disk error Ƃ%Ƃv bƂ%m&x ! Copy: From File(marker,marker)? <Ƃ#Ƃá Ƃ,á צ:Ƃá#Ƃ̂wƂwצ#5:Lؤ צ Not there tؤ[ D& Jump: Begin\End\Left\Right\Marker\ESCת<# ))2WS H  - )BR"9; E! BáTD멂C BũBĄ Invalid copy %멂CġNo room  Fá  צJump to)) ׷ [ةKLؤ øá> <  *EꩂCBĩBɄBCꩂC BꩂC멂CꩂCbjD Copy: Buffer \ From File \ ESCת<# D))  צCreated: - -  Last used: - -  (InterLearn Inc, Box 342 Cardiff CA 92007)צHiBit  xRj@r צ characters (ǀ  blocks) used,  צ moreKšצMarkers:K̂5ʂ5ȡ8á Lؤ  צCreated: - -  Last used: - -  (InterLearn Inc, Box 342 Cardiff CA 92007)צHiBit ! K)eep these values for new texts  צ characters (ǀ  blocks) used,  צ moreKšצMarkers:K̂5ʂ5ȡ8á Lؤ R)ight margin  צ P)ara margin   C)ommand ch צ S)earch mode  D)ata collect  E)xperience צ B)y line [" + ,.^ Ɓ.xDצ$ Environment:Parameter \ ESC to exit<צ A)uto indent ~צ F)illing צ L)eft margin  /áš    PmJ*Ǣ,#4:SYSTEM.WASTART .AS&e *0*  ,"ˡ ,*á L D#++  ~ + b+~*@BצY or Nȡ#**Yî*YnB ** #* *#*ɡ  ȡ6צTokenLiteral8$צNoviceצExpert +FءצYes No,#*ƂwƂ&Ƃw#?ƂƂá ƂƂ%ƂƂƂ%ƂD! Copy: File not found. New name? ת<"áDצ Copy< .TEXTƂˡᓄ ڕɄčᓄ% ɄF$0 +צ"can Mix only when F)illing is YES  Dצ! Mix: Sentences \ Paragraph \ ESC<#  ˡ]))SëGDצ Mixing<RÓG"ةbD   KKK áKȡ/ ) L٤צ#Too many markers. Which to replace?Pڳ 0KSet ׷ K ڂ٥ č7g ȡˡ ˡȡ ȡ 4` x bġ)š儡ġ o Z@ á7á,ˡ%)\) )\Íáߕ߂ޫf=|   Ʉګ ۞ە D<    šġ IH á éIHHII ~ȄgIHǀ IG)Ąٕثٞق?//ȡ/ھšھ ھ UقK^šOצ(Do you want to LOSE what you've put in? P#Yˡ  dT á TKxȡ!  앸)_   - ؕ٩ġ ٞضɡ"ظؕ ~ áظš  š) á ˍ ˄Xˡ ء<ȡ ؂ȡ#ń؂ġ%؂š!؂Ä á؂١؂ ؂ خ) h  ڶ šצNo more room!!!!     Cȡ2ؾšؾ ؾ UĶ  p Ŷ؂ġ G" á)bÄ Í   $DBCڶȡ hڶġ] 1צYou're almost out of space b D2)BBCȡ)ؾ) FꕕɡצNo more room!!! Nˡ ꂶ©ÄDDȡ/ؾšؾ ؾ ǀ bO2D Dropping ת<ꕀ  characters. OK? (Y/N) #Yˡ NEš ꕞ  ˄éIHHII')\) )\`꾿IHǀ Iń)áaګٞ =  hhhšh D# eXchange: text \ <- \ CTRL-C \ ESCת< IH ábš[پń )_ á KȡL٤ LؤtؤةKáKKbDr 0 D Set: Environment \ Marker \ ESCת<# ))  EM   a *š  - <ö莶Í    ń xɡ V d! Ȅ6 ɡáš!蕩Ķ  蕮  "ń7 á P1#Sáp x21%Invalid delimiter  .IH0éIHHII]IH˄ ń~Ȅǀ Iá*۾ ń تP+T&/ á . ö 0IH ń~Ȅj0 01# 0-0%0LV +# áD( Transfer: <- \ -> \ CTRL-I\ CTRL-C\ ESCת<-ˡDצ' Move cursor to destination then CTRL-C<*Dצ! Is this where you want the text?< # á&  á&*" áÄ n©G"ٕۄEɡ ꕞ ٕٕbثEDBٕC٫ é“ܶ ˍ$> , J- á-! J á   #$<á#$!"%øá< > ^ġNumber too large ( ) <á#$suTٕ,˄  šɡ ,ńšٮ ݮ+,   áDI< á   <Ä>   J *ȡfھ á/ń צۂ.ھńھ ھmx+<á#$!"}%xtš%`ġ'( ) <á#$, $P bdsqV y Í á8á  á  Cá1á  ەܕ۫ 4`(šA>á#áR)  FK<8<á+ $ .,20. 46 n#$á'%á '˄  Í۫ bR &ȡ>áG꾤AɄ꾤AɄˡ K꾤Ańˡ 꾤Ań  O Lá '- áڕ'ڕ' á< >   ȩFd% Tá'J ܹ-'2ڕ'%ڕ'5.#8핞.dšצBuffer overflow & 핞ˡ핫؂ '  D4< #  Fá F J á ø xɡ Ʉ3 ɡáĸ š%蕩 Í  蕮  %؂ɡÄ؂ aš xɡ it# Ʉ; á š!蕩Ķ  蕮$<áTń/ á ꂫġ  čġ,That pattern is too long  .03۶ ۂ۾Ä۶ #.4  á,45ǀ   ٶo ġ ضá 8؂á4zt 6ǀ   ڶo š á 8ضáئתPá  0 ȡ+ۤ ۤ Ąۤ d צ:PUFڪP  Put in disk צPush RETURN  r > x `l.~&bd >^>P!!"#h$$t%&&'~'$((*+P+l+ ,@-/@.///0F1 @@@=@@.   @ @ @ؓÄF.@ @ @y@j L!D-:.s`S\^`bd0jl\:<=NP ? ˡ ?ٓ&)/צ[/]'á )  @@@@=@@.   @ @ i)C_)TU)SK!D p+ QiCqiaYGDWEX<?Q z>"ˡhDih<   >DĩhÍÍ@Fá. F) ))צView))) ))צXchang)) ))צZap))) ))Aline)) ))צDrop))P)U)D})Ls)R) ))צIn)) ))צJump ) ))Mix ) ))Quit)) ))Replace)) ))צSet ) ))צTransfer)/) ɡ&)\) )צ\\7\)))))) ))צBy)) ))צCopy ) ?)) ))Find)) ))Help 68 ١*Ⴋ á<ۓ.<áٓ,Fń"צChars not found. Push RETURN/צNo old pattern <ل ݓ ".Pcx yPث|J=b $<á Findצ *characters* ;צ Replace *old**new* ;012ܓ >3@ á012ܓ ?3AáLooking á Replacingé@ éA@| ȩFل ReplaceY does\ N doesn't\ ESC exits ; # á .?šOš5צBuffer full. Exiting Replace  . ?ꕞɡ ?ꕞ?ˡ؂؂áxAáje  ˄ ȍ  á ȥ  Ä4 H8.۪PڪPD.<[F / צ]:P;~ צ >Ʉ >á? :á9:  >á76v bá9: 5  ǀ    š44zt 7 > >  >áX9   >Ʉ     ö>Ʉ > \ ESC to exit RƁ0ئׯ:Pئ#4:ׯ<'Put text disk in drive #4; push RETURN"˶ÍצPBئתP B :,B CCȡBڤ áBڤ Da,צ) DDDD -,ښ,,,B ÍB ˡ)To see more texts, push RETURN,áٳB ÍUB,á, V ٢٢٢٢٢(]צQDISK:moreqdata]آ!צآצآ7צآ,צآ צצآMצآBצ]]]~]X/.ȡ- צ qdisk:EXECSYS]7N&~ PRESS . #4:names.txt,V ٢٢٢٢٢(]צQDISK:moreqdata]آ!צآצآ7צآ,צآ צצآMצآBצ]]]~]X/.ȡ ,, áöÍD\Ɓ0צ #4:titlep.txt,PRESS . #4:names.txt,STARTUP y )contact the Department of Education directly.  be inferred. * .This software may not be copied or reproduced without )the consent of D. C. Heath and Company. After November 30, )1988, the original, unmodified work will be in the public )domain. Persons desiring copies of such unmodified work maz z̈Έb<   P ?YBRARYM.LIBRARYB :,áٳ A,ˡ,,,D-ڤB .CCB Cצ:CBڤ CP9á&X