`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVEDH8(TD z(PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC STAMPSA3 SYSTEM.PASCALVf34SYSTEM.MISCINFO4SYSTEM.LIBRARYf"SYSTEM.STARTUPN" BOOTCODE.DATANSYSCTLFL> ZSYSCTLFL> Z&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&(צPress CONTROL-RESETGb Íáɡ 럚肚X  šš ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ 0H" ġ  *@#4$$$&ˡ 4 46%ˡ 4Jˡ 45ˡ+42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO /T! ȡ   צצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221 쓡ת$ (   d˯7 H Pצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á?%áÍ2~ š˄ `1 b~ éÍ~  , Ą쓡"á  :"ë á졫šw#ńE z 0 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *6"á1ꓡ삫Ú š K6"á61 ɚ V %ɡšɡš  PꟚáš蕿@šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@á " * ȡ*ńȄ4šáRתPńȄ ,ń.hGGGVJJrKL0M0NNNOlOOONB|`x :~&~& ILyhhhh 6IiIi0&lhhhh h HHHHLy h Ly8hhL1á5   Q lȡ>š 쾿  / Z==>D???x@@ApAnBBCCDfDDE FlFFG>G0ˡ oɡa   áá0š  %4á-ë0zY 000á'5á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń vJ& "ˡ  J    00áQP 0á0 é000+-Í&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡ë!۞ۂۂەߓ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> F bNb:XSEEK SS FEOF R^ R F :FEOLN \ R F :FREADINTTSS F ,S b:,SI "b .0::FTITLE QjQ:jQFOPENOLD QJUNK bJ8FCLOSE QvXQF Q:QFTYPE b7FGET ~R RF bTb:FPUT RDR  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:EáF b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8EEHצE# š 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# , , ,//~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 128K version of SYSTEM.PASCAL cannot (run with the 64K version of SYSTEM.APPLE7:::% š tצWelcome ?צ, to Apple II Pascal 1.2צBased on UCSD Pascal II.1Current date is C -C!!f!צ*V! ""!"צ:" "ۤ   ۤ    áۤ  R   88(áצ Assemblingצ Compi#צMust L(ink first|Ɓ2ƀ¼:צ.Conflict between intrinsic and user segment(s)0ƀ¼ 2 2 Ɓ_& `ۤ  áۤ  !~ʶ́ŕsʁśtʁtˡ  צ not codeʁs2ʁt"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22Ɓ2 bޡ: Linking...ݡ A?̃Aʃȡ@A|A:'A צ @@@áAAM5 r  ߪPƁ_Ɓ6 PƁ6ƁcƁgƁoƁp!́qƁcʁq ת "ˡCܡ>"áצIllegal file nameNo file  Ƃ;P Bń"CB̃CʃȡDC)CC Ƃצ*SYSTEM.LIBRARYPƂ?:צ-Error: Required library files are not present ?צ3Error: These required intrinsic(s) not available: @:ڢ̡d?kt d;.2>!2+2š$2צ.CODE 22 š22 ;.צ:2.LIBP۪PB?D)؞D)ؿ؂پáپ$áڸBBBi ȡؾaġ زؾ $ 2dd;"ákt"áFLIÄ*LIBRARY FILES:ׯá`?kt"á 8צ Warning: צ is not used?צ&Warning: Cannot open the library file dRپáپ$ò$ÄiȡXP  ٲ`ݤۼ: T $ ȡ\q٤زضؗ ٤d n | تPdd"آڤ á4á/آ*Í]  hޢ ȡWڤ ˡD۳-ܢ0ۤ ݢ`ڤá ^| ȡ2ݤˡ"ޢڳ@@YyÍ, 4ۢڤ ɡ?š2ڪP-19:!1ׯ)Illegal filenamenT(ˡ-C ;;ȡPascal system size is 128K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedX 59 v"rx$@   H  tצWelcome ?צ, to Apple II Pascal 1.2צBased on UCSD Pascal II.1Current date is C -C-C ;;ȡPascal system size is 128K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedling...á999':::צ::&:(áAssembleCompileצ what text? (צ&,á(+(.TEXT888Ä8 "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefile? (׷O,áġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  NP3 "gC(,. C ^(Pv l0x: 6?áSFצ=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡 צ Linking...ˡ& Restarting... U not allowedup-Há6OK7AX0   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, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH  áá(צ*SYSTEM.STARTUP %áá 6(šR.%+(]ˡ([8]+("á%צ Terminator=צ , change it?)צNew terminator:}  צ%New swapping level (ESCAPE to exit): ض,0Í1Í2Íسs2ø1öRצ-<=.۪PڪPƀƀ=̀.ƀWƀWƀƀׯWצʀ=ˍʀ7 pXܪP/۪PڪP/ X/<ˍ̀ʀ)#X/PoX ئתP٦׷צ&ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--ۓڛۄ.ڛTb@/ܓ#ۛTܓJۛ3ۛ,Í  TRING); IMPLEMENTATION P L E t L(ink firstƁ1ƀ:.Conflict between intrinsic and user segment(s)@ƀƀƀ 1v -"LۤC1Cáۤ&./ USES STEVAL; PROCEDURE SORTFILE (FILENBR : INTEGER;FILENM : STRING; $VAR RTNREC : SIAINDREC;VAR ERRCODE : INTEGER;VAR SIAMSTWO : SIATWOFL; $VAR SIAMITWO,SORTFL,SIAF1,SIAF2,SIAF3,SIAF4 : SIANDXFL; $SLCTPARAM : SELECTREC; SORTPARAM : INTEGER;REPTYPE : S"B#B$B%B&B'B(B+B,B-B.B/B0BK(c) 1983 Microsystems, Inc., SoftStyle, Inc., All rights reserved, 02-02-84 )> 1@M\]Xj{l n l n l CHAINSTULONGINTIPASCALIOSTEVAL STEVAL STCRTL STLSTANLMENUUNITANAL173 SPEC193 STSIAMCUSTSIAM1USTSIAM2USTSIAM3USTSIAM4USTSIAM5U .>L\hx.ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEX24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`X\X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Ä=̀&X>ˍ̀ʀ ^ XܪP/۪PڪPXׯXצ PXƀƀXPXX/ H V ڨO|Rá|8p @9 |v(@9 |f!@9 |V@9 |F#@9 |69@9 |&@9 |xj\N@2$|m6S|y6C6FÍ|f6W6BÍ6OÍ||P M ? ˄C ˄|PWix d| > ިORáBK? áW$Y?ƀƁNǣƁPƁ"ˡ " ʁ{ˡ p pʁ*́ʁƁPʁ)ʁ%Ɓ́ƁGPƁצ.STATƁP#Ɓ́ƁGPƁ.STBTƁPʁ́pʁƁʁBp*́ʁƁ}́́ýx#́w"ˡ "p((ȡ (́́{ʁ{́zƁ| ƁBƁ}(ʁɄʁ}Ɓ{ʁ́ʁýyƁBƁ}ʁ~ʁ}ʁōʁ}Ɓ{ʁýyʁɡʁ́ʁƁNP Ɓ́ƁGPƁ.STSƁ(--ɡ-..-. .(n ٟá0ڢzڢ ڢ ڢڲB ٚ~zB<á٢ ٢ `؟ˡ.٣ ٨ "ˡ "p(٣ <GP8ڨتṔ́~%R8PRP?93-'!bRצR PR R̀ƀPƀRǠƀצ ǡƀPX xwŶ Exxٶ  ٣   Dˡ  ƀRP ~3!P~~'''~RP gʀšP{3!P{{'''{RP  ed88R PER'P=R P5RP-R"Pƀ ́DʁDʁDʁBƀ  ƀ  ri|٨OצPRתPƀƀƀ~{ƀ ƀ ƀ ƀ5!Pƀƀ'''́ƀʁ  "ˡ  "p ʁ́ƀʁ ́Dʁˡʁ ʁʁDʁDءʁʁDʁD ɡʁD́ʁš@ƀʁ ́DʁD "ˡ  "p ʁ́ʁDʁá́́DʁʁDȡʁʁ́"ˡ " +́DʁDʁD"ˡ  "p ́́DʁʁDȡ_ʁ"ˡ "ʁ ƀʁ ́EʁʁEʁʁEʁʁEʁEʁ́ء>{́{ƀ {ˡƀ  ƀ  ڶȄڶš    ȡ2 <Ä    <áp .ۨ٪Ṕ3*!ٟáۣۣÄڡآ Wۣ ˡۣ خHٸۨ ۣۢ ˡۣ ۢ %˄  ( ȡ۲ Ʉ3F1ض  ض K<-^ڹ0 3 '  7-#J.*)Aع,1&4+">ع,0%šڼ  l ȡ!p*|!(2J .*ع,0%3*!VٹDض Bض ܼݼۼ'dc ''''hۼ'dc+'''dۼݼ ڼݼ ƀP Y0Y0W@TC áW$YCƀƀP Y0Y0WQG áX$YGƀƀP Y0Y0XXWɍWXɡ dWXWXáݼܼ)Pʁ)́Ɓ|!3Ɓ́ƁGPƁ.BINTƁPpʁƁƁ|!Ɓ́ƁGPƁצ.BINTƁPƁ"ˡ " ́ʁʁʁy"ˡ "p ʁ{ˡ p Ɓ|!ʁ}ʁ~ ́ʁʁ-790B> . z  X   |<2(*́ʁƁPʁ)ʁ%Ɓ́ƁGPƁצ.STATƁP#Ɓ́ƁGPƁ.STBTƁPʁ́pʁƁʁBp*́ʁƁ|} ŀ}|ƀ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; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[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 @d $ "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:I0TRšز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 Pʁ)́Ɓ|!3Ɓ́ƁGPƁ.BINTƁPpʁƁƁ|!Ɓ́ƁGPƁצ.BINTƁPƁ"ˡ " ́ʁʁʁy"ˡ "p ʁ{ˡ p Ɓ|!ʁ}ʁ~ ́ʁʁ-~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺  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 FWR $ "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:Ihhƀ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  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع    ADCONTDTE : STRING[6]; ADTYPE,ADGRPN1 : STRING[1];ADTOPIC,ADGRPN2 : STRING[2]) END; SYSCTLREC = RECORD CASE BOOLEAN OF TRUE : (SCLRNO,SCMXNO,PGLEN, SWIDTH : INTEGER; AUTONBR : INTEGER[5];PASSWORD : STRING[4];CHAINMSG : STRING[30]; CHAINTBL : STRING[25]; OW) END; SIAFIVREC = RECORD FIVKEY : STRING[3];CASE BOOLEAN OF TRUE : (FIVNDXUC,FIVLRCNO : INTEGER; ADDATELA : STRING[6]); FALSE : (FIVDELETE : CHAR;ADNAME,ADADDR1,ADADDR2,ADADDR3 : STRING[20]; ADZIP,ADPHONE : STRING[10];ADCONTACT,ADCOMNT : STRING[15]; OULRCNO : INTEGER; CIMSTR : SIATHRREC); FALSE : (FOUDELETE : CHAR;CICNTRY : STRING[3];CITOPIC,CIGRPN2 : STRING[2]; CIDESC : STRING[20];CIISSYR : STRING[4];CIDENOM : STRING[5]; CIGRPN1 : STRING[1];CIPDATE : STRING[6]; CIPRICE1,CIPRICE2,CIPRICE3 : INTEGER[8]AR; CLCATHDG,CLDISK : STRING[7];CLCOLLID,CLGRPN : STRING[2];CLNAME : STRING[10]; CLDESC : STRING[20];CLDATE,CLPDATE,CLP1DESC,CLP2DESC,CLP3DESC : STRING[6]; CLAUTOUP : STRING[1]) END; SIAFOUREC = RECORD FOUKEY : STRING[12];CASE BOOLEAN OF TRUE : (FOUNDXUC,FAIDATEACQ,AIDATELP,AISDATE : STRING[6]; AITVAL,AIPPRICE,AICATUVAL,AISALEAMT : INTEGER[8]); 'R' : (AIREMARK : ARRAY[1..4] OF STRING[30])) END; SIATHRREC = RECORD THRKEY : STRING[3];CASE BOOLEAN OF TRUE : (THRNDXUC,THRLRCNO : INTEGER);FALSE : (THRDELETE : CHD : CHAR OF 'I' : (AITYPE,AIACQFROM,AISOLDTO : STRING[3]; AIDENOM : STRING[5];AITOPIC,AICOND1,AICOND2,AIGRPN2,AIPAGELOC : STRING[2]; AIISSYR,AIPAGENO : STRING[4];AIDESC : STRING[20]; AIGRPN1,AIPRULE,AIHAVCD,AIITMSTAT : STRING[1];AINOITEMS : INTEGER; LDATE,ALDATEAV,ALDATELA : STRING[6];ALVALLA : INTEGER[8]) END; SIATWOREC = RECORD TWOKEY : STRING[12];CASE BOOLEAN OF TRUE : (TWONDXUC,TWOLRCNO : INTEGER; AIMSTR : SIAONEREC); FALSE : (TWODELETE : CHAR;AICNTRY : STRING[3]; AILOTNO : STRING[5]; CASE TWORCDCREC = RECORD ONEKEY : STRING[5];CASE BOOLEAN OF TRUE : (ONENDXUC,ONELRCNO : INTEGER);FALSE : (ONEDELETE : CHAR; ALITEMS : INTEGER;ALDISK,ALCATHDG : STRING[7];ALSTAT : STRING[1]; ALNAME,ALLOCATN,ALCNAME : STRING[10];ALDESC : STRING[20];ALGRPN : STRING[2]; A BLKFILE = FILE; STR160 = STRING[160]; LONG = INTEGER[8]; GOPTION = (OPTM,OPTH,OPTP,OPTR,OPTX); SIAINDREC = RECORD CASE BOOLEAN OF TRUE : (INDNDXUC,INDLRCNO : INTEGER); FALSE : (INDKEY : STRING[SIAKEYLEN]; INDFRCNO : INTEGER) END; SIAONEINTEGER; SETCHAR = SET OF CHAR; :--)PBBINTEGER xALREAL ];CHAR ORBOOLEAN vNSSTRING 0D'TEXT :$STINTE END; OUTREC = ARRAY [1..4] OF STRING; SELECTREC = RECORD WHICHFLD : INTEGER; BEGVAL,ENDVAL : STRING[12] END; SLCTREC = ARRAY [1..3] OF SELECTREC; SORTREC = ARRAY [1..3] OF BRTYPES = 5;SIAPNDXSZ = 10; SIASNDXSZ = 15;SIAMXADRC = 75;SIAMNMEM = 500; SIAMAXMGE = 200;SIAXOFFSET = -1; SIAYOFFSET = -1; TYPE SCRNLNREC = RECORD COLNBR,LNNBR : INTEGER; CONTENT : STRING[80] CONST FOFFSET = -1; XOFFSET = -1; YOFFSET = -1; MAXSCRNLNS = 17; RGTAR = '>'; LFTAR = '<'; CLRAR = ' '; IDAPP = 'Philatelic'; IDSUB = 'ID: '; IDSID = 'Screen '; SIAFOFFSET = 0;SIAKEYLEN = 21;SIAN  z Z   :    ( tV8z <|NER : STRING[15];PRTR,PRTFEED,HISTCODE,AUDITCODE,DAIPRULE : STRING[1]; AICC1,AICC2 : STRING[2];CNTRY,DAITYPE,CSCRN,CLINE : STRING[3]; DCLP1DESC,DCLP2DESC,DCLP3DESC : STRING[6]; CATHDG,ALVOLID,CLVOLID,ADVOLID : STRING[7]);FALSE : (TRANSCD : INTEGER; TRANDATE : STRING[6];TRCOLID : STRING[2];TRALBID : STRING[3]; UPDFLG,PRTFLAG,HISTFLG,ERRCD : BOOLEAN;CASE CHAR OF 'A' : (ALTRANS : SIAONEREC); 'B' : (TOALBUMID : STRING[3]; AITRANS : SIATWOREC);'C' : (CLTRANS : SIATHRREC); 'D' : (TOCATOGID : STRING[3]; CITRANS : .%-á--0ˡ--á..P.VTڪP-.7ׯ-10.1Ȅ617000ɡ501.1100ō0˄-0á5111Í-.1ásׯ3c303M13>1223) 0"7 6 K34צ0P34Ȅ44433%255-5Q5PP3X ڪP-.>.>>-- P-;tv ڪP1ݪP1šxצg۹N1ɡ1ZZ1PZǠZP=1ɡ1ZZPZ1ǠZPLR/ b1PEnH ڪP3213 ,X^تP+3434ȡ$3+33 33P2fbڪPׯ-{.-צ- á -ׯ-->->-٪P-,.3/.j344/- ؼ40,.4-á ,--..333.-ؼd٪P,,   , FILLWHERE : CHAR; FILLWITH : STRING) : BOOLEAN; FUNCTION ERRNUMERIC (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRINTEGER (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRDATE (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRDOLLAR (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRCNTRL (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRREQFLD (STRG : STRING) : BOOLEAN; FUNCTION ERRLENALNM (VAR STRG : STRING; LEN : INTEGER; FILLALPH,FILLNUM : STRING) : BOOLEAN; IMPLEMENTATION L E : INTEGER; FILLWHERE : CHAR; FILLWITH : STRING) : BOOLEAN; FUNCTION ERRNUMERIC (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRINTEGER (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRDATE (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRDOLLAR (VAR STRG : STRING) : BPROCEDURE EVALLONG (STRG : STRING; VAR VALUE : LONG); PROCEDURE EVALINT (STRG : STRING; VAR VALUE : INTEGER); PROCEDURE EVALLWUP (VAR STRG : STRING); FUNCTION ERRFLNM (VAR STRG : STRING) : BOOLEAN; FUNCTION ERRLENGTH (VAR STRG : STRING; LEN : INTEGER; ..SIANBRTYPES,1..SIAPNDXSZ] OF SIAINDREC; SIASARRAY : ARRAY [1..SIANBRTYPES,1..SIASNDXSZ] OF SIAINDREC; SIAPINTAB,SIASINTAB,SIASRFLS : ARRAY [1..SIANBRTYPES] OF INTEGER; SIASLMXKY : ARRAY [1..SIANBRTYPES] OF STRING[SIAKEYLEN]; SIANBRRCS, SIALOWBND,SIAUPBND,SIAPUTPTR : ARRAY [1..SIANBRTYPES] OF INTEGER; SIALSTKEY : ARRAY [0..SIANBRTYPES] OF STRING[SIAKEYLEN]; SIAREADPTR : ARRAY [1..SIANBRTYPES] OF RECORD SIARECLOC : INTEGER; SIARESEEK : BOOLEAN END; SIAPARRAY : ARRAY [15]; IDSCRN : STRING[12]; IDHEADER,IDTITLE : STR160; CLRSCRN : STRING[3]; CLRLN : STRING[3]; PAGELEN : INTEGER; SIABKFL : SIANDXFL;SIAMARK : BOOLEAN;SIAHEAP : ^INTEGER; SIAROOT,SIAGETPTR : ARRAY [1..SIANBRTYPES] OF SIANDPTR;SIALADRC,SIAFIVFL = FILE OF SIAFIVREC;SIANDXFL = FILE OF SIAINDREC; VAR OPTFLAG : PACKED ARRAY [OPTM..OPTX] OF BOOLEAN; OPTMSLCT : INTEGER; OKOPTIONS : SETCHAR; SCRNWIDTH : INTEGER; SCRNLN : ARRAY [1..MAXSCRNLNS] OF SCRNLNREC; IDOWNER : STRING[1SIAFOUREC)) END; SIANDPTR = ^SIANODE;SIANODE = RECORD ITEM : SIAINDREC; NPTR : SIANDPTR END; SIAONEFL = FILE OF SIAONEREC;SIATWOFL = FILE OF SIATWOREC; SIATHRFL = FILE OF SIATHRREC;SIAFOUFL = FILE OF SIAFOUREC; 0P5555111Í-.1áצ0P5555Í--2-%ɡ;;צ0;Q;P-v;;4;;3;;244 Ȅ 4P 422ˏ//4á3- 33/Ȅ--P-& ڪPۡTצDݛ.$ -& ,ׯ0P.á00Pƀתʀ̀չ#Òƀ֧#OǠƀ֧#Ǭƀ֪ Philatelicק#OǠʀX׷"X̀ƀ֦ID: ƀXTƀ֪P#/̀Xʀɡ!X̀ƀXPƀ֦ Qƀ֪P/̀ƀXPƀ/Ǡƀ֪P׷Rצ-P-P0á 0ۓ צ*ERRORfƀܪPƀ۪PXڪP/٪PتPƀצ# Softstyleת #ƀ#̀ƀ֦Screen ƀƀWƀ֪ צ Philatelic̀՝##ʀՕ#̀ԝ#ʀՕ̀ӧ#O#猪̀ʀ̀ʀʀȡ1#Òƀק#OǠƀצ ǡ.02468:<>@cDFHJNPeTXZ\^`  .تPR(تPR0ع <<2>(CR & .\^`bdft V ڪPׯ P/ń#q#š--P#"####w#iHxb# %E _$&(*,ڹġܛáۓܛáۡšۓܛáɡ PpAth  "$&e*,.02468:<>@DFHJLNPRTVZT (VOLUME : STRING); PROCEDURE IDENTRY (FLDLEN,COLNBR,LNNBR,ERRPOS : INTEGER; TPMSG : STRING; VAR TPSTR : STRING); PROCEDURE CNVTKEY (VAR KEYVALUE : STRING); FUNCTION CFMRTNMENU : BOOLEAN; PROCEDURE VERACCEPT; IMPLEMENTATION L E I VAR NEWINPUT : STRING;VAR OPTSELECT : BOOLEAN; VAR OPTVALID : BOOLEAN); PROCEDURE ERRPROC (VAR ERRCODE : INTEGER); FUNCTION CMPARE (STRGA,STRGB : STRING) : CHAR; PROCEDURE PRTSCRN (NBRLNS : INTEGER;VAR PRTFILE : TEXT;PRTOPEN : BOOLEAN); PROCEDURE VOLIDPMCURRVALUE : STRING; :--)PBBINTEGER xinREAL R CHAR -}BOOLEAN vANSTRING 0N TEXT :$toIG); PROCEDURE CRTERRPMT (MSGNBR,ERRNBR : INTEGER; PRESELECT : CHAR; ADDMSG : STRING); PROCEDURE CRTSPEPMT (MSGNBR : INTEGER; ADDMSG : STRING); PROCEDURE CRTOPTPMT (ADDMSG : STRING); PROCEDURE CRTINPUT (COLNBR,LNNBR,FLDLENGTH : INTEGER;TARROW (COLNBR,LNNBR : INTEGER; SELECTOR : CHAR); PROCEDURE CRTTITLE (OWNER,SCRNNBR,SUBTTL,TITLE,DATETTL : STRING); PROCEDURE CRTSCRN (NBRLNS : INTEGER); PROCEDURE CRTINPPMT (MSGNBR,FLDLENGTH : INTEGER; PRESELECT : CHAR; ADDMSG : STRIN USES STEVAL; {***} PROCEDURE STRIPCHAR (WHERE,WHICH : CHAR;VAR STRG : STRING); FUNCTION ERROPTION (STRG : STRING) : BOOLEAN; PROCEDURE CRTWRT (COLNBR,LNNBR : INTEGER; MSG : STRING); PROCEDURE CRTWRTLN (COLNBR,LNNBR : INTEGER; MSG : STRING); PROCEDURE CR##ݭ VhBTt" 1צ0Q1PۡB5-áɡ 0Pɡ צ0PۡPۓ$=;N  ڪP-צ&..-. á..--*V F 0۪PڪPYX[ݪP[!RZ0׷ Y0YצLZצ YYת[ZY[P ~ B#P###X# #X#####0צ00R0PIܕš:ܕ00ȡ"11P1צ0Q1PۡB5-áɡ 0Pɡ צ0PۡPۓ$=;N  ڪP-צ&..-. á./#ɡ!/̀ƀ/Pƀ֦ Qƀ֪P#̀ƀ/PƀǠƀ֪QN >##O#ȡ#+ۢ#ȡ_S ~تP].۹.תP]צ. characterתP.צ letterP.צ digitP.Maximum value is תP.Range is from 0 to 32767תP.צRange is from -32768 to 32767P.צUse MM-DD-YY formatP.צ to continueP]:.$=accept;anything else=reenterתP]:ƀׯWצʀ=ˍʀ7 pؓ٦PRINTER:٧#O٧#ȡY#+ɡ  ȡ ߢȡ #ȡ_׷--š --J-.--$-.Ä -->-<=.۪PڪPƀƀ=̀.ƀWƀWTܓJۛ3ۛ,Í  PoX ئתP٦׷צ&ɡ0QP$R,-ڪP٪P-צTOPPED. WILL RETURN TO MENU: #צ 'צVU #\ ۓڛۄ.ڛTb@/ܓ#ۛTER DISK PROBLEMתPh+ צ NO DISK FOUNDPI+4 FILE PROBLEMתPצSYSTEM PROBLEMP,P WW(W,QW) SWǣWצ . THIS OPTIONǰWPN >>DATA ERROR<< N &S\\\Pġ ]L 1T 11P1׷1/á 1 & š ++NO WORKING SPACEתP0#áצTRANSACTIONS FULLP+Í NO FILE SPACEתP(#%Ʉ+ 6MAS+צ or enter +צP#+F> ۪Pɡ^^P^צ_Q^P\][X1צPZ ]vZ ~\PɄ3Z[Z1^^1P^[Q^P\\6Z\ńZ1\##+TT+PT /M=Menu; YTPH##+TT+PTצ /H=Help; YTPR#&+TT+PT /R=Reenter; \TPX#%+TT+PT /X=Cancel; [TPP#$+TT+PTצ /P=Print; ZTP+TT+PTǠTPPU.ٹ,תPUצ, if correctתPl,צ$ if correct or space to clearP?,& for next item or ! to end listתPh=צUת,WW,PWURWǢWP#,DVL تP+תPM]P(Z#AN, &Z.]]צE* ].S]Pš.]].P]צP]P:š5W Wצ.]].P]צP]WT]P׷[צ.]].P][R]Ǣ]P#.7T  تRINTER IS NOT TURNED ONתP.צ INVALID REPLYP.צTHIS FIELD MUST BE ENTEREDP.INVALID CHARACTERתPq.NO CONTROL CHARACTERS ALLOWEDתPK.USE ONLY LETTERS AND DIGITSתP' n[>"mIZٹ%Z.]]צ>].Q.FILES NOT SYNCHRONIZEDתP.צFILE NOT IN SEQUENCEP.FILE CONTROL ERRORתP.צ SYSTEM ERRORP.INVALID OPTION ENTEREDתP.צENTRY WAS NOT NUMERICP.צ INVALID DATEP.TOO MANY CHARACTERSתP.INVALID DOLLAR AMOUNTתP.P_]R_Ǣ_Pz\.__צO: _.S_]U_ǥ_PF\.__צR: _.S_]U_ǥ_PNR rD\/.__צ*E*_.S_]U_ǥ_P#.V\}Z  تP[.۹.תP[צy.!Setup printer; to continueתP]:J.צNumber of the option you wantP]: seTF9!uHɄUW š;W__Up to _W_.__.P_sQ_PW.Pצ]ת\ٹ\.__.Pؓ(D~ تPׯ+צPut disk in drive # 2.P>+WWצPut disk named W_Wצ in a drive.kWP+ N +צPT++VU VU TA TN N ?٪Pצ2á=Drive # 2. 2  N 043 2צ11430A "*!X##0A ݹ#L0R."0"N"0 + 0 Aצ ;RǠP R" 1RRRP A$ R%N" Aצ$ d@R#-A"ONLY NOT ALLOWED WHEN USING FIRST.$ @R"RN" Aצ$ tRWHEN USING FIRST.$ A$ RRPRR R"oRRRPG&R#-Aצ"ONLY NOT ALLOWED WHEN USING FIRST.$ A$ KL0R$R%R." A$ )áR)PNצ$ mXڪP=>>=>>>==*ɡ?? ?Q?PP=2_ R" oRRRPG&R#-Aצ"ONLY NOT ALLOWED /Y/yÍZYXXNצ$ Y#7٦PRINTER:#$#$#$ צ$ N$ -צP/.$ /I. A$ 7#'N$ $#צ P---N$ Nצ$ #If first line is in the correct$place enter Y, otherwise setup$צprinter again then enter N: $Y/תPXצPRINTER://\[$ \[X A$ */ׯ/ PR ڨ )FIRSTתP) Pق)#)צONLYP6&)LASTתP)Pق)ڪP Z N$ /תPX#//\[$ \[X A$ XXٹi.PPƀƀǠPצ-Pצ-Pá PA.$Eq {"$&(L.0468:<^@FHJLNPRTVX\^`bdfhjlnptvxz|~S : INTEGER; VAR OUTDEV : TEXT;VAR PRTOPEN : BOOLEAN); PROCEDURE VALIDFLD (COLNBR,LNNBR,ERRPOS,FLDLEN,SLCTR : INTEGER; "OKCHAR,OKSTAT : SETCHAR; CLCTID : STRING;SKPFLD : BOOLEAN;VAR TPFLD : STRING); PROCEDURE GETVALFLD (TYPESLCTR : CHAR;COLNBR,LNNBR,ERRPOS,FSLCTOFFSET : INTEGER; /OKSTAT : SETCHAR; CLCTID : STRING;VAR SLCTPARAM : SELECTREC); PROCEDURE YESNO (CALLTYPE : CHAR;COLNBR,LNNBR,ERRPOS : INTEGER; VAR RTNYES : BOOLEAN); IMPLEMENTATION L E N : BOOLEAN); PROCEDURE CONTPMT (OPTPLNS : INTEGER; VAR OUTDEV : TEXT;VAR PRTOPEN : BOOLEAN); PROCEDURE VALIDFLD (COLNBR,LNNBR,ERRPOS,FLDLEN,SLCTR : INTEGER; "OKCHAR,OKSTAT : SETCHAR; CLCTID : STRING;SKPFLD : BOOLEAN;VAR TPFLD : STRING); PROCEDURE GETVALFLD (TYPESLCTR : CHAR;COLNBR,LNNBR,ERRPO USES STEVAL,STCRTL; PROCEDURE RDYDISP (INFO : SELECTREC;FSLCTOFFSET : INTEGER;VAR OUTDISP : OUTREC); PROCEDURE ALIGNMENT (VAR COLNBR,ATPGLN : INTEGER; PGHDR : STRING; VAR OUTDEV : TEXT;VAR PRTOPEN : BOOLEAN); PROCEDURE CONTPMT (OPTPLNÄ$0AצMUST BEGIN WITH A LETTER. 0ۧ#0 Nצ L0 &*,\ jA.N&This will return to Main Menu & cancel N&the rest of this option. to do this or anything else to cancel: צP!-, צ#Nצ Nצ צ V N צP& ׷!ړ#ٓ A ءN GX^*|Thpx 0f4$;Ä$0AצMUST BEGIN WITH A LETTER. 0ۧ#0 Nצ L0 &*,\ jA.N&This will return to Main Menu & cancel N&the rest of this option. to do this or anything else to cancel: צP! gRP@R#-A"ONLY NOT ALLOWED WHEN USING FIRST.$ Aצ$ RN" Aצ$ R"hRQ@R#-A"ONLY NOT ALLOWED WHEN USING FIRST.$ Aצ$ 9R-á+A NEGATIVE VALUES ARE NOT ALLOWED.$ RsR\&R#-Aצ"ONLY NOT ALLOWED WHEN USING FIRST.$ AINVALID CODE ENTERED.$ R" R  rR[&CxPA$ ,CCxxPC"Cráڧ#$$CrPClPN$ C$L$$ GJN|p b  " <% lNoת צ Use Y or N.P:AY2Q "$&(*,0xCrPClPN$ $ CC$ Cצ A$ Cxxצ USE ONLY xrƀƀx OR xlƀƀ#x FOR (xr3x OR 7xlBxצ.Singleת lצ Continuous  Use S or C.תP rPrinterת lScreenת צ Use P or S.Pr2 l1  Use 1 or 2תPz@@rYesת lNoת צ Use Y or N.P:AY2Q vAצ9Bá,A 000ׯʁ8 A PآA آA ƀBáƀ)$ƀ)$a.ܹrAuditת lHistoryת  Use A or H.תPr-APʁ8áAAƁJƁJPA.A$E "$&(S.0468:<e@FHJLNPRTVX\^`bdfjlnptvxz|~L$AEND WITH LESS THAN BEGIN WITH.$ ʁ7##fhhV٪Ṕ8́7ʁ9ʁ8Ɓ:A##AצEA#A&ʁ8Á7آA$>́7ʁ7ʁ8|צ.APAÁJƁJAPƁJAƁƁǠƁJPA-APצr SjbP80 rN "$&(,.fNj$ M    "$&( %'468:<79-/?HJLNPKMOQE\^`bd_acegi]tvxsuwk{}quT.תPX :@:HA)Pj;#=ONLY;&=LAST.תP89Nj$ Nj$ 8jצMax value is 999999.99jfPjצMax value is 999j`PhjצUse W,B,O,C,F oM,<7GBD?OXS\P=TA"$&(DbktS468:<t}ceHJLNP{\^`bdytvxBáT8  ::A)Pj ;space=FIRST )ڪP١$ |RتP('%RR~}$ Rׯ{{"~}| Aצ$ $ ||RP('#$| &'L$ N$ |١$ P 8?999999 9 9 9ۡڹDRŲR*R%ɡR RQPHLP VX "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz~RPfR-á+A NEGATIVE VALUES ARE NOT ALLOWED.$ RL " A$ ۓצ.RPR MT "$&(*,$&(*8:<>68:<>JLNPRJLNPR^`bdf^`bdfrtvxz|~vxzR ڹR" A$ QR%Nצ" A$ 5R Aצ$ RRPR"R" nRRRPG&R#-A"ONLY NOT ALLOWED WHEN USING FIRST.$ Aצ$ R#-Aצ"ONLY NOT ALLOWED WHEN USING FIRST.$  A, USE EITHER A OR M.$ R"M "K&* "$&(:c2468:LFHJLN^`bdZ\^`brvxz|rtv$"*."$&(*,0xCrPClPN$ $ CC$ Cצ A$ Cxxצ USE ONLY xrƀƀx OR xlƀƀ#x FOR (xr3x OR 7xlBxצ. USES STEVAL,STCRTL,CHAINSTUFF; PROCEDURE CHOOSEOPT (OWNER,PROGDATE,COLLID,PROGNAME : STRING; DIDCHAR : CHAR; $VAR CHAINING : BOOLEAN;VAR CNTLREC : SYSCTLREC;VAR DUMFILE : BLKFILE); PROCEDURE ENDMSG (SOFFSET : INTEGER); PROCEDURE ERREXITMSG (SYSVOLUME : S#   -)% !   #!$    !!צTransaction file count: ! ! Max: #!(!( $ j#k MenuתPڢצ%3-Address Menu 7-File MenuPtڢ'4-Transaction Menu 8-End SessionתPCڢצ(________________________________________P pA8%f ȶ#ˍ###ˡ#74-Delete A FileP3ڢצ75-Set Up System FilesP }eI1#( 82צ End Session[$ȡ#+ڢعڢ(1-Album Menu 5-Special MenuתPڢ%2-Catalogs Menu 6-Dis DiskתP x_I0" 2צ File Menu[$ ȡ#+ڢ عڢ70-Create An Item FileתPڢ71-Change File SizeתPڢצ72-Restore FilesPkڢצ73-Reorganize A FilePMڢצ NumbersתP iI. 2צ Disk Menu[$ ȡ#+ڢ عڢ60-List Disk FilesתPڢ61-Prepare A DiskתPeڢצ62-Copy A DiskPMڢצ63-Change Disk IDP2ڢ64-Create HistorysP9ڢצ44-Analyze Transaction HistoryP xS7!, 2צ Special Menu[$ȡ#+ڢعbڢצ50-Change System FactorsPMڢצ51-List CollectionsP0ڢ52-Select Catalog }aE, 2צTransaction Menu[$ ȡ#+ڢعڢצ40-Display TransactionsPڢ41-Update TransactionsתP~ڢ42-Update Transaction HistoryתPWڢצ43-List TransactionmPI* yY?+2צ Address Menu[$ ȡ#+ڢ عuڢצ30-Display AddressesPgڢצ31-Update Addresses PIڢצ32-List AddressesP.ڢ33-Analyze AddressesתPPڢ22-List CatalogsתPڢ23-Analyze Catalog ListתPڢצ24-Display Catalog ItemsPڢצ25-Update Catalog ItemsPڢ26-List Catalog ItemsתPڢצ27-Analyze Catalog ItemsP]ڢצ28-Price A CatalogPAڢצ29-Price Catalog To An AlbuUڢצ18-Price An AlbumP:ڢ19-Chart Value TrendsתP1oQ8u+2צ Catalog Menu[$ȡ#+ڢ عڢצ20-Display Catalog ListPڢ21-Update Catalog Listע عڢצ10-Display Album ListPڢ11-Update Album ListתPڢ12-List AlbumsתPڢ13-Analyze Album ListתPڢצ14-Display Album ItemsPڢצ15-Update Album ItemsPڢ16-List Album ItemsתPuڢצ17-Analyze Album ItemsP#$ ؂ -- Session Ended --$؂ צ!When the disk drives stop, remove$ ؂ all Philatelic disks,$؂צ&then turn off or reboot your computer.$2צ Album Menu[$ȡ#+٪PNצ >>DATA ERROR<<$ ,P ,WWצ>Wצ(W,RWצ) MASTER DISK PROBLEM. Make newqWPN,$ ,WWcopy of WXWצ disk. Exiting whenkWP,$ #$you hit : $,VU$ #TRING;CHECKERR : INTEGER); IMPLEMENTATION L E Ɓ1ƀ:.Conflict between intrinsic and user segment(s)@ƀƀƀ 1v -"LۤC1Cáۤ&./### צP#P Aצ$ NEnter option number:$ $ "#"#ؓ A$ ءN$ # #kT ,٪PتP,2[$$ צ#This option is not implemented yet.$Nצ$ $ # á$#צSTAMPSP PQPPצ:ALSHELLXPצ ALSHELL.CODEPצSTAMP#Wt L 2^t"f>8.&mʀ$ ̀ N$ :|S̀ʀ)A DID NOT FIND DISK. PLEASE RETRY.$ #$ צ$ N$ Nצ$ # # ##Í ##צq ƀߪP[ުP2ݪP ܪP##(̀٢ ٢ #ɡ٢ ƀƀ#"# #̀̀̀#####$ ̀ƀInsert program disk ƀ|dƀצ.eƀPN$ תPʀ#mʀ$ ̀ N$ :|S̀ʀ)A DID NOT FIND DISK. PLEASE RETRY.$ #$ צ$ N$ Nצ$ #צ0ƀQƀP̀ʀ ʀ #áʀ ʀ ʀ ʀ ʀ Sʀ˶A˄ʀA˄ ƀ|SʀAá |S̀̀ʀצ$ 0á̀ƀPƀצ selected. to continue:oƀP"WW "WW ۢ ۢ AצSTAMPSAPئSYSTEM.STARTUPתPצSTAMPSA:SYSTEM.STARTUP.Z#|Sƀ|צ##P ɡ̀ƀ. Returning tokPNX$ menu when you hit :$ #$#צX$ .۪PڪPƀ̀ƀ.Pƀ:QƀPƀ"áiƀ̀ƀƀPƀǠƀPƀ"   LNPRT1\^`bdfhUWY[]tvxz|  tWXP X>(XRצ) T.Ǥצ DISK PROBLEM. Make newǻPNX$ Xcopy of .X diskQ.P..P.צ:DMSHELLX.Pצ DMSHELL.CODEPڦSTAMPSתP ..P.Q.P..P.:FMSHELLX.P٦ FMSHELL.CODEתPKBDFHJLNPRTRTVXZ\^`bdbdfh68:<>@ ..P.Q.P..P.צ :LCOLSHELLZ.PצLCOLSHELL.CODEPڦSTAMPSתP  ..P.Q.P..P. :SCATSHELLZ.P٦SCATSHELL.CODEתPצSTAMPSP  ..P.STAMPSP  ..P.Q.P..P.צ:TRSHELLX.Pצ TRSHELL.CODEPڦSTAMPSתP  ..P.Q.P..P. :CSFSHELLY.Pצ CSFSHELL.CODEPצSTAMPSP #צSTAMPSP ..P.Q.P..P.צ:SYSTEM.STARTUP.`.PצSYSTEM.STARTUPPڦSTAMPSתP ..P.Q.P..P.:ADSHELLX.P٦ ADSHELL.CODEתPצצ:CISHELLXPצ CISHELL.CODEPצSTAMPSP PQPPצ :CI2SHELLYP CI2SHELL.CODEתPZ  תPڦתP٦תP Z #צSTAMPSP PQPPצ:CLSHELLXPצ CLSHELL.CODEPצSTAMPSP PQPPSP PQPPצ:AISHELLXPצ AISHELL.CODEPצSTAMPSP PQPPצ :AI2SHELLYP AI2SHELL.CODEתP # ##Í ##צq ƀߪP[ުP2ݪP ܪP##(̀٢ ٢ #ɡ٢ ƀƀ#"# #̀̀̀##### USES STEVAL; PROCEDURE SORTFILE (FILENBR : INTEGER;FILENM : STRING; $VAR RTNREC : SIAINDREC;VAR ERRCODE : INTEGER;VAR SIAMSTWO : SIATWOFL; $VAR SIAMITWO,SORTFL,SIAF1,SIAF2,SIAF3,SIAF4 : SIANDXFL; $NBRSLCT,NBRSORT : INTEGER;SLCTPARAM : SLCTREC; SORTPARA ́́DʁʁDȡ_ʁ"ˡ "ʁ ƀʁ ́EʁʁEʁʁEʁʁEʁEʁ́ء>t́tƀ tˡƀ  ƀ ́ ƀʁ   "ˡ  "p ʁ́ƀʁ   ȡ2 <Ä    <áp .ۨ٪Ṕ "ˡ " + ́DʁDʁD "ˡ  "pڡآ Wۣ ˡۣ خHٸۨ ۣۢ ˡۣ ۢ %˄  ( ȡ۲ Ʉ3F ڶȄڶš ڹ0 3 '  7-#J.*)Aع,1&4+">ع,0%3*!ٟáۣۣÄȡ! i* u!'2J .*ع,0%3*!VٹDض Bض 1ض  ض K<-^|ʀG ʀ 6~||5ʀ# 6ʀ|ʀL ʀ&6~|xʀʀ |dCʀʀ |Pʀʀ |<;ʀʀ |( vdR@.p^L:}}|>  ̀ʀJSP Sʀʀ |ʀʀ | ʀʀ |(ʀʀ |!ʀʀ |ʀʀ |:SP Sʀʀ |%ʀʀ |#ʀʀ |9ʀʀ |ʀʀ (R L XܪP/۪PڪP/ X/<ˍ̀ʀ)#X/=̀&X>ˍ̀ʀ ^ XܪP/۪PڪPXׯXצ PXƀƀXPXX/ H V ڨO|}Rá|}|}LLGá~~LL wz Q "$&(*,.02468:<>@BDJLPRTVXZ\^]bdfjlnrtvxz|~G~Gá~LL~Gá~HH~Gá~HH~ Gá~@@~$-.Ä -->-<=.۪PڪPƀƀ=̀.ƀWƀWƀƀׯWצʀ=ˍʀ7 p٪P~Gá~LLPoX ئתP٦׷צ&ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--ۓڛۄ.ڛTb@/ܓ#ۛTܓJۛ3ۛ,Í  M : SORTREC); IMPLEMENTATION P L E k firstƁ1ƀ:.Conflict between intrinsic and user segment(s)@ƀƀƀ 1v -"LۤC1Cáۤ&./ ́Dʁˡʁ ʁʁDʁDءʁʁDʁD ɡʁD́ʁš@ƀʁ ́D ʁD  "ˡ  "p ʁ́ʁDʁá́́DʁʁDȡʁʁ́ ƀ ́DʁDʁDʁ;ƀ   ƀ   ri|٪P-,,-, á,,--ئתP..PPOb٨OצP{|{|ȡRצP{IRP R PR PR'PR PRP9R $-.Ä - ->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 páڧ#ȡˡńPoX ئתP٦׷ צ & ɡ0QP$R, -ڪP٪P-צ׷--š - - J-.--ۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í  E : INTEGER); PROCEDURE SIAMRLSMEM (VAR ERRCODE : INTEGER); PROCEDURE SIAFIND (FILENBR : INTEGER; KEY : STRING; VAR INDFILE : SIANDXFL; VAR INDREC : SIAINDREC; VAR SUCCESS : BOOLEAN; VAR ERRCODE : INTEGER); PROCEDURE SIAGET (FILENBR : INTEGER; VAR INDFILE : SIANDXFL; VAR INDREC : SIAINDREC; VAR ERRCODE : INTEGER); PROCEDURE SIAADD (FILENBR : INTEGER; KEY : STRING; VAR ERRCODE : INTEGER); IMPLEMENTATION P L E VAR INDFILE : SIANDXFL; VAR ERRCODE : INTEGER); PROCEDURE SIAMRLSMEM (VAR ERRCODE : INTEGER); PROCEDURE SIAFIND (FILENBR : INTEGER; KEY : STRING; VAR INDFILE : SIANDXFL; VAR INDREC : SIAINDREC; VAR SUCCESS : BOOLEAN; VAR ERRCODE : INTEGER); PROCEDURE S USES STEVAL; PROCEDURE SIAOPEN (FILENBR,NBRRECS : INTEGER; VAR INDFILE : SIANDXFL; VAR ERRCODE : INTEGER); PROCEDURE SIACLOSE (FILENBR : INTEGER; FILENM : STRING; ICNTL : SIAINDREC; VAR INDFILE : SIANDXFL; VAR ERRCODzƁPʁz)ʁx%Ɓ́zƁz@PƁzצ.STATƁzP#Ɓ́zƁz@PƁz.STBTƁzPʁx́xiʁƁʁ;i*́zʁzƁPʁz)́Ɓu!3Ɓ́zƁz@PƁz.BINTƁzPiʁƁƁu!Ɓ́zƁz@PƁzצ.BINTƁzPƁ"ˡ " ́zʁzʁzʁr"ˡ "p ʁtˡ p Ɓu!ʁvʁw ́zʁzʁz-79x0B8$  ` >  f ^(>4'*́zʁzƁPʁz)ʁx%Ɓ́zƁz@PƁzצ.STATƁzP#Ɓ́zƁz@PƁz.STBTƁzPʁx́xiʁƁʁ;i*́zʁzƁPʁz)́Ɓu!3Ɓ́zƁz@PƁz.BINTƁzPiʁƁƁu!Ɓ́zƁz@PƁzצ.Ɓu Ɓ;Ɓv(ʁyɄʁvƁtʁýyʁŕrƁ;ƁvʁwʁvʁōʁvƁtʁŕrʁɡʁ́ʁƁGP Ɓ́zƁz@PƁz.STSƁzƁGǣƁzPƁ"ˡ " ʁtˡ p iʁ*́zʁ ڢڲ; ٚws;<á٢ ٢ `؟ˡ.٣  ٨  "ˡ "p'٣ <@P٨-ب́x́ẃv́́ŕq#́p"ˡ "p'(ȡ '́ýtʁt́sǠ}צ ǡ}P{{}Nx qpŶ Eqqٶ  ٣   Dˡ  (00ɡ01101 1(t ٟá0ڢsڢ ڢP R$PR"PR8PRP5*R1PWR2PPR3PIR4PBR5P;R6P4BW,+ > "1&(*\HRP@BR8RP0:R( @:4.RצR PR R}}P}R#ڕšš1#9 #*ݚi#9 #9 ɡ1#9 #9  צ  #* ȡ&# 7 >#š# ɡ8á#4#4##4 ڧ#4ȡڧ#4ɡڏ##Nx   "á؞"p"ˡ+000ç#*Ų#9 =ÄB#/#*#/0#0 #߶ˡ:#߶>á #߶#߶ p' 2ŧ#߶˄2#0 #߶>#߶ء6#߶ #߶#߶ #0 ء0š3#0 =á ٟړ(>ˡ#߶ٚ٣ ٟˡ=á#߶ٚY| 0#/ɡ#0\#/#*##/##0v## <ˡDز## =Ú#0 *#߶#צ#*!ٟˡ#߶ٚ٣ W#*˧#Í(#/##/0#0##/## >ˡDز## =Ú## <Ä"###0zhpׯv#*˧#/Í#/0###/*##ɶ##0#0 <á#0'>á#0## =Ú#Ų##/### <؄~#*ɲ#9 >ÍL#/#*##/N# <ò## >Íءڧ#4؄-#Nx  >ˡ#*#Nx  ˧#Í1#/#Nx  #"ˡ؞"pá"ˡ؞"Ǡ# ȡ#ˡÝ#ݓ #ݧ#ޞ!;L#/š###/##Ä9# ## ˡڸ#r, Z۪Pڨ ;;ƀ:ƀP;צ SIASORT.BIN[;P#"ˡ"+áP p"؞""### #˄Äg##>ˡ# #/# ## # Ä# ###/####ݡ+ȡ##ޞ #ݭ( :pȶ /# #"ˡ "+"á؞"Jp"ˡ #Nx  ۚ#4 0##Dݢ# # ɡ-# # צ #ښˡ+#*#/###ŧ#߶˄#0 <ò#߶<Äx#0 <áO#߶<á0ا#0 #߶<Úg#߶á0#0 <á$#߶<áj X1؍#šl*2#0 #߶>0#0 #߶<١0#/ɡ ۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í  ONE : SIANDXFL); PROCEDURE SIAM1PUT (PUTREC : SIAONEREC; VAR ERRCODE : INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMIONE : SIANDXFL); IMPLEMENTATION P L E CHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR DUPEFOUND : BOOLEAN; VAR ERRCODE : INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMIONE : SIANDXFL); PROCEDURE SIAM1ADD (ADDREC : SIAONEREC; VAR ERRCODE : INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMI:--)PBBINTEGER xSUREAL elCHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR RTNREC : SIAONEREC; VAR SUCCESS : BOOLEAN; VAR DUPEFOUND : BOOLEAN; VAR ERRCODE: INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMIONE : SIANDXFL); PROCEDURE SIAM1GET (VAR RTNREC : SIAONEREC; SIAONEFL; VAR SIAMIONE : SIANDXFL); PROCEDURE SIAM1READ (RECNBR : INTEGER; VAR RTNREC : SIAONEREC; VAR ERRCODE : INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMIONE : SIANDXFL); PROCEDURE SIAM1FIND (KEY : STRING; USES STEVAL,STSIAMCUNIT; PROCEDURE SIAM1OPEN (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSONE : SIAONEFL; VAR SIAMIONE : SIANDXFL); PROCEDURE SIAM1CLOSE (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSONE : 0 - 0 #á#.- .(#ɧ##Kč(ɡ] 8 8 < 2l&\R^8$vH8+ A ٪P#D#..-ɡ00P0צ Q0P####/./.<á/ .-. .. .000 #-ˡD#<á"0 ### ####/šN#/ڧ#*##/#,٧# ## A ٪P#Dš#ˡ11 #D#ŧ#ˍ#˧#ō#áL#ȡ6## #>ܡ٧#q1#áB#ȡ,#0 #>#ˡ1ܪP#D10׷*%ɡ33P3 Q3P#ŧ#ˍ6# #߶#߶ #߶لW#0 #߶>ˡ #߶#߶ #0 h׷* ۡצ00P#/#*0##/#/šl*2#0 #߶>0#0 #߶<#0#߶PoX ئתP٦׷ צ & ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--$-.Ä -->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 p ݪPܹT۹ NOH VAR DUPEFOUND : BOOLEAN; VAR ERRCODE : INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMITWO : SIANDXFL); PROCEDURE SIAM2ADD (ADDREC : SIATWOREC; VAR ERRCODE : INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMI:--)PBBINTEGER xSUREAL elCHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR RTNREC : SIATWOREC; VAR SUCCESS : BOOLEAN; VAR DUPEFOUND : BOOLEAN; VAR ERRCODE: INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMITWO : SIANDXFL); PROCEDURE SIAM2GET (VAR RTNREC : SIATWOREC; SIATWOFL; VAR SIAMITWO : SIANDXFL); PROCEDURE SIAM2READ (RECNBR : INTEGER; VAR RTNREC : SIATWOREC; VAR ERRCODE : INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMITWO : SIANDXFL); PROCEDURE SIAM2FIND (KEY : STRING; USES STEVAL,STSIAMCUNIT; PROCEDURE SIAM2OPEN (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMITWO : SIANDXFL); PROCEDURE SIAM2CLOSE (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSTWO :<"áLj"xh" " &2p(,-# #  #á# # T#  =ˡ9# # <á# # á#0 ۨ<٧#<"áC#á#SABšBBBSAá+Lj"ۨ<#D#ˡ2٧# á# +áá# ܪ# ɡ-# #  #á# # T#  =ˡ9# # <á# ,< ,"áݢLj" ުP1+á1á{# ݪ# ɡ-# ==# = =# 1 =ˡ# ##ˡUS:FI.F#:;/S:á SLSLá .+SLá ILILF##Dɡ#ˡܚݢ#ŧ#ˍ;# =ٍ۪PFppPp.1INTpPppPp.SCETpPSOˡ,S:ˡ,FIOˡ SLo,I.ˡ SLo,;/:.ˍ ,.+,۪P IS+ ~"á" ۨ <"á#皹#Lj"L##ڡ# # =١3# #"á"2 ܹT"áݢڞ"LjB"á ڞ"pIS, o |ۨ ܹbLjצޚݚAp۹ NOIS2 p"á"R ܹǸ ۹2+$CP /)`Ǡ۹1*#CP .(ISJ TWO : SIANDXFL); PROCEDURE SIAM2PUT (PUTREC : SIATWOREC; VAR ERRCODE : INTEGER; VAR SIAMSTWO : SIATWOFL; VAR SIAMITWO : SIANDXFL); IMPLEMENTATION P L E CHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERACۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í   VAR RTNREC : SIATHRREC; VAR SUCCESS : BOOLEAN; VAR DUPEFOUND : BOOLEAN; VAR ERRCODE: INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMITHR : SIANDXFL); PROCEDURE SIAM3GET (VAR RTNREC : SIATHRREC; SIATHRFL; VAR SIAMITHR : SIANDXFL); PROCEDURE SIAM3READ (RECNBR : INTEGER; VAR RTNREC : SIATHRREC; VAR ERRCODE : INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMITHR : SIANDXFL); PROCEDURE SIAM3FIND (KEY : STRING; USES STEVAL,STSIAMCUNIT; PROCEDURE SIAM3OPEN (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMITHR : SIANDXFL); PROCEDURE SIAM3CLOSE (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSTHR :O"áLj"h$ $ &2p(--# #  #á# # T#  =ˡ9# # <á# # á#0 ۨO٧#O"áC#á#STUšUUUSTá+Lj"ۨO#D#ˡ2٧# á# +áá# ܪ# ɡ-# #  #á# # T#  =ˡ9# # <á# -O -"áݢLj" ުP1+á1á{# ݪ# ɡ-# ==# = =# 1 =ˡ# ##ˡUS:FI.F#:;/S:á SLSLá .+SLá ILILF##Dɡ#ˡܚݢ#ŧ#ˍ;٤# =ٍ۪PFppPp.2INTpPppPp.SCETpPSOˡ-S:ˡ-FIOˡ SLo-I.ˡ SLo-;/:.ˍ -.+,۪P IS+ ~"á" ۨ O"á#皹#Lj"L##ڡ# # =١3# #"á"2 ܹU"áݢڞ"LjC"á ڞ"pIS- q ~ۨ ܹbLjצ ޚݚAp۹ NOIS2 p"á"R ܹǸ ۹2+$CP /)`Ǡ۹1*#CP .(ISJ $-.Ä -->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 p ݪPܹT۹ NOHPoX ئתP٦׷ צ & ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--:--)PBBINTEGER xSUREAL elCHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR DUPEFOUND : BOOLEAN; VAR ERRCODE : INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMITHR : SIANDXFL); PROCEDURE SIAM3ADD (ADDREC : SIATHRREC; VAR ERRCODE : INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMI USES STEVAL,STSIAMCUNIT; PROCEDURE SIAM4OPEN (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMIFOU : SIANDXFL); PROCEDURE SIAM4CLOSE (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSFOU :5"áLj"jh" " &2p(.-# #  #á# # T#  =ˡ9# # <á# # á#0 ۨ5٧#5"áC#á#S:;š;;;S:á+Lj"ۨ5#D#ˡ2٧# á# +áá# ܪ# ɡ-# #  #á# # T#  =ˡ9# # <á# .5 ."áݢLj" ުP1+á1á{# ݪ# ɡ-# ==# = =# 1 =ˡ# ##ˡUS:FI.F#:;/S:á SLSLá .+SLá ILILF##Dɡ#ˡܚݢ#ŧ#ˍ;# =ٍ۪PFppPp.3INTpPppPp.SCETpPSOˡ.S:ˡ.FIOˡ SLo.I.ˡ SLo.;/:.ˍ ..+,۪P IS+ ~"á" ۨ 5"á#皹#Lj"L##ڡ# # =١3# #"á"2 ܹT"áݢڞ"LjB"á ڞ"pIS, o |ۨ ܹbLjצޚݚAp۹ NOIS2 p"á"R ܹǸ ۹2+$CP /)`Ǡ۹1*#CP .(ISJ $-.Ä -->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 p ݪPܹT۹ NOHPoX ئתP٦׷ צ & ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--ۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í  THR : SIANDXFL); PROCEDURE SIAM3PUT (PUTREC : SIATHRREC; VAR ERRCODE : INTEGER; VAR SIAMSTHR : SIATHRFL; VAR SIAMITHR : SIANDXFL); IMPLEMENTATION P L E CHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC SIAFOUFL; VAR SIAMIFOU : SIANDXFL); PROCEDURE SIAM4READ (RECNBR : INTEGER; VAR RTNREC : SIAFOUREC; VAR ERRCODE : INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMIFOU : SIANDXFL); PROCEDURE SIAM4FIND (KEY : STRING; VAR RTNREC : SIAFOUREC; VAR SUCCESS : BOOLEAN; VAR DUPEFOUND : BOOLEAN; VAR ERRCODE: INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMIFOU : SIANDXFL); PROCEDURE SIAM4GET (VAR RTNREC : SIAFOUREC; # # á#0 ۨ>٧#>"áC#á#SCDšDDDSCá+Lj"ۨ>#D#ˡ2٧# á# +áá# ܪ# ɡ-# #  #á# # T#  =ˡ9# # <á# /> /"áݢLj" ުP1+á1á{# ݪ# ɡ-# ==# = =# 1 =ˡ# ##ˡUS:FI.F#:;/S:á SLSLá .+SLá ILILF##Dɡ#ˡܚݢ#ŧ#ˍ;٤# =ٍ۪PFppPp.4INTpPppPp.SCETpPSOˡ/S:ˡ/FIOˡ SLo/I.ˡ SLo/;/:.ˍ /.+,۪P IS+ ~"á" ۨ >"á#皹#Lj"L##ڡ# # =١3# #"á"2 ܹU"áݢڞ"LjC"á ڞ"pIS- q ~ۨ ܹbLjצ ޚݚAp۹ NOIS2 p"á"R ܹǸ ۹2+$CP /)`Ǡ۹1*#CP .(ISJ $-.Ä -->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 p ݪPܹT۹ NOHPoX ئתP٦׷ צ & ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--ۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í  FOU : SIANDXFL); PROCEDURE SIAM4PUT (PUTREC : SIAFOUREC; VAR ERRCODE : INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMIFOU : SIANDXFL); IMPLEMENTATION P L E CHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR DUPEFOUND : BOOLEAN; VAR ERRCODE : INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMIFOU : SIANDXFL); PROCEDURE SIAM4ADD (ADDREC : SIAFOUREC; VAR ERRCODE : INTEGER; VAR SIAMSFOU : SIAFOUFL; VAR SIAMI:--)PBBINTEGER xSUREAL elCHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC>"áLj"|h$ $ &2p(/-# #  #á# # T#  =ˡ9# # <á USES STEVAL,STSIAMCUNIT; PROCEDURE SIAM5OPEN (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMIFIV : SIANDXFL); PROCEDURE SIAM5CLOSE (FILENM : STRING; VAR ERRCODE : INTEGER; VAR SIAMSFIV :# 0U 0"áݢLj" ުP1+á1á{# ݪ# ɡ-# ==# = =# 1 =ˡ# ##ˡUS:FI.F#:;/S:á SLSLá .+SLá ILILF##Dɡ#ˡܚݢ#ŧ#ˍ;# =ٍ۪PFppPp.5INTpPppPp.SCETpPSOˡ0S:ˡ0FIOˡ SLo0I.ˡ SLo0;/:.ˍ 0.+,۪P IS+ ~"á" ۨ U"á#皹#Lj"L##ڡ# # =١3# #"á"2 ܹT"áݢڞ"LjB"á ڞ"pIS, o |ۨ ܹbLjצޚݚAp۹ NOIS2 p"á"R ܹǸ ۹2+$CP /)`Ǡ۹1*#CP .(ISJ $-.Ä -->-<= .۪PڪPƀƀ=̀.ƀ W ƀWƀ ƀׯWצʀ=ˍʀ7 p ݪPܹT۹ NOHPoX ئתP٦׷ צ & ɡ0QP$R,-ڪP٪P-צ׷--š --J-.--ۓڛۄ.ڛTb @/ܓ#ۛTܓJۛ3ۛ,Í  FIV : SIANDXFL); PROCEDURE SIAM5PUT (PUTREC : SIAFIVREC; VAR ERRCODE : INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMIFIV : SIANDXFL); IMPLEMENTATION P L E CHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR DUPEFOUND : BOOLEAN; VAR ERRCODE : INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMIFIV : SIANDXFL); PROCEDURE SIAM5ADD (ADDREC : SIAFIVREC; VAR ERRCODE : INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMI:--)PBBINTEGER xSUREAL elCHAR  BOOLEAN v VSTRING 0 TEXT :$onINTERAC VAR RTNREC : SIAFIVREC; VAR SUCCESS : BOOLEAN; VAR DUPEFOUND : BOOLEAN; VAR ERRCODE: INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMIFIV : SIANDXFL); PROCEDURE SIAM5GET (VAR RTNREC : SIAFIVREC; SIAFIVFL; VAR SIAMIFIV : SIANDXFL); PROCEDURE SIAM5READ (RECNBR : INTEGER; VAR RTNREC : SIAFIVREC; VAR ERRCODE : INTEGER; VAR SIAMSFIV : SIAFIVFL; VAR SIAMIFIV : SIANDXFL); PROCEDURE SIAM5FIND (KEY : STRING; á# +áá# ܪ# ɡ-# #  #á# # T#  =ˡ9# # <á# # á#0 ۨU٧#U"áC#á#SZ[š[[[SZá+Lj"ۨU#D#ˡ2٧#צ%The current control sequence to clearthe ENTIRE SCREEN is: `צ"To clear the ENTIRE SCREEN use theצnew sequence: `ؓY(__________________________________ء#>צ"New clear to end of line accepted.| צ(________________________________________צ *** CLEAR ENTIRE SCREEN ***%The current control sequence to clearצto END OF LINE is: To clear to END OF LINE use theצnew sequence: ؓYצ(_____________________________________ á ٦תPh/ńPXxÍ#,#>INVALID CHARACTER. PLEASE REENTER.תPRצ(________________________________________צ! *** CLEAR TO END OF LINE ***X-W"WWɄh.XWXX,WWáX@WX׷*-צ>MAX SEQUENCE IS 3 CHARACTERS.P--צ!>DECIMAL EQUIVALENT OUT OF RANGE.P-T .$.P-/^Pׯ|ׯ$System defaultD+,+,ȡ4+ +ɡ ,++=VڪPY. תP-XX-XYXX--.#>INVALID CHARACTER. PLEASE REENTER.תPXype the decimal%equivalent of the ASCII code for eachצcharacter separated by a comma.&To skip this sequence without changingit just hit .|تP Copyright 1983 Microsystems, Ltd.$$SoftStyle, Inc. All rights reserved.$pȡNtTo cancel all changes type /X.&To reset to system default type space.&To enter new sequence t ## ## ##$## ## ## ##$צ## ## ## ##$ ## ## Serial number$$צ%SoftStyle, Inc. 7192 Kalanianaole Hwy$%Honolulu, Hawaii 96825 (808)396-6368$צ%(C) ## ## SYSTEM$צ(## ## ## ## --------------$צ## SOFTSTYLE$ צ"######## ## ###########$ #$ צ######### ## ######## ## Apple //e$ %## ## ## ## Version 1.1$ צ## #$צ"###########"########### !(  # #$צ(######## ## ######## ## --------------$צ$## ## ## ## PHILATELIC$צ$## ## ## ## MANAGEMENT$צ ## ##BBBBBBBBBBBBBBBB\b STMAIN U"áLj"h" " &2p(0-# #  #á# # T#  =ˡ9# # <á_________ء#6New clear screen accepted.w ##P`#P##*צ(________________________________________צ$These are the new control sequences.צClear to end of line: צ Clear entire screen: `#Type /X to cancel any changes, typeצ /R to reenter sequences, or just,PNצUse 2 letters;=AA.$ צ צ$ -- $ #Zá-׷𩂾, Aצ$ " ,,צAAPNצ" A$ ɡ%AMUST BE EXACTLY 2 LETTERS.$ f- $ #Zá-׷=, Aצ$ " A$ ,P,,  L$  #$,N$ צ$ P׷*צ-Pצ-P0á $F,$ #Zá~FAצ!INVALID PASSWORD. PLEASE REENTER.$ #$#L$ũ #$š#Nצ$ N$ צ$ T@N$ ,Pצ7-צ$ צ-Pצ-P0áתP~צR++P,+ +P++P#" ˡt # $NUp to 4 characters.$ "Must be entered exactly as chosen.$ Password: ____$צ**U0צ$$Nצ$ # צ+$ #Zá#~צצP,תP"vGAé##(UҪP~P׷ #צ #ׯ.#צP,ENDjVPUVVNORMALLY. OPTION NUMBER VhVPUצWAS INTERRUPTED. AS A RESULTPUYOU MAY HAVE A PROBLEM WITH THEתPiUFILE THAT WAS BEING PROCESSED.תP@Uצ YOU SHOULD REORGANIZE THAT FILE.P%e>+TT TT>> DATA WARNING <<תP*T*Tȡ#*+UUU**+P-+Pצ-+P+0á+UVVצYOUR V+UVצ SESSION USINGcVPUVVצCOLLECTION ID V,^V DID NOT UצSTAMPSA Uצ disk in main drive.UPN$ Nצ$ # to continue or /M to quit: $ $$ STAMPSAש& ^ ٧## 5I ` تP#$# LȡTق0ٹ )" $*. ٛ0\ j # ,UUSTAMPSAU:USYSCTLFLUP ,"ˡ(#"1#áUUPut "Philatelic disks, then turn off orreboot your computer. Any newצ"sequences will take effect in yourצnext session. Hit : ƀP  ^  k7#)Changes cancelled. GצSaving new sequences.#ƀ#`:ƀ<`$Ending session when you hit . When the drives stop, remove all___________# CHANGE SCREEN CONTROL SEQUENCESƀצPƀ#P`#P#### #צ(________________________________________2468:<>@cDFHJLa**z(________________________________________">INVALID RESPONSE. PLEASE REENTER.*T ( ب^̀̀ʀʀȡʀ̀۹(_____________________________צ$hit to save these sequences.צDesired action: Pצ*/ń#{#c#URxN# ! "$&(*,.0AUSE LETTERS ONLY.$ ",P,,,  L$  #$,Nצ$ $ ,P $ZIMOQ###+... .צDate: ________P#+... .צCollection ID: __P$צ$ #  ######$######784Y_2020884 _____111111 AAMUS2AAUS2NScotts_TEST1__CLinda_____Kitchen___O White Ace_U.S. Mint only________]020784 020684_2020884 _____020884 AAMUgl_________VFAU_1__N22__________________________WN2_ _____2020884 _____111111 AAMWW1AAWW1NScotts_TEST1__W__________DUMMY_____OWWORLD____ WORLD STAMPS__________]111111020884020(Bre 2 l08111111AA r>=AA. צ ABBBCCCCDDDDDD 158140SoftStyle,Inc.1NNCNVFMSglUSABlk 4צUsed SMint SLISTFILLISTFILLISTFILCatalogA111111 AAMWW1US21___________1NUSA2____I______SBLANKBLANK: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 # #7U0,Sign-Onץ$U0,צSign-On$#&U,SYSTEM.STARTUPשå&###& #&$"##"$&vYSD  t vbV(ת#ȡ#R6  ^  &򥂓 5^## "$&#$******ת(## # #7U0,Sign-Onץ$U0,צSign-On$#&U,SYSTEM.STARTUPשå&###& #&$" or will end.$  Please reconfirm: $ צ$ #ת#ȡ#R6  ^  &򥂓 5^## "$&#$******ת(##3..00.R.,Ǣ.צ*ǣ.# #U8,צ End Session$$[ 'ONLY THREE INCORRECT PASSWORDS ALLOWED.$N$ צ$ #`N$/M will restartS2ILT4___________:NUSA9____I______Sgl_________VF.U_E__C____L____ ____________________eCY2_ _____ _____  _____b020884 AAMUS2ILT4___________:NUSA9____I______Sgl_________VF.U_E__C____L____ ____________________eCY2_ _____ _____  _____b020884 AAMUS2AAUS2NScotts_TEST1__CLinda_____Kitchen___O White Ace_U.S. Mint only________]020884 020684p_ __$ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $ $ $___________10020284 020284US Air Mail 1950____12020284112883U0,צSign-On&U,SYSTEM.STARTUPשå NScotts_TEST1__CLinda_____Kitchen___O White Ace_U.S. Mint only________]020884 020684pODESgl3c___R___VF.M_EC_C22__L192020284 AAM1..AA1..NScott__LISTFILCTest______Test______Test 1____Test 1______  _____b020884iAASUS2AAUS2NScotts_TEST1__CLinda_____Kitchen___O White Ace_U.S. Mint only________]020884 020684pODESgl3c___R___VF.M_EC_C22__L192020884iAASUS2AAUS2šš$%&$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡ@q@q҈q?DqJá"$$M l # # á#0 ۨU٧#U"áC#á#SZ[š[[[SZá+Lj"ۨU#D#ˡ2٧#צ%The current control sequence to clearthe ENTIRE SCREEN is: `צ"To clear the ENTIRE SCREEN use theצnew sequence: `ؓY(__________________________________ء#>צ"New clear to end of line accepted.| צ(________________________________________צ *** CLEAR ENTIRE SCREEN ***%The current control sequence to clearצto END OF LINE is: To clear to END OF LINE use theצnew sequence: ؓYצ(_____________________________________ á ٦תPh/ńPXxÍ#,#>INVALID CHARACTER. PLEASE REENTER.תPRצ(________________________________________צ! *** CLEAR TO END OF LINE ***X-W"WWɄh.XWXX,WWáX@WX׷*-צ>MAX SEQUENCE IS 3 CHARACTERS.P--צ!>DECIMAL EQUIVALENT OUT OF RANGE.P-T .$.P-/^Pׯ|ׯ$System defaultD+,+,ȡ4+ +ɡ ,++=VڪPY. תP-XX-XYXX--.#>INVALID CHARACTER. PLEASE REENTER.תPXype the decimal%equivalent of the ASCII code for eachצcharacter separated by a comma.&To skip this sequence without changingit just hit .|تP Copyright 1983 Microsystems, Ltd.$$SoftStyle, Inc. All rights reserved.$pȡNtTo cancel all changes type /X.&To reset to system default type space.&To enter new sequence t ## ## ##$## ## ## ##$צ## ## ## ##$ ## ## Serial number$$צ%SoftStyle, Inc. 7192 Kalanianaole Hwy$%Honolulu, Hawaii 96825 (808)396-6368$צ%(C) ## ## SYSTEM$צ(## ## ## ## --------------$צ## SOFTSTYLE$ צ"######## ## ###########$ #$ צ######### ## ######## ## Apple //e$ %## ## ## ## Version 1.0$ צ## #$צ"###########"########### !(  # #$צ(######## ## ######## ## --------------$צ$## ## ## ## PHILATELIC$צ$## ## ## ## MANAGEMENT$צ ## ##BBBBBBBBBBBBBBBB\b STMAIN U"áLj"h" " &2p(0-# #  #á# # T#  =ˡ9# # <á_________ء#6New clear screen accepted.w ##P`#P##*צ(________________________________________צ$These are the new control sequences.צClear to end of line: צ Clear entire screen: `#Type /X to cancel any changes, typeצ /R to reenter sequences, or just,PNצUse 2 letters;=AA.$ צ צ$ -- $ #Zá-׷𩂾, Aצ$ " ,,צAAPNצ" A$ ɡ%AMUST BE EXACTLY 2 LETTERS.$ f- $ #Zá-׷=, Aצ$ " A$ ,P,,  L$  #$,N$ צ$ P׷*צ-Pצ-P0á $F,$ #Zá~FAצ!INVALID PASSWORD. PLEASE REENTER.$ #$#L$ũ #$š#Nצ$ N$ צ$ T@N$ ,Pצ7-צ$ צ-Pצ-P0áתP~צR++P,+ +P++P#" ˡt # $NUp to 4 characters.$ "Must be entered exactly as chosen.$ Password: ____$צ**U0צ$$Nצ$ # צ+$ #Zá#~צצP,תP"vGAé##(UҪP~P׷ #צ #ׯ.#צP,ENDjVPUVVNORMALLY. OPTION NUMBER VhVPUצWAS INTERRUPTED. AS A RESULTPUYOU MAY HAVE A PROBLEM WITH THEתPiUFILE THAT WAS BEING PROCESSED.תP@Uצ YOU SHOULD REORGANIZE THAT FILE.P%e>+TT TT>> DATA WARNING <<תP*T*Tȡ#*+UUU**+P-+Pצ-+P+0á+UVVצYOUR V+UVצ SESSION USINGcVPUVVצCOLLECTION ID V,^V DID NOT UצSTAMPSA Uצ disk in main drive.UPN$ Nצ$ # to continue or /M to quit: $ $$ STAMPSAש& ^ ٧## 5I ` تP#$# LȡTق0ٹ )" $*. ٛ0\ j # ,UUSTAMPSAU:USYSCTLFLUP ,"ˡ(#"1#áUUPut "Philatelic disks, then turn off orreboot your computer. Any newצ"sequences will take effect in yourצnext session. Hit : ƀP  ^  k7#)Changes cancelled. GצSaving new sequences.#ƀ#`:ƀ<`$Ending session when you hit . When the drives stop, remove all___________# CHANGE SCREEN CONTROL SEQUENCESƀצPƀ#P`#P#### #צ(________________________________________2468:<>@cDFHJLa**z(________________________________________">INVALID RESPONSE. PLEASE REENTER.*T ( ب^̀̀ʀʀȡʀ̀۹(_____________________________צ$hit to save these sequences.צDesired action: Pצ*/ń#{#c#URxN# ! "$&(*,.0AUSE LETTERS ONLY.$ ",P,,,  L$  #$,Nצ$ $ ,P $ZIMOQ###+... .צDate: ________P#+... .צCollection ID: __P$צ$ #  ######$######צDatfȍj&Ȫ,,PBe 2 l 2020284 NUS2US2NLISTFILTested_23BBChanging__Test________________ Blk 4_Used SMint S 020284A .צDat SoftStyle,,PBe020284S tUhelf 12__US Air____US Air Mail 1950____120202841128831111795int SLISTFILLISTFILLISTFILCatalogA020284 NUS2US2NLISTFILHarris_23BBTest______Test________________ Blk 4_Used SMint S 020284A .PBe 2 l08020284BB r>=AA. צ ABBBCCCCDDDDDD @@@@@@ SoftStyleZáMNNSNVFMSglUSABlk 4צUsed SMint SLISTFILLISTFILLISTFILCatalogA020284BBUS1BBUS1NScott__STITEMSC__________SBLANKBLANK: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 # #7U0,Sign-Onץ$U0,צSign-On$#&U,SYSTEM.STARTUPשå&###& #&$"##"$&vYSD  t vbV(ת#ȡ#R6  ^  &򥂓 5^## "$&#$******ת(## # #7U0,Sign-Onץ$U0,צSign-On$#&U,SYSTEM.STARTUPשå&###& #&$" or will end.$  Please reconfirm: $ צ$ #ת#ȡ#R6  ^  &򥂓 5^## "$&#$******ת(##3..00.R.,Ǣ.צ*ǣ.# #U8,צ End Session$$[ 'ONLY THREE INCORRECT PASSWORDS ALLOWED.$N$ צ$ #`N$/M will restartS2US2NLISTFILHarris_23BBTest______Test________________ Blk 4_Used SMint S020284020284ALISTFILLISTFILCatalogA020284 NUS2U020284yBBUS1BBUS1NScott__STITEMSC__________Shelf 12__US Air____US Air Mail 1950____12020284020284111179rPScott__STITEMSC__________Shelf 12_020284 BBMUS1BBUS1NScott__STITEMSC__________Shelf 12__US Air____US Air Mail 1950____12020284020284111179rPUS Ai$ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $ $ $JpҠpl J$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡ@q@q҈q?DqJá"$$M l $ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $pҊpF;J___________10020284 020284US Air Mail 1950____12020284112883U0,צSign-On&U,SYSTEM.STARTUPשå NScott__LISTFILCTest______Test______Test 1____Test 1______________10  020284e 2 l 11020284AABr>=AA. צ020284 AAM1..AA1..NScott__LISTFILCTest______Test______Test 1____Test 1___r Mail 1950____12020284112883020284 BBMUS1BBUS1NScott__STITEMSC__________Shelf 12__US Air____US Air Mail 1950____12020284020284111179rPUS Air Mail 1950____12020284112883020284AA21..AA1..šš$%&$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡ@q@q҈q?DqJá"$$M qҐqF;