`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLј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`ߠ ߮ 1MENUITEMS.DATAg USER.EXP.SPECvgd1 LEAP.EXP.SPECvgd1 THRM10K.TBLvg PV100.TBLr=vg0 PR100.TBLr=vg EXPERIMENT.DATAlVOMGRAF.CODEvgMENUITEMS.DATALEAP01& SYSTEM.APPLEvg&O SYSTEM.PASCALvgiOQSYSTEM.CHARSETgQRSYSTEM.MISCINFOERySYSTEM.LIBRARYg1y|SYSTEM.STARTUPg| VOMBMENU.CODEvg1 VOMGRAF.CODEvg1 MENUSTD.DATAvg&꽌ɪɖ'*&%&,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|Հ؈䤨谴T}iU･~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|i h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥ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żQHPH ~P~ȱP~~P꽥QLSҠ RhPhQLE RR8tSut\ȱt]X i RHLfRtȱRuVt tVuWRTȱRU｠RXȱRYRRR콆SLSҠ8|}`|ȱ|L8||tȥ}|utetȱtet|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| 4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYe  Íáɡ 럚肚X  šš  ġš  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡUĄ쓡"á  :"ë á 쓡ת$ (   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: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š 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  .*3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO8FNo 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&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36% "ˡ$צ 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???ת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&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :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צ$צ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:(š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š7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث 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-initializedSȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá  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,z36>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  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??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !<5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "ƅ|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ʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  * عteVG8  )  T uh[NA4'á +-ÍG BBGBGGB%COPYRIGHT QUANTUM TECHNOLOGY MAY 1982   !6 LONGINTIPASCALIOCHAINSTUTRANSCENSHORTGRASHORTGRAAPPLESTU VOMUNIT VOMUNIT   (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SY.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? :L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n  ' "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 "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 cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what t$ $ ݞ$'  ՙ,  , й&&a)bb:-#'L o-W3ZF5",(e9G:oMTXYoĭ) >UU^s{u ǎU- Ȣ9  Fɡ  -ݑ š 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 ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTTtI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? 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 ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE 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); $PROCE??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)       CONST !HUNMEG=100000000; !  (*SCREEN INFO-X & Y SIZE OF BOX FOR GRAPH, "WIDTH IS X DISTANCE BETWEEN PTS. *)   BLK8=' ';  MAXSCRX = 210;(*MUST BE MULT OF 7*****)  MAXSCRY = 150;  STDVERS='1.1';  SPECLVL='1.1';   (*GENERAL CONST$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIT p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [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&!"   #*)  LOX =0;  HIX=279;  LOY=0;  HIY=191;   TYPE !LONGI8 = INTEGER[8]; !LONGI12= INTEGER[12]; !STRING2 =STRING[ 2]; !STRING8 =STRING[ 8]; !STRING12=STRING[12]; !STRING24=STRING[24]; !STRING6=STRING[6];  SENSREC=RECORD 'S,HH,MM,SS:INTEGER; % RD,DT:LONGI12; $END; (  VAR #CLOKTYPE:CHAR; #MONTH,DATE,HOURS,MINUTES,SECONDS:INTEGER; #YTDSEC:INTEGER[8]; # !DIG4,DIG3,DIG2,DIG1,DIGMD,  DIGREAD,INPFLAG,MULTPLER,DIVISOR,X,Y,  LEAPSLOT,CLOKSLOT,READCODE,ACDCCODE:INTEGER;  READTYPE,DATATYPE:CHá dVÝMÍُ š  RáA"6 0d*"'*&"  VÝMÍA"'4,d&  *$  ܝݝ š0 ҝڭHáÝÍÍÍÝÍÍÍÍ\š *,ȡ!.ɡG >.*,*.šG *.á C?Hq *210/73/ "++š ++f ˡ0NPRTVXZ^`bdfhtt"á ؿá ؿ&*.á3=<;<`GG ;G .->..-ȡ.B  << zvr Tj  "$&(*,.02468:<>@BRFHJL           B           <#V ǀ ȡ0ӝ  á   ޝߝá ާ  ڹJd_;ZZUxPǗIǵB;4-0&N QNKHEB=83.)$x ! š  š   Ýń۹ۭPn  MILLISECONDS AS BINARY INTEGER *)  PROCEDURE ROWSHIFT;  PROCEDURE WRITELEAP(OUTPWORD,OUTPCODE:INTEGER);  PROCEDURE SETDTIME;  PROCEDURE READDISK;  PROCEDURE WRITEDISK;  PROCEDURE SETSLOTS;  PROCEDURE READLEAP(LASTREAD:LONGI12); "  IMPLEMENTATION E SRECOUT:SENSREC;  SFILEIN:FILE OF SENSREC;  SFILEOUT:FILE OF SENSREC;  SIVOLFILE,SOVOLFILE:STRING24;   (*TIME VAR*)  INTERVAL:INTEGER; "  (* THIS PROCEDURE RETURNS (MONTH..SECONDS) ABOVE *)  PROCEDURE READTIME;  (* THIS FUNCTION RETURNS MILLISECONDS AS BINARY INTEGER *)  PROCEDURE ROWSHIFT;  PROCEDURE WRITELEAP(OUTPWORD,OUTPCODE:INTEGER);  PROCEDURE SETDTIME;  PROCEDURE READDISK;  PROCEDURE WRITEDISK;  PROCEDURE SETSLOTS;  PROCEDURE READLEAP(LASTREAD:LONGI12); "  IMPLEMENTATION  SRECIN,SRECOUT:SENSREC;  SFILEIN:FILE OF SENSREC;  SFILEOUT:FILE OF SENSREC;  SIVOLFILE,SOVOLFILE:STRING24;   (*TIME VAR*)  INTERVAL:INTEGER; "  (* THIS PROCEDURE RETURNS (MONTH..SECONDS) ABOVE *)  PROCEDURE READTIME;  (* THIS FUNCTION RETURNSAR;  READING,DATA:LONGI12; LONGI:LONGI12;    (* DISK *)  DS,PREVDS,PREVS,ERRNO,  S,LSTSGMNT,THSSENSR,NXTSENSR:INTEGER; --)vPINTEGER vREAL $|CHAR 6BOOLEAN# á id _d   ōp hh   xyL?xɧɄȑy yLPi(eixаHH`ebaXD?<hhh h ) ) AHH`  9I <HHhh`qo no) Iqojjjj`hebLF>;6&צAAC5צM C M MAMPS DCתצADC5צIR R OHMS תצOHMצ!AMU(W+GRáNá tsrn쫂átAt=VOLTS DCVDCתתM A M MVLTS ACתצVACצM D M MVLTS DCתצVDCצV I AMPS AC תצAAC5צV C צAMPS DC ADCת5תM I M MAMPS ACV عR C צDEG C DGCתTHRM10KתR F DEG F תצDGFצTHRM10KM U PHOTVOLTתצPV צPV100R T צPHOTRES PR תPR100תV A VOLTS ACתצVACצV D צj ͥljͨ2{SPEC SET FILE-WRONG LEVELצTYPE R TO RETRY,A TO ABORTNNAáB/GP $ kM005ͥlצLEAP0:Eצ.SPEC#عͥ2"š&צERRNO= ám DISK FULL- CHANGE SPEC SET VOLPRESS TO CONTINUEN jB@*1VOMBMENU ٥٥ צ VOMBMENU.CODE٪S/L^ !jpTANDARD FILE. ̦ *MENUSTD.DATAתLáLGLá) FLxG Qá צWELCOME TO THEBASIC !LEAP-SYSTEM FOR SCIENCE EDUCATION"COPYRIGHT QUANTUM TECHNOLOGY, INC.צMAY 1982AND MENU.&THEN X)ECUTE VOMMENU FROM YOUR PROGRAM VOLUME TO BUILD A STANDARD FILE. ̦ *MENUSTD.DATAתLáLGLá) FLxG͞"á צ VOLFILE = צ IORESULT =  ^NO VOLUME FOR : NO FILE FOR  f8$ENTER ANY KEY TO GO TO COMMB@jVOMSTART # s < 2 P8rTá id _d   ōp j x " vDá l 5 Tlá eNˡ#  /  š  ɡ   𥂯 M0k0>Q9UáLIMITS FOR GRAPH ON MONITOR IF DECIMALS ARE ENTERED, 99999.999 IS MAX NUMBER ALLOWED,OTHERWISE 99999999 IS MAXIMUM.צENTER GRAPH LIMITSצ MIN:MAXD{wÄ.ץ A.RUN TEMPERATURE EXPERIMENTS B.RUN LIGHT EXPERIMENTS C.RUN DC ELECTRICAL EXPERIMENTS L.RUN LAB PAC EXPERIMENTS U.RUN OR SETUP UR e7ENTER R TO RETRY,A TO ABORTצ S TO BUILD/CHANGE STD-FILENN NAá  V צBASIC LEAPMENU,B K&"á Ry  VOLFILE = R IORESULT =  ^צNO VOLUME FOR R9צ NO FILE FOR -+-ץ++צ.+ġ@++ "++0ץ++ +0ץ++v> 4 ت( (R FIELD TYPE-REENTER{sws < Uá  Dá  צ + +ɡ%ޕ ++(Máġ2+Ƴ *Dá`צ צ 0 ƀƀ$ :á0 ƀƀ$ Xˡ?#INVALID ENTRY Oss0  s㥏sk0 f{wáYUȡáXSá٪ sDá.á .  .  ɡ+צDEC ERR-REENTERɡ 0  צ-á   ġI⛾YNdá4צINVALID RESPONSE- PLEASE RETRYNNáN áN YUNs" ~Y@N@J@ IS THIS OKAY?צ&N.NO, RETURN TO MAIN MENU TO CHANGE TOצ LEAPMATE INPUT.צ(Y.YES, FOR THIS RUN, DISK INPUT IS OKAY.צENTER N OR Y (Y)PRESS ANY KEY FOR MENUNlE צ.SPEC%ͥl"á ͨ2&ZDáDISK INPUT STATUS CHECK &THE SYSTEM HAS BEEN SET TO DISK INPUT.NTER SLOT # FOR LEAP (X)XN0ҥצLEAPMATE IN SLOT X DISK FILEת 8""š| IORESULT= 8צ NOT AVAILABLE.- DצSET INPUT FILE ͫJL.INPUT FROM LEAPMATE.D.INPUT FROM DISK.ENTER L OR D (J)JNͩNDˡáX*X Eæ.ץÄ?V{{ ww  M{w ǿ9'ǖ SER EXPERIMENTצ& X.CHANGE THE INPUT (LEAPMATE OR DISK)!COPYRIGHT QUANTUM TECHNOLOGY INC.MAY 1982צTYPE THE LETTER OF YOUR CHOICE TT"z"INVALID ENTRY (IS CAPS LOCK DOWN?)TYPE THE LETTER OF YOUR CHOICE T Ej9PPȡ  KתP M- dHRENHEIT 40:100! K.FAHRENHEIT FAHRENHEIT 20:220צ! L.FAHRENHEIT PHOTO CELL 0:100 U.RUN OR SETUP USER EXPERIMENTצ Q.QUIT, RETURN TO MAIN MENU%"20צ# F.CELSIUS OHMS 0:36000# G.FAHRENHEIT OHMS 0:36000צ! H.FAHRENHEIT - 40:100! I.FAHRENHEIT - 20:220צ! J.FAHRENHEIT FAצ A.CELSIUS - 15:35צ! B.CELSIUS - 0:100! C.CELSIUS CELSIUS 0:100צ! D.CELSIUS CELSIUS -40:120! E.CELSIUS FAHRENHEIT 0:2BNVrBBV(dWBBV:BCVdALzaH/lS8#  צTEMPERATURE EXPERIMENTS % INPUT 1 INPUT 2 GRAPH RANGESANV#ANVdAAVdAAV(xABVAMV BMV BNV(dU;צUSER.EXPPNOXT צSPEC TABLE ERROR: BEG >= ENDצCHOICE1=T CHOICE2=SVá V M{wSTION:š M0&NONEצ GRAPH LIMITS ^DO YOU WANT TO RUN IT? (Y)NYá NOXTNNMENU.ANN(~EUSER.EXPתGTHE LAST EXPERIMENT BUILT WAS צ INPUT 1צ DESCRIPTION:M0&צ INPUT 2צ DESCRIP(AAC)( H.MVOLTS-DC (VDC) L.MILLIAMPS-DC (ADC) M.RESISTANCE (OHM)áI%צN.NO SENSOR IN INPUT 2%?צQ.QUIT, RETURN TO MAIN ( D.PHOTORESISTOR 0=DARK,100=BRIGHT (PR )ELECTRICAL MEASUREMENT# E.VOLTS-AC (VAC) I.AMPS-AC (AAC)צ# F.VOLTS-DC (VDC) J.AMPS-DC (ADC)( G.MVOLTS-AC (VAC) K.MILLIAMPS-AC PY צTEMPERATURE MEASUREMENT A.CELSIUS TEMPERATURE (DGC) B.FAHRENHEIT TEMPERATURE (DGF)צLIGHT MEASUREMENT$ C.PHOTOCELL 0=DARK,100=BRIGHT (PV ) (X~ ANN%;צ"INVALID ENTRY (IS CAPS LOCK DOWN?)TYPE THE LETTER OF YOUR CHOICE NN% ! Y%CHOOSE TYPE OF MEASUREMENT FOR INPUT %!' MEMAVAIL=( צ TOPHEAP=  BOT STACK=(؂   + á ++  + á ++ ^ צ(  :  צ)yLEAP0:MENUSTD.DATAתyi áGLá<X LEAPMATE IN SLOT Xצ DISK FILEvi yGiB NNMá  צNSN!NUáUT!EצLEAP.EXPG#S;TEMP.# PNO!צLIGHT EXPERIMENTS ( INPUT 1 INPUT 2 GRAPH RANGE& A.PHOTOCELL - 0:100& B.PHOTORESISTOR - 0:100& C.PHOTOCELL PHOTORESISTOR 0:100& D.CELCIUS PHOTOCELL 0:100& E.CELCIUS PHOTORESISTOR 0:100& F. /YáFǭ? S R D P Oת צ S  CURRENT MINIMUM MAXIMUM 8"MIN/TIME NUM MAX/TIME NUM S/C((ȡj(XX(ȡ SBBB B B B B BBBBBBBBQ*,X ` BDVOMGRAF MEMO READCH2 READCH RESETDISDRAWBOX MEMA GETMENU PROCSNSRLOADTBL HOUSKEEPGETSENSRREADCH1 READCH3 RINITIAL vz"@   DN6%D%&''F)+|/N<^ ! #>x$$$$H$$򥏛ͥ2"GYOOYáA=# T$!W"S#O$KG 7AX0+)' 5 7$&(*,.ITUáONá NNáYOE22B/2E2E8222 VOMGRAF.CODE2  LOADING GRAPH PROGRAM8:2(yh "$&(*,.0U# ;צEXP.#PNO4p d$򥏛ͥ2"GYOOYáA=# T$!W"S#O$KAAV(AAV 2AAV 2AAV 2AAVANVFANV 2AdHLMǠWHNMX#PNO.E #צ BASIC SYSTEM LAB PAC EXPERIMENTS ASENTER EXPERIMENT NUMBER צ FOR MAIN MENU.Uá${!ÄELEAP.EXPתGANV(NMMNV@dMNV NjHLM@MFJV 2LNMǠAGdI0#S;DC. - 0:0.160צ U.RUN OR SETUP USER EXPERIMENT Q.QUIT, RETURN TO MAIN MENU%"NSN#NUáUT#EצLEAP.EXPGSHNMXHצ& C.OHMS - 0:800000צ( D.OHMS - 0:20000000צ% E.MILLIVOLTS MILLIAMPS 0:1.600" F.VOLTS AMPS 0:12% G.MILLIAMPS ;LIGHT.#PNO0G "צDC ELECTRICAL EXPERIMENTS % INPUT 1 INPUT 2 GRAPH RANGEצ% A.MILLIVOLTS - 0:0.600% B.MILLIVOLTS - 0:1.000"NUáUT"EצLEAP.EXPGSCNVdDNVdCDVdACVdfADVdKBCVx0BDVxAGy`G.#SFAHRENHEIT PHOTOCELL 0:120& G.FAHRENHEIT PHOTORESISTOR 0:120 U.RUN OR SETUP USER EXPERIMENTצ Q.QUIT, RETURN TO MAIN MENU%"NSN0(%(ȡC0(񕫀 O0(핫 i p o n mצ  pI˩ y v   u  0 ((j*XX READING #t צ AT DGƆ_ƇGƁ-2 82Ɔ_צ *MENUSTD.DATAƈʆ_GƆ_ƈ1.1׷צVERS=ƈSTD FILE INVALIDTYPE R TO RETRY,A TO ABORT55AáQ5צ1.1ƈ55Má 4 55 ˡA(ONLY M AND RTN ARE VALID RESPONSES-RETRY5 áˡ    {ši DISK ERRORתMEMO : id MáM U 㥁 CURDATA=`WORD14= צ WORD15= צ MEMAVAIL=( צTOPHEAP= צ BOT STACK=(ق  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ši DISK ERRORתMEMO : i "šQ *ERROR NO  *PRESS RESET IF FATAL iתعmiSLOT STATUS CHECKתi ACTION KEY Mתiצ CLOCK ERRORiצDISK EOFa i LEAP ERRORתbu e DATATYPE=MREADING=`MצDATA=`F  TYPE= CARD=ACTIVE OVERRIDES:v2Wá צON OFFתצ WAIT STATUS           DIGREAD= צ READTYPE== SLOT=  PLEX1=צ PLEX2= CLOCK: SLOT=  TYPE= CARD=ACTIVE OVERRIDES:aágצEOFDY>..*j*XX 4Má`1QáQ5 dáצ SPEC SET:S=*  DS=.  LEAP:LEAPDISK START#&P `ӥʼǷ`ȡTáá  šYéYÍצINTERVAL<<   ɡצ0  :μƼ`ӥʼǷ`ȡTááǭ?ǿǿӥƼ`μƼ`μƼ`%>$  i p o n mצ  pI˩ y)ƈƈƈ ʈ(ʈ'ƇƇߪ /áתƇ̈OƈOƈ ƈOƈOצ.SPECƈOƇب21.1׷צS=ƇצSPEC SET FILE-WRONG LEVELTYPE R TO RETRY,A TO ABORT55AáQ51.1ׯ𩀓6)ѥΩ ʩ ƩӥšG/D/ȡ4* SENSOR   *ȡ>*񕫀穀 צ CALC   <*핫穀 צOUTPUT   á צ * jTá.ꥁۡુȡ"ȡ"#*)*ȡ襁j*XX*צ NN*.   1N 4 2 3N7PPȡ 7  .ȡ<ȡ$ʀ᥆ߩǠšDƁצ NOT LOADED-NOT ENOUGH ROOM.᫁ߚુᩁ́ީʁȡ&ƀ⩁ǠʀƀƀB ́ޝʁȡ $ Ɓ́ƁޥƁޥƁަ.TBLƁުƀƁ"++š3Ɓ NOT FOUND.ʀ᥆ߩǠšDƁצ NOT LOADED-NOT ENOUGH ROOM.᫁ߚુᩁ́ީʁȡ&ƀ⩁ǠʀƀƀƀƁá.́ޝʁȡ $ Ɓ́ƁޥƁޥƁަ.TBLƁުƀƁ"++š3Ɓ NOT FOUND.@  sspRéoCéoFÍYܩ*XjX** 0#s*0"r*0!qwtvuצ צ צ צ צ צ *0&jTá*0+4*0+*0,j*0 ~*0z*0*0%y*0$x*0#s*0"r*0!qwtNĩG:9g񩀓f𩀓e懲쩀*)*ȡ*0p*0o*0n*0m*0l*0k*0ʈ#-vתʈ&*á 7ʈ&v LEAPDISK,תʈ+á # -ʈ+ v̈OƈOvƈOצ LEAPSLOT,!ƈOʈ%*á%ک$ [6ʈ%ʈ* ʈ$v̈OƈOvƈOצCLOCK,ƈO Ý ÍDÍNڥvá vNONEת vv'𩀓&Ɔ_#XX 51.1ׯ𩀓6)ѥΩ ʩ ƩӥšG/D/ʈ#-vתʈ&*á 7ʈ&v LEAPDISK,תʈ+á # -ʈ+ v̈OƈOvƈOצ LEAPSLOT,!ƈOʈ%*á%ک$ [6ʈ%ʈ* ʈ$v̈OƈOvƈOצCLOCK,ƈO Ý Ír߫q*XjX** ȡ55Má@!f AK-_'#*)*ȡ襁j*XX*6ENTER S-SENSOR,C-CALC 5S55SáSENSORת!5CáצCALCצENTER צ NO..š 0(š ("++ ˡצ REMOVE OLD צ?(N)55Yá{צARE YOU SURE YOU WANT T0צ DESTROY OLD ?(N)55Yˡ +š V FILE NAME IS  OK? (Y)5Y55Ná תáDENTER DISK OUTPUT FILE NAME  u!DISK OUT IS STARTED, STOP IT? (N)55YáYá N צ"DISK OUT IS STOPPED, START IT? (N)55YáYá šš:קVOM  MENUצG/  RETURNING TO MAIN MENU I2Wá 2W29?W2 X "$P(*,.0G=T, NOTE. F,M,S, AND W ARE TOGGLES.%PRESS ANY KEY TO CONTINUE PROCESSING.5 4Má 4M4 쓡EצDO YOU WANT TO QUIT THIS RUN?5Y55Yáž!Yá GYá צצP.PLOT CODE CHANGEצ Q.QUIT RUNצR.REINITIALIZEצS.START/STOP DISK OUTPUTצW.WAIT AFTER EACH READINGNOTE. F,M,S, AND W ARE TOGGLES.5   HELP MENUצC.CLEAR MIN/MAXD.DETAIL PAGE DISPLAYצF.FAST GRAPHINGG.GRAPH SCREEN DISPLAY M.MEMO SCREEN5áD/  #WARNING!! ALL DATA READ ON THIS RUNצ$WILL BE DESTROYED IF YOU ANSWER YES.צ'REINITIALIZE SENSORS, DISK AND SCREEN?33YáR3 B2Wá 2W22CW*i  "$&(@6*A<צ%ENTER P-PLOT,D-DISPLAY,B-BOTH,N-NONE 55@V(X5(X5áD/  #WARNING!! ALL DATA READ ON THIS RUNצ$WILL BE DESTROYED IF YOU ANSWER YES.צ'REINITIALIZE SENSORS, DISK AND SCREEN?33YáR3 B2Wá 2W22CW* YáNҹYҹ צCHANGE PLOTCODEצ%ENTER P-PLOT,D-DISPLAY,B-BOTH,N-NONE 55@V(X5(Xdc 5/ 쩀š5/[  NO SENSORS CODED FOR PLOTTING. ȡ  쩆Lác צ!REQUEST ONLY VALID FOR DISK INPUT ȡ 5 צ CLEAR MIN/MAXצENTER X-MAX,N-MIN,B-BOTH 55Bé5NÍI(X '''5Bé5XÍI(X'''0((ŝ(ɍ5Cá ((:55Má@!f AK-_'#*)*ȡ襁j*XX*YtNO SENSORS CODED DISK OUTצDISK START IGNOREDȡ Ϲ  צREINITIALIZE? (N)55YáR5 CLh\"555.YáEQYáE?:5AW. 9 ?$S,3G(*6aEáWY #INVALID REQUEST AT EOF-PRESS RETURN5   u  0  READING #t 0צ AT צ q Lá$ꩀ邩肝  4s*񕫀 O0*핫 i   n m צ Iˡy  v   MAX   u   CUR   t vɝ*Ä넡 **ȡ S0*%*ȡC0  READING  # צ MIN   v ꍡ $צ  ת$ + $* Yá*é ÄFáYҩn@OÍ3RÍYéYÍ- צ TIME ת+צתצ  תצ :צ:+צ00:00:00Ρ'էΩYéYÍY0 ^á +ON ת +OFFת$צOUT1 +á +ON ת +OFFתצOUT2  `0ץ``m6 "YéDÍDá ɡ  ɡצ0 ɡ0ƭ/ צ ` `ɡ#ޕ `` Máġ/`-`-ץ``צ.`ġ:`` ``צ0``ع''''''} êtvU êtu-FX& g "$S\K"5š~צ:š Vצ FILE NAME IS צ OK? (Y)5Y5++š5  NOT FOUND5NáENTER DISK INPUT FILE NAME OR Q TO QUITQ Q5:קš N5 G"++áY;G *.áNٹY,-.ѩYá GN5š~צ:š Vצ FILE NAME IS צ OK? (Y)5Y5++š5  NOT FOUND5NáENTER DISK INPUT FILE *)*ȡl*X,*X(*X *X$**)*)(š#'XD  Dá YtNO SENSORS CODED DISK OUTצDISK START IGNOREDȡ Ϲ  צREINITIALIZE? (N)55YáR5 CLh\"sšTkCá kRáکX,کX(rrũjT˄TjCá jRá֩X,֩X( qyx~ zá ּDá ڼ     áثث  ()á&'X X ,(''X 'X Yá# š"ɡ j Gs   Yá, Ҽ *)*ȡYáʼ¼Ƽ¥ƼMá¼Ƽ ' wnJw*nBá  w(  өlá'ޥ ^Má'ާ 0ާ  ޼ʼ ¥ʼ¥޼¼ʼ b   l` êFttN X*XjX /Gá Wd@ K' RÝFÄ-  }lMáyxáЫϹȡ@ȡ YéϩÄ   áb*(š#'XD Cá Rá AjTáDáG a D   ޥڼּޥڼּּ 'ޥڼּ ='''Uޥڼּ .CR  f ڼ  ڼڼ ڼ Cáޥڼּ    jTáڼ ~zռh#t8'ુᩁ⩁Ǡ ⩁Ǡޥ⩁Ǡ⩁Ǡ ޥ⩁Ǡ޼ ޼ ⩁Ǡ+'d⩁Ǡ "⩁Ǡ⩁Ǡ ''d  n ' ' $  '  #' ͝'š'  '''( ©sX$©rX$  *   (  (    ́*  j*XXpo+Yáҧ8 0CV(3 G(Q"$&Y*XjX3Rá  2Wá/GénN˄/DÝO˄ 4Má**3 áš 31QáGp{ Olp6l R DtVf*  Yá, Ҽ *)*ȡYá VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL DEG C THRM10K VNNN VOL VNNN VOL VNNN VOLUSER.EXPA . T VNYBCRDEG C THRM10K T VNYBCRS1.1VNYDGC/DGC 'F&' !BqNNNESN010010010010010LYEXPERIMENT.DATASYSTEEXPERIMENT.DATA SYSTE BMUSER.EXPLEAP.EXP*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN*OPEN1.1LEAP0:LEAP0:BESNNYYANNNL*EA*D *  j*XXpo+Yáҧ8 0CV(3 G(Q"$&Y*XjX3Rá  2Wá/GénN˄/DÝO˄ 4Má** VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL  VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL  VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL DEG C THRM10K VNNN VOL VNNN VOL VNNN VOLTEMP.C A . T VNYBCRDEG C THRM10K T VNYBCRS1.1%VNYDGC/DGC 'F&' NNNESN010010010010010LYEXPERIMENT.DATASYSTEEXPERIMENT.DATA SYSTE BM.DATA"Vܡbˡ;ܡdL.L.NULEAPTXT:VOMSPECBLD.CODEz~  "V.DATATD.DATAAzzb<"V.DATATD.DATAATD.DATAhjܡbˡ;ܡ;;;z|b A.DATATD VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL VNNN VOL "V.DATATD.DATAAzzb<"V.DATATD.DATAATD.DATAhjܡbˡ;ܡ;;;z|b A.DATATD.DATA"Vܡbˡ;ܡdL.L.NULEAPTXT:VOMSPECBLD.CODEz~ " 0X" @" 0X " @" 0X` " @ " 0Xp " P"  X" P"  @+! 0V-! @.! 0W00! @2! 0W@4! @5! 0WP7! @9! 0W;! @U0! @! 0Up! @! 0U! @!! 0V"! @$! 0V0&! @(! 0VP)! ! 0T! @! 0T ! @ ! 0T` ! @! 0T! @! 0U! @! 0D/ @R@1  23 @Rp5  %6 @R8 0: @S0! 0! 0S! 0I` 0d @P P'! @P0# p% @Q' t) @QP* W, @R. ޣޣߢ dÍ ' PC  4 PE PI PF t @H   @ E `D  @CpPIqP%9P2eB3PU3rP0@PwBpP6P0XpPgx` PP P%PGPu 0PH`P`07P2pSPY " P"  Y@" P"  Yp" P"  Y" P "  `!" `#"  `0%" `&"  `P(" px*"  `," pt-"  a/" pp1"  a 3" h4"  a@6" cE9& A:& t' Q' p' `' `' pp ' P$ ' pw ' P"' %&  %'& `)& 0+& P,& 0.& @0& 0!2&  %3&  (5&  27& sP& pw& v & P& y`& @& `& 0 & "& 0 $& pp@& h0& t& h& p0& hp & @ & ip & G& q@& X& *% p,% h -% pp/% h01% iP2% hP4% p@6% hp8% i`9% h@;% h@% i% h@% p% h` % ip!% h#% p %% h&% p(% hip% i% i % i % p % h% p % h% p0% h% p@% /$ h0$ p2$ i4$ ip5$ i 7$ iP9$ i0;$ i0% iP% i% sp$ h$ r!$ h #$ r $$ h@&$ q`($ hP)$ q+$ hp-$ p`f $ y $ g$ w$ g $ vp$ g@$ u`$ gp$ t`$ g$ 3# eP5# 07# e8# P:# f$ $ f0$ $ fP$ ` $ `"#  c$# `&# d`'# p)# dp+# p,# d.# p0# e2# pbp# @#  c# P#  c0# P#  cP# `#  cp# `#  d # 8"  a`9" Y;"  a# V#  b# Q#  b0# 8 #  b` # 0# #  `' P7' `' @@' P' @C' P' @Q' P'  v ' @!' #' @%' 1'' @)' b*' @,' p.' @0' p1' @3' `S%+ X'+ S(+ g*+ S,+ u.+ S/+ 1+ S3+ 5+ T6+ + T+ 0+ S+ 0+ T+  %+ S+  7 + S!+ H#+ t+ S+ p+ T+ ` + T + PB + S + @c+ T+ @S)* ** S,* .* S0* %1* S3* @5* S7* V8* S:* * Q* P)* R* @B* R* @U * S"* 0i#* T%*  '* q* G* y* H *  * P * p* Q* p* Q* `C-) H.) D0) T2) E4) W5) E7) Y9) E;) d* F* ) 6) 0") 7)  & ) 7")  1$) 7&) 7') @)) B+) 0)  ) 0 ) " ) 0) 0) 0) 4) 0) 5) 0y1( @2( 4( 06( 8( 09( ;( 0) ) 0) ) ( E( @ !( P#( @ $( U&( @ (( p*( @+( u-( @/( 0 ( @( 0( 0( 0( 0( 0(  !( @(  @( @5' @7' `8' @ :' P)( @ ( PF( @( @`( @ ( @r ( ,X ` BDVOMGRAF MEMO READCH2 READCH RESETDISDRAWBOX MEMA GETMENU PROCSNSRLOADTBL HOUSKEEPGETSENSRREADCH1 READCH3 RINITIAL  "šQ *ERROR NO  *PRESS RESET IF FATAL iתعmiSLOT STATUS CHECKתi ACTION KEY Mתiצ CLOCK ERRORiצDISK EOFa i LEAP ERRORתbu e DATATYPE=MREADING=`MצDATA=`F  TYPE= CARD=ACTIVE OVERRIDES:v2Wá צON OFFתצ WAIT STATUS           DIGREAD= צ READTYPE== SLOT=  PLEX1=צ PLEX2= CLOCK: SLOT=  TYPE= CARD=ACTIVE OVERRIDES:aágצEOFDY>..*j*XX 4Má`1QáQ5 dáצ SPEC SET:S=*  DS=.  LEAP:LEAPDISK START#&P `ӥʼǷ`ȡTáá  šYéYÍצINTERVAL<<   ɡצ0  :μƼ`ӥʼǷ`ȡTááǭ?ǿǿӥƼ`μƼ`μƼ`%>$  i p o n mצ  pI˩ y v   u  0 ((j*XX READING #t צ AT DG0(%(ȡC0(񕫀 O0(핫 i p o n mצ  pI˩ y /YáFǭ? S R D P Oת צ S  CURRENT MINIMUM MAXIMUM 8"MIN/TIME NUM MAX/TIME NUM S/C((ȡj(XX(ȡ SBBB B B B B BBBBBBBBQ* "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ši DISK ERRORתMEMO : id MáM U 㥁 CURDATA=`WORD14= צ WORD15= צ MEMAVAIL=( צTOPHEAP= צ BOT STACK=(ق B ́ޝʁȡ $ Ɓ́ƁޥƁޥƁަ.TBLƁުƀƁ"++š3Ɓ NOT FOUND.ʀ᥆ߩǠšDƁצ NOT LOADED-NOT ENOUGH ROOM.᫁ߚુᩁ́ީʁȡ&ƀ⩁ǠʀƀƀƀƁá.́ޝʁȡ $ Ɓ́ƁޥƁޥƁަ.TBLƁުƀƁ"++š3Ɓ NOT FOUND.@  sspRéoCéoFÍYܩ*XjX** 0#s*0"r*0!qwtvuצ צ צ צ צ צ *0&jTá*0+4*0+*0,j*0 ~*0z*0*0%y*0$x*0#s*0"r*0!qwtNĩG:9g񩀓f𩀓e懲쩀*)*ȡ*0p*0o*0n*0m*0l*0k*0ʈ#-vתʈ&*á 7ʈ&v LEAPDISK,תʈ+á # -ʈ+ v̈OƈOvƈOצ LEAPSLOT,!ƈOʈ%*á%ک$ [6ʈ%ʈ* ʈ$v̈OƈOvƈOצCLOCK,ƈO Ý ÍDÍNڥvá vNONEת vv'𩀓&Ɔ_#XX 51.1ׯ𩀓6)ѥΩ ʩ ƩӥšG/D/ʈ#-vתʈ&*á 7ʈ&v LEAPDISK,תʈ+á # -ʈ+ v̈OƈOvƈOצ LEAPSLOT,!ƈOʈ%*á%ک$ [6ʈ%ʈ* ʈ$v̈OƈOvƈOצCLOCK,ƈO Ý ÍRONG LEVELTYPE R TO RETRY,A TO ABORT55AáQ51.1ׯ𩀓6)ѥΩ ʩ ƩӥšG/D/)ƈƈƈ ʈ(ʈ'ƇƇߪ /áתƇ̈OƈOƈ ƈOƈOצ.SPECƈOƇب21.1׷צS=ƇצSPEC SET FILE-WƆ_ƇGƁ-2 82Ɔ_צ *MENUSTD.DATAƈʆ_GƆ_ƈ1.1׷צVERS=ƈSTD FILE INVALIDTYPE R TO RETRY,A TO ABORT55AáQ5צ1.1ƈ55Má 4 55 ˡA(ONLY M AND RTN ARE VALID RESPONSES-RETRY5 áˡ    {ši DISK ERRORתMEMO : iʀ᥆ߩǠšDƁצ NOT LOADED-NOT ENOUGH ROOM.᫁ߚુᩁ́ީʁȡ&ƀ⩁Ǡʀƀƀצ NN*.   1N 4 2 3N7PPȡ 7  .ȡ<ȡ$%PRESS ANY KEY TO CONTINUE PROCESSING.5 4Má 4M4 쓡EצDO YOU WANT TO QUIT THIS RUN?5Y55Yáž!Yá GYá צצP.PLOT CODE CHANGEצ Q.QUIT RUNצR.REINITIALIZEצS.START/STOP DISK OUTPUTצW.WAIT AFTER EACH READINGNOTE. F,M,S, AND W ARE TOGGLES.5   HELP MENUצC.CLEAR MIN/MAXD.DETAIL PAGE DISPLAYצF.FAST GRAPHINGG.GRAPH SCREEN DISPLAY M.MEMO SCREEN5áD/  #WARNING!! ALL DATA READ ON THIS RUNצ$WILL BE DESTROYED IF YOU ANSWER YES.צ'REINITIALIZE SENSORS, DISK AND SCREEN?33YáR3 B2Wá 2W22CW*i  "$&(@6*A<צ%ENTER P-PLOT,D-DISPLAY,B-BOTH,N-NONE 55@V(X5(X5áD/  #WARNING!! ALL DATA READ ON THIS RUNצ$WILL BE DESTROYED IF YOU ANSWER YES.צ'REINITIALIZE SENSORS, DISK AND SCREEN?33YáR3 B2Wá 2W22CW* YáNҹYҹ צCHANGE PLOTCODEצ%ENTER P-PLOT,D-DISPLAY,B-BOTH,N-NONE 55@V(X5(Xdc 5/ 쩀š5/[  NO SENSORS CODED FOR PLOTTING. ȡ  쩆Lác צ!REQUEST ONLY VALID FOR DISK INPUT ȡ 5 צ CLEAR MIN/MAXצENTER X-MAX,N-MIN,B-BOTH 55Bé5NÍI(X '''5Bé5XÍI(X'''0((ŝ(ɍ5Cá ((:55Má@!f AK-_'#*)*ȡ襁j*XX*6ENTER S-SENSOR,C-CALC 5S55SáSENSORת!5CáצCALCצENTER צ NO..š 0(š (r߫q*XjX** ȡ55Má@!f AK-_'#*)*ȡ襁j*XX*ȡ4* SENSOR   *ȡ>*񕫀穀 צ CALC   <*핫穀 צOUTPUT   á צ * jTá.ꥁۡુȡ"ȡ"#*)*ȡ襁j*XX*VOM  MENUצG/  RETURNING TO MAIN MENU I2Wá 2W29?W2 X "$P(*,.0G=T, NOTE. F,M,S, AND W ARE TOGGLES. u!DISK OUT IS STARTED, STOP IT? (N)55YáYá N צ"DISK OUT IS STOPPED, START IT? (N)55YáYá šš:ק+ $* Yá*é ÄFáYҩn@OÍ3RÍYéYÍ- צ TIME ת+צתצ  תצ :צ:+צ00:00:00Ρ'էΩYéYÍY0 ^á +ON ת +OFFת$צOUT1 +á +ON ת +OFFתצOUT2  `0ץ``m6 "YéDÍDá ɡ  ɡצ0 ɡ0ƭ/ צ ` `ɡ#ޕ `` Máġ/`-`-ץ``צ.`ġ:`` ``צ0``ع''''''} êtvU êtu-FX& g "$S\K"5š~צ:š Vצ FILE NAME IS צ OK? (Y)5Y5++š5  NOT FOUND5NáENTER DISK INPUT FILE NAME OR Q TO QUITQ Q5:קš N5 G"++áY;G *.áNٹY,-.ѩYá GN5š~צ:š Vצ FILE NAME IS צ OK? (Y)5Y5++š5  NOT FOUND5NáENTER DISK INPUT FILE *)*ȡl*X,*X(*X *X$**)*)(š#'XD  Dá YtNO SENSORS CODED DISK OUTצDISK START IGNOREDȡ Ϲ  צREINITIALIZE? (N)55YáR5 CLh\"555.YáEQYáE?:5AW. 9 ?$S,3G(*6aEáWY #INVALID REQUEST AT EOF-PRESS RETURN5  YtNO SENSORS CODED DISK OUTצDISK START IGNOREDȡ Ϲ  צREINITIALIZE? (N)55YáR5 CLh\""++ ˡצ REMOVE OLD צ?(N)55Yá{צARE YOU SURE YOU WANT T0צ DESTROY OLD ?(N)55Yˡ +š V FILE NAME IS  OK? (Y)5Y55Ná תáDENTER DISK OUTPUT FILE NAME   READING  # צ MIN   v ꍡ $צ  ת$  MAX   u   CUR   t vɝ*Ä넡 **ȡ S0*%*ȡC0d@ K' RÝFÄ-  }lMáyxáЫϹȡ@ȡ YéϩÄ   áb*(š#'XD Cá Rá AjTáDáG a D   ޥڼּޥڼּּ 'ޥڼּ ='''Uޥڼּ .CR  f ڼ  ڼڼ ڼ Cáޥڼּ    jTáڼ ~zռh#t8'ુᩁ⩁Ǡ ⩁Ǡޥ⩁Ǡ⩁Ǡ ޥ⩁Ǡ޼ ޼ ⩁Ǡ+'d⩁Ǡ "⩁Ǡ⩁Ǡ ''d  n ' ' $  '  #' ͝'š'  '''( ©sX$©rX$  *   (  (    ͼ zá ּDá ڼ     áثث  ()á&'X X ,(''X 'X Yá#sšTkCá kRáکX,کX(rrũjT˄TjCá jRá֩X,֩X( qyx~ u  0  READING #t 0צ AT צ q Lá$ꩀ邩肝  4s*񕫀 O0*핫 i   n m צ Iˡy  v  b   l` êFttN X*XjX /Gá W(  өlá'ޥ ^Má'ާ 0ާ  ޼ʼ ¥ʼ¥޼¼ʼ  2Wá/GémN˄/DÝO˄ 4Má**3 áš 31QáGp{ OL H(@*  Yá, Ѽ *)*ȡYá*  i*XXon+Yáѧ8 0CV(3 G(Q"$&Y*XiX3Rá ɡǿȡdȡRȡ@ (ǀǿɡ ة٩ɡkbY  Gs   Yá,¥ƼMá¼Ƽ '  vmFv*mBá  v š" өká'ݥ ^Má'ݧ 0ݧ  ݼʼ ¥ʼ¥ݼ¼ʼ ¥ʼ¼Ƽ  k` ªFssN X*XiX /Gá W( @ K' RÝFÄ-  }kMáb ȡ@ȡ YéΩÄ   áb*(š#'XD Cá Rá AiTáDáG a D xwáϫι*  j*XXpo+Yáҧ8 0CV(3 G(Q"$&Y*XjX3Rá  2Wá/GénN˄/DÝO˄ 4Má**3 áš 31QáGp{ Olp6l R DtVf*  Yá, Ҽ *)*ȡYá*  j*XXpo+Yáҧ8 0CV(3 G(Q"$&Y*XjX3Rá  2Wá/GénN˄/DÝO˄ 4Má** š"ɡ j Gs   Yá, Ҽ *)*ȡYáʼ¼Ƽ¥ƼMá¼Ƽ ' wnJw*nBá  w Ѽ *)*ȡYá*  i*XXon+Yáѧ8 0CV(3 G(Q"$&Y*XiX3Rá