p@9 %  L$MUST BOOT FROM SLOT 4, 5 OR 6CJJJJ \  i=l x ? L N9 +i C* ɭЅ?0ȱ L Ѕ?iȱi L CPlLјJ 8彐.mĿ"Š>?( _֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  Hֈ k( F G  Wj0 خ $Ӱ4 xH ߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹,hhJiЍ L֢ hLh )hJ¥jJJhhihhhhhhb\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH``P@ߠ ߮ STEM.LIBRARYAPPLE1& SYSTEM.APPLE9&R SYSTEM.PASCAL9R SYSTEM.EDITOR9 SYSTEM.FILER9SYSTEM.LIBRARY9SYSTEM.MISCINFOSYSTEM.CHARSET SYSTEM.SYNTAX+`FG8`0($ p,&" COPYRIGHT APPLE COMPUTER, INC., 1984, 1985 C.LEUNGh&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&    ') +!  &п  x) +莶莸L莸LNO FILE SYSTEM.APPLE SYSTEM.APPLEJ) (jJJ>Lx "?I  `  C x Nx G .x- `V0^*^*>` aI꽌ɪVɭ ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴TȥUȥVȥWXiȥYiL0ht i~i8~~X~YiTiUR콥S8\ȥ]\]VWlX ƎRSLȱȱŎRRLҠX ~L!hhV~W\]~8傅~~8傅~8~~~:XiXY I8񆅚ȥ񆅛᭍HHl0 ULҀ8Ƈ8񆅈񆅉D>8񆅈,t8 u8Z[ 8Z[LѠRȥSȥ ň8内e~l8吨L/ऐ 0 8`hh ߦ~ h0 -Lm $LmlvLL/ AL A8L ߦ~ hI=+ -L ߤ~襈I= ƈ $LȄHHLdhh (hI`J) )i i`HH8(iPH ߠ'(hH tߩ thhehL ߍߠ'O`J!L80 %M8$L/L`    Objqޏtޘޤޮ޴޵޺޹м`|H ߠ ߠ'È h`@ ؠ ح0`+` ޥHH ޥhhL ߦ ސ`,10` ` ` ` ޤOȄ`H$)A[hIH80(hI`i(8H(LhhhhhhhhץHH`JJJJ ϱ`H "ݠLf H 9h`JIi' 'x`38 0P`8 0 ߥ` )`,10 )?ILޢݮ` ߅߅l(,LZ ݘJJ )  LJI)LZܩLZ܊) 9ݐ)LZ܊JȩآL ݠ؈hxJiЍI*EJ F؅GF G ӝ4ȩآL ! ֑ȭ֑ Lܢ `) ؊H "h ɢ` ع)`H B "ݠLfڠ0* )` ]Hh` } p pۢ` ێ` ح`2`) ! ` عJ` " MȽ` B "HLf ݠ }ۑ p0 ۩J*L ݢhhhHH)> `( $ `Q`) " Ȣ``H "ݠ h ڍ,,`lJI*I II `$p"0*nXw ؆ ڤ ڢ` ` (!/< ` ح0 ,10i0  I ,109,c$0 A[ $P0Jj)jj&UIL؈ )?LI@a Hb c0  hH َh$L hhh O靱`hhh(`hhhDEDD@+( `8][ ZD[E`ʩˠhhѱʅE[ʅDZȑ`8Hh`HH(x h(`HHH*LfF0 9ݐ9 Lo٥")jR )LB֠BȱB֭J `JB)BC ֐+/ @( ` ֌֢`0&J}iʰ ֥͝֐` حBCJuJ DE 9ؽFG ְU0ЬЧJ2DEϐ8 (ֹO H֥ +ֹW H H)*Ȫ`FG8` 7 `0($ p,&"VU>)Q>jj`l ! a hx ץH( h ֥HH`:ֈ`֙:`JJJJ C֩B8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83IߐiŠLҠX PQȑLҠXX XY 0 LX QHPH PȱPP꽥QLҠ RhPhQL RR8~S~\ȱ~]X i RHRH R~ȱRV~ U~VWRTȱRURXȱRYRRR콆SLҠ8񚅆񚅇`ȱLI8񆅸ȥ񆅹eȱe Iƺ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅] T h ^]H\HHHAH@H > ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not V1.3#lrshLhxhmDŽ І `\Xnl rl1L L~ !  LL8 #0ĎLJƂƃLJ~ L ƂгƃLJ(8 Ƙ L`` ` `޽`HHlHH L $ L޽LdhhHHHHHHHHHHHH`LdҩLZhJJJJ) ޽))hhhhh0LhhhhhhLdh0hhhehehh ) 9L " 饀HHHHL 좊 >L8hhL Ҫ0 `Fff L[~IIi`~  THHLdҩ~  THHLdhh' HHHHLdҩHHHHL Ҁ? ABFffeeeffffإ L a a`~ 预  HHHHL 뢊 >LҢ~  HHHHLҥ~ 뢊 >LҺ^LҺ~&~& ILhhhh 6Ii >Lҥ~I~~ >Lҥ~E 颊 >L YI ꢊ >LҢ~ 预 Lѥ HHHHLҥ~E8 i  iL ҅ 8僅傅偨倐 8&&&&Ffff a颊 >Lҥ~E88ePhhL i򅋩eeee a a` 8僅傅偅倅 ` a`Ņ"$ņŇň ʼn8`~`~ 预  >Lҥ~ >Lҥ~E~ 颊 >L Yꅊ ꢊ >LҢ~ 预 \Z][JHjHLdhhhhh*68jh*vlhhjH*vjHHHlffff择ŋhhL `0&&&&0ƋƋhhL `&挥F8`8兰I襅FfffFfff` ~ȱ~LҠ ULdҥXiXYLh~hhh~ȑ~Ldҥrehrseistehtueiuisu ʱrtLbhLrtLdhhhi0QhthuhettheuuhrhsherrhessXЋiʱrtusLhLrtLdhhhhhhhhLd8\潪]LehiehIihIiiŒ.L4祔'ņŇ0 L#祆8ƇL#祆8厪HHLdhhhhTL֥T8~U~8~Xȥ~YT VLҥRSLȱȱLѥ8Ɓ8 риL 楖 䥘 䥔 хх  =ƄL`8ƛ`8Ƈ` 8` ^\_]`hh Ldhh ULdҠX lhhhhhihhhhLdhthuhettheuui ʑtuLhLtLdhhhhhehehhhhhh  `\^]_~ e~@,A'8\B\]C] h\8]`L8\]  = 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L2 I8񆅔ȥ񆅕 I ii )% ۠)ͩ3ƊgƈЉ** 6`M QRTWHHlRHHlTHHlVhhi a0<7) 0"01 ɃɁ1ح / 0  "!klmn)sVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `     ཀྵ8TU 8X再Y凍TVｌL9XiX-Y)XiX YHHXYX lXYX lh)hLdhX0 eXXYLdeT~eU~8~X~YLҩHHLҠXHXHLW飨RHRHLҠ qeRneaևkSX(zҝִLtXiXYX h&i` hi`XXYX *` `RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[ ֙ שՍoA&IV۪՜x<%ק7ܿd~ٯ$Ԏܚҽ١qn}U=َՍӸު ӤRڨIcxGmeiaq," IԇևHHHHHHHHHHHHHHHHӍԊԊԊԊԊԊԊ ҹHH`qM`LL;LLLL'LLLLLLCLXL?LXLLLhLLLL?hiZhihh ҭHH`l(8L/0 ]^@[ MNP]^@LLLLLLLLLLLLLLLL ҨHLHl/LRѭlTHISISIT THISISIT qŐ`8H<8H\`l L'HHHH`HHHHHH  < @~aƁ)P# ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iи\R]S [ \v]w]|\ v\w] RPRRSQRR Rȭ R)[ [Zqʊ *0 oN`i iIHH H H #) l ԬPPП8ƋȱHHHH`HHHHHH  < @~aSo nHnHLdҠ qeReSi HHLdҠ qeRneSo hnhnLdèPHPHLҠ qePneQo nHnHLdҠ qePeQi HHLdҠ qePneQo hnhnLdҠX Ѡ Uѥhelniemo nHnHLWҠX Ѡ Uѥhelniemoni nooHnHLWҠX Ѡ Uѥhelniemo hnhnLWҠX Uѽeh~ei~H~HLWҠX Uѽeh~eih~h~LWҠX UѽeheiHHLWh~hȱ~H~HLh~hhh~ȥLҠXȘ ~X)XYXHXHXe~XYLҠX~ 8倐ƁƂ6&06ˡ6áƁ8:9" &8(2ȡ4'*4 ?4 3-bi ö >(4ȡ &ǀǏȡ &20(FCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVEDV 8J ' PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC  HHLdҩHHLdҢh~E0~E~~~Ղ0LސLh)~hh)h~Lީ vhhh~hE0Ł~ŀHJ@0D:hhLhLҩLҩHHLҩ%vHHLhhh h膀e vXLLLLLv   UFifhLYޠ Uhhh~hXYhLޱ~р~iLްLLވhhޅޅh~h~ޅ~ޅ~р ȱ~р~р %vHhhhhLݥ)L8内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHLҩHHLҩHHL??ƂFHHLҠX hh&ŎLd0eeƎLdҥ8包Ŏ 8吪8吪ƌLdhh&eȹȹp)1)fjjj)?~Ōe~9 pHHLҦpHHL @hhHHHhȱI%~I%ȥLhhh heȄ Ȅ~l 1ۦ8e h9 0 ʚL 1ۦņ hI9ʚL 1ņ0 hʚL҅~Ƃ~eʥheheHHLdҠXXhh &heheHHHHeHHLWhhhhhhȱ80 iff =݅=HHLh~hhhhh ݅%~~݅%80~~i ~&&hLXYXXYYHXHL0XYYHXHXXYeXXYLhrhshthuXs&trȑtLdҠrrtLvٱrtLdLҺ~~LLҠ UhehheiHHLdҠ UhehheiHHLdhh Uѥi h&L٥hi QץiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh ץIiIiHHLhhhh ץHHLh~hhhE0Ń)ŀ!0E0~łLҘIiHHLҺ}}LhIihIiHHLҺ8Lҩonff nenoeofofnff`hh0 hhLhh"IiIiIiIi QץHHLҺHHLxנnoLѥIiIi攥IXLXŖC?8XX&XeYei无8XYLҥXiXYL h~hhh~&Zȥ[Ze~Z[e[8\Z][LLd h~hZ~ȥ[~Ldh~h~Zȱ~[潩LdҩlLhh0HHLҨIi~hrhsrHrHLdLѠX~e~e~tu~LBhththhLdҺh}~h}~Lhhh~hhe~~he~Lhrhshthu UL躽==LҺLhhIHIHLҩXXhhQX0XŗiX`0\XE0Press CONTROL-RESETC^ Íáɡ 럚肚X  šš ë  q8 "ˡ,8 )á á áaˡ á Nšá áÄ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 xD2LD3ASSMBLER@G2COMPILER22EDITOR LN22FILER B4^422LINKER *=<22DATEREC 43)MONTH r3N3D3N3HJIIIJ|JJJ2KvM:BtBJ r   :VFJ0\0|1CMDSTATE4x7112HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ22~ š˄ `1 b (   d˯7 H ȡ   צ0H"@,A$BnBBXCCDjDDEFFGGGE z 0 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í삫Ú š K7"á61 ɚ V %ɡšɡš  PꟚšw#ńš蕿@šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@7"á1ꓡ " * ȡ*ńȄ4šáRתPńȄ ,ń.á1á6   Q lȡPš蕫š 쾿  /P ná0ˡ oɡa   áá0š  %4áȡ-ë0zY 000á'6á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń  T& "ˡ  J    00áQP 0á0 é000+-ÍFOTO /T! ġ  *@#5$$&ˡ 5 56%ˡ 5Jˡ 55ˡ+&ȡ 5& t&$&F'Press to continue) & Í ˫N V(&:0:azȄaA:)~áۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á" r 2ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$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'29:5,+á"š ġ Z |6?š?ˡ?ء "ˡ7ߕނ߂ɡ F b7} š.ö}Ä-D8W2E\3צExecution error #   á& I/O error #  d4ˡ.$  š t@5,á/š ġ   d쓡  16!~?^FצPut in :P?FP'&then press RETURN *q# 2צS# أ , P# أ צ, I# أ l/E2:Eá *0  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ \-}ˡ2Error reading exec file-, } .}ˡ2Error writing exec file-} ת!!9 D*驁&F+}迶Ŷ} / š/áá-`,3# , , ,//~6ë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡ë 쓌8 ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ !۞ࢥצUnknown run-time error-צValue range error-צNo procedure in segment-table-צExit from uncalled procedure-Stack overflowת-צInteger overflow-Divide by zeroת-צNIL pointer reference-צProgram interruptMayתצ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ƀƀ!must read a multiple of 512 bytes-Nצunknown ProFile error-0({gO8#tLצ I/O error: -Unimplemented instructionת-Floating point errorת-צString overflow-zצProgrammed HALT-bצProgrammed break-point-CCodespace overflowת-( |`>'t^A<0.|t openת-bad input formatת-צdisk write protected-illegal block #ת-illegal buffer addressת-xצ!must read a multiple of 512 bytes-Nצunknown ProFile error-0({gO8#tLצ I/O error: -Unimplemented instructionת-Floating point errorת-צString overflow-zצProgrammed HALT-bצPn volumeת-volume not foundת-צfile not found-duplicate directory entryת-file already openת- file not openת-bad input formatת-צdisk write protected-illegal block #ת-illegal buffer addressת-xצed by user-צSystem I/O error- unknown causeת-צ parity (CRC)-illegal volume #ת-צillegal I/O request-צdata-com timeout-volume went off-lineת-צfile lost in directory- bad file nameת-no room o'Version 1.3 of SYSTEM.PASCAL cannot runצ&with a non-1.3 version of SYSTEM.APPLE@9988צ(The 64K version of SYSTEM.PASCAL cannot צ)run with the 128K version of SYSTEM.APPLE7:::% š tצWelcome ?צ, to Apple II Pascal 1.3צBased on UCSD Pascal II.1Current date is C -C+,,"ˡd;": I/O Error #:  occured while opening ,;   áث 7b7T 7 š, š%9 ƀ<צSYSTEM.SWAPDISK&<(7,צ*SYSTEM.WRK.CODE[*];צ(To what codefile ( for workfile) ? (צáצHá<$88š8(8embleCompileצ! what textfile ( to exit) ? (ׯá(+(.TEXT888Ä8 "ˡ$ Can't find <<9 ƀ:ײ    áۤ  R   88(áצ Assemblingצ Compiling...á999'<<<צ:<&<(áAsstrinsic(s) not available2  Ɓ]&/ ^ ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ݡ #Must L(ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required in0ڡmƀ ˡ`SYSTEM.COMPILER RFORTRAN: .  is not version 1.3ړ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;;ȡ1Copyright Apple Computer 1979,1980,1983,1984,1985צCopyright U.C. Regents 1979%System re-initialized^ 6:v#x~*F  N  צWelcome ?צ, to Apple II Pascal 1.3צBased on UCSD Pascal II.1Current date is C -C-C ;;ȡPascal system size is 64K;;ȡ1Copyright Apple Computer 1979,1980,1983,1984,1985צCopyright U.C. Regents 1979%System re-initializedצSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "á.צNested exec commands illegal"צError opening execd 6~}6 "ء HP\צExecute%צ what file ( to exit) ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+צEXE˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ϡ 6!.j2쓡 צ Linking...ˡ& Restarting... U not allowedQáPצ-Do you wish to exit the Pascal system? (Y/N) YyÍQZQIÍ-Qá6OK7AX0bM=3 C(,.*u Cjp6$ h  V0$~ *)% 6!.j2쓡 צ Linking...ˡ& Restarting... U not allowedQáPצ-Do you wish to exáá 6   HˡFצDCommand: F(ile, E(dit, R(un, C(omp, L(ink, X(ecute, A(ssem, ? [1.3]P')%?áZFDCommand: U(ser restart, I(nitialize, S(wap, M(ake exec, Q(uit [1.3]תP')%} ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH   áá(צ*SYSTEM.STARTUP % New exec name:(šR.%+(]ˡ([8]+("á%צ Terminator=צ , change it?)צNew terminator:צOld swapping level is  צ$New swapping level ( to exit): 0Í1Í2Íسs2ø1öRצ 10,000. ۥ    ڞڂ ˡ  ! قču^  á  ܂áũؓɍš  ٚáء  ٪P&áצERROR: á<& Please press to continue. áR۾8۾áݩ۾ ۾ á ܕR`wPw &áٕٕ: "á <&ȡ<( P#کO˄9#'۹  wڤVڳ * 񿥆P&  ɡ š    I GJؾ4JھQھOéO˄  ˥Q۾ܥP FCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED  + EDITOR INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE 24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ3ܾܾ ܾ ɡ?š!!Ȅ!!P!x!P &(8L@JBGD> Z`dhdޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ3ܾܾ ܾ ɡ?š!ەš߂ĩȍ䓄K ȡ é˄    ۩ߞ߂߂ @@     á2á  é쾩Í  ܂܂  =3X "٪Pצ! what marker? escapes -P"--^ŵ:ʂ:ȡܤܚAẐ:ʂ:ȡܤAaẑ:ʂ:ȡܤA09̂:ʂ:ȡܤA    Ǫ תP7Us$ T O" 䓡- is not present.WP Í  > N%̂:ʂ:ʂ:ʂ:ʂ: OġN ʂ:QKHGKIdńKw:w CC to exit editor) תPw--> P"á(W*SYSTEM.WRK.TEXTתPw á ̂:ʂ:ȡ  P+ Looking for O" 䓡-(( Ʉ?Í  " ȡ"  צ>Edit:WŴ:Ƃ:Ƃ::Ƃ:&Ƃ:POW"ˡWorkfile lost.w@Edit what file? ( for new file,+779Ä8w ACDFIJLMP Q R S V XZ,>.+-?/=<    09̂:ʂ:ȡ O  '  áQLPQپخ@ˡ~צ'Version 1.3 of SYSTEM.EDITOR cannot run'with a non-1.3 version of SYSTEM.PASCAL@ @7@9?879ÄQPQآ)Pآ/ Qآ-Pآ/ Qآ,Pآ/ Qآ,Pآ/ Qآ'Pآ/Qآ'Pآ/Qآ(Pآ/Q آ(P آ/أ.áQOJآIآ$Jآ Iآ$Jآ Iآ$Jآ#Iآ$Jآ#Iآ$Jآ!Iآ$J IJآ"Iآ$Jآ!Iآ$Qأ.Pآ/ O:øb.:  ĸ: á "ˡצ Disk errorBuffer overflow.8 DGآHأ%Gأ&H H آ-> accepts, escapesתPצO Adjust: L(eft, R(ight, C(enter, , accepts, escapesPHצ>Edit:צ Reading from WOwˡצ Reading file.w٤ؚٳ w قؚ. O Edit: I(nsrt D(lete C(py X(chng F(nd R(plce J(mp A(djst S(et M(rgin Z(ap Q(uitתPrצK Insert: , a char, a line, accepts, escapesPI7 Delete: , X H  6 T" N ~  p V F#--á --,-V,Vȡ-,-, ,,-- -- C P  ٕáٕáٕ áٕV!O{  ζ is not present.WP Í  > N%̂:ʂ:ʂ:ʂ:ʂ: OġN ʂ:QKHGKIdńKw:w CC?&SYSTEM.WRK.TEXTתOצ*SYSTEM.WRK.CODEOצZ ..@.Y.6צ>Quit:Pצ To leave Editor, typeצ) E(xit  ׷   ׷ 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.ĩ :!ꕕwˡ. ˡ  ɡW  ۂۂۀ Oˡۂ.ɡ3 ꕞOˡZ.OWƂPUá SåWצ*SYSTEM.WRK.TEXTSWÍ̂/NګצWriting out the file.REÍCÍEáCëK*IJˡIJJJI|Zxd;NR\ZRK.TEXTPצ Writing to ƂOƂCOwˡ. ˡ  ɡW  ۂۂۀ Oˡۂ.ɡ3 ꕞOˡZ.OWƂPUá SåWצ*SYSTEM.WRK.TEXTelete old file after saving new one.צ to cancel S(ave*Ƃ ̂.ʂ. @ʂ. áʂ.YáOƂOƂצ*SYSTEM.WRK.TEXTPצ Writing to ƂOƂCO.צ! N(o to return to the editor.ƂSáƂWPƂ* already exists. Delete before S(ave? -->2 Y(es to delete old file before saving new one.1 N(o to dP"ƂáƂ̂0ʂ0ȡƂƂ۾ ƂƂ:á'This is not an editor functionƂP+OƂ"áOƂ already exists. Remove it? -->צ* Y(es to replace old file with new one t̂/SéX (RáECÍiNRצ>Are you sure you want to throw away changes since last update?X XˡO⥂OWá*Name of output file ( to cancel) -->Ƃצ To continue editing, typeצ# R(eturn to same file& C(hange to another file/L Your file is  צ bytes long./to main command line' To store Text file on disk, type2 S(ave as W( W(rite to a new file name' U(pdate *SYSTEM.WRK.TEXT: File not present. Filename? P"á CopyתP  NⓄ ڕ ޾á ܾ ˡɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=Ƃ=f/rz 6v  ׷ U=ˡ ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? P ƂP"Ƃá Ƃ=Ƃצ# Copy צJump to  ˡcةxyؤ yؤ Marker not there.ؤ ĩb 0 Jump: B(eginning, E(nd, M(arker, escapesתP  BáͩIIJJáKIJ ˡ;Iˡ)IĩIɄIIꩂJIĩIɄIJꩂJ IꩂJ멂JءIIꩂJءJJ ĩ Fá á> < &- Copy: B(uffer, F(ile portion, escapesתP  DBáK멂J IũIĄצ Invalid copy.멂JġNo roomNJōN!Iá ˡ0 :  ؕ؞ق ق پá   پÍ   پÄG wؕޕwDؕޕ w . Type  á   Ƃ $&f dwSyntax Error #תP צ . Type @Ƃ ƃ8Ƃ צ%SYSTEM.SYNTAX"ˡ lȡ- LJȡ ǧȡ ȡ Ƃ ˡ á d d   0 0 0 Date Created:  - -  Last Used:  - -  Jצ Not option. dxj\N>0AT(l* hfR"d&<á wNw N >@R*0t  צ Date Created:  - -  Last Used:  - -  Jצ Not option. dצ = 'ũEǀ'H3צ, = 'Fǀ'xšצ Markers:צ x̂ʂȡ8 yؤá צ(oken search  File is   characters long with   more available.$ Currently at character position  .HGצ Patterns:G3 A(uto indent  F(illing  L(eft margin  צ R(ight margin   P(ara margin  צ C(ommand char  T  # ڳɡ ڂ0   wצ8 Environment: , accepts, escapesP   ȡ.ءצTrueצFalse0 ڳ@@צT or FȡĹ TáTrue צFalse Z: File not present. Filename? P"á CopyתP  NⓄ ڕ ޾á ܾ ˡɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=Ƃ=f/r)EáMá ةˡة$ i ĩN צInappropriate environmentKV  x xצSet  ˡ쩃xxȡy٤  áxȡ/ ) y٤wצ8Marker overflow. Which one to replace? or Pš 09ȄÍĩá 0Nyؤؤضš (š  ) <öÍ   ˄  ń     ɡɶ Ʉګ  ڂ٥ č9h ȡ?  ڥ؂O j ^ġ)ĄÄ˄Ą܄y á háOȡ% ˡݡ   á ثNˍNg    ˡPšǀ3á ǀ wáWɡ -á á á Z  ٕةġ ؕ ؕ ٩؞؞ ٫ګ  U؂\    rP          á   ǀd؂ȡġ š! H ɡ        š   ˡ앞  ^ á á "4! á.!~ō?   > ! á ^áJéé Íɡ f ġ앞$ڶȡ6No insertion to back over.  oڶġd 5Please finish up the insertion   ڶ š Buffer Overflow!!!!  á '  ꂫKJáHJɡ&JIIJK SIꂶÄ Í   ONˍNL š ꕞ ĩꕕɡ/צNo room to insert.  x? ة꾿á!٫؞ǀNˍN?EGIꕀPšrL WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ   ow> copies, , תP  á8š1ؾ á ˄á꾫 á  á'꾳  꾫 xáxx)nPh + Set: E(nvironment, M(arker, escapesתP  Eá Má ةˡة H ĩ E eXchange: , a char, 1 1<á#$, $g npU ٕ -˄ á~Ä ]NˍN ٕ܄Lɡ ꕞ ٩ٕٕ  ث!LK!-    IP   wá   #$<á#$!"%%á< > _ġצInteger Overflow( ˡȡ ȡ 4` x š ɡ -ń šٮ ݮ, Cá1á  á   |  +ȡGھ á-ń ۂھO Z,ȡˡ#$!"%š <á&'%ġצInteger Overflow<( <á#$˶˄ >á$#+ $   Í á8á  á  áڕ*ڕ*%áّ*ݫ ˡáNˍN۫ 5 ()  MM&<'8<á&'+ $ .,20. 46 #$<á á< á> ۫ ášM   ȩMe% Uá*K  ܹ-*2ڕ*%ڕ*5.#á*á *}DŽP  á *-앫؂ *  P  M á M wá   áɡ( M á <á&'šA>á#áR(؂ɡÄ؂ jš앞0dšצBuffer overflow ) 앞ˡá  ꂫġ  ø ɡ zɄ2  ɡáĸ š# Í    <á    %5   87ڶ š7    á 9ض     á   5   9EE Ŷ  Eá X;Ŷ EɄ ŶŶöEɄ E Ŷ EɄ Eá ? 3,=9 ,0vKoġ#(צ expected1(& Ş"˶ I/O error # 4!צ Filer error # ء '\T&)ed(צNo directory on volume(No workfile to saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Illegal file/volume nameת(צ&Illegal change (Volume file) name([Bad destination for files foundת(Code file lostת(צ File found(Blocked volumeת(צUnblocked volume( File nameת(File/(unblocked volume)ת(File/(blocked volume)ת( File/volumeת( Volume nameת(Output file fullת(צWorkfile is sav errorת(Volume went off-lineת(צFile lost in directory( Bad file nameת(kNo room on volumeת(QNo such volume on-lineת(2צFile not found( yeM0ٹVolume already on-lineת(צText file lost(Gצצkת{צcתת(WצSתԦת(KצOת  n`Äצ(ڹצParity (CRC) error(Illegal volume numberת(Bad I/O operationת( TimeoutFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED69 FILEHAND D@8lb^\ZXVVVTRPN024680>@bA ˡA (nxH^ &  Z N$(`XB\ jb  !!"h#Z$ &(&&&(6)())+t An the file.No old pattern. ʀˍ ( P  .Má  Má   d~ zxt p lhd ĩ=123ʀťE4G)G ťEƀ?No old target./ á.12̀3ʀF4HH Fƀ?éG éHGn  ȩMل+: ١ނ߫ á@<á߫ނ ٓ)MńצPattern not in the file.rting Replace  FꕞFɡFꕞFFˡ F멂FꩂFD@̀̀̀̀  á Findצ =>=( Replaceצ V(fy =>$>/ȡ ۾خ>/ @?z  Replaceצ' aborts, 'R' replaces, ' ' doesn't = á  Rr˄NFš[Fš9צBuffer full. Aboá ȥ  Ä9 \:.۪PڪP.P [M / צ]: ء% áL(itT(okz= áٮ0<<á        á;<>á98v b á;<   6ǀ Ŷ š 5 á}Aáojũ˄ȍáY 0(" ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    צ ? (Y/N) - -F&צ ?  ɡ& Invalid #P  ˄I&Remove all files on Gצ : ? (Y/N)Z ٪ # ת á 1 0  d,,[,["𥀈{á򥀿Dá" G"+!+~G?KÄ?G;K;GK,,G,:, ׯ>[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A,(*צChange*[")ǐ ),,OGˡ iiK ׷Ȅff@ Զ ުݪ"צPWkKGˡ jjšצɄS{cpڥs[KG2G:=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =gPܓÄ)jjSj:jˡjj(jAj(ܓ8fá volumeצ ?  , gg#š=jgjPg?=ɍ :g=#g=ɍ+=*á =*=%á=۲jjj:j($hh=ɡX="#šan string 'צ volume name Q<%ۡ9á    - character maximum >- Illegal formatTH=ڲ= ݪצf&1צ what fileצ whatá á1 9U~&gڲ= ggۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too long <ٹIצ file name @ sc &"&& & ܡ&'&k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K& not processed 0ު(áܲ~ %&ܥKO &&ȡu ''k'ȡKk'k-'' ܡšڡK N Y˄ ˡ  .  sآWצ:آ(Yצ\& آצ ? ) áYø۪    MJLN0A$6\ۡ &Pɡ צ, áצ áצ nܪ(G[!nء CGGá+á &"ˡ~[צ[4ثضÍצ$*á-:á?::á ;&Pġ - عEXå[ׯGC81(*ƁK""áN׷9& צ ? " ڪ٪ت&:&Pɡ(š -->  ء,ˡ   ߓ`&צPut  : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪצRemoveǀ RemoveE+Gޤ removed%á % ń,&Update directory ? צ Ɓ3"ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'Insert destination disk %š "ڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Directory listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅( Cצ The date is C -C-C 6 ),%ö,ÍP$&,􍓡~%K:, %,,,|-ٕptional) New date :  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾAa ȡ$GCػ*c+C ػ?צ:@Ä&*- ȡ%ܾz ܾ0ŶȄ: \+Cˡ_ Today is C -C-C צ-Date format: dd-mmm-yy (month, year o&ؓń=.צ.TEXT.  צ.CODE ..Ȳ.׷:.TEXTצText ײ&(צ.CODEצCode (١%צNo  file loaded& '-   ء&צWorkfile cleared%f & ݪܪ  : .  ǀá@ .  ڲ צ& * (&Getצǐ%G.[.ژ$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemoveText file saved  & 0צCODE  "צCode file saved62!o.צצ not named2 Workfile is :.񄓡 (not saved) No workfile. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!.[G&TEXT&  "hKצ*..CODEOld code removed, צ *SYSTEM.WRK.,C:[., #[.GC .צE&Save as :&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5 5 4454=5  d66.6.6 65ݪ   p "٪me transfer anyway? (Y/N) H3Transferצblocks# of blocks to transfer צTransferׯh(*ivƁ-צMakeǐh"))** **"͢/tLצTransferTo whereׯ󓄡{ׯ00ji˄j˄i˄&צ2Number of blocks on the destination volume is not צthe same as the source volume!Do volu ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0/0 0 òCń /C"ݢݢ///:/צ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- ʅ/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files<ƃצr E(dir R(em T(rans C(hng D(ate P(refix K(rnch Z(ero V(ols Q(uit ?7-צ(Filer: L, E, R, T, C, D, P, K, Z, V, Q,?7?áiA:Filer: M(ake W(hat N(ew S(ave G(et B(ad-blks X(amine [1.3]7%צ Filer: M, W, N, S, G, B, X [1.3]7ڡ$&B צback  ġ ɡ6 G : crunched#צPlease re-boot{ Z5تPFP')xR87תTצMFiler: L(di " ġ  6צCrunch@צFrom end of Volume, blockצStarting at block # 2 % forward ת  ȡ'  š 6 T#VV צBad blocks markedH`4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š  "š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂeoTTT TWT ɡTTW blocks.4"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šTVTVVUVVá41Mark bad blocks ?RSSRō4%SVR̂dVʂdȡ V2VVš(1Fix bad blocks? Ǡ  T USVR̂dVʂdȡBlock V ƁdVƁdV"áIצ/Disk is write-protected. Cannot examine2צBlock  צ is badۂġ צ bad blocks1 3צExamine blocks onצH&Block-range ? S  SRR  RRˡR ġ  ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצHScanצblocksScan how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ9 CK ": zeroed~0šצFile(s) endangered:Mȡl\ؤ áצ Directoryڢڢ  v 1ˡZצblocks on the disk# of blocks on the disk .Enter new volume name ( for no change) : ׷g 饀:ˡ!:DG : correct ? Gˡ.ǀ צSystem volume is - ?:Prefix volume is - ;:/ Zero directory ofצH צ Are thereȡ &Gȡ~ צH צ:  Y0N "áA צצצ ȡE , ƃʅ( ƃצ blocks usedƃצ, ƃʅ* ƃצ unusedƃ, ƃʅ+ ƃ in largest"١ ƃƃ"ƃ +  T,!Volume # - Volume Name - # Blocks%ȡ~٤ܦ׷~ȡqܲ~ؤ_Warning - volumes # צ and # צ have the same name.,,'&!צ Prefix is ;:Prefix filenames byצl;G& Prefix is ;:$ /3045)|Tצ2TšHT HTTצP9BZ2^R d(|h(0=OX|} ŀ}|ƀ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:IFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED n$LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU #H)*h)&2&-8-*.-00$1x1D22p333344L4890p8.FILER cannot runצ'with a non-1.3 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto  (Dɞ(ń?Í~!YT(.&V j jthZ Z&##%@ˡ}צ&Version 1.3 of SYSTEM.FILER cannot runצ'with a non-1.3 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶ~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺  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> HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع     $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); $PROCEDURE5?. ????2 ?  ??  1?   ?=~@:?^>[Iq ~ ~>?  ȡ!? 5? f "0 ~5?. ????2 ?  ??  1?   ?=~@:?^>[Iq?  ġ+@ነ? ?> ??   Iq~~4?  ??;ܳ1?ܳ^; S> ?L=[?    ?tI$Iq>ߡڑ߳I@߳}:#9oL.6ZO$<=*     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.3 of the Chainstuff unit cannot+run with a non-1.3 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E   z Z   :    ( tV8z <| 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 TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING)  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}  X E CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif ;.<0(0(099JH;HHH`Z310/$ T%&'( %U(`2<\X`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:. "hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhHHLM0`L+L10RATION: INTEGER);  "IMPLEMENTATION N E  $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,DUSETPORT @=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(%$ $ @' &   cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%) E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^NELL1 LEe8刅刪ʈ.ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEX109: Type must not be real 110: Tagfield type must be scalar or subrange 111: Incompatible with tagfield part 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 117: Unsatisfied forwIdentifier declared twice 102: Low bound exceeds high bound 103: Identifier is not of the appropriate class 104: Undeclared identifier 105: Sign not allowed 106: Number expected 107: Incompatible subrange types 108: File not allowed here 'Implementation' expected 24: 'CODE' expected 50: Error in constant 51: ':=' expected 52: 'THEN' expected 53: 'UNTIL' expected 54: 'DO' expected 55: 'TO' or 'DOWNTO' expected in FOR statement 58: Error in factor (bad expression) 59: Error in variable 101: d 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 field-list 20: ',' expected 21: '.' expected 22: 'Interface' expected 23: 1: Error in simple type 2: Identifier expected 3: 'PROGRAM' expected 4: ')' expected 5: ':' expected 6: Illegal symbol (maybe missing or extra ';' on line above) 7: Error in parameter list 8: 'OF' expected 9: '(' expected 10: Error in type 11: '[' expecteO^.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>ard reference 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: Result type of forward declared function cannot be re-specified 123: Missing result type in function declaration 124: TREESEARCH and IDSEARCH no longer supported  125: Error in type of standard procedure parameter 126: Number of parameters does not agree with declaration 128: Result type does not agree with declaration 129: Tle SYSTEM.INFO 405: Error while reading library 406: Include file not legal in interface nor while including 408: (*$S+*) needed to compile units  409: General Compiler error 500: General Assembler error nt empty 399: Implementation restriction 400: Illegal character in text 401: Unexpected end of input 402: Error in write to code file, maybe not enough room on disk 403: Error while opening or reading include file 404: Bad open, read, or write to Linker fi 301: No case provided for this value 302: Not enough room for case jump table  350: No data segment allocated 352: No code segment allocated 353: Non-intrinsic unit called from intrinsic unit 354: Too many segments for segment dictionary 355: Data segmesource line 203: Integer constant exceeds range 250: Too many scopes of nested identifiers 251: Too many nested procedures or functions 253: Procedure too long 254: Procedure too complex 273: No such unit or segment  277: String too long rary 191: No private files in unit 192: 'Uses' must be in interface section 194: Comment must appear at top of program  195: Unit not importable (interface text not available) 201: Error in real number--digit expected 202: String constant must not exceed ction 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 in lib168: Undefined label 169: Base type of set too large 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 sesuch variant in this record 159: Real or string tagfields not allowed 160: Previous declaration was not forward 161: Forward declared twice 162: Parameter size must be constant 165: Multidefined label 166: Multideclared label 167: Undeclared label lar 149: Index type must not be integer 150: Assignment to standard function is not allowed 152: No such field in this record 154: Actual parameter must be a variable 155: Control variable cannot be formal or non-local 156: Multidefined case label 158: No ointer 142: Illegal actual parameter 143: Illegal type of loop control variable 144: Illegal type of expression 145: Type conflict 146: Assignment of files not allowed 147: Label type incompatible with selecting expression 148: Subrange bounds must be sca136: 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 with the declaration 140: Type of variable is not record 141: Type of variable must be file or pype conflict of operands 130: Expression is not of set type 131: Only tests on equality are allowed 132: Strict inclusion not allowed 133: File comparison not allowed 134: Illegal type of operand(s) 135: Type of operand must be boolean