`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxbhx Nb`8Ύa߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮaߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  Wjee0 Ю $Ӱb4 xbdfbH dߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`fߠ d߮XUDRESULTS.TEXTVf' DOFILER.TEXTVf FORM.CODEr;Vf BUILD.TEXT;Vf PTSTART.CODEVf MAKEPTD1.CODEVf MAKEPTD1.CODEVf MAKEPTD1.CODEVf MAKEPTD1.CODEVf MAKEPTD1.CODEVf蠱FORMATTER.DATAfFORMATTER.CODEf DATEINFO.DATAVfH蠽 MAKEPTD2.CODEVf DATE.DATAD<Vf MMENU.CODE<Vf SETPRINT.CODEVf PRINTER.DATA.T MAKEPTD1.CODEVf DOFORM.TEXTMI91E11& SYSTEM.APPLE&Q SYSTEM.PASCALQn SYSTEM.FILERnpSYSTEM.CHARSETp| SYSTEM.SYNTAX|}SYSTEM.MISCINFO}SYSTEM.STARTUPfSYSTEM.LIBRARYf蠮VIOLATION.CODEf&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴~X~YiTiUR콥S8\ȥ]\]VWlX ƎRSL~ȱȱŎRRLdҠX LdҠX PQȑLdҠXX XY 0 L_X~~8傅~8~~~78Ƈ8񆅚ȥ񆅛\[HZHl\0 LdN8Ƈ8񆅈񆅉@:8񆅈(8 8Z[ 8Z[LѠP i tiuLht i~i8~8`hh ߦ~ h0 L3 L3lvLRLX/ L 8L ߦ~ hI=+ L ߤ~襈I= ƈ LȄHHLLhh ~LhhV~W\]XiXY~8傅 !THEN TO TYPE UNTIL USES 1UNIT 2VAR WHILE WITH WNTO END ELSE EXTERNAL5FOR FUNCTION FILE .FORWARD "GOTO IF IN )IMPLEMEN4INTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPACKED +PROGRAM !REPEAT RECORD -SET *SEGMENT ܅܅ȱՈƐ2i ȱȱȩȥȩȑȑH~H`'Pޱ[ޱݱ݄ޏޚޥ޺ޱ"AL߱ݱݱ@#AND 'ARRAY ,BEGIN CASE CONST DO DIV 'DO` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>BGڇښڢکڬh~hhhhhqq a{8 ȱ{a0:A[_ ؕԈqȱi`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH D۠'(hH ۩ hhehLDۍ۠'O`J>L80 %,M8$LgLhhhhhhhhץHH` )`,10 )?ILڢY` l܅k܅lм`|H D۠ D۠'È B h`@ ֠ ֭0`+` ڥHH B MڥhhLDۦ ڐ`,10` ` ` ` ۤO`) 2 ֭0` ֹ)` ( `) $ HЄ ֹJ` MȽ`H ؠ H h`@`   ٢` َ` ֭`38 0P`8 0 DۥHH)> `0* x)` EHh`LL٠(MC3 `H ؠ h ~؍,,`lQ`) ũ Ȣ`JJJJ ϱ` $p0*O# =ؤ =آ`H ؠLf ֊H h ɢ)L ,10U0I ,109,c$0 A[ $P0Ji)jj%UIЂ )?LI@a Hb c0  hH ׎h$L hhh 靱`hhh(`hhhhhhϐ8 (ֹH ֥ +ֹP b)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 ِ9 aLgץ")j> 8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅbSϭb߅83IbߐibŅ QHPH PȱPP꽥QLdҠ RhPhQLH RR8~S~\ȱ~]X i RHLiR~ȱRV~ ~VWRTȱRURXȱRYRRR콆SLdҠ8񚅆񚅇`ȱL8~ȥ~e~ȱ~e~8ƇƎ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅]  " ]H\HHHAH@H > ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lhLhx hmDŽ ) W 9LK " W 8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L楆8Ƈ8񆅔ȥ񆅕8Ƈ iiL奖 㥘 㥔 㭭ххІ 51-l l Ɗgƈд** 6`V QRTWHHlRHHlT Эhh a0+&00 1حB/C0@A "!歪筫䭬)aVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 򭋍8TU 8X再Y凍TVｌLXiXYXiXY HHXYX olhh)X0 eXXYLLeT~eU~8~X~YLdҩHHL^ҠXHXHL?飨RHRHL^Ҡ UѥRehnSeio nHnHLLҠ UѥRehnSeioni n%D[abHT%LXiXYX h&i` hi`RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[      ཀྵlN{`j5ۓ{Wv*ܞמ]َPqҜـٯU]l7{ӳBVݿӧݙy1ڇ 8R-zLDүH@P 8^L^һһһһһһһһһһһһһһһһ****************|yyyyyyy ҹHH`=`LLLLL)LHL&L)LLKLLLXLLXLLL\v]w]|\ v\w] RPRRSQRR @RȭAR)[ [Zqʊ qŐ`8H<8H\Ni iIHHAH@H GH#FF) l GGԬهП8ƋȱHHHH`HHHHHH  < @>~?aƁ)ɠG#ooHnHLLҠ UѥRehnSeio hnhnLLèPHPHL^Ҡ UѥPehnQeio nHnHLLҠ UѥPehnQeioni nooHnHLLҠ UѥPehnQeio hnhnLLҠX qѠ Uѥhelniemo nHnHL?ҠX qѠ Uѥhelniemoni nooHnHL?ҠX qѠ Uѥhelniemo hnhnL?ҠX Uѽeh~ei~H~HL?ҠX Uѽeh~eih~h~L?ҠX UѽeheiHHL?h~hȱ~H~HL^h~hhh~ȥL^ҠXȘ ~X)XYXHXHXe~XYLdҠX~ 8倐~hrhsrHrHƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED4 8(TB &" PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC 0~E~~~Ղ0LސLh)~hh)h~Lީ vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHL^hHHL^ҩ%vHHL^hhh h膀e ň8内e~l8吨Lߤ 0 vXLLyL+L<   UFifhL8ޠ Uhhh~hXYhLdޱ~р~iLްLLވhhuޅvޅh~h~wޅ~xޅ~р ȱ~р~р %v HHLLҩHHLLҢh~E内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHL^ҩHHL^ҩHHL?? hh&ŎLL0eeƎLLҥ8包Ŏ 8吪8吪ƌLLhh&eȹȹp)1)fjjj)?~Ōe~9 pHHL^ҦpHHL^ @hhHHHHhhhhLݥ)L8ȥL^hhh heȄ Ȅ~l ۦ8e h9 0 ʚL^ ۦņ hI9ʚL^ ņ0 hʚL^҅~Ƃ~eʥƂFHHL^ҠX hh &heheHHHHeHHL?hhhhhhȱ80 iff =݅=HHL^h~hhhhh ݅%~~݅%80~~i ~&&hhȱI%~I%YHXHXXYeXXYLdhrhshthuXs&trȑtLLҠrrtLUٱrtLLLѺ~~LL^Ҡ UhehheiHHLLҠ UhehheiHHLLhh Uѥi h&L٥hi 0ץheheHHLLҠXX` of"f fofn8no8&&`ffofn&&`hhhh ץIiIiHHL^hhhh ץHHL^h~hhhE0Ń)ŀ!0E0~łL^LXYXXYYHXHLXYHHL^hIihIiHHL^h~hhh8~HHL^ҩonff nenoeofofnff`hh0 hhLhh"IiIiIiIi 0ץHHL^ҺHHLWנnoLѥIiIi攥IiIiƔ8吥呰 X&XeYei无8XYLdҥXiXYLd h~hhh~&Zȥ[Ze~Z[e[8\Z][LLL h~hZ~ȥ[~LLh~h~Zȱ~[潩LLҩlLhh0HHL^ҨIiIiHHL^h~hhhe~eLLLѠX~e~e~tu~L1hththhLLh~hhe~~heH~HL^hhh~hhe~~he~L^hrhshthu ULh~hhh%H%~HL^h~hhhH~HL^hhIHIHL^ҩXXhhQX0XŗiX`0\XE0XLXŖC?8X(צPress CONTROL-RESETGb Íáɡ 럚肚X  šš ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ 4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$Pצצ22ȡ5233 ȡ 11"2COMPDEBU2162LINKANDGr21J2LINKDEBU31^2 ASSOCPRO~K21r2 SYSFILE xD23ASSMBLER@G2COMPILER22EDITOR LN22FILER B4^422LINKER *=<22DATEREC 43MONTH r3N3D3N3:l :.hzpL d | :\0T1 IBADFORM\0h1ISTRGOVFJ0\0|1CMDSTATE4x71\2HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ2˄ `1 b (   d˯7 H ġ  *@#@,A$BBBZCC"DrDDEFtFGdGGG.InIIIfJJ0JKzxM20 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ š š K6"á61 ɚ V %ɡšɡš  PꟚšw#ńE z @šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@6"á1ꓡ삫Ú ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿1á5   Q lȡ>š 쾿  / Zá " *0ˡ oɡa   áá0š  %4á-ë0zY 000á'5á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń vJ& "ˡ  J    00áQP 0á0 é000+-ÍFOTO /T! ȡ   צ0H"4$$$&ˡ 4 46%ˡ 4Jˡ 45ˡ+&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:!۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> Eá.0::8SWAPFIB OJ8NL7SYVID 3?DKVID $Z3zL;THEDATE 3CDEBUGINF[LD STATE 1EPL :FIPOT Mo$M  FILLER DMEHצE#  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:߂ɡ F b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8Eˡ.$  š t@4,á/š ġ 4,+á"š ġ Z |5?š?ˡ?ء "ˡ6ߕނˡ   d쓡  1צS# أ , P# أ צ, I# أ \2צ Exec err #   á, J3 l/E8:Eá *0  šˡ 퓄 Ä퓡w š   ɍL  "ˡ./~6\-}ˡ2Error reading exec file-, } .}ˡ2Error writing exec file-}ë 쓡ת!!9 D*驁&F+}迶Ŷ} / š/áá-`,3# , , ,/)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ צUnknown run-time error-צValue range error-צNo proc in seg-table-Exit from uncalled procת-Stack overflowת-צInteger overflow-Divide by zeroת-צNIL pointer reference-צProgram interrupted by user-MayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ  7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצApr1٦׷)צ: ܢܢH d    0&תת.ת??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT{B77::9988:9  6 ۪*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C "á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"áޢʁޢʁʁޢʁޢʁޢʁޢ88ʁ  תʁޢʁʁޢ́Ɓ߲Ɓ߲ Ɓߪʁޢˡdتٞ&ʀ=ʀ* ʀ́ʁݢGʁݢHʁݢIʁݢ%O tƀ&́ʁݢʁʁݢʁݢ%́޲8ʁޢʁޢʁޢʁޢʁޢ ʁޢʁޢ ʁޢ ʁޢ ʁޣ  ʁޢʁݢ́ʁޢʁ٢ š٢ ٢٢ 4$88ؗ(/88ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀnown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overflow-' oZ>s]@;-.Le not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munknown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overfloת-file not foundת-צ dup dir entry-צfile already open-צ file not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-MunkצSystem IO error-צ unknown cause- parity (CRC)ת-צillegal unit #-illegal IO requestת-צdata-com timeout-vol went off-lineת-file lost in dirת-צ bad file name-צno room on vol- vol not found'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@9988(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE7:::% š tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C_ 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "*SYSTEM.WRK.CODE[*]To what codefile? (׷O,á<$88š8(8X+,,"ˡ צ Can't open ,   áث 7(צ&,á(+(.TEXT888Ä8 "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צR   88(áצ Assemblingצ Compiling...á999':::צ::&:(áAssembleCompileצ what text?  Ɓ]&/ , ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ۤ    áۤ  ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required intrinsic(s) not available2 0ڡ;ƀ ˡ.  is not version 1.2ړ22H"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #ݢ`ڤá Zx ȡ2ݤˡ"ޢ`ݤۼ: T ڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj  ߪPˍ? P ˡآڤ á Cá>آآ*Í k vޢ ȡSڤ ˡ@۳-ܢ0ۤ ڳ@@YyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢ-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedV 59 v"pv">   F  tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedá.צNested exec commands illegal"צError opening execd 6~}6 "ء HPKצExecuteצ what fileצ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjVP+"á(.}P+ ! Jf%צ:ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Ä˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ϶ U not allowedup-Há6OK7AX0NP3 "gC(,. C ^(Pv 2 Z *')%?áSFצ=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡 צ Linking...ˡ& Restarting...á(צ*SYSTEM.STARTUP %áá 6   HˡFצCCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]P')%?áSFצ=Command: U(ser restart,צ , change it?)צNew terminator:} ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH   áning, programs using GET or PUT to disk will be very slow New exec name:(šR.%+(]ˡ([8]+("á%צ Terminator=lose and disk get and put procedures swappedצOld swapping level is  צ%New swapping level (ESCAPE to exit): ض,0Í1Í2Íسs2ø1öRצ Z`X\X áޢá ~תޢޢޢ0áצ fܪ(G[!nء CGGá+á &"ˡ~[צ[ ˡ  .  sآWצ:آ(Y?::á ;&Pġ - عEXå[ׯGC81(*MJLN0A$6Uۡ &Pɡ צ, áצ " ڪ٪ت&:&Pɡ(š --> 4ثضÍצ$*á-: : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪƁK""áN׷9& צ ?  ɡ& Invalid #P  ˄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 errorACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED"6 FILEHAND 24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!צc& آצ ? ) ,áYø۪     0ު(áܲ~ %&ܥKO &&ȡu ''k'ȡKk'k-'' ܡšڡK N Y˄ &"&& & ܡ&'&, #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#COD5 *SYSTEM.WRK. 5 5 4454=5  d66.6.6 65ݪ   p "٪ؓצ *SYSTEM.WRK.,C:[.צTransferׯ( Ɓ-צMakeǐh"))** **"&G:[ madeצT  ߪ Ɓ8 5/0 /0/0 0 òCń /C"ݢݢ///://tLצTransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer nsert destination disk %š " ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0pdate directory ? צ Ɓ3"ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'IÄ?G;K;GK,,G,:, ׯ>צRemoveǀ RemoveE+Gޤ removed%á % ń,&U,,(,{A,(*צChange*[")ǐ ),, d,,[,["𥀈{á򥀿Dá" G"+!+~G?KKGšׯɄS{c\ڥs[KG2G:[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(ɡ, 󍓡 =gPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK ׷Ȅff@ Զ ުݪ"צPWk?=ɍ :g=#g=ɍ+=*á =*=%á=۲jjjצ:j($hh=ɡX="#š=P="="=h"h=h"h"=P=gg=á?gg=ar. 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á    - chk'{[{ c󓍄E''S'צ:'{!'0'c?'(&K& not processedá á1 9U~&gڲ= ggE#饀!.[G&TEXT&  "hKצ*..CODEOld code removed, Text file saved  & 0צCODE  "צCode file saved62!o.צצ not named2 Workfile is :.񄓡 (not saved) No workfile$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ? lock scan ofצHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ92צBlock  צ is badۂġ צ bad blocksMȡl\ؤ áצ Directoryڢڢ  v 1ˡZ ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad b 饀:˥׷!צ:DGצ : correct ? G CK "צ: zeroed p0šצFile(s) endangered:is - ?:צPrefix is - ;: / צ Zero dir ofצH צDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ? in largest"١ ƃƃ"ƃ ,  N, Vols on-line:ȡ &GȡR~צ; צ #  :צRoot vol ƃʅ/ ƃ ƃƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ̅.ʅ- ̅/ʅ- ʅ/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƅ'Dir listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(צ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.6 ),%ö,ÍP$&,􍓡~%K:, %,,,|-ٕڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃGؾAĥGؾZȄ GإGؾAa ȡ$GCػ*c+C ػ?צ:@Ä Cצ The date is C -C-C +%Date set: <1..31>--<00..99>Cˡ_צ Today is C -C-C  New date ?  +Cػ*škGGȡ"XTצText ײ&(צ.CODEצCode (١%צNo  file loaded& '- &*- ȡ%ܾz ܾ0ŶȄ: \  ǀá@ .  ڲ צ& * (&Getצǐ%G.[.&ؓń=.צ.TEXT.  צ.CODE ..Ȳ.׷:.TE ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemove  ء&צWorkfile cleared%f & ݪܪ  : .1 3צExamine blocks onצH&Block-range ? S  SRR  RRˡR ġ RSSRō4%SVR̂dVʂdȡ V2VVš#1 Fix them ? Ǡ  T USVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šT<5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>yJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto  (Dɞ(ń?Í~!YT(.*0 6 b>z,l\@NV !V#&'&$#F*|* (+>+B--f..//00101l11560p8.FILER cannot runצ'with a non-1.2 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto  (Dɞ(ń?Í~!YT(.*0 6 b>z,l\@NV !V#&'&$#F*|* (+>+צ&Version 1.2 of SYSTEM.FILER cannot runצ'with a non-1.2 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶצ0???JanFebMarAprMa,'&!צPrefix titles byl;G& Prefix is ;:`$\ X/T3P0L4H5D)@:BZ2" (@,(NXF0N>w\ @ˡ}ine, Z(ero [1.2]7+&Filer: W, B, E, K, M, P, V, X, Z [1.2]7ڡ$&B%ȡ~٤ܦ׷uȡhܲ~ؤVWarning units   &  צ have the same name,)xR87תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [1.2]7+צ&Filer: G, S, N, L, R, C, T, D, Q [1.2]7?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amforward ת  ȡ'  š 6  צback  ġ ɡ6 G : crunched#צPlease re-boot{ Z5تPFP'š  " " ġ  6צCrunch@צFrom end of Volume, blockצStarting at block # 2 % oT0ʂeʂeoTTT TWT ɡTTWT#VV צBad blocks markedH`]t4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   VTVVUVVá41Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z Tʂe.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? O^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: Illegaset 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 sing result type in function declaration 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: Type conflict of operands 130: Expression is not of 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: Mis109: 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: '[' expecteagfields 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 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 185: Segment declaration not allowed in unit 18 -|&!D )&+ PASCALIOLONGINTITRANSCENCHAINSTU EXSTUFF EXSTUFF ADDRESS ADDRESS APPLESTUSHORTGRASHORTGRAMINSTUFFMINSTUFFCODECHECCODECHEC,(*ȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ̹n צONE MOMENT PLEASE(צMAKEPTD1&TڪP-19:!1ׯ)Illegal filenamenTSTARTMI , ƃʅ* ƃ unusedƃצ, ƃʅ+   O ?ƃ"ƃ , p, Vols on-line:ȡerface nor while including 408: (*$S+*) needed to compile units  409: General Compiler error 500: General Assembler error ected 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 int350: 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 segment empty 399: Implementation restriction 400: Illegal character in text 401: UnexpToo 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  301: No case provided for this value e 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 source line 203: Integer constant exceeds range 250: 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 b'MEDAC Series 9 Library 8/21/85 B.Mehler $ "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:I $ "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:I  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.1 ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRNTEGER[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 @d12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:ItI$'>ߡڑ߳I@߳}:#9oL.6ZO$<=*     4?KYKK.2 4k/P/NEWC/C.CODE.CODE "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION N E hhƀ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&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN  ??;ܳ1?ܳ^; S> ?L=[?    ??  ġ+@ነ? ?> ??   '~~5?. ??$* VARIABLES - NOT CONSTANTS. $* $* ADDR MUST BE IN RANGE: $* -32767..32767 # * $* DATA RANGE: 0>DATA>255 $* IF OUT, THEN ABS(DATA MOD 256) $* *) $ !PROCEDURE CALL(ADDR:INTEGER); ! ! (* "FRONT END" FOR INSTALLI  +ëREAD NREADLN WRITE z@WRITELN EOF lEOLN PRED $SUCC ORD NTERACTrINPUT JlsOUTPUT 84lKEYBOARDrlȡFALSE 2^TRUE dH^JNIL fMAXINT *H+ #+"  + 40.% FORM=> DATA:=PEEK(ADDR) *) #(* $* BOTH ADDR AND DATA MUST BE INTEGER ^-X-X)HXPINTEGER HˡREAL NCHAR XBOOLEAN ^ëSTRING xEMTEXT ^lI "VAR CH0,CH1,CH2,CH3,CH4,CH5,CH6,CH7, &P1UNIT,C2UNIT,M4UNIT1,M4UNIT2, &UNITON,UNITOFF, &AUDIO1,AUDIO2,AUDON,AUDOFF: INTEGER; ! !PROCEDURE POKE(ADDR,DATA:INTEGER); ! #(* FORM=> POKE(ADDR,DATA) *) ! !FUNCTION PEEK(ADDR:INTEGER):INTEGER; ! ! (*  ASSEMBLY $* LANGUAGE $* $* .PROC CALL.ASSY $* $* IN THIS INTRINSIC UNIT $* *)  (*-----------------------------------*)   IMPLEMENTATION E ED $SUCC ORD `?_?^?]?\?[? Z? Y? X? W? V?U?T?S?~hhhhHHl,0TRšزTRPزTPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E ??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~NG ASSEMBLY $* LANGUAGE $* $* .PROC CALL.ASSY $* $* IN THIS INTRINSIC UNIT $* *)  (*-----------------------------------*)   IMPLEMENTATION E ED $SUCC ORD `?_?^?]?\?[? Z? Y? X? W? V?U?T?S?~hhhhHHl,$PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); "IMPLEMENTATION X E )4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH CREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); ` 8`*UH)JJh & & fDURE 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 S $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; & $VAR &FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCEn(j LEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXT$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2hhhhhhhhH)HHH`)J) D* کHH  ),`#d`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION N E $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTI ASSEMBLY $* LANGUAGE $* $* .PROC CALL.ASSY $* $* IN THIS INTRINSIC UNIT $* *)  (*-----------------------------------*)   IMPLEMENTATION E ED $SUCC ORD Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ  USES APPLESTUFF;  "VAR RESPONSE,KEY: CHAR;  "PROCEDURE WAITFOR(VAR ENTRY:CHAR);  PROCEDURE ERASE(BEGINING,ENDING,START:INTEGER);  (*------------------------------------------*)   IMPLEMENTATION E lenamenTTURTLEY 8 SCREENBI5 X 0505Y DRAWBLOCT96l5  SOURCE 555 LROWSIZE 55XSKIP 555YSKIP 65QH?\H ` h  (j` , ~  ( FILLCOLOp:t1VIEWPORT4P4LEFT f4|4f4RIGHT 4|4BOTTOM 4TOP TURTLEX 4 *)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )L6I1L6)QL6        zjZ )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08e*e+) [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #eNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}z I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)QتP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ǻٚ SYSTEM.CHARSETáSYSl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 ȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ̶YNÍ ÍyÍnÍÍٚ2:(hhhhhh 88)JJJ(Pee' צ.**********************************************צ PROTECTION VIOLATION"THERE HAS BEEN A CODE CHECK ERROR."EITHER THERE HAS BEVIOLATIO R,تPR4؏ȡ ((0 33P3צ/Q3P ޛ á  ޛ-á  ޛ +á  ޛ߳ ߊ݊ ޛ  a TF,+ȡ'-̀ƀ-PƀVǠƀP++-c تPR,تPR4؏ȡ ((0 33P3צ/Q3P ޛ á  ޛ-á  ޛ +á  ޛ߳dd  000.تPR(تPV P-VP,+,+ȡ'-̀ƀ-PƀVǠƀP++-c تP(SECONDS:INTEGER); " "FUNCTION MAKEINT(VAR S:STRING):INTEGER;   {------------------------------------------}   IMPLEMENTATION E  á Cá>آآ*Í k vޢ  USES APPLESTUFF,SHORTGRAPHICS;  "VAR C1,C2,C3: CHAR;  "PROCEDURE MAKECHARACTERS(INTVALUE:INTEGER); "PROCEDURE CENTER(S:STRING); "PROCEDURE CENTERINV(S:STRING); "PROCEDURE WRITEINV(S:STRING); "PROCEDURE WRITELNINV(S:STRING); "PROCEDURE PAUSEȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ̧ @ɡ @!ǯ@ǰ@˝@ˍצ#4:VIOLATION.CODEtš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ "USES ADDRESS,CHAINSTUFF; "PROCEDURE PROTECT; "  IMPLEMENTATION E YyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTHH`ڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢEN A FAILURE ONTHE DAVICON I/O BOARD, ORצ&YOU ARE ATTEMPTING TO USE THE SOFTWAREצON AN UNLICENSED SYSTEM.צ&CONTACT DAVICON, INC. AT (617)899-0600צFOR FURTHER INFORMATION.צ/***********************************************/Press RETURN key:  MMENU.CODEJFORMATTE BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>%A8` A A$Lh@B ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>?K@ :@9A ?W@ :@8Aн :@$A)* 7A7A` A݌HhHh ? ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh #=h` \I꽌ɪVɭɖ0ɖ!ɖ 꽌ɪ\8`  꽌ɪɖ * % E зЮ꽌ɪФ`7A6A$A\8A$A9A86A7I$Ai$A8A8A 8  :=`+L!='L!=i0L!=8` $A6AJJJJ6A >N$A`)p#A#A**LS=ׅ P$A #=  :@Ld= Ai#A #=#AL= c@AL=AL= AL="A%A%AL=#A j>#A >#H#A? THE DAVICON I/O BOARD, ORצ&YOU ARE ATTEMPTING TO USE THE SOFTWAREצON AN UNLICENSED SYSTEM.צ&CONTACT DAVICON, INC. AT (617)899-0600צáMצ'PUT SYSTEM DISK IN #4 AND PRESS RETURN  THAT'S ALL FOLKS... ڳ 0ڳ ۏڂ0ڳ<pTIALIZATION IS NOW COMPLETE.צ#To use this new Patient Disk, place'it in Drive #1 and restart the computerצ by turning the power off and on.צ$Wxx( & & & & & &! #5:IDRECORD!!!vצ#5:STATUSRECORDvk vv< #5:BFRECORDSxxȡ!x<<xx<4 INIצMMMcצ NONE ENTERED NONE ENTEREDתkplut        xxȡ䩉xQMAKEPTD2 JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECNH(HMHJHIH`PN@9532.-'%# p:|0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS WRITE-PROTECTEDuצDRIVE SPEED IS TOO SLOWLDRIVE SPEED IS TOO FAST#'4 qJ "Gp"hIhJhhhhh )Khh LhhNxL K =M966NOW FORMATTING DISKETTE...0A91)! 71 1+%ˡצERROR: צUNABLE TO FORMAT DISKDISK IS" ˫6 á= UNIT NUMBER   IS NOT ONLINE.  é ń ȄצDESTROY DIRECTORY OF   : :ȡ    ? 99@@9"ˡ#19:formatter.data"ˡצ#20:formatter.data"ˡ>&ERROR: CANNOT FIND FILE FORMATTER.DATA   "FORMAT WHICH DISK (4, 5, 9..12) ? 8808 er.data"ˡצ#12:formatter.data"ˡ#13:formatter.data"ˡצ#14:formatter.data"ˡ#15:formatter.data"ˡצ#16:formatter.data"ˡ#17:formatter.data"ˡצ#18:formatter.data xץ:צ)APPLE PASCAL DISK FORMATTER PROGRAM [1.2]=צ#4:formatter.data"ˡצ#5:formatter.data"ˡצ#9:formatter.data"ˡצ#10:formatter.data"ˡ#11:formatthen the Master System Menu appears,צ&select PATIENT IDENTIFICATION to enterצ&the patient name and other identifyingצ%information. This may be done now or at a later time.צ&If you want to make-up another Patientצ Disk at this time, press RETURN.( #5:BFRECORDSתP(CR \7 ^<rצ QUESTIONNAIRE MENU #צ QUESTIONNAIRES # STRESS AUDITת(צHEADACHE QUESTIONNAIRE( MASTER MENUת(ѳACK APPLICATIONS MENU ת# BIOFEEDBACK TRAINING ת#צCARDIOVASCULAR (NEUROMUSCULAR ת(צELECTRODERMAL (RECORDSת( MASTER MENUת(ѳ(`T #5:STARTPGתPh #5:STARTATION INTERFACE(צ MASTER MENU(ѳ, k #5:MPSASETUPתP #5:SETUDPSAתPoצ #5:PPRECORDSPYצ #5:STRESSMONPCצ #5:STARTGIP/BU(r % gS& BIOFEEDB PHYSIOLOGICAL MONITORING MENU ת# PHYSIOLOGICAL MONITORING ת#צBRIEF STRESS PROFILE (PSA)(USER DEFINED PROFILE (UDPSA)ת(צREVIEW PROFILE RESULTS(STRESS MONITORת(צ!GENERAL INSTRUMENhe Drive Door and Press RETURN.צ&--------------------------------------צ$YOU MAY RETURN TO THE MASTER MENU BYצ PRESSING "M"Í k vޢ̶ * * DISK PROMPT * *צPlace the Disk labeled:  In Drive #2.&Close tצ In Drive #2.צ&Close the Drive Door and Press RETURN.|آڤ á Cá>آآ*Í k vޢ̶ * * DISK PROMPT * *# THERE IS NO DISK IN DRIVE #2 צPlace the Disk labled:צ  NEWMENU NODMESSAWRONGDME JANVONE MOMENT PLEASE ... צ#4:MAKEPTD1.CODE<v! !>Xצ%information. This may be done now or at a later time. MASTER MENUת(ѳ < #5:BPENTRYתP\ #5:WEIGHTתPIצ #5:NICOTINEP4BW,D  "?&(*Z< PATIENT IDENTIFICATION ת#צ BIOFEEDBACK#IDENTIFYING INFORMATIONת( MASTER MENUת(ѳ" #5:IDINFOתP IIEXTENDED FEATURES ACCESSת#צ EXTENDED FEATURES #צEXTENDED FEATURES MENU( MASTER MENUת(ѳ in of approximately one and$one half inches depending on how the%paper has been feed into the printer.צ& You may choose to change this value.צ(Note that you will have to re to remove software controlצof the print type? [Y/N]: &YÝyÍ.r& The left hand margin is normally set&to be indented 11 spaces, which should&give a marg#below allows you to bypass softwareצ'control of the print type. You may wish&to contact Biobehavioral Associates or%Davicon before selecting this option.צ&Do you wishAC uses a non-Appleצ#printer and the reports sent to the$printer do not appear to be printing%properly, your printer may not acceptצ%this software instruction. The option( Apple printers (Apple DMP, Imagewriter$I and II) use the character sequence&ESC E (decimal CHR(27),CHR(69)) to set'the printer to elite type through soft-צ$ware. If your MED|SETPRINT צ%Press one of the highlighted letters above to make your selection.(Ѽp#Please try again. Press one of the צ"letters above to make a selection.(ڡi Z  Má  ˡ&jVv@h$fj   צ%Press one of the highlighted letters above to make your selection.(Ѽp#Please try again. Press one of the צ"letters above to makeצ #5:STRESSED"á צENTER DISPLAY צ%MEDAC 2000 - STRESS MANAGEMENT SYSTEM(ȡX  Pƃ̄"Ƅ"צ#5:Ƅ"ƃSƄ"P̄"Ƅ"PƄ"צ.CODEUƄ"ƃ̄!ʃ̃ʄ!A)MÝ ÍÍMÝÍ ʄ!(K :  С  ONE MOMENT PLEASE ... DED FEATURES (ѳ4  ?;73/+ 'BQ  !!?9P ̄!̃ƃ P"ˡ")"áʃNʄ!ʃM ɡƃʃM#5:CMENUתP EEצ MASTER SYSTEM MENU #PHYSIOLOGICAL MONITORING ת(BIOFEEDBACK TRAININGת(צQUESTIONNAIRES(DATA CHARTING ת(צIDENTIFYING INFORMATION(צEXTEN-initializeצ&(erase) a Patient Record disk any timeצ you wish to change this setting.צ&Do you wish to change to standard leftצmargin setting? [Y/N]: &YÝyÍ$Enter the number of spaces to indent"for left margin and press RETURN: P--ɡ - P-š0,-,ȡ#Pצ QP,,.P5T l.Z*it is%very easy to accidently damage a diskצ#and leave your system inoperable ifa back up is not available.צ$Do you wish to make a back-up set atצthis tiou should make at least one set ofצ#back up copies of your MEDAC System%Disks before using the system. Systemצ%Disks can be expected to last several&years under normal use. However, election.($PPP{PuPoPiCsb ? 3$&(*,.02468:<>@YDFHJLNPRTyXZ\^`m/3" Zצ DUPLICATING SYSTEM DISKS % Y of the highlighted lettersabove to make your selection.(f  oצ"Please try again. Press one of theצ"letters above to make a s MAKE NEW PATIENT DISK C COPY A MEDAC SYSTEM DISKצ Sצ SET PRINTER CONFIGURATION$Press oneצ& MEDAC 2000 - STRESS MANAGEMENT SYSTEMצRelease 9.1 Copyright 1986צ MASTER UTILITY DISK צSELECT AN OPTION: Mצ NAME: آ צ THERAPIST: צ SSNUMBER: آ צ BIRTH DATE: أ -آ-أ WMAKEPTD1  6 "ء HPKצExecuteצ what f.צ#4:PRINTER.DATA.. תP SET PRINTER CONFIGURATION ..צONE MOMENT PLEASE ... צ#4:MAKEPTD1.CODE.D$* number of spaces to indent"for left margin and press RETURN: P--ɡ - P-š0,-,ȡ#Pצ QP,,.P5T l.Z*.צ#4:PRINTER.DATA.. תP SET PRINTER CONFIGURATION ..צONE MOMENT PLEASE ... צ#4:MAKEPTD1.CODE.me? [Y/N]: YÝyÍצ #4:FORM.CODEצ#4:MAKEPTD1.CODEONE MOMENT PLEASE ... צ& MEDAC 2000 - STRESS MANAGEMENT SYSTEMצ MAKE A NEW PATIENT DISK צ' This program is used for initializing%new Patient Record Disks for use withצthe MEDAC 2000 System.צ( Since the initialization process takesצ&approximately 2 m%XFORMATTER.CODE 5 Y X#4:FORM.CODE %% " Place another disk in DRIVE #2. צ! Press SPACE BAR when completed. Yár  ~/PINITIALIZATION STARTING ... (צ EXEC/#4:BUILDUQצONE MOMENT PLEASE ... #4:SETPRINT.CODE QO&)*.oe8>4* V צOVER THIS DISK? [Y/N]: &Yˡbצ" Place another disk in DRIVE #2. צ! Press SPACE BAR when completed. Yár  ~/PINITIALIZATION STARTING ... (צ EXEC/#4:BUILDUQצONERECORD"á!THE DISK IN DRIVE #2 CONTAINS THEצ#FOLLOWING IDENTIFYING INFORMATION: #ARE YOU SURE THAT YOU WISH TO WRITEצOVER THIS DISK? [Y/N]: &Yˡbצ, and youצ$will be able to watch them appear onצthe computer screen.Press  SPACE BARצ when ready to begin: & lYצ #5:ID" The initialization process takes$approximately 2 minutes. The various'steps involved in formatting, transfer-צ$ing files, and creating record filesצ$have been automated for youISK THAT YOU WISH TO ERASE.' Disks may be labeled either 5 inch orצ#5 and 1/4 inches, Single or Double $Density, and either Single or DoubleSided.צPress צ SPACE BAR for instructions. & צ PLACE A DISK IN DRIVE #2 & THE DISK MAY BE EITHER NEW OR AN OLD$PATIENT Dinutes per disk, mostצ&users find it convenient to initializeצ$several disks at a time so that theyצ%have disks available and ready to use(whenever a new patient starts treatment.צmove on to the copying process.SELECT AN OPTION:צ Fצ FORMAT A DISKצ Cצ COPY Asצ(on both sides, you will need 2 disks forצ&every MEDAC disk. It is generally bestצ(to format all the disks you will need atצ(the same time. After formatting, you canצ DISK COPY PROGRAM צ& Copying disks is a two step process.צ&The first consists of formatting blankצ&or old disks that may be written over.צ&If your MEDAC system disks have lable| FORM %F %% MEDAC SYSTEM DISK M MASTER UTILITY MENUצ$Press one of the highlighted lettersצabove to make your selection.(H H oצ"Please try again. Press one of theצ"letters above to make a selection.(vqlgb]CmV+ % "$&(*,.02 %X#4:FORMATTER.CODE 5 Y F T#4: #5: YY C#5:,PTDISK: R#5:BUILD.TEXT YR#5:MAKEPTD1.CODE YR#5:MAKEPTD2.CODE YR#5:UTMENU.CODE YR#5:COPY.CODE YR#5:FORMATTER.= YR#5:SYSTEM.FILER YR#5:SETPRINT.CODE YC#5:PTSTART.CODE,#5:SYSTEM.STARTUP YK#5: YQ X#4:MAKEPTD2.CODE %% 7צ" for each copy you wish to make.Begin copy process? [Y/N]: <jצEXEC/#4:DOFORMbצ#4:MAKEPTD1.CODEYÝyÍEXEC/#4:DOFILER&צ#4:MAKEPTD1.CODEr^$&צONE MOMENT PLEASE ... ?Jppedצ% going on and off, remove the disks% and repeat steps 1 and 3 through 7צ" for each copy you wish to make.Begin copy process? [Y/N]: <jצEXEC/#4:DOFORMbצ#4:MAKEPTD1.CODEYÝyÍEXEC/#4:DOFILER&צ#4:MAKEPTD1.CODE$6. Press #5 and RETURN. (Include #.)7. Press Y and then Y again.#8. Once the red lights have stoppedצ% going on and off, remove the disks% and repeat steps 1 and 3 throughצ word Filer to appear.צ$3. Place the disk you wish to make aצ copy of in Drive #1.4. Press T for Transfer.$5. Press #4 and RETURN. (Include #.)rint button and RETURN.צ&1. Place a formatted disk in Drive #2.צ$2. Press Y in response to the "Beginצ$ copy process?" prompt below. Thisצ" screen will erase. Wait for the468:<>@VDFfJLNPRT`" D' Unless you are familiar with the copyצ(process, it is recommended that you makeצ(a copy of these instructions by pressingצ the red p PTSTART  PTSTART nÝyÍ듡ONE MOMENT PLEASE ... 4 6   DATE.DATA       צ #4:MMENU.CODE )B.ncNT צ!IS THIS THE CORRECT DATE? [Y/N]: YÝyÍnÝyÍ듡ONE MOMENT PLEASE ... 4 6   DATE.DATA       , Inc.for use with the MEDAC 2000    19 צ!IS THIS THE CORRECT DATE? [Y/N]: YÝyÍAGEMENT SYSTEM + Software Release 9.1.1Copyright 1985by Biobehavioral AssociatesצLicensed to Daviconax+ צ+ WELCOME TO THE MEDAC 2000 + צ+ STRESS MANP Ʉצ    19 צ!IS THIS THE CORRECT DATE? [Y/N]: YáצMONTH {ex. JAN}: P CCȡ  צ%Please enter the date below and pressthe RETURN key.צDAY {ex. 31}: YEAR {ex. 85}: PdɄc  צ Is the month צ ? [Y/N]: Ná&Please enter the month below and pressthe RETURN key. צDECצ' MEDAC 2000 - UPDATING SYSTEM CALENDAR  Is the year   ? [Y/N]: Náצ&Please enter the year below and press צthe RETURN key.(Yá& JANת צFEB MARת צAPR MAYת צJUN JULת צAUG  SEPת  צOCT  NOVת צ Please press the  CAPS LOCKצ key down,i.e. to the CAPS position.צ Then press Y to move on.צ Please press the  CAPS LOCKצ key down,i.e. to the CAPS position.צ Then press Y to move on.nÝyÍ듡ONE MOMENT PLEASE ... 4 6   DATE.DATA       צ #4:MMENU.CODE )B.ncNT צ!IS THIS THE CORRECT DATE? [Y/N]: YÝyÍnÝyÍ듡ONE MOMENT PLEASE ... 4 6   DATE.DATA       , Inc.for use with the MEDAC 2000    19 צ!IS THIS THE CORRECT DATE? [Y/N]: YÝyÍAGEMENT SYSTEM + Software Release 9.1.1Copyright 1985by Biobehavioral AssociatesצLicensed to Daviconax+ צ+ WELCOME TO THE MEDAC 2000 + צ+ STRESS MANP Ʉצ    19 צ!IS THIS THE CORRECT DATE? [Y/N]: YáצMONTH {ex. JAN}: P CCȡ  צ%Please enter the date below and pressthe RETURN key.צDAY {ex. 31}: YEAR {ex. 85}: PdɄc  צ Is the month צ ? [Y/N]: Ná&Please enter the month below and pressthe RETURN key. צDECצ' MEDAC 2000 - UPDATING SYSTEM CALENDAR  Is the year   ? [Y/N]: Náצ&Please enter the year below and press צthe RETURN key.(Yá& JANת צFEB MARת צAPR MAYת צJUN JULת צAUG  SEPת  צOCT  NOVת %XFORMATTER.CODE 5 Y F T#4: #5: YY C#5:,PTDISK: R#5:BUILD.TEXT YR#5:FORM.CODE YR#5:DOFORM.TEXT YR#5:DOFILER.TEXT YR#5:MAKEPTD1.CODE YR#5:MAKEPTD2.CODE YR#5:FORMATTER.= YR#5:SYSTEM.FILER YR#5:SETPRINT.CODE YC#5:PTSTART.CODE,#5:SYSTEM.STARTUP YK#5: YQ X#4:MצPress צ SPACE BAR for instructions. & צ PLACE A DISK IN DRIVE #2 & THE DISK MAY BE EITHER NEW OR AN OLD$PATIENT Dinutes per disk, mostצ&users find it convenient to initializeצ$several disks at a time so that theyצ%have disks available and ready to use(whenever a new patient starts treatment.צ' This program is used for initializing%new Patient Record Disks for use withצthe MEDAC 2000 System.צ( Since the initialization process takesצ&approximately 2 mme? [Y/N]: YÝyÍצ #4:FORM.CODEצ#4:MAKEPTD1.CODEONE MOMENT PLEASE ... צ& MEDAC 2000 - STRESS MANAGEMENT SYSTEMצ MAKE A NEW PATIENT DISK it is%very easy to accidently damage a diskצ#and leave your system inoperable ifa back up is not available.צ$Do you wish to make a back-up set atצthis tiou should make at least one set ofצ#back up copies of your MEDAC System%Disks before using the system. Systemצ%Disks can be expected to last several&years under normal use. However, election.($PPP{PuPoPiCsb ? 3$&(*,.02468:<>@YDFHJLNPRTyXZ\^`m/3" Zצ DUPLICATING SYSTEM DISKS % Y of the highlighted lettersabove to make your selection.(f  oצ"Please try again. Press one of theצ"letters above to make a s MAKE NEW PATIENT DISK C COPY A MEDAC SYSTEM DISKצ Sצ SET PRINTER CONFIGURATION$Press oneצ& MEDAC 2000 - STRESS MANAGEMENT SYSTEMצRelease 9.1 Copyright 1986צ MASTER UTILITY DISK צSELECT AN OPTION: Mצ NAME: آ צ THERAPIST: צ SSNUMBER: آ צ BIRTH DATE: أ -آ-أ AKEPTD2.CODE %% ISK THAT YOU WISH TO ERASE.' Disks may be labeled either 5 inch orצ#5 and 1/4 inches, Single or Double $Density, and either Single or DoubleSided." The initialization process takes$approximately 2 minutes. The various'steps involved in formatting, transfer-צ$ing files, and creating record filesצ$have been automated for you" Place another disk in DRIVE #2. צ! Press SPACE BAR when completed. Yár  ~/PINITIALIZATION STARTING ... (צ EXEC/#4:BUILDUQצONE MOMENT PLEASE ... #4:SETPRINT.CODE QO&)*.oe8>4* V צOVER THIS DISK? [Y/N]: &Yˡbצ" Place another disk in DRIVE #2. צ! Press SPACE BAR when completed. Yár  ~/PINITIALIZATION STARTING ... (צ EXEC/#4:BUILDUQצONERECORD"á!THE DISK IN DRIVE #2 CONTAINS THEצ#FOLLOWING IDENTIFYING INFORMATION: #ARE YOU SURE THAT YOU WISH TO WRITEצOVER THIS DISK? [Y/N]: &Yˡbצ, and youצ$will be able to watch them appear onצthe computer screen.Press  SPACE BARצ when ready to begin: & lYצ #5:ID