LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)S+L466H <2Vdh`<HL 6>PASCALCOINITOPS LISTVARILISTPCODCOMPINITDECLARATUSESDECLBODYPARTWRITELINUNITPARTFINISHUPCHAINSTUSOSIO DIRSTUFFDIRSTUFF III.PCL.2R.2.02u' /SYSTEM.COMPILERx; .PASCAL.OPTIONS3; -PASCAL.ERRORS; M-READ.ME.FIRSTH  >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L :./9Pascal 2.0 Compiler, Copyright Apple Computer, Inc., 1983GENTS UCSD  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~mpilation (Ver "Ɓ^צA3/2.136*Ɓ^צ)+Ɓ^Ѣ̀ع-á ת̀ع PÈ0á+NK KšKN@ʀثԥ́^Ɓ^DŽƁ^Ɓ^KšKU0VN V>L ƀʀ=PEIJJšJJá!KJ́^Kʁ^ȡ4K0K9ȄI K0I Ká!KK8áIII?ȄI Iˡ!+ë ȡ  e! +ë +áp0áV́^Ɓ^צ"Apple /// Pascal Co/PEKK.ˡKKK.K+ë+-Í-ë?m ɡ+nmġ::D:::: !DKnm !;nm !nm ;;z$ˡ !ƀ$ ˄ !Dting pathname: Iצ.CONSOLEJM+ëաJM IH+ëꩈ֥H:̀ڹ֥H:̀ڹ+-Í+ëF-ë+ë+ëٳ( +ë+-Í!-ë詈諈쩈諈5+ë+-Í+ëwPEˡ!*á  ƀKJƀCCGEnter correct include name: ̀ʀ$$+-ÍD+ë2IšIL *SYSTEM.LSTתLצIJMUPEIšICorrect lisBˡ!6'ٟˡ٣á ٣ ٣ G٣ G!`F ˡ<,Í*Ä)˄ + nmġ0۳ +-Í Iˡ  ۹š!)PE+ë+ë-ë@'@!KC;3+#x?z$?zDP 9 ɡ!ܕۑ  ڕšۿ۞\E ٢ ؚ٢٢ é٫.Gz$z#áG' /'+# /d rA(áá!$Aۡڑ(áG$ܹA3A)A% 'R @@)áa$۹C@O@E@;@1 !$MC$$á!$w$Bl$?ˡ!$V&NU&  "$&(*,.02468:<>@BDFJu BB'áY$ܹ(BEB;B1B <<ȩé !0>ڨySߢ ٚY>ߢ  ٚ3>ߢ  ٚ -\W x=ڨyˡ!=ߣ  0Ch,,ljˡ,25123467890Z:@  "$&(*,.0246k:<>nBDFHJuNPRTzXZ\^`dfjlnprtxz~-- ..P..Q.PI.COMMENT.DEBUG.GOTO.LIST.PAGE.QUIET.RANGECHECK.SWAP.USER.USING.VARSTRING.,,áNI@.RESIDENT.NOLOAD.NS.NEXTSEG.IOCHECK.INCLUDE.IFC.ELSEC.ENDC.SETC.,,Iá8lj(.PC.PCODES.LV.LISTVAR.MV.SUBTITLE.TITLE.)}˄,˄󾩁á  4<9mmnmؚ :mm ;+++++á <+-+.+,+.,.ȡ/, ,, ,,"$&8 2 68<@]W14˄9˄9,ˡ *9˄ {VnmġIƀۥƀܩ{nmġ${#%˄ƀۨ%ˡƀܨ$8sf8 '' 09ō .á7.ˡ.  09Ȅ á! EeÍL  -á   +á 09Ȅ ɡ!áȡ30کک٩ń  ق#á## ګ#á :  áá:rá:Jצ.CONSOLE7 ::ǀ:áˡ ܑ   9ˡ.۪á DŽ צ.Dž .CONSOLEׯ9צ .SILENTYPE.PRINTERׯښáGGáGࢀࢀࢀࢀHō  IIšcreate ƁǒƁ́^Ɓ^KDŽƁ^.DžƁ^ .Press RETURN to continue, ESCAPE to terminate.ש/J.J/á .  Išܧ/S/|. I.. `<6  šܧ/S/|. I.. ^<4 ڪƀѧ/Sƀ/|ƀƀ. IIȡIK.צɄSצ: K. ́ƁCannot צ: K. ́Ɓ Cannot open ƁǐƁ́]Ɓ]KDŽƁ].DžƁ] .Press RETURN to continue, ESCAPE to terminate.ש/J.J/á .  I0ڣ,ڢڣ1ڣ-Aڣ-š"ڢڣ/ ڢڣ0 ڢڣ1ڣ-ڢڣ/ ڢڣ0 ڢڣ1   ؤ3ۣۢۢ* ۣۢ*:: ڪƀѧ/Sƀ/|ƀƀ. IIȡIK.צɄS22ۿ2ڿ2 /020202*010ō Z " ؤ3'ڢ+ڣ+ڢ,dڣ,dڢ- ڢ.ڣ- ڢڣ2ڣ.ڣ+š2ڢڣ/ڣ+ڢڣ0ڣ,ڢڣ1ڣ-rڣ,š*ڢڣ/ ڢڣ D ܪP10032200012ɡOšOɡš//JšJ//JšJ/2+2,2-2.2//202/212022212/2/ 2ed: ƀƀY. ￥ ￩֥:إáf:+Y%Buffer segment could not be released.  تname of EXEC file:  ỲƀצEXEC//ƀѢNJƀIáIJáJIJ ̀ƀ%EƀKdžƀ̀ƀ ƀצl ƀ ƀצc%%ƀl צc̀ƀ CreatѢ=Y:@Y: @: : ̀ʀȡੀˡˡ Kۑ/K ۑˡYKƀ܂ƀYצỲƀYDŽƀPAS..TO..EDITOR.ǔƀYצYou supply  šńۑ D٩צCompilation interrupted. צ5Press RETURN to continue, ESCAPE to stop compilation.צ/.ݩá֥:  ء:=š@ߡ1Y=ȡ 羂0  'ˡ ܂ ɡ ⑞$ $$  nF^"HئתPġّڞڿ  áۡڞ-<^š2ڡ á !#ݕ$ġ ! ȡ;áښ 0šښ0 ݕ ȡ  0ȡ  0 :;<=O>?^:#@ 00 00 00A@ѣG!JIš /: tߑ/ ˡ@  @צ@ @DŽ צrenamed...codefǓ @: ⓡ E˄ RˡÂÏ:  :á㢀áJ㢀ˡ ݑޣšá$ޣšޣGޣک ޢޣGޣ:š   ߕJBI[Ѣ[K򩈏KׯIKK K̀ƀKDŽƀ** Pascal Error File **ǛƀKIKK̀ƀKDŽƀ LJƀǛƀKI[NK[;[ I HٿH*H*H- HIH||  ۞IHI~N E  ō  ٓ%󾩁á١Eá FG䩀  I;YY ***** YnjYkYYצ***** YNJYIYYצ YdžY:LILەۂH á á 000ר:  P   㾩Í Mf    uǨÍ0:     .ῶ šGYY***** YNJY.Nj@Mب1צ%PASCAL.ERRORS.. :Mkȡ 3Ljȡ 'ǩȡ ȡ Ǒȡ   :M :M dd  000ީ㾩ń 0nmɄd ڕڞ= ڕڞD ڕڞ *    ڞ ڂ I ˥ ˍ֥:צError NJצ FBF ԓ?DŽѢKšK*ՄaMMMJšTNK LNKؕ؞LšIHNIIIIMLLt  C ڕڞJJDŽJJKšK <ۥܩۤ ѣI ѣJBѣKEѣLѣM  ȡ! ѢNūF צ ѢǀHHšǗ!ѢI󚥁ѢJBѢKEѢLѢM I JIJȡ$ѢNI III ܩۤ񚩀GFGFBHث F JJ JDžJ Fá ԓ6̩hLˡJ Input error (   ) on file  ߢǟ á :ۡ?áٓd!󾩁á ٩RM ٩ǀǀ(٪I á :: E䩋?)䩀ۓá :ߣG:~án á֥:Qˍ :DŽšߣGDŽDŽߣGá :ߣGۣšۣۢϿۣϩڿF  áȡg ˡO˄4ࣀšK:á:: u -IѢIϢKتڕݞš)KGKKGK KKܕKGKݞޡKK݂KáKKK8٩ˡGڢڣКڢڣٿڢڣϿڢڣ٩٩ÍڢVޢIOutput error (צ ) on file ޢǠ KKKá   (KݾÄKQˍ ݩšK݂ەġQKKčK;KKGKڞK [ [[[I ̀ʀȡ쥈 ̀ʀˡ-ʀߕ[ á[^[ݿ,ʀߕš [ [^[ݿ[+ʀߕ[ á[^[ݿ[IʀʀLʀǐšʀ áI 瓡 ˡ~ [[̀ƀצ0 The last previous error was found on line 0ƀ[Ǵƀ.ǵƀ[C -FG ˥ ˍ֥: 橀 :ġ&>ؤá+삥>ؤ+*<*, 삚)Uj/$0!0 1ڟˡá Ä"2234á۟ڟÍ:ǒ!ڕáft)?ؿ**?+ɡ!,ء ?b,b,,(-ۡڤ   @.<!Ih!9,ښ 'á "کáˡ >(š?ܥڞڂڂ؍$>: ١: ǐ! z :-- :$ڟá ؚ7؞áe!á ؞á٢ؚ٢ؚآآ< d%ٟá؟ إˡ؟ &ġ@ڟˡ)áڣj g }3  "$&(*,.a248:N9tEGIKMOQSUWnRnp   !#%')+-/~x=?ACEGIKMOQSUWY[]_acegikmo`]󾩁áٓ=á             z)Ä 9  ' (  (  '  )      =>)   ) =á   (  '  / PܳɄ 0ۂܳ @Hۂ # #á#ګ  #}O z9 ǐ! *á*O       .á     á !.'á 'ˡ.'Q {(ˡ Q l :ˡ(Q[ $21622Í1Ą1Ȅ1Q Q!00)ˡ! .% --á #333-3-Ed P%ܳ~ a A  ġ!؏قá! #$á85 󾩁áá)}Í *á 8:7 RO-Pɡ---ؿ/!/2Q/- .٩ؚ ǐš& ؚ  áC  !ب! ɡ ("# áá ! ܳ~~tšݓ!<ܳ0b-á 0 "0  Z1 <<< error( ) >>>ǐu˄Ǩ˄.ړ٩ Ȅ! Äړx  á ؚ  . ˡ á-- BBCCD D D 󾩀á QS<pZDةEˡ  šۂDŽšDŽ۞tinue, or E to load the editor. or RETURN to continue.FG ˥ ˍ֥:  :   卡beEÍWצ'Preparing EXEC file to load the editor. Please wait...צ Ѣ.d\FG ˥ ˍ֥: * d̀ʀȡ  "Press ESCAPE to stop compilation, $צor E to load the editor.[8,RETURN to coná5 ˡ Ä ޓ'  ૈ5߫55Äޡ'3۩˄ک˄۩˄ک˄dݟܟ˄ބ5ݟÄܟÄÄÄ#5/,"`!%á 5á 5,0IW 5éÍ؍Cáǂܢ۩áǂۢ\SˡKámˡ*٣`٣ á٣ á ٣u"]]8]2é á7Dō ] á7ˡ! š A$  3 \ vܩ5hKܩá Z Y A DŽ! [ %Ǐ!Dž!RT9!ǁ!  2R=2=1=R1٩إ V6؟& >70)"+3ݩˡǁ!3 ⩈ˡǁ!26" \T)á $Tܟ˩˄á2á!ܩ5 ީ ǁ!ǂ!ܩˡSܩéÍ3ߢGߢ5ߢ#ߢ O?1! n[ ܨۨ33 ⩈ݩÄ5  Ȅߢڹ6A8/\T ܨۨڹ*6/(! 1,'" RY ܨۨڹ`ߢcߢSߢCߢ3ߢ#ߢ gYK=/! Z ܨۨڹHSéÄáީީܩéÄ-áޢޢKܩ55áޢޢdž!?ܩéÄީdž!+ =+ /Sgi Fh : U (`   $Uhá Xá >á/* ȡ dž!(á $Uܟ˩˄ṡީPܩéÄޢ.ܩ5ޢdž!SܩéÄ(ޢǪ!éÄ%ˡáީީǪ!dž!HܩéÄީdž!( ,ݫޫi0bC< "$&(*,.02468:<>@BDF`PRTVXZ\^`)1"E&VV'á $Vܟ˩˄SéÄ$VˡáLJ!$á$R W $R@W:šf! ݢݫ˫$á$ ! ޢ8á  á   Xˡá$V𩈙$á) ݩ ݢݢݫǂީޫ$ݢݩ4ݫ$$ Rá$! Rˡká+ݹ}!:á,ݹ}!!}!h!á$! PX):)1)B'$ܣá[á  "$&(*,.02468:<Lá޹5}!sdUF '>=7*  "$&(*,.02468:<S éɄÄ}!أ áأ ݳ` Ǐ!}!;š Lj!*5 lj!ɩōǩ!`Wá$ !أ áأ )á)ˡ! '$ˡ޳ Ǐ! Rˡác޹\UN}!F '>  é Äܓ/á!!0é Ä1ܓá!! á$Ä Ä1 zˡݣ //煮Ä, < =ˡ! > á02á+ éٍ/    H cg"\7G:. 1% 7 :/ /:Tv%^hZǀLLA רآǀLDCIآǀLEQIרآǀLESIآǀLDL רآǀNEQIآǀSTL רآǀCXP آ ǀCLP רآ STM آǾǀLDB רآǿǀSTB آǀIXP רآǀRBP آǀCBP רآǀEQUIآǀGEQIרآǀGRTIآƚǵǀLES רآǶǀLOD آDǷǀNEQ آǸǀSTR רآǹǀUJP آǺǀLDP רآǻǀSTP آǼǀLDM רآǽǀǀXJP آ ǭǀRNP רآǮǀCIP آ ǯǀEQU רآǰǀGEQ آDZǀGRT רآDzǀLDA آdzǀLDC רآǴǀLEQ آIND רآǤǀIXA آǥǀLAO רآǦǀLSA آ ǧǀLAE רآǨǀMOV آǩǀLDO רآǪǀSAS آǫǀSRO רآSTO آǛǀIXS רآǜǀUNI آǝǀLDE רآǞǀCSP آ ǟǀLDCNרآǠǀADJ آǡǀFJP רآǢǀINC آǣǀI רآǒǀNGR آǓǀLNOTרآǔǀSRS آǕǀSBI רآǖǀSBR آǗǀSGS רآǘǀSQI آǙǀSQR רآǚǀآljǀFLO רآNJǀFLT آNjǀINN רآnjǀINT آǍǀLOR רآǎǀMODIآǏǀMPI רآǐǀMPR آǑǀNGǀǀABI آǁǀABR רآǂǀADI آǃǀADR רآDŽǀLANDآDžǀDIF רآdžǀDVI آLJǀDVR רآLjǀCHK N'*((3|5$7B&LK\LL OTNM^MLO`OPRRR\E6LdN  !,!T!!+,-4.v//R118222468>:;<.=V>>XBB P]mPpcr/Ix/~.g87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8 h逅逅LY HH`%hhhhhhhhhhhh 8 ȑHH`jz HJ Xi/^ਊ LVXZ\^਩ `਩ b਩ d਩ -.;T>:HH`L01234567890MJC><99jhhhhhehihhh hhhhh+hh/0h-h,+H*H`20'$"Jhhhhifi+e,eii\i/dਊ L\Zi/bਊ LZXi/`ਊ LXVh[hhhhhuhno^alȑk)t\n]ok[HZH`pb.CONSOLExmkmk፴vwȑ୳୴`~}lec`^[XWTGDh*ǀCGP آ ǀLPA רآ ǀSTE آǀ210 רآǀEFJ آǀNFJ רآǀBPT آǀXIT רآǀNOP آ IOCHECK ר NEW  MOVELEFT ר MOVERIGHT  EXIT ר UNITREAD  UNITWRITE ר IDSEARCH  TREESEARCHר  TIME   FILLCHAR רwith  š    ( ) ٮ ٮڿš š ܶܕ()r *٨(- ǀ(**`mɡġ-[-]t ٮ?پ ڿš  Patch ת  צ ߕߞ"JIáDŽDŽ DŽ JGDŽ D? $ ɡ 0ق Aق "ٿeתؤ&- ,: Fˡ FFˡ FFFiFOFˡ Fˡá eM ٟˡخڣhxڣ Fiڣ Fڣ ڣ Fڣ F;ڣ áڣ áڣFFpnpc79خ IDŽ &- F ר& Addr Size E-size E/W Width Fbit NamFFˡ FFˡ FFˡ FFFiFOFˡ Fˡá eM  IáDŽDŽ DŽ GDŽ Nبá#v  ڹT ߕߞY  ߕߞK ߕߞ= ߕߞ/ ߕߞ! "ߕߞ [OC7+؟ˡ WRITE_STR ר WRITE_B  READLN ר WRITELN  CONCAT ר INSERT  COPY ר DELETE  POS ר BLOCK_IO  GOTOXY ר~K6<4  EOLN ר  READ_I   WRITE_I ר 14  15 ר READ_C  WRITE_C ר READ_STR  WRITE_STR ר WRITE_B  READLN ר WRITELN  CONCAT ר INSERT  COPY ר DELETE  POS ר BLOCK_IO  GOTOXY ר PUT   9 ר  EOF   EOLN ר  READ_I   WRITE_I ר 14  15 ר READ_C  WRITE_C ר READ_STR  UNITBUSY $ PWROFTEN ר% UNITWAIT & UNITCLEAR ר' HALT ( MEMAVAIL רnLJ FINIT ר RESET  OPEN ר CLOSE  GET ר TRUNC  ROUND ר 25  26 ר 27  28 ר 29  30 ר 31   MARK ר! RELEASE " IORESULT ר#  SCAN   UNITSTATUSר  NEWSTACK  COMPERR ר DUPTOS  FIXIDS ר LSL  CPP ר 19  20 ר LOAD_SEG  UNLOAD_SEGרٮ6 ٮǀġ'ǀh,ٮ2,ٮ&ٮ ȡ.خ ޓ˄ 6  tڹNREALnSTR רaBOOLTPOWRרGBYTE:WORDר- ULC :1(?KٮK-(  ٮ خ   خ  ڮ  Z:  ڮ nj 66ȡ Ǒ Ǎ خ ǎ 66ȡ Ǒ Ǐ  ڮ 66ȡ ǐ ڮ 66ȡ ǐ  ǖF)))&Ǘ3Hxpǘ6***"ǙF)))&ǚ3Hxp:TWWWá(Z:\:[!B XšֶYX:X* Xġ YXؿXXI*Ljlj  NJnjnjnjnjnjnjnjNjnjnjnjǏnjnjnjnjnj| Ǎ :ǎ |Ǐ ǐ Ǒǒ ? Ǔ"UǔU"Ǖ6***":.O.ؓؿ$ ࿶ 0WWWš [ \Z\:ѣGYXZZ:,Z dž*ILJ012345678 9 0+,+,ȡ+3+++,+,ȡ +---G++ .CONSOLEתPץ֭vZ 8fers. } }  ੁ 󿥁 HH ǀ /إ :#//   : :Z:# 0  0 0  00 00d0 0&^|{|:'0*Cannot allocate segment space for buf3@BDFH,\.Z< ` 4  , IJJKDŽ KɄ詁 LLکȄ6ɡǡ ǹáLL 쩋?۾ǭÍKȡ SLDCSLDLSLDOġSINDǀMM(MFc- ]- W- Q-K-E-?-9-3---'-M MMIEA=951-)%ꩌš MMȡ  ߤ GKMO`pIJJKDŽ KɄ詁 LLکȄ6ɡǡ ǹáLL 쩋?۾ǭÍKȡ SLDCר @/  ޹ FSEEK  FREADREAL רu FWRITEREALb SUPERMOD רO SUPERDIV < STRTONUM ר) NUMTOSTR |kZI8'  DCSP '߳Ȅ)ˡޢ8FبڮCXP ,޳? á INIT_UNIT ר  W޹9 FREADDEC ר3 FWRITEDEC  LONGINTIO   ,   ǀ(- ޕ ȡ_  (()  ˡ g *ݓܩ Í, ," ٮ  ȡ9ۿ߮˄ "G ٮ    :+RdSSHSSġSSGS:FSSSSGS SGSSáLSPLˡK TT Input error ( T T ) on file !TSǥT LáSSH SSSSGS SšSGSSϞSSSςSϿSSڍSS%TTDŽTT تF)FGGGá  GGEWE"ˍfGFšGP PؼP R!GM( 1} "$MMQǯǿSQQ QNQ ˡSUTOTSáOTPPP PQPáNTTNTÍSSUZY/S QFK:L /QQ áQQÝ/Q.QSPPP PؼPSVáLK:L SSSUáLK:L SSSPPáƁQ ƁQ? ƁQƁQ ƀFFʀƁQƁQ?ƁQK:LVáaR!HGInvalid options file format. JÍWGOGN ʁVZZGYMQʁVSS áQ/á QQǯǿFƀ́FʁȡAƀFPPP PP ˡ ؼPFFQá  R ZYUV́V́UWXƁQƁQƁQHƁQGƁQ ƁQ?ƁQFƀʀHFá3ƁQK:LƁQ ̀ʀȡʀá$ƁNo help file exists.תƀ UƁ́ƁצFile ƁljƁʀƀ.ƀ́ƁƀDŽƁצ.DžƁHelp file not available, sorry.Ɓƀ˦.Press RETURN to continue, ESCAPE to terminate.ש/Q.(type צ ? for help): HG.ƀצF́Fʁȡ1Fؼ FƀƀƀƀFFFw//GGdƀP/ǯǿQ. /wQ/á Qǯǿצ̀:   L ;: :GNۮ X $xG  ccצ and move up and downצ.ޡLb .٪צEnter option letters׷. hצ. . Z : L ;: , +    / : / áߩÝ/.߹á:  á5 ǑǑǑ5LXš ٢YXXX <ڟɄڮ ښڟˡڮښ- 8. ám  آNo more informatiońhƁhצ for the " Ɓh Ɓhצ" option ZáZZYY  ˡUá[ڟ˶Y˄,ٶZáZZYY ġ S  خ ܮ ۮ ڮ  ˡǕǖǗ5  ǑǑǑ5 ˡǘǙǚXXء ڟɄ ښڟˡښ 3>YáZZYY  ˡVá[ڟ˶Z˄,ٶYáZZYY ġ S[ b [ X š YX X X.ˡpbˡi[,˄  ۢڳ ڶ Ǒ ǒ  ء Xš ۢYXضJč  + FppppGp pǓpppGp Ǖp ǖp Ǘp iiiiiǘiǙiǚiii i i ǔi bp[ib [ b [ b FGGGGUVáFV UFFUXE áW FWFVlGš(GGG)šG)GGGG GGXWHHáHFXFFX HG Hٶٮ Ns and move up and downצ to select an option to unselect an optionצor just type the optionQ.;ؼQTSˡ%SOSTˡS STˡSMޭ +>!ܪVPNƀ/JI.ƀƀJIM/ƀP/󗜠OM. /ƀO/á MƀƀKƀKLƀOO O0LLƀLOȄǸƀצValue must be in the range . ٞق>%=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.OPEܢܢ ܢܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ ܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ :#تPɡR:$ ۢۢ % BYTESTREרۢۢۢ% WORDSTREۢۢۢ% " ר ܢܢ ܢܢܢ ܢ ܢܢܢ ܢ ܢ ܢUT ۢۢۢ ۢ % KEYBOARDۢۢۢ ۢ %ȡO ܢáFALSE TRUE ܢؚܢ ښܢ%ٚ NIL ۢۢۢ ۢ% MAXINT ۢCHAR ۢۢ% BOOLEAN ۢۢ% STRING ۢۢ% TEXT ۢۢ% INTERACTۢۢ% INPUT רۢۢۢ ۢ % OUTPP٢٢٢٢٢٢٢P٢٢٢٢٢٢٢٢ؚ٢٢٢٢٢٢ؚ٢! INTEGER ۢۢ% REAL ۢۢ% ˡ!&&٢٢٢٢dL4٢٢٢٢٢٢٢٩٢٢٩٢٢ ٢ƀϥѢƀϪKšKԩJMLE.:֥:奎צ*SYSTEM.LIBRARY.)檄).lu-!:y á,(ץKiFDŽ צ. How many lines per page? [from 12 to 999] J;  NK ǸƀϦ"Apple /// Pascal Compilation (Ver "ƀϦA3/2.136*ƀϦ)+ƀϪNKPage תNKNKצLine# I S# P# Byte BE P ̀ƀϥI.CONSOLE׷IצIצ Error file? Icצ%** No error file will be produced. **I.CONSOLEתIIIצ.CONSOLEՄ- What is the page width? [from 70 to 132] "** No listing will be produced. **Iתצ Error file? I.  I.CONSOLEׯצ&The error file may not be the console. צ0Press RETURN to reenter, or ESCAPE to terminate.ש/.ڝ/á le? ƀ.  ƀצƀ=/|תP/=>>:>:*$Cannot set the mark on the code file ?IתצListing file? I.  I׷IISYSTEM.WRK.TEXTתצI/S/|. צI.  Iצ BCצ Total linesO G̀ƀϦ ƀIDžƀ F/ƀ$ץƀ/S/|. ƀ.ƀתצWhat is the code fiƀV%ƀצ to )ƀP3ƀ.4ƀ 0Press RETURN to reenter, or ESCAPE to terminate.צ/󗜠O.O/á Nd  Iצ/|תP/S/PצCompile what text? I.  IצPI*NOLD.REWRITE.CLOSE.SEEK.RESET.GET.PUT.SCAN.׮$צ?BLOCKREA.BLOCKWRI.TRUNC.PAGE.SIZEOF.STR.GOTOXY.UNITSTAT.FIXIDS.$ɡW%ٳڡ  ߢߢڡߢߢߢ ߢ ٚ%d&ODD.CHR.ROUND.MARK.RELEASE.׮$;IORESULT.UNITBUSY.PWROFTEN.UNITWAIT.UNITCLEA.HALT.MEMAVAIL.׮$STRTONUM.NUMTOSTR.׮$ɡ%0Nݹ       ܚW$ߩ  6á$ō!4!á$ !1ߩߩÍg!áǿ!$ߟˡkߢ 63 ǔ!ޚ á$! 6ߢ ˡkͣás 6ޚ3 ǔ! á$! 6ߢ ˡk!ߩáq$ág$ 6á7ō !P Pˡ ߩ !á$ !áa$1"9919á ˡ $á7 ߚ % $!ˡߢá$!á ' %!$á$(1á$!á$! ́ʁ ʁʁʁʁʁʁ=ʁ ʁ.. vZL  X .:#x# $#!0$$%%&j&&'(<)*+++",R,..,.(/L11T *ʁʁ 𚥈́ʁʁʁPROGRAM רʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ,@ Z z Ld: !ác$á$ ˡ %!$á$(1á$!á$! ́ʁ ʁʁʁʁʁʁ=ʁ ʁ.. vZL  X .:#x# $#!0$$%%&j&&'(<)*+++",R,.́ʁʁʁʁ 𚥈́ʁʁʁPROGRAM רʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ,@ Z z Ld: !ác$á$ ˜ QRS VFÝʁʁʁʁ*)  á $!"#&' - á) 116) - ƁuPƁuP_ Ɓu(krƁƁƁʁʁÄʁÄ 2krƁƁƁʁʁÄʁÄ %pascal.options.ץCGHIP A)mnmz{yyAPPLE רآ آآFALSE ר٢ ٢٢TRUE רڢ ڢڢ*.צApple /// Pascal Compiler (Ver A3/2.13C! Words ר  ר "(=x9=@5|9!t1-)x%<=ǂ 柫(  =KתPK:J        ݹ   ޡ ٟ˄٢ۚٚ%v ' ȡ>  רD--              $K4/ޡ !ߟˡ7á-ˡ&áǏ!š f!ߚٟg Fڟ˶|cک˄2(ġ%ɡ܂6(ɡ۸ km4U@š  ڢ  ڢ ڢ ڢ / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ ٢٢٢$á    '$ ˡx! !!á $ ˡ!H á ؓ% $..1˫$ á]$áO '$ ˡ.á)áy!㩈 ޚ!  1á w!$!1á-* **1ˡ áj. ..1ˡá4$á& ܂á ۟ˡáݢؚá $ é!!򩈣ˡu"im x $áá ٚ  %ޚ$áp  át  ݥݢٚݢݢȡ ݢ ݢ ݢ ݢ ݢ %$!!!1˫$á$!!ٟˡ>ݢۚݨá $ é!| ˡ1á ݥݢݢ$) Ä$!%ڢٟۚˡ+گ ٩ˡآá $ é!ˡu"#áT؟ٓˡ Ǧ!ٓ۩ۢۢڢؚ$! ˫$á$!r ˡ1át ۥۢۢۢ$) Ä$!6%آٚآ ÍߩÍ s!ߩár! ߚߟˡ%(š ǩ!a.á\ǿ!$  á$ ߚߟˡ ੋੋٟá!&( ˡ9(  ȡ Ǐ!  ߟá-á$ ɡ! ł ߚ á$ !*á$ á$! ߟˡ'  ߚ ޟˡ2ȡ%ީá m!á Ǖ!ޚq!˫$á$ ! á$! ˡ ál!"ȡૈ ' á+  إآ آآ % ˡ ˩   l!$! 5 5159 á +á!$! !1,á$á$ ! 1˫$á$! ˡ ál!ˡá#$  1ޟˡ ߚá؟*/%{!* h   آآ$ánł  á $!˫$  Í RzR  1áá>  ߚ %$!  6ˡ 5o!  ٢٢ ٢٢    ˫$á$!á$ !á (  š  öń ˡ%      ٢٢٢٢  ' á!  %$á$!áV ' ˡ9ȡ-5m!  ء n!$11 ł á$!  㩈Í! ȡ参!á  !((1 ˡ  ˡ á%$@!1á$!뚟ˡ{ ߚ` OˡHá  3á+ȡ   ߚڟ뚭 1-TءFǏ! <<$ Ǐ! áD á S K̀ʀȡVL悾 ⥉ZáHL悾(nj悾 ZZ䩉zz䩉HZ(z䩉"=á> :ǒ! < ݫ&LN$L @$X N ####N ׯ '?̀ʀȡ1 悾ˡ: 悾  悾𗜠'ʀ ʀ ʀ ˡ z悫ll  l"$ # š^! 𗜠%$áP  hޕޞ֥ :<ꩈ ̀ʀʀT ̀ʀȡʀ ::Όʀʀʀ ˚ʀ h'ʀ +ʀ ˡZ"ǻ! Ǿ!ylpۤlۤ :ǒ!٣ <`٣ ٣ ٣ š婎ȡǻ!(l: 婎ȡ'楏)צ*SYSTEM.LIBRARY.ōl4ޢ  ޢ`M `yۡEa=ǀálڤ`dٟٲ p,٣ u8  1á$ ?á?Dá&Ǻ1$ á$ á$ á$ á꫈Yš A$!á ǹ!ˡE2˄)ݍ1 1%Pi7zl  n &:F    櫈=ء竊< u8  1á$ ?á?Dá&Ǻ1$ á$ á$ á$ á꫈Yš A$!á ǹ! ڕڞ֥: 5ˡ<<ޢ !ޢ$á$!쩈ޢ"é/ǡ!ޢ"á$á$!D!   櫈=ء竊< !á ᓡ ޢݚޢ㚹s  ᓡ ޢݚޢáM$á4z!'ޢߚߟˡ x!ޢ$1ᓡ{!á$!5á𩈭ˡǷ!Ǹ!ءǏ!( ,á%mݟˡJá 5á  šá  šޣ ˡޣ <ؓǏ!$ !=ޣ =ɡ ! ɡ/&ޟˡ?ޣáޣÄޣ Ä ޣáޣ Äޣ Ä  ᓡǠ! ᓡá    < 𚥊>< ء- 𚥊<6^šǽ!!ˡ!C7-ٟؓ٥ ؓǼ!$˫$ ˡ!á$! h ~   悾ǀš'ˡǒ!ᩎ㩎کA ۢ?ۢٚ۩؂j&ˡ ǀ*F쫋ړ*Ǧ**ȡۢ*ڡ*" `Ȅ*"3ǔ*؀*؀*ɡˡ:٣ á+٣ á٣  ٣ ٣ } } t  á$á  á$   án!8خ2خ٩ɡٮˡǢ VˡP3ةÍǟ ;5-؟ˡ á } ޮ ; á    á áXá`'$!á $ˡ} éÄ3OáCءǚ á5á+ݢݢ  ˡ}  ˡ' ˡ} ˡ áá$6ٟáǞ c $--N)HJ` fáA'$ ܮ.٢ <<š <<>٣ ٢>٣á 2٣ ٣  6٣ ٣ &á$ nj $áˡ| &á ǘ e $ ǘ! $   ˡȩń$ kˡbÍN ááǏ áˡȩńNJ $ ˡ ˡq ݟˡ5=3- ( ˡ䀮šNj ˡ@&á3脡 @$ȩńˡá$ áˡˡˡ éÄ6 á 6    9 ˡǖ g   y7ˡȩń-;--áݟˡˡǕ9!ء)ɡ f! ګ?خd ء+?????1?????ة?hܮ 0   ܢ$á *Pܢ?9á ء'ɡۚ f! ܢۚ ˩˄LJ !خ"٢`mܢܢ`mɡVġ !:2ˡ"g " L8lˡnD3&ǘ!:2ˡ"g " L8ˡ ˡ|_ǀ*Ȅ*>á'33J"6+#$:<> *#Fé˄˄4 ( ˡC.86ˡǘ!#;=? 5.T ˡ]D3&ǘٗMخ á *DŽ* ! Ä ˡáh'ڢ ȡ?á$خ  ڢ  3é˄á)á ؂*؂*#Ȅ؂*خ @MÍǀ***ڳáقšخ^á خQ٩áخBɡ*6áǝ*8á*ǧ*ّ*خǀ*ٕ*خ:ȡ*ǀ**(ǀ*3áqá!šˡ ۚš%*ġ+á ٳ0d@*hٳ ǀ**FJ)ÍȄM2خ˫$ɡ š  ٚp "á+ˡ îá 2خ ˡ  ˡá-M2خ٣ɡ ٣š٫+áMM#5á }  3  } R$ˡ ˡ} á$áNORMAL ׯ LOCK kPURGE ׯ TCRUNCH =WPROTECTׯ áB & áN  áO . 3 *á & )á    ˄ ;?,JOQS6sw.أ áiأ á$t ݳ$o" ,-ݮޡ á$ .ˍǎ  ˡǎ ۓ ٟˡˡá$ ۓٟˡ~  áá á2 < á 2ɡ!  f! M  G ˡ M 5 3Ä2-(ˡ(ߕˡǎ ګoádáکá g ڟˡ@ ,ˡǎ *ũǯ 35(ǚ ک5gکک˄ǎ S کáHˍˍ4ˍ( *" ٟ˄ۡ٢٣ڟˍ٣áȡéÄ˩ˍ áݡ šoá)á  ݡ  @é脡 )ک5 3G   áٟá~ ٣`$ܡˡ"٣á '@'5Ǒ $"" h V á2 <@ á3ǔ* * *  " ˡ ˡ}  zة5 ١ cةá ١MO3 ١M:2ة˄)ˡ(ݕ١ܮܮM} ˫$áۮMj7 - ˡ0ٟá& ,ö;AR'ˡ(á!á$" á$˄ۮ&؟ˡ$š á$4 á&$&ˡ ˡ á ١M ةá7١á#$A'ˡ(á!á$" á$ ˄ٮ"ág ˡf5M U5 C5  ,5M3 M} ˫$áٮMt\?.68#<>@BDHJLNp] *   ع0v!r"n#jf b%^&Z'V(R)N$J +@8686 8::<:F"$&FD,HJHFH8TJHj* ö=ˡ} ˡ!áM ($ öÍMá ˡ!áá  }  ˡ  rˡá} Y-RFH$ "$&ˡáá}  >  ˡM M  ˡ ˡ ˡ (áA'$ˡ.)1 ˡ ˡ} ˶ÄǏ áM M ˡáás ˡĩˍ} ˡáá} ˡ)á á á} $}  ˡ ˡ} á$   x'ˡˡ} ˡǏ  á$  %áM˄ UNPROTEC ˄} $ M! %ˡˡ} áǏ Má$    HMAM:ˡˡǏ M (T:5 8& z+Í؍á á ٩6/éÍ&á á  ة<0):))^'$ܣá ܮ+#ܣá ܮˡá$ꩈ$á ੈ $ ੈ 4$$ á$ $3éÄ ˡˡLJ $ @خá ˡéō2$áé3ˡ ȡ ٟ˩˄á5 5#á  ˡ ǁ ޡߩÄ~٩á=٩5áǁ ߩˡoˡǐ aة5R ؟ˡé脡 8ᩉ  6á40Ǒ 7@! á$6 5  á 9ᩉ  ߸s 76 áTA' á  Ǜ ؟ˡũ5Ǐ $Aá[$ˡAˡǐ 3ة5$ ؟ˡé脡  Ǒ 3 ǀ$@ڟ۟˄9ᩉ ˫$ Í6Í੉ ޟˡ ޚݟá,++9⩉ ġ- +š ++ޟá6á$5á$ᩉ  ˡ  $gf/0k"6؟ˡ&5ȡ f Ǔ  ڟátٟ؟˄kݟˡ&ȡčǜ E  ȡ"ݚ ܟáۚ˫$á$ @5%A*57401)0"7/ 2-!*ǁ  ln 9੉ ڟˡکÍǐ  á$   6ٟˡ5 Ǔ éB$ܩá ܩá  ǃ  DŽ   2? 4 ܩááǁ ˡ( +ܩááǁ  ǃ 3ǃ  !Dž /á  ȡ á  $1é3Íˡ ȡ ܟ˩˄á+áܩ5 ǁ ǂ ܩˡ /02 42 433 ܩ5 GܩéÄ dž á婉 3 Ef 11ةˡ%ˡ(ەˡǁ ؚ- ޢޢޢޢݢܚݢ b41)áé3Íá !9婉 $2 ܟ˩˄/0éÄDܩéÄ1Ä  ܩ5dž /0éÄDܩéÄ1Ä  ܩ5dž éÄdž PܩéÄdž á㩉 ( 4Q Np :2 (`   $2; á+áá  dž (á  3'á  á !㩉 $3 ܟ˩˄/0éÄDܩéÄ1Ä  ܩ5 dž /ܩéÄdž 0éÄéÄ  dž i ߡ, j0b "$&(*,.02468:<>@BDFqPRTVXZ\^`X)3"$f3á $ˡˡ Lj 5 éȄ  áI$ 5lj ޡéȄ   ޡ䔜ߡlj ˫$á$˄( 8ˡ1 ( ߩ˄ˡǁ ٫٫٩5   w q  `ޡ*٣(٩ááǁ (&(ǒ gkgzZ"ǁ 3  .8瓡 #áTڤˡڤ؟ٓá 9 ٓǧ $ 9V r95%˫$ ˡ  $HJ R:٩ šˡǔ!8˩ˍdȡWɡǀ ȡ%ةá+ܩɡá ګ+٫ȡ +u '* š쥋 +  á++ ++++=**듡륉, )삫>= DBCD"AA  $2f  \ * vzv&"#%( ))**+,,Z--H../0(0:%F0r000V4n44b555n66b7789.9R9:;F;;; E-á   áD ˡI 4`mˡ, Ǩ" * š쥋 +  á++ ++++=**듡륉, )삫>= DBCD"AA  $2f  \ * vz 2 M˶򓩉˄E ëáV- áA-á   áD ˡI 4`mˡ, Ǩ" ȡإخȡ4zؾˡ zؾZؾ˩򓄡 Zؾˡ&   9  @IE ˡ š A $.z`Cˡ;   fġ4Zؾ˩򓄡 Zؾzؾˡ zؾġإخ 9     9  l:hˡW 2 2 á ááM5 ȡ&Z۾˥Z۾ MZ۾ ˡ Ä 5%:Í˫$.0((( أáˡ쩈 ˶**FUW bdTB(ةɡثˡE ٕ֥ٞt~š!kš @&: 5á ˡˡأ` ˡأáqš^2أ 623*٣!ˡ% vAp'$ܣá ܮ+8$:$9$;$6$=$<$7$>$?$@~:v~  "$&pk\eVQ8:<>@BDFHJLNPRTVXZ\^`bdfhjln$á$6 5ٕ >áǫ 9  ?áǬ 9  @#á]ݤˡݤޟˡ% áǥ  ǧ $á$ UC@ á$6 59  ٸظd=áA'$ Bخˡoác ɡWáڢڢڢ 8ڢڢ nj ˫ á$4  5 á#9ة ٩ $5ة ٩ l;5%˫$  á $ک 5  ٸظln <؟ˡ٣?٣é+٣ +++٣ ɸ2٣ ˄+٣ +++>٣ ++٣á+++٣ ?٣ á9٣ á+٣á٣ ٣ ˡ0+٣٣Ï٣ +++G٣ ٣ ++++٣ fACE'ˡġ),DǏ!*dQQȡ֥: šPP_   IצCompilation complete - á(QQDŽQצno errornjQ6 KQQDŽQKǎQצ errorǔ minutes.ת <܂d <<ġdġ d ɡ0   .  R  I ( ةIة$:# 0  0 0  00 00d0 0&^ɡ ġ ٕ,<<ɡ݂Ä seconds.ת  @=<  !2ˡ<H?@ ? ??RZ?S@z?Ǔ@?> :ǒ!>? :ǒ!> :ǒ!煮;, šˡǔ!7 á$ 1 , 9ݡ+, ác! š^!ˡá$!ǒ!?P?L?N? :?@ ? ??RZ?S@z?Ǔ@?> :ǒ!>? :ǒ!> :ǒ!cursor= 䩋?? ?X?Eš? ?)Äޓ`!4ˡ%1$7/> :ǒ!> :ǒ!>? :ursor= צ symcursor= ġ   Zצunitpart 2: ic=  endsym= צ endblk=  endblk_len= צ bsumcursor=  symǖ!3á$! ݓń^!š  Zunitpart 1: ic= צ endsym=  endblk= צ endblk_len=  bsumc ٢کڢڢڢڢ ڢ ڢ ڢ ڢ ڢڢڢڢڢ٢٢ ؚá $   ?á?צ %SYSTEM.INFO"ˡǔ!ݢ ! `!ݢ á$!! -  %,  ؞    ɡ.ݟˡ%!W$ $áCODE R$  6á5 ?ō ! - !åDATA ׯ $ 6ásૉɩ?ōÍá^!!b,, ݨǶ!Ǐ! =< =<$ˡ1ݟߓݥ e!ߓ8   ݫ$á$!áINTRINSI ȡ *++++)/ `Fj+٣ ɸ2٣ ˄+٣ +++>٣ ++٣á+++٣ ?٣ á9٣ á+٣á٣ Q ˡQQDŽQsDžQQQDŽQצ found.NjQ ˡk KQQצ!The last error was found on line !QK+Qצ.,Q:KQQSmallest available space = QK%Q words.,QCKQQK Q lines compiled in QǡQTB vˡ!nmˡ !, !? ȡ ++ ȡ ? h(h)hhhhhhh_h`hhh\h^][[ xȑ)H(H`86.*'$"!^h(h)hhhhhhh_h`hhheheL :h(h)hhhhhhh\h[[ xȑ)H(H`"@h(h)hhhhhhh\h[hh^hh]hh\h[[ xȑ)H(H`,)&" Nh(h)hhhhhhhhh_h`hh^]h\h[[ xaȑb)H(H`B@742.,+(! rh(h)hhhhhhhhh_h`hhheheLj @Lh(h)hhhhhhh^hhh]\[[ xȑ)H(H`0&# Rh(h)hhhhhhhhhhe]dhcha[t_u`hbhhh\[ x^ȑ)H(H`SROMIHGFEDB8652h(h)hhhhhȑ)H(H`QA10-*'%$lh(h)hhhhhhhhhhhhhh_]^\[[ xb`ȑca)H(H`A@=:7541.'$ h(h)hhhhhhhh]\[[ xȑ)H(H`%"hh]\[[ xȑ)H(H`%"Lh(h)hhhhhhhhhh_]^\[[ xȑ)H(H`-,)&#! ^ÍL č>h(h)hhhhhhh`hhhhh_]^\[[ xh\h^`]_ a[[ xȑ)H(H`8430-*'%$ lh(h)hhhhhhh fh*geh]hdhhbhchah`r^s_hh\[[ xȑ)H(H`]ZWVUSPNLHGFED;865h(h)hhhhhhYL) 5h(h)hhhhhhhh^_h]hh\h[[ xȑ)H(H`G0-+($"!`h(h)hhhhhhhhhh[\][ x^ȑ)H(H`+(%#"Zh(h)hhhhhhhhhhVb < 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXP šEצ:š  >#צ*צ:á >š{-NVWf-N@ȡQ-Pצ:-á:ײPN? XP ??زP>پ/ˡ צ/P?8??زP>? pp~*0< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXP šEצ:š  >#צ*צ:á >š{-NVWf-NتPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0ȡپ á* š*۾١:/˄ /P /á ȡ + ȡ + ȡ.+ 5>>+>+>+>+++++á ?ȡ* ǰɡ*ꩌá )?쩌?쩌P P>:ǒ!)󾩁  ,=[z8,!? ȡ ++ ȡ ? ȡ + ȡ + ȡ.+ 5>>+>+>+>+++++á ?ȡ* ǰɡ*ꩌá )[ xȑ)H(H`"@h(h)hhhhύ&hhhhh\h[[ xm]m^^m_j^jȑ)H(H`MA=;:2/.,) th(h)hhhhэNL7 h(h)hhhh΍7hhh _h*`^ah]hh\h[[ xȑ)H(H`A:7431.*(' hh(h)hhhhЍL h(h)hhhhύ1hhhhhhh\h[`[ x]_ȑ^`)H(H`M;7421.+$! th(h)hhhhэL_ h(h)hhhh΍5hhhle would be exceededPئPosition out of rangeתPצAccess not allowedPצ File is busyPצNot a SOS volumePצDuplicate volume errorPצNot a block devicePצSegment request deniedPצSegment table fullPצInvalid segment nndתPצResource not availablePצ I/O errorPئDevice is write-protectedתPצInvalid pathname syntaxPئPath not foundתPئVolume not foundתPئFile not foundתPئDirectory is fullתPצIncompatible file formatPצEnd of fi76.077.078.080. VV ǖVצ(082.087.088.225.226.227.228.251.252.253.ǾV ɡ(VVצ00VV.VGdɡ'VV0VV.VVVVצ.V šڹئDevice name not fouئ File is busyתPئ&Volume format neither SOS nor Apple ][תP}ئDuplicate volume errorתP_ئNot a block deviceתPE&8" ~P3 bF33P3T3PJ ( צ8016.037.039.043.064.068.069.070.073.074.0te-protect errorPئ(Too many files open for system to handleתPئDevice is not availableתPצPath not foundPצVolume not foundPצFile not foundPצDirectory is fullPئ Attempt to read past end of fileתPئAccess not allowedתP33.3333צ.3 šڹئIllegal pathnameתPئNo room on deviceתPצUnit is not on linePئ#No such file in specified directoryתPצDuplicate pathnamePצFile is already openPצWriئתPġّڞڿ0 áۡڞ-8Zš2ڡ  šńۑ D  צ907.08.09.10.11.12.16.19.36.68.69.70.73.76.78.80.82.87.88.P ɡ'330:.oolean; Function SOS_G_Seg_Info ( SegNumb : Integer; Var FiveInts ) : Boolean; Function SOS_G_Seg_Numb ( SegAddr : Integer; Var SegNumb, RetCode ) : Boolean; Function SOS_Rel_Seg ( SegNumb : Integer; Var RetCode ) : Boolean; {$ENDC} H` Dh(h)hhhh)H(H`Copyright 1981,1982,1983 Apple Computer, Inc.2347h*h+HH+H*H`&&&&v~.T4JPVz :@* : 8 R  x]L( )H(H`40-+*!Vh(h)hhhhhhhhh\h][D[ x^ȑ)H(H`,*'%$Th(h)hhhhhhh\h[E[ xȑ)H(H`"@h(h)hhhhhh  x)H(hh]hh\h[e^ȱ_A[ x^L8 )H(H`DA=:7310' lh(h)hhhhhhhhh]hh\h_^[B[ x^ȑ_)H(H`<93/,*)& jh(h)hhhhhhh\h[dC[ x(H`Rh(h)hhhhhhhhh\h[d[ xȑ⨪])H(H`0,*)Veh(h)hhhhhhhhh`hh^h_h\h][@[ xaȑ)H(H`:7531.,+& hh(h)hhhhh)hhhhh\h[`[ x)H(H`2h(h)hhhhhh[a[ x\ȑ)H(H`>h(h)hhhhhhii[\]b[ x)H(H`Lh(h)hhhhhhii[\]c[ x)H`hah^h_h]hh\h[[ xȑ)H(H`?97531.*(' fh(h)hhhhЍ L h(h)hhhhhhh\h[[ xȑ)H(H`"@h(h)hhhhhh[[ x\ȑ)H(H`>h(humberPצSegment not foundPئInsufficient heap spaceתPצ?No files were selected from directory or the directory is emptyPئ%Pathname does not specify a directoryתPZ0mP<&u_C+bVVצ SOS error VVP_f J š%۾/ˡ./Í/ @צQ   Ȅ2  ߿6̀ƀPƀӦ QƀӪ6%á'66̀ƀӧ/*P66ȡ/(ǐ()66ȡ/(ǐ(&/,Td+ئ׷^šá )'1Ƕ Ƕn,ƀPhP?PP"̀//+/+/T<'/ġ&//ؿ//((((()()()(*Z/(()nj(66ȡ Ǒ(Ǎ()ǎ(66ȡ Ǒ(Ǐ((()ǖF)))&#Ǘ3Hxp#ǘ6***"#ǙF)))&#ǚ3Hxp#/T "//֝/á//////؞!/ /ɡ/֭V%/š////*&تP++/š&#lj  #NJnjnjnjnjnjnjnj#NjnjnjnjǏnjnjnjnj#nj| #Ǎ #/ǎ |#Ǐ #ǐ #Ǒ#ǒ ? #Ǔ"U#ǔU"#Ǖ6***"#/̶ؿ$$࿶$$$$$$$$0#//֝/š."(ɡ//."/؞ /./Z///F///// dž*I#LJI*#Lj" /ɡ/á$/Н/ . /՝/ѝ/վˡ/'š'/ѝ/ݞ/՝/҂/՝//ԝ/ԝ/š/ˡ /$O!ؓbP.ˡ ۦתPܪP ܪPڦתP,.0XT۪P /1..u11˄_0/..F//.. +/ѝ/#/ҝ/$/ӝ///h/ġ //Э׷ צč*צ=/Í  .3/|/!3ábbPb.QbPTL55ɡ _צ_b5b_צ.CODEbbPb.QbP55/5 445ˡ(b54bPb544 445á 6תP!66b54bP6/6צPצ^ˍצ/Äbb6PbǠbP2$á+/ábbPbǠbP$áO/צ:ÄbbPbצ/QbPbbPbǠbPܦƁSƀӦ..ƀӪP6POQS ߪP צ*%Í/$Ä bbPbǠbP$bbPbǠbPġ^á6۪P655á 6צP@5/65//6ɡ ƀצƀ6ƀƀӪ/Y/ⓄNƀ.TEXTׯ 6ƀ.CODE׷'6̀ƀ6ƀӦ.CODEƀӪM/Dƀ.TEXT׷ƀצ.CODE'6̀ƀ6ƀӦ.TEXTƀӪ6Lš?̀ƀ6ƁS;ƀӦ/ƀ6ƀӪK66̀ƀӦ.ƀ6ƀӪ666 6/.66/š6š6ƀƀצEXEC//  6.6/˄6#˄Ⓞ&6̀ƀӧ/Pƀ6ƀӪ66߾.áǀš ƀ š\66 ˡ,6̀ƀ PƀӦ/Qƀ6ƀӪ6̀ƀ PƀӦ QƀӪ6̀ƀ Pƀצ QƀӪá@66̀ƀӧ/Pƀ6ƀӪ6 6/á6š}6 ˡ(6/6̀ƀ6ƀӪ:66*áV6á%6̀ƀӦ#4:ƀ6ƀӪ"6̀ƀצ#4ƀ6ƀӪ6#áƀ  6 Ą.0ܝ/ڝ/ŕȡ ڂ 6 ܳ ƀǀǓ ƀʀ//ƀƀ̀ƀצh׷?׷׷̀ƀ̀hʀšh̀?ʀš?̀ʀš̀ʀLšL̀Lʀ/ܝ/ʀ/ʀ/ޝ/ʀ/ʀá>/ܝ/ޝ/۝/*&//ƀ̀(ʀʀ+̀ƀƀƀ/ʀƀR ƀǝ//Ŀ/̀ƀʀʀ/ſƀʀʀ/̀// /ƀƀ,h,?,,ʀá//((&.ʀƀʀʀ ƀʀʀc/ƀƀ//ƀ6543!53árl  áۧ/P/00P0.Q0Pܑ/ ܑá#۪Pۧ/P//ܾ/á)á צP0݂ݑ0P݂ڦתP٦תPئתPá.1ܾ/Ɓצ.QƁP8799š9=á9=/á/*ۦ*SYSTEM.LIBRARY.תP/Sׯ/|ׯ#mתZ?צZ65m?;צ65ۧ/S/|;;. 8799š9.á99Ɓ9Ɓˡ1ƀ́ƁƀZƁצ.[Ɓ צ.Press RETURN to continue, ESCAPE to terminate.ם/Ǘ/>>/á. ́ƁPƁƀaƁP9/b9/ˡZ9ɡ ?תZ?Ɓ9ƁZ?.TEXT׷?.CODE׷́ƁP=w=/=/Í/Í^́ƁPƁ/QƁṔƁPƁצ=QƁP87/==/ˡƀ۪Z/́ƁPƁ.QƁPm/SZ?/|Zצ65m?. /2ƀ21 ƀɪP1787 צ=š<./á"<́ƁPƁ=QƁP<ړ876Ɓ/< @(( ުPġ ׷ 8ƹǛu'á תPZPˡ/ؓ%ء # #ǯǿ0&%//&%#'Ą%Line is too long!צצ'CǛ,!  /'##G'>'-.Ǜ, á!,ġ  ! /T'B#! ˡ/!  /! / /á'M#ɡ7#####Ǜ/ /S#š%Line is too long!צצ'#š ## ###ǕX'###ȡ.-.' ƀƀǛ ̀ʀȡƀ/ƀ$!  š %&%/ád#šQ##/':##Ǜ#// /LjZ#šG-##.',Ǜ/,͡PšP!(ؓ%ء*#ɡ#! ! Ä/¡/ٝ/5  /ٝ/ǚ á //(i(ƀǛǀƀ ƀƀác..I (or E or CTRL-E) for . . mode%.AAצ3D (or CTRL-Y) deletes from cursor to end of line, 3AצCTRL-X deletes whole lineLAצ'ESCAPE restores original line (if any)/n0/)/ZZ'ɾ؏0.'#ġ! /!-.,! Z/'replaceת insertת//צ and move cursor, צ5 (or CTRL-D) and (or CTRL-F) delete charactersLƀ̀/¡؝// //ƀQ* t/</ܝ/ޝ/۝/*&//(&%/J#؂""š#ؕ,","8-"š,#؂"á00P0צ/Q0P.1ܑ/ ܑˡ0݂ݑ0Pš00Pצ=š00Pɡ0ݕ0P^1š.R03š!R:4W۪P.ڪP٪P.̀̀ƀ/(WẀƀWPƀצ.QƀªPWʀˡ .2>=ƀ ƀ̀ƀʀƀƀʀƀá!ƀ̀ƀƀPƀצ/QƀªP34(@ɡ .2 AsciifileDatafile Binary Fontfile תP//ȡ ڏ/ڤ HFotofile BasicprogBasicdataWPfile Sosfile Type = 13Type = 14DirectoryתP//ȡ ڏ/ڂ 6RPS Data RPS IndexAFDiscardAFModel AFReptFMTScreenLibתPš[/"//////Q/P/پ/ˡ////P//Q/P/*ΪP/*>/*š[/*"/*/////*Q/P/*پ/ˡ/*///*P//Q/P?HUnknown Badfile Codefile Textfilê?Ƃ?PƂ?/QƂ?P/ƀ!nFq , //// / / / / /////ö,/ / /.CONSOLEתP/#/??/P/>/ٹ( V "$rrǕá;[ and move up and downצ selects, unselects gives directory infoƀá~˄ʂ> Ʉ+ߞ߂ ̀̂?Ƃ?Ƃ?צ is no longerƂ?#ƀצ selected.#ƀƀ š1ƀ̂?Ƃ?ƀ#Ƃ? $Ƃ?ƀGƂ?#ƀ #ƀfrom the list.ƀƀ////*&/Ɓ%/ƀ޹á//( 79á//( 7:á&ˡ ˄  á0 /( ̂?ʂ?ġ /( 7)7ƀ̂?Ƃ?צSelect max of Ƃ?ƀƂ?צ filesƂ?#ƀ̂?Ƃ?צOnly Ƃ?ƀ Ƃ? files may be selected Ƃ?#ƀá!ƀ̂?Ƃ?ƀ#Ƃ?צ $Ƃ?#/ 57&/ /¡ // á/ޝ/Ý////*&/Ɓ(+(//)'()NJ( ̂?ʂ?ȡ Ǒ( Nj()()(/(ʂ>8/ȡáCƀʦSelect only one fileת#ƀOnly one file may be selectedת#ƀ//E /; Bk1/9ŝ/ɍ9//ŝ/ɍ//ɡ///š //Bk 2ȡ!á ᑚ. /š/ ƀZ/ƀ"!. / ƀ// ?/n  Un ɡType = תProDos=תn ooo(on #ڕڞn%ת  < ˡǘǙǚ/ / 6ǑǑǑ/ / 6|5 ( Ǒ(ǒ( ( (ء/(٢'ء/(/(>7ڟɄ7/(ښڟˡ7ښ/(5@8á/(7.9ƀʀ̀ʀ¢ƀʀ¢ ƀƀʀ¢ ƀʀ¢ƀʀ¢ƀ!ʀ¢ʀŸʀ¢=ʀ¢>á ʀ>=ʀʀ=  2()(((( 6ˡǘǙǚ/ /6ǑǑǑ/ /6//ȡ ڏ/ڂ '...JanFebMarAprMayJunJulAugSepOctNovDecתP //ȡڏ////////Ч/S/P/|תP9//// s0 ;8L 8 /5h(h)hhhhhhhh;;h;hh;h;; ;ȑ)H(H`G0-+($"!`/h(h)hhhhhhhhhh;;;; ;;ȑ)H(H`+(%#"Z/h(h)hhhhhhhhhhh;h;;;; ;ed only by the " IMPLEMENTATION section of the used " unit. " " You must recompile all the units with " this compiler before you omit them " from the host's USES declaration. " This is because additional information " is generated in the code files (nested USES need not be listed). " This is a special enhancement to this " compiler. With F, you need *not* " specify inner unit names in a USES " declaration if the ones omitted are " only internal to the used unit (i.e., " the nested units are us error. Instead the error will be " reported and compilation will continue. " " If running from an "exec" file, errors " will stop the processing of further " exec commands unless you are also " generating an error log file. F Special USES processinging IFC " skipping. By using the C option, " includes will also be skipped. E stop and prompt for continuation if there is an error. " E is assumed if listing to the console. " If not listing to the console, " compilation will not stop if there is " an Pascal Options (Preliminary) ------------------------------ General Options --------------- C Do not process includes skipped by $IFC's. {$ifc-} " The default is to process includes " which are encountered durINFOs .(ZERRHOLDEDueFT^FONTHOLDzalCONSOLE 8쁾CONSDNUM΁CONSBUFRCONSLEN ^RdH65H: Lx,-F--05$$`,F.= DOWN1 XDOWN2 lDOWN3 FTEXT PhFASCII FCHAR FCODE CONSBUFF; CONSWTGD/h*h+hh/0h-h,+H*H`20'$"J/hhhhhh    eȄ HH`T/T>*.!f###'t'\(|((()4)++),P==@''''l/hZh[hhhhhuhno^alȑk)t\n]ok[HZH`pb.CONSOLExmkmk፴vwȑ୳୴`~}lec`^[X86.*'$"!^/h(h)hhhhhhh;h;; ;ȑ)H(H`"@/h(h)hhhhhh  ;)H(H` D/Copyright Apple Computer Inc. 1981'(),h*h+HH+H*H`;;ȑ)H(H`SROMIHGFEDB8652/h(h)hhhhhhhhh;h;hh;;h;h;; ;;ȑ;)H(H`B@742.,+(! r/h(h)hhhhhhh;h;hhh;h;;;; ;ȑ)H(H`;; ;ȑ)H(H`8430-*'%$ l/č>h(h)hhhhhhh;hhhhh;;;;;; ;ȑ)H(H`QA10-*'%$l/h(h)hhhhhhhhhh;;;h;h;;;;;;h;hhh;; which " is propagated back through the units " to the host program. Without this " information, the compiler cannot " determine what nested units are needed " by the host when you do not explicitly " specify them in the USES list. " " The advantage of using this option is " that your compilation time will " decrease since the compiler doesn't " need to compile all the INTERFACE " sections of the nested units. Since " it doesn't compile them, you also " don't "clutter" up the compiler's " syml end of compilation. " This option is a convenient way to tell " you that compilation is done if you are " not looking at the console screen. . Flush type-ahead console buffer after all parameters are entered. " This option is useful if you decide to" subscript checking (i.e., $rangecheck+). V Turn off string parameter type checking. {$varstring-} " This determines the initial setting of " $varstring. " " The default is to do string parameter " type checking (i.e., $varstring+). * Ring bell to signaith the screen off. " " The $q+ directive has the same effect. " $q- may be used to turn on the screen. R Turn off array subscript range checking. {$rangecheck-} " This determines the initial setting of " $rangecheck. " " The default is to do array and $iocheck-} " This determines the initial setting of " $iocheck. " " The default is to do I/O error checking " (i.e., $iocheck+). Q Quite mode. Screen will be turned off during compilation. {$quiet+} " Compilation speed is improved " approximately 25% wheadings. There is also " space for a title and subtitle. These " titles are defaulted to show the " current compiler version and input " pathname, but they may be changed by " using the $title and $subtitle " directives. I Turn off I/O checking. {he page, you " should set the line-per-page value " lower than the maximum possible, since " the compiler does a form-feed to skip " to the top of the page. " " The page header lines show the page " number, date and time of compilation, " and column lines-per-page " value must include the 4 lines used " for headers displayed at the top of " the page. Thus a value of 61 means " there are 57 lines on a page for " program text. " " Caution, if your printer automatically " ejects at the bottom of t0 to 132. The default is 105. This " is based on the assumption of " 80-column text with 25 additional " columns for compilation listing " information. " " The number of lines per page may be " any value from 12 to 999. The " default is 61. The aning if you " intend to generate a listing. You will " be prompted later as to whether you " want a listing. If you do, you will " also be prompted for the page width " and the number of lines per page. " " The page width may be any value from " 7TO statement. {$goto+} " This determines the initial setting of " $goto. " " The default is to not recognize GOTO " as a valid statement keyword (i.e., " $goto-). H Suppress top-of-page headers if a listing is to be generated. " The H option only has metialization code. If they " don't then no call is generated to the " null initializations. This fact, when " used in conjunction with the noload and " resident directives may speed up the " start-up time for larger programs. G Allow the use of the GOing if you use this option. That's " why it's an option in the first place! " " Whether you use the option or not, if " you recompile all your units with this " compiler, information is propagated back " to the host as to whether the units " have ini cross- " check that you specified a nested unit " in the USES list is disabled when you " use this option. So it's up to you to " get it right. There are implications " here which can lead to very subtle " bugs. You better know what you are " dobol table with unnecessary symbols, " and this means there is more symbol " table space for the host. " " A disadvantage of this option is that " there is more burden on you to know " when you can and cannot omit a unit " name from the USES list. The " use all the input parameter defaults. " A default is specified by just " pressing the RETURN key. Thus you can " use the "." option, enter the input " file's pathname, and then hit a bunch " of RETURN's without worrying about " whether you hit too many. Special Tracing Options ----------------------- P You intend to display p-codes with $PC+ directives. " The P option does not cause the display " of p-codes. You must use $PC+ to turn " on the display. $PC- turns it off. L Display sym 22: 'Interface' expected 23: '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 (badype 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 field-list 20: ',' expected 21: '.' expected"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 tO^¦whether or not it is using the 1.2 " interpreter. ers. It doesn't matter which " interpreter you use if you don't use " these features. " " Note, this option is only informational. " The "!" is displayed by the compiler " if the 1.2 interpreter is present since " the compiler dynamically determines " new P-codes. " You must use the Pascal 1.2 interpreter " if you use the new "|" and "&" " operators which allow for minimum " evaluation of boolean expressions. You " must also use the Pascal 1.2 " interpreter if you use formal procedure " paramete new reserved words CYCLE and LEAVE. " CYCLE and LEAVE are new reserved words " in the compiler. This option is " provided as a convenience if you are " already using these words for other " purposes. ! Using Pascal 1.2 interpreter which supports thebol table. (This is the same as the $LV+ directive) " This option can be used to display the " Compiler's variable and type information. Special Options for Some of the Compiler Extensions --------------------------------------------------- - Delet 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 105: Sign not allowed 106: Number expected 107: Incompatible subrange types 108: File not allowed here 109: 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 subtring too long  278: Error in numeric character in literal string  301: 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 segmen7: Unterminated conditional compilation option 271: Comment must appear at top of program 272: Invalid symbol in Compiler option 273: No such unit or segment 274: Invalid segment number 275: Include must be last option 276: Invalid code version type 277: S260: New compile-time variable must be declared at global level 261: Undefined compile-time variable 262: Error in compile-time expression 263: Conditional compilation options nested too deeply 264: Unmatched ELSEC 265: Unmatched ENDC 266: Error in SETC 26digits in non-decimal number 206: Illegal digit in non-decimal number  250: Too many scopes of nested identifiers 251: Too many nested procedures or functions 253: Procedure too long 254: Procedure too complex e in interface section 195: Unit not importable (interface text not available) 201: Error in number--digit expected 202: String constant must not exceed source line 203: Integer constant exceeds range 204: Illegal base for non-decimal number 205: Too many 6: 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 library 191: No private files in unit 192: 'Uses' must b175: 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 185: Segment declaration not allowed in unit 18agfields 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 168: Undefined label 169: Base type of set too large gnment 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 such variant in this record 159: Real or string tl 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 scalar 149: Index type must not be integer 150: Assi137: 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 pointer 142: Illegal actual parameter 143: Illegaxpression 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 136: Set element type must be scalar or subrange ot be re-specified 123: Missing result type in function declaration 125: Error in type of standard procedure parameter 126: Number of parameters does not agree with declaration 128: Illegal operation for this file type 129: Type conflict of operands 130: Erange 117: Unsatisfied forward 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 cannt dictionary 355: Data segment empty 356: Eof encountered  357: Pcodes directive must appear at top of program  358: $PC- done due to internal table overflow  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 file SYSTEM.INFO 405: Error while reading library 406: Include file not legal in interface nor while inCNAMES.LIB; PNAMES.OPTIONS; COMPARE.CODE COMPARE.LIB; COMPARE.OPTIONS has many copies of the Pascal Manuals. Call the office for your free set. On Side One: SYSTEM.COMPILER; PASCAL.OPTIONS; PASCAL.ERRORS On Side Two: TOOLS.LIB; XREF.CODE; XREF.LIB; XREF.OPTIONS; PASMAT.CODE; PASMAT.LIB PASMAT.OPTIONS; PROCNAMES.CODE; PRO WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Pascal 2.0 Compiler/Toolkit #1 DISK ID#: 3PCL-02 BOOTABLE?: Nonbootable DESCRIPTION: Pascal 2.0 Compiler and first Toolkit disk. Requires 3PCL-01 and knowledge of Pascal to operate. The /// SIGcluding 408: General Compiler error 500: General Assembler error