`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxbhx Nb`8Ύa߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮaߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  Wjee0 Ю $Ӱb4 xbdfbH dߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`fߠ d߮Chr(13); "SP := Chr KK.ENV.DATAVf" FILEINFO.DATAVf CARDS.DATA;VfHTUTOR & SYSTEM.APPLEVf&Q SYSTEM.PASCALVfQxSYSTEM.LIBRARYfxySYSTEM.MISCINFOySYSTEM.STARTUPf RENAME.CODEVf| FORMAT.TEXTVfyFORMATTER.CODEfFORMATTER.DATAf&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴~X~YiTiUR콥S8\ȥ]\]VWlX ƎRSL~ȱȱŎRRLdҠX LdҠX PQȑLdҠXX XY 0 L_X~~8傅~8~~~78Ƈ8񆅚ȥ񆅛\[HZHl\0 LdN8Ƈ8񆅈񆅉@:8񆅈(8 8Z[ 8Z[LѠP i tiuLht i~i8~8`hh ߦ~ h0 L3 L3lvLRLX/ L 8L ߦ~ hI=+ L ߤ~襈I= ƈ LȄHHLLhh ~LhhV~W\]XiXY~8傅 !THEN TO TYPE UNTIL USES 1UNIT 2VAR WHILE WITH WNTO END ELSE EXTERNAL5FOR FUNCTION FILE .FORWARD "GOTO IF IN )IMPLEMEN4INTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPACKED +PROGRAM !REPEAT RECORD -SET *SEGMENT ܅܅ȱՈƐ2i ȱȱȩȥȩȑȑH~H`'Pޱ[ޱݱ݄ޏޚޥ޺ޱ"AL߱ݱݱ@#AND 'ARRAY ,BEGIN CASE CONST DO DIV 'DO` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>BGڇښڢکڬh~hhhhhqq a{8 ȱ{a0:A[_ ؕԈqȱi`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH D۠'(hH ۩ hhehLDۍ۠'O`J>L80 %,M8$LgLhhhhhhhhץHH` )`,10 )?ILڢY` l܅k܅lм`|H D۠ D۠'È B h`@ ֠ ֭0`+` ڥHH B MڥhhLDۦ ڐ`,10` ` ` ` ۤO`) 2 ֭0` ֹ)` ( `) $ HЄ ֹJ` MȽ`H ؠ H h`@`   ٢` َ` ֭`38 0P`8 0 DۥHH)> `0* x)` EHh`LL٠(MC3 `H ؠ h ~؍,,`lQ`) ũ Ȣ`JJJJ ϱ` $p0*O# =ؤ =آ`H ؠLf ֊H h ɢ)L ,10U0I ,109,c$0 A[ $P0Ji)jj%UIЂ )?LI@a Hb c0  hH ׎h$L hhh 靱`hhh(`hhhhhhϐ8 (ֹH ֥ +ֹP b)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 ِ9 aLgץ")j> 8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅbSϭb߅83IbߐibŅ QHPH PȱPP꽥QLdҠ RhPhQLH RR8~S~\ȱ~]X i RHLiR~ȱRV~ ~VWRTȱRURXȱRYRRR콆SLdҠ8񚅆񚅇`ȱL8~ȥ~e~ȱ~e~8ƇƎ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅]  " ]H\HHHAH@H > ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lhLhx hmDŽ ) W 9LK " W 8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L楆8Ƈ8񆅔ȥ񆅕8Ƈ iiL奖 㥘 㥔 㭭ххІ 51-l l Ɗgƈд** 6`V QRTWHHlRHHlT Эhh a0+&00 1حB/C0@A "!歪筫䭬)aVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 򭋍8TU 8X再Y凍TVｌLXiXYXiXY HHXYX olhh)X0 eXXYLLeT~eU~8~X~YLdҩHHL^ҠXHXHL?飨RHRHL^Ҡ UѥRehnSeio nHnHLLҠ UѥRehnSeioni n%D[abHT%LXiXYX h&i` hi`RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[      ཀྵlN{`j5ۓ{Wv*ܞמ]َPqҜـٯU]l7{ӳBVݿӧݙy1ڇ 8R-zLDүH@P 8^L^һһһһһһһһһһһһһһһһ****************|yyyyyyy ҹHH`=`LLLLL)LHL&L)LLKLLLXLLXLLL\v]w]|\ v\w] RPRRSQRR @RȭAR)[ [Zqʊ qŐ`8H<8H\Ni iIHHAH@H GH#FF) l GGԬهП8ƋȱHHHH`HHHHHH  < @>~?aƁ)ɠG#ooHnHLLҠ UѥRehnSeio hnhnLLèPHPHL^Ҡ UѥPehnQeio nHnHLLҠ UѥPehnQeioni nooHnHLLҠ UѥPehnQeio hnhnLLҠX qѠ Uѥhelniemo nHnHL?ҠX qѠ Uѥhelniemoni nooHnHL?ҠX qѠ Uѥhelniemo hnhnL?ҠX Uѽeh~ei~H~HL?ҠX Uѽeh~eih~h~L?ҠX UѽeheiHHL?h~hȱ~H~HL^h~hhh~ȥL^ҠXȘ ~X)XYXHXHXe~XYLdҠX~ 8倐~hrhsrHrHƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED4 8(TB &" PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC 0~E~~~Ղ0LސLh)~hh)h~Lީ vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHL^hHHL^ҩ%vHHL^hhh h膀e ň8内e~l8吨Lߤ 0 vXLLyL+L<   UFifhL8ޠ Uhhh~hXYhLdޱ~р~iLްLLވhhuޅvޅh~h~wޅ~xޅ~р ȱ~р~р %v HHLLҩHHLLҢh~E内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHL^ҩHHL^ҩHHL?? hh&ŎLL0eeƎLLҥ8包Ŏ 8吪8吪ƌLLhh&eȹȹp)1)fjjj)?~Ōe~9 pHHL^ҦpHHL^ @hhHHHHhhhhLݥ)L8ȥL^hhh heȄ Ȅ~l ۦ8e h9 0 ʚL^ ۦņ hI9ʚL^ ņ0 hʚL^҅~Ƃ~eʥƂFHHL^ҠX hh &heheHHHHeHHL?hhhhhhȱ80 iff =݅=HHL^h~hhhhh ݅%~~݅%80~~i ~&&hhȱI%~I%YHXHXXYeXXYLdhrhshthuXs&trȑtLLҠrrtLUٱrtLLLѺ~~LL^Ҡ UhehheiHHLLҠ UhehheiHHLLhh Uѥi h&L٥hi 0ץheheHHLLҠXX` of"f fofn8no8&&`ffofn&&`hhhh ץIiIiHHL^hhhh ץHHL^h~hhhE0Ń)ŀ!0E0~łL^LXYXXYYHXHLXYHHL^hIihIiHHL^h~hhh8~HHL^ҩonff nenoeofofnff`hh0 hhLhh"IiIiIiIi 0ץHHL^ҺHHLWנnoLѥIiIi攥IiIiƔ8吥呰 X&XeYei无8XYLdҥXiXYLd h~hhh~&Zȥ[Ze~Z[e[8\Z][LLL h~hZ~ȥ[~LLh~h~Zȱ~[潩LLҩlLhh0HHL^ҨIiIiHHL^h~hhhe~eLLLѠX~e~e~tu~L1hththhLLh~hhe~~heH~HL^hhh~hhe~~he~L^hrhshthu ULh~hhh%H%~HL^h~hhhH~HL^hhIHIHL^ҩXXhhQX0XŗiX`0\XE0XLXŖC?8X(צPress CONTROL-RESETGb Íáɡ 럚肚X  šš ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ 4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$Pצצ22ȡ5233 ȡ 11"2COMPDEBU2162LINKANDGr21J2LINKDEBU31^2 ASSOCPRO~K21r2 SYSFILE xD23ASSMBLER@G2COMPILER22EDITOR LN22FILER B4^422LINKER *=<22DATEREC 43MONTH r3N3D3N3:l :.hzpL d | :\0T1 IBADFORM\0h1ISTRGOVFJ0\0|1CMDSTATE4x71\2HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ2˄ `1 b (   d˯7 H ġ  *@#@,A$BBBZCC"DrDDEFtFGdGGG.InIIIfJJ0JKzxM20 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ š š K6"á61 ɚ V %ɡšɡš  PꟚšw#ńE z @šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@6"á1ꓡ삫Ú ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿1á5   Q lȡ>š 쾿  / Zá " *0ˡ oɡa   áá0š  %4á-ë0zY 000á'5á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń vJ& "ˡ  J    00áQP 0á0 é000+-ÍFOTO /T! ȡ   צ0H"4$$$&ˡ 4 46%ˡ 4Jˡ 45ˡ+&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:!۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> Eá.0::8SWAPFIB OJ8NL7SYVID 3?DKVID $Z3zL;THEDATE 3CDEBUGINF[LD STATE 1EPL :FIPOT Mo$M  FILLER DMEHצE#  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:߂ɡ F b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8Eˡ.$  š t@4,á/š ġ 4,+á"š ġ Z |5?š?ˡ?ء "ˡ6ߕނˡ   d쓡  1צS# أ , P# أ צ, I# أ \2צ Exec err #   á, J3 l/E8:Eá *0  šˡ 퓄 Ä퓡w š   ɍL  "ˡ./~6\-}ˡ2Error reading exec file-, } .}ˡ2Error writing exec file-}ë 쓡ת!!9 D*驁&F+}迶Ŷ} / š/áá-`,3# , , ,/)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ צ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-MayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ  7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצApr1٦׷)צ: ܢܢH d    0&תת.ת??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT{B77::9988:9  6 ۪*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C "á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"áޢʁޢʁʁޢʁޢʁޢʁޢ88ʁ  תʁޢʁʁޢ́Ɓ߲Ɓ߲ Ɓߪʁޢˡdتٞ&ʀ=ʀ* ʀ́ʁݢGʁݢHʁݢIʁݢ%O tƀ&́ʁݢʁʁݢʁݢ%́޲8ʁޢʁޢʁޢʁޢʁޢ ʁޢʁޢ ʁޢ ʁޢ ʁޣ  ʁޢʁݢ́ʁޢʁ٢ š٢ ٢٢ 4$88ؗ(/88ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀnown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overflow-' oZ>s]@;-.Le not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munknown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overfloת-file not foundת-צ dup dir entry-צfile already open-צ file not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munkצ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'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@9988(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE7:::% š tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C_ 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "*SYSTEM.WRK.CODE[*]To what codefile? (׷O,á<$88š8(8X+,,"ˡ צ Can't open ,   áث 7(צ&,á(+(.TEXT888Ä8 "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צR   88(áצ Assemblingצ Compiling...á999':::צ::&:(áAssembleCompileצ what text?  Ɓ]&/ , ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ۤ    áۤ  ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required intrinsic(s) not available2 0ڡ;ƀ ˡ.  is not version 1.2ړ22H"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #ݢ`ڤá Zx ȡ2ݤˡ"ޢ`ݤۼ: T ڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj  ߪPˍ? P ˡآڤ á Cá>آآ*Í k vޢ ȡSڤ ˡ@۳-ܢ0ۤ ڳ@@YyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢ-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedV 59 v"pv">   F  tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedá.צNested exec commands illegal"צError opening execd 6~}6 "ء HPKצExecuteצ what fileצ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjVP+"á(.}P+ ! Jf%צ:ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Ä˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ϶ U not allowedup-Há6OK7AX0NP3 "gC(,. C ^(Pv 2 Z *')%?áSFצ=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡 צ Linking...ˡ& Restarting...á(צ*SYSTEM.STARTUP %áá 6   HˡFצCCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]P')%?áSFצ=Command: U(ser restart,צ , change it?)צNew terminator:} ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH   áning, programs using GET or PUT to disk will be very slow New exec name:(šR.%+(]ˡ([8]+("á%צ Terminator=lose and disk get and put procedures swappedצOld swapping level is  צ%New swapping level (ESCAPE to exit): ض,0Í1Í2Íسs2ø1öRצ Z`X\X áޢá ~תޢޢޢ0&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-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 X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L N E @d $ "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:IACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED n%LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU #24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.1 ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢ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 N E @dNTEGER[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:Ihhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1>  z Z   :    ( tV8z <| "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E 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?   ?=~@:?^>[' ~ ~>?  ȡ!? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; S> ?L=[?    ??tI$'>ߡڑ߳I@߳}:#9oL.6ZO$<=*     4?KYKK.2 4k/P/NEWC/C.CODE.CODE "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 N E 0TRšزTRPزTPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  X E CHAR); $PROCEDURE WSTRING(S: STRING)L` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i J  h 2  ɡh h  h . آآآǿآآǿآآD ǻٚ SYSTEM.CHARSET!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8  ؂  ɡh h QZ|?ٽ RZ}?4 SZ~? TZ~? UZ? VZ?[` WZ?& XZ?ؽ YZ?  ZZ?2  Z Zá.ٹ#ؑi?޽ CZk?7 DZm?[ EZn? FZp? GZr?  HZs?yx IZt?hн JZv?D KZw?F LZx?Re MZy?Pp NZz?g OZ{?K PZ|?aI? 5ZL?Xs 6ZO? 7ZQ? 8ZT?; 9ZV?% :ZY? ;Z[?Lo <Z]?г =Z_? >Zb? ?Zd?  @Zf?] AZh? BZ 'Z!? (Z$? )Z'?| *Z+?+L +Z.?l ,Z1?ս -Z5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2ZD?v 3ZF?  4Z>? Z>ca Z>*r Z>aq Z>^ Z>9 Z? Z?ٽ Z?ƨ !Z ?vm "Z?F' #Z?ս $Z?y %Z? &Z?1>н ZC>oc ZT> Zf>Y Zw>g Z>탽 Z>K  Z>ȱ Z>z7 Z>ٰ Z>? Z>| Z>}̽ Z>  Z4تP+,+,ȡ+++V 0 Z Z^ Z ><0 Zl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'  ǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?0 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2hhhhhhhhH)HHH`)J) D* کHH  ),`#d`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION N E $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTISETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=GA440 BS|== zjZ QH?\V n x x(,np< $8L. ~  L  DRIVE <<<FNAM =SETSINE1<<SETSINE2SETDEFAU=e*e+)*)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )LT I1LT )QLT       hhhHH h )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08HHL<  y B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p h hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhh 0&!"   #"  ` ` `SN-(' . hhhhhhHH `  y HH8H8  hhhL .+ rhh hehehehe8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &   n(j LEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXT.ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEX)R  öń öń   ȡV!  ǖ) Rؿ) Rؿ    ip !ǖ ȡ8) R!  ǖ    R  ȡ ɡJ! ǖ) Rؿ) Rؿ   )R ˡ<)R      ɡQk&   ȡ ɡ,) R! ǖ   )R ˡ!)R  š    !`Pٸ ˡáڶ ȡ ȡ  } š ȡ  áH ە ɡ š ȡ  N ɡ  ȡ ɡ*) R P   )R ˡ!)R  š   ȡ6) R  P   á bڕ ڕȡJ) R )R   T P ń$ ) R P) R P  TÄg á ȡG) R0) R0  Qu  ˡiá ڕ ȡG) R ) R  ȥ0$˄ؕ á ە ޕĥ0$Ä:۸ ȡ+) R0  ޕĥ0$Ä:ظ ȡ+) R0  yޕĥ0$á8) قR ؂) قR öɄ8) قR ) قR á8) قR )  R   9N 쥏0to Continue. Aborts. ꗜá  0yͩɥFȡжš  ȡж  ) R òצPRINTER:ةɡ &ةɡ$ צPress ESC to stop printing.< áj  opyright by S. Keith MacLaurin '83,'84. Version 1700 on 10 December 1984K| 9F> p0 $l&0KATKARD SHOWCARDEDIT LABELPRIROLLEM PRINTCARDELETECAENVIRONMMAKEDATAADDCARD EDITCARD   ˡáI          -&   &  +-   -  j -&   &  +-   -  j 1D*   (  /R2   0  rƂƃצPrinting Labels from Disk Fil ]R1 צ Analytics)P)P.áک ȡ2ȡ% :)P )P ńš0ȡ% :)PەɡP )P ńš0ȡ% :)Pەɡ'ق)P ńš\ȡQȡ5  :)PńšcȡX)Pȡ&  :ۿ dCF צ Added Entries)P)P.áک ȡ2ȡ% :))P)P.áک ȡ9ȡ,)P :ۿ )P ńš7ȡ,)P :ۿܕɡ'ق)P ȡ :NPڕɡ؂NP ńšTȡIȡ-  :NP UJ{  : &צSubjects,ń,,,šY,--ȡL..ȡ/  :!ǖ YM"\ZצSeriesNP٩ ȡ*ȡ :NP NP ńš( צ Main Entry R צTitleP!ǖ٩ ȡ---ȡ :!ǖ ,!,ǖ ,ń,,,š,,--ȡ :!ǖ,ɡ,$؂,!,ǖ ʅɥF 'ɡ  ȡ ن0َ  ڿ/H X ȡ*  :  ȡ.  : 6|á  ȡ,::, ȡ7 ,  ::,ȡ, 5z 0yͩ<,PRINTER:,ةɡ,  &ةɡ, $ áj to Continue. Aborts. ꗜ: :ȡ5ȡ!  : >3 VتP Printing  Card Image. Card number =  Rn צPress ESC to stop printing.e. ޡ&- ޡDR̃ʃȡ  ̃ʃȡPrinting Label Number :  ù ̃ʃȡĨʃȡ!Ƃ)RƂƂybX|4 < .Zr*   0  rƂƃצPrinting Labels from Disk File. ޡ&- ޡDR̃ʃȡ  ̃ʃȡPrinting Label Number :  ù ̃ʃȡĨ'ق)P ńš\ȡQȡ5  :)P ]R1 צ Requestor)Pک ȡ2ȡ% :)P )P ńš0ȡ% :)Pەɡ'ق)P ńš\ȡQȡ5  :)P :\7~ .     ȡ   ȡ ȡ .  ::áL..: Rec # \ȡ.\: >3 VتP Printing  Card Image. Card number = [ Rpȡ*  :  \ȡ/ á+ á 0 2<  ꗜ14á áWY l: :ȡ5ȡ!  ..  sL á&-á(áDQLIBRARY-SOFTWARE-ר צ PRINTING TEST PATTERN ù  ƹ12  צ) ȡ..1 D ȡd .ȡ. צ1Specify the number of horizontal spaces needed : Ƕ0     צ) צ3Specify the number of lines between Items needed :  )  3 - Set Pitch (1áצ0)צ2)4 - Print Test Pattern}for ùVצ OCLC SL4'sKצ OCLC SL6's3צFoil-Backed Three Across ]G1ن0َ \ڿ1J Z צSet Up Printer Menuצ1 - Set צ Spacing (  )  2 - Set Left Margin (  2  áj to Continue. Aborts. ꗜá  0yͩɥF 'ɡ  ȡ\ss KEY to make selection or to continue.TצCardLabelProofJɡ. 4 ɡ. צPress ESC to stop printing.<.PRINTER:.Ɓ-Ɓ>́KƁKTUTORƁKצ :KK.ENV.DATAƁKƁ>إ v צ:PreŃ\ʁ\ȡ צUnion   NPNG6J ,֭ $&1<>\7v9DJ$. J 0Zx, ́[ʁ[ȡ䥉 ꥉ ꥉ ,́\ʁ\ȡ)Pšꥉ ,́\ʁ\ȡ)Pšꥉ,́\ʁ\ȡ)Pšꥉ,́\ʁ\ȡ)Pš\Q0 lצ ShelfListȡ  D,ƁXPrinting Cards from Disk File.́YʁYȡ ́ZʁZȡ ́[ʁ[ȡ䥉 ꥉ..[[[á .   Hz .    6Ready to start printing. Press RETURN/ENTER to start.[        2 Please enter range of items to print. Start At :  'צ Stop At :   Ŷ Ȅ  Ȅء     On "Nꗜ  yȡ$ɡšg٩ڕȡI܂  ܂򩆃ܕiDelete Cards Menu 1 - All the cards 2 - Range of Cardst ꗜعPL1RD  0$&(*,.02468:<>@BȄءYáyȡ$ɡšg٩ڕȡI܂  ܂򩆃ܕ# Yá-آآآ  >צ3 Please enter range of items to delete. Start At :  ( Stop At :  ŶȄ צ4Press or to return to Main MenuN"צ*You are about to delete data on this disk!צ$Is this what you intend to do?  ꗳ@s"l.N  8   * J $Vr*tT * , b$&(*,.0246c:<>xB^HuHá á< Quick Card Print Menu"1-Cards" 2-Labels" צ3-Proof Sheets*.ƁZ ݡ* سسسۍ܍á ߡá.n)) ; w'(d'Z!Q1UJB@>3" , b$&(*,.0246c:<>xB^HuHá á<  צ items) צ 2-Range of sp 3-Printer Options 4-Union Card &צ5-Second Main Entry Card &@ צ3-Printer Optionsצ 4-Label Typesáצ OCLC SL6'sá$Foil-Backed Three Across á (س"عùùù 13á (Print s Menuצ 1-All the צs (Select Labels Menuצ1 - צ OCLC SL4's 2 -  OCLC SL6's צ3 - צFoil-Backed Three AcrossCurrent selection is á OCLC SL4'sȡ $ %á$; !á#( Not á#4 Not  Printed p&á  á  خ&D'Entryצ 2 - Title צ 3 - Series  4 - Subjects צ5 - Added Entries צ 6 - Analytics צ7 - Requestors 8 - Union9 - Shelf List Off#-ȶ "#&$/áȶ ȶ $2B%,The following Cards are Enabled for Printingצ0 - Main Entry1 - 2nd Main iDelete Cards Menu 1 - All the cards 2 - Range of Cardst ꗜعPL1RD  0$&(*,.02468:<>@BئתP  ń$!PQPáyVتצ4Press key to make change or Return/Enter to Continueh  צ (h  ) characters`_OȡOȡ G צPress to ERASE it. Yá f jC/TUTOR  :FORMAT.TEXTP Make New Data Disk... צ3This part of the program will ERASE all informationon the disk in drive number 2.צ?Press to ERASE or ANY other key to exit to MENU. ˡ A Data Disk named 0צ was found.0Enter New Data Disk Name (up to 7 characters) : ɡءEXEC/TUTOR  :FORMAT.TEXTP Make New Data Disk... צ3This part of the progئתP  ŶÄ$#PQPńV "á5 Ä Í 0ڢV 8:<>BDTá  @$Ɓ4 ١ړ áá0: V\r`dRRr B (  6Quick Card Environment ׮ צ4-Set Card FieldsH tá* צ_______* ń  V N1SF|cP  "$r*,.0246צ1-Classification System is Deweyis L. C.Vצ2-Pitch (chars/inch) is á Pica or 10 צ Elite or 12^ צ3-Data Disk Name   6Quick!!: !! "ÓōqInput/Output Error Code  !Press Return or Enter to Contine.   á˥Z" á:  "á٢ ٢ ٢٢٢٢ ٢ ٢ ٢ ٢ ٢٢p|צTUTORצ KK.ENV.DATA! key to continue.š :ɡ" No צ File.Q)uit or צCreate file by pressing Return. ꗳ@=: 헜  צNo  volume online.Place ( disk into drive, OR type in VOLUME NameצBType in Volume Name or Press Return or EnterL&  ,  عU}xsnid _ Z U P KFA<70G0/^[XUROLIF "LIFCN˨2 : On  : Offצ"The following fields are enabled :ȡ;إ  h: Line ȡ: Line   ńá ٓ١ šPP.: š!ǖ!ǖ2>  šmPmP.:  šPP.:  Z 0Ż צEnter number of copies of צcards צ needed of this cardset (1) :ɡس>خצ"Fatal error. Program will abort. ١Zt @ǒ y"ˡٮ#ͨɥ"ˡخZȡ צ  fhjlnprtvxz|~ Bé.Íצ%The Data Disk you are using is FULL .-You should make a new Data Disk at this time.צ'Press to return to the Main Menu. áצ:Write-Protect error: the specified disk is write protectedצ:Device error: failed to complete I/O due to bad disk media@^1 E X#"$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdke an identical existing file(Not closed: attempt to open an open file)Not open: attempt to access a closed fileצ&Bad format: error in reading data typeצ0Ring buffer overflow: character buffer filled upBad title: illegal file name1No room: insufficient space on the specified diskצ-No device: the specified volume is not online.No file: the specified file is not on the disk:Duplicate file: attempt to mak or parity errorצBad device or volume number!Bad mode or illegal R/W operationצUndefined hardware errorצ'Lost device: device is no longer online$Lost file: file is no longer on diskáͶŻ)P)Pw عDie a ] Y U QMIEA=951-)"KIGECA?=;9753-+5+xعצ"Disk has bad blocȡL  - )P)P.)P)P : Number ȡ : Number    á)P)Pd š  .:š00.:á[} á[ȡL  - )P)P.)P)P : Number ȡצ : Number )P١r צ : Number ȡ : Number   áٓ)P)P١̄ww2>šPP.: : Number ȡצ : Number   áٓ)PšPP.:  šxx.: š%P%P.:šNPNP.:šEnter number of copies of labels needed of this cardset (1) :ɡbצAdd CardP   צ : (yͨɥۢ ۢۢ ": F  > VZZ<R<1) :ɡEdit which card number: |צThe card number [ ] has been deleted. Edit which card number: Í< F yͩɥbצ EdiIEA=951-)"KIGECA?=;9753-+5+0ŻŶɄĶ ġoMaximum card number is [ צ], B00 00Bša)P)P )P)Pá| Diea]YUQMP)Pá|  ša)P)P )P)Pá|     PB ša)P)P )P)Pá|  ša)P)P )%P%P %P%PBNPNP NPNPBww wwJPP P mPmPBPP PPBPP PPBxx xxB жжá| PP PPB!ǖ!ǖ !ǖ!ǖJmPmP)P)P} áUȡF  - )P)P.)P)P} šaжж áUȡF  - )P)P.)P)P} áUȡF  - )P)P..} áUȡF  - )P)P.)P)P} 4_$ צ, Edit which line number : ȶĄ١bjh" áUȡF  - צEditing 6צline number :  צ in  צ (h  ) characters.OȡEnter number of copies of labels needed of this cardset (1) :ɡbצAdd CardP   צ : (t Card # P  ȡ+ צ  Aáɡáš(  á0áצEnter number of copies of צcards צ needed of this cardset ( צ) : ɡצEnter number of copies of צlabelsצ needed of this cardset (ġLpxةȡ=ȡ0  :xnةx ńš;ȡ0  :xLpPةȡ=ȡ0  :PnةP ńš;ȡ0  :P  LpPةȡ=ȡ0  :PnةP ńš;ȡ0  :P  ġ  $PmPةȡ=ȡ0  :mPnةmP ńš;ȡ0  :mP  ġȡ?ȡ2  :!ǖr٩!ǖ ńš=ȡ2  :!ǖ  ġOu   á  / ת#  -- ת#ȡȡ=ȡ0  :Pe٩P ńš;ȡ0  :P ġCg    !ǖث٩ ٫   ж ɄÍ^š+  :ٞ ɡ n  Pثw 4t ɡ  š+צToo many cards needed.p  ɡt (continued next card)   : ȡȡ7  :!ǖ ٶɡ&!ǖ ńšGȡ7  :!ǖ ... (Card ׮2)׮צ3) (H PšP ńšCȡ5  :P?f  צ !ǖ٩ɡ$!ǖ ńظšEع4&Field Overflow - Word too big to wrap. < T DŽ ȡ3  :; Tت#š  : צ) : ɡyͨɥ K ! צ4Press or to Return to Main Menuá5There are no records to edit.bצEdit which card number: P ġ!á b8T4 | T 4 Z "zT(lB!er number of copies of צlabelsצ needed of this cardset ( צ) : ɡyͨɥ K ! צ4Press or to Return to Main Menuá5There are no records to edit.  ġLp %Pةȡ=ȡ0  :%Peة%P ńš;ȡ0  :%P ġCgɡ(NPȡɡ+  :NP  : ˡ$  : ٕ  á ( ڂȡ2  š1 ġ @ɡD IJ ń Tš&š H @   á  * á0:áٹ    o \ I 62.&n]L;* "$0áH V\p  ~ ,`P0   á  * á0:áٹ   )PōŻ=Y   ōŻ)Pō Ż)Pō Ż)PōŻɡ)PuצTitle. צSeries.  Analytics.׮D á )PɄȡɡ3  :)P  : ˡ$  : ٕ  ڂȡ:  :)ڕ P0rNت# ń$(ũɄ ׮eI. ׮uII. ׮jצIII. ^צIV. SV. ׮IVI. ׮>צVII. 2צVIII. %IX. ׮ me\RIA8.# á שɡ3  :)P  : ˡ$  : ٕ  ڂȡ:  :)ڕ Pɡ)P%ȡ0  :0 ġEi*PũɄ ׮ öń0. #(^ á )PɄȡD ȡ0  : 쥉  | ׮0ةȡ=ȡ0  :0eة0 ńš;خ ġEk Pةȡ=ȡ0  :PeةP ńš;ȡ0  :P ġCg :NڕەP)J . wةȡ?ȡ2  :wiةw ńš=ȡ2  :w ȡ-ɡ& š\ááááá8 ˶Ȅ PɶȄġ\ d ةɡz  ضáMؕ ښ šڂ  ȡ  o exit Programá Exiting Quick Card ProgramPlease remove the disks. d!צ Quick CardCatalog Card Main Menuצ1 - Add a New CardHJLNPRTVXZ\^`bdfhjlnprtvxz|ō򩆃 y :CARDS.DATAy"ˡ} áydצ&Error in opening card file, I/O Err =  צ Return tá0 Ä Í ٢@áG1CANNOT continue with program without a data disk.ˡخˡع @~ $ "$&( "$&(*,.02468:<>@BDF"Bצ+Error in opening card info file, I/O Err =   Return to exit Program.xآآآآ  J " 횶 ءë ɡ`   b  :FILEINFO.DATAȡ 4_ ȡ  ȡ3  :;` n š@$zaĄ ݓ>܂ á šݡݓXl ڳ Ʉ 0á(š áꗜq|O l  𗜋خáá éɄɄbؿ ɡ Nš Íá   8jxt r~2"* ɡ Oš Í öÍũń5á  l  𗜋خáá éɄɄbؿ ɡ Nš Íá   á Ʉbؿ ɡ Oš Í öÍũń5á lȡȡAr  , á ض   ȡ'   1 ڳ,  ?^ ȶńjš š     ńá'Word too long to wrap.ض2 - Edit an Existing Card 3 - Print Card/Label Sets 4 - Delete Cards 5 - Change Environmentצ6 - Make New Data Disk7 - Quit Programצ< Main > choice :  : !fa \ WSNJ1QB)&#  I$9@L,.02468I<>]L 1-Classification Areaת צ2-Inverted Author Area צ 3-Title Area צ4%x*formatter 5 x*rename i%%  áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ̹    Tc "ár Ä Í!  0 Can not read Data Disk Directory"áData Disk ReadyצData Disk Not ReadyRENAME B'-(Nd 2 z X 0  4  6OMPANY.    ȡ.hL hPhh h0hǖhxh   á צSystem Error # " צ Press SPACE-BAR to continue ö n8rogram copyrighted צby Keith McLaurin (c)1984. :Please send your comments to the LIBRARY SOFTWARE COMPANY.    ȡ.hL hP B-Subjects Areaת  צC-Added Entries Area צD-Accession Number צ E-Vendor Area F-Title Analytics Areaת G-Requestor CardsתB צ5QUICK CARD (c) is a UCSD P-System p-Responsibility Area 5-Edition Areaת 6-Materials Areaת 7-Publication Areaת 8-Physical Descriptionת  9-Series Areaת  צ 0-Note Area  A-Standard Number Areaת ?K@ :@9A ?W@ :@8Aн :@$A)* 7A7A` A݌HhHh ? ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh #=h` \I꽌ɪVɭɖ0ɖ!ɖ 꽌ɪ\8`  꽌ɪɖ * % E зЮ꽌ɪФ`7A6A$A\8A$A9A86A7I$Ai$A8A8A 8  :=`+L!='L!=i0L!=8` $A6AJJJJ6A >N$A`)p#A#A**LS=ׅ P$A #=  :@Ld= Ai#A #=#AL= c@AL=AL= AL="A%A%AL=#A j>#A >#H#ANH(HMHJHIH`PN@9532.-'%# p:|0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS WRITE-PROTECTEDuצDRIVE SPEED IS TOO SLOWLDRIVE SPEED IS TOO FAST#'4 qJ "Gp"hIhJhhhhh )Khh LhhNxL K =M966NOW FORMATTING DISKETTE...0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS" ˫6 á= UNIT NUMBER   IS NOT ONLINE.  é ń ȄצDESTROY DIRECTORY OF   : :ȡ    ? 99@@9"ˡ#19:formatter.data"ˡצ#20:formatter.data"ˡ>&ERROR: CANNOT FIND FILE FORMATTER.DATA   "FORMAT WHICH DISK (4, 5, 9..12) ? 8808 er.data"ˡצ#12:formatter.data"ˡ#13:formatter.data"ˡצ#14:formatter.data"ˡ#15:formatter.data"ˡצ#16:formatter.data"ˡ#17:formatter.data"ˡצ#18:formatter.data xץ:צ)APPLE PASCAL DISK FORMATTER PROGRAM [1.2]=צ#4:formatter.data"ˡצ#5:formatter.data"ˡצ#9:formatter.data"ˡצ#10:formatter.data"ˡ#11:formattáMצ'PUT SYSTEM DISK IN #4 AND PRESS RETURN  THAT'S ALL FOLKS... ڳ 0ڳ ۏڂ0ڳ<pJFORMATTE ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>%A8` A A$Lh@B ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh 230.09Twe(Twentieth century theology in the making WAREZ11BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>Fedited by Jaroslav Pelikan, translated from the German by R. A. WilsonLondon, Fontana, 1969. v. 18 cm.Pearl Harbor, Attack on, 1941.850p. Bibliography.New York: McGraw-Hill, 1981.1918-At dawn we sleptby Gordon William Prange  940.54PraPrange, Gordon Robert, Pelikan, Jaroslav, 1923- ed.essays, lectures.+Bible-Theology-Addresses, essays, lectures.&Liturgics-Addresses, ,The Fontana library: theology and philosophyMicroprocessors.Electronic data processing.Microcomputers."New York: John Wiley & Sons, 1979.263p.by Daniel R. McGlynn 001.6McGMcGlynn, Daniel R.Personal computingRENAME     Tc "ár Ä Í!  0 Can not read Data Disk Directory"áData Disk ReadyצData Disk Not Readyer.data"ˡצ#12:formatter.data"ˡ#13:formatter.data"ˡצ#14:formatter.data"ˡ#15:formatter.data"ˡצ#16:formatter.data"ˡ#17:formatter.data"ˡצ#18:formatter.data xץ:צ)APPLE PASCAL DISK FORMATTER PROGRAM [1.2]=צ#4:formatter.data"ˡצ#5:formatter.data"ˡצ#9:formatter.data"ˡצ#10:formatter.data"ˡ#11:formattáMצ'PUT SYSTEM DISK IN #4 AND PRESS RETURN  THAT'S ALL FOLKS... ڳ 0ڳ ۏڂ0ڳ<pJFORMATTE %x*formatter 5 x*rename i%%  áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ"ˡ#19:formatter.data"ˡצ#20:formatter.data"ˡ>&ERROR: CANNOT FIND FILE FORMATTER.DATA   "FORMAT WHICH DISK (4, 5, 9..12) ? 8808 " ˫6 á= UNIT NUMBER   IS NOT ONLINE.  é ń ȄצDESTROY DIRECTORY OF   : :ȡ    ? 99@@9BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>%A8` A A$Lh@B ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>?K@ :@9A ?W@ :@8Aн :@$A)* 7A7A` A݌HhHh ? ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh #=h` \I꽌ɪVɭɖ0ɖ!ɖ 꽌ɪ\8`  꽌ɪɖ * % E зЮ꽌ɪФ`7A6A$A\8A$A9A86A7I$Ai$A8A8A 8  :=`+L!='L!=i0L!=8` $A6AJJJJ6A >N$A`)p#A#A**LS=ׅ P$A #=  :@Ld= Ai#A #=#AL= c@AL=AL= AL="A%A%AL=#A j>#A >#H#ANH(HMHJHIH`PN@9532.-'%# p:|0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS WRITE-PROTECTEDuצDRIVE SPEED IS TOO SLOWLDRIVE SPEED IS TOO FAST#'4 qJ "Gp"hIhJhhhhh )Khh LhhNxL K =M966NOW FORMATTING DISKETTE...0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS