`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JH^ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYUS22K SYSTEM.MISCINFOE SYSTEM.SYNTAXvg EDRECOM.TEXTvg9 SYSTEM.APPLEvg9b SYSTEM.PASCALvgib~ SYSTEM.FILERvg)~SYSTEM.STARTUPg[ FINESSE.CODEvg룜SYSTEM.LIBRARYg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thiles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index type must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter solution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fnot allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or subrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130: Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison can't be re-specified  123: Missing result type in function declaration  124: F-format for reals only  125: Error in type of standard procedure parameter  126: Number of parameters does not agree with declaration ype identifier in variable declaration  119: Re-specified params not OK for a forward declared procedure 120: Function result type must be scalar, subrange or pointer  121: File value parameter not allowed  122: A forward declared function's result typebe real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference t 105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must not be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not 'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declared twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': =' expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:!11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected !16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*'"1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symbol (possibly missing ';' on line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type is record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  170: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proce%FR#5:MODEL.CODE YK#5 YNYG#5:MODEL YQEF/*****/ %%%% N^Gading include file  404: Error in writing list file, not enough room 405: Call not allowed in separate procedure  406: Include file not legal  407: Too many libraries  408: (*$S+*) needed to compile units  500: General assembler error insic unit  354: Too many segments for Seg Dictionary  398: Implementation restriction  399: Implementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not enough room  403: Error in re 302: Index expression out of bounds  303: Value to be assinged is out of bounds  304: Element expression out of range  350: No data segment allocated  351: Segment used twice  352: No code segment allocated  353: Non-intrinsic unit called from intrrocedure too long  254: Too many long constants in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression too complicated  300: Division by zero  301: No case provided for this value ant must not exceed source line  203: Integer constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedures or functions  252: Too many forward references of procedure entries  253: Pin library  191: No private files  192: 'Uses' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Unit not importable  201: Error in real number - digit expected  202: String const 185: Segment declaration not allowed in unit  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not dure expected  175: Actual parameter max string length < formal Max length  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declaration not allowed in interface section HH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ e ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INLi򅁩Fvfwfxe~e}e|ffffإ L z z`t )z )u{ HHHHLM 뢀 WLMҢt )u HHHHLMҥtzu{v|w}x~y 뢀 WLMҺ^LMҺtv&t&v ILMhhhhꢀ WLMҢt )z )uz WLMҥ{tItt WLMҥtEzz ꢀ WLM rI 9ꢀ WLMҢt )z )uLѥ{ HHHHLMҥtEz{8u i  iLх 8y~x}w|v |}~8&&&&Fvfwfxfy z颀 WLMҥtEzu8u{8euPhh|f}f~f` yexe~we}ve| z z` 8y~x}w|v ` z`u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t )z )uz WLMҥ{t WLMҥtEzt ꢀ WLM rꅀ 9L;8\潪]L!\Z][JHjHL;hhhhh*68jh*vlhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvfwfxfyyyFwv xvиtȱutХLSҠ UL;ҥXiXYLhthuhvhwtvȑtvL;ҥhe^hie_ije^jke_k_ik ʱhjL{^LhjL;h^h_ hhhhhhhhL;hjhkhejjhekkhhhihehhheiiXЀ_ʱhjkiL^Lhjhe||he}}hhhhh^eh_e^Ii^Ii_|ň.LM祊'|}0 |}L<|8|}L<|8優}HHL;hxhhhTL֥T8tUut8tXȥutYxT VLSҥRSLȱvȱwvLѥv8vwv8v` ^\_]`hh L;hh L;ҠX rLq ?L;hxhyhthuhvhw07ȱxv0vȱv,vwLR vȱvvwLRHHLHHLHHvtȥwtL;hhh^h_hhhhL;hjhkhejjhekk_ ʑjkL^LjL;hhh|h}\] z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLoPQ |l|8|}8||ȥ}||8|}| iiL奌 㥎 㥊 㭭хх 㥐8ƑzLo` 8et|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*š  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡU  Íáɡ 럚肚X  šš  ġƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETBBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJ"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36%ꢫ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 023fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡  5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öOʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث 7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.ת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU 6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3SȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá :(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ "  ڪ٪ت&:&Pɡ(š --> 4ثضÍצ$*á-: : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪƁK""áN׷9& צ ?  ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  J ٪ # ת á 1 0 ء,ˡ   ߓ`&צPut " ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    צ ? (Y/N) - -F&צ ? expected1(& Ş"˶ I/O error # 4!צ Filer error # ء\&),áY 6(saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צFile/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(Gצצkת{צcתת(WצSתԦת(KצOת  n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout error4Copyright (C) 1979, Regents University of Californial5 FILEHAND š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۡ?::á ;&Pġ - عEXå[ׯGC81(o* MJLN0A$6Uۡ &Pɡ צ, áצ áצ fܪ(G[!nء CGGá+á &"ˡ~[צ[ ˡ  .  sآWצ:آ(Yׯ( Ɓ-צMakeǐh"))** **"&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5/0 0 òCń /C"ݢݢ///://tLצTransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransfer %š " ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0צ Ɓ3"ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'Insert destination disk;GK,,G,:, ׯ>צRemoveǀ RemoveE+Gޤ removed%á % ń,&Update directory ? ,(*צChange*[")ǐ ),, d,,[,["𥀈{á򥀿Dá" G"+!+~G?KÄ?G;KׯɄS{c\ڥs[KG2G:[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A=gPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK ׷Ȅff@ Զ nުݪ"צPWkKGš?=ɍ :g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 char. max >- Illegal formatT<=ڲ= ݪצc&.צ what fileצ what vol ?  , gg#š=jgjPgۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file name < scan string #צ vol name  M8!ۡ1á    - k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K&not processed á á(3!:W~(gڲ= ggڤ ''k'ȡKk'k-'' ܡšڡK N Y˄ &"&& & ܡ&'&צc& آצ ? ) ,áYø۪     0ު(áܲ~ %&ܥKO &&ȡu 5 4454=5  d66.6.6 65ݪ   p "٪ؓצ *SYSTEM.WRK.,C:[., #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀! 饀:˥׷!צ:DGצ : correct ? G CK "צ: zeroed p0šצFile(s) endangered:Mȡl\:צPrefix is - ;: / צ Zero dir ofצH צDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ? ١ ƃƃ"ƃ ,  N, Vols on-line: ȡ &G ȡR~צ; צ #  :צRoot vol is - ?ƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest"/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃng ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(צ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- ʅ,ÍP$&,􍓡~%K:, %,,,|-ٕڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Dir listia ȡ$GCػ*c+C ػ?צ:@Ä Cצ The date is C -C-C 6 ),%ö1>--<00..99>Cˡ_צ Today is C -C-C  New date ?  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾAצ.CODEצCode (١%צNo  file loaded '- &*- ȡ%ܾz ܾ0ŶȄ: \+%Date set: <1..3á@ .  ڲ צ& * (&Getצǐ%G.[.&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ&(צ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemove  ء&צWorkfile cleared%Tf & ݪܪ  : .  ǀצ not named2 Workfile is :.񄓡 (not saved) No workfilev$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ء.[G&TEXT&  "hKצ*..CODEOld code removed, Text file saved  & 0צCODE  "צCode file saved62!o.צؤ áצ Directoryڢڢ  v 1ˡZ ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ92צBlock  צ is badۂġ צ bad blocks1 3צEצFINESSE *>.CODEM.WRK.CODE[*]]SKԍ֍br -,r -b^br ROB`b6 6 ^``Pb6 r -B2START 0 & L (*&brB\ "%>'&t##))h'+*,"--.. //F0`0z0004P5n70L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~%"!צPrefix titles byl;G& Prefix is ;:`$\ X/T3P0L4H5D)@:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXTiler: W, B, E, K, M, P, V, X, Z [1.1]7ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤVWarning units   &  צ have the same name,,'&R87תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [1.1]7+צ&Filer: G, S, N, L, R, C, T, D, Q [1.1]7?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [1.1]7+&F'  š 6  צback  ġ ɡ6 G : crunched#צPlease re-boot{ X5تPFP') x " " ġ  6צCrunch@צFrom end of disk, blockצStarting at block # 2 % forward ת  ȡoTTT TWT ɡTTWT#VV צBad blocks markedH`]t4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š Vá41Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂeSVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šTVTVVUVxamine blocks onצH&Block-range ? S  SRR  RRˡR ġ RSSRō4%SVR̂dVʂdȡ V2VVš#1 Fix them ? Ǡ  T UROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISKROBIN:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISKZ6 L6FINMAIN NEXTSTONAMREP CREATE DATA SETPARM LMODEL MENU &W    צ#5:REPT צ CURRENT REPORT TITLESȡA    E   ܢ2LINE  צ SHOWS ROW  צ : ɡH2ȝȄ-ܢ22ŝÁڝڝŝōRgi f FIRST THE ROWS ACCEPTS EXISTING CHOICEצ<-> ACCEPTS REMAINING CHOICESȡצCHOICܢܢg6צ1ST 1צ2ND צ3RD  =-CHOICE:ܢg ܢgˡŝÄ$ܢͶCá!ܢܢܢܢצPRINT צNO ROW NAMES : C(HANGE) OR : ͝Cá!ܢܢ͡á=ܢkܢkܢkܢkšܢצPRINT צNO  ROW NUMBERS : C(HANGE) OR : kۡצCOL  á3צSHOWS MODEL COL  LSHOWS TOTAL OF COLS: -  ING ENTRY FOR ONE COLצ<-> ACCEPTS REMAINING ENTRIES **Pצ HEADER NOW::*Tn ܢkܢ WIDTH LEFT: šXNOW THE COLUMNSצ(AT EACH COL ENTER MODEL COL OR SUM RANGEצ( ACCEPTS EXISTؕFF %GGצ G"G%%GGFšFF5ABCDEFGHIJKLMNOPQRSTUVWXYZת55GFG%GG G5"GV%۪צHEADER:%:%!EQ< ;%P+M %GG G"G%%GGF šF F%צ$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECGFG%GGצ G% GFšFFF %GGQTR G"GFšFؕFF %GGצ G"G%%GGFšFF5ABCDEFGHIJKLMNOPQRSTUVWXYZת55GFG%GG G5"GV%۪צHEADER:%:%!EQ< ;%PF תڹF %GG G"G%%GGF šF F%צ$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECGFG%GGצ G% GFšFFF %GGQTR G"GFšFBBB B B B B B*REPORT TO EDIT:  ġ  OPTIONS: D DELETE C COPY E EDIT8͝Dá צNULL(CáJREPORT TO COPY:     צTITLE:צNEW TITLE OR :(  צ ENTER OR AMEND DATA FILEnnצ#5:NAME#5:DATA  צ ROW (MAX  צ): š\"ˡ*,C,D,E,F,G,H,צ! O,P,Q,R,S,T,U,V,W,X,Y,Z:REAL;צ(*$Q-*)צ(*$R FINFUNCTN*)(*$R TRANSCEND*)YYȡ צ$(********* START OF MODEL *********) צ$(********* END OF MODEL *********)YYȡ BEGIN(*$N+*) NEW(MATRIXPOINTER); RUN;צEND.צ EXEC/EDRECOM} `  L FILE (Y/N) צ(*$I #5:MINCL.TEXT*)SEGMENT PROCEDURE MODEL;צVAR I,J,K,L,M,N:INTEGER; A,B,C,D,E,F,G,H,צ! O,P,Q,R,S,T,U,V,W,X,Y,Z:REAL;צ(*$Q-*)צ(*$R FINFUNCTN*)(*$R TRANSCEND*)YYȡ צ$(********* START OF MODEL *********) צ$(********* END OF MODEL *********)YYȡ TEXTP"áJצ EDIT/RECOMPILE OLD MODEL (Y/N):  EXEC/EDRECOMצCREATE NEW MODEL FILE (Y/N) צ(*$I #5:MINCL.TEXT*)SEGMENT PROCEDURE MODEL;צVAR I,J,K,L,M,N:INTEGER; A,BEND,CHAINSTUFF,FINCOMIO,׮ FINFILEC,RUNMENU,RUNGRAPH,׮ RUNDATA,RUNSENCE,RUNCHAN,׮צ FINPRINT,FINRUN,FINFUNCTN;2צRELINK NAMES (Y/N): צ #5:MODEL.;׮צEND;d"ˡ)ERROR "  Jnnצ#5:NAME"ˡ%צ BAD NAME FILE  #5:MINCL.TEXTתP(*$Q+*)׮(*$S+*)׮PROGRAM FINMOD;׮#USES TRANSCצ BEGINצ GOTOXY(29,14); WRITE(RUNCOL:3);׮צ GOTOXY(50,14);A FINECOL.START:=ORD(MATRIXPOINTER)+4*ROWSINUSE*(RUNCOL-1)+4;׮ FINESSE:=FINECOL.COLUMN;׮צ MODEL(RUNCOL); END;׮צ FIN; END IF RUNSTATUS<>SENSITIVE THEN BEGIN׮ WRITELN;׮צ WRITELN;$ WRITELN('PERIOD(S) TO RUN :');׮צ* GETTWO(FIRST,LAST,1,COLSINUSE,TRUE); END;׮צ COLSRUN:=LAST; LOAD;׮ FOR RUNCOL:=FIRST TO LAST DO׮1SEGMENT PROCEDURE MODEL(PERIOD:COLINDEX);FORWARD;׮SEGMENT PROCEDURE RUN;׮צBEGINצ GETFILES;צ WHILE TRUE DOצ BEGINצ IF RUNSTATUS=SEARCHING THENצ LAST:=COLSTORUN ELSE LAST:=COLSINUSE;׮צ FIRST:=1;צ UVVUšצ:REAL);צEND;$ LOCATOR=RECORD CASE INTEGER OF׮צ 1:(COLUMN:^COL); 2:(START:INTEGER);׮צ END;FCTצVAR FINECOL:LOCATOR; FINESSE:^COL;׮ TF,TL,FIRST,LAST:INTEGER;RD CASE INTEGER OFצ1:(ROW:ARRAY[1..P צ ] OF REAL);צ2:(UVVȡUȡnUnn Pá3UP צRQPVɡUš,, ׮U"ERROR á/צINSUFFICIENT ROOM ON DISK  TO CONTINUE تP"ˡR"تP"ˡRצTYPE COL=RECOɡ /k  R  ġ  OPTIONS: D DELETE C COPY E EDIT8͝DצBAD DISK WRITE áR D NFUNCTN*)(*$R TRANSCEND*)YYȡ צ$(********* START OF MODEL *********) צ$(********* END OF MODEL *********)YYȡ عצ MODEL NAME::צ ROWS IN USE: á  áLjUUšUצCOLUMNS IN USE (MAX U צ): צ ENTER ONE LETTER:.  OFצ   ROWS  צ COLS FILE UTILITY OPTIONS:צ P PARAMETER CHANGE N NAMES FILE EDIT/LISTצ D DATA FILE EDIT R REPORT FILE EDITצ M MODEL FILE EDIT/LIST/COMPILE G GO - RUN MODELצ A APPLE SYSTEM  MODEL DISK: OFצ   ROWS  צ COLS FILE UTILITY OPTIONS:צ P PARAMETER CHANGEDŽ̂š9ƂƂ(**ׯ"ʂ̂ʂʂiá VD á DŽDDDDš̂D ˡ̂ʂEƁrss 3YEƁqƁrƂ̂PRINTER:"ˡHצPRINTER NOT AVAILABLED̂DʂȡDD  #5:MODEL.TEXT"ˡHMODEL FILE NOT STOREDD̂DʂȡDD  D WWAXXWXnn#5:NAMEYYȡ.nnDûn33צ#5:PARM33YYPY)Y*Y1Y3Y,Y-Y+Y.Y/Y0Y5PY2ZZȡ.Y^33MG F T"CHANGE MODEL/REPORT/ACCEPT(M/R/A): WWAXXWXnn#5:NAMEYYȡ.nnDûn33צ#5:PARM33YYPY)Y*Y1Y3Y7# 7: NEGATIVE VALUES WITH MINUS9# 8: PRINTER REQUIRES LINEFEEDS6צ" 8: PRINTER HAS AUTO-LINEFEEDT"CHANGE MODEL/REPORT/ACCEPT(M/R/A):́  4: PERIOD HEADER :  5: PERIOD CYCLE START :  צ 6: CYCLE PERIOD :  :$ 7: NEGATIVE VALUES IN BRACKETSROWS AND   COLUMNSR: REPORT OPTIONS:  1: COLUMN WIDTH :  2: START COLUMN :  3: END COLUMN :"ˡO DŽ cI P3 MODEL PARAMETERSצ M: MODEL :   צ /P/L/E) : 2START PERIOD :' [צCYCLE PERIOD :c .#X(U*!MR  633צ#5:PARMU צREPORT OPTION (1-8) : COLUMN WIDTH (5-9):   LEFT MARGIN: צ RIGHT MARGIN: COLUMN HEADING (I/M/Q N NAMES FILE EDIT/LISTצ D DATA FILE EDIT R REPORT FILE EDITצ M MODEL FILE EDIT/LIST/COMPILE G GO - RUN MODELצ A APPLE SYSTEM ءǧ?Ǩ?8ǟ?ǀġ<ٮخȡ!(LY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  * عteVG8  )  T uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E M.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefil $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IG BBBBBBBBBBBBBB7COPYRIGHT ROBIN HILLS (SYSTEMS) LTD ALL RIGHTS RESERVED  \ *v #,t 25, <0A\MSLONGINTIPASCALIOCHAINSTUTRANSCENFINCOMIOFINCOMIOFINFILECFINNAMECFINPRINTRUNMENU RUNDATA RUNGRAPHRUNSENCERUNCHAN FINFUNCTFINRUN  U"+14;@JR LOADING FINESSE MODEL CODE #5:MODEL.CODEE%NO MODEL CODE EXISTS FOR MORE;,AR$ :"3 n @5f.?E\qX^DIST (E/L) Lá  צEDIT OR LIST (E/L): L  #5:MODEL.CODE"áN LOADING FINESSE MODEL CODE #5:MODEL.CODEE%NO MODEL CODE EXISTS FOR MORE;,AR$ :"3  `Ͷ͹ EDIT OR LIST (E/L) Lá  צEDIT OR LIST (E/L): L  #5:MODEL.CODE"áN  n#5:NAME"˫0#5:DATA0"ˍ0 #5:REPT0"ˍ00NAME/DATA/REPORT FILE MISSINGצUSE FORMAT OR COPY TO REPLACE TO CONTINUEͧ3_n2 72n<2>צ% THE FINESSE PROGRAM WILL ONLY WORK% IF A WIDGET IS IN THE GAMES SOCKET:5~}á)á65á[[á FƁ.@  צSWITCH ON PRINTERצPRINTER:  \ /ۃhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, Dɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tڂLj"ڂLj" nn#5:NAMEnn DATA FOR ROW   nnDÓC%WARNING THIS ROW HAS ROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צROBIN:FINFILEC.TEXT %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.  USES TRANSCEND,FINCOMIO; &  PROCEDURE CHANGEREC(VAR REC: DATAREC;HOWLONG:DURATION); PROCEDURE CHANRUN;    IMPLEMENTATION P L E br "!r "b^br ROB`b6 6 ^``Pb6 r "??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTT "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E BBBLNz)ext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codNO DATA ROW MARKȡWá  á ) צCHANGE OPTIONS:0 צI INDIVIDUAL VALUES0 צL LINEAR TREND0 C COMPOUND GROWTH0A ARITHMETIC INTERPOLATION0צG GEOMETRIC INTERPOLATION0צ E EQUAL PARTS0צR PRO-RATA WITH ANOTHER ROW0צ  USES TRANSCEND,FINCOMIO; PROCEDURE NAMES(LIST:BOOLEAN);   IMPLEMENTATION P L E ԍ֍br r b^br ROB`b6 6 ^``Pb6 r ZlB, P    \ȡG+  á Q p צ&OLD CHANGES WILL REVERT TO FILE VALUESצUNLESS RESET - THEY ARE: ȡ צCHANGE ROW (MAX  ) šROWS CHANGED NOW: á  O.K. ? (Y/N);& \ȡG+  á Q p צ&OLD CHANGES WILL REVERT TO FILE VALUESצUNLESS RESET - TH/C/A/G/E/R/P/X/):  áڹ} | n ` RD 7AX0ZlF X@"R&(*,.BO START EXCHANGING:  á áȝōZ  !OPTION (I/L#< גȡءKáݶݶ$,áݶ!Z  COL Tȡ,צ TOTAL VALUE:á7ȡݶ:ȡ# #< ء  i > ءצROW TO PRORATE: áQȡ)? ء   #< ׽ ZצVALUES MUST HAVE SAME SIGNȡ      ȡ[áڶp JCOL 1:á ز #< ׽צCOL   :á ڝ    צPERCENT INCREASE:  ء  d   dȡaáڶء  d צCOL  צ :áڶ /     dCOL 1:áP PERCENTAGE INCREASE0צX CHANGE INDIVIDUAL VALUE*ءCצPERCENTAGE INCREASE: ȡءaá$ڶڶd4 ROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צROBIN:FINNAMEC.TEXT %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.ʧnnצ#5:NAME33#5:PARMΝȡ_nnnDû3^ι333 nw1> ȡ ȡ#B Rö%Ó A F#< זA A=̖'zD? !=Q ROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צROBIN:FINPRINT.TEXT %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.  USES TRANSCEND,FINCOMIO; PROCEDURE PRINT;   IMPLEMENTATION P L E SKԍ֍br r b^br ROB`b6 6 ^``Pb6 r n"ˡ צBAD DISK WRITEιء ~@h nnצ#5:NAME33ȡnnءn4  :4455ȡ :4 4 55ȡ :4:4:4eáá  nE ABBREV F S D( ---------------------------------------nnצ#5:NAME33ȡnnءn4  :4#OUTPUT ON SCREEN OR PRINTER (S/P) : S11צCONSOLE:צPRINTER:133ȡ  צ NAMES FILEצ' ROW:FULL NAMPE TEXT OR TO ACCEPT ENTRY)צLIST NAMES FILE ROW(S),(MAX  צ): ȡnn#5:NAME0ءצSTEAD OF TOTALSצ'----------------------------------------צZ SUPPRESS ZERO VALUES+D DATA ROW MARK gENTER OR AMEND NAMES FILEצ$(TYNTAGE--/=/*/ / SYMBOL PRINTED+S SUPPRESSION CODE-צS SUPPRESS TOTALS-צ"R SUPPRESS ROW VALUES PRINT TOTALS' ROW:FULL NAME :ABBREV :F:S:D-"A PRINT AVERAGES IN) צSPECIFIER OPTIONS:+ F FIELD FORMAT CODE- 0 DECIMAL PLACES- צ1 DECIMAL PLACE- צ2 DECIMAL PLACES- K THOUSANDS- M MILLIONS-צ % PERCE ڢ תڢ ڢ ȡ " ( !$ ˡڢٚ$   ˡڢٚ&  ˡڢٚZ'd EDIT NAMES FILE ׯ:ڣ:ڣ:ڣȡ ڢ ڢ ڢ  ׯڢ צ ڢ צ ڢ  ׯڢ  ׯڢ צ ڢ צ   3 TO CONTINUE 2n :ȡ :ڢ ڢ ȡ   ת   عHtI$~zDjBY%MR [bi "$&(*,.02468:<>@BDFHJLxP$U I哄6ɡzDá .&&ȡ*  )šá K M%á1۹!%#km (š#&&ȡ A  USES TRANSCEND,FINCOMIO,CHAINSTUFF; &  PROCEDURE MENU;  PROCEDURE STORE;  PROCEDURE CONLOAD;  IMPLEMENTATION P L E ԍ֍br r b^br ROB`b6 6 ^``Pb6 r   SPECIFIED =-_ȡ $F,b J ~ x צREPORT NUMBER(S): ɡצCONSOLE:צPRINTER:nnצ#5:NAME : WHEN PRINTER READY ȡ   NULLׯ@ NO REPORT  צ"REPORT ON SCREEN OR PRINTER (S/P): Sȡg : צNULLצ NO REPORT  צREPORT NUMBER(S):ȡ آkˡ$آ צ á_ 2šR7'G_Zv   #5:REPTˡآkآkɡyآkآkȡ9ȡ% Lj=آk Lj áš(nآJˡ1  nDá D   آz ˡGnnš%ȡ ! HJLP<AZ4w  "(*,.02j@D  ȡ  ȡآkáˡFآآg2  á n L=̱L=̒??@@E@E@{Q8Q8Y%MR)  "$&(*,.02468:<>@BDF ? ȡ _ I L nآkآkn; ױ;  ŶÍ# > O    ɡ   ȡ REPORT   צ :ȡ ڢkázȡ8ٝڢkٶ Ȅء šoڢ šڢ$ š ݛ(ݛ-&&y[HBnPX^n( n6 ȡn(ȡ P  ?F@XF@ 'F@%ō šܕ  䓡?áݛ.š ݛߛݛ0ɄÍ ROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צ ROBIN:RUNMENU.TEXT- %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.RUNTIME OPTIONSצ R RUN MODEL BASE CASEצ D DISPLAY MODEL MATRIX N NEW REPORT CAPTIONצ P PRINT REPORT G PLOT GRAPH OF A ROWCORRECT TO CONTINUEȡ3 *>ȡ&قLj8ȡ$قLjצMODEL RUNNING COLUMN:(3^ P nצ#5:NAMEٞ"ˍ#5:DATAٞ"ˍ צ#5:REPTٞ"ˍ١PARM/DATA/NAME/REPORT FILE BADUSE FORMAT OR FILER TO   MODEL DATA BEING SET UP FOR ROW:ȡd"  ȡ&قLj8ȡ$قLjROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צ ROBIN:RUNDATA.TEXT- %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.  USES TRANSCEND,FINCOMIO,CHAINSTUFF; &  PROCEDURE LOAD;  PROCEDURE GETFILES;  IMPLEMENTATION P L E ԍ֍br r b^br ROB`b6 6 ^``Pb6 r "ˡ(צBAD WRITE TO DRIVE 2}(z2  צ CONSOLIDATION DONE%REPLACE ORIGINAL DATA DISK IN DRIVE 2צ WHEN READYȡ܂ەȡTRANSFER DATA FROM ROW:  ȡ]ޡ$܂Lj/܂LjOURCE ROW(S) MAX ( ): ˡ?DESTINATION START ROW: צ CONSOLIDATION DONE%REPLACE ORIGINAL DATA DISK IN DRIVE 2צ  DATA STORE/CONSOLIDATION צ$IF DATA TO BE STORED ON ANOTHER WORKצ DISK THEN PUT IT IN DRIVE 2 WHEN READY +-+-ȡS,.,.ȡ2,+ צ ,,++צREPLACE FINESSE DATA DISK WHEN READYצPצ!FILE NAME FOR DATA TO EXIT:צ--צ#5:-S-צ.TEXTX-P"á\צ!FILE ALREADY EXISTS REWRITE (Y/N)@YáءDATE MATRIX TO FILEצ M RETURN TO MAIN MENUVڂLj"PUT DISPLAY DISK IN DRIVE 2צ WHEN READY H PLOT HISTOGRAM OF A ROW C CHANGE DATA AND RERUN S SENSITIVITY ANALYSISצ T TARGET SEARCHצ I INVESTMENT ANALYSISצ$ L LOAD/CONSOLIצMODEL RUNNING COLUMN:(3^ P nצ#5:NAMEٞ"ˍ#5:DATAٞ"ˍ צ#5:REPTٞ"ˍ١PARM/DATA/NAME/REPORT FILE BADUSE FORMAT OR FILER TO   USES TRANSCEND,FINCOMIO;   PROCEDURE GRAPH(KODE:INTEGER);   IMPLEMENTATION P L E t? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find   USES TRANSCEND,FINCOMIO,CHAINSTUFF, %RUNMENU,RUNDATA;  FUNCTION BACKWARDS:BOOLEAN;  FUNCTION SENSE:BOOLEAN;  IMPLEMENTATIO P L E br r b^br ROB`b6 6 ^``Pb6 r ~#Xj~L ʀȡwLjwLj ˡ  wLj.š̀ʀȡwLjع4צ %  <#̀̀ʀʀȡʀ ʀ̀צ PERIOD NUMBERˡ7š̀ʀȡ ܭ'Di@&SwLj ˡ   ġ. ̀ʀȡwLjwLj ˡ  wLj.š̀ʀȡwLjع4צ %  á+ .- ̀ʀȡwLj ̀ʀȡ+ˡwLj wLj.á wLj.š̀̀ʀʀȡ ʀ̀ ̀ʀȡ# ƀ ̀̀ʀʀȡoʀš ?!ʀ Sʀ$ !ʀʀ̀̀ʀȡwLj w Lj.á w Lj.ˡ+ ȡwLj*bȶɍQĶō@ɶō/ĶɍwLj*w Lj*  nnצ#5:NAME"ˡ>צ!NO NAMES FILE TO CONTINUE<&? ]>S$  áw Lj*á6 A A=̲@@<@@ ALjšɡLjš ---------!- צ----- )nn ٍˡȡ-ȡ (Hw l 57ȡ,IS A LINE OF ZEROSצ TO CONTINUEC"nnצ ,צGRAPH$צ HISTOGRAM 4"צ OF nצ nN(kȡpLj!      8r'GRAPH NOT PLOTTED IT '7ŵ  <ɶō FINESSE PLOTTERצ ROW TO PLOT:PRINTER: áL ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8XROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צROBIN:RUNSENCE.TEXT %̅,ړצLis*SYSTEM.WRK.CODE[*]ROBIN:SYSTEM.SWAPDISK.ڂLj"ڂLj"צ TARGET SEARCHצROW TO CHANGE:  áݛ(ݛ-&&y[HBnPX    nnܓ  nP ܡ   - 66ȡ  66ȡF@XF@ 'F@%ō šܕ  䓡?áݛ.š ݛߛݛ0ɄÍ ɡzDá .&&ȡ*  )šá K M%á1۹!%#km (š#&&ȡ A? ת   عHtI$~zDjBY%MR [bi "$&(*,.02468:<>@BDFHJLxP$ U I哄6 ڂLj"ڂLj"ö%Ó A F#< זA A=̖'zD? !=Q   ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X  USES TRANSCEND,CHAINSTUFF,FINCOMIO,  RUNMENU,RUNDATA,RUNSENCE; PROCEDURE DISPLAY;  PROCEDURE SENSERET;  PROCEDURE INVEST;   IMPLEMENTATION P L E (+(צ.TEXT888Ä8 "ˡ$צ Can't find b/ j  ױצ ROW TO SHOW: áPRINTER: ȡ צRESULTS OF SENSITIVITY RUNS ȡ ---------------------------  ȡCdGE CHANGE:  #< ױצ ROW TO SHOW: áPRINTER: ȡ צROW TO CHANGE: áצSTARTING PERCENTAGE CHANGE:  PERCENTAGE INCREASE STEPS: ? צENDING PERCENTAצRESULTS OF TARGET SEARCHȡ צ------------------------SG  Zצ SENSITIVITY ANALYSISצTARGET VALUE:     A ȡ??̐PRINTER:ȡ צ TARGET ROW:  áצTARGET COLUMN:  á PRESENT VALUE:  D BB 22˄C ܓ&  ! b צPRINTER: צROW FOR INVESTMENT ANALYSIS: ȡ4ȡ  DISCOUNT RATE: ȡ   AT .ITYPE:DEPNTYPE):REAL;  FUNCTION ALLOWANCIES(NUNAL,NGRPF,NCAP:ROWINDEX; /BRFAL:REAL):REAL;  FUNCTION NPV(IROW:ROWINDEX;RATE:REAL):REAL;  FUNCTION NPROFAFTAX(NGRPF,NCAP,IVRTE:ROWINDEX;  TXRTE,BRFAL:REAL):REAL; ON(PURCHROW:ROWINDEX; /DEPROW:INTEGER; /SNBV,RATE:REAL; /DT:DEPNTYPE):REAL;  FUNCTION PSROW(ROW:ROWINDEX):REAL;  FUNCTION FSROW(IROW:ROWINDEX; /INOP:INTEGER):REAL;  FUNCTION PNBV(IBTEM,IFITM:ROWINDEX;  NDEP:INTEGER; .SNBV,RATE:REAL;   USES TRANSCEND,FINCOMIO;   (* L PRINTER:*)  PROCEDURE GETNAME(R:ROWINDEX;VAR S:STRING);  FUNCTION POWER(XPART,YPART:REAL):REAL;  FUNCTION VAL(R:ROWINDEX;K:COLINDEX):REAL;  PROCEDURE SETVAL(R:ROWINDEX;K:COLINDEX;X:REAL);  FUNCTION DEPRECIATI ddȡ= צ'WARNING RUN MODEL TO RESET TO BASE CASEȡ 0ȡ  ,b \b n , THER %צCONTINUE (Y/N)@͝Ná š    ddȡ= צ'WARNING RUN MODEL TO RESET TO BASE CASEȡ 0צPRINT RESULT (Y/N)@͝Yá COULD TRY ANOTHER %צCONTINUE (Y/N)@͝Ná š     IN ROW   COL  SO FAR  % CHANGE GIVES   #< ׵ #< ג1NO SIGNIFICANT CHANGE RESULTS IN  á     #< ױ #< ג   TRYING FOR  P(DS 0 2bvS.צPRINTER:   צ PERCENT CHANGE IN ڕ  ȡ MODEL CELL VALUESצ  ȡ   ȡ ȡ  ȡ  ȡMȡ?  tI$      צPRINTER:   š ȡOW(S) TO SHOW (MAX  צ): ȡCOL(S) TO SHOW (MAX  צ): צ  ȡȡ  + DISCOUNT RATE CUMULATIVE PRESENT VALUE OF X  צSCREEN ,PRINTER OR DISK(S/P/D):  R--)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE ` FUNCTION TAXPAID(NXTPY,NPRTM,NGRPF:ROWINDEX; .ILAG:INTEGER):REAL;  FUNCTION SUMM(R1,R2:ROWINDEX):REAL;  FUNCTION RROUND(VALUE,UNITS,RMETH:REAL):REAL;  FUNCTION GETVAL(S:STRING;L,U,INX:REAL):REAL;  FUNCTION GETNAMEVAL(R:ROWINDEX;L,U,INX:REAL):REAL; ÝÍÝÍ s͝͹**ȡˡPRESENT CAPTION:צENTER NROBINXTSYSTEM.WRK.CODE6 z|z6 b6 *,,ROBIN:SYSTEM.SWAPDISK ̅(צ ROBIN:FINRUN.TEXT- %̅,ړצLis*SYSTEM.WRK.CODE[*] ROBIN:SYSTEM.SWAPDISK.  USES TRANSCEND,FINCOMIO,FINFILEC, %CHAINSTUFF,RUNGRAPH,FINPRINT, %RUNMENU,RUNDATA,RUNSENCE,RUNCHAN; &  PROCEDURE FIN;   IMPLEMENTATION P L E r b^br ROB`b6 6 ^``Pb6 r "TAKE CARE ANY ENTRY VALUE ACCEPTED34 344331BAD ENTRY - REENTER34 X   R(<`*dN\.z"ڕڕ j ȡ-ޝȄ<T P34 :m MODEL GIVES LOWBOUND > HIGHBOUND"TAKE CARE ANY ENTRY VALUE ACCEPTED34 344331BAD ENTRY - REENTER34 X   R(<`*dN\.zڕڕ j ȡ-ޝȄ<T P34 :m MODEL GIVES LOWBOUND > HIGHBOUND   =á B" B  4 ڕɡ ˡڕ+    BB < š|ȡj       á   n ˡ   O " *á 4ڂܝɍ : ?r?    ?ȡ ڹ 犐 B] BB  BÄQá  BB nnצ#5:NAMEnn؝nPB'7ŵ  <۝ōɍڝō ۂLjFۂLj"  IMPLEMENTATION P L E )vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `EW CAPTION OR P33#5:PARM33**P*)***1*3*,*-*+*.*/*0*5P*2++ȡ.*^33nhbUHC>צFINESSE+CT$RN01.H^S5QV צENTER NFUNCTION READPARM:BOOLEAN;  PROCEDURE GETONE(VAR DEF:INTEGER; 1L,U:INTEGER);  PROCEDURE GETTWO(VAR DEF1,DEF2:INTEGER; 1L,U:INTEGER;PR:BOOLEAN);  PROCEDURE GETREAL(MULTI:BOOLEAN;VAR X:REAL);   IMPLEMENTATION P L E MAND] OF BOOLEAN;  FCRTINF: FILE; $ PROCEDURE GETCRTINFO; PROCEDURE CRT(C: CRTCOMMAND); PROCEDURE GETLETSTRING(VAR S: STRING; MAXLEN: INTEGER); PROCEDURE GETSTRING(VAR S: STRING; MAXLEN: INTEGER); FUNCTION YES: BOOLEAN; FUNCTION GETCHAR(OKSET: SETOFCHAR): CHAR;  PROCEDURE PUFF; LE;  MREPTFILE: REPTFILE;  MP : TEXT; $PARMF : PARMFILE; $  CH: CHAR; $RECNUM: INTEGER; $LASTCHANGE: BOOLEAN;  CRTINFO: PACKED ARRAY[CRTCOMMAND] OF CHAR; $PREFIXED: ARRAY[CRTCOMMAND] OF BOOLEAN;  FCRTINF:SCALE,BRACKET:BOOLEAN;  PCAPTION:STRING[80];  DATAROW:PACKED ARRAY[ROWINDEX] OF BOOLEAN;  GROLDX:REAL; $GRCOUNT:INTEGER; $ $MCONSOL:STRING[25]; $MODNAME:STRING[25]; $ $MCONSFILE: DATAFILE; $MNAMEFILE: NAMEFILE;  MDATAFILE: DATAFI$KEEP:PACKED ARRAY[ROWINDEX] OF BOOLEAN; $ROWSINUSE:ROWINDEX; $COLSINUSE:COLINDEX; $STOREL,STORER,COLSRUN,TARGCOL,COLSTORUN,RUNCOL:COLINDEX; $K:INTEGER; $ $PFIRST,PPERIOD,PENDCOL,PSTARTCOL,COLWIDTH:INTEGER; $PHEADCH:CHAR; $LINEFEED,GETVALTRUE,AUTONS:INTEGER;  STORET,STOREB,SHOWROW,CHANGEROW:ROWINDEX; $LASTOT,TOTCHANGE,CHANGE:REAL; $GOINGUP,DPRINT:BOOLEAN;  ERROR:REAL;   EXECF:TEXT; $S,DNAME:STRING; $RCOL,RROW,NEXT,REP:INTEGER;  L,M:INTEGER; % %DATAFILE=FILE OF DATAREC; %NAMEFILE=FILE OF NAMEREC; %REPTFILE=FILE OF REPTREC; %PARMFILE=FILE OF PARMREC; % STATUS=(NORMAL,SENSITIVE,SEARCHING); %MATRIX=ARRAY[MATINDEX] OF REAL;   VAR MATRIXPOINTER:^MATRIX; $RUNSTATUS:STATUS;  NUMRU 'ROT:PACKED ARRAY[1..25] OF BOOLEAN; 'HEADSTONE:ARRAY[1..25] OF STRING[5]; 'HEADER:CHAR; 'FIRST:INTEGER; 'ROWCHOICE:PACKED ARRAY[1..25] OF ROWCH; 'REPTCOL:PACKED ARRAY[1..25,1..2] OF COLINDEX; 'REPTROW:PACKED ARRAY[1..3,1..50] OF ROWINDEX; %END; 'ABBREV: STRING[8]; 'FORMAT: CHAR; 'SUPPCODE: CHAR; 'DATAROWMARK:CHAR; # END; # DATAREC=RECORD 'LINE:ARRAY[COLINDEX] OF REAL; %END; %ROWCH=1..3; %REPTREC=RECORD 'TITLE:STRING[40]; 'PERIOD:INTEGER; 'RON:PACKED ARRAY[1..25] OF BOOLEAN;INPUT xOUTPUT fbKEYBOARDFALSE `TRUE vxNIL MAXINT Xv    ; %END; %NAMEREC=RECORD 'FULLNAME: STRING[20]; --)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLCOL;  MATINDEX=0..MAXMAT; %DEPNTYPE=(SL,DB); %REPTYPE=(OLD,NOW); %PARMREC=RECORD 'NAME:STRING; 'ROWS:ROWINDEX; 'COLS:COLINDEX; 'PF,PP,PE,PS,CW:INTEGER; 'PH:CHAR; 'GV,LF,AU,BR:BOOLEAN; 'PC:STRING[80]; % DR:PACKED ARRAY[ROWINDEX] OF BOOLEAN   USES TRANSCEND;   CONST MAXROW= 250; &MAXCOL= 24; &MAXMAT= 5000; &MAXREP= 15; &  TYPE SETOFCHAR=SET OF CHAR;  CRTCOMMAND= (ERASEOS,ERASEOL,UP,DOWN,RIGHT,LEFT,LEADIN); %DURATION=(PERM,TEMP,NEVER); %ROWINDEX=0..MAXROW; %COLINDEX=0..MAXEW CAPTION OR P33#5:PARM33**P*)***1*3*,*-*+*.*/*0*5P*2++ȡ.*^ FILE; $ PROCEDURE GETCRTINFO; PROCEDURE CRT(C: CRTCOMMAND); PROCEDURE GETLETSTRING(VAR S: STRING; MAXLEN: INTEGER); PROCEDURE GETSTRING(VAR S: STRING; MAXLEN: INTEGER); FUNCTION YES: BOOLEAN; FUNCTION GETCHAR(OKSET: SETOFCHAR): CHAR;  PROCEDURE PUFF; &ٝńاENTER VALUE(S) OR FOR:ؼ  (#"$ ! š š( &&ȡ$ *Ä$ š$2 &&ȡ$ /:Ʉ 0Ȅߓ1צBAD ENTRY - REENTERߡޚݚ   2 :BfNvf á TO EXIT:+ FOR  : ĄȄݓ1BAD ENTRY - REENTERݡܚ   ENTER VALUE(S)ءgá, TO EXIT:B , FOR - : : ȄĄȄĄޡ ޏ ݛ0 ݛ-Ä ޚޚޚá zp$  צ ENTER VALUE, á TO EXIT:+ FOR  : ĄȄݓ1B2.2<צ(DISTRIBUTED BY OSBORNE/MCGRAW-HILL VS2.2.  á ȡ. ݛ-Ä ݛ   -á ȡqȡ$ ݛ@Y"&(MICRO-FINESSE COPYRIGHT P-E AND RH(S)L(NOT FOR SALE OUTSIDE US AND CANADAء>צ( DEALER DEMONSTATION COPY VS -? צPá- 0á - -==P=Q=P#á  áˡP  `$ h=- צPá= 0á - =-MMPMQMP#á  áˡP ʁCʁDʁ  :  2   #? ̺ڣ43K צ*SYSTEM.MISCINFÓH́>@ʁAʁBš RcIH6 33צ#5:PARM"ˡ3ڪڣ*ڣ)ڣ/ڣ.ڣ-ڣ,ڣ+ڣ0ڣ2ڣ1ڢ5Pڣ3ȡ-ڢ^  &&ȡr# %% ܓ%.Ä/:Ʉ%+%-Í<%-á"/%+á"$%.á ኃ0ܡ  3BAD ENTRY, REENTER!!ܡ &&ȡ  " #