`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`ߠ ߮ o gXXgr=gȥklRMSG4r=vglmRMSG1r=vgmnRMSG0r=vgsnoRMSG3r=vgoxSYSTEM.LIBRARYgxyBJTERMr=vg REPORT.CODE  BJSTART.CODE̥  SYSTEM.STARTUP̥XXgr=REPORT3& SYSTEM.APPLEvg&O SYSTEM.PASCALvgiOPSYSTEM.MISCINFOPVNAMERWDISK.CODEVWCPCMENUr=vgGyW]RFMTTr=vg]cRFMTSr=vgciRFMTRr=vgijRMSG2r=vg|hDtLmU9@tTL+ "?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,z3  P ?š š۾.ˡצ([šܕ!!(š۾:ˡ١.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 NAMERWDI LBL1BLUEJAY1wh ׯ::(:.TEXT-:( "ˡ$צ Can't find dex list (I) Quit entering instructions (Q) No Command - Press Return COMMANDS Validate (V) Save the form (Sa) File space report (Sp) Print current form (Pr) Next form (N) Clear to blank form (Cl) Erase unvalidated data (E) Page Forward (PF) Page Backward (PB) Fill the form (F) Remove the current form (R) In#To correctly name your Report Work %disk, insert the disk you wish to useצ"in a disk drive, and press return.צDo not remove the Program Diskˡ  ń lצThe disk name is now .צLabel your disk.@צ$Disk status uncertain. Press return.צBJSTART !Z bRx#To correctly name your Report Work %disk, insert the disk you wish to useצ"in a disk drive, and press return.צDo not remove the Program Diskˡ  ńError áצreadingwritingצ disk name, I/O code =  ."Ú ڍړ2 M"Ú ڍ(` h צ"إ  ׷ÄR צBLANKBDo you want to destroy  ?   Kš',,:,,Pš,,P^ áCצUnit   is not present. VError reading disk  צ , I/O code =  Press return.  &؞"Ú  תr, try again. Þ"܄>\P(Y/N) ڳ@@ڳNhYou may try again or quit. צ Try again? ^  the driveצthat holds the disk to be named( 4, 5, 9, 10, 11, or 12 ). ( Press return to exit. ) Pˡ_ ō"ˍ ܓ?צ!Invalid drive numbeƁ0P تP-,,&VV-PV:QVǡVHDġE#áPȡ ؛0T \0Enter the number of٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jB *IT*C\ƌȲ C  *IT*C\ƌȲ C  *IT*C\ƌȲ C  *IT*C\ƌȲ C  mItem Tested (1) &HtTest (1). tTest Against (1) .14mItem Tested (2) &HtTest (2).JtTest Against j\q\z\\\\\z!\6\d\\\\qT};q\", "&mForm ID:2VESELECTION CONDITION .j\q\z\\\\\z!\6\d\\\\qT};q\j\q\z\\\\\z!\6\d\\\\qT};q\j\q\z\\\\\z!\6\d\\\\qT};q\j\q\z\\\\\z!\6\d\\\\qT};q\LBL1BLUEJAY1whׯ::(:.TEXT-:( "ˡ$צ Can't find  command FILL. 0OiWhen they are OK,  command SAVE. oCommand NEXT to go on. Command Next to go on. T4 nT5 aT6 nT7 ^T8D%To change these instructions, use the ,@e  Subtotal by: KG1 >_bG2 sG3* t sTotals for: .T1 ~rT2 T3  bSort by:  S1  D1 !S2 5D2 J6S3 cJD3*K t  *IT*C\ƌȲ C ", P '.mSORTING & TOTALS& OForm ID:& (2).q^mItem Tested (3) &rtTest (3).ttTest Aga inst (3)B$"Is "Test Against" a Name or a Value?$tTest 1$  tTest 2$tTest 3F(cSelected data must pass ALL tests above. B@# To change this selection condition, B#Euse the command FILL. When it' Print-itemsms6yTo change or add to these report specifications, enter0the command FILL. the >@command FILL. When they are OK, , rcommand SAVE. 01 VL#31 Print-itemsVFMT6r=vgڠVFMT0r=vg BJSETUP.C lTitle 0@cSpecial paper size$T+tWidth $^. gLength&0oExport? D%cTo change these instructions, use  *IT*C\ƌȲ C ", R 1 0OREPORT DEFINITION &c mForm id:$ *IT*C\ƌȲ C  *IT*C\ƌȲ C  *IT*C\ƌȲ C  *IT*C\ƌȲ C LBL1BLUEJAY1wh ׯ::(:.TEXT-:( "ˡ$צ Can't find  s OK, SAVE this form. PCHAINSTUINPFNAMEINPFNAME  To indicate which items are to be printed, move the cursor to the item you want ( press return to move from one item to another ), and then press X. Now press return to go on, or press Q if you don't want to choose print items. to be tested, press Return to move the cursor to the item you want, then press X. Now press Return, or press Q to erase this selection condition. Selection conditions test items from the form against other items, or against values that you type in. For instance, the condition "CREDIT GT 25" will select a line or form when it finds a CREDIT value greater than 25.00. To choose the item in "Price GT Cost". Press Return if the value is to come from the form, and V if you want to type it in. Press Q to erase this selection condition. Selection conditions may be based on items from the form and on values you enter now. For instance the condition "Select if Price GT (greater than) 25.00" has one item (price) from a form, and one typed in (25.00). Both values can come from the form, ase that they appear together.) Also, choose the items to be totalled. To indicate a choice, move the cursor to the item (use return), then press X. Now press return to go on, or Q if you are done. If you want the lines on this report to be in order (either alpahabetic or numerical), choose the fields to sort on. If you want "paragraph breaks" or subtotals, choose the items which are to control when this is done. (Sorting on these items will ensurot contain the second Just type the one you want. ond LE - select if less than or equal to CO - select if the first contains the second (as CHICAGO contains ICA) EX - select if the first does not contain the second Now type the one you want. How should the value you've chosen be tested? EQ - select if equal NE - select if not equal GT - select if the first value is greater than the second GE - select if greater than or equal to LT - select if the first value is less than the sec BBB "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tM ,תPU צ̄LƄL,PƄLǠƄLP4  22v$ צOtherwise, enter file nameצEnter file name צ: PצP׷- File name is :"$&(V ,ƄL:ƄLPƄL:צ:ƄLP,,UUd,ƄLƄL#PצDisk in , is named V+ء%צEnd of directory.šצ File name is If correct, press return.צOtherwise, enter file nameצEnter file name צ: Peturn. OtherwiseצEnter file name or ? for list: P׷? PתP+VM ؄]צFile: V+M ? (Y/N) V+M P+١׷,,P,צ:Q,P +VM á5צ Disk is emptyתPVM áVM Pצdצ File name is #If correct, press rrwise,צenterEnterצ disk name or drive number צ: Pצy:á,צ:,Pš@'Disk name must be 7 characters or less.ئ10ׯצ11ئ12ׯ#QPRLš,,#D$File disk is assumed to be in drive > File disk name is assumed to be If so, press return. Othe "ˡP$Can't read disk directory, I/O code  fڪP̄-ʄ-ˡ#ʄ-- -V:#-̄. -VV~459ڳ@@ڳNVڪP.š:á//P//#X//P-/-/ȡ4-. -0.--.CBJ9BEXT INPFNAME.CODEz6 z|z6 9b6 *,,#9:INPFNAME.CODESK #9:INPFNAME.TEXT#9:INPFNAME.CODE[*]JL:SYSTEM.SWAPDISK   VAR "DIRFILE : FILE ;   PROCEDURE GETFLNM ( VAR FILENAME: STRING ; EXISTINGFILE : BOOLEAN ) ;   IMPLEMENTATION E ԍ֍br r b^br BJ9`b6 6 ^``Pb6 r 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צP׷- File name is :"$&(V ,ƄL:ƄLPƄL:צ:ƄLP,,UUd,ƄLƄL#PצDisk in , is named V   fBP..#5 DESIGN FILING REPORT CPRINT RPTWORK gXgZgz~~~hgjg~hgzg|g|gPb.ggu~gZggzNPG2  >p|'5)J [^k r*RW NUCLEUS UT1 PRINTFORINDEX CPAPROMPRWSTART CPA SCANINPURWPHASE1READFILEMERGEPHAPRINTPHA P1צREPORT&2 NAMERWDISK BJSTART T.hJ ,ȡ,,&Welcome to VersaForm*Copyright 1981 Applied Software TechnologyReport Program Diskצ Enter the number of the functionצyou wish to use 1. Reportצ2. Make a Report Work DiskƁ0P تP-,,&VV-PV:QVǡVHD,,ȡ,,&Welcome to VersaForm*Copyright 1981 Applied Software٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jBSTARTREP P1צREPORT&2 NAMERWDISK BJSTART T.hJ ,ȡ,,&Welcome to VersaForm*Copyright 1981 Applied Software TechnologyReport Program Diskצ Enter the number of the functionצyou wish to use 1. Reportצ2. Make a Report Work DiskƁ0P تP-,,&VV-PV:QVǡVHD,,ȡ,,&Welcome to VersaForm*Copyright 1981 Applied Software٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jBSTARTREP gggggggz@~~g Q@gggzg@@ggZ8QQVhXhXh"hnOFil"h$hlzb0h2h:h`Nr~ *   ` j Lq`<;8+sifbYD8hhhhhhhhhh "  " )%    L-I% I%HHHH`G = Ș !0 p2/,)Y ڣ!`zȄ  7ÄإYإ\٣!ؚášݕ  <0ܲP  0  ȡ0 <ġf]ˡ]]0 0צPAGE 0] 0ȡ0PĄP áPȡIRST š'á)V צIXLAST  AAɡANצ PREVSEARCHز qá'ٶġٶááDġ4ڢ} ááá[T tצIXNEXT) ) Aá-BBCB)AC}AC}öˍ\צ CHASE FNáٮ4ٶ}ٶ}ڮD ز ٶBBg DB DX*** END OF INDEX ***צPress return to continue E'` Dá)ضȡ}CCCš_צ$Press space to continue, RTN to quit E E Í D: ز BBDٲɄC<Aˡ2Aˡ'A ˡۣAضɡ{؂ȡ} / ؂ȡ}5ȡ})Afب@ٶ צSTOWݢ٢}ݣ)٢}ܿ٢}ۿHצEXTRACTڢ}ܢܢ)ڢ}ڢ}P INDEX CONTENTS ݂ڢ}  !ߚ +\ צIXSEARCH) AA B/CCDBD}BD}Aö צ IXCOMPAREˡ  ZZZA[XWWá  2X. . YYˡYW. .  צSRCHNODEá22áɡ#2š gܶˡQצIndex I/O err, code  צ . Press rtn d ٶ @ צGETVALSȡ٢O آO ڶWáXO٢۞Oآ۞Q: ؟ˡPázájۢcPPۢPۢPڕȡ&قPB!قǟ ؟áK 0Ɓ\0PRINTER:"á0́]ܩȡ 00*hn&$ rݢ&PP0d PP0 DA ȡ-PPޣ!ߣ ǟٟáA m%[6j : ؟ˡPázájۢcPPۢPۢPڕȡ&قPB!قǟ ؟áK 0Ɓ\0PRINTER:"á0́]ܩȡ cݢݢȡPrݢ&PP0d PP0 DA ȡ-PPޣ!ߣ ǟٟáA m%[6j 0 ȡ0P00N}  ˡBȡ ٟˡBááPݢȡPݢȡPݢٶ@Bٶká'ز ٶġٶٶ) )$"á" T~ڶ}ڶ}0צMVHILO}GF}FF}}FצREBALFɡ\}GF}FF٣ ȡQPآ(ȡ  [; ٨ؿ  ݟˡá B ۪P0.0أA.ˡR.YZZA[ݮy]  آcآ ȡ! Xآȡآcآآآȡ< تPDISP++=+צ: +Y+"á N ب Move (rtn) to item, then press X  ݟˡ\ޮš á ݟōݟá  ۳۳$- -"-- /T BتPOO,O-,-ȡ٢,O,,,#V P ڢ   ́́"áʁ PP 2$:    P$ X@@8آآ'%#! \p Dh( ^ ,h :| N. r t VN '~št& }} $Ä  Vt'צADD؟áٮ"G ~ȡ%.á&/#á'Zb#E !ٓ#E!*ۢݹ 3/+'#   V2% Í  *~št& }} $ٚ ٚ  "צ ADDTONODEڲáزڲ۶)ˡ}۶}ەڲۮ~$$ÄÚޓHDDDš_}}z !צ ADDNEWTOP ll C}DCDšáDDCEECDCDt צ CHANGEPTR ٲá1آ}ܶ˄خ d צ FINDLEAF D ٶޓo ڲ}ܶڲDFF/خ ڲ צIXDELETE E Ȅ? ؚ Ƕ}F  F~ȡצPROPCH }ٞضĚTXצRDELETEڲ ájFFáNܶĚ ܶ}}}Z}}FFGF}}GF}}FצADJUSTš}}}Yš , X r  H\ \"bB ! !OO؞O!áSצ$Low to high (+) or high to low (-)?  O(+!**Z צSpecify sorting? (Y/N)  DnתSnת Specify Totals? (Y/N)  Tnת צ$Specify subtotals/paragraphs? (Y/N)  צGn,,?á,,+  A áUɡPצ#New page for each new value (Y/N)?  !OO؞O!áSצ$Low to high (+) or high to low (-)?  O(á 0!*+*-*-ȡ0*+!&Sort 'Break צTotal -#(* צ!): Rtn-Pick item, Q-done, ?-Help ?á?צRMSG3 ڳڳ9A  ضB9ɡ t צRMSG4 س0ʀ ʀ̀Y  PRINT-ITEMSתB 88:cǟ: : 9צ"Press return to choose print items ٓצPrint(  !): Rtn-Pick item, Q-done, ?-Help yšFצEnter selection test #   ? (Y/N) %*̀̀̀̀̀ʀʀȡM0ʀ̀ƀITEM TESTED (?)ת(ƀ(~*)*)| ~DצChange, Keep, or Erase test   צ? (CKE) ((س*س ue, ?-Help    j צ? .צITEM TESTED (?)(*)Test Against (?)ת(*)Test ?ת(O|צTest (?)%Item to test: Rtn-Choose item/?-Help  צ%Comparison-EQ,NE,GT,GE,LT,LE,CO,EX,?: O?ÄצRMSG2 EqNeGtGeLtLeCoExר7 87  Í٢T)&Compare to: Rtn-Item, V-ValN@@?áZצRMSG1 BBٳٳoٳ@@4צType the value:  )RV#)A RN,,ˡ03 Y,, Ƃ Vt٨צ12345678צ š J@'ȡ' ' ''''' ' ' ' ' ''' '"'$'&' ,צ:,Pš@'Disk name must be 7 characters or less.١׷,,P,צ:Q,P +VM á5צ Disk is emptyתPVM áV File disk name is assumed to be If so, press return. Otherwise,צenterEnterצ disk name or drive number צ: Pצy:á-#Ƅ--̄V -VƄ-Ƅ-459ئ10ׯצ11ئ12ׯ#QPRLš,,#D$File disk is assumed to be in drive >/ȡ4-. -0. --.C "ˡP$Can't read disk directory, I/O code  fڪPƄ-ƅȲUʄUˡ#ʄU- -V:Ƅ- -"-- .TPڳ@@ڳNVڪP.š:á//P//#X//P-/-ʓڣAڣ ٮڣˡPP &$ .ڳ@@ڳNV آآ٢$צ FINDFNAMEead mapPYCan't read fmtתPBצFile unlabelledP*צNo form definedP hS>(++P+. Press return^+צGETFMTڢڣˡQڢLBL1ׯ <ڢCڣڢڣˡڣ צREADFMTFEGFEȄأÄvEǀDFأáTGEFǀǀFDɡ!ڣDǀDEEGEEEHEHȡGEEE عwCan't read labelתPpצCan't r'!'#'      ڪP TצINITFCBؚۢۢۢAۢBۣAۣAFCB INITȡۣAۣAۣA + 1981'ȡ' ' '''' ' ' ' '''''II7Trace unit (1, 2, 6 or 8): HHF Init traceG R &á (z   VersaForm 1. *Copyright Applied Software Technology488(++P+. Press return^+ צGETFMTڢڣˡ QڢLBL1ׯ  <ڢCڣڢڣˡ ڣ  ڣAڣ ٮڣˡ PPǀFDɡ!ڣDǀDEEGEEEHEHȡGEEE عwCan't read labelתPpצCan't read mapPYCan't read fmtתPBצFile unlabelledP*צNo form definedPڪPTצINITFCBؚۢۢۢAۢBۣAۣAFCB INITȡۣAۣAۣA +צREADFMTFEGFEȄأÄvEǀDFأáTGEFǀ&(Note: name plus suffix will be shown):  ,  X!צREADDATEWצEnter the date (mo/da/yr): PšȡyXXȡ XXȡ$,O+T+WWá Jw" "!28(R>"  V X   h @H | zn>"VD "ctions already saved? (Y/N) &(Note: name plus suffix will be shown):  ,  X!צREADDATEWצEnter the date (mo/da/yr): PšȡyXXȡ Xthen press return. צINITFILEٮ 0צ LISTREPORTS צ&Do you want to see a list of the sets צ%of instructions already saved? (Y/N) "ˡ5File not present; I/O code =  ám ́ʁÞ"Ä́ʁˡ"á צ"Warning--File is write-protected. צ)For normal operation, remove the sticker,,UUd,ƄLƄL#PצDisk in , is named VM ,תPUצ̄LƄL,PƄLǠƄLP4  צOPENFILE Bצ: Pr file nameצEnter file name צ: PצP׷- File name is :"$&(V,ƄL:ƄLPƄL:צ:ƄLP, CHECKFIELDS2 ޟ2. 222<X ` (PǀPPققکȡ_š`B?š@ ۮڂ ȡ ˡل ȡ ȡ5١ ١ #١  05P ؟ˡܣAáfۢ قݣɶݣ Ȅ5قPۢB قP 7 ˡVWWAXVVáT  |2צFORM ID:*q *ˡR*,,áG+,-+-ȡ#r!,+ǟ+O++,4Z|3٣Aڢ٣B!ǟ ٣B364!0 ؍ Bޣ šڶš ޣ ݣBš ޣ ޣšޢښ ޢخ-ޣ ń(ݣBޣޣ Pm  1צCLEARNEXTDETAILۣAܣ ۣBܣ ܣ ǟȡ/ǟܣ ǟȡۣB!ڣB! B.ڣAO ۢخ.ڣB!ǟ ڣBخ-`/צValidation required,0צPAGEFORM0How many pages? ׮ cۏݣAޣޣ ޣ ń˄+*:áPá)Ȅ)á(ߡ % ٟˡ٢٢$4,خ,٣A٣B! خ!.-צ CLEARSNUMSȡڣB*zBأ 6 ö ÍأȄ'*, ȶأȄ'** +퓡á\Pá&JأAݢݢ&á' ÍÍÍöÍV) ^عNNo room on the form׮ ALine may not be changed now׮  Not an item׮ U=p*PPá'áAأ ņܣ Ȅ u  P Ʉ) L&@'á .(ö|áPġ$`á'ȡ Pá ک4áPɡ PáPܩPġPܮبPP h ġNá Ʉ(PɄPP ޶ȄȄHÄخ߮ނ P #צREPAINT٣A"٣A٣B!#8!P$á$áܢܢsܢȡܢܢܢܢȡ)r "ڨ٨צ SCREENDISP ݟˡ ˡخ ݟˡ ˡǟw P Ȅ8ǟ P uh ب MASKDISPLAY  ڟˡkD ޶ȡQ ܮצSTDCURSܣAݣ áIܣBݣݣ ݣ áۂP~ڨ٨צ SETUPSCREEN  /Vu צTABLOC۶ġڣA ڣB   ˡ sdݓ˄ɄF0 PܓȄš ɡ P VVVVYYȡ"WB!ڂǟڂVhV^VPVX XVYYȡ"WB!ڂǟڂVVVAWWVBáVBVB27KQ\j8צVALIDATE%%á&8צEntries checked. %Hf6!: -;ÄAߢáߢߢw\6IO XXתPؿ++P+Ǡ+PTNN ˸$MצCPOPENצXFMT0ؿ=צ: "ˡǛ٢LENGTHJEXPORT?JWIDTHJTITLEJLENGTHKWIDTHKצEXPORT?KLL RTbLLL0 ,,˶,á ,,P0,P-.cǟ. .  0C! تPALLOWKEY,q ,ˡ ,R@J٪P SETPROCNUM,q ,ˡ ,RDK0 ,,ˡ,,,2LצSETUPFMT0 -{[Lצ040.oHa rȡ%ۢšۢ0.04; G r"r!G áX  50-0%áDEخ9 רCr!ǟ rأˡbצ No old info,  I/O err code أ  . Type rtn040.02q3Hצ GETCPDATA u VnA  "$&(*,.02468:<>>BDFsJYVPRWVXZ\W`Vjlx .FE'ȡ 'FPö FPP ȄE" 'Ȅ F ɡjDH4/*BR"  -ɡb@ ,'AP  *ź-ʁʁ-ȡʁƁʁʁ́!5j Dȡɲ Ä OhBɡLá  Hn_QKDB.(D:8 BB 9 ר ́-Ɓ-=Ɓ-:CPCMENUƁ-"á́́,"áʁ, Enter the command you choose : ׮ ƁṔƁFB צ left.PA6<A (!Save needed (or Clear to discard)׮4-q-j5-a1Y1P?L@H< 64, ;X@צ File space: BFEFGEGȡFED?HDHȡiD? BB@D?0CICIȡ#CD? BBCCDDEEB צ units used, /N) ׮ ۳@@۳|: rȡ%ܢˡܢ0.;צ Form removed 'צ"There is no current form to remove* ?:ۣˡ8צ$Save operation failed; I/O err code ۣ x:r ;ˡD)Unable to save; may be a duplicate key. (׮ )>>  D<瓡Destroy this form? (Yá ǀá9 ȡ.ߢšߢߢ6  = Form saved׮  >6qr!ۣ ۣ rrڶ=ˡצNo file space availablernO0M瓡ض ō*2P 0O0١ISˡ1M0ڂM瓡 ȄצEnter a šצnotherצ selection condition? (Y/N) @@ݡ0ڂM ݓ ȶPǜ  * ۪P/ 0ܹ́́ŔR S T ĆS  ʁB 'Done with instructions? (Y-ok/N-retry) ́ʁ/!p+Test ?ת(pצTest (?)(p7. צ READCLAUSEC~ز)7~زU+~ز))~LDLOC =pצGETFVALš/á ǟآخ V?ײ0צ LOCATECLAUSESȡצITEM TESTED (?)(pCצTest Against (?)(Pš'] ڢ تPOO,O-,-ȡ٢,O,,,#V PڪP٨צGETFLOCآ// ./ .ˡ3.š,آ.آ.آ.ۣ FIE:تPOO,O-,-ȡ٢,O,,,#V PآO&ń,&DATE,áآEnter the value for UUȡآOצ: tructions? (Y/N) 9ҦPRINTER:"á Printing..צCONSOLE:dצFILE ҶҦ , REPORT ҲOOȡآO  #٣ȡD؂ڣšLצREPORT CONTROL INSTRUCTIONS!ȡ,ȡ ؂(L  צ"Print control insPjצNO PRINT ITEMS DESIGNATEDPHצ$TOO MANY ITEMS/CONDITIONS FOR MEMORYP Z;Dhצ **ERROR** צ&Error in instructions - Can't continueT צITEM NAME NOT RECOGNIZEDPILLEGAL PAGE WIDTH OR LENGTHתPצITEM IS NOT A PRINT ITEMPTOO MANY SORT ITEMSתPTOO MANY TOTAL ITEMSתPצTOO MANY SUBTOTAL ITEMSPצPRINT LINE(S) TOO LONGPRELATIONAL OPERATOR EXPECTED$ צ FINDFNAME- -" -- .TP ب)Ix+צPTUTUȡ3+VV+PV?QVP+TTOTT+UUצBVAL= U+VU;WUP+k ++,+,عڢڣˡ ڣ  ڣAڣ ٮڣˡ  PP&$ .ڳ@@ڳNVآآ٢labelתPpצCan't read mapPYCan't read fmtתPBצFile unlabelledP*צNo form definedP hS>(++P+. Press return^+ צGETFMTڢڣˡ QڢLBL1ׯ  <ڢCڣA +צREADFMTFEGFEȄأÄvEǀDFأáTGEFǀǀFDɡ!ڣDǀDEEGEEEHEHȡGEEE عwCan't read צCPOPENצRFMT0ؿ=: "ˡ`٢fڪPTצINITFCBؚۢۢۢAۢBۣAۣAFCB INITȡۣAۣAۭ  >v 6r   8 Vt >t2@ hv$@!!~"t## "#,$V\ v$$P%p%.J'%%&(()&&6& Pšצnotherצ selection condition? (Y/N) @@SOSNڨ)RELPREDY רYGTYGEרYEQYLEרYLTYNEרYEXYCOר-XVYX.-WWXɡXXVWVWXK צ SELCLAUSE ~šҦ And ,---B-Aؚ Ҳ)-צ (item on form)+)A +á%-++á--/ <0O XXתPؿ++P+Ǡ+PT1# !11 ˡ,צReport instructions not presentѮ/%j2 !01ҦSubtotal control: -TnתҦTotal: -0)צFETCHضˡPצ%Error reading instructions, I/O code Ҷ |/צSETUPFMT //[S*T**hgST+;sST,d9Sɡ SST. -צSnDnתҦSort: -Gnתۣġ3ۣۢۢ?ۣܢ٢ܢܢښ+צ TOTALTERM  خخٟˡAڣġ4ڢڣڢWڣۢ٢á~,STTOSٮآO-áצ ( descending)Ҧ ( ascending)ٮ۟ˡ6ܣġ)ܢܣܢ-ܣݢښۢ*צCTLTERM آO!ڡ آO  خڡצ , Page breakخٟˡ@age length W WWҦTitle: W!ҦPrint: "XXȡ2 ز '(= %צSORTTERM ++W),OW)&ҦResults are for export+++ UUšU Uō WUҦ Page width W +++ TTšT Tdō WTdҦ Páڢ5 ڣš6& ɡ  ڢ@ڣ@ڣ@ġ:'צ PRTSPECENDˡ&آ; <(צRSCANW.0.1. 122ȡ#ɡ/0ڂO1ق...ۡxGd &צ PRINTTERMضA ٟáڣ9á"ڢ9ۢٚۢۢۢڣ@[ צGn  ȡ$0タpg צTn  ȡ$0タps +e$צ LINESETUP/./5 š/؂.. ʚR!"צEXPORT?pWIDTH׶pצLENGTHpצTITLEp PRINT-ITEMS׶p p#צSn  ȡ$0タpO צDn  ȡ$0タp#.. ,,.,7X^ڨ).- .-Ą- Ʉ;.O- .O0--...ɡ--aV ڣ) ȡڢ5؏ZצSSCAN~̀Ҧ Select if: ̀ƀʀ̀ʀʀʀʀ~Ȅ=0~C~ƀƀ̀~~~š̀ʀʀ8ʀ8ʀkXצ FINDPFIELD--9,, ҲU->U->á Ҳ)SNáhҦ (item on form)+)A +ˡ+-++á--7Ҧ (value)--))--  áѮ/˶H \3$ !11 áѮ/)>4צ SETUPFORM0١ع 234 RTa B.ڢ8ڢ@ڢ)ڢ9ڢڢdڢ<ڢ=ڢ>ڢ;ڢ*ڢڢڢڢȡڢ5ُڢ  A 5צ(***WARNING*** Possible erroneous totals.צ(SFDɡڣDǀDEEGEEEHEHȡGEEE ٓˡ#. צ FORMATSEQ  ܓ݄.ߟޟ˄Ä  ߟޟÄss return^+ צGETLBL٢٣ˡ =٢LBL1ׯ  (٢C٣٢٣ˡ ٣  pצREADFMTFEGFEȄأÄtEǀDFأáRGEFǀǀ$Illegal file namec\ "צ REINITFCB٢ؚ٢,ع`Can't read labelתPVצCan't read mapP?File unlabelledתP'No form definedתPgP;%++P+. PreNVצOPENFILE צ(Disk:)File name : Pš:ˡ:á"Bצ: YP"ˡ;צFile not present (code  )."ˍ צ"Error writing work file, I/O code  צ"May be out of space. Press return.+ڳ@@ڳrs) צTEMPPYZ[\X XYY[tControl instructions entered.צ'Do you want to produce the report now? V A,+-PW,WF[\צ&Fix the instructions and retry? (Y/N) Z,WZV!ZXW;EG~he new ones? (Y/N)צ#(Otherwise the name will be "TEMP")B Enter the name (up to 6 letters) צTEMPPYZ[\X XYY[tControl instructions entered.צ'Do you want to produce the report now? V A,+-PW,WF[ set\"Do you want to change them? (Y/N) [[\'Do you want to name the new ones? (Y/N)צ#(Otherwise the name will be "TEMP")B Enter the name (up to 6 lette YDo you want to use a set ofצ$instructions entered earlier? (Y/N) צEnter the name under which the instructions were saved. !Use TEMP for the last unnamed:  PšMצ Name over  צ letters. Please re-enterȡ ڳ@@ڳNVYY-ingle data items may be printed many צ(times since column items are being צ(printed or selected. Each time, they areצ(added into the total for that item.  6ڪPƉƊצ SCANINPUT5R.S.T.C̋ʋ:ʋʋʋ9á ʋ,ʋ:ʋ6GɡƉ >jJ8 4  zr~"BHpf|T \~ l6ls.צ(Single data items may be printed many צ(times since column items are being צ(printed or selected. Each time, they areצ(added into the total for that item.  6ڪPƉƊצ SCANINP9f צ CHECKFORMATS ڢڶ  ˡ>ڢA -Forms don't match. ! צNEXTFILE צDo you want to includeצ#another file in this report? (Y/N) D#Insert the next file disk, then key,,, , ,T צSCOMPAREߣޓߢ-á1::):۟ˡ ۢ?ۣAcݣ8ݣ8ڟؓ8#Ä۟ل"ۣAءݢ<ݣ<Detailݢ>ݣ>cݣ= ݣ> ݣ< ܲ#ݣ:ݣ+ @@@@ ??>ǀ#?@? ?>á ?@?@s.?? ?>D?@ÚP?@˚F?@ÚJ$:???@zD"צSELECTݣ8ڟˡ e  !.ۨ)ڨ)צSUBMATCH.!!YXšDX܂.Y7WWWO/WXOÄWWWáYXXYK= צTESTCONDITION ????Í?Í?@??@Í@. ?@@ˡ'??@Í+ڣ@  آ ɡ١آO ڕ آO ȡ&آOآOɡڕ آO ++,AbأAá ǟޣ ǟ#ǟۢRצ BUILDBUFFERS ڣ9؟ˡö#ń+ڣ@ NáۣA ǟ ǟ#Lj2ááI22١ˡ)šš ˶2JIؓ; dب)IN,צP+U+Uȡ3,VV,PV QVP,++O צ, L=I2 צ, RN=I2 , Q= צ, RQ= štI2ɡI22FI2öȄ(I22I2ظצ REPSELECTáءS2IJړ'š I22IR6: T=THERUN Run  צ ended, length = E .EHšأ?F2 2צEXCHI2I222IآښˡښI+צ PUT BLOCK #  +HM צ RSPUTRECORDEEFá"ۣ?ۢ?ۣ?Fۣ?ښۣ?Hۣ@šۣ?+ۣ@+Hۣ@Hۣ@Hצ ENDIǮǮD ۣȡm:ۢ-+ۣ@ۢ-:::): yHȡ +H GGڟڢGöá  آ?FGEH(צRSINIT2@H2H2ȡRI22I2I2H؂2I222 present ( code  ).Insert the Report Work Disk (8)צ"(Remove the Report Program Disk ifצ#necessary, but leave your file diskin place.) Then press return.:) /::)::) ߣÍ   8צ: צBJWORK"á8צ: צBJWORK"ˡؓAצWork disk not"צ READ IX NODE أˡ -أ@:# Press return to continue.*@$Faulty index. áצRecord  Index record צno.  צ out of bounds.$%צ VISITNODEز#ٲɶ+ٶC}ٶC}ڶō ڲ%áڶ#ˡ#*** I/O Error reading form startingצ at record@ġ ʅ6@ áƄ צRUNBLOCK COUNT = Ƅ Ƅ Ƅ צ END OF RUNSƄ Ƅ Ƅ  3%j ?̍`?ʍ`̍`ȶ+% > Ƅ ƅ5I̅6Ƅ CONSOLE:"ˡƄ צCONSOLE:Ƅ TRACE OF RUN LISTƄ ٟˡƄ RUN NUMBER Ƅ Ƅ ڟˡ{Ƅ BLOCK # Ƅ Ƅ  ۓ9ʅ6<ٟ˄ˡ צBeginning merge pass ` ڟ˶+(ˡ  Ending merge pass ` צ (  runs merged). ݓܓ+vá3 PUTRECORD INBUF1 ۮ  1צ PUTRECORD INBUF2 ڮ  ݡ'ܓ+ڮ  %ݓ+ۮ   ٢1Z 2צPASS GET BLOCK # ٢۶۸J צGETRECORD, RECADDR = ݣ@ݣ@š#ٮ + Ú  Ú+خ  צ MERGERUNSW  צRun  צ # W VX\ צ PUTRECORDۣ@šڮ+4ۣ@I ۣ@l צ CLOSERUN šخ" Ú7ڮ+)ʀ̀*ʀ̀Jf WˡXá צ ERROR -- Order is wrong at  צ, W *ERROR -- SORT ORDER VIOLATION *X  XWW+צFatal error - "freelist" emptym ب̀̀ʀ̀ʀʀȡ*SORTREG FCTR = *ʀ *צ LEN = *ʀ: *̀ʀ:̀ʀʀȡ(*ʀ:ʀO"ˍh צ"I/O error reading work file, code  צ Press return +ȡ ˡOڟáآښˡښצ PUT BLOCK # 9ܢ-:::): q"ˍh צ"I/O error writing work file, code  צ Press return +צSCOMPAREߣޓߢ-á1::)::) /::)::) ߣÍ  ܣȡe:ܢ- #  צ. Form omitted.$ܢ=ܣ= ڮ&ز#ٶC,-Hb&צ PASSFILE  FormsצDetails Records selectedC &צ FILEPHASE  ؓ+#FƁ/צ READFILE P ,"hBn  " 6 b  fb0<hBjL"L&צ at record #  צ. Form omitted.$ܢ=ܣ= ڮ&ز#ٶC,-Hb&צ PASSFILE  FormsצDetails Records selected8: BJWORK"ˡ&You may remove your file disk now, but%don't remove the Report Program Disk.צInsert the Report Work Disk,צthen press return.á   *ƁVƁ.  I**PRINTER:"ˡ*CONSOLE:I**tz~bhNX  B "j ?̍`?ʍ`̍`ȶ+% >'Mount the Work Disk, then press return.á  Ɓ.צ PRINTEXPFMTצ&Print the export record format? (Y/N)  PRINTER:"ˡCONSOLE:́0Forma!Press return to display each pagePress return now to continue} x8: BJWORK"ˡ"Report Work Disk not found ( code  ).P š++.TEXT׷++P+צ.TEXTU+P*"ˡK not opened (code  ).5Report output file is +ö+Ztצ , Output to the screen? (Y/N)  )*CONSOLE:"ˡ iZצ"Insert the output file. Remove theצ!Report Program Disk if necessary,!but leave the Work Disk in place. named VM ,תPU צ̄LƄL,PƄLǠƄLP4  ڳ@@RZ ȡٛٛPצP׷- File name is :"$&(V ,ƄL:ƄLPƄL:צ:ƄLP,,UUd,ƄLƄL#PצDisk in , isV+M P++ء%צEnd of directory.šצ File name is If correct, press return.צOtherwise, enter file nameצEnter file name צ: #If correct, press return. OtherwiseצEnter file name or ? for list: P׷? PתP+VM ؄]צFile: V+M ? (Y/N) s or less.١׷,,P,צ:Q,P +VM á5צ Disk is emptyתPVM áVM Pצdצ File name is , press return. Otherwise,צenterEnterצ disk name or drive number צ: Pצy:á,צ:,Pš@'Disk name must be 7 character459ئ10ׯצ11ئ12ׯ#QPRLš,,#D$File disk is assumed to be in drive > File disk name is assumed to be If so "ˡP$Can't read disk directory, I/O code  fڪPƄ-ƅȲUʄUˡ#ʄU- -V:Ƅ-#Ƅ--̄V -VƄ-Ƅ-ڳ@@ڳNVڪP.š:á//P//#X//P-/-/ȡ4-. -0.--.C8: BJWORK"ˡ&You may remove your file disk now, but%don't remove the Report Program Disk.צInsert the Report Work Disk,צthen press return.t of Export Records (צ"(Fields are separated by ASCII CR)(Record Length : ʁ0@ Field name Length 9́/ʁ/ˡʁ/́1ʁ1́2ʁ2ȡ(ʁ1eʁ1؂ʁ1́2ʁ2ȡ ʁ1 ʁ1́/ Jdȡ-e e ڣ9؟ˡIآڢee*** TOTALLING ERROR ***!آ*B*צ Data is not numeric.** Total too large. I(! +צ ADDTOTALS=;=>;>ȡ=W;???Í?(+**ˡ?=W;+[Oȡ$٢O`eڂ+Z(OOȡآO4)צ PRINTPFNAMEXOOȡAeۂ á ˡ * *I t*ˡ$!**e*^ۣ;^SE  &I--á+-..צREG = ..P..ȡ5//P/צ?Q/P0-E 'צ GETPFIELDO!*e*ߣ;^!Lc#^؂ġ#$ȡ*^؂^! D!^؂ġ#$צ PRTTHEBUFۣ;$ۣ;ȡ=ۣȡ**ߣ ȡ*ߢOݡ2**Page *_ **ߣ; ȡߣ ȡ!*e*ߣ ȡ_Ŷ]Z" ^ɡ*^^!."צ PRTHEADINGS "__ߣߣš ߣ ߣš ߣܕߣޡ9 ȡ*ˡ7צI/O error reading work file +Z@@@ǀšˡB ZPress return to continue Zצ F BצINITCTLSȡ٢?) @Ɓ-**=*צ:BJTERM*"))ˡZצ Replace the report program disk,צthen press return.)ábPause between pages? (Y/N)  ]g צ"Printer not present. You must nameצan output file.ZR צ INITTOTALSȡ٢W@only? (D/S) سسY"Output directly to printer? (Y/N)  *PRINTER:"á* * 9צ%Make sure that the paper is adjusted.X_d^WW٣?٣)8Report will be in Export form.٣áY ٣<  records in this report.Print all the detail lines,צor summaries C'Send the print control sequence? (Y/N)  `ȡ]צ&Enter a print control sequence? (Y/N)  ˡz צRWPINIT[]ZצType 0 to end the sequence. SEQUENCE [ ]:ٿÍړڡ`ɡ,ˡ١9J- Q צ RESETTOTALSȡ.ȡڢW6- \צ RESETCTLSȡ٢? >צ$Enter up to 5 numbers (ASCII codes).<=@<@ȡD?<++?<'?<?=W;+<<;;[,ȡe 2-צ PUTTOTFLDOOȡ#0eڂ٢O+ Z/צ PRINTBIGTOTALݢOOȡ0eڂ*+$*צ Total of ݢ*!*צ is +/OOȡ*O*צtoo large to print.!STARTREP Ɓ.צ PRINTSTUFFƁW+̈ʈ<ȡ7צ'No report--nothing selected. Press rtn.u ʈ+%ʅ] *ʈ+= צPrint the report again? (Y/N)  ̅\ʈ+ʅ\*   ,B. \x  (  J^PBX`XtJn!!r#(((&)~().*"v;End of report; X  items printed.]"e p%*ƁVƁ.צ PRINTSTUFFƁW+̈ʈ<ȡ7צ'No report--nothing selected. Press rtn.u ʈ+%ʅ] *ʈ+= צPrint the report again? (Y/N)  ̅\ʈ+ʅ\**ۣ> *צ details scanned, !*ۣ< *צ items selected, *X *צ processed.!Z\End of report; X  items printed.]"e p%*ƁV)ń;ġ.[Y#.)*j$!*צ&*** WARNING: Forms omitted because of !* I/O errors; totals may be wrong!)#$!*ۣ= *צ forms read, ڣ9ٟˡ,X`e7,Y`&XXZX l;צPRINTRUN Z#Number Processed: `-XW9ٓ+):;XW9ܣ@ܣ@š#خ8+ Ú  Út9צ PUTEXPORTۣ9ٟˡBȡ*X*XXZX r[  :צ PUTRECORD.(. Ó.--ġ5?..(.6.)ڶY[#M\ 7Ú*ڮ+ GET BLOCK # ٢>8צ GETRECORD, RECADDR = ʂ/ʂW,0,,53  .צ ZEROTOTALSڣȡڢW&R6צ CTLBREAKS--ġR?..á..(.&ʤe=Z5צ PRINTTOTALŜ-ʂšƁ_-á=1-10-,ʂ̂,ʂȡʂW,̂ʂʂ˄@-O.ʂÔ.ʂȡ!0ʂeʂ.?..C2ʂʂ++ TBUFڣŶöYڣ;/ء//-///$ڣ;ȡء_404ء_4-5*צ&"???..?" indicates uncomputable total.!YÍ!o3ȡ6ڢ?0e misleading.!á!$*צ*** WARNING ***. Some ٢*!*צ data were not numbers; total may!*therefore be incorrect.! <2ڣȡ *ضe!*B4צ PRTTOD  0ۣȡ?ۢWȡ_eڂؿF-  ^1آW,أ:$**** WARNING ***. Item ٢*!*#appears on each line; its total may!*therefore bBBBBBBBBBBBBBBBB٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jؿH تPIHR"!IBɡ ؀-   0 áHܕ 1 R"تPI1(GGצTRACE(mem, min) !("G"! RD٪PIצTR !!" L&צ at record #  צ. Form omitted.$ܢ:ܣ: ڮ&ز#ٶC,-Hb&צ PASSFILE  FormsצDetails Records selectedC &צ FILEPHASE  ؓ+#FƁ/צ READFILE P ,"hX  8 L x * |bFR~Xb8צ at record #  צ. Form omitted.$ܢ:ܣ: ڮ&ز#ٶC,-Hb&צ PASSFILE  FormsצDetails Records selected צ out of bounds.$%צ VISITNODEز#ٲɶ+ٶC}ٶC}ڶō ڲ%áڶ#ˡ#*** I/O Error reading form startingP1צREPORT&2 NAMERWDISK BJSTART T <vX ,,&"Welcome to VersaForm 1.2 Release 2*Copyright 1981 Applied Software TechnologyReport Program Diskצ Enter the number of the functionצyou wish to use 1. Reportצ2. Make a Report Work DiskƁ0P تP-,,&VV-PV:QVǡVHD,,ȡ,,&"Welcome to VersaForm 1.2 Release 2*Copyright 1981 Ap٨צ12345678Pצ š PZJ*BJTERM"Ú,Ú`!Can't open the configuration file(צ*BJTERM)jBBBBBBBBBBBBBBBBSTARTREP P1צREPORT&2 NAMERWDISK BJSTART T <vX ,,&"Welcome to VersaForm 1.2 Release 2*Copyright 1981 Applied Software TechnologyReport Program Diskצ Enter the number of the functionצyou wish to use 1. Reportצ2. Make a Report Work DiskƁ0P تP-,,&VV-PV:QVǡVHD,,ȡ,,&"Welcome to VersaForm 1.2 Release 2*Copyright 1981 ApR$ """#Iڣڣ#BL IO ($Iۣ#צREC IO &%ȡ(ˡڡ/@&ɡɡۏ צ SYSTEM ERROR   . Code =  bɄڢڢڢc2''أá{TڢڢڣEڢڢڶ:  PšMצ Name over  צ letters. Please re-enterȡ ڳ@@ڳNVYY-Z R , ɡ  ڢ=ڣ=ڣ=ġ:צ PRTSPECENDˡآ8 < צRSCANWצEXPORT?+ضpW),Oa0 { 8 L 0 Ș L  0 ` ` ` ` ii ` !L& `"! cW1l8  r  P | 8`Nrx *   4 Lq`<;8+sifbYD8hhhhhhhhhh "  " )%    L-I% I%HHHH`G = Ș !0 L0-+$ 800   LuLu jD.<0⭅ۥ!800   LL q jL]?mKeim80;e i 0 L10 L?ȭLcHH`` j ášݕ  <0Ȅ Ȅ Ʉ ܂ áf  tI hhhhhhhhi i ii  q jL- Lm+<,7,2,-, ,,p2/,)Y ڣ!`zȄ  7ÄإYإ\٣!ؚC?ݢC?+fتP R* تP  R&,Ȅعˡ,ȡ,|ˡ,' ȡ? @ lC? ܏㣀 ɡ2C?C?ݗ㣀+ALLOC # á*ۡ šY DE-ALLOC ݣˡ*?ݢ ܣAٟ؟ܣAˡCݣˡ<ݣ ˡ3ݣݣ ۚݣ ˡݣˡݣݣۚ`ڢCڣ؂ڣˡ ڣڢؚ,*ڢCڣ؂ڣˡ ڣ&+  㣀㣀@@Ʉ Cᢀǀ ȡ cɍᢁb3@ڣ!ڨ۟ˡˡ $ ڣAˡ ڣA  ڣAˡ ڣA á 墀ǀá  ( ٣!š ᢁȄᣁÄǀR%)ᣁá_ǀᢀǟǀǟߕݚᢀǀ$ )R%)ۣáۢǀǀ4W%)ۣáۢǀǀ(8墁٣Äǀ W%)壁áhǀǟ墀ǀ墀ǀǣ)ڢڢڣ [A'ڣˡڢ"W$('أáڣڣˡTڢڢڣFڢڢڣ*ڢڢڣ\B(ڣˡڢ"ڣá ڢڣڢR YDo you want to use a set ofצ%instructions entered earlier ? (Y/N) Enter the name under which the צinstructions were saved. צ!Use TEMP for the last unnam