`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 APPLE0/ SYSTEM.PASCAL$gi/0SYSTEM.MISCINFOE0{SYSTEM.COMPILER9{ SYSTEM.EDITOR$g SYSTEM.FILER$g)SYSTEM.LIBRARYg9SYSTEM.CHARSETg SYSTEM.SYNTAX$gSYSTEM.MISCINFO&꽌ɪɖ'*&%&,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,z3 (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYš š۾.ˡצ([šܕ!!(š۾:ˡ١.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  (/V 5>9:;F<Z>2@@D$G`I PASCALCOCOMPINITDECLARATBODYPARTROUTINE STATEMENCASESTATFORSTATEBODY1 BODY3 WRITELINUNITPARTCOMPOPTINUMSTRINFINISHUP#`!%á á ,0I; ۡOڤ   H ؿ ٿ 2áL Lˡ Ä ޓ%  LL߫LÄdݟܟ˄ބݟÄܟÄÄù2ީ<&á ᚹi#ááإg$áá =إC0á5áީޢإ j ޚ á۟ڟÍ~2~~%á:á;% ީ6 ޢޢ ǂإ (`á  á  ˡgá áVީ=áá ᚹJFEښ á !ک;áˡ < ɡ ءUb b & ڟˡá ;Ä /á á ǐ"x_ ٟˡإá؟؟"ġ?ڟˡ(áڣb 5g5ChK4I(G   =>) )=á   {  "$&(*,.2468:<,nplnprtvxz|~&%1Ʉ 0ۂܳ @ۂ#ګ}*á*.á =á '((')<\ >+.á_ ááP P &]] $á  á á)}Í,.+ VNO/ܳڞ d Zö _ń/>>>>>> Error #  jڟá ؚ7؞áeá ؞á٢ؚ٢ؚآآ< d\\12.\[2áZˡr%DZHG_%$ ZˡǑá áZZ:&DO 0.*\  a ] _dšd_ڞá% š  t EÍeÍٶÍEeÍ Z ǐÍ 1<\ >Nk _ $詂BB$HIáZˡ$JZˡ$$CZFE_$/%+r ˶ ZˍZ  ظ  E1+ǐȄ_á ._ _ _ڕڕǴ <<<<צLine \ צ, error  :12צ( (continue), (terminate), E(diBBB B B B B BBBBBBBB4(C)Apple Computer Inc. 1979,1980 (C)U.C.Regents 1979ȕšۥɩٞققȩ؍- áˡǒٕán | `ġ%ؤáVؤ`O VV0Pd؟ˡM٣`:٣ á3٣ á,٣'u  undefinedZ2é *"!áǘSS&N ]Mō  Q Aá>á Q Qé Äܓ+Qánjxf   M1V ́ʁȡ  צApple Pascal Compiler [1.1]< 0>́ʁʁʁʁ(Y%A URrr٢ ?*( /&V`aWǂ,)(' Uȶ1-2. #43*05%$O ~8z~v|zbtr'" t LF0,+%ݡ    ɡ  ݡ؟ˡآښؚ=b(ɞ(&ō""!@DL_]+Z\[ ȡ6O ٢٢ ٢٢׮;IORESULT.UNITBUSY.PWROFTEN.UNITWAIT.UNITCLEA.HALT.MEMAVAIL.׮ɡ`ܹ:  ;  =   ۚZR:  :=4/T.GET.PUT.SCAN.׮צ8BLOCKREA.BLOCKWRI.TRUNC.PAGE.SIZEOF.STR.GOTOXY.UNITSTAT.ɡj*ٳ $Lٳڡ  ߢߢڡߢߢߢ ߢ ٚwODD.CHR.XXX.ROUND.MARK.RELEASE.ق>=READ.READLN.WRITE.WRITELN.EOF.EOLN.PRED.SUCC.ORD.SQR.ABS.NEW.׮7UNITREAD.UNITWRIT.CONCAT.LENGTH.INSERT.DELETE.COPY.POS.׮7MOVELEFT.MOVERIGH.EXIT.IDSEARCH.TREESEAR.TIME.FILLCHAR.׮6OPENNEW.OPENOLD.REWRITE.CLOSE.SEEK.RESEܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ EEܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ .تPɡR: . ٞNIL רۢ8ۢۢ ۢ MAXINT ۢۢۢ  Z רK KܢܢJ Jܢܢܢ ܢI Iܢܢܢ ܢ ܢG Gܢܢܢ ܢFFۢ̚C CINPUT רۢ9ۢۢ ۢ CB BOUTPUT ۢ9ۢۢ ۢ B KEYBOARDۢ9ۢۢ ۢ ȡN ܢ:áFALSE TRUE ܢؚܢ ښܢ:ٚ  INTEGER ۢۢ REAL ۢ=ۢ CHAR רۢ;ۢ BOOLEAN ۢ:ۢ STRING רۢ6ۢ TEXT ۢ9ۢ INTERACTרۢ7 آآ==آآ<<dLآ;;آآ::آآ88آآ99,آآ;77,آآ;6 6آPآآآآآآ;آPC"Jr "fn nZ~<Tp  F  :ˡݣ +0,MÄO ` M aQ!Q QS=Má02á+QáJNm^ rf *  $!        @<JJvrQQé ÄrܓQááQÄ ÄjQˡݣ +0,MÄO ` M aQ!Q QS=Má02á+Ḿʁʁʁʁ RO AÁʁʁʁPROGRAM ʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ!á_á O Aˡ AAá(rááP Q Q́ʁ ʁʁAʁʁMʁʁaʁ ʁP} :@v.  < 0>́ʁʁʁʁ(Y%A URrrߚߟˡ% š ǩ\.áW -ǿ  á ߚߟˡ ,(ٟá!&( 7"  b  ȡ ǎ  ߟá-á ɡ ł ߚ á *á á ߟˡ%Íߩ=Í s ߩ=ár  ޟˡ1ȡ$ީ=á má Ǖޚq˫ á  á ˡ ál"ȡˡ9 إآ آ@آ @$ ˡ ˩   l v vvz á +á$b b,áá   ߚ ˡ álˡá%  ޟˡ ߚá؟*/)}%* n   آآái5 5 á)  ˫   Í QyQ  áá>  ߚ  ˫ áˡ o  ٢٢ ٢٢    ˫ áá á (  š  öń ˡ%      ł  á  á!  ááU  ˡ8ȡ,=m  ء n ł á      ڢ ڢ ڢ / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ ٢٢٢á   ٢٢٢٢ 5 5š fߚٟ: ڟ˶zbک=˄2 ġ%ɡ܂5 ɡ۸ ik3T@š  ڢߩ<  á$ōá á -ǿߟˡkߢ  ǔޚ á ߢ ˡkߟˡ6á,ˡ%=áǏ ái ǔ á ߢ ˡkߩ6Äi á6ō P Pˡ ߩ6 á yá\áU "zzzá ˡ á7 ߚ  ˡߢááḾʁʁʁʁ RO AÁʁʁʁPROGRAM ʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ!á_á O Aˡ AAá(rP ^yۡ?a7ǀá(TڤT`( ^ Dٟٲ TO٣  ۣ٣ ``٣ (٣ T٣ T IhJˡJJJצ*SYSTEM.LIBRARY"ˡJˡII  Ǿǻlrڤ(ڤ `M)aU  O ۢۢ"ڤۢ (d1@#  1á áNJá' ǺáááMáRC $!á ǹˡE$words]<\ >5ˡ ``ܢ ܢ,á$ܢz"é /ޡǡܢ"áá@ߡS QQ Q M aء` ^áޓܢۚo ޓܢۚáPá4ޡzܢݚݟˡ xܢޓ{á5áMˡǷ $ǸءǏ [( צ `Ǖ ál۟ˡJá5á  š á  š ܣ ˡܣ `ؓǏFM a ܣ aMɡMM ɡ/ޡá$ Sܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠޓá     M ` ` ($ء O áآˡZޚˡ@á -á&ȡ   ޚٟl vء@0 ǏVU ` ` Ǐ á ]&.˫  áJá<   ˡááy ȡ 䏂 á  (( ߟˡ ˡ á)@!b@ˡu@UY d áw@!@á  ˡ= ߚá M.ݢ Tݢ Mݢ M ݢ ݢ bb˫ ábٟˡ>ݢۚݢ ܂ á ۟ˡáݢؚá  é á ݥݢݢ) Äڢۚ@ٟˡ)گ ٩@ˡآ@á  é @ˡu@b ák   ݥݢٚݢݢ()Mȡ ۩ۢۢڢؚ ˫ ár ˡás ۥۢۢۢ) Äآٚآ á  é { ˡ( (ݫT, Mšǽ $?ˡ+$#?؟ˡإ Ǽ ˫ ˡá$ ?tc #áT؟ٓˡ Ǧٓ h   (  T?(, \[(! š^T (áQP L @'Z( `ۢۢۢ`á $F_EZCZ4  ب 1U [( צ words]<\ >` (  ? ˚ 2˄+%ݍr fS! ZbF & <$d ,@Lp(@ߡS QQ Q M aء` ^1(Yɡ Yˡ< [  words]<\ > -fˡU2أ أ 2أ أ ,á7á;áM%? ؟ˡ$š á$á%& ˡ ˡá ١M ة=á6١á"" ˡ ˡ}sة< ١]ة;á ١MJ ١M5)ˡ ˡ]M M==< );M M}/˫ áٮM/ Bö<Rˡ(á!;á"á˄ۮ&Iܮ0 ٢ ``Ǖš``٣ ,٢: ٣á 2٣ ٣  6٣ ٣ &Cö>ˡ(á!;á"á ˄ٮ" ág !    ˡń eˡ]ÍIááǏ ;áˡńǍnnA-<;U Vá,  3 ˡ䀮šNjˡ>'á3 @$ńˡá áˡˡ njáˡu á ǘ^ " ǐ     ; ˡǖg   z9ˡń n;nnáݟˡˡ NJ  ˡ ˡqݟˡ<  H5ˡˡt ء!%R   ˡ Ä 6 á 6MˡC.86ˡǐ#;=? 5.TˡX@&ǐ72ˡ"g  H5f ˡg@&ǐ72ˡ"g'ڢȡ?á$خڢ+=˄8á=á33D6(#":<> % @˄˄0 $ۢ9á ۢښ :ˡLJ!خ٢`mۢۢ`mɡ'ġ 9!٫ خ 4Pˡágǡáقšخ\á خO٩MáخAɡ*6áǝ8áǧّخǀMٕخٗMخ:á DŽ`ǀȄ?á(ۢáۚš$ġ á ٳ0d@h ٳ ǀFJ)ÍȄ )á ؂؂#Ȅ ؂خ @MÍǀڳ&ˡ ǀDXړǦȡۢڡ" ^Ȅ"3ǔ؀؀ɡ:ȡǀ(ǀ3ámá šˡ ˡ M  f˫ ,.PX  "&@ǀš'A?ˡǒ??@A@ک ۢ ۢٚ۩V؂@@h ݕ١ܮܮM}/˫ áۮM/\4 ߣ á ߣ ˡǐáٟá~" ٟ˄٣ڟˍ٣áȡ;Äˍáܡ  š há'á <ܡ  ;é3 %ک= =6DÄ ,'Xˡ ޕˡǎګ]áRág ڟˡ@+ˡǎ*ߣũ'ǯ35(ǚáˡ} ;ÄJá >ءǚá0;á'Wݢݢ쿩W 6  ˡ}6 x ˡ' áˡ átá #Dž p2!á A*57401)0"7/ 2-!*ǁ: lL   %"!% D< N&|d jjDlPpF$J %$ X$f ܩ=á ܩ:á  ǃ  DŽ v %  ˡ  ǃ6ǃ #Dž p2!á A*57401)0"7/ 2-!*ǁ: lL   %"!% D< N&|d jˡ   $ X$f ܩ=á ܩ:á  ǃ  DŽ v %  ˡ  ǃ6ǃ}& !ˡ ەˡǁؚ,$!)á;Íˡȡ á  X !;Íˡ ȡ ܟ˄á+á  ǁ ǂ "ܟ˄ Ä@ܩ==Ä0Ä  dž Ä@ܩ==Ä0Ä  dž(ܩ::Ä  dž džw ÄÄ  džFÄ dž-ܩ::Ä dž 'sD0 $R" (` "/á#=áá  dž(áXZ\^`Kj%&$\##'á #ܟ˄ Ä@ܩ==Ä0Ä   džܩ==Ä ޡ 䔜ߡlj˫ á ߡ,WWWWWWj0b "$&(*,.02468:<>@BDFrbPRTV#:Ä쓫ˡ:ˡ LJ á  ˡˡ Lj Ȅ  áG   ljޡȄ j^ܣá ܮ#ܣá ܮˡá=á; 6  <   áأ át ݳo"   ޡá ~==Í؍á =á ٩=0Í#á <á ة<8 j:jǎٟˡˡáٟˡ~ߣ áߣáߣ á ߣMߣ ߣ Fߣ ˡ Mߣ ߣ 4ߣ áBߣ %ߣ MáNߣ ߣ áOߣ .ߣ ߣ ߣ ˄ߣ dCأ ámٟáǞeˡǢWˡQة=Íǟ<-؟ˡ á t   >  á      á á  bá`!á A؟ˡ=٣ á-٣ á ٣ ٣  ) ٣  }} x  áá    á    á  záۢۢۢ/ 8M ۢۢ šnj˫ á6ڕٕ NN#á^ݤˡݤޟˡ$ áǥ ǧ    f˫  á 5EG X  @   á69  FáIB ˡ~ár ɡe 9 ٓǧ9V rf˫  á 8: B ܓ    á4 ܡ ۡګ  á.ܓ 9  ܡ ۓګ  ܓͫ٫u3    s  f _    Jޡ *٣  ( ( '( ǒV~ZUkD#ǁ3  4#áSڤˡڤ؟ٓá@ á ˡ ō  á ;ˡȡ  ٟ˄á= =<"á   <ˡ ǁ<ޡL;Ä68ˡ/   ;˄X ˡǁF"$&FD,HJHFH8TJHj  ,RP 8 "  , öÍ   M / á =ˡ"=á á   } ˡ   W,PKM'"$&tW5. 68<>@BDHJLN[    س}{ع0tp l hd` \ XTPL H +@8686 8::<: ˡ  ˡ  ˡ ˡ}ˡ!áM , öÍ   M / á =ˡ"=á á   } ˡ   ˡá =á }ˡá =á }  >    ˡM    M            M / áˡ 01  ˡˡ};˶ÄǏC   áM M : ˡáá  sˡˍ}  ˡ)á á  á }} ˡ ;ˡ} á     ˡˡ} ˡǏ  á   %á 4PURGE  CRUNCH   M /   ˡˡ} áǏTá  } KM CM ;ˡ ;ˡǏ  M  ([=7 9/ 2M ٣ɡ ٣ šث ٫+áM M  <á  <}    tT  ˡ ˡ}áwáiNORMAL  LLOCK   8M 2M ɡ  M 2M ˫ ɡ  šث  6 ٚs á +ˡîá 2M  ˡ  ˡá2Má2 U\ . f apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  & NNMj  |&z ۢۢ šnj˫ á6ڕٕ NN#á^ݤˡݤޟˡ$ áǥ ǧ   ˡ0٣٣Ï٣ E )٣ ٣ ٣  \8:C'ˡġ ,D 0Ǐ ?Rȡ ؟ˡ٣ ٣é ٣  ٣ ɸ) /)٣ T˄) ٣ <٣ ٣á٣ ٣ á9٣ á+٣á٣  ٣ ?šAˡ2@˩?ˍd?ȡW?ɡǀ@ ȡ%ةAáAܩ?ɡá ګ ٫ ȡ u 'aM00O ǚVVaVe ?ˡ5    #   9  KzI á  1ˡ 2أ أ  M ˶#?˄áV / áA-á      ˡ# `mˡǨ   š   áأأ ˡ  pȡ!   ?ˡ5    #   9  KzI á  1ˡ 2أ أ  M?ˡJ #      ?ġ!   ˡ+   9     9 >˶  FY[f> apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  Má ˡˡˡأávšc2Mأ 6M 7 *٣ $ˡ   (   (  أá\[  ˡ    @ ˡ}ˡǐo`  ؟ˡé3   8M   6M  šá4 0 Ǒ7@ ! á6   á   9   c áV á   Ǜ؟ˡũ= ǏAá` ˡFˡǐ8)  ؟ˡé3    Ǒ3 ǀˡ9 ˫  Í ݟˡc ݚܟá ,  9  š   ݟá  á ?>mLM)  á   } ˡ      9 ٟˡ٩=Í ǐ á ٟˡ^Oܟˡ ȡáǜ  ܚޚ۟áښǓ˫ á fá2 U\ . f apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  T,. \b8٣  ٣ ɸ) /)٣ T˄) ٣ <٣ ٣á٣ ٣ á9٣ á+٣á٣  ٣ *SYSTEM.INFO[*]"ˡǒ. Ƕ0 ǏV M a` Qa`  ˡDݟߓݥ eߓ6D   ݫDá,+,++ á  +'á,'ˡ++%++á #W---+-+WZ   ''09ō.á8.ˡ/ 09Ȅ0UɄU+ë#-ë1򥂚 +-Í+ë3+ë"+ë!۳(+ë*+-Í-ë33/3'4.$)J(J"ˡǻ7+ë'0CV( o$5,ˡB8| % ǖ(+r"ˡǓ%H_GZDZ+-Í&+ë++צ*SYSTEM.LST.TEXT((+"ë+SsÍT(šȡ 0UɄU+ë#-ë1򥂚 +-Í+ë3+ë"+ë!۳(+ë*+-Í-ë33/3'4.$)J(J"ˡǻ7+ë'0CV( o$5+ë/m(*á+ % ǖ(+r"ˡǓ%H_GZDZ+-Í&+ë++צ*SYSTEM.LST.TEXT((+"ë+SsÍT(šȡ ;ۣáۣ  آ ۣ آ>ث> آ ۣ آ>ث>,áڡP  ˡ,Í*Ä)˄ +`š ݹMš)P+ë2+ë-+ë+ë4+-Í ەۂ *á*܂)ܕńܕ܂ ܑ ܂ ەڕܿۂܞ܂ۂڂZ P á#á ٢ ٢>٫>[ˡQ55ٟ˶ˡ),,:)O ?šA?ˡǒ9 á D O ǚ),ݡOߩT  š^) ˡáQ Ma` Q Q!2ˡr  > šB BÄ)ޓ`4ˡf_ˡPLˡ),,:)O ?šA?ˡǒ9 á D O ǚ),ݡOߩT  š^) ˡáQ Mš  ġ 詂B EšB BÄ)ޓ`4ˡf_ˡPLQ Q٢کDڢڢڢڢ ڢ ڢ ڢ ڢ ڢڢڢڢڢ٢٢ ؚ M>á Q Q Q QáNJ@?B %ǖ3áB ݨTݢ  `ݢ áU  O  %O ǚ ؞ AQ Q M ɡ.ݟˡTV$ QáINTRINSI )TáCODE T  á7    O åDATA ׯ u áXTT Tb ߩTO áEáM -á  +á09Ȅɡáȡ:  0 ń  0 #ثە$ġ  ȡ5áؚ 澂0šؚ0ە ȡ  0ȡ  0 ȡ 徂0  'ˡ ڂޕ ɡ $ $$\ á  8ڕ škwKThere is no room to copy the deletion. Do you wish to delete anyway? (y/n)תP Yá*KڕJJI IJ e   ݂ɡ  ݂ەݕ ; Z-š 0 ۍۡ צRepeatfactor > 10,000ۥ    ڞڂ ˡ  !Uقčw^  á  ܂áũؓɍš  ٚáء  ٪P&áצERROR: á<& Please press to continue. áR۾8۾áݩ۾ ۾ á ܕR`wPw &áٕٕ: "á <&ȡ<( P#کO˄9#'۹  wڤVڳ * 񿥆P&  ɡ š    I GJؾ4JھQھOéO˄  ˥Q۾ܥPBBB B B B B4(C)Apple Computer Inc. 1979,1980 (C)U.C.Regents 1979 R bF' EDITOR INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE Y  words NJ ȡO  ȡO   ȡO  ȡO  ȡ!O ˡ    8*ȡ  ǰġǗǰɡꩁˡ PP P 8q@fcs, ^\  lines/min1DSmallest available space = Y  words NJ ȡO  ȡO   ȡO  ȡO  ȡ!O ˡ    ˡ+\\  [ [^^,O J1\ צ lines^šSצ, ^<  secs, ^\  lines/min1DSmallest available space =  zGJ~ ١áȡ:  0 ń  0 #ثە$ġ  ȡ5áڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ ĩ1ۥ č%`xȡ'ڤġڤڤ؂ IĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 áܕܩܕ    á צ:  P" á(Wצ*SYSTEM.WRK.TEXTPw s ,á ̂5ʂ5ȡ   P+O wNot present. File? תP"áW P Í  > KN%̂5ʂ5 " ȡ"   צ>Edit:SŴ5Ƃ5Ƃ5צ:Ƃ5&Ƃ5POW"ˡצWorkfile lost.wצFNo workfile is present. File? ( for no file to exit ) PwQپخw ACDFIJLMP Q R S V XZ,>.+-?/=<    09̂5ʂ5ȡ )  (( Ʉ?Í  Pآ/ Qآ-Pآ/ Qآ,Pآ/ Qآ,Pآ/ Qآ'Pآ/Qآ'Pآ/Qآ(Pآ/Q آ(P آ/أ.áQáQLPJآ Iآ$Jآ Iآ$Jآ#Iآ$Jآ#Iآ$Jآ!Iآ$J IJآ"Iآ$Jآ!Iآ$Qأ.Pآ/ QPQآ).5  ĸ5 á "ˡצ Disk errorBuffer overflow.8 4GآHأ%Gأ&H H آ-OJآIآ$ L(ft R(ght C(ntr to leaveP * Edit: A, C, D, F, I, J, R, Q, X, Z [1.1]תP:צ>Edit:צReadingOwˡצ Reading file.O5øb> to delete, to abort}תPצK Adjust: L(just R(just C(enter { to leave}P ɡrצ2 Insrt: {,} [ accepts, aborts]PIצ4 Delete: { deletes, aborts}Pצ5 Adjst:w٤ؚٳ w قؚ. L Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [1.1]תPrH Insert: Text { a char, a line} [ accepts, escapes]תPIA Delete: < > { KN%̂5ʂ5 ׷   ׷ U=ˡ ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? P ƂP"Ƃá Ƃ=Ƃצ# Copy˸ .   VĶɄ, ڨ߶ߤ ߤ Marker not there. ٲ0ߤز+߾á f v  ..ȡ۲۾ ..ȡ ۲ ۾ ..ȡ۲۾ P+*U{zȡLٕڂġ)Buffer overflow.ĩ  ٩ڞڂZ= 0צ[á$ ר  צ]ɍٲˍ.ڕ.P..P,áؕ     ە צImproper marker specification. 2á ˡ؂ꂶ؂bצMarker exceeds file bounds.ĩ :!ꕕɡ3 ꕞOˡ.Oצ Your file is   bytes long.UáSåW*SYSTEM.WRK.TEXTׯצ4Do you want to E(xit from or R(eturn to the editor?   EګګWriting out the file"*W #'qqZ|COwˡ. ˡ  ɡW  ۂۂۀ Oˡۂ.ɡ3 ꕞOˡ.Oצ Your file is   bytes long.UáSåW*SYSTEM.WRK.TEXTׯצ4Do you want to E(xit from or R(eturn to the editor?   ʂ.YáOƂOƂצ*SYSTEM.WRK.TEXTPWƂPצWritingOƂCOwˡ. ˡ  ɡW  ۂۂۀ Oˡۂ.ionƂP+OƂ"á?O Remove old Ƃצ ?SáƂWP Purge old Ƃ before S(ave?( to return) --> ̂.ʂ. @ʂ. éN=צ%Throw away changes since last update?ूOWáצ)Name of output file ( to return) -->ƂP"ƂáƂ̂/ʂ/ȡƂƂ۾ ƂƂ:á'This is not an editor functwithout updatingצ+ R(eturn to the editor without updating% W(rite to a file name and returnצ$ S(ave with same name and return 8 RáEáN?&SYSTEM.WRK.TEXTתOצ*SYSTEM.WRK.CODEOצ^ ..@.Y.6צ>Quit:Pצ# U(pdate the workfile and leave E(xit ʂ5ʂ5ʂ5 ʂ5QHGw:w CC^ŵ5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5ʂ5ȡܤA09̂5ʂ5ȡܤA: File not present. Filename? P"á CopyתP  Ⓞ ڕ ޾á ܾ ˡɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=Ƃ=f+nv|2r   ׷ U=ˡ ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? P ƂP"Ƃá Ƃ=Ƃצ# Copy  \ةxyؤ yؤ  Not there.ؤ ĩ\ $ JUMP: B(eginning E(nd M(arker תP  Bá)EáMá ةˡͩIJ ˡ;Iˡ)IĩIɄIIꩂJIĩIɄIJꩂJ IꩂJ멂JءIIꩂJءJJ ĩ Fá  צJump toá> < &! Copy: B(uffer F(rom file תP  DBáK멂J IũIĄצ Invalid copy.멂JġNo room!Iá ˡIIJJáK 0 00 :  ؕ؞ق ق   پÍ   پÄG wؕwDؕ wצ . Type  á   Ƃ #%d eQ"c&wSyntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ hȡ9 ~ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0ƥ -   Jצ Not option dwi[M=/AT(k) geQ"c&;  &(38 yؤá צ Date Created:  - -  Last Used:  - -   Jצ Not option dwi[M=/AT(k) geQ"c& Markers: xȡ8 yؤá צ Date Created:  - -  Last Used:  -צ  צ bytes used,   available.HG Patterns:G2 = 'ũEǀ'H.צ , = 'Fǀ'xt צ F(illing  L(eft margin   R(ight margin   P(ara margin   C(ommand ch  T(oken def   # ڳɡ ڂ0   צ. Environment: {options} or to leaveP  A(uto inden  ȡ.ءצTrueצFalse0 ڳ@@צT or FȡĹ TáTrue צFalse Z: File not present. Filename? P"á CopyתP  Ⓞ ڕ ޾á ܾ ˡɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=Ƃ=f+nvة$ i ĩ צInappropriate environmentKR  x xx áxȡ/ ) y٤wצ$Marker ovflw. Which one to replace?P ĩp0xSet  ׷ Gxȡy٤ yؤؤةxáxx@n *  Set: E(nvironment M(arker תP  Eá Má ة  ɡit"  Ʉ: á  šĶ   #<áTń1 á  ꂫġ    Ȅ5  ɡášĶ       !ń9  á   š (š  ) <öÍ   ˄ ń     ɡTb  á áث8   Ʉګ  ڂ٥ č9h  ^ġ)ǀ wá(ȡ  á ĄÄ˄Ąۄy á  háOȡ% ˡܡ  ؞ ٫ګ    U ؂ \    rP  ˡPšǀ3á ȡ ؂ġ  ؂š!  ؂  P  ɡ          š   ˡZ  ٕةġ  ؕ  ؕ ٩ؗ"4! á.!~ō?              á   ǀd ؂^áJéé Íɡ f ġ앞$앞  ^ á d5Please finish up the insertion   ڶ š Buffer Overflow!!!!  á   > ! á ꄡ'  ꂫꂶÄ  Í  KIJڶȡ6No insertion to back over.   oڶġ  EL š ꕞ ĩꕕɡ/צNo room to insert.  xˋ ˄:? ة꾿á٫؞ǀ 8ꕀPšrL WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ  ˡة G~ ĩ < eXchange: TEXT { a char} [ escapes; accepts]תP  á8š1ؾ\ áO ø ɡzɄ2  ɡáĸ š# Í     $%&؂ɡÄ؂ jš앞0dšצBuffer overflow ' 앞ˡ앫؂ (  P  65v b á89   3ǀ Ŷ š 2 á}Aáojũ˄ȍá ȥ  ÄŶ EɄ ŶŶöEɄ E Ŷ EɄ Eá ? 9     á89>á š7    á 9ض     á   2   6EE Ŷ  Eá X8ؾ 7l44ٶ ġ=  ض     ض á 9 ؂    á   2   54ڶ too long   1"۶ɩۂ ۾Ä۶ɩۂ۾Ä۶%I Z2  á.63ǀ Ŷ%ȡز . Uá. p/SsÍl t0/(Invalid delimiter.  .á*۾ ń  čġ.צYour pattern is!LK! IٕJ٫ ö ݓ -á- á'*  á   ö D. ./ Lá .'Vá .TNġ Integer Ovflw) <á"#]_nlDtٕ ,˄ átÄ S ٕ܄Lɡ ꕞ ٩ٕٕ  ث šٮ ݮ+,    IP   wá   w"#<á"# |!x$sá< > O Z+ȡˡˡȡ ȡ 4` x š ɡ ,ńá8á  á  Cá1á  á   |  *ȡGھ á-ń ۂھ"$ "#<á"# !$šToo many$ġצInteger Overflow<) <á"#˶˄ >á#"+ $   Í  á (- áڕ(ڕ( ˡá۫ k 'šA>á#áR)  M;%*&&<á%&  Má M wá    á< >   ȩMd$ Tá(J  ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽP : N7.۪PڪP.P [M / צ]: ء% áL(itT(okz:z  Replaceצ' aborts, 'R' replaces, ' ' doesn't : á  Rr˄Fš[Fš9צBuffer full. Aborting Replace  FꕞFɡFꕞFFˡ F멂FꩂF@;̀̀̀  "  ڪ٪ت&:&Pɡ(š --> 4ثضÍצ$*á-: : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪƁK""áN׷9& צ ?  ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  J ٪ # ת á 1 0 ء,ˡ   ߓ`&צPut " ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    צ ? (Y/N) - -F&צ ? expected1(& Ş"˶ I/O error # 4!צ Filer error # ء\&),áY 6(saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צFile/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(Gצצkת{צcתת(WצSתԦת(KצOת  n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout error4Copyright (C) 1979, Regents University of Californial5 FILEHAND  ĩC?8k a][YWUUUSQOM/13570=?a< ˡ< lZ h H N f > (N Tz:N d"n V!""6#f$f%$% &'vx =>:( Replaceצ V(fy =>:./0ʀ ťE1G á./̀0ʀ F1HéG éHGl  ȩMل*7 ١ނ߫ á;<á  ٓ(MńצPattern not in ?::á ;&Pġ - عEXå[ׯGC81(o* MJLN0A$6Uۡ &Pɡ צ, áצ áצ fܪ(G[!nء CGGá+á &"ˡ~[צ[ ˡ  .  sآWצ:آ(Yׯ( Ɓ-צMakeǐh"))** **"&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5/0 0 òCń /C"ݢݢ///://tLצTransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransfer %š " ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0צ Ɓ3"ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'Insert destination disk;GK,,G,:, ׯ>צRemoveǀ RemoveE+Gޤ removed%á % ń,&Update directory ? ,(*צChange*[")ǐ ),, d,,[,["𥀈{á򥀿Dá" G"+!+~G?KÄ?G;KׯɄS{c\ڥs[KG2G:[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A=gPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK ׷Ȅff@ Զ nުݪ"צPWkKGš?=ɍ :g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 char. max >- Illegal formatT<=ڲ= ݪצc&.צ what fileצ what vol ?  , gg#š=jgjPgۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file name < scan string #צ vol name  M8!ۡ1á    - k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K&not processed á á(3!:W~(gڲ= ggڤ ''k'ȡKk'k-'' ܡšڡK N Y˄ &"&& & ܡ&'&צc& آצ ? ) ,áYø۪     0ު(áܲ~ %&ܥKO &&ȡu 5 4454=5  d66.6.6 65ݪ   p "٪ؓצ *SYSTEM.WRK.,C:[., #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀! 饀:˥׷!צ:DGצ : correct ? G CK "צ: zeroed p0šצFile(s) endangered:Mȡl\:צPrefix is - ;: / צ Zero dir ofצH צDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ? ١ ƃƃ"ƃ ,  N, Vols on-line: ȡ &G ȡR~צ; צ #  :צRoot vol is - ?ƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest"/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃng ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(צ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- ʅ,ÍP$&,􍓡~%K:, %,,,|-ٕڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Dir listia ȡ$GCػ*c+C ػ?צ:@Ä Cצ The date is C -C-C 6 ),%ö1>--<00..99>Cˡ_צ Today is C -C-C  New date ?  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾAצ.CODEצCode (١%צNo  file loaded '- &*- ȡ%ܾz ܾ0ŶȄ: \+%Date set: <1..3á@ .  ڲ צ& * (&Getצǐ%G.[.&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ&(צ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemove  ء&צWorkfile cleared%Tf & ݪܪ  : .  ǀצ not named2 Workfile is :.񄓡 (not saved) No workfilev$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ء.[G&TEXT&  "hKצ*..CODEOld code removed, Text file saved  & 0צCODE  "צCode file saved62!o.צؤ áצ Directoryڢڢ  v 1ˡZ ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ92צBlock  צ is badۂġ צ bad blocks1 3צE $ "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:IG BB'"G5(C)Apple Computer Inc. 1979,1980 (C)U.C. Regents 1979 ! RLONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU  0 & L (*&brB\ "%>'&t##))h'+*,"--.. //F0`0z0004P5n70L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~%"!צPrefix titles byl;G& Prefix is ;:`$\ X/T3P0L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXTiler: W, B, E, K, M, P, V, X, Z [1.1]7ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤVWarning units   &  צ have the same name,,'&R87תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [1.1]7+צ&Filer: G, S, N, L, R, C, T, D, Q [1.1]7?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [1.1]7+&F'  š 6  צback  ġ ɡ6 G : crunched#צPlease re-boot{ X5تPFP') x " " ġ  6צCrunch@צFrom end of disk, blockצStarting at block # 2 % forward ת  ȡoTTT TWT ɡTTWT#VV צBad blocks markedH`]t4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š Vá41Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂeSVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šTVTVVUVxamine blocks onצH&Block-range ? S  SRR  RRˡR ġ RSSRō4%SVR̂dVʂdȡ V2VVš#1 Fix them ? Ǡ  T UNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E M.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefil &  * عteVG8  )  T uh[NA4'á +-ÍݢݣޢÄɡ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 ' "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:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n ƅ|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 "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   URTLEY: 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=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTT "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)$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E; $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 TSǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ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 PZ 4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F? 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@ ) )`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh heheت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 t$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,DURATIH v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPOOF=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 hhhhext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>ype identifier in variable declaration  119: Re-specified params not OK for a forward declared procedure 120: Function result type must be scalar, subrange or pointer  121: File value parameter not allowed  122: A forward declared function's result typebe real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference t 105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must not be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not 'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declared twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': =' expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:!11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected !16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*'"1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symbol (possibly missing ';' on line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type H^.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   ! can't be re-specified  123: Missing result type in function declaration  124: F-format for reals only  125: Error in type of standard procedure parameter  126: Number of parameters does not agree with declaration  127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130: Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison ading include file  404: Error in writing list file, not enough room 405: Call not allowed in separate procedure  406: Include file not legal  407: Too many libraries  408: (*$S+*) needed to compile units  500: General assembler error insic unit  354: Too many segments for Seg Dictionary  398: Implementation restriction  399: Implementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not enough room  403: Error in re 302: Index expression out of bounds  303: Value to be assinged is out of bounds  304: Element expression out of range  350: No data segment allocated  351: Segment used twice  352: No code segment allocated  353: Non-intrinsic unit called from intrrocedure too long  254: Too many long constants in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression too complicated  300: Division by zero  301: No case provided for this value ant must not exceed source line  203: Integer constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedures or functions  252: Too many forward references of procedure entries  253: Pin library  191: No private files  192: 'Uses' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Unit not importable  201: Error in real number - digit expected  202: String const 185: Segment declaration not allowed in unit  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not dure expected  175: Actual parameter max string length < formal Max length  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declaration not allowed in interface section  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  170: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proceis record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thiles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index type must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter solution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fnot allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or subrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit