4\XMASMENU COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ү2 Ӈ!ٶ2:2a{_:ٷʖ:ٷ>Ľʖ:=2–!B!6#5ʖ:ٷĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "Է"͌#>?͌͘ =_.:;<> Oԅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3կ21y_͸2y2ͽ:ҷ˜1͘A͌>>͌92^ :ٷ¥.!_~#fow]׭؎إ!v"!çREAD ERRORçNO FILE^:ٷ ! ~ 3#0 Wx x Ԁ Ԃ G ~ # 3x~#B!Y~ɯ2:ٷ=!پý:ٷ=!پ:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ׯw4!Y~ʆ͌†t=ʆf ^ T ׯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yظpsp2mÆÆf ͧÆFILE EXISTS _: É: :ٷʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2ٯ2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ٶ Â$$$ SUBڙڥګڱ"C{2!"E9"1Aݯ22!ty)K!G_^#V*Cܐ~E ,&-AGMSݛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ݷE B 2>: ݷb# : ݷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ݾ Hù H H $O͐: 2 *CN# x: 2 p&x~+é7ۯ2 H! >w_: ! ݾ5ͤNkͱ¦ͱxʊ#Nx: ݷ! ݖ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \޷Sހ*C :qn& ^#V>O^"*}:*)=":O:硵o"*C *C!ͮ~2~2ͦ:2ͮ:ޯO:w:w |g}o*篆# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ߾,w͜͸Ͳ!!N#F$**O!~#:Aݾ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x߯2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻޯx>2>2ͻ:!Z2:Eݷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eݷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=26ޯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bݾw!>2*C~=2u:B2~2wE:A*Cݶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2ê:Û50+ÍÑÕÙÝáëPý0123456789-, ., D D|͉2:32!JF#N#~ :G:H KAYPRO 60K CP/M Version 2.2H !"t>!2"!2"!"!"!T":OyO:|͍͉͑ Warm Boot 1͕Cx͝,͙͡ *xDM"x͝2 *t+"t|:q :.3.*>͛(:q /:.6.-!5O ~!ay''O "o>2q*oN#"o:q=2qy~y2qy.':.9.E.6.9:.9c.E@.9:.B.

y>O#>#>J!.4. 0.,.(.$. !"t.!"t.:4(.!sv1&{v˿~#O  8 >1͌0͌>>Ì 2r2s2<:r(!2s:s_ 2:r_ :<:s_ :r_ 4\XMASMENU COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ү2 Ӈ!ٶ2:2a{_:ٷʖ:ٷ>Ľʖ:=2–!B!6#5ʖ:ٷĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "Է"͌#>?͌͘ =_.:;<> Oԅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3կ21y_͸2y2ͽ:ҷ˜1͘A͌>>͌92^ :ٷ¥.!_~#fow]׭؎إ!v"!çREAD ERRORçNO FILE^:ٷ ! ~ 3#0 Wx x Ԁ Ԃ G ~ # 3x~#B!Y~ɯ2:ٷ=!پý:ٷ=!پ:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ׯw4!Y~ʆ͌†t=ʆf ^ T ׯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yظpsp2mÆÆf ͧÆFILE EXISTS _: É: :ٷʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2ٯ2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ٶ Â$$$ SUBڙڥګڱ"C{2!"E9"1Aݯ22!ty)K!G_^#V*Cܐ~E ,&-AGMSݛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ݷE B 2>: ݷb# : ݷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ݾ Hù H H $O͐: 2 *CN# x: 2 p&x~+é7ۯ2 H! >w_: ! ݾ5ͤNkͱ¦ͱxʊ#Nx: ݷ! ݖ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \޷Sހ*C :qn& ^#V>O^"*}:*)=":O:硵o"*C *C!ͮ~2~2ͦ:2ͮ:ޯO:w:w |g}o*篆# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ߾,w͜͸Ͳ!!N#F$**O!~#:Aݾ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x߯2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻޯx>2>2ͻ:!Z2:Eݷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eݷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=26ޯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bݾw!>2*C~=2u:B2~2wE:A*Cݶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2ê:Û50+ÍÑÕÙÝáëPý0123456789-, ., D D|͉2:32!JF#N#~ :G:H KAYPRO 60K CP/M Version 2.2H !"t>!2"!2"!"!"!T":OyO:|͍͉͑ Warm Boot 1͕Cx͝,͙͡ *xDM"x͝2 *t+"t|:q :.3.*>͛(:q /:.6.-!5O ~!ay''O "o>2q*oN#"o:q=2qy~y2qy.':.9.E.6.9:.9c.E@.9:.B.

y>O#>#>J!.4. 0.,.(.$. !"t.!"t.:4(.!sv1&{v˿~#O  8 >1͌0͌>>Ì 2r2s2<:r(!2s:s_ 2:r_ :<:s_ :r_ -TÊÑ*1zzzzzzzzz|B7B6=8 System Status 01C6>|B7B6=8 System Status 02C6>ɷ~#OE>2k>2k:g _:i WzdGz?W{_>8( 2m{_*bBKPY|W]Sn| >2l:m3[n2d(:k:d[nʹ:l/7:k:dʹ:l/$[n #:k( :m/G:l:lG:m[n͆:k( :mG:l:m/G:lzW͒zW͒ͤ >yxA Q A Y:_͒̀!|g{ _z W0D2k>2k[iSi2r[gSg2sW:r_:iW:j>8>2p:g_:h>8>2q:rO:sDM!8(. :h:q_ 0:pW :j:pW 0:q_ :j:pW:q_-TÊÑ*1zzzzzzzzz|B7B6=8 System Status 01C6>|B7B6=8 System Status 02C6>ɷ~#OE>2k>2k:g _:i WzdGz?W{_>8( 2m{_*bBKPY|W]Sn| >2l:m3[n2d(:k:d[nʹ:l/7:k:dʹ:l/$[n #:k( :m/G:l:lG:m[n͆:k( :mG:l:m/G:lzW͒zW͒ͤ >yxA Q A Y:_͒̀!|g{ _z W0D2k>2k[iSi2r[gSg2sW:r_:iW:j>8>2p:g_:h>8>2q:rO:sDM!8(. :h:q_ 0:pW :j:pW 0:q_ :j:pW:q_PIP COM: ASM COM@ BAUDM COM BAUDP COM CHECK COMCONFIG COMCONFIG COMD COMDDT COM&DUMP ASM!DUMP COMED COM4FINDBAD COM FLPYFMT COM!GENFLPY COMF"#$LOAD COM%MFDISK COMf&'()*+,-MOVCPM COMT./0MUFBACK COM1MUFDESC COM,23MUFLOOK COM 4MUFREST COM5NOMENU COM&67PAUSE COM8PUTOVL COMH9:;<=>?PUTSYS COMH@ABCDEFREAD COMGSAFETY COMHSTAT COM)IJSUBMIT COM KTERM COMLXSUB COMMYESMENU COM'NORCHECK COMNPQRANAGRAM COM SDICTSORTCOMTFIND COM UHOMONYMSTXT/VWHYEXCEPTTXT$XYHYPHEN COM@Z[KAYPRO LRN\]^_`LOOKUP COMaMAILMRGEOVRhbcdeMAINDICTCMPfghijklmMAINDICTCMPnopqrstuMAINDICTCMPvwxyz{|}MAINDICTCMP~MAINDICTCMPAMARKFIX COMPRINT TST REVIEW COM*SPELL COM TW COMUPDICT CMPWC COM WINSTALLCOMhWORDFREQCOMWS COM WS INSWS INS`WSMSGS OVRkWSOVLY1 OVRWSOVLY1 OVRINCOME LOGINCOME TBLMPERROR FILMPFORM OVLYMPHELP FILaMPLOGIC OVL[MPMENU FILMPPRINT OVL[MPSERIALNUMMPSET OVLMPSETUP FILMPSHOW OVL[MPSTAT OVL8PLAN COMCALIENS COMrBIO BAS#BLKJK BAS4CATCHUM COMeCATCHUM DATCHASE BASCLONE COMRCLONE DATHORSE BAS+LADDER COMLADDER COM;LADDER DATMBASIC COM>   OBASIC COM  ROCKET BASSTRTRK BASeTAXMAN BAS&TRADE BASWUMP BAS? !MASMENU COM"#$%&MASMENU DAT'()*+MASMENU TXT&,-./01MASPREP COM23456CANDR-C COM-78CBAS2 COM&9:;<=>CRUN2 COM ?@ABCCRUN238 COM DEFGHXREF COM8IJBASICLIBRELKLMNOPQRBASICLIBRELDSTUCANDR-S COM.VWDPLAY BASXFAC BASYGRAPHICSBASZGRAPHICSDOCC[\]OVERLAYBCOM6^_SBASIC COML`abcdefUSERLIB RELgXAMN BAShijkl SP-MAIN CMD m ZIP COMhnopqAUTOMITECOMhrstuvwxyAUTOMITEHLPzDATASOLVHEX{KAYINT HEX%|}KPRO484 HEX~MINSTALLCOM5MITE COMkMITE HLPMITE HLPMITE HLPyMITE/U COMkTEXTP FOR+BATCH OVRCLIENTSRDEF CLIENTSRDTACLIENTSRNDXCUSTOMERDTACUSTOMERNDXDATASTARCOMPFORMGEN COMFORMGEN COMFORMSORTCOM FORMSORTOVRgINVCE DEFINVCE DTAINVCE NDXOKSTATESDTAOKSTATESNDXORDER DEFPAYMENTSDEF PAYMENTSDTAPAYMENTSNDXPRODUCTRDEF PRODUCTRDTAPRODUCTRNDXPRODUCTSDTAPRODUCTSNDXPUTEOF COMREDIT COM`REMSGS OVRREMSGS OVR6REPORT COM|RGEN COMRINSTALLCOMpRSMSGS OVR>STAFF DEF STAFF DTASTAFF NDXCS COMCS OV1xCS OV2 CS OVRn    CSDUMP COMCSDUMP OVRCSMASK MSK4DEMO CSDTERMCAP SYS CHECKC CMD CHECKC1 CMD CHECKS CMD CLEAR@ CMD CLIENT DBF CLIENTLSCMD COMPUTE DBF COMPUTE FRM COMPUTE1DBF  DBASE COM!"#$% DBASEOVRCOM&'()*+,- DBASEOVRCOMD./0 DEPTMASTDBF1 DEPTMASTFRM2 EMP8 DBF3 EMPBAK DBF4 EMPBAK1 DBF5 EMPMAST DBF6 EMPMAST FRM7 EMPMASTRFRM8 EMPMFRM FRM 9 EMPMSRT DBF: EMPNAME DBF; EMPNAME FRM< EMPNOINDNDX= EMPTBAK DBF> EMPTRANSDBF? EMPTSRT DBF@ JJFRM FRMA JOBHFRM FRMB JOBHIST DBFC JOINJOB DBF D JOINPAY1DBFE JOINPAY2DBF F JOINPAY3DBF G LESSONS CMD(HI MASTE DBFJ NAMEADDRDBFK NAMEIND NDXL REGFRM FRM M T1RDBF DBF N TAXMAST DBFO TAXMAST FRMP TEACH1 CMDPQRS TEACH10 CMD(TU TEACH11 CMD(VW TEACH1R CMD(XY TEACH1R1CMDHZ[\ TEACH1S CMD] TEACH2 CMD0^_ TEACH21 BAK` TEACH21 CMDa TEACH2R CMD b TEACH3 CMD(cd TEACH3C CMD$ef TEACH3F CMD$gh TEACH3F1CMDi TEACH4 CMD8jk TEACH4B CMDl TEACH4L CMDm TEACH5 CMD\nop TEACH6 CMD,qr TEACH6M CMD,st TEACH6U CMD u TEACH7 CMD?PUTSYS COMH@ABCDEFREAD COMGSAFETY COMHSTAT COM)IJSUBMIT COM KTERM COMLXSUB COMMYESMENU COM'NORCHECK COMNPQRANAGRAM COM SDICTSORTCOMTFIND COM UHOMONYMSTXT/VWHYEXCEPTTXT$XYHYPHEN COM@Z[KAYPRO LRN\]^_`LOOKUP COMaMAILMRGEOVRhbcdeMAINDICTCMPfghijklmMAINDICTCMPnopqrstuMAINDICTCMPvwxyz{|}MAINDICTCMP~MAINDICTCMPAMARKFIX COMPRINT TST REVIEW COM*SPELL COM TW COMUPDICT CMPWC COM WINSTALLCOMhWORDFREQCOMWS COM WS INSWS INS`WSMSGS OVRkWSOVLY1 OVRWSOVLY1 OVRINCOME LOGINCOME TBLMPERROR FILMPFORM OVLYMPHELP FILaMPLOGIC OVL[MPMENU FILMPPRINT OVL[MPSERIALNUMMPSET OVLMPSETUP FILMPSHOW OVL[MPSTAT OVL8PLAN COMCALIENS COMrBIO BAS#BLKJK BAS4CATCHUM COMeCATCHUM DATCHASE BASCLONE COMRCLONE DATHORSE BAS+LADDER COMLADDER COM;LADDER DATMBASIC COM>   OBASIC COM  ROCKET BASSTRTRK BASeTAXMAN BAS&TRADE BASWUMP BAS? !MASMENU COM"#$%&MASMENU DAT'()*+MASMENU TXT&,-./01MASPREP COM23456CANDR-C COM-78CBAS2 COM&9:;<=>CRUN2 COM ?@ABCCRUN238 COM DEFGHXREF COM8IJBASICLIBRELKLMNOPQRBASICLIBRELDSTUCANDR-S COM.VWDPLAY BASXFAC BASYGRAPHICSBASZGRAPHICSDOCC[\]OVERLAYBCOM6^_SBASIC COML`abcdefUSERLIB RELgXAMN BAShijkl SP-MAIN CMD m ZIP COMhnopqAUTOMITECOMhrstuvwxyAUTOMITEHLPzDATASOLVHEX{KAYINT HEX%|}KPRO484 HEX~MINSTALLCOM5MITE COMkMITE HLPMITE HLPMITE HLPyMITE/U COMkTEXTP FOR+BATCH OVRCLIENTSRDEF CLIENTSRDTACLIENTSRNDXCUSTOMERDTACUSTOMERNDXDATASTARCOMPFORMGEN COMFORMGEN COMFORMSORTCOM FORMSORTOVRgINVCE DEFINVCE DTAINVCE NDXOKSTATESDTAOKSTATESNDXORDER DEFPAYMENTSDEF PAYMENTSDTAPAYMENTSNDXPRODUCTRDEF PRODUCTRDTAPRODUCTRNDXPRODUCTSDTAPRODUCTSNDXPUTEOF COMREDIT COM`REMSGS OVRREMSGS OVR6REPORT COM|RGEN COMRINSTALLCOMpRSMSGS OVR>STAFF DEF STAFF DTASTAFF NDXCS COMCS OV1xCS OV2 CS OVRn    CSDUMP COMCSDUMP OVRCSMASK MSK4DEMO CSDTERMCAP SYS CHECKC CMD CHECKC1 CMD CHECKS CMD CLEAR@ CMD CLIENT DBF CLIENTLSCMD COMPUTE DBF COMPUTE FRM COMPUTE1DBF  DBASE COM!"#$% DBASEOVRCOM&'()*+,- DBASEOVRCOMD./0 DEPTMASTDBF1 DEPTMASTFRM2 EMP8 DBF3 EMPBAK DBF4 EMPBAK1 DBF5 EMPMAST DBF6 EMPMAST FRM7 EMPMASTRFRM8 EMPMFRM FRM 9 EMPMSRT DBF: EMPNAME DBF; EMPNAME FRM< EMPNOINDNDX= EMPTBAK DBF> EMPTRANSDBF? EMPTSRT DBF@ JJFRM FRMA JOBHFRM FRMB JOBHIST DBFC JOINJOB DBF D JOINPAY1DBFE JOINPAY2DBF F JOINPAY3DBF G LESSONS CMD(HI MASTE DBFJ NAMEADDRDBFK NAMEIND NDXL REGFRM FRM M T1RDBF DBF N TAXMAST DBFO TAXMAST FRMP TEACH1 CMDPQRS TEACH10 CMD(TU TEACH11 CMD(VW TEACH1R CMD(XY TEACH1R1CMDHZ[\ TEACH1S CMD] TEACH2 CMD0^_ TEACH21 BAK` TEACH21 CMDa TEACH2R CMD b TEACH3 CMD(cd TEACH3C CMD$ef TEACH3F CMD$gh TEACH3F1CMDi TEACH4 CMD8jk TEACH4B CMDl TEACH4L CMDm TEACH5 CMD\nop TEACH6 CMD,qr TEACH6M CMD,st TEACH6U CMD u TEACH7 CMD _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1 :2L> ̈́M9 221@:2!o6+6+6!6#6!6#6:G*o .!N6:^*M^!K6!6!6+6' :$::=2K  :ʤ\:ҷ\x'Ͳ:!\͢  :͈'! Ͳ:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>HHͯ :!^w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >ͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1 :2L> ̈́M9 221@:2!o6+6+6!6#6!6#6:G*o .!N6:^*M^!K6!6!6+6' :$::=2K  :ʤ\:ҷ\x'Ͳ:!\͢  :͈'! Ͳ:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>HHͯ :!^w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >ͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*!p+q* !q*& *M *M !p+q*!!p+q*"!p+q*$!6  !kp+q*j> >ڪ Þ !qp+q/ *pDM9: :M2r:N!r !:r *r& N!r4 !6:͔: :ͳ.!ws+p+q+p+q:w=2wN *s*u w*s#"s*u#"u' !"*M^7 !x6:!xھ **DM͆ 2yʭ :yʗ ͯ *"*6:2x÷ *"!x4d !"/ !j}=2| !"*KM^'_ !z6:|!z1 * "}*}DM͆ ' ͯ *"!z4 :e !"͆ !z6:|!z '? 2*H#"H!{6:{ր!Ң *{& :{4 2!{4m *":ڹ ͯ !z4I '2!"!q: !4>!S :S! :2*M! ^#V͎ * :w*#" = = = = = ͯ  *M !6q  !6q  !q  *& !6à  !6 à  !60à  *& !6  !6  !6  *& . 1 4 7 : = F P [ f q  :2!q: " *M n :c4 *M n :2!c:Q !c:2: !:cw>!n !5 Y : { !6!q:!lwҙ  â :0O !q:O| :O| !6:]2l:o'2o:n'2n:m'2m*mMͣ *nMͣ *oMͣ :]:   *}2D" * * *&"!q:UY: Y:ҩ: ʩ:_2ʘ:€!6<:<2!ژ!6 >!]Ҥ; !6:Q::H: !6*M : !6!q:a/>z!/H:_2:!q:A/>Z!/H8: 2::=O>m:W!Q} Hmd>9>!6:2*M!E ^#V͎ڗO **~2*#"m2m͖ 2m!6m!6m!6 m2mͯ m!62m!62m!62m!62m'2:2:TҒ:2!6*ME:2::^Ҳ:<22ý: 2:} >ͯ :i:2:d*M:[ *M:>!(:=2%> >>!F!5+N! ~2!4<2T>>!b}*bMͭz!b~26!~6<+wé>!`ҥ*`MͭҞ!`6!6> :é:(!q:!wO! ~2*& :w>!:!4!6>:N<2N!> *N& N2 !p+q!6!6+6 !6: S: M!6g8:N2M*M8p!6!6!6>!ڕ*&P 6!4z!6!6#6#6!6*M8:ھ:*͇g2ê::¿::,͡A<2O>*M8):[ͱ!N5!6ñ:5!6#6>!ڰ!6:<2O>/:!O!T *M͡H~K:¡!6[–ͱ!N5:2:2!4=:[¼ͱ4:!6:.2O8: :* ͇g:[ ͱ!N5!6:%:<2*6 * 6å!q!6> !d*&I :]>!4A>:<2O* :w:?†!6!q!6?!:ҠgÐ!q*&*~!6:22: :]Hں:A2O>: 2ͯ ÷:S:QHI:N<22: H@"2Í202O> c!6Í202O> ڍ*&O*& !sc*&P :w:·>!ұͯ :22:_!6=!6>'!E!4!p+q*0 !r+s+p+q*~$7*>*>H&>*#"*#"> 2:^R͎:!6!6=2:ʙ!6:“H9Ž>!6-e!6ͻ2=2ʺ-é:>>"ͻ2:!!5ͻ2ͬ!\-:>>!p+q:,!6*DM9:<!6:z 2W!6D*&L :w:<2Ov*:>=20O> ڒ:0:AO>Ҥ::A }}Hͬ!wͻO`idͻV[2O>2:!X!6:!:=O!L NE!4 E E:/.*&L 6$L9k9.Xͯ *KM^020 :020:121'ͳ':²ͯ !G6!"!"7 *M^n/ :a/:H!6:ͯ !&62*">!b!ͯ >!`0ͯ !q:E:24J!46*}a!44EJ *KM^'́:‚ͯ !36'n::0:f9OY#9.3'ͳ.:020' 'ͳ'7 6'!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:H:H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_!' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈*DM!  ::=H-\:N2O_og_{ozg^#V))) _{ozg^#V) d^#V|g}o n_{ozgO{ozgi`N#Fogo&og H ©=¨' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈*1*" COPYRIGHT(C) 1978, DIGITAL RESEARCH á 4êü /L9ASMPRNHEX!4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7͡ :\ ʻ 24!dͮ 25ͮ 27ͮ 26!8 ( ʃ !Y 1  :7ʞ !z 8  !"2D2X2#! 8 !ͼ z{* ! !"!8 w#  +6# *#"~!ͼ G:6QxJQS*!w#"! 1 !"!Y~~# …¡z!ͼ wʹ* ! w#" ! 8 !" ! zz_O4:  :6y:! G~#x=2> > ! >x6 #='G! ~ p( O*}O>4?:7w:#ĸ*"!͸* }w>ͪg( ʆ1 Y :7ʗ8 z !<ͼ CP/M ASSEMBLER - VER 2.0 NO SOURCE FILE PRESENT NO DIRECTORY SPACE SOURCE FILE NAME ERROR SOURCE FILE READ ERROR OUTPUT FILE WRITE ERROR CANNOT CLOSE FILES END OF ASSEMBLY G:7xʘ!#~ʄl͸Ä**!O {zʊ͸*"!!#^4!$wͯͯWƐ'@'ê>:ͪ!#^Ww*!{͚|͚}͚͚{!$~#͚͚> ͪ> ͪ@2 0 0:x0_<2! wI2 2> 2 >2ɯ22 !~@_6^4#: w~$w: 0 q: A: A͋q: a{_2  2 - !ɯ2I:  ;*:  ͭͷ ͭ͋>9q>9: '!2 >9 7:! 6 >2>2: 2 Qͭ:Ğ! :lj<͖<j<|<: OʊQ>ÖH >2 2 û: B­>ôD> ¸!52 !"!N#~#A07O! ~*!) " :  '<ͭ'<>V$>O$:Ğà\ÞØ`rÍÖ![w#w#b!"!F#v2[G*##~w*##~<*}q!~ڬ6![^![^#fk"͎͘!G#*####*^#Vû!^*"*{zA"*![N![ N#Fr+sq#p/>G=#w#w3#w#w!JSYMBOL TABLE OVERFLOW G*##~w*##~͎*_###s#r^#V`à 4 Wm ()*+,-/ABCDEHLMDBDIDSDWEIIFINORSPACIADCADDADIANAANDANICMACMCCMPCPIDAADADDCRDCXENDEQUHLTINRINXJMPLDALXIMODMOVMVINOPNOTORAORGORIOUTPOPPSWRALRARRETRLCRRCRSTSBBSBISETSHLSHRSTASTCSUBSUIXORXRAXRICALLENDMLDAXLHLDPCHLPUSHSHLDSPHLSTAXXCHGXTHLENDIFMACROTITLE  PF FP! ( 2/?'  v:P@< !  PP27 ( *"  NZZ NCC POPEP M x_BH!œ#¶ ¦{KÈCÈ<:JCR:  !6 s!#  ɯ<:O=_Z!F!V#fjQ̓E!^#Vo&)~#FxGyѯ<àn8!~ڢͅ6~44O! s#r!~ ڿ6ͅ^4!mw!wp!~ͅ!55N! N#fio&)^#fkz'{ͅ>ɯo>g"k!m6ů{_zW5>)D*kOxGd !m?FDM!xGyOڂÃ)sn55)=â|g}o=î--#zg{ozg{ozg{oÓ:: ;,!ɯ22=2l!"]!~H5_!m~0:ą:  *":  :‰:̅ԅ!^#=ʅVq”*qͦ1& O:lµ̅>2ly:_!w~!s!m~ùy !~=w_!m~ ͅͰ>2lyPLnR>UX:l̅2l͓*>ERʵ2C!" """ :ʼ:*1 |R|ͦ0FIL: R  R* } *" :¿::¿üX!C^#fk[@ :Œ:=ʌG!ʆF#H vÛc*| EH ͺ,^1 ͦ *""1 EH DH ͺ,1 ͦ :  1:  " > 2 :|: |Ë  |*" ͩ !6="1 :  1}1:n:>BʋSSͦSSxS 1:  1"" ͦ 1 |͍ >O U!" 1 1!|_!^#fk $8AP`ixH ñññ81Ľ y0îH ñGîG  ñH ñ(Ľ yîH ñîîĽ y0îîH ñG 1: :,; c*| } 8OĽ y0G G t :):,.>C :|: Jü;r :R: ʼʋ!ʼR!ʼʋ>SR{ozg!~4ʧͦ !6 ! **̈́**̈́\iͩ !w#H USE FACTOR !* "z{*"* "I !" :1 R O*UR X* G:xl :  *̩ : l x͖ *#"EH DH 0:~ ! ^4! w͆ Æ *! 6z͖ {͖ 4>R>V>D >P >L >N͎͖˯2( A0> >B >C >D >E > F > G >H(͉>>  KAYPRO Baud Rate Adjustment Program Enter a letter below to change the baud rate of your RS-232C serial port, or press to exit without changing anything. A = 110 baud B = 300 baud C = 600 baud D = 1200 baud E = 2400 baud F = 4800 baud G = 9600 baud H = 19.2 Kbaud Enter new baud rate : $:_  So be it. $232C serial port, or press to exit without changing anything. A = 110 baud B = 300 baud C = 600 baud D = 1200 baud E = 2400 baud F = 4800 baud G = 9600 baud H = 19.2 Kbaud Enter new baud rate : $:_  So be ͎͖˯2( A0> >B >C >D >E > F > G >H(͉>>  KAYPRO Baud Rate Adjustment Program Enter a letter below to change the baud rate of your RS-232C serial port, or press to exit without changing anything. A = 110 baud B = 300 baud C = 600 baud D = 1200 baud E = 2400 baud F = 4800 baud G = 9600 baud H = 19.2 Kbaud Enter new baud rate : $:_  So be it. $232C serial port, or press to exit without changing anything. A = 110 baud B = 300 baud C = 600 baud D = 1200 baud E = 2400 baud F = 4800 baud G = 9600 baud H = 19.2 Kbaud Enter new baud rate : $:_  So be 12F  Kaypro 10 Hard Disk Read Validate Program Version 2.5 ( Copyright (c) 1983 by Non-Linear Systems, Inc. ) (WD1002) one read retry on error NEW INTERFACE CARD ONE PASS ONLY =& First disk, last disk? (0-3,0-3) ( or an ESC to quit )=&A=ʻ:)  = Invalid entry = ɯ2= \:= *, \[, := !> 6.# , >w# ,(0w# ,(&w# ,(w# ,(w ,#S, +~.+~. +~.d+~.+~.'᯷!G͡8 [, ", :2= :) , ( 0 87>, = Disk numbers too large (0 to 3, please)ú = Last disk number too small ( greater than or equal to first number, please)ú3᯼11}12* {d12+  ='  First head, last head? (0-7,0-7) ( or an ESC to start over )=(A=( :) 3᯼  }02. {8>02/  = Head numbers too large (0 to 7, please) = Last head number too small (greater than or equal to first number, please) =)  First cylinder, last cylinder? (0-305, 0-305) ( or an ESC to start over )=*N=( :) 3|8 }20"0 z8 {20 R8?"2  = Cylinder numbers too large (0 to 305, please) = last cylinder number smaller than first cylinder number =+  :* 28 :+ 29 :. 2: ͱ-r*0 "4 *2 "6 Q:9 =29 :8 <28 :. 2: :/ 2; s*6 |+"6 *4 #"4 ͈:; =2; :: <2:  ValidatingU ͦ *4 }ӄ|ӅK ! Ӄӂ!K ~ ۄ> Ӈ(ۄ> Ӈ(6##ۃ<Ӄۇ format errorU ͤ ͦ S verify errorU ͑ ͤ ͦ ( write errorU ͑ ͤ ͦ =7 Another pass ? (y/n)  :) YyNn >Ӈ :8 G:: ӆ@( *4 }ӄ|Ӆ B6=7 disk not ready, waiting 1 minute. ( T minus 60 seconds and counting... )!<"I <ۇ@F  x =7L*I +"I } 0> ͮ =7fz =0\!!! SELECT ERROR !!!=1\Either that disk=2\does not exist, or=3\there has been an=4\equipment malfunc-=5\-tion. Type any=6\key to start over  =7 C6 drive :8 o&ͮ cylinder *4 ͮ head :: o&ͮ sector ۃo&ͮ  B6=0\!!! INTERRUPTED !!!=1\Please type any key=2\to continue,=3\or an ESC to return=4\to the main menu=5\and start all over=6\from the beginning  =0\=1\=2\=3\=4\=5\=6\C6 B6=8HPass Number *G ͮ C6ۆ! 60061# SDH = (2) _~# ۇG ,W( ( cor )o( wft ( ??? )ہW( ( abc )O( ( tr0 )( ( bbd )w( ( unc )G( ( dam )o( ( idc )g( ( nid ) ( und )2 '  d  >0_ ɷ>/2 :F      >0_ ɷ>/2 :F B6=8HPass Number *G ͮ C6ۆ! 60061# SDH = (2) _~# ۇG ,W( 66*͘q> > > > > > > >  > > > > > > > > >  > !> "> $> 3> A> T> f> t> x!"> *!q>Gu> H> *>!> *s>!߇> > ;*9"> > V*T>!> n*l>!> Æ*>! > Þ!*>! > ö$*>!> '*>!> > *"ۇ> *ۇ*ys>!݇> *rr>!͇> 7 *5rr>!ˇ> U *Srr>!χ> s*q>!> Ë<*>!> ã*>!> û<*>!> *߇>!ׇ> *>!ه> 0*&>!ч> 1*&>!Ӈ> *4*)&>!Շ> D3*B>!> \4*Z>!> !t5*r>!> "Ì8*>!> $ä9*>!> %üF*>!> 'G*>!> (H*>!> 0I*>!> 2*>! > 34*2>!> 4> 7> 8eDomestic!\!)> 9Æ Version 5/60!y!j)> @Ü*>!> Aô-*>!> B.*>!> C*>!> D> F> V> f> vl> w> x> y**!wys>!> Q**Oys>!> > ö%!ň>2> >*͇̀xÞB*&̀x*ň̀x> > %!Lj>2> >*͇̀xC*&̀x*Lj̀x> > s%!ˈ>!Ɉ>2> >*͇̀x:=*9&̀xG*Ɉ*F&ys̀x[*ˈ*Z&ys̀x> > ç> >Ï*r͞xMn> > > > >M|Hit any key to continueM~2͈Myn> >  Ú%!ψ>2> > *ψ>!Ո> > >**ys*ш*ӈ*Ո*׈"g"׈"Ո"ӈ"шÁ*ш*Xst7> >  %!و>2> > *و>!߈>  >**ys*ۈ*݈*߈*"""߈"݈"ۈ> !> $Ü %!>2> %> &*>!> '>** ys****" """"> (> 1 %!>2> 2> 3*>!> 4>** ys****" """"> 5> 8{ > 9> @>**ys****"^ """"> A> D > E> F>**ys****" """"> G> PV > Q}> R>Mn> S>Mn> T>^ : K A Y P R O C O N F I G U R A T I O N P R O G R A M!# ͞xMn> U>Mn> V>Ò  ! ͞x!j͞x> W| Help Function Change IOBYTE .........................i I Redefine the vector pad ...............v V Redefine the number pad ...............n N Set the write safe flag ...............w W Change the printer baud rate ..........p P Change the modem baud rate ............m M Exit the CONFIG program ...............x X Please enter your selection ===>> r> uk> v}> w| In order to understand this command you should read the CP/M manual "AN INTRODUCTION TO CP/M FEATURES AND FACILITIES", in particular the section on the STAT command and logical and physical devices. The logical CP/M devices are CON:, LST:, RDR:, and PUN:. The physical devices are: CRT: -- Video and keyboard. TTY: -- Serial port. (See manual for connector wiring) LPT: -- Centronics port. > $Foreign!! tty> >i# UL1: -- User-defined list device.!E͞xMnó> >æ UL1: -- Same as TTY: above.!͞xMn> | Possible logical to physical assignments that are meaningful are: CON: = TTY: or CRT: RDR: = TTY: PUN: = TTY: > NForeign!!F ttʤ> >Ô$ LST: = TTY: or LPT: or CRT: or UL1:!o͞xMn> > LST: = TTY: or LPT: or CRT:!͞xMn> >Mn> >97BEFORE using this option, try it with the STAT command.!͞xMn>  >Mn> ͱ> > ö> }> | Your KAYPRO computer comes with a special "Write Safe" option that corrects an incompatibility between CP/M and some application programs. The following is rather technicaly involved, so if you do not understand it, ask your dealer. The incorrect setting of the write flag may cause IRREVOCABLE LOSS of data or programs. When in doubt, leave it off. The KAYPRO computer uses deblocking. When a disk operation is immediately followed by a warm boot, the deblocking buffer may not be written to the disk. However, if the write safe flag is set, the BIOS thinks that all disk operations are of the directory type. All directory operations force the deblocking buffer to the disk on a write. There will be a 2- to 4-fold decrease in speed when writing to the disk. > 4ͱ> 5> 8T> 9}> @| Your KAYPRO computer has four keys with arrows on them, at the upper right of your keyboard. They are refered to as cursor keys or vector keys. They are used in programs such as word processors to move the cursor. They may be used in other ways by other programs, and can be modified accordingly. The modification consists of telling the BIOS to send a different 1 to 4 byte code to the program when the key is hit. The 'V' option allows the user to change these codes on the disk. The next time that the computer is cold booted (reset) from the modified disk, these changes will be effected. > Tͱ> U> X> Y}> `| On the far right side of your keyboard is a set of 14 keys, arranged in a square. Each of these keys produces a 1 to 4 byte code when hit. The codes produced by these keys can be changed with the 'N' option. The next time that the computer is cold booted (reset) from the modified disk, these changes will be effected. > qͱ> r> vd> w}> x| The KAYPRO can be connected to a printer if it is told to send information at the same rate as the printer that is expecting to receive it. This rate of information transfer is refered to as the BAUD rate. The KAYPRO is capable of the following rates: 110 300 (Default) 1200 2400 4800 9600 19200 > ͱ> > > }> | The KAYPRO can be connected to a telephone if it is told to send and receive information at the same rate as the device on the other end of the line is expecting to send or receive it. This rate of information transfer is refered to as the BAUD rate. The KAYPRO is capable of the following rates: 110 300 (Default) 1200 2400 4800 9600 19200 > "ͱ> #> &Ë.%! >!>2> '*tX> '*чv> (*tw> (*Ӈv> 0* >ͶÌ5*͍tp> 1> 2è*&ò*& > 3> /|\ !͞xMn> 4*&*& > 5> | !͞xMn> 6.*-&8*7& > 7>Y | !Q͞xMn> 8b.>Ͷz6*x͍t^> 9> @Ö*&à *& > A> | !͞xMn> B*& *& > C> | !͞xMn> D*&& *%& > E>G \|/ !?͞xMn> Fb.>Ͷh7*f͍tL> G> HÄ*&Î*& > I>ï !͞xMn> P*&*& > Q> <-- !͞xMn> R * &*& > S>5 !-͞xMn> Tb.>ͶV8*T͍t: > U> Vr*q&|*{& > W>Ý !͞xMn> Xõ*&ÿ*& > Y> --> !͞xMn> `*& * & > a>#  ! ͞xMn> bb.>ͶD 9*B ͍t@!> c> d` *_ &j *i & > e>Ó  ! ͞xMn> fë * &õ * & > g>  0 ! ͞xMn> h * &!* & > i>)! !!͞xMn> pb.>ͶJ!:*H!͍t."> q> rf!*e!&p!*o!& > s>Ñ! !!͞xMn> té!*!&ó!*!& > u>! 1 !!͞xMn> v!*!&!*!& > w>" !"͞xMn> xb.>Ͷ8";*6"͍t#> y> T"*S"&^" *]"& > >" !w"͞xMn> ×"*"&á" *"& > >" 2 !"͞xMn> "*"&" *"& > ># !"͞xMn> b.>Ͷ&#<*$#͍t $> > B#*A#&L#*K#& > >m# !e#͞xMn> Å#*#&Ï#*#& > >ð# 3 !#͞xMn> #*#&#*#& > ># !#͞xMn> b.>Ͷ$=*$͍t$> > 0$ */$&:$*9$& > >[$ !S$͞xMn> s$ *r$&}$*|$& > >Þ$ 4 !$͞xMn> ö$ *$&$*$& > >$ !$͞xMn> b.>Ͷ%>*%͍t%> > % *%&(% *'%& > >I% !A%͞xMn> a% *`%&k% *j%& > >Ì% 5 !%͞xMn> ä% *%&î% *%& >  >% !%͞xMn> b.>Ͷ%?*%͍t&> >  & * &&&*&& > >7& !/&͞xMn> O& *N&&Y&*X&& > >z& 6 !r&͞xMn> Ò& *&&Ü&*&& > >ý& !&͞xMn> b.>Ͷ&@*&͍t'> >  &*&&'*'& > !>%' !'͞xMn> "='*<'&G'*F'& > #>h' 7 !`'͞xMn> $À'*'&Ê'*'& > %>ë' !'͞xMn> &b.>Ͷ'A*'͍t°(> '> ('*'&' *'& > )>( ! (͞xMn> 0+(**(&5( *4(& > 1>V( 8 !N(͞xMn> 2n(*m(&x( *w(& > 3>Ù( !(͞xMn> 4b.>Ͷú(B*(͍tž)> 5> 6(*(&(*(& > 7>) !(͞xMn> 8)*)&#)*")& > 9>D) 9 !<)͞xMn> @\)*[)&f)*e)& > A>Ç) !)͞xMn> Bb.>Ͷè)C*)͍tŒ*> C> D)*)&)*)& > E>) !)͞xMn> F***&***& > G>2* - !**͞xMn> HJ**I*&T**S*& > I>u* !m*͞xMn> Pb.>ͶÖ*D**͍tz+> Q> Rò* **&ü***& > S>* !*͞xMn> T* **&***& > U> + , !+͞xMn> V8+ *7+&B+*A+& > W>c+ ![+͞xMn> Xb.>ͶÄ+E*+͍tt-> Y> `à+*+&ê+*+& > a>+ !+͞xMn> b+*+&+*+& > c>, E !,͞xMn> d&,*%,&0,*/,& > e>Q, N !I,͞xMn> fi,*h,&s,*r,& > g>Ô, T !,͞xMn> hì,*,&ö,*,& > i>, E !,͞xMn> p,*,&,*,& > q>- R !-͞xMn> r2-*1-&<-*;-& > s>]- !U-͞xMn> tb.>Ͷ~-F*|-͍tb.> u> vÚ-*-&ä-*-& > w>- !-͞xMn> x-*-&-*-& > y>. . !.͞xMn>  .*.&*.*).& > >K. !C.͞xMn> b.>> *ч> *Ӈ> > >> > > ï.*!wrr*.5st.> .*.>!Ç/> .*!wrr*.5st+/> /*/>!Ç/> 7/?*!wrr*5/5sto/> `/@*^/>!Ç/> {/*y/>!> *!wrr*ms>!> ù/*/>! > }> >2؃> *Շ> | I O B Y T E M O D I F I C A T I O N ====================================== DEFAULT SETTINGS POSSIBLE CHANGES Type a line feed to choose the assignment that you CON: = CRT: CON: = TTY: want. After each line feed, RDR: = TTY: - NONE - another assignment will be PUN: = TTY: - NONE - highlighted. Hit a return LST: = LPT: LST: = TTY: and that assignment will be LST: = CRT: selected. Hit an 'X' to return to the main menu. CURRENT SETTINGS > $82Foreign!!02 ttʘ2> $> %[2*Z2&e2*d2& > &>Ê2 LST: = UL1:!~2͞x> '> )ã2*2&í2 *2& > 0*>Ͷ2*2͍t2> 1>2 CON: = TTY:!2͞x53>Ͷ3*3͍t53> 2>+3 CON: = CRT:!3͞x53>> 5E3*D3&O3*N3& > 6*>Ͷm3*k3͍t3> 7>Ó3 LST: = LPT:!3͞xK4>Ͷç3*3͍t3> 8>3 LST: = TTY:!3͞xK4>Ͷ3@*3͍t4> 9>4 LST: = CRT:!3͞xK4>Ͷ4*4͍tK4> @>A4 LST: = UL1:!54͞xK4>> D*чv> E*Ӈv> Gw4 *v4&Á4*4& > H>æ4 CON: = CRT:!4͞x> P*ч> Q*Ӈ> S> S> T>M~2 > U* >Ͷ*ˇ͍tŠ:> V> W* >Ͷ#5*!5͍t5> X> Y?5 *>5&I5*H5& > `>n5 CON: = CRT:!b5͞x> a}7>ͶÉ5*5͍t5> b> cå5 *5&ï5*5& > d>5 CON: = TTY:!5͞x> e}7>Ͷ5*5͍tK6> f> g 6* 6&6*6& > h>:6 LST: = LPT:!.6͞x> i}7>ͶU6*S6͍t±6> p> qq6*p6&{6*z6& > r>à6 LST: = TTY:!6͞x> s}7>Ͷû6*6͍t7> t> u6*6&6*6& > v>7 LST: = CRT:!6͞x> w}7>Ͷ!7*7͍t}7> x> y=7*<7&G7*F7& > >l7 LST: = UL1:!`7͞x> }7>> * *Istʵ7> æ7*7>! 7> 7* *7ys>! > *чv> *Ӈv> * >Ͷ8*8͍ta8> > !8 * 8&+8**8& > >P8 CON: = CRT:!D8͞x> _:>Ͷk8*i8͍t8> > Ç8 *8&Ñ8*8& > >ö8 CON: = TTY:!8͞x> _:>Ͷ8*8͍t-9> > 8*8&8*8& > >9 LST: = LPT:!9͞x> _:>Ͷ79*59͍t“9> > S9*R9&]9*\9& > >Â9 LST: = TTY:!v9͞x> _:>ͶÝ9*9͍t9> > ù9*9&9*9& > >9 LST: = CRT:!9͞x> _:>Ͷ:*:͍t_:>  > :*:&):*(:& > >N: LST: = UL1:!B:͞x> _:>> *Ӈ> *ч> ù=>Ͷ*χ͍t¹=> > * >Ͷõ:*:͍t:> :*:>!;>Ͷ:*:͍t ;>  :*:>!;>Ͷ;*;͍t8;> !);*';>!;>ͶB;*@;͍tg;> "X;*V;>!;>Ͷq;*o;͍t–;> #Ç;@*;>!;>Ͷà;*;͍t;> $ö;*;>!;>> ';*;&; *;& > (*>Ͷ;*;͍t-<> )>#< CON: = TTY:!<͞xg<>Ͷ7<*5<͍tg<> 0>]< CON: = CRT:!Q<͞xg<>> 3w<*v<&Á<*<& > 4*>Ͷß<*<͍t<> 5>< LST: = LPT:!<͞x}=>Ͷ<*<͍t => 6>< LST: = TTY:!<͞x}=>Ͷ=@*=͍tC=> 7>9= LST: = CRT:!-=͞x}=>ͶM=*K=͍t}=> 8>s= LST: = UL1:!g=͞x}=>> A*!w%**ysrr2>> Bù=>> D=X=x* *=&st* *=&stst4> F>2؃> G*Շv> H> QA%!>2> R=>**<>&s#um>> R>f>ERROR!`>͞x> Sx>|>**w>&st**{>&stst>> S>ú>CTR-!>͞x>@**>ysr͞x> T>**>&s#u?> T> ? ESC !?͞x> U?**?&s#uM?> U>F? FS !@?͞x> VX?**W?&s#uʈ?> V>Á? GS !{?͞x> WÓ?**?&s#u?> W>ü? RS !?͞x> X?**?&s#u?> X>? US !?͞x> Y @ **@&s#u9@> Y>2@SPACE!,@͞x> `D@!H@~**C@&st**G@&ststʟ@> `>Ä@ !@͞x*̀xØ@ !@͞x> aê@**@&s#u@> a>@ DEL !@͞x> b@**@&s#uA> b>AERROR!A͞x> c> e+F%!>2> f> gIA*HA&SA0*RA& > h>ÇA !lA͞xMn> ißA*A&éA0*A& > p>A !A͞xMn> qA*A&A0*A& > r>3B !B͞xMn> sKB*JB&UB0*TB& > t>ÉB !nB͞xMn> uáB*B&ëB0*B& > v>B !B͞xMn> xB*!w*Brrs#uXC> x> y'C*&C&1C)*0C& > *!w">> #F> > kC9pC**iCms*nCͅs*ys>!> ÜC*C&æC)*C& > *!w">> C*C>!> CC**ys!w*Crrst**C&sstF> > 3D*2D&=D(AD* >rD-------!jD͞xMn> ÊD*D&ÔD(ØD*D&**D&ͅsys > >D |!D͞xMn> D*D&D)D*D&**D&ͅsys > **ys!w">> >7E |!4E͞xMn> OE*NE&YE(]E*XE&**\E&ͅsys > >ÏE |!E͞xMn> çE*E&ñE(õE*E&**E&ͅsys > >E-------!E͞xMn> E**Eys>!> C> > > R> >2؃> > >  }> | ------------------------------- | /|\ | | | | | Enter a line feed to choose a key | | | | | <-- | --> | in the picture to the left. Each line | | | \|/ | | | feed will highlight another of the keys. ------------------------------- When the key that you want to change is highlighted, enter the number of keys (1-4) in the sequence that you want to be generated when that key is pressed. Then enter the values. Hit an X to exit. Keys(s) currently generated: ------- | | | | | | ------- > 5*Շ> 6*>!> 7*ׇ*!> 8*'A> @> @> A>M~2> B**ˇs#uʁJ> B> CîI*I&øI%*I& > D>IKey(s) currently generated: !I͞xMn> E*ه*!> F**Ist;J> F*>!ZJ> FGJ**EJys>!> G*ׇ*!> H*'A> I> PÌJ1ÐJ4**J&st**J&ststʨM> P> QJ*J>!%2J*JJ!J>> RKK***ms*Jͅsys*ys*Kms!w%;K*9Krr2>> S!JUr> TeK*dK&oK%*nK& > U>åKEnter new key(s): !K͞xMn> VýK*K&K)*K& > W>K !K͞xMn> XK*K&L0*L& > Y> `TL*SL&^L0*]L& > a>ÒL !wL͞xMn> bêL*L&ôL0*L& > c>L !L͞xMn> dM*L& M0* M& > e>>M !#M͞xMn> fVM*UM&`M0*_M& > g>ÔM !yM͞xMn> h> ióM2÷M4**M&st**M&stst2Q> i> pM0*rr*Mms>!> q*!w%%N*#Nrr2>> rCN*AN>!%2*_N!]N>> srN*qN&|N ÀN*{N&**N&ͅsys > t>ñN-------!N͞xMn> uN*N&N N*N&**N&ͅsys > v> O |!O͞xMn> w!O* O&+O /O**O&**.O&ͅsys > x>aO |!XO͞xMn> yyO*xO&ÃO ÇO*O&**O&ͅsys > >ùO |!O͞xMn> O*O&O O*O&**O&ͅsys > >P-------!P͞xMn> !gNUr> 6P*4P>!%2*RP!PP>> >lPqP***ms*jPͅsys*ys*oPms!w%M~2w> öP*P&P!P*P&**P&ͅsys > PP***ms*Pͅsys*ys*Pms!w">> !ZPUr> > =Q1** > >*!w%M~2w> ÆQ*Q&ÐQ)*Q& > *!w">> > ÿQXQx**Q&st**Q&ststgI> *Շv> >2؃>  >  J_>  >2؃>  >  >  }>  | ------------------------------- | | | | | Enter a line feed to choose a key | 7 | 8 | 9 | - | in the picture to the left. Each line | | | | | feed will highlight another of the keys. |-------+-------+-------+-------| When the key that you want to change is | | | | | highlighted, enter the number of keys | 4 | 5 | 6 | , | (1-4) in the sequence that you want to | | | | | be generated when that key is pressed. |-------+-------+-------+-------| Then enter the values. Hit an X to exit. | | | | | | 1 | 2 | 3 | E | Keys(s) currently generated: | | | | N | ------- |---------------+-------| T | | | | | | E | | | | 0 | . | R | | | | | | | ------- ------------------------------- > 4 *Շ> 5 *>!#> 6 *ׇ*#!> 7 *#'A> 9 > 9 > @ >M~2!> A *!*ˇs#uʽW> A > B V*V&V%*V& > C >*WKey(s) currently generated: ! W͞xMn> D *ه*#!> E *#*IstwW> E *>!#ÖW> E ÃW*#*Wys>!#> F *ׇ*#!> G *#'A> H > I W1W4*!*W&st*!*W&ststZ> I > P X*X>!'%2 X*X)X!'X>> Q =XBX**#*ms*;Xͅsys*'ys*@Xms!w%wX*uXrr2>> R !1XUr> S áX*X&ëX%*X& > T >XEnter new key(s): !X͞xMn> U X*X&Y)*Y& > V >"Y !Y͞xMn> W :Y*9Y&DY0*CY& > X >xY !]Y͞xMn> Y ÐY*Y&ÚY0*Y& > ` >Y !Y͞xMn> a Y*Y&Y0*Y& > b >$Z ! Z͞xMn> c d >zZ !_Z͞xMn> e ÒZ*Z&ÜZ0*Z& > f >Z !Z͞xMn> g > h Z2Z4*!*Z&st*!*Z&ststn^> h > i /[0*!rr*-[ms>!%> p *#!w%a[*_[rr2>> q [*}[>!'%2*%Û[![>> r î[*[&ø[ ü[*[&*'*[&ͅsys > s >[-------![͞xMn> t \*\&\ \*\&*'*\&ͅsys > u >E\ |!<\͞xMn> v ]\*\\&g\ k\*f\&*'*j\&ͅsys > w >Ý\ |!\͞xMn> x õ\*\&ÿ\ \*\&*'*\&ͅsys > y >\ |!\͞xMn>  ]* ]&] ]*]&*'*]&ͅsys >  >L]-------!D]͞xMn>  ![Ur>  r]*p]>!'%2*%Î]!]>>  >è]í]**#*ms*]ͅsys*'ys*]ms!w%M~2w>  ]*]&]!^*]&*'*]&ͅsys >  %^*^**#*ms*#^ͅsys*'ys*(^ms!w">>  !]Ur>  >  y^1*!*x^&s#u^>  >  >*#!w%M~2w>  ^*^&^)*^& >  *#!w">>  >  ^X^x*!*^&st*!*^&ststʣV>  *Շv>  >2؃>  > ×a> > > > }> | Enter a '1' to set the write safe flag on, any other character to set it off. > >MN}M~2+Myn>  `1*+*`&s#u`>  > !*!w>!)> "*)* s>!)> #*!w%*)2>> $>ù`" Write safe flag is now ON.!`͞xMn> %ra> &> '*!w>!)> (*)*s>!)> )*!w%*)2>> 0>^a# Write safe flag is now OFF.!:a͞xMn> 1> 2>Mn> 3ͱ> 4> 7Ðf> 8> 9}> @| Possible baud rates: 110, 300, 1200, 2400, 4800, 9600, 19200. Enter the rate that you want for the printer. (Enter a '0' to return to the main menu.)> H> H> I*߇>!/> PÏb *b&Ùb *b& > Q>b' !b͞x> Rb *b&b *b& > S>MN}Mym{!-͟yMyn> T1c *0c&;c*:c& > U>|c' !Tc͞x> VÎc *c&Øc*c& > W*->Ͷöcn*c͍tc> X*!w%c*crr2>e>Ͷc,*c͍t0d> Y*!w%d*drr2>e>Ͷ:d*8d͍trd> `*!w%]d*[drr2>e>Ͷ|d` *zd͍t´d> a*!w%ßd *drr2>e>Ͷþd*d͍td> b*!w%d *drr2>e>Ͷe%*d͍t8e> c*!w%#e*!err2>e>ͶBeK*@e͍tze> d*!w%ee*cerr2>e>ͶÄe*e͍t¤e> e*߇>!/e>Ͷ*-͍te> f*>!/e>> h*/stf> h>fINVALID BAUD RATE!e͞xMnkf> i f*-*fXstkf> i>WfBaud rate changed to !Af͞x*-xMn> pwf*-*ufIstjb> r> uÇk> v> w}> x| Possible baud rates: 110, 300, 1200, 2400, 4800, 9600, 19200. Enter the rate that you want for the modem. (Enter a '0' to return to the main menu.)> > > *߇>!3> Æg *g&Ðg *g& > >g' !g͞x> g *g&g *g& > >MN}Mym{!1͟yMyn> (h *'h&2h*1h& > >sh' !Kh͞x> Åh *h&Ïh*h& > *1>Ͷíhn*h͍th> *!w%h*hrr2>j>Ͷh,*h͍t'i> *!w%i*irr2>j>Ͷ1i*/i͍tii> *!w%Ti*Rirr2>j>Ͷsi` *qi͍t«i> *!w%Öi *irr2>j>Ͷõi*i͍ti> *!w%i *irr2>j>Ͷi%*i͍t/j> *!w%j*jrr2>j>Ͷ9jK*7j͍tqj> *!w%\j*Zjrr2>j>Ͷ{j*yj͍t›j> *߇>!3j>Ͷ*1͍tj> *>!3j>> *3st k> >jINVALID BAUD RATE!j͞xMnbk> k*1*kXstbk> >NkBaud rate changed to !8k͞x*1xMn> nk*1*lkIstag> > #m> }> | After all changes have been entered and you wish to enact these changes, or if you wish to abandon the CONFIG program, enter an 'X', and you will be asked if you wish to implement the changes. If you answer 'y', the program will implement the changes and then terminate. If you answer 'n', then the program will simply terminate. > (ͱ> )> 2> 4> 6R> 8Jm*Hm> 9*ͤ> A*% > B*ۇͦ > C' > E*% > F*݇ͦ > G' > I> Q> R> S > T>M~2ɇMyn> V*ɇ>Ͷmi*m&͍tn> W` ïo>Ͷ nI*n&͍t9n> X͕.ïo>ͶBnv*An&͍t[n> `ïo>ͶdnV*cn&͍t}n> a5Fïo>ͶÆnn*n&͍tŸn> c^ïo>ͶènN*n&͍tn> dRïo>Ͷnw*n&͍tn> fuïo>ͶnW*n&͍to> gT_ïo>Ͷop* o&͍t'o> iïo>Ͷ0oP*/o&͍tIo> p͡aïo>ͶRom*Qo&͍tko> rnïo>ͶtoM*so&͍to> s͚fïo>ͶÖox*o&͍t¯o> u͑kïo>> wÿoX*ɇ*o&s#uʼm> >M|Do you really want the requested changesMN}M~2ɇMyn> 0pY4py*ɇ*/p&st*ɇ*3p&stst`q> > *% > *ۇͦ > ͅ > *% > *݇ͦ > ͅ > > p*pͤ> ' > >q1Changes now recorded. They will become effective!p͞xMn> >Iqafter the next reset.!3q͞xMn> Îq> >ÁqNo changes made.!pq͞xMn> !5"Copyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "r"r"r"r"vr"zr"r"r*r*"*r:rr͍tڟr*vr*r*r!**rms"!͍tڏrʏrßr"r!́6)&:΁o!>"r!́6):΁_!>zW{_zW{_z/W{/_"js͍t>fsds"js͍t>fsfs>fs"js͍t>fsds"js͍t>fs>t!}o|g}o|g"sͯszs*s"sͯsAzs!||sxŷs|/g}/o#y>tty>ttty>tty>t>t",t/t>(t&t",t/t>(t>ͩt!"bt!Ղ6)!́6)!ւ΁~ztOetat#Kt! ~`tOzat#gt`t `tat|t`tztz>t7z¨t{"t!t·t!t!TrueFalse!t!&.Tt.F"t#u!t!!|>"!u{u&u!́6)*!u:΁&u}TCutCuYCuyCuCu>>"w"ZwB "\w)*Zweu*\w"^wpuXv^#V"hwkw~#|u:mw*pw#=rwʠuN#F#z=’u|®u}®u!:nwO:ow½uz"`w:mwpws#r#=uq#p#z=u:owuy2nw:nwO:owvz"bw*kw"dw͒v:mwo&)E*hwkww#!v:ow:v!kw͐wJv*bw*kw6#zAv*^w##"^w'wÈw^#V++^#V#"`w^#V"dw"bw++r+s͒v*^w##"^w'w*\w"^w'wÈw*`w*bw|>¤v}>ҩv/2jw}o|g"fwDM:jwv*  " |!9}"xͼ2́!́):́_!΁6:}x!́:тO>}*x"1y3yy0xx!΁6 :y+xw#ywxxy60#<62́:}+y!́:тO>}*1y"y!y|>+2yRy}/o|/g#>-2yyN#F |jy,^yy/Ox/G y0w#ʅyYy*y΁z΁|zڵys#rͻyày!yyERROR IN INPUT, RE-ENTER PLEAS:ڃn:ڃO yn!z :ʁm{??! zyNUMBER TO LARGE/SMALy!2zx2z9z) 4z"zz>2yz7?{_zW!yz5vzyOxG#yO#xGNz*zz DMNzBK2݃ +ʐz-‘z>2݃`i"z! ʴzT])))0 ?z_Ùz:݃|/g}/o#*zDM! Hȷ707 z?_))))z"K{:́O<{*ˁ~ { #<{{~,V{ V{ V{E~1{+V{-V{ #c{{~,D{# >0c{~,<{1{M{~,c{# "ˁy2́O>}p|O2ʁ!΁"ˁ2́2{ {{{|/|{w=|:؃{~~#Š{>2́6:׃>ò{xʊ{+~Ê{xʊ{+>> >Ê{{>#n!́>}Ê{>#n:ʁm{!P|}:ڃON}:ʁm{TOO MANY CHARECTERS. MAX IS 252ʁ!΁"ˁ2́^#V"|>!|*|*ˁ*ˁ~ ʻ||#"ˁ:́2́Ҋ|!|~>!|*|*ˁ*ˁ6!΁"ˁ#"ˁ:́2́|>2́|-ASCII FIL~}#|#~#ynR2M}~=}2L}#~=}!L}5=}'}:M}Ryn!T} ?2}"~}ʁ}ͼ2}!})!}"}!}~:т!*}z}~#.,-$*^+/&!\µ}#~:тO~#Ä}N# 6~~#~6#~^"#: ͣ:ڃn** 2z~2ۃ#~2܃#:z!{Q:ڃO>[>]> :|=2|Q>2|yn2l:{/2{2o^"#ͣ! :ڃn WARNING ONL:ڃOn ! :܃!  ERRO IN LINE*ۃ|0|0}0}0!ك>w~!ك4# * s#r#" * +V+^" y2т 8:тO!; ~Y> <`O> > ჯ2ك>}¢^#V>!!:2:؃ʳ":́!΁:ˁր:́!:́!΁:ˁ:́!!"2ˁ!$O  ~2́!΁!ͼ2́!́)"z]OFxtyG#6t#wtt G#6tO~zo #6#y*"́|Ž}Žq_!΁y2́*ͥtF́O #6 wízƁ !; 4 6!\ 4 6y29>}82:^#V!1!:>:9O::ʛ!A ‰#~#^#VN#!A §~#´"/^#=V#=*/*/"/__{"s+=.r+=.s+=!!g;> N!D !T~%BAD CHANNEL NUMBEïggggglæU^gggggggg_?|Ȇ*Ć:>چφ2>Ć!ð:>?|*7>|02>2>*S|! "S__7:‰\!~>2:¨\!~_<2!~ɀ&INPUT FILE REAPPt~>2:¨\!~_<2!~ɀ&INPUT FILE REAPP Type space to continue. Name Ext Bytes UN At ! File(s), occupying K of K total capacity directory entries and K bytes remain on 1 !9" ! J> # ->! . *ͪe> # < * v K  K  K !B r+s+p+qA ?  p*A *? :]$Ž l]Q !]6 !E 6!C 6 :C *C &l ~2D U¼:E 2 :D S:E 2:D F:E 2:D V:E 2:D P:E 2 :D N2E !C 4Ø:!4:!5(  ! I3= : [= t:\a:\=_: :] t ?]\ : ҃! 6?Î : 2   ]Q  ?\\ : DM, Q ! "= *3 ##)*= "; */ &# "! *3 #"#  !! "% >!1 . 2' \: 2 : ʩ: ƀo&"* ~ʛ*# +"# ** DMY қ** DM  *; q#p* " . ** #DM*; -e**  *; w* #" )*= *; s#r*; "; : 2 !S 6!"V * "n >!S d*S &T ) ^#V"K O!l ^#V"M :S =2S M K  a*K "G *M "I *K  )*= ^#V"O I G  *G )*= N#F*O ? J*G #"G (*I )*= ^#V*O DM? m*I +"I JI G  *G )*= ^#V"Q *I )*= *G )*= N#Fq#p*I )*= *Q s#r*G #"G *I +"I K I  G M   !M G  :S <2S O!T *G s#r*S &l ) *M s#r*I "M ^I K  X:S <2S O!T *K s#r*S &l ) *I s#r*G "K û!" "    #* #" )*= * #" )*= N#Fq#p   * )*= * ) *= ^#VN#F? H * #" )*= ^#V";  *; ^#V" * )*= ^#V"; *;  ͪ  *; q#pÝn* " ! p+q* )*= ^#V"; ! 6> ! i* &*; >OK : <2 E:/ *; ^#V*% DMf KK : *; Nf E*; ~ڻWK þE *; ~SK E = ! 6:! '= :/ = : = !: = : <2 * " !" >! .  * *&͵ "( * *&͵ > j*( #"( *DM*( V"( !" (   K!" }2 : <2 O:* * * "    >! = * DM** +" *( * " Ø* #" *&*( * " 3*1 #" " " *5 " > # R : B * +" ! +s#r( ! 6: " * ~2 * #" * +" > ʶ : 2 Ғ * +" : <2 O>ҳ ! 6* #" * ~2 p K* DMf = * *% DMf = * *% DMf = *( #"( K*# DMf = * *% DMf = : AOK :K . g S -A >>!  ~?l W >#^ : /!:' —  ʑ #‹  W ʢ #™ i`N#FogDM!>))덑o|g =¼ DM!>)) = ^#V) ^#V|g}o _{ozgO{ozgi`N#Fogo&og_{_z#W OK = Y -S {-_ ! s+p+q*  ͼ 2 <2 : ! ڗ  K ! 4Á ! 6: =! ڻ * & NK ! 4œ >3  03} Z; { ) # =COPYRIGHT (C) 1980, DIGITAL RESEARCH DDT VERS 2.2$10 !~=W!xe ~#Xbxʇ {z~#o}o҃i.2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*oÃO$*sy͏ , $  ͌ 9!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷ y=!z{w# % w!P͠ y͓}*w#"͌ @.@<!Eͷ~P !ͷ’P͌Q!ͷªP}QxQ!ͷ͓G@Q! ͷ y͓Gþ!ͷ ͓Q!ͷ͓Q͌Q!.ͷ6y#G͙Qà!2ͷQ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# z8O!B N#N ¾SP.* |} !9":q!"28!"9:] !í 1͓ !" >- Ͷ Aګ ҫ _!7^#V~  \p Z z ů2[\͓͢ ҫ ͐ =« f " ͓ ҫ ͐ ʻf " =ʻf "=« ý> 2͐ f "]=f =« *]}o"_  *]"a. ~ #E }"]*a 6 *]}#|#*]E ͐ « f f f {zA|« W}d ͐ f f f DMʡڏ"=ʡͲ=ʡYPͲ1**!O~4#~#F#x~#s#r#w>͐ « f f  . ᯕo>g. 2|2\  !]w# ʫ .&  0 6 #& .K !e K w# ʫ : U 6 #K 6AW w#] !e~H#~E#~X*}|́ "!́ ͐ !ʬ =« f kʫ j \͢F w# ͋ t ʫ : W& _& & O { `i"F & & w# & ͋ « t Y t Y GтWx ͢!o ~Z #N  *. *.  NEXT PC͐ =« f  . ~ Ͷ ʻ .͓ =« f |« }w#Ä >2L͐ ! =« f }ʫ +"MD Å D  !  # ë «   Ͷ ͐ =« f xY |« }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 7   > >  ͢| } @ >. *_}o| , 0 ë ^#V#!Y ))))o P q s#r#!V4 !V6# ,® >2Vñ m ͅ m ͅ m ͅ « Vʫ ! XN!~  ! _^! ^#V~ x+ >= = !~  . !   #x f L L ͓ͅ ҆ *" !6ï +"_*~ #E گ ʫ ^#V. ï ~ CZMEIABDHSP!"M"+"!91*~!O~6=G#^#V#~x (#"!N#FW( *J>7Å*M|N+"M N:LHͅÅD Å >* *͓ b" . *"] !/~##ʁtZ*F#n!Is!^#V&&##&))::^#V#*^#V>+)x-8_)*)þ))>+><7"9.Yͯ * M^2U :2:2ͳ:_³ͯ !6! @!!BH @@ABH B! "BHI$$BI$BI $ HI D$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I $I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @BB $A"$$$I$$H!!! BH" !I B  $$!BD! $!BI D@"!$I$$H"!I$I$I$UUU$$A$ D$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I $I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @BB $A"; FILE DUMP PROGRAM, READS AN INPUT FILE AND PRINTS IN HEX ; ; COPYRIGHT (C) 1975, 1976, 1977, 1978 ; DIGITAL RESEARCH ; BOX 579, PACIFIC GROVE ; CALIFORNIA, 93950 ; ORG 100H BDOS EQU 0005H ;DOS ENTRY POINT CONS EQU 1 ;READ CONSOLE TYPEF EQU 2 ;TYPE FUNCTION PRINTF EQU 9 ;BUFFER PRINT ENTRY BRKF EQU 11 ;BREAK KEY FUNCTION (TRUE IF CHAR READY) OPENF EQU 15 ;FILE OPEN READF EQU 20 ;READ FUNCTION ; FCB EQU 5CH ;FILE CONTROL BLOCK ADDRESS BUFF EQU 80H ;INPUT DISK BUFFER ADDRESS ; ; NON GRAPHIC CHARACTERS CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED ; ; FILE CONTROL BLOCK DEFINITIONS FCBDN EQU FCB+0 ;DISK NAME FCBFN EQU FCB+1 ;FILE NAME FCBFT EQU FCB+9 ;DISK FILE TYPE (3 CHARACTERS) FCBRL EQU FCB+12 ;FILE'S CURRENT REEL NUMBER FCBRC EQU FCB+15 ;FILE'S RECORD COUNT (0 TO 128) FCBCR EQU FCB+32 ;CURRENT (NEXT) RECORD NUMBER (0 TO 127) FCBLN EQU FCB+33 ;FCB LENGTH ; ; SET UP STACK LXI H,0 DAD SP ; ENTRY STACK POINTER IN HL FROM THE CCP SHLD OLDSP ; SET SP TO LOCAL STACK AREA (RESTORED AT FINIS) LXI SP,STKTOP ; READ AND PRINT SUCCESSIVE BUFFERS CALL SETUP ;SET UP INPUT FILE CPI 255 ;255 IF FILE NOT PRESENT JNZ OPENOK ;SKIP IF OPEN IS OK ; ; FILE NOT THERE, GIVE ERROR MESSAGE AND RETURN LXI D,OPNMSG CALL ERR JMP FINIS ;TO RETURN ; OPENOK: ;OPEN OPERATION OK, SET BUFFER INDEX TO END MVI A,80H STA IBP ;SET BUFFER POINTER TO 80H ; HL CONTAINS NEXT ADDRESS TO PRINT LXI H,0 ;START WITH 0000 ; GLOOP: PUSH H ;SAVE LINE POSITION CALL GNB POP H ;RECALL LINE POSITION JC FINIS ;CARRY SET BY GNB IF END FILE MOV B,A ; PRINT HEX VALUES ; CHECK FOR LINE FOLD MOV A,L ANI 0FH ;CHECK LOW 4 BITS JNZ NONUM ; PRINT LINE NUMBER CALL CRLF ; ; CHECK FOR BREAK KEY CALL BREAK ; ACCUM LSB = 1 IF CHARACTER READY RRC ;INTO CARRY JC FINIS ;DON'T PRINT ANY MORE ; MOV A,H CALL PHEX MOV A,L CALL PHEX NONUM: INX H ;TO NEXT LINE NUMBER MVI A,' ' CALL PCHAR MOV A,B CALL PHEX JMP GLOOP ; FINIS: ; END OF DUMP, RETURN TO CCP ; (NOTE THAT A JMP TO 0000H REBOOTS) CALL CRLF LHLD OLDSP SPHL ; STACK POINTER CONTAINS CCP'S STACK LOCATION RET ;TO THE CCP ; ; ; SUBROUTINES ; BREAK: ;CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO) PUSH H! PUSH D! PUSH B; ENVIRONMENT SAVED MVI C,BRKF CALL BDOS POP B! POP D! POP H; ENVIRONMENT RESTORED RET ; PCHAR: ;PRINT A CHARACTER PUSH H! PUSH D! PUSH B; SAVED MVI C,TYPEF MOV E,A CALL BDOS POP B! POP D! POP H; RESTORED RET ; CRLF: MVI A,CR CALL PCHAR MVI A,LF CALL PCHAR RET ; ; PNIB: ;PRINT NIBBLE IN REG A ANI 0FH ;LOW 4 BITS CPI 10 JNC P10 ; LESS THAN OR EQUAL TO 9 ADI '0' JMP PRN ; ; GREATER OR EQUAL TO 10 P10: ADI 'A' - 10 PRN: CALL PCHAR RET ; PHEX: ;PRINT HEX CHAR IN REG A PUSH PSW RRC RRC RRC RRC CALL PNIB ;PRINT NIBBLE POP PSW CALL PNIB RET ; ERR: ;PRINT ERROR MESSAGE ; D,E ADDRESSES MESSAGE ENDING WITH "$" MVI C,PRINTF ;PRINT BUFFER FUNCTION CALL BDOS RET ; ; GNB: ;GET NEXT BYTE LDA IBP CPI 80H JNZ G0 ; READ ANOTHER BUFFER ; ; CALL DISKR ORA A ;ZERO VALUE IF READ OK JZ G0 ;FOR ANOTHER BYTE ; END OF DATA, RETURN WITH CARRY SET FOR EOF STC RET ; G0: ;READ THE BYTE AT BUFF+REG A MOV E,A ;LS BYTE OF BUFFER INDEX MVI D,0 ;DOUBLE PRECISION INDEX TO DE INR A ;INDEX=INDEX+1 STA IBP ;BACK TO MEMORY ; POINTER IS INCREMENTED ; SAVE THE CURRENT FILE ADDRESS LXI H,BUFF DAD D ; ABSOLUTE CHARACTER ADDRESS IS IN HL MOV A,M ; BYTE IS IN THE ACCUMULATOR ORA A ;RESET CARRY BIT RET ; SETUP: ;SET UP FILE ; OPEN THE FILE FOR INPUT XRA A ;ZERO TO ACCUM STA FCBCR ;CLEAR CURRENT RECORD ; LXI D,FCB MVI C,OPENF CALL BDOS ; 255 IN ACCUM IF OPEN ERROR RET ; DISKR: ;READ DISK FILE RECORD PUSH H! PUSH D! PUSH B LXI D,FCB MVI C,READF CALL BDOS POP B! POP D! POP H RET ; ; FIXED MESSAGE AREA SIGNON: DB 'FILE DUMP VERSION 1.4$' OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$' ; VARIABLE AREA IBP: DS 2 ;INPUT BUFFER POINTER OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP ; ; STACK AREA DS 64 ;RESERVE 32 LEVEL STACK STKTOP: ; END OPENF CALL BDOS ; 255 IN ACCUM IF OPEN ERROR RET ; DISKR: ;READ DISK FILE RECORD PUSH H! PUSH D! PUSH B LXI D,FCB MVI C,READF CALL BDOS POP B! POP D! POP H RET ; ; FIXED MESSAGE AREA SIGNON: DB 'FILE DUMP VERSION 1.4$' OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$' ; VARIABLE AREA IBP: DS 2 ;INPUT BUFFER POINTER OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP ;!9"1W͜Q>2!͢QG}DrYQ|͏}͏#> ex͏#r* _> e> e ҉0Ë7e}} :³ʳ7_<2!~ɯ2|\\FILE DUMP VERSION 1.4$ NO INPUT FILE PRESENT ON DISK$!Y , <    *$A!6 # T!w $r# *`: 0 *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ # COPYRIGHT (C) 1979, DIGITAL RESEARCH DISK OR DIRECTORY FULL$FILE EXISTS, ERASE IT$NEW FILE$** FILE IS READ/ONLY **$"SYSTEM" FILE NOT ACCESSIBLE$BAK$$$BAK$$$-(Y/N)?$NO MEMORY$BREAK "$" AT $1mM"m +!8s~1m!f6 *M  *!M 1m! 6!6! 6: 2Ebͽ!e:d\::eH2 H҆ͽ:e2!:d2e:!2dû :!I¬!: :H2 ҮX:h2iҐ:!ʍ:!:!H:!H,!"! 6#~ F)ͷX:! X):i!h)9 e:!:h2jO>F L>!":i!jHҼ*"+M ~ ʼͲ!f6!h6!"! 6F!f6:h2k!iҠ:i2k:j2h:k!hҶ9 æ:h2j!!6:j2he:! >"Ͳ*"M ~2!O :! *+"!!6e*!M͛ /$^L:!@OL:! 2͑e:b:! L:h<2hb:! b:hO>!hw:! pX:! …!!6  LÊ!!6ûô:!ʛ͑:! ҩ OҸû:!R†!6G>!!!6 :2.t -? >!!6!6s, !6:xB!6OU2!SB!G6:҃!6:G҃*G& ~2!:G<2G_ Qқ=e  b:!-®! 6:!#¿͇;J:!:!!6Lv:!:Jv: *#"͎! 6:!B)! >w!"&*o"(R :!C:eR :!DKeX :!K\ͷX :!Lj^ :!Pš͎҇! 6F×͢җ:Ç :!T¨F :!U¾: 2 :!V͎"$DMͩ/ *oDMͩ : 2 :! (::H%^bF : ͎H :!Ay! 6*""&*o"(R͎an͢na! 6R :!F”͢ґ Ä :!J $:2$͢ :=2:<2!*& ~2!ü*""I*M*o/!:""&! 6R*I""ë :!M:H| ! 6>F ͛e: <2 O! Hqy d F : 2! 6*#s#r :!N ͢ *o/ Ҧ Ͷn! 6!"&R! 6o$ Î Ç :!S0 $͢- :2"+s#r!:* *& ~2!:<2 :!W> v :!X³ Z͎\ Ee ð :7/҃ E!76e ͕ :xƒ - ͷ*&"K(Kڰ *KM N͔*K"KҌ :!Z ͎  ͢ : :!  'v!gq:f *g&!lq:l $ !h4:l 1 !h6*lM :hB     !h55!mq:m :hO>H2ny} !m6 !o6:n!oښ *mM !o4‚ !pq:p ڪ >:p :p H:p H!qq*qM͛  ^W :q@2q*qMW   !sp+q*r !up+q *tDM !wp+q*v !zp+q*y2x!|p+q*{2x!~p+q*}2x!p+q*!p+q*!p+q*!p+q*2x!p+q*!6   >>! q* &!p+q*:7 e !p+q*DM  =? ) !p+q.*DMF -L *9"`!"b!h6!j6!|6.!=\ -x !e:dʥ *eM \R :xʥ @ *dM \, :x \͕ :x - V :e _ :f w : =e !e:d*eM =e : =e =͕ !]6:x>- !"!76!6!6!66*dM  *dM !6:8!*`*;DM \u 2xʻ>!xҨ- *`*;6:82*`"`:<2w!"`9`h*`*;~2*`#"`:*eM !b+!s{!f!6:!b*b*^DM =ͅ N- *b"b:<2)f!"b!q9bڀ*b*^:w*b#"b!q:6ڶZͅ ʱ- !66*6& :w:6<26!J6*b}:J<2Jm=? :x- : ;*dM .=\ -=ͨ ;: *eM =ͨ .M= -C!q:Y*M !q:a/>z!/H!q*MaҎ:_:!q:ҥ*My:!p+q!'"!6>**ͪ{2**ͪ"*! ͪ":!!6:0O  ú!p+q:/(*DMͩ:  : I N* *DM:aO>!Һ x!: ڦ> ʡ* +" >¡! 6: <2 =O! N͒:  O͒: ! 6:h!o$O* ͸ ! 6 !h6!: 2 3* & 6 : <2 =O! N͒*dM  :sGsu n>!6:<2=O! N͒!">!"͎/Ҵ*+">>!": *#"*""*!".+",*$"**o".!",!36:3{.*22*,**"0M ~ H3*0"**+"*+">23:2/k!36,*+s#rx:3x*0"*: “**"&*"+"(á*$#"&**#"(*"#""*$#"$*"+""*$+"$*#"!4qM*"*$: *(y"$DM}|C#~ *#"*&DMyxC 1*+":4?w+"$""ͷR: —*$"("҈!"&Ô""&*""&$mڸ*o"(**$"($"O26͛*"M :6w͢:6 !7q:*7M͒:7o$+͛ͪ*$M ~28Om:8 I͇͢u$oqo͛rP! 6!"&*$"(R͎ҔM͢ҡÔ($ҵ! 6R͇vͶ2!*!Mm$"*"M :!w͢:! e2!:! : /HH/Q:! @!!6 R!!6 :!KR$*& :!w:<2dn!:s+q*$";!>6:>/;oH*;#"(";:92=*=& *(M !::=2>/H:=<2=*(#"(æÀ:>*(+"(R:>!6$:2*o/*!My:<2=O!s Hq**DMͷ! 6: e!"*""?k*&"?*?+M ~2A :hHҏ *&"?(?:A ½8*#" ҽ*?M ~2AO *?"?ҕ!"*"*"^: 2B! 6F:B2 o(>&H6͛9!C6>!Ca R>:C<2C?! 6!"͇͢Ґq"ڊ͛Íq!!6 !!6 !6*!Ma2D*!M͒2!:D/!+w!6e2!͢!Eq!E:!:H:H!Fq*FM8 *FM   Oy2F :FY5>>:!02HO> /!";u*)))*) *H& "PҘ! 6+s#ré! 6"DM!>))덑o|g =±^#V) ^#V|g}o _{ozgi`N#Fogo&og_{_z#W H = LIBX$$$$$$$LIB1dg FINDBAD - ver 5.4 Bad sector lockout program Universal version Type CTL-C to abort $ ͥ@|5ͭ> ʹ*|ʕ͋Ú  *" "w"o"z " |2*.":\O*ʹ!"**DM ;:ºg" Bad block: $ x.y.ͭ*:<_"*#"* q#:p#" i:2!d" :W!yP)=K:GcU}2*DMڐxʅ`i͐" e͐" !:<22|ʻک|».:22}2:G* !w#:w##Ý Drive specifier out of range$ +++ Warning...System tracks bad +++ $BÝ Bad directory area, try reformatting$oÝ Can't create [UNUSED].BAD$ ڔ |ċ{0ʹ> ʹ> _*.*.   Test aborted by control-C $*dDM6# x }o|g}/o|/g#~#%7Ɛ'@'ô:W:Wi&"^ Yɷ|g}o:{%*.:^#"^#"~#2~#2^#"^#"^"[UNUSED]BADNo$ bad blocks found $d total sectors read $1Kaypro 10 Floppy Diskette Format Program ( Version 1.0 ) F = format an entire disk S = format a single track C = Return to CP/M Which do you want to do ? fS F 'C  Track to Format ( 0-79 ) or an ESC to Abort ? 90!̈́0O ͕ y0_y(G Ok Now Verifying 2(f8f8ȼ8f8ȼ8ȸ8F͵#f#8Ff#OY F#N#~ x ~# ˯  \Lm  ͼͅ yP  \  ͼ+͏[!! P6N#z  6#z 6#z 6#z 6N#z 6#z 6#z 6#z y?w#6#z ~A( #w#6#z 6#z 6N#z  6#z 6#z 6#z 6#z 6#z 6N#z 6N#z R"_ !O ~0:0GyOy0d8d{0(0 8:_Oa2z > Ky?0>UG X*_!:f>2f>vzu2f Floppy format program for the Kaypro 10 Press a carriage return when ready, Any other key to quit. $ DONE $ Formatting track:$ Enter to format, any other key to abort $ Sector $ $=W0:>22>P2 g g  g gͱ>2:f>2f͹:2 y!"2&:< 8:O:<82f:  ˯y2<2æ fO:?y0 .*{v>vD"ͩ-( *B>!oO ~ ͹>ͣ:?0>vG >ͣgˇ˯2z>ͣ:=?y0d8d{0(0 8:_ jK>2  z q:fO  g͹ $Track $ Sector $Drive $ {BAD}$ $ Format OK $ Please type any key to continue.$Verifying disk to be readable $$Track $ Sector $Drive {    n f ~: <2! "!""j!"!"j(K! "!  |K K ' *#":=2  '  *Kaypro 10 Floppy Generation Utility Version 3.01H Insert a formatted diskette into drive C Press ESC to return to CP/M Or press RETURN to copy the system $ Disk Select Error on Drive C Press ESC to continue $ Disk Write Error on Drive C Press ESC to continue $ System configured improperly Drives A and B must be hard disks Drive C must be a floppy Press ESC to continue $ System written Press ESC to continue $4\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ү2 Ӈ!ٶ2:2a{_:ٷʖ:ٷ>Ľʖ:=2–!B!6#5ʖ:ٷĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "Է"͌#>?͌͘ =_.:;<> Oԅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3կ21y_͸2y2ͽ:ҷ˜1͘A͌>>͌92^ :ٷ¥.!_~#fow]׭؎إ!v"!çREAD ERRORçNO FILE^:ٷ ! ~ 3#0 Wx x Ԁ Ԃ G ~ # 3x~#B!Y~ɯ2:ٷ=!پý:ٷ=!پ:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ׯw4!Y~ʆ͌†t=ʆf ^ T ׯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yظpsp2mÆÆf ͧÆFILE EXISTS _: É: :ٷʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2ٯ2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ٶ Â$$$ SUBڙڥګڱ"C{2!"E9"1Aݯ22!ty)K!G_^#V*Cܐ~E ,&-AGMSݛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ݷE B 2>: ݷb# : ݷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ݾ Hù H H $O͐: 2 *CN# x: 2 p&x~+é7ۯ2 H! >w_: ! ݾ5ͤNkͱ¦ͱxʊ#Nx: ݷ! ݖ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \޷Sހ*C :qn& ^#V>O^"*}:*)=":O:硵o"*C *C!ͮ~2~2ͦ:2ͮ:ޯO:w:w |g}o*篆# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ߾,w͜͸Ͳ!!N#F$**O!~#:Aݾ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x߯2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻޯx>2>2ͻ:!Z2:Eݷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eݷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=26ޯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bݾw!>2*C~=2u:B2~2wE:A*Cݶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2ê4ä%>94ÖÚÞâæêôY0123456789-, ., D D͒ͅ2:32!JF#N#~ :G:H KAYPRO 60K CP/M Version 2.2H !"}>!2"!2"!"!"!]":OyO:ą͚͖͒ Warm Boot 1͞Cͦ,ͪ͢ *DM"ͦ2 >( ͞*}+"}| :z :.3.*>ͤ(:z /:.6.-!5O ~!ay''O "x>2z*xN#"x:z=2zy~y2zy.':.9.E.6.9:.9l.E@.9:.B.y>O#>#>J!.4. 0.,.(.$. !"}.!"}.:4(.!s1&{˿~#O%  8 >1͌0͌>>Ì 2{2|2<:{(!2|:|_ 2:{_ :<:|_ :{_ >O#>#>J!.4. 0.,.(.$. !"}.!"}.:4(.!s1&{˿~#O%  8 >1͌0͌>>Ì 2{2|2<:{(!2|:|_ 2:{_ :<:|_ :{_ @ COPYRIGHT (C) 1978, DIGITAL RESEARCH ERROR: $, LOAD ADDRESS $DISK READ$INVERTED LOAD ADDRESS$DISK WRITE$LOAD ADDRESS $ERROR ADDRESS $BYTES READ:$INVALID HEX DIGIT$CHECK SUM ERROR $FIRST ADDRESS $LAST ADDRESS $BYTES READ $RECORDS WRITTEN $HEXCANNOT OPEN SOURCE$COMNO MORE DIRECTORY SPACE$CANNOT CLOSE FILE$*!9"!e !" !" \!""͊: ƒde"\\\͊: ²d\͝: )d;! q* &f  ! q> ! : A O: 0O! q: O: O! p+q* |O* }O! p+q*  f! p+q* DMB! p+q)R* DMB1B* DM+;! p+q* i2 ! p+q* i2 ! p+q* i2 i2 !" p+q*! f!$ p+q*# i!& p+q*% i!( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= ! 6Y: !2 6=21 á:1 : r+s#r==_HL"4 " >6 ͪS* "6 =23 :1 =21 v=O* #" Y8  ͝҉* +"8 .!2 ʞR̀* "4 4 = ͝* #" çR*6 DM+R*8 DM+R*: DM+R*< M!? q=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2A 0O> :A 0:A AO>&R̀:A A H.2B !2 w:B !D s+q*C &͍:D _og_{ozg^#V) _{ozgi`N#Fogo&og_{_z#Wq=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2VE Copyright (c) Kaypro CorporationKaypro 10 V. 3.0+05-24-84@ 08:00B3C3YDo you want to S)elect a disk, I)nquire into a disk format, F)ormat a disk, or R)eturn to complete selection, and go to CP/M? ChangePlease put in a disk. S)elect again when ready.Disk Format is Unreadable.Disk Formats not Compatible.Multi Format Disk Function Track RetryPress "escape" to abort.Error! VerifyFormat Which Disk, A: or B:? Nothing ChangedUse arrow keys to move around, escape to abort, or return to accept.Permanent disk error encountered at track # Format aborted by User.Disk formatted for: Formatting: No errors DetectedI can't format a write-protected disk! Take off the protect & try again.Please put in a disk. F)ormat again when ready.Remove program disk, insert new disk. Press return: Are you sure that you want to do this? FormatFormatting erases any information that might currently be on the floppyDoesn't match anythingMight be: Bytes per sectorTrack Format: Disk Format is UnreadablePlease put in a disk. I)nquire again when readyManufacturer MenuOther A - IOther J - ZR     "t (?D 1[jY,Y Y*||T(? :CON:lst:LS pun:PU|TDGĀ     ͤ !!9s#rx-?   ʚ0nf "!(?H#V`i^#Vd80ìV!9^#V!|R     "! "?B n&     #xT0G?    ! G(^ D 9^#V)))D ^#Vͣ yTX ?D.! s#r! 9^#VDMD2`i&zTl ?"!!9^#V"!!zT$?D  2!9^# !*Ѧ$?  3!"  s#r!# $?D ͓ #!% s!͓ 9^#V!yT  ?D!!9^#V!%! 9N#F!zT $?D 66ͤ ! 9^# 9^#V! ;^(^ HDM!9^#V!9^#V! ^)3|(0$~ʐ4n$&  DM!9~#fo| (  !!9^#V`i  9s#rzyT  ?   4!9^#V  PYyT (  >5!9^#V`i   G5yT $R_D *!!* 5*yT.-? |ʩ5!!9^ $ ^!D  B 9~#fo     !yT\  D36#!ʎ6`i#DM+^zTt @^#V*!9^#V*,6zT z(Q?d  6* ! " } 6NL (^?d  !9!* 2 72 7!NL (?  j7:j7͂  : 7:7NL  ?B  7Ó7+ ])yT @ @ &8}/ 2:!:~w#=@=:!:#)=@=4=!:5=*:w#O=:j=!VVVrU7S)!PMQP!9~#fo">`i"*|3`i##Q"!`iO0*!#"!9`i#"!!++"*>++"*!"'*|v)*> ")Ä*> "):o&|ʕ!Ø!"!";ï*;#";*;*!sPF#+*;))us*;*!))us*>#*;))vs:o&|!!*>*;*!))vs!=*;*!))ss#r*;))ss#rèO:o&|n! 9~f!@i!D'O:o&|ʖ! 9~ʎ!HÑ!L'O:o&|ʾ! 9~ʶ!Pù!T'O! 9N#F!9^G`i))s^#V! !`i))v^`i))u^:o&|Ÿ !9~ʟ !"X+ *X#"X*X*sPʔ n&|R !_!mEÑ n& 9Pw !_!mE#Ñ #+^[!mE$ ! !'!!"Xï *X#"X*X*sP n&| ! !mE #+^!mEè :o&|!!!'!G <- O!!DMͿ! mE:!!mE!!mE|R!:!`i"!Ϳ*|¡!x|!*DMÞ!`i*!XPʕ!*!PYMQDMÞ!*!+PYDM#x®!*DM!`i*!9P!*!+DM!`i+DM#*|"`i*!*tP"`i*9P!!"`i*!MQ#DM "*!PYDM#`i*sP$"`i#DM)"!DM#!Ϳ!!Ϳ`i[`i*9Pb"!e"`i#!9s#r!9^#V`iHP"!9^#V))s^#V^[9Pʫ"!9^#VBK"!9~#fo#s#r*tP"!!9s#rm"#!G"!"^#V!!G"G"]!G""!!:"G"G"G"G"G"]!G"G"G"G""G"G","!Ϳ!Ϳ:!O!o!S#!!|n$!DM!s##EP~ʵ#EP^9Pʲ#`i#DM)!9s#rl#!!! *m! 9!Z"s!##PYYP$)!9^#V!EP^#V))ss#r#!"!9͛$|K#!o!$!*%!!mE)!9^#V!o!$!*%!!mE!O!z'!!!!mE:o&|$*#"!D*++**++-!9**!9~#fo###**++-!9!D*!9~#fo###**!9~#fo###-!9!D*!9~#fo###!D*++-!9!*#*!9~#fo"%!'!':o&|%*+"!͗! 9^#V)Q^#V*+++*!{'***!͗:o&|£&!'*+++*#! 9^#V)Q^#VQ&#~ʇ&n& 9Pw&! !mEÄ&!=!mEJ&!'***#!!Ϳ!DMý&`i#DM`i!9~#foYPv'!Ϳ!'`i))v^*###`i))u^`i)!9~#fo^#V!EP^!@O2'!'':'!''`i)!9~#fo^#V!EP^!Ok'!''s'!''ø&!Density / Sides===============Double / Single / DoubleSingleO!.(!:o&!9^#V###MQ! 9^#V!A!mE!/('! 9^#VT(DM`i'!!mE: O!!9^#V!Q! ͋EO! 9^#V2( ^#VO:o&: o&9Pʍ(:o&!)!!!!mE!'QDMA9P(!`iB9P(!!)!!!!mE!'!O! 9N#F!)`i#DM`i~C)`i^!9P9)`i#DM@)#)R.2O!9^#V!9Pʿ)3#!9s#r!sPu)!n(!9s#r!9Pʏ):o&}2L!9^#V#*-Q}2K*/{O¿)!"+!9^#V!EP^!O)!!9^#V!@Q! ͋E*!!9^#V!PQ! ͋E!!9^#V! ͋E7*!#"+!9^#V2("I)!9^#V!EP^!O*I) ^#V!^!OHPʆ*!>"+!*I)s#r!9^#V!EPHP**I) ^#V!/DM!9^#V!EPn&HP*#+^`i#DM+s*!!9^#V!EP*I) ^#V&Z!!9^#V!EP^#V*I) ^#V!&Z!!9^#V!Q! ͋E!9^#VͿ'QMFINIT_WaUO!,n(DMsPʟ+:o&}2L`i#*-Q}2K*/{O+!%"+!j"O͆I"M!:Ko&O}2K*/| ,!!!!,,!9‰,: o&:Ko&Q}2K:o&OK,!!!!,,!9‰,!!@!!,,!9‰,!!!$!,,!9‰,! "+*M5Klook atDrivetec disksDouble sided/Double densitySingle sided/Double densitySingle sided/Single densityO:Ko&}2r+!b9^:Ko&Q}2KGNTNTNTNTN*/|g-!!9s#rT-!9~#fo#s#r!9^#V!sPg-E- O:r+o&}2K*ODM*M!9!9s#r!`i+DM|.#^!O9P.n&OtP‘-n&O‘-n&(tP‘-n&O‘-n&!=Q.Ñ-|.!`i+DM#|.n&OHP:.#.n&OtPt.n&Ot.n&(tPt.n&O~.#.n&!9~#fo##s#r++s#r#+^!OHPʽ.`i+DMÛ.####PYMQDMsP.!DM.!v2!!!!mE!`9^#V!!~!2!!'!!!!!9^#Vs#r!"}+"w+!9!9s#rÃ/!9~#fo##s#r!9^#V^#V!XP/!9^#V^#V~'!9^#V##^#V!HP/!,!mE!9^#V^#V*w+tP/!9^#V^#V"w+s/!f9~0!w2'!d9^!O(0*w+9P(0! "w+R0!i0!i0!i0!i0xQ.070@0I0i0! 9^#V!9~#foMQ"+*+sPʖ0*w+*+"+!f9~0!!! *}+#"}+!}2!! Q2!"u+0*u+#"u+*u+EP"s+~Q2!"y+*s+^!O*s+###^#VP"+!"{+)1*{+#"{+*{+*+sP^1*s+*{+/^"+*y+sP[1*+"y+"1!d9^*s+^!OHP0*s+^!OHP0*s+/^*s+0^MQ*+HP0*y+*w+HP0*}+|1!!! *}+#"}+!2!*}+#"}++ *s+^! HPB2*s+^! HPB2*s+^)Q^#V'! !mE*s+#^#V'0*}+|k2!!! !}2!. . .Kaypro DrivetecQITOA_ Q.110"Q.111!WQ.112a[QPLACE_ Q.113!Q.114!Q.115e@Q.RMaQGOBBLE_ Q.116 ]!Q.118!Q.117!Q.119!Q.120 Q.128"O3#DMsPʘ3!zn(sPʮ3!!!!!mE!5'!R'+Q}2%3!5!!!!mE:%3o&:ao&HP4|?4!5'!'ͨ9P?4:o&}2L#*-Q}2K!{Oj4!"+6O@O}4!"+!!!!G! !mE`iEP^#V'! !mE!G!!mE!}23!"M`iEP^#V5"v3*M|5*M5K!"M*v3|‡5K)!o!&3"+͛Z`iEP^#V!&3Z&3͛Z!5!&3Z&3͛Z!!&3Z&3͛Z5*v39Pʜ5!W"+5!*!&3"+͛Z*v3+~!&3Z&3͛Z!5!!!!mE . O:o&HP}23! 9^#VÂ8!!9^#V<ò8!!9^#V<ò8!!9^#V8ò8!!9^#V8ò8!!9^#V8!}23!}23ò8!!9^#V8!}23!}23ò8!!9^#V8!}23!}23ò8!!9^#V8ò8!!9^#V+!!!!!}22!!9^#V8!}22ò8!}22!!9^#V8!}22!}23!}23ò8:x3o&"+!!u8!8^#V6(6P6<66d66#866E8E77!!͈>Invalid Format NumberO!}2#3"2!}23! 9^#V"2*2EP^!O9! 9!}23!}23: o&: o&O:Ko&OOQ}2K!9^#V"2#Q*2EP^#VP"2*2EP^!@Oʞ9!*2#Q"2:o&HP}23*O͆I"M"{3*{3|9!.I*2EP^#V!!N!{3E! !!{3E!!!{3E!*{3#"{3+s*2EP^!Ob:!}2z3y:!}2z3y:!}2z3y:!}2z3y:xQ::D:N:X:y:*2EP^#V*2MQYPʦ:!!DMô:`i#DM+`i*2sP;!!N!{3E!!!{3E!!!{3E!*{3#"{3+s*{3`i)2s#r!*{3#"{3+s!*{3#"{3+s*2EPPY^*{3#"{3+s:z3o&*{3#"{3+s!*{3#"{3+s!!N!{3E! !!{3E!!!{3E!*{3#"{3+s*2:2o&!{3E!*{3#"{3+s!N!{3Eî:*{3*MMQDM*OsP<*OPYMQ!N!{3EO!}23}23}2#3"2!}23! 9^#V"2: o&: o&O:Ko& QOQ}2K!@!9~#fo=Q"2*2EP^#V"2*2EP^!@Oʴ!!!}3E!*}3#"}3+s*}3`i)2s#r!*}3#"}3+s!*}3#"}3+s`i#*}3#"}3+s!9^#V+*}3#"}3+s!*}3#"}3+s! !!}3E!!!}3E!*}3#"}3+s*2:2o&!}3E!*}3#"}3+s!!!}3Eb=*}3*MMQDM*OsPʇ>*OPYMQ!!}3EOGN!9~#ʝ>TN@!9^#V}2 3ú>: 3o&#}2 3: 3o&'YPʮ@:3o&|>: 3o&)>: 3o&}2!3!ͭB~D!ͭB;DO ?A*2|?*2!!mE9P1?!:o&HPʨ@:Ko&!9s!:Ko&Q}2K:3o&|ʎ@!DMu?`i#DM`i*2sP?!`i)2^#V#s:3o&`i)2^#V##n&s:3o&`i)2~#fos#rp?:!3o&#}2!3!ͭB~D!ͭB;DO?A*2|@*2!!mE9P @!!DM-@`i#DM`i*2sPʋ@!`i)2^#V#s:3o&`i)2^#V##n&MQs:3o&`i)2~#foMQs#r(@Ü@:3o&|ʜ@cN!9^}2KTNï>! 9~@*M5K!"M*2O!@#*2sPA)2^#V##^)!9s#r@!*2)!9s#r*2#QDM`isP=A!DM!PA#*2sPA)!9^#V!9PʍA#*29PʊA!]A)!9^#V)2s#r!)!9s#r`i*2XPA*2MQIA!*2)2s#rO!}2"3B:"3o&#}2"3:"3o&sPʚB:"3o&|)B!ͭB:"3o&9PmB: 3o&|mBGN!DMSB`i#DM: 3o&`isPjBTNNBÇB: 3o&|BTNXNÇBXNTN͂N;DO—BA:!3o&#"2!ͭBO:3o&|~C!}23!"3!}23!}2"3!!!!!mE!n!!:o&|C!C!DM!5!-!9!5!!!-!9!!!-!9!5!!5-!9!}23:"3o&|C*3! 9~#foHPʱC! 9^#V!!!xD!1!:"3o&0!mE!}23bD*3! 9~#foHP D! 9^#V!!:3o&:!3o&HP>D:!3o&~!(!!yD':3o&|[D!|D!1!!}23! 9^#V"3:!3o&}23 O!DMÐD`i#DM`i*2sPʳD: 3o&`i)2^#VsËD!}2"3͂NO!2DM`i^#V!HPE*2EP^!O`i##DM++^#VN<OED!O! 9N#F!9^#V!9^`i^#VOI!9^#V`i~#fos#rɏs1\EQpEQ*ODM*Oo&Q͎Eo&Q*O*+++*ODM*O!9N#F#^#Vkb6#> 6 #=¹E>6#=E : >E A/F[E@Ea/F{/F`w# .F)FE6Fw#E{o|g )F6Fw#F!!|a{ !9^#V*TE!9}|aF*TE"TE|!O!!!F&Z!:o&OFs! I"fF!FDM!""G*"GsPH`i^! 9P‹G`i^! 9PʓG`i#DMoG`i^zH`i^!>9PʴG!G`i^!<9PʧH!`i#DM^! 9PG`i^! 9PGG`i`i#DM~'H`i^! 9PH`i^! 9P$H!`i#DM+s'HGT|FH!iSTH!͉S9PʤH! I!͛Z![!,I![!Z!!W! .IH`i*"G#""G+)fFs#r`i#DM~H`i^! 9PH`i^! 9PH!`i#DM+sHûHbG!fF*"G.ICan't open file for redirection: O\EO!"!O!!9nf]TNFy( ~w y(2N2N2N2N2NO!9^#V!ͭQʦI!!9s#rM*zI!zIDM~#ʃJ++nf!9~#fo͟QuJnf!9~#foMQͭQJnf`is#r!9~#fo!9s#rnf++!9~#foMQ!9^#Vs#r!9^#Vsrnf!9~#fo##s#rs#r!9^#V`is#rDM^#VôI!9MQ!9s#r!9^#V!9~#foͭQJ3LJ!"K! mE!æI!9^#V++s#r!9~#fo`is#r!9^#V##?F`i^#V+DM!! s#r`is#r## Out of Memory $O! 9^#V++DM!xI##^#Vz2L++PYͮQ/L`i##ut##! s#rzIHPK++nf##PY9PK`i^#V##~#fos#r##utDM`i^#V`i##9P+L##~#L!! s#r+Lnf##`i~#fos#rnf! s#r!LKO*IO*IO*~IO*|IOQQQO*|I! 9~#foHPM*~I! 9~#foHPM*I! 9~#foHPM*I! 9~#foHPM*|I*I9PL! 9^#V"|IM*~I*I9PL! 9^#V"~IM*I*I9PL! 9^#V"IM*I*I9PM! 9^#V"IO!DM*zI++7Mnf++##~#PMnfPYDM,M!9OMQPYO!DM*zI++ÉMnf++##~#ʮMnfPYͮQʫMnfDM~M!9OMQ!9s#r!9^#V`iͮQM!9^#VM`iO*zI|1N!?F!9s#r!9^#V##"zI!!9^#V##s#r!9^#Vs#rO!:LO:KyYOJO>JOSsYO{JOYO>v0 0>y6OYO*M>v006O!9~nfFYOP>v  JOo!9~FYOP>vx JOoYO!+} *OTE*M{v*O*Oo&:LOxog!+} 8:LO:Ky*yO"f!+} E!9:LOx:Ky~ $!>_ $ !> _ !(,:LOy}|g}o|/g}/o^#V#DM!99`iO|z2O͞P:O Q}ͷP}}CP|RP!}RP|CP!}|kP}|?>o&zo&|P}|>o&|o&z2O͞P:O Q||P/g}/o#zP/W{/_÷PDM!>2O))P#}o|gP :O=2OP}:O=2OP}DM!>))Q =P}}/o|/g#}|RPCP|g}o{_JQ|Q|7g}o0Q{_JQ)EQ}}o|gN#F# N#F#znQ{rQ##^#VBK^#VzQ#yʒQ###ÀQ#xQ#~#fo}|>?o&}|>o&{_JQ|g}oQ|g}o~# xQ!9O~#Q!Q|n)NECCromemco*a*i!]!Y!!!:o&}2L*-}2K*+|P!G*+!!G!"+!b!!!!!G!r'G!z'!G*/|!'!G!'!G!'!!'!G!'!G!con:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:O!9^#V!!9^#V͉SO!!!9s#rûS!9~#fo#s#r!9^#V! sPSnf7I9PSâS!"!!DMS`iDM`i~#T!9^#V`i^#VbZTS! ^#V!9^#V!O#!9s#r!9^#V!O_Tn&u|_T!"!!9^#V!OʆTn&u|†T!"!! ^#Vsrn&un&u!Vut!9^#V!9^#V!9^#VnfO! 9!sPT!!9^#VO! 9^#V!sPU! 9^#V! tPU!"!! 9^#V)))DM! ^#V! ^#VO! 9s#r!! s! s! s`is!7I! s#r! 9^#VO!RDMÇU`i&DM`i7SͭQʢU!% ^zʬUU!"!!9^#VͦEU!"!!9^#V!OU!mE!mE9P$V!9^#V!OV!mE9P!V!"!DV!9^#V!O9PDV!"!!!! s#r!# s!$ s`i!9^#V!s#r!9^#V!O#!% s!OʞV!V!9^#V!s#rñV!V!9^#V!s#r!O!!9^#V!%s!O! 9N#F!mE!!% s!O!7IsWZYZYO! 9^#V!sP(W! 9^#V! tP2W!"!! 9^#V)))DM!9^#V!9^#V! ^#V! ^)V^#VOO!DM!9^#V$~Wn$&!MQDM!9~#foͮQʻW!9^#VBK!9^#V͊XW!!9^#V`iMQͺQ!9s#rz8X!9^#V!9^#V`iY!9s#rz8X!9^#V!9~#foMQ=QPY!9^#V!=QPYDM`i!9~#foͭQʁX!9^#V`iMQ!9^#V`i͊XʁX`i!9^#VO! 9N#F!!mE!!mE"9PX*9PX!"!!!FZX*|X!!9^#V!9^#V!$ ^!&Z!"mE"|$Y!!$ ^!9~#foO!$ szVY`i!~#fo#s#r!O!9N#F!vY#!9~#fosPY`i#DM+^!9s#r!9^#V! 9PʹY! !9^#VmE!9^#V!9^#VmEoYQ!YQ"*O!"O*OZ*O!4 Z#4*O+"O}Yo&"*O! 9F+N+V+^+~+ngxDZw# 7Z!9^#V#N#F#nx`Zs# UZ!9^#V#~#foxʆZ‹ZʆZ# rZ!ڕZ!}!}!9^#V#~#foxʽZ~ʽZ# ìZ!9~#foZ#Z}!9^#V#^#V#N#FrZ!9^#V#^#V#N#FìZ!9^#V#~#foxʽZ~'[# [ìZ!9^#V#^#V#N#F[!9^#V#n~Z[`[#M[!|!9^#V#n|[#s[xZ[ +~|[`[!9~ ʱ[ ʱ[ ʱ[[!9~A[[[!}!9~a[{ڱ[!!9~0[:[ñ[!9~a[{[ o&!9~A\[\ o&*^#VRj]!9^V~2]~2]~2]~2]~2]~2]2]~2]~2]~2]~ 2]~ 2] 2]nfonfp*-"c">n^#VSGn*"@n^#VSIn*Ao*"|]*"o"o`"nf"6^n f "p!Qut"Eo!ut!p{]Rnf##nfut>2]2~]2]2]2]2]2]2][!{]{;! \"TEeefey˹˱!]o0$y2]O2~]HNy!]_!]6ˡ!{]yݾ8(=ݾ0<ݖOë^*Aoy^*]!{]y^^6 wwwww*]~w*]~0606 0606 ~w#~(4o@~F?w*Voyw^^*f"^!E"f͝`!"f!]#!e:~]0!e"]!e0!f"]"] "]!{]6666û_!{]6q~^~( ~ y ~w~w~w~w~w~(@5~ݾ 5~ݾ -~ݾ %~ݾ 4~8 64 4666*f"_!E"f~^_!"f6.Nq~0q~!6!('~ݾ" ~#ݾ ~$ݾ ~ݾ%(*~ c~w"~w#~w$~w%~tc6 ~^N~=g.lf^ V ~ 6 ~( ~/#~~.6 c~.yv Xcg!"f~)<=(!q !{]~^~ w!*f"b!E"f"b!"fbN xݦ ݶݶ0ݮ G~(ˠxy>6Xc~(=ݾ%bF~( ~  xN x G~~(90~ݦ ݶ0ݮ N yq~( ~ y>Xc( NaSb~>N xݦ ݶ0ݮ G~(ˠxyc!0+} ~N xݦݾ~/Gxݶy!"Enn*>ns#rKn*@ns#r2z 2v! 0+} >H͹c1dw. ( "bͮ`N~0[eu6!~"O͝`N#F$SbN%y0_*]NN xݾy(.͹cv% Xcw.- >F!lf!lfFN0~"RKaypro Single Density(?DKaypro Double Density(?Kaypro Double Sided/DensityDGāDrivetec      meljlkmflm3!}23ò8:x3o&No Disk Selected.8!8^#V6(6P6<66d66#866E8E77!!͈>Invalid No Disk Selected.!}2#3"2!}23! 9^#V"2*2E<5^!q49! 9!}23!}23: o&: o&:Ko& 9=9-}2K!9^#V"2*2E8^#V1"2*2Eg9^!@C9ʞ9!*2]9"2:o&6}23*O+"M"{3*{3|9!*2E~9^#V!!N!{3E! !!{3:Dn Hʹn(:.6n.-n[!2O ~!2[^!! "Bn>2Dn*BnN#"Bn:Dn=2Dny~y2Dny:Dn(!En5 $#5 .'n!In[@n!Gn[>n:.3(.*s-o1-o:]Oxy o&{-ox˿yy2]C]C]a];o/o5o_*_     !{]"!">22!o~A2op!op!ep~ݾ(!pp~A!owp!op!0fp!pp!~8wN ?:= Ny#]]]]]]]]] ^!^+^:^=^B^F^I^`^g^^^^^^^^^^^^^_ ___(_,_9____"`A`K`]``````````a2a5a?aBaZa`acakauaaaaaaaa bb#bPb`bbbbc7c:c=cCcFcyc|ccccccccc d"d5d=dQdYdwd}ddddddddddeeeeeeeeLnRn_ndnnnnnnnnnnnnnnnnnnoo1o7o=oWoZo]o`ocofoioooooooooooooooooooO:o&: o&O: o&OO:o&OOQ"-!"q!"oþq*o#"o*o)Q~#Pr*o)Q^#V^!*9P r*o)Q^#V#^!a9Pr!h*o)Qs#r r!t*o)Qs#r*o)Q^#V)*qtPMr*o)Q^#V)"q÷q*o+"o:o&Oʲr!DMsr`i#DM`iEP~ʲr`iEP^!Oʯr*o#`iEPsnr:o&O&s: o&*-Q"-!"/!DMr`i#DM`iEP~#s`iEP^!O s*o#`iEPsr,s!"/!DM"@G!>0w#w!4~:60+4~u!N#F! x, # =!v"z!w6!u#+w+wz >ZxG}o|g"|! :m c p!"xp ~#c*|!:m ʅ xä SYNCRONIZATION ERROR$ {°~#o}oҼüÅ*zZ# :m m! ~ #* DM! x  w#!N#F! D!_>0w#w1!`4~:60+4*"e@u READY FOR "SYSGEN" OR "SAVE 00 CPM00.COM"$*|  CONSTRUCTING 00k CP/M vers 2.2$>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*4\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<2 !2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ ""͌#>?͌͘ =_.:;<> Oo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 321y_͸2y2ͽ:˜1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x   G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧÆFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: ! Â$$$ SUB"C {2!"E 9" 1A 22!ty)K!G_^#V*C   ~E , &-AGMS  !!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$ :B A2 ! ~6  O͐  : E  B 2 >: b # : y! 4 5~yy 5 6y Ґ ^H @Oy H  H : – ͬ   #H : !  H ù  H  H $O͐ : 2 *C N#  x : 2 p & x ~+é 7 2 H ! >w _ : ! 5ͤ N k ͱ ¦ ͱ xʊ #N x : ! 2 ͤ ! 5™ #wO ~x½  p H    y< < ʑ  : !qMD # 2E > ! ^#V w#P :B O|^#V#"##"##"##"!O *!O *|!6ʝ 6>*w#w*w#w'û *! J * ""!N#F*^#V*~#foyx *{_zW+ * yx # *DM*s#r*s#ryOxG*0MD!!N: E G>O: \ S *C  :q n& ^#V> O^ "*}:*)= ":O:o"*C  *C !ͮ ~2~2ͦ :2ͮ : O:w:w |g}o *# ) :B O! yoxg*:B O }!N#F "*#*s#r^  ~!J  ! J *:o$*C ~i 6i w**{#z r+s{ozg**͕ **  , w͜ ͸ Ͳ ! !N#F$**O !~#:A #~$=2E k͌ : :/GyO>2!q*C " ͡  ʔ*J Ҕ^ :Oyʃ?|x | s-|N-# S:2E !~Яw > T   D ^ 6k -äPYy 5*{zBK5ڋ>*C w~#+w#w+ɯ2E 22 i  ^ *C :~w~͔͔# #  w ~>2!E 5T *C !"C  "C !w# F! w͌ x 2͢ *C  ~<wʃG:!ʎì 4~ʶ ¬:<ʶ$ ʶïZͻ   x >2>2ͻ :!Z2:E w ̈́ ͊ Ͳ  >2>2T *C G ͻ : w ̈́ n> 2;O ^ DM;}H> "*C  ::dd slO s#r:E ͊ :==»y==»*Ww# *" ͸ *:G#š" ͸ :!w4!i w: Z!E ~=26 2*C !!~~#~O~G#n,-.‹! w! yG!x͢.:E <ʄ! q!pQ:E <. ʄ$.:E <ʄ i 6}2E x N! ~态O>G~G!~G} *C !r#r#r ^ ͥ_y#x#{s+p+q-*C  ͥ!!q#p#w*:B O Y G }*MD "ã:!B w!>2*C ~=2u:B 2~2wE:A *C w>" !""2B !" !r QQQâ~?ͦ ~?r Q *"C Q- Q͜QüQr Q$Q*):B  " *)*)Q;*"E :;:A  2A QÓQÜQ*C }/_|/*W}_*"}o|g":ʑ*C 6:ʑw:2E* *E }DQ>2ê:Û50+ÍÑÕÙÝáëPý0123456789-, ., D D|͉2:32!JF#N#~ :G:H KAYPRO 60K CP/M Version 2.2H !"t>!2"!2"!"!"!T":OyO:|͍͉͑ Warm Boot 1͕Cx͝,͙͡ *xDM"x͝2 *t+"t|:q :.3.*>͛(:q /:.6.-!5O ~!ay''O "o>2q*oN#"o:q=2qy~y2qy.':.9.E.6.9:.9c.E@.9:.B.<P y˟O>y>O#>#>J!.4. 0.,.(.$. !"t.!"t.:4(.!sv1&{v˿~#O  8 >1͌0͌>>Ì 2r2s2<:r(!2s:s_ 2:r_ :<:s_ :r_ $@B B HH II$@DI ABI$"$H$H@$$I! H*  $H@@A I $D!!$I"BI"I"@$BIIH$$$$BBI$@BI!"$$A DI$@ A$@$$@H! "!$$" @B$!!!DH$$"H @@BHH  !$$A"D@ "A" "BHA " !$ D B I $ !$$ H@BD D$ HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$! $I$I @BI HBID B@  @$$@!!@@ $ HB"F32CD08CDE977 :1008600001CA6D0711CD08CD0E02C38608CDEA047A :10087000C38608CD6605C30903018207CDA701C35E :10088000860846494C452045584953545300CDF8F5 :1008900004FE10D209035F3ACE08FE20CA0903CD38 :1008A0001502C38908CDF5023ACE08FE20C2C4075E :1008B0003AF008B7CA89083D32EF08CD2902CDBD0C :1008C00001C3890811D6081AFE20C20903D5CD54E8 :1008D00005D1218308CD4005CDD001CA6B08210088 :1008E00001E5EBCDD80211CD08CDF901C20108E137 :1008F000118000191100017D937C9AD27108C3E127 :1009000007E13DC27108CD6605CD5E0321F008E523 :100910007E32CD083E10CD6003E17E32DD08AF327D :10092000ED08115C0021CD080621CD42052108010A :100930007EB7CA3E08FE20CA3E0823C33008060020 :100940001181007E12B7CA4F08042313C3430878ED :10095000328000CD9801CDD502CD1A02CD000131F3 :10096000AB08CD2902CDBD01C38204CD6605C30904 :1009700003017A08CDA701C38608424144204C4FA9 :10098000414400434F4DCD6605CD5E033ACE08D6B7 :100990002021F008B6C20903C|Opening file--- : . $!4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6MUFBAR 7|Opening fileMUFBAR ??? . $@!4w_#~ ʸ A:4 MUlti-Floppy Backup And Restore System MUFBAR-80 Backup Version 2.12 $ Copyright (c) 1982 by Total Systems, Inc. $Type Source File Specification->$Type an identifing comment (Date, Time, etc.) Comment--> $Insert next disk and type the destination drive name (A - P) $Closing file---$DRIVE ERROR. USE ONLY DRIVES A THROUGH P$Creating file--$Disk full Deleting file--$READ ERROR... BACKUP ABORTED$SOURCE AND DESTINATION CANNOT BE ON THE SAME DRIVE$TOO MANY SOURCE FILES. YOU MAY BACK-UP A MAXIMUM OF 255 FILES AT ONCE.$SOURCE FILE(S) NOT FOUND.$Disk contains MUFBAR files, remove them? $Removed MUFBAR.???$Type Y to remove all MUFBAR.??? files, or type N to insert a different disk.$End of Backup. All files closed.$ERROR IN SOURCE NAME$Directory full$1} ͥ:œ͖:Å7g m *Ϳ g 222go"!MB>$ m !=FMH 2m !" Xß:!=)|/g}/o"9>2 !A H !" 22:*#"!~+~~!  m g 0 <ʍ!5 H *")ͻ m g 0 Wmg Ç:! "'2;:G*'r w >G2*'"'!;4©:Q EQ :<2͇: :! "':;   <!=Fx#*P =+ ~ P >:# <@2++ +~2@##~.R  ͦ P # . ~.R 7# a  \ ~  ͦ P # c P *#~* >? * ~*¤ >? ŷ!  ʻ #® 7ø | } _w# r <>.,;:=[]* >ͣÂ>ͣ>ͣͻ]! Please press any key to continue!;_ >ͣͻ2>ͣ>ͣ͘ MUF-DESCRIPTION The MUFBAR (Multi-Floppy Backup and Restore) system consists of a set of disk utilities which provide a method of making backup copies of files which reside on hard disks. Each sub-file created by MUFBACK contains a header record which uniquely describes it. MUFBAR consists of three programs: 1) MUFBACK: The backup program which will split a file on hard disk, which may be up to 8 MB, into smaller files which will easily fit on a number of floppy disks. 2) MUFREST: The restore program may be used to merge the files from several floppy disks into the original large file on the hard disk. 3) MUFLOOK: The lookup utility allows the user to look at information on the header records. >ͣ0$>ͣ1͘ The following are examples of how you may respond to requests for information while in MUFBAR. Upon calling up the Backup program you will receive the following message: MUlti-Floppy Backup and Restore System MUFBAR Backup Version x.y zzzz Copyright (C) 1982 by Total Systems, Inc Type an identifying comment (Date, Time, etc.) Comment--> >ͣG$>ͣH͘ You should type a one line (64 character max.) comment which will uniquely identify this backup. This comment will be written into each header record. EXAMPLE: Type an identifying comment (Date, Time, etc) Comment--> Inventory files Nov. 13, 1983, 5:30 p.m. The next message on the screen will be: Type Source File Specification--> >ͣe$>ͣf͘ You should respond with the name of the source file or files (i.e. the large files which you want to backup). If you make an error or the file is not found, the program will terminate. EXAMPLE: Type Source File Specification-->FILE?.DAT The next message to appear will be: Opening file-- followed by: Insert next disk and type the destination drive name (A -P) >ͣ$>ͣ͘ Here you will type in the name of the first file in your specification. After opening the file, you will insert a formatted floppy disk into the 'C' drive and type the letter for that drive. EXAMPLE: Opening file--FILEA.DAT Insert next disk and type the destination drive name (A -P)C The MUFBACK program creates the destination files automatically with the names MUFBAR.001, MUFBAR.002, MUFBAR.003...etc. A new MUFBAR file is opened after each source file is read or whenever the floppy disk becomes full. For further information please consult your MUFBAR USERS MANUAL. >ͣ$>ͣ>ͣCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  " 2!3:_!6:Zʐ !:O>ͺ * ~ʦ #Ø #~#y2 ~ 2 #~ ! 5 : y2Z"2]!]3!^"[!]`:!*[~#.,-$*^+/&!\K#~:O~#N# 6~s#i6#s^"#:ʘ9:**2~2#~2#:!:O>[j>]> :=2>2y:/2^"#9!,ͣ: WARNING ONL:Oͣ![ͣ:!aͣj ERRO IN LINE*|0|0}0}0!>w~!4#ãy2 :O!? ~> <O> > 2>́^#V>!!2:2:0"zgOFx~yQ#6~#w~~ Q#6~O~ڄy #6#y*"|˜}˜qi!y2*ͯ~FO #6 w÷z  !? 4 6 !` 4 6y2=>́2>^#V!5!>>:=O:>ʟ!A #~#^#VN#!A «~#¸"__{s+=r+=s+=!Jh> 1!D !7{%BAD CHANNEL NUMBEÒJJJJJOÉ8AJJJJJJJJ_"|«*:!½ʲ2!ç!Ó:!"|*7>|2!2!*6|! "6__7:l\!{>2:‹\!{_<2!~ɀ&INPUT FILE REAtÚOpening file---" : . "$!4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !MUFBAR !ͼ !)ͼ MUFBAR ???!ͼ :5͡ :6@:6͡ :7ÚOpening file---" : . "$ $ MUlti-Floppy Backup And Restore System MUFBAR-80 Lookup Version 1.11 $ Copyright (c) 1982 by Total Systems, Inc.$ Insert disk containing MUFBAR.nnn files and type the drive name (A - P) $DRIVE ERROR. USE ONLY DRIVES A THROUGH P$File name $Original Backup specification $ID Comment "$"$Original file name $This is file #$ out of $ in this backup.$Original size of file $This MUFBAR file contains records Starting with record number $Through record number $ hex.$Press to continue...$Last file in this backup. Exiting LOOK$This disk does not contain $There are no MUFBAR files on this disk$1a227e*;Ͱ <W!ͤ:ʹ:=2ù>2%͹!":=:2 !ͤ-!=ͤLeJeYͰ[!%ͤpe:e:Ͱ***+:G:‰**|‰}ʛej4eù0Ͱe~@#͢͢Ͱe; ðex!~Ͱ#~A<22 *#"!~\+~\~\!! \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7jOpening file--- MUFBAR $@!4w_#~ ʸ A:4~~ MUlti-Floppy Backup And Restore System MUFBAR-80 Restore Version 2.11 $ Copyright (c) 1982 by Total Systems, Inc. $Type the destination drive name (A - P) $Insert next source disk and type drive name (A - P) $Closing file---$DRIVE ERROR. USE ONLY DRIVES A THROUGH P$Removed current file. Restoring new---$Creating file--$Ignoring file--$ERROR CANNOT REMOVE FILE. RESTORE ABORTED$ already exists. Remove it? (Y/N) $Please answer Y or N only.$SOURCE AND DESTINATION CANNOT BE ON THE SAME DRIVE$ cannot be found on this disk.$End of Restore. All files closed.$Original backup specification $ID Comment "$"$ERROR IN HEADER RECORD. RESTORE ABORTED$CANNOT OPEN OUTPUT FILE, RESTORE ABORTED$ERROR IN WRITING OUTPUT FILE. RESTORE ABORTED$1 ͢c:–͉:qL *, !>LE 22@2go"<":!) ʹE ͉<M d!C~#~Y8N/2@.<MÙ<Ù:*#"2!!~G+~G~G!$E ͉ͤ<¼|s!"9(!~<L@#:2!@LôL :!"&2A:G*&W**P>ͽc>!5J2G2!"<l*&"&*<#"<!A4ͽ2@:c!"&:A *"2G:*>%Id!C~?#~2A?<?o7Ɛ'@'|}B V!CFʅ#~ao{o_wo~@#ʹʹ͉~#´͉_  **<P ! *9#"97:@ "*#"|3 }< G_w#E c!"&:A *"2G:*>%Id!C~?#~2A?<?o7Ɛ'@'|}B V!CFʅ#~ao{o_wo~@#ʹʹ͉~#´͉_  **<P !*>͵ >͵ >͵ >͵ >͵ >͵ >͵ >͵ >͵ >͵ >͵ ">͵ '>͵ 5!">͵ 7Ç*!> >͵ 9>͵ @ë*>!>͵ A*͸>!>͵ C>͵ D*">͵ F>͵ G*>!>͵ H*>!>͵ I+*)>!>͵ PC!*A>!>͵ Q[$*Y>!>͵ Rs'*q>!>͵ T>͵ U*">͵ Wß*͔ͫ>!>͵ Xý *͔ͫ>!>͵ Y *͔ͫ>!>͵ `>͵ bÓ !> >͵ c>͵ d*>!>͵ e>͵ e>*ͭ*****"`""""z**x 0>͵ g>͵ i !> >͵ p>͵ q*>!>͵ r>*ͭ*****""""">͵ s>͵ uÕ !> >͵ v>͵ w*>!>͵ x>*ͭ*****"x"""">͵ y>͵  !> >͵ >͵ *>!>͵ >*ͭ*****""""">͵ >͵ t>͵ >͵ >*ͭ*****"W"""">͵ >͵ >͵ >͵ >*ͭ*****""""">͵ >͵ >͵ ͟>͵ *>͵ *͝>͵ *>͵ *͟>͵  >͵ @*>!͍ R*P͔ͫ >>͵ p*n!͍  !͔ >>͵ Ý *!͍ ï !͔ >>͵  *!͍  !͔ >>͵  *!͍  !͔ >>͵ $ *"!͍ 6 !4͔ >>͵ Q *O!͍ c !a͔ >>͵ ~*|!͍ Ð !͔ >>͵ ~>͵ >͵ !ü*͝>͵ " >͵ %!"Copyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "!6 &:o!>z/W{/_">>!}o|gzz>7z{! !|>"[ "' B ") )*' 2 *) "+ = % ^#V"5 8 ~#I :: *= #=? m N#F#0 =_ |{ }{ !:; O:< Š 0 "- :: = s#r#=ʱ q#p#0 =¢ :< ¾ y2; :; O:<  0 "/ *8 "1 _ :: o&)E*5 8 w# :<  !8 ]  */ *8 6#z *+ ##"+ U ^#V++^#V#"- ^#V"1 "/ ++r+s_ *+ ##"+ *) "+ U *- */ |>q }>v /27 }o|g"3 DM:7 ¼ *  " |!92 7?{_zW! 5ʇ yOxG#yO#xG_ * DM_ BK^"#: ʪ K : ** 2" ~2#~2#:" !# :O>[ͨ| >]ͨ> ͨ:$ =2$ >2$ y  :# /2#  ^"#K !> ͵ : WARNING ONL:O ͵ !m ͵ :!s ͵ | ERRO IN LINE*|0ͨ|0ͨ}0ͨ}0ͨ!>w~ ͨ!4#õ ͨ* s#r#" * +V+^" O> ͨ> ͨ2"pz*OFxAy#6A#wAA #6AO~G< #6#y*p"n|[}[q,!y2*nrAFO #6 wzzʓ  ! 4 6!# 4 6y2>D2^#V!!>:O:b!A P{#~#^#VN#!A n{~#{"^#=V#=µ**"__{s+=r+=s+=!.L> !D !Í %BAD CHANNEL NUMBEv..êò...3m%........_|*:¡ʖ2Ë!w:|*7>|22*|! "__7:~P\!ʍ >2~:}o\! _<2}!~ɀ&INPUT FILE REAtL> !D !Í %BAD CHANNEL NUMBEv..êò...3m%........_|*:¡ʖ2Ë!w:|*7>|22 = (!*+}   Paused: Press any key to continue: $MUFLOOK COM 4MUFREST COM5NOMENU COM&67PAUSE $$$ ͑!"2! >"2[*< ͑!"2! >"2[*< ͂ mj DISK WRITE FAULT $:Oͫ:O͹ͽ>ӇͤӄӅ>pӇۇ *<}ӄ|ӅyӃ:ӆͽۄӄ*>0Ӈͤ PUTOVL VER 1.4 $-TÊÑ*1zzzzzzzzz|B7B6=8 System Status 01C6>|B7B6=8 System Status 02C6>ɷ~#OE>2k>2k:g _:i WzdGz?W{_>8( 2m{_*bBKPY|W]Sn| >2l:m3[n2d(:k:d[nʹ:l/7:k:dʹ:l/$[n #:k( :m/G:l:lG:m[n͆:k( :mG:l:m/G:lzW͒zW͒ͤ >yxA Q A Y:_͒̀!|g{ _z W0D2k>2k[iSi2r[gSg2sW:r_:iW:j>8>2p:g_:h>8>2q:rO:sDM!8(. :h:q_ 0:pW :j:pW 0:q_ :j:pW:q_ ͑!"2! >"2[*< ͑!"2! >"2[*< ͂ mj DISK WRITE FAULT $:Oͫ:O͹ͽ>ӇͤӄӅ>pӇۇ *<}ӄ|ӅyӃ:ӆͽۄӄ*>0Ӈͤ PUTSYS VER 1.4H $4\XMASMENU COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ү2 Ӈ!ٶ2:2a{_:ٷʖ:ٷ>Ľʖ:=2–!B!6#5ʖ:ٷĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "Է"͌#>?͌͘ =_.:;<> Oԅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3կ21y_͸2y2ͽ:ҷ˜1͘A͌>>͌92^ :ٷ¥.!_~#fow]׭؎إ!v"!çREAD ERRORçNO FILE^:ٷ ! ~ 3#0 Wx x Ԁ Ԃ G ~ # 3x~#B!Y~ɯ2:ٷ=!پý:ٷ=!پ:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ׯw4!Y~ʆ͌†t=ʆf ^ T ׯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yظpsp2mÆÆf ͧÆFILE EXISTS _: É: :ٷʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2ٯ2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ٶ Â$$$ SUBڙڥګڱ"C{2!"E9"1Aݯ22!ty)K!G_^#V*Cܐ~E ,&-AGMSݛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ݷE B 2>: ݷb# : ݷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ݾ Hù H H $O͐: 2 *CN# x: 2 p&x~+é7ۯ2 H! >w_: ! ݾ5ͤNkͱ¦ͱxʊ#Nx: ݷ! ݖ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \޷Sހ*C :qn& ^#V>O^"*}:*)=":O:硵o"*C *C!ͮ~2~2ͦ:2ͮ:ޯO:w:w |g}o*篆# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ߾,w͜͸Ͳ!!N#F$**O!~#:Aݾ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x߯2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻޯx>2>2ͻ:!Z2:Eݷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eݷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=26ޯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bݾw!>2*C~=2u:B2~2wE:A*Cݶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2ê:Û50+ÍÑÕÙÝáëPý0123456789-, ., D D|͉2:32!JF#N#~ :G:H KAYPRO 60K CP/M Version 2.2H !"t>!2"!2"!"!"!T":OyO:|͍͉͑ Warm Boot 1͕Cx͝,͙͡ *xDM"x͝2 *t+"t|:q :.3.*>͛(:q /:.6.-!5O ~!ay''O "o>2q*oN#"o:q=2qy~y2qy.':.9.E.6.9:.9c.E@.9:.B.

y>O#>#>J!.4. 0.,.(.$. !"t.!"t.:4(.!sv1&{v˿~#O  8 >1͌0͌>>Ì 2r2s2<:r(!2s:s_ 2:r_ :<:s_ :r_ {\>2a>2`!"b\*b~#"b Qͼb_:<2 ̴ y:`=2`9!:a<2a>2aw ʐ  >2 :<2¼> d ҝ<2 +{22=+?pU :=+>!=w#"?=:<ĩ,+:,= *F=+qN1,4O File not found $ Press return to continue $ $?pU :=+>!=w#"?=:<ĩ,+:,= *F=+qN1,4O File not found $ Press rۆӆSafety version 1.3 >ӆ>Ӈ>Ӈ1yӄxӅ>Ӈ>ӆ=+ The heads have been placed over the safety zone and the hard disk controller has been de-selected. It is now safe for you to turn off your machineۇ ۇ ~#_the hard disk controller has been de-selected. It is now safe for you to turn off3 Copyright (c) 1979, Digital Research????????????CON:RDR:PUN:LST:DEV:VAL:USR:DSK:TTY:CRT:BAT:UC1:TTY:PTR:UR1:UR2:TTY:PTP:UP1:UP2:TTY:CRT:LPT:UL1:R/OR/WSYSDIRR/O R/W SYS DIR ** Aborted **Active User :Active Files: Drive Characteristics65536: 128 Byte Record CapacityKilobyte Drive Capacity32 Byte Directory EntriesChecked Directory EntriesRecords/ ExtentRecords/ BlockSectors/ TrackReserved Tracks is Temp R/O Disk: d:=R/OSet Indicator: d:filename.typ $R/O $R/W $SYS $DIRDisk Status : DSK: d:DSK:User Status : USR:Iobyte Assign: =Bad DelimiterInvalid AssignmentBad Delimiter: Bytes Remaining On R/, Space: Invalid File Indicator** Too Many Files **File Not Found Size Recs Bytes Ext Acc65536 set to R/O Invalid Disk AssignmentWrong CP/M Version (Requires 2.0)!9"2!T OË!]6:\:] Hr3 Ë:\ʀË͇ /ҋͺ *2!"q*"&L ͐ ͐ ͐!$p+q*#~*#N͐*##"#÷!&p+q͠*%DMͱ O O!(q*(&L!*p+q*)O2'!,p+q*+O2'O2'O!.p+q*-LRRLR\LR" O!/q*/& L!1p+q*0#L~*##N!ͽ͞"T!Vq*VMͳ!Xp+q!W* >Wr#MͲ!_p+q!`6>!`6*`&*^*`&Y />!`4 >*]& ~ O!]49!a6:a*]& ~2bO>z*bM >!b/~,H~:H~*H~.H~>H~<H~=H*]& 6!]4T!]4!cq*a&Y :cw!a4!gr+s+p+q!h6>fr*d*f!is*d́"dPY! "f>!h#~Haͫo!h6:i0O͐!mr+s+p+q*lTZs#r*lڶ*l+s#r*jN#F+q#pÌ!nq!"o"q}2uo&"s* s:n*sDM2u:uqos*s"s*o͊O !v6>!vQ*v&w 6`i+46)A*:'ʓ:'O!) ~2vʍ:vO!w 6,]!v6>!v*v&w ~һ*vM !v4˜8AO͐:͐ͱ*##N!ͽ"* N#F*͠">!H% - *DM ͱͷDM  ͱ* N#F 9ͱ * ^#V))DM Tͱ* ~ *} *M!+s#r#4 !s+p+q!6!66:!ڄ !6!6>!r *&**&Y i !6!4+4A :} :!4- >!699 2¨ :!4: :2!6+6>! :O!9 DMi ͱ:!O!Y DMi :2:2͠!4 F :® )!6>!ګ ͠:O!9 DMi 8ͱ!6> !ڤ Å :2k ä  ͐:!O!Y DMi w !4C F :¿ >F : F :=229:Y= ;>9*&Y DM =2 I>!6:=28 :2:2 :!!29:Y T >:Y,e \>Ì !p+q*~:ʉ *N͐*#"o :͐!p+q!'"!6> **{2*́"PY! ">!+~H !6:0O͐à k͐͠Q" 8AO͐jͱͷDM͏ m  Z"l"!6>ʥ *}҆ *M ͱ*}x O͐} W͐ͱ !+s#r!+s#r#4D ͠:\ʹ :\=Oͳͩ !6!)6l :) :)=2) :] & !"}2\!h6?!j6?\:'C:'ƀo&")!)6!"):)/)HҘ]!)6> !)ڎ*)&*)*)&*) y!)6 Ä:) 2):)<2)M*)#")/:)ҩ*)+")`*")#"]!*)!/H!")!"]*)) *)s#r!)6> !).*)&*)*)&*) w:)<2)*)) >w#6*)) w#6*)!) w#6*)%) w#6*)) N#F*)) q#p*)%) *) ~e *) * ~o&͞ *)%) q#p!)6* >!)6!)6>!)=:)!)w=*)&*)~2):)*)& *):)2):):*)!) *)) s, >X\:)“>!d!")>!)d!")!")*++!)a*)) ^#V")]*)")*)) ^#V")]!)6> !)T*)&*)~2)*)&*)~2)O;*)) ^#V")*)) *)) N#Fq#p*)) *)s#r*)#")!)6 J:)!)J!)6 :)<2)*)")҈q:tw͠ͱ!"))ҍ*)) ^#V")]͠.*)DM\ -°!\6:\ͣ:ͱ*}DM'ͫ*)%) N#F'ͫ*)!) N#F'k͐ͫ*)) N#FͫR͐/͐ *) ~IO͐NW͐ͫ8AO͐:͐ *) ~2)t(͐:)҃)͐*)#")Ã& \!"))\Ұ*)")]͠*)M! ^#V *) >*) w *) >*) w *) >*) w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#W-:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#W copyright(c) 1977, digital research $Error On Line $SUBNo 'SUB' File Present$Disk Write Error$Command Buffer Overflow$Command Too Long$Parameter Error$Invalid Control Character$Directory Full$Cannot Close, Read/Only?$!9"!͇͊!p+q* ͊!p+q*͍2!p+q*͍2!p+q*͊!p+q*͍!p+q*͍!p+q*͍2!s+p+q+p+q:=2ʦ** w*#"*#"!p+q(+*DM*p*& 6:ep\:=ͧ!t6>!t%\= >!t6:t<2t=O! ~2u b:<2O>9b!60+~9b!60+4:uat:u_2u:uMʉSͧ!v6!"v!|6:|Ҁ!x6 2}:} Hk:} h:}$6 2}$*}M3:}02}O> ͧ3!z6ͭ:}"!}5́ͭ́3*yM"h:}^a A2}O>Vͧ^:}>*z& ~ !z4í!{q*v#"v͙dͧ*vv :{w:x<2xO>}|ͧ-!6]:ͧz2~e:~2O! 6*~& 6$>!~_z*~& w!~5Bx:yͧ*v+"vv ~_{ozg001 $$$$ SUB6ͭ:}"!}5́ͭ́3*yM"h:}^a A2}O>Vͧ^:}>*z& ~ !z4í!{q*v#"v͙dͧ*vv :{w:x<2xO>}|ͧ*@~2>wd:G!(  (_daG( _l(Ou>W(y  KAYPRO Terminal Emulator This program allows your Kaypro computer to imitate a dumb terminal. What you type at the keyboard is sent through the RS-232 connector to the modem (or otherperipheral) and data from the modem is put on this video display. Technically, this program is like a Lear-Siegler ADM-3A terminal and is set for full-duplex, no parity check and 8 bits per character. Press either to start using the terminal or to return to CPM:.$ j Press the Numeric Pads Hyphen Key when you are done using TERM.COM and the program will exit to CP/M. $*@:w De keyboard is sent through the RS-232 connector to the modem (or otherperipheral) and data from the modem is put on this video display. Technically, this program is like a Lear-Siegler ADM-3A terminal and is set for full-duplex, no parity check and 8 bitsW Extended Submit Vers 2.0Xsub Already Present$Requires CP/M Version 2.0 or later$:y*###ƒ# yk   җ 4!~=ŐW!xʵ ~#èbx {~#o}où.xsubb!np+q*m2_!pp+q*o ]xsub*"-!/"*"+!""1 M*!"́!"* (xsub active)$|*y ʥ*"*7***x*́͋<͛ :%*=26͋!7^#6 #6 #6$ 8*7~O #w# !6:6=2% ͋*-"*$$$ SUBq:(=2(N *$*& w*$#"$*&#"&' !"N*M^7 !)6:!)ھ *N*DM͆ 2*ʭ :*ʗ ͯ *N"P*6:2)÷ *N"N!) $@BA$! A "!$"" ]xsub*"-!/"*"+!""1 M*!"́!"* (xsub active)$|*y ʥ*"*7***x*́͋<͛ :%*=26͋!7^#6 #6 #6$ 8*7~O #w# !6:6=##*> > > > > > > > > > > "> '> 5!"> 7Ç*!>D > 9> @ë*>!> A*>!> C> D*"> F> G*>!> H*>!> I+*)>!> PC!*A>!> Q[$*Y>!> Rs'*q>!> T> U*"> Wß*>!> Xý *>!> Y *>!> `> bÓ !> > c> d*>!> e> e>** ****"`""""z**x; 0> g> i !> > p> q*>!> r>** ****"""""> s> uÕ !> > v> w*>!> x>** ****"x""""> y>  !> > > *>!> >** * * **"""" " > > t> > >** ****"W""""> > > > >** **** "" """> > > ͟> *> *͝> *> *͟>  > @*>!ͽ R*P >> p*n!ͽ ÂM! >> Ý *!ͽ ïA! >>  *!ͽ S! >>  *!ͽ M! >> $ *"!ͽ 6E!4 >> Q *O!ͽ cN!a >> ~*|!ͽ ÐU! >> ë*!ͽ ý* >> ~> !> "*͝> # > &!""Copyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "!6&&:o!>z/W{/_"  > >/ !}o|gz' z>$ 7z. {!9 !|>" "W B "Y )*W b *Y "[ m U ^#V"e h ~#y :j *m #=o ʝ N#F#` = |« }« !:k O:l º ` "] :j m s#r#= q#p#` = :l  y2k :k O:l  ` "_ *h "a ͏ :j o&)E*e h w# :l 7 !h ͍ G *_ *h 6#z> *[ ##"[ $ Å ^#V++^#V#"] ^#V"a "_ ++r+s͏ *[ ##"[ $ *Y "[ $ Å *] *_ |>¡ }>Ҧ /2g }o|g"c DM:g *  " |!92 7?{_zW! 5ʷ yOxG#yO#xGҏ * DMÏ BK^"#: { :** 2R ~2#~2#:R !S ) :O>[ͬ >]> :T =2T ) >2T y)D :S /2S )G ^"#{ !n : WARNING ONL:O ! :! ͬ ERRO IN LINE*|0|0}0}0!>w~ !4# * s#r#" * +V+^" O> > 2"zZOFxqyD#6q#wqq D#6qO~wl #6#y*"|‹}‹q\!y2*͢qFO #6 wêz  !2 4 6!S 4 6y20>t/21^#V!(!1>:0O:1ʒ!A €#~#^#VN#!A ž~#«"&^#=V#=*&*&"&__{s+=%r+=%s+=!^2|> E!D !Ký %BAD CHANNEL NUMBEæ^^^^^cÝLU^^^^^^^^_6|¿*:525û!ç:5 6|* 7>|'25 25 *J|! "J__7:€\!ʽ >2:Ÿ\!½ _<2!~ɀ&INPUT FILE REAtLU^^^^^^^^_6|¿*:525û!ç:5 6|õ9 !&+<ĩ,+:,= ##d!s!9^#V!9^#VͲʇñ! !! !!s!͎RCHECK ver.#1.1No File name specified!d!!9s#r!!9s#r !9~#fo#s#r+!9^#V!9~#foʫ!9^#V)!9~#fo^#V~ʨ!9^#V! Ͳ~!9^#V)!9~#fo^#V!9~#fo#s#r+)<s#rè! !! !!s!͎!!9^#V)<s#r!To many files to search for!!!d!!9s#r!!9s#r!9~#fo#s#r+!9^#V)<~#ʙ!!9^#V)<^#V"P|–! !! !!s!s!9^#V)<^#V!s!srWrong reload diskette in floppy drive, insert %s Press return when ready!d!!!9sz !9^;! ! J!!J  (ͩ*>||g}o|/g}/o^#V#DM!99`ic|z2L:Ls}!}}­|ʼ!}¼|ʭ!}|}|?>o&zo&|}|>o&|o&z2L:Ls||/g}/o#z!/W{/_!DM!>2K))4#}o|gL :K=2K,}:K=2K,}DM!>))k =c}}/o|/g#}|ʼí|g}o{_ʴ|,|7g}oš{_ʴ)¯}}o|gN#F# N#F#z{##^#VBK^#Vz#y####x#~#fo}|>?o&}|>o&{_ʴ|g}o,|g}o~# xA!9M~#\!i|F=d!"q!9!9^#V!pd! 9^#V"q!9!9^#V!pd*q!9^#V; d! DM`i~`i DM !!9^#V#^!+ͣ!9^#V^|5!8!!9^#VP! s!ͣY! |j!m!ͅ!9^#VP! s!ͣʔ! |ʥ!è!ͅ!9^#VP! s!ͣ!!$>$! ^͜ !9 !"!r'w\a!! s!! s#r!`is#r! s#r! s#r`id! 9N#F`i~r !`i#DM+^; ͣo !H !! ; d! 9N#F`i~ʺ !9^#V`i#DM+^; ͣʷ !Ì !d! 9N#F!9^#V!PYSDM`i ͣ ! q ͣ !q d!#!9^#Vq d! 9N#F!9^#Vq I !!9^#V`i$q n !`id!9N#F! ^#V`i^#V ʦ ! 9^#V!Sͧ ! 9^#V`i~#fo#s#r+s!Sd!!9^#Vͧ d! DM`i `i DM d!9N#F!!9s#r`i~ʕ ! ^!SL !ͧ !9s#r! ^ͳ!9~#foͅs#r! ^!Sʕ *! ^#Vs#r! ^#V"!! s!9^#Vd! 9N#F! ^!S ! ^#V`i^#Vͷ! ^#V! ^ͣ !`in&ͅs!!9^#V!ͣJ !`in&Ss!`is#r! s#r!`i~#[ ! ^#V!ͣʔ !!9! ^ͣ !9^#V! ^#V`is#r! ^#V! ^#V! s#r!`in&ͅs!9^#V`i~#fo#s#r+s!Sd!9N#F! ^#V!ͣ `i! s#r*|9 *!9s#r*^#V"` ! ^#V͈ !9s#rz` !! s#r !`in&ͅs!9^#V! s#rd* |£ !͟" " * DM! 9^#V* " PY `i" !* * * * ͷS! 9s#r͟ʿ ! 9^#V* " `iw+"@"0123456789abcdefd! 9^#V"!9!9^#V!Rp!*sd! 9^#V*#"+s!Sd!N9N#F!P9^#V#+^zʂ%ͣw!!9s!!D9s#r! !B9s#r!!@9s#rn&-ͣ!!D9s#r#+^0ͣ!0!B9s#r!!>9s#r#+^!0_9_!>9^#V! [!>9s#r.ͣʺ!!@9s#r#+^!0ʺ9ʺ!@9^#V! [!@9s#rvlͣ#+^!:9!T9~#fos#r$+$Ùdͣ,!:9!T9~#fo##s#r++^#V͈'+$ÙeͣPfͣPgͣv!9!T9~#fos#rͣ'ͣ'Ù!:9!T9~#fo##s#r++^#Vz'+$C!9!!>9$>$!9!49s#rj!:9$$P'!9! !>9$y$>$̓!9!49s#r!-!69~#fo+s#rs;!9! !>9$>$̓!9!49s#rj!9! !>9$>$!9!49s#rj!9!!>9$>$!9!49s#rj!:9$͛'!49s#r #!89s#rÂeͣʾ!!!B9^#V!ͣ!!B9^#V!9! 9ͣ'ͣ'ͣ'!9! 9!49s#r #!89s#r!!@9s#rÂ!:9$͛'!9!69s#rsjodu>xdsefc -!9!49~#foͷ!89s#r!89^#V!@9~#foʥ!@9^#V!89s#r!D9~#!>9~#fo+s#r#!89~#fo!B9^#V`icï!!69s#r!69~#fo#s#r!49^#V~=!69^#V!@9~#fo=!49~#fo#s#r+^`ic!D9~#t!>9~#fo+s#r#!89~#fot! `icG`icÆd!9N#F!9^#V`i͈'>$!9$V$%͛'^+s! 9`i͈'j$$%+$͉$™d!9N#F!9^#V! 9$$P'ʛ! 9$͛'S! 9!9$${%$%+$`i͍͈'>$!9$V$%͛')^+s! 9`i͍͈'j$$%+$!9$>$̓!9ɤ'*̈́üLL*MDM*Oo&Lo&L*M*+++*ODM*Q!9N#F#^#Vkb6#> 6 #=>6#=" : >U Aڏ[F@Raڏ{ҏ`w# .pʉX͖w#Y{o|g ʉ͖w#z!!|a{ !9^#V*!9}|*"|!P5OAOMOYOeOKQqOO}OOPOOOR#PhP9ITm QAQBQCQDQEQHQLQMbSPcPSWQIQR d!!!͆"!:o&Ss!i"!DM!"*V`i^! ͣ`i^! ͣ`i#DM`i^zV`i^!>ͣ!(`i^!<ͣ!`i#DM^! ͣG`i^! ͣJ(`i`i#DM~ʇ`i^! ͣu`i^! ͣʄ!`i#DM+sÇOͳ|ʦ!0ô!Pͣ!j!"!f#!!f#! #!!! ͎S`i*#"+)s#r`i#DM~S`i^! ͣA`i^! ͣP!`i#DM+sS!*V͎Can't open file for redirection: d ! 9~#ʨ!`"ͼA:$$$.SUBd!"!d!con:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:d!9^#V!!9^#VPd!!!9s#rÂ!9~#fo#s#r!9^#V! ʤnfͣ®i!"!!DMþ`iDM`i~#!9^#V`i^#V"ö! ^#V!9^#V!S#!9s#r!9^#V!S&n&u|&!"!!9^#V!SMn&u|M!"!! ^#Vsrn&un&u!ut!9^#V!9^#V!9^#Vnfc! 9!ʪ!!9^#Vd! 9^#V!! 9^#V! !"!! 9^#V)))DM! ^#V! ^#Vc! 9s#r!! s! s! s`is!! s#r! 9^#Vd!DMN`i&DM`ii!% ^zsF!"!!9^#Vʎ!"!!9^#V!Sʨ!!ͣ!9^#V!S!ͣ!"! !9^#V!Sͣ !"!!!! s#r!# s!$ s`i!9^#V!s#r!9^#V!S#!% s!Se!!9^#V!s#rx!|!9^#V!s#r!d!!9^#V!%s!d! 9N#F!!!% s!d!ɶ:! ! d! 9^#V!! 9^#V! !"!! 9^#V)))DM!9^#V!9^#V! ^#V! ^)^#Vcd!DM!9^#V$~ʚn$&!ͷDM!9~#foʂ!9^#VBK!9^#VQʚ!!9^#V`iͷ$!9s#rz!9^#V!9^#V`i"!9s#rz!9^#V!9~#foͷͧPY!9^#V!ͧPYDM`i!9~#foH!9^#V`iͷ!9^#V`iQH`i!9^#Vd! 9N#F!!!!"ͣŒ*ͣʧ!"!!!ͦ"ó*|ʳ!!9^#V!9^#V!$ ^!͆"!""|!!$ ^!9~#foS!$ sz `i!~#fo#s#r!d!9N#F!= #!9~#foʘ `i#DM+^!9s#r!9^#V! ͣʀ ! !9^#V!9^#V!9^#V6 d! 9^#V! ! 9^#V!  ! 9^#V)))^z !"$! 9^#V)))^#VBK!9^#VÇ!!ͣ&!!"$!#!!$ s!9!! ^#Vz'$M%>$!$ ^͈'V$$j$$$+$Ú!!"$!9!v!y!!!# s!9$$P'!!!! s#r!$ s!"$!9$͛'S!$ s!9$${%͛'!! s#r!9$L!"L"*O!"O*MU"*M!4G"#4*Q+"Q}"o&"*Qd!9!29^#V!9!! 9F+N+V+^+~+ngxʤ"w# ×"!9^#V#N#F#nx"s# õ"!9^#V#~#fox"""# "!"!}!}!9^#V#~#fox#~## #!9~#fo5##,#}!9^#V#^#V#N#F"!9^#V#^#V#N#F #!9^#V#~#fox#~ʇ## x# #!9^#V#^#V#N#Fx#!9^#V#n~ʺ###í#!|!9^#V#n###xʺ# +~##FKDISK FULL!*T$!*Rw#w#w#w*R~#~#~#~"#*RV+^+V+^*#"#*Ts#r#s#r*#*T*R"T"R*R>w#$*R~J'#Ž$?'=ɯ<*R*T###$$$$ڛ$Ÿ$+$*R*T#$*R*T#$*R*T# %*R*T#%*R*T#4%*R~/w#D%*T~?G*R^#V#~#fo))i%#a%DM*Rs#r#q#p*T~?W*R###~%~w+’%Ž%7~w+¤% %~#µ%O|$*R#Ͳ%y2#*T#Ͳ%:#2#1&#*Rw#%:#y$*R#Ͳ%y2#*T#Ͳ%1&#*Rw# &:#y$!#w#7&> 2#!#~w#H&O#!##]&yx&!#4!#5B&!#5ʪ&!#~w#…&O#!##˜&yx&l&#!##³&*T#~#&*R#~#&!#w#&> 2#!#~w#& '#!## ' ''!#5&*R#w#/'ͣ$J'!ͣ$?'!<ͣ$J'?'ͣ$J'J'?'ͣ$?'J'ͣ$?'?'J'*Rs#r#6#6*Rs#r#z'6#6*R^#V&*R#w#/'ͣ$J'!ͣ$?'!<ͣ$J'?'ͣ$J'J'?'ͣ$?'J'ͣ$?'?'J'*Rs#R#Ͳ%y2#*T#Ͳ%1&#*Rw# &:#y$!#w#7&> 2#!#~w#H&O#!##]&yx&!#4!#5B&!#5ʪ&!#~w#…&O#!##˜&yx&l&#!##³&*T#~#&*R#~#&!#w#&> 2#!#~w#& '1Z&v\y2\:o$ * WARNING * This tool is damaged! Use another copy. $!~O#{dz ðANAGRAM - VER 1.0, Copyright 1981 - Oasis Systems $O! ?A[w# ?A[x2 Incorrect Input Format $!F#%~#:2:=MG!%~#DDN+q#w6y):%*Z?]2u Main dictionary is not on current disk! $MAINDICTCMPj!~j##~j:2!%":Q:]=2:G*~2#"AG!O ~2#~2#>2}N! "]:h:!%:G:Q!6# x%:N! 4=‡%:N! 5=œþ4!5Q=œþ!%~n ~#:=2>2cQ Q> n!%}7O`yOy!%_+~w#}6A\15w#!A\A5w#6n}2*+w">2c> n> n_:@!® Œò>!""2*~#"*G}|!4xN# O`yOy!%_+~w#}6A\15w#!A\A5w#6n}2*+w">2c> n> n_:@!® Œò>!""2*~#"*G}|!4xN# 1JI$y2$:7J !~O#{, Bd!\!\A!\e!\!\!\“ AA*!"!""*"!Jt A[w#tA[=+~wx2*"*"*}ʊ**z*Š}ڊ|g}o"J~#fo~Gxf[~x~f#>*">2*">2*:G/_"Jw#*}/_|/W*##*#DM! z w+ **s#r**""*}/o|/g#*+ *}ADM!^#V# x&%8Ae!ͳFͳTWOPTIONCMP ~#  c~#  @`@ ¹~ #~ #x!g'#G͙Qà!2ͷ!Fg͓Q!>ͷq egF#ri͉~> a{ :ʷJ!J">22*~#"!5!4>  ~# O  *Hq#"H}DA5 !"Hw# =* WARNING * This tool is damaged! Use another copy. $DICTSORT+ Version 1.1 Copyright 1981 - Oasis Systems $Input file is NOT on disk $ Insufficient memory for input file Program Aborted!$ WRITE ERROR $ $$$ BAK $$$ BAKqyO! ͣͣW_͕qyO! ͣ͒qyogram Aborted!$ WRITE ERROR $ $$$ BAK $$$ BAKqyO! ͣͣW_͕qyO! ͣ͒qy15&J\y2\:o$ * WARNING * This tool is damaged! Use another copy. $!~O#{dz íFIND - VER 2.0, Copyright 1981 - Oasis Systems $O! *?A[w# *?'A[x2 Incorrect Input Format $!F#%~#':2:2*E?H2«` Main dictionary is not on current disk! $MAINDICTCMPU!~U##~U::AG!O ~2#~2#WN!k "7:':!m%70ژ%!m%:G:O?M*Z–#ʍ ʖ>:O !% :O!m% ?ʀ*ʔ–+ʍ ʖq ʔÖ7ɷ!m%~ʮH ~#Ý:=2>2= > H!m%W7O`y)y!m%_+~w#WA\ 5w#A\5w#6}2*+w">2=> H> H_:ʚk@!ˆ fÌ>!k""2*~ʻ#"*G}º|º!4x'@'ON# A\ 5w#A\5w#6}2*+w">2=> H> H_:ʚk@!ˆ fÌ>!k""2*~ʻ#"*G}º|º!4x'@'ON# ACCEPT EXCEPT ADAPT ADEPT ADOPT ADDITION EDITION ADDUCE EDUCE ADIEU ADO AFFECT EFFECT AFFLUENT EFFLUENT AID AIDE AIL ALE AIR ERE HEIR ALLAY ALLEY ALLY ALLOWED ALOUD ALLUDE ELUDE ALTAR ALTER AMOK AMUCK ANT AUNT ANTE ANTI ARC ARK ASCENT ASSENT ASSAY ESSAY AUGHT OUGHT AYE EYE BAIL BALE BARD BARRED BARE BEAR BARON BARREN BASE BASS BASED BASTE BASIS BASES BATHOS PATHOS BAZAAR BIZARRE BEACH BEECH BEAT BEET BEEN BIN BELL BELLE BELLOW BELOW BERRY BURY BERTH BIRTH BESIDE BESIDES BETTER BETTOR BIANNUAL BIENNIAL BLOCK BLOC BLUE BLEW BOARD BORED BOARDER BORDER BOGEY BOGY BORE BOOR BORN BORNE BOUGH BOW BOUILLON BULLION BOULDER BOLDER BOW BEAU BOWL BOLL BRAKE BREAK BRASSIERE BRAZIER BREAD BRED BREATH BREATHE BRIDAL BRIDLE BROACH BROOCH BROWSE BROWS BUY BY BYE CALENDAR CALENDER CALLOUS CALLUS CALVARY CAVALRY CANDID CANDIED CANE CAIN CANNON CANON CANT CAN'T CANVAS CANVASS CAPITAL CAPITOL CARAT CARROT CAROL CARREL CART CARTE CASH CACHE CAST CASTE CASTER CASTOR CATCH KETCH CEILING SEALING CELERY SALARY CELL SELL CELLAR SELLER CENSOR CENSURE CENSOR SENSOR CENT SCENT SENT CEREAL SERIAL CERTAIN CURTAIN CHAMPAGNE CHAMPAIGN CHEF CHIEF CHILI CHILE CHILLY CHIN SHIN CHORAL CHORALE CORAL CLAUSE CLAWS CLOSE CLOTHES COAL COLE COARSE COURSE COCOA COCO COLLAGE COLLEGE COLONEL KERNEL COMA COMMA COMPLEMENT COMPLIMENT CONSOLE CONSUL COO COUP COOP COUPE CORAL CORRAL CORE CORPS CORPS CORPSE COUNCIL COUNSEL COWARD COWERED CREAK CREEK CREAM CREME CREDIBLE CREDITABLE CRUEL CREWEL CRUISE CREWS CUE QUEUE CURRENT CURRANT DAIRY DIARY DAM DAMN DAYS DAZE DEAR DEER DEBIT DEBT DECADE DECAYED DECEASE DISEASE DECENT DESCENT DECLAIM DISCLAIM DEMUR DEMURE DESERT DESSERT DEVICE DEVISE DEW DO DUE DIE DYE DINGHY DINGY DISASSEMBLE DISSEMBLE DISBURSE DISPERSE DISCREET DISCRETE DOE DOUGH DONE DUN DRAFT DRAUGHT DRAUGHT DROUGHT DUAL DUEL EARN URN EITHER ETHER ELICIT ILLICIT EMIGRATE IMMIGRATE EMIT OMIT ENSURE INSURE ENVELOP ENVELOPE EVE EAVE EXERCISE EXORCISE FACIAL FACILE FAINT FEINT FAIR FARE FAIRY FERRY FARTHER FURTHER FAWN FAUN FAZE PHASE FEAT FEET FIANCE FIANCEE FIN FINN FINAL FINALE FIR FUR FISHER FISSURE FLAIR FLARE FLEA FLEE FLIER FLYER FLOCK FLOC FLOUR FLOWER FLU FLEW FORTH FOURTH FOUL FOWL FRANK FRANC FREEZE FREES FRIAR FRYER FURRY FURY GAFF GAFFE GAIT GATE GAMBLE GAMBOL GAUGE GAGE GENES JEANS GENIUS GENUS GENTEEL GENTILE GENTLE GERMAN GERMANE GILD GUILD GILT GUILT GORILLA GUERRILLA GREASE GREECE GRILL GRILLE GRIP GRIPPE GRISLY GRIZZLY GROAN GROWN HAIL HALE HAIR HARE HAIRY HARRY HALL HAUL HANGER HANGAR HAPLY HAPPILY HAY HEY HEAL HEEL HEAR HERE HEARD HERD HEART HART HEROIN HEROINE HEW HUE HIGH HI HOAR WHORE HOARD HORDE HOARSE HORSE HOE HO HOLE WHOLE HOLY WHOLLY HOSE HOES HUMAN HUMANE HUNGARY HUNGRY IDLE IDOL INCITE INSIGHT ITS IT'S JAM JAMB KNAVE NAVE KNIT NIT KNOB NOB LAIR LIAR LAPSE LAPS LATER LATTER LATH LATHE LAX LACKS LEAD LED LEAN LIEN LEANT LENT LEAST LEASED LESSON LESSEN LEVEE LEVY LIABLE LIBEL LINKS LYNX LOAD LODE LOAN LONE LOATH LOATHE LOOSE LOSE LOOT LUTE LOW LO LUMBER LUMBAR MAGNATE MAGNET MAID MADE MAIL MALE MAIN MAINE MANE MALL MAUL MANTEL MANTLE MARITAL MARTIAL MARQUEE MARQUIS MARRY MERRY MARSHAL MARTIAL MAZE MAIZE MEAT MEET MEDAL MEDDLE METAL METTLE MIGHT MITE MILL MIL MINOR MINER MOAN MOWN MOAT MOTE MORN MOURN MOTIF MOTIVE MUSCLE MUSSEL MUSICAL MUSICALE NAVAL NAVEL NEED KNEAD NEITHER NETHER NICE NIECE NIGHT KNIGHT NOSE KNOWS OAR ORE ODE OWED ORAL AURAL ORDINANCE ORDNANCE OVERDO OVERDUE PAIL PALE PAIN PANE PAIR PARE PEAR PALATE PALLET PARISH PERISH PAROLE PAYROLL PAUSE PAWS PEA PEE PEACE PIECE PEAK PEEK PEDAL PEDDLE PEEL PEAL PERFECT PREFECT PERSECUTE PROSECUTE PERSONAL PERSONNEL PERSPECTIVE PROSPECTIVE PI PIE PISTOL PISTIL PLAGUE PLAQUE PLAIN PLANE PLAINTIFF PLAINTIVE PLEAS PLEASE PLUM PLUMB PLURAL PLEURAL POLE POLL POOR PORE POUR POSSES POSSESS PRECEDE PROCEED PRESCRIBE PROSCRIBE PRIDE PRIED PRINCIPAL PRINCIPLE PRIZE PRIES PROFIT PROPHET PROPHESY PROPHECY PROSE PROS PROSTATE PROSTRATE QUARTS QUARTZ RABBIT RABBET RACK WRACK RAIN REIGN REIN RAISE RAYS RAZE RAP WRAP RATIONAL RATIONALE READ RED READ REED REAL REEL REALITY REALTY RECENT RESENT REEK WREAK RETCH WRETCH RIDGED RIGID RIGHT RITE WRIGHT WRITE RIGOR RIGGER RING WRING ROAD RODE RHODE ROAM ROME ROLE ROLL ROOMER RUMOR ROOT ROUTE ROUT ROUTE ROW ROE RUDE RUED RYE WRY SACK SAC SAIL SALE SANATORIUM SANITARIUM SATIRE SATYR SAVER SAVOR SAVIOR SAVOR SCARED SCARRED SCENE SEEN SEAM SEEM SEAMAN SEMEN SEED CEDE SEIZE SEAS SEES SENSE CENTS SEVER SEVERE SEW SOW SHEAR SHEER SICK SIC SIDE SIGHED SIGHT CITE SITE SIGN SINE SIGNET CYGNET SLAY SLEIGH SLEIGHT SLIGHT SLOUGH SLEW SLOW SLOE SOLE SOUL SOME SUM SON SUN SORE SOAR SPECIE SPECIES STAIR STARE STAKE STEAK STATIONARY STATIONERY STEAL STEEL STYLE STILE SUCCOR SUCKER SUIT SOOT SUITE SWEET SUMMARY SUMMERY SUPER SUPPER SURF SERF TAIL TALE TAUT TAUGHT TAX TACKS TEA TEE TEAM TEEM TEASE TEAS TEETH TEETHE THERE THEIR THEY'RE THRONE THROWN THROUGH THREW TIC TICK TIDE TIED TIGRESS TIGRIS TIMBER TIMBRE TO TOO TWO TOAD TOWED TOE TOW TOLL TOLE TORT TORTE TRACT TRACKED TROOP TROUPE UNDO UNDUE VAIN VANE VEIN VALE VAIL VEIL VARY VERY VICE VISE WAILS WALES WHALES WAIST WASTE WAIVE WAVE WAIVER WAVER WARES WEARS WE'RE WERE WEAK WEEK WEATHER WHETHER WHICH WITCH WHILE WILE WHINE WINE WHOSE WHO'S WOE WHOA WONT WON'T WOOD WOULD YOKE YOLK YOUR YOU'RE IST WASTE WAIVE WAVE WAIVER WAVER WARES WEARS WE'RE WERE WEAK WEEK WEATHER WHETHER WHICH WITCH WHILE WILE WHINE WINE WCON-TROL-LABLE EQ-UABLE IN-SA-TIABLE NE-GO-TIABLE SO-CIABLE TURN-TABLE UN-CON-TROLLABLE UN-SO-CIABLE DE-PEND-ENT IN-DE-PEND-ENT ANY-THING BAL-DING DAR-LING DUMP-LING ERR-ING EVE-NING EVERY-THING FAR-THING FOUND-LING INK-LING MAIN-SPRING NEST-LING OFF-SPRING PLAY-THING SAP-LING SHOE-STRING SIB-LING SOME-THING STAR-LING STER-LING UN-ERR-ING UP-SWING WEAK-LING YEAR-LING CIV-I-LIZE CRYS-TAL-LIZE IM-MO-BI-LIZE ME-TA-BO-LIZE MO-BI-LIZE MO-NOP-O-LIZE STA-BI-LI*ZE TAN-TA-LIZE UN-CIV-I-LIZED PAL-ATE IN-CLEM-ENT BAR-ON-ESS LI-ON-ESS EU-LOGY PED-A-GOGY LUS-CIOUS AT-MOS-PHERE MET-AL NON-METAL PET-AL POST-AL RENT-AL CAT-ION COM-BAT-IVE STAT-URE BECK-ON BES-TIAL COM-A-TOSE COME-BACK CO-ME-DIAN COMP-TROLLER CONE-FLOWER CO-NUN-DRUM EQUIPPED HANDLE-BAR INCH-WORM INK-BLOT INN-KEEPER IN-TE-RIOR MIN-IS-TER MIN-IS-TRY NONE-THE-LESS QUA-DRILLE SOM-ER-SAULT SU-PE-RIOR U-NA-NIM-ITY U-NAN-I-MOUS UNC-TUOUS DEBT-OR AC-KNOW-LEDGE DE-DUCT-I*BLE EX-ACT-I-TUDE IN-EX-ACT-I-TUDE PRE-DICT-*ABLE RE-SPECT-*ABLE UN-PRE-DICT-ABLE VICT-UAL NEEDLE-WORK IDLER BUFF-ER OFF-BEAT OFF-HAND OFF-PRINT OFF-SHOOT OFF-SHORE STIFF-EN LEFT-IST LEFT-OVER LIFT-OFF SOFT-HEARTED EGG-SHELL EGG-PLANT EGG-NOG EGG-HEAD COGNAC FOR-EIGN-ER VIGNETTE HOGS-HEAD CHILD-ISH ELD-EST GOLD-EN HOLD-OUT HOLD-OVER HOLD-UP SELF-ISH BULL-ISH CREST-FALLEN DIS-TILL-*E*RY FALL-OUT LULL-ABY ROLL-AWAY SELL-OUT WALL-EYE PSALM-IST ELSE-WHERE FALSE-HOOD CON-SULT-ANT VOLT-AGE RE-SOLV-ABLE RE-VOLV-ER SOLV-ABLE UN-SOLV-ABLE BEACH-COMBER BOMB-ER CLIMB-ER PLUMB-ER DAMP-EN DAMP-EST CLINCH-ER LAUNCH-ER LUNCH-EON RANCH-ER TRENCH-ANT AN-NOUNCER BOUNCER FENCER HENCE-FORTH MINCE-MEAT SI-LENCER BIND-ERY BOUND-ARY COM-MEND-*A-*T*ORY DE-PEND-ABLE EX-PEND-ABLE FIEND-ISH LAND-OWNER OUT-LAND-ISH ROUND-ABOUT SEND-OFF STAND-OUT UN-DER-STAND-ABLE CHANGE-OVER HANG-OUT HANG-OVER HA-RANGUE ME-RINGUE ORANGE-ADE TONGUE VENGE-ANCE SENSE-LESS AC-COUNT-ANT ANT-ACID ANT-EATER COUNT-ESS PER-CENT-*AGE REP-RE-SENTATIVE ANT-HILL PENT-HOUSE AC-CEPT-ABLE AC-CEPTOR ADAPT-ABLE ADAPT-ER CRYPT-ANALYSIS IN-TER-RU*P*T-*I*BLE AN-TIQ-UI*TY INEQ-UITY INIQ-UITY LIQ-UEFY LIQ-UID LIQ-UI-D*A*T*E LIQ-UI-D*A-*T*ION LIQ-UOR PRE-REQ-UI-SITE REQ-UI-SI-TION SUB-SEQUENCE U-BIQ-UI-TOUS AB-SORB-ENT CARB-ON HERBAL IM-PERT-TURB-ABLE ARCH-ERY ARCH-AN-GEL RE-SEARCH-ER UN-SEARCH-ABLE AC-CORD-ANCE BOARD-ER CHORDAL HARD-EN HARD-EST HAZ-ARD-OUS JEOP-ARD-IZE RE-CORDER STAND-ARD-IZE STEW-ARD-ESS YARD-AGE SURF-ER MORGUE CURL-I-CUE AF-FIRM-*A*T*IVE CON-FORM-*ITY DE-FORM-ITY IN-FORM-A*NT NON-CON-FORM-IST CAV-ERN-OUS DIS-CERN-IBLE MOD-ERN-IZE TURN-ABOUT TURN-OVER UN-GOV-ERN-ABLE WEST-ERN-IZE HARP-IST SHARPEN TORQUE COARS-EN IR-RE-VERS-IBLE NURSE-MAID NURS-ERY RE-HEARS-AL RE-VERS-IBLE WORS-EN ART-IST CON-VERT-IBLE COURT-YARD FORE-SHORT-EN HEART-ACHE HEART-ILY SHORT-EN APART-HEID COURT-HOUSE EARTH-EN-WARE NORTH-EAST NORTH-ERN PORT-HOLE NERV-OUS OB-SERV-A*BLE OB-SERVER PRE-SERV-*A*T*I*VE SERV-ER SERV-ICE-ABLE PRE-SCHOOL CON-DE-SCEND CRE-SCENDO DE-CRE-SCENDO DE-SCEND-ENT DE-SCENT PLEB-I-SCITE RE-SCIND SEA-SCAPE ASKANCE SNAKE-SKIN WHISK-ER COLE-SLAW RATTLE-SNAKE CLASS-IFY CLASS-ROOM CROSS-OVER DIS-MISS-*AL EX-PRESS-*I*BLE IM-PASS-ABLE LESS-EN PASS-ABLE TOSS-UP UN-CLASS-I-FIED AR-MI-STICE ASTIG-MA-TISM ASTIR ASTONISH-MENT BLAST-OFF BY-STAND-ER CANDLE-STICK CAST-AWAY CAST-OFF CON-TEST-ANT CO-STAR DE-TEST-ABLE DI-GEST-IBLE EAST-ERN EX-IST-ENCE FORE-STALL IN-CON-TEST-ABLE IN-DI-GES*T-*I*BLE IN-EX-HAUST-IBLE LIFE-STYLE LIME-STONE LIVE-STOCK MILE-STONE NON-EX-IST-ENT PER-SIST-ENT PHO-TO-STAT RE-START-ED RE-STATE-MENT RE-STORE SHY-STER SIDE-STEP SMOKE-STACK SUG-GEST-*I*BLE THERMO-STAT WASTE-BAS-KET WASTE-LAND MAST-HEAD POST-HU-MOUS PRIEST-HOOD SIDE-SWIPE WATT-METER BE-TWEEN KIB-ITZER BUZZ-ER AL-GO-RITHM BIB-LI-OG-RAPHY BI-NO-MIAL CEN-TER COM-PUT-A*BIL-ITY DEC-LA-RA-TION DE-GREE ES-TAB-LISH GEN-ER-ATOR HAP-HAZARD NEG-LI-GIBLE PE-RI-ODIC POLY-NO-MIAL PRE-VIOUS PROB-ABIL-ITY PROB-ABLE PRO-CE-DURE PUB-LI-CA-TION PUB-LISH RE-PLACE-MENT WHEN-EVER 1%7_y2 _: r' * WARNING * This tool is damaged! Use another copy. $! 0~O#{g} õHYPHEN+ Version 2.2 Copyright 1982 - Oasis Systems $!F#~#$º~#0:0G~0:0Ox>GN25 x25 :] …mm>?x> x!$6#6+ !$N#~)w ):$G!$_>wm! $ ! $~#`>-xxT> x> x_ !\s!\!\!\ !\ !\! s Input file is NOT on disk $77!YYTWOPTIONCMP ~ʵ# ʠ ʬc–~ʵ# ʠ ʬ@`@ _õ~ µ#õ~ µ#x!'Q! ͷ y͓Gþ!ͷ!Q!ͷ͓Q͌QF#V !sS2R#!$;O) AO[Oky0 Reading user file$2:,>2>/<O0:>2z/W{/_YQ!~#>2S0> a{ :Q2P:R2QS2R :ʑQ´! b!"!"2*~ʰ#"*+"G|x°!4>Á  ~# O*6 q#"6 F}M:>:"#>2".  WRITE ERROR $!:"6 w# FERRWORDSTXT $$$ BAK $$$ BAK :_!N^#V- g  g Rů2[ͤ>2N!""͖ Q¾:LAEIOUabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" :  ĥ >2b 2 28 * 9 ~~# x28 :8  ͪo :8 ~ !8 ~<ĥ S~ ~[ĥ ͪ>S!8 \~ ĥ ͑ĥ Ê ͥ. !8 F*  @w#“ 6"e:L*iͯ*e}¸|¸*e; ZQ{z|>2 !8 [ !8 F>ĥ !b 6` >2 : Z : 9 ! ~͚ !b *ĥ >2 :  >2 ! ~!8 » #~S !b 6#w!8 >[ĥ >2 >2 D» #~E» !b 6#6D!8 >[ĥ >2 >2 :  !b >E\ĥ !8 >[ĥ >2 >2 :   8 ! F>ĥ !b 6:  !8 [ĥ !b [ĥ !b ~#~wD y0K GW yW W GD  EHIKLOUVWXYCIPOCS ELBA EPOCS EREHPS ERUT ETAC ETAL EVIT EZI GNI LAC LAIC LAIT LNOIT LAT LUF NOIS NOIT REHPAR SSEL SSEN SUOIC SUOIT TNED TNEIC TNEM YGO YHPAR YL YRAN >2 2 8 !h Ϳ} >! w2Z >2 ~2[  G>ĥ ! F!8 ~G:[ <0 ĥ !0 #N:Z ! F_^#V ??Qgmmmumm>T%!0 ##~N/R/7y!\ 7>2 ö>2 öy! ʶ>2 ö>L_>2 ö>2 öö>2 ö>S¶! \:[ <2[ ö>Eʢ>O¶!0 ##~I¶! >[ĥ :[ =2[ : !8 :[ G>[ĥ ! 6FLSZ BCDFGKPTZ!8 ~>2 t!0 #~2#~2#~2:G:;! ;!;:[ <2[ ! :\t:Lt:!t:! \ĥ :Kk:Ct:\ĥ : 2[ <ͪ !ڂ   _*ͪ ʱ ! 6c>2 : !{>͚ĥ {! *ĥ : >2 >2 : ª! >uĥ ! **" !@ *ͧ**+ͧ  SYMBOLS NEXT PC END CHSWAFGLMAFUTERTRODERBE COM CON DIS EQUI EX HAND HORSE HYER IM IN LEX MACO MATH MAX MIN MULI NON OUT OVER PSEUO QUAD SEMI SOME SUB SUER THERE TRANS TRI UN >2 2 8 !kͿ$2>2 ~2{G>ĥ !8 :G~G:<ĥ !#N:!F_^#V4MUMMy!P>2 >H,>Y,>2 >2 >V!{\ĥ :<2>2 &!>ĥ &!_ʂ!cʂ>2 &!{*ĥ >!{͚ĥ >2y!U>2 y![>2 >I>2 &!>ĥ &!g!{*ĥ >͚ĥ >2: !8 :G>[ĥ $!{6>:8 .!8 ~.G<2 >2 !8 : <2*x<2+x<2,x<2-:,! “Uˆ:+Qʓ: 2 #:+! ʨ:*ʲ: <2 #:+G:,f#:+C:,K: 2 !8 ͚#:+Q :,U : =!~EͧU! BLBRCLCRcLcRDGDRFLFRgTGLGRKNLKLQNcNKNZpRPLPRRKSPSQTcTRtRWHWLWNWR FTLDMPNDNGNSNTRGRMRNRTST AGE AGES ER ERS EST :+2:,2!5: 2 !8 : G~G: ĥ !uͿ![5!8 : ͚: 2 !8 ~2 CGPST!8 ~=G#8 ~2+>2)O#:+2*~2+Hz:*!z:* 2*#~2+:)<2)z:*2+Ä:* 7:+ !8 q>cgpst:)!8 ~F^!8 :)_>2~2!:O:)=2):<2>Hy +:<2:):28 yh! ~=!8 ~=>͚ĥ 8 ! *ĥ b *ĥ F>8 ĥ !8 !8 ~2e2f<ĥ 2gEʙS:e=<ĥ E:f!8 <ĥ :f=2fÙ:fG:e:gS:f!8 uĥ >!8 ~2>20<ĥ :<2:<2:*!8 uĥ :!8 =uĥ 0:``:G::uĥ <ĥ :G::uĥ :2:<2=!8 ~22:<ĥ :=2Û0:G!8 ~:uĥ Û!8 :<ĥ D0:=<ĥ E0:G:$0:!8 <ĥ I$x<ĥ Z0:!8 uĥ >F##NJ#NU+##:>W>G~)o2~2:O:2_**ͫ:=2:<2>:2?@F#2#$>4>:VKVG_~y~yG~_Nwy+n>F¤ʟ#?O~?¤#Ž>æ>FʷG#?O~?#¾>>>O#O~x>#~<GYx~#yFT)TwXGw#JyOjjÞO~<{Gy=2ZÞYXѐG2Z~#”y:Zw!8 ~<ĥ ~<ĥ >>* !8 >2FG#N2a :~w>2xw8 Exception word file is NOT on disk $Reading HYEXCEPT.TXT file$] >2 !"1!>&")"+*"6!%6>2>2#ͤA[O:yO>2:=2+~ w#q#ͤA[->2*:<2x2%!%<ĥ !%ҝ*6:%*-}/_|/W*+##q*+#DM! zq w+ d*6*-s#r*1*)"+"1*+}/o|/g#*6+ڝ  Insufficient memory for input file Program Aborted!$y*)"-*+"/*1}ʡ>22*-*/z¡}ڡ|g}o"3~#fo" ~2#~`C2 G`Q2 }:q:n:}:#6*3"->29*3"/>297Ͳa{ :$!$">22*~#"!5!4>HYEXCEPTTXT*O N#Fr+sq#p0U>G=#w#wY*M0!0n& {ozg"V0!K0{#z"M0b*M0!0N#yʢ ~Õb!."O1:N *M0!$/{#z"V0$ _!.*V0~#~1 ~#"M0û1 !͒%Þ%SYMB []=====================================================[] [] LEARNING TO USE YOUR KAYPRO CP/M OPERATING SYSTEM [] []=====================================================[] Welcome to your Kaypro computer. This lesson will introduce you to the CP/M operating system which controls the Kaypro. This is essential information which you should take time to acquaint yourself with. WHAT IS AN 'OPERATING SYSTEM'? By itself your Kaypro computer knows how to do very little. In fact, when you turn on the power, it can do little more than display a message asking you to insert a diskette. The diskette, of course, contains the 'software' program that allows the computer to perform a wide variety of sophisticated operations, from word processing to spreadsheet calculating to records management. However, even before your Kaypro can 'run' such software programs, it must know how to perform other, more fundamental operations, such as partitioning its internal memory, creating and managing files on a diskette, outputting information to a printer or a modem, and much more. This is accomplished by a separate program called 'Control Program for Microprocessors', otherwise known as 'CP/M' or 'CP/M Disk Operating System'. ................................................................. In a nutshell --> CP/M lets you 'operate' your Kaypro computer. ................................................................. WHAT DOES CP/M LOOK LIKE? The CP/M disk operating system comes on a diskette usually labeled 'CP/M Operating System' or 'CP/M Utilities'. This diskette may contain additional program files that have been supplied with the Kaypro (e.g. S-BASIC, WordStar). To use your CP/M put the CP/M system diskette in disk drive A (the main disk drive), whereupon CP/M will identify itself to you by displaying: " A0> " on the screen. This symbol is a command prompt which indicates that you have turned on CP/M and are 'logged' onto drive "A". The logged drive contains the diskette you will automatically get information from or write information to. To switch from drive A to drive B you would type the following: A0>b: The screen would then display: B0> To get back to drive A enter: B0>a: NOTE: means type a carriage return after typing the command. It is possible while logged into one drive to reference files held on the other drive. For example, the command: B>a:masmenu indicates that you are logged into drive 'B', but are calling up the 'masmenu' located on drive 'A'. ( Your version of CP/M does not wait for a command after you insert a disk. Instead, it automatically loads a program called "masmenu", which is a master menu for all the other programs. If you wish to permanently inhibit this automatic loading, run the program called "nomenu". ) ---------------------------------------------------------------------- ...................................................................... NAMING FILES When working with your Kaypro, you will be creating and manipulating 'files'. 'Files' are nothing more than documents that have been stored on your diskette. Each 'file' possesses its own 'filename', which identifies it to the CP/M operating system. A file cannot have just 'any' name. CP/M requires that they follow a particular form. Specifically, filenames cannot be longer than eight (8) characters (though they may be as short as one (1) character), and they MAY NOT contain blank spaces or any of the following: > < . , ; : = ? * _ [ ] Some filenames will require an 'extension', which specifies the file 'type'. For example, all files created with MBasic require the extension ".bas", which stands for 'basic'. Be sure to choose a filename that will help you recall the file's contents. Some sample filenames might be: chapter7.doc mydiary.doc running.bas private!.dat Note that the filename extension is not included in the 8 character limitation for filenames. DISK DRIVE DESIGNATIONS When specifying filenames, it is always important to indicate the disk drive on which the file is located. When working with the Kaypro, your program diskette (e.g. WordStar, DataStar, MBasic, etc.) will normally be on drive 'A' and the diskette holding the files you create on drive 'B'. Specify files on drive B in the following manner: b:chapter7.doc b:mydiary.doc b:running.bas b:private!.dat The "b:", which IMMEDIATELY precedes the filename, indicates that the file is located on drive 'B'. If no drive is specified, CP/M will assume that the file is located on the drive to which the computer is currently 'logged'--normally drive 'A'. Note that the letter indicating the disk drive is immediately followed by a colon and need not be capitalized. WHAT CAN YOU DO WITH CP/M? There are several CP/M commands which you will be likely to use with your Kaypro. These fall into two categories: 1) 'system' commands which are available to you whenever either system prompt "A0>" or "B0>" is displayed on the screen; and 2) 'utilities', separate CP/M program files, which, to be used, must be present on the disk drive currently logged. The "system" commands we will discuss in this lesson are: ................................................................. +---------------------------------------------------------------+ | USER Changes to a different USER group. | | DIR Provides a DIRectory of files on a diskette. | | TYPE TYPEs (displays) a document file to the screen. | | ERA ERAses a specified file. | | REN RENames a specified file. | +---------------------------------------------------------------+ The "utility" programs we will present are: +------------------------------------------------------------------------+ | STAT Provides STATistics on the space available on a diskette. | | PIP Lets you copy files from one diskette to another. | | COPY Lets you COPY a diskette. | +------------------------------------------------------------------------+ Note: On your CP/M diskette all of these utility files are shown bearing the suffix ".com", indicating that they are 'COMmand' files. When specifying one of these files, you should OMIT the '.COM' suffix. For example, if you want to know how much space is available on the diskette in drive B, type: A0>stat b: NOT A0>stat.com b: The 'SYSTEM' COMMANDS ................................................................. _________________________________________________________________ USER Different programs can be placed in different user groups. The user group you will most often see is user 0, indicated by the prompt: A0> To change to another user group 3, for example, enter: A0>USER 3 You will then see: A3> To get back to user group 0, enter: A3>USER 0 There are 16 user groups on your computer. They are numbered 0 through 15. ................................................................. _________________________________________________________________ DIR (DIRectory) What's on a diskette? To find out what files are on a diskette use the DIR command. Enter: A0>dir This command tells your Kaypro to display the names of all files located on the diskette in drive A. As an example, the directory on your screen might look like this: A0>dir A: ALIENS COM : CHASE BAS : LADDER COM : CLONE COM A: CLONE DAT : BIO BAS : MBASIC COM NOTE: The period which normally separates the filename from its extension has been omitted from the entries in the directory. Thus, when viewing a directory, you should mentally reconstruct it as follows: A0>dir ALIENS.COM CHASE.BAS LADDER.COM CLONE.COM CLONE.DAT BIO.BAS MBASIC.COM To display the files on the diskette in drive B, you would enter the command: A0>dir b: If you want to have the directory printed, use the command form: A>dir b: 'Control--P' tells CP/M to direct all computer output to the printer, including whatever is displayed on the screen. (The directory will be both printed and displayed on the screen.) To turn this option 'off', type 'Control--P' a second time. ................................................................. ----------------------------------------------------------------- EXECUTE A PROGRAM To run another software program under CP/M you need only type the filename of the program's command file (Remember: do NOT type the ".COM" extension.) For example, to run CalcStar, ( in user group 8 ) whose command file is 'CS.COM', you would enter: A8>cs CP/M will load CalcStar into memory, presenting you with a blank spreadsheet ready to begin entering data. When executing a command program, CP/M surrenders system control to that program. Thus, the regular CP/M commands (i.e. those which you are learning in this lesson) will no longer work, until you have quit the particular program and the CP/M prompt 'A0>' is again being displayed. ................................................................. ----------------------------------------------------------------- REN (Rename) REN provides a quick and easy way of changing the name of a file. For example, the command: A0>ren newname.doc=oldname.doc ^ ^ | | replacement name to be replaced causes the file 'oldname.doc', located on drive 'A', to be renamed as 'newname.doc'. Note that the old (or original) file name is placed to the RIGHT of the equal sign, and the new file name is placed to the LEFT. Following a name change, only the new (or replacement) file name will appear on the disk directory. To change the name of a file located on the diskette in drive 'B', use the command form: A0>ren b:newname.doc=b:oldname.doc ................................................................. ----------------------------------------------------------------- ERA (Erase) You will often want to free-up diskette space by deleting old, unwanted files. The CP/M command to do this is ERA. For example, the command: A0>era b:thisfile.doc erases "thisfile.doc" on the diskette in drive B. Clearly, you will want to use this command CAUTIOUSLY. ERA can also erase groups of files. For example, the command: A0>era *.doc erases all files on the diskette in drive A having names ending with the '.DOC' extension. The asterisk "*" is used like a 'wild card' to represent all filenames. Finally, to erase all files on a disk, use the command form: A0>era *.* Before erasing all the files on the diskette, CP/M will ask: "ALL (Y/N)?" This confirmation is requested to insure that you are aware of the (rather drastic) consequences of the command. ................................................................. ----------------------------------------------------------------- TYPE (Display File) TYPE allows you to inspect a document directly from CP/M without having to enter WordStar. For example, the command: A0>type b:thisfile.doc causes the contents of "thisfile.doc", located on drive B, to be scrolled across the screen. To temporarily halt the scroll, type: CTRL--S To resume scrolling hit any key. To quit prior to reaching the end of the document, type: CTRL--C ...................................................................... ...................................................................... CP/M 'UTILITY' PROGRAMS ----------------------- Note: The following utility programs can be used only when their command files are present on the currently logged drive. ----------------------------------------------------------------- ................................................................. STAT (STATistics) Filename: 'STAT.COM' Like every computer, your KayPro has a limited amount of disk storage. You will need to keep track of the space available on your diskettes in order to effectively manage your programs and files. For example, you will often need to know how much free space remains on a diskette, for should there be insufficient space for a file you are creating, all or part of the file may be lost when you attempt to save it. The CP/M command program that provides you with information on the 'status' of a diskette is "STAT". The STAT command displays the vital 'statistics' of a diskette, that is, how much storage space has been allotted to various files, and how much free storage space remains. For example, the command: A0>stat instructs CP/M to examine the diskette in drive A and respond with the message: A:R/W, SPACE : 20k indicating that on this particular diskette in drive A 20K bytes of free storage remain (20K bytes represents 20,000 characters, roughly equivalent to 15 or 20 pages of double spaced text). As well, this space is designated "read-write" (R/W), meaning you can read or write to it (in contrast to R/O which indicates "read-only"). To examine a diskette on drive B, type: A0>stat b: CP/M will respond with the message: B: R/W, SPACE: 142K indicating that available "read-write" space totals 142K bytes. STAT will also display how much space a particular file occupies. The Command form is: A0>stat b:thisfile.doc CP/M will respond with (for example): RECS BYTES EXT ACC D FILENAME.TYP 7 4K 1 R/W B THISFILE.DOC In this display: "RECS" indicates the number of 128 byte records used by the file. "BYTES" means the length of the file in bytes. "EXT" indicates the number of 'logical extents' taken up by the file. "ACC" stands for the "accessibility of the file--whether it is 'read-only' or 'read-write'". "D" is the drive name. (NOTE: "Bytes" is the figure you will generally be most interested in.) STAT will also display statistics of any identifiable group of files. For example, the command A0>stat *.com will display the amount of space occupied by all the files on drive A whose file names have the extension ".com"--e.g., STAT.COM, PIP.COM, WS.COM, etc. Finally, you can use the wild card symbol "*" to have STAT display the status of all files on a diskette. A0>stat *.* STAT will respond with a display like this: Recs Bytes Ext Acc 136 18k 2 R/W A:MASMENU.COM 16 2k 1 R/W A:FINDBAD.COM 189 24k 2 R/W A:MFDISK.COM 18 4k 1 R/W A:COPY.COM If the listing is longer than one screenful, use 'Control--S' to temporarily halt the display, afterwards hitting any key to continue. ................................................................. ----------------------------------------------------------------- PIP (File Copying) Filename: 'PIP.COM' PIP, or 'Peripheral Interchange Program', is the CP/M utility program used for copying individual files and programs from one diskette to another, or onto free space on the same diskette. To copy a file from one diskette to another, use the command form: A0>pip b:=a:thisfile.doc -- -------------- ^ ^ | | {destination} {source} In this command 'thisfile.doc', which is located on drive 'A', is being copied to drive 'B'. Note that the file name does not have to be repeated if it is to remain the same at its destination. Also, as with the REN command, the destination (drive B) is placed to the LEFT of the equals sign, while the source (drive A) is placed to the RIGHT. It is easy to change the name of a file while you are copying it, as in this command: A0>pip b:thatfile.doc=a:thisfile.doc Here PIP copies "thisfile.doc" on drive A to drive B, simultaneously changing its name to "THATFILE.DOC". You now have two copies of the same file, each with a different name. To rename and copy a file on the same diskette, use the command: A0>pip b:thatfile.doc=b:thisfile.doc To copy an entire disk, use the command form: A0>pip b:=a:*.* PIP will copy the entire contents of the diskette on drive A to the diskette on drive B, leaving the contents of drive A untouched. (Again, note the use of the '*' as a wild card). When executing this copy routine, it is best to use an empty diskette as the destination, since there must be enough space to receive the material being transferred. (When copying an entire diskette it will probably be faster to use the COPY utility described below.) If you wish to copy more than one file, you can save time by using a variation of the PIP command as follows: A0>pip Your screen will respond with an asterisk ( * ) on the next line. You may then copy as many files as you wish using the same form described above but without typing "pip" each time. When you have no more files you wish to transfer, type a and you will be back to your system prompt. For example: A0>pip *b:thisfile.doc=a:thatfile.doc *b:newfile.doc=a:oldfile.doc * Final Note: Though PIP can be used to copy all files and programs on a diskette, it will not copy the CP/M system itself. ______________________________________________________________________ ...................................................................... INITIALIZING A DISKETTE When changing or adding diskettes it is VERY important to inform the CP/M system, through a process called 'initializing', that a new or different diskette is being used. There are two ways to initialize a diskette: 1) 'Resetting' or 'cold booting' the computer. 2) 'Warm booting' the computer by typing 'Control--C'. For example, suppose you are logged to drive A (the 'A0>' prompt is being displayed). To initialize a new diskette in drive B, either press the 'RESET' button at the rear of the machine, or type 'Control--C'. Both actions cause the machine to reboot, thus initializing the new diskette. If you do not use this 'initializing' routine each time you insert a new diskette you RISK LOSING DATA!! (Note: BE AWARE that 'resetting' will clear machine memory. Any data not previously saved to diskette will be lost!) ________________________________________________________________ ................................................................ WRITE-PROTECT TABS Some diskettes come with a small notch on the side of the diskette, which is used to signal whether the disk can be written to, or whether the information it contains is 'read/only' (R/O). When this notch is covered with a protective tab, the diskette is considered to be 'write-protected', and your CP/M disk operating system will not allow any information to be written to the diskette. _________________________________________________________________ ................................................................. Good Luck! ================================================================= ================================================================= /O). When this notch is covered with a protective tab, the diskette is considered to be 'write-protected', and your CP/M disk operating system will not allow any information to be written to the diskette. ____________________________________________1(J\y2\:o$ * WARNING * This tool is damaged! Use another copy. $!w~O#{dz ïLOOKUP - VER 2.0, Copyright 1981 - Oasis Systems $!F#~#$´~L2qO! JA[w# 'A[+~'+"S"+~'#"++x22{!"l!("d"f*"r:~U Incorrect Input (word too short, etc.) $!F#'~#†:2z0*r"t:O!'F#x>?ʵ~#­0 ¥:O<2z!'F#~#x>?0 :O=2z!'F#x~# 0 :O 2z!'F#~#4!'Y^+Vs#r:_!'~w0 ,:2|~ Main dictionary is not on current disk $MAINDICTCMP~s!~~s##~s:q\:|AG!O ~2#~2#N! "5\*d"h*f"j*l}ʶ*h*jzX¶}ڶ|g}o"n'~#fo~G’ʇ~ʤ~’#l*n"h>2}D*n"j>2}D*r:zG/_"r'w#*h}/_|/W*f##*f#DM! z w+ z*r*hs#r*l*d"f"l*f}/o|/g#*r+5 Insufficient memory. Program Aborted!$:{GOgz\\:q‡:|!'g!("v*l"x*x}\++"x*v^#V!'͇ʺ*v##"vÓ!'~x ~#ʿ'*t͇>*x :=2>2m\ \> x!'7O`y!Yy!'_+~w#CA\>5w#.A\N5w#U*5+w"5>22m> x> x_~?ʟG?ʟ¼ʭ~ʸ~¼#Ç>7a{ :2 @! >!"5"322*5~.#"5*3G}-|-!24x ~# 9RET HLT CMC STC CMA DAA RAR RAL RRC RLC NOP CPI ORI XRI ANI SBI IN SUI OUT ACI ADI CALLJMP LDA STA LHLDSHLDMOV ADD ADC SUB SBB AN MailMerge Release 3.31 ID # 223403KP-001 Copyright (c) 1979, 1984, MicroPro International Corporation. All rights reserved.  NOSEY, AREN'T YOU? t!ECECECFCFCKÂEEæC? ɯ2k2l̓1*%6}/›DC26/| *%6}/›DąCRCDRCeC26?GI'*~ȸ##^#V#—C>2:!8͵DC>2:2&6/2:I' !C#~:k!"6"6%$8:626!lCw~0Ͷ!-"6>262k:;KG!:~;DC3D3D:|;"D62&6x濸QD:6262lʕDʅD=ʑDD:E5!;!3D:;G=zD* lf#>ÕDDͶÔDD2;kE:6!l!8͵D2k͌!*D5͉:D5!!6DØ!E* l~D*E#D͉E7E*D5 ",& "Ø!:l öuEj&͘!!W!:6WJ#Ñ !{!E!Et% PFFOJFIJFLSGCSKGDMQGSV^GAVsGDFFRVIIGEFIFRPFEFEIFEEXF!8GH*@;+F+N+V+^͒HHë͋^͆^͍FͨF&xP ͍F:k/!k6KFkG:k !k̔kEͨF*l"l2kgo"~;k!k~2kk Q >2k2k/2k2k2;I#k.I+d DM I!Ft%>2};/2};CH;%F";>2;!pjF!vjF!oj!5G|w}Fw!lj>2ijI*G-%G!mjG!nj>2ijI*G&F!BG>2ijFDIONOFONDIͫ>@<͒HGHG !I͒HOX͙sGMHIG IҧG!-CH!zkN#!/CHH2;͎XG* l=YG* l+~#jG2;G>2;͏ :;G:4> J!)!{kI7?H.,-Hw#-$&AHCH AHH-Hp]H,H|2zk}7Hͮ%+I7g'dH"7+I.* l&ڋHʉH ʋHw,-ʃH#-jH+ 6H* l!&ʿH ±H&ʿH ʿHw#$-«H6|H* l~#HH>2;Ï :;͏ H;%>>};% }= <I!Iͮ%+I&+I,կ 4I͜IbI.LI#bI ^I7̀IuI bÌInI>  vI~͋I#.:*? пͶ#~+:´I~ҴI@##7:k!8H >2I*;}I*;}I!";!k~6KGJ!8HEJJI J J>2IEJjG!8H:KI0J I>2I:k!9H>2kH* lQ!KqJbJ2kHK[Yv]J[YʆJJdJbJHK[YžJ>2KöJHKv]J,®J J [YʼJJÛJ:KbJHK"JJbJ!KHbJyOzyÑKy{Jw# J͈K‘K K:I> ‘KJ͈KK͈Kv]$KK͈K0K0K[Y0KÑK*l+*l͠}K:k>~K*l6k3*l͠eK~_#"lHK͈K*l+ÃK!k~6$K͎K>2k0WARNING: Missing "RLORgo2jj"Fj"Hj"Jj"Lj2Rj{K+O!Rj4LOK:RjOS{ʊLLͿLNMLOK;LK;LJSRLOK͏ 5L N:hj!UjNLN!Oj:TjVL~2Tj2Uj%N:Ej{L!k:3sL~OS:HjK͵M N:hj:Tj!Uj©L!OjqM%N!"Fj"Ij2Sj!Sj4LO LO{ʽL!Rj6{L4+OLOL{ʽLL+OLOLLͿK:RjOS:SjOS:Tj2Uj~L>2Ej!Lj4!k4qM*k$$$*k͠HM:Kj!MjԘML{+OwM2Hj:Fj2Tj{>!IjpM#wOS:Ij†MzqM{>2Kj!Mj~4R:Tj2Nj2Oj!Mj~M66:LjM:Kj:Tj!UjʏMMM:Tj!UjM:Tj!Oj!Mj~5:Tj!Oj:Nj!Tj:vjN:{j!N:Mj>!N2hj:Lj5N:Tj2Nj2Oj:hj‡NO\N*Fj@R\N=!OjpNYNÎNM҇NOԕNMxN:LjҘM͇N:Oj!NjwOw:Tj!Njw:Kj7O:k!LjN:Pj!TjNN:Nj!Pj~N2Oj:Nj!Tj:Kj:k!LjO!PjO:Nj!Pj~2OjxN:Tj!OjO~:k.==. -g-%}O|-!FjɖІwɖHOHOІwSUOJS*k~gO#"kjOO_!DjF ʃO ʃOʃO q!{ UO!E߾ʫO!EʫO!EʫO!E·OUO#þOUO ʻOoO JS} OR} UOUO O#";*;#";;E:;!k!k(PR͙KNP*;#}%P#";kE*;}AP}DP#DP*;*;͠XP2};͙PO*k45>O(R;QQrP2};͢POͷQ;E!kog";";2;";!"~;";GP:<;; Q*~;";7>2; x*;";2;*;";";P!8͞QW *~;)|! wQ!8͞Q:};PQQ5Q!8H@!8HHP:4̬!8ͤQ>2;HP5Q:};/G:4/:;̙Q:i7ęQ:06ęQ:W6ęQ!;ĒQʏQ:k/!k̒Q͠P~ͤQHHM##H:;*;Q*k~*k#*7;̠> Q*k:};w*;*;+!*;d|Q";"~;*k ! 6#!};*k#};"k*k~[R*k"kp)dR*k}{xRxRR͒R͝ReRG͒Rk]͝RR!k R{7Ow#6S_ RzʝR{v]7!{Rz 7 7{7*Vj!9"Vj:hjS:Oj!gjw:Qj6O:Pj6O:Oj2Pj!Qj>O>2kj*k~#F#!(SЇ!Sw~#foxS{W*kx=iS:k=eS6#pS:k=vSp#x2kr#"k6#6$$*k͠RCSSSSSSSR~#S2ej2fj!gj:hj¿SxSp2jjgY2k2k*k"kw#wͥT2ij/2Zj{SU:[j2Yj{Tv]T T_#TS#T #TS͉UgYS͉U,TåT*kuT͞TuT~BTuT~BTBT͞Tk]͈T͈T+ fTw ~pG#hTw"k+~ +~ #~+~# ™T~# ~#v]U!{{ʹT*lTUsT T# T T ~0 mxT{ʧTôTAVT{!XjFq  q!lj`j`j[j!qj> ~ ~YU#=QU![j~lU6F#~ vU6#~ҀUpڇU6*k*k͠ܥUs#6"kU>2jjU6 #6 #6U++gY*kà{+ *k#"k*7;͠*H;|> .!K;~ .# 2ij{}V 6 #"j!j5!j~6¤VÖVX:j{ʰVV!j6{v]4WVW>2jAVWҺVXV{!V&W:j!jwAVVv]¶VW{ X XÖV*k"j"j2j*js#"j!j4~G!j͊Wy2j"j{kWXx2zk͎X>2ij~2jNj"j=Y :xksW dW:ykG k]dWhWdWG$X2j8X?S,XڝW-p]ʝW{ʞWW,X ʞWâW2j{2xk2ykR_s# 7?X$X(X,X{NX,X 8X*k!\:jZ:jZ:ZjZ*j ~#v]7Y:j*k!\*j*]j&d"j+|$Z*j+~'Z2j~ʫ[#v]7%[\~C[w~^ʠ[#v]ʛ[{n[!jl[~!j>l[!j4`]7[S*j*]j&*}j"j‘[#̈́]7[[7ͱ[[["jz*]j&*j[#d|:^j*jd:KOw|*]j&*j*jd:^j[*j"j*Yj&"}j!j@ Ù2j\"j:|j!Zj:\<2je\:\> 2j:je\!j5F\*j"j*j"j"jS~u\w~_#ʑ\¡\2j~ Ž\#i\:ji\!j4ï\{v]7{\2j\*}j{`]*]j&*}j\#̈́]\:j\"j+"j:jzȷ$]k]{]k])]!j~]5!j4*]*j+~w2j!j~p#wzx;]O#~q#wz2j*}jQ]#"j!j4*j"j!}j-Ϳ7ȷ77zʍ]7?{͙:jڟ]>2jGʶ]:^jʶ]*j|]!"j}!j64]]!j]wO]!j4]<552jx!j2jx^{# ^0^:j0^2j~ ^# ]:j]=2jU]U=^]{!j455t^:jc^!j5r^!j5r^!j5r^=Í^>2!f^^Rdʤ^mde:f®^!9GH*@;+F+N+V+^͒HH!$f@!f6#6#^Iʢdma>2#f!~f>"w#ͱ`_ʢd_G:#fx)_")_!._w#_6 B_ B_1_I_ʠ_~_Ҩd!fw_ʠ_ڠ_!ʠ_#f͠Z_èd;%ڨd"fʚ_͠ڨdà_>ʨd!ʼ_Iʼ__!ʼ_>2f!'c}!"fw!$f'c&! _7ɯ:#f_`<`?`+~ `#>"w#>2#f"u`.`*͢`A`*͢`A``:#fP`>"w#w#w# .T`>2#fmaI#ͱ`>":#fˆ`#ͱ`+>Ü`:g—`}a>2g2#f>"¯`#¢`7ɯ:g¾``!f`!fpx2g"2ga04a:4a:ga:ga!fa!f4:g,a!f/a!f4`>2g+:gMa:fPa:f_:gba"gea"g>2g!f >w#ua*f|a*f|¨a*f|ҟa$c;b-bc2b-b*f|acb:fG:g2faćb:fG:g2f*f|ac;b-bc2b-b*f|bcb:fO:gG:f2g2b-bćb:fO:gG:f2g;b* g#*g:fAb*g:f_d#"g*g# c+:g_" g*gb€b*g:gG>0w#tb* g"g*g*g c&:go:fžb#" gbb*g#:gG:fb*g&:go" g"g:gG*g#:fb+" g"gɷbzw#:g<2g>0w#b|czc~+ b>cO}2gɕ2g}O|G~fBd*f?c"f]cԒcjccBdc?cœdxc͂cncxxccڜdGBd"ʍc>/2f *ãc*ͲcyJddccc²cNBd~#c~#c#Bd(>JdcBd)>Jdc dږd2dcBd"d7>Jd>Jd"d"dBd+>Jd Bd,$%-w#!$f:"fG gxYd:!f{kd/ͮd.e}d͖epdd! 9GH !9Ãd!9Ãd!9Ãd!9Ãd! 9Ãd!e!;$*;"e*;"f*;"f!;!e$*e";*f";*f";e*f>~"f*f͠d*fe3*f>w"f*;͠eS2k@e>2kaeeoe!E߾@eoe#@eoe!{aeO_*f>~;:"f"f*;͠ve:f­e>*f+©e"foe ʭee!e e e!f#~oee>oe  eɠ*2;i+ĺ+e:ͳ9+ +~a+>a+>,#*:͊.! O+!:+*:+ʟ+F#.+”+ͦ)O#x,{ڀ+> ,":";{2:!::: ;2 ;!2O+!:+*:͊.*:::_B+G{,H.+y++ OB+xF,+*:Ê.!9"i2jGg^gͬgg͘g>gͺgyBggxG*i62i2i2i=2i!~f"i͌gsggpgqggrg_^#VOhxG͓g#x~x~7ʦg~͌gyͺg͌g!g#N#^#V#gTiTiTi>i iiii,i:ii iy2ix$h_:ih}iG!g$%Eh:i*i~=h2i +6#gi͌g͌gʜhnhyh{͕iG͜h͌gyhch͓g•h͌g͌gW͌g_•h"i*i:iOͲh"iy2i:ih~# ںh úh :ih~# h h2i?>2i~#hyy:i>,i/i/:i:i>/:i:i>/ i/ɯ~#Ai>[i>[i>[i>*i7>7`i~G2ix2ii#?i:iW:iʓi!i?i*iJ  Ҩiɻ{>2:2:[..[..O. 7-.. 82:!::~f=/!:~6 /ͭ/͓/**:/":!:ywz:ĺ/0j!xy/ /**: lCmlmmoxqxsopFo|bq$JWN"TFp rb/3hzopvF{79i1b&Y #8o9(<#ͭ :!Cҿ!6: !6:!.T-   2l 3l H .1    . h 41  Sh n8 q  H &+  4h  YR  .   #+s  ,  1  dh4  5aGR$r(   .F4   "HN $     ( .   u Q  o 3 D  mH  Q      t 4    2H uL  h  #  H/ h K      M  O    R   (  +lH     u. L    o            Q  R T     s  1s Th 4  L    Q rR h  ns3HN X  (    K M1 HsT          14    H   q r   @(L . MO R8 $( hn NU  h.14 qs,/ 3k&H+@  /`   dh  n$M(MRS +H 1  4 H -l/k0  h R.1    $ . T   4 h MQR    S  (         Q h  R   s   W.     !+  O-/dh 1 sH dh l   ( sD E. .  d   g    s  $    Qr s   (R     h n. ( h n(.C M Ro 3  kH$    Q ( C K   MQ   d+ T .  1fN   $ 1 .1   rs$($f lm v r, 3G( +-Ct+  T   1 u  D   r  H kH-3  . . R-y $` h l (  O(  $Q( , $( +  ! "#$` % KQ (rK+Hm,D/ NGS36    ! r"Q#( ,f1dh  JSBhS$Q( 4dhP . Ul11dh km@ HK. y1rH$ hm.Q  !"$`  & dh l *, N 259  n $  g h   n qQU  v( DF S  .   O dl s `   dh d4h Q  h  R UH  CFM(Q. dRL'-mrY.m48'a   m N ( $` bdh lm    'N(F1 H Mt-Q$ (8+ CT 1 X 2dh 3  N9l H  N  $( CD F S U   +H 14  R+n@ dh l H1f3  " R&-β3 M4  s-r1HN O S4  $r '  Hs+rH  s. 4 d+2 l H  ! "   N $ QR&'DFN Xs y  /K 12n  3 N l ' u(  K $(.U1N TG,N 2   dh d+Hbm. 1k4 rK  + ,s HN.h2h  N3 +A O @S`(G   U .S T     `  dh 4 H`k l M ( , H-  136   F     Q d@B CKM Qn'H N mQn    Ah nh   k n CDFn tK L M  Og nP   QRknt  Snq+. hxDN !',. / 3 H 6GG+ 1gl 31S.1"$-   Q &+K   N   / 2kn q 3   n MQ d  h$    r   K M   RS (+ isH  b    dph .     Q   1   D     g    m   H N   ao    u w    .O(+-L QS$N( EMD rHKҬRq   .d M$@   hm ACDm n   sH lmo  s    uV( *3  .4-0  (.`4 H L  MH$2H S    3G  9   ( f h FL MS"$M%' (R.dhT/S  (.  s24 Rh H M   d$R (h .  dg X h( .$ hQ  R%  'T( kt     Eh  K R + 4   rQ  S17 $,.3S#-  $(  $Q  ' X  (  h    R  T  dh $    MQ      (F    L   R   .    M Q  4Lh o Q   h 8 QS $hn' (  .    T  1Hm  N  m  o4   ,  O - 5,MhQ +    H- l H (. O     H    $  M   s  t  R (Qh S. 1   H   s4 h 14( kD dh  n14',  4R  Hk$ kN l( ./ 3q HQ  h      N      (sAh  BFL  n M O rt 4  (`   dh + -1-h S T@ Rhdh SnHKs(`  dh Q4@Ddh * H 1dh m22 km        k. `    Kh S(.GH rK  qGD ( A q  CDEF q H KdnOhk os   STV nX.3   & ( + ,H -K  h   $&DH '/ 1DHm1DH  r ( +  " DH MNVE  ҨM@ DH ث@rDq  H r N O  QXH. 23l49 N hM"@ mDHmN s Vh EDH JK(   s)dADH MQ t -H r0 G3D y @q D kHN"  ҤEnKR% & H ( S TDdH +,@b qDs X.  dhP1fDsH  dmrNزS3 n  KN4A n dh Ld MDE  (` ҪD H . 0DH n@H n "$ҧH NQgS(.3  D H K    h  D '7mثDH $( .   1. b dgh ND& DDH ҭұ@ dkDH rj2hkDHms MQҴI L Sh  5 LTDN . h     !" K#H U%N+/1 HNnHO Sq3 !Q"dDR'ұҲGKh   $ (s .Q T 1 4     $s &DH (m . s1 4     Uh  $ K( .  N &-1A RS h "dh %Q&t(u  S  YAGHdf  mLN V .  U2DH Q5 4"dH $C Eh    KU   &(S) -2G9 m rh "$   E&n(* R+,@ q GHmN R12Q 8k s (D , ./ b N @DHNDKN(1 ND3   H N6H dh QkQh (     S .  M DH Rh +H n    Q $* . 48 #HmK( Q  B4  n&rH'-.dq (  S&'( fNDA DE HmnN   .  M  QTDH K&. L  &  +  , / R $+ . "dB H$  , 3cdh o q T$W',T.02"(  3  4  .   Ah "a d f h ikl   mn  sv #( *,kH - h  kmd k1H M2  dh n3  9H  N kh h !$h ,-dh 2dh 5 ,-de h kmdh 2e S 3 dj9d` dgh *-.dg hkq  s de h 2BSh 4h DEH NST# Ahn  EFIO   %dh ( R- dkmQh d2dh S#dh qv 2de h DH LdvX!HK".  2 6'(DKF$dl&H K4 D H ҲS  DrEKM$(  Uh. 2  nS DH  @   rDH MO!@DH l%'(MS)DH4d&BDmHmrJ KLd g sV+Dq H C ıHҲdh DK  s9H #k    n(MҭG .T1 DL3  "dD  2 3   h N % &( +D -h `dh kSh01F  $(MDH ,"$( 6"$% '("kH JhEKئ`dh ' (dh K dkv  *H , B d h  02mdhSV5kH T6h H 9  HN es` c de  h mo s tv RS      $ dh Yh -3N5HDH !H "dk  #f   Fh Kh $bdh kѦ@m G  H+    ELh R - h l 2 dkmS  n3m  BHNS k a b   d krv"B G&(d* ,m- SYh .dh kr3d 4GAh h k (h -DR2dh P R 3  H" h  ' qD  ADH Kh LgjV.  DGhHm& H  N@ D  N &Hm++dh  N&H DGثCDE qG HnrQ gVah 6!  ,H DH Sز"d#Kh & Kh (DGL-DH 8@ D # $   & rGkKT (D*@D  Hm,DDH rhӯD 2h N4 H !"$DH M V   (rKM    D@DKh ҸH M "+    H N Q 83$( @DH +  ( .h .   MQ!(d  +H .1 '* h . 3T #$ yr&( ,1S % ( 1  h  (  L "stT       s#QV $C M'(q   BE  F OR  DH mN  TDrH KM. 4 5H8 !NQ#knLQ n( .   @ h  A DEF H hT; hMOQ"    # H   dK  Nh ( R*-DH mN .h hO@ m sDdH k m K  45  8   kB  h S( S    n t  S/H 1Hy ST 3Hu  NT BELUV!mNk q T "H  @ AHefmn   ҤD  Et  K   S V&d(nB  DMH r N R,H -sfH .dh xT @ D   H N1HN t h n N@ rGH  N  n Q V 45H 8 !" HL V اDHL( MD/2 D sHtN@ vH mKNQ 4  H   n K n xO  QR  S !"` dh tv$F   dh o v  %' D q sKNk(*+ -HJ T3K T &+H dh 2 svH S3  H   h q@L(MS. (  ,k H  (( 1H  q    QR (A@Ho T  23  S T  @D    Hl oQ   h   Tq $A q L   (T3 H   ns4 5 H(2HO   V%h H &(dh h lv R+Hdh K    ,   D EN` h  k-  h C   kF  h Mh R dh   .S Dq KhLOh S@     BF h Hr s K d   hn  dh  Qdh q2H RS  h   DGS d h 4E K MSU  dkmdh "` adh klno t#$a h  de  h  k R S, r01 N QTV 2 Gldm5 Q ضDH 8  s@m`dq#H $ks %&M+a gh  k qdh ,H M` lDdKMh SL O  h 1 dh 2G 5  X  Q n o  s  N S(*H +r,R .h HOh 1n   H S  T2C        .    hn M   n   8    kA  "dk F Lh -1     dh 3MY$ d  s  dH # $ - cKh Tk    l               1S(MY1Th  km dC (` dh u  A Lh  N dh g C ddh M  R AOh 1mHe mrs2ddh dh     kl q 3 4h s 5 DH ҸHdh k m st` dh kmUh %,  - 1 Hh 5   dh $  %g  nS,s   ` dh -dh H dN SOh 035dq !"dh vC GҦFh (2kmH STa   h ST4adh k5H6h  H  Ah G"dh ,R  -2 3 S dh l&   D H 1 2`dk DH SDHm !  h .16 "@DHkmOQ R SخMN3# h %(MT % 1h 7  H$  -sHy  R  .EDH ҭ@B   D3  M!"DrKMҤLQR S%( cR+    fo   s D b     df H l mr Np  T. Ldh m `de h k R  H4    MS@  DH   T  AC K  `%  (` M,m       D    m        q   Hm r           N      sT           s  ./  m   q      r  s    D  m   s       H   K        d         h          N  q  r   st  Q          h n   S T    ms     14 "   uD   c  h  m   o   q   r  dHk    r Kt   Nq  tQ T    r#   m r  H  s   N     mT    hs%   D  c       r   sH       f m   q r   Kh t N   t   Q   T r   sDm   rK   kQ    d       t (`EM) NT  m q - D    Hmu  N s  0   h 1@  B      q  D   m p   q       H     f  r    N     l m  q O     S     d   h       q                 T    l      3 fh    l   l         m       r  wHm         Nt Q                   d h        n        T  r 4 5    Dm       q            H  m u N jk T    $( ADHmNث@ DrHmKMҭүD     1    MQ (KMN  + D/14 A BH rQ V ˣ@DH NT( msDb, ADk  HdmLs TV . MdN  lT    1  D     k    r    Hf N  c rT   o   2DH3H r ( M,Hk  o  2H KT ( 3DN 8 d&dh +mN -  R    ` cd                  h kq Kh N1 HRh d gh k qx 23 ` s`dh k dh n  (    !N$dh ' HH ,. / K" +-.(rKMA"dh k o# h %dh  F(Lh d-Hmth  rMR2dh dkm3H 5 H  6dh 8N9Hkmdh dRh Sh   nt#  H     T  $`dh ,. R/2  de 3H5DLA" $,H   h R -h J  /  2HhkmR 3H     pSdh " dN T( , -H.d dh Oh 02adgh lnq  v 34 hAdh DH dh 9 a e #kmrH$dks(h + ,k LOk- /@ dh N`3( . R/` h n2     ! (`kMRӲ 4 # h &   ,   /  QHu  T     (4  n  t '-  m !" %(/H   BShnDH ңKh ҤS%(Mt TDHm1 D  H  2H N@  HKMR 5 sH  LH3DN  !KMR( +D.T3G H 4H  H mrN oq s T    ` h.3HT4 O R  !H Kh R 13H# س,4  - 01زDH  Ҩ+D3 h R,H @ sDH D MD"H # HkQؤ& Kh (R-D34h /KK(M TD rKMQ+ D1 NDH L68ADH 3 A( U4DH & -dk/M(rҸ# h DH !# +3 N( 9 h S DK  nMVD MDH ӭDұADrHKS3ak RS h T$  (   .  Q1HN4M `  h   LM OS tdh $ C H u K LM    O (C h tLOR  DGH +lq  rD H   u.K L    M  `    ntT1  l or Hh  4h     ҬDH D rKMұR   h Lh T $  B M  r    d  l q  (  B   DK  h M h    + D. Q1 NKM4 H r$    1  D h8  &dh 3 $ T  d$ F  Sh A    B h F   LM  p  Q U  ./ 3N4h Fh RW5H    M Q $MQ(KRB  F Kh      Q   Sh 4 q8    (DY,-.      Sh T  m   krH @DHmrT4M  5H      $        Q  ( + D N     .  Rh   1 D   c r    H  34hM   !$K(Ch R U  h ,H.1d5"D    Q   $ F MQ u ' (F    Q  h nR, .   / sD  H r sN  m   23   sQ  t   4K   H  $   Mf  h  l       q  R ' .  T1 H  N3  R    R  $     ( s  Bdh N  Rh . KS h T  #$(  Q N  " #&   N  Q  D H NXy, N -/G q  1rQ3 NQ' ( D 3  H T # h -&'+D@DsH s          H  c  QT  $  &H (`h-s1D   Sh n$ S (  4h M  (     t+,rH /  &HmK( *-H .#& X1 7' +  . /H B       EKR&(   k   tC   E    F    K O          Q   q R  s U!    D   T   @D    G  H     K n  Nklm              q  s t       u   Q      h      T r   #  $LM f  s  %H   &Q  t  T r @  D   uN    V (     M   e gs     )T DH +  N   c  x, m    D    H N  - .   Q   f  h V/    r  s  D  m    q   HK    d  Nr    Q   T   0    h 1 D   o r NT  2   D l     m   qH l  o  N k  m   T 3 m r D mH  m       N Q   d  h     t T   4 R"d,3Mf            (  h M h R n.4  b k kmh     hDX3Q  4   &H MH !&  qH '+,s 36 - "# E ( @HN./3 s ( M   d h; Sh *-DH rX. +H DcA I JmLdsV( / C"$(Ҭ@ H.22 Q( 3H  h nde h  k"&mKK2H S # $h ABDE F Gh H OQsS nqtVh 12 s( AKM"%dh Fh MN n(`dh *l s    -/H 2 4AqDH dh s de mdh  k Q  #h &- 2dh l    K$%dh v+dh -` dh Oh 5   vH 9   ,-H .dh KNOh 24S56dh Rh  #Fh Ks (Lh -`d  /2 #$R( +-Hs-!H (  +.تDH ҳH +DH rK Ҳ. C Hl@DH Mظ A KM,. DH K S"ĤҦ@DDH+# +H   kS$( سADHl$(E dh U dh -  (      R. +/KQ3km+ #$CH,TDr  H үG 1 GO  3dklp vL (rKMD  LVF   $( c$( D      +  DH  $ ( s  -     s ,   V(  "%dh -2DH nN     4   s  ($   L Q S( h   F+T u.  4h  $'-/ G " (3  RSh Sdh       dhn   ( /h 23H n.h qakR1H Y"dh nq                &  Hd, . /  5 D(1 "#&  ),    -.2G379a $(NO sn2$((- /l H 0  !V(M #H 2u (t -  B   T2   M  Qq    RS $c K    Y    (+D.   KhRT1 N   X  F h HR3  H-  @2hSh  $  13H   $'  s X (h +   .V 13mh  R  h "dh l ,  N   O   Rh $ ' m   H (Q    +N .h L o  QT   q   1   T4   8    $   u L( U+ . F d Q   RS  dl / 4Q  h   H1 hU  ( . Q    1   h  $ (  +  H .1u N 4         ` dh l     (    R  U ( . 41 n 4O (   .    $  ' (+   -4H Qh   M    $dh o  s    ' n T  (  h Q Sk . n  T1 m  Dmo  HNT 6   - 1  M(  DN Q   Rh.H       R t1D TX  #  q & Q +N- / d   x2NS  k3GN  `7 .3 h  kM Sh n$( K Mnl o S U   n#@ H LT"dh n*   (   2& H3  Sh t$.M 3 /dh   K  Oh Q  ' . 1N4     3 ( + . 1dh$ s      S$K `'s (   1    D N4DH   h $ad(` hN -.8     'Q+ h  4 N qQ$ (.  h8' " d#H +  D F    su /   2u +H KR e t  @DsF  q K Lacn o s vdh#   CK-h 2 *H +   Uh X  dh k&   +` dh H   O 2   $ k   O  QR '  D(S     h + l T r  .   Q1  s T 4 Q R h  T     ,   1 dh  h T   (    K  .  4   +H 2d   h DH & - 1  B3 H   r   S$      C       k M  r Q            ( Qh + m DH   N h   q  r  .   Q Rh  tT  1         N 4 M Q  $  M  r    t Ql    m ( f  Q  . Q 1b   clm n  o   su   D   H mN T r  #+`  d! Q%& ( +DH/HNS36   +1  4 Kh (Kh   M2  H  T4 ( &. DH `Tdh kmDEHmKL MVk 3e  k ( * @DH  mNt,2g kmrsH s3   (    MR.   "e kmh v# %D-H ز3  "HV %&( DG H K XT1D N3h    m  r'  D rH M hkE ' N ( L-3 4N + dk 2ht` dh  DH $ DE  H K  n 2   dh G   T   T$* 4 $ .!  ADH ҫDH  Ҳdh -d (hM׫@sDH N .h   (  ,4 H D-# &,D    HD. 1Hdl tT a3   5  HN3D H NT"dh (MR34d@dh  $R- 2$f 1Nt4 S*  3 su  h $ & 4+dh  v-h  1  H 23H'dh , 4h   L !"dS(A FMO DHmجCDH ms 3  h Q hkb  "DH ҤKMr&D      (B MR S  + DHҲ @A q tB  E G KLdO  nqhSV ( @  DKM2g kD GH L  O Sت2 TD"%  +-3rH   9   S$k( 3K  A  "D  n Fh O Q  gs(dh ѪH ,  H L -Fdh MIOh 1H 2a dh kʳGHKMS  T  4  S5N KҷDRD"dF  Bh H dh  kmH r2h 3DH  Td h $& ,  - h kO dh 1`  dSh dh B  dh ҦFh .dh k a dh YOh 1D  Hr23H R4 c dh  dh BD H 8!"   M %(hk*,-h .  h 12dh S3H rS D $( 6ҬDH k4dh r&H m' D2d DH (ΪK+  dN 2   DKh MT@  ms DGH r  Oҳ@A qDE G n H KLdMOq RVn/H h !D  H "e  oH  mҤ@A n B   k  E dh  q F  q GH  J  Kn LnMrOQ  Rd  g   h j S gn UVn%&   H u  DK+ @  m  D H mNT    -  2  NV nb  q vHe  r sM QdT m 46 3 DrH KM-` d h k q`Hbn SD$& ' (rM$MS  t &  L  N Q   (ds,vH -g h  F de  h  kmS 3   Qt   FD9 h"  CD AlnEG n  H KL  S Vg Yh ( - D Y 0    2 dklmvME  Sh V4h8"S#$lM     Y&G  H +d- h 2dh  35 9h  k "d(+   -`dh  2adh  3h  6dh  9 (b e  h k ,2   $( D &D4  "%    ADrM,   2   3  h ( M"   @    H $d&bNT-H! (N DN t-H s.1HNز3   H  K( K  MNH m3  h4hD  !H K +.1  #H % &.   &H K( حDE H ` DBGOSW( @  A DnqH tu  N vs T.R5   D6 Kh NBS(r,4 DK O Q sV3( @DKh "N# & Kh N ( MR  + H, -H  1HrNT 34  5" $ҧD*+.  DH  2H 3Qn      V' ( . #k&H T-k2h39(.D$AK S( DH ( 292 H ( @   Q        h n hSUh( ShT.1DHkK   Q4  H   G #s%&  + , N  / N 1h  MQ!'( @Hm  .  1l 234  osH    T  3 X  2 9 1 3dk4h -d.NtҤ( +1 2km$D & h .  DH $H,  +,/& G-H D DH KGHr3@mS(  9 dCHn  KMX,t-h dt 1H  2dkv4 9Hmdh dE C AKM#H ,  O -dh 2 S 3S   dh @ sT "  .h  1 de n h 2`d3h45kD H ( KL@ DH Sh nNr d2h DH  NDҳD! h +H" # tD%Q'(+Hjm,/ D NO6 3& h  3Qn ADE R VDH +  # .!AHKLMV $D2&n H ( M/2 H 'H3H 1L      DAh "e  kHmn  @ H mT  %'(h L   N -b ce h   kl o r FHMdh T   /eu dh MO  2dh dg k q3e  H m sT 5 x Hdls ظA DH r9H h bdkm"$h ag h k mnu vdh &N, - N 23BDG H C H$U  h n %+@ KdMحdh  Mh үOh 2 kl Sh 9  dh "F (, .dh  Uh /H  2klm3  S4M  dh R5 DH dh tSAh #h  $h R   %km,  O -dh  D - 1   d  gh  3 5  Q 2dh v  # ak o H +ekEK n  h  k-u23 @DH  dmدD,H /!%qK ,D-H / NGK 36  h *D2@'3H T   h Cn -     2Th B R Q  (`  t  DH KM`#$-1& Kh 4 Ds ABCqDHmKh O3`"RAG MS V(CMSD  LNT    VDFҳDH  5H ! (  +,  D  H Nm/RSS"Ah nB tDEFG H   dkmvJ K h LNQg n  o s V l@DH LNuҪD -H.DN4 ' +/  Hkm  R   ! N A DrHmKMRSnVnؤKD+DpNDEH K N   - . DH rNR 1dN h 2d kmEL5D -2 N H m"dh vEҧ@( +13H  @DH -dh 3t {Q( . ( DH 23$( -S6H m( +@A nCDFHmK dh   n LO PQdls  V ثDH S DұDH J``a    d e h k  vD dlH 5 HkmrDH Kh 3Ng. DE K DDH L  %& -NٱDK2d $&(nN o sT׫D EHҬDR .DE  H K  L  ( R  + N,H . KO Q   "eG # -/1ز  K@fDHK" DH l@ eACEHRSnT V( ,oD s H-HDH r/s  Hm D G3   H3H     $(   FL$#66$   ( Nq#@N ( 1 N  A nqDrG K h   MQV    (   #D f@A DLNhSخ , 2  D LP Q  Rh&H Dq H N/N o  زSK ( . / DH 3  N  fkq   Q  "dg h '+r3H dHR  طD !HKh h& - DDH &(   &H G6dh   DH NuT(DM+ D HN  g v@DH.F2N R  AB  K dhL  Nrv  hnh os  Vn(KMF   KMO R  Y1 TR ab cl    ( D.  ` dh T2DKV Ҫ@DH TV+DK12HDH 5E K  ( * /H KB#$ ( , D.V1 H  e N2ae glo qv 3 H   (M/s   @DrH K!#$'N+123r -K2a     g  j  svH LSdh  #U(DH 2!$1 R h 2DH LMR&H D H ҫ  h j km!Kh T#Q(hK  ,H N .hn DqS4"ad#@DQ DDH Ql h DH .1H d h EH Kh  DHkm23 h "h ,   + 1mst  HN   d efko   rtw   @Qa  d e o s  ' -s  .  q C F  ORS g         3!N+   +-HN  'hkS -    . K`R  h  MR( @H h  $(h . L  Q   h   $ h     ( MS-. 4     Rns       qH       $ (1 Th 4     M tSt$ C LM Q (   M .  CKQ s   U 4 hQS   H  Kh o Q  R    S  $   B  C h   k M d  h Q b e  h     l r      s     u St (M NR + mt D     H    dNq h . M Q     Rh r  S  T   U 1 D   f    r      H mr  N lo  u       T  4  FK MQhS " t S #  L U  h +  -H s/  q  1 2 3  4 F  RQT 1d K  M  sO    Q m  $  rs OR DH NV(  M  O  Rh  nS  h +  H   NT r  . G L h l   o         M  f  r       s    u   Q  q    1 c    l H    4 tK o L  ` q  B h  nDE d  h   K L M O   R s S    dh ( B   d  DE  F   m Q R    o   s  STU        . s   K  L M NQ4 B  h   K    R    6  # % d h  +D H  T /hkm0 h 1h2 R S  5   7B G N O   h k q S  h  q    LM  QS$ ` d   hm q s R (D F K  M   Q+    s  D  w H NT   . Q    1qr D H   4  Rh$  tR+.1s  D HN   Kh Q  $  h   (   .  R 4  s 03      4b Qh R ! +  M$ . S $l( *.  tU   4 L     % / O 1  F  4H r 4  hS "  t  $ t L  M  s O Q  '(h Fm  Mt   O R   .K  t u L  tT  /  H  3       m   DH  km s    Q        4  r E   K  h O o Q f  h l  nq F JM $q     K        L  M  r          `   ab                   c           d e      f  hi  k       l             o               q           r       s tu      v  R  (    h  K   M W   1 lm  rt u D H f m N   r u T r  4     13 h K t Q  R$H M  Q R        S(F  M  N   R S h  .HJh K   u   4     M M(Yh . 2 3k%+ -  HDl2 B DH dm0 S  V$   n    C   t E F  K  L O k q  R n   o   S U   n ( S     4 ! #( 3 hM +   C,s2 3 N oQ  H  '    2DH H 1  $  ! H @rACDHLOn .h0  & 4D   N$s,H & h (RS-24d$&1H   ./ h $ ! $"6 L  DMD  Q   Heh  -e   DH m.L124 5HDH 4'+ @3Hmr$dkq( 1&H Kh 2 HD,  h NH  3M0!H + D . h4  M& K MnsDH dk2 (  sh DH  S$d0O T(3 h 3H  1   d2("% +. 1H(  dHrҤ&l H L (h S2& Kh 4 kHm 4  (m T  h ίDH  t@&K(ODHҮ3DR o   .He   KM(3H  h      H   (  * 2/4$(,H-  / ' D KQ1 8 .DRDH KMDH ` 2  35#-DsH خT 8 ,D. 1dt.3 ! $' -S q 6 1 (ADH N#H -   D DH ҭB FGL SVD. DrGKh MQ$ RsSCEK OksV2E GL6+ /.2h DH "B3H  7/   v/5HdBdh O+Ӷ  j %H & 2Sh 5A"cdh n+G Sh H   K  ҷU   3 ( * $M N      $dh k(KN .` dh 18   Q  ( @DH K. 013 HN#$(+H AK R$&DH .3 Vѡ@CDsJҤM  R(  ,H A KNQ "kH @DH KntLN  b  k ҦTh  n. 2 3G 83$(+/sH H  " D$&kr(H o58  "H$DH DHsdDH KdKM`Rק(S1 3H@ mD &` dh   s- C q 1DmH2 SM(  .% &+,  D1 T8 (-$dh S( ,D.T(rKMA "dD H lDGHK&@DحCDH MүDEH ӱdh 2dH v3 5 H  n3NT &"#DH ز6G  HN hkSh$ &H ( kNR      S  4 h  "#&s+2 3   H .`4 DH &  ( f.DH@N/N 31Nt3(+H.D ND"#'q3  H T  Ndh k`@DShsH K(nM K(!$nQ    hs  ( 1 D 8M s'(DH .+" &ҲS A nF Kh n R S DH N  MS'deg h km v-  KdV(  (D+oسH  DHTKQR (` dh k. DHmK N #DR@l  A  LT& Th (  M@DH . 2DDrH/L StH   N!N+H 2 D H K   $`   'HN T (  h,3 KN4 K  dhovs(M9  DH ҥDD3h r 5 !h + . 2S4 hkSh DHdmMlTL 4SR &H L  H Q  &H (` hRSB 13 (H o  K R DruE G nH  rs  g sDH NҬDH ҭDG H 2k rH DH ( /H 2 KgKS(-1 ( @DK'(3DH4DrKMR  (h u -h 2Hmس5Q Kdh nL  h (  #$ dh R+ Hزhks N+1   $ Q (hmEK MTDHkK1s( , 6 3$&DH 4 V @Dش D  $(M d  n,DH4  BS"dH  dh (MDH DD EH QnS'T  4     `n  d#(`h   PQ RT !" DH m   r ( DH , .1 bl   "# H HK h nL &'(+,D-. 1Hf + 23   #  $ &N` hR ,-m sD   H   s N T./4 +. D HҫAnDH LҬDE K L`o sS d 1239  .dh g T(  BCi  qHOQVr" m #HCEMjU    %  N  T   Bh F  M @D  N,-T. CM/1DrQ  5 !(,qNB  F   h tR"# qsDH N Q dST  %T& DKh '  sN nT (t E    n JKO      S* + ,-Dp  H m. h/0q HK3 HK4 DE  LQh b 9 (+/H   ST !  D dh HT#& DGH NT( sF G I KL  Sh )D     H l+ HN, qN.0h1H dmN h D `  dl  STGH X5   HHK h"NT  $DH DH . hq0  @f DtHmuD       GH  eNhT "adh kl  h     mҧD   vH ( MR1 b   l N 3GHmNQ4h 9KCDH 1DHms 2  5(*h  tM6 M!$% 'DM `rS4 . N&S m C DH   Mh V 2 T    '     k #  h (s `   DN S  d T+4 RDrKMH    O Q S.2   M  dfh!N "$( NR+ N. q  ͳDH 5   Q $ HQ    h  / h  FQ"J@DH mN(MR-N  .DG S  T 3 GH N   DmG   He k TؤCKRS&H CMdn+,1kl l  5X6"  $ D,  @Dm HdmA   k t v  L  O  RN    dh ' c mN    T X(  D1 m o    3  $   2 VK 'D  HDH1` ab   e l n  o  r   v  #K &+ -/ 12 qT 36Dr  Hm8Dh -1 ms   DKMQ@s '(S    h DLVث@D    H cf lmn r s خQ0 HN6  NRS j qM Q"lH @ DEH KҤ`  us & h @ B E L h tMNR  U-D rHN.h`2D4 b S  h B t  FM(M13ek  M  O   !gQ "   qD k   G h H N   t Q #l  H $` hk%N & T'dL(  s   )  +D ,   s- N . /    Q n   01b o   DGH mn r uNO   S  dس@    DKNQ  hto4     R ( .1ijD$( 3   DH ҳ!H ( h S4DqH   hdh Q       (E   F  R4   tL  V 12d mt R@ADH ؤB G R (He Tb .SD48 $  ,BQ  RT#Q$`adk l  &N nQ(DSn DH,.  k F q K nL dM O n    QR  S n  W12NSq3h mmquF kH LO QR4    Hkm$@AKg H rҲij( /H hkRS U!# N&DT( +,H .hR / h n    1N2@  F H e lNT"$+0hسKD  (KN  U  +.ab h 3 h d h -d`      dh 1de h 2HRS 3deh oN @ L (M $(  Q( DH Q  .T4#Kh &2   HKh &Hmز  !"h (@DH m3b c   kl  m o          r s  u  ! h ,He/ dh # &(h  E  S.# N(H, /1NK h NT TQ (` h n  MDQ+DN  q س@emqD H M kMSK(  MhnD N4   h  .K  /2(.13  3 H e pHN   !(M  &H  DH 15ks km K` (M"$-3   '*+. /H زNs1 s  N   h" 'U 2D3kmhR"' (     Uh3 4     n  12n3kIˤ(    -/ ADrH KMR DKM 4 n   DH Kh S1 ors3 DEH K h M h  + H   .    1dha     R23 H2 $h # ,@/'.3 5kN  DH Kh N' 3H Kh 6 1r HN  o rs3Q   h n$ls (  !" N $R%  N  +v-/ABK LdO  q QR N4 h KMRS'N DM  . KS 3h& Db  ce fh  kl s     +  T " ShsU3H/H Kز 1HN  t6.$h( +lm. T  #H Ҳ4 k l  HkN  $  (   d B Ci Fq K h S s  !   Q  " G  N         m      nq# m   r H   Q x M sP   R tS W h  o %HK  T  ' (   s + u , s - ./ x  KN kQ 1D m s  u H2 h DkmL OS nTX 3 D NX4 R5H n   Nk s 69 ҭCS 2C !#L %   s12l3` d    k qt  v  N6DAkF( 3 Q ht  kQS"dh AV'  ( h E MN. 6  1   $hksLM(S '  ! (  n tH&H (S  Hs D  H  KM$h n   ( R 2  -lqH 3 " ,1 l s  G 3 h   n   $+ +L(,    ( +2HDH          ( h  P S  U. P  (  T  $ Q      R (.    3 D  H  Qt    1 r 4 ( N    ( O+ r4 O  h q   hn +1GMUh$s( .F OtQ H! $(+23 . 4 HKNt !$  r dh ' (  h    M/ 2 GO S$ds  S( (" $       $aR(2 .   5H t  +  2Sh  O  q R  U .  (-1D 3      + K   ( D 0  DH KM1a ms  D  -H4  Q    Rh 1 N$(` hL h tN .    K-t3HN(`h D   H  $dh k (     - 4& Sch     R(D $   %&   -. 2  $    S $(    DHN   f   o q    (     4     . RS(   s  N  ( 1  H  v  $L m) D DH !HNt QT"KN Q#Hr   mn$l%H  KN&  h QnT'( +   rDH  uNX , N-  / KNt T 1 DH TD G n HyJLO  qS  q 6 DHN1d3ұ@   bfkvA knt B gn     q   tC  h  q  tD l  r  w   E k F q G   d  t H   IK  n  M O  kn     q   Qd  h nt R g  h    jkn o s t `  g h kn t TUV  g   nq%  ĬҲ $($ (   sH   L '( M@ qDH ҳ#HmKh N+12h @ ( .ҭE K  s  adh DH 2     S   hEKMN  l S%(  R@DH NDH. /  sH  3Q$ /DG  gL" Q#mD  Ndh Ҧ'   (j-H .  Hس@  DGHm N   QtBkM X$a dv( R./1 48  n B  Ch n EFq  tJK  xL  d   h n M Og   k q r Rnx S !"dl # M   %(L M  hSDH V+ DH   N. CKW01N 2H  KMN@  DG  H b         dmrs KMNQ "G'@ f m qH n u  NOVqt Hk lMNQ hT    "dv K   m  rD KNk  V(  MR1 bl  n N     3HmNDH -/2H L ( M+( A g  "#$( +,D -.1 !"` e  l  s dNDҫH -n@  " DH .3N4   MM# h $R (  BFL DH DH үDG H @DH K5H r  6 !&H ز    @DT DH Q5   hsM"G H# D H T $ S   &( M S   * ,- DkHkmR  ز@ Hu @lD G4  LQ SH/ h /  H 23cy " D  m  o   ` dHN T#s$ L  M  %      HN       T  m  r'( FG n LN  O R   s V ) H +,m   D  Hr   T-./  s      K 012   u   G He l  r   N          O h  T     @ H     T Rh U5 r D  2   D H k  K dd(h 1qe N3H dkmr4  M$3&+ Kt- n1HL  X 2H  -    s 1  + m   D G  H r KN   r      F.$M-ls HdmN  k 2 O    3b   cd    f    k   l  s   h $  KT2    n      p  e9X " N @D EH Kh O T-   3 T   &! "lH L Bh  QҲ3Hr9  $ &a, /JS3  S% & ( @ N.h   K ! "dh T@ ҦH 'N ( NDHrK- DH . /  QBS 6  4kmK S( / H DM dS.T  "3HN "deh $ % ( DE K  .3 DH R4H  `h $(9yDH s akl mH m&  n Th (b dkm  ӭ@ H h sMh N ` dh 02hS h 3`EH s mnSX4R  a AnDE F G H LQS h V 9dh `    h  t  d!hHrFh -H sSh T347 M$Q&Ch  O2Sh 4 DH Lgdh Fh Ҭ@dh H L dkm-  Fh dh 1 3m( ,6  n dD L (sT2H y Q   -d  h k 2H N  e(  h nBL(  h Ml R S  h    *DH vNsT  خMh38 s  F knqGLdM n  g R S n T  $ Q ,@mDNrt   GD (3e  tNS d# DH үDDrGK"(+H/Hmز4     n dT &( f  .T /1@  fD E  G HbnK L Q lTHTD(Mh    2   H   T@BCnDFGt  H  L dOn     bT   q V  FRrS!  $     ' (+T. /CG3DH d& +q-dh DH 2DH #$ de  k        &  T(Rh -h 2 3E k D H  L o Q " t  D   oH n o     K N m    n T#D r s  H          fk r N     $    odh W% bsD        HK& 'm H) +H   sT,s D   HrtN  -.    Q  @ hq     N    r T1pN 2A Bnq   D          q  H    dh t   ST     o 3    rwS   Y5 k  q   D    Hn 67H "k H dh k#eH $ bq suH s KLMNdh Q-  h   ` dh n./2 `NRS 35s  DHk ط9H !    s H sK N" D d r   K    h Q    d    tST   Ch H  T   $@ D      EH  k    KN  T r  & M  Q     d    '  )    + H  Nm T D   sH   r  N  s  O   T    -mN   ST .q   @    mD  m    G  x H s N  q    r   t Oh Q T  X 12B  q b    k  NoO Sgh  q 3 f Db   fhn r    No  syQt T  4dkR5  H    m r   N  j rDdh 7lm  qH  -H 1 2(  h  h               , $b (+     r  D H K$ & 1 SDH( -  * (DH LN, H2s  H 5   (, Dq  H J"dh S  t    #&  (rKR    S-H 2DS(/Hز G  KMR&H ( RS DH N/ h N  r    DH 2H T  h 5HBDH NT(  3  1 HBD H    h    (.  d S 1 Nd#  d h  t  %d& (M *H +  s -S t1   Q  hd   2d35  !$k dk+dh ,- S1T  h 2h      34H   "d hkmr  $  dhkmt+d-H ` d h t  Oh 1 h ӳSh 5 7Yh  3a s H m! mK(kDBSV'L  ( MRD H Ҹ '  (ms  B ` bdfhklRT.%KDL& H ( -3 DH ҫDGH KQ V, ABCDE HmKsV2H  ( R  +h /! h T ( ,H .@ mq12D"dHN@N  ئk H تDrH K2 NDH  '(hkDMR/H NQ  T AEKMR(MS KMADH  3  "'( Mb         3  h   -h n ( N R ! '-!, .( .adh P ` dh   n@  DH mI  h %&D DrH r sy  KMS- DH O  k n    q DH L  dQ    2   R   ht  46 $k   (.T 4H  Jh s     MO   s $h Hu  M O   R' Dq(Oh q   Sh *   N +lr H  T.    H K    L l     o  M    c  em   r       s   u   OQ T  oqU  1   H   NT   3m  H k sK  NT4  O  q   r R 8  !Q"# rH r$  CD  E LO RU   '( R  s  -rK MT  m1DJS 4h  s  M O 6ATإҪDH DH , O k-E  KSq2 5  7  $d  q (  M   h +    . KQ   1hD   H    4 FMQ   mRh S h  hkQ  S$ d  (  M N R   T- 1   N 4     tQ    Q  R $   (%&dh ,     OB  nCDE   H ds    S q U h23     .  4       S h     `dh dh $r F M  U (  mDu F  M   R Uh .B 4  H   Jh M Q  q ! $ L   (  fh   R s  - . K M   Q S  T  U h 4      LSD yH Fh n ` dh %HL T    U V@DH 4 M  1F   H  m    Q sR` l $    k  M Q sS   '( +    mD     sHdh . Q  Rh r1  r       Hd l mrNa bc    nu 3 4   C  F  K   S   h   Hq   r  s4 " H Th $ q   L  M   Q u   s    '(   h tEF   K  k R   .   u  M  Q  T  q /     k H  sK  N      @s   t DEH su K  Nq    Q  h  tTX 4   Lh oO Qf q   R  o   JK  Q "dh $  M R' ( kt DMtQ  h . NQ T 1  h m D m   Had  Ne  f r  uh 4  8-ns /  2 3 L $ H  ` dh k qMtQ      hr   S  ( KRh S Uh . Jh K t    u 4K5H  ( Q.T 1 N  ( -t. R23 4`  r bHN  ,t-C H 3  ! DH N". M R @DKL MSDRB  # DH Kh &H V(   MKQ+lH &H 'd e  g  hklm(hk, .n  *!+,H  DH Kh2H DH N dh ./H Kh ( MDH 0"3 4 9dkqa dh (4 Akt  GhsVDH DH 2d !HmؤQ (r.h4   D@vA De E nHmOU .#H MQ&-1!4HH  ҥ@DH m b s    . DH 4  #-DH SHҬDEH L-2 dh DH KV( A K L Q@AK LMSV(rKSm3Q6  Sh  nM ' (.Ѳ3  H 4 `bdh kmr+-`dgh kmnt2H RH  (  !#$M(  hks"!H rK#M(t CD1  H ؤKMR(  . o@%  HKh 4!&  @DH N  (  ! h $%(   , .dKh T V#$-H 68Q/3kDH LD HDHmKh  O D qK  3 !$(+.d1H " 'B DH 1l D  H  kN r #rK h (+-F J KRS% QBAK&H &ADH N -dgk   A BL Qb  lov ( MfRU+h ,. N ADH NO4S h 5f  sH  h!M.U/ h 24QS"S      t@AtDE H LNOQs VؤKMR@T   '( hJ3x ( + .  /GH زB RSV" N# N & 2 3Q*2H  h"K  ( DQh R   4 c 8oHkmأ$ -S23q  M ( Nt.  dh `5#$( , 8.O $( AdQ%  +vdh H Knd,d C   h  Mh h / T @B  hbHmKQh U3h  N S  5   qHd/  GK  L h Q(  RY  +-N .    N        mO 4KLX 6$ s  ,-   .2  dh +dh -.dh dh /1 abkH de OB HK h4  df h dh ldh  a  ah o S  Vm $ D    a c d(a  h l O U . ST  4a ELO t  S   # %k+ O  1  U3  !q"% N& @ DH Ҭ@DKs/ N0 B   DH ҲBGHcN   DH S 6DNR $h R + r.    1     @H N4   Q h S  h$ &(   S4h s K BHmKh ( DH  ҬDH  Kҭ@DH t @3h   .1   -2 n  9H T N $    MhB  H  K  R *DH N,35   O! $nR( t B  n  E n M n NO  qQ R  vSq  , nDH N$FR ( hN.h2  k H   ms   NT  n  D  H l     mQ       (23sD Hk lT 4 m rHNO$  c hC&` ( DN  ,. /  145 H    dkms 2!B3H K  h 4s `    h k Q$(   $(+3H NT4  , h  "dk H N %F * ` c H m+n N@A  e   k H Lh OQ-FMSt /k H 1b g  H Nd kmr 3 5H M;Kdh S UC $h r dkmdh (K+`  deSU-  R/G  1HeKLQVn  $K %dh k+d h NL h ҭA F  H  Mh SدAt  Ld Oh gV X1dh K25 "dh  Ch  H KL s )-.H dh J KOh S V1k H `b   d g h km v2 F4   dh 5H BCD HkmLdOkQ O $c U h( EK  LM U.4af M# %  Mh dCSh k ( +-2D( + 8( AD HKMQ@A t K n LQ` gsvSV h ( +-E- 125DH DH dh k  ,T @  s ADH   mNO1 $   R' (nDH VثHmخҳ5  rH (   h,./Kh   R4  s    "q %  @h H K   h n T  ( @ DG H +-H 34t  dn'/H ( +23 H  Ҳ3H 4 6  $/ 3H @ ( 9 h  H (+/ 3 DCh $%( +de  Lh C KMh үIOh 1   dh Sh  db-") + Hm1  2 6 "d h m(*+Lh - h dh  Oh s2dh G H S4    5Hmr  DH   Ch F $dmdh  k v U (- /4 H dCH $R&  KLh M-dh h Odh gsG Sh 5A&.H Oh  2dh eS4F5   CDrH KMO Fdh   (h AKd-ʱdQh 2h $R+- d+dhmos 1dh km2dh 3 d+dh d+H  1d3d H SF*gH + . S   13G 4  h F  KM Fh (* H C Oh R1dh 3 9dh $dh  Yh  #%dh kSH O35 Ah .dh SY1H Jd4A CDE k H L O gsAh "%adkF  KMDH H mtرDH !H  $dh km1p(       DM N  k  D1# Hm(.ҳA D rGKMVnkmD1   ѣD H  BKL  M(  `hkKMOS tHL24 kS5 mH  KS! QACGN O Q  u S h V, -  N   SEs(-. hn8Dh  r 'r N l ./ 1 "#  KM&./1HN سDHmh% &E  K -dh k moBCKM23 ` a d    e k ov   5  (! $d( !"bHmn  #H &(C F Hdrh Mh ұmH dk K Q nR hSnS H ST 5 6dh dgl "    e    lnkS   dq        T      $  adh  n t+   a  dh T -dh sF 1H  $h nt ( H mT #$&*H +dh vӭ@C kMh R1   H    e EH S kn  S X$M dn  (h M s .4`dh *  -h R S  .de1 dh   Kh Sh 4dh HMV dh $ (g M   j    S. T 4h M,HdQh d3 S& (   qK  nMQ  h R s $  l Dy K(M Qq RAh H   K h "dh #%dh nbF H M  (dh kb v *H +  lrHdh dh V,EH L d h -`  ah no  EGH KSY/ Kh ABCEF H kmKh dh dh k tUh 2dH3gk l q  H mn r  NT qs4   s5H DH e h   dh s  adh  r$h dkm`dh U%E (ad+ KLh -hN  B CEG dK L Oh  hnV1  H   K `ktN3RS45cH@ Ddh  ko$%d kmKh & +sa md ,T    -dh  dh od/ O T   K Qh  t3 `a dg  h o  q#  (` h*H +H ,dh -g vH m.Fdh FNOdh V1e g j qHma dh ak s 4km5@v  Eh F   H        L M f      ko RS d  eh nstTU  a d$    D M   t OR S  dh (sB     C  h EJ  h  M  h o sUh .nCJh K M  sOo U4s   CF  l oMs 8  Ah kn  "ʣCh D H h %dh + ,  `dh Mh  d/ mH N1  F3 +H r yT,/1 N 5kmH R  S ! "  N m    T s # Th % &' T (M)   Tm+H   T , q D    H r   - . Qc    / N Q  1N B    D p q  H   r  NOS      h    q T X 3 q  H K NQ nX4 5  6 r    H  NstTk   l DH Kh 13d#  H IJ   H   N  Q Td&    -@  BN   sDHTDH m+  Hh /t3Q  S,   sD H N-/ t !DN T#DHNQ% KD+,-H 1DGh OS 34$ b    de    g  h       k   l  m     o r     u    (  /H K        h     N  r   Q 1f D  GKRS@  D&nqHm( +m, N - / KQ 1 m   o Nt  35  H m"  / m  H  23  D  4h  $S Ah #  F ' (+  dh үOh 1dh g 2a S Bh Sh DH 9 dh a dh #H$dh   adg hkm+dh S /1h dkm+dLh R-  dh /H 1dh 2d3  Y 5 .dh dh 1e- .        N/5DH N    , /   G NS  OG   N# Q $.M O3 G    (M4   N !$  +`b    vH N.4    (ktDH Kh خҳE H kK T  س&H .AFN-d/6 Nu(  TM( @DHmث@DHNgh ,. ! R( , D N#D q H  Kh (@D-rH23   l Q89 dh s( N/DH 1M #kmؤ&(* -ӯ@t  N1DHmh @KMTL, 23e kH 3Kh N&-dh  /KMN -  S$ҨBC DH M.  /   "dh T'D DH LsV/CE H KҲH O  h     n     3 #( TH ҭ@3 h N   F   L N O g  q R  SxUDH S T /     rKq  ` dh  q  B MDm  H NQ$L % (-HX.kmH mn  @ s H 4  Q( $ RDH     sҭ@1bhloqDH de  s N   2kmr3D @  sDH  e kl  mN  '1   f ҳAH Tq #K + Hc K,de  h k BDH   q %(Rs+ @R B. BCK Q  h R1 ` aehnrst vL hn              2HO3[kqu "d  km $Uh &+ , dh KMh 1kRShS 3 OR-@DHN    O2F   R   R $  e  R  (EK Uh . a LMS  Tdh L  R VCh Ҧ+H,dh msdh -     1RsQ ,T1sw 2 `(4DH Kh . !#  K V(rKMH DҲ'd km1H   ( @DHmDH   QKh OS V(hkM.S/ "#D%&H Kh (r* Kh -H 2DH   NX/ H K3 kmK n ( 2 h$'(K  +H 134 R2dh F(.Kh ' $ & DR   h8 $    DFG24  SHNs "%,. hkK ҦT(F-H  NAH L ҳ`ador R "J& (`,.   K/H Kh HN"d@Q(M,   @. /HN0 D H2H NTq 5   DH T dh  kh( 3 c h r &dm+/DH rM  dh2 h  !$h dh d glo n $( -` GH dh k`   hn#l n H s    %   & H  (dh ` dh lO n)Ldh k n  V-P    R  b            c e           f   h     k       l     n o              r  t u  x  DOh 24 5mD     q r  6dkh kl R t dh l ! h SJ+ ,  D  N T  -  S/2 dS FM  ! T ms"oG kdk N X # $M % h FN  '+dhNDLh M-s JCү@Kh  NkOh S2S3mrH4  M5H C( )+dn, .dh  /HrOR Sh 4k   FMORr6 "dh T  #h R% (+,A d- gC  2dde h  v3e  ( .2 b  ( 4 dDH 2!&H   (+2  h Q (h,.4  #E K ҦR(Mh-H NiT  $&(DH,@q DH JNtuO s S /  H013  5 2  .h   (-$Y+U-#  F+˭FH J  1dh  2dh B S % N      bd V  'nT( E MRF  K Mh     rM      `   (   1b  l r  u   ( 1fD  !sAKQ"  n     qt G J  P # N T Uh% h Q&(+  f K OS , T- H  M R S/ d    q  1 2  JR t  3  d q 45   N 6   $ sB  J  K  M(CM+lH   T .T  V1  H N 4 EQhmS M  h Q S T$ MQ  '  m  q D H Q( + r `mNtT. K nL l  o          M  c e mp r     s    u     N oq Q qT  o sU13T  4  T  $knEh   K L   M O  ` a b     c d   ef       g  k    l  m o    q r          s   v    Rh S   U (E FmKL lMR   flos  UB  H MT 1 r H  4K  8  sRh  S"   #, O   - t E I SU 0 h 1  2R 357l B hO  k  H    s L R  sS  U $ D  H KMQ S( Qkms W+ s H  .    Q f  ls   T 1    N  yT4  MQm $ + yT.  U  1l s4D H MO  Q  $ qsD KR ( S. NO4 X # H % dN  h + ,  Od n  q -  n G hHIRtS        Un .h0  2N@  Hmy5k D          ( -   Bh C  L RT V$qr u RS( J  LMjR. B NU 4   F JKM kmQq RSd$M  Q S( R  SW.KSU d  S $ DQ .T4    R S  q "% / 1 H S HqK Q  c  SU$e s+ D NTl. 1 c  ilos H   N ce  l m  su 4 M  D  r    H$  r    B    C D  E kF GKd  h  L  h O  nPR n o   V ( OU . L 4 Kh HK sMStU"G H Q  d t $ r  D l K Q S  '   q uD k H N(  mM  * ,  . Khu OTm/  b N jQt 3 h o sD N Qt T4 B H MOo Ql  oR 6 8  K LM OQ T$M  R' H   Q( L Q KT V1  c h l  DHNt Trs 468  DT 3  $ M Q W Q  RS$K '  (  K  M R S . MQ  k qs T 1H s  o1H  .  h   K( .  r    (  b  l( S( Rh U. Ns '(3hm qsQ46  (.4(  TX h3 qM ( $-qs ( 4 h  K &  %  +  Ҳdh  km1Hn`d 1 T y  `  dh kl   Sh   "  m  ( 4N tT  Q( 1 4kmrKM # C Ms Q(  ` hkR+.n 4 s kH 5 H #X &( R S0 38.hn    s B DfsN , -2H  B K 2DKM( N&+dh -DH $     ( t DH ҭDH  h#+,.T45 hDH N$Q  dSY & e  (BR.nTDH   Qh   T  4hB M@ sD HN  s# bT&H(E  KR  S ,H kN t- HN. 2h s HnT3 H f5 kt /2@DH fL QT$h  D $( ! K#-1  o s `h MQ'r( N  R *3 N  Q T- dS 3 DH KO ` -.n     MR( +fh. " #   FX3M8 s  D  H &T ( h3` n  4   F"HN rt  ( kFN` dh n.34   hkL(1Hn4   B K(kmDER    hkS (  kH @ +  " (*+ ,2fhL4 kL h  M    O  h  3( Udh r $( h $  & -  / 35  #H Kh ( % DH &H rKh ( -.DH -V2b k DH Q5H  E dh (  ҪDH NuV@ADxE N  O -/ 13GNdh  D & ( +DH N  ! h DQgG  %'(rKM+H NqDH rKN  SDH  үDH K 1 DH n@GH 6@ AnB DH Q-H 2D 3a e  k oH Qcdeh l sv$ab   de  h kl o     sv + 2@KLEK  d( $( 6%+-H6  +15D rK MSDH /@ DHkmr 23 5H D$2#H &H +- DتCD KүDH 5 dh    km N  DH %DH 2D dDسMV - D  L V+ -3rH d+a H , 1SUDMRn$ abdh Yh +BDR1` ae hnrtuv GR Sh dr%k+H RO dh -H MKO h kn `dh o v Qh 2dh O k g  v GH rLMS  Yh ; # $+g m  KDR.dh R/h 1gl 2ND  Kdh R.dg3v d-K& h 6 B rEKM%hT '  (rKM*lqDsE  Hm  N,H N2DH "dH Aq DE H KdL N   Og nsvTVؤF ҦADH o(DH -H oNMҲKN   S3  GQ( KS(rM #@B KM RA DE H دH سE "bd@C D G n  HNR  - 3Hdkm $d h ! %  H Q5  ghj k $;#     Q DB gnqt D K LO h QgV n $%( DK- 9 DHkmK vؤ@ A CDGH  L  dNQgS +dkvDVح1r h v2G   d3h  k v  m-dh dh -  @ Oh 3e S"`dh B 2dk 3  R&  G-h J  2a Gh H S c de k34 $R+     .O   . dh  (  3, DH /H @qs1DH AK n dh  23 DH N DH   3 dh h 4 (  #*DS ;KQU-dhr d 3e  1"   S    9@ Nt  K(/ DE     -H/H    ( *+H /      -H/H    ( *+H /  1+W'y2 ': :>  ! } ~O#{/v  E!F#s~#$Js~#Lf2q UMss~2o ͬ!m~$ʒ ʒ  +~#Š!\  !\  !\  !\?  !\O  !\_          Q !"| !+"t "v *" ! a !*t ʼA,[,w#t AS[C[C+~w#/t?t> 6#Åw#t t[t+~wx2 *t "x *v "z *| }*x *z zڶ}|g}o"~ *~#fo~G~,~#*~ "x >2 â*~ "z >2 â* : G/_" *w#)*x }/_|/W*v ##s*v #DM! zs>TÁ:q ʁ~# >: }!*: Gʀ~-}ͅuʀ#~+ }#XÀT*:#":!*">2: G*ͼ[ʧͼA[7~O͟~#~O͟~#~A[ O͟~:O: *<#"<!*: _+~2l: V~O'9͟VSCsV+~G'VH͟͟:G!*umN( #]:lO( !*: G~ ʱ ʱ#|!*: _N( *q#"!4:   ͉ ñ!*: _~  N( !*: G~[0w A[0~-'ͅ #~+ '0O( 0*8#"8#T!*: G~ #H>2p :o O( *r #"r ~y#*~ "x >2 *~ "z >2 ( &( %¤:p *:} a    O ? *r | r  *:|   *8|(   *<|;   * WARNING * This tool is damaged! Use another copy. $MARKFIX+ Version 1.4 Copyright 1981 - Oasis Systems $Input file is NOT on disk $Marking file is NOT on current disk $Insufficient memory for ERRWORDS file Program Aborted!$ * WARNING * Word too large, or non text input file!$No words marked!$ words marked $ words corrected $ words were undivided. * reform * $ words changed length. * reform * $ WRITE ERROR $>2` , , :`  ,Q , , >2` , >/<. O0@ :` H Q >2` z/W{/_Y !~#f >2 ͡ ~ > a{ : 2 : 2 ͡ 2 :    ! ° !" !" 2 * ~ #" * +" G|x ! 4>    ~#  O( * q#" }‹  | :p q >2p  <   !" w# „ ERRWORDSTXT $$$ BAK $$$ BAK*}|̈́ ":N!̈́ Q1 !=:L  ! !|"!&~ #~#V z :w .cw12 .h (Thi tex i printou o th fil name PRINT.TST) .f WordSta Overvie Pag # Welcome_to_WordStar* WordStar i powerfu wor processin syste designe t mee tex preparatio requirement fo al level o users * professional writers * programmers * text editors * office administrators * clerical staff * students SPECIAL PRINTING CAPABILITIES INCLUDE: * Boldface Doubl Strike Underline * Strikeout Overprint (co^te) * SUPERScript * SUBScript * and any combination -- WordStar On-screen printer-image text formatting commands include Automatic-Centering whic allow tex t b automaticall centere o lin wit two-strok command Margi setting ca b changed an th堠 reformatte䠠 tex wil젠 b displaye o command Selectiv堠 margination permit "cutting aroun a illustration wid rang o lette qualit an draf printer ar supporte (includin Diablo NEC Qume Epso an Olivetti) WordStar full utilize bidirectiona printin capability Som printer wil suppor WordStar command whic specif variabl lin heigh an variabl an alternat characte pitch. (The examples below will not be demonstrated by all printers.) .CW19 This is an example of variable pitch. (.CW 19) .CW15 This is an example of variable pitch. (.CW 15) .CW12 This is an example of variable pitch. (.CW 12) .CW11 This is an example of variable pitch. (.CW 11) .CW10 This is an example of variable pitch. (.CW 10) .cw12 * WordStar i registere trademar o MicroPr Internationa Corporation. .LH 20 This is an example of variable line height. (.LH 20) .LH 18 This is an example of variable line height. (.LH 18) .LH 16 This is an example of variable line height. (.LH 16) .LH 14 This is an example of variable line height. (.LH 14) .LH 12 This is an example of variable line height. (.LH 12) .LH 10 This is an example of variable line height. (.LH 10) .LH 8 This is an example of variable line height. (.LH 8) .LH 6 This is an example of variable line height. (.LH 6) .LH 8 Dais whee printer ca als b se t "toggle betwee th standard 10-pitch and alternate 12-pitch printing: This sentence is printed with the normal 10-pitch setting, then toggled to 12-pitch, then back to normal. T se th embedde command whic produce thi text follo thi procedure: - I respons t th basi promp fro you system enter w  - Whe th Openin Men appear o you screen typ D (ord t edi document Then i respons t th reques fo fil name type  print.tst  Th firs thin yo wil notic i tha th tex o th scree include som character whic d no appea o th printe copy Fo example: th headin lin i identifie b do command .h o words in boldface are marked by "^B" T continu viewin PRINT.TS o you screen tr eac o th followin command t scrol throug th file: CTR  t vie th NEX ful se o lines CTR  t vie th PRECEDIN ful se o lines NOTE Hol dow th CTR ke whil yo pres th nex key. W thin yo wil fin WordSta a easy-to-use essentia too fo al you tex processin needs 1y'^%y2 %: 8 ? O! ~O#{- ? Fm:m p!l͏ !m_ ͑ !uh ͑ :\2 22V2x2 ˜ ? O!"!{'+6#"6-#D A[w#D A[ʿ+~w#D ʨ ʨ+6? *~}{ZUQSQMQDQPNR:LCʶVʦ/  ZO*iaw{w *~ ? #ͨ> 5 5 ~/§ ? #ͨ~5 ~#ʨ*we{ ? Z *6-3HA[!0%6/# ʓʽʽ#[- #-#A-5 w# ʁZ!F #:7y_:Z!:<=[<#0%>/~5 ~#m-Zʽʽ +~w*͋+#~¢}/o|/g#H  w+ {»0%w#*#͋͜*# ? *~-͋͜*+~+~#"!" #~+/ #"*+"*~}-͋͜=*we*#͋͜*#~h#~/w#~x#~#~#ʋ~/ʋ"*#"!P ¿Z ? !4 ͫ w# *) )|2 >2 ͫ }o&&" ͜ G͜ O͜ !4P x2  ' ? y2 >2 ͫ o&&" ?ͫ `FR>- Y> 5 @i?  $!%ͼOͼTWOPTIONCMP ~#  c~#  @`@ ~ #~ #x!%p'qC J R !Opz=naO $qF#{r ? b ? ZP ‰!{'~#M°2C¸2S2U2͋á:%$$$ SUBVVm ʹV x:4!>UF:!>SF2 ͊  ͏ ͊ ͏ ! P ‚! f :O͌V ! f 3!{'"N:ʟ*#'c+͝3ß+͝ß!'͝3ß*:O͏!'͝3V  *͋~7!1!'ͫ 7A3[3w#ͫ AV[GG+~wq#c?G~}怆҆~ƀ!{'~ȹ̝͋Ï#~#+ ʠ2 !{'~MC͋÷#~#+ ~/2 Add word to: Other options: U>pdate Dictionary P>revious word S>pec. Dict. "SPECIALS.CMP" N>ext word M>ark word R>esume review D>iscard word L>ook up word C>orrect word V>iew context $ --> $ End of list. Press "return" if done. $orrected to -> $* WARNING * This tool is damaged! Use another copy. $REVIEW+ Version 1.2, Copyright 1981 - Oasis Systems $ERRWORDS.TXT is not on current disk $ Press Control-C to abort, Space to resume$Context file "ERRWORDS.CON" is not present $User file not present $ WRITE ERROR $Checking Dictionary...$Word too short to look up$Main dictionary is not on current disk$Word too large to look up!$No similar word.$_ͫ a{  !͑ >2  V!͑ VVm !%"  Ñ  ~# ’ ͫ * : & ! º >!&" " 2 * ~ #" * G} | ! 4x>+  OD  D  D  * q#" }… %Vv  ? O!%" w# ~ ɕ%ERRWORDSTXT CMP $$$ERRWORDSCON ERRWORDS$$$ERRWORDS$$$ERRWORDSTXT $$$ CMPUPDICT CMPSPECIALSCMP{'>2 ~~#y22!<#">2Z:2 ?  !"!T""!<#":;  Ý!F#~#C:2*":O!F#x>?r~#j b:O<2!F#~#x¤>?— :O=2!F#x~# ¾:O 2!F#~#!Y^+Vs#r:_!~w !M6# "Ab  ÝMAINDICTCMP2A6!2~6##~6::AG!5O ~2MA#~2a#>2%N! "*"*"*}U**zU}U|g}o"~#fo~GC1&~C~1# *">2*">2*:G/_"w#h*}/_|/W*##ҝ*#DM! zʝ w+ z“**s#r**""*}/o|/g#*+  Ý:GO\Xz::!X!T"*"*}++"*^#V!4*##" *w#:*:_#"!Z4>2S:Zm$ ? E2[!<#"V"X>2T:T2U*V"X:U_!~ô0123456789!#$%&*+/=?<>()> *X:_~' ~#*X*>*> ![5E!U~w!Z=0*V:_#"V!T4!S5~æ*X:_"XÊ:SGI!%7O`yzͲy!_+~w#%A\—5w#ÇA\§5w#MU*+w">2 > > _~?G?~~#>7%a{ :hA!V 4Z>!""2*~ʉ#"*G}ˆ|ˆ!4x ~# ” Ÿ~͵#ê* O<#>-~~>=!~~~#>7%a{ :hA!V 4Z>!""2*~ʉ#"*G}ˆ|ˆ!4x ~# ” Ÿ~͵#ê* O<#>-~~>=!~1'y2 ': :  Ì! *~O#{/  E!F#~#$J~#Pf2"UB‡2&~A}[Y2 2 #UFª2!~AYQY@22#UC¸2(2!UL2#US2$~A[Y2V #UI2%U UJ  _e  Ug:!G:"%>2#:m 5$52)!\(!l *!\(jh  Ì:)ʎŽ  >2)Î  ÌMAINDICTCMP0  !"!""*".>2'! :$̓ R wA[O: 00:y21*">21*.:0G/_". w#œ*}/_|/W*##*#DM! z><i`MD w+ z*.*s#r**"":(I:=O:G*&:0 _}o<ƀo y<ƀO<.]*.+p+q+s".*}/o|/g#*.+  Ì!ͶIͶTWOPTIONCMP ~#  c~#  @`@ ¼~ #~ #x!j'qC J !Ijz z=naO $F#ul!   *|g}o͞ F  !"*" ͝:*M*}++"*^#V{! ) *##"ùM*6#6#"óͨ*}++"*^#V{*! ) >5*##"ͨ*6#6#"!  7O`yk͝y! _+~w# A\ˆ>'w#xA\˜>'w*&w+"&!  7A[w# A[ʼ+~w:5<25o&)^#V6N! n  ÚUPDICT CMP:)!   Ú*}|DM!^#V#zm*#" x[*}¥?  $$$ SUB:!}   p*DM!^#V#z3: xG&G%:(} !!*p!"2! ~#3 + G*DM!^#V#zY 333 xA GG&G%l :"‹ :#   *!N#F#x    ʦ : =2 >2  > {š   *͞ [   $> > _:# _:"+  Compiling Word List$ Unique words Checking Main Dictionary$ Checking Update Dictionary$ Checking User Dictionary$ Writing File to Disk$ Listing Unmatched Words $* WARNING * This tool is damaged! Use another copy. $SPELL+ Version 1.4 Copyright 1981 - Oasis Systems $Illegal switch ignored -> $ $Input file is NOT on disk $User dictionary is not on disk! $Main dictionary is not on current disk! $ * WARNING * Word too large, or non text input file!$ Insufficient memory for input file Program Aborted!$ No incorrect words found.$ unmatched words.$ Incorrect MAINDICT.CMP file! $ WRITE ERROR $>2   : ʿ ,   >2  >/< O0 :  >2 z/W{/_Y!~# !"&>2*7 #) ?G~C 怆L ~ƀ̓ .] :: m m ̓ ʀ ʀ n U : 2 ͱ \« :&ʪ ͱ ʫ \š É 2 » > a{2' *&, !~ ##~m  Ì>2* ~"&*&+"&> ~# *OG G G*2q#"2}Š{  Ì!"2w# ƒERRWORDSTXTERRWORDSCON CMP GтWx!̈́ P :N̕>ULTw !\~# a 2|:] !6 ͂<ͪ !ڂ   _*ͪ ʱ ͪ څ æ *+ͪ !w{ö *#^#Vr+s+6̈́ *"s#s#r 1<$y2$:; ! ~O#},|,!H = S#ͽYý͘2<22͸ʊ"͸ʊD͸͘ʤ=ͨffͽͽxͽ>2!xF#wTWDFAULTCMP:]u8!\ͮ!lͮà!ͮ!]88!hlͽ8 !ͮ!]ʠ8!ҠͽlCMP :ʕ3l2yfͽ >2z2{>2z3ڳ2|7ͽ >2}2~>2} >^@32ͽ 2>*2 C>^@3"ʕ!6#_!xF#~}SQͽ!&: ʸvͽ!&:yͽ:zͽ:{:|ͽ:}ͽ:~: ͽ% ͽ: >^@ͽ ʧSͽVNLYQ 6ͷ7ȷͽ ʰͷʀ dw#dxͽH >  ‘ͽHxd~# ¤d6x7"`i"#~:,+~uC.##*> ͱC.* 7 *+~͙@*w## ~uU s#D]q7.s s,ss7!ʊ# |Ïs0ڙ:saڥ{ҥ Aq[sɅo$!"#$%&()+-/@\^`{}|~_'* WARNING * This tool is damaged! Use another copy. $ $-The WORD Plus- Version 1.22 Copyright 1981 - Oasis Systems $Can't find tool "$.COM" $SPELL$REVIEW$MARKFIX$ Name of file to check? :$ *ERROR* Invalid file name!$ Special dictionary name? :$ Save context info? Y/N (Ret=N) :$ Ignore UPPER case words? Y/N (Ret=N) :$ Ignore text between? (Type char, Ret=None) :$ Ignore lines starting with? (Type char, Ret=No) :$ Mark words that change length? Y/N (Ret=N) :$ Marking character :$ Save new defaults? Y/N (Ret=N) :$ These are the current settings Press return to proceed, or space to change$ - Summary - Checking file : $ Using dictionary : $ Saving context info$ Ignoring UPPER case only words$ Ignoring lines starting with -> $ Ignoring text between -> $ Marking words that change length$ Marking character -> $~# x= _!\ͮ!lͮ!6$#:y+6C# 6F# :@w# :zH6S# :{w# :|S6I# :}d6B# :~w# y2!q""_!lͮ!":2\ͽD_!\ͮ!lͮ!6#6$#:6L#!46M#:w!":ͨfͽ!&ERRWORDSTXT~5@>:#N~ >.N~ ]# O!"*"k!\͘!l͘ 6#6 _~# ° $ *a{ _SPELL COMREVIEW COMMARKFIX COM Completed file $*ʅ = =Uͧᯕo>gͧ 'd APPENDIXSECTION BLANKSPACE BOTTOMMARGIN CHAPTERTITLE FLUSHLEFT FLUSHRIGHT FOOTERSPACING HEADERSPACING LEFTMARGIN MAJORHEADING MSS NEWPAGE PAGEFOOTING PAGEHEADING PAPERLENGTH PAPERWIDTH REF RIGHTMARGIN TOPMARGIN UN UNDENT UX u.INSER1@$y2$:7f !9~O#{, Bͳ!\[f ʚAf[fA[xOx-x*>#">f *>̀ ![TWOPTIONCMP +# K~K   cD#~K   @D`D@ x![F#S'j# X:z 0 ͘>2ͽͽ:ʡ,ͽͽ>2ͽ>/<ڿO0:>2z/W{/_Y> a{ :W5@Q!@"Y>2X2W*Y~M#"Y!X5M!W4> ~# ]* WARNING * This tool is damaged! Use another copy. $WORD COUNT+ Version 1.1 Copyright 1981 - Oasis Systems $Input file is NOT on disk $There are $ words in the file $ ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# $ words in the file $ ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# *K͞+utV'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!a{   `OE!y6$ -7rBo&))T])))!yM-ͺ'B'*@~G~#ʙ-> w"@*@~?͸-w#> ͸-Ú-G:?x*@~+P-~-~?@Ú-~Ú-~w"@*@~@(F>@.>wx>.>7>7>.>.>.>.:?(:)?(BD Software C Compiler v1.46 (part II) Can't open file Error on file output...disk full? Missing label Missing semicolon Illegal statement Can't create CRL file Illegal operator Lvalue required Lvalue needed with ++ or -- operator Bad left operand in assignment expression Mismatched parenthesis Mismatched squarg'h]*Yhxo*{oÇh,i^ixdx-í--;!9DM!"!͡! ͤ! ͤ! ͤͧ! ͤ! 6#6͐ ~#fo@! ͪ! ͪ! ͪͭ!"!!"!"!"Ͱ!<!?!Nͳ!! !ͳ! "! ! s#r!`is#r!! s#r!"N! 6#6͐ ͐ ! ~#fo͐ +)~#fo!*Ͷ|!"N! ^#Vr+sù͐|, ! ~#fo##~#fo͹! s#r5 ! 6#6͐|h !'!7ͼ!*!7Ϳ!1!7ͿL ͐>x > >„ > > > >œ > >¨ > >´ > > > !6! s#r !F! s#r !e! s#r !}! s#r ͐|/ ͐ͤ͐|& !7ͤ͐ͤ!ͤ͐ͤ͐ͤ!!7#|r !!7#|¯ ͐|‡ ! 6#65 !7!ͪ!*!ͪ!@ͤL õ L | | !ͤͭ!9 GP INSTALL RELEASE 3.00 Copyright (c) 1981, 1984, MicroPro International Corp. All rights reserved. ware has been provided pursuant to a License Agreement containing restrictions on its use. The software contains valuable trade secrets and proprietary information of MicroPro International Corporation and is protected by federal copyright law. It may not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. FATAL ERROR: There isn't enough memory available to run INSTALL. Confirm Command line error: With INSTALL you can set up your terminal and printer for use with MicroPro programs. You can also change certain features of the program with INSTALL. Would you like to continue? Enter Y or for Yes. Enter N for No. -DEBUG.INSBad drive code.File name not properly formed.No file name specified. not found. The file %s cannot be found. This definition file contains control information used by the INSTALL program and must be specified in order to install the product %s. Do you want to re-enter the product name? Enter Y or for Yes. Enter N for No. Version mismatch in INS file.  .'hCxo| !! Which MicroPro product would you like to Install? Enter - WS for WordStar - WM for WordMaster - DS for DataStar - RS for ReportStar then press . Product? Returning you to the system... í-Ì./HÜ000"1%1C1ØoY1'3G3]*[3Æ3ö334ß #]5Ð5ÒHî5T67Ü7ò7/8859í9Å:5;ÐIKZLiLLMõMMí;>>>>>>>>>#>>+>,>1> >7>,>=>8>C>D>I>P>O> \>U> h>[> t>a> €>g> Œ>m>˜>s>¤>y>°>>¼>ʅ>>ʋ>>ʑ>>ʗ>>ʝ>>ʣ>>ʩ>>ʯ>>ʵ>(>ʻ>4>>@>> L>>!X>>"d>>#p>>$|>>%ˆ>>&”>>' >>(¬>>)¸>>*> >+>>->>.>>/>!>0>'>1 >->2>36!>!>A>D>G>J>M>P>S>V>Y>\>_>b>e>h>k>n>q>t>w>z>}>̀>̓>͆>͉>͌>͏>͒>͕>͘>͛>͞>͡>ͤ>ͧ>ͪ>ͭ>Ͱ>ͳ>Ͷ>͹>ͼ>Ϳ>>>! UT?,i^i'h!F!I!'!7L!*!7O!!7O!R.INS $Bí-7BMBgvBBx-'hi;!9DM͢`is#rͥ|! 6! 6ͨ! n}ͫ! ͮͱ|ͫ!"*|¤ʹ}2͐ͷͺ*} S! n}P!ͽäͱ}2 }ʡͺ*&* &ž! n}ʕ* &ͮ!ͽ!"áS|ʸ͐ͷͨͱ|ͺû!9 "C-$Bx-JCB]CÇCvBig)jiYh'h .$!9DM!"" " !"*|Ҕ*#"+)s#r* !|ŽÔM* "* |ʷ*#"!"!"*|! s! n& |j! n&s!|g! n*g! n*g! n&"0 ! w#w͐|d! ! ^#Vr+sA! n&! s|ʝ! n&s*Қ! n&A!!*+ ?! nѯg)~#fo! s#r`is{`in& !* ͐!#|Z|W`is{O`in& 6! ! !!J|ʏ͐!"!"!\! n} !s!~!|!"!** !!9%c You have chosen : If this is correct, enter Y or . If not, enter N. If this is correct, enter Y or . If not, enter N. í-x--$BBií;!9DM>>3>>G> >G>,>J> 8>M>D>S>P>S>\>S>h>S>t>S>€>S>Œ>S>˜>S>#¤>S>%°>S>(¼>S>>V>0>V>>V> >V> >V> >V>>V>">V>$(>V>+4>V>!@>V>,L>V>-X>V>/d>V>p>Y>|>Y>ˆ>Y>”>Y>  >Y>*¬>\>¸>e>&>e>'>e>.>e>)>n>>}>>ʃ> >ʃ>>ʉ>$>>0>|D6`is#rz§`i6#6͐|`i^#Vr+sç`is#r}2 } ͐* &!! !9í-]C-í;!9DM`is͐`in}R|OD`in}! s#r|€! s#r͐|ʚ! ^#Vr+sÀ`in}½|ʺï`in}!! &!!9 BMBYh'hgC]C!9DM* *|B **!"!&"!G"!["**w * |w * "} ! "*+ ?)! s#r**! s#r! s#r`is#r͐*!͐! s#r͐|2!! ! ~#fo͐͐)~#fo"͐A͐! s_!!]"! ~#fo͐)~#fo"͐A! s! n&!_"*! 6#6͐|ں!! s} !ú!! n&! ^#Vr+sÁ!͐|!! ! ^#Vr+sú!`i^#Vr+s !c"!f"*| "!"!"! 9 #%d of %d; to view another menu press the appropriate number. %c Enter the letter of your choice, or enter the appropriate menu number, or press to leave unchanged. "-Ë&""""*!"!"!" #í--cji&(!9DM#! s#r#"#! s#r#}2#"͐|g}o|2$#`is#r*>{#>ʖ#>‡#>ʭ#>“#>#/$͐)N~#fo}2͐)N~#fo}2/$! w#w͐|#͐6 ! ^#Vr+s#͐(k#"͐(k!#*6 ͐"/$Ö$! w#w͐|_$͐6 ! ^#Vr+s:$`iw#w͐*ҏ$͐#s`i^#Vr+se$͐"͐|g}o|ʷ$*)N~#fo"!""!*!#"!#!9%BCí--]C{oìocji&ÇC(!9DM* $̓ $$$"$}2! ! s#r! ^#Vr+s$s{W%<%$"|ʪ%! *!$! $*! $͉! $%! $#"! !$!""*|%!*!$"!* $̓ $!$#|&$"$! s#r$}2$"|3&$#"%`iw#w͐*c&͐$s`i^#Vr+s9&!""!*!$"!%%!9Ô&Ë&'(!9DM͐|&͐~#fo͎&͐͑&͐##~#fo͎&&Õaí;ìoc&!9DM͐|['͐~#fo &! s#r|'!&! ͐͐&͐~#fo! ~#fo !&͐(͐~#fo͐~#fo"#|'͐͐~#fos#r͐##͐##~#fos#r͐&͐!&(*#|'͐͐͐~#fo&s#r(͐##͐͐##~#fo&s#r͐(Ë&*!(0(Q)*!9DM͐~#fo|H)*|ʌ(͐~#fo*ͯ͐~#fo*ͯ|g}o|H)͐n*%+|g}o|H)͐͐n*%+}/o|/g|g}os͐~#fo*J*(! ~#fo ! s#r͐~#fo`is#r͐|H)! ^#Vr+sn&-(`i^#Vr+s)!9`)oí;hpd!9DM͐*ҕ)͐**?)*|)!*͉**T)#|)!W)*!*Z)#|)!W)!͐!])#|*!W)*Q)*!9DM*+"#|D**#"+! ns&*#*! n&*f*'hvB!9DM!*`*c*`iw#w͐|Ҡ*!*`*`i^#Vr+s*!9 Type any key to continue...  !+"ƃ!+"ȃ!+"ʃ!+"̃!+"΃!+"Ѓ!+"҃!+"ԃ!+"փ!+"؃!+"ڃ!+"܃!+"ރ!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"!+"NULSOHSTXETXEOTENQACKBELBSHTLFVTFFCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUS ,iÝC!9DM! s#r`is#r! s#r! ~#fo#n}:ˆ,! ~#fon&,|^,!o-Å,! ~#fon}2'>:2(>2)! ~#fo##s#rÍ,>2'͐ n&,|,͐ n}.¾,͐|¾,! 6#6.-!o-͐|,͐|,!o-,`i^#Vr+s3͐ ns.-͐|-!o-.-! ^#Vr+s*͐ ns! ^#Vr+sn},͐|S-!o-͐3͐*ss!o-!9Á-í-7B!9DM{-`is{ʘ-É-{-+|ʉ-~-!9ö-gfí;!Ͱ-"F#|-!ͳ-*F-í-!9DM-`is#r͐-.!9.ivB'h!9DM. .`is{Y>.!x..!o.`in} U.!|..!o.`in}Nl.!..!o..!9Y N í.í-Õaí;,cpqEqhpûq!9DM͏.`is#r͏.! s#r! 6#6͐| /͐?͒.! s#rz /! ~#fos#r.͐|/!͕.!"!""""""͐(k͘.|h/͐(k͘.|z/!"͐͛.Ó0͐(k͞.! s#rz­/!"͐͛.Ó0!͐(k͡.! s#rz/!"͐͛.Ó0!"T"R"P͐͐͐ͤ.! s#r!|_0͐ ͐͐ͧ.! s#rzC0!"x0͐ ͐ \0!"x0/͐ #|r0!"x0!"͐͛.͐ͪ.͐ͪ.!9ë0$BB-;!9DM͟0##`is#rͥ0͢0ͨ0͐͢0!90DÜ0-0|00001xo01T?í- 1(k 1.1OEí-+1(k(1I1OO!!F1h1í--Q)s!9DM!"!"""\1! s#r\1! s#r\1! s#r_1! s#r\1! s#r͐|1͐ )N~#fo! s#r͐ *Jb1͐|¨2`iw#w͐|Ҏ2!e1! s#rz!2!"3͐|;2͐|e2͐|e2͐|e2͐|e2Î2͐(k͐͐s`i^#Vr+s1͐(k͐63͐)N!e1s#rz2!"3͐++|3!e1! s#rz2!"3͐)N~#fo͐s#r!"!933DG3-*3|B3-3E303P3B-M3J3j3'hõE-Ü0*^3a3|ʁ3d3Ä3g3Õ3'hõE-B*͉3͌3|ʬ3͏3ô3͏3͒33'hõEÜ0-*͹3ͼ3|3Ϳ3333'hõEB-*33| 433434í--!9DM4`is#r4! s#r4! s#r4! s#r4! s#r͐|g}o|~4͐)N~#fo! s#r͐|g}o|ʥ4͐)N~#fo! s#r͐>+µ4>4>*4>4>-4>5>/4>85T5͐)N͐͐s#rT5͐)N͐͐?s#rT5͐)N͐͐s#rT5͐)N͐͐s#r! 9f5í-g!9DM`5`is{ʇ5`in&c5n5!9Ù5'hí-͖5(k͓5÷5í-i!9DMͱ5! s#rͱ5! s#r͐+|&6`iw#w͐|#6͐(k͐ͱ5s}6#6`i^#Vr+s5K6ͱ5(k͐(kʹ5ͱ5!9`6í-,q!9DM!"!""W6`is#r"%*+|–6!"6͐(kZ6|ʷ6!"6!͐(k]6"#|6!"6!"""!"!"!97ohpûq!"!""*|.7!"*|ʆ7!*͉**7#|f7!"*!*7#|†7!"!"* 7!"â7OO!!͟7þ7í-,þq!9DM!"!"ƒ"͵7`is#r͐(k͸7|7!"&8͐(kͻ7| 8!"ƒ&8!"!9>8í-,þqq!9DM!"!"ă"28`is#r28! s#r͐(k58|™8͐(k58|ʢ8!"8͐(k88͐(k͐(k;8|8!"ă8!"!992rí-E!8*}-"98)Nw#w398)N8s#rD9'h .B-!m989!989;9|h9A9>9k9A9 If this is correct, enter Y or . If not, enter N. ü9í-T?,i!9DMͰ9`is#rͰ9! s#rͰ9! s#rͰ9! s#r!"!"͐(kͳ9͐(kͶ9|.:!"|:!'͐(k͹9!*͐(k͹9!3͐(k͹9!"!9Ñ:í-i^i!9DM͈:`is#r͈:! s#r͈:! s#r͈:! s#r͐(k͐(k͋:͐(k͐(k͎:͐(k͐(k͎:!9D;'h .B-!m;8;!;8;;;|h;A;>;k;A; If this is correct, enter Y or . If not, enter N. ü;Yh$BJCxo!9DM͐>;>O<>;>[<>;>g<>;>s<><><><>ʋ<><>ʗ<>(<>ʣ<> 4<>ʯ<> @<>ʻ<> L<><`is#rͰ;!/>Ͱ;!f>Ͱ;!>Ͱ;!>Ͱ;*N|F=͐! ?Ͱ;*Fͳ;!?Ͱ;*HͶ;!6?Ͱ;͹;!9Token fetch.Data fetch.Token seek.Data seek.Out of memory in copy.Out of memory in treeptch.Patch seekPatch write.Bad token xcuteBad token getitemBad token getrfld A fatal error occured while processing %s This error may be due to a disk problem, or perhaps the device definition file you are using has been corrupted. In any case this session cannot continue so you are being returned to the operating system. Error: %s PC = %04xh *PC = %02xh RPC = %04xh *RPC = %02xh i?vBg'hiÝCi!9DM! s#r! s#r! s#r! s#r!B! s#rW?`is#r>:°?>?>.¼?>]@>?>ʘ@>?>ʘ@>?>A>?>A> ?>RAwA͐+|@A*&|<@! ^#Vr+s:sZ?! w#wZ@͐ ]?! ^#Vr+s6AB͐|i@A! ^#Vr+s.sZ?! 6#6! w#wB͐|¤@B͐ ]?! ^#Vr+sn}:@.@@! 6#6A͐|@! ^#Vr+s@! ^#Vr+sA! w#w! w#wAB! ^#Vr+sz0A͐ ]?A! s#r! s#r! s#r! s#rB͐|fA!B]?tA!͐`? B͐f?`is#rc?|A͐|ʷA͐|کAA! ^#Vr+sA͐|AA! ^#Vr+s! ^#Vr+s͐sZ?B!Z?B͐6Û?! 9  *B^g!'B=BÆg!*F:B\Bg]5í-7B! PBSBVB+|]BYBÂBcr'hxo!9DM!yB`is{²B*L+++|ʲB!B|BB`in&úB!9 Returning you to the system. Bdí;!9DM!͐!B#|C!BCdí;!9DM!͐!C#|HC!CPC^g!MCfCgfí;!`C"H#|€C!cC*HÍCÆg!*H͊C!9DM! n&|һC!C!C`is#r! n͐n}C!C`i^#Vr+sn}C!C!9_<>.,;:=?*[]Dí--!9DM D! s#rD`is#rD! s#r D! s#r! w#w͐|g}o|pD͐)N~#fo`is#r͐|g}o|ʗD͐)N~#fo! s#r͐|g}o|D! ~#fo͐͐͝|g}os#r͐|g}o|E! ~#fo͐͐ͩ|g}os#r͐|g}o|?E! ~#fo͐͐ͩ|g}os#r͐FE! 9UE2r!9DM!RE`iw#w͐|ҦE! ^#Vr+s͐ns}šEæE`i^#Vr+skE͐6!9þE'h .!E͸EͻE(Y/N)? EcjiiÇh-G!9DM!E! s#r> F>'F>F>-F>$F>JFdF!$G*&E|BFdFJF*&$G*}^dF*&|g}o$G`iw#w͐͐ҢF͐͐n&Es`i^#Vr+sjF`iw#w͐|F͐)ƃ~#fo!E|F͐$G`i^#Vr+sèF͐+n}HG! 6#6 G! 6 #6͐!E`is#r͐$G!93GÙG!9DM! w#w͐ ! ^#Vr+sn&0G`is#rzʉG͐͐ ?͐! s#rCG͐ÐG!9åG)jii!9DM! n&͟G! s͜G|G! n&sH! n&͢G|H! n&sH!! n! n&+$H!-H! n&8Hí-'h!9DM2H! s#r`iw#w͐͐wH͐6 `i^#Vr+sQH͐6!5H!9äHí-Yhg(Y|Y!9DM͕H! s#r͐|H*L! s#r͐>H>H>H>I>H>0I~I͕H)N~#fo!I͘H!h͛HÁI͕H)N~#fo!I͘HÁI͕H)N~#fo`is#r͐|rI͐͞H͐|g}o`is#r͐͞HÁI͡H!9%x%dâIí--Q)gfÆg!9DM!"!"͓I`is#r͓I! s#r͓I! s#r͓I! s#r͖I! s#r͓I! s#r͓I! s#r͐ )N! s#r! s#rs#r͙͐I͐|K!͜I! s#rzUJ!"K! ^#Vr+s͐͐sJ)J!͜I! s#rz’J!"K! ^#Vr+s͐͐J!͐͟I! ^#Vr+s)J!͜I! s#rzJ!"K! ^#Vr+s͐͐K!͐͟I! ^#Vr+s)J!͜I! s#rz>K!"K! ^#Vr+s͐͐uK!͐͟I! ^#Vr+s)J͐ )N6 #6͐++++͐"J*J|µK͐ )N6#6K*J|K͐ )N6#6! 6#6)J!"!9KOO-í-Y!9DM`is#r!͐K*L+++|.LK`is#rQLK! s#r͐)N͐Ks#r!9`Lí-]L"LoLP[!!lLÈLí-cj!9DM͂L`is#r͂L! s#r͂L! s#r͂L! s͐)N! ns#6͐͐(kͅLM͐)N͐(k͐+ns#6M!9+Mí-Q)s![9DM"M! s#r͐)N~#fo*J! s#r͐%M`iw#w͐_|ңM͐! !(Ms×M!"ìM`i^#Vr+shM!"ìM!9þM ^í-ͻM(k͸MMí--í;i_cj^i!9DMM!X s#rM!P s#r͐P|N!M͐X(k!( M!( M!( M!R s#r͐P͐R!V s#r!T w#w͐T͐VҫN͐X(k͐T6 !T ^#Vr+svN͐X(k͐T6!( ͐X(kM͐V͐R!Z s#r͐Z!T s#r͐T͐P/O͐X(k͐T6 !T ^#Vr+sN͐X(k͐T6!\9sOW`|YvBg'hí--Gi`Çh(Y!9DM!Y! s#r! s#r! s#r! s#r! s#r! s#r*L! s#r*L>O>O>O>O>O>PPP͐+|O`i6#6O`i6#6SP͐+|P`i6#6P`i6#6SP͐+|1P`i6#6MP͐++|FP`i6#6MP`i6#6SPUO͐! s#r͐|YXO! s#r͐|P`Q͐>,P>ʶP>#›P>P>:§P>P>.³P>7Q`Q!"L͐+|P`i6#6P`i6#6@Q!"L͐+|P`i6#6P`i6#6@Q!"L͐+|Q`i6#64Q͐++|-Q`i6#64Q`i6#6@Q! 6#6! 6#6͐[OXO! s#r`Q*L>oQ>ʊQ>{Q> T>‡Q>ʰVX͐>šQ>Q>¦Q>Q> ²Q>LR>H¾Q>R>hQ>R/S͐|Q![O T! ^#Vr+s͐|R͐"L͐`is#r͐ |&R͐|#R! ^#Vr+s.R! w#w͐ +|@R! w#w͐^O T! ~#fo͐6͐|¬R͐ |‹RaO)N6#6! 6#6 TìRaO)N6#6! 6#6!Y^O T!͐dO! s#raO)N͐s#r! 6#6!Y^O T! 6h#6͐ +|S͐|S![O T͐[O! ^#Vr+s! 6#6 T͐͐SS͐ +|SS͐ +|^S![O T͐|{S͐|{SS͐|ژS͐|ҘSS͐|S͐|S͐gO! s#rS![O T! ~#fo͐͐s͐[O! ^#Vr+s! ^#Vr+s TY͐>T>8T>)T>8T> 5T>ʣT*V͐|LT![OíV! ^#Vr+s͐|qT͐"L͐`is#r͐|ʅT! ^#Vr+s͐ +|—T! w#w͐^OíV! ~#fo͐6͐|U͐ |TaO)N6#6! 6#6íVUaO)N6#6! 6#6!Y^OíV͐>U>.U>U>ʤU>+U>ʤU'V! ͐dO! s#r͐|wUaO)N͐s#r! 6#6!Y^O'V!jO! ~#fo+++s#r! ~#fo+++s#r'V͐|U!Y͐mO|UaO)N! ͐ROs#r! 6#6! Y^O'V!jO! ~#fos#r! ~#fos#r'VíV͐͐DV͐ +|OV![OíV͐|iV͐|tV![OíV! ~#fo͐͐s͐[O! ^#Vr+s! ^#Vr+síVY͐>V>V>V>V> V>ʩWyX͐|V![OX͐|fW! ~#fo͐+n&|(W͐^O! ^#Vr+s! ~#fo͐+n&|XW͐^O! ^#Vr+s! ^#Vr+szW͐^O! ^#Vr+s͐|”W͐"L͐`is#r͐ +|¦W! w#wX! ~#fo͐6! 6#6͐|X͐ |WaO)N6#6XXaO)N6#6!"Y^OX͐|X!$Y^OX! ~#fon! s#6͐++|\X͐|\X͐*ѯg! s#raO)N͐s#r!&Y^OX͐͐ʓX͐ +|žX![OX! ~#fo͐͐s! ^#Vr+s͐pO͐|X! ^#Vr+s͐|X! ^#Vr+sXYUO_P!9  65535 .Yg!9DM͐|ZY!^+Y͐@+Y͐|rY͐+Y!.+YÅY'hxo!YY!YY!YY!YY͂Y Invalid radix value - corrupted file. Y--Gi$BBí-7Ba!9DMY! s#r͐! s#r! w#w`iw#w͐|҃Z͐ n};ZÃZ͐ n}+lZ͐ 6!! ^#Vr+sY! s#rÃZ`i^#Vr+s! ^#Vr+s!Z͐! s#r͐ n}ʻZ͐ ͐ n&Ys! ^#Vr+sÏZY! s#r͐YY|8[YY! s#r͐Y|&[͐ YY͐! s#r͐Y͐G[͐ ##YZ͐Y!G[!9e[W`vBg'hí-(Y!9DM!^! s#r! s#r! s#r! s#r! s#r! s#r!"L*L! s#r͐+|[`i6#6[͐++|[`i6#6[`i6#6͐! s#r͐|]V[! s#r͐>\>*\>\>*\> '\>\u]͐|>\!Y[]͐|ʵ\! ~#fo͐+n&|w\͐\[! ^#Vr+s! ~#fo͐+n&|ҧ\͐\[! ^#Vr+s! ^#Vr+s\͐\[! ^#Vr+s͐|\͐"L͐`is#r]͐|\!Y[]! ~#fo͐6! 6#6! ~#fon! s#6͐++|X]͐|X]͐*ѯg! s#r_[)N͐s#r!^\[]͐͐ʏ]͐ +|š]!Y[]! ~#fo͐͐s! ^#Vr+s͐b[͐|]! ^#Vr+s͐|]! ^#Vr+s][!9  ^vBg'hii!9DM! w#w!q_! s#r>2 ^`is#r>:Q^>x^>]^>ʣ^>i^>ʣ^> u^>^^͐+|ʅ^P_! ^#Vr+s:s^[_͐|¯^[_͐^! ^#Vr+s[_͐+|^P_͐|^!u_^!͐ ^h_͐|_P_͐^`is#r͐|*_͐|-_P_! ^#Vr+s͐s^[_!^[_͐6<^!9  È_cji!9DM͐ ͂_! s#r͐+! s#r`iw#w! ~#fo! ^#Vr+sn} _`i^#Vr+sô_! ~#fo͐͐! ~#fo͐ns! w#w! ~#fo͐n} 8`! ^#Vr+s`͐ ͐͐ ͅ_!9]`ÙG!9DM! w#w͐ ! ^#Vr+sn&Z``is#rzʳ`͐͐ k͐! s#rm`͐ú`!9`'h!9DM!a! s#r`i6#6͐͐a͐``i^#Vr+s`!9 aí-!9DM`iw#w͐|҆a͐na! s}Naoa͐n}ia! n} ia!Ìa!Ìa`i^#Vr+s! ^#Vr+s)a!Ìa!9ÞaÇrc!9DM͐ ###͉! s#r*! s#rza! s#r""!"͐~#fo`is#r͐##~#fo͐ڍb͐##~#fo͐6b͐͐~#fos#r{b͐##~#fo͐s#r`i~#fo͐##~#fo))s#r͐##͐s#r͐"͐####b͐*b͐))͘a! s#rz»b!b͐##͐s#r͐####͛a*`is#r͐! s#r͐~#fo`is#ra!9!9DM͐++++`is#r*! s#r͐͐Lc͐͐~#foښc͐͐~#foڇc͐͐ڄc͐͐~#fo҇cÚc͐~#fo! s#r(c͐͐##~#fo))͐~#foc͐##~#fo͐~#fo##~#fos#r͐͐~#fo~#fos#r d͐͐~#fos#r͐͐##~#fo))͐Zd͐##~#fo͐##~#fos#r͐͐~#fos#rhd͐͐s#r͐"!9~dq!9DM͐!͐{ds#rz©d!͐͐##͐s#rs#rs#r͐~#fodoEq!9DM͐ |"e! ~#fo͐##~#fo͐~#fos#r͐ ͐##~#fofe͐ ͐##~#fo͐~#fo?e!͐ ͉`is#r͐~#fod#|—e!^f!͐ ͐~#fod! s#r!|e!^f͐͐s#r͐##͐͐?s#r͐͐##~#fo͐ s#r͐͐ ͐~#fo?͐~#fos#r!^f!9mfEq!9DM͐^#Vr+szʩf͐^#Vr+sn&|g}o͐!͐ ͐~#fojfs#r!|f!͐##~#fo͐~#fo?s#r͐͐~#fo?+s#r͐͐ s#r͐^#Vr+sn&|g}o!9DM͐##~#fo͐~#fo!9DM͐~#fo|¨g!͐^#Vr+s! ns͐^#Vr+s!gxo  g h> Ohhghghhh*###** -hg!9DM͐n}Wh! ^#Vr+sn&*h5hbhàj'h!y9DM! `i\h`i_h!9!9DM`iw#w! ~#fo͐n! ~#fo͐n}h! ~#fo`i^#Vr+sn}h! iÕh! ~#fo͐n! ~#fo͐nѯgW i!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{Ni(i͐Ui!9!9DM͐`is#r͐n}ʈi! ^#Vr+spi! ^#Vr+s͐ns! ^#Vr+sn}ˆi͐÷i!9in!9DM! n&i|i! n&i! n&&!9DM! n&|ͯ%j! n&|ͩ2j>nn!9DM! n&,j|ͣ_j! n&/j|ͣ!9DM`iw#w! ^#Vr+sn}ʐj`i^#Vr+sqj͐×j!9ïjmnioi!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{n`in}%m! ! s#r! 6#6! s! s! s͐n}-?k! ^#Vr+s! 4͐n}0Ok! 4͐n&ͦj}lk! ͩjok!! s#r! ^#Vr+sn`is{.·k! ͩj! s#r! 4! ^#Vr+sn`is`in&ͬj}DkUlX(lO1lCwlSʨlm͐~#fo|l! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 7l! 67l! 6! ~#fo! n&! ^#Vr+s~#fo! ͣjѯgs#r m! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s m! n}»l! 6#6! ^#Vr+s~#fo! s#r͐n} m͐| m! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sl͐6! ! s#r! n}wm! ^#Vr+s!|wm! ^#Vr+s! n}nm!0qm! s +͠s#~-s##!sxSisQs rEXECL: Too much text $!ps!*w#us*:1s*Øs!˜s!a{ ѷ! , FNxg>Goys$toí;hpgf!9DM*|ht!*͉**s#|Ht!s*!*t#|ht!s͐tline feedswitches on the printer are OFF.backspacing standard   1$y2$:7% !~O#{,] B!F#~#$G~#Nc2 RAn2 Ï _ R͌!\}  !\  } ¼ !" !" " *" ! ͵ʁA[w#͵A[;e-M͵͜  M͵e    ͜AM[M͵* #" +~wx2 * " * " * }* * zڇ}|g}o"  ~#fo~G~* ^#V+V+^s#r~#Û* " >2 s* " >2 s* : G/_"  w# * }/_|/W* ##<* #DM! z< w+ /* * s#r* * " " * +6+6" * }/o|/g#* + * }ʁ: †* q"?q"A*A"E*A|*E"=*=G"C*=*AG*=S*=*A*CS*A|*="=*=|*=*A`|*=`|*E#"E*?|*E|*Aq"A*A|ŸÆ)^#V)s#r)^#V+V+^ɷ|g}o"A|/g}/o#* DM!^#V#+~©+~©* #" xŽ * ͟ * q͟ * ͟   $ Total words $ Unique words $ Words appearing once $* WARNING * This tool is damaged! Use another copy. $WORDFREQ+ Version 1.2 Copyright 1981 - Oasis Systems $Illegal switch ignored -> $ $Input file is NOT on disk $ Insufficient memory for input file Program Aborted!$ WRITE ERROR $:   ]  * DM!^#V#+V+^8>  Z' xD4 &4 %x !DnTWOPTIONCMP ~7# " .c~7# " .@`@ 7~ 7#7~ 7#x!D͏''/7?v"*2:!n͏ XCHGPCHLXTHLRET HLT CMC STC CF#‘*6+w"6*4#"4>23¿> a{ :3 } +! ! "6!"423*6~'#"6*4+"4G|x'!34>>2|Q/g}/o#-4 yyyy>2y>/<{O0:ʕ4 >2z/W{/_>2:, >2>/<O0: >2z/W{/_Y   ~#  O4  4  4 *{ q#"{ U}w +  h  !+ "{ w# p + FRQ" ="=> 2 Q,, -  Copyright (c) 1979, 1984, MicroPro International Corp.  WordStar Release 3.30 ID # 213403KP-001 KAYPRO Computer  standard printer  No communications protocol  Primary list device "tE2P= B0B1C0C1   ͊ë$͠>ÇmB@ @..BUGNWBDFIS;G,"/B&&/O<>><<==<>==><>=.AND..OR.Y[]{}AEIOU:+.M@DDF< eeReghChChdhBheke h yge  Bj Kj 0j 1j 2j 3j 4j 5j 6j 7j 8j 9j     2 0.         )       "$6& (*,.08:H4        `(C))0<z  EN T12A-__7777l clUlWx2z7W:Gd56   YZRCDTTVV2CCTTBT2STTTTTTTTTTCBTTTTVUUUVUUVVSSVUfVVTVVTUVVgVVUTVTVUTTTTTTSTTRRTRfTTTTSSSTTfTTTTVTVU <NIQYdXfjly"+8AIW^o~YN @@@@ now now INTERNAL ERRORFATAL Name of  to fileMailMerge PRINT a file Ԡ  *** FATAL ERR F25: NOT ENOUGH MEMORY $ File  not found. Menus &  messages will display as @@@@ only.  WAIT  Print\paused MailMerge printing\ \not\editing\ ڽ ׽ *** Press ESCAPE Key *** INTERRUPTED***  E*** I***   F: G! w~x7*Y;:S;w*a;*U;d| !͠ "p;!"w;"y;#"u;~2r;#^#V## 2x;~2r;+~2v;##͍~"s;d|"y;"s;O:S;!<=7 / q#s#r#ww#;w!h;~#U #~*%6|/!Cs >2&6W *%6|/͏ *>;!9">;:$6C 5 ";͏ ë  :<; x~> x:;*;";";ͫ*;͠ W ;3 "; ͏ !;͉m͉à: : *9;W{S z!{!4ʖ za > W_ !J;z>#>29;{ ȯ29;{ x~ #È !9"@;! t% ͽ &*@;:$6 "C:$6%Có LH SR1 UJ BP PL9 MTE MBK HMQ FMW CW] PCn POe PA CP} PN OP HE FO !S;>wͭ n!o;>$ !T;! í !X;< !`;< !\;< !d;< K >$ !k;D !m;z D > >>2:;;%ڤ ͅ"D;iÊ *;ñ *;>o;w#&  & w#- 6> ;% ! > ONOFͮ%t% };% }&5+} nd !4[`.{>2;;!J;~6ͱ{ڍ:4!;;6>J:4!X; !x;ͩ*;!u;ͩ!r;é*5;*D;zĠ:$6>2;>2<;>*F;_:S;<=*p;͠:4nd*p;!`; !r;ͩ'!u;ͩ> .7*;#~+::; ͅ:h;;!m;n*D;|Z} > .ͪ(2h;i"B;!R; .+ .> /#~+ ͅ:h;;~(#~]\#~]"#*D;ͪ ":D;#~]  +.!yo:+;}L>:+;:h;K >!h;w:+;~e>b>JK o>^#~(> Ju*F;:,;ʔd|:S;w͠ͷ:J;À:,;N#͍ ʓ> .> Jö> .+|#>Ó!".g|,-:4J}> JG!I;~6!4x!k;^;n(x!0GO!D> K>~R>- Ba x!H;~<> BCf †!"H;> >*S;&*F;"F;*U;͠*F;|ͅ!"F;*D;#"D;2J;i*S;>*o;> :4*F;|:,;*U;ͷͅ> J*F;|ʽì HK| &B!H;~%5K;!G̰#~ ̋͋:<;7*D;*3;à͙ËCď >2&6Ï r'͏ ­C̏ µď :4͙<:4>C}:|;;E!;E!"$6"&6<=G:'67?*;~7?p#~Z_x2::;*:ʻ*:::g";yHG*:::g":::o&{2:y:;wy_!;*/;d:: x> ڨ!w::~’=<<*/;-ʦҤ<>Z ~x_}Gy2;:;! ;4!;4x*;::w";ͫ";!;4::#4! ;4x::*;w";! ;x * ;*;";*;* ;ͫ" ;!" ;";" ;!;~6fy_!";";ͫ";!;4t!;4!;~::5*;";: ;!;2 ;*;" ;* ;|:;*;)::G$%==xxy2;>2 ; :/;=|g}o| *;&*/;*#;d"#;" ;:ġ͍ͱ͍͘9iR͡ #R͡iR͘iR* ;");:;K͡Yͨ* ;"';*;)*;T]:: ~:ʆ* ;à*;&#;÷*;%;÷ͱͱ*;!;÷*;;* ;d|" ;:/;w#~w+͠ >< ~# y͠O>G ><6 -+~ ))y+#x 6#@$%%$o>gSSdDMxɅo|gg}o|g^#V#~#fo# ”Gz©{xɾ~~/w~#ö   :.,;?!0?:ɷ @[A?a{r'/N#"@5w@w#6:#6@n i6.#o6 yw# n͈ý0 ڐ{:|Ĉ_:¼# {2F5_=!s#):OGHGx2y2::"6#<8!6!#6+6+6::A5ȿ7>#<>͓&*6"67E#)JJ:6C7C7E0*D5!͘!7͘!:6!6~6C7:hhh#<#>͍&/<8/<##!wɷ/Խد/!?7bk++~ͅ!7͠z:7Zͅ!C7w/"ؿ:ͦʹ> ͍&PĽ>!"͍ |<s#rɯ7>G/r'^#V#W /͉^#V+ѷ͉~W #/:h72u7i7>2h7!74!7i73!D8*7*͠ʂ!7",6:h77͠?9͠>͍%}):7=!9=z27!9i73W >w3!9w:͠ý!B!.:7ͣ*7+##+L!D͓Gͣ~L/ -%!ͣ~L 3%;!R ͩ̈́k6#~!Ͷ> 0*5~*5~ w#~<!5"5*:G5/!': *7+w\*|96!26:U͚>n:l͝>!*wy͔:ʑ/D!5"5"5P@ G:E5Ox:3 x  yON#F | p+q ͮ!W *7:3O&:2=!! DM#:G5h?# /b +S H`"  Y!ͣͩ;!;!E5  â*D5>+ ,&":D5  *D5-">ʉͶTE[#0w!4w:$6FDH:%6J:&6Lͫ$I'%ó*6a*66*7Mʳk}#^#VʩʮkNP++O:H5Gy:ø>~ͳܚ >  :E5 >^ @  :G59 v !455  !!E5 j b 4ͣ*7wͩ#8!6*7\ +4:2=ڋ :3*7w"7*7w\ 5*7!*3&*7m}ͣͩ}ͣ> -¾ ͩ;!O: y6#*D5͠ý0> nO !<5!w"Á":?53!ͣ*7~G:7wͩ26!"7:?5X!:3!*D50#!6~v!5ͣ*7~w27ͩ*D5*":6o&͕!ͮ!*D5͠"*6:6o*D5}!o!6:!<=:!}=!!/!:G5~<=#~ !!0:2=!:3""=OM#:G5n"~ @"# 3"yw +~ F" ͘!!P~!m"A> d"!ͣ6 # t"ͩ;!!n~’"!g!Ϳ"!*D5"͘"!~!͊*2-&"D5M#5!"7:?5•" ":!:K0#*H\:G#!4#!=#!B!!:JG{  ~6#K*7*7m*7do&U\*7:3O^# ]#*&{#}!&Đ)>26*D5"6 t$ t$t$I'!#ʶ#ʶ##*6 ""É#!####l$## #*D5%͘!y!  $>$$!$>$-&$!45&$>!ʎ)#ʺ)#)!oy^>Iy <o26}+q#%:=5:2$<26262626%y!>û$͉$ù$'%y!>!D5!00:6!6$~:D5!6!"6"626262626͌!$260$Ì!:H%:H%:H%:H%:GOf%:%6`% y| xK%!{&2j%&_:j%W~ʨ%#ʙ%###É%~“%#^#Vê%}& ʮ% ʮ%!ͮ%%%0% %T])))_&%%0% %|7&%x 7 7 77?h8h8h8h8h8@8B8D8F8H8J8L8N8\89P8R8T8V8X8h8h8h8f8h8^8h8`8b8d8h8h8h8h8h8h88h88888888h888h8h8h8888h8h8!|ï&V'Ϳ"b'͉7-!~V'+1y-:626͉!$b'>}x1͝$26:626!&26%Ç-!6~6*5~͝!66:68'!!z÷&~G!|6~6̓1:6&'o&)&^#Vo&D~:6/!(6Ÿ'5:6v *D5! ͘!f͘!!v *6|!(6º'W ½02(6*7"6(:&6'(h:6(:%6'm(:$6'(j(l!4((n`:3OU(!!:6*6u(*6u(:6z(>U(:626*7"6(O (G:3PxT(m(*7*6dW(> z(}z(| Ҋ(>^z(@!H5\™(> Þ( ʟ(#*7++*6w͠ڵ(#"6:&6(:$(:J5!6m(G(^#V#(~#z((:!!&!6 )26E)!6N61q!6FwOH):6E):!>S)26!6E)2626/262654>31:O5!44f)~W :6hb:60):&/Ð)>!&Fw>2626))26 :6¶)26:6<):6=26!"626)}:6O/ G:&:6)o#}!6Ĭx:&ʠ)W *:6=0)!6ͬG:6 2*!6):6̧):6W:6)_:6!6<*:6*#+ W+:6/<_y!6҈*l*qy!6ں*<26͗,z<26W !6:6ʺ*:6Һ*z26*z*!6l*26*7"6:6O:6G/!p((r*6@"6}x/+!t(y++>͸(v:3U(:6W×,!6452626*7"6:6T+266͊,+:626Ğ,:3O *76 #=d+#̈́+ x Gm+:6G*6+F+N <ʰ+"6}++F+N 26++++DM>26>.!i,### ʸ+#~+  +26*7"6*76+r+s ͠(,:6(,,,+~w͂,+*6 !e, ~`,#:, G,~*6QSYuHEvREwCOxOVy$$z6"6}>26j*7ë,#p+q}+F+N <,#Vp+^qBK,+V+^ oʤ,ڹ,, ,,,1/4-><1/4-<-<:<-:<-*<~-:%6!q1ͪ"*/4*K"7"7"7*7"7"7"7"7"7"7*7"7! * d!"6"626*/426/26y-!"6"6"6:60!-!4~=º-w]1 '>26!&6~/++! q1:6M*.>14(:%6-*7"7126|=;3.=5c.^#Vq126262626%>26ͳ/ͻ..26G:6X.x ʤ.?G~ʤ.h.[.#~ʨ.:6<#^#V++oN26ͻ.i.26O~ʨ.###~ʤ.#ʍ.Ô.7#^#V|7!$ /*D5W ̲0H/W ./6.=͌!͘!9%/=͌!7ä'>26Ͳ0H/ ͫ!͘!:6F/!/~F/E%F/6w`3^ͫ! ͘!*(:6b/1=!60:63^ͤ'W :6!6ͬo:6†/:6o:6/!6ڝ/!6ک/o&ͮ!W "<É/h):6!6IJ06͓:6G:=5O*,6|!6/6:6!6ᠡ/6W s04(%:&6!7:)6!7:6026750x/50͂020Ͷ!"6͉͹$:626:6R0!6~6!7*,6|!",6͹$:626s0>26!)6~6ȯ26:3Pڏ0!7:14 ͘"8026Ç-:6N!60w:60:6=0w~=!6)!6H)0h`0w`:6133:6!6ͬ!6ͬ!6ͬ*7"7"7>26:/!606EW6Ei7Eѯ2.62U62h7~#26~26#"6Ô1}26|26"6Ô1~#26~#26"6:6=>$Ԭ&11i`)2^#V*6 *6)))2N!}6 :66i`)2^#V#^#V#g2~#fo)DM!!q#p#N#F 2X2X2 2~>'č&#:6>,č&6 >*č&w!^#V>(č&!}6:6w3>&܍&x2>܍&!$~͍&><Cv~3 have to068.0606 060630606#0606o06v0606}W6306'06-06f06!06i06~  855???????????!͓6!N͓6͋6You are trying to run an uninstalled WORDSTAR.Please run INSTALL first.-͋6 ͖6̈́6~̄6 #Ö6**************************WHAT ARE THE OUTPUT STATUS PORT BITS FOR YOUR PRINTER?͌ZlڜYLgҜYܯ^Yl:x͝ *************************************************************WHAT ARE THE INPUT STATUS PORT BITS FOR YOUR PRIN: k+\l-\l:\l<\:'[f3=\Of(=\f@=\f7=\c3\d(\!e@\de7\ 0:+\0:9\ 0:N\0:\\ 0:q\0:\͝  *************** CAUTION *****************THE FOLLOWING PROCEDURE WILL NOT WORK ON ALL HARDWARE ANDMAY HAVE UNUSUAL RESULTS SOMETIMES. PLEASE REMOVE YOURDISKS FROM THE DRIVES AND REPLACE THEM ONLY WHEN TOLD TO.&`>2^͝ ****************************************************************************************************************************YOU MAY NOW REPLACE THE DISKS YOU REMOVED EARLER.*************************************************************************************?V<<214!9"/4ͨ<>:l2,:] @:L!=!͘!!A*?%=!͘!!N*!*!?*!:=#:=#:=#:=:M2=5:P2&2F5`*i!$6@:2G5`=͘"=:F5þ*͗="7:3~++"7"7="7+"7:3~++"7"7"7*:G5¸=*2L&bj «=d+#"7"7*2-M#"7"7c"7d"7:G5*2-=|!L=>o&))))>>god:/->M>?->26:226=26=26r>:7*7>ԓ& i7! !=5~o>>o>6!d",6?-:2ڛ>yқ>?Ԕ>:3@ڛ>қ>!n8",6>͓&g- -4:G5:>>:g>>2H52I5>:2?5͇!u!Ø"!16 !%X6!T66.!{66/:26ɛ Copyright (c) 1979, 1984, MicroPro International Corp.  All rights reserved. ictions on its use. The software  contains valuable trade secrets and proprietary information  of MicroPro International Corporation and is protected by  federal copyright law. It may not be copied or distributed  in any form or medium, disclosed to third parties, or used  in any manner not provided for in said License Agreement  except with prior written authorization from MicroPro. ͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠ҩ ͠͠͠͠͠͠͠͠͠͠ ͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠ҩ:!:K0#*H\:G#!4#!=#!B!!:JG{  ~6#K*7*7m*7do&U\*7:3O^# ]#*&{#}!&͠͠ ͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠͠ID # 20PO0390-001 v3.48 w/WS 3.30 CPM80/OEM-GPI 3.00 ++  + +:++++, You will install WordStar for your equipment and needs. The  following points will help you use the INSTALL program:   o You can use the installation manual to answer any  questions you may have.   o You can also use the WordStar Reference Manual Glossary  to better understand unfamiliar terms.   o You will have the opportunity to review and accept or  reject each item after you select it and again at the  end of the program.   o If you press unnecessary keys, they will be ignored.   o If you need to leave the INSTALL program at any point,  press ^C. ,, Enter the disk drive name (a letter followed by a colon,  B:) where WordStar files will be located while you run  INSTALL: then press . 0 WSU.COM.COM, The uninstalled WordStar program is  normally contained in .  If you are reinstalling WordStar or have previously renamed  the file, enter the new name below; otherwise press .  WSU' , Name of file to install, or for  &' 2,*** INVALID file name. Please re-enter. *** v 2=,*** ERROR *** File does not exist. ,)elea[ }   l.CMDt.COM+   ,*** ERROR *** This version of WordStar cannot be installed  using this version of INSTALL. , Only versions of WordStar in the 3.3 series  may be installed with the version of INSTALL ,*** ERROR *** The file you have specified is not a WordStar  file. This INSTALL can only be used to install  WordStar. , Enter "X" to exit INSTALL,  or press to continue (re-enter filename).  XX ,You are returning to the operating system. ,v WS', File to install is : , When you are finished running this program, you will have an  installed version of WordStar in a new file on the logged  disk drive. It will be called . If you wish to name the  file something else, enter the name below. Otherwise press  . To change the name, enter up to eight letters or  numbers. The extension  will automatically be added to any  name.  WS', Enter name of file for installed WordStar, or for  &' 2 ,*** INVALID file name. Please re-enter. *** { ,'.$$$' File for installed WordStar is : , 22 *** CAUTION *** This file already exists. If you make  changes during this INSTALL session and  save these changes, you will overwrite  this file. ,%{ , You are installing the file  and producing the  file . ,%, INSTALL is copying the file .   PLEASE WAIT. ,22++   ++(, ***** INSTALLATION MENU *****  If you are installing a new copy of WordStar, you must select letter A to install your printer. If your printer is not listed on the Menu of Printers, return to this menu and select letter B. If you want to change a particular WordStar feature, choose letter C. ,A Menu of Printers B Custom Installation of Printers ,C Menu of WordStar Features ,X Exit from INSTALL ,Enter the letter of your choice (A/B/C/X). +A Menu of PrintersA M+B Custom Installation of PrintersB 9+C Menu of WordStar FeaturesC p++ Custom modification of WordStar+ +X Exit from INSTALLX +   ,The changes made during this session of INSTALL are stored in a temporary file. You may now save these changes in your installed file .  These are your current values:  + 2Terminal :  + 2Printer :  +x Communications protocol : 2    No protocol  ETX/ACK protocol  X-ON/X-OFF protocol + Driver : 2 B q   Port Driver (direct I/O to 8-bit ports)  User-installed driver subroutines  Primary list device  Secondary list device , ***** EXIT OPTIONS MENU ***** ,A Save the changes made during this INSTALL session B Quit this session of INSTALL without saving changes C Change any of your choices / Remain in INSTALL , Enter the letter of your choice (A/B/C). +A,Your new installed WordStar file is . #+B,This INSTALL session has been completed without saving changes. "+C+   ,You are returning to the operating system. ,+   -,  value is currently . , Enter "C" to change,  or press to leave unchanged. + c+C   +   ,  value is now -. ,%,You can enter a value in ASCII, decimal, or hexadecimal codes. Precede entry with these prefixes: ,ASCII : (:^A enters ASCII ^A, a single value) Hexadecimal , (,41 enters hexadecimal 41) Decimal # (#61 enters decimal 61) ,Press to leave value unchanged , Enter new value : ]! h  , *** INVALID *** Please re-enter value. ,+ ,  value is now . ,%+++,,  +,,(+ Enter "C" to change,  or press to leave unchanged.  ,+CC ,++  function code sequence is currently: 2+ c (empty) ,+  function code sequence is now : 2+ c (empty) ,+ 2 - c,++, You can enter a value in ASCII, decimal, or hexadecimal codes. Precede each entry with these prefixes: ,ASCII : (:^A enters ASCII ^A, a single value) Hexadecimal , (,41 enters hexadecimal 41) Decimal # (#61 enters decimal 61) ,To enter a sequence of characters, enter each one separately, followed by . ,Press to leave a value unchanged. Enter a period (.) and press to terminate a sequence  and to eliminate all subsequent values. ,These special characters require hexadecimal input:  (^M) ,0D Period (.) ,2E ^H (backspace: ^H) ,08 ,Maximum entries for   function is . +,Current New Value Value + 2 0 ! + 0 ... (unchanged) 1+ :+ +++, 2Printer is currently : ,0 ***** STANDARD PRINTER TYPES ***** Select the letter of your printer from the list below.This is menu "xyz[SX, ***** PRINTER INSTALLATION MENU ***** , If your printer was not listed on the menu of printers or,  if you want to enhance the performance of your printer, you  must provide some additional information about your printer.  This information should be in the manual that comes with the  printer. If not talk to your dealer.   If you wish to install a specialty printer select A on the  following menu.   If you wish to install a standard printer, select B on the  following menu.   If you just want to change a feature, select the appropriate  letter on the following menu. ,, ***** PRINTER INSTALLATION MENU ***** ,A Automatic installation for Specialty printers B Automatic installation for Standard printers  All printers Specialty printers only  C Printer name I Ribbon selection D Initialization J Vertical motion E Overprinting K Horizontal motion F Boldfacing L Print modes G Protocol menu M Phantom characters H Driver menu  Standard printers only Optional  N Return / line feed O User-defined functions  P Carriage roll  Q Character pitch X Exit to INSTALLATION menu   Enter the letter of your choice (A-Q/X). +A,%+B%+C0+DV2+E3+F8+G[S+HX+Il9+J;+K?+L(D+MF+NG+OJI+PM+Q7P+X,+  $++, Automatic installation of a specialty printer ,This routine allows you to install a specialty printer without returning to the printer installation menu. &++, Automatic installation of a standard printer ,This routine allows you to install a standard printer without returning to the printer installation menu. &,Once you enter this routine you will have to answer questions on each printer feature. , Enter "X" to exit,  or press to continue.  +XX + >/0++, Printer initialization ,These are the sequences transmitted to the printer at the beginning and conclusion of printing. , Printer initialization++, Printer de-initializationG/ (+V2++ 2 +, Overprinting ,What type of backspacing method does your printer use? , V) )Currently : Non-backspacing standard printer )Currently : Backspacing standard printer )Currently : Specialty printer G/ )+3+8+x, Communications protocol is currently :  +2 9* R* No protocol k* ETX/ACK protocol k* X-ON/X-OFF protocol G/ z*[S, Printer driver /G/ *X .++, Ribbon selection ,With these control sequences you specify alternate and standard ribbon selection, if your printer allows. What sequence of characters should be sent to the printer at "^PY" in your text? , Alternate ribbon selection++, Standard ribbon selectionG/ *,+l9+, Vertical motion ,/G/ s,+;+, Horizontal motion ,/G/ ,+?+++, Print modes ,If your printer is capable of both backward and forward printing set both of the following features. , Set forward print mode++, Set backward print modeG/ -+(D+++, Print phantom characters ,These sequences specify the characters to be sent to the printer to print its phantom space and phantom rubout characters. , Print phantom space++, Print phantom ruboutG/ .+F+ >/, Return / Line feed /G/ >/+G++, Enter "C" to change,  or press to leave unchanged.  +CC +,As there are a large number of values relating to this item, these values are not displayed. If you wish to change or view any of the current values enter C below and each item will be displayed individually. ,+, Printer Name (optional) 2,Current name is : , Enter "C" to change,  or press to leave unchanged. + c+C , 1 U2 2,Printer name now is : ,%1U2, New printer (maximum 34 characters) : ,Printer name now is : 1",%1,  "   '  " ++, Printer initialization ,This is the sequence transmitted to the printer at the start of printing. , Printer initialization printer initialization++, Printer de-initialization ,This is the sequence transmitted to the printer at the conclusion of printing. , Printer de-initialization printer de-initialization,+ 2 +, Overprinting ,What type of backspacing method does your printer use? , 4 4Currently : Non-backspacing standard printer 5Currently : Backspacing standard printer 5Currently : Specialty printer  +  a5 5Now : Non-backspacing standard printer 5Now : Backspacing standard printer 5Now : Specialty printer A Specialty printer Printer is a daisy wheel or similar incremental printer and can overprint using horizontal motion controls ,Now : Specialty printer ,+B Backspacing standard printer Printer can overprint by backspacing as well as by using return without a line feed ,Now : Backspacing standard printer ,+C Non-backspacing standard printer Printer can overprint only by using return without a line feed  Enter the letter of your choice (A/B/C), or press to leave unchanged. ,Now : Non-backspacing standard printer ,+ +,%3  8++,You must now enter the backspacing control sequence. , Backspacing backspacing,+, Boldfacing ,You may set the number of strikes for boldfacing. This should be set to 2 for specialty printers. +, Boldfacing strikes,++, Alternate ribbon selection ,With this control sequence you specify alternate ribbon selection, if your printer allows. What sequence of characters should be sent to the printer at the first "^PY" in your text? , Alternate ribbon selection alternate ribbon selection++, Standard ribbon selection ,With this control sequence you specify standard ribbon selection. What sequence of characters should be sent to the printer at the second "^PY" in your text? ,, Standard ribbon selection standard ribbon selection,+z+, Vertical motion , What is the sequence of special characters sent by WordStar  to tell the printer to accept the Vertical Motion Index (VMI)? , Your this++, What is the sequence of special characters sent by WordStar  to the printer at the conclusion of printing in vertical  increments? This sequence is not required for most printers. , Your this+,What is the minimum value allowed for VMI? ,+, VMI minimum++,What is the range of valid VMI values? ,NOTE : minimum value + range = maximum value ,+, VMI range++,++,What is the function code sequence that causes a line feed at the current line height? , Your this++,What is the function code sequence that causes a reverse line feed at the current line height? , Your this,++, Horizontal motion , What is the sequence of special characters sent by WordStar  to tell the printer to accept the Horizontal Motion Index (HMI)? , Your this+ 2 +,What horizontal increment (in inches) does your printer use? , )ACurrently : 1/60 inch increments , Enter "C" to change to 1/120 inch increments, ACurrently : 1/120 inch increments , Enter "C" to change to 1/60 inch increments,  or press to leave unchanged. C A+A+, BNow : 1/60 inch increments %BNow : 1/120 inch increments ,%^@+,What is the minimum value allowed for HMI? ,+, HMI minimum++,What is the range of valid HMI values? ,NOTE : minimum value + range = maximum value ,+, HMI range++,++,What is the function code sequence that causes a space forward at the current character width? , Your this++,What is the function code sequence that causes a back space at the current character width? , Your this,++, Print modes ,If your printer is capable of both backward and forward printing set both of the following features. , Set forward print mode ,This sequence defines printing in a forward direction. , Set forward print mode set forward print mode++, Set backward print mode ,This sequence defines printing in a backward direction. , Set backward print mode set backward print mode,++, Print phantom space ,This sequence specifies the characters to be sent to the printer to print its phantom space character. , Print phantom space print phantom space++, Print phantom rubout ,This sequence specifies the characters to be sent to the printer to print its phantom rubout character. , Print phantom rubout print phantom rubout,++ , Return and line feed control sequence , Return and line feed return and line feed++, Return (no line feed) control sequence , Return (no line feed) return (no line feed)++, Return and half line feed control sequence , Return and half line feed return and half line feed,++, User-defined functions ,WordStar provides four print commands which the user may assign. When you include function characters (such as ^PW) in your text, WordStar will perform actions, such as changing to italic font. Check your printer manual for special features available. , User function #1 ,What sequence of characters should be sent to the printer at "^PQ" in your text? , #1 User #1 user++, User function #2 ,What sequence of characters should be sent to the printer at "^PW" in your text? , #2 User #2 user++, User function #3 ,What sequence of characters should be sent to the printer at "^PE" in your text? , #3 User #3 user++, User function #4 ,What sequence of characters should be sent to the printer at "^PR" in your text? , #4 User #4 user,++, Roll up carriage ,Some WordStar features, such as superscripting, require that the carriage roll up a partial line. Check your printer manual for the special characters required to roll the carriage up a partial line. What sequence of characters should be sent to the printer at "^PT" in your text? , Roll up carriage roll up carriage++, Roll down carriage ,Some WordStar features, such as subscripting, require that the carriage roll down a partial line. Check your printer manual for the special characters required to roll the carriage down a partial line. What sequence of characters should be sent to the printer at "^PV" in your text? , Roll down carriage roll down carriage,++, Set alternate character pitch ,If your printer allows, you can change the character pitch within a document. This sequence specifies the characters required to set alternate character pitch. Check your printer manual for code sequence. What sequence of characters should be sent to the printer at "^PA" in your text? , Set alternate character pitch set alternate character pitch++, Set standard character pitch ,This code sequence provides the characters required to set/reset standard character pitch. Check your printer manual for the specific characters. What sequence of characters should be sent to the printer at "^PN" in your text? , Set standard character pitch set standard character pitch,+x, Communications protocol is currently :  +2 S S No protocol S ETX/ACK protocol S X-ON/X-OFF protocol , ***** COMMUNICATIONS PROTOCOL MENU *****   Some printers require special codes to regulate the flow of information from the computer to the printer. If you do not know whether you need one, see the installation manual.,+ :U iU No communications protocol "U ETX/ACK protocol "U X-ON/X-OFF protocol ", A NONE required (or handled outside of WordStar)++ No communications protocol " B ETX/ACK protocol++ ETX/ACK protocol " C X-ON/X-OFF protocol   Enter the letter of your choice (A/B/C), or press to leave unchanged. ++ X-ON/X-OFF protocol ",Communications protocol is now : W W X-ON/X-OFF protocol W No protocol W ETX/ACK protocol ,%[S, X+, ETX/ACK message length ,This value should be equal to or less than one half of the printer buffer size. Refer to your printer manual for buffer size information. +y, ETX/ACK message length,+,  +Driver is currently : 2 +Y [Y  Y Primary list device Y Secondary list device Y Port Driver (direct I/O to 8-bit ports) Y User-installed driver subroutines , ***** DRIVER MENU *****   In order for WordStar to work with the printer you must select a printer driver, the part of a program that sends information to the printer. If you do not know what kind of printer driver you need, see the installation manual.  (With no protocol, the usual driver selection is A.),+ G[ p[ [ Primary list device [ Secondary list device [ Direct I/O to 8-bit port driver [User-installed driver subroutines  A Operating system primary list device+++ Primary list device  B Operating system secondary list device (CP/M only)++++ Secondary list device  C Direct I/O to 8-bit port   Enter the letter of your choice (A/B/C), or press to leave unchanged. ++++ Direct I/O to 8-bit port driver ", Driver is now : ^ {_ c User-installed driver subroutines , See the Installation manual for details on coding and  installing your custom printer busy test, printer output,  and printer input routines.  (The input routine is needed only when a communications  protocol is in use.) p Primary list device , pYou have selected the list device with a protocol. You must make special program modifications. See the installation manual for details. p Secondary list device , The secondary list device must be assigned to a physical device. ,%X,+t , Physical device is currently :  +2 R` ^` j` TTY s` CRT s` BAT s` UC1 , Which of the four physical devices would you like to use as the secondary list device? (See your operating system manual, or, if your system includes several devices, such as printers and terminals, review the current set-up of the system.),+  A TTY - console printer++t B CRT - CRT device++t C BAT - batch mode++t D UC1 - user-defined console device   Enter the letter of your choice (A/B/C/D), or press to leave unchanged. ++t, Physical device is now : b b cUC1 cTTY cCRT cBAT ,%_,p Port Driver (direct I/O to 8-bit ports) , Port Driver , The port driver is normally used with serial printers and a  protocol. Since hardware ports are very non-standard, you  have to provide information to WordStar so that it can modify  the port driver and control the printer. Refer to your  computer manual for information about input and output ports. ,%X, Output port information   The port numbers must be input as a decimal number. ++3 ,Your OUTPUT port number is currently . , Enter "C" to change,  or press to leave unchanged.  +CC + e, What is the OUTPUT port number? ! e,Your OUTPUT port number is now . ,%e+( ,Your OUTPUT STATUS port number is currently . , Enter "C" to change,  or press to leave unchanged.  +CC + g, What is the OUTPUT STATUS port number? ! f,Your OUTPUT STATUS port number is now . ,%f+++ ,Which bits change at the OUTPUT STATUS port when the OUTPUT port becomes ready to accept a character? Use only a hexadecimal value. ,Your current value is . , Enter "C" to change,  or press to leave unchanged.  +CC + h, What is the new value? ! h,This value is now . ,%h+- ,Which bits change from off (0) to on (1) at the OUTPUT STATUS port when the OUTPUT port becomes ready to accept a character? Use only a hexadecimal value. ,Your current value is . , Enter "C" to change,  or press to leave unchanged.  +CC + bj, What is the new value? ! 8j,This value is now . ,%8j+x  p++@ , Input port information   The port numbers must be input as a decimal number. ,Your INPUT port number is currently . , Enter "C" to change,  or press to leave unchanged.  +CC + k, What is the INPUT port number? ! k,Your INPUT port number is now . ,%k+7 ,Your INPUT STATUS port number is currently . , Enter "C" to change,  or press to leave unchanged.  +CC +  m, What is the INPUT STATUS port number? ! l,Your INPUT STATUS port number is now . ,%l++: ,Which bits change at the INPUT STATUS port when the INPUT port becomes ready to accept a character? Use only a hexadecimal value. ,Your current value is . , Enter "C" to change,  or press to leave unchanged.  +CC + n, What is the new value? ! n,This value is now . ,%n+< ,Which bits change from off (0) to on (1) at the INPUT STATUS port when the INPUT port becomes ready to accept a character? Use only a hexadecimal value. ,Your current value is . , Enter "C" to change,  or press to leave unchanged.  +CC + hp, What is the new value? ! >p,This value is now . ,%>pp,%X,, ***** MENU OF WORDSTAR FEATURES *****  To modify a WordStar feature, select the appropriate letter, choose the modification, then return to this menu to continue or exit to the Installation Menu ("X").  A Initial help level K Left margin B Decimal point character L Right margin C Non-document mode M Number lines/page D Initial directory display N Page offset E Initial insertion toggle O Form feeds F Justification toggle P Data field separator G Hyphen help toggle Q Variable name symbol H Omit-page-numbering toggle R Default disk drive I Top page margin J Bottom page margin X Exit to INSTALLATION menu   Enter the letter of your choice (A-R/X). +AA Tu+BB w+CC y+DD az+EE {+FF {+GG |+HH C~+II +JJ +KK +LL ;+MM +NN ҂+OO τ+PP +QQ ^+RR +XX + p s+M+, Initial help level ,You can set the level of onscreen help to provide more or less information as you need it. The help level is currently 2.  A Help level 3 All menus and explanations displayed +B Help level 2 Main editing menu (1-key commands) suppressed +C Help level 1 Prefix menus (2-key commands) also suppressed +D Help level 0 Command explanations also suppressed   Enter the letter of your choice (A/B/C/D), or press to leave unchanged. +,Help level is now . ,%Tu+z, Decimal point character , 2Currently a .Rxcomma (,) _xperiod (.) is used as the decimal point character. For European notation, use a comma (,). , Enter "C" to change to a .xperiod (.), xcomma (,),  or press to leave unchanged.  CC .Uy+.]y+,,Decimal point character is now a .ycomma (,). yperiod (.). ,%w, Non-document mode ,Set WordStar to begin in non-document mode ("N") rather than document mode ("D"). +x, Non-document mode %;z, Initial Opening Menu directory display ,Displays the directory of the logged disk drive at the WordStar Opening Menu. +P, Directory display %z, Initial insertion toggle ,This sets WordStar to start with insertion on, meaning that previously typed text will be moved right for new characters. +O, Insert mode %{, Justification toggle ,This sets WordStar to start with justification on. Your text will be right justified as you type. +m, Justification %r|, Hyphen help toggle ,This sets WordStar to start with hyphen help on. As you re-form a paragraph, WordStar will automatically stop at an appropriate point and you can choose whether to hyphenate. +m, Hyphen help %y}, Hyphenization word length ,You can adjust the minimum number of letters in a word to be hyphenated. ++, Hyphenization word lengthU,, Omit-page-numbering toggle ,This sets WordStar to start with page numbering off; pages will be printed without page numbers. +, Omit-page-numbering %~, Top page margin ,You can adjust the number of lines left blank at the top of the printed page. ++Q, Top page marginU, *+, Bottom page margin ,You can adjust the number of lines left blank at the bottom of the printed page. ++Q , Bottom page marginU, *+, Left margin ,You can specify the column number where the first character on the line should appear. ++j, Left margin++U,, Right margin ,You can specify the column number where the last character on the line should appear. ++k, Right margin++U,, Number lines/page ,You can adjust the number of lines allowed per printed page to fit the paper you are using. 11" = 66 lines ++Q, Number of lines/pageU, *+, Page offset ,You can adjust the number of columns left blank (in addition to the left margin) at the left side of the printed page. ++Q, Page offsetU,, System disk drive ,You can store your message (WSMSGS.OVR) and overlay (.OVR) files on any disk drive. WordStar must know where to find these files.  Using a number, enter the appropriate disk drive, where A is 1, B is 2, etc. ++, System disk drive U,, Form feeds toggle ,You can elect to send a form-feed character, instead of multiple line feeds, before the first page and between other pages. +, Form feed toggle %, Data field separator ,MailMerge recognizes the defined character as the one used to separate data fields in a datafile. +, Data field separator0,, Variable name symbol ,MailMerge requires that a specific character be used before and after variable names inserted in text. Any character other than a slant bar may be used. +, Variable name symbol0,  /v+The slash bar is an unacceptable character for this option. Please hit any key to enable selection of another character. ^-+ 2,  feature is currently vON. , Enter "C" to change to OFF, +OFF. , Enter "C" to change to ON, + or press to leave unchanged.  CC ++++,  feature is now JON. ROFF. ,+ 2-,  value is currently . , Enter "C" to change,  or press to leave unchanged. + cC + U+ 2,  value is now -. ,%U,You can enter a value in ASCII, decimal, or hexadecimal codes. Precede entry with these prefixes: ,ASCII : (:^A enters ASCII ^A, a single value) Hexadecimal , (,41 enters hexadecimal 41) Decimal # (#61 enters decimal 61) ,Press to leave the value unchanged. , Enter new value : !  , *** INVALID *** Please re-enter value. ,U  value is now . +,%U++++ 2-,  value is currently (), Enter "C" to change,  or press to leave unchanged. + c+C  4+ 2,  value is now -(),%4, Enter the character of your choice, then press : -+,  value is now (),%4++, Custom Modification routine.  This routine allows you to modify bytes within the WORDSTAR "user" area. For a description of the contents of the "user" area consult your WORDSTAR Installation manual.  Ȏ &,ȎXX   Enter "X" to exit the modification routine,  or press to continue. ,The address may be input either as a hexadecimal number (with an  optional "h" appended) or as a WORDSTAR symbol.  A WORDSTAR symbol may be specified by preceding your input with  a ":" (eg. :HITE). This may optionally be followed by a "+"  and a number (eg. :HITE+2).   Enter starting address : +*+,    K*** INVALID *** Address not in user-patchable area.  Beginning of user-patchable area :  .  End of user-patchable area :  .   -   o- +++, and the next  characters +-+ 2 - , Is this the address you require (Y/N)? YY +NN + ,You can enter a value in ASCII, decimal, or hexadecimal codes. Precede each entry with these prefixes: ,ASCII : (:^A enters ASCII ^A, a single value) Hexadecimal , (,41 enters hexadecimal 41) Decimal # (#61 enters decimal 61) ,To enter a sequence of characters, enter each one separately, followed by . ,Press to leave a value unchanged. Enter a period (.) and press to terminate a sequence  and to eliminate all subsequent values. ,These special characters require hexadecimal input:  (^M) ,0D Period (.) ,2E ^H (backspace: ^H) ,08 ,address current new  value value ............................... ,-++ 2 0 ! ˕ 0 ... (unchanged) Z+ Z+ 2 There was an error 41opening a file. 5Treading the disk file. 9because a bad file name was being used. 3trying to create a new file. 7the disk is full. Please delete some files. 8 selecting the data. 6.while writing to the file.C. Itoh/TEC Starwriter/F10IIoABcc56    /Make sure any automatic or local line feed switches on the printer are off.Dip switches on the F10 must be set as follows:Left bank - Switches 1,4,6,7,8 closed, remainder open;Right bank - Switches 3,4,5,8 closed, remainder open.Centronics 353   Make sure any automatic line feed or local line feedswitches on your printer are OFF.Centronics 739   Make sure any automatic line feed or local line feedswitches on your printer are OFF. Diablo 630 P  PAB~~56   YZMake sure any automatic line feed or local line feed switches on the printer are OFF. There are several versionsof the Diablo 630. For further information contact Diablo Systems at 415-498-4009.Diablo/Xerox 1610/1620 4B  4B  NAB~~56   Make sure automatic line feed or local line feedswitches on the printer are OFF.Diablo/Xerox 1640/1650 P 4B  AB~~56   YZMake sure automatic line feed or local line feed switches on the printer are OFF. Epson MX80/100-no Graftrax   Make sure any automatic line feed or local line feedswitches on your printer are OFF.Half line feed printer    This choice is for printers that can advance in half-line units but cannot roll carriage return upward, such as a Selectric with a half-line ratchet. Use of this choice causes subscripts and superscripts to be printed offset by half a line. Backspacing is also assumed. Be sure to complete option "N" on the Printer Installation menu. IBM Parallel printer   MPI 88G/99G   Make sure any automatic line feed or local line feedswitches on your printer are OFF.NEC 8023A matrix printer   Make sure any automatic line feed or local line feedswitches on your printer are OFF.NEC Spinwriter 3550= = 34  A2:]@YZ  700NEC Spinwriter specialty 4KO@ = 34 ]O]@><  9This covers most printers in the 3500/5500/7700 series. The3550 is a special printer for the IBM-PC only. If you havequestions about the suitability of a particular model of NECprinter with this product, contact your dealer.Make sure any automatic line feed or local line feed switches on the printer are OFF. Okidata ML84A   Make sure any automatic line feed or local line feedswitches on your printer are OFF. Olympia ESW-102   0Make sure that any automatic line feed switch on the printeris OFF.Qume Sprint 5-9/45-11+IIoABc~56    /Make sure automatic line feed or local line feed switches onthe printer are OFF. Some models of the Qume printers suchas the 9/35 and 10/35 are lacking certain features which prevent their proper functioning with this product. Contact Qume for further information.TI 810/820   Make sure any automatic line feed or local line feedswitches on the printer are OFF.backspacing standard   This selection can be used for any printer that is capable of backspacing. Make sure that any automatic line feed switch on the printer is OFF, and that the printer driver you are using does not remove or add special characters to what is being sent to the printer.standard printer   This selection will drive almost any printer. The printermust be capable of responding to ASCII printing characters,carriage return, and line feed only. Make sure any automatic line feed or local line feed switches on yourprinter are OFF.ABSVARACBSY MACFIN cACINP YACSENDPACSTA1dACSTARlAPLFLGASCUR JAUPAV (AUTOBS0BLDSTRBLNCHRBOFCHRBSCHR ;CB4LFGGCLCHR CLEAD14CLEAD2=CMTCHRCNVTBLCOLOFFICOMPOPCONCHRCONFIEtCOPRITCRBLIVCRCHR CSWTCHCTRAILBDBAK DBLSTRDBS DECCHRzDEFDSKDEL1 DEL2 DEL3 DEL4 DEL5 DELCUSDELMISDFWD DHMIFGDHMILEDHMIN DHRNG DIRCH DISDIR&DLF DMJWB DNPROSDOTCHR{DOTSONyDPHRUBDPHSPCDRLF DSKTNA DSP DVMILEzDVMITRDVMMINDVMRNGEAKBSZyENDEXPEOFCHRERAEOLPERELCHFDTCHRFNMRGP$FNOVLYFNWSCMFPTAB zHARDCRHAVBSYHETHBSHIBCURHIBIV HITE 2HYPF HZONE IDTEX INISUBINITLMjINITPFQINITRMkINITSRlINITWFmINPORT'INSTLD*ITBIP ITDSDRPITHELPMITITOGOITMIJ ITPOPNIVOFF nIVON gJUSTF LFCHR LIBSY LINDELWLININS^LINOFFHLISENDLISINP$LITCHRLOGICPLSPACE$MARKS MEMADRMEMAPVMORPATMOVETY%MPMFLGMSGLEN)MSGVERNITHLFNNOFTAB<NONCONNONDOCxNOUFF OVPCHRPAGCHRPAGDIS#PAGFILPAGON "PALT PATVER PBACKSPBGMEMKPCLAS +PDRVTXPIDTEXPISTAT7POBSY 'PODBLKPOIM <POINP 6POINSK:POIP @POMASK+POOM -POOP 3POSEND2POSMTHPOSTAT(POVSTB0PRFINIPRINITPROTCLxPROTTXPSCR PSCRLFPSFINIPSHALFPSINITPSTAB PSTD PTEXTS.PUBSY DPUINP JPUSENDGRFIXERRIBBONRIBOFFROLDOWROLUP RUBFXFRVELIMRVQUOTSAVEND,SCRLSZSHOWCF SHOWDF SHOWHF SHOWMF!SHYPF SIGNONNSOCHR SOFHYCSOFTCRSTPCHRSWIN SWOUT TRMINIuTRMUNI~TRSCRSTRSCIFTXBACKUCNSTAUCONI UCONO UCRPOSKULCHR UNISUBUSELSTUSR1 USR2 USR3 USR4 VARCH1VARCH2VAROPCVOWTABVTAB VTABF WFLAGSWID 3WRAPF WSVER XTAB UZAFCIN  COPYRIGHT (C) 1983, MicroPro International Corporation. All rights reserved. WordStar 3.30 message texts &j= )L o-  "%%&'(6+,-*++2-q.._1d2}2332233l44445'6q044G4uu@(ur&u() *67M7777I88888 9#9u%8H999:G:h:u(&,CQXVq?p9_e\uXuuuuuu1t:12/.5u222:u:::::::u;*;u;;;;- > >  D Open Document File | Y DELETE a file | H Set HELP LEVEL  N Open Non-document File | E RENAME a file | L Change Drive  X EXIT to System | O COPY a file | R Run a program  F Directory & | P   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  M Run MailMerge S Run SpellStar < < < O P E N I N G M E N U > > >  󭭭 | 堠 |  L Change logged disk drive | | R Run a program  F File directory & | P  | X EXIT to system  H Set help level | |  孭 | E RENAME a file |  D Open a document file | O COPY a file | M Run MailMerge  N Open a non-document file | Y DELETE a file | S Run SpellStar  For maximum help (full menu display),  select Help Level 3 by typing ^JH3.  This message will clear when a key is pressed.  To hypnenate, press -. Before pressing -, you may  move cursor: ^S=cursor left, ^D=cursor right.  If hyphenation not desired, type ^B.  < < < M A I N M E N U > > >  | | |  ^S char left ^D char right |^G char | ^I Tab ^B Reform | (from Main only)  ^A word left ^F word right |DEL chr lf| ^V INSERT ON/OFF |^J Help ^K Block  ^E line up ^X line down |^T word rt|^L Find/Replce again|^Q Quick ^P Print  筭 |^Y line |RETURN End paragraph|^O Onscreen  ^W up line ^Z down line | | ^N Insert a RETURN |  ^R up screen ^C down screen| | ^U Stop a command | CURSOR: ^A=left word ^S=left char ^D=right char  ^F=right word ^E=up line ^X=down line  SCROLL: ^W=up line ^Z=down ^R=up screen ^C=down  DELETE: DEL=char left ^G=right ^T=word ^Y=line  OTHER: ^V=insert off/on ^I=tab RETURN=end para ^U=stop  ^N=insert a RETURN ^B=reform ^L=find/replace again  PREFIX KEYS ^Q ^J ^K ^O ^P display additional menus < < < M A I N M E N U > > >  | | |  ^S char left ^D char right |^G char | ^I Tab ^B Reform | (from Main only)  ^A word left ^F word right |DEL chr lf| ^V INSERT ON/OFF |^J Help ^K Block  ^E line up ^X line down |^T word rt|^L Find/Replce again|^Q Quick ^P Print  筭 |^Y line |RETURN End paragraph|^O Onscreen  ^W up line ^Z down line | | ^N Insert a RETURN |  ^R up screen ^C down screen| | ^U Stop a command | CURSOR: ^A=left word ^S=left char ^D=right char  ^F=right word ^E=up line ^X=down line  SCROLL: ^W=up line ^Z=down ^R=up screen ^C=down  DELETE: DEL=char left ^G=right ^T=word ^Y=line  OTHER: ^V=insert off/on ^I=tab RETURN=end para ^U=stop  ^N=insert a RETURN ^B=reform ^L=find/replace again  PREFIX KEYS ^Q ^J ^K ^O ^P display additional menus  ^Q PREFIX (to cancel prefix, press SPACE bar)  CURSOR: S=left Side E=top X=bottom D=right enD line  R=beginning file C=end file 0-9,B,K,V,P=to marker  SCROLL: W=continuous up Z=continuous down  DELETE TO END LINE: DEL = left Y = right  FIND, REPLACE: F=Find a string A=find And substitute  REPEAT NEXT COMMAND: Q=repeat until key pressed < < < Q U I C K M E N U > > >  | | |  S left side D right side |Y line rt|F Find text in file | (from Main only)  E top scrn X bottom scrn |DEL lin lf|A Find & Replace |^J Help ^K Block  R top file C end file |L Find Misspelling |^Q Quick ^P Print  B top block K end block |Q Repeat command or |^O Onscreen  0-9 marker W up Z down | key until space |Space Bar returns  P previous V last Find or Block | bar or other key |you to Main Menu.  ^K PREFIX (to cancel prefix, press SPACE bar)  END EDIT/SAVE: D=Done X=done,eXit S=Save,reedit Q=abandon  MARK BLOCK: B=Block start K=blocK end H=Hide/display  BLOCK OPERATIONS: V=moVe block C=Copy block Y=delete block  ADDITIONAL FILES R=Read file W=Write block J=delete file  & PRINTING: O=cOpy file E=rEname P=  DISK & DIRECTORY: L=Log disk F=File directory & MISC: 0-9 = set/hide place markers N=columN move % < < < B L O C K M E N U > > >  砠 | | 堠 |  S Save & resume | B Begin K End | R Read P Print | (from Main only)  D Save--done | H Hide / Display | O Copy E Rename | ^J Help ^K Block  X Save & exit | C Copy Y Delete| J Delete | ^Q Quick ^P Print  Q Abandon file | V Move W Write | 렠 | ^O Onscreen  | N Column %|L Change logged disk| Space Bar returns  0-9 set/hide 0-9| |F Directory&| you to Main Menu. ^P PREFIX: Put Control Character in File  V=subscript T=superscript Y=ribbon color change  S=underScore B=Boldface D=Double strike  A=alternate pitch N=standard pitch X=strikeout begin/end  O=non-break space F=phantom space G=phantom rubout  C=pause H=overprint char RETURN=overprint line  Q,W,E,R=user printer controls SPACE=cancel prefix < < < P R I N T M E N U > > >  󠭭 | 砠 |  (begin and end) | (one time each) | A Alternate pitch | (from Main only)  B Bold D Double | H Overprint char | N Standard pitch |^J Help ^K Block  S Underscore | O Non-break space | C Printing pause |^Q Quick ^P Print  X Strikeout | F Phantom space | Y Other ribbon color|^O Onscreen  V Subscript | G Phantom rubout | 󭭠 |Space Bar returns  T Superscript | RET Overprint line | Q(1) W(2) E(3) R(4) |you to Main Menu. ^O PREFIX: on-screen formatting commands  S=line Spacing C=Center cursor line F=margins/tabs from line  L=Left margin X=margin release E=soft Entry   R=Right margin W=Word wrap  D=, ctrl dspy   I=set tab stop J=Justify  P=Page display #  N=clear tab V=Var tabs  T=ruler display!  G=para tab H=Hyphn-Help SPACE=cancel prefix < < < O N S C R E E N M E N U > > >  󠦠 | 堠 | 󭭠 |  L Set left margin |C Center text |J Justify | (from Main only)  R Set right margin|S Set line spacing |V Vari-Tabs|^J Help ^K Block  X Release margins | |H Hyph-help|^Q Quick ^P Print  I Set N Clear tab| 󭭭 |E Soft hyph|^O Onscreen  G Paragraph tab |W Wrd wrap|D Prnt disp |Space Bar returns  F Ruler from line |T Rlr line!|P Pge break#|you to Main Menu. < < < H E L P M E N U > > >  | |  H Display & set help level |S Status line | (from Main only)  B Paragraph reform (CTRL B)|R Ruler line |^J Help ^K Block  F Flags in rightmost column|M Margin & Tab |^Q Quick ^P Print  D Dot commands, print ctrls|P Place markers|^O Onscreen  I Index of commands |V Moving text |Space Bar returns  | |you to Main Menu. < < < H E L P M E N U > > >  | |  H Display & set the help level | S Status line | (from Main only)  B Paragraph reform (CONTROL-B) | R Ruler line | ^J Help ^K Block  F Flags in right-most column | M Margins & Tabs | ^Q Quick ^P Print  D Dot commands, print controls | P Place markers | ^O Onscreen  I Index of commands | V Moving text | Space Bar returns  | | you to Main Menu.  ^S=delete character ^Y=delete entry ^F=File directory  ^D=restore character ^R=Restore entry ^U=cancel command  Type ^KP to continue print.  To return cursor to position before save,  type ^QP before typing anything else.  Type 1-9 to vary speed, SPACE to stop *** WARNING:  Wrong version of WSMSGS.OVR.  Some message may be incorrect. *** *** WARNING:  Screens over 48 lines high or 120 columns wide  have not been tested and debugged. Proceed with  caution; reduce width if bugs are encountered. *** WARNING: Disk full,  deleting old .BAK file to make space.  (Normally, the previous backup file is deleted  only after edit is successfully completed).  Can't display page breaks in a non-document file.*** WARNING: Word too long to fit margins. Put at file beginning for correct page break display. Normally press RETURN only, or enter one or more of:  number=repeat count, B=search Backwards, W=whole Words only, U=ignore case, N=replace w/o asking, G=replace in entire file. To search for misspelled words, enter one of the following -  RETURN = search forward, B = search backward:  F - Fix word D - Add to dictionary  B - Bypass word S - Add to supplemental dictionary  I - Ignore word  HELP LEVELS  3 all menus and explanations displayed.  2 main editing menu (1-control-char commands) suppressed.  1 prefix menus (2-character commands) also suppressed.  0 command explanations (including this) also suppressed.  The current help level is .  Enter SPACE or new help level (0, 1, 2, OR 3):  The LOGGED DISK (or Current Disk or Default Disk) is the  disk drive used for files except those files for which  you enter a disk drive name as part of the file name.  WordStar displays the File Directory of the Logged Disk.  The logged disk drive is now  New logged disk drive (letter, colon, RETURN)?  Use this command to create and alter program source files  and other non-documents. Word wrap defaults off;  tabbing defaults to fixed (TAB chars in file; 8-col stops);  page breaks not shown; high bit flags not used in file.  For normal word processing uses, use the "D" command instead.  Use this command to create a new document file,  or to initiate alteration of an existing document file.  A file name is 1-8 letters/digits, a period,  and an optional 1-3 character type.  File name may be preceded by disk drive letter A-P  and colon, otherwise current logged disk is used.  WARNING: You are editing the same file as you are printing.  WordStar will not allow you to save the edited version  until the print has completed or has been abandoned.  Allow print to finish before editing a file.  Your system does not have enough memory to  permit simultaneous editing and printing.  Can't edit a file while MailMerging ---  Finish or abandon MailMerge before editing.  Finishing print before exit  (type ^U to cancel exit command) ...  Finishing print of same file before saving  (Type ^U to cancel Save command) ...  Finishing print of .BAK file before saving  (Type ^U to cancel Save command) ...  Abandoning unchanged  Abandon edited version of Invalid file name:  File  not found.  Now printing file  "Y" to abandon print, "N" to resume, ^U to hold:  Name of file to MailMerge?  Name of file to print?  For default press RETURN for each question: Start at page number (RETURN for beginning)?  Stop after page number (RETURN for end)?  Number of copies (RETURN for 1)?  Disk file output (Y/N):  Output file name?  Use form feeds (Y/N):  Suppress page formatting (Y/N):  Pause for paper change between pages (Y/N):  Ready printer, press RETURN: WARNING: You are printing the same file as you are editing.  The last saved version will be printed, not reflecting un-  saved changes. Furthermore, WordStar will not allow you to  save the file being edited while the print is in progress.  End edit (^KD) before starting print.  Your system does not have enough memory to  permit simultaneous editing and printing.  *** Print output disk is full. Print paused. *** That place marker is not set. Block beginning is not marked  (or marker is undisplayed). Block end is not marked  (or marker is undisplayed). Block end marker is before beginning marker.Block is too long -  move or delete in two smaller blocks. Cursor is not in range for column move/copy. Column read/write is not allowed. That file exists on destination disk.  Delete existing file first,  or use a different diskette. Disk is full. Invalid copy length. Address in "HOLE" (TSTADR). Memory full (MAK256). Memory shortage (MKSP). Pointer > 64K from cursor (PPTOAD). Insufficient memory  or your operating system is not  relocated to make all RAM available. Diskette directory is full. Close failure -  system failure, or you changed diskettes Rename failure -  system failure, or you changed diskettes. Invalid screen height or width.  Message  Can't edit a file of type .BAK or .$$$.  -- rEname or cOpy before editing. Bad overlay #Bad overlay file, or  Wrong version overlay file. Overlay file  not found. File  not found.  (The separately supplied file   is required for use of chosen function.) not found. Program is an empty file! Program too large for  memory available under WordStar Let print complete before running a program.  Not enough memory to use "RUN PROGRAM" command.  File  not found.  Cannot RUN a program unless  is available.  For spelling check, enter name of file to be checked.  (^R for last file edited)  For dictionary maintenance, enter name of file  containing words to add to or delete from dictionary.  Enter the name of the file you wish to index.  (^R for last file edited)  To put the processed text, table of contents, and index  files on other than the logged drive, enter the drive  letter and a colon after the file name.  To specify a format file other than FORMAT.FMT, enter the  format file name after the drive letter.  EXAMPLE : LETTER.DOC A: B:LETTER.FMT  File  already exists.  File  not on same drive.  Insufficient memory to copy while  editing or MailMerging  File  exists -- overwrite? (Y/N): File  in use by WordStar. File  opened by another user.   P=   Press SPACE after reading screen. *** Invalid Dot Command Ignored: *** File not found *** but found, and will use, *** Cannot change disk in drive , request ignored. Insert diskette with file ;then press RETURN.  Insufficient memory for MailMerge  *** No .DF before .RV: *** WARNING: Overlong data value truncated. *** Invalid variable name in .RV command ignored. *** WARNING: Data exhausted, null value(s) used. *** WARNING: Unknown conditional character. *** WARNING: Illegal string or constant. *** WARNING: Unbalanced parenthesis. *** WARNING: Expression or terminator missing. *** WARNING: Target greater than 32767 or longer than 20 characters. *** WARNING: Extra data in command line. *** WARNING: Specified .EF not found. ***** Print Directives *****  PRINT CONTROL CHARACTERS may be entered anywhere in a line  to invoke underlining, boldface, subscripts, pauses, etc.  They are entered by typing ^P and a letter. A directory  of most print controls is given on the ^P PREFIX MENU;  see manual for more.  DOT COMMANDS are special lines beginning with a period and  a two-letter code. They control page breaks, headings,  page numbering, page layout, etc. Dot commands are  typed in like other text.  SPACE bar for DOT COMMAND SUMMARY, ^U to return to editing:  ***** Dot Commands *****  PUT EACH DOT COMMAND ON SEPARATE LINE, WITH . IN COL 1  .PA new PAge  .CP n new page if less than n lines left on this page  .OP Omit Page numbers when printing, starting this page  .PN print Page Numbers, starting this page (default)  .PN n set Page Number to n, print page numbers  .PC n Page number Column (default 33 (30 if 64-col screen))  .PO n Page Offset: extra indent when printed (default 8)  .. text comment, not printed  Press SPACE bar for next frame:  .HE text HEading used until next .HE (default blank)  .FO text FOoting (replaces page number) (blank)  .PL n Paper Length: total number of lines (default 66)  .MT n Margin at Top: # lines, top of paper to text (3)  .MB n Margin at Bottom: # lines, end text to end paper (8)  # lines text on page is PL - MT - MB (defaults to 55)  .HM n Heading Margin: blank lines between head and text (2)  .FM n Footing Margin: blank lines, text to footing (2)  For page breaks to display as they will print, use  .PL,.MT,.MB, AND .LH (next frame) at file beginning only.  Press SPACE bar for next frame:  THE FOLLOWING WORK ONLY WITH INCREMENTAL PRINTERS:  .LH n Line Height in 48ths of an inch (default 8)  .CW n Character Width in 120ths of an inch, for standard or  alternate pitch, whichever is in use (see ^P menu).  (default 12 for standard, 10 for alternate)  .SR n Subscript / Superscript Roll in 48ths of an inch (3)  .UJ OFF/ON "MICROJUSTIFICATION" off/on (default ON)  Use to insure that printed column alignment exactly  matches screen, e.g. for tabular material:  Put .UJ OFF before table, put .UJ ON after table.  Press SPACE for next frame, ^U to return to editing:  SPECIAL CHARACTERS in HEADINGS (.HE) and FOOTINGS (.FO):  # prints as current page number  \ do not interpret next character as a special character  ^K do not print following spaces if on even-numbered page  PAGE NUMBER POSITIONING: If a footing text is specified (.FO  dot command), the default bottom center page number is not  printed. Use a # in heading or footing to position page  number where desired. ^K followed by spaces followed by #  may be used to produce alternating left/right page numbers.  Press SPACE for next frame, ^U to return to editing:  ***** MailMerge Dot Commands *****  .DF filename specify Data File for .RV  .RV name,name,name,... Read Variable values from data file  .AV "PROMPT",name Ask operator for Variable value  &name& anywhere in document prints as variable value.  variable names are letter, then 0-39 letters, digits, -'s.  .FI filename Insert document File  .DM message Display Message  See manual for details and additional commands. MailMerge  is an optional feature, operational only if MAILMRGE.OVR is  on your diskette.  Press any key to return to editing:  ***** STATUS LINE (top line of screen) *****  ^JS at left end of line is command now executing  A:NAME.TYP is name of file you are now editing  PAGE n is page number of cursor (disregards .PN's)  LINE n is printout line on page of cursor position  COL n is printout column on line of cursor position  INSERT ON shows if character insertion is on (^V command)  MAR REL shows if margins are released (^OX command)  decimal shows during decimal tabbing  LINE SPACING n shows if line spacing is not 1 (^OS command)  PRINT PAUSED shows if printer is stopped (^KP to resume)  when WAIT appears, stop typing.  Press SPACE bar for next frame:  If page break display is OFF (^OP command) or edit  was started with N command, then Status Line shows  FC=nnnn FL=nnnn in place of PAGE n LINE n .   FC=nnnn cursor position in characters (bytes) from  beginning of file  FL=nnnn cursor position in file lines from beginning  of file, including dot command lines   Press SPACE bar to return to editing:  ***** FLAG CHARACTERS (rightmost column of screen) *****  < line ends in "HARD" carriage return, entered by user  space this line break arose from word wrap or paragraph  reform, and may be moved on subsequent reform  + this line of document continues to right of screen  - next line will overprint this line  ? unrecognized or incomplete dot command  M MailMerge (optional feature) dot command  P page break  : this screen line is before beginning of document  . this screen line is after end of document  Press SPACE bar to return to editing:  COMMANDS TO -- ARE --  move cursor on main and ^Q menus  scroll file up or down on main menu; also find (^QF)  delete text on main and ^Q menus; also ^KY  move or copy text on ^K menu  end edit / save file ^KD; see ^K menu  print (while editing) ^KP  set tabs and margins on ^O menu  reformat text ^B; ^JB gives info  find a string; replace ^QF; ^QA; ^L repeats last  Press SPACE bar for "ENTERING TEXT":  ***** ENTERING TEXT *****  To enter text at cursor position, just type the text.  Use RETURN key for paragraph end or other fixed line break;  let word wrap form lines within paragraph.  Type ^V to turn insertion off (to overtype) or back on.  ^N may be used to create blank lines ahead of cursor,  as before inserting a paragraph.  Use ^B to realign margins after corrections.  ^JM shows info on margins, tabs, table entry, outline entry. Press SPACE bar to return to editing:  ***** TO MOVE A BLOCK OF TEXT *****  1. Put cursor on first character, type ^KB to mark start.  2. Put cursor after last character, type ^KK to mark end  (for end line, use start next line to include RETURN).  3. Put cursor at destination, type ^KV to move the text,  or ^KC to make a duplicate copy.  To undisplay markers afterwards, use ^KH.  ^KB and ^KK may be entered in either order, with or without  other intervening commands.  All above commands are on ^K menu.  Press SPACE bar to return to editing:  ***** PARAGRAPH REFORM (^B) *****  To realign margins of a paragraph after corrections, place  cursor at beginning of paragraph and type ^B.  To change margins of paragraph already entered, set margins  (^OL, ^OR), place cursor at paragraph beginning, type ^B.  To change between justified and ragged right, or change line  spacing, set desired justification (^OJ) & line spacing  (^OS), place cursor at paragraph beginning, and type ^B.  To obtain WordStar's help in hyphenating long words, place  cursor at beginning of paragraph and type ^B.  Press SPACE bar for next frame:  ^B reforms lines to end of paragraph as indicated by "HARD"  carriage return (< in rightmost column).  Thus, it is important not to use RETURN between lines  within a paragraph when entering text.  ^B may be used to form hanging indents, change margins in  mid-paragraph, etc. The exact rule is:  "^B STARTS ON THE CURSOR LINE, AT THE LEFT MARGIN  column, or at the cursor position, whichever is  farther left, and proceeds to the next 'hard'  carriage return".  Press SPACE bar for next frame:  ***** Hyphen-Help *****  ^B will occasionally stop before the end of the paragraph  and ask you whether you wish a word hyphenated.  Following the instructions that appear on the screen, move  the cursor if desired to adjust the hyphen position,  then press "-" to hyphenate, or ^B to not hyphenate.  To turn off "HYPHEN-HELP", type ^OH.  Press SPACE bar to return to editing:  ***** MARGINS *****  To set left margin: Type ^OL. WordStar will ask for column.  Type desired column number 1-240 and press RETURN.  Or, to use column of cursor in file, just press ESCAPE.  To set right margin: type ^OR, proceed as above.  To set both margins to match text in a line already entered:  place cursor in that line, type ^OF.  To temporarily set left margin to next tab stop: type ^OG.  Margins apply to text subsequently entered. To remarginate  text already entered: set margins and use ^B.  Press SPACE bar for next frame:  ***** LINE SPACING AND JUSTIFICATION *****   To set line spacing: type ^OS. WordStar will ask for line  spacing. Enter a digit 1 thru 9.  To turn justification off (for ragged right format),  or to turn justification back on: type ^OJ.  Line spacing and justification settings apply to text  subsequently entered; they may be applied to previously  entered text with the paragraph reform command (^B).  Press SPACE bar for "TAB STOPS":  ***** TAB STOPS *****   To set a tab: type ^OI. WordStar will ask for column number.  Type column number and press RETURN. Or, to use cursor  column, press the ESCAPE key. To set a decimal tab stop,  type "#" before typing column number or pressing ESCAPE.  To clear a tab stop or all tab stops: type ^ON.  To tab: type ^I, or press TAB key if present. Tabbing  inserts spaces to next tab stop if insertion (^V) is on.  Tabbing advances cursor over text if insertion is off.  Press SPACE bar for next frame:  ENTERING A COLUMNAR TABLE -- We Suggest:   Set a tab stop for each column of table.  Clear all other tab stops.  If not at end of file, turn on insertion (^V),  or use ^N to make blank lines.  Tab (^I) after entering each table item. After last column  on a line, tabbing will move to first item on next line.  Press SPACE bar for next frame:  OUTLINE FORMAT TEXT ENTRY -- We Suggest:  Set tab stops at desired indentations.  Set right margin as desired.  For each item:  Type ^OG's as required for item number indentation.  Type item number.  Type ^OG.  Type text of item, without using RETURN.  At end of item, press RETURN. Left margin resets.  Press RETURN again if blank line desired.  Press SPACE bar to return to editing:  ***** RULER LINE *****   L----!----!----!----!----!----!----!----!---------R   L Left margin (set with ^OL)  R Right margin (set with ^OR)  ! regular tab stop (set with ^OI, clear with ^ON)  # decimal tab stop (set with ^OI, clear with ^ON)  - other positions between margins   Press SPACE bar to return to editing:  ***** PLACE MARKERS *****   Up to 10 place markers, identified by numbers (n) 0-9,  may be set in a file while the file is being edited.  To set place marker n at the cursor position: type ^Kn.  will display to indicate the marker position.  To return the cursor to place marker n: type ^Qn any  time during the same edit.  To remove the from the display: type ^Kn when the  cursor is already at the marker position.  Press SPACE bar for next frame:  ***** OTHER MARKER & RELATED COMMANDS *****   The block beginning marker, ¾, and the block end marker,  ˾, are set and moved to in a similar manner; the  text between these markers can be moved (^KV), copied  (^KC), deleted (^KY), or written to a file (^KW).   ^QP moves cursor to its position before preceding command.   ^QV moves cursor to start of last find/replace, or to  source of text for last block move or copy.  Press SPACE bar to return to editing:  If this displays, you are using the wrong version of WSMSGS.OVR.  text between these markers can be moved (^KV), copied  (^KC), deleted (^KY), or written to a file (^KW).  COPYRIGHT (C) 1983, MicroPro International Corporation. All rights reserved. WordStar release 3.30 overlay file number 1. NOSEY, AREN'T YOU? Bý<>AE>x ʡ</{/:<><2/;!:: *;<6#";=Ae@ !> :=%>:=A6#J= J=~*:::O ~!:ͥ>!":*;ͮ>========!=F6#>=J=~6# Ox͡?ç=":!::! ;"@2;::?Y>͗2:2:ALe x4>!:~6)>::ͪA2'6L>2:2;:;!:’>*:*:d*:P*:P͠Ғ>2;?T?e:J= > +~<>*;++~:>>>>>ġ?#*:\A! >!:ͥ>*:ͮ>9?F#>.?J=~ O#x͡?{?> ͡?":";{2:!::: ;2 ;!2>!:ͥ>*:\A*:::_>G{ʛ?H>G>y”?ʕ? O>xF͡?w?*:\A2;WG ҙ@ʙ@ʙ@?2;:?:?:?q>2;@@@>@A?::=$@<<=͖B@9@´2:>3@N@?::)>@!:1A#oHͿ@::x :=*/;>AͿ@î@Q::@:::=@@z@z :::@:::! ZBZBZBZB*{;#"{;e*:&]>A~1APYð*A*:&:;HA]*:":*:":!*:dEA]*:":*:*9<|d":::_jA*:|*9 –B>!,<*:-,=AҵBAÙB!"{;ý0zÇvýv}vÑy]ya !.; ?delete? rename? New name? copy from? copy to ? *w vh%:=5!78:=508$02=526%:=5!77!6@*Ͷ$:626'%7$!75f#ͶvQv@_#~:w#Ͷwv>;͂y{þ6!4͂$'%Qw!z~Nw4w#Ewz~#$O*&+1*D5"6"6*6͘!ͫ${#Ͷ$~@xy:6GxTxTxMy=wҹw$9nw$8nwywoxwEnwyw!6w8nw>܍&w8nwy>xoxxEnw>x8$I' !1x#~>xEnwͫ$}!&Đ)8~gx#[x$8nw!06ͭx:6ʑx!ͭx!ͭx!7ͭx:%6ʩx!;ͭx:4!;ĭx# ͔8éxկ x=yxy.x#y xͶ7!yy y!yy>  y~,y#.:*? пͶ#~+:Xy~?Q?@##*w"v9w$v]y͂y!6 6+:%6!4!6ʬz*w&v9w(vʕy'z͂y>2zGOyy*763yx2)6vcLv:2,:2]1%24:6«v 8͍y?%÷v8͓yyI'EvvQyv7v2626:&2C5:B5͐)K-EhNw:6wͥ!4~6-ww!% E!2v! h%!7:72w!7 swI'͌wswQw!7H*7yCJͦE!7xEKJ`Jy’J`J!"6!7gH*7wC͎Iҡw`Jv:%67-%$ 8.| I':&6:%67-ÿw8w8>25G*$6|!8z:%6z%:=5x!8ͫ$:626̅$!4/x,v2,]1'%$*&+1*D5"6"6*6͘!ͫ${#+w#Ͷ$~ʌxͻxڠxʃx1yڠxGͶ xxGMxͫ$}!&Đ)8~ʳx#çx$8Jxկ x1yxx.x#x xͶ7y y xyy>  y~ y#.:*? пͶ#~+:Ly~?Q?@##%:%6%zfy$8uy:%6z҈y$8.| I':%6xy$.v͓y.0v!4:4̩y*$~ʿy ʿy.#yìy6.#7 yw# y+~.y#6*vy!y#~$I' *7*7d!'͠?!(8",6!C7)z!; ͔7?x JvQvWv4EDBACKUP$$$BAKNEW FILE:x/25bv͒v͡vKw]1:4:O2J5>,w:j2M52K5:3!kڈv~<2O5>24!@>2%!v!͒ʾv!v!͒v!8",6Ç-!@!6@22(2+2=K-*7""7*7*7d|<2626|D!"6>26!w)"6(w26!5wȷ! @>2 !m:%6!4̬!~ͪxw:,ywͪxw:ʅw>26C7 !v!~7!v !:4=w!%5!7!4M:6w6 #:@!4M!4~M:4= x!5%:6>܍&> č&>܍&>7x2Bx26v?%!v!:5,w:&2B5:C5͐)͠):%6ĕxsx!8",6:=5=?*,6!N!>5”x5!p8",6;! ͔7?دɛ{ vcvtv:%/Wͳv̇v!ʂ|k͵LzWLj!7H*7:%x̢G1!jnvͳvnv,v!ʂvk͇v:%ʤv:G2Häv&w͆xI'͵k:%ƒwCÐvnv!Dk!Dk&w7v*7*7dv!U*͠> ܍&10MGI'W ixg"6!7G*7*7w# w"7zwCCv!"6Uw!vk:>wnv>͍&:%|z!H:G6w:%nw*"|> č&}> ԍ&:>č&:>͍&͉wÐv*h*7͠ҥx:{®wïw͠ҥxzWx|¦wwzwww:ILx={xڦwwLxæw{xæw!D:I7ȷ:I=4xLx;x:Go&A> zxx1x{(x;x>2IxwÏw{xA%xQx*7#"7{>2IwC>z:I={xLxnxæwgo2D2I#C>2D>2D2I*G&"h|2{| xx+!Df:Io=Lx{x}2I|2D"h>2{*G|g*GͣR8͵L̓V*G"G2A"E`i"B2?<2I2DLy:&ogyy&"GDynxzyz=y͈zz$y"ELy*EDy*G&[zv{ʨ{zyTyv{[z}{qy33"E!yKâz͚zځ{Šynx͚zڛ{ʕ{*G"+:&g$o"G2D2Iz*+"G7z|Ҙy˜y:&y+Lxy[z:Gg:HG{|yDM v{{my"E:G&oA:HzyGw{>2DmymyTywC'LyG;xQ'LQz*LNzwCy͈zz |z |z͈zGx*B}”z7+"BxwCKz!Azʾz z6 6Úz6GͿz>xɯx z#z+:D2IG{x G{ #|z͝x+z:D1{||z:G){|z>2D7=|z>2D:H|z|z){> z`{e{}J{W{# }e{ Gx*EâGâGwC>ZD> ZD!Þ{wC'LwC:&{y  ¶{ v{:H{|yJ{o|{{%{E{8pw{8{ ×vÞv(wz#9IWWFIND? REPLACE WITH? OPTIONS? (? FOR HELP) *** NOT FOUND: "REPLACE (Y/N):  ???R5"2äv2>25O͂$'%v$!R5f#25yv>,}v$!r5f#25>)}ͫ$*D5!5 @>2525:5w͘!v!5 f#Fyv͉!(kUw.(!(k25:5Kw:5Uw>dxUw:BUw^x:5hw:5̘kĞk*5"5uxI'wҋw*5|!v!v÷&:5 x*5|ʞw+"5:5!(k:5»w:5^xqw:5qw>dxqw}:5JÃJ+1!CywxxwCI'ww:5̞kĘk7;!:5Wxx+x:5:B*7wwCh:5*7wC*7!r5ͤx*7͝G:5:q5dxW /KwC*7*7͠~wC!R5C:5ŠxͤxÜxͤx>+wx+w#y25~xºx>  > x # èx+p#:5K?wC! v"6Ͳ0ͤ'/y! y#~:5 y:5 y>dx!H5 7*7~ -% *6͘!3%=yͫ!͘!yI' Ͷ#Gyy?gy$77!|vy>25#‚y>25#”y>25:525#Ÿy25#«y>25> }"v$v$7+~#bk))y0_y"5y!:5z!7z*7(zwC!7z*7MzzH:B {zȮ>{~>z~>ɛwvvvv%v7vÅvÖvͷKK4v(vC[gL*LJv=v#D*P:6O~`lvyͪ`lvlv Wv~~wyͪ`‚vDM26PjͷKKhÈv:p*K5͒iڰv*O5+++mڳv*M5"K52p!ւ-kH)*6"6!6ð!\ev!e"6>26!"6:6*:vXK/w!ڂ|k*ͷK/ww[g!΂ e>267ɯ2{Ͷww3w{Ͷw*w7?@wͤw{uwͶwwʃwͤw>2ͶwwpwE7:7ͶwSʚwDwͶw-7+ڂL"#{ʼwI'K? | ڼw7*wɾ#45wɛy6BwXwgwÁwxCxwwwwwwÛxxwwx9s{IQ0 ENTER space OR NEW LINE SPACING (1-9): LEFT MARGIN COLUMN NUMBERumn)? (ESCAPE for cursor col RIGHT For decimal tab stop enter "#" and decimal point column  SETJUMNF TAB AT COL CLEAR./; A for all)? =*2L&bj «=$Bv1< 2$!6~6dw6H)!5Dvͦw2M52K5<<<2O5===!K5w!M5wsyH)=xʸw*"|}w>w<>!w!ð!ð!ð!ð! Ͱ+1!!H)ð:"!#w!48",6!%wHv!5xyͩw_z#/xXxXxH)y!54@zxJv!5Azy4xͩw_{w!54wsx)))){/w!4+ʒx~ʁx’x{244H)k yx+C!ނ-k0y**M5d*O5*|x͕_}x!ނ|k> ZD-x!ڂ|kk y y+wC-y:qw:=͋wH)xͷK*s"lͿ7(ly *"sͷK*s":s_lͿ(lCy;y!*x#/x-Vx;yzy'%ͫ$f#Gy¨yͶ#ʦy!¨yW#Ͷ7yyͶ{|y|y~:0#bk))wy{&1wzYzSPELSTAROVRSTARINDXOVR%3 COMMAND? WHAT???   NOT FOUND  Enter the name of the program you wish to Run,  optionally followed by appropriate arguments.  Example (shows disk space): STAT check / add to dictionary? Index? 24:%6Cw!8",6g-̓͠!8?w26̓1!с!@ !!8?wE>1:2!M!"~2!tE":4zaz!:v7z'%4vͫ$!{?6yy> 6y 6y~Hy#.: пկ YyͰy y~y.vy#~yx͜yʑy ~y͜yŠy>  ’y~ͧy#*?HyͶ#~+:y~?Q?@##~#fo"d{#d"f{z*zzo*z4zg*f{s#r+|z~w#+|y*d{F#"d{xG z8%:=5͹$:626ͅ$'%$2v>245w24%~!#v z>/͍&E!77z!4{'%>vͫ$!{:f#Ͷ~Syz6vÖzz8vÖzE!{x>245w%~!v {>/͍&E!87z!4{'%21Îyʈ 7*>212͟E:E1!͢È!~"*!`͏!!͏!"ÔG:x~# ×^#V+~#ʸÀé!ͩéO> π2>*_yN#!5x>4!E!E!E!! ͢͢!͢ɀ8d Hit any key to return to WordStar: Replace diskette with file , hit any key: *** file  still not found *** *** file  bad (too big ??!@&*) *** *** file  bad (too short) *** ***  found is bad or incompatible version *** ^C Cannot return to WordStar. Replace system disk (if removed), Hit any key to return to Operating System: Hit any key to return to Operating System: iz(vv:6:%6W6g2>uv:%6uv!&6~6Cv:$6]1 >2:%:6]v8!4*8w>2:2&6/2:2$6:6NzC!:@4!%;!4:$6ʮv/x8ôv/x8:6ĥwv+~!8v",64v~#v!4~v]1!9"gz$8:6<26x:6͌!Ͷ$=͌!8!4ͺw/x,8w:5w?w(x!%58y"3;w!+5*8y"5;w!15.8:$6y"7;wx8!4:̺w 8#ͺw#:4/"8̺ww$8$I'!; ͔7?$ xwN!w#+wAxw#~xp*gz xw>;!x#~$7I' ?:62626:626̅$'%$O*&+1*D5"6"6*6͘!ͫ${#Ͷ$+w#~xUyxxMyxyʾxyQxxʾx8$I' !ʷx#~Qxͫ$}!&Đ)8~x#x$8Qxx$9Qx$8Qx!;;y!06;y!W6;y!i7;y:67y!;y!;y!7;y# ͔87yկ [yyڍy͑y.xy#͑y ʍyͶ7ͯyʤy ‘yͯyy>  ¥y~ͺy#.:*? пͶ#~+:y~?Q?@##$*D5&͘!bkͫ$f#Ͷ)zͶzyͶ$7ȷ~:0#bk))Jz_Jz,z!*7*7d!'͠?!&8",6kp ÖMIZ"&,48PAGE\ LINE\FC= FL= COL\MAR\RELINSERT\ONdecimalLINE\SPACING\cFG?ALʡCڤC*7m"7`i͟LiL͉D*7mF*7 "7"7iL~GÞC*7"7dDͫL C   QDCGÞC|ÞC*7m"7F`iDͫL W W >D FD zLQD*D~GD G*7w#"7+͟D`iD͟L'D͉DrD*7"7ãD2xʽ0:y*7d:"/̫ED|D D D#D*7+ m!"""͏Fxʽ0 k%dEExʽ0  ^E 0E Exʽ0  Eg*#"*#":"QE*͠YE> ͖ED>͖EnED:yĽED*͈Es#r!"*#"*&)*g:"2l|bk+_:**:"EͫE!EE!Et%EELHCFPLXFMT^FMBdFCPFPA F% nE> ͖E*#"% E>͖EFnE;%E% E**#͠FE;%EE%g}2 ÀF! gF!gF!;%EE%yW{͇F͟F|EO: & !Q *** d|F`h: /<_F Fi`" 2xG  GG F9GOGF:"G9GOG"GF:O`G*+":yGG9G>2!454k%*+"*+"͈E͍"*7dA|#O zG fGxͬ&>26!7YH**6͠H"6!7YHHHd*6͠6H"6*6͠DH"6*=7*=dH`i)\fH!7#͠+HͶHͩHnH!7͠H++++ÂH!7H ͩHҚH####7͠H++͉s#r+##s#r++H͉#r+s +r+s!7͉m.II>܇I I:6GO I+I IbI͎I>eI1I!64F!6II=O:6=G͎IbI WI*7+:V7!W~zI6!-kwC*7#iI*6*7d*7͠**6͠ҸIͽIͦ*6#"6"7*7JI:@7W~zCJI*6*7͠J*6HH͠J:J*6HH͠7-Jͽ:Jͦ*6+"6J"7:G+~# OJ> XJJ͒H.I?K*6!72KÒJJ`J!7K*7ͫJJڡJ2@7"7 •JbI}77:73~J#J7>J>:!77:7`JI!7K*7}:bI"7 JbI.I*6͒H͠DK*6)$$EK=KO>ͬ&gH͒H͠TK)|Lɯ2 'M:WnKwC}K*72 /2 *7ڇK*7m:WʭK:­K*|ʰKPY͠ڬKDMɯ2WH*72 ͷKxK~# ! ~6K2 *7*7mx‚LcJ\Kx7*7ɯ2 'M*7L*7m>2 *7LLx4L+~ ! ~6RL=2 !7͉mx‚LJLx7͵L͟LͫLyLnL    7L?L L ɯo>g>_:mCW o g _ Wz}|{ L*7͠*7͠>ͬ&LLL M*7M*7}o|g_P}!\M͵L0M{fM>Ĭ&zʅM*7*7d͠[M̓JBM*7>ÎM<>Ĭ&*7*7d҅͠MJlM*7z7>2 }:2!uCڢM~=26=26ڳM~26=26``i"R "T͏F>26Ç-N*6<͠N:6N!6~6̭N /c N:6*6*67LN2626^N'* .4NyN!fx N*6"6"6"6y26x26:6!6[N26-ʂ͵LL-k:=5ڥNͤ'9%:6> 0Ͳ026W %͂0͉͹$:626ɯ2626:=5͉!$88'L KwCKʻNNN! |  7N!6~6ʐO͞P+O`i+~+++O6! ^#V{\Oʹ`?G1G:6EO>JOx=`͍RckL7>~͌`P̓QҜO*R~~O͞_PlO` ʜO_wQ~O͞P+O~QPͰP+OP΂P{<[g҂P{[gւP{gW 2l:K5!‚-kͯEO!|k*TDM͵kwC|k2K5:l~QÜO͵L :6``i"P͵L̓V:%26*&" "":(2:|6@P̓1 W :`b^:W!|k2WLP2$!6~6/W |Pͫ! ͘!:6=ʋP͗PڒP7ԗPH)!65mmͣRoR7ȷ͂^P͞P:ͪ`P!6s^wQðP>P:6`2&:W!tC)Q! 45P͙RP=6++++!tCP/Q! ~Q͙R!tC)Q Q QLP͵LcUlQ̓V͆L_QI`ͺ_yR:Qzbg 整yR͍RzWLI`L:6=ÀQ>`! ʖQ~wçQ ʡQ~§QͶQêQ͍RoRQLP͵LoR̓V ͍RoRiRz9R iR iR͆LSQI` R̓V͆LRͩ^yR͍RSQoRiRQyRQ hR͆L.RiR͎^SQRI` IRiR TR WL͍RoRIRiRLùQ:6!͵LzWL:<2I`:=ÕRLP*pC!&####:S~ʰR°R###~R+++Rzͪ`R~ʰRR+~G+++Rx:S~:S~:S~Sz!tC:S++++~:S:SDMz!sC:S!uC:S226LP7JS>2? T mS> GSbX:hYS‰S: 'TSBS:!I5”SSGS| S: S>^BSSS@BS^VʯS@GSôS*h#"h*E+"E*h+"h!TSS'T>T>͂ST> }T>~!kU: 1T: 1Tɯ2 :Wz2%*h:?JT+"&:k2(>2=:>T:U+zT*7M*7wT*7M*7*-wTzU*7:wTzU*0͠UU*h͠UUjVM*7+++++{TTU}~+TU!H5! F6BSOx2 y>2VL*LԌU2VLL͢Ux̿U+~  U#x̿U+~ # +åU>*L#:hG:?!:US#~\V*0}=V#6{="V=2>2;!k:22[\V:=2;2VW*-p#"-w#>2@[\V#54+U:i\V*0*h͠UGxG"026=2/*+ ÃV!"h9"+!W~ʚV6>2VLz2]>2\:22!:#:% 2jW:D=&XOy@X @X@X -XxgêWWxAX!X*h|}/<7:EjX=rZ:A:%2E-[:ͨXY:͓XY:;ʠX:2 2j͓X:\2\#̀\X:͓X:Y:͓XỲ\> #WGSͫX üX:X:͓XK Y Y Ỳ\YY#:ͨX@+:@[> O2?:]'TX:\LwN\AY͊\:%OY:AtY:kGYYw#WY:jwW 2VX͵L:COY:<«Y*0"h|}ªY!GڪY>2CS!YZbX:E=W:kGS]Yw#·YjXîY:`<2a=YYY*hZj73ZL͍ZWO$%Z.}Z.Ey=!G1Zx.Zw:%0y#QZ!CFZQZw!45!w~[>>HU:F:B3ZZ2`2F=2E=2_:]¿Z \zZ!_4:% [ZZ:Z>2k:]̆L`X?ԆL[[:%[:G<[:H<[2Aɯ:`=ZZZ:I/!ꂦ!Z*hM|D!G~®[\[=2D>2k:Cg[ڝ[:Hڪ[ʢ[O:`‰[:_=ڪ[ʪ[y!Bp!E2BGy/? ]͓X\`i{=)]~)]# ]w#]!k!H5:ÓX:ÓX\:":#7 ^l8\LH7]PL7]MT7]MB7]HM\FM\PC\PO\SR\UJ\BP\CW\PA\CP\PN\OP\HE\FO\IG\PF+]OJ+]IJ+]LS+]CS+]DM+]SV+]AV+]RP+]DF+]RV+]FI+]IF+]EF+]EX+]IA1]IB1]IC1]ID1]IE1]II1]IL1]IM1]IN1]IO1]IP1]IR1]IT1]!L*Lk%^*Lv\^`W P^ \^͍R!6:^LPý0\^LP͵L̓V *1V`$__S`͞_1^h``!6_ͪ`1$__S``͡_!6^V`^W:G5^:^^z`^^n"!^j&͘!Ò":6WJ#!*7m*7ͣ ͩm;!WN`:G5u_:W|_>E_z`:&?_:6!6]_:6?_26)H)Ϳ"> Ͷh`ͅ_ͅ_!W^:6WJ#Ñ ͕_||g}o&PY!>m! pý0`i&_&_PY!>m!ö__=_L`DM͵L`a`ý0ͣRa``*:oCW 8`8`͆LB`I`%`7 I` ::6`a` ~&!rCÇ`:qC`!vC/Ö`W:pC&_ʦ` Ø`G1Ox1!6/<12og))B DM!BS ͒_}!77Fwx# `͂$:$a>!J5FO:6a *6|a:&6!6O! #~ :a 2a:3'Pam(!4(̀\ta͸(C*#]b(C*#]bÝa͸(C:_*͟L Ҍa'b(C*#'b(C*"#$%aS>-z(]b:$z(*6|a>+G((*7*6de."6:J5!6m(~a>͸(C:pb>͸(#Cb>%͸(!C:$&b>0͸('C0z(3bb:b+|:bx]b`i3bz(~v :6:6WV)O*7:3=G:!“b:&:I5b:1b:0ʥbҾbb{!K5zҶb!I5w# b“b6+b> bw#b6 ͗,z26>26{!M5cbͪ`:6` V^:&!6)*R++++~ e:6!6d͂^͇e:^!G5`V^*R~0_~Q eÇe!~6ʮeq1 K+!J5ð:K5:ӂ=[gͫg*7++wC>2ӂ2K5 f.(oN /*D526264(͘! fÁf!fh!m626-Ef!645Cfk!45Ef>́f!045]f#Mf:;́f̈́ ~:6/!m!6^NR26!fLgLlGggxԳhڟf!ͶxZD h!65 g͘lhf26Kf hgg:J5h~ hC*P~###g~gw+w+w###A͠f gg!Ƃ-k!΂|k'L 7g*L7g#>g!q4HgD*"+""|k*ӂ-Wg!z!"p"6:p:J57:ӂ=ȷ[ggmҏg!6~6H)!65:$=ͣg=g!J545ʻgh> ZD> ZDfͷKKgg+G_w#¾gwCwC `îg:M5!K5wH).(!6h͞_=gP͇e j0.(!6h_~Q`  h͞_P e!hʹ`g?<:ς[g'LcDyh*P~~whKͳeOh!ӂ~yyh4 :p!q~ʍh5!Ƃ-k!΂|k> ZD-k:ɂ|kK'LͷKkd̍d[gCj*P:!h: h~~w++++~~w>2m[g i:p!"Ԃ$"҂L*Li i#΂L͏i6i!""͑gz:J5iiͷK*"mwCKfi+fi#!"@iwC `> Ll:> ʟf*"mf> ZDÀi*":§i{_izʽii} 7 Öi{үiiʕi2p31i*O5mүi*M5mڕi 7ȷ{!54w~io&" *P~j++++j~dj"PDM#^#V###N#fid>2VXKQj2W2VwC!")* |dj{K+zʕj#!)#:!j]j+: ]j+wC'Lj9k0j*&Z~###Dk6_/k_j!w+1k:H5͵Lz> >͆L>:%#$k=w<6j6#w#w#wd}))~wj~~wjYk9kKk>̍&>+1WDM͵kzI'wC26Ãk!vkKI'+1!]0MwCÞkW ͵L{k{kk|k!kZD 7> ijԶ€lO31!"ym3l>2m2r$mljm `l*~*O5d"+|lNp:po `[gͧn `l}wC26*"*K5m*O5*"mz!m7?{kͷK*smKͿ7Mm+oSm~w#(l*mwC*s*K5"sdEp÷K}ނ>L!u@ mʄm> 2}:y:|ʣm!:8",6m!}5m*z"~*"*"oo mͳe7Ϳ7m>+w#_+nW*s(l*O5*sn#m$n:z$n"z+>L:z{joBnzjo>Mn{Fn2|z>G}!u~p#wzxdnO#~q#wz2*sxn#"~!y4+x>L=¢n: L*Lw2 }L*LW¹n6XK2onoWʿnͿ7+wC:$=_}>ZD> ZDnI'*K5"sEp÷K:rLڂ͆L7K(o(o+wCͷKKLo/o `Hoͳe/o+RoCK zjo+6 -:vG:!64~o!xҎowOҞo!4ʞo<552x!x2ނXK}Koo}!v5o:o!x5o!5o!5o=<ʳooͷKóo:wC!p~G~w(p}xp>OxG͢G p>p p :/!r:v!!]1 oͷKóo:wC! /c N:6*6*67LN2626^N'* .4NyN!fx N*6"6"6"6y26x26:6!6[N26-ʂ͵LL-k:=5ڥ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W:-;! 2%6:$6| ]1 q1&ͭ *;;w#6*;w#62::S;2::l2:2o;*":!"D;:2:;>29;S;!Q;#:3ODN +y=!7#͠+i͓͠X!7͠;++++l!7ހ ͓҄####7͠ހ++͉s#r+##s#r++ހ͉#r+s +r+s͉mɯ2k2k*k"kw#wɛe{ÓvÓvv.zÿvzt.7Kj]Action(F/B/I/D/S)?Spelling Check Completed Add to Dictionary:  Add to Supplement: (Y/N)? #x25<8$I' v!|“v>25v>2425>2#x:=5v>8$!"zyI'!(k'wwz!%v!#v÷&ͫw;xw:5x x+1!vTwFwwCI'x'w:5̞kĘk7Ow>2|6;!:5nw!7́w*7د͇w+wC!7́w*7د+͙w#jwH7 Ïw# ŒwŒw7 áw+ žwžw7*7#C*7W /!!v"6ͤ'*6"zw!H5 *7~ -% *z͘!3%wͫ!͘!wI'w'LwCKwC}:5JÃJ:=52=5͂$2=5'%!Ø!!7́wy'xx͝xdyʗxͼw2|62z!ʌx#}x#ʆx#}x#}xSx yʗxSxz*7z͝G7>2|6*7zG2z+#]zx{x'x`x_>&y2zéxxx x x x xy2zéx:z2zxx2z*z͘!:zG:$y'v0y:_y)v$:z}+v-v*D5"zw*z"D5$G:͓y!zz~ʑy#F‚y#ty~2zz!z"zæ͌x!z:z(z zzE:H5 *7+*7:6w~/G~w#͠]zEz~'!G~vzʇz#izxA{?a[?ɯxWyO\*h"h!_~w!E~w"b"d ADDz B<:xĔA!::>!"<2:ez=*;S<<6#";!&*;":#>2:2:B~5I=BLe xq=!:~6i=::B2'6L2:::G::W*::.;==!}>>x=!:y=!:zU=2:)>}>>| >x= >y=z!:5 >z=I=|xOzO>2:2:K>::?>ɷH>::33ɯ2:d>::?>::2:z>C>::z>::!:4><2:͚>::::!:ڃ>!:@?e:-;!:!: @:>: ͵< > :>?>?>?~>?>i?#::E=2:! >!:ͽ>*:>Y?F#>N?͌WG +@+@+@:”?qBBBB¿?C>i=%@!:ʭB#z=:-;<̆B::!:A@ ::O::U@W@>!:`@ H::̔@:-;::@x :=@B͔@|@@ ::=Q::@:-;::@:=@B@ë@¾@ ::=::zA:O::@:O::@ɷ@z @ :-;@A::;By! %A+A *A*A!:4x!:4::ͰA!:x=AG]ÀA!"{;e:enAͦA]A:='=DM:Ox 2 GP:$=6=JY*{;#WA::=2:> ;AðA:x=A͔AA!1;A6A6:1;ͦAAB!2;4:y=>22;ͦAB~A5>KA͔A!1;~4:x=:2;?5B!yA:-;B:-;@B!:~5N*:!:+#{ 2:yeB!:{|Bw::!:5*:!:::+ʛBҒB#<2:w":~ʭBPYͰJ 6ͦBBͦB:.;= B<=/AB B<2/;!:: !8!:>!":*; >N=N=N=N=N=N=N=N=!N=F6##>G=ͨ<~6# Ox>=":!::! ;"@2;::;?ͷ=͗2:2:ALe x’=!:~6=::ͱA2'6L>2:2;:;!:=*:*:d*:P*:P͠=2;^>į>e:ͨ< .> +~*;++~:>V>>V>>>#*:A! D>!:>*: >ʔ>F##>‰>͛{u>> >":";{2:!::: ;2 ;!2D>!:>*:A*:::_7>G{>H7>G#>y>> O7>xF>>*:A2;WG ???!?2;:9?:9?:A?q>2;a?a?a?j?A;?PAz?;?::Ç=?!:7A#<€?x$AAA!::APY+:A@ 8::AÛ=oH?::x :=*/;aA??Q::@:::=@?z@z :::@:::! úA::!:x=@GW@z@!"{;e:eh@͠@W@:='=DM:Ox 2 GP:$=6=JY*{;#Q@:x=@͎@@!1;@6@6:1;͠@ê@@!2;4:y=>22;͠@@~@5>E@͎@!1;~4:x=:2;?A!y@*:&]aA~7APYð0A*:&!:0A A<=,@UA:;kA]*:":*:":!*:dhA]*:":::_ÍA>2:2:PAAPAADA ,@AA 82:!::|A2B!:~6B͢B͈B**:ͻB":!:ywz:įBPA!xnBB**:͸B":!:~RBRBNVB!2B͢B!:~6vB!:x!sBPA!:xpx!nBʝBʝB,@PA!:yw:OPAy,@:O|J͠B!BdyKByOB#zxSɛ <<<"<5<ɯL̍&>͍&!Dk!Dkxwv!ƂjI'6!:3ڭvJO:͢Gڍv6E!Ƃvkxx>wvxI'!0M!͆Lv*76͑wCv*7:CJ6ͦEx6!4͂$'%$O*&+1*D5"6"6*6͘!ͫ${#Ͷ$~ʡwwڵwµwMywyʟwyx5wwʟw8$I' !ʘw#~5wͫ$}!&Đ)8~w#üw$85ww$95w$85wկ wYxxx.x#x xͶ7=x2x x=x+x>  3x~Hx#.:*? пͶ#~+:tx~?Q?@##!06Ͱx!Ͱx!Ͱx!7Ͱx:%6ʬx!;Ͱx:4!;İx# ͔8ìxx!vk:x>͍&:>č&:>͍&!ʂvk:%> ͍&> ͍&"2491Enter Operating Income ($000)121" "34492Purchase Price ($000)51" "34492Mortgage Amount ($000)32" "34492Term of Mortgage (years)34" "34492Interest Rate (%)35" "34492Depreciable Value42" "34492Salvage Value43" "34492Depreciable Life (years)44" "146700" "120600" WSMSGS OVRkWSOVLY1 OVRWSOVLY1 OVRINCOME $$$50,20,300 24,8,1,5 0,1,0,1 0,0,0,0 15,10,1 0,0,0,0,0 "","","","","" 1,81,11,18 "Real Estate Investment Analysis" "Income Property" "($000)" 1,24 1,5 3 1,1,"Assumptions:",2,"" 2,2,"Net Operating Income",0,"24911215" 3,3,"Mortgage Inputs",0,"" 4,4,"Depreciation Inputs",0,"" 5,5,"Purchase Price",32,"" 6,6,"Tax Shelter Impact",33,"" 7,7,"Net Operating Income",0,"7141202" 8,8," Depreciation Allowance",0,"81046804" 9,9," Interest Expense",8,"91046903" 10,10,"Taxable Income",0,"1012432L7-L8-L900" 11,11," Income Tax (Shelter)",8,"1112432V5,2/100*L1000" 12,12,"After Tax Income (Loss)",32,"1234021011" 13,13,"Cashflow Impact",33,"" 14,14,"Net Operating Income",0,"14141202" 15,15," Mortgage Payments",0,"1512432V3,600" 16,16," Income Tax (Shelter)",8,"161412011" 17,17,"Cashflow (Outflow)",0,"1712432L14-L15-L1600" 18,18,"Cashflow Rate",4128,"1812432L17/(V5,1-V3,2)*10000" 19,19,"Equity Impact",33,"" 20,20,"Net Operating Income",0,"20141202" 21,21," Interest Expense",0,"21141209" 22,22," Income Tax (Shelter)",8,"221412011" 23,23,"Equity Income",0,"2312432L20-L21-L2200" 24,24,"Equity Rate",4096,"2412432L23/(V5,1-V3,2)*10000" 25,25,"",0,"" 26,26,"",0,"" 27,27,"",0,"" 28,28,"",0,"" 29,29,"",0,"" 30,30,"",0,"" 31,31,"",0,"" 32,32,"",0,"" 33,33,"",0,"" 34,34,"",0,"" 35,35,"",0,"" 36,36,"",0,"" 37,37,"",0,"" 38,38,"",0,"" 39,39,"",0,"" 40,40,"",0,"" 41,41,"",0,"" 42,42,"",0,"" 43,43,"",0,"" 44,44,"",0,"" 45,45,"",0,"" 46,46,"",0,"" 47,47,"",0,"" 48,48,"",0,"" 49,49,"",0,"" 50,50,"",0,"" 1,1,"Year 1",0,"" 2,2,"Year 2",0,"" 3,3,"Year 3",0,"" 4,4,"Year 4",0,"" 5,5,"Year 5",0,"" 6,6,"",0,"" 7,7,"",0,"" 8,8,"",0,"" 9,9,"",0,"" 10,10,"",0,"" 11,11,"",0,"" 12,12,"",0,"" 13,13,"",0,"" 14,14,"",0,"" 15,15,"",0,"" 16,16,"",0,"" 17,17,"",0,"" 18,18,"",0,"" 19,19,"",0,"" 20,20,"",0,"" 2,5 12 13.8 15.87 18.2505 20.988075 3,6 1 150 0 30 16 24.2056259481 4,4 2 120 20 15 5,2 200 40 7,5 12 13.8 15.87 18.2505 20.988075 8,5 12.5 11.6666666667 10.8333333333 10 9.16666666667 9,5 23.9842300342 23.9460899834 23.9013795156 23.8489667398 23.7875247733 10,5 -24.4842300342 -21.8127566501 -18.8647128489 -15.5984667398 -11.9661164399 11,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.78644657597 12,5 -14.6905380205 -13.08765399 -11.3188277093 -9.35908004387 -7.17966986396 14,5 12 13.8 15.87 18.2505 20.988075 15,5 24.2056259481 24.2056259481 24.2056259481 24.2056259481 24.2056259481 16,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.78644657597 17,5 -2.41193393441 -1.68052328807 -0.789740808532 0.284260747816 1.56889562787 18,5 -4.82386786882 -3.36104657614 -1.57948161706 0.568521495632 3.13779125575 20,5 12 13.8 15.87 18.2505 20.988075 21,5 23.9842300342 23.9460899834 23.9013795156 23.8489667398 23.7875247733 22,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.78644657597 23,5 -2.19053802053 -1.42098732337 -0.485494376016 0.640919956129 1.98699680271 24,5 -4.38107604106 -2.84197464674 -0.970988752032 1.28183991226 3.97399360542 -99 104657614 -1.57948161706 0.568521495632 3.13779125575 20,5 12 13.8 15.87 18.2505 20.988075 21,5 23.9842300342 23.9460899834 23.9013795156 23.8489667398 23.7875247733 22,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.7Value is either too large or too small. Re-enter. "Use cursor keys to position cursor (UP,DOWN,RIGHT,LEFT,CAN) " Improper filename. Examples: S82BUDG, B:ACTUAL, VERS12 "Expecting a number. You entered non-numeric characters." Choose any command and enter the command number like 111 Cannot use FIX on this command. Please see manual. "Attempt to delete program steps when there is no program." "Too many steps in a program. You can have 100 steps." No program steps in memory. "Press any cursor key to recover your display. " "This report may be too wide for the normal width printer " "There is no file on this diskette with this name." "The content of this file is incorrect. (e.g. old version?)" "Hit RETURN to see the available tables or programs " cancelled. "No more tables/programs on this drive." "This report is too wide to print. Maximum width is 254 cols" "Use cursor keys to select a row (UP, DOWN, CANCEL)" "Use cursor keys to select a column (RIGHT,LEFT,CANCEL)" "Current table does not have enough columns for DEPR/LOAN." "Improper method. Use SET DEPR to enter proper values." "W-22 Sum of cashflows is less than 0. IRR is negative." "W-23 Interest rate is 0. Use SET LOAN to enter LOAN inputs." "W-24 Use SET LOAN to enter proper inputs for LOAN command." "W-25 Cashflows have no change in signs. No solution for IRR." "W-26 Cashflows have more than one change in sign. CAUTION." "W-27 Life value less than 1. Cannot compute loan/depr." "Improper tax schedule. Use SET SCHED to enter schedule." "New table is smaller than current table dimensions. Enlarge?" Program steps in memory have been cleared. "Formula is too complex. Symbol table is full." Cannot use the SET DEPR/LOAN/SCHED or DO TAX commands in cols. "IRR: Can only handle 50 values. " This add-on option is not available in your copy of MicroPlan. Cannot load different size tables in a program. The table has different dimensions from current. Changing size Program mode on. Command has been saved. Please SAVE PGM. Cannot load row and column titles from different size tables. "null command." Your program already exists. Continue with save? "saved." "Syntax Error." Your file already exists. Continue with save? OK to erase current data? OK to erase current program? No help files. SET PAPER; HIT RETURN. hit RETURN; to continue. IRR: Divergence. Cannot get solution after 50 trials. W-50 Write error - is disk full? W-51 null W-52 null OK to erase current program? No help files. SET PAPER; HIT RETURN. hit RETURN; to continue. JP.DIRERASED CURRENT= UNDEFINED NAMESTEPSNUMBER OF COLUMNSMENUROWSCOLSSTEPTO STEPDRIVE DESCRIPTION)TYPE (DATA=0,SUBT=1,HEAD=2,NOTE=3,OMIT=4) UNDERLINE !TRAILING BLANK LINES (NEW PAGE=9)DECIMAL PLACES (0-3 OFF=4)FORMAT COLUMN WIDTHFOLLOWING WHICH STEP!ERROR IF:FILETABLEPROG.DIRERASED.TBL##############,###.####BB<BB<@PBxYMPSET.TBL.TBL//xTABLE.LOG.LOG.LOGPROG (A-P):(NO=0,[-]=1,[=]=2,[_]=3)(NO=0,[%]=1,[$]=2,NO,=3)12E`SeEv2xMPSET.TBL.LOG.TBLTABLEPROG.DIR.FILMPMENU MPHELP.FIL.HLPz!M"}"}!M"}!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!N5%! N5%!N5%!N5%!!N5%!.N5%!YN5%!eN5%!N5%!N5%!N5%!N5%}Q>!%'qQ*{*%!*ziD"'*z|MQ*#*'*{{ozqQ*z*')^#V"#*#* {|+Q*#Q>!+'Q*{*+!*ziD"'*z|ʮQ*)*'*{{ozQ*z*')^#V")*)* {|ŒQ*)rR>!5'fR*5!!!͖A75%*7Ϳ%|'R-!{͉*975%!-*z|3R!-!N*7!G)|_R*7!-͎*975%!-!4* {|Q!-!dS͠*z|*z++|җR͙iÚRi*z#R+)R~#foSSSTT*z*z{ozg|RÚR*z|RJG*z+++++++|R* {*{{ozg"{äS*z++++++|"S!"z!"zJG*z"z9:ÚR*z+++++|8S!"zäS*z*z{ozKSxR*z"zj *z*z)^#V "!!ͦ2!NmͰmͰ!N$S!4!"z* {"z* {"zÚR* {"zJGÚR4KvH"z͖L*z|SͼI"z*z|S!"zL*zq:*z|SI*z|S͟JvH"z*z*z)^#V#"Y*Y"[NT*[J"z*z{zGT*z*[)^#Vq:GU*[#"[*z}|T*z+++|ƒT!"z*{+*z^#Vog"zÆTU*zog*z^#V#"Y*Y"[T*[ogJ"z*z{zT*z*[)^#Vogq:GU*[#"[*{}|T*z++++|U!"z*z+*z^#V"zT*z"zJG*z^#Vq:*z|7UL!"zHH* {"z͖L*z|SU^Uu*]ÄU*z!! &!N$/W_"_*_GW>!c'e!N5%*9z5%*c+|½Ue!N5%*{z5%*c++|Ue!N5%*{z5%*z*9$U*z5%!"g!!8Vͷ*{*ë́$!N̈́$!P!!>!4!"g!!3Wͷ*c{z[V**z̈́$!!U4**{̈́$*{̈́$!-!U4*e*̈́$!!!͖A͹&i5%*z|ʦVôV*iͿ%|´VV*ia5%*9e5%*9i5%JG*zq:*g{zV!' *a*g|W!4xV!!iix*i!N$!WV*i!!U4xV!4!' U*avW*zͿ%{zrWaU|rW*{*z̈́$z5%*kWaU|W*z\%A}o|g"o!"q!"sõW*q "q*s#"s*o}|W*qW!*mY>!w'!"s!"[aU|6X*y!͉%*ẅ́$w5%*y!! &y5%*{!!P &{5%!!Xͷ*w*̈́$!P!!>!!XͷX!!iix*i*yͿ%͉%*y$˜X*s"[X*[|*i*$ҺX*s"[*s#"s* {|hX*w*̈́$!P!!>q*[|X*s"[!!Yͷ!*[*{͐!' !)4*uhY!"z!"z*9{5%!"sWY*z*s)*95%*s#"s*z}|@Y*}yZ*9{5%!"sÔY*h{*s)*95%*s#"s}Y!"sY*z*s)*ss#r*z*s)*ss#r*z*s)*95%*z*s)6#6*z*s)*95%*s#"s*z}|Y!"shZ*z*s)*ss#r*z*s)*ss#r*z*s)*95%*z*s)6#6*z*s)*95%*s#"s*z}|Z*ÖZ*z*z!!!z(*Á[*z{zZ!4kY"Y!!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(*Îb>!'* {"!!aͷ*!Ö́$!!!>!!naͷ!!]!]!]x**z{oz**z{oz \͖a \|Z*z|\!' *!!p{]!r{]!t{]!v{]x!!x{]!z{]!|{]!~{]x!!{]!{]!{]!{]x!!{]!{]!{]x!!{]!{]!{]!{]!{]x!!j{i!l{i!i!i!ix!!`{]!b{]!d{]!f{]x!*h{ix!*h{ix!*h{ix!!z]!z]x!!{]!{]x!!z]x!"s^*s*z}|]!!o]!o]!i!o]!ix^!*z*s)]*z*s)]*z*s)i*z*s)]*z*s)ix*s#"s*}|]!"sè^*s*z}|\^!!o]!o]!i!o]!ixá^!*z*s)]*z*s)]*z*s)i*z*s)]*z*s)ix*s#"s*}|$^V_!!s]x*s*{{oz^^_!!]x!"qI_*s*z}|*q*z}|#_!!cxB_!*z*s)^#V*q)))cx*q#"q*}|^* {|¸^!' ! O5%*Ϳ%*{*{{ozg"o*{|”_*o+"o**o*{++ &"Ö́${5%*{+*{{ozg"o*{++*{{ozg"*{{z_*o+"o*+"*o!U *o}o|g"o*!U *}o|g"*o!%Oy-*{og!-Oy-!ͷ!5Oa!{͎*!=Oy-*{og!EOy-!ͷ$!MO !{͎*{og!]Oy-!UOI!{͎*{}o|g*{{ozg*{U +"{*{*z{z`*z+"{*{}o|g*{#*{ {ozg"{*+|(a*z"z*z"{!"*{5%!!ͦ2*&{wJG*z^#Vq:!"{!"{ͨ>*z͍6*!' ! 4*{"*! 4*{"**z+|*z++|a!#4* {"z!' ***z}|**z}|a_b!4*zx&!eÖ́$*zx&̈́$!!U4*{!!!͖A͹&75%*z|Bb**7!hO$_bkY|Z!"*!' !$4͙Z*"z*"z!"zj !kO "*ñf>!'* {"!"o*z+|²bb!!bͷyW*!rÖ́$!!!>!' !+4vE"o*z|b**!xÖ́$!!!>q!*z̀*z̀*z͹!*p{̀*r{̀*t{̀*v{͹!*x{̀*z{̀*|{̀*~{͹!*{̀*{̀*{̀*{͹!*{̀*{̀*{͹!*{̀*{̀*{̀*{̀*{͹!*j{W*l{W*W*W*͐!*`{̀*b{̀*d{̀*f{͹!*h{^#V͐!*h{^#V͐!*h{^#V͐!*z̀*z͹!*{̀*{͹!*z͹!"sd!*z*s)^#V̀*z*s)^#V̀*z*s)^#VW*z*s)^#V̀*z*s)^#V͐*s#"s*z}||d!"sLe!*z*s)^#V̀*z*s)^#V̀*z*s)^#VW*z*s)^#V̀*z*s)^#V͐*s#"s*z}|d!"se*z"q~e*q+|wee*q+"q*z*s)^#V*q)))̀!ke!*s̀*q͹!"e!*z*s)^#V*)))̀Ͱ*#"*q}|e*s#"s*z}|be!*{͹!' *{5%*! 3*h{^#V!~Ö́$*h{^#V̈́$!Ö́$*h{^#V̈́$!7͉%̈́$*{̈́$*zx&̈́$!Ö́$*zx&̈́$5%**{!OW*jg>!'* {"!!Ygͷ*!Ö́$!!!>!!$gͷ!"sg!*z*s)ix*s#"s*z}|f!' *{5%*s+"z*zx&*{̈́$*̈́$ͨ4*! 4*{"*Óh>!'* {"*z|•g! 4* {"z*yW*z+|¤gg!!gͷ*!Ö́$!!!>!' !(4vE"o*z|g**!Ö́$!!!>q!"s)h!*z*s)^#V͐*s#"s*z}| h!' *{5%*! 3*̈́$*{̈́$*zx&̈́$*{̈́$*̈́$5%**{!OW* i>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {ozg"*li>!À'*À!U "* *À}o|g"*! U "*  *}o|g"*Ùi>!ǀ'*ǀx&*̈́$!2!U4*ŀ*z#i+)i~#fo* {|*o9:ͽKJG* {"z*z͑b* {"z*z"s'q*{"qq*z*s)^#V*z^#V*z*q)^#V)))!͛*q#"q*{}|p*s#"s*z}|p* {"ziq!!ͦ2*z{5%yW* {"zJG*zq:* {"zJG*zq:ͨ>cq!4*z"z*z|үq9:*z*{)^#Vq:* {"z*{7r*9!!*{͖A5%*z|qìp*Ϳ%{zr*z*z)*5%*z*z)^#V7!!J;|rͨ>* {|²q* {"z*ˀ"z!"z*{*{̈́$*z#x&̈́$ͨ4* {"z!"z*π*̀{ozg#"o*oog*z"z*̀"sðr*z*s)*s*o*z^#V5%*s#"s*z}|r!"sr*s*z*z*95%*s#"s*o}|r*{ͨ4*z*z{oz s!%4!!ͦ2*z}{oz*sL*.{m*zmj ͝* {"z*z++|Ts!%4*zʹf!"z*zmg* {"z"Y*9{5%!"z* {"z*{ͨ4* {"{͙ZN!͎!!sO!!͎!z!y!ͷ"׀O!ـ͎!!ـtـ!O͉!!ـy!ͷ"*׀*}|1t*"׀*׀c{zDt!c"׀*!!*׀iD"*z|kt*{"zçu**{{oz™t*z}{oz“t! "Ùt!"*)))!ـy! *))) ͷ"!!y*F *)))Fͷ"**}| u*"*!<!*iD"*z|3u*{"zDt**{{ozIu*"*x&*{̈́$*̈́$!Ö́$*x&̈́$*{̈́$*̈́$ͨ4vE*z|ʛu*{"zDt*"z*"z*{"{!"z!"z!"z!"zj !O "* {"z!"z!"z*z"z!"{*z"{!"z*z"z!"z*z"z|ZkY"Y!"z*{"{!"z!"`{!"b{!"d{!"f{!"{!"{iq* {"z!!ͦ2*&{wJG*zq:*zͿ%|ƒvͨ>*z͍6*{"z* {"z*z̈́["*|«vͨ>*z͍6*z++|½v!%4*zʹf|v!"z!"z*z"z9:JG*z͑b*zmg* {"ze!P5%we! P5%* {"zyW!!Lwͷ*z*ë́$!!!>!͑ *{ͨ4Sw! 4*e!P$lwe!P5%uwe!P5%aU|ʨw*z!͉%*ë́$e5%*z!! &z5%!!0xͷ*e!$P̈́$!P!!>!!*xͷ!"s"x!!рix*р*zͿ%͉%*z$x!*s*͐*x*s#"s* {|w!' !"4* {"z* {"z*z++|Px!!(yͷ*z!*P̈́$!!!>*z!!!z(*z!!!z(!!xͷx!!s]x*s*{{ozxx!*z*s)i*z*s)]x* {|¦x!' *z!0P$y {!8P5% y*z!DP̈́$ {5%!͍6! 4* {"z*{z5%ͽp*z|Kyrj ͝w!9-ʜ-DM͑+w ʹG--ʘ-!͉%*ë́$e5%*z!! &z5%!!0xͷ*e!$P̈́$!P!!>!!*xͷ!"s"x!!рix*р*zͿ%͉%*z$x!*s*͐*x*s#"s* {|w!' !"4* {"z* {"z*z++|Px!!(yͷ*z!*P̈́$!!!>*z!!!z(*z!!!z(!!xͷx!!s]x*s*{{ozxx!*z*s)i*z*s)]x* {|¦x!' *z!0P MicroPlan is a financial planning worksheet. MicroPlan allows you to do row and column calculations electronically. Most of the screen displays your table. The commands on the right allow you to write titles and data into the table. You choose a command by typing the command number followed by the carriage return key. Some commands are not listed on the command menu. They are: 1. Backspacing: Use the DEL key. 2. Cancellation: Use the ESCAPE key. 3. Cursor movement: Use the arrow keys. 4. Function keys: Use any function key for commands or any alpha key for calculation commands. 1 format: Display format commands. Enter row & column titles, set row or column print options, look at options and move rows or columns 2 data: Display data entry commands. Enter data, move the data pointer fix, nullify and goto commands. 3 math: Display math commands. Arithmetic, cumulate, negate, get, ceiling, floor, and row and column summations. 4 finance: Display finance commands. Depreciaion, mortgages, internal rate of return, ratios, percentages, growth and tax schedules. 5 print: Display print commands. Set report options, titles and print reports. Reports can be sent to disk files. 6 status: Display status commands. Range settings, mode selection, and selection of compute order. 7 HELP command Explains each command. Describes the commands and explains usage. 9 STOP verify Clears the display and exits to CP/M. The current table is not automatically saved. 10 utility: Display utility commands. Save/load tables, re-dimension table size, select drive, reset and redisplay screen. 11 program: Display program commands. Save, load, clear, print, list and erase programs. 12 stats: (This section is an add on module) Display statistical commands. Smoothing, moving averages, mean variance, standard deviations and curve fitting. 13 tables: (This section is an add on module) Display external table access commands. Consolidations, variance analysis, and commands to link tables or to G/L. 14 link: (This section is an add on module) Display external data access commands. DIF interface, link to G/L or data management files, Posting and Tabulation. 16 format: Display format commands. Enter row & column titles, set row or column print options, look at options and move row or columns. 17 INSERT Insert a row or column at the current data pointer position. (Insert really gets an empty row/col from the end of the tbl) 18 DELETE Delete a row or column at the current data pointer position. (Delete really moves row/col to the end of the table) 19 rows: Row section of format commands. 20 ROW TITLE title ... ESCAPE (DOWN, UP, ESCAPE) Enter or change row titles. Each title entered is placed in the current row. The cursor keys move the current row pointer. 21 SET TYPE row option ... ESCAPE Allows you to specify the type of row, underlining, decimal places, spacing and special formatting for each row. 22 SHOW ROWS Display the current options for each row. Also shows the commands stored for each row. 23 REORDER old-row new-row Move old-row into the position new-row. Use this command to insert new rows or delete rows from your table. 24 cols: Column section of format commands. 25 COL TITLE title1 title2 ... ESC (RIGHT, LEFT, ESCAPE) Enter or change col titles. Each title entered is placed in the current col. The cursor keys move the current col pointer. 26 SET TYPE column option ... ESCAPE Allows you to specify the column width, decimal places and special column formatting for each column. 27 SHOW COLS Display the current options for each column. Also shows the commands stored for each column. 28 REORDER old-column new-column Move old-column into the position new-column. Use this command to insert new columns or delete columns from your table. 29 data: Display data entry commands. Enter data, move the data pointer fix, nullify and goto commands. 30 ENTRY value ... ESC (UP, DOWN, RIGHT, LEFT, ESCAPE) Enter values into table. Cursor keys allow movement to any cell in the current table range settings. 31 ENTER value ... ESC (UP, DOWN, RIGHT, LEFT, ESCAPE) Enter values into table. Constant, grow and increase options allow quick entry. Cursor keys allow individual data entry. 32 CHANGE row, column <-- value Change one value in your table. 33 SELECT ROW row Move the data pointer to a new row of the table. Also, use the up and down cursor keys to move the data pointer. 34 SELECT COL column Move the data pointer to a new column of the table. Also, use the right and left cursor keys to move the data pointer. 35 FORMULA RESULT <-- formula Use a formula. Formulas may reference a row or column (Ln), values (Vr,c) or positive constants in the formula. 36 GOTO row column Position the display screen with row,column in the upper left corner of your terminal. 37 PLUG row, column <-- formula Use a formula to calculate results for a particular cell. The formula may reference table values (Vr,c) or constants. 38 FIX Re-computes the current row or column. Use cursor keys to move the data pointer to the right row or column before using FIX. 39 NULLIFY row/col Nullify command associated with a row or column. The data in the table is not affected. 40 math: Display math commands. Arithmetic, cumulate, negate, get, floor, ceiling and row and column summations. 41 ADD RESULT <-- row/col1 + row/col2 Add two rows or columns of values. 42 SUBTRACT RESULT <-- row/col1 - row/col2 Sutract the second row/col from the first row/col. 43 MULTIPLY RESULT <-- row/col1 * row/col2 Multiply two rows or columns of values. 44 DIVIDE RESULT <-- row/col1 / row/col2 Divide the first row/col by the second row/col. 45 NEGATE RESULT <-- - (row/col) Negate a row or column of values. 46 INVERSE RESULT <-- 1 / (row/col) Compute the inverse for a row or column of values. 47 INTEGER RESULT <-- INT(row/col) Compute the integer part of a row or column of values by dropping the fractional portion of a number. 48 ROUND RESULT <-- INT(row/col + 0.5) Round a row or column of values to the nearest whole number. 49 CUMULATE RESULT(t) <-- RESULT(t-1) + row/col(t) Compute cumulative sums for a row or column. Cumulate prompts for year zero value. Use for ending balance calculations. 50 ABSOLUTE RESULT <-- ABS(row/col) If a value is negative, the result is positive. If the value is positive, the result is positive. 51 ADD K RESULT <-- row/col + value Add a constant amount to a row or column. 52 SUB K RESULT <-- row/col - value Subtract a constant amount from a row or column. 53 MULT K RESULT <-- row/col * value Multiply a row or column by a constant amount. 54 DIV K RESULT <-- row/col / value Divide a row or column by a constant amount. 55 SUM RESULT <-- SUM( row/col1 THROUGH row/col2 ) Sum a group of rows or a group of columns. 56 GET RESULT <-- row/col Get the values from a row or column. 57 FLOOR RESULT <-- MAX(row/col, value) If row/col is less than value, then the RESULT is value. Otherwise RESULT is row/col. 58 CEILING RESULT <-- MIN(row/col, value) If row/col is greater than value, then the RESULT is value. Otherwise RESULT is row/col. 60 finance: Display finance commands. Depreciation, mortgages, internal rate of return, ratios, percentages, growth and tax schedules. 61 SET DEPR RESULT <-- method amount salvage life Prompt for inputs for the depreciation command. Straight line, sum of years, double declining and switch over is supported. 62 DEPRECIATE RESULT <-- DEPR(row/col) Calculate period by period depreciation schedule using the parameters stored in row/col. See SET DEPR 63 SET LOAN RESULT <-- period PV FW N R PMT Mortgage loan analysis. Supports annual,quarterly,monthly. Given 4 values, SET LOAN solves for the fifth parameter. 64 LOAN RESULT <-- LOAN(row/col) Calculate the interest schedule on a loan using the parameters stored in row/col. See SET LOAN 65 DCF RESULT <-- row/col / (1 + rate/100)^t Discount cashflows in row/col by rate. The first period is not discounted. Use CUMULATE to calculate net discounted cashflow. 66 IRR RESULT <-- IRR(row/col) Calculate internal rate of return for row/col. 67 RATIO RESULT <-- row/col1 / row/col2 * 100 Calculate percentage ratios. 68 % OF TOT RESULT <-- row/col / value * 100 Calculate row/col as a percentage of value. 70 PCT RESULT <-- row/col1 / 100 * row/col2 Take percentages. The percentages in row/col1 are applied to the values in row/col2. 71 K PCT RESULT <-- rate / 100 * row/col Take constant percentages. The values in row/col are multiplied by rate. 72 LAG RESULT(t) <-- row/col(t-period) Shift row/col backwards by period. Use for cashflow calcs. (e.g. receipts is a lag function of posted orders.) 73 LEAD RESULT(t) <-- row/col(t+period) Shift row/col forward by period. Use for cashflow calculations (e.g. inventory is a function of expected sales.) 74 GROW RESULT(t) <-- RESULT(t-1) * (1+row/col(t) / 100) Grow values using growth rates in row/col. GROW prompts for a year zero value, if needed. 75 SAVINGS RESULT(t) <-- RESULT(t-1)*rate/100 + row/col(t) Calculate savings balances. Rate is the compounding rate for savings and row/col contains period by period cashflows. 76 SET SCHED RESULT <-- bracket tax-rate ... Prompts for tax computation schedule. Inputs are a series of tax bracket limits and the marginal tax rates. 77 DO TAX RESULT <-- TAX(row1, row2) Calculate taxes using the tax schedule stored in row1 and the pre tax figures stored in row2. (see SET SCHED) 80 print: Display print commands. Set report options, titles and print reports. Resports can be sent to disk files. 81 OPTIONS option ... Global report options. Row title width, column width, number of columns, negative numbers, commas, line numbers, zeros, etc 82 TITLES page date row-range col-range 3-line-title Set page number, dates, row and column ranges and a 3 line title. A report will follow. 83 REPORT Print report on your printer. Report options, title should be set prior to printing report. 84 SHOW OPTS Display report options and title information. 85 SAVE REP filename Print report to a disk file. Interface with word processors, or spool output to printer. 86 SET CRT row-width col-width decimal-places Set display parameters. You can control the row title area, the column widths, and the number of decimal places. 90 status: Display status commands. Range settings, mode selection, and selection of compute order. 91 range: Range selection commands for rows and columns. 92 ROW RANGE row1 TO row2 Set row range on status line (top line). Impacts calculations, printed reports, and general data manipulation. 93 COL RANGE row1 TO row2 Set column range on status line (top line). Impacts calculations, printed reports and general data manipulation. 95 mode: Mode selection commands. (top line) 96 RUN PGM Set mode to run program. The current program will start execution. 97 PROGRAM step Set mode to program mode. Each future command will automatical be memorized as a step of a program. Can also insert commands. 98 COMPUTE Set mode to compute. Re-compute your table to update for any changes in the data. 99 NORMAL Set mode to normal mode. Any computation command will still be memorized as part of your table. 100 DEL STEP step1 TO step2 Delete steps from programs. 101 PROTECT Toggles the protect mode on & off. In protect mode, data can be changed, but the model logic will not change. 102 ORDER option Set the computing order for your table. Select ROW/ONLY, COL/ONLY, ROW/COL or COL/ROW. 105 utility: Display utility commands. Load, save, list, print, erase, clear and reset tables. Also redisplay screen. 106 LOAD ALL filename Load table and program from diskettes and set to RUN PGM mode. On prompting for filename, the available files will be shown. 107 SAVE ALL filename Save table and program onto diskettes for permanent storage. 108 SET DRIVE drive Select drive for saving and loading your files. Normally, the current drive is used for saving and loading files. 109 SET UP number-of-columns number-of-rows Redimension tables to a different number of rows and columns. Generally, each table can have up to about 1000 entries. 111 LOAD TBL filename Load your table from your diskettes. On prompting for file- names, the available files will be shown. 112 SAVE TBL filename Save your table on diskettes. The descriptions, data, logic, and all print options will be saved as part of the file. 113 CLR DATA verify Clear all data in table range. Row and column titles, and table logic will be maintained. 114 RESET verify Reset table values, row and column titles, table logic, program steps. 115 REDISPLAY Clear the screen and redisplays your table, menu and status information. No data will be changed. 116 LIST TBLS Print a list of the tables you have on your current diskette. Listing will go to the printer. 117 ERASE TBL filename Erase a table from your current diskette. 118 PRINT TBL Print a description of your model. Listing will include row titles, options, table commands and global options. 120 program: Display program utility commands. Load, save, clear, list and print program files. 121 LOAD PGM filename Load program from your diskettes into the computer. 122 SAVE PGM filename Save program onto diskettes for permanent storage. 123 PRINT PGM Print a copy of the current program on the printer. 124 CLEAR PGM verify Clear the current program from the computer. 125 SHOW PGM Display the current program on your screen. 126 LIST PGMS Print a list of the available programs on your diskettes. The list will go to the printer. 127 ERASE PGM filename Erase a program on your diskette. 130 stats: Display statistical commands. Smoothing, moving averages, mean variance, standard deviations and curve fitting. 131 DELTA RESULT(t) <-- row/col(t) - row/col(t-period) Calculate the change in value between periods of a row or col. 132 % GROWTH RESULT(t) <-- PCT(row/col, period) Calculate the % rate of growth in values between periods of a row or column. 133 MOV AVG RESULT(t) <-- (row/col(t)+row/col(t-1)+...)/per Compute the moving average for a row or column. The average is calculated over a variable number of periods. 134 SMOOTH RESULT(t) <-- f* RESULT(t-1) + (1-f)*row/col(t) Compute exponential smoothing for a row or column. The f is an smoothing coefficient entered as a percentage. 135 MEAN RESULT <-- MEAN(row/col1 THROUGH row/col2) Calculate the mean values for a series of rows or columns. Mean values are calculated row by row or column by column. 136 SIGMA RESULT <-- SIGMA(row/col1 THROUGH row/col2) Compute the standard deviation for a series of rows or columns 137 VARIANCE RESULT <-- VARIANCE(row/col1 THROUGH row/col2) Compute the variances for a series of rows or columns. 138 LOG RESULT <-- LOG(row/col) Compute the natural logarithm for a row or column. 139 EXP RESULT <-- EXP(row/col) Calculate the exponents for a row or column. 140 POWER RESULT <-- row/col1 ^ row/col2 Raise values in row/col1 to the power of the values in row/col2. 141 MAX RESULT <-- MAX(row/col1 THROUGH row/col2) Find the largest value in a series of rows or columns. Result is the largest value in the range. 142 MIN RESULT <-- MIN(row/col1 THROUGH row/col2) Find the smallest value in a series of rows or columns. Result is the smallest value in the range. 143 COUNT RESULT <-- COUNT(row/col1 THROUGH row/col2) Count the number of values included in the mean, sigma and variance calculations. 144 TOTAL RESULT <-- SUM(row/col1 THROUGH row/col2) Calculate the total of values for a series of rows or columns. Result is the same as SUM. 150 tables: Display external table access commands. Consolidations, variance analysis, and commands to link tables or to G/L. 151 ADD filename Add corresponding values from two tables. (e.g. consolidation of branch budgets to derive total sales department budget.) 152 SUBTRACT filename Subtract corresponding values from two tables. (e.g. derive the change between two scenarios.) 153 MULT filename Multiply corresponding values from two tables. 154 DIVIDE filename Divide corresponding values from two tables. 155 GET RESULT <-- row/col OF filename Retrieve a row or column of data from a table on the diskette. 157 CURRENT RESULT <-- END OF filename Retrieve the current row or column from a table on the diskett Use with TBL ROWS and TBL COLS. 158 Y-T-D RESULT <-- SUM(BEGIN THROUGH END) OF filename Sum rows or columns from a table on your diskette. Use with TBL ROWS and TBL COLS. 159 MERGE filename (NOT AVAILABLE IN V3.0) Perform row by row consolidation by matching row titles. If titles match, the values are added to the values in the curren 161 TBL ROWS row1 THROUGH row2 Set the row range for all TABLES commands. 162 TBL COLS col1 THROUGH col2 = " " EXPLAIN (13,7) = " " EXPLAIN (13,8) = " " EXPLAIN (13,9) = " " EXPLAIN (13,10) = " " EXPLAIN (13,11) = " " EXPLAIN (13,12) = " " EXPLAIN (13,13) = " " EXPLAIN (13,14) = " " EXPLAIN (14,1) = " " EXPLAIN (14,2) = " " EXPLAIN (14,3) = " " EXPLAIN (14,4) = " " EXPLAIN (14,5) = " " EXPLAIN (14,6) = " " EXPLAIN (14,7) = " " EXPLAIN (14,8) = " " EXPLAIN (14,9) = " " EXPLAIN (14,10) = " " EXPLAIN (14,11) = " " EXPLAIN (14,12) = " " EXPLAIN (14,13) = "  " EXPLAIN (13,7) = " " EXPLAIN (13,8) = " " EXPLAIN (14,6) = " " EXPLAIN (14,7) = " " EXPLAIN (14,8) = " " EXPLAIN (14,9) = " " EXPLAIN (14,10) = " " EXPLAIN (14,11) = " " EXPLAIN (14,12) = " " EXPLAIN (14,13) = " ÄN Divide by 0VALUERATEPERIODSBEGINEND, (ROW/ONLY=1,COL/ONLY=2,ROW/COL=3,COL/ROW=4) PROMPTING MSG)CHOOSE (VALUE=0,CONSTANT=1,GROW=2,INCR=3)BASE!ERROR IF% A@P|@Pz!M"}"}!M"}! !!!(*!M5%*!M5%*!M5%*!M5%*!M5%*!M5%*!M5%*!N5%*! N5%* !KN5%âO>!'ÖO*{*!*ziD"*z|rO***{{ozʖO*z*)^#V"** {|PO*P>!'O*{*!*ziD"*z|O***{{ozO*z*)^#V"** {|±O*×P>! 'ËP* !!!͖A5%*Ϳ%|LP!{͉*5%!*z|XP!!QN*!G)|„P*!͎*5%!!4* {|P!úP*z*)^#V*)))̀!͎!P*z*')^#V*))))̀!͎!úQ>!3'!!+͎<4|Q\Q*z*7)^#V*3"9*9{z*9*z}|/XQ*z*9)^#V*z^#V*5)))̀!+͎!+*z*5)^#V*3"9*9{z*9*z}|/ҶQ*z*7)^#V*z*9)^#V)))̀!+͎!+Q>!='*z*?)^#V*=)))!A͉*?*=u8*;9R>!K'<4|R*z*z*K)^#VͽQ5R*z*K)^#V*zogͽQ*I|R!!OiR!!A͎*^#Vͨ4xRW!O͟!A͎*MS>!a'*a|ҟR*aog"a>S*c*a)^#Vz*e*a)^#VzR* {"z*_*g#"g*g{zR* {"z*_*i*g)*k*a)^#Vs#r*m*g)*c*a)^#Vs#r*o*g)*e*a)^#Vs#r*a*q{ozQSS*a"9òS*c*9)*9#*c^#Vs#r*e*9)*9#*e^#Vs#r*k*9)*9#*k^#Vs#r*9#"9*q+*9{zZS*q+"q*a+*e*gs#r*c*a)*gs#r*_DT*u#"u*u*w}|T!"s*s*y*u! &͹&\%"9*9 {oz:TS*9"s*sT*y*u#! &!{͎!."9ÖT*u#"u*u*w{zT!{*y*u#! &\%"9*90}|/*99{z/*9.{ozhT!{wU>!'GT̀"9*+|T?U*++|TU<4|U?U*9+|*9*z}|+U* {"z**z*9)^#V"**9+|*9*z}|cU* {"z**z*9)^#V"*Z!!!!i(!!!!m(!!!!o(!!!!k(!!!!c(!!!!e(*zy5%!"g!"q!"u*yͿ%"w*w|V* {"zXS"*|2V* {"zX*q#"q*q{zIVX*L{oz™V*i*g)6#6*m*g)GT̀s#r*q+*e*gs#r* {"õW*V{ozW*i*g)6#6*m*g)GT̀s#r*u#"u*o*g)GT̀s#r*q+*e*gs#r* {"õW*0}|/*9{z/*.{oz҆W*i*g)6#6*u+"u*z*g)^#V!)))GT̀͛*q+*e*gs#r* {"õW*({oz¬W*k*q)6#6*{"V* {"zX*g#"g*g{zWX*q{zWXS"*|WX**{oz X*k*q)6#6ãX*/{oz-X*k*q)6#6ãX*+{ozMX*k*q)6#6ãX*-{ozmX*k*q)6#6ãX*){ozšX*k*q)6 #6*q#"q*{"W* {"zX*|ʾX*c*q)*g+s#r*{"V*g+"g*q+"q*g{z*g*z}|*q{zY!4* {"z**z|1Y!*4*ym*{m**q|=Y**q+|PY!RX!"*q")!"åY*k*)^#V! {oz‡Y*+")ÉZ*k*)^#VzžY*"*#"*q}|eY*{zY* {"zX*#"Z*k*)^#V++++|*k*)^#V+++++|Z*RX*#"*)}|Y*#"uZ*k*)^#V++++++|*k*)^#V+++++++|nZ*RX*#"*)}|,Z* {"zX*|šZ* {"zX**){oz­ZZ*#*){ozZ*)RZY*ogR*ogRX*[*m*)^#V*z^#V!)))̀!͎!B[*o*)^#V*z^#V!)))̀!͎!l[>!'*z*)^#V!)))!͉*\!"ë[*i*)^#V[+)[~#fo[2\c\g\}\\\\*#"*g}|x[*z*g)^#V!)))̀!A͎**z{z \*z*')^#V*m*)^#V)))̀E[.\*m*)^#V*z^#V*))))̀E[**m*)^#V*z^#V*o*)^#V)))̀E[**Z̀[̀RE[*Z̀!W͎[̀!O͎]JG*z+++++++|`]* {*{{ozg"{^*z++++++|‰]!"z!"zJG*z"z9:]*z+++++|Ÿ]!"z^*z*z{oz²]\*z"z*z*z)^#V "!!ͦ2!TNmͰmͰ!\N$]!4!"z* {"z* {"z]* {"zJG]4KvH"z͖L*z|*^ͼI"z*z|B^!"zL*zq:*z|`^I*z|`^͟JvH"z*z*z)^#V#"ˀ*ˀ"ò^*J"z*z{z^*z*)^#Vq:ë_*#"*z}|^*z+++|^!"z*{+*z^#Vog"z^x_*zog*z^#V#"ˀ*ˀ"G_*ogJ"z*z{z@_*z*)^#Vogq:ë_*#"*{}| _*z++++|x_!"z*z+*z^#V"zg^*z"zJG*z^#Vq:*z|›_L!"zHH* {"z͖L*z|ʷ_*z#_+)_~#fo`` aaab`cZaccccePe_ek``*z|_!z"̀!z"π<4|!`*{"ˀ*{"р-`*z"ˀ*z"р*z}o|g! U #j`+)V`~#focecececesskkkIv*z^#V!z͎*z^#V!z͎*z*z)^#V!z͎*z*z)^#V!z͎*^#VP̀!z͎*z|`z!{ͱ``<4|a!7DO!z͎a!7ͥO!z͎*^#V`N̈́$P̀!z͎*z|Haz!{ͱWa a`*^#V!!! iD!z͎*z|ʇa*{!z¢a!!z͎`<4|a!DO!z͎a!ͥO!z͎*z|a`!DO!z͎*z|a!2ͥO!z͎*z{ozW_<4}/o|/g{ozg|0bc*{*{̈́$*^#V̈́$!!*ziD"ˀ*z|gb*ˀ*{{oz›b*z{oz˜b!"ˀ*z"рbÛbb*^#V!7*ˀ*ziD"р*z|b*р*{{ozb*ˀ"р*z*ˀ)^#V!z͎*z*р)^#V!z͎*{*{̈́$*^#V̈́$!!*ziD"ˀ*z|zU*z|lo[*̀*πͽQ!z"zür*z"z/v*z+|*z+++|m!"z*z+*z^#Vq:* {"z<4|s*z*π)^#V*z*̀)^#V}o|g#"s*z*π)^#V*z*̀)^#V}o|g#"*ˀ"t!!A͎*z{oztA!{͉*z{oz,tA!{͉!!͎<4|Vt*z*)^#V"2uit*z*)^#V"t*z{oz*z{ozҬt*!AI!AI!y!A͎*z{ozt*+!Aͱ!|NX-!A͎*Q*#"*р}|s*z*̀)^#V"zu*z*z)^#V"vu*z#"z*z*π)^#V*z{zu*z*̀)^#V"z_u*z*z)^#V"vu*z#"z*z*π)^#V*z{zEu*z}o|gu+)u~#fouuuuuuv͚P͚̀P̀R! !͎͚P̀*ͷ!A !A͎*!A͎͚P̀!A !A͎͚P̀!AͿv͚P̀!A͎͚P̀!AͿ.v͚P̀!A͎*z*z{ozHv*z"z9:*z+++|Uv*z+||v*z!!U4*!!U4*z}o|gv+)v~#fovxx*z}/o|/g*z++|/W_{ozg|v*^#V!!!͖Az5%*^#V!!!iD"*z| w*{zwx<4|Lw*z*z)^#V*z*{)^#V)))̀!O͎xw*z*z)^#V*z^#V*zog)))̀!O͎* ^#V*{̈́$*^#V̈́$P̀!A͎*z|ʰwA!{ͱwA!O͉*ˀQ*{zw*^#VP̀!z͎*z|wz!{ͱx!!z͎*ˀ#"ox*++|Gx!!d!zͱ$!AI!A͎*+++|axA!z!A͎*Q*#"*р}|x* {"z/v* {"z*̀*πu8*^#VP̀!A͎*z|ʸxx* {"zA!{ͱxx*̀*πͽQ*̀*πu8ͽK* {"z/v!4<4|Ly!"z*z*z)^#V"z*z*z}|*z*z{z=y*z"zIy*z"z!"zÜy!"z*zog*z^#V"z*z*{}|*z*{{zҐy*{"zÜy*zog"z!!O͎<4|y!!J;"y!!J;"*|yͨ>*^#VP̀!A͎*z|z*{"z*{"z*z*zu8ͽKürA!{ͱ,zA!O͉*z*z)^#V*z)))!A͉O!A͉èy͝ffffA>533333>=ii<0$;9"s/v* {"z*̀*πu8*^#VP̀!A͎*z|ʸxx* {"zA!{ͱxx*̀*πͽQ*̀*πu8ͽK* {"z/v!4<4|Ly!1,"format:",9016 2,"data:",9029 3,"math:",9040 4,"finance:",9060 5,"print:",9080 6,"status:",9090 7,"HELP",6016 9,"STOP",1136 10,"utility:",9105 11,"program:",9120 12,"stats:",9130 13,"tables:",0147 14,"link:",0147 16,"format:",9016 17,"INSERT",313 18,"DELETE",1314 19," rows:",9016 20,"ROW TITLE",0122 21,"SET TYPE",6129 22,"SHOW ROWS",0302 23,"REORDER",2311 24," cols:",9016 25,"COL TITLE",0124 26,"SET TYPE",7132 27,"SHOW COLS",0303 28,"REORDER",2312 29," data:",9029 30,"ENTRY",0493 31,"ENTER",0491 32,"CHANGE",4492 33,"SELECT ROW",10472 34,"SELECT COL",11473 35,"FORMULA",12432 36,"GOTO",4461 37,"PLUG",14462 38,"FIX R/C",0463 39,"NULLIFY",15464 40," math:",9040 41,"ADD",3401 42,"SUB",3402 43,"MULT",3403 44,"DIV",3404 45,"NEGATE",1405 46,"INVERSE",1406 47,"INTEGER",1407 48,"ROUND",1408 49,"CUMULATE",6409 50,"ABSOLUTE",1410 51,"ADD K",6413 52,"SUB K",6414 53,"MULT K",6415 54,"DIV K",6416 55,"SUM",5445 56,"GET",1412 57,"FLOOR",6435 58,"CEILING",6436 60," finance:",9060 61,"SET DEPR",1011 62,"DEPRECIAT",10468 63,"SET LOAN",2012 64,"LOAN",10469 65,"DCF",2424 66,"IRR",3013 67,"RATIO",3425 68,"% OF TOT",6426 70,"PCT",3427 71,"K PCT",2428 72,"LAG",8430 73,"LEAD",8429 74,"GROW",6433 75,"SAVINGS",2434 76,"SET SCHED",4014 77,"DO TAX",5015 80," print:",9080 81,"OPTIONS",3203 82,"TITLES",1207 83,"REPORT",0206 84,"SHOW OPTS",0201 85,"SAVE REP",2208 86,"SET CRT",4204 90,"status:",9090 91," range:",9090 92,"ROW RANGE",5470 93,"COL RANGE",7471 95," mode:",9090 96,"RUN PGM",1006 97,"PROGRAM",8133 98,"COMPUTE",0467 99,"NORMAL",0005 100,"DEL STEPS",10135 101,"PROTECT",0007 102,"ORDER",13466 105," utility:",9105 106,"LOAD ALL",2141 107,"SAVE ALL",2142 108,"SET DRIVE",4128 109,"SET UP",1140 111,"LOAD TBL",2121 112,"SAVE TBL",2126 113,"CLR DATA",1127 114,"RESET",1130 115,"REDISPLAY",0131 116,"LIST TBLS",0309 117,"ERASE TBL",2144 118,"PRINT TBL",0304 120," program:",9120 121,"LOAD PGM",5137 122,"SAVE PGM",5138 123,"PRINT PGM",0305 124,"CLEAR PGM",12139 125,"SHOW PGM",0308 126,"LIST PGMS",0310 127,"ERASE PGM",5146 130," stats:",9130 131,"DELTA",8417 132,"% GROWTH",8418 133,"MOV AVG",8419 134,"SMOOTH",2420 135,"MEAN",5441 136,"SIGMA",5443 137,"VARIANCE",5442 138,"LOG",1421 139,"EXP",1422 140,"POWER",3423 141,"MAX",5447 142,"MIN",5446 143,"COUNT",5444 144,"TOTAL",5445 -99  117,"ERASE TBL",2144 118,"PRINT TBL",0304 120," program:",9120 121,"LOAD PGM",5137 122,"SAVE PGM",5138 123,"PRINT PGM",03%Q CURRENT=NAME PAGE NUMBERDATE (YEAR AS YY)MONTHDAY -RANGE BEGINENDTITLEDISPLAY ZERO VALUESNOYES REPORT OPTIONSDATE$PAGE., (NO=0,YES=1)ROW TITLE WIDTH COLUMN WIDTHCOLUMNS PER PAGEDECIMAL PLACESOMIT ZERO ROWS'SUPPRESS ZERO VALUES (NO=0,[-]=1,[ ]=2)"PRINT ROW TITLE AFTER WHICH COLUMN"NEGATIVE NUMBERS (-N=0,N-=1,(N)=2)#PAGE CONTROL (OFF=0,FEED=1,PAUSE=2) OMIT COMMAS DOUBLE SPACEOMIT LINE NUMBERSERROR IF:FILETABLEPROG.DIRERASED&&#1#2 TOP MARGIN LEFT MARGIN ENHANCEMENT: //: :X TOP MARGIN:  LEFT MARGIN: : : : : : : : : : : : : ##############,###.####BB<BB<@PB/X   -------@PB?0.00E***.000000--()%%***-___-=_*- z!M"}"}!M"}!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!N5%! N5%! N5%!$N5%!)N5%!>N5%!DN5%!GN5%!"!MN5%!PN5%!SN5%! !!!(*!bN5%*!sN5%*!N5%*!N5%*!N5%*!N5%*!N5%*!O5%* !$O5%* !IO5%* !VO5%* !dO5%!S͠*z|*z++|RYRY*z#R+)R~#foSS%TBTT*z*z{ozg| SR*z|SJG*z+++++++|8S* {*{{ozg"{S*z++++++|aS!"z!"zJG*z"z9:R*z+++++|wS!"zS*z*z{ozŠS÷R*z"zj *z*z)^#V "!!ͦ2!wOmͰmͰ!O$S!4!"z* {"z* {"zR* {"zJGR4KvH"z͖L*z|TͼI"z*z|T!"zL*zq:*z|;TI*z|;T͟JvH"z*z*z)^#V#"A*A"CÍT*CJ"z*z{zT*z*C)^#Vq:ÆU*C#"C*z}|\T*z+++|T!"z*{+*z^#Vog"zTSU*zog*z^#V#"A*A"C"U*CogJ"z*z{zU*z*C)^#Vogq:ÆU*C#"C*{}|T*z++++|SU!"z*z+*z^#V"zBT*z"zJG*z^#Vq:*z|vUL!"zHH* {"z͖L*z|ʒUÝUu*EU*z!! &!O$/W_"G*GÆW>!K'M!O5%*Oz5%*K+|UM!O5%*{z5%*K++|VM!O5%*{z5%*z*O$.V*Qz5%!"S!!wVͷ*{*M̈́$!Ö́$!P!!>!4!"S!!rWͷ*K{zV**z̈́$!!U4*U*{̈́$*{̈́$!-!U4*M*̈́$!!!͖A͹&W5%*z|VV*WͿ%|V/W*WI5%*OM5%*OW5%JG*zq:*S{z+W!' *I*S|AW!4÷V!!Wix*W!O$`W/W*W!!U4÷V!4!' .V*IõW*zͿ%{zW͠U|±W*{*z̈́$z5%*YX*]Ϳ%{zW*{*{3*]̈́$]5%*_|W!O"!*]͐ X!O"*]w*O]5%!"a*[iX*e#"e*_|5X͸W*c*{++|QX>ͮ!/42"g*z|`X!4>ͮ*cÖX>!k'*kx&*̈́$!2!U4*iX>!o'!*oͦ2*,{m*q!A3w*m^Y>!u'*z*u)^#V*z^#V"w*w!U "y*y *w}o|g"{*{! U "}*}  *{}o|g"{*}|JY*r{"}*z*u)^#V"w*sY>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {ozg"**z#Y+)Y~#fo)Z*Z\\`I\*z|Y*z}o|g(Z+)Z~#fo.beeegrUyy*`{lX*!!!iD"*z|RZ`**{{ozhZ*"`{*b{lX*!!!ciD"*z|ʐZ`**{{oz£Z%[*"b{*d{lX*!!! iD"*z|Z`**{{ozZ*"d{*f{lX*!!!iD"*z|[`**{{oz%[*"f{`*{*̈́$!!*ziD"A*z|N[*A*{{oza[ù[*!<*A*ziD"*z|ʀ[**{{oz–[*z"**A{z[*A"*A"z*"zJG*{*̈́$!!*ziD"A*z|[*A*{{oz[*!<*A*ziD"*z|\**{{oz%\*{"**A{z9\*A"*A"{*"{JG!O!!!(͖A5%*z|k\!O!!!(͖A5%*z|ʍ\*j{5%*l{5%* {"z!Uz5%*{lX!O!!!2iD"*z|\`**{{oz\*"{*{lX!O!!!2iD"*z|]`**{{oz0]*"{*z}{oz\]*{lX!O!!!iD"*z|g]`*z}{oz**{{ozғ]*"{*p{lX*^#V!!*{iD"*z|]`**{{oz]*"p{*r{lX*^#V!!*{iD"*z| ^`**{{oz^*"r{*v{lX*^#V!!*ziD"*z|O^`**{{oze^*"v{*t{lX*^#V!!!iD"*z|ʕ^`**{{ozʫ^*"t{*x{lX*^#V*̈́$!!!iD"*z|^`**{{oz^*"x{*z{lX*^#V!!!iD"*z|'_`**{{oz=_*"z{*|{lX*^#V!!*v{+iD"*z|n_`**{{ozʄ_*"|{*{lX*^#V!!!iD"*z|ʴ_`**{{oz_*"{*{lX* ^#V!!!iD"*z|_`**{{oz`*"{*{lX* ^#V*̈́$!!!iD"*z|F``**{{oz\`*"{*{lX* ^#V*̈́$!!!iD"*z|ʒ``**{{ozʨ`*"{*~{lX* ^#V*̈́$!!!iD"*z|``**{{oz`*"~{*zq:*{lX*^#V!!!iD"*z|-a`*{lX*^#V!!!iD"*z|]a`*{lX*^#V!!*{iD"*z|ʍa`*{|ʟa!lXæa!lX**̈́$!!!iD"*z|a`*|a* {"{*+|a*{"{**{{ozb*"{**{{ozb*"{**{{oz-b*"{* {"z* {"z*!͙X*!Ö́$*d{x&̈́$!Ö́$*f{x&̈́$!Ö́$*b{x&̈́$!*{&̈́$*̈́$!Ö́$*`{x&̈́$!͙X!"Ac**{̈́$*x&̈́$!Ö́$*{̈́$5%*h{*)^#V͹&!O$c**͙X:c*h{*)^#V*̈́$*͙X*#"b*O! ͙X*{x&Ö́$!Ö́$*{x&̈́$! ͙X*^#V!P̈́$*p{x&̈́$! ͙X*^#V!P̈́$*r{x&̈́$!͙X*^#V!P̈́$*v{x&̈́$!͙X*^#V!P̈́$*t{x&̈́$!͙X*^#V*̈́$!P̈́$*x{x&̈́$!͙X*^#V!"P̈́$*z{x&̈́$!͙X*^#V!&P̈́$*|{x&̈́$!͙X*^#V!*P̈́$*{x&̈́$!͙X* ^#V!.P̈́$*{x&̈́$!͙X*O!͙X*{|e*5% e*5%!(!ͦ2* ^#Vm!2Pm*m*{|Ge*5%Pe*5%!(!ͦ2* ^#Vm!6Pm*m*~{|Še*5%Óe*5%!(!ͦ2* ^#Vm!:Pm*m! 4*zq:*z|*z++|e* {"z* {"z*v{*|{{zf*v{"|{!>P5%*Ϳ%*{*{{ozg"*{|3f*+"***{++ &VP̈́${5%*{+*{{ozg"*{++*{{ozg"*{{zf*+"*+"*!U *}o|g"*!U *}o|g"*!YPy-*{og!aPy-!ͷ!iPa!{͎*!qPy-*{og!yPy-!ͷ$!P !{͎*{og!Py-!PI!{͎*{}o|g*{{ozg*{U +"{*{*z{zg*z+"{*{}o|g*{#*{ {ozg"{!!ͦ2*&{wJG<4|g*zog*z^#V"{*zq:ͨ>*z͍6!"h͸W*#"*{}|g!P5%*b{"*b{c{ozph*n{!͉%"b{*n{!! &"d{*n{!! &"f{*b{|*b{*{{ozҒh`i*|h*d{x&*{̈́$*̈́$*f{x&̈́$*̈́$*b{x&̈́$]5%*+|i*f{x&*̈́$*d{x&̈́$*̈́$*b{x&̈́$]5%*++|`i*b{x&*̈́$*d{x&̈́$*̈́$*f{x&̈́$]5%*"b{*`{|ʩi**{̈́$*ex&̈́$*]Ϳ%*S}o|g3*]̈́$]5%͸W!"Fj*h{*)^#VͿ%"**S{zi*S"*{z*h{*)^#V͹&!P$?j*O*S*{ozg!U 3*h{*)^#V̈́$]5%͸W*#"ҵi͸W*~{|bj]!P5%*A"j*X*z*w)^#V5%*Ϳ%|™j*{5%**{*!G)+͉%*}͉%5%**}3*]̈́$]5%*#"*A*|{+*{zkj*]*{̈́$*j{*3̈́$]5%*A*|{"Ïk*X*z*w)^#V5%*Ϳ%|Lk*{5%**{*!G)+͉%*}͉%5%**}3*]̈́$]5%*#"*}|k͸W*~{|®k]!P5%*A"%l*X*z*w)^#V5%*Ϳ%|k*{5%**{*!G)#*{ &5%**}3*]̈́$]5%*#"*A*|{+*{zk*]*{̈́$*l{*3̈́$]5%*A*|{"l*X*z*w)^#V5%*Ϳ%|•l*{5%**{*!G)#*{ &5%**}3*]̈́$]5%*#"*}|gl͸W*~{|l]!P5%*A"Ãm*X*~{+|0m*]*{̈́$*}+!P&̈́$]5%|m*}!U +!P&*{̈́$*x&̈́$*}!P&̈́$*}͉%*]̈́$]5%*#"*A*|{+*{zl*]*{̈́$*!P&̈́$]5%*A*|{"Jn*X*~{+|m*]*{̈́$*}+!P&̈́$]5%Cn*}!U +!P&*{̈́$*x&̈́$*}!P&̈́$*}͉%*]̈́$]5%*#"*}|m͸W͸W!"*X*z*)^#V*w)))̀!͎*z{{z!!Ҳn*5%üq*t{"*{zn*+"*{{zn*{+"!P͉!"o!P͟!͎*#"**{zn!!7o!X!͎Fo!!͎!̀/x&5%!̀/!PͿґo!̀/!Rx&P̈́$5%!P*!G){zo!P5%üq!P*!G)"*|o**+͉%ŀ5%*!P̈́$*#* &5%p*ŀ5%!P*͉%5%*|/p**̈́$5%*{+|*y+++|*+++|[pìp*ŀͿ%"ßp*ŀ!%*̈́$*̈́$5%*+++"*ŀ*͉%ŀ5%*{zgp*ŀ*̈́$5%!!p*q*{|p*P̈́$5%*{+|q*!P̈́$5%!"*{++|*q*P̈́$!P̈́$5%!"*+|*y|Yq*!Q̈́$5%*#"*++|*y|҂q**̈́$5%*y+|¢q*!Q̈́$5%*#"*y++|¼q**̈́$5%*Ϳ%*}*a{ozg*}|q!Q5%!"**}*a{ozg*3*]̈́$]5%*"a!/4*z*z{oz*{++|Lr2"gJG*z|\r!4* {"z!I|{r!54* {"z*O]5%>ͮ*{m*{*{)^#Vm*`{"e*~{|¹r*p{+++"ÿr*p{"*z{+|r! Q5%*z{++|r!Q5%*z{+++|r!Q5%!"ǀ*{"A*v{x*A*v{+*{{z0s*A*v{+"6s*{"*p{"S*A"^s*X*S*}"S*#"*}|Es*S*ǀ}|s>ͮ! 4*S{zs>ͮ* {"z!4y*_|²s>ͮgQj*z"ɀÞx1|s>ͮ* {"z!4y*z*ɀ)^#V"*z*)^#VaY*++++| t×x*x{|*{z*t{t*{"Mt**{{ozFt÷u*#"*z*)^#V*z*)^#V)))̀!3t*~{|št*ɀx&!3]5%*+|t*O*z*)^#VͿ%*S}o|g!U 3*]̈́$]5%*++|u*O*r{*|{ 3*]̈́$]5%*+|?*{z/Du*]*{̈́$*z*)^#V̈́$]5%÷u*A"Wu\n*#"*A*|{+*{zMu*]*{̈́$*z*)^#V*3̈́$]5%*A*|{"ìu\n*#"*}|u*+++|*]Ϳ%{zu͸W*|uw!(!Q*! &&ˀ5%*+++|Lv*_|)v!(!Q&ˀ5%͸WLv! s%*]̈́$*{*{&̈́$]5%*~{|dv*]! Q̈́$]5%*+|¨v*O*z*)^#VͿ%*S}o|g͛3!U 3*]̈́$]5%*++|v*O*r{*|{ 3*]̈́$]5%*+| w*]*{̈́$*ˀ*z*)^#VͿ%͉%̈́$]5%͸Ww*A"Cw*X*{*ˀ̈́$*}͉%*]̈́$]5%*#"*A*|{+*{zw*]*{̈́$*O*3̈́$]5%*A*|{"òw*X*{*ˀ̈́$*}͉%*]̈́$]5%*#"*}|w͸W*{+|w͸W*{z* }| x!"w͸W*#"*}|w* {oz-x*{+|-x! s%]5%* {oz?x͸W*ɀ*z{z* {ozdxX*z|oxy*ɀ*z{z* {ozҗxgQj*ɀ#"ɀ*z}|s*{|´x͸W*{+|x! s%]5%͸W**{{zxX*z|xy*v{*A"A*{x}| s*Oˀ5%*O5%*O5%*Oŀ5%*_|2y>ͮ*{m>͖ͮU*z|Ty*{ͨ4!"y*h{*)^#V!!U4**{̈́$*x&̈́$!!!(͖A5%*z|ʯy`*Ϳ%{zy*h{*)*5%*#"^yr* {"_͠U|y*z5% z*{*z̈́$5%*!!!>q͟r!' *z|0z*{"_*{ͨ4* {"zj ͝A͉èy͝ffffA>533333>=ii<0$;9"s {ozҗxgQj*ɀ#"ɀ*z}|s*{|´x͸W*{+|x! s%]5%͸W**{{zxX*z|xy*v{*A"A*{x}Chang Labs ,MP-3 # 5086, 7044 MPLOGIC OVL[MPMENU FILMPPRINT OVL[MPSERIAL$$$DNE`Se(New matrix may not fit in current memory1You may have to set matrix to size of your table )using SETUP command before loading table.z!M"}"}!M"}O!͎!!҃NM!!͎*z#)))*z# *z)##!!!N*&{w!Mm!̀?!Mw!Nw*z*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(!"O*z*)*s#r*z*)*s#r*#"*z}|O!"P*z*)*s#r*z*)*s#r*#"*z}|O*{*z{z\P*z+"{*{}o|g*{#*{ {ozg"{!"{*{*{"{!"{*{*{"{*{*z}|P*z"{*{*z}|P*z"{!"z*z"z!"{*z"{!"z*z"z!"z*z"z!"z*z*z)^#V "͝!eN5%!N5"MicroPlan" 50,20 15,10,1,"" 0,0,0 "KAYPRO" 9,80,24 2,27,0,0,0 61,32 0 0 0 0 0 0 0 0 27,67,48,27,67,51,27,67,49,0 0 0 27,66,51,0 0 0 32,27,66,48,0 0 32,27,66,48,0 0 27,66,48,0 27,58,0 0 5,24,4,19,27 0,127,13 "COMMAND KEY SECTION" 37 65,51,66,52,67,53,68,54,69,30,70,35,71,36,72,79,73,46,74,79,75,71,76,138,77,135,78,39,79,79,80,37,81,32,82,67,83,55,84,68,85,79,86,137,87,79,88,38,89,79,90,79,43,41,45,42,42,43,47,44,61,56,37,70,36,49,94,139,62,73,60,72,64,74 "FUNCTION KEY SECTION" 0,0,0 0 0 0 27,66,51,0 0 0 32,27,66,48,0 0 32,27,66,48,0 0 27,66,48,0 27,58,0 0 5,24,4,19,27 0,127,13 "COMMAND KEY SECTION" 37 65,51,66,52,67,53,68,54,69,30,70,35,71,36,72,79,73,46,74,79,75,71,76,138,77,135,78,39,79,79,80,37,81,32,82,67,83,55,84,68,85,79,86,137,87,79,88,38,89,79,90,79,43,41,45,42,42,43,47,44,61,56,37,70,36,49,94,139,62,73,60,72,64,74 "FUNCTION KEY SECTIR OLD NUMBER NEW NUMBERROWS COLS  PER.  UNDER BLANK DEC FOR TYPE LINE LINES SIZ MAT COLUMN DEC FOR WIDTH SIZ MAT data subt head note omitNAMETITLEREPORT OPTIONS SECTION: STEPCOMMAND PARAMETERS DIRECTORYDATEPAGE (NO=0,YES=1)ROW TITLE WIDTH COLUMN WIDTHCOLUMNS PER PAGEDECIMAL PLACESOMIT ZERO ROWSSUPPRESS ZERO VALUES"PRINT ROW TITLE AFTER WHICH COLUMNNEGATIVE NUMBERS#PAGE CONTROL (OFF=0,FEED=1,PAUSE=2) OMIT COMMAS DOUBLE SPACEOMIT LINE NUMBERSERROR IF,%  - K= -  - USE -$ ---- ---- ----- --- --- --------- - ---- ==== ____ page - # - # - % $ No,-$ ----- --- --- --------- - - % $ No,  V ##.## Table: ### x ##C TABLE NAME=- : ##/##/###: ###:  -  :  -  1:  2:  3: --- TOP MARGIN: LEFT MARGIN: : : : : :  (NO=0,[-]=1,[ ]=2): :  (-N=0,N-=1,(N)=2): : : : : PROGRAM FILENAME= - ### V(###/##)###  ## PROGRAM=  STEPS.- ### V(###/##)### ##TABLEPROG.DIR-ERASEDFROM TERMINAL #: B:MULTI.SYSMSG # I.D. OF RECEIVERALLSEND TO TERMINAL #. USE TO END. B:MULTI.SYSMSG # USE TO END.MSG # z!M"}"}!M"}!M5%!M5%!M5%!M5%!M5%!M5%!M5%!N5%!-N5%!BN5%!]N5%!cN5%!jN5%!zN5%!N5%!N5%!N5%!N5%!N5%!N5%! !!!(*!N5%*!N5%*!N5%*!N5%*! O5%*!O5%*!0O5%*!TO5%* !fO5%* !O5%* !O5%* !O5%!NU͠*z|*z++|ҁTi`ÄT͋`*z#T+)T~#foUUUUpV*z*z{ozg|ʶTÄT*z|TJG*z+++++++|T* {*{{ozg"{ÎU*z++++++| U!"z!"zJG*z"z9:ÄT*z+++++|"U!"zÎU*z*z{oz5UbT*z"zj *z*z)^#V "!!ͦ2!OmͰmͰ!O$yU!4!"z* {"z* {"zÄT* {"zJGÄT4KvH"z͖L*z|ʰUͼI"z*z|U!"zL*zq:*z|UI*z|U͟JvH"z*z*z)^#V#"A*A"C8V*CJ"z*z{z1V*z*C)^#Vq:1W*C#"C*z}|V*z+++|mV!"z*{+*z^#Vog"zpVV*zog*z^#V#"A*A"CV*CogJ"z*z{zV*z*C)^#Vogq:1W*C#"C*{}|V*z++++|V!"z*z+*z^#V"zU*z"zJG*z^#Vq:*z|!WL!"zHH* {"z͖L*z|=WHWu*EuW*{"G1|qW>ͮ!4* {"z* {"G*GòW*K#"K*K*M}|W!"I*I*O*K! &͹&\%"I*IìX>!S'*O*K#! &!U͎!0"]X*K#"K*K*M{zW!"]X*O*K#! &\%"]*]0}|/*]9{z/W*S+|QX!U*z^#V"Q*Q*S++|rX!U*z^#V"Q*Q*z{zX!U*z^#V"QèX!U*z^#V"Q*Q*Y>!a'*z{zX*{*{̈́$*z*a)^#Vx&̈́$*{̈́$_5%&Y*{*{̈́$*z*a)^#Vx&̈́$*{̈́$_5%*_j_*ge5%*gi5%!z"k!z"m*z~8{ozŸY*z*k)^#Vx&!Ö́$*z*m)^#Vx&̈́$*{̈́$i5%*z0{oz*z~8{ozY*zͿ%"M*zO5%!"K1]!"oZ*o#"o*o*z}|Z*c*z*o)^#V*z{ozY*z*o)^#V! 3i5%*zͿ%{zZZ*i*z̈́$*{̈́$i5%*z|eZ]*z+++++|uZH^*zͿ%{z*z++++|*z|*z}|/ҴZ*c*zZ+)Z~#foZ[-[S[[$\P\\\\\]]-]*i*ë́$i5%*c*mͯXe5%*c!z̀x&!Ö́$*mͯẌ́$e5%*c*kͯXe5%*mͯX*ë́$e5%*c*{*{̈́$!z*z^#Vx&̈́$*{̈́$*{̈́$*{̈́$!z*z^#Vx&̈́$e5%*c*z}|/*z{z/*z|[P\ \*z*k)^#Vx&*̈́$!Ö́$*z*m)^#Vx&̈́$e5%*c!z̀x&Ö́$*{̈́$*mͯẌ́$e5%*c*z*k)^#Vx&*̈́$!Ö́$*z*m)^#Vx&̈́$e5%*c!z̀x&*̈́$*mͯẌ́$e5%*c*c*{*{̈́$*z*m)^#Vx&̈́$e5%*c*{*{̈́$*z*m)^#Vx&̈́$e5%*c*c*mx&e5%*c*cxW"q*q|e]*i*ë́$i5%*gz5%*gO5%*c*qs%*ë́$e5%*qL{oz£]!͵Wx&*ë́$e5%*qV{oz]!͵Wx&*ë́$xWs%̈́$!͵Wx&̈́$e5%1]*z+++| ^*mͯX*ḯ$i5%*z+++++|D^*kͯX*ḯ$i5%*mͯX*ḯ$i5%*c*z++||^*zc{ozy^*mͯX*ḯ$i5%|^_*z++++|*z+++|^*kx&*ḯ$!Ö́$*mx&̈́$i5%*z+++++|_*mͯX*ḯ$i5%*i!Ö́$*kͯẌ́$i5%*c*z{z=_*i*{̈́$*{̈́$*mx&̈́$i5%b_*i*{̈́$*{̈́$*mx&̈́$i5%*c*c_>!u'*z*u)^#V*z^#V"w*w!U "y*y *w}o|g"{*{! U "}*}  *{}o|g"{*}|_*r{"}*si`>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {ozg"**z#`+)|`~#fo```*z|ʋ`*z,}o|g`+)`~#foNaOac+f kq2s4moo tvxyCz!,4vEJG*z8{oz`*z"]`*z"]*!!*]iD"*z|a**{{oz$a`*!4!*]iD"**{{ozMa`* {"z* {"z*{"*{"A*{*{"**z}|a*z"!!ͦ2*4{m!!ͦ2*!23w*{!3m*!3m*!3w!!O&m!Om!!P&w*A"C]cKW| b*|b*,{m*Cx&*{̈́$*z*C)^#V*z^#V̈́$!3m*z*C)^#V*z^#V_** #! &m!P* #! &m* {oz¯b!+Pmb*|b!3Pmb!;P"**|b!CPmb!IP"*+!OP* #! &m*CJ"z*z| c-Y)ci!aP5%*|Ac*{*ḯ$wVc*{*ḯ$!3w*C#"C*}|b*gz5%*gi5%*|‰c! 4* {"z* {"z*{"*{"A*{*{"**z}|c*z"!!ͦ2*4{m!!ͦ2*!23w*{!3m*!3m*!3w!!cP&m!fPm!!P&w*A"CÜeKW|Gd*|Ud*,{m*Cm_*z*C)^#V*z^#Vi5%*{*i!G)"*{zd*i*+͉%*{̈́$*i*#*{ &̈́$i5%*Cx&*{̈́$*ḯ$!3m*}x&! 3m*{|e*{"{e*{+"{*{x&!3m!P*y #! &m!Pm*CogJ"z*z|_e-Yhei!P5%*|ʀe*{*ḯ$wÕe*{*ḯ$!3w*C#"C*}|>d*gi5%*gz5%*|e! 4f>!'>ͮ*42"*z|e!4*JG>ͮ*+f!I|!f!54* {"z*z"* f|4f* {"!/e*z|Lfhj*z!P̈́$"*z!PͨZ*zT*z9B!Pm*{wB*m*w!!P&wB*!P̈́$"*d{T*f{T*b{T!7͎*!P̈́$"*`{9B*m!Pm*zx&m!Pm*zx&m!Pm*m!Qm*{x&m!Qm*{x&wB*m! Qm*h{^#Vw*m!Qm*h{^#Vw*m!Qm*h{^#VwBB*{{zg!/e*z|ʳghj*{m*w!!Q&wB!"A*z"!͎͢a*z|ghjBB*{{z h!/e*z|hhj*{m*w!! Q&wB!"A*{"!͎c*z|PhhjBB*{{zjh!/e*z|uhhj*m*w!!#Q&wB!&Qm*{x&w!4Qm*{x&w*^#Vm!CQm*p{x&w*^#Vm!GQm*r{x&w*^#Vm!KQm*v{x&w*^#Vm!OQm*t{x&w*^#Vm*m!SQm*x{x&w*^#Vm!WQm*z{x&w*^#Vm!nQm*|{x&w*^#Vm!rQm*{x&w* ^#Vm!Qm*{x&w* ^#Vm*m!Qm*{x&w* ^#Vm*m!Qm*{x&w* ^#Vm*m!Qm*~{x&wB>ͮ*{ͨ4>ͮAW*{"* {"z k*z{oz*z{oz*z{oz*z{oz*z{oz*z+|*z++|*z+++|go"**z|k* {"z! 4 f|(k!/e*z|:khj!Qm*{wB*m!#͎*w!Qm!<!Q&w*z"!"z!"ClKW|ʎkmͼI"z!Q"*C̀j|ʮk}l*z{ozk*{Q̈́$"!z*z^#VT!z*z^#V}l*z{z8l*{!Q̈́$"*z*z)^#V*z*z)^#V5mwl*{!Q̈́$"*zog*z^#V*zog*z^#V5m*{m!#͎-Y*iw*C! U   *C}o|g|´lB*C2{oz*{{zl!/e*z|lm*C#"C*z}|kBB>ͮ*gi5%*gz5%*{ͨ4>ͮAW* {"z*"z*z|Jm! 4* {"z* {"z*{Q̈́$!Q̈́$*zx&̈́$!Q̈́$ͨ4!!ͦ2*,{m*!3m*!!3m!!ͦ2*,{m*{m!1!Q&m*z"!"z!"!"CYo*z|m*"zͼI"z*C* {ozg"!*ͦ2*,{m*,{!23m!*ͦ2!Q"*C̀j|Ynn*z{ozšn!Q"!z*z^#VT!z*z^#Vn*z{zn*{!Q̈́$*{̈́$"*z*z)^#Vn*{!R̈́$*{̈́$"*zog*z^#V! *ͦ2-Y*i!!3m*C!U  *C}o|g|Ro!0e>ͮ*#"*C#"C*z}|m*C!U  *C}o|g|ʹo!*C* {ozgͦ2*g!23m*"z*gi5%*gz5%! 4* {"z!R5%o!R5% f|o!/e*z|p×p* {"z!!pͷ*{*̈́$!R̈́$!!!>!!pͷ*m*w!@!R&wÉp!!ix*!R$ʉp*w* {|gp!' >ͮAW*{ͨ4>ͮ!4p>!'!*#*x&&R̈́$!7R̈́$*̈́$͐*æq*{"!;R!!!>!!!ix*!! &"*!%! &"*|**{ozzq!' *!*#!ix!' * {"*"**z }|q!"4* {"zp"*|q*x&HR̈́$!OR̈́$*̈́$!!U4*z }o|g"!RR!!*iD"*z|&r**{{ozBre!dR5%Qr*x&e5%*eiR̈́$!}R̈́$ͨ4*s*g!!!-͖A5%*z|ʍrJG*Ϳ%|›rr!R!!!>**{{ozr!"r*ͷp*#"*}|rr*ͷp!' p"*|*s*x&R̈́$!R̈́$*̈́$!!U4* {|hr*z }|Ms!"4* {"z!Rͨ4sp"*|ʵs*!U  "**{ozg"*x&R̈́$!R̈́$*̈́$!*U4!"s1|s* {"z! 4*#" Ҿs* {|Ws t*z*)^#V*zF5%**z"z**{oz#tu**}|:t!"]@t!"]*z*)^#V"*"Ãt*z*)**]*z^#Vs#r**]"**{ozYt*z*)*s#r!"t*z*)^#V*z*s#r*#"*z}|t!"u*J"z*z{z*z}|u*!zz!zͱnu*]+|Qu*z*)^#V!z͎sku*#*z^#V!z͎su*!zz!zͱu*]+|¶u*+*z^#V!z͎su*z*)^#V!z͎s*#"*z}|tͽKͨ>* {"zv*z*)^#V*zF5%**z"z**{oz)vu**}|@v!"]Fv!"]*z*)^#V"*"Év*z*)**]*z^#Vs#r**]"**{oz_v*z*)*s#r!"v*z*)^#V*z*s#r*#"*z}|v!"w*ogJ"z*z{z*z}|w*!zz!zͱzw*]+|]w*z*)^#V!z͎uww*#*z^#V!z͎uw*!zz!zͱw*]+|w*+*z^#V!z͎uw*z*)^#V!z͎u*#"*z}|vujx>!'*z*)*g5%*z*)*g5%*z*)6#6!"Yx*z*)^#V*)))!͛*#"*z}|5x*x>!ŀ'*z*ŀ)*g5%*z*ŀ)*g5%*z*ŀ)6#6!"x*z*)^#V*ŀ)))!͛*#"*z}|x*À<4|xLy*z*z)^#V*z^#VͿ%{zy!44* {"z*z*z)^#Vmx*zog*z^#V"*z"v*z*z)^#V*z^#VͿ%{z|y!34* {"z*z*z)^#Vw*z*z)^#V"*z" t<4|ʰyz*zogmx*z"*zog*z^#V"**{ozy*#*z^#Vog"zv*z"*z*z)^#V"*zw**{oz@z*#*z^#V"z tj ͝A͉èy͝ffffA>533333>=ii<0$;9"s*g5%*z*ŀ)*g5%*z*ŀ)6#6!"x*z*)^#V*ŀ)))!͛*#"*z}|x*À<4|xLy*z*z)^#V*z^#àO"CHOOSE (SL=1,SYD=2,DDB=3,DDB-SW=4) BOOK VALUE SALVAGE VALUELIFE (IN YEARS) LOAN AMOUNTTERMINAL BALLOON PAYMENT AMOUNTTERM OF LOAN (YEARS)ANNUAL INTEREST RATE (%)ANNUAL PAYMENTNUMBER OF BRACKETSUPPER LIMIT FOR BRACKETMARGINAL TAX RATE (%)ENDING MARGINAL TAX RATE (%)SCHEDULEEARNINGSTRIAL WHICH COMMAND!ERROR IF(CHOOSE (ANNUAL=1,QUARTERLY=4,MONTHLY=12)PV= FV= R=% N= PMT=? PLEASE WAIT@<A #@>IRR: z!M"}"}!M"}!M5%!M5%!M5%!M5%!N5%!N5%!2N5%!HN5%!bN5%!rN5%!N5%!N5%!N5%!N5%!N5%!N5%!N5%ïP>!'ãP*{*!*ziD"*z|P***{{ozʣP*z*)^#V"** {|]P*Q>!#'Q*{*#!*ziD"*z|P*!**{{ozQ*z*)^#V"!*!* {|¾P*!äQ>!-'ØQ*-!!!͖A/5%*/Ϳ%|YQ%!{͉*1/5%!%*z|eQ!%!N*/!G)|‘Q*/!%͎*1/5%!%!4* {|Q!%!R͠*z|*z++|Q͆TQͰT*z#Q+)Q~#foRRS5SS*z*z{ozg|QQ*z| RJG*z+++++++|+R* {*{{ozg"{R*z++++++|TR!"z!"zJG*z"z9:Q*z+++++|jR!"zR*z*z{oz}RêQ*z"zj *z*z)^#V "!!ͦ2!OmͰmͰ! O$R!4!"z* {"z* {"zQ* {"zJGQ4KvH"z͖L*z|RͼI"z*z|S!"zL*zq:*z|.SI*z|.S͟JvH"z*z*z)^#V#"Q*Q"SÀS*SJ"z*z{zyS*z*S)^#Vq:yT*S#"S*z}|OS*z+++|µS!"z*{+*z^#Vog"zøSFT*zog*z^#V#"Q*Q"ST*SogJ"z*z{zT*z*S)^#Vogq:yT*S#"S*{}|S*z++++|FT!"z*z+*z^#V"z5S*z"zJG*z^#Vq:*z|iTL!"zHH* {"z͖L*z|ʅT*z#T+)T~#foTTUWWYwZ*z|ʰT*z }o|gT+)T~#foZ][_ddf*z+++++|T!4* {"z*z{zU! 4* {"z*!!!iD"U*z|.U*U*{{ozDU!"U*Q̀!W͎*z|]U!!WxU!!W͎*Q̀!_͎*z|ʑU!!_ҬU!!_͎*Q̀!g͎*z|U!!gU!!g͎!!o͎*z++++++| V!4* {"z*z{z$V! 4* {"z! O!!! iD"U*z|CV*U{zVV!"U!"w*Q̀!W͎*z|uV!!WҖV!!W͎!"w*Q̀!_͎*z|ʯV!!_V!!_͎!"w*Q̀!g͎*z|V!!g W!!g͎!"w*Q̀!o͎*z|#W!!oDW!!o͎!"w*w{zaW*Q̀!y͎!!y҂W!!y͎!"w<4|ʞW!QP!z͎îW!ͲP!z͎<4|W! 4* {"z*z++++++|W!4* {"z*z++!U "*!!*iD"U*U*{{oz/W_*z{ozg|(X!"Y**{̈́$*x&̈́$Q̀!W͎*z|_XW!{ͱwX!!W͎*Q̀!o͎*z|ʐX!!oҫX!!o͎*z*z)^#V* )))!W͉*z*z)^#V* #)))!o͉*z* u8*z* #u8*#"*U}|1X*Q̀!o͎*z|@Y!!o[Y!!o͎*z*z)^#V*U ##)))!o͉*z*z)^#V!)))*U͛*z!u8*z*U ##u8*z{zY! 4* {"z*!!*ziD!z͎*z|Y*{!z ZûY!z*z^#V!z͎*!7!*ziD!z͎*z|KZ*{!z]ZûY!z*z^#V!z͎*!!*ziD"* {"z*z*z)^#V!)))*U͛*z*z)^#V!)))!W͉*z*z)^#V!)))!_͉*z*z)^#V!)))!g͉*z*z)^#V!)))!o͉*z!u8*z!u8*z!u8*z!u8*z!u8*z!u8!!oͱ!o͎!!o !͎!!gI!y-!͎! !yͱ!y͎*w#[+)[~#foh\\]]|^!!oI!o͎! !yI!y͎*z|[!Ẁx&7Ö́$!!!ͦ2!"[g!!*,{m*!A3w*#"4g!' ! 4*z*)^#Vz‰g!'4!"!"þg*z*)^#V!}|g*###"*#"**{zg* {!@!!>!!hͷ!*!!*!!*!!' !!ͦ2*1!A3w*,{m*!A3w*,{m*!A3w*,{m*!A3w*15%*15%*15%! 4!' !.4j ͝#Vm!CQm*p{x&w*^#Vm!GQm*r{x&w*^ÀQMPLAN ;`@V`dRB!"{͖* d  =""6#}|B=!"{ "}00-!~G#~ }q+ph##a"p#w *}"}" }"}* }*}*}}!a6#6#q#p*}" }* }|`i"}* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z }|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W:0!9BKÞ DM!9͞ !9! 9N#F#͞ ͷÖBKw !9DMw ͖DMw !9DM! 9DMw !9DM͖ͷͮ!9DMË ͮË DMw !9DM*!9DMw !9DMͷʹʹ*Lͷͫjͫ!9DMw d͌ͫ! 9DMw !9DMͷ̓j̓ë͌̓ÅDMZ!9DMw ͼ !9!9!9DM w ͮü @PP"4}̀*4}!9~w{_!y+##!}2*7}  |g"7}!HU >'-lw# M>@2}2} #}͋ À*%*}§#}*&}"7}>26}:}Ww !}:6}w #}͋ w !}#}͞ !#}:6}w:#}W!}2#}w r24}2}o&G>Ow# $q#,:#}!}V$}Ϳ M>u}g b!*}< }!$}{7>' #i +>'w#>'w #†:#}2} !}~PM:4}M6!}~ U+w# @ }6w{26}$}!}~#!$}~#!}q#!}"4}~#M/G$}*4} +#4?MG+}*4}'w# :!6}5*4}#  }g !"}~ȯw+6+wo:}<2}OF!} 怮w J_#~ȓAPw>26}`i"4}2+}}*4}>'#>'#>'#>'#>'#>'#>'>'wڮ*4}Ϳ #~'w!+}~w:6}=826}!}ì}͞  }g bDZA}2}x2}iOG>F2}!}r#ti`)!}~'w#… ~ !} +» #?µ! < !}=> pT]w+ ~w!}}G# :!}з! !}!}5q!!} }w+) p!}55 p!} + + + + + + 'm P'> 'm o g"}`i}â *}|• ɵ!}â ~#~#~#~#~#~#~#~#!}'w#'w#'w#'w#'w#'w#'w!9~A 6/OG #6= x>#w| DM!x& y), )2 )8 )> )D )J )P )| | ʖ zp x)yOxGyxڈ GyO#=t ogeop p )ګ #£ OÍ U `i!:}A$:Y}ä * ͏*# >*ø . ͏#>.¸ 2N}S - ͏# .>-¸ >2C}2N}OS >2C}+ \̏͏ä 2E}3 > 2E} ͏#2 ,H >2M}2 !N}q.d >2=}͏#d X !?}q^w ͏j !A}q-ˆ >2D}͏>26}Z}͋ :}O 2@}2B}!}r#§ :N}ʵ =2F}:C}> â :C} :A}!B}67 y@G /%2M}2C}2D}Z}w 2:N}2@}Gy@w:C}!D}>_ >_ 4!@}5<2F}:@}!?}G:A}x :B}OxGxҢ "}W?< =… z` zg !"}~ʢ bÈ :F} :D}!C}:@} :N} >-G:E}OW* $ $ :D}!C}  Oz y:N}ʩ—:C}—:}©×:}2> >0> 26}}g b!<}~2>}6:}@2B}!A} lr6!B}p2@}/O!} #~ ʌ y2?}=/2=}:@}>0é:6}=!@}5:@}2M}!=}~>.:<}!=}/:A}:B}G:?}G2?}x:6} !?}5:?}:A}M>E!B}:<}'5~ 2/<-Gyx/ : Gyx0:D}^2D}2C}:<}:>}2<}":}|ƒ:<}~W#^#:<}¬zʢ~# Ò|~:K}2<}9NS"I}"G}:Y}/!&\̏͏͏ʳ/͏âͼͳI g :<}> !{4O:9}3* YI Bg >2{> #> #I ]g :<}:{e> k͎b͎B!9}:{=B29}!6}~5*O}~+"O}0G>0 0:M}:A}:@}>,*:}:}> >-*U}|*F>2<}~G#N#"U}"W}`i"Q}"S}w!#\&Å/ʃ&ʃ!ʃ\… x…2<}9UN. xQ"K}*S}|£*Q}"S}*U}ì+"S}*W}~#"W}2Y}*I}~#"I}*G}|+"G}ͼ> ij":}!<}454!9:Y}#/!&$͏$>$*͏*>*-)͏#.>-\̏͏*U}++!"U}ã:00!{~Gwog:00! !*|ʭF#N#èNͅ# xž ͅP"}2}z͋*}#"} {  >2{:}d2}2b}GW2}͖~"B͖3͖~"92}~,^͖R*}A:|ʏo&##a6#|Gw#†*}s#r:|#ʠ:}+~ʲ"·:} !c}q~!| w !s}rimproper input - reenter $AY|'##ap#q#w xs#rAgxB! w#wYDMgYDMg*}DM*}}|ODF#N# "}͈go͂ ڢOͅo&͂o&}2o&E{2xn&}!9>OP"}>2}y2}w# +2}2}+ +-!>2}+0.P:}/2}y“+0&:}=2}>Eʙeʙ7gyGʅ :}2}ҁxÅ:}ړ:}<2}+&y+ ʙG-_ʲxµ+7G+7OxG{G:}@*}wɯ2}y2}++->2})DM)) O +7:}&z/W{/_s#r:}=2}~#0:?^#V* }||~!b}N q!c} ^!|!s} n&*}"}*}!4#Çuu2~zW{_!~5ʏ*}w |g}o"}*~|g}o"~b*~*}DM*};͙"}*}"}BN|>>>)=; a"};p#z *} "}"}}2}á}*}$ ~#$*} } w#%f}~#DF*}r+s"}:}=|!}~@w"})|v>(>NF|ʠ~ #~#ʟG*}:ʣz6#> 6 #=©x:Ҡw#2&~K .2&~K N"~!~"~xҟw#p~|Ÿ*}!DM!:+ w7 G>w:&~r._# X7*x:}>*x>2&~6?#`ڄ{҄_:ʟ*ʟ?ʘw#:}ڧIF>?Ó*}*}}O|Gr# x½*}*}#{z"}2'~͹.}z:'~*}!~w:'~*}!~w͍>*}!^w#Vw*}. s#rͬ>6zQ|EX*})}w#w}^#f|OEk2'~͹.}uzک*}!:~ʩ!~wͨ¬MEf} s#rf} ^#VzFU"}*})} ^#V"}*}"}!9"}á} :}RB="RU"|IR"+DM*}W*}{o>g+{z_yW͋!*} s#r!}~w"}zm!!9"}*u*u+uzҶ!!9"}+u+u*}*}s#r͡*}!0! ~#~!}>w:}2(~!!(~53ͫ :}2}*}+"}ì*}"}!}~wS͙͋"}:}*}~A *}|eRE"!9"}*}*}#{zڧ"}:}*}n&:}͙͋"}Ý!|e , Gy2 p#*}|A|!")~ e"!0~6,!-~6!|".~?20~!|".~2-~:0~ <A K{e!0~f s*.~w#".~!-~~ s#r~#fo,F#NyOxO<*}as#rr#sOA#wzEAA;;<>"s#r*}|A €!}~ЇwWR"͡*}*}{_zW{z<ͫ=³͡Ҭ!}>w*}*}|DW"G:<}x *}| *}|ER"+"}͋*}"}:}7*}! N#F p+q*}w!}>w!9"}}:<}e>"p:<}>"Æj ÆL :<}>,:<}ڞ>"p:<}>"ÿj ÿL :<}*}|++> +|> > *}!0! w#w*}+"}!}~w*}*}|EFf} ^w#VwzCU""}͋ͭ͡͡z^ EX} w#w6!à })~#fo' *1~#"1~{zp f} ^w#VwzDU""}ͭ͡zڿ EX͒^ !9"}!͹}u<FR"*}"3~!͹}u<.!*} *3~~# !u6*3~"}6!6*3~"}6!!͹>2}}*} 6?##6?!"5~_*}~ʁ!=_"}<EX]"}<EX##FNu!`*}O yŷ!~##!!!~#!!*5~"5~å!62}*5~)!*}!\"}}!hw#"!e~ 8"6O#6V#6Ld"CQ"#~OK"#~Md"CTOK"#~VK"#~LK"\:00ڀ"!b~w<CM*}*#¥" "¯"##"N#F#x" g o" ="  GO" _ W"yx "Ó""* {z#*|#+~w*"9~!";~*9~"7~j$T#*7~";~##^#V*7~"9~*{z*#h#*7~^#~W>##'#!";~*j$ʂ##~w+Ç#";~##^#V*{zq#:eO#]!!$#ª#*{z#\!ʻ#a$*\!*{z#\a$CX!9$(~#)$!À\ʀ\! "\\*;~}ʂ${Ozر~#foo$=`'PY`' |¿$##a"=~n'v'v'''*=~! 9SLz%|#%`'PY`'y_xW/%x$$# x$''%%ɯ>`'$7$`'$7?$z$N#FyA%x+͵'|V%~&~ws#r`'l%n&'AC!an'q++*zSS`'yxҢ%PY##a"?~n'BKv''*?~|`'++'zSS`'yOxG& ##a"A~n'BKv''*A~|~&DMxg&zg&|~#+/&'!`'yOxGm&yxJ&PYa"C~n'BKv''*C~SS!"C~_&!<}~2E~w2|&j *|&##axw#q#|v':E~2<} !|4^w|~&`'&a~&~_w# x&`'! an'BKv'++"H~|!"F~X'`'X'`i ##a"F~n' xB'G*H~p#z7'X'v'*H~+|"H~C''*F~|DM~G#N#zw#s#xʇ'@͠'|'yʙ'Ow# 'yOw#w#w#w#  '^#V* }||~!9 ''~#fo5%##('~#'='`i"J~^#V* }|)(*J~w#w}6(;(>=(>2O~!_~"}~!9N#F# y2T~~(2L~+~+ng# *}~s#r#"}~DM:L~=](+~+ng# :O~_ "U~a"W~*U~"[~)"Y~*W~+F+N ##6# x¼(~#fo#:O~_ og"]~:T~,)2L~*}~+V+^"}~)*[~*]~"[~*Y~+r+s"Y~*M~+"M~|(#~#fo#)og"]~:L~=(*W~*J~s#r:T~=@)"~"~"~ů>MP*~k*ʿ)`i"~*~yx+"~ڿ)*~k*ʿ)`i"~\“)+ x‹)"~*~í)#))*~*~}|)!*~b**~b*"~2~!"~*~*~}|?*~*~~\!~*6 *!**~#"~*~#"~*~#}|)*~*~F*~*~#N!~~Z*x?^*#M*y0 !\*y_A6x7?|~|DM~G#N#/ *SQ.w ʹ~͋ w !}~G w!}!-o|g~x-ܴ>~͋ .ʹ~͋ ~w ~̓~ͮ=*Ë / 2~ w +͖x+ ͫ~!.͞ 2~>.͵/~͋ w ͼ ~w }.!6.m+`+ʹL+#P+:~',Ë :~}UË CbQYDes/ 2~=+LN>A.w ʹ͒/~͋ 2~~!.͞ ʹ/>͵/~͋ ~w ~!.͞ .>͵/~̓~ʹ~͋ :~AO> ,/GZ.ͮ.ʹ~ͮË ~͋ .w Ã/ :W zw  /ͫ/:}L,/ͮ:}s,ͮ/w,ͫ҂,!}~w:}:ک,~͋ /̓~͋ ʹB/>͵/Ë /w /ͮ͋ ;,/w !}~>w2~:}A,~͋ ~͋ -͒/~͋ /ͮ~͋ ~w ʹ>/͵/:~!}wË -O-~͞ ͑+w ʹ!9DM͋ *!9w!9-ʜ-DM͑+w ʹG--ʘ-~͞ ͑+w !9DMq-!9w! 9-S-DM͑+w !9DMʹD-~NE~!9͞ /;,~Ͱ,/w ~̓/Ë 07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3Sx~͋ .ͮ~͋ w .ͫ~Ã~͋ /ͮ~ʹ! DM=/~ Ĵ~î!9DM MPERROR.FIL--, --Y#NORMAL RUN PGMPROGRAMCOMPUTECOMPUTE R/OC/OR/CC/R - - P 2*{"~2͋}/o|/g*~}/o|/g{ozg|;1*~ͦ"~*{"~*~*J{{ozs1* {"~!"{!"{*{"{*~*~*B{{ozŽ1*{#"{*~*~*D{{oz©1*{+"{*~*~*F{{oz1*{+"{*~*~*H{{oz1*{#"{*~*{*{)*~s#r*{{oz2!"{2*{#"{* {|1*~ã2!"~* {"~Z21|?2* {"z*~*{|*{|Z2*~*{*{{oz-2*{"~*{*{)^#V"~*{{oz˜2!"{ß2*{#"{*~Ø3>!~'*~*${"~*~*${"~*{|2*{m*"{s%m*~s%m*~s%m*{+|(3*{m*~x&m* {s%m*~x&m*"{s%m*{++|S3*{m*"{s%m*~s%m*~s%m*{+++|”3!s%m!Hs%m*~s%m!s%m!Vs%m*~s%m*~3>!~'*~{z3*~"~3!"~*~3>!~'*~͛3*{&*~̈́$*~͉%~5%*~94>!~'*~Ϳ%*~}o|g͛3*{&*~*~͉%̈́$~5%*~R4*z{zW_"~*~å4>!~'*~*~ͦ2*({Ϳ%{z4*~m*({má4*~*~P{ozg3m*~4>!~'*2{*~̈́$!!U4*,{m* {"z*~&5>!~'!0!@!!>!*~!~ix!' *~ͨ4*~~5%*~5>!~'*{|d5*z|d5!!~d5*~*{+3m*~*z|5!!~ҁ5*>{m~!{ͱ~!{ͱ?Ү5*{*{+%m5*{"!~̀*z|5!!~5*:{m*~Ê6>!'*Ϳ%|6*~5%**{*!G)"*{zh6!(s%**+͉%̈́$*{̈́$**#*{ &̈́$!)s%̈́$5%Æ6!(s%*̈́$!)s%̈́$5%*7>! '* "z*@{m*z" 7*{ }o|g* *z{ozg###ͦ2* x&*{̈́$*z* )^#V̈́$! 3m* #" *z* {z6*,{m* 7>!'!**{{ozgͦ2*z*)^#V*z^#V!{ozg|u7*{}o|g"{7*{"*z|ʓ7*8{m*+"Ù7*6{m*x&*{̈́$*z*)^#V*z^#V̈́$*3m*,{m*{"z*r8>!'**{{ozg*{ *{!ͦ2*z|8*8{m(8*6{m*{m*{!U +!0&*x&̈́$*{!0&̈́$*{+͉%m*,{m*{"z*9>!'*z*)^#V!{ozg|ʣ8*{"z**z*)^#V"*z*)^#V"**{{z**{}|**{{z**{}| 9*{"z***{{ozg*{ *{**{{ozgͦ2*z|J9*<{mV9*:{m*{m*z*)^#V*)))̀)5*,{m*{"z*6:>!!'*z*#)^#V"z*z*!)^#V"z*{*{̈́$*#x&̈́$*{̈́$*z*z)^#V5̈́$!0̈́$*{̈́$*{̈́$*!x&̈́$*{̈́$*z*z)^#V5̈́$*{̈́$!!U4*n:<4|T:*z*z)^#V7j:*zog*z^#V7*%G;>!)'*){z:*{*{̈́$*z*))^#Vx&̈́$*{̈́$*z*))^#V5̈́$*{̈́$!!U4*)|=;*{*{̈́$*)og*z^#Vx&̈́$*{̈́$*)og*z^#V5̈́$*{̈́$!!U4*)"z*'Ç>>!-'!"+*/|*-|u;*+*{|ʀ;k>*z|ʋ;*=<4|ʖ;f<*/|W_*1{ozg|ʷ;*{"z<*zog*z^#V*-"z*z*z}|;*z"z*z{z;!"z*z*{{z<*z"{* {"z*z*{}|5<*z*{{ozg"{* {"z*z|M<9:* {"z*z7*z*z)^#Vogq:k>*-|W_*1{ozg|ʇ<*{"z;*z*z)^#V*/"z*z*z}|<*z"z*z{z*z*z)^#V*-"3*z*z)^#V*/"5*3*{}|k=*5#"5*{"3*5*z}|=*3#"3*z"5*3*{}|=*{"3*5*z}|=*z"5*5*{{z=*5"{* {"z*5*{}|=*5*{{ozg"{* {"z*3*{{z>*3"{* {"z*3*{}|*>*3*{{ozg"{* {"z*z|`>*z*zu8* {"z*z*5)^#V*z*3)^#Vu8*5*3͂9!"{!"{*z"+* {"7*+å>1*,{m*{*{J;"9*9ÓA*{"z͊>|ʹ>è>*z*{{ozg*{{z>*z*{{ozg"{*z*{{ozg*{{z ?*z*{{ozg"{*{+|?!"{*{+|'?!"{*{*{"{*{*{"{*{*z}|Q?*z"{*{*z}|e?*z"{!!ͦ2*4{m*6{m*~*{3m*{!ͦ2*{" ?KA**{}|?*{"*~*+͉%*{3m* #" *{}|?͊>|?è>!!ͦ2*6{m*{*{3m*{" 5@KA*~*#*{+ &*{3m* #" *{}|@͊>|K@è>!!ͦ2*6{m*{!0&m*{" À@* 7* #" *{}|r@͊>|ʖ@è>*{" A* 7*A}|@ A*:{m*{"@*{m*z* )^#V*z^#V*z*)^#V)))̀)5*#"*{}|@͊>|Aè>* #" *{}|@* {"z*z|DA*z*zu8*;9:*;*z* )^#V*z^#V~5%*~Ϳ%|zA*{~5%*{*~!G)"*;*;fD>!?'!:s%*Ë́$*C*AU4*~G5%*EͿ%*C##"I*{"7*GͿ%*I*Aͦ22"~*~s%K5%*{*{J;|Bͨ>*7|$B*{"7A*z|0B*=*~0}|/W_*1{ozg*~9{z/W_{ozg|gB×C*1|ŸB*~ }|/*~~{z/*~{zҟB×C*~*R{{oz²BC*~*L{{oz*~ {ozB!O'*Ox&Ϳ%"W*S|•D* {"1D!(s%*U!G)|D*U*{̈́$!(s%̈́$*Qx&̈́$!0̈́$*Ox&̈́$!)s%̈́$U5%*U*S!*W͖AG5%*z|E*M*GͿ%|.E*{"M*M*G"I*I*Q{z/*I*O}|/eE*I"M*M!4D*MéE*{!!!͖A͹&G5%*G!0$ʥE* {"z*YF>!]'*]Ϳ%|E!"[*[*]"z*{*]!G)#"_*]*_! &"z*{*]*_G)#"_*{*]*_G)"a*]*_*a*_{ozg &z5%*]*a#! &!z͎*{*]*a#G)#"_*]*_! &!z͎*z!U "z*z!dU *z  {ozg"z*z *z}o|g"[*[GG*z *z"z*zx&*{̈́$*zx&̈́$*{̈́$*z̈́$*{̈́$!z̀x&̈́$*{̈́$!z̀x&̈́$c5%*cEH!!ͦ2*0{m*{!3m*{m*{m!0*z #! &m*{m*{m!0*z ++! &m!0m*{m*{m*zx&m!0m*zx&m!0m*{m*{m*{x&m!0m*{x&m!1m*{|)H!1m/H*{m!1m*,{m*{"z*esH!!z͎!!z͎!"z*~z5%*gùIHH*{"z*{"z*{!!*ziD"_*z|ʩHJGyH*_*{{oz*z+|H!4yH*_*{{ozH!͍6yH*z*_)^#VzI!'4yH*z*_)^#V5w*z*_)^#V!U "z*z*_)^#V!dU *z  {ozg"z*z*_)^#V*z {ozg"i*z {ozµI*z*_)^#V*z {ozg͍6yH*iI*{"z*z*z{zI* {"z*k*z#"z*z*z)^#VͬE"k*kÜJ*z*z{zJ!4* {"m*m*z#"z*z#"z*z"TJ*z*)*+*z^#V5%*+"**z}|1J*z*z)F5%*z|˜J*{*{̈́$*z#x&̈́$ͨ4*mJ<4|ʸJ!!J;"J!!J;"*|Jͨ>*o1K>!s'*s{z K*z*s)^#V*z^#VͬE"q-K*sog*z^#V*z^#VͬE"q*qúK*z{oz*z{oz`K͟J*u*{*z{ozg*z{ozg|ʀK*u<4|ʜK*z*z)F5%óK*zog*zF5%͟J*uÓL*z*z{ozK*w*z{zK7L*zog*z^#V"I*I*{{z L*{"I*I*{}|L*{"I*z*I)^#Vog"zL*z*z)^#V"I*I*{{z[L*{"I*I*{}|oL*{"I*z*I)^#V"z*zq:* {"z9:*wL1*z{ozg|ʾL* {"z!"z!4ͽK*yL*{ͨ4ͽK*{L*}L*0-!~G#~ }q+ph# ORDERMODE ROWCOL= ENTER COMMAND NEXT STEPVERIFY (Y OR N) <--DONE.Purchased from: Copy number: Copyright Version,(C) COPYRIGHT, CHANG LABORATORIES,INC. 1981 . #Hewlett Packard 100 series )12345678901234576789012345678901234567890MPSTATMPFORMMPPRINTMPSHOWMPLOGICMPEXTMPPOSTMPSPECMPDIFMPREG MPSERIAL.NUM MPSETUP.FIL A.01.00 ###.##C# (C), 1981 Chang Laboratories, Inc.E`SehJ&me800R&a79c23R&a0cR&dJh***##############,###.####BB<BB<@PBX MPHELP.FIL UTLDATES.DAT CURRDFLT.FIL MPMENU.FIL PPMENU.FIL PPHELP.FIL::.Error while trying to load file from diskette.You may have a bad diskette.-SERIAL number is missing or has been altered.)MPSETUP.FIL is missing. Check Appendix A.The menu list is missing.Error in MPSETUP.FIL#Contact your dealer for assistance.z!M"}"}!M"}/R{!M5%{!M5%{!M5%{!M5%{!M5%{!M5%{!M5%{!M5%!s%{5%{!M5%{!M5%{!N5%! N5%!N5%!,N5%!7N5%*!AN5%!oN5%!N5%!N5%*5%͘Q!"z!"!"z!"z!"z!"z!"z!" {!"{!"{!d"z*z!!!z(!"z*+|R!"z*z!!!z(*z!!!z(!!!!{(!("{!"{! !!!z(*z!N5%*z!N5%*z!N5%*z!O5%*z!O5%*z!O5%*z! O5%*z!(O5%*z!0O5%*z !7O5%!!!!{(!s%{5%!s%{5%!!aͷ*{zT!>O!!!>!!aͷ*{z?T!!i!i!]x!' !"RTB*#"HT!"!"*Ϳ%"!"âT**! &\% **"*#"*}|wT*Ϳ%"!"T**! &\% ** "*#"*}|T**{ozg"*{z0U**{oz0UaÃU*5%wU!!]x*|cU*5%**s%*̈́$5%* {|?U*!!aͷ!LO!!!>!!aͷ!!zix!!z]!z]x!!{]!{]!{]!{ix!!i!{]!ix*"{*"{!!i!z]!{]!]x!!{]!]!]!]! {]x!!"{]!${]x3U{5%3U{5%*{3U5%*{3U5%*{3U5%*{3U5%3U5%3U.{5%3U,{5%3U5%3U0{5%3U2{5%3U4{5%3U6{5%3U8{5%3U:{5%3U<{5%3U>{5%3U@{5%3U&{5%3U({5%!!F{]!H{]!B{]!D{]!J{]x!!Z{]!N{]!L{]x!!i!]x!s%\{5%!s%^{5%X!!]!]x*s%*\{̈́$\{5%*s%*^{̈́$^{5%*+"*|W!!i!R{]!T{]!]xX!!]!]x*s%*V{̈́$V{5%*s%*X{̈́$X{5%*+"*|;X!' *z}{oz±X*zm*m!YOwX*z*̈́$!cÖ́$"*z!lOͨ?*m!tOw*wBBB*m*w*m*wBBBBB*5%*5%!"N!͎!!XYO!!͎*z*z !!ͱY!" b*z{z/*z{z/*zc{z*z{zY!" b*{++++|*{*{}|Y!" b*{++++|*{*{}|Z!" b*{|*{{z1Z!" b*{P}|GZ!" b* }|*c{zmZ!" b*s%{5%*|ʕZ*s%*{̈́${5%*|ʱZ*s%*{̈́${5%*m*,{m*z}{ozX[L!s%5%*m!Om*m!Om*m!Om*m!Om!"E[*m!Om*x&m!Om*m!Om*#"[*m!Om! "v{*{"r{*{"t{!"p{!*{&!Ö́$*{%{5%!O5%*Ϳ%*{*{{ozg"*{|¾[*+"***{++ &Ö́${5%*{+*{{ozg"*{++*{{ozg"*{{z\*+"*+"*!U *}o|g"*!U *}o|g"*!Oy-*{og!Oy-!ͷ!Oa!{͎*!Py-*{og! Py-!ͷ$!P !{͎*{og!#Py-!PI!{͎*{}o|g*{{ozg*{U +"{*{*z{z]*z+"{*{}o|g*{#*{ {ozg"{!!!!h{(*h{!+P5%*h{*h{^#V5%*h{*h{^#V5%*5%!"z!"z*{"z*{"z!"z*z"z!"{*z"{!"z*z"z!"z*z"z*}o|g"{!"{*{*{"{!"{*{*{"{*{*z}| ^*z"{*{*z}|4^*z"{!"z {!.P5%!!^ͷ!:P!!!>!!i!i!i!i!i!ix!' **̈́$*̈́$*̈́$*̈́$*̈́$n{5%!!5_ͷ!HP!!!>!!i!i!i!ix!' *"z*"z*"z*"z!!_ͷ!VP!!!>!!aͷé_!!]x**{{ozˆ_!' _!*z*)i*z*)]x* {|`_!!bͷ!bP!!!> {!nP5%S_*{Ϳ%{z`*{!͉%͹&!zP̈́${5%ͅ%Ϳ%{z!`ͅ%z5%*`z!}P5%*z!! &!P$K`! "Q`!"*z*͉%z5%*z*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(!"]a*z*)*s#r*z*)*s#r*#"*z}|4a!"Üa*z*)*s#r*z*)*s#r*#"*z}|sa!"z!"z!"z!"z!"zj *z^#V "!' !Pw!Pwb!Pwb!Pwb!*Qwb!EQm*9![Qwj ͝j ͝uu2^>2a>2`2c>2s2t>2r>2v!"@!"D!@"B!"F !F#x:~#!|2i~# :" 2i +}|~#:G:ix."2i+w# +6#!6#@A2n2?*j**|+`!#"0!#"2!>ڌo&͖=}  w~2ʸͼ56!+W ?_!~7z?ͧ:>͞@w#5.ww#w#w#w*>?@͌>w#͌5> w#@ͧ͵g 2q&0OxG͵j/ʆSx\͞.7:77!a{  ʨ ʨ0:?ŷO !y$ 7o&))T])))!y 2p_ :p.'-ʌ&A*Œ&4͐8>2@,~Ė<#^#V#͢&̓6)))Y~0̿7G~`2@2@#~2@~?>&=2@#^#V#^#V#"@^#V"@:@ '*{@!:@@'"@*@#w"@*@~9'D'/Ϳ7͈?+"@*@+"@!6D"@6!^D"@*@~*@*@s#r#*@s#r#*@s#r#*@s#r#*@s#r#:@w#"@'*@*@s#r#*@s#r#*@s#r#*@s#r#*@s#r#:@w#"@'|E'}X27*@+~2@+V+^+"@V+^+"@V+^+"@V+^+"@V+^"@"@*@+~2@+V+^+"@V+^+"@V+^+"@V+^+"@V+^"@"@p';(ͯ''͋(!"@"K@2@<2@2@2@ͥ)( æ)s"&)(,!9DM*(w#wͻ;\ ++++| \ ++|" \|1 4 E h19!h ? ! ? ! ? !B Usage: aliens is the level of difficulty from 0 to 9 level 0 is the easiest and is the default 9Ú11`0/æ! *w#w* w#w*&w#w! ** !a * ! *n ! * !A*; !H*J !R*Y !^*h !e*w !p* !z* !* !* !* !* !* !* !* !* !* ! * w#w\ |š Ë *w#w*6#6*6#60,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0rookieearthlingspace cadetyeomanlieutenantcommandercaptainvice admiraladmiraladmiral OXO XOX \o/ /o\ "M" wMw 7/h1!!!Z!!!!!<!r!!!!'!a!!!Attention: Alien invasion in progress! Type: <,> to move the laser base left as above, for lefties <.> to halt the laser base for lefties to move the laser base right for lefties to fire a laser beam <1> to play "Bloodbath" <2> to play "We come in peace" <3> to play "The Aliens strike back" <4> to play "Invisible Alien Weasels" <5> to play "Klinker" <6> to play "The Black Hole" to quit 37/,2h1.0Jn9!!!\(!m$\!x$\ >p>ʯ>|>ʺ>ˆ>>”>> >>¬>!'!'!'!'!='!k'!*!C*!4*!F!!\ |1\!$*67#6\( *s#r\\q\*s#r\(*"s#r\"|ڞ*"6 #6\(*$s#r*w#w\|ұ!\\)!* w#w\ |Ҡ\ \|g}o\)-!'\ ?\ ))*\\)s#r\ ?\ ))*##\ ?s#r* ^#Vr+s*^#Vr+s*66#6*w#w*w#w*w#w*6#6*6H#60|*6#6*w#w*w#w\ |JMM!!-* w#w\ \"Ҋ\ ))*w#w* ^#Vr+sU*w#w* w#w* w#w\ |^!\ !*w#w\|M\ k*\)\ k**\)~#fos#rz4!-<!'*^#Vr+s* ^#Vr+së* w#wLevel:%2d Score: %-5d B L O O D B A T H W E C O M E I N P E A C E ! T H E A L I E N S S T R I K E B A C K !I N V I S I B L E A L I E N W E A S E L S ! K L I N K E R T H E B L A C K H O L E ! Bases: %d òQ0B0ñ-\ +|M\(H*6#6M|*6#6ͩ|ͬ*:sk:&|g}o>Z.>!>z:>!>,F>!>CR>=>c^>=>/j>=>Xv>Y>x‚>Y>.Ž>Y> š>t>¦>ʍ>²>ʍ>Q¾>ʍ>q>ʍ>>ʍ>1>ʓ>2>ʮ>3>>4>>5>>6>5\ +|.5*6#65\ +|J5*6#65\ +|f5*w#w5M|Š*6#65ͯ5\ |ʟ5* 6#65\ |ʺ5* 6#65\ |5* 6#65\ |5* 6#65\ | 5* 6#65\ |&5* 6#65=h1!H:Sh1.0!9DM\ |ڇ͐|ڇ͐|҇! 6#6͐>—>>£>>¯>>»>>>&>>1>><>>G>>ʲ!M!M! M!M!M!M!#M! P!P!BP!0P!P!P!P!P!P!P!CP!0P! P\ |!P!BP!0P!P!P!CP!0P շ շ н й 2/JM|?*~#foMs#rM|Ҁ*6#6*w#wåM|ڥ*6H#6*w#w\ |MM,!//h1Ö,J!9DMM>>>>> >XÆM!!D"M!!E"M!!F";"M###*s#rM!!G"üMM!I"MM#!K"ü* w#w\ |a\ ))*~#foMP\ ))*##~#fo#MP\ ))*##~#fo###MP\ \(\  ?`is#r\ +|ʉ͐\&`is#r͐|ҝ`i6#6*~#fo͐s#rMM#!M"\ |!O"\ ))*##~#fo\ ))*~#fo!*w#w\ ))*w#w*^#Vr+s;"* ^#Vr+s* w#w\ \"4 M\ ))*~#fo# M\ ))*##~#fo# MM!Q"MM#!S"*w#w* ^#Vr+s\ ))*w#w;"* ^#Vr+slM|!M|!Mk*M)~#fo|!MM\ ++|¢ ! Mk*M)w#w!U"M| MM#!W"*w#w;"M |!M+|!MM M * s#r!M\ !\ !!Y"\ !!d"* w#w*~#foMs#rM!!m"*w#w;"*^#Vr+sz8"M!!o"M!!q"*~#fo\(#s#r;"!9||   Î"/h1J,2Ö,ñ-Ö9n9*w#w\\"ң&\ |µ"\))*~#fo|"Ò&\))*^#Vr+s\))*~#fo|z$\))*##~#fo\))*~#fo+v"!&y"\))*w#w\))*##~#foMw$\))*##~#foMw$\ |#MMv"!|"*^#Vr+s!F!v"\!&"*~#fos#r͂"\|$ͅ"!͈"M!v"!&y"*6H#6͋"8|S$*6#6\ |w$M!v"!|"Ò&\))*~#fo|%\))*~#fo|%\))*~#fok*\))*##~#fo)~#fo|%\))*##~#fo\))*~#fo+v"!&y"\))*##~#fo\))*~#fov"!&y"\))*~#fok*\))*##~#fo)w#w\))*w#w* ^#Vr+sÒ&\))*##~#fo\))*~#fo+v"!&y"\))*~#fo|Y&* ^#Vr+s\))*w#wÊ&\))*##~#fo\))*~#fov"!&y"*^#Vr+sÚ" Bases: %d *&n9/,2h1!9DM`i6P#6M |X'&* s#r!|U'\ |)'* 6#6* 6#6I'* 6#6͐* s#r*6Z#6 (M !&\ |Ҋ'M!(&*^#Vr+s* ~#foM s#rM * s#r͐'\ | (M M !&! (&* w#w!9 <=%d=> 8(Ö,ñ-/J\#*s#r!|ګ(\|^(*w#w\|ʠ(\*s#r*6#6*w#w*w#w\))*~#fo* s#r!|((9(\ |)*~#fos#r,(/(\|')\))*##^#Vr+s@)\))*##^#Vr+s\))*##~#fo*s#rzʕ)\\&K\(?ڡ)*6#6\\ 2(\|)!5(\))*^#Vr+s* s#r\\ 2(\\ |g}o\)5(\))*~#fo|+\))*~#fo|+\))*##~#fo*s#r* 6#6\ |+\\ |+\))*~#fok*\))*##~#fo\ )w#w* ^#Vr+sÊ*\ +|+\ ++|+\* s#r\ |l+\ ))*~#fo|T+* ~#fos#r0+\))*##~#foM\$ڔ,\))*##~#foM###\$Ҕ,\))*~#fo|Ҕ,* w#w\ \"Ҕ,\ ))*~#fo|ƒ,\ ))*\))*~#fo#s#r\ ))*##\))*##~#fo##s#r* ^#Vr+sÔ,* ^#Vr+s+ß,/,2!!͙,\!,͜,%d ,7/,2Ö9,! ! ,\(|,*-\(k*;!W-,*(^#Vr+s!k-,! ! ,\(!-,!2,Congratulations %s - you have won at level %dNow let's see how good you are at level %d-/Jh1Ö9.09!9DM\ |ڞ.\ `is#r* 6#6* w#w\ |Ҏ.!\ ʹ-*w#w\|}.\ k*\)~#fo+|d.!ͷ-l.!/ͺ-*^#Vr+s&.* ^#Vr+s-͐* s#r\ |ڝ/\ `is#r* 6#6* w#w\ |҅/\ ))*~#fo|t/\ ))*##~#fo\ ))*~#foʹ-\ ))*##~#fo\ ))*~#fo|g}o\ )ͷ-* ^#Vr+s.͐* s#r!2ͽ-!!ʹ-!-!B-!4--!9 *6*6=*6/h1!9DM͐ *s͐ *s*/40t0 !10H0t0!E0W0t0!T0f0t0 !c0z097P10O:rGyʑ0Ox ʨ0y  ʨ0  ʨ0Oxʵ0:vw0x0y02s000:t0<2ty2uxY1:P1=1:s~0:ROY1 1:r1 Y1*R=,1:t~02t:uo&=61:t'1=1:ro:R2rL12s&Y n1.0!9DM͐n}ʘ1! ^#Vr+sn&k1v1à1M2!9DM! ͝1`is#r!|1! ^#Vr+s͐s#rè1!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{21͐#2!952.0÷2!9DM*02! 22S2ß6!9DM͐~#fon}o2!î2͐~#foP2`is#r͐~#fon}ʧ2͐^#Vr+sn},ʧ2Â2͐î2!92_7868Ù8!Y9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{ʖ6`in}%g6! ! s#r! 6#6! s! s! s͐n}-V3! ^#Vr+s! 4͐n}0f3! 4͐n&ͽ2}ʃ3! 2Æ3!! s#r! ^#Vr+sn`is{.3! 2! s#r! 4! ^#Vr+sn`is`in&2}D3U64X?4OH4Cʎ4Sʿ486͐~#fo|64! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 N4! 6N4! 6! ~#fo! n&! ^#Vr+s~#fo! ͺ2ѯgs#r75! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s75! n}4! 6#6! ^#Vr+s~#fo! s#r͐n}75͐|75! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s4͐6! ! s#r! n}¥5! ^#Vr+s!|ڥ5͐͐! n}ʂ5!0Å5! !5!9~#fo#|¢5!Ö6S5͐n}5͐͐! ^#Vr+sn&!5!9~#fo#|5!Ö6å5! n}56! ^#Vr+s!|56͐͐! !#6!9~#fo#|26!Ö65d6͐͐`in&!U6!9~#fo#|d6!Ö6Ó6͐͐`in&!6!9~#fo#|“6!Ö62!9å68!9DM`iw#w! 6#6͐ n! s{ 6! n} 6! ^#Vr+sü6! n}-7! 6#6! ^#Vr+s! ^#Vr+sn! s͢6|F7͐ ?! nѯg`is#r7͐͐?V7!9e7_7!9DM͐͐ ҳ7͐^#Vr+s͐ڠ7͐0è7͐7s!&7͐ ͐͐ ͉͐b7`is͐ ͐͐ )͐b7`in&#&7!9!9DM! n&|ͯ28! n&|ͩ<88!9DM`iw#w͐~#fon&98}ʉ8͐ ?͐^#Vr+snѯg`is#rJ8͐Ð8!9ß88!9DM! n&͜8|8! n&8! n&&!9DM! n&|ͯ8! n&|ͩ  |9"H"JJ9 ! ### 9"H"J  Wait a few seconds, and type a CR: $*H>H|9|97*J|g}o"Jzg{o"H|g #+|£9'z¦9 ʛ9 Û9|9!9DM! n&|ͯ28! n&|ͩ<88!9DM`iw#w͐~#fon&98}ʉ8͐ ?͐^#Vr+snѯg`is#rJ8͐Ð8!9ß88!9DM! n&͜8|8! n&8! n&&!9DM! n&|ͯ8! n&|ͩ10 LET R1=(360/33)/57.2958 20 LET R2=(360/28)/57.2958 30 LET R3=(360/23)/57.2958 40 PRINT CHR$(26):PRINT:PRINT:PRINT 50 PRINT "******************** BIO-RHYTHM ********************" 60 PRINT:PRINT 70 PRINT "TO GENERATE A BIO-RHYTHM:" 80 PRINT 90 PRINT " - Type in the subject's birthday, a comma and the " 100 PRINT " current date." 110 PRINT " - Enter the number of days you want to cover." 120 PRINT " - Enter the name of the subject." 130 PRINT:PRINT:PRINT:PRINT 140 DATA 0,31,59,90,120,151,181,212,243,273,304,334 150 DATA 365 160 DIM L$(50) 170 GOTO 240 180 PRINT "Do you want another Bio-rhythm?"; 190 INPUT " (YES or NO)";ANS$ 200 IF LEFT$(ANS$,1)="N" THEN SYSTEM 210 IF LEFT$(ANS$,1)="n" THEN SYSTEM 220 PRINT CHR$(26); 230 PRINT:PRINT:PRINT 240 RESTORE 250 PRINT"Enter birthday - comma - current date (YYMMDD,YYMMDD)" 260 LET P1=0 270 LET J6=1 280 INPUT D1,D2 290 LET D9=D2 300 PRINT"Enter duration " 310 INPUT J5 320 PRINT"Enter name of subject " 330 INPUT A$ 340 GOSUB 1310 350 IF D1>D2 THEN PRINT" INVALID DATES " 360 LET X1=D1 370 GOSUB 430 380 LET Y1=X2:LETM1=X3:LET D1=X4 390 LET X1=D2 400 GOSUB 430 410 LET Y2=X2:LETM2=X3:LETD2=X4 420 GOSUB 470 430 LET X2=INT(X1/10000) 440 LET X3=INT(X1/100)-(X2*100) 450 LET X4=X1-((X3*100)+(X2*10000)) 460 RETURN 470 LET D4=(INT((Y2-1)*365.25)-INT((Y1-1)*365.25)) 480 FOR I=1 TO M1 490 READ J1 500 NEXT I 510 RESTORE 520 FOR I =1 TO M2 530 READ J2 540 NEXT I 550 LET J1=J1+D1 560 LET J2=J2+D2 570 LET L1=(Y1/4)-(INT(Y1/4)) 580 IF L1=0 THEN LET L1=1:GOTO 600 590 LET L1=0 600 LET L2=(Y2/4)-(INT(Y2/4)) 610 IF L2=0 THEN LET L2=1:GOTO 630 620 LET L2=0 630 IF M1>2 THEN LET J1=J1+L1 640 IF M2>2 THEN LET J2=J2+L2 650 LET D4=D4+J2-J1 660 LET D1=(D4-(INT(D4/33)*33)) 670 LET D2=(D4-(INT(D4/28)*28)) 680 LET D3=(D4-(INT(D4/23)*23)) 690 FOR L3=1 TO 50 700 FOR I= 1 TO 50 710 LET L$(I)=" " 720 NEXT I 730 LET X=SIN(R1*D1) 740 LET Y=SIN(R2*D2) 750 LET Z=SIN(R3*D3) 760 LET L$(X*20+25)="M" 770 LET L$(Y*20+25)="E" 780 LET L$(Z*20+25)="P" 790 PRINT": "; 800 FOR I=1 TO 50 810 LET L$(25)="I" 820 PRINT L$(I); 830 NEXT I 840 PRINT": "; 850 GOSUB 1130:PRINT D5;" : "; 860 IF D1=0 THEN LET C=1:PRINT"M "; 870 IF D1=16 THEN LET C=1:PRINT"M "; 880 IF D2=0 THEN LET C=1:PRINT"E "; 890 IF D2=14 THEN LET C=1:PRINT"E "; 900 IF D3=0 THEN LET C=1:PRINT"P "; 910 IF D3=12 THEN LET C=1:PRINT"P "; 920 IF C=1 THEN LET C=0 930 PRINT 940 LET D1=D1+1 950 LET D2=D2+1 960 LET D3=D3+1 970 IF D1=33 THEN LET D1=0 980 IF D2=28 THEN LET D2=0 990 IF D3=23 THEN LET D3=0 1000 LET J2=J2+1 1010 LET J6=J6+1 1020 IF J559 THEN LET J3=J3+L2 1180 IF J2<=J3 GOTO 1260 1190 NEXT I 1200 LET Y2=Y2+1 1210 LET L2=(Y2/4)-(INT(Y2/4)) 1220 IF L2=0 THEN LET L2=1:GOTO 1240 1230 LET L2=0 1240 LET J2=J2-365 1250 GOTO 1130 1260 LET M2=I-1 1270 LET D6=J2-J4 1280 IF J2=60 THEN LET D6=D6+L2 1290 LET D5=Y2*10000+(M2*100)+D6 1300 RETURN 1310 FOR I=1 TO 70 1320 PRINT"-"; 1330 NEXT I 1340 PRINT 1350 PRINT": Computerized study of Biorhythmic curves by Elmer "; 1360 GOSUB 1540 1370 PRINT": Subject, ";A$; 1380 GOSUB 1540 1390 PRINT ": Date of study- ";D9;"- Duration ";J5;"days "; 1400 GOSUB 1540 1410 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1420 PRINT": P=PHYSICAL E=EMOTIONAL M=MENTAL "; 1430 PRINT TAB(69)":" 1440 FOR I=1 TO 70:PRINT"-";:NEXT I 1450 PRINT 1460 PRINT": LOW : HIGH :"; 1470 PRINT" DATE :CRTICL"; 1480 PRINT":" 1490 FOR I=1 TO 70 1500 PRINT"-"; 1510 NEXT I 1520 PRINT 1530 RETURN 1540 LET J=70-POS(X) 1550 FOR I=1 TO J-1 1560 PRINT" "; 1570 NEXT I 1580 PRINT":" 1590 RETURN 1600 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1610 PRINT": HIGH - Days of full vitality, efficiency, "; 1620 PRINT"and high endurance"; 1630 GOSUB 1540 1640 PRINT": LOW - Days of reduced efficiency, recuperation, "; 1650 PRINT"tire easily"; 1660 GOSUB 1540 1670 PRINT": CRITICAL - Days to avoid situations that might "; 1680 PRINT"lead to trouble"; 1690 GOSUB 1540 1700 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1710 PRINT TAB(31);"PAGE ";P1 1720 RETURN T"lead to trouble"; 16URN 1600 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1610 PRINT": HIGH - Days of full vitality, efficiency, "; 1620 PRINT"an10 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 20 DIM C(52),V$(10) 30 INPUT "Do you want instructions (Y or N)";ANS$ 40 IF LEFT$(ANS$,1)="Y" THEN 2310 50 IF LEFT$(ANS$,1)="y" THEN 2310 60 C=0 70 FOR K=0 TO 3 80 FOR J=1 TO 10 90 C(J+10*K)=J 100 NEXT J:NEXT K 110 FOR J=41 TO 52:C(J)=10:NEXT J 120 V$(1)=" A" 130 V$(2)=" 2" 140 V$(3)=" 3" 150 V$(4)=" 4" 160 V$(5)=" 5" 170 V$(6)=" 6" 180 V$(7)=" 7" 190 V$(8)=" 8" 200 V$(9)=" 9" 210 V$(10)="10" 220 L=40 230 IF L<40 THEN 320 240 FOR J=1 TO 52 250 Z=C(J) 260 R=INT(RND(J)*52+1) 270 C(J)=C(R) 280 C(R)=Z 290 NEXT J 300 L=1 310 PRINT " - - NEW DECK - - ":PRINT 320 T=0 330 T1=0 340 S=0 350 S1=0 360 PRINT:PRINT:INPUT"BET = ";B 370 IF B=0 THEN 240 380 IF B=999 THEN SYSTEM 390 IF B>500 THEN 360 400 IF B<1 THEN 360 410 IF B<> INT(B) THEN 360 420 GOSUB 2050 430 GOSUB 2200 440 PRINT " ";V$(C(L-1)) 450 GOSUB 2050 460 GOSUB 2200 470 H=C(L-1) 480 IF C(L-3)=1 THEN 1930 490 IF T=21 THEN 1800 500 IF T1=21 THEN 1880 510 INPUT D$ 520 IF LEFT$(D$,1)="G" THEN 1500 530 IF LEFT$(D$,1)="g" THEN 1500 540 IF LEFT$(D$,1)="D" THEN 1470 550 IF LEFT$(D$,1)="d" THEN 1470 560 IF LEFT$(D$,1)="H" THEN 1360 570 IF LEFT$(D$,1)="h" THEN 1360 580 IF LEFT$(D$,1)="S" THEN 620 590 IF LEFT$(D$,1)="s" THEN 620 600 PRINT" RETYPE: "; 610 GOTO 510 620 IF C(L-2)<>C(L-4) THEN 600 630 PRINT"FIRST HAND" 640 B1=B 650 PRINT V$(C(L-2)) 660 X=C(L-2) 670 T1=X 680 GOSUB 2050 690 IF X<>1 THEN 720 700 T1=T1+10 710 GOTO 960 720 INPUT D1$ 730 IF LEFT$(D1$,1)="G" THEN 960 740 IF LEFT$(D1$,1)="g" THEN 960 750 IF LEFT$(D1$,1)="D" THEN 930 760 IF LEFT$(D1$,1)="d" THEN 930 770 IF LEFT$(D1$,1)="H" THEN 800 780 IF LEFT$(D1$,1)="h" THEN 800 790 PRINT" RETYPE: ";:GOTO 720 800 GOSUB 2050 810 IF T1>0 THEN 870 820 X1=0 830 C=C-B1 840 B1=0 850 PRINT"BUST" 860 GOTO 980 870 INPUT D1$ 880 IF LEFT$(D1$,1)="G" THEN 960 890 IF LEFT$(D1$,1)="g" THEN 960 900 IF LEFT$(D1$,1)="H" THEN 800 910 IF LEFT$(D1$,1)="h" THEN 800 920 PRINT" RETYPE: ";:GOTO 870 930 B1=2*B 940 GOSUB 2050 950 IF T1=0 THEN 820 960 PRINT:PRINT T1 970 X1=T1 980 PRINT"SECOND HAND" 990 B2=B 1000 PRINT V$(X) 1010 T1=X 1020 GOSUB 2050 1030 IF X<>1 THEN 1060 1040 T1=T1+10 1050 GOTO 1320 1060 INPUT D1$ 1070 IF LEFT$(D1$,1)="G"THEN 1320 1080 IF LEFT$(D1$,1)="g"THEN 1320 1090 IF LEFT$(D1$,1)="D" THEN 1300 1100 IF LEFT$(D1$,1)="d" THEN 1300 1110 IF LEFT$(D1$,1)="H" THEN 1140 1120 IF LEFT$(D1$,1)="h" THEN 1140 1130 PRINT " RETYPE: ";:GOTO 1060 1140 GOSUB 2050 1150 IF T1>0 THEN 1230 1160 X2=0 1170 C=C-B2 1180 B2=0 1190 PRINT"BUST"; 1200 IF X1>0 THEN 1510 1210 PRINT " ";V$(H) 1220 GOTO 1610 1230 INPUT D1$ 1240 IF LEFT$(D1$,1)="G" THEN 1320 1250 IF LEFT$(D1$,1)="g" THEN 1320 1260 IF LEFT$(D1$,1)="H"THEN 1140 1270 IF LEFT$(D1$,1)="h"THEN 1140 1280 PRINT " RETYPE: ";:GOTO 1230 1290 B2=2*B 1300 GOSUB 2050 1310 IF T1=0 THEN 1160 1320 PRINT:PRINT T1 1330 B=B1+B2 1340 X2=T1 1350 GOTO 1510 1360 GOSUB 2050 1370 IF T1>0 THEN 1410 1380 PRINT"BUST"; 1390 PRINT" ";V$(H) 1400 GOTO 1670 1410 INPUT D$ 1420 IF LEFT$(D$,1)="G" THEN 1500 1430 IF LEFT$(D$,1)="g" THEN 1500 1440 IF LEFT$(D$,1)="H" THEN 1360 1450 IF LEFT$(D$,1)="h" THEN 1360 1460 PRINT " RETYPE: ";:GOTO 1410 1470 B=2*B 1480 GOSUB 2050 1490 IF T1=0 THEN 1380 1500 PRINT:PRINT T1; 1510 PRINT" ";V$(H); 1520 GOTO 1550 1530 GOSUB 2200 1540 PRINT" ";V$(C(L-1)); 1550 IF T<17 THEN 1530 1560 IF T>21 THEN 1590 1570 PRINT":";T 1580 GOTO 1630 1590 PRINT": BUST" 1600 C=C+B 1610 PRINT"YOU HAVE $";C 1620 GOTO 230 1630 IF LEFT$(D$,1)="S" THEN 1690 1640 IF LEFT$(D$,1)="s" THEN 1690 1650 IF T1>T THEN 1600 1660 IF T1=T THEN 1610 1670 B=-B 1680 GOTO 1600 1690 IF T>X1 THEN 1780 1700 IF T=X1 THEN 1720 1710 C=C+B1 1720 IF T>X2 THEN 1760 1730 IF T=X2 THEN 1610 1740 C=C+B2 1750 GOTO 1610 1760 C=C-B2 1770 GOTO 1610 1780 C=C-B1 1790 GOTO 1720 1800 IF T1=21 THEN 1850 1810 C=C-B 1820 PRINT" ";V$(H); 1830 PRINT" BLACKJACK" 1840 GOTO 1610 1850 PRINT"BLACKJACK" 1860 PRINT " "; 1870 GOTO 1820 1880 PRINT"BLACKJACK" 1890 PRINT" ";V$(H); 1900 PRINT 1910 C=C+1.5*B 1920 GOTO 1610 1930 INPUT" INSURANCE ";I$ 1940 IF LEFT$(I$,1)="Y" THEN 1980 1950 IF LEFT$(I$,1)="y" THEN 1980 1960 PRINT " "; 1970 GOTO 490 1980 IF T=21 THEN 2010 1990 C=C-.5*B 2000 GOTO 1960 2010 PRINT " 10"; 2020 IF T1<>21 THEN 1830 2030 C=C+B 2040 GOTO 1830 2050 IF T1>10 THEN 2090 2060 IF C(L)<>1 THEN 2090 2070 T1=T1+10 2080 S1=1 2090 T1=T1+C(L) 2100 PRINT V$(C(L));" "; 2110 L=L+1 2120 IF T1<=21 THEN 2190 2130 IF S1=0 THEN 2170 2140 T1=T1-10 2150 S1=0 2160 GOTO 2190 2170 T1=0 2180 PRINT 2190 RETURN 2200 IF T>10 THEN 2240 2210 IF C(L)<>1 THEN 2240 2220 T=T+10 2230 S=1 2240 T=T+C(L) 2250 L=L+1 2260 IF T<=21 THEN 2300 2270 IF S=0 THEN 2300 2280 T=T-10 2290 S=0 2300 RETURN 2310 PRINT CHR$(26):PRINT:PRINT 2315 PRINT"This blackjack program enables the operator to play head-" 2320 PRINT"to-head with the computer, simulating the exact rules as those" 2330 PRINT"on the Las Vegas strip. The cards are dealt from one 52-card" 2340 PRINT"deck until a hand starts with less than 12 cards remaining, in" 2350 PRINT"which case it reshuffles. The dealer MUST hit through a total" 2360 PRINT"of 16 and stand on all totals of 17 and above." 2370 PRINT:PRINT:INPUT"TYPE TO GO ON";W9 2380 PRINT CHR$(26); 2385 PRINT"The INSURANCE bet is offered at half the player's bet when" 2390 PRINT"the dealer's up-card is an Ace.":PRINT 2400 PRINT"You may DOUBLE-DOWN on any two cards, and receive one more" 2410 PRINT"card while the original bet is doubled.":PRINT 2420 PRINT"You may split any hand, but resplitting is not allowed." 2430 PRINT"Also, only one card is dealt on each of a pair of aces.":PRINT 2440 PRINT"Your cards appear in the far left column; the dealer's on the" 2450 PRINT"far right. ":PRINT 2460 PRINT" THE COMMANDS ARE AS FOLLOWS:" 2470 PRINT" HIT (draw another card)" 2480 PRINT" GOOD (stand on current total)" 2490 PRINT" DOUBLE (double your bet and draw one card)" 2500 PRINT" SPLIT (form two hands from a pair with the original" 2510 PRINT" bet on each hand)" 2520 PRINT:PRINT"Commands may be typed in as the FIRST LETTER" 2530 PRINT "To exit program enter 999 as a bet":PRINT" - GOOD LUCK! - ":PRINT 2535 INPUT "PRESS TO START GAME";W9:PRINT CHR$(26) 2540 GOTO 60  enter 999 as a bet":PRINT" - GOOD LUCK! - ":PRINT 25P8)CATCHUM x&'#&F'#)!"s͖* d  =""6#}|B=!"s "}00-!~G#~ }q+ph##a"p#w *t"t"t"t*t*t*t}!a6#6#q#p*t"t*t|`i"t* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z }|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W!9BKá DM!9͡ !9! 9N#F#͡ ͱÒBKz !9DMz ͒DMz !9DM! 9DMz !9DM͒ͱͪ!9DMÎ ͪÎ DMz !9DM$ !9DMz !9DMͱͰͰ $Fͱͧdͧ !9DMz ^͆ͧ! 9DMz !9DMͱd å͆DMV!9DMz !9!9!9DM  z ͪ @PP"tz*t!9~w{_!y+##!t2*t  |g"t!H[ >'-fw# G>@2t2t t͎ z %*t£t*t"t>2t:tWz !t:tw t͎ z !tt͡ !t:tw:tW!t.tz r2t.to&G>Ow# q#(:t!tRt I>qtj ^!t? t!tw7>' #e +>'w#>'w #‚:t2t !t~PI:tI6!t~ Q+w# @ y6w{2tt!t~#!t~#!tq#!t"t~#I+Gt*t '#4?IGt*t'w# 6!t5*t# tj !t~ȯw+6+wk:t<2tOF!t 怮w F_#~ȓALw>2t`i"t2tt*t>'#>'#>'#>'#>'#>'#>'>'wڪ*t #~'w!t~w:t=42t!tèt͡ tj ^DZAy2tx2teOG>F2t!tr#pi`)!t~'w# z !t +· #?±! ? !tڽ=>q# pT]w+ ~w!ttG# :tз$ !t!t5q!ttw+, p!t55 pt + + + + + + 'p P'> 'p o g"t`itå *t|˜ ɵ!tå ~#~#~#~#~#~#~#~#!t'w#'w#'w#'w#'w#'w#'w!9~A 6G>Mw|! DM!x, y)2 )8 )> )D )J )P )V )| | ʜ zv x)yOxGyxڎ GyO#=z ogeov v )ڱ #© OÓ [ `i!:tA$Ͳ:tp *Ÿ U* >*Ä .· U#>.„ 2t - U# .>-„ >2t2tO >2t \UIJUp 2t > 2t U# , >2t !tq.0 >2tU#0 $ !tq^C U6 !tq-T >2tU>2tt͎ :tO 2t2t!tr#s :tʁ =2t:t> IJn :tʝ Ͳ:t!t6 y@Gʷ /%Ͳ2t2t2ttz :t2tGy@w:t!t>+ >+ 4!t5<2t:t!tG:tD :tOxGxn tW?< =Q zc zj !t~n ^T :tœ :t!t  :t :t >-Ͳ G:tOW*ʰ $° $ :t!t  O zͲ yͲ:tuc:tc:tuc:t > Ͳ>0ò> 2ttj ^!t~2t6Ͳ:t@2t!t 8<7w>>6!tp2t/O!t #J X y2t=/2t:t>0̲u͊Ͳ:t=!t5o:tͧ2t!t~>.ܲ:t!t/:t¿:tG:tҷGø2txͧ:t!t5͊Ͳÿ:tͧ:t>EͲ!t:t5~ /<-GyͲx/  GyͲx0Ͳ:t*Ͳ2t2t:t:t2t"t|O:tÐ~W#^#:txzn~#^|~:tŒ2tNS"t"t:t/ʴ!&\UIJUÖ͍U/´͍Un͂yͲ 3 :t> !s4O:t*. Y 3 ͘>2s> >  '3 :t:s/> <59 9:t,*s&:s5 >5X,X !t:s= 2t!t~5*t~Ҟ+"tâ0G>0Ͳè0:t:t:t>,*t:t> >-*t|*F>2t~G#N#"t"t`i"t"t!#"&K/I&I!I\K xK2tUN. x"t*t|i*t"t*tr+"t*t~#"t2t*t~#"t*t|+"t͂> yò"t!t454!:t#/!&$U$>$Ͳê*U*>*-U#.>-\UͲUí*t++!"to:00!{~Gwog:00> !> !>*o|qF#N#lNK# xb K " u2u:00ҘS*t#"tҀ s  >2s:u,2 u2tGW2 u^͊~" ͖^^~"2 uͥ~,&^* u:sWo&##a6#sGw#N* us#r:s#hͥ: u+~z":u À!tq~!s w !trimproper input - reenter $|##ap#q#w xs#r/x ! w#wDMâ/âDMÜ/Ü*tDM*t}|GODF#N# "tNgoHOKo&Ho&}2uo&E{2xn&}!9O͢ "u>2uy2uw# ±+2 u2u +->2u0. : uڑ/2 uyN0:u=2uETeT"yÑG@ :u2u<x@: uN:u<2uy TG-_mxpڑGڊOxG{‘G:u@*uwɯ2uy2u+->2u)DM)) O Ҿ:uz/W{/_s#r:u=2u~#0:?^#V* }||~!tN q!t ^!s!t n&*hu"t*hu!4#B0000<CE!0;"0;:00*hu0t:00ڛ| "tWEX:00ڻZ"tWEX:00%"t<EX*hu^w#Vw* }||~!"u>2uzW{_!u5@*u( |g}o"u*u|g}o"u*u*uDM*hu9J"jut*ju"jutBN|>>>)=~9 a"hu9p#z“͵ *hu "ou"qu}2suRlu*hu$ ~#$*hu lu w#͵u~#DF*hur+s"lu:su=|!nu~@w"tu)|'>(>NF|P~P#~#OG*hu:00Ҩ#> 6 #=Uxs:sw#2uʤڌ zʤ.ˆ2uʤ ™"u!u"uxOw#·pu|O*hu!~!86w!DM!0 w#ä:u".# 7*(:|u>*(>2u6?#`4{4_:O*O?Hw#:|uWIF>?C*ju*qu}O|Gr# xm*qu*ou#{z"ou2uj.:00:uҶ*hu!~w:u*hu!~wyH*hu!^w#Vw"}u\>*tu)uw#w>u^#f|OEk2uj.yM:00I*hu!8~I!~wyR\ME>u s#ru ^#VzFU"hu*tu)>u ^#V"vu͵*lu"zu!9"xuRnu ڻ:suRB=!RU!|IR!+DM*lu*ju{o>g+{z_yW͞!*hu s#r!nu~w"ou:0!e͝z*0͝z*0͝z+0:0W!e͝z+0͝z+0*}u*jus#rR*hu!.! ~#~!nu>w:su2udº!u5\è:nu2nu\v͞J"ouͅ:nuԅ*ou~ *lu|RE!ev:nu͞J"ouͅ:nuԅ*oun&!s 6,a WGy24 p#4*lu|s!"u ʌ"ʌ!u6,!u6!s"uï2u!s"u2u:u ¬ »!u *uw#"u!u~ fs#r.Ü.â>"fs#r*lu| “!nu~ЇwWR!R*ou*ju{_zW{zw*xu*vu|DW!G:tx *lu|*zu|ER!+"zuv,͞*ju"ou:nuJͅ*hu! N#F p+q*ouw!nu>we}:tq>"<:t>"Ò6 Ò :t>,:tڪ>"<:t>"6  :tܛ*zu|++> +|> > ͛*hu!.! w#w*ou+"ou!nu~w*xu*vu|EFu ^w#VwzCU!"huR͵͞RW>u w#w!Áu)~#fo3*u#"u{znu ^w#VwzDU!"huRWyM\!9"xu!j.0<FR!*hu"u!j.0< *hu *u~# y0*u"hu!*u"hu!!j>2|u.*hu 6?##6?!"u_*hu~| =_"tWEX:00| ]"tWEX:00ڝ ##FN0 `*juO yŷ ~##  ~#  *u"uë 2|u*u)!*xu!\"hu.!hw#$!!e~ >!6O#6V#6Lj!CW!#~OQ!#~Mj!CTOQ!#~VQ!#~LQ!\:00چ!!b~w<CM*t*"«! !µ!##!N#F#x" g o! =!  GO! _ W!yx !Ù!!* {z "*|!"+~w*"u!"u*u"u͋#Z"*u"u##^#V*u"u*{z0"n"*u^#~WD"#-"!"u*͋#ʈ"#~w+Í""u##^#V*{zw":eO"]!H##°"*{z"\!"͂#*\!*{z"\‚#*#  overlay does not match root$!`#"~#P#!À\ʀ\\*u}ʣ#{Ozر~#foÐ#=&PY& |###a"u)&1&1&&&*u! 9SLz:$|D$&PY&y_xWP$x$$# x$&&4$6$ɯ>&$7$&$7?$z$N#Fyb$x+p&|w$~&~ws#r&ʍ$n&&AC!a)&q++*zSS&yx$PY##a"u)&BK1&&*u|&++&zSS&yOxG$% ##a"u)&BK1&&*u|~&DMx%zʈ%|~#+P%&!&yOxGڎ%yxk%PYa"u)&BK1&&*uSS!"uÀ%!t~2uw2s%6 *s&##axw#q#s1&:u2t !s4^w|~&&%a~%~_w# x%&! a)&BK1&++|DM~G#N#zw#s#xB&@[&7&yT&Ow# K&yOw#w#w#w# [&^#V* }||~!9 ʲ&ʭ&~#foV$##ü&ô&~#´&=Ž&`i"u^#V* }|&*uw#w}&&>&>2u!u"u!9N#F# y2u9'2u+~+ng# *us#r#"uDM:u='+~+ng# :u_ "ua"u*u"u)"u*u+F+N ##6# xw'~#fo#:u_ og"u:u'2u*u+V+^"u'*u*u"u*u+r+s"u*u+"u|°'#~#fo#)og"u:u=Ÿ'*u*us#r:u='"v"u"vů>MP*u))}(`i"u*vyx+"u}(*v))!ʀ(`i"v\Q(+ xI("v*uk(#͏(ڀ(*v*u}|a(!*v )*u )" v2 v!" v* v*u}|?* v*v~\! v(6((* v#" v* v#" v*v#}|Ҝ(* v*vF*u* v#N! v~)x?)# )y0 !)y_A6x7?|~|DM~G#N#=""6#}|B=!"s "}00-!~G#~ }q+ph#1+-------------------+/^/+/^/+-------------------+1|/. . . . . J . . . . J/|/J . . . . J . . . . ./|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/o/|/////|/./|/////|/./|/./|/////|/./|/////|/o/|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/J . . . . J . J . . ./|/. . . J . J . . . . J/|1|/./-------/./|/./------+------/./|/./-------/./|1|/. . . . . J/|/. . . ./|/. . . ./|/J . . . . ./|1+---------+/./+------/ /|/ /------+/./+---------+1//////////|/./|/ j j /|/./|//////////1----------+/./|/ /+-----=-----+/ /|/./+----------1< J j/|///////////|/j J >1----------+/./|/ /+-----=-----+/ /|/./+----------1//////////|/./|/j j/|/./|//////////1+---------+/./|/ /------+------/ /|/./+---------+1|/. . . . . J . J . . ./|/. . . J . J . . . . ./|1|/./------+/./-------/./|/./-------/./+------/./|1|/o . . ./|/J . J . . J J . . J . J/|/. . . o/|1+------/./|/./|/./-------------/./|/./|/./------+1|/. . . J . ./|/. . . J . J . . ./|/. . J . . ./|1|/./----------+------/./|/./------+----------/./|1|/. . . . . . . . . . J/|/J . . . . . . . . . ./|1+-------------------+/v/+/v/+-------------------+ #Linking to configuration program...Unable to link to &CatChum configuration program missing.CatChum not configuredYY0 Bonus! \ .oJj=/<>^v-+|\-+|Hyper'sDifficulty level: NO HYPERSPACE FUEL!!SHECKY, GET THE JET! C C \ Press RETURN to continue -GET SET!@PMA AYou are now in the dimension of computer games ... a dimension of0spaces and escapes; a matrix of BIOS and memory.ATo survive, move the CAT (shown as a 'C') by typing the directionAbuttons (specified in the configuration). Escape the backspacing*CHUMS which will delete you lickety-split.BYou will receive a new CAT for every 10,000 points and on each newlevel.>When times are bad, type ESCape to pause the game. If you areBlucky, hyperspace can be achieved with a SPACE, then YAHOO you aresafe ... or are you?>Just remember, its only a game ... only a game ... only a game$Type RETURN to return to main menu: SORRY SUCKER!NICE TRY, PAL!YOU'RE OUT OF HERE, DADDY!AW, FOR CRIPE'S SAKE RICKY!FORGET IT, PAL!GET THIS GUY OUTTA HERE!WHO IS THIS GUY ANYWAY ???5.13 CATCHUM.DAT CATCONF.COM$ .o. $    AAmMCcG CCCCCC tt CCCCCC hh tm&CC CC tt CC CC hhACC aaaa tttttt CC hhhhhh uu uu mmmmmmmmmmBCC aa aa tt CC hh hh uu uu mm mm mmBCC aa aa tt CC hh hh uu uu mm mm mmBCC CC aa aa tt CC CC hh hh uu uu mm mm mmB CCCCCC aaa aa ttt CCCCCC hh hh uuuuu mm mm mm(c) 1982, 1983 Yahoo Software10970 Ashton Av Suite 312C4Los Angeles, Ca 900241 = 1 player game2 = 2 player gameL = Change level of difficultyI = Instructions E = Exit CatChum Version : Terminal: Up = Down = Left = Right = High Scores) 0 Last Play : 0Enter one of the above: Go for it!What are you waiting for???E ExitingB412CILLEVELMENSCOREHYPERPlayer 1 2Score 0 0Level ###### ######Cats>> HYPERSPACE ACTIVE << Press Any Key to Start Game! vGET SET! I DON'T BELIEVE IT!  POWER THROUGH!!! THANK YOU! Cc^<-_ YOU LOSE! YOU CHEAT!!!9 YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!Player , you belong in history!Enter your name: Updating high scores...*@ HOOKA ! ----'!YOU BROKE THE GAME, DOG BREATH!!!I don't know what to do now. I got it!s!)"t"t!."t!1"dv!"fv!"vv*dv*fv!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&! !!!v&*vv!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!*dv*fv!!!v&!!!!v&!!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&*dv*fv!!!v&z:!"w*wÍ:p:}/o|/g"w*wé:>!w͈&* w*wͱn*w:>!w͈&*wm* w::i"wS|:*w;>!w͈&*w*w{z:*w"w;*w"w*w4;>!w͈&*w*w}|*;*w"w0;*w"w*wÁ;>! w͈&"w!.V$\;*"w*"wͥ#"wV$*"w$* w{zL;*"w* wͪ$wV$*wî;>!&w͈&*&w7;*(wͥ#*&wͪ$$wV$*$w<>!,w͈&*,w![ ".w*,w|;*.w}o|g".w*,w{ozg͔$*.w͔$ͥ#*wV$**w<<>!2w͈&*2w!ͪ$}$*2w!!.%}$ "0w*0wÉ<*v. {zg<  !.Ah*v!Å<  !A.9*vA!U.Ah͝*4wÜ< !}.A?<*6w=!!!@w͈&!e*Bw͝!"DwA=!*@w*Dw!.%}$T*Dw#"Dw**v}|"=*>wy=>!Hw͈&*Hw!*Hw}$.%FwV$*Fw'?*v. |Š=͌<*v**v!!>͇͟!͔$vV$>v!.V$*Pw!!.%!.#6>! ":v<>!":v*Pw!!.%}$*Pw!!.%<*Pw!!.%<͟n͟*v*Nw)6#6*v*Nw)!.V$?*v*Nw)*Pw!!.%!3*JwÍ?>!Tw͈&*v*v)^#V*nv+*.v[ "Zw!"Vw|?!"Xwh?*Xw#"Xw*Zw}|a?*Vw#"Vw*Tw}|X?*Rwñ?>!^w͈&*jv*lv͐:9*^w9*\w?>!bw͈&*bw$7;͐?*`w?>!fw͈&*fw͐?!*?*fwʹ?*dwJ@>!jw͈&*:v{zF@!"lw9@*jw͐?!*?*jwʹ?!*?*lw#"lw*:v}|@*hwç@*v*v)*v*v)^#V#s#r*v*v)^#V!{ozg!͐:9*v9*v*v)^#Vͬ:9*nw@>!rw͈&!5!͐:9*rwͬ:9!.9*v9! *?!5!͐:9!.9*pwA>!vw͈&*vw{ozg"tw*twËB*v"|v*v"~vp:"v*4v#+)9A~#foABRBAA*v*v)^#V*v)^#V++++++|lA*v+"~v*xw*v*v)^#V"v*v|ʥA*|v{ozœA!"|vâA!"|vëA!"~v*xw*v*v)^#V*v)^#V+++++++|A*v#"~v*xw*v*v)^#V"v*v|B*|v{oz B!"|vB!"|vB!"~v*xw*v*v)^#V*v)^#V++++++|GB!1"|vNB*v+"|v*xw*v*v)^#V*v)^#V+++++++||B!"|vÃB*v#"|v*xw*xwèD>!|w͈&*w"v*w"vp:"v*@v|W_*&v{ozg*|w{ozg"|w*v|Br{zBHDC*w*w{ozg"w*wͺ)"w*w|C*~w"w.C*w|(C!"w.C!"w*w*w{ozg"w*wͺ)"w*w|^C*~w"wuC*w|oC!"wuC!"w*w"4v*w"w*w*w}|Cr{zC*4v"w*w"4v*w"w*|w|C*4v@"4v*v|C*|w|C*~w@*4v{ozCHDA*v*|v)^#V*~v)^#V! {oz,D*4v*w{oz#DHDuC,D*w"4vC*v|>D*4v@"4v*4v"rv*zwr!͹ "4v*4v"w*4v"w*~w@*4v{oz”Dr{zW_*v{ozg|ʔDHD!"w!"w*zw*zwE*v {ozD*v{oz*v{oz*v{ozDûE*v{oz2E*v{oz2E*v{z*v}|2EûE*v{ozpE*v{ozpE*v}|*v{zpEûE*v*v*v*v*v* v)^#V*v* v)^#V+++|W_͎B*v* v)*rvs#r*w*v* v)^#V"4vA*v*|v)^#V*~v)^#V! {ozEpE*wF>!w͈&*w.ͥ#!.!(#EF+)'F~#foFbFlF}FFFFFFFFFFFF*v*w)^#V*w)*ws#r*w!"w*w!"w*v#"v*w!"w*v#"v*w!"w*v#"v*w!"w*w!"w*w!"w*w! "w*w*w5G!"v͖!"w$G!w!"wG*w*w!.%*w*wE*w#"w*dv}|F*w#"w*fv}|F*wG>!w͈&*v*w)*vs#r!"wñG!"wÝG*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|dG*w#"w*fv}|[G*w>H>!w͈&!"w-H!"wH*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|G*w#"w*fv}|G*w(I*v*v)^#V! "v*v*v)^#V"w*w++++++|}H!"xvÃH!"xv*v*v)*w+++|*w{z*w!͹ |gos#r*v*v)*w{zW_s#rp:"Pv*w{zW_"v*Xv"^v*w+++++|/W_"Xv*w++++++|/W_"&v*wI*v|!w͈&*wc/ͥ#ͦ$!("w*w{zW_*v{ozg"v*w|R*w"w Sͦ$*w###*w$ͦ$$.%͎"w*wÓS*vA   !h/A!/A !/A! 0A!c0A !0A!0A !0A!1A!_1A !u1A   !19ÀSi {oz€S*x*v!1V$*v!1V$*v!1V$*v!2V$*v!32V$*v!D2V$*v!^2V$v!z2V$v!2V$! "*vv!2V$!"Fv!"Hvv!2V$!5"jv!"lv!d"Nv!"3A*v9!3A*v9!3A*v9! 4A*v9!M4A !4A!4A!4A  !4A!4A! 5A!,5A!C5A!U5A!(! ͐:9!g59*v9!(! ͐:9!s59*v9ͬL!(! ͐:9!59*v!!.%9!59*v!ͪ$9!59*v!!.%9!59*v!!.%9!(!͐:9!59!"RvÚX!(*Rv͐:9*Rv0͔$9!59*v*Rv)^#VzړX*v*Rv)^#Vͬ:9!59*v*Rv)^#V9*Rv#"Rv4X*`v{zX!(!͐:9!59*`vͬ:9!59r  N",v*,v"v!"$vp:"v!"v*v6#6v!5V$!!͐:9*v9:îY*,v+",v*vog*,v{ozJYîY*$v|aY}:"v!"zvfZr{zxY!5?Y!5?r  N",v*,v"v*v$#!͐:9*$v+"$vS|*Yi͔$%vV$*v!6#Y!6Ah͝*v!!6#Y!"zvfZ*v!$6# Z!"zvfZ*v!'6#Z?<*v!*6#-ZSV*v!-6#cZ*nv! ͹ #"nvͬL*v$#!͐:9!"$v$Y*zvͺ͙%9p:"v!"v[*v*v)!06!͘Rs#r*v*v)!76!͘Rs#r*v*v)!<6!͘R! [ s#r*v*v)!C6!͘Rs#r*v*v)6#6*v8G+I*v#"vҁZ!"v*v9!!͐:9}:">vp:"^vp:"Xv*v8G+I!5! ͐:9!J69!5! ͐:9!`69*v^#Vͬ:9!h69*v^#Vͬ:9!m69!5! ͐:9!p69!x6*v^#V*v^#V͘AH*v*v)^#V"bv*bv*nv+"v!5!͐:9!69!"RvU\*v*Rv)^#V!{ozg!͐:9*v*Rv)^#Vͬ:9*Rv#"Rv\GLp:"Pv*v*v)^#Vzʍ\!5!͐:9!69á\!5!͐:9!69*v|ʽ\!5!͐:9!69!@! ͐:9!69*v*v)^#V!{ozg! ͐:9!69!"Rvh]*v*Rv)*Rv s#r*v*Rv)6 #6*v*Rv)6#6*v*Rv)6#6*v*Rv)*Rv+LR s#r*Rv#"Rv*xv}|]*Dv"@v!"Lv*Xv*^v{oz/W_*>v}/o|/g{ozg|ʰ]Ió]Kp:">v!!͐:9!69*v9:! *?!!͐:9!69!"v!"v!"v!"v!"Vv*dv*fv ;"2v!" v cS|ʻ^i"\v*v|B^Vû^*\v͔$%*v!(+ͺ)"Vv*\v+++|t^Vû^*\v {ozž^*v*v)^#V*Pv{ozg"Pvû^*\v{oz»^Q*v|ʻ^V*v }|^!"(v^*(v#"(v*v*v)^#V*(v{z^*v* v)^#V"v*v* v)^#V"v*v*v{oz*v*v{oz:_+b*v*v͐:9*v*v)^#V*v)^#V*v^#V9*v* v)^#V#|_*v* v)*v* v)^#V+s#r*v* v)^#Vzʻ_*v"|v*v"~va_*v* v)uRs#r*v* v)^#Vzҙ`*v* v)*v* v)^#V+s#r*v* v)^#V!}|#`*v"|v*v"~vaÙ`*v* v)r!͹ #s#r*v* v)*v* v)^#Vͺ)s#r!"|vr{zW_*v{ozg|ʐ`!"~vaÙ`! "~va*v*v)^#V*v)^#V+++|*v*v)^#V*v)^#V++++|`ͫDa*v* v)^#V"4vA*v*|v)^#V*~v)^#V! {ozaͫD*v|>a*v* v)*v* v)^#V@s#r*v* v)*|vs#r*v* v)*~vs#r*|v*~v͐:9*v* v)^#Vͺ)*v^#V9*v|b*v* v)^#V!}|b*v*|v{ozgͺ)*v*~v{ozgͺ)!ͺͱ"0v*0v*2v{zb*0v"2v* v""v*|v*v{oz*~v*v{oz+bc*v* v)^#V+++|Cb3g*v* v)6#6*v* v)6#6*v* v)LRs#r*v* v)* v)s#r*v* v)6 #6*v* v)^#V*v* v)^#V͐:9*v^#V9*8v"Tv*8v "8v*Tvͪ@ͣl*xv *6v *8v{ozc!7?* v#" v*xv}|&^OP*v|*cõc*v*v)^#V*v)^#V+++|*v*v)^#V*v)^#V++++|ocõc*v*v*v*"v)^#V*v*"v)^#V*v*v*"v)^#V+++|/W_͎B*rv"Vv*Pv|cL*Vv"4v*v"v*v"v!"TvA*v*|v)^#V*~v)^#V! {ozd*Vv"vd*v|ʒd*v@"4vp:"hvVd*4v#!͹ "4vA*v*|v)^#V*~v)^#V! {ozW_"hv*v@*4v{oz/W_*hv}/o|/g{ozg|d*4v"Vv*4v"vd*v"4vA*v*|v)^#V*~v)^#V! {ozd*v"|v*v"~v*v*v͐:9!79if*v*v͐:9!79*v|e*v@"v*Vv@"Vv*|v"v*~v"v*v#{ozg"v*v*|v)^#V*~v)^#V*v^#V"Tv*Tv#|›e*bv! :*v^#V"Tv*v*|v)^#V*~v)6#6*Dv"@v*Tvͪ@!7?ͣlg*Tv+++++|if!-7?!" ve*v* v)*v* v)^#Vͺ1 s#r*v* v)uRs#r* v#" v*xv}|e*bv "8v*8v"6v*Nv*bv[ "Lv*Lv*xv[ "Jv!"Tv*v*v)^#Vzif*v*v)*v*v)^#V#s#rGLͣl*Tv|wfg*v*v)*v*v)^#V+s#r*v*v)^#Vz¨fRk*v*|v)^#V*~v)^#V+++|f*v*|v)^#V*~v)6#6g*v*|v)^#V*~v)^#V++++|g*v*|v)^#V*~v)6#6*|v*~v͐:9*v*v)^#V9^*v*v)*v*v)^#V+s#r*v9*v*Fv)^#V*Hv)6#6v!97V$!"Rvëg*v*v͐:9*v*Rv!.%9!*?*Rv#"Rv*v$*Rv{z~g*vG*v*v)^#V!}|gr*vv͹ #*v^#V?!"RvVh*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|g:*v#*zv͹ "tv*v*v)^#Vz´h!E7?*v|´h*v*v)^#V*v*tv)^#V ;"`v*v*tv)^#V!}|h*tv"v*v*v)^#Vz*v*tv)^#Vzh[*v|iVp:"v!"Rvj!"Zvqj*v*Rv)^#V*v*Zv)^#V}|Cijj*v|Ui!P7?Ðj}:"v*v9     !^7A !79*Rv1͔$9!7A !79:!7U!v>z*v!ͪ$vV$*v$|ip:"vÐj*Zv+++++|=j!"pv,j*pv#*v*v*pv)^#Vs#r*pv#*v*v*pv)^#VV$*pv"pv*Zv6j}|i*v*Zv)*v*Rv)^#Vs#r*v*Zv)*vV$xj*Zv#"Zvi*Rv#"Rv*zv+*Rv{zi*v|Ok     !7A*v**v!!>͇!"Rv(k*v*Rv)^#V$͔$*v*Rv)^#Vͱ;ͥ#*v*Rv)^#Vͥ#vV$*Rv*v**v̈́;=*Rv#"Rvj!3*v**v!!>͇!3V!"RvØk*v*v͐:9!79!*?*v*v͐:9!79!*?*Rv#"Rv[k*:v{zlv!7V$*v͐?!"Rvl!@!͐:9!79!*?!@!͐:9!89!*?*Rv#"Rvk*vʹ?*v*v)*v*v)^#V#s#r!"RvÐl*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|6lM@B[*v*v)*v*v)^#V*Tvs#r*v*v)^#V"v*v*v)^#V!{ozg! ͐:9*vͬ:9*v0u}|vm!*?!"Rv@mr  r!]͹ !͔$9*Rv#"Rv;m  !89*vA!'8A!*?!E8A!*?h*v*v{zm*v*v)*v*v)^#V#s#r*v*v)^#V! "vM@h͝(c)1982 Yahoo Software"@n7n2?nog*@n|n "@nm>0_:?nn{0n n>2?nm*@n]>0_vaVn{Vn w#wotnptnq{ʑnwʑn#Ow# †nÕnw}~}2r}2r}2r}G:r2r}G:r2r:on!oGUo:ronn:r_oo:r_oo:rͰoo:rͰo:poG!pUo:rCo:o1o:r_oIo:r_oIo:rͰoIo:rͰo:qG!qUo~Ͱo#Uo_!|uo fo>0Ox„oy0ʉoͰo!|šo Ëox¤oyʪo>0Ͱo>0ðo_@116wL@117wL@118xL@119xTL@120!xL@1210x]L@122?xL@123NxL@124]xL@125lxk L@126{xL@127xL@128x` L@129x L@130xO L@131x$ L@132x!L@133xy!L@134xw L@135ye!L@136y L@137 y L@138/yN!L@139>y L@140MyG!L@141\y"L@142ky"L@143zy!L@144y"L@145y!L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7C5Iqh$(9Z)!'6ZFCE(WJQ#!hs4K{%L@175Z{I&L@176i{&L@177x{I&L@178{X'L@179{&L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7C Kaypro =  YY 2468 0 REM C H A S E V 1.0 1/16/77 GCC III 1 REM BY HERMAN DEMONSTOY FEB 77 ISSUE KILOBAUD MAG 5 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 20 Z2=0 50 PRINT"This is the game of CHASE" 100 PRINT"You are in a high voltage maze with five" 110 PRINT"security machines (+) trying to destroy you (X)." 120 PRINT"You must maneuver the security machines into" 130 PRINT"the high voltage fence posts (O), or into each other" 140 PRINT"in order to survive. GOOD LUCK. 145 PRINT 160 PRINT"MOVES ARE: 1 2 3" 165 PRINT" 8 * 4 0 IS NO MOVE" 170 PRINT" 7 6 5 9 GIVE UP" 175 PRINT 199 REM ----------------------------------------------> SET UP THE GAME 200 DIM A(10,20),E(21),F(21) 210 G=5:M=0 220 FOR B=1 TO 10 230 FOR C=1 TO 20 240 LET A(B,C)=0 250 IF B=1 THEN A(B,C)=1 260 IF B=10 THEN A(B,C)=1 270 IF C=1 THEN A(B,C)=1 280 IF C=20 THEN A(B,C)=1 290 NEXT C 295 PRINT" . ";:REM -------------> KEEPS SCREEN GOING WHILE TABLE SET UP 300 NEXT B 310 FOR D=1 TO 21 320 B=INT(RND(1)*8)+2 330 C=INT(RND(1)*18)+2:REM --------------------> ....................... 340 IF A(B,C)<>0 GOTO 320 350 A(B,C)=1 360 IF D<6 THEN A(B,C)=2 370 IF D=6 THEN A(B,C)=3 380 E(D)=B 390 F(D)=C 400 NEXT D 410 PRINT:PRINT 499 REM ------------------------------------------------> PRINT PATTERN 500 FOR B=1 TO 10 510 FOR C=1 TO 20 520 IF A(B,C)=0 THEN PRINT" "; 530 IF A(B,C)=1 THEN PRINT"O"; 540 IF A(B,C)=2 THEN PRINT"+"; 550 IF A(B,C)=3 THEN PRINT"X"; 560 NEXT C 565 IF B=3 THEN PRINT" ";G;"Security machine";:IF G>1 THEN PRINT"s"; 566 IF B=3 THEN PRINT" left"; 567 IF B=7 THEN PRINT" 1 2 3"; 569 IF B=8 THEN PRINT" 8 * 4 0 IS NO MOVE"; 571 IF B=9 THEN PRINT" 7 6 5 9 GIVE UP"; 573 PRINT 580 NEXT B 599 REM -------------------------------------------------> MAKE MOVE 600 B=E(6) 610 C=F(6) 620 A(B,C)=0 630 INPUT"MOVE";Y 635 M=M+1 640 IF Y=0 GOTO 800 650 ON Y GOTO 660,660,660,690,680,680,680,690,1400 660 B=B-1 670 GOTO 690 680 B=B+1 690 ON Y GOTO 700,800,720,720,720,800,700,700 700 C=C-1 710 GOTO 800 720 C=C+1 799 REM ----------------------------------------> CALCULATE THE RESULTS 800 IF A(B,C)=1 GOTO 1500 810 IF A(B,C)=2 GOTO 1600 820 A(B,C)=3 830 E(6)=B 840 F(6)=C 850 FOR D=1 TO 5 860 IF A(E(D),F(D))<>2 GOTO 960 870 A(E(D),F(D))=0 880 IF E(D)B THEN E(D)=E(D)-1 900 IF F(D)C THEN F(D)=F(D)-1 920 IF A(E(D),F(D))=3 GOTO 1600 930 IF A(E(D),F(D))<>0 THEN G=G-1 940 IF A(E(D),F(D))=0 THEN A(E(D),F(D))=2 950 IF G=0 GOTO 1700 960 NEXT D 970 GOTO 500 1000 PRINT"Type Y or N please...":GOTO 980 1400 PRINT:PRINT"Sorry to see you quit" 1405 PRINT"after only";M;"move";:IF M>1 THEN PRINT"s";:PRINT"." 1410 PRINT:GOTO 1710 1500 PRINT:PRINT"You touched the fence !!!!" 1505 PRINT" After only";M;"moves." 1510 GOTO 1710 1600 PRINT:PRINT"** You have been destroyed by a lucky computer **" 1605 PRINT"after only";M;"moves. Too bad." 1610 GOTO 1710 1700 PRINT:PRINT"You are lucky * * You destroyed all the enemy * *" 1705 PRINT"in only";M;"moves." 1707 Z2=Z2+1 1710 PRINT"So far you have won";Z2;"game(s)!!!" 1715 PRINT:PRINT:PRINT"Do you want to play again (Y OR N)" 1720 INPUT Y$ 1725 PRINT:PRINT 1730 IF LEFT$(Y$,1)="Y" GOTO 210 1735 IF LEFT$(Y$,1)="y" GOTO 210 1740 PRINT:PRINT"Hope you don't feel fenced in." 1750 PRINT"Try again sometime." 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you may win";Z2;", or more!!!!!" 2000 SYSTEM 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you may+1 1710 PRINT"So far you have won";Z2;"game(s)!!!" 1715 PRINT:PRINT:PRINT"Do you want to play again (Y OR N)" 1720 INPUT Y$ 1725 PRINT:PRINT 1730 IF LEFT$(Y$,1)="Y" GOTO 210 1735 IF LEFT$(Y$,1)="y" GOTO 210 1740 PRINT:PRINT"Hope you don't feel fenced in." 1750 PRINT"Try again sometime." 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you mayQZZZX^VcVhVmVrVwV|VVVV%U%U%UUUUUUUUU<2f6f,+:,= *F=+qN1,4O=2,=*F=~#"F=!5, () 'U ') )@ :<:=x,>=!]?G~µw#„,p, /U ,/@ #~µ~$w2'+"=>2=!"=ñ&>2=:=U - -~w#~d -~w,,͝-w͵,~Bدw#w#w#wU ~#~>-,"C=m->21=Ux¯x 20=*C="?= x4:>"C=~w|21=m-x¯*C=-#~µ~@ w#s#r#*=s#r4͸K:?w/:<Ĩ/!<4~=Z.!]?~-!1>~-!@#]?~# . .. . -!V?p#"?=ͩ2'!5O"@ A."?=~w#~@k/~.#^#Vͩ.*= ͩ *={ĩn*F=ԃ +!"4="6=}2/=p!/!3=44!r?>͗;Z:3=8p!3=44!/!?>͗;Zʹ/*<|.:@<2[?2[?.!L//!O//*<|/>,vL:@<>,J:@<2[?2[?!_//ʹ//̓ͩ*>|,/F/ͩ+:@C/>vLKLNo GLWa * B0C0B0C0B0C0B0C0B0C0 B0C0B0C0B0C0  0U 0"F=B0πC0B0 C0B0C0 a*! ! #@":*:|W! p,!T!Vf̓f*:͊A!9!DMÀ`i#DM+`i*`iX+! *:,`i))2! *:,`i))2Vf1ͯf]fogpfz!Vf̓f*:͊A!9!DM `i#DM+`i*%*:!ͨD!ͭ)'ͬ!DMA`i#DM+`i|G*P;']!!(! p,!!(!ͧ'!"!"**ʫ((q"(ô(q"(***M********|ʏ!"!"*+"#*+"#**Œ0!!(!ͭ)! p,!"!!-Q!9s!nͯ*ʛ !9^!Nͯ*ʛ !9^!yͯ*ʛ !9^!Yͯ*ʛ L !ͭ)!9^!y͠*†!9^!Y͠*†!ͭ)( clone.datr+No file CLONE.DAT%20s%ldhit a key when readydo you wish to play again? a*!Vf̓f*:͊A!9!DMV `i#DM+`i*5 `iX+d!Ç #+*ʹ `iX+^!X *:͓, # #+* ! ![ *:͓, `i))2Vf1ͯf]fogpf!`i))2]f̓f!^ *:͓,! 9P ! !d *:͓,*:G!T%c%c%ld%c%ca**| *ͯ* *"**"**ʪ *+" ** *###" *"*͠* *+" *| *###" *#" a**|! #+***(!!-Q*+"#**c *+"#x **x *#"+*͠*ʏ *+"#ß *|Ÿ *#"+** ** *Ϳ* *O* **(!!-Q !"!!DM `i#DM+`i***`i)D^#V*Ϳ*`i)D^#V##**`i)b^#V*Ϳ*`i)b^#V###****(!!-Q!x'* *'!"!*ʹ+"`i)b^#V`i)D^#V(ͷ&!`)`i)b^#V`i)D^#V(ͩ&!`)!"!*"`i)b^#V`i)D^#V(ͷ&*+"#*)D^#V`i)Ds#r*)b^#V`i)bs#r!"!*iͯf]fgpf!!(!]f̓f!p,!]f!OfͪiA  score: %lda*'**&!Vfpf!"!Vfpf!"!"! "!("!"!"!"!"!"!!\!!'!9!!\!!\'!9!!!!\'!9!!!!'!9**(ͩ&*,X+X"*#"+*2X+!Xʹ+"**! "ͬ!DM*+**#"!.#+**!*X+"!]fi*"!*P*"**"**###)Ds#r**"!PYX+DM**X+()bs#r)b^#V)D^#V(ͩ&&*͠*!"* ͠* !"* ͠*!"*͠*/! "*"~!!(*!p,!!(!]f̓f!p,!]f!OfͪiʄA)!-!(*+!p,level: %dscore: %ldmen: %da****ʫ**"!*P*"*@P***ʫ**"*P*DMx!]fi*"P*DM`i)^#V*)Ds#r*?P**)bs#r*)D^#V*ʹ+X+*)b^#V*ʹ+X+R*`i6,)^#V*)Ds#rÃ**"P*DM`i)^#V*)bs#r*P*##*)Ds#r*)D^#V*ʹ+X+*)b^#V*ʹ+X+R*ʃ`i6,)^#V*)bs#r*)b^#V*)D^#V(ͩ&*#"+a***"**"*P*DM`i)^#V"**"!*P*"*P*)^#V"*͠*B**͠*B6,)^#V"**(!!-Qa*!!(!5&D!I!(!@&D!G&D!&D!&D!!&D!k&D!&D! &D!>&D!&D!&D! &D!j&D!&D!p,!!-Q!p,ͩ&!-!(!p,ͩ&!&DCLONE WARSv 1.0 You (the good guy) are a human trapped inside the maze of the evil (boo)CLONE MASTER. Your mission is to escape from his nasty bad clutches.Unfortunately (for you) there is one slight problem. The clone master'sminions (clones) are trying to kill you. They have a slight advantage - being incredibly strong they will kill you if they catch you. You, never beingone for a fair fight, have brought along a gun. Luckily, the bullets seem tocause an allergic reaction in the clones - they die. The CLONE MASTER's maze is a tough one to get out of - to leave a room youmust gather all the keys that are in the room. When you have gotten onekey another will appear until you have gotten all the ones from that level. Beware, clones are not as dumb as they look (nothing personal, but theywere cloned from you) and given the chance they will combine to formsuper-clones which take more than one shot to kill. Key: You: Clone: Use the 10 key pad to move and the space bar to shoot. GOOD LUCK!a**#"+!Vfͯf]fgpf!!!!p,!9!-!(*+!p,%c%c%cmen: %da*'!!(!&D!!(!&D!DM`i#DM+`i*\*+"#*#"+**(ͩ&*###*(!**(!N**(ͩ&!*"!DMu`i#DM+`i*ʺ*#"+**(&!*ʹ+"**(ͩ&o!DM`i#DM+`i*C*#"+**(&!*ʹ+"**(ͩ&*#"+**(&!*ʹ+"**(ͩ&!DMQ`i#DM+`i***()'*#"+**(ͩ&**(!*"**()'!*ʹ+"**(ͩ&KKAYPRO Proudly Presents:by Rick A. Smitha*! 9~#fo##s#r++~#/! 9^#V^#V!-Qa*!"!!DMO`i+DM#`iͿ*`i))2]f̓f!]f͛fͪiʿ*|'!!(!*!e!i&D!"û*#"+* *!!-Qó!p,!ͭ)!!,!ͭ)!"`iͯ*h`i#))2`i))2]fpf!*`i#X+e!`iX+`i#X+e`i))2!]fpf!*`iX+e!!`iX+ex¼!`i#!DMI'!!(!&D!&D!&D!DM`i#DM+`i*h`i͠*"!)`i#!p,`iX+!p,`i))2]f̓f! p,!)Congratulations, human, you have achieved a high score. Please enter your name: %sClone Masters to Date: rank: name: score:---- -------------------- ----- %d %20s %ld a***a**a**a*L*bc')*͠*ʂ'!ͭ)( *.͠*ʦ!!-Q"|¦Î*0*ʿ* ͯ**9**"* ͠**|g *" *|e"* * !0*ʹ+" *"*"**"**g *#"+**(&!*ʹ+"Ì **ʌ **(&*#"+*͠* !*"**()'!*ʹ+" *| **()'*#"+**!**!**!*L*!**(ͩ&!DM7!`i#DM+`i**ʡ!`i)^#V*Ϳ*ʞ!*##`i)^#V*ʞ!`i)^#V*Ϳ*ʞ!*###`i)^#V*ʞ!!"1!**Ϳ*e"*#**e"**Ϳ*e"*##**e"*#"+!Vfͯf]fgpf!!(!]f̓f!f"p,!]f!Ofͪi3"A**͠*b"!*iͯf]fgpf'e"ͬscore: %lda***P*"*X+**"*Ϳ*"*F*#")s#r*d*)s#r!*|6,"|!DM"`i#DM+`i**K#`i)^#V`i)^#V(*||+#!!-QH#!)!!-Q!)"!"*+"#*l#!"!DMz#`i#DM+`i**ʨ&`i)D^#V"@`i)b^#V"B!""""x#*|#!""""!`)!"#*#"+***$*)^#V*)^#V*@+͠*C$*BͿ*C$*B###*C$!"*@##͠*x$*BͿ*x$*B###*x$!"*B###͠*ʭ$*@Ϳ*ʭ$*@##*ʭ$!"*B++͠*$*@Ϳ*$*@##*$!"#**@*%*|%*B*@(&*@#"@+O%**@*O%*|O%*@#"@+*B*@(&!*@ʹ+"@**B*%*|%*B*@()'*B#"B+ý%**B*ʽ%*|ʽ%!*B"B*B*@()'!*Bʹ+"B*B*@(ͩ&*@`i)Ds#r*B`i)bs#r!`)*|¥&*##"*###"*@##"*B###"*B**7&*B*Ϳ*W&***Q&**Ϳ*W&!Z&!"*|ʥ&*@**&*@*Ϳ*Ÿ&***ʙ&**Ϳ*Ÿ&!â&!"t#a*!&a*! &a*! 9^#V^z&! 9~#fo#s#r+^!-Q&a*!!-Q!!-Q!!-Qa*!!-Q!!-Q! !-Q!!-Qa*!!9s#r!!-Q"|¦'!9~#fo#s#r+**ʦ's'a*!"!!-Q'*#"+ò'a*!!-Qa*!!-Q!L!-Q! 9^#V! !-Q!9^#V! !-Q!9^#V! !-Q!9^#V! !-Qa*!!-Q!D!-Q! 9^#V! !-Q!9^#V! !-Q!9^#V! !-Q!9^#V! !-Qa*!!-Q!=!-Q! 9^#V! !-Q!9^#V! !-Qa*!!-Q! 9^!͠*E)!C!-QR)!B!-Q!0!-Qa*!!-Q! 9^!͠*ʒ)!C!-Qß)!B!-Q!1!-Qa*!!-Q! 9^!͠*)!C!-Q)!B!-Q!4!-Qa**+"#**~*<*!!(*~!=*p,!d*~ʹ+"~bonus: %4d"S|g}o|/g}/o^#V#DM!99`i`*|z2I*+:I*p+}+}}ª*|ʹ*!}¹*|ʪ*!}|*}|?>o&zo&|*}|>o&|o&z2I*+:I*p+||+/g}/o#z+/W{/_+DM!>2H*))1+#}o|gI+ :H*=2H*)+}:H*=2H*)+}DM!>))h+ =`+}}/o|/g#}|ʹ*ê*|g}o{_ʱ+|),|7g}o—+{_ʱ+)¬+}}o|gN#F# N#F#z+{+##^#VBK^#Vz+#y+###+#x+#~#fo}|>?o&}|>o&{_ʱ+|g}o),|g}o~# x>,!9J*~#Y,!f,|ra*!"n,!9!9^#V!,Ja*! 9^#V"n,!9!9^#V!,Ja**n,!9^#VͨDVECLa*! ",!",!9!9^#V!--6.a*! 9^#V",!",!9!9^#V!--6.a*! 9~#f-*,^!P*X-!",c-*,C",v-*,*,H",*,56S.78VXABCDEFabcdef9876543210   a*! 9^#V"-!}2-!9!9^#V!-6.a*! 9~#.*-~ .*-#"-+^!P*!}2-2.:-o&|2.*-+"-^!P*!a*f!9N#F!!9s#r!9^#V"-`i#DM+^!9s#rzʀ3!9^#V!%͠*%3!!9s#r!9s#r!"-`i^!*͠*ʳ.`i#DM!!9s#r`i^e.!"-*- X+`i^"-`i#DM^e.`i^!l͠* /!!9s#r`i#DM`i#DM+^2!%!9s#rT3!!9s#r@/!!9s#r! !9s#r! !9s#rÞ/!!9s#r!!9s#r!!9s#rÞ/!!9s#r!!9s#r!!9s#r͉3:3!9!9^#V!9^#V!-!9^#V!-͹4pf!9~#A0!9~# 0!9~#fo##s#r++^#V!9]fpf20!9]fi!9~#fo##s#r++^#Vs#r!9~#fo#s#r"3!!9s#r͉3:3!9!936!9~#0!9~#ʠ0!9~#fo##s#r++^#V!9͡660!9~#fo##s#r++^#V!9I6n6!9~#fo#s#r"3!!9s#r`i^!^͠*0`i^!~͠* 1`i#DM!!9s#r!9!9s#r`i#DM+^!9s#r!]ͯ*N1!9^#V!9~#fo#s#r+s1!!9^#VsÎ1!!9s#r! !9s! !9s! !9s!!9s͉3:3!9~#»1!9~#fo##s#r++^#V!9s#r*-+"-#|\2!*-`*!9s#r!͠*\2!9~# 2!9^#V!9ieͯ*!2!9^#V!9ie͠*|42!*-`*\2!9~#Y2!9^#V!9~#fo#s#r+sû1!9~#ƒ2!!9^#Vs!9~#fo#s#r"3!*-`*!9s#r!͠*:3!9~#2!9^#V!9~#fo##s#r++^#Vs!9~#fo#s#r"3+%/D5/ED0FD0O}/XY/[0c2d@/eO0fO0h'/o/s_1xd/"3}3!9^#VͲeT3͉3Q3!9~#H3!!9^#V}3͉3:3!*-`*!9~#foͯ*}3!9^#VX.!9^#Va*!*-`*Ͳeʤ3Î3!*-`*͠*ʼ3!!a*!9^#V!!9s!9s!9s*-+"-#|ʦ4!*-`*DM!9~'4`i-͠*4`i+͠*'4!!9sÖ4!9~G4`i.͠*G4!!9sÖ4!9~€4`ie͠*f4`iE͠*ʀ4!!9s!!9s!9sÖ4e–4!*-`*æ4`i#+s3!u!9^#V3ca**-*4Vf!9!!9s#ripf!*-`*! 9s#r!-͠*5!!9s#r*-+"-A5! 9^#V!+͠*65*-+"-A5!*-`**-+"-#|5!*-`*!9^#VieDM||5!*-`*5!9!9^#Viͯf]fipf!9`i!9~#foʹ+!9~#fo^iͯf]fgpfA5!9~#5!9!9]f;fpf!9]f@SSCANF_!TS.189!S.190!S.191`!S.19*|-M6*z-w#@w#6#w[6#wf6*z-~G#~@##~‚6!*|-å6!*z-w#@w#6#w³6#6Ͳ:*z-~G#~@##~6"5Ͳ:*z- V+^+V+^+V+^+V++~@_+~怳_*5"5*|-s#{@w#6#r#s#r#s#r#s#r#6*5*|-*z-"|-"z-*z-~w*z-#~4:):=ɯ<*z-*|-~7f7Ã7b7#b7f7 #b7f77*|-~w*z- w#²7*|- w#7*z-*|-#7/<+"|-"z- :O _"5! "5^8%8*5*5+8 8@8*5*5w+.8>w+ 78#~>W8>w+L8>*z-w:*5*5+g8 p8:*z-*|-#O~ž8>2~-y;##8¢8 q#6#62~-;q8 q+ *6~+8 26~+8!"6w#8>@2!6!"6~w#9O*6!26#9y69!"64!!658h9!!65h9!"6~w#C9O*6!26#V9y69(9*z- 6+6"6+wy9:*z-*|-#:~: 26~+©9 *6~+»9!"6w#9>@2!6!"6~w#9:"6!26#9:9!!659*z- (6 w+::j74:!j7):!G(;+y>O~# ;!;5;@:;t;[;>2~- y!T]w+M;6(;>2~-͔;*z-#6#w#6;>2~-͔;*z-#6?#6>#w‰;#6*|ʱ;!9N#F*~-Ͱ;O#‹<>:~#œ<:*<T]w#w#w#w*z-N#~:;:;w#<:;y=6#6#6#6h=6#6#6#6h==*z-F#~%=+=!:;O=#o7=$^+Vy:;x:;|/g}/o#:;yZ=!h=xe=!h=!>2~-@@ @GzH? ěT?F]cf>S#>c{Z=ֿzf=y0==%}<6{<_^Y&; oP;4$C;hIj:$_=ά3:VR8! 9^#V":6!9͡6!9~<>>2<6o&"=6*z-~4>M7*:66-#":6U7ʺ>͌6A *z-#~>ʚ>b>##~'ڢ>?͌6@?::p>?*z-###~ ں> ?ú>*z-#~¢>##~ ں>|8Ð>*z-#~>? é>!9~>*=6 "=6*=6+|>!>>}>!)))o=͓6ͧ7͌6A O:?!d:!9~?*=6#"=6`i"?6!9~V?xyV?*:660#6.#:>6C?y/F?:<6Q?60#=J?":6>O:>6?:=6ڒ?ʒ?*z-#~>0|?##6*:6w#x‰?6.#":6?`?!9~?*:66e#6+:@6:?6?6-/<#dڼ?61#d ? þ?0_>0w#s#":6*:66>7!d:|8*z-#4 ^&)DM)) #wz++?#w:++~!@@t;a*! DM`i~Q@`i DM,N@!-@!9^#V#^!+͠*!9^#V^IA|ʃ@!Æ@!!9^#VͰV! s!͠*ʧ@!\A|ʸ@!û@!͂+!9^#VͰV! s!͠*@!\A|@!@!͂+!9^#VͰV! s!͠*A!!Vf̓f! ^Da!9\A!"!+ru@w@a@?A!! s!! s#r!`is#r! s#r! s#r`ia*!9N#F! ^!P*ʺA!ͶGʷA!A!9^#V!͠*A`i~#A!9`i^#V! ^#Vʹ+iͯf]f/gpf!! s#r`is#r!9^#V!9]f̓f! ^Da!9Hf͕i=B!!a*!9N#F!9!Vf̓f! ^Da!9pf! ^!P*ʯB!9! ^#V`i^#Vʹ+iͯf]fgpfB`i~#B!9`i^#V! ^#Vʹ+iͯf]f/gpf!9]fa*! 9^#VBK! Cͯ*$C ͯ*$C`i#DM+sB!`is͠*LC`i! 9~#fo͠*LC!! 9^#Va*! 9^#V!9~#fo+s#r!*ʮC!9^#VCDMͯ*ʮC`i#+s`i ͠*®CdC!u`i͠*C! 9~#fo͠*C!! 9^#Va*! 9N#F9s#r#+^!0Ϳ*ʿK9*ʿK!>9^#V! X+!>9s#r{K.͠*L!!@9s#r#+^!0Ϳ*L9*L!@9^#V! X+!@9s#rKl͠*ZL#+^!:9!T9~#fos#r]fpfLd͠*ʌL!:9!T9~#fo##s#r++^#VipfLe͠*°Lf͠*°Lg͠*L!9!T9~#fos#r͡66L!:9!T9~#fo##s#r++^#VͿipfãN!9!!>9]f̓fEP!9!49s#rN!:9]fHf͕ixM!9! !>9]f;f̓fO!9!49s#r!-!69~#fo+s#rsÛM!9! !>9]f̓fO!9!49s#rN!9! !>9]f̓fEP!9!49s#rN!9!!>9]f̓fEP!9!49s#rN!:9]fi!49s#rd!89s#rNe͠*N!!N!!B9^#V!͠*8N!@N!B9^#V!9! 9͡66=!9! 9!49s#rd!89s#r!!@9s#rN!:9]fi!9!69s#rsN+oLd%MuMxMsMe Nf NcNN!9!49~#foʹ+!89s#r!89^#V!@9~#fo*O!@9^#V!89s#r!D9~#@O!>9~#fo+s#r#!89~#fo*@O!B9^#V`i`*O!!69s#r]O!69~#fo#s#r!49^#V~ʝO!69^#V!@9~#fo*ʝO!49~#fo#s#r+^`i`*NO!D9~#O!>9~#fo+s#r#!89~#fo*O! `i`*çOO`i`*Ja*!9N#F!9^#V`ii̓f!9]f͛fChipJ^+s! 9`iiͯf]f hpffOa*!9N#F!9^#V! 9]fHf͕iP! 9]fiP*! 9!9]fHfgHfEgpf`i͊+i̓f!9]f͛fChi)pJ^+s! 9`i͊+iͯf]f hpf!9]f̓fO!9i*RQI,0QI,*J*DM*L*o&I,NQo&I,*J**+++*L*DM*N*!9N#F#^#Vkb6#> 6 #=yQ>6#=‚Q : >µQ AQ[ҦQ@òQaQ{Q`w# .QQʸQQw#ùQ{o|g QQw#Q!!|a{ !9^#V*Q!9}|!R*Q"Q|!! "ͬ!DM*+*͎ #"!.#+*!*"!;*"!*"**"*###)Ds#r**"!PYCDM*y͜(a*!!!bRMd!:o&P*bRs!T"&R!bRDM!"R*R*ʶT`i^! ͠*KS`i^! ͠*SS`i#DM/S`i^zʶT`i^!>͠*tS!ÈS`i^!<͠*gT!`i#DM^! ͠*§S`i^! ͠*ʪSÈS`i`i#DM~S`i^! ͠*S`i^! ͠*S!`i#DM+sSïSX|T!͐VT!ͰV͠*dT!T!d!-e!T!-e!d!!r^! TóT`i*R#"R+)&Rs#r`i#DM~ʳT`i^! ͠*¡T`i^! ͠*ʰT!`i#DM+sóT{T"S!&R*R*TCan't open file for redirection: a*F! 9~#U! UcQA:$$$.SUBa*!"!a*!##*)Ds#r*)D^#V*͝*)b^#V*$0Rͮʃ`i͹)^#V*)bs#r*)b^#V*)D#V(ͩ&*#"+**"*"*DM`i)^#V"**"!*"*^#V"*$B**Bcon:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:a*!9^#V!!9^#VͰVa*!!!9s#rV!9~#fo#s#r!9^#V! *WnfU͠*WV!"!!DMW`iDM`i~#?W!9^#V`i^#V͉d?WW! ^#V!9^#V!P*#!9s#r!9^#V!P*ʆWn&u|†W!"!!9^#V!P*ʭWn&u|­W!"!! ^#Vsrn&un&u!Zut!9^#V!9^#V!9^#Vnf`*! 9!* X!!9^#Va*! 9^#V!*8X! 9^#V! *BX!"!! 9^#V)))DM! ^#V! ^#V`*! 9s#r!! s! s! s`is!U! s#r! 9^#Va*!.UDMîX`i&DM`i^V,X!% ^zXæX!"!!9^#VfQX!"!!9^#V!P*Y!-Q!-Q͠*KY!9^#V!P*>Y!-Q͠*HY!"!kY!9^#V!P*͠*kY!"!!!! s#r!# s!$ s`i!9^#V!s#r!9^#V!P*#!% s!P*Y!Y!9^#V!s#rY!Y!9^#V!s#r!a*!!9^#V!%s!a*! 9N#F!-Q!!% s!a*!U[:]^ all the ones from that level. Beware, clones are not as dumb as they look (nothing personal, but theywere cloned from you) and given the chance they will combine to formsuper-clones which take more than one shot to kill. Key: You: Clone: a*! 9^#V!*S[! 9^#V! *][!"!! 9^#V)))DM!9^#V!9^#V! ^#V`i^)"Z^#V`*a*!DM!9^#V$~[n$&!ʹ+DM!9~#fo,[!9^#VBK!9^#Vͳ\[!!9^#V`iʹ+!,!9s#rza\!9^#V!9^#V`iͷb!9s#rza\!9^#V!9~#foʹ+ͤ+PY!9^#V!ͤ+PYDM`i!9~#fo,ʪ\!9^#V`iʹ+!9^#V`iͳ\ʪ\`i!9^#Va*! 9N#F!!-Q!!-Q"|\!!9^#V!$ ^!!9^#VMd!$ ^!9~#foP*!$ sz6]`i!~#fo#s#r!a*:+Zo&|]!}2*Z!}2,Z}2+Z!*Z! -Q! !-Q:,Zo&͠*ʐ]!}2+Z!! :+Zo&#}2+Z*Z#s! :+Zo&#}2+Z*Z#s!",[:+Zo&DM!9~#fo*]!9^#VBK*,[*Z!9^#VMd`i*,[",[`i:+Zo&ʹ+}2+Z`ia*!9N#F!3^#!9~#fo*f^! 9^#V-Q`i#DM+s!͠*f^,^U^``a*! 9^#V!*—^! 9^#V! *ʡ^!"!! 9^#V)))DM!9^#V!9^#V! ^#V! ^)j^^#V`*a*!DM!9^#V$~B_n$&!ʹ+DM!9~#fo,*_!9^#VBK!9^#V_B_!!9^#V`iʹ+!,!9s#rzʧ_!9^#V!9^#V`iͿb!9s#rzʧ_!9^#V!9~#foʹ+ͤ+PY!9^#V!ͤ+PYDM`i!9~#fo,_!9^#V`iʹ+!9^#V`i__`i!9^#Va*! 9N#F!!-Q!!-Q"͠*4`*͠*O`!"!!!md[`*|[`!!9^#V!9^#V!$ ^!Md!"-Q"|ʓ`!!$ ^!9~#foP*!$ sz``i!~#fo#s#r!a*!9N#F!`#!9~#fo*@a`i#DM+^!9s#r!9^#V! ͠*(a! !9^#V-Q!9^#V!9^#V-Q`a*! 9^#V!*€a! 9^#V! *€a! 9^#V)))^zŽa!"Vf! 9^#V)))^#VBK!9^#V/b!-Q͠*a!"Vf!#-Q!!$ s!9!! ^#VͿiHf͒g̓f!$ ^i͛fgͯf]fgpfBb!"Vf+aab!b!!# s!9]fHf͕i}b!!! s#r!$ s!"Vf!9]fiP*!$ s!9]fHfgi!! s#r!9]fI,!bI,"*L*!"L**J*b*J*!4b#4*N*+"N*}bo&"*N*a*!9!29^#VfQ!9!-Qů2.c2/c20c!"1cd:!9N#F -Zc2.c_c+`c 0ڏc:ҏc?>70o&d:ͧ7:0c_c*1c+"1c_c.œc!0c6_c! ec -³c2/cøc+¹c 0c:c0)T]))_øc:/cc|/g}/o#*1c"1c*1c|/dKd}/7!d:? d>7|8?dKd}?dO? 8d:.cIdM7! 9F+N+V+^+~+ngxkdw# ^d!9^#V#N#F#nxʇds# |d!9^#V#~#foxʭd²dʭd# Ùd!ڼd!}!}!9^#V#~#foxd~d# d!9~#fod#d}!9^#V#^#V#N#FÙd!9^#V#^#V#N#Fd!9^#V#~#foxd~Ne# ?ed!9^#V#^#V#N#F?e!9^#V#n~ʁeʇe#te!|!9^#V#nʣe#Úexʁe +~£eÇe!9~ e e ee!9~Ae[e!}!9~ae{e!!9~0e:ee!9~af{f o&!9~A+f[+f o&!*>af!*<w#w#w#w*<~#~#~#~"0f*<V+^+V+^*0f"0f*>s#r#s#r*0f*>*<">"<*<>w#f*<~i#fÄi=ɯ<*<*>###gfgfff+g*<*>#$g*<*>#:g*<*>#Og*<*>#dg*<*>#yg*<~/w#‰g*>~?G*<^#V#~#fo))Үg#¦gDM*<s#r#q#p*>~?W*<###~g~w+gg7~w+gg~#gOf*<Dfg::f2:fvhDfgvh@f*<w#eh::ff!@fw#|h> 2;f!Df~# i*<@f~#i! 2;f!Dfg::f2:fvhDfgvh@f*<w#eh::ff!@fw#|h> 2;f!8 THEN 26 22 IF T(S)<1 THEN 26 23 LET U(S)=ABS(INT(U(S))) 24 IF U(S)>3 THEN 26 25 IF U(S)>0 THEN 29 26 PRINT"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR" 27 LET R = 3*(J-1) 28 INPUT V(S) 29 IF V(S) -2=ABS(V(S)-2) THEN 32 30 PRINT"Bet must be between $2 and $300, bet again"; 31 GOTO 28 32 IF V(S)>300 THEN 30 33 IF Y1 = 1 THEN 17 34 PRINT 35 PRINT" They're off and running -" 36 PRINT 37 LET M(1) = 62.25 38 M(2) = 60 39 M(3) = 350/6 40 M(4) = 500/9 41 M(5) = 55 42 M(6) = 650/12 43 M(7) = 1100/21 44 M(8) = 1600/31 45 LET O(1) = 6 46 O(2) = 8 47 O(3) = 10 48 O(4) = 16 49 O(5) = 18 50 O(6) = 22 51 O(7) = 40 52 O(8) = 60 53 FOR N = 1 TO 8 54 LET H(N)=0 55 NEXT N 56 LET K = 0 57 LET G=1 58 LET J = 1 59 LET N = 4*T(1)-U(1) 60 FOR Z5=S TO 5*V(S)+N 61 LET Z1=RND(1) 62 NEXT Z5 63 FOR Z5=1 TO 500000! 64 IF INT(Z5/N)-G<>0 THEN 82 65 LET H(J)=H(J)+RND(1)*M(J) 66 LET J=J+1 67 LET G=G+1 68 IF J <> 9 THEN 81 69 LET J = 1 70 GOSUB 134 71 LET D = H(B(1)) 72 LET K=K+1 73 PRINT 74 IF K = 8 THEN 78 75 GOSUB 194 76 GOSUB 159 77 GOTO 82 78 PRINT"- - - FINISH - - -" 79 LET Z5=500001! 80 GOSUB 159 81 LET Z1=RND(1) 82 NEXT Z5 83 PRINT 84 PRINT 85 PRINT"$2 Mutuals paid:" 86 PRINT" STRAIGHT PLACE SHOW" 87 LET K = 0 88 FOR I = 1 TO 3 89 GOSUB 165 90 LET J=I 91 IF J = 1 THEN 95 92 PRINT" "; 93 LET J=J-1 94 GOTO 91 95 FOR J = I TO 3 96 LET L=I+I+J 97 IF J > 1 THEN 100 98 LET R = 1 99 GOTO 101 100 LET R = 3*(J-1) 101 LET H(L)=1.5+.01*INT((O(B(I))/R+RND(1))*100) 102 PRINT H(L); 103 NEXT J 104 PRINT 105 NEXT I 106 PRINT 107 LET Q=0 108 FOR J=1 TO S 109 PRINT "Bet no. ";J 110 LET P=0 111 FOR I = 1 TO 3 112 IF B(I) <> T(J) THEN 119 113 IF U(J) < I THEN 125 114 LET P = .01*INT((V(J)*50)*H(I+I+U(J))) 115 PRINT "You collect";P;"on "; 116 GOSUB 165 117 PRINT 118 GOTO 127 119 NEXT I 120 LET I = T(J) 121 PRINT"Tear up your ticket on "; 122 FOR I = 4 TO 8 123 IF B(I) = T(J) THEN 116 124 NEXT I 125 PRINT"Next time, purchase a show ticket on "; 126 GOTO 116 127 LET Q = Q+P-V(J) 128 NEXT J 129 GOTO 7000 130 PRINT"Your total winnings amount to $";Q2 131 GOTO 300 132 PRINT"Your total losses amount to $";ABS(Q2) 133 GOTO 300 134 LET Q = 1 135 FOR L1 = 1 TO 8 136 LET B(L1) = 1 137 LET A(L1) = 1 138 NEXT L1 139 FOR L1 = 1 TO 8 140 FOR L2 = 1 TO 8 141 IF L1=L2 THEN 145 142 IF H(L1)<>H(L2) THEN 145 143 PRINT" - - - TYPE `RUN' TO START OVER - - -" 144 STOP 145 IF H(L1)L1 THEN 156 153 LET B(Q) = L2 154 LET Q=Q+1 155 LET L2 = 9 156 NEXT L2 157 NEXT L1 158 RETURN 159 REM 160 IF K = 8 THEN 193 161 PRINT"POS. HORSE LENGTHS BEHIND" 162 PRINT 163 FOR I = 1 TO 8 164 PRINT I; 165 IF B(I)=1 THEN 186 166 IF B(I)=2 THEN 184 167 IF B(I)=3 THEN 182 168 IF B(I)=4 THEN 180 169 IF B(I)=5 THEN 178 170 IF B(I)=6 THEN 176 171 IF B(I)=7 THEN 174 172 PRINT"Coaltown "; 173 GOTO 187 174 PRINT"Stymie "; 175 GOTO 187 176 PRINT"Gallant Fox"; 177 GOTO 187 178 PRINT"Seabiscuit "; 179 GOTO 187 180 PRINT"Assault "; 181 GOTO 187 182 PRINT"Whirlaway "; 183 GOTO 187 184 PRINT"Citation "; 185 GOTO 187 186 PRINT"Man O'War "; 187 IF K = 0 THEN 193 188 IF I > 1 THEN 191 189 PRINT 190 GOTO 192 191 PRINT .1*INT(D-H(B(I))) 192 NEXT I 193 RETURN 194 IF K=1 THEN 204 195 IF K=2 THEN 206 196 IF K=3 THEN 208 197 IF K=4 THEN 210 198 IF K=5 THEN 212 199 IF K=6 THEN 214 200 IF K = 7 THEN 202 201 GOTO 215 202 PRINT" Coming down the stretch -" 203 GOTO 215 204 PRINT" As they break from the gate -" 205 GOTO 215 206 PRINT" At the 1/4 mile pole -" 207 GOTO 215 208 PRINT" Nearing the halfway mark -" 209 GOTO 215 210 PRINT" Midway in the race -" 211 GOTO 215 212 PRINT" At 5/8 of a mile -" 213 GOTO 215 214 PRINT " Rounding the turn -" 215 RETURN 216 SYSTEM 300 PRINT:INPUT"Do you want to bet on the next race (Y OR N)";W$ 305 PRINT:PRINT:PRINT 310 IF W$="N" THEN 340 315 IF W$="n" THEN 340 320 IF W$="Y" THEN 5 325 IF W$="y" THEN 5 330 GOTO 300 340 IF Q2>0 THEN 380 350 IF Q2<0 THEN 390 360 PRINT"Bye now!!!!" 370 GOTO 216 380 PRINT"Put the money I owe you on my tab!!":GOTO 216 390 PRINT"Put the money you owe me on the terminal!!!" 400 GOTO 216 7000 Q2=Q+Q2 7010 IF Q2=0 THEN 7300 7020 IF Q2<0 THEN 132 7030 GOTO 130 7300 PRINT"Well, how 'bout that! You broke even!" 7310 GOTO 300 "y" THEN 5 330 GOTO 300 340 IF Q2>0 THEN 380 350 IF Q2<0 THEN 390 360 PRINT"Bye now!!!!" 370 GOTO 216 380 PRINT"Put t$ $]Tx2$(#6~+%5HA$.%a."/#!9"$ v$v$+~#G#P$+GO>#ͳ&`iGí$*$ ʢ$.&""$/@$#~+$!"k+s#r#&$$/$/"%͜*s#r#"%/!]>#ͳ&q#p!w+~F%a./~GO#^#Vz>a>0ͳ&xGxʬ%^#V#O"/yk+F(6s#r#s#r#&¡%k%ü%>¾%¼%s#rw+>a/a..%2.#6+>1ͳ&s#r>w+a.)a.>#V>Æ(&F(F('O&3%`& `& &%?A#"$"a.]&7#yͿ*.&X{&&>a*6#~ž&3&s#r>#+6#6#6#6@="#wɧø&7?'w##&4##p#.2b ** "|& } +++:~?'4'`':,X/~2,?'**s#r"*##s#r:/*}o|g"*>(G}|v'!"(!("**"*}|ڄ'"6# x…'* ">a:y|ʽ'z+ï'*yr,##~>'> ͳ&s#r w+.>2 (#w+>3ͳ&s#rw+ͳ&xDM"/(*(s#r#(! C(>2ͷ&@(ͳ&(&~#Z(#~+Z(~+x ͳ&s#rw+ɯ2(x_Oͷ&Ô(2(x_Oͳ&9w#w+xʭ(+r+s=¤(w>#w+&~7^#V((!~ѧ7.&.~7!~#fo~)7)#~+~w}D#wx#a.&G!)!9*?>a:c)2>2:o) L))K:)!uLҘ)͑M!)bM)*xʸ)ͳML)͇M!8L͇L)@]T}_|))).&">4W*/y=*/#~+)*x *xG>k+x8*>k+xG F*>k+x#~+>k+>Xͳ&s#r+&W!x*G^#V#~ì*3 < E N !3> ì*!<> ì*!W> ì*!`> ì*!i> ì*O?'yG !T+GF.*x2j+*(+#N+.*N+x +#~++k+ +yk+ (w!~#fo#~#w:j+,+6~+;+~ ;+6 H+~H+6ͤ/P+ɀ @ PPPPPP X#ʌ+̏+~̏++(w#w+*R#~6+´+&6#s#r>6###s#r#6@"R=#w:G+!<,####~#+F#N#~#fo~#fo,CH+##~>O3)6#p#6 ####yGS)+w~!_,H~͞.>a"n-:ʗ,ͤ/͔*ͤ/>Ϳ*.&v,ʪ,w-`i)9^#V!~)y~-#~#fo##A:-ͤ/x>Ŀ* ,^#V#F(ͤ/> Ϳ*,#~U,o&">2+F(ͤ/> Ϳ*"3-xGO>$ͳ&H"-s#r# (-H +V+^F(s#r# =-U,w*-w+ͤ/yOn-n-n-**}_|WҚ-\H7I Bytes Free ͞.-::g .>a~>a:-###^#V*{z-">?W*/>?W*:b *c ;2b "c **5H +V+^"&D.J.F(N.'~=w2_.~#fo&~#!y.H~aX[&#~+>>2e .>2e &|½.!T~#.~#fo..##~#~#..Ô+.„*&""> 2q"/y2/2/O&#s#r+++++~5/ }|x]/!^#Vz<̕/z̝/͚Hĕ/DM!/55/xʌ/~U,! ܕ/=w/DM͒'+r+s:/OÕ!*s#r#"#~+*++"!9"/!/"h 0W1*"!"(""h !("*2,?'"/!(~#fo_0"9##~#fo9990 111'0~YA0=f0 8: >*/ćI#r+s++0*/>ͦ0!~#fo~~Z̫9 ' ͳ& >G>G!N#F*9~#fo##^#VX!~#fo"1++~+ng##^#V~4#####~#~*9w#w#~#fo>wq#p>1>1>*d02e0&12e0~q199>1&121L1x?1:e0=e1h1q141̀22N2q142~Ҕ1¾1^#V>ʾ1>þ19ڠ1>þ1#~ʛ1ʛ1####^#VҾ1>###w~2ʐ99GB2N#^#V#~#fo (B2(1F6Fx B2~B2O!~#fo(A2"J2"L2~#F!E2w#p+6! s#r`iF~ !N#F# }25! F+N+p+q 1s#r ~ ʉ2 22^#V#~#fo7(2"2!N#F#~#fo(2"2!q#p!!Åh:cmmmmmmmmþ.. " H=============== ==================== H"// " H |===== \ / V =====H=========="d/i/ " H \/ H"ò// " H | $ H"00 " H H | H H"N0S0 " H ====H======= g |&H H H"Ü00 " H H ======================H ======"00 " H H &| H H"D1I1 " H H &| H H }{ =====H===="Ö11 "===H===& H =====================H H H"11 " H H H H":2?2 " H H & H"Ì22 " ======H=== ======= H <> & H"22 " H========== ===== = ============"33 " }i{ H"g3l3 "* H *"ÿ33 "==============================================================================="33 3233 0,6"4'4 " =Gang Land= V ."r4w4 " == _ == ."44 " g H | [] |_| | & . H"55 "===========H | |_| | H === ===================H"k5p5 " V H ============= H====== H"þ55 " H H & H"66 " H H | | H"d6i6 " H H ^^^&&^^^ & ^ ^^^ H H | =============H"÷66 " H======H =======================H===========H===== & H" 77 " H H H | &&& H"]7b7 " H H H | &&&&& H"ð77 " H H H | =============H"78 " =====------================= H | $ $"O8T8 " | H | $$$ $$$"à88 "====------=== | H | $$$$$ $$$$$"88 " | = | ============= ============"0959 " | $ ^ &"q9v9 " |^^^^^^^^^^^^^^ $ ^ ======"99 "* . & ^ H*^ ^ ^ ^^^^^^^^^^^^"!:&: "==============================================================================="*:9c -1:o&"!bͰv*"!e:*!n&͊wCrͰv*!#"!*!*z|y:}|H:h!b͉b! ͱ!ͬo#! o!!I|/g}/o|n;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!bgp!b͉b! ͱ!ͬo#! o!!I|/g}/o|P;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!zbgpͿq!Sbgp͐j!ɇͿq!cgpͿq!-bgp!#b)i#!"vʹs"&#*&Tv(Ͱv!#!"vʹs"&#*&Tv+Ͱv!#!"vʹs"&#*&Tv.Ͱv!#!"vʹs"&#*&Tv1Ͱv!#!"vʹs"&#*&Tv4Ͱv!#!"vʹs"&#*&Tv7Ͱv!#!"v:Ͱv#!Tv=Ͱv#!Tvr"@#!Tvr"B#!Tvʹs"D!#!"vFͰvF!7vF!"vCrFͰv!À=*!#!"vʹs"&*&|C=*!)s#r*!cx bv|=#bkTvr*!)s#r*!cx#*&Tvv*!#"!*!|ڐ=)?go"N*!|)>!"PC> *!!Tvtw"P!b+s"!*!|Z>?go*N|g}o"N*!||>* "RÖ>*!!Tvtw"R!a+s"!*!|ڭ>?go*N|g}o"N*!|>!"T> *!!Tvtv.cw"TͿq!7Cp!EwVͰvͿq!VCpͿq!agpͿq!VCpͿq!agpͿq!VCpͿq!^agpͿq!VCpͿq!&agpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!cgpͿq!cgpͿq!p`gpͿq!Q`gpͿq!8`gpͿq!cgpͿq!cgpͿq!(`gpͿq!`gpͿq!_gpͿq!_gpͿq!_gp!("Y! "[[!Y@dͿq!_Cp!Cp!("Y! "[[!Y@dͿq!_Cp!(Cp!("Y! "[[!Y@dͿq!_CpF!"vCp!_CpF!TvCpͿq!_CpF!TvCp!_CpF!TvCp! "[[!Y@dͿq!f_Cp!("Y!"[[!Y@dͿq!X_Cp!=A*[#"[[!Y@dͿq0*!͊wCp!S_Cp*!)^#V)9A*!)}cͿq!L_Cp*!cxCp*!#"!*!|MA)@*|څAʅA*[##"[[!Y@dͿq!=_Cp!}cͿq!8_Cp!("Y! "[[!Y@dͿq!#_Cp0*͊wCp!nu&c!Z͝s;u"cw"]*"_ͧX!"[!"Y[!Y@dͿq!_Cp!aRc*a|VB*]+"]*]|BA!n2uc-Bc!^Ͱv6Bc!^Ͱv͹X*a|ʰA!"[!"Y[!Y@d*a͊wfͰvf!^nuf!^nu|g}o|ʍBͿq!^Cp͐jf!^nuf!^nu|g}o| Df!^nuf!^nu|g}o|:f!^nuf!^nu|g}o| Cf!^nuf!^nu|g}o|CAͿq!7CpͿq!cgpͿq!\^gpͿq!^gpͿq!^gpͿq!cgpͿq!]gpͿq!]gpͿq!@]gpͿq!)]gpͿq!cgpͿq!\gpͿq!\gpͿq!\gpͿq!Q\gpͿq!cgpͿq!\gpͿq!cgpͿq![gpͿq!cgpͿq![gpͿq!cgpͿq![Cp! fͰv! ͊w!f͍uC>*x#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"unt!"w!yt*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*w*qzzD{zڪD*q#"q*u##"uAD*u*y}o|g"y*y"{!}t!t*svEDDEE*}cxwucw"}E*}͞w"}E*}wucw"}E!"}!"Ϳq!7Cp*"!7F!#-tͿq!#gp!jE*!cxQ*) s#r*#"*|zE)NE!#ͪs"!F#*!Tv+s+"*|·E*"*!"*|E!"*!cxQ*) *s#r*|F*#"*)*s#r*!s#r*#"**z|/F}|ҌE*!#"!*!*z|KF}|9E*w#"w!nF*!) s#r*!#"!*!|~F)\F*"!ïF*!cx s#rs#r*!#"!*!*z|F}|ҍF*"*"*"*"*""!"!"*"!G*!)s#r*!#"!*!*z|&G}|G!""*"*{"y!"!@dͿq![Cp!i}cͿq![Cp!k}cͿq![Cp!}cͿq!8_Cp!<"!@dͿq![Cp!y}cͿq!8_CpͧXc!{[Ͱv͹X**zzG{zzH!nw*wu!Z͝s;u*cw"*"!H*!)^#V|5H*!#"!*!*z|.H}|HzH*)^#V*!)"hs#r^#V*~s#r*#"*!)s#r*"*"!qL!Rc*͊wͰv*|RI*|¸HsYRI*|>! ͒uHF!+s"RI*|H*"RI*cxQ*)^#V|go"|I)?go*|g}o|RI*"!"*|II)RI!"*)^#V|mL*)h^#V"~^#V"*"*"*cxQ*) ^#V|I*)s#r*+"!@dͿq!w[CpmL*cxQ*) ^#V|LJ!nuc!Z͝sw"*#vJ;JJ*)^#V)^^#Vs#rÍJ*)s#rÍJ*cxQ*)^#V|go"|xJ)?go*|g}o|;J*)^#VvJJKK*#"*cxQ*) ^#V|go"|J)?go*|g}o|–K!n͞v!Z͝s;ucw*)s#rÊK*)^#V)T^#V*"*cxQ*) ^#V|go"|\K)?go*|g}o|–K*)^#V)^^#Vs#r*"*"!@dͿq*cxQ*) ^#V#!TvCp!@dͿq!s[Cp*)h*s#r~*s#r**}o|go**}o|go|g}o|R*|/g}/o|mL*+"ͫW*cxQ*) ^#V|mL*+"*)mLͫW*#"**z|L}|ҌHUX sw"!*+"*|ڨLL*y+"y?X*y|R*y|L)LͿq!ICp*"*"*"*|N*"*"*cxQ*) ^#V|^M*cxQ*)^#V|go"|@M)?go*|g}o|^M!"M*#vPpMMCNCN*+"*cxQ*) ^#V|ڙM)?go"|go*|g}o|¾P*"**}o|ʾP*"^M*#"*cxQ*) ^#V|go"|go*|g}o"|+N)?go*|g}o|¾PýM*#"*cxQ*) ^#V|”N*cxQ*) s#r!@dͿq!cCp*)T^#V*"*cxQ*) ^#V|go"|go*|g}o|¾P*"þP*"*|O)O!"*)T^#V*"*#"FW*cxQ*) ^#V|dO*#"**z|]O}|dOFW*|oOW*vOOOOOO*+"ÓO*#"*cxQ*) ^#V#v?P?PO?PO?PO?P*""!"*|O)O!"þP*"*"RP*"*"*|go*|go|g}o|RP*)^^#V"*"þP*+"*|RP¾P*|/g}/o|µP*cxQ*)^#V|go"|go*|g}o|¦PõP!"*"þP*""!@dͿq*cxQ*) ^#V#!TvCp!@dͿq*#!TvCp*"*"*cxQ*) ^#V"*|eQ**y"W*cxQ*) s#rQ*|QR*|R*|Q!nuc!Z͝sw"*#vQQQ*)^^#V"Q*"!"*"!6R*!)^#V|2R*!)h^#V*}o|go"~^#V*}o|go*|g}o|R*!#"!*!*z|JR}|QúGͿq!ICp*y|RR*y"!ûR*y+"y*#"W?X!"!@d*!}o|g|«R~X÷Rc!j[ͰvX*!#"!*!*z|R}|rR*k#"kJDͿq!ICp!ͪs"!S!@dͿq*!!TvCp~X*!#"!*!*z|,S}|R!@dͿq!ICp*cxQ*) ^#V#!TvCp*"!S*!)^#V|S*!)~"h*@dͿq*!)~^#VcxQ"h^#V*) ^#V#!TvCp*!#"!*!*z|S}|rS*i+"i*i| TF*"!-V*)^#V*z|0T}|)V*N|/g}/o|QTc!H[Ͱv͹X@V*"Ϳq!7gpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq! [gpͿq!cgp*w|ڬT)ڻTͿq!ZgpPU*;|T)TͿq!ZgpPU*|T)TͿq!ZgpPU* |U)UͿq!ZgpPU*|U)+UͿq!tZgpPU*|8U)GUͿq!ZZgpPUͿq!3ZgpͿq!cgpͿq!ZCpͧX!c`n!f̓nf!"vfͰv!fͪs|•U*"@V*|V*"!U*)^#V"*s#r*cx"*v*+"**zzU{zҭU*)*s#r*cxfv@V*#"*|=V)T*|/g}/o|>Ϳq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!Zgp!b͉b! ͱ!ͬo#! o!W*!cxͪs͊w*!)^#VsCr"*CrfͰv#!f͖r*!*!#"!*!|W)ګV!ɇ!b͉b! ͱ!ͬo#! o!ɇ>*"!ÒW*)h^#V*}o|ŽW*)~^#V*}o|ŽW*##"*"*#"**z|W}|RW**}o|ʼW**}o|W*##"*"!$"!@d!}cͿq!ICp**ozz X{zX*m#"m*mcxd"o*i#"i!"!@d!i}c!G"!@d!y}c*}"!eX*#"**z|yX}|aX*"!ÎX*#"**z|X}|ҊX!Rc*|¶XçX!"X!"4Y*"!X!aRc*a|Y~X*#"**z|Y}|X*_|Y!"Y*"!@dͿq!cͪsEwCp*L|/g}/o|CY*_|TY!"ZY*"!"!@dͿq!cCp!ZͰv!"!@dc!YͰvͿq!cCp! fͰv!͊w!f͒u>! ͊w!f͍uY!@dͿq!cͪsEwCp͐jYType RETURN to continue: ZZUpdating high scores..."ZEnter your name: $6ZYou really don't deserve this but...]ZNot bad for a young LadwZAmazing! You rate!!ZLooks like we have a Lad-Der hereZYeah! Now you are a Lad-Wiz!ZWow! You are now a Lad-Guru!ZYou are a true Lad-Master!!!:[ YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!K[YOU CHEATED!!! You don't rate.m[Hooka!v[oz[* ~[Get ready! [Bonus time [ Score [ Level[Lads$[Type RETURN to return to main menu: [Good luck Lad.![Type an ESCape to pause the game.:\Remember, there is more than one way to skin a cat. (Chum)/T\that are left when you have finished the level.=\statues (shown as &). You will receive the bonus time points.\Extra points are awarded for touching the gold2\A new Lad will be awarded for every 10,000 points.,]bonus time runs out.]You control Lad by typing the direction buttons and jumping by^treasures and riches.>^dark corridors never before seen by human eyes and find hidden@_^You are a Lad trapped in a maze. Your mission is to explore the^l^L^i^I^c^C^p^P ^ExitingB4^e^E^You eat quiche!^Come on, we don't have all day! _Enter one of the above: &_Difficulty level: ;_00 @_Last Score: O_00 V_) [_High Scoresi_Jump = Space Stop = Other _ Right = _ Left = _ Down = _Up = _Terminal: _Version : _E = Exit Ladder_I = Instructions_  `L = Change level of difficulty +`P = Play game;`Los Angeles, Ca 90024T`10970 Ashton Av Suite 312C4s`(c) 1982, 1983 Yahoo Software/`LLLLLLLL aaa aa ddd dd ddd dd eeee rr/`LL aa aa dd dd dd dd ee rr/`LL aa aa dd dd dd dd eeeeee rr5)aLL aa aa dd dd dd dd ee ee rr rr4aaLL aaaa ddddd ddddd eeee rrrrrrr:aLL dd dd tm"aLL dd dd aPRO SCOREbPRO MEN bPRO LEVELbbY#b&bLADCONF#0bLinking to configuration program...$VbLadder configuration program missing}bUnable to link to LADCONF.COM bLADCONF.COMbLadder not configured bLADDER.DATbRb bpbdqPbdbPpo-_bgpbqp b -=$|VH*^.& bg-=$|VH*^.& c c1.31c@PCzףp= #z͐j(c)1982 Yahoo Softwareafc{fc w#w |xc=w#w^#V"cc2cog*c|©c "cÏc>0_:cc{0c c>2cc*c]>0_ ~2HedG#^#V!Iew#c~2HfG#^#V!Ifw#d~2HgG#^#V!Igw#*d~2Hh2Ih 2Jh~G:Ih2LhG:Jh2Kh:He`d!IeGd:Hhʍdʄd{d:KhdÓd:LhdÓd:Kh;eÓd:Lh;e:HfʡdG!Ifd:Hhddʼd:Lhdd:Khdd:Lh;ed:Kh;e:HgG!Igd~;e#d_!|e d>0Oxey0e;e!|%e ex/ey5e>0;e>0;e_*:9c -1:o&"!b͎*"!e:*!n&::*!#"!*!*z|y:}|H:!bb! !#! !!|/g}/o|n;!!b!c:!c::!b:!b̈́:b! ͐:!͖:#! ͟:!ͨ:!ͮ:|/g}/o|P;!Ϳ:!b::!c:*;!c0;3;!zb9;<;!SbB;!!;E;!cK;W;!-b];!#b#!"&#*&(_:! ;#!u;x;"&#*&͇;+͍;!͖;#!͟;͢;"&#*&ͱ;.ͷ;!;#!;;"&#*&;1;!;#!;;"&#*&<4 <!<#!< <"&#*&/<75<!><#!G<:_<#!Y<=w<#!̓<"@#!͕<͘<"B#!ͧ2h2h*^#V"h##^#V"h 2h!h!!""h!j" j6#6P>2j>2j>2j͉h"i͌h"ii_m=i!&6C#6O#6M!\>!k!\> L\AL.iʇiot|i!#&\ѷ!>/ *OUT OF MEMORY* $?go*N|g}o"N*!|>!"T> *!!͋>͎>.c͑>"T!9"i** ,j!6#},j|,j6!i6#z?j*|`j> j6#s#r#=Uj>2i>2i>2i2i"i!&i"iͫh{| STOYmÐjm*i.. . ........Ͷz*i|—j:ik*i|kl*  s#r*  {w#6"i*i*i>2im|Error -!-k~<&k=&k#~#kk#!|ÊjSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*~#~m~+m~#~m+^#V###l###l|(m~#fo!0m| Internal Error - No Line Number &i*~#m| at linelwmm>ͫm<ڐmͤmzmͫm<ڐm0wͤmҌm}_|W!mG~#fo>| at address|r}rm> w> w!9"i*i)Pn|*i*i7n))]n) )]n ]n ]n"i"iK!"]]7n!n~2_n#~#^#V |++ͬz͎ځj:nm*i|¢n!n͌z͛zͳv*iCyC!\C͂C!Q\͈C͋C!c͑C͔C!\͚C͝C!cͣCͦC![ͬCͯC!c͵C͸C![;CC!cCC![C!f`B! ZB!f=C>*#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"u!"w!y*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*wm}eb! ~#fo"o! "om|­j*o}o|gw"o*o"o,{#s#r++smppQqm{pQqm͆pQqmFpQqmppnqm{pnqm͆pnqmp|qmpp!qm{p!qm͆p!qmp!qZÑpVÑp"ZÚpH~# ’px2T|:jHqqpJ͌z<͈q~p#÷pJ~p #p>2T|:jHqF#~#foxq̈qqq~#pqìzq>"G: jxqʋ* j+~ q>,W* j#^ ̫qʥq+=ڥq͋z{ڽq{_ïq!j" j!"i2jq! j~6#w~!q rNqmi&øj G~#r# r++%r0:0rw|­j}ڭj!jwmڭj3zdrdrͬzͬz~#~#foLږr#N#fiͽr~#N#fiLìzFOҤrG#~#fo#~#foxLyͽrìz6 #ýr~ڭj#~#fo~#foͬzZ>rV>=s#~#foLͬzíj2]Ϳy*x#V#NX!"]4sx­jű?s y<2*sF~ډsډs#~#foyGO #~#foxʍs}s#lsÍs!*s4 is2*sͬzͬz**s&ڝʛ~ͬzo&~ʭj#^#V++ͬzo&I*>"s!ss>s>mÛzmͳt͉|Z>$tmͼtu~t͠|V>$tmͳt}Z>Lmͼt~,"At#"~XtXt# Dtmíj"^t#ty͛zͳv*^#V#{t!i"i"i>2intN#F#*i~=ʮt}|ҮttÙtͼt|~t:int*i;~=mðj;~,t#"iɧt*i"i+V+^"imöjm~<ʭj3z~#~#foL6+͐u~͠|ͬzìz>Hu>Hu>Hu>Hu>Hu>^#V#!Zã>pu>pu>pu>pu>pu>{x!+>Ôu>Ôu>Ôu>Ôu>Ôu>{xʣu~#fo## ^#V#mQíu^#óu ^#V#mRu^#u^#V#mu^#vm|­jBK\vPYm|­jBK Mv o_0vmz­jzdv jv_pvo _ W}͛zͬzDM :]ʗv2]#êj:]ʪv2]#êjmuzv~##++,{>L+V+^+v+r+sv{mͳv~#^#VÛz!v>2v|:w+})N#6w~#fo :v)w!9"i!i4 ~G#íjm hw~ʭj#~#fon&ͬzmz„w}3z~ځws#wwmíjm|­j!9>͛z^#V#mͿwmRmʹw^#Væw^#Z)2mxmx!nQʛô!mܖ1y^#V#m;xm;xmzUx|Ux|Ry^#V#x^#V#sx͞GNʧxyʧx#~#fo~#fo°x#ʦx –x yʰxy<.ںx)ʺx)ͬzͬz|xxxxgxoxx*x"x*xxxoxxPx_!x4y5*x"x~#N#F#Oy)y Gyyx4y y+++6@#yw#xw+++6###!x~6`yuyyͿy*x#~#~ymäj!*x"x~#^#V#ڼyyGÂy|§yÂy++~_w#~Ww#Âyuy*xDM~#^#V#zyy+zz+{z##{z~#q#p_yyzxzDMy~#zyYP+++"x6@###{_zW+r+sɷhz*x|Fzmçjx^#V+"xw#s#r+++r+s##!oztz*|{z* |?Ҋz}|~# zyG3zxLuz,{v{*|* |Zzͯ{z,{v{###üz{| during G.C. &i{| &i| Internal Error - String Space Corrup#N#F*xyxq{*xyxq{++`i+V+^Zz##6+6+~6  >@++*x"xs#r+Ϳy*x#~_#~Wҟ{mójr+s##6"x###!x~#fo{Z³{<*x"x*x}o|g6@#s#r#6"x* |*|"x}w>#w##Z{++6+6xxr~w#=|!|~w#!|PP*"*"*PQ*) ^#V"*ͪ||*Z}/o|/g#"Z|ͭ|2||!\~wɯ2]ͪ|͂ͭ|*Zͭ|2ͪ|b>>R~~i#ò|iK|!`|>!`V2|# |!`ܖ!`ͷ}t>>|>|}+!m~}͹+6!\>%2U!i~ƚ!e~!`~_#~W#~OT!.QR}ɇ<o&ͭ|2*Z*\͂}"Z`i"\!Z^#V#N#F#!i~Rx{!^6Ɯwg>N û}:T|Gw#»}}}!`}ZͪVͪ}*Z||<ͪ*Z ~}!*}|͐| ~D}:\2\:]҇͑}:].~3~9~|/g}/oM~!:]V~͑}"Z>2T|J}ajL~ L}̈́|ͪ|r>2-|`hM~~&Ņ-ʤ~+ʤ~+͐ڋ.1eʶ~E~͐l~L~q~Q~:T|~>~~%>#O!Pd~DY͐ͻ͐_{_hx[|ͪ!Y}V~ͪ Yä~͐!Y}!}Y͐̉|Ġ|ͪ}&}=ͪ }}}{ 0_G!\ͪ':f(yG:^C:\G:^/GÇӀU6+}g6-[|#60:W|W:T|܀ۄ!1|F :W|_ ʠx* { Aq͐ED0ʠ,ʠ.À+60{̀+6${+p2W|!1|6 d}*V*X2/|͇E~(:0 #~>DG"V`i"X#~+o-F0OxGo#~-`xEdy >2/|t|\"V`i"Xt}#W}:/|ìҰ60̉}C+~0ʿ.ĉ}ͪ>"w#6+6-/</ :#p#w#6!1|#zrzۄ{}=̓'p#6!0|#:U|~ ,*,+@͐-+$0j#͐j++w`-j6%ʎ2|J+6%J}ͮ}}_xC/_yv̂x΂{_xꂒy3OGOC*U|=P͗|ѯͮ}7}yvOzWOx //>|l>|p#=c!Vq}ßD}>͑}t}?/}/{_#zW#yO++ҳ2}#t}p#ڥ>>/N#F#*Z/}o|g"Zp#=/w1_cƤ~@zZrN vH Tʚ;@B''d #~: ʐ ʐ ʐ0?<=:T|ҷ7-++͐MOօHօ+M~H#mêjM!}0?)))صoM!)'}M0? ?? ))))صo)a{ }ͪ:]:\>}:-|2.|2-|mêjmêjm}eb!' ~ʄ ʄ#~y`i`Z>O #~goPY!' ůw͔:hZʀ=z=¸ѯk<ʀ!% ^#Vr+sm}!"@} PY!`i>\!' ~ď͔ʹm}e!&+! ~+ngm}e! n&*i~_tDM'~̌4N#V pʀzw w+s#r#6#6DM:hʫ!" s#r#6! {zVw<<ʀ!! {w:O`!! ~!) ͌V~#!*i~ʢ( ~K+~#5O ~+~W]-7>*iT]% N#F+q#p###6 u͔:hZ>>w+w!(+7?*i' 6#67~}#^#fk_݉N#~:++@}y@}} #2~. 7#2)ͬzz }}> > 7m L:! ƒ~b#N#F++ͬz OˊIˊRb*@|ˊ!"@}_ފʹ{qz "i#> L66͔~*<ʀ?.Ͱ :j W:j:> ͰͰܭ~*6?# RO!!4r#4r#4y"‡ʀ><">>2i!ݏ"i:i<2i*i"B!Ռ"im"@͒*i|ӌ##nчŒ.̇*Bmm2D"Emm2D"Ee!)x)#y))҇ ҆#=n}_}la)ڃҞ#xƒ"! "!) "!}o|gP͎bk:P0DM**g"PY/}o|g*#"°0DM**g"PY2O*! ~#foPs#rV:Oc!c!& Ç~# xhDMЏwŏ! w!( V6 ʝzwΏwŏ! ~!! ^#V! s#rDMͽͷP}eb`i"i!"i-ͥm!>øjm|­j,'-:ie*i!i"i{3zf$%K!D*i6|}!"i>6>4>?>=>:>7>5>2>3>@>C>mo&øj!"i!n"oͤ:_nµ|?õpۑ:>\2ϐʴͰ+~Ͱ+ͰͰͭ!n2ۑOʻ:>\Ͱ2yz̳7 ʡ z 4ʵz̳ʵRʵͰ> Ͱ>ܐ\>#u6ͭ!nő x<>ʅyq#Ͱ > Ͱۑʒ :_ṋwmw>^Ͱ@Ͱͭ~ ԑ> ͰͰ#ői|* j #~+<=܋ be 4+~#<:=^ ii :jG7i*:iS<2i*i"!"i ii*i654> ~=i* j!j" j" j> > > i> i*î Gǒ’~#foĒ##ђ>ޒ~+~?~+#+ &))) ^#V#!Z)^#V#!V&)w#w#w#w##~ : :Ʌo$ɧGw#P{z}!*}|͐| ~D}:{}2~:~͑}:~.~3~9~|/g}/oM~!~:#~V~͑}"}>2T|J}ajL~ L}̈́|ͪ|>2-|`hM~~&-ʤ~+ʤ~+uڋ.1eʶ~E~ͥ~l~L~q~Q~:T|~>~~%>#O!Pd~DYͻ~6#h͗gʣ Oʨ!!\y# +“ ?͋ڝb͋Yn!`͗-:] :g/%?2U:V͌ x/F+N+=«!`ÿ!V>q#p#=•!V"Ͷͥ͑*͗:]!fN#Fͪq!GSQx Ì!\-j0 TeB׳]h!I.k ͋ڝbh͋Y!`q!]q#~++w+qƒ DNn"~`35zr1{r1h!I͗ yO2f͗ :]n/ɘq!^6Ɯg>N|ԇ>ØakڝLʛL Z bΜ*͛|6!LGΜƙXi>O!]~+>w QYu :]ҠhژΜʛƁʠ͕͹!&J\QY Ð|Yt&wz^Pc|u~r1Йq>2]!&Μog2W }}{(qnz ΜX&XΜ~#ڝ=xUW1DT :]㝐g/<͕ ͹gN!Z~_#~W#~Oҡ#4ʐ.dáG~_#~W#~O܁Dö >OWDɚu ȯGͪ"Cy2EFo͕͌!D*Z:\O]4ʐ.g.*C:EOz.g.*Z:\x<=E{_zWxG)yOHGáDU ͪy+F+F+Fw`h|ʢgy҆:ZO|g}oxG-|z}uElaOt!]~Gx›ƀw͹w+ɷx{!^6Ɯwgz >N|Գ{>2]/))Ҵ =¬!\~7w?##wy7O*Z*\"\"ZajSX*JS\E!]/GPejSXWWch|l{_zW}o|gX"8"6x!6~w#|uˆqJ!]qx!]F#~怩O 4Ôgo"Z"\s#r#q#p"Z`i"\*Z*\DM^#V#N#F#xy:]:\7|/G}/O!>5 47>{_zW}o|g=+|g}o]CZQP o-yOzW{_xG`Z*\DM^#V#N!^~/woG}_}W}OΜ||DM!>))Ҵ =¬!\~7w?##wy7O*Z*\"\"ZajSX*JS\E!]/7@?2C: * "   *" 2 2 |< "  * âC{K2* " * |< " " * |! 4 4 5wY2B!{DP 2R U >(_#U * ~?o !P #GC!BʻY|<1>DA2MSB!E :* > @(K 2 Ç 2 *  C " :b ʢ >(Kڢ <=ʢ (ͬ~ ̾(" ҊSe]" ;5$ܢ"ʇ: \*v " * ͶB" t##s#r## w# y}ͯ!6"*" 7C*"* "â *bk~####~ ҷ ڷù#s#rïC *DM~#+##~#foC`i~#fo??2i 2h ;#~=!@}O|G!""y O:h ~ʂ#Y:aJg>2h 2i U%~|*O~#Ym?>HjZEڗ;;>ʸ;>HOZ#þGO TOUBZ!AO ^#V#ZOd#<y(!!!Z.!>dG>Y2i Y%=+ZOiMk֢ύ>2i W„Y>5W>Y{~.ʧ:"0":i ~O.O>Y(ͬ}Y|Y%~.ͬ:g * |>}e. Y! d! ~Y#=%iʎ%à&O[H> K> Yi>: y +=2i ZY#ZEo:ҋ0o.o%~ Ҡ ʠ ʠ> :i <ʩ=m+~ ʬ ʬ ʬ#>d2 ͋9C" :g ͬ! (" !9T  +V+^##* C" B* *Cd Nz)~S ͒(q)ʹ(QZ~>r)ʹ(E(OdG+ $* "* 3àE3\B" !9" ~: #~#ʅ #^#V": >[@1>]@ցLO! N#F#~: ҆ ځ#:l `#2l f>R~#"j &o"n >2m !~##"j +fC͎*j <2m n G("j ! 0?<=:l ҫ ګ*n ¨###^#V,:m 2g *n " *p " !n (E AOGEAGx3Ø(:l  *j #*C > 2 ,$`i P "  "!>:yHG+ȸ#"<֌W-͋9C" :g G:g x=ͬ:g  H * #^#V*Cs* C{! C{>HͣFH(µC(zʢPY" : {:_ u ~GC+K x),  <2~(z˜<* * "~ #####u   =>C,* =( |" 2 " â ~,dC+͆(~ʕ *n €€l>2á Q+!B>ee,%;d)1F6 * 4TF* ::G<:?=:G<:e ?=!B&Gá(* TF~\:I:G<:\V:G:e \!B\/V tz|TF›:::o<ʛ& ,C)+(* TF~:::e /<!B{= @è2go"C#ʧQHLo͋9;*0KDF>-?Redo from start #~ "4N: !!#G* Q!a ;#YHL">2>2 F~,2 ÓC;&G: ʫ>?@> @0KDů2 6,+>2 ͉:~+[(# "4([]), ~,B>2 d: =Bd̨H+~,ʿ+N6,E* 2 QC,͋9~,c: 2 TF—Qd¢WG"ʌ: Wʉ:,+FO: y!...+ʽ,G+M: C#~# #^#V" cCC(+B͓2 " * ~" ڎ_4:g {[H !xVzʬQںzʺ! :g  N#F#N#F! N#F#N#FKG* W " Ð)͙(6Çz)uÇxdd!BdX* \FÇy2h :g g+Wx(zOxdz o! N#F* *(" " ͩ( *!:h og~#fox(2g 6" ;)!A͙(*ʹ(" " i*͙(*g' .EJ ]<=ʓ<"FO&i:* ,C(#r PQ͉:C)|)IoBI'UTC)}* k(͋9" d(~a{_&([OʭH¬#~[Eҗ:0ÞG7))))o~ +8  )))0O í)#~ց(7>OyC,;** u )4} )H>2  N#fi-++<(aZz)}/o|/g" :g q7xz)z ,{ʨ+F•{o|P {o|<«{o|2¸{/o|/}//o|//}o|g,::e 2 ͋9:g " " ͬB!9(:g * ~)C,* C,Á2N 2g !9(!9.,:g G:N Od}!P O:* * C)>" : OBO/2 OÐ9~ #~#`J x 2b b + C,u W : u 2_H 2u 2_H 2H /<z)zu 2 2 C,u Y +{>2e]!"N#F#xʇ TFQBN#F#Cچ " 1~ > @ !b !BÑ ~ͥB# b 2 e] #~ ! _!A!_.!!!/!: -!<-!> >2 { =! ! <~J!#~#X! k*l!~#>l!+!:G@ #T]~u!#y!~v!ʏ!y_¢!: >2 ÷![®!2 !: >2 !> XG{!~#_XG!!2 E0:?+͎ " o6 r6*n )1:l O " H*">&{:m ;"!;"#~ ̾(~#m":m A" ^".h"Dh"EA"A"{v"*j 5$Ҕ"T]C!E #G!* C¦"`i" "\]~"\]C,u "z)d: E()È% PX/#,#BK/#C,/#C,( z`iC[# !C^#Vzn#~#+K#͑#^#Vzʌ##s#r u# 2 *+#~##^#Vʚ#O: y$#¦#¦#3z##£#3 > %$B!$#G11+ã#Undefined line #3###N#F>!#*j +p+q+w: Ò#CBCACSCE: * * C ~0  2 <2 ~̓$#y$\Aʔ$z)ð$!$#G KD#~.~•$z)"j87Random number seed (-32768 to 32767)$*" +%%$%#~#Y #^#V" y~.%$$$$$%** "͋9+%c%C,+8%": 2 2 ! 6ͷ(È%ͷ(t(x: ʩ(Ң%/<͙(ͩ((gb&|! %B&#ʈ0.͉&#&G~_#~W#~ON&hcGy&JTeox%2 |&y%O&)zWyO%x\E#&! w%%x! 5&F#~怩Oé( 4Ç0~_#~W#~O! ~/woG}_}W}Oq&CZQd& oz…&y-O{&Ë&-yOzW{_xGÅ&$cCu͍M r5E(&1r'ʹ(>2 ͙(!&ͧ7͙(ͩ(!&ͧ7i'͙(T(È%E(.(y2<'"7'PX!%!%'! ~#Y'Wy='O|g}oxGQ'x Gz/'CZQO͙(!-ͦ(E(ʐ0.(4g04g0+~2'+~2'+~2'AOW_2'}o|gxG>?ұ'2'7y<=':'x'> $&{_zWyO)xG:'2'y”'! 5”'%>.! N#G.x'(}! Gx&(ƀwW'(w+E(/%g0ʹ(xڀ0G͈%! 4À0: : /<! Op#6%͆(d+ ! ~w͆(og)d E(* ||O(* * ͷ(" `i" ! ^#V#N#F# (:g Gw#(! ~7w?##wy7O! ((! ( d xE(!N(E(y! y )#x+y+z+{z|O(@)}P(! ( E(!N(E(O! y#)+f)I)N(d* )(! 6(&,)Ü)y%: 2 : B*: ½)))|/g}/o)! : )B*" >2g )aj)d* ʹ(6*x(! F#&* 6*|UY(d *!" " >>)d GOW_ʹ((gf*>b&|5&N&z< dE(*t(̀*k(dҦ* )! ~: ~B*6{y%! ~*O+~+¶*!*) *yʹ((+6+q*: O! >%-,2 Ñ,! ~5#*!x"+>);)+ ;=+|G+y4+|Gz)*͙(,N0|)+DM!>)ډ+)q+ ډ+=c+|+x+ʚ+*͙(*'x)*t(| ++DM!>+ +7>{_zW}o|g=+w+|G+|)Ooyg)* +|6*Y(ͨ+g{o)+! ~w! ~G+N (R,/<#Fwx+ B,F+N9(! G>w2 ! %-x,: 2 ,,4ʈ0Q-,>,! -G: º,! Vwz# Ÿ,x’,%! Y-,x,! w%: ,! ~++w! 4#,4ʈ0+60 ! ->!  2 -# -~/w! Oyw#-q<-NsY+1-'- W~w+F-?-! C-~w# [-E(: %'͝.qʙ-G,Q-x ‚-y-Ñ,! --Ñ-L} : A--! (d-: -2 !t(. ! (.&, ! (>.".&,! 3.=-..! 5%! >5=.>! N#F#=(.>! p+q+=9.: ʔ0: %'44ʈ0͝.!7 qA>,?t.>,: <=,! [-!0 Y-xb.! 5b.%y2 +6 ~q+¨.(+~ڈ0w&,4È0%3*j%>2 `h)~&i-.+.+/.ʆ/e /E5/l#/L#/q#/Q4/:g N/>N/~%ʓ/#ʤ/!ʥ/dN/De/ͮ/2S0e/_{_//i/k(d!W')d e/ܮ/.!W'!z)e/ͮ/e/) *d.(.=d^'- ̓$> ̓$!  101(d0! 1(* |* "1C !@ #G"G)Ͳ1F1Ͳ1416+͆(F16-k(#60: W:g 22һ1ͺ5! F : _ 1x*1{1Aqʟ1Eʟ1Dʟ101,1.¢1+60{ʫ1+6${+p2 ! 6 ͙(* * 2 f2E~2:101 #~1>DG1" `i" #~+N2-%20OxGN2#~ 2`xEC2y 1>2 S2|1;21" `i" ͩ(#W\4: 2Ë22ҏ2460̾("5+~0ʞ2.ľ(2d>"w#6+26-/</ 2:#p#w#6! #zQ334z4ͺ5{(=4b13p#6! #: ~ 3* 3+3-+$0I3#I3++w?3 3I36%3m36C){3)1+6%)d3E(\43_x44"5452_y/3/3{_x34434y5O4GO"53* =4P2*ѯ3E(7\4y/OzWO/4)4/< 5/>,K5>,p#=B5! ͦ(~5y%>B*ͩ(_6?5ʹ(/{_#zW#yO++Ғ5B&#ͩ(p#ڄ5>5e6>5N#F#* /}o|g5" p#=55w1_cƤ~@zZrN vH Tʚ;@B''d G" կʎ6))))Ÿ6y=ʟ6ʫ60:ڨ6 ʸ6ʊ6È6!t(͙(! 6ͦ(6)!r%>2 E(x+76ʗ0%yʹ(7: 77͍*)|" " ܻ6t(ͽ&'8;': `7hr7͙(͍*Ɓc7ͅ%!{7ͧ7J'͙(: o7%~0é(|Yt&wz^Pc|u~r1͙(+ʹ('͙(~#ͦ(='ͷ(͈%ð7RO!&ͦ(76*E(!H8>8!i8ͦ(!H8Ȇw#O ͷ(':G8<2G8!i8O |%ʹ({YOO6+F6!F84~֫58w %!i8(w+w+w85Jʙ9v" GSљ e͘w>ROhFhiuh!8|%: w: 82 t("~'͙(͍*ͅ%)8͈%͈%E(t(͈%t(: 82 !9͘7: 2 "~Ie&X4#]I͙(8͙(ͩ(y8g'E(6t(: N9QYi'!%!X9͘7!8 J;xn{/|t1}=Z}~L~l+C,}92f NE G2#~.9ʵ9:ү90ҵ9E9G#~:90Ҽ9EҼ9.ʼ9x' 2~&9 :%$!#y_! V+z2g : =ʒ;):~(;3;2 : 2 }:*  " c:o[::g [::&* C;^#~#¸;:g ¸;~;#^^#V#˜;:f DMW']< #:¹;#ʾ;+͸<þ;:g w#_ʖ!@1> @!b  ~#=GA"=[0A= A=_zW"=! =L=ʺ>O>>ʨ=1g= !>=#ʻ=>>= >>(9>ʵ=6>>@!B<~ͥB#¨=!>7A_>~=ͥB܁>=#~== !B<~>\ͥB~>ͥB́>=>\@~A +> +>+> +>>@ >wͥB# >6Hͨ=Aq>s> >s> ʑ>ʑ> ʑ> >>_‘>>_ʙ>ͥB+>> ~7W'#~+w#Ã>yڡ>>@>> o&DM#͹BwͥB#Þ>x+>ͥB>x+~ͥB> !Bz\@@_W@W~#!ʎ@#ʡ?&ʉ@g@+>H?+~#.?_}@\&???$ʚ?*??x#ڒ?~$> ž?#W?~#.?#ʡ?,?z@Wá?~#>.??# ?~##??T]^###xG#z+@x@~-@@>Wr@Cxz*1#G+7N@2 ;K@, ~#_~#foxE?m@@@?!BͫH@~#@_@Ò@>@r@;** AxxOI&G* 5@G> 5@@@z>+@TFfV:\A@:@27A A> @:A 3A6A:<:-A!MA6A<2Oɯ2:> 7A> 7A2:XG{A:e ʍA=2e >îA A> @:e €A ڮA:G:e ʥA!BʮA<2e OTFAWMS: 0P:A!7C!E #G:AD/2AD:e !B6!a > @> @TF3B:?B2ɯ2e :=@FBAA2CDD͙BƒBʌBAͷF_H!D " >2g :2@ > @+B> BC~ +üB*v  >ƕo>gB9*++"  BgGBB* C:G!^#V#C T*}D2 2 2 w#w#" *+" : XC2 2 ! 6#QC7!i8(!F8w#w#w2 og" " *v : ƒC" C* " " : T*++" ##!z "x r%DAgo" 2 "N " " 2 * |}~C##~:  *C(`i+" < D T" !z "x !*}<-D" * " 2DAB!J b Æ >OD22>^@@@!B* | * "u <2>2 ͋9! (* dC,͋9Gd * CD( (>2 ͋9D2 `i D * CD `i" ~,D~A[?;C E, E+ EC, E*,4EyE+ʅEC,ʅEyE+ !NC҂E͗EڂE*  C҂E"v " E"zB**v {_zWME}_|W2 " ċ9" P ^#V#* C ~#~#Eͦ(: E! ͦ(|%(ͷ()/F####N#F#^#Vi`: F* F1+:g  r+s^#V#3)ͷ(AF"i`Ü" * ~, ͨE*|ͥH~#N#FͬHW^#N#F{zد< #rF?P(o6ÙFr6ÙF)1FͨHH~#*x " >2g ( C"x ~ #FͨH͹( @ +B-G* * /O #CZG" # >G*v " !* !z *x CxGH!L " * " * * CʹG~###͚<²GH_ÕG* ^#Vz* G" ##^#V#" ÕG* C7H~###͚ {͹FGH* w#?IHIO>~XIxIx C,;*C,* C)ͥHW'ͫHG=O>x~#F#fh GN#^#VUJ LJ#7Jѯx<#4JIJC(͋9;*#^#V* CڍJ*CҍJͣF(C,u ~JͥHG!W'y~?@> @(KͿAzK68Kp22 ͿAoK!B!=:>\2UK'K@+iK~@K+@K@!B!b 2OAK:ʐK>\@2yKCD7 ;L K ´K(KKCD(KK0K@> @>bKK>#iKK6!B!b K KxL*|>L!b ("_yq#@ K2e > @ͿA,L KzK: Bw!a >2 ;2 " $L33oL " ** áL LL" *" ##^#V#~#fo"͆(ʵLA3à* "à!9~#L L~#foC L >2 ͋9d(""  B!9 +" _MC(͋9s#r#~,=M #MC)" >!=_M=_M=_M!9DM!jM* * * à2 2 ~‡M2 #+͔R!" +NC,,ʸM"" +NC,MCACLCLNOC, 2 5$`i" NT]" CNO**+#~#N#^#V"N:N2 ͉:ʢNxG͒;>2 hN~(nNþN~(͉:zNxGN::g W):zBK!N N 2 ~(nN ͖N+"N(NC)"NC,BN"* * C#ON##~w#͚< NO* " N* C Oy_xW `i" * CNO##~w#͚2 : mS:2ùR2 2 * DM* " * #* " CNP `i" * *+zʠ `ià Q+PdP)1F* #^#V ªPr+s+5&G+P;ʿPC,+>,@ÇP>"@&G>"@íP*|Q~Q\}o|gQ> @+|P!B#*QѻQ  C,PY"+#x _:ڦ !N#F :Q!)^Q! >>>ͬ͹F* (H>>>ͥH<2g #~#fo(d ,»QZûQ Q͋9;*W_Wڬ Q¾Q"QG{,xQPXW1R!b Oz"yR QR RO{,yĊRW1R R{ +R,> +R+R1R1R͊RWQ"hV* *CMS~#hVSV:SS=S~,~#u SůSѯ*Qʦ   ! ~#fo" !"o]| G~,r CACS͋9;*O*o] "o]* Cڸ q#s#r9T7͋9;*ͥHF~O#^#VT*CT* CTY* * CUy  U!Ux͹FFTC$C(u ~,KU*Qʠ "QC)}͹FʅU͙BlUA~Uw# ^UF* DWڬ qU6Qʦ ʠ !' ~U U#~¸U`i}WÙU>O #~(PY!' ůwͱW:!͞Zʻ =ʝ =UѯÚ <ʻ !% ^#Vr+s9Q6V PY,V!#V`i>yV!' ~UͱW)9V6Qʦ !&QV! ~+n6Qʦ ! ~*~Ee\DM'~U4N#V pʝVzw w+s#r#6#6DM:V!" s#r#6 W! {zVWw<W<ʻ !! {w:W}W!! ~!) ;WU;W~#>W*~ʖ\( ~hW+~#5O ~+~tWzWJW7>*T]% N#F+q#p###6 ’WͱW: ͞Z>ªW>w+w!(HW7?*' 6#67ͥH~ʲ #^#fk_XN#~:X++@bXy@bXbX #RX~.0X>X7X#X2 z bXbX> >X7X> WX7Xò W<ʣ ! w#…XCACSW:!<¾ ͥH~ʠ #N#F OXIXR  C,#u C,{ʦ _9Q¯ WzZ" 1Y{1Y!~ 1Y6B#6A#6Sz"# w# >YwwͱWoY<ʻ ÅY<…Y£ cY!%w#w#w#w~ʨYCzW* ) p# ®YC T T _W<Yʣ Z!6# ͖ZW2 !͒Z!͒Zʣ O!  ~#@ygZ~ dZ>.@ QZ:e W:ڀZ> @@!BAZ~*6?# –ZO!!4¶Z#4¶Z#4y"Zʻ ><+Z* C! s#r#wZ2u]*Q  ! ^#V~,+ zʵ +s#r! w#w! ~#fo!CT[Ò[BK>!)g[)#h[))v[ u[#=][}_}la)ҍ[#x"o]! "q]!) "s]!}o|gCڼ[bk:u]\C[ \DM*s]*q]X\"q]PY\*o]#"o]}o|g|Ÿ[ \DM*q]*s]X\"q]PY[2*o]! ~#foCs#rG\:T\!T\!& äV~# xY\DM\ʓ\͹\! w!( V6 ʎ\zwø \ʓ\͹\! ~!ô\! ^#V! s#rDMͱ\ͫ\C" ͒#\>;S"]C ** C!X9}o|g!9}o|g ] \ \ ** C!9}o|g!X9}o|g S] )] )]*|<:  C*+6* ~šRÇ !?`2 "!"6:͗C2e " * ^#V"zB"UB"##^#V"A##^#V"A##^#V"=A 2!]!!"" !"22d 2 2 2!"!" !z "x ! "L *"v >2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# *  DM=^#"" {ozgB|g}o_|0_!{ozgB"v "" " *B}o|g++!_#G1!_#G!#G" !B! v] Owned by Microsoft Bytes freeBASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 2!"!" !z "x ! "L *"v >2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# * G:%:,}O!Uej"&- V.& 3(  (&b&K&  M,*',Q1i05O.N.43g410q1V5U54X1g$$$ 9:8DE)Fv7D#FFF< &f #"$#$,(J$!"` :=:i::222_--.222;LMx  C\o(267NBTSUTϫLOSONԚLEAҒINSNDBV+V,V-O HRATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘELETŪNāLSŢRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXNPUԅƋNSTNNMILEԈINűOASEPRINԞLISԟPOISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOUԝΕPEοCTUOKřRINԑOEEEAćUΊESTORŌETURΎE͏ESUMũSEIGHTNENUͬESETOАWAХAVPCTEGQI TRTRINGPACEYSTEͽROΣROFƤABHEA SINSAARPTIDTȡAIԗO۾yy||PF<2(z{i:::=:f<_<==:z6w6789q;e;;9NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function callOverflowOut of memoryUndefined line numberSubscript out of rangeRedimensioned arrayDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflowFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file nameMode-mismatchDirect statement in fileToo many filesH8jII, in Ok Break!9~#N#F#i`zʳ ʹ Ý ʹ~ + *,  >>ƕo> g9*+++" $  0 *-|< :! $ à* "-  *-" " 6 * À {K2#* " * |/_#‰ * |"|2*X4! :#*!"-:  * ? >* >  2 â *  ʹ " +ڽ ͫ<=ʽ ~ K9ͦ " ҕ4ͫ" G ʯW-(ʆ *( ͼ "( t##s#r# w# y| ͮ !6"9*5"" A *7"9*" "5ý */bk~####~ Ҷ ڶ ͬͫø #s#rî   ͺ */DM~#+##~#foʹ`i~#fo?? :YG!9^#V# 5*/ 2 2 w#w#"( */+" !0 6#M 2! og" "& * " U*( "* ", 5*+++" ##! " ͆go2 * >?> 2 2 ;~"n Dw: ~D?>D8͗ڇ!AO ^#V#͗Oʢ#  +>͌2 ͌ó ! +``>2 ~t͊%͊>͌p~.ʗ:0: ~D.D>͌}͌|͌ó ~i>: *X |>}e. ҷü͌!X !T ~͌#=ó 7ʫý&DͫH> 8> ͌õ#͌:VJ\>2 2 U³ ~|wD~#͌b!@}O|G!>: y$ ~a{_w+=2 g~ ҽ ʽ ʽ> : \2)>+#~+!2)O:)J>\2)yʊ7  ʊ nÊ@#_ x<>ʕyq# 2 > oʥ 4|}~#ʫ *5|.:&) > :% :%<2%Oɯ2&:%> > 2%:*±" H> : 8 \:'G: <2 O*5|ʠz/7X4:1!FA ! |":*/2*>d2 ͙  "  *-ͺʈ:҈:̀:~d&94=:A9QZ~>5́=:A98OG* 3{" !9" ~:ʋ #~# #^#V"-:R ʊ>[?>]ͫFցL%O! N#F#~: ʫ : * ì#2 ~#o&" >2 <2  GZ9" !$  ҫ0?<=: F F* @###^#VC<! : 2 {9*/j `iү+". oo<Ó5" ! " !*-}<ʴ"$ * "& 2*! – á >2&2*>^@*& |$ *$ "-͆&:'G{<2">2R 1!J V9** ͺ,1ˆ:** ʹV9J V9>2 12 `i *, ʹe `i", ~,ͫM AOGͫ¯ͫAGͫx3À: * *-ʹ# ү > 2 N-`i$ ͙ " $ "-!F>:yHG+ͫȸ#"<֌W1ͺ" ̀ͧ!͈9P*X #^#V*/ʹD*+ʹL*( ʹL>#"#V9…ͫͺzs PYү" :! :#_- ͆&~Gʔͺ+K xʓ,Õ! " <2#~z€<ͫ* * "-~#####͆&$  ͺ,*  |" 2 " ý ̀~,̫4ͺ+9Lͫ} }ÒͫNN<>2&o\2+ͫʆa(BB,;̀?5"*5|*X :&ʿ:%:'G: "> "o: 6!> > *5|:"=2 *5|% ~9:&+:%p3:(G: 9/t̓&ͺ)+o*5|% ~o:&l:%o: / xͫv2&go"5ͺ#21̈́:ڝ8"?REDO FROM START : !|"* Z2!#">2*6"ͺ;"͙ ڝ#~+6,!*. 2 -ͺ,1~,U: >?͙ ڝ#~+*5|2‚ͫWG"u:,+9"!ͫxi>b>+ͫʝ,+ͫ): k*5|!|"Æ?Extra ignored #~#$ #^#V" ͫU1" ͙  " ~#~#.39n6M9D9͓9W####N#F#^#Vi`q;: 7r+s^#V#9D9i"-i`B" * ~,Fͫͺ(+ "" *" ~ڲҲW " ͫÖzG~" _: y#!MxVz-Q;z;!X : === !N#F#N#F#!T N#F#N#F*!KGd* Ã=:&9D&:&xdd!*X w&y2 xʗ: ʿWxzʈ:!w N#F*X i:́9"V "T 69i:!c: O ~#fó92 ʥ"X ê=:!mð&9]:A9"Z "X ]:&9]:8ͫ$ i> &<.=Ҷʨ"6"ʱ&Gͫ:#i Xͫ* C<‡ͫͺ(#t̓&͚2w1ͺ)|%:o $$ 6 |ͺ)}̓*" 81"X {9&ͫOH#:)0)G)7))))o7+ͫ)8 7)))0O %:#~ցOͫyY|ͺ,̈́:*X ͆&n͠} j=: N#fi#~#N#F#^#N#F{zد< #ʌ?8< 9Z̓:}/o|/g"X Ï: 7:zM<{;k F{o|P{o|< {o|2{/o|/}//o|//+ͫͺ,#2 F OͫJWOͫKK~%$!#xA_!0 V+z2 ͫ: =d~(1312 *( ** ʹo>&ã|wʹʹO*, ͼ ", `i"* +6ʹs#s#rW_2[ go"X /! "X * W*, ʹ: ʦ#‡~#ˆ~>##^#V#j:  DM7  $ w#_q#p#O ##" q#: y q#p#E;=BKڡ ", +6ʹW* ^) ++s#r#8 GO~#^#V#ʹҡE;=DM : DM)0 )5 )5 *" *, !9W #Ϳ"*+* }o|gC<:%i : og%:͎ ͠N#F!7: #!X ͫҦ ڦ ͫ: O! ͎ ͺg&s#rʭ !!s#r~(ͫ1~)ͺ, !: "" ~#fo ~(`!ͫ" !ͺ, >2 17҈:["ѯ~) !*" ͺ(* 1 ~)W!ͺ,ͺ,>!ͫͺ)>ͺ̀+ͫ ʶ!!Қ!p+qv!+p+qv!+p+q+p+qv! ["!YO q* *X ʹ!"u!! #~" w#q#pv!*-#| $ ͺ>2 G6QD "TD "?5"#$~#͕"N#F*"o͸#͕"! w#s#r+"P#~ K"K"<""̫#y*" >* "X >2 V9 ʹ" ~$ #5"#F9  Æ"*+* /O #ʹڳ"" #$ "* " !*+! * ʹ"0#*( ** ʹ#~###"1#_"*, ʹU#~#D9 #" N #* ʹ#"#ů#^#V#DM* ʹ`iʹ`i}+F+N+n& PY+DM* Ϳ q#pi`+"*X ̈́:~*X $ '"##* Ͱ#Ͱ#!W"~#N#Fo,- ù#̈́:*X #PYN* ʹ#G " * +F+N+ʹ" i #W~i ##^#V>'"͉&* sW"ͫͺ(͆&ͺ,̀ͺ)C$͉&F$$O$͉&> {'"_$* w#^$$$O>~w$x͕"#F#fh DM*"o͸##W"$k$~$ &o$=O~GC#i _#~#foFr~b>pͺ)Cͫ|> %͉&ͺ,̀̈́:ͺ,*X ̀ͺ)#7i #G=O>~x~#F#fh GN#^#Vt% k%#V%ѯx<#h%S%~ #~ #ͺ(1̈́:#^#V*+ʹڰ%"V9ͺ,͆&~ &ͺ̀#G!7y~<%yH #^#fk GN#~#foyw# %)&ͺ,͆&ͺ)͉&2$&i s&s&+ͫB&ͺ,͆&C&͆&2'V&/<2(ͫ̀:z͆&2D&2,&ͺ,Æ&ͫ̀j&+ͫ{>2& !"-N#F#xʢ *5|pN#F#ʹڡ " ?> &!&ß&~+#&&#~ ' c'&<~'#~#'' ̶:!:G@ #T]~5'#9'~6'y[R'~#_!+P'&+ͫ&' QD TD* ?: O ʕ' H '>&{: ڱ'!ʱ'#~ K9~#': ڷ' '.'D'E·'÷'{'* & W- (T]ʹ! |"! *( ʹ(`i"( E(~i ̀E(ͺ,͆&::[ :Z z6́̈́:ͺ;*X {(: ʅ(2 F#N#fiï(X~#\) ¥( ”(C>\*_W*W~#!)#))+>ʲ(+~#. )\ʐ(©($(*©(x#(~$> (#WV)~#.+)#),7)z@W)~#>.©(# V)~##+)T)T]^###xG#z+v)xv)~-q)v)>W)̀Cxz?|"+ͫ7ʮ)2 ;ʫ), ͫ~#N#fi_x¯()*r(#Æ>*)̀̈́:*X An$"*X G> ʕ) *z>+2#* <0*" ү`i##N#F#&|<>!?> ! ~#`*Gok*0ڇ* ҇*_zWk*!i*’*O++*1ڨ* ! ,#+#*c+-+J++(^+*[+>1*~+#*!D+7o_D+~!++ܡ++#~++&H*~>\+~D++͡+5+>\~ow+#J+6H*oʑ+ +ʓ+ ʱ+ʱ+ ʱ+ c+_±+>_ʹ+++c+ ~77#~+w#ã+y+>c+ o&DM#Ϳ w+#c+x+~++&z z G-!#-|"??+,Undefined line ,###N#F>!-* +p+q+w: ó,̀2ʡ1!$ ~}-#N>O #~ 9PY!$ 6i/ʞ1«-ѯÛ1<ʼ1!" ^#Vr+s̓2- PY-!-`i>".!$ ~Ć-i/&-̀2ʧ1!# ~+nk ̀2ʧ1! ~i *5~ʀDM$~̃-4~O#V pG.zw w23t2¡1!" ^#V~,+ͫ {ʶ1+s#r#6#6DM! {zV.w<.<ʼ1!! {w:3.9/!! ~!& .̓-.Æ~# .*5% ~#/+~#5O ~+~0/6/ /7>*5T]" N#F+q#p###6 N/i/=c/>w+w!% /7?*5$ 6#67̀#~ʳ1#^#fk_ڸ/N#~:ʼ/++@ʳ1y@ڳ1ҳ1l #0~.//7/#/z ʳ1ڳ1> //>  0/͕/l<ʤ1!\l w# 40ͺAͺS͕/:l!\l<¿1\̀#~ʡ1#N#F Oʓ0Iʓ0R¡1ͺ,#̫͆&ͺ,{ʧ1_̓2°1z͕/" 0{0!u~ 06B#6A#6S"5#l w# 0i/~ 1<ʼ1!17@?2C:$ 1!l6# R2ĕ/!mN2!uN2lʤ1O!  ~#y#2~ 2>. 2: W:'<2> l1~*6?# R2#t2ѻ¡1ͺ,`i"5+ͫ#̫͉̀&_:Yڧ1!9N#F ̈́2!& >>>ͧ!'"* ̈́9$>>>#<#N#fi2 {9x ,2Z2Z21̈́:W_z/ڭ1 33"%3G{,x%3PXz/s3!Oz"y^3 ʓ3 ^3O{,y3z/s3 ^3{ m3,> m3m3s3s33z/*3"~3 ¦3z/ڦ3 ~3,ʦ3 ž3z/ڦ3 ʦ3*5% 46!{ ʹ38"ͫi>ɷw#ç3ë03:Y22+ͫ3ͺ,ͺR 2Y21!6"9. :22Y*7"9"5z/<…4*/*+ ʹa4 /w#4ͪ ##"( !Y~226A :22Y:1ʢ F͆ͼ-Õ . 3+ͫz4X4 21z/<ʡ1*5% ~ʽ 4ý *5|B$ Ë3+ͫʻ4ͺ,ͺAÚ&ͳ,>.*( */ʹX4~#.4-:Y44=4~,ͫ͆&4ů4ѯt2ʧ1¡1& G~,̓&ͺAͺS1̈́:Oڹ1ҹ1q#s#r 571̈́:ͺ̀#F~O#^#V5*/ʹҶ5*( ʹڶ5Y*+* ʹ5y͕"##s#r#^#V#^#Vyx5yGyO55~#55> 56x'"W"ß5ͫͺ$ͺ(͆&~,06ͫt2¡1l2ͺ)}'"b6͡]6w# C6͆W"Éz/ڭ1P6!CD9z6D99x:[ 69Ҕ6/<&969c9gA7!X 6!77#47.W77G~_#~W#~O-7hcGy6JTeox62[ )zWyO6x\E7![ w6x![ 7F#~怩O69 4$ ~_#~W#~O!\ ~/woG}_}W}OP7CZQC7 o-yOzW{_xGS7V"vE88![ ~5pz68!e7t6!i7WEz6͸?1r8.͐8y27"7PX!6!7!X ~#8Wy7O|g}oxGz7CZQO&9!=398 .͐844+~2B8+~2>8+~2:8AOW_2E8}o|gxG>?S82E87y<=7{_zWyO)xG:E82E8y68![ 5687>.!d N#G.xʴ8}![ Gx8ƀw7c9w+8/67A9x7Gz6![ 47:[ :Z /<![ Op#6698<ʈ:!Z ~w9og%:ʈ:8*X ||8*X *Z D9"X `i"Z !X ^#V#N#F#X Z9: Gw#Z9!Z ~7w?##wy7O!^ U9Ç9!^ V9X T x8!88y!Z yͭ9#x+y+z+{z|88}8!^ V9e 8!88O!Z y#ª9+998*X ʈ:G:!7:[ .:͍:"X >2 ͓9aj$:Z:ʈ:A9:xc9!W F7*X :|U8ʈ:Z:!"T "V >>*: $ GOW_A9c9g:>A7|7-7z< 8:9:8:ʈ::![ ~:X ~͍:6{y6![ ~:;O+~+;!%:yA9c9+6:;!Z >_==2S )ڡ)^; ڡ=P;|G.);)ұ; ;=£;|;x*<;]:&9]:ô7x%:]:9| "<. < <7>{_zW}o|g=<÷;|G)<|%:Ooyg%:*X .<|:8;g{o(:*6=!\ L=G:Z !^ T 2C=# B=~/w!S Oyw#V=qv=NsY+k=a= W~w+€=y=!Z }=~w# •=8͆85>q=G4=͋=x µ=¬=! qA>+=? >>+=:Z <==!T ͕=! ͓=x=![ 5=7y2d + ~q+@>́9+~7wf<476|:`h%:~&-ʆ>+ʆ>+ͫP?.?E£>ͫL>·>~% ?#?!?D>?!>ͫ-++ͫ?>_{-?=?>8!7.: >?Æ> #>??=:i:8J>=8=yZ:7ҥ?t$͓9?ͻ8͸?}?s:J>́98s:f<}?&98z6{ ?0_2>! |"%:p@ @{"p@?6+9 @6-8#60: W: @@y@͜C!g F : _ =@x*=@Aqͫ]@E]@D]@0=@,=@.`@+60{i@+6${+p2 !g 6 WRB@Ҕ@B60K9C+~0ʣ@.K9@>"w#6+@6-/</ @:#p#w#6!g #zVAABzB͜C{̬8=B&@ Ap#6!f #:" ~ A*A+$Aͫ-+$0NA#ͫNA++wDAANA6%ArAC9A?+6%͓9iA8RBA_xBBCBB@_y;?A=?A{_xABBAByBOBGOCA*" =BPAZ:ѯB87RBy;?OzWO=? B.B/< B/>9=.C>9=p#=%C!T 39`Ck6<͍:69AD?BA9/{_#zW#yO++tC!7#69p#fC>âCGD>BN#F#*X /}o|gҵC"X p#=¢CBw1_cƤ~@zZrN vH Tʚ;@B''d GE(f կpD))))Dy=ʁDʍD0:ڊD ʚDlDjD!9&9!C39ñD=:8xDD 6yA9D:͓9|"Z "X ܝD9v7ʹ7&98;ʹ7:[ Ү8:ƀڮ8!e7n6ͮ7w69!6EfEJô7@.tpO.wnz*|P~&9;A9ʹ7&9~#39=ʹ7D9z6oE8!EE!F39!EȆw#O D9ʹ7:E<2E!FO n6A9{YOO6+F6!E4~֫Ew 6!FM9w+w+wE5Jʙ9v" GSљ e͘w>ROhFhiuh!mFn6&9I698&9:w6!qFt687YFk689!qFn69!uFWEId&X4#]I&9)F&969#F88D9:[ ڼFQY8!t6!FWE!mF J;xn{/|t1}=Z}~L~l */+6*Z~3â !I"+" * ^#V"t"H##^#V"##^#V"h##^#V" !"-2*2 2##"%! " *" !~>2Y"ZGF#~+w##lG+p"Z!ͫG/ʟG+6""Z#/ʟGͫGGpͫMʮGF ͫͺ:Gz{2YG" +ͫGͺ/ãG* +"  +:Y!F"792Y<s#r# =H#"/Iʹ "+" {ozg ?!pH|"!|"" ! "F Owned by Microsoft Memory size Bytes free BASIC Rev. 4.51 [CP/M Version] Copyright 1977 (C) by Microsoft 0 REM R O C K E T L A N D E R 2 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 5 OUT 2,26 10 P=1 11 REM ....P IS THE INPUT PORT NUMBER FOR YOUR KEYBOARD...... 15 REM 20 REM 70 PRINT "LUNER LANDING SIMULATIONS" 80 PRINT "----- ------- -----------" 100 PRINT:INPUT "Do you want instructions (Y or N)";ANS$ 110 IF ANS$="N"THEN 390 120 IF ANS$="n"THEN 390 160 PRINT 200 PRINT"You are landing on the moon and have taken over manual" 210 PRINT"control 500 feet above a good landing spot. You have a" 220 PRINT"downward velocity of 50 FT/SEC. 120 units of fuel remain." 225 PRINT 230 PRINT"Here are the rules that govern your space vehicle:" 240 PRINT"(1) After each second, the height, velocity and remaining" 250 PRINT" fuel will be reported." 260 PRINT"(2) After the report, a `?' will be typed. Enter the" 270 PRINT" number of units of fuel you wish to burn during the " 280 PRINT" next second. Each unit of fuel will slow your descent." 290 PRINT"(3) The maximum thrust of your engine is 30 FT/SEC/SEC or" 300 PRINT" 30 units of fuel per second" 310 PRINT"(4) When you contact the lunar surface, your engine will" 320 PRINT" automatically shut off and you will be given a" 330 PRINT" report of your landing speed and remaining fuel" 340 PRINT"(5) If you run out of fuel, the `?' will no longer appear," 350 PRINT" but your second by second report will continue until" 360 PRINT" you contact the lunar surface.":PRINT 365 PRINT:INPUT "HIT TO CONTINUE...";W9 390 PRINT CHR$(26):PRINT:PRINT"BEGINING LANDING PROCEEDURE.........":PRINT 410 PRINT"G O O D L U C K ! ! ! " 420 PRINT:PRINT 440 PRINT"SEC FEET SPEED FUEL PLOT OF DISTANCE" 450 PRINT 455 T=0:H=500:V=50:F=120 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" 500 INPUT B 510 IF B<0 THEN 650 520 IF B>30 THEN B=30 530 IF B>F THEN B=F 540 V1=V-B+5 560 F=F-B 570 H=H-.5*(V+V1) 580 IF H<=0 THEN 670 590 T=T+1 600 V=V1 610 IF F>0 THEN 490 615 IF B=0 THEN 640 620 PRINT:PRINT"* * * OUT OF FUEL * * *" 640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" 650 B=0 660 GOTO 540 670 PRINT:PRINT"* * * * CONTACT * * * *" 680 H=H+.5*(V+V1) 690 IF B=5 THEN 720 700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B) 710 GOTO 730 720 D=H/V 730 V1=V+(5-B)*D 760 PRINT" Touchdown at";T+D;"seconds." 770 PRINT" Landing velocity =";V1;"FT/SEC" 780 PRINT F;"units of fuel remaining." 790 IF V1<>0 THEN 810 800 PRINT:PRINT"Congratulations!!! A perfect landing!" 805 PRINT"Your license will be renewed ....... later." 808 GOTO 845 810 IF ABS(V1)<2 THEN 840 820 PRINT:PRINT" * * * Sorry, but you blew it Kiddo!!!!" 825 PRINT" This was our only chance to make contact with Extraterrestrial" 827 PRINT" beings. Inappropriate condolences might be sent to your" 830 PRINT" next of kin." 835 GOTO 845 840 PRINT:PRINT"Well .... that was OK. But not too spectacular..." 845 PRINT:PRINT 850 INPUT "Another mission, anyone";ANS$ 855 IF ANS$="Y" THEN 390 860 IF ANS$="y" THEN 390 880 PRINT:PRINT "Control out. ":PRINT 999 SYSTEM u blew it Kiddo!!!!" 825 PRINT" This was our only chance to make contact with Extraterrestrial" 827 PRINT" beings. Inappropriate condolences might be sent to your" 830 PRINT" next of kin." 835 GOTO 845 840 PRINT:PRINT"Well .... that was OK. But not too spectacular..." 845 PRINT:PRINT 850 INPUT "Another mission, anyone";ANS$ 855 IF ANS$="Y" THEN 390 860 IF ANS$="y" THEN 310 'EXPANDED APRIL 1977 BY W.A. BURTON 20 'PIRATED JAN. 1978 BY ZOSO 30 DIM G(8,8),S(8,8),K(3,3) 40 PRINT CHR$(26) 50 GOSUB 5470 60 PRINT 70 INPUT "What is your security clearance number (1 TO 1000)";T9 80 E8=T9 90 IF T9<1 OR T9>1000 THEN PRINT AR$;"INVALID!! REENTER!!":GOTO 70 100 FOR A=1 TO T9/2 110 R9=RND(1):R9=RND(2) 120 NEXT 130 CLEAR:PRINT CHR$(26):INPUT" Enter rank (1=Low,12=High)";R9 140 IF (R9<1 OR R9>12) THEN GOTO 130:RR=R9 150 X4=R9:R9=R9+1E-03:W1=W1+1E-03 160 PRINT CHR$(26) 170 PRINT "Command order : STAND BY !" 180 PRINT "You are presently being assigned to a mission..." 190 PRINT " with a failure factor of"; (RR*20) 200 PRINT" Good-bye, Captain..." 210 CX=.017453:AR$=" ---> " 220 XA=INT(X4*50):AC=(1/(X4+.1)) 230 IF X4>=9 THEN 3800 240 E=3000-XA+100:P=10:S9=200 250 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2) 260 Q1=INT(RND(1)*8+1):Q2=INT(RND(1)*8+1) 270 S1=INT(RND(1)*8+1):S2=INT(RND(1)*8+1) 280 DATA Warp Engines,Short Range Sensors,Long Range Sensors 290 DATA Phasers, Photon Torpedoes,Shield Control 300 DATA Damage Control, Computer,Damage Repair,Communications 310 FOR A=1 TO 10:READ D$(A):NEXT A 320 A$(0)=" . ":A$(1)=" E ":A$(2)=" * ":A$(3)=" K ":A$(4)=" B " 330 F1=.86:F2=.01:F3=.95:F4=.99:K9=0:B9=K9 340 FOR I=1 TO 8:FOR J=1 TO 8:R1=RND(1):R2=RND(1):R3=INT(8*RND(1)+1) 350 K3=-(R1>F1-F2*R9)-(R1>F3-F2*R9)-(R1>F4-F2*R9):K9=K9+K3 360 B3=-(R2>F3):B9=B9+B3:G(I,J)=100*K3+10*B3+R3:NEXT J,I 370 IF NOT(B9>0 AND K9>0)THEN 330 380 PRINT"Objective:Destroy"K9"Klingons using"B9"starbase"; 390 U=K9:Y=B9 400 IF B9=1 THEN PRINT" ";:GOTO 420 410 PRINT"s "; 420 T9=K9+RND(1)*K9/R9+10-R9:PR=T9/K9:PRINT"in"T9"stardays." 430 GOSUB 4270 440 S3=0:B3=S3:K3=B3:FOR A=1 TO 8:FOR B=1 TO 8:S(A,B)=0:NEXT B,A 450 FOR A=1 TO 3:FOR B=1 TO 3:K(A,B)=0:NEXT B,A:S(S1,S2)=1 460 X=.01*G(Q1,Q2):K3=INT(X):Y=(X-K3)*10:B3=INT(Y) 470 S3=G(Q1,Q2)-100*K3-10*B3 480 IF K3=0 THEN FOR A=1 TO 3:FOR B=1 TO 3:K(A,B)=0:NEXT B,A:GOTO 520 490 PRINT AR$;"CONDITION RED !!!!!":FOR A=1 TO K3 500 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 500 510 S(R1,R2)=3:K(A,1)=R1:K(A,2)=R2:K(A,3)=S9:NEXT A:IF B3=0 THEN 550 520 IF B3=0 THEN 550 530 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 530 540 S(R1,R2)=4 550 IF S3=0 THEN 590 560 FOR A=1 TO S3 570 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 570 580 S(R1,R2)=2:NEXT A 590 G(Q1,Q2)=INT(G(Q1,Q2))+.5 600 PRINT 610 PRINT"QUADRANT (";MID$(STR$(Q1),2,1);",";MID$(STR$(Q2),2,1);")" 620 PRINT"SECTOR (";MID$(STR$(S1),2,1);",";MID$(STR$(S2),2,1);")" 630 IF KP<>0 THEN 4060 640 IF DT=1 THEN 2680 650 IF S<200*K3 THEN PRINT AR$;"Shield Energy too low":SL=1:A=6:GOTO 750 660 A=2: GOTO 750 670 PRINT 680 PRINT D$(2):FOR A=1 TO 8:FOR B=1 TO 8:PRINT A$(S(A,B));:NEXT B:PRINT:NEXT A 690 PRINT:PRINT"Shields";S;SPC(4);"Energy";E;SPC(4);"Photons";P; 700 PRINT SPC(4);"Stardays";T9-T 710 GOSUB 3220:INPUT"Command";A 720 IF A>10 OR A<0 THEN INPUT" ----> COMMAND";A 730 IF A>10 OR A<0 THEN PRINT"WARNING - PROPER COMMANDS ONLY !! ":GOTO 710 740 IF A=1 THEN 780 750 IF D(A)>=0 THEN 780 760 PRINT AR$;"Captain, we don't have ";D$(A);" anymore." 770 IF DT=1 THEN 2680 ELSE 710 780 ON A GOTO 820,670,1470,1530,1790,2140,2230,2680,4910,3910 790 PRINT:FOR A=1 TO 9:PRINT A;" = ";D$(A):NEXT A 800 A=10 810 PRINT A;"= ";D$(A):GOTO 710 820 INPUT"COURSE";C1:IF C1<0 OR C1>359.99 THEN 850 830 INPUT"WARP FACTOR";W1 840 SL=0:KP=0:GOTO 860 850 PRINT AR$"REJECTED ! Course must be in range of o to 359.99 degrees." 860 IF NOT(W1>0)THEN 710 870 IF D(1)>=0 OR W1<=AC THEN 900 880 PRINT AR$;"Warp Engines are damaged, maximum speed = ";AC 890 GOTO 820 900 TEC=TEC+1:C$="":IF K3>0 THEN GOSUB 2290 910 IF E>5*W1 THEN 980 920 IF S<1 THEN 2450 930 PRINT"Captain, you only have"E"units of energy. " 940 PRINT"Refuel from your Shield reserves, which have"S"units"; 950 Q9$="NO":INPUT " ";Q9$:IF (Q9$="Y" OR Q9$="YES") THEN GOSUB 6860 960 A=6:IF D(A)<0 THEN 2450 970 GOTO 710 980 FOR I=1 TO 10:IF D(I)>=0 THEN 1020 990 D(I)=D(I)+1:IF D(I)<0 THEN 1020 1000 IF D(7)<0 THEN 1020 1010 PRINT"Damage Control report: "D$(I)" repaired." 1020 NEXT I:IF RND(1)>.1 THEN 1130 1030 IF RND(1)>.1 THEN 1130 1040 GOTO 1100 1050 IF RND(1)>R9/10 THEN RETURN 1060 R1=INT(RND(1)*8+1):IF D(R1)<0 THEN RETURN 1070 D(R1)=D(R1)-10*RND(1)-1:IF D(7)<0 THEN RETURN 1080 IF D(7)<0 THEN RETURN 1090 PRINT:PRINT"Damage Control report: "D$(R1)" out.":PRINT:RETURN 1100 R1=INT(RND(1)*8+1):IF D(R1)>=0 THEN 1130 1110 IF D(7)<0 THEN 1130 1120 PRINT:D(R1)=0:PRINT"Damage Control report: "D$(R1)" repaired.":PRINT 1130 W1=W1*8:A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF W1<1 THEN W1=W1*1.25 1140 E=E-2*W1:T=T+W1/25:IF T>T9 THEN 2520 1150 A2=INT(A1+W1*COS(C1*CX)+.5) 1160 B2=INT(B1+W1*SIN(C1*CX)+.5) 1170 IF NOT(A2<0 OR A2>63 OR B2<0 OR B2>63)THEN 1200 1180 PRINT AR$;"Captain, heed Starfleet regulations! ( STAY IN GALAXY ) !! 1190 T=T+W1/24:GOTO 710 1200 DEF FNA1(X)=INT(.5+A1+X*COS(C1*CX)) 1210 DEF FNB1(X)=INT(.5+B1+X*SIN(C1*CX)) 1220 FOR X=0 TO INT(W1) 1230 IF NOT(Q1=8-INT(FNB1(X)/8)AND Q2=INT(FNA1(X)/8+1))THEN X=W1:GOTO 1400 1240 S3=8-FNB1(X)+8*INT(FNB1(X)/8):S4=FNA1(X)+1-8*INT(FNA1(X)/8) 1250 IF S(S3,S4)<2 THEN 1400 1260 S(S1,S2)=0:S1=8-FNB1(X-1)+8*INT(FNB1(X-1)/8) 1270 S2=FNA1(X-1)+1-8*INT(FNA1(X 1)/8):S(S1,S2)=1 1280 PRINT AR$;"Navigational error :Engines shut down at ("; 1290 PRINT MID$(STR$(S1),2,1);","MID$(STR$(S2),2,1);")" 1300 T=T+(W1/24) 1310 PRINT" You lost "T" units startime restarting engines." 1320 PRINT 1330 IF S(S3,S4)<>4 THEN 710 1340 PRINT"Shields lowered for refueling" 1350 S=0:P=10:C$="D":E=3000-XA+100 1360 GOSUB 2290 1370 FOR R1=1 TO 10 1380 IF D(R1)>=0 THEN NEXT R1:GOTO 710 1390 D(R1)=D(R1)+(11*RND(1)/R9):NEXT R1:GOTO 710 1400 NEXT X:S(S1,S2)=0:S1=8-B2+8*INT(B2/8):S2=A2+1-8*INT(A2/8) 1410 Q3=8-INT(B2/8):Q4=INT(A2/8)+1 1420 IF NOT(Q1=Q3 AND Q2=Q4)THEN Q1=Q3:Q2=Q4:GOTO 440 1430 S(S1,S2)=1:FOR A=S1-1 TO S1+1:FOR B=S2-1 TO S2+1 1440 IF A>8 OR B>8 OR A<1 OR B<1 THEN 1460 1450 IF S(A,B)=4 THEN 1340 1460 NEXT B,A:GOTO 710 1470 PRINT 1480 FOR A=(Q1-1) TO (Q1+1):FOR B=(Q2-1) TO (Q2+1) 1490 IF A<1 OR B<1 OR A>8 OR B>8 THEN PRINT" ***";:NEXT B:PRINT" ":PRINT:NEXT A:GOTO 710 1500 PRINT" "SPC(3-LOG(G(A,B)+1)/LOG(10)); 1510 PRINT MID$(STR$(G(A,B)),2,LOG(G(A,B))/LOG(10)+1); 1520 G(A,B)=INT(G(A,B))+.5:NEXT B:PRINT" ":PRINT:NEXT A:GOTO 710 1530 PRINT 1540 IF K3<=0 THEN 2270 1550 IF D(8)>=0 THEN 1570 1560 PRINT AR$;" Computer failure hampers accuracy" 1570 PRINT"Phasers locked on target. Energy available="E 1580 PRINT"Number of units to fire:"; 1590 INPUT X 1600 IF E-X<0 THEN PRINT"NOT ENOUGH POWER":GOTO 710 1610 T=T+.05:IF T>T9 THEN 2520 1620 E=E-X 1630 IF C$<>"D"THEN GOSUB 2290 1640 IF D(8)>=0 THEN 1660 1650 X=X*RND(1) 1660 FOR I=1 TO 3 1670 IF K(I,3)<=0 THEN 1770 1680 H=(X/FND(0))+SGN(RND(1)-.5)*8*RND(1) 1690 K(I,3)=K(I,3)-H 1700 PRINT H"Unit hit on vessel at (";MID$(STR$(K(I,1)),2,1);","; 1710 PRINT MID$(STR$(K(I,2)),2,1);"), leaving"K(I,3)" 1720 IF K(I,3)>0 THEN 1770 1730 PRINT"Klingon at (";MID$(STR$(K(I,1)),2,1);",";MID$(STR$(K(I,2)),2,1); 1740 PRINT") destroyed":K3=K3-1:K9=K9-1:IF K9=0 THEN 2650 1750 G(Q1,Q2)=G(Q1,Q2)-100:S(K(I,1),K(I,2))=0:K(I,1)=0:K(I,2)=0 1760 K(I,3)=0 1770 NEXT I 1780 GOTO 710 1790 PRINT 1800 IF P>0 THEN 1830 1810 PRINT AR$;"All Photon Torpedoes expended" 1820 GOTO 710 1830 INPUT"DIRECTION";C1 1840 T=T+.05:IF T>T9 THEN 2520 1850 P=P-1:IF C$<>"D" THEN GOSUB 2290 1860 A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF C1=90*INT(C1/90)THEN 2090 1870 DEF FNA1(W1)=INT(.5+A1+W1*COS(C1*CX)) 1880 DEF FNB1(W1)=INT(.5+B1+W1*SIN(C1*CX)) 1890 FOR W1=0 TO 10 STEP .9 1900 IF W1=0 THEN S3=S1:S4=S2:GOTO 1950 1910 IF NOT(Q1=8-INT(FNB1(W1)/8)AND Q2=INT(FNA1(W1)/8+1))THEN 710 1920 S3=8-FNB1(W1)+8*INT(FNB1(W1)/8):S4=FNA1(W1)+1-8*INT(FNA1(W1)/8) 1930 IF FNA1(W1)=A2 AND FNB1(W1)=B2 THEN 2070 1940 A2=FNA1(W1):B2=FNB1(W1) 1950 PRINT"(";MID$(STR$(S3),2,1);",";MID$(STR$(S4),2,1);")";A$(S(S3,S4)) 1960 ON S(S3,S4)+1 GOTO 2070,2070,2050,1970,2040 1970 IF RND(1)<(.1*X4) THEN PRINT"Shields deflect Torpedo":GOTO 710 1980 PRINT"Klingon destroyed":S(S3,S4)=0:G(Q1,Q2)=G(Q1,Q2)-100 1990 K3=K3-1:K9=K9-1:IF K9=0 THEN 2650 2000 FOR A=1 TO 3 2010 IF K(A,1)=S3 AND K(A,2)=S4 THEN K(A,1)=0:K(A,2)=0:K(A,3)=0 2020 NEXT A 2030 GOTO 710 2040 PRINT AR$;"Starbase destroyed":B3=0:B9=B9-1:S(S3,S4)=0:GOTO 2060 2050 PRINT AR$;"You can't destroy a star":GOTO 710 2060 G(Q1,Q2)=G(Q1,Q2)-10:GOTO 710 2070 NEXT W1 2080 GOTO 710 2090 FOR W1=0 TO 8 2100 S3=INT(S1-W1*SIN(C1*CX)) 2110 S4=INT(S2+W1*COS(C1*CX)) 2120 IF S3>8 OR S4>8 OR S3<1 OR S4<1 THEN 710 2130 GOTO 1950 2140 PRINT 2150 PRINT"Energy available="E+S" Number of units to Shields"; 2160 INPUT X 2170 IF X<0 THEN 710 2180 IF E+S-X<0 THEN 2150 2190 E=E+S-X 2200 S=X 2210 IF SL=1 THEN 660 2220 GOTO 710 2230 PRINT 2240 PRINT"DEVICE STATE OF REPAIR" 2250 FOR R1=1 TO 10:PRINT D$(R1);TAB(21) D(R1):NEXT R1 2260 IF DT=1 THEN 2680 ELSE 710 2270 PRINT"Short Range Sensors report no Klingons in this quadrant" 2280 IF DT=1 THEN 2680 ELSE 710 2290 IF C$="D" AND K3<>0 THEN PRINT"Starbase protects Enterprise" ELSE 2310 2300 GOTO 710 2310 PRINT 2320 FOR I=1 TO 3 2330 IF K(I,3)<=0 THEN 2430 2340 H=K(I,3)/FND(0)+SGN(RND(1)-.5)*RND(1)*7 2350 S=S-H:PRINT H"Unit hit from ("MID$(STR$(K(I,1)),2,1);","; 2360 PRINT MID$(STR$(K(I,2)),2,1);"), leaving"S 2370 IF S<0 THEN 2550 2380 GOSUB 1050 2390 IF RND(1)>R9/10 THEN 2430 2400 R1=INT(8*RND(1)+1):R2=INT(8*RND(1)+1) 2410 IF NOT(S(R1,R2)=0)THEN 2400 2420 S(R1,R2)=3:S(K(I,1),K(I,2))=0:K(I,1)=R1:K(I,2)=R2 2430 NEXT I 2440 RETURN 2450 PRINT AR$;" Enterprise dead in space" 2460 PRINT 2470 CY=1:PRINT:GOTO 2590 2480 IF K3<=0 THEN 2590 2490 GOSUB 2290 2500 GOTO 2480 2510 PRINT 2520 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT AR$; 2530 PRINT"It is stardate"T:PRINT 2540 GOTO 2590 2550 PRINT 2560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT AR$; 2570 PRINT"Enterprise disabled !!":PRINT:PRINT 2580 CY=0 2590 PRINT"There are"K9"Klingons remaining.":IF CY<>0 THEN 3560 2600 PRINT"You have failed !!":PRINT 2610 L=INT(RND(1)*5) 2620 ON L+1 GOTO 3440,3470,3490,3510,3540 2630 PRINT:INPUT"Do you want to try again";X$ 2640 IF LEFT$(X$,1)="Y" THEN 130 ELSE 5430 2650 PRINT"The Federation is saved !!" 2660 PRINT"You are hereby promoted to Admiral!!!!":PRINT 2670 GOTO 2630 2680 DT=1 2690 INPUT"Computer on--COMMAND";A: IF A=0 THEN GOTO 2720 2700 IF A<0 OR A>=10 THEN PRINT AR$;" NO SUCH COMMAND !!":GOTO 2690 2710 ON A GOTO 2900,2950,3000,2840,600,3400,3420,5120,710 2720 PRINT"FUNCTIONS AVAILABLE FROM COMPUTER" 2730 PRINT" 1 = Galactic Memory Map" 2740 PRINT" 2 = General Status Report" 2750 PRINT" 3 = Photon Trajectory" 2760 PRINT" 4 = New Mission" 2770 PRINT" 5 = Present Position" 2780 PRINT" 6 = Self-Destruct" 2790 PRINT" 7 = Warp-Compass" 2800 PRINT" 8 = Mission Progress Report" 2810 PRINT" 9 = Exit Computer" 2820 GOTO 2680 2830 PRINT:PRINT"--TEMPORARY MALFUNCTION--":GOTO 710 2840 IF XM<0 THEN 2880 2850 PRINT AR$;"Safety check -- Do you wish to abort mission":INPUT AN$ 2860 IF LEFT$(AN$,1)<>"Y" THEN 2890 ELSE 130 2870 PRINT 2880 PRINT"You have not been authorized for new mission !!":PRINT 2890 GOTO 2680 2900 PRINT"QUADRANT CODE MEMORY MAP" 2910 FOR A=1 TO 8:FOR B=1 TO 8:IF G(A,B)=INT(G(A,B))THEN PRINT" ???";:GOTO 2940 2920 PRINT" "SPC(3-LOG(G(A,B)+1)/LOG(10)); 2930 PRINT MID$(STR$(G(A,B)),2,LOG(G(A,B))/LOG(10)+1); 2940 NEXT B:PRINT" ":NEXT A:GOTO 2680 2950 PRINT" STATUS REPORT" 2960 PRINT"Number of Klingons left ="K9 2970 PRINT"Number of stardates left ="T9-T 2980 PRINT"Number of Starbases left ="B9 2990 A=7:GOTO 750 3000 IF K3=0 THEN 2270 3010 IF D(2)<0 THEN A=2:GOTO 740 3020 PRINT"COORD","LOWDIR","HIGHDIR","DIST" 3030 FOR A=1 TO 47:PRINT"-";:NEXT A 3040 PRINT 3050 FOR I=0 TO 3 3060 IF NOT(K(I,3)>0)THEN 3190 3070 W1=SQR((S1-K(I,1))^2+(S2-K(I,2))^2) 3080 IF W1=0 THEN PRINT"--->MALFUNCTION !":GOTO 710 3090 ON ERROR GOTO 2830 3100 C1=1.5708-ATN((K(I,2)-S2)/W1/SQR(1-((K(I,2)-S2)/W1)^2)) 3110 ON ERROR GOTO 2830 3120 C1=C1*SGN(S1-K(I,1))/CX 3130 C2(I)=C1-(10*RND(1)) 3140 C3(I)=C1+(10*RND(1)) 3150 IF C3(I)<0 THEN C3(I)=C3(I)+360 3160 IF C2(I)<0 THEN C2(I)=C2(I)+360 3170 PRINT"(";MID$(STR$(K(I,1)),2,1);",";MID$(STR$(K(I,2)),2,1); 3180 PRINT")",C2(I),C3(I),W1 3190 NEXT I 3200 IF DT=1 THEN 2680 ELSE 710 3210 RETURN 3220 MR=(T9-T)/K9:DT=0 3230 XM=((MR-PR)/PR)*100 3240 IF KA=1 THEN PRINT TK-T"stardates left to save Starbase.":GOTO 3330 3250 IF RND(1)>.01*R9 OR B9=0 THEN RETURN 3260 KA=1:FOR A=1 TO 8:FOR B=1 TO 8 3270 IF G(A,B)-100*INT(G(A,B)/100)>9 THEN K1=A:K2=B:IF RND(1)>.5 THEN A=8:B=8 3280 NEXT B,A:TK=T+.09*SQR((Q1-K1)^2+(Q2-K2)^2)*(10-R9) 3290 TK=TK+1 3300 PRINT AR$;"!!! Starbase in quadrant ("MID$(STR$(K1),2,1)","; 3310 PRINT MID$(STR$(K2),2,1)") is under attack!!" 3320 PRINT"You have"TK-T"stardates to save it!":RETURN 3330 IF T1 THEN 4230 ELSE 5320 3410 GOTO 710 3420 GOSUB 3660 3430 GOTO 2680 3440 PRINT"You have screwed up once too often !" 3450 PRINT"Off to the Vulcan torture camps !!" 3460 IF T<= 0 THEN 2630ELSE 3560 3470 PRINT"You will be executed at sunrise" 3480 GOTO 3560 3490 PRINT"You will be put to death for your incompetence" 3500 GOTO 3560 3510 PRINT"You will be confined to your quarters until" 3520 PRINT"Vulcan's moons become tourist traps !!" 3530 IF T<=0 THEN 2630ELSE 3560 3540 PRINT"Imbecile !! We hope you consider suicide!" 3550 IF T<=0 THEN 2630ELSE 3560 3560 L=(U-K9)*10+((U-K9)*500/T)-100*(Y-B9) 3570 IF E<=0 OR S<0 THEN L=L-200 3580 IF K9=0 THEN L=L+(R9*100) 3590 PRINT:PRINT 3600 PRINT"Your mission rating is: ";L 3610 PRINT:PRINT:PRINT:PRINT:PRINT 3620 GOSUB 5450 3630 PRINT CHR$(26) 3640 GOTO 5460 3650 GOTO 2630 3660 PRINT 3670 PRINT" O9O" 3680 PRINT" 135 . O45" 3690 PRINT" . . ." 3700 PRINT" . . ." 3710 PRINT"18O . . . E . . .OOO WARP-COMPASS" 3720 PRINT" . . ." 3730 PRINT" . . ." 3740 PRINT" 225 . 315" 3750 PRINT" 27O" 3760 PRINT 3770 RETURN 3780 XX=INT(RND(2)*10)+1 3790 RETURN 3800 PRINT:IF X4>12 THEN 3900 3810 PRINT"Command Central advises that your ranking-";X4;"-is in the expert" 3820 PRINT"category. Be advised that if you are not properly qualified" 3830 PRINT"your chances of avoiding failure are nil." 3840 PRINT 3850 PRINT"Do you wish reassignment to a less hazardous mission (Y or N)" 3860 INPUT AN$ 3870 IF LEFT$(AN$,1)="Y"THEN 130 3880 IF LEFT$(AN$,1)="y" THEN 130 3890 PRINT CHR$(26):GOTO 240 3900 PRINT"You have requested a suicide mission":GOTO 3840 3910 PRINT"--COMMUNICATIONS ACTIVE--" 3920 PRINT 3930 GOSUB 3780 3940 PD=XX 3950 GOSUB 3780 3960 PE=XX 3970 GOSUB 3780 3980 PF=XX 3990 GOSUB 3780 4000 PG=XX 4010 PH=PD*10+PE 4020 PJ=PF*10+PG 4030 IF PH=PJ THEN 2830 4040 KP=1:IF PD=PE OR PF=PG THEN 4050ELSE 4070 4050 PRINT"Sunspots block transmission at : ":GOTO 610 4060 PRINT"Move elsewhere and try again":PRINT:GOTO 820 4070 PRINT"Authorized frequencies":PRINT 4080 PRINT"Federation Command Base = ";PH 4090 PRINT"Klingon Command Central = ";PJ 4100 PRINT 4110 INPUT"Communication on channel ";XF 4120 IF XF=PH THEN 4340 4130 IF XF=PJ THEN 4630 4140 PRINT 4150 PRINT AR$;"ALERT !!" 4160 PRINT"Attempted communication on unauthorized frequency" 4170 PRINT 4180 PRINT"While security check is conducted on enterprise" 4190 GOSUB 3780:A=XX 4200 GOSUB 3780:I=(XX/2)+(X4/7) 4210 PRINT"Your ";D$(A);" will be inoperative for ";I "units of startime" 4220 D(A)=D(A)-I:GOTO 710 4230 PRINT 4240 PRINT"Security Control advises that no authorization has been" 4250 PRINT"given to activate Self- Destruct system." 4260 PRINT"Proceed with assigned mission":PRINT:GOTO 2690 4270 PRINT 4280 PRINT"Be advised, your mission progress factor is";PR 4290 GOSUB 3780 4300 TF=(XX*X4)/1.6:IF TF<10 THEN TF=TF+10 4310 PRINT" The tolerance factor for this mission is [+/-]";TF;"percent" 4320 PRINT 4330 RETURN 4340 ON SGN(XM)+2 GOTO 4350,4390,4410 4350 IF ABS(XM)>(TF*1.5)THEN 4470 4360 IF ABS(XM)>TF THEN 4440 4370 PRINT:PRINT"Captain, you are behind schedule - Let's go !!" 4380 GOTO 710 4390 PRINT:PRINT"You are exactly on computed schedule; Proceed with mission" 4400 GOTO 710 4410 IF XM>TF THEN 4560:IF XM>(TF*1.5)THEN 4590 4420 PRINT:PRINT"You are ahead of computed schedule, keep up the good work !!" 4430 GOTO 710 4440 PRINT:PRINT"You are behind schedule and out of tolerance factor !!" 4450 PRINT"Command Control projects failure...you may surrender to enemy" 4460 EQ=1:SD=1:GOTO 3910 4470 YY=AC^X4 4480 PRINT CHR$(26) 4490 PRINT AR$;"---------COMPUTER PROJECTION----------":PRINT 4500 PRINT"Projected likelihood of success for your mission =";YY;"percent" 4510 PRINT"We have auto activated Self-Destruct system on your vessel" 4520 PRINT"Goodbye, Captain.............":PRINT 4530 PRINT"End of message from Federation Command":PRINT:PRINT 4540 GOSUB 5450 4550 GOTO 5320 4560 PRINT:PRINT"You are ahead of schedule and beyond tolerance factor" 4570 PRINT"Call Klingon leaders and request their surrender":KQ=1 4580 PRINT:GOTO 3910 4590 PRINT AR$;"Message from Command base" 4600 PRINT:PRINT"Enemy has surrendered to Federation Command !!" 4610 PRINT:PRINT:PRINT:PRINT 4620 GOTO 2650 4630 IF KQ=1 THEN 4880:IF EQ=1 THEN 4660 4640 ON SGN(XM)+2 GOTO 4650,4710,4760 4650 IF ABS(XM)<=TF THEN 4710 4660 PRINT:PRINT"Klingon command on frequency" 4670 PRINT"Naturally, we are pleased that you are conceding, Captain" 4680 PRINT"We are presently boarding your craft" 4690 PRINT:PRINT"Here is a message from your leaders-":PRINT:GOSUB 5450 4700 PRINT CHR$(26):GOTO 2610 4710 GOSUB 3780 4720 IF XX<=5 THEN 4750 4730 PRINT:PRINT"Message from Klingon Command...." 4740 PRINT"Eat Phaser Death, Federation dogs!!":GOTO 4840 4750 PRINT:PRINT"We'll talk with our weapons, Earth-swine !!":GOTO 4840 4760 GOSUB 3780 4770 AQ=INT((XX+1)/2) 4780 ON AQ GOTO 4730,4750,4790,4790,4760 4790 GF=TF*1.5 4800 IF XM>GF THEN 4880 4810 IF XM>TF THEN 4850 4820 PRINT:PRINT"Captain, despite your slight advantage, you are no match for" 4830 PRINT"the glorious Klingon Fleet" 4840 PRINT TAB(25)"End of message from Klingon Command":GOTO 710 4850 GOSUB 3780 4860 IF XX<=5 THEN PRINT" Klingon command to Enterprise..":GOTO 4750 4870 GOTO 4890 4880 PRINT CHR$(26) 4890 PRINT:PRINT"Message from Klingon leaders..." 4900 PRINT:PRINT"We concede the war, Sir, congratulations !!":GOTO 3610 4910 AV=INT(X4/2)+1:DR=-1 4920 IF TEC"D" THEN 4980 ELSE 5000 4940 AU=AV-TEC:IF AU=1 THEN KF$=""ELSE KF$="s" 4950 PRINT:PRINT"Damage Repair inactive !!" 4960 PRINT"Requires";AU;"more recharge unit";KF$ 4970 PRINT:GOTO 710 4980 PRINT:PRINT AR$"You must be docked at Starbase for Damage Repair !!" 4990 PRINT:GOTO 710 5000 PRINT 5010 PRINT:FOR A=1 TO 10 5020 IF D(A)<0 THEN PRINT TAB(10)A;TAB(20)D$(A);TAB(40)"damaged" 5030 NEXT 5040 PRINT:PRINT"If no damage indicated above, answer with 0 (ZERO)" 5050 INPUT "Which one to repair ";A 5060 IF A<1 OR A>10 THEN PRINT AR$;:GOTO 710 5070 IF D(A)<0 THEN 5090 5080 PRINT:PRINT D$(A);" not damaged !!":GOTO 5050 5090 PRINT:PRINT TAB(20)D$(A);"-- repaired":PRINT 5100 D(A)=0:TEC=0:GOTO 710 5110 PRINT:PRINT AR$;"Nothing damaged at present":GOTO 710 5120 PRINT 5130 GOSUB 4310 5140 PRINT"Initial mission progress factor was";PR 5150 PRINT"Current mission progress factor is ";MR 5160 IF XM<0 THEN PW$=" worsened "ELSE PW$=" improved " 5170 PRINT 5180 PRINT"Your combat situation has";PW$;"by a factor of";XM;"percent" 5190 IF ABS(XM)>=TF THEN EG$=" not "ELSE EG$=" " 5200 IF EG$=" "THEN EH$=""ELSE EH$=AR$ 5210 PRINT EH$;"Your progress is";EG$;"within tolerance for this mission" 5220 PRINT 5230 IF EG$=" not "THEN 5240 ELSE 2680 5240 IF XM<0 THEN 5250 ELSE 5290 5250 PRINT:SD=1:KD=0 5260 PRINT"Captain, Command Central projects defeat by enemy. You are now" 5270 PRINT"authorized to surrender or to activate Self-Destruct system" 5280 GOTO 2680 5290 PRINT:SD=0:KD=1 5300 PRINT"Captain, Federation Command projects success for your mission." 5310 GOTO 4560 5320 PRINT CHR$(26) 5330 GOSUB 5440 5340 PRINT"Self Destruct System activated" 5350 PRINT:PRINT:PRINT:GOSUB 5440 5360 PRINT"COUNTDOWN BEGUN !":PRINT:PRINT 5370 PRINT TAB(25)"FIVE":PRINT:GOSUB 5440 5380 PRINT TAB(20)"FOUR":PRINT:GOSUB 5440 5390 PRINT TAB(15)"THREE":PRINT:GOSUB 5440 5400 PRINT TAB(10)"TWO":PRINT:GOSUB 5440 5410 PRINT TAB(5)"ONE":PRINT:GOSUB 5440 5420 PRINT"ZERO":GOSUB 5440 5430 PRINT CHR$(26):GOTO 5460 5440 FOR I=1 TO 50:A=A+1:NEXT:RETURN 5450 FOR I=1 TO 1200:A=A+1:NEXT:RETURN 5460 GOTO 6910 5470 REM INTRODUCTION TO GAME. R.SCHRADER, 1/12/83 5480 REM WITH ADDITIONS AND CORRECTIONS BY V. STAPEL 5490 PRINT:PRINT:PRINT:PRINT 5500 PRINT " SPACE - THE FINAL FRONTIER!":PRINT 5510 PRINT " THESE ARE THE VOYAGES OF THE STARSHIP ENTERPISE. THE MISSION: " 5520 PRINT " TO SEEK NEW LIFE AND NEW CIVILIZATIONS; TO BOLDLY GO WHERE NO" 5530 PRINT " MAN HAS GONE BEFORE.":PRINT:PRINT:PRINT:PRINT 5540 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT "Do you need instructions";Q9$ 5550 IF LEFT$(Q9$,1)="N" THEN RETURN 5560 IF LEFT$(Q9$,1)="n" THEN RETURN ELSE PRINT CHR$(26) 5570 PRINT " ********** WELCOME TO STARTREK **********":PRINT 5580 PRINT " You are in control of the Starship Entrprise. Your mission" 5590 PRINT "will be to rid the galaxy of Klingons." 5600 PRINT " The known galaxy is mapped into 64 quadrants (8 X 8). Each" 5610 PRINT "quadrant is composed of 64 sectors (also 8 X 8)." 5620 PRINT " A map of the galaxy, as represented by your on-board Com-" 5630 PRINT "puter, looks like this:":PRINT 5640 FOR Q8=1 TO 3:PRINT " ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5650 PRINT " ??? ??? ??? ??? 316 ??? ??? ???" 5660 FOR Q8=1 TO 4:PRINT " ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5670 PRINT 5680 PRINT "The question marks represent unexplored quadrants. The 3-digit" 5690 PRINT "numbers encode information about quadrants. The first digit" 5700 PRINT "tells how many Klingons are in the quadrant; the second, how" 5710 PRINT "many friendly bases; the third, how many stars." 5720 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26):PRINT 5730 PRINT " When you are in a quadrant, it will be displayed as:" 5740 PRINT:PRINT 5750 PRINT " . . . . . . . ." 5760 PRINT " . K . . . . * ." 5770 PRINT " . . . . . . . ." 5780 PRINT " * . . * . . . ." 5790 PRINT " . . . . . E . ." 5800 PRINT " . . . K . . . B" 5810 PRINT " . * K . . . . ." 5820 PRINT " . . . * . . . *" 5830 PRINT:PRINT 5840 PRINT "The Klingons are represented by 'K', stars by '*', Your ship by" 5850 PRINT "an 'E', bases by 'B', and empty sectors by '.'" 5860 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26):PRINT 5870 PRINT " In your pursuit of Klingons, you will have a large number of" 5880 PRINT "units of energy. These can by used to move the ship, to defend" 5890 PRINT "the ship, or to fire at Klingons. In executing any of the afore-" 5900 PRINT "mentioned functions, energy is expended. If you ever run out of" 5910 PRINT "energy, you will be immobile and defenseless.":PRINT:PRINT 5920 PRINT " A SUMMARY OF TOP LEVEL COMMANDS FOLLOWS:" 5930 PRINT 5940 PRINT "---> LIST TOP LEVEL COMMANDS (Activated by a '0') 5950 PRINT " This will list the commands you have available to you in" 5960 PRINT " response to `COMMAND?'. 5970 PRINT 5980 PRINT "---> WARP (Activated by entering a '1')" 5990 PRINT " WARP moves the starship. Upon entering the command, you" 6000 PRINT " will be asked for a direction of travel ( 0 to 360 degrees," 6010 PRINT " 0 is right, 90 is up, etc), and the warp speed." 6020 PRINT 6030 PRINT "---> SHORT-RANGE SCAN (Activated by a '2')" 6040 PRINT " Displays the local quadrant." 6050 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8 6060 PRINT CHR$(26) 6070 PRINT "---> LONG-RANGE SCAN ('3')" 6080 PRINT " Displays information about your quadrant and it's eight" 6090 PRINT " immediate neighbors:":PRINT 6100 PRINT " 103 8 104 (Numbers are interprteted" 6110 PRINT " 203 316 4 like on a galactic map)" 6120 PRINT " 106 505 207":PRINT 6130 PRINT " The computer updates your galactic map after every " 6140 PRINT " Long-Range scan." 6150 PRINT 6160 PRINT "---> PHASERS ('4')" 6170 PRINT " Computer-controlled high energy beams are fired at all" 6180 PRINT " Klingons in the quadrant." 6190 PRINT 6200 PRINT "---> PHOTON TORPEDOES ('5')" 6210 PRINT " One of ten Torpedoes can be fired at a Klingon. They must" 6220 PRINT " be manually aimed." 6230 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6240 PRINT 6250 PRINT "---> SHIELDS ('6')" 6260 PRINT " As the Klingons have weapons like yours, your ship has" 6270 PRINT " shields to protect it. This command controls the energy" 6280 PRINT " in the shields." 6290 PRINT 6300 PRINT "---> DAMAGE CONTROL ('7')" 6310 PRINT " Enables you to check the operational status of any of the" 6320 PRINT " ship's functions. " 6330 PRINT 6340 PRINT "---> COMPUTER ('8')" 6350 PRINT " Accesses the on-board Computer. (See the list of computer" 6360 PRINT " commands at the end of this list.)" 6370 PRINT 6380 PRINT "---> DAMAGE REPAIR ('9')" 6390 PRINT " This will allow you to repair damage to the Enterprise" 6400 PRINT " if you are docked at a Starbase." 6410 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6420 PRINT:PRINT "LIST OF COMPUTER COMMANDS" 6430 PRINT " These are the options available to you in response" 6440 PRINT "to `Computer on---COMMAND?'":PRINT:PRINT 6450 PRINT "---> `0' Lists available commands from the Computer.":PRINT 6460 PRINT "---> GALACTIC MEMORY MAP (`1')" 6470 PRINT " This option lists all quadrants that the Enterprise has" 6480 PRINT " been to or has seen through a Long-Range Scan.":PRINT 6490 PRINT "---> GENERAL STATUS REPORT (`2')" 6500 PRINT " This will list the number of Klingons, Stardates and" 6510 PRINT " Starbases left, as well as the state of repair of all" 6520 PRINT " devices on the ship.":PRINT 6530 PRINT "---> PHOTON TRAJECTORY (`3')" 6540 PRINT " This will assist in telling the Captain what direction" 6550 PRINT " to aim the Photon Torpedoes.":PRINT 6560 INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6570 PRINT "---> NEW MISSION (`4')" 6580 PRINT " This is to be used on the first couple of turns to abort" 6590 PRINT " a mission that is too much (or too little) for the" 6600 PRINT " player's experience or skill.":PRINT 6610 PRINT "---> PRESENT POSITION (`5')" 6620 PRINT " If your Short-Range Scanners are out, this will give your" 6630 PRINT " present position, but NOT what is in the quadrant.":PRINT 6640 PRINT "---> SELF-DESTRUCT (`6')" 6650 PRINT " If Security Control authorizes it, you may destroy the" 6660 PRINT " Enterprise to avoid take-over by the Klingons.":PRINT 6670 PRINT "---> WARP-COMPASS (`7')" 6680 PRINT " With the Enterprise in the middle, this will help deter-" 6690 PRINT " mine direction for movement and Photon Trajectory.":PRINT 6700 PRINT "---> MISSION PROGRESS REPORT (`8')" 6710 PRINT " This gives the Initial and Current Progress Factors as " 6720 PRINT " well as the tolerance factor for this mission.":PRINT 6730 INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6740 PRINT "---> EXIT COMPUTER (`9')" 6750 PRINT " This returns you to the top level of commands." 6760 PRINT 6770 PRINT 6780 PRINT " Some free advice for beginners:" 6790 PRINT " 1) Put enery in the shields before warping." 6800 PRINT " 2) When in doubt, consult the Computer (COMMAND 8)" 6810 PRINT " 3) Choose a low Security Clearance and a low Rank." 6820 PRINT 6830 INPUT "HIT RETURN TO START";Q8 6840 PRINT CHR$(26) 6850 RETURN 6860 PRINT " Amount to transfer from Shields";: INPUT Q8 6870 IF Q8<0 OR Q8>S THEN GOTO 6860 6880 S=S-Q8:E=E+Q8:PRINT 6890 PRINT E;" units of energy now - Try again." 6900 RETURN 6910 RESET  6860 PRINT " Amount to transfer from Shields";: INPUT Q8 6870 IF Q8<0 OR Q8>S THEN GOTO 6860 6880 S=S-Q8:E=E+Q8:PRINT 6890 PRINT E;" units of energy now - Try again." 6900 RETURN 10 DIM T(10) 20 DIM L(50) 30 PRINT CHR$(26):PRINT:PRINT 40 PRINT "Hi, I'm the Taxman" 50 INPUT "Do you want the regulations (type Y or N)";ANS$ 60 IF LEFT$(ANS$,1)="Y" THEN 1330 70 IF LEFT$(ANS$,1)="y" THEN 1330 80 '---------------------------------------> INITIALZATION 90 GOSUB 1100 100 '----------------------------> THE HUMAN TAKES A NUMBER 110 GOSUB 240 120 '-------------> COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS 130 GOSUB 520 140 '----------------------------------> PRINT THE NEW LIST 150 GOSUB 630 160 '-------------> CHECK IF ANY NUMBERS STILL HAVE FACTORS 170 GOSUB 740 180 IF M=1 THEN 110 190 '-------------------------------------> FIND THE WINNER 200 GOSUB 960 210 '----------------------------------------------> AGAIN? 220 GOTO 1030 230 '-------------------------------------> THE HUMAN MOVES 240 PRINT 250 PRINT 260 PRINT"You take"; 270 INPUT K 280 LET K=INT(K) 290 IF K <= 0 THEN 1030 300 IF K <=N THEN 330 310 PRINT K;"is not in the list -- try again." 320 GOTO 250 330 IF L(K)=0 THEN 310 340 '--------------------------------> FIND ALL THE FACTORS 350 IF K>1 THEN 390 360 PRINT"There are no factors of";K;"for me!" 370 PRINT"Are you trying to short-change the Taxman?" 380 GOTO 250 390 LET M=0 400 FOR I=1 TO K/2 410 IF L(I)=0 THEN 460 420 IF K <> I*INT(K/I) THEN 460 430 LET M=M+1 440 LET T(M)=I 450 LET L(I)=0 460 NEXT I 470 '----------------> CHECK WHETHER THERE WERE ANY FACTORS 480 IF M=0 THEN 360 490 LET L(K)=0 500 RETURN 510 '--------------> COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS 520 LET Y=Y+K 530 PRINT"Your total is";Y 540 PRINT"I get"; 550 FOR I=1 TO M 560 PRINT T(I); 570 LET Z=Z+T(I) 580 NEXT I 590 PRINT 600 PRINT"My total is";Z 610 RETURN 620 '----------------------------------> PRINT THE NEW LIST 630 PRINT 640 PRINT"NEW LIST:"; 650 LET M=0 660 FOR I=1 TO N 670 IF L(I)=0 THEN 700 680 PRINT I; 690 LET M=1 700 NEXT I 710 RETURN 720 '-------------> CHECK IF ANY NUMBERS STILL HAVE FACTORS 730 '--------------------------> CHECK IF THE LIST IS EMPTY 740 IF M=0 THEN 940 750 FOR I=N TO 4 STEP -1 760 FOR J=2 TO I/2 770 IF L(J)=0 THEN 810 780 IF I<> J*INT(I/J) THEN 810 790 LET M=1 800 RETURN 810 NEXT J 820 NEXT I 830 '-------------> THE TAXMAN GETS THE REST OF THE NUMBERS 840 PRINT 850 PRINT"I get"; 860 FOR I=1 TO N 870 IF L(I)=0 THEN 900 880 PRINT I; 890 LET Z=Z+I 900 NEXT I 910 PRINT"because no factors of any number are left." 920 PRINT"My total is";Z 930 LET M=0 940 RETURN 950 '------------------------------------> FIND THE WINNER 960 PRINT 970 IF Z>Y THEN 1000 980 PRINT"You have";Y;" The Taxman has";Z;" YOU WIN!!!" 990 RETURN 1000 PRINT"The Taxman has";Z;" You have";Y;" THE TAXMAN WINS." 1010 RETURN 1020 '----------------------------------------------> AGAIN? 1030 PRINT 1040 PRINT 1050 INPUT"Again (Type Y or N)";ANS$ 1060 IF LEFT$(ANS$,1)="N" THEN 1600 1070 IF LEFT$(ANS$,1)="n" THEN 1600 1080 GOTO 90 1090 '--------------------------------------> INITIALIZATION 1100 PRINT 1110 PRINT"HOW MANY NUMBERS DO YOU WANT IN THE LIST"; 1120 INPUT N 1130 LET N=INT(N) 1140 IF N <= 0 THEN SYSTEM 1150 IF N<=50 THEN 1180 1160 PRINT"At this time, regulations allow a maximum of 50 numbers." 1170 GOTO 1100 1180 LET Y=0 1190 LET Z=0 1200 PRINT 1210 PRINT"The list is:"; 1220 FOR I=1 TO N 1230 PRINT I; 1240 LET L(I)=1 1250 NEXT I 1260 IF N>1 THEN 1310 1270 PRINT 1280 PRINT"How very generous of you to forfeit all to the Taxman." 1290 PRINT"The Taxman has 1 You have 0 THE TAXMAN WINS." 1300 GOTO 1030 1310 RETURN 1320 '----------------------------------------> INSTRUCTIONS 1330 PRINT 1340 PRINT"You try to beat the Taxman." 1350 PRINT 1360 PRINT"We start with a list of whole numbers in numerical" 1370 PRINT"order (You decide how many)." 1380 PRINT 1390 PRINT"You take a number from the list -- The Taxman gets" 1400 PRINT"all the factors of your number that are still left." 1410 PRINT"Your number and all of its factors are then deleted" 1420 PRINT"from the list." 1430 PRINT 1440 PRINT"Example: Suppose you want ten numbers to be in the list." 1450 PRINT"The list would be: 1 2 3 4 5 6 7 8 9 10" 1460 PRINT 1470 PRINT"If you took 8, the Taxman would get: 1, 2, AND 4" 1480 PRINT"and the new list would be: 3 5 6 7 9 10" 1485 PRINT 1490 INPUT"TYPE TO GO ON";W 1495 PRINT 1500 PRINT"The Taxman must get something every time, so you can" 1510 PRINT"only pick a number that has factors left." 1520 PRINT 1530 PRINT"When none of the remaining numbers have factors," 1540 PRINT"the Taxman gets them!!!" 1550 PRINT 1560 PRINT"Your score is the sum of numbers you take." 1570 PRINT"If you want to give up, take 0." 1580 PRINT"GOOD LUCK !!!" 1590 GOTO 90 1600 SYSTEM  sum of numbers you take." 1570 PRINT"If you want1485 PRINT 1490 INPUT"TYPE TO GO ON";W 1495 PRINT 1500 PRINT"The Taxman must get something every time, so you can" 1510 PRINT"only pick a number that has factors left." 1520 PRINT 1530 PRINT"When none of the remaining numbers have factors," 5 REM STAR TRADERS 10 REM - MODIFIED FOR 'ALTAIR BASIC 4.0' BY - S J SINGER 20 REM 30 REM 35 DEFINT C 36 DEFINT I 40 DIM M(10,13),S(5,4),N$(5),D1(5),S1(5),Q(5),M$(12),C$(25) 50 DIM C1$(25),C2$(25) 60 DATA 1,"`Altair Starways'" 70 DATA 2,"`Betelgeuse,LTD.'" 80 DATA 3,"`Capella Freight Co.'" 90 DATA 4,"`Denebola Shippers'" 100 DATA 5,"`Eridani Expediters'" 110 Z1$=CHR$(26)+CHR$(0) 120 PRINT Z1$ 130 FOR I=1 TO 5 140 FOR J=1 TO 4 150 S(I,J)=0: D1(I)=0: S1(I)=100: Q(I)=0: B(I)=6000 160 NEXT J 170 NEXT I 180 L$=".+*ABCDE" 190 M$="ABCDEFGHIJKL" 195 PRINT" ********** STAR TRADERS **********":PRINT 197 PRINT:PRINT 200 INPUT "Type a 3 digit number ";R1 220 R1=RND(-R1/1000) 230 FOR I=1 TO 9 240 FOR J=1 TO 12 250 IF INT(20*RND(R1)+1)<>10 THEN M(I,J)=1 ELSE M(I,J)=3 260 NEXT J 270 NEXT I 280 PRINT Z1$ 290 INPUT "How many players (1-4) ";P1 300 PRINT:PRINT 310 INPUT "Does any player need instructions (Type Y or N)";ANS$ 320 IF LEFT$(ANS$,1)="Y" THEN GOSUB 3410 321 IF LEFT$(ANS$,1)="y" THEN GOSUB 3410 330 PRINT Z1$ 340 FOR I=1 TO P1 350 PRINT "Player",I, 370 INPUT " what is your name ";P$ 380 IF I=1 THEN P1$=P$ 390 IF I=2 THEN P2$=P$ 400 IF I=3 THEN P3$=P$ 410 IF I=4 THEN P4$=P$ 420 NEXT I 430 PRINT Z1$ 440 PRINT TAB(10),"...Now I will decide who goes first...":: PRINT:PRINT 445 PRINT:PRINT 450 PRINT:PRINT:PRINT 460 I=INT(P1*RND(R1)+1) 470 GOSUB 490 480 GOTO 550 490 PRINT 500 ON I GOTO 510,520,530,540: REM - IDENTIFY PLAYER 510 PRINT P1$;:P5$=P1$: RETURN 520 PRINT P2$;:P5$=P2$: RETURN 530 PRINT P3$;:P5$=P3$: RETURN 540 PRINT P4$;:P5$=P4$: RETURN 550 PRINT " is the first player to move." 560 FOR W=1 TO 2000: NEXT 570 K=0 580 P=I:GOTO 610 590 K=K+1: IF K=48 THEN 4450 600 P=P+1: IF P=P1+1 THEN P=1 610 FOR I=1 TO 5: REM ----------------> SELECT 5 LEGAL MOVES 620 R(I)=INT(9*RND(R1)+1) 630 C(I)=INT(12*RND(R1)+1) 640 FOR I1=I-1 TO 0 STEP -1 650 IF R(I)=R(I1) AND C(I)=C(I1) THEN 620 660 NEXT I1 670 IF M(R(I),C(I))>1 THEN 620 680 FOR I1=1 TO 5 690 IF Q(I1)=0 THEN 870 700 NEXT I1 710 IF M(R(I),C(I)+1)>3 THEN 870 720 IF M(R(I),C(I)-1)>3 THEN 870 730 IF M(R(I)+1,C(I))>3 THEN 870 740 IF M(R(I)-1,C(I))>3 THEN 870 750 A1=M(R(I),C(I)+1) 760 A2=M(R(I),C(I)-1) 770 A3=M(R(I)+1,C(I)) 780 A4=M(R(I)-1,C(I)) 790 IF A1=2 AND A2<4 AND A3<4 AND A4<4 THEN 620 800 IF A2=2 AND A1<4 AND A3<4 AND A4<4 THEN 620 810 IF A3=2 AND A1<4 AND A2<4 AND A4<4 THEN 620 820 IF A4=2 AND A1<4 AND A2<4 AND A3<4 THEN 620 830 IF A1=3 AND A2<4 AND A3<4 AND A4<4 THEN 620 840 IF A2=3 AND A1<4 AND A3<4 AND A4<4 THEN 620 850 IF A3=3 AND A1<4 AND A2<4 AND A4<4 THEN 620 860 IF A4=3 AND A1<4 AND A2<4 AND A3<4 THEN 620 870 NEXT I 880 GOSUB 2060 890 PRINT 900 I=P 910 GOSUB 490 920 PRINT ", Here are your legal moves for this turn" 930 PRINT 940 FOR I=1 TO 5 950 PRINT R(I);MID$(M$,C(I),1);" "; 960 NEXT I 970 PRINT:PRINT 980 INPUT "What is your move ";R$ 990 IF LEN(R$)=0 THEN R$="S" 1000 IF LEFT$(R$,1)="M" THEN R$="" ELSE 1030 1010 GOSUB 2060 1020 GOTO 900 1030 IF LEFT$(R$,1)="S" THEN R$="" ELSE 1060 1040 GOSUB 3230 1050 GOTO 900 1060 IF LEN(R$)<>2 THEN 1110 1070 IF ASC(MID$(R$,2,1))-64<1 THEN 1110 1080 IF ASC(MID$(R$,2,1))-64>12 THEN 1110 ELSE 1120 1090 IF VAL(R$)<1 THEN 1110 1100 IF VAL(R$)>9 THEN 1110 1110 PRINT "I didn't understand that - Try again ": GOTO 980 1120 R=VAL(LEFT$(R$,1)) 1130 C=ASC(RIGHT$(R$,1))-64 1140 FOR I= 1 TO 5 1150 IF R=R(I) AND C=C(I) THEN 1190 1160 NEXT I 1170 PRINT "That space was not included in the list..." 1180 GOTO 980 1190 A1=M(R-1,C) 1200 A2=M(R+1,C) 1210 A3=M(R,C+1) 1220 A4=M(R,C-1) 1230 IF A1<=1 AND A2<=1 AND A3<=1 AND A4<=1 THEN M(R,C)=2 ELSE 1250 1240 GOTO 1760 1250 IF A1>3 AND A2>3 AND A2<>A1 THEN GOSUB 2220:REM - LINE 2090 IS 1260 IF A1>3 AND A3>3 AND A3<>A1 THEN GOSUB 2220\REM THE MERGER SUB. 1270 IF A1>3 AND A4>3 AND A4<>A1 THEN GOSUB 2220 1280 IF A2>3 AND A3>3 AND A3<>A2 THEN GOSUB 2220 1290 IF A2>3 AND A4>3 AND A4<>A2 THEN GOSUB 2220 1300 IF A3>3 AND A4>3 AND A4<>A3 THEN GOSUB 2220 1310 IF A1<4 AND A2<4 AND A3<4 AND A4<4 THEN 1410 1320 IF M(R,C)>3 THEN 1760 1330 IF A1>3 THEN I=A1-3 1340 IF A2>3 THEN I=A2-3 1350 IF A3>3 THEN I=A3-3 1360 IF A4>3 THEN I=A4-3 1370 Q(I)=Q(I)+1 1380 S1(I)=S1(I)+100 1390 M(R,C)=I+3 1400 GOTO 1570 1410 FOR I=1 TO 5 1420 IF Q(I)=0 THEN 1460 1430 NEXT I 1440 IF M(R,C)<3 THEN M(R,C)=2 1450 GOTO 1760 1460 PRINT Z1$ 1470 GOSUB 3370 1480 PRINT "A new shipping company has been formed !" 1490 PRINT "It's name is ", 1500 RESTORE 1510 READ N,C$ 1520 IF I<>N THEN 1510 1530 PRINT C$ 1540 S(I,P)=S(I,P)+5 1550 Q(I)=1 1560 PRINT:PRINT:PRINT:PRINT 1570 IF A1=3 THEN S1(I)=S1(I)+500 1580 IF A2=3 THEN S1(I)=S1(I)+500 1590 IF A3=3 THEN S1(I)=S1(I)+500 1600 IF A4=3 THEN S1(I)=S1(I)+500 1610 IF A1=2 THEN S1(I)=S1(I)+100 ELSE 1640 1620 Q(I)=Q(I)+1 1630 M(R-1,C)=I+3 1640 IF A2=2 THEN S1(I)=S1(I)+100 ELSE 1670 1650 Q(I)=Q(I)+1 1660 M(R+1,C)=I+3 1670 IF A3=2 THEN S1(I)=S1(I)+100 ELSE 1700 1680 Q(I)=Q(I)+1 1690 M(R,C+1)=I+3 1700 IF A4=2 THEN S1(I)=S1(I)+100 ELSE 1730 1710 Q(I)=Q(I)+1 1720 M(R,C-1)=I+3 1730 IF S1(I)>=3000 THEN T1=I ELSE 1750 1740 GOSUB 3100 1750 M(R,C)=I+3 1760 FOR I=1 TO 5 1770 B(P)=B(P)+INT(.05*S(I,P)*S1(I)) 1780 NEXT I 1790 FOR I=1 TO 5 1800 IF Q(I)=0 THEN 2040 1810 PRINT:PRINT "Your current cash= $";B(P) 1820 PRINT:PRINT "Buy how many shares of "; 1830 RESTORE 1840 READ N,C$ 1850 IF I<>N THEN 1840 1860 PRINT C$; 1870 PRINT " at $";S1(I) 1880 PRINT TAB(5); "You now own ";S(I,P); 1890 INPUT R3$:IF LEN(R3$)=0 THEN R3$="0" 1900 IF R3$(1,1)="M" THEN R3$="" ELSE 1930 1910 GOSUB 2060 1920 GOTO 1810 1930 IF R3$(1,1)="S" THEN R3$="" ELSE 1960 1940 GOSUB 3230 1950 GOTO 1810 1960 R3=VAL(R3$) 1970 R3$="" 1980 IF R3*S1(I)<=B(P) THEN 2010 1990 PRINT "You only have $";B(P);" - Try again" 2000 GOTO 1810 2010 IF R3=0 THEN 2040 2020 S(I,P)=S(I,P)+R3 2030 B(P)=B(P)-(R3*S1(I)) 2040 NEXT I 2050 GOTO 590 2060 PRINT Z1$: REM SUBROUTINE - PRINT MAP 2070 PRINT TAB(22);"MAP OF THE GALAXY" 2080 PRINT TAB(21);"*******************" 2090 PRINT TAB(13);" A B C D E F G H I J K L" 2100 FOR R2=1 TO 9 2110 PRINT" ";R2;" "; 2120 FOR C2=1 TO 12 2130 PRINT" "; 2140 Z2=M(R2,C2) 2150 IF Z2=0 THEN Z2=Z2+1 2160 PRINT MID$(L$,Z2,1)" "; 2180 NEXT 2190 PRINT 2200 NEXT 2210 RETURN 2220 F1=A1-3: IF F1<0 THEN F1=0:REM SUBROUTINE - CALCULATES THE 2230 F2=A2-3: IF F2<0 THEN F2=0:REM SURVIVOR IN THE EVENT 2240 F3=A3-3: IF F3<0 THEN F3=0:REM OF A MERGER 2250 F4=A4-3: IF F4<0 THEN F4=0 2260 T=Q(F1) 2270 T1=F1 2280 IF Q(F2)>Q(F1) THEN T=Q(F2) ELSE 2300 2290 T1=F2 2300 IF Q(F3)>T THEN T=Q(F3) ELSE 2320 2310 T1=F3 2320 IF Q(F4)>T THEN T=Q(F4) ELSE 2340 2330 T1=F4 2340 IF F1=T1 OR A1<4 THEN 2370 2350 X=F1 2360 GOSUB 2470 2370 IF F2=T1 OR A2<4 THEN 2400 2380 X=F2 2390 GOSUB 2470 2400 IF F3=T1 OR A3<4 THEN 2430 2410 X=F3 2420 GOSUB 2470 2430 IF F4=T1 OR A4<4 THEN 2460 2440 X=F4 2450 GOSUB 2470 2460 RETURN 2470 PRINT Z1$ 2480 GOSUB 3370: REM SUBROUTINE - PERFORMS CALCULATIONS 2490 RESTORE: REM TO ACCOMPLISH A MERGER 2500 READ N,C$ 2510 IF X<>N THEN 2500 2520 C1$=C$ 2530 PRINT C1$; 2540 PRINT " has just been merged into "; 2550 RESTORE 2560 READ N,C$ 2570 IF T1<>N THEN 2560 2580 C2$=C$ 2590 PRINT C2$;"!" 2610 PRINT "Please note the following transactions." 2620 PRINT 2630 PRINT TAB(3);"OLD STOCK = ";C1$;" NEW STOCK = "; 2640 PRINT C2$ 2650 PRINT 2660 PRINT "PLAYER";TAB(10);"OLD STOCK";TAB(22);"NEW STOCK"; 2670 PRINT TAB(34);"TOTAL HOLDINGS";TAB(53);"BONUS PAID" 2680 FOR I=1 TO P1 2690 GOSUB 490 2700 PRINT TAB(10);S(X,I);TAB(22);INT((.5*S(X,I))+.5); 2710 PRINT TAB(34);S(T1,I)+INT((.5*S(X,I))+.5); 2720 X1=0 2730 FOR I1=1 TO P1 2740 X1=X1+S(X,I1) 2750 NEXT 2760 PRINT TAB(53);" $";INT(10*((S(X,I)/X1)*S1(X))) 2770 NEXT I 2780 FOR I=1 TO P1 2790 S(T1,I)=S(T1,I)+INT((.5*S(X,I))+.5) 2800 B(I)=B(I)+INT(10*((S(X,I)/X1)*S1(X))) 2810 NEXT I 2820 FOR I=1 TO 9 2830 FOR J=1 TO 12 2840 IF M(I,J)=X+3 THEN M(I,J)=T1+3 2850 NEXT J 2860 NEXT I 2870 A1=M(R-1,C) 2880 A2=M(R+1,C) 2890 A3=M(R,C+1) 2900 A4=M(R,C-1) 2910 F1=A3-3 2920 IF F1<0 THEN F1=0 2930 F2=A2-3 2940 IF F2<0 THEN F2=0 2950 Q(T1)=Q(T1)+Q(X) 2960 S1(T1)=S1(T1)+S1(X) 2970 IF S1(T1)=>3000 THEN GOSUB 3100 2980 F3=A3-3 2990 IF F3<0 THEN F3=0 3000 F4=A4-3 3010 IF F4<0 THEN F4=0 3020 S1(X)=100 3030 Q(X)=0 3040 FOR I=1 TO P1 3050 S(X,I)=0 3060 NEXT I 3070 PRINT:PRINT 3080 M(R,C)=T1+3 3090 RETURN 3100 GOSUB 3370: REM SUBROUTINE - CALCULATES STOCK SPLITS 3110 PRINT "The stock of ", 3120 RESTORE 3130 READ N,C$ 3140 IF T1<>N THEN 3130 3150 PRINT C$, 3160 PRINT " has split 2 for 1 !" 3170 S1(T1)=INT(S1(T1)/2) 3180 PRINT:PRINT 3190 FOR I1=1 TO P1 3200 S(T1,I1)=2*S(T1,I1) 3210 NEXT I1 3220 RETURN 3230 PRINT Z1$ 3240 PRINT 3250 PRINT "STOCK";TAB(30);"PRICE PER SHARE"; 3260 PRINT TAB(50);"YOUR HOLDINGS" 3270 FOR I3=1 TO 5 3280 IF S1(I3)=100 THEN 3340 3290 RESTORE 3300 READ N,C$ 3310 IF I3<>N THEN 3300 3320 PRINT C$, 3330 PRINT TAB(30);S1(I3);TAB(50);S(I3,P) 3340 NEXT I3 3350 RESTORE 3360 RETURN 3370 PRINT CHR$(7) 3380 PRINT TAB(22);"SPECIAL ANNOUNCEMENT !!!":PRINT 3390 PRINT 3400 RETURN 3410 PRINT Z1$ 3420 PRINT " Star lanes is a game of interstellar trading." 3430 PRINT "The object of the game is to amass the greatest amount" 3440 PRINT "of money. This is accomplished by establishing vast," 3450 PRINT "interstellar shipping lanes, and purchasing stock in" 3460 PRINT "the companies that control those trade routes. During" 3470 PRINT "the course of the game, stock appreciates in value as" 3480 PRINT "the shipping companies become larger. Also, smaller" 3490 PRINT "companies can be merged into larger ones, and stock" 3500 PRINT "in the smaller firm is converted into stock in the larger" 3510 PRINT "one as described below.":PRINT 3520 PRINT "Each turn, the computer will present the player with" 3530 PRINT "five prospective spaces to occupy on a 9 X 12 matrix" 3540 PRINT "(rows 1-9, columns A-L). The player, after examining the" 3550 PRINT "map of the galaxy to decide which space he or she wishes" 3560 PRINT "to occupy, responds with the row and column of that" 3570 PRINT "space (I.E., 7E, 8A, ETC). There are five possible moves" 3580 PRINT "a player can make.":PRINT:PRINT 3590 PRINT 3600 GOSUB 3620 3610 GOTO 3660 3620 INPUT "PRESS TO CONTINUE";X2$:PRINT CHR$(26) 3650 RETURN 3660 PRINT Z1$ 3670 PRINT " 1. A player can establish an unattached outpost - if" 3680 PRINT "he/she selects a space that is not adjacent to a star," 3690 PRINT "another unattached outpost, or an existing shipping lane," 3700 PRINT "that space will be designated with a `+'. He/she will" 3710 PRINT "then proceed with stock transactions, as listed below.":PRINT 3720 PRINT " 2. A player can add to an existing lane - if he/she" 3730 PRINT "selects space that is adjacent to one - and only one -" 3740 PRINT "existing shipping lane, the space he/she selects will be" 3750 PRINT "that shipping lane and will be designated with the first" 3760 PRINT "letter of the company that owns that lane. if there are" 3770 PRINT "any stars or unattached outposts also adjacent to the" 3780 PRINT "selected space, they, too, will be incorporated into the" 3790 PRINT "existing lane. Each new square adjacent to a star adds" 3800 PRINT "$500 per share, and each new outpost adds $100 per share" 3810 PRINT "to the market value of the stock of that company." 3820 PRINT:PRINT 3830 GOSUB 3620 3840 PRINT Z1$ 3850 PRINT " 3. He/she may establish a new shipping lane - if there" 3860 PRINT "are five or less existing shipping lanes established." 3870 PRINT "The player may, given the proper space to play, establish" 3880 PRINT "a new shipping lane. He/she may do this by occupying a" 3890 PRINT "space adjacent to a star or another unattached outpost," 3900 PRINT "but not adjacent to an existing shipping lane. If he/she" 3910 PRINT "establishes a new shipping lane, he/she is automatically" 3920 PRINT "issued 5 shares of the new company as a reward. He/she" 3930 PRINT "may then proceed to buy stock in any active company," 3940 PRINT "including the one just formed, as described below.":PRINT 3950 PRINT "The market value of the new stock is established by the" 3960 PRINT "number of stars and occupied spaces as described in #2" 3970 PRINT "above." 3980 PRINT:PRINT 3990 GOSUB 3620 4000 PRINT Z1$ 4010 PRINT " 4. He/she may merge two existing companies - if a player" 4020 PRINT "selects a space adjacent to two existing shipping lanes, a" 4030 PRINT "merger occurs. The larger company takes over the smaller" 4040 PRINT "company. (If both companies are the same size prior to the" 4050 PRINT "merger, then the survivor is determined by alphabetical order" 4060 PRINT "of the two company names - the earlier survives.)" 4070 PRINT "The stock of the surviving company is increased in value" 4080 PRINT "according to the number of spaces and stars added to its" 4090 PRINT "lane. Each players stock in the defunct company is exchanged" 4100 PRINT "for shares in the survivor on a ratio of 2 for 1. Also, each" 4120 PRINT "player is paid a cash bonus proportional to the percentage" 4130 PRINT "of outstanding stock he held in the defunct company." 4140 PRINT "NOTE: After a company becomes defunct through the merger" 4150 PRINT "process, it can reappear elsewhere on the board when, and if" 4160 PRINT "a new company is established." 4170 PRINT:PRINT 4180 GOSUB 3620 4190 PRINT Z1$ 4200 PRINT " Next the computer adds stock dividends to the player's" 4210 PRINT "cash on hand (5% of the market value of the stock in his" 4220 PRINT "possession), and offers him the opportunity to purchase" 4230 PRINT "stock in any of the active companies on the board." 4240 PRINT "Stock may not be sold, but the market value of each" 4250 PRINT "player's stock is taken into account at the end of the" 4260 PRINT "game to determine the winner. If the market value of a" 4270 PRINT "given stock exceeds $3000 at any time during the game," 4280 PRINT "that stock splits 2 for 1. The price is cut in half, and" 4290 PRINT "the number of shares owned by each player is doubled." 4300 PRINT 4310 PRINT "NOTE: The player may look at his/her portfolio at any" 4320 PRINT "time during the course of his/her turn by responding with" 4330 PRINT "`STOCK' to an input statement. Likewise, he/she can review" 4340 PRINT "the map of the galaxy by typing `MAP' to an input statement." 4350 PRINT:PRINT 4360 GOSUB 3620 4370 PRINT Z1$ 4380 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 4390 PRINT TAB(16);"** GAME ENDS AFTER 48 MOVES **" 4400 PRINT:PRINT:PRINT:PRINT 4410 PRINT "The player with the greatest net worth at that point is the winner." 4420 PRINT:PRINT 4430 FOR W=1 TO 2000:NEXT W 4440 RETURN 4450 PRINT Z1$ 4460 GOSUB 3370 4470 FOR W=1 TO 500:NEXT W:PRINT CHR$(7) 4480 FOR W=1 TO 500:NEXT W:PRINT CHR$(7) 4490 PRINT TAB(10)," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS" 4500 PRINT:PRINT:PRINT:PRINT 4510 PRINT CHR$(7) 4520 PRINT "PLAYER";TAB(10);"CASH VALUE OF STOCK";TAB(33);"CASH ON HAND", 4530 PRINT TAB(50);"NET WORTH" 4540 PRINT 4550 FOR I=1 TO P1 4560 FOR J=1 TO 5 4570 D1(I)=D1(I)+(S1(J)*S(J,I)) 4580 NEXT J 4590 NEXT I 4600 FOR I=1 TO P1 4610 GOSUB 490 4620 PRINT TAB(10);"$";D1(I);TAB(33);"$";B(I); 4630 PRINT TAB(50);"$";D1(I)+B(I) 4640 NEXT I 4650 PRINT:PRINT:PRINT:PRINT 4655 INPUT "Do you want to play again (type Y or N)";ANS$ 4660 IF LEFT$(ANS$,1)="N" THEN SYSTEM 4670 IF LEFT$(ANS$,1)="n" THEN SYSTEM 4680 RESET 4685 PRINT CHR$(26) 4690 GOTO 195  4660 IF LEFT$(ANS$,1)="N" THEN SYSTEM 4670 IF LEFT$(ANS$,1)="n" THEN SYSTEM 4680 RESET 4685 PRINT CHR$(26) 4690 GOTS(J,I)) 4580 NEXT J 4590 NEXT I 4600 FOR I=1 TO P1 4610 GOSUB 490 4620 PRINT TAB(10);"$";D1(I);TAB(33);"$";B(I); 461 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 5 REM *** HUNT THE WUMPUS *** 10 DIM P(5) 15 INPUT "Do you want instructions (type Y or N)";ANS$ 17 IF LEFT$(ANS$,1)="N" THEN 35 18 IF LEFT$(ANS$,1)="n" THEN 35 22 PRINT:PRINT:PRINT 30 GOSUB 375 35 GOTO 80 80 REM *** SET UP CAVE (DODECAHEDRAL NODE LIST) *** 85 DIM S(20,3) 90 FOR J=1 TO 20 95 FOR K=1 TO 3 100 READ S(J,K) 105 NEXT K 110 NEXT J 115 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 120 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 125 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 130 DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19 135 DEF FNA(X)=INT(20*RND(1))+1 140 DEF FNB(X)=INT(3*RND(1))+1 145 DEF FNC(X)=INT(4*RND(1))+1 150 REM *** LOCATE L ARRAY ITEMS *** 155 REM *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS *** 160 DIM L(6) 165 DIM M(6) 170 FOR J=1 TO 6 175 L(J)=FNA(0) 180 M(J)=L(J) 185 NEXT J 190 REM *** CHECK FOR CROSSOVERS (IE L(1)=L(2), ETC) *** 195 FOR J=1 TO 6 200 FOR K=1 TO 6 205 IF J=K THEN 215 210 IF L(J)=L(K) THEN 170 215 NEXT K 220 NEXT J 225 REM *** SET NO. OF ARROWS *** 230 A=5 235 L=L(1) 240 REM *** RUN THE GAME *** 245 PRINT:PRINT:PRINT "HUNT THE WUMPUS" 250 REM *** HAZARD WARNING AND LOCATION *** 255 GOSUB 585 260 REM *** MOVE OR SHOOT *** 265 GOSUB 670 270 ON O GOTO 280,300 275 REM *** SHOOT *** 280 GOSUB 715 285 IF F=0 THEN 255 290 GOTO 310 295 REM *** MOVE *** 300 GOSUB 975 305 IF F=0 THEN 255 310 IF F>0 THEN 335 315 REM *** LOSE *** 320 PRINT:PRINT "HA HA HA - You lose!" 325 GOTO 340 330 REM *** MOVE *** 335 PRINT:PRINT "HEE HEE HEE - The wumpus will get you next time!!" 340 FOR J=1 TO 6 345 L(J)=M(J) 350 NEXT J 355 PRINT:PRINT:INPUT "Do you want to play again (type Y or N)";A$ 356 IF LEFT$(A$,1)="N" THEN 1150 357 IF LEFT$(A$,1)="n" THEN 1150 360 PRINT:INPUT "Do you want the same setup (type Y or N)";AN$ 361 IF LEFT$(AN$,1)="N" THEN 170 362 IF LEFT$(AN$,1)="n" THEN 170 370 GOTO 230 375 REM *** INSTRUCTIONS *** 377 PRINT CHR$(26):PRINT:PRINT 380 PRINT "Welcome to `HUNT THE WUMPUS'" 385 PRINT " The wumpus lives in a cave of 20 rooms. Each room" 390 PRINT "has 3 tunnels leading to other rooms. (Look at a" 395 PRINT "dodecahedron to see how this works - if you don't know" 400 PRINT "what a dodecahedron is, ask someone)" 405 PRINT 410 PRINT " HAZARDS:" 415 PRINT " BOTTOMLESS PITS - Two rooms have bottomless pits in them." 420 PRINT " If you go there, you fall into the pit (and lose!)" 425 PRINT " SUPER BATS - Two other rooms have super bats. If you" 430 PRINT " go there, a bat grabs you and takes you to some other" 435 PRINT " room at random. (Which may be troublesome.)" 440 PRINT:INPUT "TYPE TO CONTINUE ";W9:PRINT CHR$(26) 441 PRINT:PRINT 445 PRINT " WUMPUS:" 450 PRINT " The wumpus is not bothered by hazards (he has sucker" 455 PRINT " feet and is too big for a bat to lift). Usually" 460 PRINT " he is asleep. Two things wake him up - You shooting an" 465 PRINT " arrow or you entering his room." 470 PRINT " If the wumpus wakes he moves (75% chance) one room" 475 PRINT " or stays still (25% chance). After that, if he is where you" 480 PRINT " are, he eats you up and you lose!" 485 PRINT 490 PRINT " YOU:" 495 PRINT " Each turn you may move or shoot a crooked arrow" 500 PRINT " MOVING: You can move one room (thru one tunnel)" 505 PRINT " ARROWS: You have 5 arrows. You lose when you run out" 510 PRINT " Each arrow can go from 1 to 5 rooms. You aim by telling" 515 PRINT " the computer the room numbers you want the arrow to go to." 520 PRINT " If the arrow can't go that way (if no tunnel), it moves" 525 PRINT " at random to the next room." 530 PRINT " If the arrow hits the wumpus, you win." 535 PRINT " If the arrow hits you, you lose." 540 PRINT:INPUT "TYPE TO CONTINUE ";W9:PRINT CHR$(26) 545 PRINT " WARNINGS:" 550 PRINT " When you are one room away from a wumpus or hazard," 555 PRINT " the computer says:" 560 PRINT " WUMPUS: `I smell a wumpus!'" 565 PRINT " BAT : `Bats nearby!'" 570 PRINT " PIT : `I feel a draft!'" 575 PRINT 580 RETURN 585 REM *** PRINT LOCATION & HAZARD WARNINGS *** 590 PRINT 595 FOR J=2 TO 6 600 FOR K=1 TO 3 605 IF S(L(1),K)<>L(J) THEN 640 610 ON J-1 GOTO 615,625,625,635,635 615 PRINT "I smell a wumpus!" 620 GOTO 640 625 PRINT "I feel a draft!" 630 GOTO 640 635 PRINT "Bats nearby!" 640 NEXT K 645 NEXT J 650 PRINT "You are in room "L(1) 655 PRINT "Tunnels lead to "S(L,1);S(L,2);S(L,3) 660 PRINT 665 RETURN 670 REM *** CHOOSE OPTION *** 675 PRINT:PRINT "Shoot or move " 680 INPUT "(Type 0 for SHOOT or 1 for MOVE)";I 685 IF I<>0 THEN 700 690 O=1 695 RETURN 700 IF I<>1 THEN PRINT CHR$(7):GOTO 675 705 O=2 710 RETURN 715 REM *** ARROW ROUTINE *** 720 F=0 725 REM *** PATH OF ARROW *** 735 PRINT "No. of rooms (1-5)"; 740 INPUT J9 745 IF J9<1 THEN 735 750 IF J9>5 THEN 735 755 FOR K=1 TO J9 760 PRINT "Room #"; 765 INPUT P(K) 770 IF K<=2 THEN 790 775 IF P(K)<>P(K-2) THEN 790 780 PRINT "Arrows aren't that crooked - try another room" 785 GOTO 760 790 NEXT K 795 REM *** SHOOT ARROW *** 800 L=L(1) 805 FOR K=1 TO J9 810 FOR K1=1 TO 3 815 IF S(L,K1)=P(K) THEN 895 820 NEXT K1 825 REM *** NO TUNNEL FOR ARROW *** 830 L=S(L,FNB(1)) 835 GOTO 900 840 NEXT K 845 PRINT "Missed" 850 L=L(1) 855 REM *** MOVE WUMPUS *** 860 GOSUB 935 865 REM *** AMMO CHECK *** 870 A=A-1 875 IF A>0 THEN 885 880 F=-1 885 RETURN 890 REM *** SEE IF ARROW IS AT L(1) OR AT L(2) 895 L=P(K) 900 IF L<>L(2) THEN 920 905 PRINT:PRINT "Aha! You got the wumpus!" 910 F=1 915 RETURN 920 IF L<>L(1) THEN 840 925 PRINT:PRINT "Ouch! Arrow got you!" 930 GOTO 880 935 REM *** MOVE WUMPUS ROUTINE *** 940 K=FNC(0) 945 IF K=4 THEN 955 950 L(2)=S(L(2),K) 955 IF L(2)<>L THEN 970 960 PRINT:PRINT "Tsk tsk tsk - Wumpus got you!" 965 F=-1 970 RETURN 975 REM *** MOVE ROUTINE *** 980 F=0 985 PRINT "Where to"; 990 INPUT L 995 IF L<1 THEN 985 1000 IF L>20 THEN 985 1005 FOR K=1 TO 3 1010 REM *** CHECK IF LEGAL MOVE *** 1015 IF S(L(1),K)=L THEN 1045 1020 NEXT K 1025 IF L=L(1) THEN 1045 1030 PRINT "Not possible -"; 1035 GOTO 985 1040 REM *** CHECK FOR HAZARDS *** 1045 L(1)=L 1050 REM *** WUMPUS *** 1055 IF L<>L(2) THEN 1090 1060 PRINT:PRINT "... Oops! Bumped a wumpus!" 1065 REM *** MOVE WUMPUS *** 1070 GOSUB 940 1075 IF F=0 THEN 1090 1080 RETURN 1085 REM *** PIT *** 1090 IF L=L(3) THEN 1100 1095 IF L<>L(4) THEN 1120 1100 PRINT:PRINT "YYYYIIIIEEEE . . . Fell in pit" 1105 F=-1 1110 RETURN 1115 REM *** BATS *** 1120 IF L=L(5) THEN 1130 1125 IF L<>L(6) THEN 1145 1130 PRINT:PRINT "Zap -- Super Bat Snatch! Elsewhereville for you!" 1135 L=FNA(1) 1140 GOTO 1045 1145 RETURN 1150 SYSTEM  1130 PRINT:PRINT "Zap -- Super Bat Snatch! Elsewhereville for you!" 1135 L=FNA(1) 1140 GOTO 10 *** PIT *** 1090 IF L=L(3) THEN 1100 1095 IF L<>L(4) THEN 1120 1100 PRINT:PRINT "YYYYIIIIEEEE . . . FÐ9Copyright (c) 1984, Kaypro Corporation MASMENU V. 5.226#> 6 #=+>6#=Ll$lQLlXlAڅ+[<+@H+aڅ+{҅+`w# .f++N+͌+w#O+{o|g +͌+w#p+!|a{9^#V*>>9}|ڷ+**"MASMENU:!"N""!"!! 9"!9^#V!0;w!9^#V##^#VBK?`i#DM`i~w`i^͔>\!"Nw*N ;`i^"N:!Ç#!9~#fo[;>)!9~#fo^#V^!-!;;)!9~#fo^#V#^ͼ>d!;!";)!9~#fo^#V#^ͼ>x!;!";)!9~#fo^#V#^ͼ>s!;;!À!U!!])"f|n!!B)!!&!=!S"<!S">!!2!!͎!9"@!!2!!͎!9"H!!2!!͎!9"D!!!8!͎!9"B!!!8!͎!9"F*f+!9s#r!9^#V!:0;*<"|b!"!9^#V!:"*f!!!ͮ*!9*fz-"W!W!W!*D͜W!"dW!"bW!*<#s#r"`!*fx*?!C!4!*D0!B!0!*< "<*<~!C!0!!"L*<[ !*<!!".!;"h|ʉ!9!9!l!j͂.!9*j+"jE%!"J!ß#*NA; \;+)*<^#V~#!"NØ*N|*N+"Lͪ MASMENU.DATr Can't find MASMENU.DAT:L":no&|’:no&|*|y!#+ [;s!!9DM|sJE%Ï!L"ʌ"DMÏ1×"DM!"`i!;ʮͱ9*J!;*<*>`i/ n&+*L[;O!B!0!*L#"L+[ !C!0!*L[ *Ln&#*L"!*L)^#V!>?*L|!B!0!*L+"L#[ !C!0!*L[ *Ln&#*L"!*L)^#V!>?*Lͪ *J!;FUͫ!"J!B!0!*<~!C!0!*N"L*<[ *Ln&#*L"!"N*L#X#n&@;{)~#!*L!;, ͦ>)^#V^#V^ͦ>!;) !B!0!*L[ !C!0!"L[ *Ln&#*L"!*L)^#V!>?, QZ `<  P P  G:! 9N#F!9^#V`i^#"!")PY^#V^#V! !9*|ʔ !L"n&!; #+^!9#+^!9Ñ n&| n& !;( ! !9*+"Ñ n&:u n&:"N *+"*|r ! !9*+"|r G Ñ #+^!9*+"î `i^#":! 9N#F*J!; *< *>`i)^#V##~ʵ !B!1!!B!0!*L"N*<~!C!1!!"J!`i)^#V!>%?*f*!9*> ">*L)*<^#V^#V*>#s#r!C!1!*>~!"L!C!0!*L*>[ *L*>`i)^#Vh !C!4!*D0*L[ :!9N#F*f+!) ) 4!9s#r=`i^!9^#Vs! ^#V!9^#V#s#r!9^#V###s! ^#V͈6͈6!9^#VBK;4+#|ʿ )!9~#fos#rÊ ! #! ^[;e !L")PY^#VW!ut*f+u*f+u*f!!ͮ*!9*f!!ͮ*!9!u t `i:!!r9^#V!>%?*f*!9W!DM|™ !ù !#+)!V9s#r [; â !p9^#V###^U2!!P!9=!`i~`i^! !;;!9~!93!!P!9=!`i^!!;x!9!V9`i#DM-DMxo!U!`i^!!;`i#DM^!)!T9~#ʽ)!T9^#V!9=!|`i^! \;`i^!9͉=!9s!`i#DM !9~!93!!P!9=!!9d=!9͉=!9DM*J!;ʒ*N#"N! `i#DM+s*N ;0`i#DM+s*N u;0`i#DM+s! `i#DM+s!-`i#DM+s*|ʸ!xû!s`i#DM+s*|! `i#DM+s!-`i#DM+s!d`i#DM+s!93!p9^#V###^*!;!"!*sN4ͱ9:!\9N#F!^9^#V`i#DM+^!! !9s!9"z`i#DM+^*#"+s`i^!0;ʋf!*s!9*H͜*H0!9͉=*@#^*@^#"!B!4!)~#)^#V͈6*@#^!9͉=!25<5<͑)s#r)~#:!)^#V!b9^#V=`iL!!!L!L!L!!!L2!2L2Lq!q*#T;*~/w#d;*~?G*^0123456789ABCDEF:!!9!VDM`i#DM+^!9`i~!!"*dDM$`i#DM+^!9`i~.!5!"*bDMH`i#DM`i~ʛ`i^!%!;ʉ!7{#+^!9~ʆfØ`i^!9C:! 9N#F!9^#V! ^#V"|*͈6! s#r!! s~#+^! !;`in&#s:! 9N#F! !!=!}2! ^K#*B^[;t!)s#rD*B~#ʐ*B^#V͈6! ^*Bs"*@;ʹ*+"! ^#V"*Bs#r!*~/*)s#r*^! 0;*^z*#"*~%*#"#:! 9N#F! ^P#*@^[;ʧ!"!"Ç*#"*2[;ʤ! !9ÀI*@~#*@^#V͈6! ^*@s! ^#V*@s#r!~R!#+"!2V ~:n& 0;:#n& !;O#:!4DM!!=!4! s#r! 9^`is`i:!4DM!!=! 9^`is!9^! s!9^! s!9^! s`i:!9^#V)! 9~#fo^#V! ^#VBKzk!!9^#V)!9~#fo^#V!>%?*f*!9W!!9^#V)!9~#fo^#V! s#rBK*F͜*F:! 9N#Fx$!ß+\;!"!#[;! !9Ø!!"!#[;!!!9ê`i^!"! !9!B!3!! ^#V͉=!5<;+[;ʁ!+#|ʥ! !9#Á! ^#V"ú*#"*~*^!9ó!#[;! !9!C!3!! !9`i^!"!?! !9#+[;T2!"!j# [;T`i^"! !9! !9! ^@;!! !9#[;!"Q!)PY^#V^#V"+*~0*#"+^!9 +\;Q! !90c`i^!"!C!0!!À#[;ʝ!!9y!B!0!:!DMý`i#DM*>###^`i[;`i)*>^#V~#nf͈6 ~#n f ͈6!u t ø:*|**LDM!*L)*<^#V^#V[;ʡ#+"!C!0!! !9!B!0!!vP!B!0!!B!1!!"! !9!C!1!`i\;T`i+DM#"!C!0!!"! !9*#"+[;1!B!0!"!v:!~*|ʅ!!"!!v!DM!*N)*<^#V^#V*N`i0;!`i#DM+"!C!0!!"! !9*#"+[;!B!0!"!vç*<^\;ʅ"!C!0!! !9!B!0!+#"!v!!C!0!"!!B!0!!"! !9 :!C!0!!B!4!!C!3!!C!1!!!9*0;J!! 9DM*U!K͟-UA:$$$.SUB:!DM! 9^! 9! 9^))))`i^!:<`is:! 9^#V!4DM!L"¹ë" !;!;͈6!!;!;F`i0;C!!9! !9!!9+! 9~#fo#s#r!;ʠ`i0;ʝ!!9! !9!!9+! 9~#fo#s#rR [;ʽ!!9! 9~#!!9#+s!9! 9~#fo+s#rë!u`i:! 9N#F`i [;5`i0!9:;:! 9N#F`i ;0!9`i u;0!9:! 9N#F!9^#V`i~ʰ`i#DM+^!9+Ì+#\;! !9ð:! 9N#F`i~`i#DM+^!9:! 9^#V͉=##4DM|3 !G !B)!9^#Vd=`i Out of memory:! 9N#F!9^#V`i~!!`i^! 0;!!`i^!: `i#DM+^!:ë +| ! !9+ä !`i^!!;!`i#DM+^!9`i#DM+^!9!`i#DM+^!9+l `i^! !;4!`i#DM+#\;V!! !94!:*|‡!!4"|‡!!!!B)*DMÔ!`i#DM*f+`iszʨ!Ï!`i*!;ʺ!!ý!* Out of memory:!!9!9^!9! 9^!9:!!9!=!9! 9^! !9!9^! !9:!"! 9~#d"E%!!9DM|":o&\;ʸ"!n͉=n`i#+s!u:o&+}2"!!9:no&|"!! 9~#"#!::no&DM|#!o!nd=:o&#}2`i:*|%#!"*|#*)~#ʷ#!8*"*)^#V^! !;!9s#r!*)^#VV !*)s#r*!;ʣ#!"ê#*#"!9~#-##!"#*#"*A;#*)~###!"!":%*J!;$*< $*>!$#n&[;ʔ$)^#V! ~#‘$!)^#V!>%?*f*!9W!)^#V! s#r$**[;$!*#"+oB>4@%?*f*!9!>p?%!!>%?*f*!9*f+!>?*0;4%*U!;%͟-!U!":%!"A:$$$.SUB:*h|F'! 9! 9!9!9͂.!9!9!9!97.!9^#V*j0;)'!!"!9^#V"j!9^#V! \;%*|%! !9~#fo5uû) :!9!;)͈6!!u$t%!u*t+u&t'u(t)!>%?*!9:! 9N#F!9>>?͂B!( s#r!9>>b@͂B!$ ^#V0;r*!$ s#r",x*:! 9N#F!( ^#VoB%?!$ ^#VaB>4@=?ͻ?:!9N#F!9^#V!!9s#r!9^#V!9~#fo;|!+(~#!+++`i#DM+s!9~#fo#s#r*@;ʃ+!,!9s.!9!29^#V :!9!9:!9.0! 9^!9^#Vs#r!9^!9^#Vs#r! 9^!9^#Vs#r:!9.0!9^!9^#Vs#r!9^!9^#Vs#r!9^!9^#Vs#r!9^!9^#Vs#r:!!"Z2!!"Z2!!"Z2!! Z2!$L2DM!4/#[;V/!$L2`i0;V/-/!;f/!! Ͷ1!;}/!À/!:! 9N#F`i^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2!! 2! ! Z2:! 9N#F.P0!!=!Ͷ1`is!Ͷ1! s!Ͷ1! s!Ͷ1! s!Ͷ1! s!Ͷ1! s! Ͷ1! s!Ͷ1! s! ! Z2:!9^#V!:0!0!"!.!9^#V+DM! 9^#V!0;)1! 9~#fo+s#r+).^#V`iDM0!9^#V!N0;a1!9~#fo+s#r!:V1`i#DM!mPYDM)1`iu;#:.!! Z2!!$Z2!! Z2!!$Z2! ! Z2:! 9^#V! Z2!$L2DM!! Z2!$L2»1`i:`i < ;:!9N#F! 9^#V! Z2`i u;`i ;))))4+##^! A;:4!##s;44nf"2͈6:*2|\4*2|ʿ4!!!9=*2##͉=!9s*2##!9d=!9!9!2!9*2^#V"2\4!2!999999:!9^#V!͕<4!!9s#r;9*4!4DM~#5++nf!9~#fo͇<5nf!9~#fo5<͕ 6 #=:>6#=%: : >X: Aڒ:[I:@U:aڒ:{Ғ:`w# .s:ʌ:[:͙:w#\:{o|g ʌ:͙:w#}:!!|a{ !9^#V*9!9}|:*9"9|!¯d`i#D|g}o|/g}/o^#V#DM!99`i:|z2:͆;::;}͟;}}+;|:;!}:;|+;!}|S;}|?>o&zo&|m;}|>o&|o&z2:͆;::;||;/g}/o#z;/W{/_ß;DM!>2:))Ҳ;#}o|g; ::=2:ª;}::=2:ª;}DM!>)); =;}}/o|/g#}|:;+;|g}o{_2<|<|7g}o<{_2<)-<}}o|gN#F# N#F#zV<{Z<##^#VBK^#Vz<#yz<###h<#xu<#~#fo}|>?o&}|>o&{_2<|g}oª<|g}o~# x¿)>#>!|!9^#V#nE>#<>x#> +~E>)>!9~ z> z> z>Ï>!9~Aڏ>[ҏ>!}!9~aڏ>{z>!!9~0ڏ>:ҏ>z>!9~aڷ>{ҷ> o&!9~A>[> o&*݊h`i^!*?!*w#w#w#w*~#~#~#~">*V+^+V+^*>">*s#r#s#r*>**""*>w#f?*~1B#u?&B=ɯ<**###??è??ڂ?†?+ª?**#?**#?**#?**#@**#@*~/w#+@*~?G*^#V#~#fo))P@#H@DM*s#r#q#p*~?W*###~@~w+y@u@7~w+‹@‡@~#œ@Oc?*>͙@y2>*>͙@:>2>A>*w#@:>`?*>͙@y2>*>͙@A>*w#A:>`?!>w#A> 2>!>~w#/AO>!>#DAy_A!>4!>5)A!>5ʑA!>~w#lAO>!>#Ay_ASA>!>#šA*>~#­A*>~#½A!>w#A> 2>!>~w#AB>!>#ABA!>5A*>w#B͊?1B!͊?&B!<͊?1B&B͊?1B1B&B͊?&B1B͊?&B&B1B*s#r#6#6*s#r#ziB6#6*^#V5A*>w#B͊?1B!͊?&B!<͊?1B&B͊?1B1B&B͊?&B1B͊?&B&B1B*s#r#6#6*s#r#ziB6#6/Do not try to edit this file with a Word Processor!See instructions and edit MASMENU.TXTUsetheup-arrow and down-arrow keys to move the darkenedbartoyourchoice. Then, press the right-arrow key. To exit this menu, press ESCMaster MenuVersion % / 6.8Main Menu InstructionsWord processing }Spreadsheets}dBase II InfoStarMBasic & Games More Games\ CBasic Compiler SBasic CompilerTelecommunicationsHUtilities"Thismenuwill guide you in the use of your Kaypro.The highlighted portion of thescreenis a list ofthe major types of programs that you have onyourcomputer. Whenyouchoosean optiononthemain menu,a sub-menu will appear to the right of it.Choosing one of the options will run a program. Use the left arrowkeyto leave a sub-menuwithout running a program.Instructions Thischoicewill put onthescreen a file thatwilltellyou somethingaboutyour computer.Itwill displaythe text one pageata time. When youarethrough readingonepage, press to view the next page. WordStard Install WordStar:kThe Word PlusxCheck SpellingnnAlphabetic Sort}HyphenationAnagramFind a Word; Look up a WordS 1!Word CountH!"WordStaris a popular wordprocessing programdevelopedby MicroPro.Itcanbe customizedtoyour desireswiththe installation program.Micro Plan/"CalcStar"#CalcStar Dump#I$MicroPlanisa spreadsheetprogram producedbyChang Labs.It is easy to useand has a command menu on the screen. Run dBase II Q$Run dSort i$V%Run dGen ]%&Run Zip &'dBase Tutorial '(List Command Files ( )List Data Files ))d)List Index Files ))Install dBase II )*Install Zip (*o*dBaseIIisan information management toolthat allows easy manipulationof small andmedium size data- basesusingEnglish- likecommands. With dBaseIIyoucan createcomplete informationsystems andeasilyadd, delete, edit, display, sortandprintdata baseduponany criteria.Included withyourKAYPRO are severalsampledBase programs. Create a Form v*DataStar*:+Quick ReportsD+@,Report EditorF,#-Report Print*--Form Sort-.List Data Files/q/List Index Files/0List DEF Files 00List Report Files01List Reports411Thisprogramcreates theformsthatare usedbyDataStar. Notethat a form must becreated before any datacanbe entered. Itishighly recommendedfor this, and all other InfoStar programs,thatyou createallofyour files on the B: disk. MBasic 1OBasic2c2Biorhythm2,3Blackjackt34Horse RacesV44Rocket55Star Trek66Taxman77Star Traders 8u8Wumpus8%9MBasicisaBASIC interpreter.Itis easytouse for both thebeginnerand experienced programmer. It is an excellent language for thoseinterestedin learningabout programming.Clone Wars h9Alienso99Ladder9:Catchum:;Battlethe evil Clone Masterandtryto escapehisnasty clutches in this game of dexterity and wits.List Source Files ;List Programs;<Edit a program<<Compile a program<=Run a program9==Compile and Run=u>Thiswill list all of theCBasicsource files.Theyare signifiedbytheir .BAS extension.List source files>List programs>>Edit a program>a?Compile program??Run a program @_@Compile and Runw@@Thiswilllistall fileswitha.BAS extension.Automite AM.I.T.E.AAInstall new modemAkBThiscommunications program has everything thenovice and expert will ever need. It is the most user friendly package available, yet itisalsothe most powerful. If you are inexperienced in using telecommunications, we recommend that you use this version of MITE. Turn Off Computer=uBSpace on DiskvBBPrinter data rateCCSerial PrinterCDParallel PrinterDEConfigurationE{FBackup InstructionsFFBackup filesF!GRestore files*GfGExamine filesoGGFloppy FormatGHBeforeturningoff yourcomputeryou shouldwait until the lightlabeled'10 MB READY' goes out. This willinsurethat the diskisdeselected. Turningoffthe computerwiththe lightoncancause damagetoyourhard disk.This option leads to a sub-menu that contains programstohandle yourwordprocessing needs.Thisoption takes you to a sub-menu with two spread-sheet programs: CalcStarandMicro Plan.dBaseIIisAshton- Tate'sAssembly LanguageRelational DatabaseManagement System. It allows you tomanipulatedata- basesusingEnglish- like commands. You can createandmaintain databases,write programs,generate reports,andmuch more.InfoStarisadata basemanagement package which consists oftwoproducts: DataStarand ReportStar.Each of theseconsistof severalprograms. Theyarecompatible with both WordStar and CalcStar.MBasicis Microsoft's versionof BASIC. It isinterpretiveand easy to use. A variety of games is included.Theseare games which do not require a BASIC interpretertorun. They are all real time gamesthatchallenge your dexterity.CBasicisDigital Research'sversion of BASIC.Itisa pseudo-compiler.SBasicis a compiled, structuredversion of BASIC.Itismore difficultto learn, butismore powerful than the other BASICS.Thisoptionleads to programswhichallow yourKayproto interactwithother computers via a modem.Thischoice will take youtoasub-menu containingvarious CP/MandKaypro utility programs.read kaypro.lrn pause b: a:ws 0file name? a: Thisprogramallows youto customize your versionofWordStar howeveryouwant it. WordStarshouldbe installedon A:. The nameofthefile to installisWS.COM. Thenameforthe installedWordStar is alsoWS.COM. If you change the name of the installedversionit willnolongerwork with this menu.winstall ws TheWordPlusisa spellingchecker. It willtake a file, and findall the words it doesnotrecognize fromthefile.It thenshowsyoueach word and allows you to lookupthecorrect spellingofthe word andreplacethe misspellingwiththe correction. Any words which change length in yourfilearethen markedwith a special character.: :The Word Plus will not return to MASMENU by itself. After it is :done, type MASMENU and return when you see the A1> prompt. : pause tw b:0file to check? This program will take afileand check all ofthewords,then giveyoualistof thosewordswhich it doesn'tknow.Note that this merely gives you a list of possible misspellings, but does notallowyouto interactivelycorrect themlikeTheWord Plus.spell b:0file to check? pause Thisprogramtakes a fileand sorts all of thewordsinit alphabetically. CAUTION: This program will take the file you specifyandturnit intoa sorted list of allthewords in it. Youroriginalfile willberenamed as a .BAK file!b: a:dictsort 0file? a: Thisprogramwill hyphenatewordsthat arelongerthan10 characters.Youcan controlthe length of words to be hyphenated bytyping$n(for wordslongerthatn letters)afterthe filename. If you do notspecifyafile nameyoucantype wordsdirectlyinto theprogramandit willtellyou how to hyphenate them.hyphen b:0file to hyphenate? a: Anagramtakesan arbitrarystringand findsall anagrams of it. You can use wild cardswith this. For example,typing ???ee willfindall five letterwords have two two e's.anagram 0string of letters? pause Thisisan excellent toolforcrossword puzzle buffs. Given a patternofletters, thiswillfindall wordsthatmatch the pattern. It uses wild cards?and*. For example,thepattern do?willfindall threeletterwords beginningwithdo, while'do*' will find allwordsstarting with'do'. '?'s can be put anywhere in the word;'*'smayonly appear at the end.find 0pattern? pause Thisworkslikea spellingdictionary. You type in a word and thiswillfindall words that are spelled similarly.Thisis veryusefulwhen you don't know exactly how tospell a particular word,buthavea general idea.lookup 0word? pause Thisutilitywill countthenumberof wordsina file. It will display the total numberofwords, the number of unique words inthefile, and the numberofwords appearingonce.It will also build a .FRQ filewhichwill list allthe words in your file and the number of timeseachone appears.Typing$A afterthefilename willsortthe.FRQ file alphabetically.b: a:wordfreq 0file name? a: pause plan CalcStar is MicroPro's spreadsheetprogram. Itworksverymuch likeWordStar,and hence is easy to learn touse. It uses many ofthesame commands that WordStar does.cs Thisprogram lets you print out a listing of aCalcStar file. The listing can be written eithertoanother file, for editing with WordStar,orcanbe printeddirectlyto the printer.csdump dbase 0command file? dSortisfast, flexibleutilityfor sortingdBaseII databases.You may sortupto 32 fields atthesame time, in eitherascendingor descendingorder. Sortingtimeis very rapidandnot appreciably affected bythenumberof fields.dsort dGenmakes it easy to createandrun programsthat facilitateuseof a dBase II database. To createtheprograms, yousimply answer the questions displayed by thedGenutilities. dGenallowsyouto createprogramsto view,add to and edit files, create reports, makemailinglabels, andcreatemenus for yourdBaseII programs.dbase dgen Zipallowsyouto design the screens and printedforms used in yourprogramsby simplytyping them as youwantthemto appear.Itis recommendedthatyou putallzip files on yourB: drive. To do thiswhen asked for a filename,prefix it with b:zip Thiswill take you to acopy of dBase and a set of files geared to helpingyou learn all aboutdBase II. Once youfeelconfident withyourability to usedBase,youmay wanttoerasethis copyof dBase and all ofthefiles to give you more disk space.dbase lessons This will show you all ofthe command (.CMD) filesthatyouhave created.d 0Drive A or B?:*.cmd pause Thiswilldisplaya listofallof your data (.DBF) files.d 0Drive A or B?:*.dbf pause Thiswill list all of the index (.NDX) files that you have.d 0Drive A or B?:*.ndx pause Thisallowsyouto customizedBase II to your personal tastes.install Thisenablesyouto customizethescreen formatterto your own tastes.zipin formgen DataStaristhe data entrypartof InfoStar.Onceyou havecreateda DataStarform,use thisprogram to enter yourdata. Remember that your all of your files should be on the B: disk.datastar TheQuickReport programwill help you producereportsfrom yourdata base. This programprovidesfor reports which are easy tobuild, and quickly generated.Ifyou needamorecomplex reportthanthis programcan make, use theReportEdit Program.rgen Thisprogramis used togeneratereports thataretoo complex fortheQuick Report programtohandle. Thisincludes reports that have complicated headings,multiple filesinvolved,or require special print formatting.redit Thisprogramis used to prepare your report for printing according to the instructions in yourreport specification file.report 0report file? FormSortisthe ReportStar program for sorting data files and performingfile maintenance. All your file sorting needs can beaccomplishedwith thissimpleyet powerfulprogram. Pleasenoteboth the formtosort and the destinationform must already be defined.formsort 0Output file name? 1Input filename(s) to sort? Thiswill list all of theDataFiles generatedthrough DataStar.Theyare indicatedbytheir .DTA extension.d 0Drive A or B?:*.dta pause Thiswill list all of yourIndexFiles. Theyareusedby ReportStartoprint outinformationin sorted order.d 0Drive A or B?:*.ndx pause Thesearethefiles thatarecreatedby theformgenerator program.They contain thegeneralform informationneeded by DataStarand ReportStar.d 0Drive A or B?:*.def pause Thesearethefiles whichtell ReportStar howtoprintyour data.d 0Drive A or B?:*.rpt pause Thiswill list all of thereportsthat you havegeneratedand senttodisk instead of to the printer.d 0Drive A or B?:*.prn pause b: : :When you are done, type SYSTEM to return to menu : a:mbasic a: OBasicisanolder versionofMBasic. Severalofthe games thatarelistedare written in OBasic.b: : :When you are done, type SYSTEM to return to menu : a:obasic a: Biois a computerized biorhythmcalculator. Itwillplotyour mental,physicaland emotionalcyclesfor asmanydaysas you want.: :When you are done, type SYSTEM to return to menu : pause obasic bio Challenge the computer toagameof blackjack. The stakes arehigh,andthe rulesarestandard casinorules, includinginsurance, splits,anddoubling down.: :When you are done, type SYSTEM to return to menu : obasic blkjk Cometotrackand placeyourbets. Decidewhowill win, placeandshow. And don'tforgetyour binoculars!: :When you are done, type SYSTEM to return to menu : obasic horse Trytolandyour rocketonthemoon. Youcontrolyour velocityasyou descendtowardthe rockysurface.But don'tburnyour fuel too soon, as a lunar crashcanbemost unpleasant!: :When you are done, type SYSTEM to return to menu : obasic rocket Takecommandofthe Starship Enterprise in it'sneverending battleagainstthe KlingonEmpire. This gameincludeslevels ofdifficulty to make itchallengingfor everyonefromSpace CadetstoGalactic Admirals!: :When you are done, type SYSTEM to return to menu : obasic strtrk Try to beat the taxman at his own game. Pick numbersfrom the list provided,butdon't forget,thetaxman alwaysgetshis cut! Trytoend up with more than the Taxman.: :When you are done, type SYSTEM to return to menu : obasic taxman Becomeagalactic traderinthis excitinggameof multi-milliondollar, interstellarstock transactions.: :When you are done, type SYSTEM to return to menu : obasic trade Chasedowntheever elusive wumpus through histwenty-cave lair. Bewarethe bottomless pits and super bats!: :When you are done, type SYSTEM to return to menu : obasic wump clone SavetheEarthfrom invadingaliens. Six levelsofdifficulty keepthisgame challengingforall fledglingGalactic Defenders.aliens Help your lad traverse the maze of ladders in hispursuitof$. Grab the &'s but avoid theeverdangerous o's.Use the keypad to move around.ladder Catchum puts your cats (C)intoamazeof dots which you want to eat.Butbewarethe evilA's which try to putanendtoyour munching.Eat the tastymice(M) and $ forextrapoints. Thereare nine levels ofdifficultywhich canbesetbefore running the game.catchum d b:*.bas pause Thiswill show all of theCBasiccompiled programs.Theyall havea.INT extension.d b:*.int pause Thisallowsyouto edita CBasic program usingWordStar.Type theprogram name (1-8 letters)withoutthe .BAS extension.b: a:ws 0program name?.bas a: This turns a .BAS file intoanexecutable .INTfile.Typethe programnamewithout the .INT extension.b: a:cbas2 0program name? a: This runs a .INT file. Typethe program name withoutthe.INT extension.b: a:crun2 0program name? a: Thistakesa.BAS file,compilesit, then runs it. Even if thecompilationis notsuccessful,an attemptwillbe made torunthe .INT file ofthesamename. Typethe program name withoutthe.BAS extension.b: a:cbas2 0program name? a:crun2 0 a: d b:*.bas pause Thiswilllistall .COMfilesinthe current user.d b:*.com pause Thisallowsyouto edit an SBasic program usingWordStar.Type theprogramname withoutthe.BAS extension.b: a:ws 0program name?.bas a: Thiswillcompilea .BASfileintoan executable.COM file. Typethe program name withoutthe.BAS extension.sbasic 0program name?.bbx Thiswillexecutea .COMfile. Type the programnamewithout the .COM extension.b: 0program name? a: Thisoptiontakesa .BAS file and compiles then executes it. Type theprogramname withoutthe.BAS extension.sbasic 0program name?.bbx b: 0 a: AUTOMITE Thisversionofthe telecommunications package should be used onlyby those who are proficientinthe fieldof telecommunications, or byexperienced programmers only!MITE Runthis when you buy amodemforyour Kaypro computer. This willtellthe communications packagesexactly what kindofmodemyou have,so it will know how to use it.MINSTALL Thisoption will tell youhow much space is leftona disk. Type theoneletter drive name; 'A' or 'B', when asked.STAT 0Drive name?: pause Thisallowsyouto changethedata rate (Baudrate)fora serialprinter.If youareusinga parallelprinteryou don't need to do this. Tochangethebaud ratepermanently, use theconfiguration program.BAUDP Run this when you want toswitch to a serial printer.This assignmentis temporary,andgoes away the next time you eitherreset, or turn off your computer. To permanentlyswitch to aserial printer, use theconfiguration program.stat lst:=tty: Run this when you want toswitchtoa parallel printer. This assignmentis temporary, and will go awaywhenyour computerisreset or turnedoff.To permanentlyselecta parallelprinter, use theconfiguration program.stat lst:=lpt: This option allows you tochange the meaning ofthevectorkeys, (10key pad and arrow keys),thedefault printerassignment (serialvs parallel), andtheinitial baud rate assignments.Config Theoptiondisplays instructionsfor backing up large files onfloppies using the MUFBAR backup system.MUFDESC Thisoptionwill backupfilesonto floppies.MUFBACK Thisoption will copy files from floppy onto the hard disk.MUFREST This option allows you toexaminefiles backedupusingthe MUFBAR system.MUFLOOK This option allows you toformatafloppy diskette in Drive C:.FLPYFMT g Theoptiondisplays instructionsfor backing up large files onfloppies using the MUFBAR backup system.MUFDESC Thisoptionwill backupfilesonto floppies.MUFBACK Thisoption will copy files from floppy onto the hard disk.MUFREST This option allows you toexaminefiles backedupusingthe MUFBAR system.MUFLOOK This option allows you toformatafloppy diskette in Drive C-- -- -- English Language Menu Text File -- -- This file is processed by MASPREP to generate MASMENU.DAT. -- The .DAT file is used by MASMENU to control its actions. -- -- Version for the Kaypro Ten -- -- Revised: 04-19-84 -- Revised: 08-07-84 -- Revised: 8-29-84 sgr 6.6 -- Revised: 09-05-84 RWB 6.7 - Revised 9-06-8 sg 6.8 -- -- First, we have to define the ever-present cursor prompt -- "Use the up-arrow and down-arrow keys to move the darkened bar to your choice. Then, press the right-arrow key. To exit this menu, press ESC" -- -- Main menu title -- "Master Menu" -- -- Current version -- "Version % / 6.8" -- -- Main menu title -- "Main Menu" -- -- Clock time. This must be included even if the system has -- no clock. The format is: -- -- 12 for normal AM/PM time. -- 24 for military/European time. -- 12 -- -- Date format. The first character is the date separator, -- the next three are M, D, and Y in the order desired. -- Normal US format is "/MDY". Normal European format is "/DMY". -- "/mdy" -- -- Start defining menu groups -- "Instructions" "This menu will guide you in the use of your Kaypro. The highlighted portion of the screen is a list of the major types of programs that you have on your computer. When you choose an option on the main menu, a sub-menu will appear to the right of it. Choosing one of the options will run a program. Use the left arrow key to leave a sub-menu without running a program." { "Instructions",1 -- instruct file is in user #1 "This choice will put on the screen a file that will tell you something about your computer. It will display the text one page at a time. When you are through reading one page, press to view the next page." ** read kaypro.lrn pause ** } -- -- Word processing menu -- "Word processing" "This option leads to a sub-menu that contains programs to handle your word processing needs." { "WordStar",1 "WordStar is a popular word processing program developed by MicroPro. It can be customized to your desires with the installation program." ** b: a:ws $"file name?" a: ** "Install WordStar",1 "This program allows you to customize your version of WordStar however you want it. WordStar should be installed on A:. The name of the file to install is WS.COM. The name for the installed WordStar is also WS.COM. If you change the name of the installed version it will no longer work with this menu." ** winstall ws ** "The Word Plus",1 "The Word Plus is a spelling checker. It will take a file, and find all the words it does not recognize from the file. It then shows you each word and allows you to look up the correct spelling of the word and replace the misspelling with the correction. Any words which change length in your file are then marked with a special character." ** : :The Word Plus will not return to MASMENU by itself. After it is :done, type MASMENU and return when you see the A1> prompt. : pause tw b:$"file to check?" ** "Check Spelling",1 "This program will take a file and check all of the words, then give you a list of those words which it doesn't know. Note that this merely gives you a list of possible misspellings, but does not allow you to interactively correct them like The Word Plus." ** spell b:$"file to check?" pause ** "Alphabetic Sort",1 "This program takes a file and sorts all of the words in it alphabetically. CAUTION: This program will take the file you specify and turn it into a sorted list of all the words in it. Your original file will be renamed as a .BAK file!" ** b: a:dictsort $"file?" a: ** "Hyphenation",1 "This program will hyphenate words that are longer than 10 characters. You can control the length of words to be hyphenated by typing $n (for words longer that n letters) after the file name. If you do not specify a file name you can type words directly into the program and it will tell you how to hyphenate them." ** hyphen b:$"file to hyphenate?" a: ** "Anagram",1 "Anagram takes an arbitrary string and finds all anagrams of it. You can use wild cards with this. For example, typing ???ee will find all five letter words have two two e's." ** anagram $"string of letters?" pause ** "Find a Word",1 "This is an excellent tool for crossword puzzle buffs. Given a pattern of letters, this will find all words that match the pattern. It uses wild cards ? and *. For example, the pattern do? will find all three letter words beginning with do, while 'do*' will find all words starting with 'do'. '?'s can be put anywhere in the word; '*'s may only appear at the end." ** find $"pattern?" pause ** "Look up a Word",1 "This works like a spelling dictionary. You type in a word and this will find all words that are spelled similarly. This is very useful when you don't know exactly how to spell a particular word, but have a general idea." ** lookup $"word?" pause ** "Word Count",1 "This utility will count the number of words in a file. It will display the total number of words, the number of unique words in the file, and the number of words appearing once. It will also build a .FRQ file which will list all the words in your file and the number of times each one appears. Typing $A after the file name will sort the .FRQ file alphabetically." ** b: a:wordfreq $"file name?" a: pause ** } -- -- Spreadsheets -- "Spreadsheets" "This option takes you to a sub-menu with two spread-sheet programs: CalcStar and Micro Plan." { "Micro Plan",2 "Micro Plan is a spreadsheet program produced by Chang Labs. It is easy to use and has a command menu on the screen." ** plan ** "CalcStar",8 "CalcStar is MicroPro's spreadsheet program. It works very much like WordStar, and hence is easy to learn to use. It uses many of the same commands that WordStar does." ** cs ** "CalcStar Dump",8 "This program lets you print out a listing of a CalcStar file. The listing can be written either to another file, for editing with WordStar, or can be printed directly to the printer." ** csdump ** } -- -- dbase II -- "dBase II",10 "dBase II is Ashton- Tate's Assembly Language Relational Database Management System. It allows you to manipulate data- bases using English- like commands. You can create and maintain databases, write programs, generate reports, and much more." { "Run dBase II",10 "dBase II is an information management tool that allows easy manipulation of small and medium size data- bases using English- like commands. With dBase II you can create complete information systems and easily add, delete, edit, display, sort and print data based upon any criteria. Included with your KAYPRO are several sample dBase programs." ** dbase $"command file?" ** "Run dSort",10 "dSort is fast, flexible utility for sorting dBase II databases. You may sort up to 32 fields at the same time, in either ascending or descending order. Sorting time is very rapid and not appreciably affected by the number of fields." ** dsort ** "Run dGen",10 "dGen makes it easy to create and run programs that facilitate use of a dBase II database. To create the programs, you simply answer the questions displayed by the dGen utilities. dGen allows you to create programs to view, add to and edit files, create reports, make mailing labels, and create menus for your dBase II programs." ** dbase dgen ** "Run Zip",10 "Zip allows you to design the screens and printed forms used in your programs by simply typing them as you want them to appear. It is recommended that you put all zip files on your B: drive. To do this when asked for a file name, prefix it with b:" ** zip ** "dBase Tutorial",9 "This will take you to a copy of dBase and a set of files geared to helping you learn all about dBase II. Once you feel confident with your ability to use dBase, you may want to erase this copy of dBase and all of the files to give you more disk space." ** dbase lessons ** "List Command Files",10 "This will show you all of the command (.CMD) files that you have created." ** d $"Driv o B?":*.cmd pause ** "List Data Files",10 "This will display a list of all of your data (.DBF) files." ** d $"Driv o B?":*.dbf pause ** "List Index Files",10 "This will list all of the index (.NDX) files that you have." ** d $"Driv o B?":*.ndx pause ** "Install dBase II",10 "This allows you to customize dBase II to your personal tastes." ** install ** "Install Zip",10 "This enables you to customize the screen formatter to your own tastes." ** zipin ** } -- -- InfoStar -- "InfoStar",7 "InfoStar is a data base management package which consists of two products: DataStar and ReportStar. Each of these consist of several programs. They are compatible with both WordStar and CalcStar." { "Create a Form",7 "This program creates the forms that are used by DataStar. Note that a form must be created before any data can be entered. It is highly recommended for this, and all other InfoStar programs, that you create all of your files on the B: disk." ** formgen ** "DataStar",7 "DataStar is the data entry part of InfoStar. Once you have created a DataStar form, use this program to enter your data. Remember that your all of your files should be on the B: disk." ** datastar ** "Quick Reports",7 "The Quick Report program will help you produce reports from your data base. This program provides for reports which are easy to build, and quickly generated. If you need a more complex report than this program can make, use the Report Edit Program." ** rgen ** "Report Editor",7 "This program is used to generate reports that are too complex for the Quick Report program to handle. This includes reports that have complicated headings, multiple files involved, or require special print formatting." ** redit ** "Report Print",7 "This program is used to prepare your report for printing according to the instructions in your report specification file." ** report $"report file?" ** "Form Sort",7 "Form Sort is the ReportStar program for sorting data files and performing file maintenance. All your file sorting needs can be accomplished with this simple yet powerful program. Please note both the form to sort and the destination form must already be defined." ** formsort $"Output file name?" $1"Input filename(s) to sort?" ** "List Data Files",7 "This will list all of the Data Files generated through DataStar. They are indicated by their .DTA extension." ** d $"Driv o B?":*.dta pause ** "List Index Files",7 "This will list all of your Index Files. They are used by ReportStar to print out information in sorted order." ** d $"Driv o B?":*.ndx pause ** "List DEF Files",7 "These are the files that are created by the form generator program. They contain the general form information needed by DataStar and ReportStar." ** d $"Driv o B?":*.def pause ** "List Report Files",7 "These are the files which tell ReportStar how to print your data." ** d $"Driv o B?":*.rpt pause ** "List Reports",7 "This will list all of the reports that you have generated and sent to disk instead of to the printer." ** d $"Driv o B?":*.prn pause ** } -- -- Basic and games -- "MBasic & Games" "MBasic is Microsoft's version of BASIC. It is interpretive and easy to use. A variety of games is included." { "MBasic",3 "MBasic is a BASIC interpreter. It is easy to use for both the beginner and experienced programmer. It is an excellent language for those interested in learning about programming." ** b: : :When you are done, type SYSTEM to return to menu : a:mbasic a: ** "OBasic",3 "OBasic is an older version of MBasic. Several of the games that are listed are written in OBasic." ** b: : :When you are done, type SYSTEM to return to menu : a:obasic a: ** "Biorhythm",3 "Bio is a computerized biorhythm calculator. It will plot your mental, physical and emotional cycles for as many days as you want." ** : :When you are done, type SYSTEM to return to menu : pause obasic bio ** "Blackjack",3 "Challenge the computer to a game of blackjack. The stakes are high, and the rules are standard casino rules, including insurance, splits, and doubling down." ** : :When you are done, type SYSTEM to return to menu : obasic blkjk ** "Horse Races",3 "Come to track and place your bets. Decide who will win, place and show. And don't forget your binoculars!" ** : :When you are done, type SYSTEM to return to menu : obasic horse ** "Rocket",3 "Try to land your rocket on the moon. You control your velocity as you descend toward the rocky surface. But don't burn your fuel too soon, as a lunar crash can be most unpleasant!" ** : :When you are done, type SYSTEM to return to menu : obasic rocket ** "Star Trek",3 "Take command of the Starship Enterprise in it's never ending battle against the Klingon Empire. This game includes levels of difficulty to make it challenging for everyone from Space Cadets to Galactic Admirals!" ** : :When you are done, type SYSTEM to return to menu : obasic strtrk ** "Taxman",3 "Try to beat the taxman at his own game. Pick numbers from the list provided, but don't forget, the taxman always gets his cut! Try to end up with more than the Taxman." ** : :When you are done, type SYSTEM to return to menu : obasic taxman ** "Star Traders",3 "Become a galactic trader in this exciting game of multi-million dollar, interstellar stock transactions." ** : :When you are done, type SYSTEM to return to menu : obasic trade ** "Wumpus",3 "Chase down the ever elusive wumpus through his twenty-cave lair. Beware the bottomless pits and super bats!" ** : :When you are done, type SYSTEM to return to menu : obasic wump ** } -- -- Games -- "More Games" "These are games which do not require a BASIC interpreter to run. They are all real time games that challenge your dexterity." { "Clone Wars",3 "Battle the evil Clone Master and try to escape his nasty clutches in this game of dexterity and wits." ** clone ** "Aliens",3 "Save the Earth from invading aliens. Six levels of difficulty keep this game challenging for all fledgling Galactic Defenders." ** aliens ** "Ladder",3 "Help your lad traverse the maze of ladders in his pursuit of $. Grab the &'s but avoid the ever dangerous o's. Use the keypad to move around." ** ladder ** "Catchum",3 "Catchum puts your cats (C) into a maze of dots which you want to eat. But beware the evil A's which try to put an end to your munching. Eat the tasty mice (M) and $ for extra points. There are nine levels of difficulty which can be set before running the game." ** catchum ** } -- -- CBasic and its accomplices -- "CBasic Compiler" "CBasic is Digital Research's version of BASIC. It is a pseudo-compiler." { "List Source Files",4 "This will list all of the CBasic source files. They are signified by their .BAS extension." ** d b:*.bas pause ** "List Programs",4 "This will show all of the CBasic compiled programs. They all have a .INT extension." ** d b:*.int pause ** "Edit a program",4 "This allows you to edit a CBasic program using WordStar. Type the program name (1-8 letters) without the .BAS extension." ** b: a:ws $"program name?".bas a: ** "Compile a program",4 "This turns a .BAS file into an executable .INT file. Type the program name without the .INT extension." ** b: a:cbas2 $"program name?" a: ** "Run a program",4 "This runs a .INT file. Type the program name without the .INT extension." ** b: a:crun2 $"program name?" a: ** "Compile and Run",4 "This takes a .BAS file, compiles it, then runs it. Even if the compilation is not successful, an attempt will be made to run the .INT file of the same name. Type the program name without the .BAS extension." ** b: a:cbas2 $"program name?" a:crun2 $0 a: ** } -- -- SBasic and friends -- "SBasic Compiler" "SBasic is a compiled, structured version of BASIC. It is more difficult to learn, but is more powerful than the other BASICS." { "List source files",5 "This will list all files with a .BAS extension." ** d b:*.bas pause ** "List programs",5 "This will list all .COM files in the current user." ** d b:*.com pause ** "Edit a program",5 "This allows you to edit an SBasic program using WordStar. Type the program name without the .BAS extension." ** b: a:ws $"program name?".bas a: ** "Compile program",5 "This will compile a .BAS file into an executable .COM file. Type the program name without the .BAS extension." ** sbasic $"program name?".bbx ** "Run a program",5 "This will execute a .COM file. Type the program name without the .COM extension." ** b: $"program name?" a: ** "Compile and Run",5 "This option takes a .BAS file and compiles then executes it. Type the program name without the .BAS extension." ** sbasic $"program name?".bbx b: $0 a: ** } -- -- Telecommunications -- "Telecommunications" "This option leads to programs which allow your Kaypro to interact with other computers via a modem." { "Automite",6 "This communications program has everything the novice and expert will ever need. It is the most user friendly package available, yet it is also the most powerful. If you are inexperienced in using telecommunications, we recommend that you use this version of MITE." ** AUTOMITE ** "M.I.T.E.",6 "This version of the telecommunications package should be used only by those who are proficient in the field of telecommunications, or by experienced programmers only!" ** MITE ** "Install new modem",6 "Run this when you buy a modem for your Kaypro computer. This will tell the communications packages exactly what kind of modem you have, so it wil know how to us it." ** MINSTALL ** } -- -- CP/M Utilities -- "Utilities" "This choice will take you to a sub-menu containing various CP/M and Kaypro utility programs." { "Turn Off Computer",0 "Before turning off your computer you should wait until the light labeled '10 MB READY' goes out. This will insure that the disk is deselected. Turning off the computer with the light on can cause damage to your hard disk." ** ** "Space on Disk",0 "This option will tell you how much space is left on a disk. Type the one letter drive name; 'A' or 'B', when asked." ** STAT $"Drive name?": pause ** "Printer data rate",0 "This allows you to change the data rate (Baud rate) for a serial printer. If you are using a parallel printer you don't need to do this. To change the baud rate permanently, use the configuration program." ** BAUDP ** "Serial Printer",0 "Run this when you want to switch to a serial printer. This assignment is temporary, and goes away the next time you either reset, or turn off your computer. To permanently switch to a serial printer, use the configuration program." ** stat lst:=tty: ** "Parallel Printer",0 "Run this when you want to switch to a parallel printer. This assignment is temporary, and will go away when your computer is reset or turned off. To permanently select a parallel printer, use the configuration program." ** stat lst:=lpt: ** "Configuration",0 "This option allows you to change the meaning of the vector keys, (10 key pad and arrow keys), the default printer assignment (serial vs parallel), and the initial baud rate assignments." ** Config ** "Backup Instructions",0 "The option displays instructions for backing up large files on floppies using the MUFBAR backup system." ** MUFDESC ** "Backup files",0 "This option will backup files onto floppies." ** MUFBACK ** "Restore files",0 "This option will copy files from floppy onto the hard disk." ** MUFREST ** "Examine files",0 "This option allows you to examine files backed up using the MUFBAR system." ** MUFLOOK ** "Floppy Format",0 "This option allows you to format a floppy diskette in Drive C:." ** FLPYFMT ** } tion displays instructionMUFBAR backup system." ** MUFDESC ** "Backup files",0 "This option will backup files onto floppies." ** MUFBACK ** "Restore files",0 "This option will copy files from floppy onto the hard disk." ** MUFREST ** "Examine file,8MASMENU Preprocessor Version 5.0 05-04-84 Copyright (c) 1984, Kaypro Corporation >K+ A0A0A0A?u=z=========<<<<<<-<-<-<-<-<-<-<-<ͤ !!!+(8!:o&*L.Lsmdy%!'! !"!9^#V!9^#V,!͔" !<%!E!y!!'!"!"!"9)&ʌ!'!'!'!!'!'|!!*$*9)&|* )&ʏ*)&ʏ!'!@'|*"9)&ʴ!Z'!'|*J)&á*#^L*#s*##^L*##s*###^L*###s*!ͺJ!m*aKʡ!d*aKʡ!y*aKʡDo not try to edit this file with a Word Processor!See instructions and edit MASMENU.TXT Pass 1: Reading %s [1] The first line in the .TXT file must be the cursor movement line Check the instructions and try againcursor movement line The second line in the .TXT file must be amenu screen titlemenu title The third line in the .TXT file must be a version header.menu version The fourth line in the .TXT file must be the main menu titlemain menu title The fifth line in the .TXT file must be the 24/12 hour indicator The sixth line in the .TXT file must be the date format%!*#"U&!|*! '*!! 'G *+"!!!9s#r99*)&ʨ *|¨ *)&/*!? 'G !9~#fo#s#r+ U&j*!] 'G *+"!9^#V! !*$ͨ *hL|ʧutò!9s#r NLhL!utut9& 9)&*! '*DMU& *! '!DM9% !DM`iu*)&F *! 'G ! !!*͹!9 *hL9&ʐ !͔utß  + hL*| !9~# *! ' *| !9~# *! '*+"!9^#V Missing closing '}' at line %d Menus nested more than %d at line %d Expected a string at line %d Too many menu entries at line %dmenu title User number expected at line %d User number too big, line %d Expected a description at line %ddescriptive text Missing '}' at line %d Extra '}' at line %d%*)&M *! 'G *J) !!9s#r!*DMy `i#DM`i~ |ʖ `i^! :&t `i^!$&ʵ ! ^K ! ^!"&ʵ `i#DM^K `i#DM+^!9s#r !0!9s#r`i^!")&' !#+s!9^#V#+s`i+DMò !#+s!9^#V#+s`i#DM`i~ʆ `i^! )&ʆ `i^!")&ʆ `i#DM+^#+sL `i^!")&ʤ *!" 'G !#+s `i^#+s!t !u!9!9^#VhL!9^#Vͼ"!9UL Expected '**' submit lines, line %d Line %d, $" line not ended with a "%*#"T&^ !| '!! '!< Too many fatal errors! %s file unchanged.%*| ! !"!"*+"*"%!!'!"!"! !L("**& !#!*|2!5!n.*:o&n.*:o&!aK.'n.*:o&!aK.'n.*:o&!aK.'n.!9*n+hL*!.!NL{L*ͷ*!9!DM`i#DM`iT&0**-| *n.*!n.*1*!n.*!n.*!n.*;!9*n+hL!! 9UL{L*ͷ*!9*!9UL@LNO.!9UL@LN@LM{L!'*/*/!%J Pass 2: Building %s [2]w+ Final file size, %ldkMASMENU.$$$%!!9^#VBKO`i^#VBKx^#H*n.!9^#VBK|`i^#VBKx`iUL{Lͱ`i ULLʱ*!n.þ*!n.*! ^n.`i*n+hL*!! u*!n.!9*n+hL!9^#V! UL{Lͱ!9^#V! NLhL!9*n+hL!!9^#V!UL{L*ͷ*!9*!!9 !! 9UL{L*ͷ*!9!9^#VBKö`i^#VBKx:`i##~#7!9*n+hL!`iUL@LM{L*ͷ*!9*!!9 !!9UL{L*ͷ*!9! ^#V1ï%!9^#VBKS`i^#VBKx`i ULL!9*n+hL`i UL{Lͱ!9*n+hL!`iUL{L*ͷ*!9*!!9 !! 9UL{L*ͷ*!9`i ULL|!9*n+hL`i UL{Lͱ!9*n+hL!`iUL@LM{L*ͷ*!9*!!9 !! 9UL{L*ͷ*!9L!9^#VBKÒ`i^#VBKxʰ`i##~#ʭ! ^#V;Ë%!!9UL{L*ͷ*!9**-DM|`i&!'*n.*!n. Bizarre end of file!=_=:j=  %*|J!DM*|[!`i!"!"!" DM*&ʍe!"!*DM DM-&ʺ  )&ʷèJ!-DM!"Y',`{g}n*u-"K0`i" DMK!"* &PY"*!F'G J Didn't expect '%c' at line %d%*DM`i*&ʣ DM*&ʕ!u!*#+s`i#+s DMu%! 9N#F!9^#V!9^#V+`i"'~ʛ`i^! &!`is`i#DM*'#"'`i^z!")"+*)T&ʹ`i^zʹ`i^! &d`i^! &d`i#DM*)#")G*+#"+`i^! )&ʶ`i^z‘*):&ʑ`i^!&ʧ`i#DMî*)#")`i#DMk"*+&*!'! *'s*'#DMe`i~d*)U&U`i+DM^! )&*)+")`i+DM^! &6*)+")`i#DM! `i#DM+s*'a! `i#DM+se+T&ʘ*!9^#V!'!`i+DMs Word too long at line %d Too many %s lines, at line # %d%!69N#F!49^#V!"1#n& )&Un& &3#+)!9s#rn&&K#R*1#"1|^h+`i*1.'"-|*-&"/*-U&ʮ*/|®*-U&ʮ!"/*/U&*/+)!9^#Vs*/*1"1a% DM`i )&`i )&`i )&`i )&`i%*|1!*DM|S* &J͆!"`i**-%DM)&`i &z͆`i &`i &ʘ*3|S`i &S`i &¿`i &¿!!"3`i &! `i!"!%!9N#F!9*n+hL*!J#I*!9!9UL%! 9N#FJ!9~#foU&m*!9^#V!n'!`i!9~#fo+s %s too long at line %d%*#"*2n&¯*!'ü!l!.͖, [%d]%! 9^" &*+"%!*DM*|j `is!")&jT&+T&C*!r'G V &V! `is )&g`i#DM!`is String too long at line %d%! 9N#FJ#*7T&ʽ!"7 !"5*5ͺJ*5"5.'%!9N#F!9^#V!@!ͺJ!L!ͺJ!"!9s#r!9s#r`i+DM|m##nf^!-&nf#^!?&nf#^KO&ʢ|Ž!9~#ʙ!X'!nf#^KX&*|!m'!"nf!'j|!9~#!'|#!9~##!'|Onf!ͺJ!!!9s#rjnf!ͺJ!!9s#r-|ʀ!'!!L("|¥!'!o&zo&|f&}|>o&|o&z2%&:%&||&/g}/o#z&/W{/_Ø&DM!>2%))ҫ&#}o|g& :%=2%£&}:%=2%£&}DM!>))& =&}}/o|/g#}|3&$&|g}o{_+'|'|7g}o'{_+')&'}}o|gN#F# N#F#zO'{S'##^#VBK^#Vzy'#ys'###a'#xn'#~#fo}|>?o&}|>o&{_+'|g}o£'|g}o~# x¸'!9%~#'!'|Q%!l"'!9!9^#V!5(1%! 9^#V"'!9!9^#V!5(1%*'!9^#V͖,%!aDM`i~z(`i DM̀'w(!V(!9^#V#^!+&!9^#V^r)|ʬ(!ï(!!9^#V=! s!&(!Å)|(!(!&!9^#V=! s!& )!Å)|)!)!&!9^#V=! s!&F)!!NL{L! ^[H!9Å)!"W!Y'r(w(a)h)!! s!! s#r!`is#r! s#r! s#r`i%!9N#F!!9s#r)!9~#fo#s#r!9^#V!9~#foT&@*!9^#V*+|=*!9^#V*-&.*!9^#V`i#DM+s))!9^#V%! 9N#F!9^#V!9~#fo&!z*#͎'ʮ*!9^#V`i#DM+^n.&ʫ*!s*!9^#V%!9N#F! ^!%*!ͤ/*!'+!9^#V!&'+`i~#'+!9`i^#V! ^#V.'OͧLUL'MhL!! s#r`is#r!9^#V!9UL{L! ^[H!9@L͍Oj+!!%!9N#F!9!NL{L! ^[H!9hL! ^!%+!9! ^#V`i^#V.'OͧLULMhL ,`i~# ,!9`i^#V! ^#V.'OͧLUL'MhL!9UL%! 9N#F`i~J,!l`i#DM+^͖,&G,! ,!l! ͖,%! 9N#F`i~ʒ,!9^#V`i#DM+^͖,&ʏ,!d,!%! 9N#F!9^#V!PY%DM`i &,! n.&,!n.%! 9^#V*-DM&-! 9^#V*-&-!'PY&%! 9N#F! ^#V`i^#V̀'-! ^!%^-!!`in&%s`i~#„-0! ^#V! ^#V! ^EB:&-|½-!-!`in&&s!! ^#V`is#r! s#r`i~#fo#s#r+^!%%!w!9^#Vn.%! 9N#F!9^#Vn.T&F.!!9^#V`i͛'n.T&k.!`i%!9N#F! ^#V`i^#V̀'ʣ.! 9^#V!%ͤ/! 9^#V`i~#fo#s#r+s!%%!!9^#Vͤ/%!aDM`i͎'/`i DM/.%!9N#F!!9s#r`i~ʒ/! ^!%I/!ͤ/!9s#r! ^*?!9~#fo&s#r! ^!%ʒ/*! ^#Vs#r! ^#V"!! s!9^#V%! 9N#F! ^!%0! ^#V`i^#V.'! ^#V! ^͉E&0!`in&&s!!9^#V!&G0!`in&%s!`is#r! s#r!`i~#X00! ^#V!&ʑ0!!9! ^͉E&/!9^#V! ^#V`is#r! ^#V! ^#V! s#r!`in&&s!9^#V`i~#fo#s#r+s!%%!9N#F! ^#V!&1`i! s#r*|61*!9s#r*^#V"]1! ^#V !!9s#rz]1!! s#r1!`in&&s!9^#V! s#r1060123456789abcdef%! 9^#V"1!9!9^#V!11!*1s%! 9^#V*1#"1+s!%%!N9N#F!P9^#V#+^z6%&6!!9s!!D9s#r! !B9s#r!!@9s#rn&-&p2!!D9s#r#+^0&ʇ2!0!B9s#r!!>9s#r#+^!09&29:&2!>9^#V! &!>9s#rÒ2.&13!!@9s#r#+^!09&139:&13!@9^#V! &!@9s#r2l&q3#+^!:9!T9~#fos#rULhL4d&ʣ3!:9!T9~#fo##s#r++^#VOhL4e&3f&3g&3!9!T9~#fos#rOO4!:9!T9~#fo##s#r++^#VͷOhLú5!9!!>9UL{L\7!9!49s#r5!:9UL@L͍Oʏ4!9! !>9ULͶL{L6!9!49s#r!-!69~#fo+s#rsò4!9! !>9UL{L6!9!49s#r5!9! !>9UL{L\7!9!49s#r5!9!!>9UL{L\7!9!49s#r5!:9ULO!49s#rJ!89s#r5e&55!85!!B9^#V!&O5!W5!B9^#V!9! 9OOO!9! 9!49s#rJ!89s#r!!@9s#r5!:9ULO!9!69s#rs5Y'o4d<4u4x4s5e#5f#5c55!9!49~#fo.'!89s#r!89^#V!@9~#foU&6!@9^#V!89s#r!D9~#W6!>9~#fo+s#r#!89~#foU&W6!B9^#V`i%&6!!69s#rt6!69~#fo#s#r!49^#V~ʴ6!69^#V!@9~#foT&ʴ6!49~#fo#s#r+^`i%e6!D9~#6!>9~#fo+s#r#!89~#foU&6! `i%þ66`i%1%!9N#F!9^#V`iO{L!9UL͓L;NO1^+s! 9`iOͧLULNhLL7%!9N#F!9^#V! 9UL@L͍O8! 9ULO%! 9!9UL@L͸M@L=MhL`i'O{L!9UL͓L;NO)1^+s! 9`i'OͧLULNhL!9UL{L6!9O*938'G8'*%DM*%o&'e8o&'*%*+++*%DM*%!9N#F#^#Vkb6#> 6 #=8>6#=™8 : >8 A9[ҽ8@8a9{9`w# .898 9w#8{o|g 9 9w#8!!|a{ !9^#V**8!9}|89**8"*8|!c a b b"b'b(b)5b,bca`i!9~#foOc!b(e"B!="$!9~#fo#s#r^zc~‹c[ýc~)!9^#V#+^zʽc[ác[c͏! %!!!y9EJ!:o&%y9s!;"=9!y9DM!"9*9T&;`i^! &b:`i^! &j:`i#DMF:`i^z;`i^!>&ʋ:!ß:`i^!<&~;!`i#DM^! &¾:`i^! &:ß:`i`i#DM~:`i^! &:`i^! &:!`i#DM+s::*?|;!ͧ=+;!=&{;!;!ͺJ!%K!nf-<&%>=!"W!!DM5>`iDM`i~#V>!9^#V`i^#V́JV>->! ^#V!9^#V!%#!9s#r!9^#V!%ʝ>n&u|>!"W!!9^#V!%>n&u|>!"W!! ^#Vsrn&un&u!0Aut!9^#V!9^#V!9^#Vnf%! 9!T&!?!!9^#V%! 9^#V!T&O?! 9^#V! U&Y?!"W!! 9^#V)))6DM! ^#V! ^#V%! 9s#r!! s! s! s`is!-w#¼L*~‡O#L|O=ɯ<**###LLLLLL+M**#M**#2M**#GM**#\M**#qM*~/w#M*~?G*^#V#~#fo))ҦM#žMDM*s#r#q#p*~?W*###~M~w+MM7~w+MM~#MOùL*4LMy22L* 23L!4L~w#…NO8L! 23L!4L~w#2O]O4L! 23L!4L~w#…NO8L!n n N$ WRITTEN BY ROBERT SCHRADER !)! !"c*a*~"wÓ...............................Ù !Þ"ÿ#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!s!͕*/͕!͕!͕!͕! Z$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$` !e"Æ#$%&'()$+$-$/0123456789$$$$$$ê @ABCDEFGHIJKLMNOPQRSTUVWXYZ$\$^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!:!]͕*c/͕!h͕!͕!͕! l͆ ! ! !X ! ͓ & !$!X͕!X !M"K!P"N!S"Q!V"T!Y"W!\"Z`\*^*K~"Kwr\*p"Q\Ä*}*7 "WØ\Ý **7 "Zñ**N~"Nw*"T!*c*K *&>*W*&>*Z @!* &+ >*Q!X!ͧ*N !X>*T!C b!!>;k!;q**oc* Ç***+ <* ͟ õ A4>CBAS2 !L *L ͮ ͟  A4>CRUN2 !L *L ͮ ** CBAS2.COM!CRUN2 ! *͕Copyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "͐2! ͐2! !+ !+ !~#w#xy2 22!"!6 x 2> 2 !",!6 :_!>"^"a!6 :a2!+ !""͐2! !+ !:N ! ڣ2͹:!!Ø" ͐2! ͐2! !+ !+ 2!""*~#"O! ~*w#"!4 !"8͐2! !+ !~#-!ʰaz:va2͐2! !:O~ʜ# 6x2>2w $$$ SUB!6 *%%"x * w#~=_*6 6*-!F * 6*%{/_z/W"!~_#Vf#N#F* r+sK*"< $"3 :w 2*% w#z‰**%CHAIN/EXECUTE OPE   $ ) / N Q >!# + P + _+ *P {P >!+ w#= |" + +| + w## y9 ! ~\+ [  PROGRAM CHAIN/EXECUTE ERROR$! > 6 #=} !6! ::>© ~##`ڧ @~ #. ­ ~ #. þ ( ~ # !  !(  !  w# ~* > _y{  >?w# }o|g}o|g|>" ͐2! :_!6:% } !:O>ͅ * 2 ~ʦ 2 #~ʦ ʹ! 5ʦ Ð : ʳ y 2% " ͐2( !( !) "& !( + :!*&  ~#.,-$*^+/&!\ #~:O~ʹ# N# 6~> #4 6#> ^"#:k c  : **l 2 ~2#~2#: ! ʲ :O>[ʹ5 >]ʹ> ʹ: =2 ² >2 y  : /2  ^"# ! n : WARNING ONL:O n !& n :!, n 5 ERRO IN LINE*|0ʹ|0ʹ}0ʹ}0ʹ!>w~ ʹ!4#n ʹ* s#r#" * +V+^" y2  :O! ~Һ > ʹ< O> ʹ> ʹ2^#V#" ~2 #͹: !!"wz1OFxHy#6H#wHH #6HO~NC #6#y*w"u|b}bq3!y2*uyHFO #6 wÁzʚ  ! 4 6!/ 4 6y2 >P 2 ^#V!! >: O: n!A \#~#^#VN#!A z~#‡"^#=V#=**"__{s+=r+=s+=!:X> !!D !'F %BAD CHANNEL NUMBEÂ::öþ:::?y(1::::::::_|›*:­ʢ2×!Ã:|*7>|22*&|! "&__7:\\!F >2:{\!F _<2!~ɀ&INPUT FILE REAPPPPPPPtPPPPH2 COPYRIGHT 1977,1981 COMPILER SYSTEMS, INC'd  END # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVALXOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3%LIST%PAGECHAINICLOSE4FLOATGOSUB5INPUT6LEFT$LO###7MATCHPRINT8USING9WHILE:WIDTH;%CHAIN%EJECTCOMMONREMARKbRENAMERETURN?RIGHT$UCASE$VARPTR%NOLISTCONSOLEBRESTORECSAVEMEMD%INCLUDECOMMAND$CONCHAR%CONSTAT%LPRINTERGRANDOMIZEHINITIALIZEIJh}>ku  PAGE$OUT OF DISK SPACE$OUT OF DIRECTORY SPACE$DISK ERROR $BASNO SOURCE FILE: $.BAS$ERROR $ IN LINE$ AT POSITION$WARNING: INVALID CHARACTER IGNORED IN LINE$INCLUDE NESTING TO DEEP NEAR LINE$FILE: $!mOs+q+p+q:mO=2mOʏ*jO:lOw*jO#"jOrNO!O6!nOq*O&N :nOw:O<2O͐!oOq*oO&!pOq:L!L:L*pOM:pO !?O4:L*pOMͦ:L!*pO&!rOp+q*qO~$B*qON*qO#"qO(!tOp+q!vO6+6>!uOڶ!wO60*uO&9) sOLLڑ*uO&9) sOLL+s#r!vO6#4_:uO/!vOҪ*wOMï !uO4Q:L2xO:L2yO!L6!L6 L"BO""*@O#"@ODMC!?O6   :xO2L:yO2L!{Oq:{O 6 :M<2M3A!M4*{OM:{O V!>O:?OVͷ  !L6!L6W: €"×: ‘"×" . *M -ª! N6 *M 6 *M 6*MN!L6#6!L6!L6"*M~*M>@O:!|O6>!|OE*|O&*M~ ;*|O&*MN:|O<2|O" :Lfͦ͐O:L/vM:L҇  :LN. *MDMO -£:Nʹ:N2OOOb!3O6!S"N. *MDMM -:N:N2M:L MM$b!;M6*MO>Eb: :LQ!S"O*N+*L!~Os+6:~O!}Oڣ*OMʏb*O"O:}O<2}Ol!L6#6!O6!O6!L6!L6!L6!Oq:L*N#"N!9LI!"N*N*N:Ow!Or+s+q+p+q:L] *L#"L:L2O!L6"*O|O*O}O"*ODMC"*OMCW:O2L!O6!L6! N !iO6=% !iO6::L2LP 2L >! Nҙ : N=2 N.!"* N&L?M DM*M -` "* N&L?M ! ~2>M*ʉ v: N– !iO6: .*M6 !>M6L :L :L h !4O6*M<2>Ml !>M6*l >*>M&*ڬ *OM! ^#V!L6ì !L6!L6ì !L6ì !L6ì !L6ì !L6!L6*O& ~(l :O<2O!>O6:O<2OO! ~02OO> l :>O:>OH!O2>O9 ì !L6+6*O& ~(› :O<<2OO! >2Nì   o à :l2N͛!M6#6!;O6!4O6!"M6!iO6:!L6 x !L6!L6!L6#6:M/:;O2:O*1!Oҫ$!M6:O<2Oˆ:M!M!L6:M$p.:L=2L!L6:LN"L:M !L6:L !L60!L6#60#NB*8ODM*;O )͸LLf?:L$_!L6fw:L%r!L6fw!L6S/ҷ:LF:LNH:LHҫ!L6Mð!L6J#I:Lb:L ͦ ͯ & 2LÿI:Lc34:L *LM4& 2L,44*L+"LI:LMw*M# e:L::L*Mw:L==2LoLL ->!L!L6*L*M#L -!>M6͛: N<2 N͖!L6 x ͔ :L3!L6+6!L6:L2L:L2L:L2L͔ :L!L\ͷ͔ 2!>Os>@L!MҁuÄ͔ !O6:L :O<2OH2*O&L) q#p:Mu:L & 2LÌ͔ 6Nbu)ͦ ͯ ͖)-Sx :L!L6*4O&N 6?x :M/^:L<2LO!L :Lw:L!L?w:L^!M6-x -& 2L*L&L ~:L0O> /:La/>z!L/H:L.͇!Lҷ:L_2Lͤ:LAO>/͇H{͸H͛H{f͸:LAO>:LE !M6f:M<2M:L .x !M6!Oq*L#"L:LM*OM!"O!M6pH’!O6:L=!Oڎ*O))))3_"O:O<2Of*OpB!O6:L=!O*O)3_"O:O<2OŸ*O>!L~>3#HH!M6!!O6:L!O!*O)))*O) 3_"O:O<2O*O|/!M6*O*O&L ~2OAM:O 2O:O> !L_>!O6*L& ~2O:O!O/:O!O2O!O6*L&) :O=:Lñ*O&L :O=O*O ~%:O<2O,:O=2Oq>:L =x !L6:LHP_:L,:L Hq& 2LPNTI:L!:O*8O_DM 1.CONSTANT AREA: $CODE SIZE: $DATA STMT AREA: $VARIABLE AREA: $AQGFKLPBTNOCDEIJHXRrU[qZWpS\YVsvwxq     && PROD $FUNCTION REFERENCE BEFORE DEF: $PROGRAM CONTAINS $ UNMATCHED $ STATEMENTS$FOR$WHILE$DEF$NO$ ERROR$ DETECTED$:LO>@_e!V"tP*++"rP"O#6!|P6#6*O~=!}P *}P& *O:|P2|P!}P4:|P?*O^*O*O ^"O*O"O^*O"O!~Pq:~PtPK!rPeLq!L6OT*w*O >*zP&O) ^#V"O>OWL*O~2P*xP͒!{P>*O#^#V"Oî>:P=O! *O*P&*xP ":P=2P>>*xP>2POD*tP"O*xP*O wo*xP#*O -S*O :{Pw*zP&O) *O#N#Fq#p*O 6*zP&O) *Os#r:PtPK+s#r*O~!Pq*O :P*O w*O ~*O ^#V!Pq*O :Pw*O ~2P!P6:P!PMo&O"P*POLL3*PN#F`i"P*O#*PN#Fq#p:P<2P2P!P6:P!PڜO!O *O#N#Fq#pO!O *Os#r:P<2PY!Rq:Lү*RM!"O}2O2O2Oo&"Oo&"Oo&"L2R2Ro&"O2O!O6!R6#!"Oͤ:L$͈!"xP!zP6#6%1͝$͝r!Rq:O/8*O#"O:L/G*RM!Rp+q*R|O%*R}O%!Rp+q!RLDMH:O/!L:O/Hҕ* !Rړ*RM!z ^#VÐÐP0*RMb1,OZLLDͼ0)*ODMrͭ:O$*OM)1!iO6*͖ÐÐ͖Ð:OO!O6T!O6Ð!O6ÐÐ!O6Ð!O6Ð!O6Ð7:@W_bjr|/>+!Rڟ|/:R,O!". ^#V!O6|/|/ORJL:RH2%4|/:R*RDM_*R"ODM60|/ ͆0*RMb1OOJLH>/*ON#F_*ON#F60DAF0|/|/*RMO3|/ P0|/_P0|/|/ O3|/|/N2 % ͆0|/|/́2*RM%t0|/|/:Rʮ!R6́2|/́2|/:RFMͼ0*RM͆0*RMt0|/:R%:R 0%FMͼ0 ͆0*RMt0|/|/!R6́2|/́2|/|/ ́2|/:Ox:Rp*R&P) N#F_!O6Ø:R“*R&P) N#F1Ø%|/P0|/ P0|/ P0*RMt0|/:O*R&Q 6*RMb1P0*R&P) q#p*RM6 *RM6|/:L IF0r2*R"O* *RM!R: NS0DM1*RM͚3!%9L!Li SI0|/͆0*RMq1/ҍ ͭr͆0*ODM60|/r2|/ 9*R&-Q) *R&) N#Fq#p9|/9|/8|/ 98|/ P0*RMb13!OOJL!O !FRͼ00!*R&-Q) *Os#r*R&P) s#rOͪ0|!:Lv!!L6E"! S6:L! Sk!* S&L N: S<2 SJ!W!L6|!UFͼ0|/*L& Nb0:L*L& >HOP0*L& ~Oͪ0:L!!O6!:L#!!O6|/7|/L|7|/P0|/͆0|/P0|/͆0|/P0|/P0|/P0|/͆0|/P0|/:R=O!Q :R:RHV"EF0*rP ^#V"O:R/:RH҃".%H:Rҏ"%DM1:R§"%û":RҶ"%û" %:R"DM_%%:R #%_x:%_8%x:%_9%x:%7%*rPN#FH*rP##*Os#r|/*R&Q *R& w6%*rP##N#FH*rP *Os#r:R2ROt0t|/!L6>rPWL+s#r"O*O#>*O#wD:O<2O|/:Rµ#FMͼ0:R:RH#p%#:R:RH#:%͆0*RMt0|/:R:R=O!Q ~H*$p%P$:R:R=O!Q ~HP$:%:R=O!Q :Rw*rP ^#V"ODM_P0|/͝1|/͝1|/*R&Q ~¡$]%`%6DMH|/|/f6|/͝16%1|/:R$EI0:R$:%7%1|/*R"O:L%*RM:O/%%74%*R"R͝1|/*RMt0|/:LG%/1*Oq#p*O#"O!O6|/:Of%MPͼ0%6% P01*O"R*RMq12 S*RMt0*O"O*ODM60:L! SҬ%DFͼ0%:L%D*tP##"tP*O 6 ͭ*ODMr%OZL!L%DFͼ0%N|/D:|/P0|/P0|/D:|/|/|/|/͆0*RM6:R<&FI0*R&P) N#F1-%|//2|/_|/|/3|/3|/*R"O:O&:Rʒ&VC0!O6*R&P) nM:R¾&*R&P) n}%!L6|/m͕4!L6|/|/'%!L6|/h͕4|/:Rʩ'PI0n%͊4|/_n%͊4|/4|/4|/!L6|/|/?%!L6|/:R=O!Q ~!(SM:R=O!Q :R=O!Q ^N#F &(c%|/|/}8|/}8|/|/}8|/}8|/d%|/d%4%|/!L6/2&%|/!L6:R=O!Q ~¦(FM:R=O!Q :R=O!Q ^N#F :R=O!Q ~¼(]%%/2%%|/|/|/|/5%|/f6|/{5|/{5͝1:O(%|/G5|/ͽ1%DMHb%G5|/f6P0|/f6:R!Sچ**S&L) N#FH:S<2Sc**ODMH:OҞ**O"Ow+!L6:L2L:L2L͔ :O**O͎::O**O͎::O*͎:%%>!LbL+*LDMC+"">LWL%+S"!S6>!Sf+W*S&R) N#F"*S&L) N#FC:S<2S0+*DM_IO |//%|/M%|/j%|/|/j%|/|/:Rʮ+SM0|/N2|/_|/N2|/|/__|/N2|/N2|/k%|/|/k%|/|/N2e%|/N2e%|//2i%|/|/lO3|/f%|/|/N2o%|/g%|/:Ol,*O"Ot%*R"R͝1!O6r,DNͼ0|/:O<2O ڊ,NWͼ0í,*O&O) >w#6*O&O) *Os#rt|/:R,EWͼ0:R,:%7%1*O&O) *Os#r|/:O,UWͼ0;-6%*O&O) N#FH*O&O) ^#V"O>6L4-*ODMr:O=2O|/|/:RR-SMͼ0W-y%|/u%|/|/~%!O6|/:R‚-%Ç-%*RM6*O#"O|/*O#"O|/:R²-%÷-%*RM6*O#"O|/*O#"O|/:R-CS0-*R&P) ^#V"O:R.FSͼ0 .z%:O.DS0.!O6|/GJT\dgor"4ADQ l !!!!!!!""""&"."3#v##$}$$$$$$$$(%2%V%%& &&&&&"&T&Z&c&f&l&r&&.'I'L'W'b'v'''''''''''')(,(2(8(;(A(G(O(\(l(((((((())!),):)V)Y)\)_)b)h)n)q)w))))z+++++++++++++++++++,,,,&,.,1,<,D,u,,,>-A-Z-b-e-r-----*R&Q ~2R*R& ~2R*R& ~2R*R&Q ~2R*R& ~2R*R& ~2R*R&P) ^#V"R*R&P ~2R*R& ~2R*R& ~2R*R&Q) ^#V"R*R&) ^#V"R*R&) ^#V"R*R&Q ~2R*R& ~2R!Rp+q*R&P) *Rs#r!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&P :Rw!Rq*R&P :Rw!Rp+q*R*R&Q ^*RDM !Rp+q*R*RDM*R !Rp+q*R*RDM*R *O#"O!Rp+q!RLDMH!Rq*R&mQ n&-R!Rq*RM$1"xP*R&P ~2zP*R&Q ~2{P!Rq*RM91͝!Rq*RMb1҃1>%>!R"xP:R?2zP!{P6 !Rq:LҼ1*R"O:ROKDMr:R<2R1:R<2R͉1͝/1%*ODM60ͽ1DMH!R:R2MMͼ0>>:R2FM0>:R+2FMͼ0>1:R@2FM0M2:RM2]%:R_2FMͼ0l2:Rl2]%t0/2:R<2RO͆0!Rs+q+q ͆0!R:R3:R:RHһ2p%2:R:RH2%p%:R/2%!R6t02MMͼ03:R:RH3FM0:R03*RM%I3:RB3*RM%I3*RM%!R6!Sq ͆0:Rj3:%!R6:R‹3%:%%!R6t0 2ҙ3*SM%!Sq:S¯3_3:S3_3_2S!R:SH3NSͼ03*RM*RM͚3 %*RM%%!Sq:S!4%64:S14%64%:R:RHW4p%~4:R:RHw4:%~41~474*RM 4!L6;%!Sq:Rʧ4SMͼ0:R¿4*R&P) N#F_*SM%%!L6:R4*R&P) N#F_:L4"1'55:L 5)*'55=<'5:R5:%*RM 4!Ss+q:R?5*SM%F5*SM%/2:R<2R)\5OOͼ0*R&R N_^%9%!O6!O6*R&R :Rw:O=2O¨5!O6UN056%*O N#FH!OL*Oq#p*O#>5*O"O5*R&Q 6*RMb1*O OLLH6͎56IN0P0*RMq1e6!O/!Le6:L M6*?BCDEGHIJKM/E  J J  "2"'5 " "". "" " " """0"2""  EFJLM )J #%&'*+,-1345678:<=>?BCDGHIJKM( #&'*+,-134568:=>?BCDGHIJKM)J J  $   AE $ $J JEF9; $  $ """""""""0"""""""""/""  $ )J  $( )J     N%F  '(),./02679<E!&X  %*+-FN3: #Wdd8lhcdbaf$&cdba&cdba}>Dcdbaucd67[~@ p%'(,29:w:D/ ?CDyCD CD CDCD.Z\CDXCD]`CDCDCDCDCD0CD1CDCD&cdba*"#p%'(,2489::D)_p%'(,29::D+B!x egim kj--335;<=Y?@ACHHKIINJJOKKLLLMNQPRQSR[^_`bffhhiijjkllmmnn>uuvvvwwyyzz{{||}}{q     ^  ABvtIJa=o p~sxcdegtroqEFEHGTSYYYYYYUWTUVX!VFnsz#Z$%)&',PW(GM"\/+*-.2]O345601789;$&   #$%&(&&02356537899:;<9>&?@@@@@BCcdeeefghd(ijklmmmnopsxp{ppp~pppppppppppppppppp !#%')+.147:>@BDFHJLNQTWZ\_behlorux{~<<r<<| 33446688:::::<<<AADDDDFFSSTTUUVVWWZZZZZZZZZ[\]^^___``abcddeffgghiijkklmmnrrsttuuuvvwwxxx{{||}}}~~                     &    -3;<@N[kvCBASIC COMPILER VER 2.08 $$$$$$$$$$$$$$$$$$$$$$$$$COPYRIGHT 1981 COMPILER SYSTEMS INC. $1LrH"H"oKͷ!L6:L!LbK!L6!R6!"P!R6!R6!mQ6:L_K>!PbL4J͑K*R&P) *Ps#ryK"SͮK͆K*S+"S*S"SSSJL1J*S: :LJ*R&mQ :Rw!S6:L!SڝI*S&L NK!S4I*R&P :Lw*R&Q :Lw*R&Q) *8Os#r;K*R&Q w*R&P) *Ls#r*So=) ^#V"P!R6*S"S$JSSJL$JES;K*8O_DM *S"SSI\K!PeLJ͆K:R6L!Rs:R<2RPOLM͚:LJ:R2RyK"S*R&mQ ~2R*R&P) ^#V"S*S< n&"S}SSJLHJ*S#"SÓJ*SKA) ^#V"P>6LJ!L6\K>!PbLAKyK"SͮK*S; n&"S}!S:LbLH/K*S#"SJ*S?) ^#V"P\K͑K͆K*R&P) q#pyK"PIHoK!L6HvͱL Ͱ*PB) ^#V*PF n&:R<2R ­KOS*8ODM*:O :RҽK !R6:L!:O!Sq*R&-R :Sw:R<2RO>dKOV;K*8O_DM _ogDM!>))L = L_og^#V|g}o *L_{ozgO{ozgi`N#Fogo&og_{_z#WCBASIC V2.08 COMPILATION OF $\ INT LST@ $:#~#VZ{+_~#F!{w!rN,F!vq#p{,q#prYP͵7!rN,F!fwq#p7rYE!{~,FOx'T.6#6.N,F.O!{w#p.~}SOx.q#w.~,F.ޖ,OxҖS.N,F.q#p.6#6*{+{!{,_zS-N,F*{ ~!{w.N,F! "{ÝS!rN,F!vq#p!{N,F!vq#prYP!{N,F͵7!rN,F!fwq#p7r#t PCOPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INCxw #^        !q!q{`i!N#F+͸!!q#xw6 ɗyOxG~O#~G+~#q#0:?ɇ:=2:<2Я/2ɯ2!K +T]~ fG+~Qs+T] Gʌ#~w!~!BÓz/g{/o# |>|>!  + ! > W!z#?>!> ' P'> '!~ȯw+6>+6='$`i~G2x2#:W:_!ɯ' #b7>'w #n7>'w #Á>Ø2i2:W³1!:iw `I1!`!`:iw:`G2hxW!`1r!q= :hG:8!aa!>q$ a3!aTmÓ:h2Ó"L:!A!:!AH2H!!"I>2K*L~#"L:*Ia4=³A*Ia=!K5*I#"Iá: 3W!w#zW@13w`i#j͓ !z@3- W-_!~ȓ_Aw3o{3-z+w>2`i22?G!ҤmÒa!~w:=2K:!KÏ!qÏ!͓ ů28>@2>2 :=2~#ɯ : 2 :x{22 M+d-g>20dr.ʗEʥeʥG&:$o:/2o ʥG-_ʺx½GOxG{G!~+ 2!xw-͓ !"g|3|)}/o|/g#>2]^#V#}o|gB5*g&$"g{-Ó'd !} ~5*~ ~z+"~ 0:} ɷG>0͔x=È*p w#:{ :n :m ʿʿ6,#"p :> >-!"~ >2} `i"p :i g: 2m 2l 2n 2k 2o > ͔ > 2}  !i ~2k w͔:@2o !n OO6>2m > 2l 6!o pZ2m /<2l  I:O•2m 2o 8:| ʆ=2u :r > Ĕs :r ʢ͔:n !o 6 y@Gʺ/%͔2{ 2r 2s  1 :| 2m Gy@w:r !s >0 >0 4!m 5<2u :m !l G:n I :o OxGxs W?< =V zz !~s g:u ¡ :s !r  :m :| >-͔ G:t OW*ʵ $µ $ :s !r  O z͔ y͔:i :|  :r : :m >0̔͂ !m ~ 5i͔ :m ͇2{ :i 2 !j ~ҕ 6>.͔:n V :o G:l N GO 2l x͇͂n !l ~n 5i͔V :l ͇:i • *p +~0Š 6 ~ .ʐ #6 "p :n >E͔!o :i ¬ 5~ /<-Gy͔x/ Gy͔x0͔:s ͔2s 2r :i > ͔:k 2i *p 2 2 `i#" " GOW~# < /: &: !: \< #< NUa# y2z z2y ! ~\ : w* b 5* ~#" 2 ɯ2j :z z NNa`i"p : # $Ÿ I $ >$͔:  *± I * >*Ö . I #>.– 2| 1 - I # .>-– >2r 2| O1 >2r \I ĔI  2t  > 2t  I # ,& >2{  !| q.B >2j I #B 6 !l q^U I H !n q-f >2s I *p DM*w #"w ~:v =2v >w > n Ô:y œ SNa`i"w xʧ 2v bk"p : / ! & \I ĔI ò ̓ I ʖ / ̓ I *p w  n ͔ `i"p : #e /e !e &e $* I $e >$͔ *< I *e >*$ -S I #e .e >-$ \I e ͔I  *p `i~AҜ 6G>Mw!:A<2 )T])i_: =2 :}/o|/g# WzQS͑1I1!~G w!o|g~x>II1N͗=FI W2z1͏ D͒!2>]iI1ͺ 1|}!#:ēI:-3 2>Ae1FI2!>iI1!u>iNI:AO>y/G ͗m͗II1N :W z1͒/:ҵ͗:͗/͒!~w::INI>iI1͗Iä1!~>w2:AQIIfFI>͗I1>6i:!wI07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxI͗I1͒NI~͗! DM=v ×xʯ ʯ< O*C4|ͅ"q**Cs#r#6LSaF#~ Oͅ*Cs#r~# **C {_zW*Cs#r#w#w#w*Cw#w#s#r!C^#V^#Vz###~X#{_zW{_zW+++++UMOax!R"&6 #x’+6{z+++Fr+Nsq#p#s#r#6`i##s#r*&^#VN#Fx###~p+q`is#rR*a+6++++^#Vz!~*C~2C*C#"C]:E4 ] :CFù:C:CTH:CRHҳ!C6] ,}"C]*C~,¡] }"Cð>CzB°ö]>2!C!C62:C2fCgC*CM*C\!fC"C:C=2C*C#"C!Cs+q!C6:C2C*C"C:C*C:CH:CH\:C V*CNͺ:C<2CO!C Hq:C*C~ H|]!"C!C6:C!C*C&C >9~0Hү*C!CB*C&C >_"C!C4ˆ*C:C2C*C"C*C##~*CN#F!Cp+q>CzB>*C~!Cq:C_AO>/!Cq:C0O> /!Cp+q*C~2C:C=2Cd*C#"C*CNͺ*CwCu*C"C*C^#V"C ҏ*C"CÙ*C^#V"C*C~2C!C6:C!C*C*C >*C*C~>*C#"C*C#"C!C4¥>#HPMa*C>ͅB>*C~2C*C^#V"CDMͣ*C^#V"CDMͣHO>*C~2C2C!C6:C!Cڇ*C&*C~\€!C4!C5!C4^*C~2C!CҘ>:C=2C:C!CO:C:C<2CO:Cß>!Cq!C6+6:C!C&:C!C>:C/*C&*C~\H!C6)!C4>!C4>*C&*C~2C:Cw:C?I>:C#`*C&*CN&:C!w*C&*CN!C6*C&*C:C!Cq!"C:C* HҴSSa*C^#V"C*C*CN#Fq#p#SSa*CN#F!CͅB*CN#FͣH*C>w#61*C*CN#F*CYB!Cs͈BL:CE:C<*CwL*C:Cw:Ca*C^#V"CÎ:C*C:CͿA*C~cB"CÎ*CCͳA+"C*C>CzBN4"C>YB·DMͅ"C*CDM*C\*C*C w*C*Cs#r1*CN#F`id @PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1fC;5%1fCͥ%"v!MEq*ME& !NEq:;E!;E6*C|!WE!XE60*WE&) UEoBڼ*WE&) UEoB+s#r!XE4Í*XEM!WE4!]Er+s+q+p+q*\E+"\E\B*YE:[Ew*YE#"YE!_Ep+q*^E|O*^E}O>!%DͅB,7F*%DDMt;;!"6E>!6EͅBH0:5E] ͈ ͈`0!aEp+q::5Ey;!5E6;AF*`EDM !cEp+q:5E2dE!5E6;HF*bEDM:dE25E!eEq*eEM:eE_:eE*C#"C*C"C>cB"C*C"C"C!gEp+qCfEmB!iEp+q*hECoB3*hEN#Fg*C*hEq#p!lEr+s+q*C#~œ*kE^#V"kEC}Bi*kEDMg*C"kE*kE^#V"mEDMҜ*mE~!jEڜ*mE+"mE~œ*kE^#V!*CDM*Ci*CDM*Ci*CDMoEiͭ*CoEi*CDM *CN#F*Ci*C~*C~*C>ͅB*C>ͅB*C~*C~*C#~*C#~!wEq*C##:wEw!xEq*C:xE^*Cq#pg*C>w#6:҄FO͑*C i!6*CDM1ҝ͒ã͗ͺ *Cq#p*CDM1*CDM*C"yE!"{E*yE>ͅB *yE ~*yEyEmB>cB*{E"{E*yE^#V"yE*{E*C~2E!"}E*C"E*C"E!E6*C~!Ec*CN#F*}EB+s#r"}E!E45*E"C*E"C*}E*E& B*C~<_DMͅ"E"E*C*E w#6!E6*C~!E*E##"E*C*EN#Fq#p!E4¤*C*Es#r*C~2E*C^#V"E>YB EAa*C^#V"E*EN#F!Eq+6:E!EN ̀ *C*E^#VN#FB*E "E!E4 ̀ *EEoBc BSa*E##*E*E& B *Cq#p*E##"E*CDM *C^#V*CDMi*CDM 1*C^#V"E*CoB6!*EN#F *EN#F `i"E~=w *EN#F*CN#F%!*CN#F `i"E~!!*E#DM *CN#F `i"E*E4*CN#F*C\*CCͳA++s#r W!7!Z!*C^#V"C*D *CDM1:i Қ!+Di !+D\B!*Dsì!+D!+D\B!*Ds!*D:i !*CN#F+D͏ !+D\B!*Ds!*D!*C^#V!Ep+qE6EmB" *6E#"6E!!Ep+q*EDMͣ"*E~2E!E6:E!EU"*E#"E*EN*6E#"6E1E}BN"0!E4#"*C"4*C"4!Eq:i ҡ"+D !+D\B!*Ds:EҐ"*D4:Ö"*D"!i 6!E6:E<2EO>"*E&4) >ͅB"*EM:ç"͢": *C|# #*"D#""D")D :+D:*DH##"!*D"-E**D& 6 **D&*D -E}B*8E"C;QF}*'D#"'D!C͈Bs#DOa*'D~*-E#"-E~::E¨#+ErBҡ#8*+E*D w8#::E´#x#::E#\#!"+É#2E ##::E#!*D"/E#::E#*-E"/E#*'D"/E:E" $!E6,'$!E6"::E!$*/E#"/É#2E!E:E+~ HP$*+E#"+É#2E'$:E"v$́#2E,:E Hv$X$#>+EzB•$*C>w#6$*+EM*C4"E>YB¸$*+E#DMͅ"E*E#*+EDM*/E\*E*+Es*C*Es#r1#>!+EͅB%>!+EͅB%!"+E*/EDM*+E?*CDMIh4%::E/%F#4%*C6 "Ck_*C"C"C*C"C+"'D*C"C*C"C"C"C*C"C"C*C~%*C#*C w*C>?*C#w*C~%4*CN!3 ^#V*CDM1*CDM͗*CDMIh4*CDM1*CDM͒*CDMIh4*CDM1*CDM*CDMIh4S44l&*Ci*C6A&҇&҄&*C i&қ&EN͑*C>w*CDM*CDM1*CDM*CDMI*CDMth4*C*CͳAs#r4*C*CoB+s#r44*C*C^#VN#FB+s#r:E*'*C/B#+s#r44I'ZD͑*Cq#p`'*C*CN#F^#VA+s#r:Ev'*C/B#+s#r4Ҍ'*C>w#6'#ҟ'*C>w#6'*C^#V"E!"E*CEmB'*C^#V*E B+s#r*E"Eү'4*CN#F+q#p4*C/B+s#r4*C*CA+s#r4*C*CDB+s#r44͉ ͠44ͭ4ͺ4͉ 4ͯO?4eO?4*C*C^#VN#FͧO?4*C#B+s#r4*C#"C*C*CN#Fq#p*C#"C4*CDM *C^#V"E*C*EN#Fq#p4͠ 4*C*Cs#r*Cn&"C14*CN#Fͣ+)U)*CN#FͣD)ͺU)*C*C^#VN#Fͱ4*C#:$D<2$DO!C q#p*C^#V"C4*$D&C) ^#V"C:$D=2$Dң)GRa4445#ڼ)F#$4v!DM"4Ͱ!DM":i )4*CN#FͰ7*CN#F7V"4*CN#FͰ7V"45#(*F#+*I4*C*C^N͏4!:E6$4!:E6z$4v!DM :4Ͱ!DM9:i z*4!E6:E<2EO!4 >ͅBʠ*Å*ͪ5*CN#F*E&6*CN#F͖74*CN#F*Ci4*C+"'D4*C>w45#+F#z$4*C^#V"EDM/>EzBH3+*EDM 4404:i ڟ+!E6:E<2EO! ^#V"E!6E͈Bn+K+ErB…+*EMß+1EEmBҗ+0ß+*EDM!4^!4ҵ+^!ý+*C##"C4J!47!4ͅ4!:E6*C"8E"4!:E6z$4!:E6$4 94c"J:4*CN#F:4*C>w4*CDM͏ 4͚*DM N*CDMI4c,*Cq#p,v,*C>w#6,*C>w#64*CDMͤ4*CDM4*CDM)4ͭ*CDM*CDMͤS44*CDM 4*C1EoB>zBH,LTa*C6EmB,:*CN#F!4*CDMt4"EADM *E|:-͗*CDMI4*C|r-HE *LE&SB*KE& >8B"x-*"D"4HҒ-NL͑Ú-*CDM4*C*6Es#r4*CN͈*Cw#64*C^#V"EDMͣ-CAa*E#~2E*C:Ew#64ͅ"E*E6*C*E# w*C*Es#r14͎4*CN#F2E*E&*Cq#p4͎4͎4:i 2E!i 6v!!Es!*D5#~ ƒ.:*D=2+D+D É.*D 1:E2i 4*CN#F*CN#F_?*CDMI4*C*C^#VN#F;"E*C*Es#r4*CN#F;"E*C*Es#r4*C^#V"EN*Cq#p42E*C:Ew#64ͅ4*C~=w*C~=HU/IOa*C~YB™0!"1E!5E64l!I4*CN#F͗4*CN#Fͪ5*C*C^#VN#F6*CN#FJ72E:E0}4*CN#Fͪ5*C*C^#VN#F6*CN#F͂74*C^#V"E*C*E w4*D8l!4*C^#V"E>YBʠ1*E~2E!E6:E!Eڝ1*E&*EN͈!E4~1å1?͈ ͈4*C^#V"3E>YB1!"3E4*CN#F *CDMI4*CDM 4*CDM͏ *CDM1ͺ *Cq#p4*CN#Fͣ72.2*CN#F 1*CN#F64XIa4 2E *E& 4*C*Cs#r14 Җ2*Cq#pß2*C>w#64 *Cw#64͢"!C6!\"4*CN#F`6 *C"C"Ck25zW{_!55{5*5c5 |g}o"5*5|g}o"5N5*5*5DM*4>͊5"465*4"465xʸ5>@>Ҿ5NBa`i>)=5> DMͅ"45 *4 "4"4}245Ò54*4!!*4 DM!45H64~#FDa*4r+s"4:4=5|5!4~@w5`i"4)xZ6>>FNax7*4#  *4G7ڑ6:’6w#>266ڨ6 š6.¦6266 õ6:66.6# 67*6:4>*6>266?#`6{6_:7*7? 7w#:47FIa>?7*4*4}O|Gxr# 07*4*4#{z"4`64[77>;5*4)4w#w4^#VzEOa#"C`65 57EMa`64<ʈ77H64 s#rH64 ^#VzUFa"4*4)4 ^#V"45*4"4!46Ò5!4~w8:4BR=aURax8RIa *4C5*4{o>g+{z_zGyW*4  P8~f8395r͙7sn839s!4~w"45͒5*4!)DM! !4>w:428%5±8!85͜5ß87:4*4 497839͊5"4|8:4|8*4~u:8 *4|8ERa`i68 9V8r8 555*4|58 (95!4~ЇwRWa͒5*4*4{_zW{z<*5{9͜5=[9͒57!4>w*4|WDa#"C*4"C*4"C5}*4|ʶ9*4|REa+"497939*4"4:49|8*4 5*4q!4>w:i 4:,!4~6Ԟ9"͞94:"Þ9:i 4:,!4~6Ԟ9 `i#~ OĞ9=#:x `i#N͞9=<:*4}_|Wh:zh: ͞9X: ͞9 ͞95*4|FEa#"C*4"C*4"C*4!=~:! DM!)*4+"4!4~w5}! 6í:H64 ^w#Vwz:UCa"4͒5539͒55;54 w#wH64 ^w#VwzUDa"4͒554 w#w;5*}o|gyx"465!ͅ"4ͣv;`64OSa%5v;͜5=f;*4DMͪ5*4"4`64<RFa"4`64<ʿ;4;5!;5!ͪ5>24`6*4 6?4 <`*4O ~O ;;524NO INTERMEDIATE LANGUAGE FILE $CRUN VER 2.08 $COPYRIGHT 1981 COMPILER SYSTEMS INC. $!*E"F!\"F:Cڷ<4<VIa @2E*;=!E6@:E<2EO!E Hqy$=<*EE?:=CNa*EDMI*E"E*C͈B8=A<:Cү=AE}BT=FCaAE}Bf=CCaAE}Bx=DCaAE}BҊ=PCaAC}Bʝ=SCa*C"E*C"E&A>A"EF"E"CA"E*E"E"CA"E*C"CA"E*C "C*C*CA"C}B\B>A*C"E@@:E3=>@*Ew:>*E#"E$> @:EQ>@͆@@ @:E„>@*E"F*F6@@ʁ>@*F~<*Fwj> @:E~ˆ?@~ʅ?:C҂?:Ex?*E"F*F^#V"FC}Bx?>FzB+s#r*F ~<*F w>*F 6:E=2Ex?*F*E& "F*F^#V" F*F##"F!" F F FmBx?*F^#V"FC}Bb?>FzB+s#r*F ~<*F wb?*F 6*F###"F* F" F?*E"EÌ> @@:E6:E7H:E`H:EH?@*ECͳA+*Eq#p@ @:E.?@*E^#V)))F*Eq#p@ @:E @@@>:C+@OA*EECmB *F 6I*F 6N*F 6T*F 6 *F 6*F {@:Cr@  FzBNA*F 6*F^#V"F,A*C"F*F^#V"F>YBʰA*F>ͅBuA*F ~*F ~HңA*F DMíA*F^#V"FUAi`N#Fog_og_{ozgi`N#FogDM!>))덑o|gA =A^#V))) DM!>))B =BYP뗖_>#Wi`/o/g_{ozgi`N#Fog^#V) SB_{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#FogPMXList F STACKSIZECODEDATASTACKMEMORYSTARTSYMBOLSPUBLICS LINES MAP NAME PURGE PRINTORDERRESTART0!fw6#6.pN,FYE!}wq.nN,F=!pww#p.nw#p*nw~!}w¹F*nw#KB=!nww#püFqF(̈́Fnw28!~ww#p)̈́F!~w~,F-N,F,q#p.nN,Fz=!nw,Ox.|q.y6.{6!ywt PCOPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INCxw #^        !q!q{`i!N#F+͸!!q#xw6 ɗyOxG~O#~G+~#q#0:?ɇ:=2:<2Я/2ɯ2!K +T]~ fG+~Qs+T] Gʌ#~w!~!BÓz/g{/o# |>|>!  + ! > W!z#?>!> ' P'> '!~ȯw+6>+6='$`i~G2x2#:W:_!ɯ' #b7>'w #n7>'w #Á>Ø2i2:W³1!:iw `I1!`!`:iw:`G2hxW!`1r!q= :hG:8!aa!>q$ a3!aTmÓ:h2Ó"L:!A!:!AH2H!!"I>2K*L~#"L:*Ia4=³A*Ia=!K5*I#"Iá: 3W!w#zW@13w`i#j͓ !z@3- W-_!~ȓ_Aw3o{3-z+w>2`i22?G!ҤmÒa!~w:=2K:!KÏ!qÏ!͓ ů28>@2>2 :=2~#ɯ : 2 :x{22 M+d-g>20dr.ʗEʥeʥG&:$o:/2o ʥG-_ʺx½GOxG{G!~+ 2!xw-͓ !"g|3|)}/o|/g#>2]^#V#}o|gB5*g&$"g{-Ó'd !} ~5*~ ~z+"~ 0:} ɷG>0͔x=È*p w#:{ :n :m ʿʿ6,#"p :> >-!"~ >2} `i"p :i g: 2m 2l 2n 2k 2o > ͔ > 2}  !i ~2k w͔:@2o !n OO6>2m > 2l 6!o pZ2m /<2l  I:O•2m 2o 8:| ʆ=2u :r > Ĕs :r ʢ͔:n !o 6 y@Gʺ/%͔2{ 2r 2s  1 :| 2m Gy@w:r !s >0 >0 4!m 5<2u :m !l G:n I :o OxGxs W?< =V zz !~s g:u ¡ :s !r  :m :| >-͔ G:t OW*ʵ $µ $ :s !r  O z͔ y͔:i :|  :r : :m >0̔͂ !m ~ 5i͔ :m ͇2{ :i 2 !j ~ҕ 6>.͔:n V :o G:l N GO 2l x͇͂n !l ~n 5i͔V :l ͇:i • *p +~0Š 6 ~ .ʐ #6 "p :n >E͔!o :i ¬ 5~ /<-Gy͔x/ Gy͔x0͔:s ͔2s 2r :i > ͔:k 2i *p 2 2 `i#" " GOW~# < /: &: !: \< #< NUa# y2z z2y ! ~\ : w* b 5* ~#" 2 ɯ2j :z z NNa`i"p : # $Ÿ I $ >$͔:  *± I * >*Ö . I #>.– 2| 1 - I # .>-– >2r 2| O1 >2r \I ĔI  2t  > 2t  I # ,& >2{  !| q.B >2j I #B 6 !l q^U I H !n q-f >2s I *p DM*w #"w ~:v =2v >w > n Ô:y œ SNa`i"w xʧ 2v bk"p : / ! & \I ĔI ò ̓ I ʖ / ̓ I *p w  n ͔ `i"p : #e /e !e &e $* I $e >$͔ *< I *e >*$ -S I #e .e >-$ \I e ͔I  *p `i~AҜ 6G>Mw!:A<2 )T])i_: =2 :}/o|/g# WzQS͑1I1!~G w!o|g~x>II1N͗=FI W2z1͏ D͒!2>]iI1ͺ 1|}!#:ēI:-3 2>Ae1FI2!>iI1!u>iNI:AO>y/G ͗m͗II1N :W z1͒/:ҵ͗:͗/͒!~w::INI>iI1͗Iä1!~>w2:AQIIfFI>͗I1>6i:!wI07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxI͗I1͒NI~͗! DM=v ×xʯ ʯ< O*C4|ͅ"q**Cs#r#6LSaF#~ Oͅ*Cs#r~# **C {_zW*Cs#r#w#w#w*Cw#w#s#r!C^#V^#Vz###~X#{_zW{_zW+++++UMOax!R"&6 #x’+6{z+++Fr+Nsq#p#s#r#6`i##s#r*&^#VN#Fx###~p+q`is#rR*a+6++++^#Vz!~*tC~2C*tC#"tC]:E4 ] :vCFù:vC:wCTH:xCRHҳ!C6] ,}"C]*tC~,¡] }"Cð>CUB°ö]>2!C!C62:C2ACBC*CM*tC\!AC"tC:C=2C*tC#"tC!Cs+q!vC6:C2C*tC"C:C*tC:CH:CH\:vC V*tCNͺ:vC<2vCO!vC Hq:C*tC~ H|]!"C!C6:vC!C*C&vC >9~0Hү*C!CA*C&vC >_"C!C4ˆ*C:C2C*C"tC*C##~*CN#F!Cp+q>CUB>*C~!Cq:C_AO>/!Cq:C0O> /!Cp+q*C~2C:C=2Cd*C#"C*CNͺ*CwCu*C"C*C^#V"C ҏ*C"CÙ*C^#V"C*C~2C!C6:C!C*C*C >*C*C~>*C#"C*C#"C!C4¥>#HPMa*C>`B>*C~2C*C^#V"CDMͣ*C^#V"CDMͣHO>*C~2C2C!C6:C!Cڇ*C&*C~\€!C4!C5!C4^*C~2C!CҘ>:C=2C:C!CO:C:C<2CO:Cß>!Cq!C6+6:C!C&:C!C>:C/*C&*C~\H!C6)!C4>!C4>*C&*C~2C:Cw:C?I>:C#`*C&*CN&:C!w*C&*CN!C6*C&*C:C!Cq!"C:C* HҴSSa*C^#V"C*C*CN#Fq#p#SSa*CN#F!C`B*CN#FͣH*C>w#61*C*CN#F*C4B!CscBL:CE:C<*CwL*C:Cw:Ca*C^#V"CÎ:C*C:C͚A*C~>B"CÎ*CC͎A+"C*C>CUBN4"C>4B·DMͅ"C*CDM*C\*C*C w*C*Cs#r1*CN#F`id @PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1AC;5%1ACͥ%"v!(Eq*(E& !)Eq:E!E6*C|E !*E6E :*E) !*E6  ý*)E& *C|:E/HE !E6!+Eq:E/*+EM͘:*+E&   !-Ep+q*,E~$f*,EN*,E#",EL!/Ep+q*.E)))!1Ep+q!2E6>!2E!3E60*2E&) 0EJBڼ*2E&) 0EJB+s#r!3E4Í*3EM!2E4!8Er+s+q+p+q*7E+"7E7B*4E:6Ew*4E#"4E!:Ep+q*9E|O*9E}O>!D`B,7F*DDMt;;!"E>!E`BH0:E] ͈ ͈`0!Ep+q:E2?E!E6;HF*=EDM:?E2E!@Eq*@EM:@E_:@E*C#"C*C"C>>B"C*C"C"C!BEp+qCAEHB!DEp+q*CECJB3*CEN#Fg*C*CEq#p!GEr+s+q*C#~œ*FE^#V"FECXBi*FEDMg*C"FE*FE^#V"HEDMҜ*HE~!EEڜ*HE+"HE~œ*FE^#V!*CDM*Ci*CDM*Ci*CDMJEiͭ*CJEi*CDM *CN#F*Ci*C~*C~*C>`B*C>`B*C~*C~*C#~*C#~!REq*C##:REw!SEq*C:SE^*Cq#pg*C>w#6:҄FO͑*C i!6*CDM1ҝ͒ã͗ͺ *Cq#p*CDM1*CDM*C"TE!"VE*TE>`B *TE ~*TETEHB>>B*VE"VE*TE^#V"TE*VE*C~2aE!"XE*C"[E*C"]E!ZE6*C~!ZEc*CN#F*XEA+s#r"XE!ZE45*[E"C*]E"C*XE*aE&A*C~<_DMͅ"[E"_E*C*_E w#6!ZE6*C~!ZE*_E##"_E*C*_EN#Fq#p!ZE4¤*C*[Es#r*C~2fE*C^#V"bE>4B EAa*C^#V"gE*bEN#F!eEq+6:eE!dEN ̀ *C*bE^#VN#FA*gE "gE!dE4 ̀ *bEgEJBc BSa*bE##*gE*fE&A *Cq#p*bE##"bE*CDM *C^#V*CDMi*CDM 1*C^#V"iE*CJB6!*iEN#F *iEN#F `i"kE~=w *iEN#F*CN#F%!*CN#F `i"kE~!!*kE#DM *CN#F `i"kE*kE4*CN#F*C\*CC͎A++s#r W!7!Z!*C^#V"CD *CDM1:i Қ!Di !D7B!Dsì!D!D7B!Ds!D:i !*CN#FD͏ !D7B!Ds!D!*C^#V!nEp+qmEEHB" *E#"E!!pEp+q*oEDMͣ"*oE~2qE!rE6:qE!rEU"*oE#"oE*oEN*E#"E EXBN"0!rE4#"*C"4*C"4!sEq:i ҡ"D !D7B!Ds:sEҐ"D9Ö"D"!i 6!tE6:tE<2tEO>"*tE&4) >`B"*tEM|:ç"͢": *C|# #*C#"C"D :D:DH##"!D"E*D& 6 *D&D EXB*E"C;QF}*D#"D!CcBs#DOa*D~*E#"E~:E¨#EMBҡ#ͦ8*ED wͦ8#:E´#x#:E#\#!"É#2uE ##:E#!D" E#:E#*E" E#*D" E:uE" $!vE6,'$!vE6":E!$* E#" É#2uE!vE:uE+~ HP$*E#"É#2uE'$:vE"v$́#2uE,:uE Hv$X$#>EUB•$*C>w#6$*EM*C4"wE>4B¸$*E#DMͅ"wE*wE#*EDM* E\*wE*Es*C*wEs#r1#>!E`B%>!E`B%!"E* EDM*E?*CDMIh4%:E/%F#4%*C6 "C7_*C"C"C*C"C+"D*C"C*C"C"C"C*C"C"C*C~%*C#*C w*C>?*C#w*C~%4*CN!3 ^#V*CDM1*CDM͗*CDMIh4*CDM1*CDM͒*CDMIh4*CDM1*CDM*CDMIh4S44l&*Ci*C6A&҇&҄&*C i&қ&EN͑*C>w*CDM*CDM1*CDM*CDMI*CDMth4*C*C͎As#r4*C*CJB+s#r44*C*C^#VN#FA+s#r:yE*'*C B#+s#r44I'ZD͑*Cq#p`'*C*CN#F^#VͿA+s#r:yEv'*C B#+s#r4Ҍ'*C>w#6'#ҟ'*C>w#6'*C^#V"|E!"zE*CzEHB'*C^#V*|EA+s#r*zE"zEү'4*CN#F+q#p4*C B+s#r4*C*CͲA+s#r4*C*CB+s#r44͉ ͠44ͭ4ͺ4͉ 4ͯO?4eO?4*C*C^#VN#FͧO?4*CA+s#r4*C#"C*C*CN#Fq#p*C#"C4*CDM *C^#V"~E*C*~EN#Fq#p4͠ 4*C*Cs#r*Cn&"C14*CN#Fͣ+)U)*CN#FͣD)ͺU)*C*C^#VN#Fͱ4*C#:C<2CO!C q#p*C^#V"C4*C&C) ^#V"C:C=2Cң)GRa4445#ڼ)F#$4v!DM"4Ͱ!DM":i )4*CN#FͲ7*CN#F7V"4*CN#FͲ7V"45#(*F#+*I4*C*C^N͏4!E6$4!E6z$4v!DM94Ͱ!DMͬ9:i z*4!E6:E<2EO!4 >`Bʠ*Å*ͬ5*CN#F*E&6*CN#F͘74*CN#F*Ci4*C+"D4*C>w45#+F#z$4*C^#V"EDM/>EUBH3+*EDM 4404:i ڟ+!E6:E<2EO! ^#V"E!EcBn+K+EMB…+*EMß+ EEHBҗ+0ß+*EDM!4^!4ҵ+^!ý+*C##"C4J!47!4ͅ4!E6*C"E"4!E6z$4!E6$484c":4*CN#F|:4*C>w4*CDM͏ 4͚*DM N*CDMI4c,*Cq#p,v,*C>w#6,*C>w#64*CDMͤ4*CDM4*CDM)4ͭ*CDM*CDMͤS44*CDM 4*C EJB>UBH,LTa*CEHB,:*CN#F!4*CDMt4"EͩADM *E|:-͗*CDMI4*C|r-#E *'E&.B*&E& >B"x-*C"4HҒ-NL͑Ú-*CDM4*C*Es#r4*CN͈*Cw#64*C^#V"EDMͣ-CAa*E#~2E*C:Ew#64ͅ"E*E6*C*E# w*C*Es#r14͎4*CN#F2E*E&*Cq#p4͎4͎4:i 2E!i 6v!!Es!D5#~ ƒ.:D=2DD É.D 1:E2i 4*CN#F*CN#F_?*CDMI4*C*C^#VN#F1;"E*C*Es#r4*CN#Fx;"E*C*Es#r4*C^#V"EN*Cq#p42E*C:Ew#64ͅ4*C~=w*C~=HU/IOa*C~4B™0!" E!E64l!I4*CN#F͗4*CN#Fͬ5*C*C^#VN#F6*CN#FL72E:E0}4*CN#Fͬ5*C*C^#VN#F6*CN#F̈́74*C^#V"E*C*E w4Dͺ8l!4*C^#V"E>4Bʠ1*E~2E!E6:E!Eڝ1*E&*EN͈!E4~1å1?͈ ͈4*C^#V"E>4B1!"E4*CN#F *CDMI4*CDM 4*CDM͏ *CDM1ͺ *Cq#p4*CN#Fͣ72.2*CN#F 1*CN#F64XIa4 2E *E& 4*C*tCs#r14 Җ2*Cq#pß2*C>w#64 *Cw#64͢"!C6!\"4*CN#Fb6 *C"C"C725zW{_!55}5*5e5 |g}o"5*5|g}o"5P5*5*5DM*4.͌5"485*4"485xʺ5>@>5NBa`i>)=5. DMͅ"45 *4 "4"4}246Ô54*4$$*4 DM!45J64~#FDa*4r+s"4:4=6|6!4~@w6`i"4)x\6>>FNax7*4#  *4G7ړ6:”6w#>266ڪ6 œ6.¨6266 ÷6:66.6# 67*6:4>*6>266?#`6{6_:7*7?7w#:47FIa>? 7*4*4}O|Gxr# 27*4*4#{z"4b6 5]7!7>=5*4)4w#w4^#VzEOa#"Cb655!7EMab6 5<ʊ7!7J64 s#rJ64 ^#VzUFa"4*4)4 ^#V"45*4"4!46Ô5!4~w8:4BR=aURax8RIa *4E5*4{o>g+{z_yW8!*4 s#r!4~w"46͔5*4!,! ~#~!4>w:428(5!7!85͞5o8;7Ҕ88͌5"4L8:4L8*4~::͂8 *4|ʦ8ERa`i6͂8 8Vʾ8rþ8 656*4|6͂8 86!4~ЇwRWa͔5*4*4{_zW{z<05:9͞5=9͔5!7!4>w*4|WDa#"C*4"C*4"C6}*4|u9*4|REa+"4;7҄98*4"4:4¢9L8*4! N#F p+q*4q!4>w:i 9,!4~6]9"]99"]9:i 9,!4~6]9 `i#~ O]9=9x `i#N]9=:*4}_|W-:z-: ]9: ]9 ]96*4|FEa#"C*4"C*4"C*4!,! w#w*4+"4!4~w6}J64 ^w#Vwz•:UCa"4͔558͔55=54 w#wJ64 ^w#VwzUDa"4͔554 w#w=5*}o|gyx"485$ͅ"4ͣ(;b6 5OSa(5(;͞5=;*4DMͬ5*4"4b64<RFa"4b6424b6*4 6?4ʾ;`*4O ~O ×;=524NO INTERMEDIATE LANGUAGE FILE $CRUN VER 2.38 $COPYRIGHT 1981 COMPILER SYSTEMS INC. $ REQUIRES CP/M V2 OR MP/M$!E"E!\"E:Cڒ<;F;F "C}s<Ү<VIa ͼ@2E*=!E6ͼ@:E<2EO!E Hqy$<þ<*EE?:<CNa*EDMI*E"E*CcB=@î<:CҊ=@EXB/=FCa@EXBA=CCa@EXBS=DCa@EXBe=PCa@CXBx=SCa*C"E*C"EA=@"EE"E"C@"E*E"E"C@"E*C"C@"E*C "C*C*C@"CXB7B=@*C"Eͼ@?:E3>ͼ@*Ew>*E#"E=?:E,>ͪ@a@ͪ@?:E_>ͪ@*E"E*E6ͪ@ͼ@\>ͪ@*E~<*EwE>?:E~c?ͼ@~`?:C]?:ES?*E"E*E^#V"ECXBS?>EUB+s#r*E ~<*E w¿>*E 6:E=2ES?*E*E& "E*E^#V"E*E##"E!"EEEHBS?*E^#V"ECXB=?>EUB+s#r*E ~<*E w=?*E 6*E###"E*E"E>*E"Eg>?ͪ@:E6:E7H:E`H:EHұ?@*EC͎A+*Eq#p@?:E.?@*E^#V)))E*Eq#p@?:E?@@=:C@*A*EECHB *E 6I*E 6N*E 6T*E 6 *E 6*E V@:CM@  ;F *E *E#"E!E7Bک@!D"ED W@ʐ@*E6é@D W@ʩ@*E 6*E*E w*E#"Ea@*E~2Eͼ@*E#wͼ@*Ew*E##"Eͼ@O`i.Bͼ@_MNa *C"E>EUB)A*E 6*E^#V"EA*C"E*E^#V"E>4BʋA*E>`BPA*E ~*E ~H~A*E DMÈA*E^#V"E0Ai`N#Fog_og_{ozgi`N#FogDM!>))덑o|gA =A^#V))) DM!>))A =AYP뗖_>#Wi`/o/g_{ozgi`N#Fog^#V) .B_{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#FogPMXList F STACKSIZECODEDATASTACKMEMORYSTARTSYMBOLSPUBLICS LINES MAP NAME PURGE PRINTORDERRESTART0!fw6#6.pN,FYE!}wq.nN,F=!pww#p.nw#p*nw~!}w¹F*nw#KB=!nww#püFqF(̈́Fnw28!~ww#p)̈́F!~w~,F-N,F,q#p.nN,Fz=!nw,Ox.|q.y6.{6!yw2 COPYRIGHT 1978,1979,1981 COMPILER SYSTEMS INCd  # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVALXOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3CHAINCLOSE4FLOATGOSUB5INPUT6LEFT$L#CALaMATCHPRINT7USING8WHILE9WIDTH:COMMONCREATE;DELETE  DISK ERROR $BASXREF06: NO SOURCE FILE: $.BAS$XREF07: INVALID PAGE LENGTHXREF05: INCLUDE NESTING TO DEEP NEAR LINE$XREF03: OUT OF MEMORYXREF01: OUT OF MEMORY$XREF04: TO MANY FUNCTIONSXREF02: OUT OF MEMORY $PAGE NO$ NAME TYPE$.BASPARAMETER $ FUNCTION $ GLOBAL $XREF V2.08 $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$COPYRIGHT 1981 COMPILER SYSTEMS INC.$1r  ͓Ϳi^ v!s+p+q+p+q:=2C** w*#"*#"!s+q+p+q:=2n*:w*#"Qc!_6!q*_& :w:_<2_ڥo!q*&!q*& Ͷ Ͷ!q:*Mͦ:*Mͅ: !4!6 !4!p+q*~$**NͶ*#"j  v *DM !6 * 6 * 6*y *~ʜ*>@_:!6>!*&*~ *&*^!4¡  :ͅoc:;* c :a:a2ccc6+!6*2O>Z+:    !p+q!6+6>!!60*&=) .*&=) .+s#r!6#4Ö:/!*M !4ˆ:y2z͔2yc>!W!5"*& *DM! "*& ! ~2<Gv:T!6:`!6:yÐ:y w!`6*#":y „!y6 :y ʐ:y:<2ڰ!6<°>*&* ~ :yHü:y 2y:y\ͼ!6!6:<2O! ~$*& ~'H!:H=  *& ~$f :<2O! ~2'!:Hf :A2O>c *M!S ^#V!6c !6c !6#6c !6!6P!6$!6c !6c *& ~( !4!6:<2O! ~02O>  ::H!2 :-   *& ~)@ !4c !6c !6c C K L !6+~! :<2O! ~':!/H#~!H *& *& w!4t :l2a5!6!y6 ͼ!{6!x6!r6!t6:y" !r6B" :y ͼ:y" 7H !r6A:y0C 2y2 |7S |:yH:yhHq ÿ :y :y+H:y-H EHҿ Ҵ ÿ :y ¿ ͼͫ T҃ j  :y$  :y% ͷ> :|F:}NH:{H& !r6H+ !r6F!{"::x2<ͫÀ :rb] :y Z 2yF À :rc| :y y 2ye À ͫ :y%:z Hҹ ͼ@:|I³ :y ʽ 2yì ͼ!{6:y :y.H:y H @  * 5:<2  *DMz *:=o&" DM! :=o&" ! :w*# D:}:‚ :|*w~:{==2{_| >!{Ґ !{6|*# _DM !65!y6 ͼö  :y\  ͷ !r6ͼ :{<2{O!{ :yw:y!x?w ͼ 2y*{&{ ~:y0O> /:ya/>z!y/H:y.#!S:y_2y@:yAO>/#HTH7H҉|TҦ:yAO>ڢãç|:y ¶ͼ> !{>!6*{&_ ~2:!ڐ:!2!6*{&I) =:{*&{ :=O* ~҆:<2Í:=2>>@_D!s"8*++"!>6#6*~=!?*?& *:>2>!?4·:>?*^*"> 9+s#r!8G  #*!Ap+q:y 9*@+"@* >DZ* ^#V"9*~=O! *@. H҇*~ ¹* q#p* ^#V"6* >w#6*N! **@s#r*4*<&) ^#V!Bq:B8!G   !Dp+q* *Cs#r* >w* >">9q*~2E*:ctc>*#^#V"=>:E=O! **E&*: §:E=2E¤>t>*:>2FO*8"*:#* *:*w_ * 6*#q#p*<&) *s#r:F8+s#r!Gq* :Gw*~!Hq* :Hw* ~* ^#V!Iq* :Iw* ~\2L!M6:L!Mھͯo&"J*J.ʧ*JN#F`i"JË*#*JN#Fq#p!M4p: :rF27/!T!ͪ"DM *6* >w#6:T!4*M%!%@"*DM$ :rH²:sš*#">"^  ͪ"DM *6* >w#6!6*M%!T6*"7ү@"*DM$ :r !T!6*"*ML!T6 :r :T!T6!6: *"e!6:r2sÿ~*8"P"N!"R!s"8,}*N*s#r*N##"N*+%s  *RDMz *R#"R0*P++"P*R"U>!UDR!U+s#rR<"W!Y6:YO!Y6!"\W\,L*U*\"Z*\)*P*Z)*P^#VN#F[?*\)*P^#V"^*Z)*P*\)*PN#Fq#p*Z)*P*^s#r!Y6*\"\óÌ*P##"P!cr+s+p+q*` *b ~z>*` *b ҏ>*` *b ~Ҥ>*` *b ҹ>*`*b *b~2f*`~2f!g6:g<2g!f>*g& *`*g& *b~ᖟ*`:g5*g& *`~2d:!d6 *b:gY*g& *b~2e^!e6 !e:d!h6!l6*~ʤ*>@:l<2lO! Hq:l<2lO! 6:!m6>!m*m&*~ *m&*:l<2lO! w!m4©h*l& DM :͞*P"N!"jRj,L*N^#V"!m6*~!mP:m=O! *N!m4**>!O~,klMÂ,|wMÂM@"!i6: >9 !m6*~!m:i, !i6:!^!:/!͞+~:m=O! *N#Fz!m4¥* ^#V"Ô^!:/!7͞*N##"N*j"j!op+q!p6*p&*n~$}*p&*nN!p4X!qq!r6:q!rڝ !r4‡ MM~M:+~7M:h<2hOz^^?M^^!6_ogDM!>))  =^#V|g}o _{ozgi`N#Fogo&og_{_z#WCBASIC XREF LISTING OF $ $ $\ INT XRF;:$$$I"I$! !$I@!B B"D$!D $I$!.MAIN.\.PROG..DATA..BLNK.FORRD $\FORRS FORBN FORI mFORW -\REPX 1LOG DEPX CSW M\CWS SRD RDS RSRD .\RDRS .CBNI cBNRD 7RDBN \RDW CIRD QRDI NFINT 7U\FFIX &SADD bIEXP :EXP \RND fINT 6FIX hSGN C\ABS !$SQR "xATN # TAN $-v\COS %SIN &IMP ' FRE (^ \POS )$SETMID*RFCB$ +!TAB$ ,\HEX$ -EPEEK .ASCII /CHR$ 0 Y\STRING1$LEFT 2'RGHT$ 3YRIGHT 4D\MID 5?XLATE 6kINSTR 7iSPACE$8\LEN 9)VAL :KNUM$ ;BGTE <B\BLTE =BLT >BGT ?BEQU @k\BNEQU ABABS BBNEG C PNUM D\P$ EEXC FCHAIN GSIZE H\RENAM IXFCREATJFDEL K=FOPN L6\FCLOS MRSET NRREAD OGRWRITEP\SWRITEQ^SREAD RSETFCBSIIMP Tl\IEQV U IXOR V IOR W IAND X \INOT Y IGTE ZILTE [ILT \\IGT ]IEQU ^INEQU _IABS `\ISUB a IADD b IMUT cIDIV d)l\INEG e WGTE f WLTE gWLT h \WGT iWEQU j WNEQU kWABS l #\WNEG mDGTE nDLTE oDLT p\DGT qDEQU rDNEQU sDABS tA\DNEG u RGTE vRLTE wRLT x9\RGT yREQU zRNEQU {RABS |\RNEG } SGTE ~SLTE SLT \SGT SEQU SNEQU PRS Q\PRD qCMPSTR^CMPRD cCMPRS c\CMPEX CMPBN ICMPI CLS s\RSTR CLBN RBN #CLRD \RRD %CLRS RRS RI .\CLW RW CRSL CRDL \CBNL CIL CWL CSL \TSTRS TSTRD TSTBN 'TSTI \TSTSTR%TSTW $PBN BDIV i\BMUT &BSUB BADD  DRD \DRS DBN DINT DCHAR \DST iDNUM SDSET IRS 2\RADD RSUB +RMUT KRDIV d|\RSNORMmIRD /DADD DSUB 3p\DMUT `DDIV yRDNORMlREDIM I<\BASET 0MAT ARRAY IBN -;\PCHR APST 1PST 9PI \\CI lCBN uICHR +IIN \IS ERR20 dMPY ]COVDECrp\GETVALIBUF STRPMT"PSTR 2\PRMPT ONERR FMT tSTRCLR\MPOP MPUSH 7ERR1 (LN p\ERR2 SAVHL GETHL SAVIO \GETIO TAB TAB1 RETN \IWRD 8DUBL =SCLEAN6STRPUT 9\SPUSH SPOP |SMOV %SCHNL17\SCHNL2FCNTLCECHO BASOUT\ASCIO iZP XP !PHRS <\PHRD PHBN ZPOP XPOP +\SYSIN SYSOUTf;D"f"!>@!> ;b">! >/;(dͷ*>2!> ;;C*>!:0͇;NHi*!>@!>;b`!C*> !>>;u3͸!*>!n;2͇QHQi4; V;D"f"!>@!>;b">! >7;(dͱ*>2!>;;C*>!:0͈;NHi*!>@!>;b`!C*> !>C;u3Ͳ!*>!y;2͈QHQi2;\;D"e"!>@!>;b">! >2;(dͧ*>2!>;;C*>":`͊;Nh*! >!>;b!*>@!>D;ufͦC*>!;d͊PʐPh;X;D"G"ZD"k"iH"!"%;I"K"W*k*"*i/;+:l]2͋J@*!*;?i*k!**ka;U"!d͋:ʐ:J;i;D"""~wy%{o;!~w!~;*@; $"!>2! >; B:#2#B:2,2;* C!>3";< C!>!!>B;O dͲ! >3 0ͳ;` C!$>!!$>!(;s >!$ >!->"; ͱ!$>@!(>; f2B*|@!->; b*|g}o" !; >dͳ*| !'; >C! >0ͳ5; C! >&îͳ@:, ; !>!->`!l; >dʹ*"; A; $"!>0!H":V; $t:Ht!>`!;) >d͈[*#"E;= C!>!!>ʹn;P C!>$ *| ž!;d >C!>0͈;v HҞ*+"!>!; >ͳ!>c; C!>3!z; y=´ >!V; >! >ʹ ; C!>2Ͳ!>C; C!>!!>!; >! >!>͢; !>d!>0;# C!> >2! >;8 fͳͱD:=-!>ͼ;K ͳȱ*|@p;] !>`ͳ͒;n ȱ*!zLOG <= ; 0 OR A^X A<=; ; <цxAr; RrX^; R]@; $"!>2! >; B:2B: 22 -;* C!>30=;; C!>!!>!;N >͸!>:';a $p!">2ô@!>;u d! >2)`͹!; >C!> !">; 3ͷ!!>!; >&":@!>o; f$"! >0; I*b͹: !>; 2!">! >h; dͺ*; ;# "d!p>!;7 $"h"f!"j!>v;L C!p>2͇@*f#";_ f!p>!>`;r Ⱥ!p>dD*f|; !p>!>``; ɇ*f+"f!p>V; C!>2͹!p>K; HÇ!p>d!>0@; d͇*h#"h!p >; C! >2͹!p>; H!p>d!>0; d͸!~>2!~>O; C!~>!!p>!;3 >!!"n>2l !p>L;G 2!~>! >+;[ d͹!~>2*n";n n>C!~>0͹; dͷ:l=I2lK!p >; $2l:l=I$2l!p >n; C!w>!!~>!O; >͹!~>!~; >! >*j|; +#e"jͺ; d͹!p>3ͷ !p>; 2!p>!w >~; d͇™!p>@*f|;1 FFC!>0͹Q;C dͷ*h|#` !>/;V 3͹2͸*d;h r;} ; ; I$I ; 88.; ؝I$I}; F; ; ]ݪrs;% >2>",![>!.;: >!$"<!T>0';M C!M>!!?>!?O;` >!F >!.5;s ~#u!.>*<:; 3͹!!.>!MR; >!T >ȹ!M; >![ >!.>͙; ͺ!M>`͹!; ?>dͷ!?>0; C!?>!!F>͇; I !.5#<; D:>= 2>*<#"< ]!;! ?>@*,h;5 ;J  ;_ ""!>!;t >*|g}oH"Ҝo; C!>2͹*|ʺ; C!>!!>͹; C!>$y*; ; &"!6&`:ox; !; >;&" :`!^;&" `;![;$"$!'>2:*W2* ; z2-!' >!;);$"$!'>2:-W:*; 2*!' >!k;);$"O!]>0!@:`t;R:`R:_;) R:_ R:^;>R:bNe!;RDM)) )O L;&"->2G!g ;w#L!0"ȶ!0;'>!;!"}>2ͅ!>;~% !#@x~;'f2,f!,:w!;8'>1:6| K/@;J$<2!>2: =n2;^!>ͥØV:6;q3:6!o;d;&"``|ʀ!;!;!"F|2Pe)};lg"N!I>6#=>/!Ie;*2wͻ:P$=:O 2O!;>I>!;$">!G>2*H}lg:G; !B=A 5Gu;*|g}ox!5;3"! >:%; ! >2!1>;#fͧ! > Q;4;$"! >1! w#>\;w+>!h;&"_f2!` ;2!!;"f!`!~ 8#;4&.wG# ;xR;H Ny22.; [`2!;z5!z8zW#;{_'`z@8q;)`iDM!;$"d!o>2!o>;C!s>!!o>!;'>ͱK>2"d;;C!s>!!o>!g;N>! >!w>͊;a!>d!>0;sC!g>!!k>!w;@{~#‹!w>;C!>2ͳ!w>;C!o>!!s>ͳ;C!o>!!g>!ok;>! >!w> ;ʹ̳ͱ!g>;!g>d!k>0r; d͈[!w{ -#;:$=[2!g>͕;3!k>d!>0;EC!>2ͱ!>2;XHÃ!g>`!;l_; R;&"W͝HN!Z>`!;b>dͳ!^>0A;%dʹ!b>2!b>o;8C!b>3Ͳ !b>P;J2!b>!e; ]PT;3"P!_ >:b6;f !_>!2 >!;$fͱ!_> ;5;$"P!_>2:bH2g:_;!S3 !_4#~w;*I%:_$!b:gG~";?w!_͵!!_>!;R!!c>*P;fx; 3"!!! >:!!; /:!#@>!>H2B!?;& >*!!;>`*;8 !2;!$"! >2:#2#g;!C! >!+;"!"h>2w!!k>!k;">!o >ȴ!s#;'">!k >!s>;:"ʹ!s>`ͱ!9;K"o>dʹ!w5Hg!s;_">,!;s"e;#$"!>2: 2:;#2!>@!>;(#f͈H]!>`! ;:#>dʹ!>0;L#C!>&cͲHc2;`#D"!>@!>b;t#d! >2!>;#C!>!!>!;#>>H2!>`;#ȳ!>fͳ`ͱ:;#=¡! >!a;#:!!>:-;#2!>!u;#;#":u;$$"&!)>2!)>;$d&!)>3%0ʹ;; %$!;%3"&~!& >̱&;&$"~!>2: 2;&2!>! >D;)&d͈M!>@!>I;<&fͲC!> !;N&>C!>0͈;`&Hҥ!>d!>0;s&d͈ڗ!>@!>;&fͲC!> å!;&>I!Ä:l;&B:2D:22';&C!>!!>ͳ ;&C!>!!>!;&>ͳ!>!b;&>! >!>͞; &!>d!>0;&C!>3ͳͲ !>3;1&3ͳ2Ͳ!>;C&fͳͲC!>0ͳY;T&dͲ!>3ͳ !>;f&2:!w@!>:;z&`!o;&]3;&|%;'{2_N;(}!9* |/g}/oF;(# |! <?;*(^#V"`i ;>(O! N# I\; S(+|F;)x!ZCe !{T;) y!{ NI;*&"Kf2!`;*D"N"PF*P|€Jx<;&*J:OaJw#@;9*DJ J:N=2N0!B;N*;+&"!6S2;+> 2!;,&"!Z N{%; , O8!;-&":!z@=w#;-z=w#{̀=w#{ ;)-=w>f2!; ;-0:; .N*;/&"!6:_T;/!;0>A;1""""1"E:"0!Q;1 w#!;2""""%a!6:%;2f2!f!;#2;3&"T` &"W2;3f!f!!(;$3#~${b2*W`:;73H>2Wo`e:W;K3@:W!!;4"";">f2`!͌;4!!>:N ;#40! ړ@2> :>T;64!!5;5""8"=&";`2!I;5!!:;r;$5O :=d:=!!;85;6&"df2!`;62!!;"6f!32! "g";36i*i~ʈ^#"iO0!;G6 ~5B*gw#"g`!4C;[6M5!;7&"ff2!`!;72!;"7f!K!:;47G:ʘa:Œ[v;H7T e#ʀH# ;]7 =!J;8#""}!6 #= M; 8l!;9&"&f2!`!;9!~# ;#9!;:&"=f2!`!;:!D"Ͷ!@;":H7:J g:G2G!D;7:>!W;;!">2P̈́;;!;<3"A͊ >AA ;=3"A͊ >AAA b;>3"A͊ >AA ;?3"A͊ >AA>@;?`A9;@3"A͊ >AA ;A&"͊>>!};A;B3"C! >: ;B`C1;C&"!>: 2y;C !>0!;D`:_!6>H22S;DI222$2222^;)DB2>02B2> 2!";?DI"""&"*o@"~R;SDHg:‰/2!ӐrN;gDHʀ~$\w*~H *;}DHQ*+"*#~͐1;DB*$!*|$B;DHm:„m>2͐**;D##"Ç**|;D*m:m>H2*;DB*##"$‡> 2;D2*Ç,%*|;DB*|m>22@Ç-;;'DHI*|B:>2HÇ:];=D!>2!+w *|\;RD!c>2 >+2Ç :;gDB>2>+2^¬i;|DD**|m*#~^Y;D*É>2~-@‡>;DH2Ç.H¿:ˆ/2;DBÇ#‡B::2;DHÇ*#"o!"";D ~ *!- *>X;D 2~.ʄ# # E#o;DH#*w#I"B*~;#D.*~ BHEH H*;8Dw#"͒J*(E¹;MD>+2*~-e @e+U;bDIk2*#~+~|>0*c;xD$+"2͉*~2:0o&;D! c:0o &b;D$":$-¹*`eL;DH"*6B*|@:;D*|**a ;DF*͋IR*\ *;De*a*͋l;DHR*eͦ͐*e;D#*͋$Ґ*"* ;0D#*"~w~:R;DD w!͋*;WD#*+~#w+0!;jD1͋` >12͘B!];}DI"@*+"~ *#";^DHF**͋> $ :;rDʸ**+ȋҖ;D>* *$#"{**;D2͋Ҹ@:>$̐ :";D>* :g:*2;D#*͋!> *#;DI":g:g:/;D:>$- : :;D !"":ʁ@**;DaH"*|H?*C;-D~#" D*+"Ð%*;BD|ʛ*1!͋>,;UD *>~ # =\";jD*a"*:;~DH?*|Dʛ+"*~#"8;D Á@:>.̐ *;D|*|*~#"';DH *+"*+" è*;D|+B">0 H:l;D*|C>E͐ :;D>+ >- *|;D1e" *! 0dW;%D}0 ! c@*-;9D`a}0H : :;MD>- H: "*;bD!* "*";vDF*a$"*@*;Da"*|#" *6;D0#"ÐH"**u;D" "*1a" *;DD*"**"*;D|*+~#w+"!>;Dȋ>0d2*#H"B;D@#.,-$*;D^+:O*;-D"#"*"#"* #"ɇ;BDD*#"D*#">% |;WD> *I"*"|>;lDBq>2>22H22;DI222 b;D; D;Ed*o"~$:@·>;EL2!r"*~!L5:C;)E!/> !Ç/v *;>E#~/N"ʷ ?L"!;TE~h́# T Ç;iE> hÇ&˜:3;~E0O!>*~ !ʲ;E!/ʲ&ʲ#"G\@©F#;EB"x##"o:o;E0O!>!r"om;Ea:O;F0u}͸;F&}Ð?:3;)F };È&2;?Ff2f!`!};OF0:O~Aa# T6x2;cF}}>E;wFf2GG$$$ SUB;F;F;G0!6*%%L"S;GL* w#€~ ;(G@7=_*6 6;=G@* Q!0;QG@* 6*%{/_z/;fG W"!~_#Vʊ#N7;{G#F* r+so*"`;G$"W:@2f;G *% w#z€*;G*%CHAIN/EXEC;GUTE OPEΪ F;G5;>DHMSru;G>!$GO t͜;GO_O*t{€t<;$G>! Ow#=@,|;9G$FO+|=Ow#GG;OGy]! ~\;dGO@ ;yGPROGRAM CHAIN/E;GXECUTE ERROR$;HfK!@"2;H:@#=_2;'H! |A ;6#=+!;9K!m;L M>@~RʀSʧ;L&!(FILE OPE";)L!6"!6`ͬ;6#=6#6!;LR-TYPE FILE NOT;0L FOUN`;M }2M>ʀ~J;M!RʰS-&!")FILE;'M CLOS"%~~;QS-T;MYPE FILE CLOS"N3$X;M0N ~#¼:N ;Ma:N3N+;M0*N3 *N3(6;M;NGx !2:O>;Nb-~R- ";(Nw! |2@"3A;=ND""@"!$ 2;RN~#HU: @9;gN$:ʯI£ **6;|N6 #{|+6 +6 *3$/;N  w#—!6;NIʟ+rʹ+H;NIË >2 9;NË+BË:*;N *|}*KH!;Nd:I9=* "*L;N"*H":>';&N"/2*IK7!0;:NH]*3$w#BDM*5;PN }2zW{_|;eNg}o\z1" "~";zNZ22\D:*;N|1}@1}O*3 ;N~@*3q*;N3! *3R;ND!9]!~w##;N$:!d:i2!\;N:*}2; N}2Y:] =_*M; N!"7!"5* !;5N}o":S ͅ¹;IN=‰Dͅ+|;^NHS:5Iͅa ;sN:Ÿ:}Ÿ9;N!w#`3;N]:ʭ";N"_:ʿD*~#"~{o;N xs*5;Nw#"5 }耄;N]:"_:;N*~#"~{€!7;N@"5}$G:@8Ϳ;.N=’,ͅ+|;CND89 :~;XN_!_:ʐq*Z';mN #"Z{@ x&;NHK:8>*7};N`$9:ʭ;N!_:ʿ*Z #"Z{+;N$28!F&;N #"7ѯx|g}o;N>!) #=;N@)) #Ð!;Nd!2!];'NL!!3;:N\;ONG;dN2;yN;NR-TYPE REAE;NXTENDING FILEND OF ;NDISK DAT RANDOM RECO;NR R-TYPE FILE NOT OP;NE NO MORE DIR SPAC*q;NWRONG TYPE FIL;O1P=P*P 4;OP2!Pw#;#O&=!3*P0P,;4OaPkPw#=˜7P,;P"=ʪ!*~};P ~#k~}#=;,PH* w#4 ":;APO>~Rª ~;TP!$"@ ~#a ;iP=_!x~*;~PD͗*w"#"͗@*~#;PD"*|"ʤ+" !;P!׀D;P READ/WRITE PAST EO;P+READ/WRITE SEQUENC;QF"+: O>@~`;Q S ~R>Ww";(Q@+~#-HI*+;>Q~͋~#@U=_!~*;SQ+~͋#=U*;hQ+w#‰j͢!-0-;|QI*!"&*#$"(Ì@*&|z;QDs+"&*(w#"( :%!;Q::*¸/2**!;Q "@*#:-;Q =_;Q x!R;Q;Q;#Q S-FILE WRI;8QTWRITE ON UN-OPENEDD;MQ FIL,S TYPE FIL;RF"Z: O>@#~;R S# ~W#>Rw".;(R@0*~#-H^͞);>Rf2!͞w#=D;QRb!*Zdw=_!);eR~*Z̀w#=j*.;zR@0*w#ͳ!\;Rd*Q"V*S"X@*V|;RDʈ+"V*X~#"XH:U!jh;R2*Q "@*S=;R:0 =_0;RB x;RÄ*Q"; R}>M6# ;!R!;5R`;JRRE;_RAD PAST EOREAD ON U;tRN-OPENED FIL,S TYPE *;RFIL;S@!> 6 # =!6k;S2!`::>@1~#;'S#`/ @~@T#; ;S_y{ʠ  >?w#ˆ;S/;TzW{_x/Wy/_;Ux/Wy/_; VzW{_`; WzW{__; XzW{_~; Yz/W{/_";Z3"_͋ >__ ;[3"_͋ >___ ;\3"_͋ >__ ;]3"_͋ >__>;]`_;^3"_͋ >__ ;_&"͋>>!Y;_;`| /g}/o#;a}o|gɯ;b}o|g;c3"dd 0e;c`*d;d$"0"e!;d| |exŷe ;'d; e|/g}/o#;fy>k k X;gy>k k k I;hy>k k N;iy>k k >0k ;jy>k k \;ky>ƒ >͖;l{ /<_; m{/<_;n3"s͇ >ss ;o3"s͇ >sss k;p3"s͇ >ss ;q3"s͇ >ss>{;q`s;r3"s͇ >ss ;s&"͇>>!L;s;t3"u! >: ;t`u;u&"!>: 24;u !>0!_;v3"{͈ >{{ ;w3"{͈ >{{{ B;x3"{͈ >{{ ;y3"{͈ >{{>Z;y`{;z3"{͈ >{{ ;{&"͈>>!A;{;|3"}! >:;|`};}&"!>:22;}!>0!];~3"͆ >҃ ;3"͆ >ڃ̃à ;3"͆ >ڃ ;3"͆ >ʃ><;`Ã;3"͆ >ʃ ;&"͆>>!A;~;>2P"022. 23!l;6>D:7ʘ:92/N;) 29!6 >>0X;2͈\@!@>;OfʹD!.47>0;aC!H>2͈ҁ@!@>;tfͳD!.5\:3šZ;$/23!L>3ͱ 7!;6>B!.~/<; Ҵ^~w>25{24!:;Ąw#@+~0;لA:/> >-2:4;$1:4=B2.>24>25;L!::4=24~#L;  >.D:5X=@25~;,#!$::4/<6.#6;@0=>:4 G:5G#wN;V+~0ʄX.f#6:.v;k ʘ6E# +{/<-p#T;" ڈ:Oxʔ0w#q-;#6!~¯60#6>;d2ú#~¯x2:P;:n :O>;Єf!A*0!6 >;C!@>2ͳ!6>;$22!6~$  = w!9;; ~w+ ‘:222 ! ;!6͵:20;5?;J7+;>2"82262<;C!?>":@ʠ@:E2;'72EC!?> >{;2͇\@!S>;OfͺD!647>0;aC!a>2͇ҁ@!S>f;tf͹D!65\:<šB;$/2<!h>3ͷ 7!;?>B!6~/< ; Ҵ^~w> 2>{2=!F;ą w#@+~0;مA:7> >-2:=;$1:==B26>2=> 2>;L!F:==2=~#-;  >.D:>X=@2>~;,#!$F:=/<6.#6;@0=>:= G:>G#wN;V+~0ʄX.f#6:6m;k ʠ6E# +{/<-p#K;" ڈ 2p0O x2oQ;@ʜ0w#q#6!~·;60#6>2#~·i;3x2: :Ӏn>;Ѕ:O>3! *8;!?>!S>`;ȹ!?>b2:@!?~.;H((=w@!E~w+ ;D::2:Ó!?ͻ ::c;20;G;\Ѵ$5 `;&"3!6!6j;!~ʀKO;$D62#! ~;9 1Oz„2#8À1 ;N"12M1l;&"`!>! >;!: &~n;$_:  !͉9;5F*`! `~w!;H @R@_#r; [ T!;&"`!>!>;! :&~v;$_:!͉9;5F*`!` ~w!;H @R@_#w; [ T!; Oy;?;&"F! >!> ;!: .~>*;%7EE0 ~7l;9E+@9!;zz>7zR; {; }Í;$"!H!!; TrueFalse; }Ï;$"!H!>`!X;c; }Ñ;$"!H!>`!T;; }Ó;$"!H!>`!X; ;! !; }Ö;&.T .F;&"͝!!!;j;&"͞!!!;i;&"͟!!!;h;&"͠!!!;g;&"͢!!!;f;&"͡!!!;e;>Þ; >"!:>; @/!;!"$>!!;# O~#>!; |>; "#{ʃâ!2;6*#:â;}T t Yʀ yY; >>2;""!>:2;C!>0:nʐ0!;(>ͧ!> 6#=5;:5Ƙh! 0R6;L #E.@v#~##;a0v>6 #=h60##É=;v`:gw-ʀ6 #w +9;a:nʓ#6 #6>0 !+;0w:nʘ:O>0; *;aͧ2ͧͥ >2;y!#L !B;&#)&`!;:7>'# ?3;NLf! ȥ!y5:xʟ;a3z!2ͥ!y4>2x;uB6:y! 򧀟<C;'# •HүE@Ë Z;F!`ͥxw`! ̈́;äɥÉ!:`2;Ԥpw x*".;a!>!>`̀;̧*a!>*q; &! DIVISION; BY ZER :0:;1 !̥!;B(!7>Π;U'wG# QxK;aͧ2ͧ>H2ͽ8; > 2 $͗D@>;(3!0ͧD+~0§;9=&L!͘!;Ma:2]pw:5;aPڃ*&"!> ;tC!>2ͧ*0!;>*:u; G:<7C2!O=; ~Ҹ!;¥~+ ~~$;ץ!~w# ; `ç~w+?;!! !f;§`!w# ;`ͧ~@>w`ç>; wç3;B >U>2n;8!@:@*pN;*w>*̀;>H!'w# Dù;S:>!HjC;i27>5;~'w## @v>Hj!;@ !ِ!;@OVERFLOW/UNDERFLOe;י~w> 2;ҧ""">!>!;d*H!;M; 1ͮö; 1ͮð; 1ͮ; 1ͮȀ;3ͭ!~w;#3* ~;BP""'"+>,O#~ʚ;'33 #x2~);;AFy,E ##" !";O&!VOUT OF STRIN|;cG DAT;f* ~9~ " ; ",ʄ(+# ;( #" xf2!`" ;9L!?OUT OF NUMERI ;MC DAT;@" ~,#H" ;I")!+Ͷ:1W@:.;$2.*)+w#  >; );>ò{;>2/",!!7>!2x;>262;<@!2>;(`!;20!57wҦ+š;@:0G!5~w!2͵;A:325!5~_w!j;в:~W w:/W"0!2;@7NG x 1;H4#~w€6;~/w+~w+~;$w !;$"!>2!>;D::!~_;) w!~Ww":H2!;? w#BTʐo;THM!w+ ;iIcM:G:O2xc;~: x*!A;>:!>*{;D*!::!>;!!>2*j;г;!~w+ !;~w# D!7wy;B+ 0!~+~=w!;$~w+) 2;9zW~ww;$"!^>2!Z>;D:_:[!a~_;) w!]~Ww"b:ZH2V%;?U!YD: ʀH!]:;UH!a]+ˆ^?D;kH!a]+sD};D:^o:VgG2V| x;!x"*b!$>E;C!!>"*!Y7;!w+»$!W.!V4#>c;Ӵ w!V͵*b!Y :Wͮ;紐E!V>!!>i;*!<RS> D;IVISION BY ZER;#!_.@![~w# 1;9~w+@<zW~*;Nww-;c;~2@#~ -+~=w;~w~w+ $;*6:@+~6# 8;?>w+>K;T~+2~;; #"> +2~#ʀ ʱ;P ʅ EG~+ʀj-;ej+>+2#~ʅ{;z_~_#Ap+6E:+{F;/<2́"x//2!dͻ: +ʿ:; 2 :!( /;Ͷ$<2!">@:= ;ᶒ2*>͹e;C!!>!!>͹O;a*>*ͻA*w;~w2 G!>;-6#=.A*~E#"Y;B.O>25 !;W ~#‰Y!  !;l  I!  ! ; $2!>6+=E;I’! $:@ʪ *;H5:‘*!Eʾ;.4$ü:H! ;ֶH ɯw+ ;0 >77a;0;1;*;>øo;>2/",!!:>!2l;>292AB@!2>;(`!;<$!2!:Q;QB*0|oD:0i!9,;fIo!A$!A9;{ +x*0}};H!9>H20!87w;+ :0G!8~>;&w!2ͻA:328!8V;θ~_w!@~W w:/;W"0!2@:NG ;;xH~<w#^; ~w ~/w+@*;"~w+~w )\;$"!>2!>;D::!~_v;) w!~Ww":H2!;?w#B0Tʐo;TH M! w+ ;iIcM:G:O2xB;~: x*!;>O!>*6;D*!:O!>;!!>2*R;й_;;! ~w+ !o;~w# D! 7w8;$B,+ `!~+~=w!;9 ~w+> .2;NzW~wwɨ;$"!p>2!i>;D:q:j!v~_N;) w!o~Ww"w:iH2b1;?0U!hDF ʀH!oF;UH!vo+ˆ^?D;kH!vo+sDM;D:po:bgG2b| x;!x"*w!0>Q;C!*>"*!h7;!w+»$!c:!b4#>9;Ӻ w!bͻ!bͻA *w ;I!h:cQ!!b>!q;!!#>*! 0O;  DIVISION BY ZER;"!q:;7@!j~w# =~w+;L HzW~ww?;a;v;0~2@#~ -+~=w;~w~w+ ;*6:@+~6# 8;?>w+> JЋ;T~@]}>Ҁb/2@;c#}o|g@"DM:#¨;y*  " |!92͐,;L!,:w>!'`*{;$>> 2> 2!;7'w#L<!`2~;J+Y-†Z>2#~ʏ;_0rʄ#@Z 1;tBB„  !(; w#Z!  ; #~:³: o;~0 B@!';wÞ:!(;~w#D !5:;(!'~w#@ J;:(gH2(!5;&H ; }2f2!6:n;:O>0?;#"/32!0;`:_!6!:/;# O>@*/;#"732!0;`:_!6:Ӏn;;#Ù1!:O>*7;5W;#"Z f0;& !6 :e+@%w#7;&1wA%x;60#<2;;62:ӄnT!:_;N O>@*ZP;""Y!f|>+2e@}/&;o|/g#>-2e[N#F;* |7,+y/Ox/G ;?y0w#R@&V;T@*Y;i; "^>!a2`:f.; >+2g" >-2g!as;*~0@H~01;? #*X":`W /2`;T*^;i.;1:#0*~#0!; 5,ƒ#5" ;' I;33 ;s#r ;*:OG~ "T#; r~"ʂ9# r+;(A~"; # r+~#t;=! F,; yK"y2;R,9# h~HT;{;h FÓF! !;|ِ::í;ɀSTRING INPU??;H!%ERROR IN INPUT,; RE-ENTER PLEAS0:;)c:Oِy!E;;fِ:`??H!N%;NNUMBER TO LARGE/SMALA;c;y!Dx+; )! "[>2Z;+7?{_zW!Z5ʀWyOj;@xG#yO# xG/*[ DM; Uˀ/BK;02 +B->2N;`i"p! 8T])))֛;)0 ?F_:z;=|/g}/o# *pDM! ;RHȷ707 b?_"; g))))P;#"]:ON`*~a; #ʐN~,@h ;(Bh hE~C+h;>-h #"u ~,V ;T# >0u~,N C5;i _~,†u# "0y2S;|);O>O2!;c"2ar;' aʄw ʨq;;d`26:>E6;wx+ ~ x ;+ >>0 p;>Ba>#;f!>@>#1;fd:!;c:O2:TOO ;MANY CHARECTERS. MAX ;IS 252!"2;^#V"> !+P;#F**0*~ @N;6Fi#"a:2Q;HL!>"!\*0*;[0*6!"#";ma:2\>2\@;-ASCII FILL;~#d#~#;y ;B21~!A20#~!;"!05!$ :10; ) y; L!ِ?; f2%"&ɧ;D2n"(&+H2q!q;d!r"o!q0:;'!*o$~#.;<,-$*^+/;Q&!\€_#~`:OE;e0~#À.;y;;r;];H;3;; ;!;6;K;`;N# 6~#@ ;6#;y/Ox/G*  " ~#; x6;* w# x" $!;9z! `! *** OUT;) OF MEMORY **%;^"!#:%0&;f:**&;';C2m~2 #~2# :m!;؂nD`:O>[W`;'>]> d:o=H2oD,;;>2oyz;N_":n/2n;c0€b8;^"$#&!͘:;` WARNING ONL:;)O͒!H͐`:;<!N͐@W ERRO IN ;Q LINE*|0;e|0}o;x0}0!5;>w~!4; !#Ð~;* s#r#" ;* +V+^" ; y2 #;`:Oz;> ;`!Z ~> ; <.; O> >1 2c; >$^#V;>!!7:7`;(a:5 ;&":f:!`:; `:!0:;#f!a:90:; 4!!;&"2"!1O  ;3~2!0!0 ;%f2!dF; {;^#V#"~2#:[; !!; "zz@4OFx@Ky;A#6K#wKK;* #6ÁKO~Q F,;? #6#1y*z"x;Ta|e}eqØ6!};h3y2&*x@KF;z;0FO #6 w;@zʀ! ;;;*;?;T;i;~;m;X;C;.;;;;;*;?;T;i;~;l;W;B;-;; ;; ; $ !Z 4 '=;6'!{ 4 '6y2X;,>F: 2Y;?^#V!P!Y> :XO;T@:Y;i~;~i; m; !A  7N;#~#^#VN#!A ;**7~#7;?;T;i;~};h;S;>;);;;;&;;;P;e;~#^#V#0;"(^#=ʀV#=;&*(*(;^#V#N#F#N#FG;^#V#N#F#N#F#N#F#T;N;^#V#N#F#N#F#N#F;;~#^#V#0;"(__{ s{;+='r+ ='s+=€!b;*;*J>͔ ͔ N$ WRITTEN BY ROBERT SCHRADER !)!#!&"$c*a*$~"$wÓ...............................Ù !Þ"ÿ#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!s!ͻ*Uͻ!ͻ!ͻ!ͻ!#Z$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$` !e"Æ#$%&'()$+$-$/0123456789$$$$$$ê @ABCDEFGHIJKLMNOPQRSTUVWXYZ$\$^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!:!]ͻ*cUͻ!hͻ!ͻ!ͻ!+#lͬ ! #!#!~#!-#͹ & !$!~ͻ!~#!s"q!v"t!y"w!|"z!"}!"`\*^*q~"qwr\*p"w\Ä*}*] "}Ø\Ý **] "ñ**t~"tw*"z!-*͉*q#*&>*}*&>* @!->* &Q >*w!~!*t#!~8>*z! 8i b!! >ak!aq*$*$8*oQ b*$#ÑÙ.AAX*$*͉!ͻ*$#  A5>SBASIC !r *$r  A5>!r *$*$8*Q br *$*$& SBASIC.COM!/*$*$8*-Q bCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "Ͷ2!#Ͷ2!#!Q !Q !~#w#x y222!";!6#͞ 2> 2!"R!6#:_!>""!6#:2!Q !""Ͷ2!#!Q !:N ! 2:!!þ"1Ͷ2!#Ͷ2!#!Q !Q 2!"4"6*6~+#"6O! ~*4w#"4!4!"^Ͷ2!#!Q !~#S!‡à:ʜÇ2Ͷ2!#!:O~# µ6x2>2 $$$ SUB!6#*%%"͞ * w#~9=_*6 6*S!l * 6*%{/_z/W"!~_#Vʌ#N#F* r+sq*"b $"Y : 2*% w#z¯**%CHAIN/EXECUTE OPE     ! 7 = @ F J O U t w >!I Q v Q _Q *v {v >!Q w#=. |H Q +|? Q w#I y_ ! ~\Q   PROGRAM CHAIN/EXECUTE ERROR$!F > 6 #=£ !6!E ::> ~##` @~ #.  ~ #. N ~ # !F $ !N $ !E  w# ~*0 > _y{> > >?w#& }o|g}o|g|>" Ͷ2!#:_!6:K ʣ !:O>ͫ * 2 ~ 2 #~ ! 5 ö :  y 2K "  Ͷ2N !N #!O "L !N Q :!*L  ~#.,-$*^+/&!\< #~:O~# N# 6~d #Z 6#d ^"#: ʉ * : ** 2 ~2#~2#: ! :O>[[ >]> : =2 >2 y + : /2 + ^"#* ! ͔ : WARNING ONL:O ͔ !L ͔ :!R ͔ [ ERRO IN LINE*|0|0}0}0!>w~ !4#Ô * s#r#" * +V+^" y2 1:O!4 ~ > < O> > 2^#V#"~2"#:"!!"zWOFxnyA#6n#wnn A#6nO~ti #6#y*"|ˆ}ˆqY!y2*͟nFO #6 wçz  !4 4 6!U 4 6y22>v123^#V!*!3>:2O:3ʔ!A ‚#~#^#VN#!A  ~#­"(^#=V#=*(*("(__{s+='r+='s+=!`4~> G!D !Ml %BAD CHANNEL NUMBEè`````eßNW````````_8|*:727ý!é:78|*7>|)2727*L|! "L__7:‚\!l >2:¡\!l _<2!~ɀ&INPUT FILE REAPPPPPPPtPPP REM USED TO "PLAY" WITH RANDOM DISK FILES var x,y=integer var xdata=integer files r(256) if size("JUNK")=0 then create "JUNK" open #0;"JUNK" 0 input "SEQ ON=0 OFF=1";x if x=0 then record.sequential on if x=1 then record.sequential off input "0=READ 1=WRITE";x input "RECORD #";y if x=1 then begin input "DATA=";xdata write #0,y; xdata end if x=0 then begin read #0,y; xdata print "DATA=";xdata end goto 0  Rem This function finds X! Function fac(i=real)=real If i=0 then i=1 else i=fac(i-1)*i End =i Var x=real 0Loop Input x Print fac(x) Goto 0Loop End XREF COM8IJBASICLIBRELKLMNOPQRBASICLIBRELDSTUCANDR-S COM.VWDPLAY BASXFAC $$$PROCEDURE SET.ON (ATT=CHAR) PRINT CHR(27); 'B'; ATT; END PROCEDURE SET.OFF (ATT=CHAR) PRINT CHR(27); 'C'; ATT; END PROCEDURE POSITION (VERT, HORZ = CHAR) PRINT CHR(27); '=' ; VERT+31; HORZ+31; END PROCEDURE PIXON (VERT1,HORZ1=CHAR) PRINT CHR(27);'*';(VERT1+31);(HORZ1+31); END PROCEDURE PIXOFF (VERT1,HORZ1=CHAR) PRINT CHR(27);' ';(VERT1+31);(HORZ1+31); END PROCEDURE LINEON (VERT1,HORZ1,VERT2,HORZ2=CHAR) PRINT CHR(27);'L';(VERT1+31); (HORZ1+31); (VERT2+31); (HORZ2+31); END PROCEDURE LINEOFF (VERT1,HORZ1,VERT2,HORZ2=CHAR) PRINT CHR(27);'D';(VERT1+31);(HORZ1+31);(VERT2+31);(HORZ2+31); END PROCEDURE CLEAR.SCREEN PRINT CHR(26) END FUNCTION SQRT(N=INTEGER) =INTEGER VAR ROOT1,ROOT2 = INTEGER ROOT1 = N ROOT2 = 1 WHILE (ROOT1 > ROOT2) DO BEGIN ROOT1 = (ROOT1 + ROOT2)/2 ROOT2 = N/ROOT1 END END = ROOT1 PROCEDURE CIRCLE (CENTER.Y, CENTER.X, RADIUS = INTEGER) VAR X, Y, OFFSET = INTEGER OFFSET = (RADIUS * 100) / 141 PIXON CENTER.Y + RADIUS - 1, CENTER.X PIXON CENTER.Y - RADIUS + 1, CENTER.X FOR X = 1 TO OFFSET Y = SQRT(RADIUS^2 - X^2) PIXON CENTER.Y + Y , CENTER.X + X PIXON CENTER.Y + Y , CENTER.X - X PIXON CENTER.Y - Y , CENTER.X + X PIXON CENTER.Y - Y , CENTER.X - X NEXT PIXON CENTER.Y, CENTER.X + RADIUS - 1 PIXON CENTER.Y, CENTER.X - RADIUS + 1 FOR Y = 1 TO OFFSET X = SQRT(RADIUS^2 - Y^2 ) PIXON CENTER.Y + Y , CENTER.X + X PIXON CENTER.Y + Y , CENTER.X - X PIXON CENTER.Y - Y , CENTER.X + X PIXON CENTER.Y - Y , CENTER.X - X NEXT END PROCEDURE RECTANGLE (Y, X, HEIGHT, WIDTH = INTEGER) LINEON Y, X, Y + HEIGHT, X LINEON Y, X + WIDTH, Y + HEIGHT, X + WIDTH LINEON Y, X, Y, X + WIDTH LINEON Y + HEIGHT, X, Y + HEIGHT, X + WIDTH END PROCEDURE SQUARE (Y, X, SIDE = INTEGER) RECTANGLE Y, X, SIDE, SIDE END PROCEDURE BAR(REF.Y,REF.X,HEIGHT,WIDTH,DEPTH,INSIDE,VERT.P,HORZ.P=INTEGER) VAR I, TEMP, EMPTY, FULL, X, Y = INTEGER DIM INTEGER REF(2) CENTER(2) REAR(2) X = 1 Y = 2 FULL = 1 EMPTY = 0 REF(X) = REF.X REF(Y) = REF.Y CENTER(X) = REF.X + (WIDTH * HORZ.P) CENTER(Y) = REF.Y + (HEIGHT * VERT.P) REAR(X) = CENTER(X) + (DEPTH * HORZ.P) REAR(Y) = CENTER(Y) + (DEPTH * VERT.P) IF (INSIDE = EMPTY) THEN BEGIN FOR I = REF(X) TO CENTER(X) STEP HORZ.P LINEOFF REF(Y), I, CENTER(Y), I NEXT I FOR I = 0 TO (WIDTH*HORZ.P) STEP HORZ.P LINEOFF CENTER(Y), CENTER(X)-I, REAR(Y), (REAR(X)-I) NEXT I FOR I = 0 TO (HEIGHT*VERT.P) STEP VERT.P LINEOFF CENTER(Y)-I, CENTER(X), (REAR(Y)-I), REAR(X) NEXT I LINEON REF(Y),REF(X),CENTER(Y),REF(X) LINEON REF(Y),REF(X),REF(Y),CENTER(X) LINEON CENTER(Y),CENTER(X),CENTER(Y),REF(X) LINEON CENTER(Y),CENTER(X),REF(Y),CENTER(X) LINEON CENTER(Y),CENTER(X),REAR(Y),REAR(X) LINEON REF(Y),CENTER(X),(REAR(Y)-HEIGHT*VERT.P),REAR(X) LINEON CENTER(Y),REF(X),REAR(Y),(REAR(X)-WIDTH*HORZ.P) LINEON REAR(Y),REAR(X),(REAR(Y)-HEIGHT*VERT.P),REAR(X) LINEON REAR(Y),REAR(X),REAR(Y),(REAR(X)-WIDTH*HORZ.P) END IF (INSIDE = FULL) THEN BEGIN FOR I = REF(X) TO CENTER(X) STEP HORZ.P LINEON REF(Y), I, CENTER(Y), I NEXT I FOR I = 0 TO (WIDTH*HORZ.P) STEP HORZ.P LINEON CENTER(Y), CENTER(X)-I, REAR(Y),(REAR(X)-I) NEXT I FOR I = 0 TO (HEIGHT*VERT.P) STEP VERT.P LINEON CENTER(Y)-I, CENTER(X), (REAR(Y)-I),REAR(X) NEXT I LINEOFF CENTER(Y),CENTER(X),CENTER(Y),REF(X) LINEOFF CENTER(Y),CENTER(X),REF(Y),CENTER(X) LINEOFF CENTER(Y),CENTER(X),REAR(Y),REAR(X) END END Y)-I, CENTER(X), (REAR(Y)-I), REAR(X) NEXT I LINEON REF(Y),REF(X),CENTER(Y),REF(X) LINEON REF(Y),REER(Y), I NEXT I FOR I = 0 TO (WIDTH*HORZ.P) STEP HORZ.P LINEON CENTER(Y), CENTER(X)-I, REAR(Y),(REAR(X)-I) NEXT I FOR I = 0 TO (HEIGHT*VERT.P) STEP VERT.P LINEON CENTER(Y)-I, CENTER(X), (REAR(Y)-I),REAR(X) NEXT I LINEOFF CENTER(Y),CENTER(X),CENTER(Y),REF(X) LINEOFF CENTER(Y),CENTER(X),REF(Y),CENTER(X) LINEOFF CENTER(Y),CENTER(X),REAR(Y),REAR( G R A P H I C S D O C U M E N T A T I O N =============== ========================= In the S-Basic graphics package (graphics.bas), there are several procedures that allow the user to draw complicated figures with just one command. These are: - a circle drawing routine; it requires three parameters: the vertical coordinate of the center of the circle, the horizontal coordinate of the center, and the radius of the circle. - a rectangle drawing routine: it has four parameters: the vertical coordinate of the upper left corner, the horizontal coordinate of that corner, the height, and the width. - a square drawing routine: it needs three parameters: the vertical coordinate of the upper left corner, the horizontal coordinate of the upper left corner, and the length of a side. - a bar drawing routine; it requires eight parameters: the vertical coordinate of the base of the bar, the horizontal coordinate of the base, the height, the width, the depth, the interior of the bar filled or empty, vertical illusion of depth up or down, and horizontal illusion of depth up or down. The fifth parameter should be 0 for an empty bar, or 1 for a full one. The seventh parameter should be 1 for down, -1 for up. the eighth should be 1 for right, -1 for left. It is reccommended that the user run the following program to observe the use of these procedures: $INCLUDE GRAPHICS.BAS VAR V1, H1, RADIUS = INTEGER VAR V2, H2, HEIGHT, WIDTH = INTEGER VAR V3, H3, LENGTH = INTEGER VAR V4, H4, H, W, V.PERSPECTIVE, H.PERSPECTIVE, INTERIOR, DEPTH = INTEGER V1 = 15 H1 = 15 RADIUS = 10 CIRCLE V1, H1, RADIUS V2 = 30 H2 = 10 HEIGHT = 20 WIDTH = 40 RECTANGLE V2, H2, HEIGHT, WIDTH V3 = 60 H3 = 20 LENGTH = 30 SQUARE V3, H3, LENGTH V4 = 80 H4 = 80 H = 50 W = 15 DEPTH = 8 V.PERSPECTIVE = -1 H.PERSPECTIVE = 1 INTERIOR = 0 BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE V4 = 20 H4 = 130 H = 50 W = 10 DEPTH = 15 V.PERSPECTIVE = 1 H.PERSPECTIVE = 1 INTERIOR = 1 BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE VIDEO GRAPHICS AND ATTRIBUTES COMMAND SET FOR THE KAYPRO 10 =========================================================== INTRODUCTION The KAYPRO 10 has a graphics and attributes set that currently includes drawing and erasing lines, drawing and erasing pixels, inverse video, reduced intensity, blinking fields, graphics char- acters, cursor positioning, and cursor on/off. GRAPHICS To draw graphics on the KAYPRO 10, the screen is treated as an array 100 pixels high, and 160 pixels wide. Any spot on the screen can be addressed by a vertical coordinate (ranging from 32 to 131) and a horizontal coordinate (ranging from 32 to 191). The pixel in the upper left corner of the screen has coordinates of 32,32. Line and pixel graphics are drawn on the screen by writing an escape sequence to the console output. For the purpose of drawing lines and pixels, an escape sequence is a 4 or 6 byte sequence defined as follows: Escape sequence = ESC

[

] where: 1) ESC is an ascii 27 (1B hex). 2) is a character of the set { *, (space), L, D }. 3) V1, H1, V2, H2 are 1-byte values indicating locations on the screen. To write a pixel, the sequence-type must be a "*". H2 and V2 are not used. V1 is the vertical coordinate of the pixel. H1 is the horizontal coordinate. To erase a pixel, the sequence-type must be a space. H1, V1, H2, and V2 are the same as above. To draw a line, the sequence-type must be a "L". H1 is the horizontal coordinate of the first point of the line. V1 is the vertical coordinate of the first point. H2 is the horizontal coordinate of the last point. V2 is the vertical coordinate of the last point. To delete a line, the sequence-type must be a "D". H1, V1, H2, and V2 are the same as above. CURSOR POSITIONING When positioning the cursor on the KAYPRO 10, the screen is treated as an array 25 characters high, and 80 characters wide. Any spot on the screen can be addressed by a vertical coordinate (ranging from 32 to 66) and a horizontal coordinate (ranging from 32 to 111). The character in the upper left corner of the screen has coordinates of 32,32. The cursor can be moved to a desired position on the screen by writing an escape sequence to the console output. For the purpose of cursor positioning, an escape sequence is a 4 byte sequence defined as follows: Escape sequence = ESC EQUALSIGN

where: 1) ESC is an ascii 27 (1B hex). 2) EQUALSIGN is the character '=' (3D hex). 3) V1, H1 are 1-byte values indicating the location on the screen. GRAPHICS CHARACTERS Each of the character positions on the screen occupies the same area as eight pixels (4 high, 2 wide). Thus, pixels can be addressed in groups of eight at a time. To set pixels in a character position, the cursor is moved to that position, and then a byte is sent to the console output. This byte must have the high order bit set to 1 to distinguish it from normal characters. The remaining seven bits are use to set 7 of the 8 pixels. I.E: to write these pixels.... ------- Pixel # 1 ------> | | | <------ Pixel # 0 |---+---| Pixel # 3 ------> | | | <------ Pixel # 2 |---+---| Pixel # 5 ------> | | | <------ Pixel # 4 |---+---| Pixel # 7 (off)------> | | | <------ Pixel # 6 ------- output this byte: ------------------------------- must be '1' --> | | | | | | | | | <-- bit for # 0 ------------------------------- ^ ^ ^ ^ ^ ^ | | | | | | bit for # 6 | | | | bit for # 1 | | | | bit for # 5 | | bit for # 2 | | bit for # 4 bit for # 3 As shown above, pixel # 7 is off. To write a pixel with it on, send the inverse video command (ESC,B,0), then output the inverse for bits 0 through 6. I.e: 10000000b would print a blank graphics character; (ESC,B,0),10000000b would print a solid character. ATTRIBUTE COMMANDS A character can be set to inverse video, blinking, reduced intensity, or underlined. Also, the cursor can be turned off. These attributes are activated by sending a 3 byte escape sequence to the console output: Escape sequence = ESC where: 1) ESC is an ascii 27 (1B hex) 2) is a 'B' to set an attribute on, or a 'C' to set it off. 3) has a value of 0 through 4, as follows: 0 = inverse video, 1 = reduced intensity, 2 = blinking, 3 = underline, 4 = cursor. Default for these attributes is: 0 = off, 1 = off, 2 = off, 3 = off, 4 = on. COMMENTS 1) Examples of line and pixel drawing can be found in GRAPHICS.BAS. 2) All of the coordinates used are 32 or greater. At first glance, it would seem natural to start them at 1 or 0. However BDOS interprets some byte values of 32 or less as control keys. For example, an attempt to use a coordinate of 9 will result in eight spaces being printed on the screen (BDOS thinks that the 9 is a tab). 3) A line drawn from point a to point b will not always look the same as a line from b to a; it will be a mirror image. 4) Graphics characters, pixels, and lines cannot write over normal characters. SUMMARY Graphics commands: Set Pixel ESC, * , V1, H1 Clear Pixel ESC, , V1, H1 Set line ESC, L , V1, H1, V2, H2 Delete line ESC, D , V1, H1, V2, H2 Attribute commands: Inverse video on ESC, B, 0 Reduced intensity on ESC, B, 1 Blinking on ESC, B, 2 Underlining on ESC, B, 3 Cursor on ESC, B, 4 Inverse video off ESC, C, 0 Reduced intensity off ESC, C, 1 Blinking off ESC, C, 2 Underlining off ESC, C, 3 Cursor off ESC, C, 4 he coordinates used are 32 or greater. At first glance, it would seeC, * , V1, H1 Clear Pixel ESC, , V1, H1 Set line ESC, L , V1, H1, V2, H2 Delete line ESC, D , V1, H1, V2, H2 AtCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  ;<~#ʑÃ> > > > !ʻҵ)ì*>#">*<#"<*@#"@:x=##^#Vɯ2::y2y:w< 2wɯ2w1@2~2}2\!e>$w#w#w:e22!]~#I4̓͆I>2w*a"B!;"6!wڐڥں&1HOSZ^djpsz~  ()1>E^ery ; HHOOSSd  *w#*>s#r#"6#"6_W*@"@og|+ _W*<"<;; !zw#+ͬڌڞ:k>2̓UN-DEFINED LINE NUMBER(S)!z~#|n> > ^#V*D} | ^#V{ z :!y#òï#7!z"~#B#6 *"#># 7ɯ###);;_W*F} | ;;_W*B} | *>p">*]* |z*_*r |zj &:o:_" *<*B*>*~ >#=#F#Nx> r+s##  > #= * +" |">*<*B"D*>"F> *Dt !t *]t *_t *F*@t t !t !t !t !x4>2w:2 *~ > #=• ! 5 :2 ~ > #=± ! 5© !#~##š * := : Ú #~##¶ *: ö 2q "o *o #:q 6 =2q e #$ ~#~̓XREFF LIB TO LIB ERROR*o ~#U #e ## u} | !x4>2w!p~ #‘ !x4>2w#rͪ\° ; \ ̓I'M LOST.. . .ͪ! ͦͪ+| ͪͪø ͪ ͪͪͪ=! ͦ*~* Gͪ ͪͪø ^#V2 ͖ I y 8 A͖ c yHG } | 8 x=! ͦ*^#VA͖ syHG } | 8 : g{® ͪW%s| ͪOzW|=2 ͪͪø \ ; \ ̓I'M LOST.. . .! ͦ+|  =! ͦ*~G G7  ^#V2 ͳ f y U Aͳ ڀ yHG } | U x=! ͦ*^#VAͳ syHG } | U : g{ W%s| OzW|=2  *]|/ }/ *_|/ }/ *w}  )|% Ox͘:M ̓Compilation complete͆̓Compilation aborted*"lͪ\p ͪ2nͰ:n={ ͪͪ\x :o2\™ 2n:n=¤ \ʡ :o2  6##: 6 ̓UN-DEFINED LIB-REF.!c~# ͪWͪͪͪ2q=! ͦ*~Bͪ2ͪͪ ͪGTI:p_TITs:qҕ{=! ͦ*6I̓UN-RECOVERABLE ERROR¬̓GEN LIB ERROR̓REV-DEF LIB ERROR:q=! ͦ*#~#SW2q=! ͦ*~ G͂":p_͂"͂s:qҕ{=! ͦ*6"ygxͪGszxͪ2pxG ͪͪ y•ʦGszʦ2pxG *l6#ͪw#¸ͪ2oͪw#ͪw#"l"6#6*l6#w#2ow#w#"l6#6!c6 #!c4w#&w*c#>UX#G7#X##: COMBASICLIBRELUSERLIB REL:_22!"y̓CANNOT OPEN BASICLIB:2!"y:_22!"{̓CANNOT OPEN USERLIB:42!"{:~_2h\ʨ!"u2|̓CANNOT OPEN TEMP FILE:hƒ2|!"u:}_2!"w̓CANNOT OPEN-CREAT OBJ FILE:}_̓ERROR IN CLOSSING OBJ FILE:}_j2!"w̓CANNOT CREAT OBJ FILE:}_:~_\*y|¼͝!!y"y*u|0!!u"u*{| !!}"{*w| v!!w"wuK! 5:~_\~ym̓READ PAST EOF̓DISK READ ERROR TMP FILEy͸! ¢:_y̓READ PAST EOF̓DISK READ ERROR BASICLIB}%! :_XyG̓READ PAST EOF̓DISK READ ERROR USERLIBw͑! {:}_̓ERROR IN EXTENDING OBJ FILE̓END OF DISK DATA FOR OBJ FILE̓NO DIR SPACE FOR OBJ FILE___ :\=:=SICLIB}%! :_XyG̓READ PAST EOF̓DISK READ ERROR USERLIBw͑! {:}_̓ERROR IN EXTENDING OBJ FILE̓END OF DISK DATA FOR OBJ FILE̓NO DIR SPÙCopyright (c) 1980 By G.Ohnysty Structured BASIC (S-BASIC) Compiler All rights reservede1:e_12!"*"LʊOVERLAYBCOM~#"_  CANNOT OPEN OVERLAYBcREAD ERROR OVERLAYBi:|=_} $$$$$$FfGfHfIffff,*G' tm S-BASIC Compiler Version 5.4b Y'r&>22!9"\:j'&:w":8MY>XXYͯ4p=X:tXYX:uXY>2:Y2͇:Y:v;[Z:~ [:z[f:xb,$END.MODULExr&LXtYHҚ=o&)^#VʠHSc K d HS w HSHSk!!!!)}$$HSHS$HSVHSHSHSR HSc,Aid5JXq w  20 F 9~Nc7:8/28*&ͬ)MY!)MY&*&b,=S*&ͬ)!,R*L>2PS&ʓh,ON>ڗ/×:X/2Xr&>2&*&ͬ)"a*&:::=2?a!w#x6 #&L*r&!\>!͉K!\>͉K:!]~# a:, ʍ*t:X>2X&:OG'MODULE NOT FOUND2XØb,$MODULE|&:4!,|ʂ#nr&)r&2X"tͯ&>22ì\!\>ͫK!\>!ͫK͹&&h,ON>/:w/2wͯ4p=X>XYX>XYr&>2&> ͽX>2e> ͽX>2l 5 5MYMYMYyMY2/)MY}MYH)͈)MY>2l 5 5MYMYMY"/)MY{MY2H)͈)MYMY[&b,ERROR *&*&:Y» MY!*&LR%YtY>MY>XXYͯ4s=b,OFFHS>é >2l 5MYMY}2I :Y2J   NS*&:J  MYMYX:I <2I XY:J  MY$ MYLR%YtY:J < MY&* `SX>XY*&LR%YtY*&:YK w RX>P X>XY>2MY/)**͈)>$2[*x2M L"P "N QS=%*P *:*N ">2:::M r&&b,=SMYͯ4=?2M 2l 5TSͯ4C?MY222"b%"K "I X!I N):H *#">2MY/)**͈)>#2[*ͬM" " QS=%* *:* ">2::r&MY222"b%" " X! N): *#"!,QS>2 *| }~ " 3 >23 G2lx= 5-S * ~#9 MY%YtY: * |MYX* {XYzXY*MY!)ͯ4=>2 *}/_|/W*o" z MYX{XYzXY*MY!)ͯ4= :a ʊS/2a MY/)XtY& b," X>"XY͊(!_6"#6!~ XXY# r&j'[&L6 XtY&[&b,DATAP ,>,22 XXYH)͈)&L*&ʃ (*҃ ͨ(&ä !,ͺRESy MY*)ä MY!)x³ ͯ4x?  ͯ4|?  ͯ4?  ͯ4?  ͯ4? Sͯ4?:y *`Sb &!-w# LRMY!%YtYͯ4s?DATA[&R>2l(*d 5MYMY"/)MYH)͈)MYMY*& 5>*&!ͺRESxSMY*)MY*&=l:*6SMYMYMYMYMYMY"/)MYMYH)͈)MYMYMYMYMYMY")MYMYMY")MYMY")MYMY")>2l 5*,MYMY; 5MY>MYMYͯ4?:WS>22&:RmSmDZS&Á:22:2b,R>2l 5:RʬMY!MYMYMYͯ4o?MY*oYڿ.1*o"o{XYzXYMY>MYMY!!5):MYXXYͯ4i?:< ]S!*e+r+s+:wMYͯ4=X:XYX:XYX:A>A>XY/Y{XYzXY:Ro!=6#4!=6#4Á!=6#4!=6#4:<2:y *Q"*`Sr&j'Q*&b,#`S>2l 5R"**`SMYͯ4=?>2l 5R*>2l 5ͯ4C?ͯ4=?MY]MY>MYMY!!5)ͯ4i?ͯ4C?ͯ4=*&b,#`S>2l 5Rͯ4=*&b,ONPb,OFFHS>!>MY>XXYͯ4=>v[&b,#b >24*&b,#`S5$21Sʕ:y "*`S&;&"*ҵr&j'Û*`SÛL*[&(*,ͨ(!,ͺRSyMY*MY!)xMY>XXY:1R:4 ͯ4=ͯ4=+ͯ4=ͯ4=MYMY MYMYMY>2l 5ͯ4=>2l 5:YfS 5ͯ4=>2l 5ͯ4=>2l 5ͯ4=ɯ2l 5HS:Y$iS**͈)r&j'[&ʪ:Y ""X!N):lMY>XXYͯ4>:lMY>XXYͯ4> 5b,:lS:lͯ4>Q ͯ4>Q-ͯ4>Q:ͯ4>QGͯ4>QHSͯ4>MY/)**͈):l2l""""MY%Y!N)**X!N)ê*&>2ͯ4C?MY:YfS 5:Y  5mMY/)**͈)H):l!>*!>*!>* !>*HS!>GX~#XY,""X!N)MY!/)͈)MY>XXYͯ4=:l:>2H)**͈)ͯ&r&MY!%Y""!N)2¶ͯ4y=ͯ4=ͯ4=ͯ4=HSͯ4=:oS͹&H)**͈)&:Y2&&:YrS2l 5&MY"T"R%Y!RN)2lH)*͈)* 5>2:YuS&MY/)**͈)[&œ,r&j'""""MY%Y!N)X!N)2l 5>2:YxS:lͯ4>0ͯ4>0 ͯ4>0ͯ4>0&ͯ4>0HSͯ4>MY/)**͈)&͢:Yʃ:y c[&:Yʀr&j'[&:Yʀ>2&2',MY/)**͈)&͢[&LҽX>XY%YtY&""X!N):KS>2>2*&:Y>2*&%>2*&%Rx2`{2a&R:`x:Rh,:x*&ͬ)|3S}2a&Rxh,:h>2l 5&xMY!MYPMYMY:YS&R(*S>:>2l>2Q8!, ~#¨:`MYMYMY5HS!<:*!, w #HS&Rͬ)<&R*:*6S2bO:`G:aRN_:I{MYXXYMY!!5)MY>MYͯ4i?&x:`:MY*&!ͺRESy{Sx*&b,AT~S>2l 5´MY*)MY~MYMY")MYwMYMY")*&!]RESy{Sx*&b,AT~S>2l 5MYMY")MY!)ͯ4+?&*&!ͺRES>āS*&b,=S*&h,VAR҆!ͺRES>ʛMY!)ygMY")MYMY>MYMY*)ͯ4=h,ARRAYҥ!]RESMY*)Vh,SPECҼ!]RESOh,FILEb,#`S*&ͬ)}!*e~cS#^#V!#S!&Ûh,FCBԄSb,#`S*&ͬ)}!*e~cS#^#VO:KS>2!,"m2w# E!,*&:YSb,,Nb,=}"*tNr&j'N*&%*oR,ʻ7&ڌb,:*&ͬ)"|'S:_!,"mSRxPSMY!*o###"o+)MY")XXYXXYX{=XYS:KS>2!,"m2w# B!,*&:YSb,,Kb,=z"*qKr&j'K*&%*qR,ʸ7&ډb,:Ҿ*&ͬ)"|'S:_þ!,"mSRxPS*q"qxX{>XYXXYS>2!,"m22w# -!,*&:YSb,,6b,=e"*\6r&j'6*&%Rxux2l&b,:Ң*&ͬ)"|'S:_&:2!,"mSRx¾PS*o"oxX{>XYXXYSҾ!4ڇS*mw#"mH|HS*d9I#+#:##~7(#F#^*o*m~7#~^#"m:y͹&:s:sX>XYXXYXXY&(*S&!ͺRڿMY!)L*&(*ESͨ(MY&*`S>2l 5>2Q85&b,=S>2l 5ͯ4P>*&L*& (*v>2ͨ(x2l͝R*&b,=S:leͯ4C?yMY>XXYͯ4=ͯ4C?ͯ4>b,= !,ͺR ySx2l͝R:lyMY>XXYyMY*)MY!)ͯ4=:Yr&yMY*)MY!)ͯ4>:/2ͯ4=?:l2b 5::b2l5ͯ4>@ͯ4>Kͯ4$>Vͯ4->aͯ41>*&MY>Xb,ON>z>XYMY2!>4*&MY>Xb,ON>ڟ>XYMY2!>4!!&ͬ)}~>24:!>MY>XXYͯ4>>2![&>2!b,USING2 ,>2l 5>2!MY>XXYͯ4>/!2l[&:YN N ,&! 5!:ld ͯ4i> q ͯ4m> ~ ͯ4q> ‹ ͯ4u> ˜ ͯ4x>ò S:ʭ ͯ4> ͯ4}>:! ͯ4> :! ͯ4>* >2!:!5 ͯ4>5 "* >2!5 : !:Y!:y 9S>2!&!: :Y :!̀![&@!b!̀!,b,#b!,5$SY!"*`S:y {!:MYXXYMYͯ41?̀!:!ʞ!>2!MY>XXYͯ4>ͯ47?ͯ4?!!!>2.$24x2/$y20$:MYXXYMYͯ41?21$22$23$:.$]#&]#b,#^"b,"j"͊(23$L*#ͯ47?ͯ4\>:3$G!,xD"~XXY#-"XXYX:1$XY:2$!!5$"*`ST">24$L*[&(*ҍ"*&>24$2ͨ(Ù"!,ͺRS#:2$"/22$:/$ʹ"ͯ47?ͯ4c>:1$"xq#ʯ#ͯ47?MYyͯ4>:4$"ͯ4C? #y#MY*) #MY!)x#ͯ4?!)#ͯ4 ?!6#ͯ4 ?!C#ͯ4?!P#ͯ4?!Sͯ4?!:0$ͯ47?MYyͯ4?ͯ47?ͯ4 ?:4$ʑ#ͯ4C?MYw!y¥#MY*)MYw!MY2)!ͯ47?MYyͯ4>:4$#ͯ4C?ͯ4I?!y#MY*)ͯ4I?!MY!)ͯ4I?!&#$b,;>21$b,,$>21$:Y2.$>21$>2l 5ͯ41?:y >S*>S 5:yMY>XXYMY:4MY>XXYͯ4=>R>2r&ͯ&**o=%:>22b%"ͯ&r&j',ʯ$7&ڸ$:Y ²$͹&*&ͬ)}MYXXY*&*`S (2<%ͯ&ͯ4\> (G:<%%xXXY$͹&XXY&>3%"*>3%*>`SXXY*j+*h+*f+*d+*b+*`+*j"%"%*j*`+%!`>%*j*b+%!b>%*j*d+%!d>%*j*f+%!f>%*j*h+%!h>%#6*%"j6*%^#V r+s##=%}/o|/g# |&~z &{&#&,7&&,I&&,R7&*&b, b, b, h, h, h, ,g&7&[&>2: :&&/2&:,:y ʕ&,&,*t2x2y}<'o|'g"t:v<'2v:v='2v:y &[&,r&j':l&ͯ4>&ͯ4>&ͯ4> 'ͯ4>'ͯ4>Sͯ4>:|!}0'> ͽX!x~> ͽX4<6'~#U'dG'> d> d> d> d:'w'/2'*t|0ͽX|0ͽX}0ͽX}0ͽX:>:´'>*ͽX:v0ͽX:v0ͽX> ͽXMY*MYMYMYMY!5)!"XXY>2N?2S?2X?2^?:W(/2W:X ( c +( '> RͽX!x4 B(2X(:X( Q(͘&j'> 2X(XXY*o#ʅ(=XXY#l("o! ("wy #y SÑ(")!,]RS>2l( 5=ù(>2Q8>2l5MY!)ͯ4%?:(ͯ4=?*)y9Y/Y/Y*){XYzXY5)%YK)%YXY|}XYu)X!XY~XY# V)~u)XXY:XY:ʀ)XYXY>|)!~W+MY>XXYͯ4=:+=2+)+ͯ4C?MY:ʕ+:*{+&b,=S&%ES!+^#p*+*+!k,!,,~|,#m,/7#~#,/!,ʢ,#~ʞ,Ï,7;:[]<>{},()"=#-+/*%~^ '\  ,,,k,\,r&j',:,/2: bk2Y:W-/2W:X- c S͋,%--0-:-2X>2W/~Q-̀-2Y~ 2y z-e-ͽX!x4~`u- [u- w#;- 'e-~A-[-Ao&)-^#VM...v// 0000I1K1M1112L222L3364F4q4444k,$LINES>1k,$PAGE>2k,$TRACE>?k,$LOADPT>@k,$INCLUDE>Ak,$LIST>Bk,$CONSTANT>Ck,ABS>k,ATN>k,ASC>k,ASCII>k,AND>دk,BEGIN>k,BASE>%k,BASED>'دk,COM>k,COMMON>k,COMMENT>k,CASE>#k,CLOSE>*k,CREATE>0k,CHAIN>5k,CALL>:k,COS>k,CHR$>k,CHR>k,CONSOLE>Dk,CONTROL.C.TRAP>Fدk,DIM>k,DIMENSION>k,DO>k,DELETE>.k,DATA>8دk,END> k,ELSE>k,EXECUTE>;k,ECHO>Ek,EXP>k,EQV>دk,FOR>k,FUNCTION>"k,FILES>(k,FIX>k,FFIX>k,FINT>k,FCB>k,FCB$>k,FRE>دk,GOTO>k,GOSUB>k,GO>دk,HEX$>دk,INPUT> k,INPUT1> k,INPUT2> k,INPUT3>k,IF>k,INITIALIZE>-k,INT>k,INSTR>k,INP>k,IMP>دɯɯk,LOCATE>&k,LOCATION>4k,LET>6k,LPRINTER>7k,LOG>k,LOG10>k,LEFT$>k,LEFT>k,LEN>دk,MID$>k,MID>دk,NEXT>k,NUM$>k,NOT>دk,OF>$k,OPEN>)k,ON>3k,OUT>=k,OR>دk,PRINT>k,PROCEDURE>!k,POKE>>k,POS>k,PEEK>دɯk,REM>k,REMARK>k,RETURN>k,RET>k,REPEAT>k,READ>+k,RENAME>/k,RESTORE>9k,RECORD.SEQUENTIAL>Gk,RND>k,RIGHT>k,RIGHT$>دk,SUB>k,STOP>k,STEP> k,SGN>k,SIN>k,SQR>k,STRING$>k,STRING>k,SPC>k,SPACE$>k,STR$>k,SIZE>دk,TO>k,THEN>k,TEXT>k,TO>k,TAN>k,TAB>دk,UNTIL>دk,VAR>k,VARIABLE>k,VAL>دk,WHILE>k,WRITE>,دk,XLATE>k,XOR>دɯɯ"4"4^#V#6#4*4*44X>XY%Y~#4XY4XY6#%Y~#5XY4XY>2Q82>2 @!~7:7"525*5~a5|756y6 76 57S#~#"5Ҝ55!:l=*! *!R8~ʐS6#4ù5! *;ʱ5$Œ5>2Ì5:5BS<25#~ 725! ==*|;Ì5#~#"52l25#"5:5BS:l6ͯ45>6ͯ4:>6ͯ4?>$6ͯ4H>/6ͯ4L>>2l25#~#S6K6ͯ4=25ͯ4=25MYX~#XY~#"5XY*MY!)#^#V#!,w#‚6MY%YzY:5BS<25#~#"5 7*5~ 25#~25:l25ͯ4>25#^#V#~27#F#N###"5y6MY!)ͯ4e?:7G:5BS25!8:5BSG:l%7x<7ͯ4>x<7:l<7ͯ4>O7:lO7ͯ4 >x!=e7=*=6#4:l==!*E=6#4#~#F#N#^#V#"5x-8y8x77x´7ͯ4=77ͯ4=7Sͯ4=)!8MY*)x7y7MY&MYMY!8MY>XXYMY*)ͯ4=x 7!5425yC8MY!)MY!8MY*)MY!8DGTDLTDLDGDEQDNEQDSUDADDDIDMUDTDDPCDABDNEDEPRGTRLTRLRGREQRNEQRSURADRDIRMURTDRPCRABRNEREPBGTBLTBLBGBEQBNEQBSUBADBDIBMUBTDBPCBABBNEBEXIGTILTILIGIEQINEQISUIADIDIIMUITDIPCIABINEIEXWGTWLTWLWGWEQWNEQISUIADIDIIMUWTDWPCWABWNEIEXSGTSLTSLSGSEQSNEQSSUSADSDISMUSTDSPCSABSNESEXIIMIEQIXOIOIANINOABATCOEXFIINLOLOG1PRNSGSISQTAFFIFINASCICHRFRCVTFSIZCVT$CVT$STRINLEFRIGHMILEINSTSPACENUMVAXLATHEXIMPOTABPEERGHTFCBRSRBNRCIRCIRSRURRDRRDBRDRDRDRDLONERFORRFORRFORBFORFORCHAIFOPFCLOSREASWRITRREARWRITRSEASCIFDERENAFCREAMPUSMPOXPOXZPHRPHRPHBSPOSPUSCBNCWCSCLRCLRCLBCLCLCLCRDCRSCBNCICWCSSETMIPSTSTRPMPRMPPRPRPBPPCHPSAPSFMPNUPTATABSCLEADUBSTRPUCMPRCMPRCMPBCMPCMPSTTSTRTSTRTSTBTSTTSTTSTSTECHFCNTLIBURETIRIRIBIIICHIIIWRARRABASESAVIGETISAVHGETHSMOERRERRSYSISYSOUMAREDIMPDSEDRDRDBDINDCHADSEXCYͫ???XCY!R8 ~?#X~XY#? ñ?!=ñ?!p=~@X#~XY?#?#@#?*j#6"B!6#:lw#6"B2B2B26B>2C7B@:YG@@à@*@"*@b,:@:'/F͋,ڌ@:͏E/FB҄@!,[QCS>2B2@(*A:*Ab,"ڭE*B~@DA>AYBҼ@ͷB2@BBà@@>2x@2l*B6 #6"BDA>AͷB2@*B~SBB@>ͷB2@*B~1AB2@BA:C:Q8SD2@:B:YdA_A֖SÿAֿÿA:B˜Ab,NOT>ڿAb,%>ڿAb,+>ڿAb,->ڿA$SB!SʿAʿAʿAʿA ʿAʿAA2B2BG26BxG'BBA"A>A> A> A>7x!B :x<BG#B7<>=#-+/*~%+-^,7&'B>26B:6BKB26B2B: 2B,7&NB7777G*B~ҔBҙBҞBңBҨBҭBҲBx7x?x?x?x?x?x?x?*B#w"B@*B~+"B@*B6#w#6"BL*'B(*ҎC7B!,]R_:l:Q8>2Q8*B6#>w2l#6"BͷB{2@=@C*(C:*-SRBS:*0S*B6#2Q8kC"Cx*C2lw#6"B*B6#s#r#w#p#q#C!,ͺRyFx͝R*B:l¸C6#|2lw#6#q#p#q#s#r#"B6"DW2BzC(*S:lW:CGO2DͷB>2D*D*|AD}AD>2D*}/_|/W*o"D|AD*B6 #6#s#r#6"ByʐD*B6#w#6"B2l>2C*D:D:D2@2D2D"D:* ʍDID-S0S2D*BOzŸDy6#wO#6#s#r#:Dw#6#6"Bx2C>2BBSy2l:D2@*D|2@*B6 #:Dw#s#r#6"B2@2B7B(*S!*K_:lW:CGN#ͷBy_E~#*B6#w#6"B2l>2C2@:* \E/E-S0S~*BOzjEy6#wW#6#s#6"Bx2C>2BBSz2l!E#O~y’E/0123456789.,'MY/):¿E͛)e)!w ("Ew#6E S!@! ~#EXyXY*͛)e)G !áCMY/)e)!@ëFMY/)e)!@:'hF:lFFFʨFhF*SF:'†F (o*&:'HS&ÎFͬ)|3S" H* HG!áCͬ)" H* HG!áC=G*HG!áC H*"HG!áC!"H)H*"HG!áCy-GXXY GH)͈)͛)> 2H>2H!Hw#MG!~ʈG0sGʌG*S*&!VG *SͼG!Hw#VGͼGͼG#~ʰG0*S *SG!HwÑG:HGðG!H~w#G ¾G!H53S:H!H~w#G G:Hg2H!H53S!"H)H:(HW:%H2%H" J3H*S!~+DH-DH+>+2J#"J>+2J~#ʓHESH&:,+pH-pH>+2JyH&!,~ʖH{_~I_#~H+6E:J+{ʡH/<2'J0Ix//2J!J9K:J+H:J2J:'JI!8JH/<2'J!*J"(J>͉K:'J= I2'J*(J>͉K?JH!1J>͉K!J>͉K?J* J>ͫK* J^K* J~w2JG!J>6#=2JCI!JJ~#gI!JJI!JJI!JJI!JJII2J!J>6+= I!JJI:JʸI CI:JI*J!'JEI.I4I:JJ!JJIɯw+I0J >7ѯ7"J!J>ͫK!J>ͫK!J~_w!J~Ww"J:J2J!Jw#sJ0ÅJʠJJJ~J!JJ w+ ”J~J:JG:J2J K!J^K*J!J.K!J>͉K!!J ~w+ J!J~w# K`!J~+~=w!J ~w+K K2JzW~w0#~+~=w~w~w+QK ;K>w+>gK~O:P<2P=:PO(P ;P:MO:P!>!>!>!>!>!>!>!> !> !> !> !> !>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!> !>!!>"!>#!>$!>%!>&!>'!>(!>)!>*!>+!>,!>-!>.!>/!>0!>1!>2!>3!>4!>5!>6!W>2~:y >22̕&ʻS>$ͽXr&>$ͽX½S!TS#~SS#~ͽX~SSS*\> ͽX> ͽX Not valid label numbe GO is reserved word / TO or SUB expecte End of line unexpecte TYPE does not exis No vars give Error code 0 Missing = sign, = sign expecte Missing left bracke No names give Line too lon Un-defined operan ERROR CODE 1 Name given is a reserved wor One of these VAR names in us Too many left parenthese Too many right parenthese Reserved symbol ex. ": Two symbols make no sense ex. "%+ Number too larg Error in numbe Not enough argument Too many argument This number too large/smal Missing right bracke Error in print statemen Cannot end like thi Intr. symbol overflo Does not balanc Var not define Cannot process this / Statement erro Local code onl Form: ON /ERROR GOTO/GOSUB B2e:f ZZZ@2|Z>2zZ:e2|>A2f:g HZZ@ZXHZYPZ@2>a8Z:e2>a>S2gXZ>2{8Z>2|8Z>2}8Z!]~~#`Z!]Aa~#pZa:z‹ZiaaÞZ>2,cÞZ>2,c!d"-c!|:}·Z:{Z>2bZ>2bZ!d"bZ!d"bb͟a!Z~[#ͽXZ ****** End of program ****** ͘?!|:}A[:{A[>b*[OQc͏b:z:~Q[iCYCY>,c*:`}W[)|p[O2d[b:|2\:e=2eG'Compilation complete G'Compilation aborted ͉!"e):g:[MYɯ2!"\!e ~#^#V#!&R\!#S\!>g\[ͣ\:P1\=2P*\^#V#"\>g\\MY͛)e)ͣ\:!V#~zX/YXY#~#XY=D\ɷʓ\*oMY!)MY")*o#"oXXY*\s#r#"\!4*\6#6#"\!4P PRN:|=_}ʃa2!":`G'CANNOT CREAT OBJ FILE:>a=_@aa2`a!"a=_@a2`a!"a=_@aG'ERROR IN CLOSING PRN FILE:>a=_@a:?a=_\*a=_@a¥cG'ERROR IN EXTENDING PRN FILEcG'END OF DISK DATA FOR PRN FILEG'OUT OF DIR SPACE FOR PRN FILE\:?a=_\d>2\G'DISK READ ERROR:]Kd! 5d:|=_}†dG'ERROR IN EXTENDING OBJ FILE¯dG'END OF DISK DATA FOR OBJ FILEG'NO DIR SPACE FOR OBJ FILE__:eLe!le!yele!]>~ee#=e!ele:e&e0ee:e0ee:e<'2e> ee> ee> ee>2eee :e<92eد2e> _~ee#~me Program: Page: REAL.DOUBLEREALFLOAT.DOUBLEFLOATFIXEDINTEGERCHARSTRINGPBYTE!.MAIN.\.PROG..DATA..BLNK.SYSIN \SYSOUTERR1 ERR2 ; f/};@M> !D ;&!%BAD CHANNEL ;)NUMBEw$//Ð;>Ió//$/4ÐnO;SI&//$//Ð//;hH//_@|Z;}@*:; ¢ʗ 2;@Ì!|;x:|;*7>|;  22;;È*|!w; "_ ;&_7:Q;<\!>2;QB:~p\;f!_<2~!;z~ɀ&INPUT FILE REA;ĥ;@|Z;}@*:; ¢ʗ 2;@Ì!|;x:|;*7>|;  22;;È*|!w; "_ $lines REM XAMN Disk track and sector editor. REM No warranty is made, expressed, or implied. var hl,de,bc,a_psw ; cpu registers dph ; location of disk parameter header block_size ; cp/m logical block size max_tracks ; number of tracks/disk seldsk ; bios select disk settrk ; bios set track routine setsec ; bios set sector routine setdma ; bios set dma address b_read ; bios read sector b_write ; bios write sector sectran ; bios sector skew disk_number ; disk number to examine = integer var crt ; logical device list ; logical device CR ; ASCII CR BS ; ASCII BS ascii_mask ; ASCII mask bit_0_mask ; mask used to look at bit 0 true, false ; true/false logical flags = integer var menu_selection ; prompt return = char var r1, r2, r3, r4 ; Real number for computations = real based spt ; sectors/track dsm ; max data block number drm ; number of dir blocks off ; number of reserved tracks wboot ; entry to bios dpb ; location of disk parameter block skew_table ; location of bios skew table (used by sectran) alv ; pointer to allocation table = integer based bsh ; block shift factor blm ; block mask exm ; extent mask alloc_byte ; used in searching allocation table = byte crt = 0 rem S-BASIC device # for con: list = 1 rem S-BASIC device # for lst: CR = 0DH BS = 8 ascii_mask = 007FH bit_0_mask = 1 true = -1 false = not true base wboot at 1 rem location of bios wboot entry seldsk = wboot + 0018H rem set up bios entry address settrk = wboot + 001BH setsec = wboot + 001EH setdma = wboot + 0021H b_read = wboot + 0024H b_write= wboot + 0027H sectran= wboot + 002DH rem dma buffer for read/write sector operations dim byte sector(128) var loc_sector = integer location array loc_sector = sector dim base char file_chars(11) fcb_name(11) byte_dm(15) dim base integer word_dm(7) based bios_return = byte rem high order byte of a_psw only location var hl = a_psw base bios_return at hl+1 0seldsk input "Disk number (0,1,...,15) ";disk_number bc = disk_number call ( seldsk, dph, de, bc, a_psw ) if dph=0 then 0seldsk base skew_table at dph base dpb at dph+10 base alv at dph+14 bc = loc_sector+1 call ( setdma, hl, de, bc, a_psw ) base spt at dpb base bsh at dpb+2 base blm at dpb+3 base exm at dpb+4 base dsm at dpb+5 base drm at dpb+7 base off at dpb+13 block_size = 1024*(2^(bsh-3)) r1 = ((dsm+1)*(block_size/128))/spt max_tracks = r1 + off function physical_sec ( sectr = integer ) = integer if skew_table=0 then sectr=sectr-1 end = sectr function skew ( sectr = integer ) = integer if skew_table<>0 then begin bc = sectr - 1 de = skew_table call (sectran, hl, de, bc, a_psw) end else hl = sectr - 1 end = hl procedure get_sector( track, sec = integer ) var x = integer for x=1 to 128 sector[x] = 0 next x bc = track call ( settrk, hl, de, bc, a_psw ) bc = sec call ( setsec, hl, de, bc, a_psw ) call ( b_read, hl, de, bc, a_psw ) sector[0] = bios_return end of get_sector procedure put_sector( track, sec = integer ) bc = track call ( settrk, hl, de, bc, a_psw ) bc = sec call ( setsec, hl, de, bc, a_psw ) call ( b_write, hl, de, bc, a_psw ) sector[0] = bios_return end of put_sector function ascii_character ( x = integer ) = char x = x and ascii_mask if x<32 then x = 46 end = x procedure display_sector ( device = integer ) var x, j = integer for x=1 to 128 step 16 print hex$(x-1);" "; for j=0 to 15 if j=8 then print ' '; print #device; right$(hex$(sector[x+j]),2);' '; next hex byte for j=0 to 15 if j=8 then print ' '; print #device; ascii_character(sector[x+j]); next ascii byte print #device next line of sector display end of display sector 0menu print print print "Drive number ...............";disk_number, "Current disk ";'A'+disk_number;':' print "Sectors/track ..............";spt, '['; hex$(spt) ;']' print "Tracks/Disk ................";max_tracks, '['; hex$(max_tracks) ;']',\ "XAMN Disk editor" print "Number of reserved tracks ..";off, '['; hex$(off) ;']',\ "Version 1.1" print "# of logical blocks ........";dsm+1, '['; hex$(dsm+1) ;']' print "# of directory entries .....";drm+1, '['; hex$(drm) ;']' print "Block size .................";block_size, '['; hex$(block_size) ;']' print "128 byte sectors/block .....";block_size/128, '['; hex$(block_size/128) ;']' print "Disk size in K .............";(dsm+1)*(2^(bsh-3)), '['; hex$( (dsm+1)*(2^(bsh-3)) ) ;']' text 0,% Help Examin a sector (physical)......... 1 A Examin a sector (logical skew)..... 2 B Move Sectors ...................... 3 C Produce a map of a file ........... 4 D Produce a map of disk ............. 5 E Find bad sectors .................. 6 F Compute Block from Trk & Sec ...... 7 G Compute Trk & Sec from Block ...... 8 H Select disk ....................... 9 I % input2 "Please enter selection ==>"; menu_selection var track, sectr =integer var letter = char function group ( trk, sec = integer ) = integer var sectrs, grp = real sectrs = ((trk-off)*spt)+sec-1 grp = sectrs/(block_size/128) end = grp procedure trk_sec ( grp = integer ) = integer var sectrs, sec, trk = real sectrs = grp*(block_size/128) trk = sectrs/spt track = trk + off sec = sectrs-((track-off)*spt) sectr = sec + 1 end procedure bump ( amount = integer ) sectr = sectr + amount if sectr>spt then begin track = track +1 if track>=max_tracks then track=max_tracks-1 sectr = 1 end if sectr<1 then begin track = track -1 if track<0 then track=0 sectr = spt end end of bump procedure dump_physical ( device = integer ) get_sector track, physical_sec(sectr) print #device; "Track=";track; " Physical sector=";sectr, \ " Logical sector=";skew(sectr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_physical procedure dump_logical ( device = integer ) get_sector track, skew(sectr) print #device; "Track=";track; " Logical sector=";sectr, \ " Physical sector=";skew(sectr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_logical function hex_byte ( c = char ) = char c = c-'0' if c>9 then c=c-7 end = c procedure modify ( t, s = integer ) var c=char var x=integer repeat begin x=1 repeat begin print hex$(x-1) ;' '; right$(hex$(sector[x]),2) ;' ';\ ascii_character(sector[x]);' '; input3 c if c<>'.' and c<>CR and c<>BS then begin sector[x]=hex_byte(c) input3 c if c<>'.' and c<>CR and c<>BS then sector[x]=(sector[x]*16)+hex_byte(c) end if c='.' then x=128 if c=BS then begin x = x-2 if x<0 then x=0 end if c=CR and x=128 then x=127 print x=x+1 end until x>128 print print t,s display_sector crt repeat begin print input "(W)rite to disk, (C)hange more bytes, (A)bort ";c if c='W' then begin print "Writing sector to disk..." put_sector t, s if sector[0]=1 then begin input2 "Write fault. to continue";c print display_sector crt c=' ' end else c='A' end of write end until c='A' or c='C' end until c='A' end of procedure modify $page case menu_selection of '1': begin input "Track, sectr"; track, sectr print dump_physical crt repeat begin input "(F)oward, (B)ackward, (R)ange, (C)hange, (E)xit ";letter case letter of 'F': begin bump 1 dump_physical crt end 'B': begin bump -1 dump_physical crt end 'R': begin var s, c, device =integer input "Number of sectors to display";c device = crt for s=1 to c dump_physical device bump 1 next Sector end of 'R' 'C': modify track, physical_sec(sectr) end of case end until letter='E' end of option #1 '2': begin input "Track, sectr"; track, sectr print dump_logical crt repeat begin input "(F)oward, (B)ackward, (R)ange, (C)hange, (E)xit ";letter case letter of 'F': begin bump 1 dump_logical crt end 'B': begin bump -1 dump_logical crt end 'R': begin var s, c, device =integer input "Number of sectors to display";c device = crt for s=1 to c dump_logical device bump 1 next Sector end of 'R' 'C': modify track, skew(sectr) end of case end until letter='E' end of option #2 '3': begin var t = char repeat begin t = ' ' while t<>'L' and t<>'P' and t<>'E' do input "Move (L)logical sectors, (P)hysical sectors, (E)xit ";t if t<>'E' then begin var ok = char var trk1, trk2, sec1, sec2, cnt, x = integer ok = ' ' while ok<>'Y' and ok<>'A' do begin input "Source Track, Sector ";trk1, sec1 input "Dest. Track, Sector ";trk2, sec2 input "Number of sectors to move";cnt print print "Source Track, Sector = ";trk1, sec1 print "Dest. Track, Sector = ";trk2, sec2 print "Number of sectors to move ";cnt print input "Is the above correct (Y/N/(A)bort) ";ok end if ok<>'A' then begin for x=1 to cnt print "Reading track";trk1;" Sector";sec1; if t='L' then print " Physical #";skew(sec1); if t='P' then get_sector trk1, physical_sec(sec1) else get_sector trk1, skew(sec1) if sector[0]<>0 then print " Fault" else print print "Writing track";trk2;" Sector";sec2; if t='L' then print " Physical #";skew(sec2); if t='P' then put_sector trk2, physical_sec(sec2) else put_sector trk2, skew(sec2) if sector[0]<>0 then print " Fault" else print track = trk1 sectr = sec1 bump 1 trk1 = track sec1 = sectr track = trk2 sectr = sec2 bump 1 trk2 = track sec2 = sectr next sector end end end until t='E' end of option #3 '4': begin var count ; number of sectors to search = integer var file_name ; file name to search for = string:12 location var count=file_name locate file_chars at count track = off rem starting track sectr = 1 rem starting sector input "File name ( only to skip) ";file_name if len(file_name)>0 then begin function match = integer var result, x = integer result = true if fcb_name[0]=0E5H then result=false else for x=1 to 11 if file_chars[x]<>(fcb_name[x]) and file_chars[x]<>'?' \ then result = false next x end = result procedure dump_fcb( device = integer ) var x = integer print #device; "Track";track; " Sector";sectr; ' '; for x=1 to 11 print #device; fcb_name[x]; next x print #device; ' '; if dsm>255 then for x=0 to 7 print #device; hex$(word_dm[x]); ' '; next x else for x=0 to 15 print #device; right$( hex$(byte_dm[x]),2 ); ' '; next x print #device end file_name = fcb$( file_name ) print "Search for file:";file_name for count = 1 to (drm+1)/4 get_sector track, skew(sectr) print "Searching Track:";track; " Sector:";skew(sectr);" ";chr(0DH); locate fcb_name at loc_sector+1 locate byte_dm at loc_sector+17 locate word_dm at loc_sector+17 if match then dump_fcb crt locate fcb_name at loc_sector+33 locate byte_dm at loc_sector+49 locate word_dm at loc_sector+49 if match then dump_fcb crt locate fcb_name at loc_sector+65 locate byte_dm at loc_sector+81 locate word_dm at loc_sector+81 if match then dump_fcb crt locate fcb_name at loc_sector+97 locate byte_dm at loc_sector+113 locate word_dm at loc_sector+113 if match then dump_fcb crt bump 1 next directory sector var x=char print input2 "Press to continue";x end end of option #4 '5': begin function bin( x = integer ) = string var bits = string:8 var y = integer bits = "" for y=1 to 8 if x and bit_0_mask then bits="1"+bits else bits="0"+bits x=x/2 next y end = bits bc = 14 de = disk_number call(5,hl,de,bc,a_psw) rem bdos seldsk function var x, y = integer print for x = 0 to (dsm/8) step 8 print hex$(x*8);": "; for y = 0 to 7 if x+y<=(dsm/8) then begin base alloc_byte at alv+x+y print bin(alloc_byte);' '; end next y print next x print "Last block is";dsm+1,'[';hex$(dsm+1);']' input2 "Press return to cont.";x end of option #5 '6': begin var x = real var t1, t2 = integer input "Starting track, last track ";t1,t2 track = t1 sectr = 1 for x = 1 to (t2-t1+1)*spt print "Track:";track; " Sector:";sectr; " "; get_sector track, physical_sec(sectr) if sector[0]<>0 then print "{BAD}" else print chr(0DH); bump 1 next x print input2 "Read complete, press to cont.";x end of option #6 '7': begin input "Track, Sector ";track,sectr print "Group #";group(track,sectr), hex$(group(track,sectr)) input "Press to cont. ";track end of #7 '8': begin var x = integer input "Group number";x trk_sec x print "Track:";track,"Sector:";sectr input "Press to cont.";x end of #8 end of function number menu selection if menu_selection = '9' then 0seldsk case menu_selection of 'A': begin text 0,% To examine a physical sector use this command. Sectors are numbered from 1 to the end of the track. Tracks are numbered from 0 to the end of the disk. The physical sector number displayed is the sector number from 1 to end of track, the logical sector number is the number your BIOS uses to access this physical sector. When you type this command you will be asked for the track and sector you wish to examine. After you respond the sector will be displayed. You will then be asked if you want to move forward or backward from your current position on the disk. You may, at this time, specify a range of sectors to be displayed from the current position on the disk. You may also edit the sector making changes to it in an buffer internal to XAMN. And last but not least you can exit to the main menu. Each option is selected by one key press. The letters are F, B, R, C, and E. When changing a sector the sector address in hex will be displayed along with the hex contents of the byte and the ASCII character it represents (Period if none). To enter a new value type it in, to move forward push return, backward push back space, and to exit push period. Upon exit you may re-edit, write the sector to the disk, or abort leaving the sector on the disk un-changed. % input2 "Press to cont.";track end of 'A' 'B': begin text 0,% Use this command to examine and edit logical sectors. Logical sectors are the sectors that the BDOS refers to, the physical sector number may be different. It is the physical sectors that the BIOS access. For more info see 'A' above. % input2 "Press to cont.";track end of 'B' 'C': begin text 0,% This command is used to move sectors around on the disk. It can be used to move physical sectors or logical sectors around. The main purpose for moving sectors around is to allow re-formatting of a track on the disk. First, move the data on the track you wish to re-format to an unused area of the disk. This area can be found by generating a map of the disk using another of XAMN's commands (Map disk, see also help 'E'). Second, exit XAMN and using your system format utility format ONLY the track with the bad sector. Re-enter XAMN. Third, move the data back onto the track. This command will start by asking you if this is a physical move or a logical move (use logical if you want to move CP/M groups around). You can exit at this point. Next, you will be asked for the starting track and sector number, the destination track and sector and the number of sectors to move. BEFORE each sector is read or written you will be told of it, if an error occurs you can see where it happens. AFTER the operation the program will move on to the next sector if all is well or print "Fault" to show a read or write error. % input2 "Press to cont.";track end of 'C' 'D': begin text 0,% This command generates a map of a file showing all the CP/M groups assigned to that file. It also reports on the directory sectors that contain that file's FCB. As each directory sector is searched a report of that operation is made sector by sector. % input2 "Press to cont.";track end of 'D' 'E': begin text 0,% This command generated a disk map showing allocated groups. A 0 is an empty group, un-used by any file. A 1 is a group in use by a file. WARNING: this command makes a BDOS disk select call. At the end of the map a few groups that do not exist may be displayed as empty. This is because the disk map is made up of bytes where each bit in the byte is a group, the last byte in the map may not be fully used up. At the end of the map the last group number is given, use this number. This command can be used to find unused disk space. % input2 "Press to cont.";track end of 'E' 'F': begin text 0,% This command is used to find a bad sector. It will ask for a starting track and an ending track. As it reads each track and sector it will report its progress. Any bad sectors will be reported. % input2 "Press to cont.";track end of 'F' 'G': begin text 0,% Use this command to compute a group number from the LOGICAL track and sector. Remember that logical groups start in the directory, NOT in the reserved, or 'OFF' tracks. % input2 "Press to cont.";track end of 'G' 'H': begin text 0,% Use this command to compute the track and LOGICAL sector number for a given group. % input2 "Press to cont.";track end of 'H' 'I': begin text 0,% Use this command to select another disk. XAMN commands are in reference to the current disk number (see the display above the menu). % input2 "Press to cont.";track end of 'I' end of help case statement if menu_selection=03H then stop goto 0menu  a given group. % input2 "Press to cont.";track end of 'H' 'I': begin text 0,% Use this command to select another disk. XAMN commands are in reference to the current disk number (see the display above the * Program.: SP-MAIN.CMD * Author..: Debby Moody * Date....: 02/06/84 * Notice..: Copyright 1984, ASHTON-TATE. All rights reserved. SET ESCAPE OFF SET TALK OFF SET BELL OFF SET INTENSITY OFF DO WHILE T ERASE @ 1, 0 SAY "========================================" @ 1,40 SAY "========================================" @ 2, 0 SAY "||" @ 2,78 SAY "||" @ 2,15 SAY "D B A S E I I S A M P L E P R O G R A M S" @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" @ 4, 0 SAY "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "||" @ 10,78 SAY "||" @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "========================================" @ 12,40 SAY "========================================" @ 5,29 SAY " 0. exit" @ 6,29 SAY " 1. mailing labels" @ 7,29 SAY " 2. inventory program" @ 8,29 SAY " 3. checkbook program" @ 9,29 SAY " 4. help" STORE 5 TO select DO WHILE select < 0 .OR. select > 4 STORE " " TO mselect @ 12,33 SAY " select : : " @ 12,41 GET mselect PICTURE "#" READ STORE VAL(mselect) TO select ENDDO DO CASE CASE select= 0 SET TALK ON SET INTENSITY ON SET ESCAPE ON SET BELL ON CLEAR RETURN CASE select= 1 DO Lb-print CASE select= 2 DO In-main CASE select= 3 DO Cb-main CASE select= 4 DO Sp-help ENDCASE ENDDO T * EOF SP-MAIN.CMD  select < 0 .OR. select > 4 STORE " " TO mselect @ 12,33 SAY " select : : " @ 12,41 GET mselect PICTURE "#" READ STORE VAL(mselect) TO select ENDDO DO CASE CASE select= 0 SET TALK ON SET INTENSITY ON SET ESCAPE ON SET BELL ON CLEAR RETURN CASE select= 1 DO Lb-print CASE select= 2 DO In-ma2#D/TBMEQSVH@#.-DI NPAK_FLCV  = y CABCD&s1a&s0aCOPYRIGHT 1982, PAWLUK CORPORATION5455 Wilshire BoulevardLos Angeles, CA 90036(213) 937-0551^#VN#F!}~#zo*!U.>)Þ!/.>S |2!/>͝!!.c!!C/P!=!C/.>P!!/>͝!!C/͛!!/e!w!!0L!!0͕ >3>!0GͰ!!0&  !B/Ͱ!!B//>!< !-.6!C/6!0.>)Ø!0/>L!!0͕ >3>!E1GͰ!!C1&  !C/P!!C/͛!!/>͝!!/>͝!͔ !/!”*_,>!/>ͅ>* .̓"7R;0!/>͝!` )!"-" .͜ !">/*."F1*F1*>/̓"!"@/*_,>!/>ͅ>"H1*H1*@/̓"*-*>/P"*@/"J1!J1& *@/#"@/Ã*>/#">/S*_,>>"@/!">/*_,>> X!/>ͪ> >"L1*L1*>/̓"4R*0>͛!/>͝!` )*>/#">/7RL0!-͛!` )Ra0!d,͛!` )!">/*>/ |3/#">/g ×< !{.>)!S1/>L"!!Q1͕ !{.9 R0!-͛!` )R0!d,͛!` )!">/*>/ |3/#">/ !{.>)#!}""_,!M0*_,&0>!*_,>!/>ͅ>" .*_,>!/>ͅ>".*_, >!x.>,!".*_,!..>G!*_,!/.>G!!""-!">/*>/ |*-*>/P"0>P!*>/#">/*_,~!C/P!!C/ ͝!|2a,!C/ ͝!|2b,!C/ ͝!|2c,!C/6!"@/">/."O0*O0*>/̓"*_,3*@/*_,**>/~O !1,*>/3">2!*_,**>/~_W*@/"@/*>/#">/W!,n&!,n&= }2.:.og!0-n&= }2.:.og!c-n&= }2.!c-K ͝!!0-K ͝!!,K ͝!!,K Ge!w!w!!.Ͱ!RW0!-͛!` ),*_, !0x!t&,å*_, !0x!Ž4,å*_, !0x!¥B,!{.9 < !S00>L!!Q0͕ !>06!?010>G!!G090>G!!">/*>/ |!I0*>/6*>/#">/!>0"<0!02 W* .".*-".R50!d,͛!` ):b,i!"1*1 |i3>+"1*1*1̓" *-*1P">P͝!!1>͝! +" .: .q ͜ *_,>!1>ͅ>"1* .#"1*1*1̓"/*-*1P"*1!1x!0 *1+"1* ."1*1"1*1*1̓"q *-*1P"*1"1!1& *1#"1< *-#"-*1#"1Ô*." .*."-!"1^#V"1*-".* .".*_,>>"-!" .͜ !1*1L>G!*_,>!1>ͅ>*1n&N " .!"1* ."1*1*1̓"; *1*1] G!1>!!1& *1#"1 RL 0͛)!"1*_,>!1>ͅ>"1*1*1̓" !1& *1#"1o *."-*." .͜ >22!,n&}22:2og:2og̓" !,:2_ G!1>! *-*_,#>>> m!12!; !,:2_ G!2>!6 * .*_,#>>> m!12!; !16!1n& :a, !1!1͛!!2>͝! G!1>2!>22!1n&}22:2og:2og̓" !1:2_ G! 2>!!2& !24 !1͛!N"2*2}3>! 2GͰ!! 2& !,:2_ G!2>!!2& !24ë ^#V^ #V! *3> K*  3 |G |{z= FZ ʆ Oʆ } # ʊ h Å e gl #~wí !9_#F#O >+ ~ !  # # H o&!2Ê&"42!22B ^#V"62*62"82!82\Y Ç O:.y !9Gʀ ~#'q q yÇ O:.   {§ *.| j& *.*.̓"#̓"> > > {=>'!9=~#' {>' {=>'{>b*.++|2<2!:2:ɯ7>7>2G2"H2"J2`i"L2!9"N2!=2S2 ~# X*2~*2~œ!2>͝!G3!!!0. !0."2!2!2>͝!G3!R.!!. !."2!2*2"2!2!2?*2^#V!.s#r*2^#V!.s#r*2^#V |*. |G!2́*2^#V}*.}GA!2́:.e*2^#V}*.}Ge!2́:.*2^#V}!2́^#V"2!."2*2"2!2͊&22!2ä^#V"2:.:.*2*25!26:2  ú !2:*2 *25!.6!2::.*26F22:29!."2!"2!2͊&!.6#6!26 ^#V"2!."2*2"2!2*p!."2!"2!2͊&m:.*2~ ڊ*.#".*2~ ž!.6#6:.*2~ *.#".!.6#6*2~ *.#".!.#!.6#6*.*.#̓"|!."2!"2!2͊& !.6:.!3:"3!9"3!3?! 9^ 3~# D* 3^#V|Y* 3*3 *3 nb*3 !3>!è!3>͝!* 3c!!3Ͱ!* 3~#* 3^#V)))|* 36P#6* 3~#* 3^#V))|* 36#6* 36<#6* 36#6* 36#6* 36#6* 3 6* 3^#V}}23* 3^#V}e!344* 3^#V}{>23* 3^#V}*3~#¦*36#6* 3"*3*3"&3*3"(3! 3* 3^#V|* 3"43!"63!,3͊&^#V^#V?*:.!&͊&2.O!/6 +~#w!. s#r!.4)./.02 I/O Stack Overflow:.f!."=3!93c!836q:.283!.6:83 ڀ*.#".:83 !.6#6:83""*^#V#"^#Vͪ͞"ͪ"|ͯ|~ͪ͞yaA =.:;<>[]y * $1) o&))))\xH  F#w F*#uAuG:z 6p4+ʤ#ʰ#*œ6?àw‹ʷä#6 °. #*6?w#6 %#6*##^ ~?# xCON CON RDR PUN LST M!+ ~$¨1t\[l¨$¨!~ ¨! ʝ#|x=Gy>ɯ*+ͪ^#VͲ#{#zͪ6#6Ͳ r+s!?3F#~ !?36P  U* U*!@3^r+s6 #6 !@34^N*|9}=&511O>~EE>͇N*|qY1=^yjU*m>~}=}>͇q2 */" ͹{Ͳ* *#: OͲ#s#r͹ڠÇͲr+s{!4* +>|+}o͔͞~2͞"ͯ: :@G: *p:4#6:[*++"d}+h}|2""1"| ##"6*s#rUy{ y*:wګ6*"<:y*w#w͔ͯ͞q͔ͯ͞NL*~" 4#4#4͔ͯ~k͡*>Ͱ͔ͯ~>Ͱ*~ʘ>͡/*!*~!/2 *|(^#V{zz<2z: qNL#*|<*~<=!9: ͇62w=>͔ͯ|}~> <͔ͯ|s*w=*+*^#V6+6++W#͔>"N#F#~͞q#p#w>͔>*~!=>!*" s#r#w=* }!36 4>23*3!4#4#4~#N#F#y#x#:3*3!!:3g<&:3~G~#~O?Ҧ#~¦! p! y! q<ª<&ɯ~#N#F#w#q#p ~#!!ͬ! 6?<= _!x FNwxG>O>G!$q#p#61"3"323x23 23!3~5Lw=¢:3¢*3Gx|g}o ""G!9!y??)0:1Š"# #yJ) ?xDMox&9`iɷ҈!9VzwzO#eʄ¶ ¶ ! 9/GO~¶ O¶ ~q+¬!96#=¿O!9Fxny! 9~WwzO+_ /!9~#= n"3>*3"3!N*3"3!N*3G!9!xʪ ʥ+w$%Š"gå-l0":"0T])ڊ")ڊ"ڊ")ڊ"o|gڊ"\{ʺ$%Š"}û|ڊ"z-{"o&9}O!9 w#60#60! 9~ !97>?'w#-!9~S'~#S! 9~.9+60E0E6 #-+r>o&9y>o&90w+j6./G! ¶>0 »>-3T]))寕iO>`G>0 < DM0 > %w#% O~#;GxNZ ¶ > f¶ #Z!9!97>?'w#v!9!7>?'w#‘ì!9~#¸!9#>ê"!9Z !9Z !9͝ !9͊ !45!9|  7 !9! 9k ! 9w#J !9~k <7>?'w#n 'w# 7>?'w## ^{w{W#¡ ! Ê& ȇ ) yw# ~# ~#W #;!~#o>gxG\!G!wF#"3x͝!w!*3!9G_>WObk++ʗ!~+!y~#/g{ozg!"Ê&""""" Conversion2"!"Ê&""""#}OD*4~###~#fo"!"Ê&""""" Free Space Exhausted##^#V#{_zW#{_zW"4z)#{R###^#V# ##s#rs#r#s#r+++~sw#r####}*4}|#*{z#+F+N+V+5^{#{z#}|#{ʦ#ڦ#i`~sw#r##q#p i`N#F#^#V~#q4#p+i`##s#r#+#+ FREE Request Out-of-Range$ Free Space Overwrite$:423i`"3!3~6"$_$ԓ$*3:423N#F#^#V : G$ %@23`i"3>23[$_$͓$>23!3~y$%‡$ :3=23g$^#V"3!3%:3?4M&3-&&!^#V"3!^#V+}o"3&*3*4{z$H4M&>23!3"35%~%^#V#N#F*30%%*3i`0%%*36*3 "3:3=23$}|!3~M%Q4M& :%*3MD%3 w#^%*3*3}O|G3|%"4" 4yo`" 4* 4|% " 4*4]Tu&* 4T]p&c4M&*4"4Í%u& %%#%>ɯ %w#%a{3 %:4@w#6:#   &w#{&6.#&!3|%?&k&<Z4M&! w #F& 24!(4 w#W&%!4͊&GKҢ&Mbkâ&o(Fn(Nn(N#Fn(^#V"/y2/xҵ&i&ͯ)&&x&>&!.{#z*.*.)xyx&S'_!(^#Vͪ'M'>(O'y͆'>)O'|0'B'(|<'B'ͪ'ͼ'ø+>,O'M'> _U* U* U*0:O'O']']'M'|k'}k' ږ'dԘ' ͘'ڣ'Ú'x]'N #~O'ì'!}(ͪ'*4!9{_z'{' ''M'>#O'*4>=^#V#w''(>: (>?O'!u(ͪ'ͪ'>=O'^#V|G(}>(.))(ê'#F>A(> #b(~ >.(~ (=S(^#V# File: Traceback:(((((((( ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!/~>)#)+ Condition Stack Overflow$4Ox!l4 w#s#r#s#r!9!/ s#r!/N!l4 +++++w)#{)#zʕ)++~w)++!/5!~# ¤)à)!/N!l4 +++++¿)#~#)+{)#z)++~ÿ)#^#V=!.~?*5:._!.^#V"...~# **.))))). )| &**.|}*O6# ~+ n+=ɯ ~#fo+++!4~#+*4+¸+++,  Insufficient Memory$ Invalid I/O List End of Execution$P,,$ZSCRN ,,$MGEN :,$CGEN H,$DGEN b bb SYSININOUTSYSPRINT ..ZIPNo file (Return to continue).QUIT to system (Yes or No)?YyYes DISK IS FULL--returning to system. MCDReturning to ZIP screen. ????????$$$ _, S0 <00+ 1o+kk>   0'0hen Sign = ' 'E1P1S11 1 1 1  2 2 2 22.22 Invalid Format Item42<2G2H2J2L2N2 Stream/Record Sequen/Direct Input/Output Keyed Access P< $con 22.2P2^2l2z222>22 222222222222 3.dat33*3 3 34363=383 OVL44444OVERLAY, DRIVE SIZE NESTING NO FILE READ  -!-`i^!< -!`i#DM^! =-`i^! @--`i`i#DM~}-`i^! k-`i^! z-!`i#DM+s}-E-ͩ1|ʜ-!&0ê-!F0 -!`.!͝8!9!.!9!8!!3! ̈́.I.`i*x,#"x,+)+s#r`i#DM~I.`i^! 7.`i^! F.!`i#DM+sI..ø,!+*x,̈́.Can't open file for redirection: ͤ ]!! 9~#ʞ.!.6Ͳ*A:$$$.SUBͤ !"!ͤ !`i_ΊX!͏! 9N#F`iX`i9X!X!͏! ^#VVXX! 9^#VͧXX!Y!*/^"t͏*t|#Y!*/#^͏*tDM|IY*/#"/^"t`i͏!}2"1"t!"/͏*t|‰Y*~Y!!1[jY,Y͏*t|YY*|ʩY!,Y͏!"*ޖ#":lst c   !  9^# !rx0#fo#s#r!       !"!DMô0`iDi~#0!9^#V`i^d80ì0! ^#!9^#V! #!9s#r!  1! ͓ !" ( 4 6 7 8 9 3 #V!nfʠ1!? [ \ e o p z V !!DM! $%& !    s#r!ͤ !.DMDM`i/W _zi2<2!"  9^ !* 2 2!  1 2 3  "!# s!$!"#s#8 ^ _ a x y    # u  0  > Q  q 3              Run mite directlyErase a siteModify a siteChange a site nameSet up a new siteOther OptionsOther OptionsOff. Airline GuideDow JonesDialogNewsNetCompuServeThe SourceInstructionsMITESOURCECOMPSERVNEWSNETDIALOGDOWJONESOAGOFF^M^M@W^M@E@T=@P1d1^M@T@@P1c ^M@T?@P1id OFF^M@T*@WA@T:@P1cis02^M@T:@T:@P^M@T:@P1@W^C@T:@P^M@T:P1@NOFF^M@T*@WA@T:P1net^M@N@T>P1id ^M@W^M@E@T=@P1^M@T@@P1c 21566^M@N@T>@P1id DISC^M^M@W^M@T=@P1d1^M@T@@P1c 60942^M@T?@Wdjns^M@TE@W@T*@WA@T:@P1^Rdow1;;@T?@Wdjns^M@TE@W/Q^M^M@W^M@T=@P1d1^M@T@@P1c 312159^M@T;@W;@T*@WA@T:@P1oag^M@T;@W;M+LL3MMNO=QRSTUOVVVVWWW4XXYYxZ[[[[/\z\\\<]{]]]3^^^^ "* !" * 6*-o -o!A!A!A!!$!r*loE *|E s@+ !<hH!C!"L!ͤ s@DM|r e *|ʈ !A!"`ilo› ͤe !A-o! !! r!}2 !DM `i#DM`iͦo ! ͋A ! 9^#V)} ^#V -o!#9N#F!!" `i" ~`i^! lo=`i#DM* #" `i^zH!" " * ͦo`i^z`i^! loʓ`i^! loʓ`i#DM* #" v* #" `i^! {o`i^z* ͌o* * #" +͋A`i^!lo`i#DM* #" `i#DMÚQ* lo!* s* DM`i~* ͧoʕ`i+DM^! {oN* +" 3`i+DM^! loi* +" N`i#DM!9`i#DM+* ̀p!* !9ò`i#DM+* ̀p* !9͞s!!9s!9* #" +͋A+ͦo-o!T9N#F!V9^#V!T9^#V!9͞s!!X9^#V!9s!9!" ;#n&|ʌn& loj#+)!$9s#rn&loʂ#É* #" 4|`i* ̀p" |* Ro" * ͧo* |* ͧo!" * ͧo * +)!$9^#Vs* * " +Ô!9&#~ʕn&oyn&oT+|v! !Z9~#fo#s#r+sMÒn&!Z9~#fo#s#r+s!!Z9^#Vs-o!9N#F!`i*)^#V!9s#r*|s@!9^#V^!lo!9^#V!^#V(F9!9^#V^!lo-!9^#V#^G9!9^#V7!*lo]F*"!*|ʚ!B*L*+"*loʑ!(F×!*{o*{o*+"!(F**ͦo!B*L*#"*lo!(F!`i-lo9*|:*{o6*"!(F`i+log*{oa*"!(Fd*#*{o*ͧo–)~#Ÿ!)^#V##^#V^͢t͢tlo!B*L"!#nͫp   BB` ` |F!C*L*)^#V!^#Vͤ -o!!9s#r!C9^#V*|!C!0ͭ9!A!!!78!B!0ͭ9!!!78!C!0ͭ9!`E!"!!9s#r8!A!C!0ͭ9!B!4ͭ9!!!78! ! 9s! 9!"!ͤ5!C!4ͭ9! 9^zO!A!"!!!!9r!!9^!9##s!9!!DMÙ`i#DM+`iͦo n&|! `i!9sn&! `i!9s!#+s#+^͌t`i!9sÓ!!#9Js!9!Tq{oD!!!78!9!D>!ͻ!!i!-Js!!!]!O͈$!9!9!Tq!9?!!_j!9s#r!!!9! 9^#Vr!9^#Vv=* #" !!>8!}ʹ !!>5_!!>8!ʹ !!>e!!>8!ʹ H!}2-!!>b!9s#rz!!9^#V!^#V#!9͞s!!9s! 9!>!9^#V#^"!9^#V!^#V ?!9^#V#^!!!͈$!9!9^#V!^#V?!!>8! 8ͫpb   < 8!9^#VA!A*##^!loʦ*!99s#r*"*! 9s#r!<"! 9^#V(F!B!L!99^#V"î*hHThe file containing the instructions, AUTOMITE.HLP , is not on disk.Site name (1-8 letters/digits)? PARThere already is a site with that name!Setting up Save on diskThis saves the new file on diskerase.Deletingrename.Renamingmodify.ModifyingModifying Save on diskTo save these changes, press RETURN-o! 9^z!" ! 9^!#s!" * <>.,;:=?*[]_%|()/\-o! 9N#F`i~#{! ^ͻ!! ^+b$pi!-JsÎ!}2-! ^#V ?! ^"! ^!!!͈$!9ʝ`i~#…!!_j! s#r!!!! ^#Vr! ^++))E^#V!#ͦo_n&|=! ! ^#V#s\#+^͌t! ^#V#s !! ^#V! Js! ^#V!Tq! ^#V?! ^#V !A!A*hH ConnectGoes to mite and dialsPAR-o!!Tq!9!Tq!* s!*!Tqs!!9DM#+ͦop!`in&os`i^! lob`i#DM)`i^! loH! !Tq! !Tq#ͧoE!B!0ͭ9!B!1ͭ9!`E!`E!C!1ͭ9!C!0ͭ9!B!4ͭ9!!Tq!9sz! !Tq!C!4ͭ9!9^!lo2!!Tq!h`i^!loYs`i^!Tq`i#DM) !B!0ͭ9!B!1ͭ9!`E!C!0ͭ9!C!1ͭ9!B!4ͭ9!!Tq!9szü!C!4ͭ9Press RETURN for more -- To end, press ESCape. To go back to the menu, press RETURN.-o!!E!C!0ͭ9!C!1ͭ9! 9~#ʃ! 9^#V`EÐ!!͊E!!E!9~#!B!1ͭ9!B!0ͭ9!9^#V`E!!͊E!C!0ͭ9!C!1ͭ9 -o!Tq-o_!!!!9r!9! ͍q!9!TqloX!9!Tqz!9!Tq!9!Tqzf!!!9r! !9Js!!9s!9!Tq!9!Tq! !9Js!9~#Q ! 9DM! ! 9s!#ͦo7 !9^#V#^! {o7 !9^#V#^`i#DM+s!`i#DM+s! !9͵s!9os!9s!9!Tq!9!Tq!9!Tq!A!$$$.SUBautomitemite K-o* | !!A! !!78! 9^#V`E!"There are no files to ~# H!I!P!X!D_!Pl!Bz!P!P!S!U!M!*F+~ n,` %DirectTelenetTymnet Description Phone number Baud rate Parity/bits Password Service User code Machine #-o*'|!*' ?!#!JsÜ"!!"!r!M}2!'}2!#-!}2!}2}2}2}2! }2!}2!}2!}2!}2! }2!}2!}2!}2!}2!}2!}2!}2Ͳ#!Js! !!r! 9^#V!b$p" !! 9^#V!{o#*<"n f |#n&! 9~#folo#nf!Js#"* !F^#V!͋oJ#!#!Js!#!Js!#!AJs* !F#!=}2!}2!#!Js!=}2Q* !##^#Vos}2R* !##^#V!SJs300passworduser#99999^Kdir^M-o!#͸tlo#!!#AT DT-o! 9N#F`i^#V"! ^#V͎8! ^#V!Js`i~#9$!A8! ^#V8! ^#V!UJs`i~#j$!8! ^#V8! ^#V!iJs`i##~#ʄ$!8!$8^M-o!9^#V!b$p" !!!!r* !F̈́)$* !T̈́)* !^#V! 9s#r!9^#V#^͌t}2!!9^#V* !2s#r!9^#V"!!A!! 9s#r:o&'{ol%!C!0ͭ9!(!! 78!(!! 78!! 9s#r!C!0ͭ9!DMÆ%`i#DM`i! 9~#foͦo%.)!')`Ex%!B!1ͭ9!9^#V`E!C!1ͭ9%+Á%!,!!9s#r" !* !|&!!-#s!!9s#r" !#~&&!9~#z&!C!0ͭ9! 9^#V.)#^! 9s#r! 9^#V!{o!9s#rzw&!!-#sÅ&!!9s#r!B!0ͭ9! 9^#V.)! 9^#V)* !2^#Vͤ !9~#&s@|&&&!! 9^#V!9s#r͌t|(! 9~#Z'!͎8:Ao&| '!A8!U8:o&|;'!8!i8:o&|V'!8!+)8!!B!1ͭ9!B!0ͭ9! 9^#V.)!C!1ͭ9! 9^#V.ʢ'!u!B!0ͭ9! 9^#V.)×(!! 9~#'! 9~#fo+s#r×(! 9~#fo#s#r! 9~#foo! 9s#r×(! 9^#V#DM(`i#DM`i! 9~#fo{oy(`i! 9~#fo͋o@(!DMv(`i)* !^#V+$p!^lov(`i! 9s#ry((×(ͫp &&'''(!9^#V! 9~#fo{o(!C!0ͭ9!9^#V.)%This file was not created for MITE version 2.7,And so cannot be modified using this program. : ^M-o! !9^#V)* !^#V+$p!^#V!!9^#V)* ! ^#V!^8!9-o!S!9Js!*!9os!9s)!!9os!9Js!9DM!9^#V!^#Vos!9^#V!^#V͈s*!!9^#V!^#V!Js!osPYDM!9^#V!~#m*!9^#V! ^#V!A*DM!9^#V! ^#V!UJs!9^#V!~#ʲ*!9^#V! ^#V!*DM!9^#V! ^#V!iJs!9^#V##~#*!*!*DM!9^#V^#V"!@L7^M-o!9^#Vos!9s#r!9^#Vos!9s#r!9^#V!DM8+`i#DM#`i!9~#fo!9~#fo͌oʭ+!9^#V!9^#V͈sª+!9^#V!9^#V͞s!!9^#V`is!9^#V`i!9~#fo,+!!9^#Vs!9^#V-o!C!0ͭ9!!9^#V)* ! ^#V!E!9^#V)* !^#V-J-!#!͊EJ-!!͊EJ-*p5V-J-:o&7!Tq:o&|j,!NÂ,:o&lo,!OÂ,!E!Tq!B!1ͭ9:o&|ª,!K-,:o&loʿ,!O-,!R-`E!C!1ͭ9J-!#!͊EJ-!*) !^#V͊EJ-!#!͊EJ-! !A͊EJ-ͫp ,,%,5,E,,,, -J-oneddven-o! 9N#Fm-`E-o! 9~#ž-*0!|–-!}27!!0}26!!6!*8!#":!*0!|³-!}27!!6!"8!*0!#"0!*8!+"8!! 9^#V! Rom-*0!+"0!! 9^#V! o0*8!#"8!s*:!-o! 9^#VMr!DM.`i#DM`i p>.`i)..`i lo.!A!"!C!0ͭ9!.!!78!!E*9! 9^#Vos:Ro&:ͦo 9! !9^#VC9>9!!9^#VC9! !?9C9@L7-o!=!9^#V))))))s! 9^#V!9^#V))))))͵s!9^#V))))))os!9^#V))))))s-o!!Tq!9^!Tq! 9^!Tq[ác[c͏! 9^#V*=s*=*-Bc*=#"=! 9^#V͏!9WdͭSLY!9͉})*?^#V)dnf|Qd##DM!9Nd!`is d͏! 9^7L!!!L!L!L!!!L2!2Lq!qL2^#VSites page #KdK͏-o*:|m;!":!"!!!!i:r!3=!j:Js!i:!Tq{ol;!_j"9!!!i:*9r*9!"9"!"9*:|¿;!":!<"!9!Tq!!!!i:r!?=!j:Js!i:!TqDM;!9!Tq!i:!TqDM`ilo;!"*:+":#|!! s#r*:+":E>*#"! _j*s#r**^#V!s#r*^#V"!*s#r! 9^#VF>*s#r!*##s!*###s#r!":-o!_jDM!`is!! s!! s#r! 9^#V! s#r`i ! s#r!! s#r!! s#r!õ>#! 9^#V#^! {o?ͦo?|>! 9^#V#^ ?! 9^#V#^͢t#+sî>!u`i-o!!9^#Vs!!9^#V! s!!DMW?`i#DM`ipʌ?!Tq!9^#V!Tq!R?!"|?!9!Tq!9^#V!Tq!"!9r-o!!29^#Vs!!!29^#V!9r!!'9s!DM!!%9s#r@!%9~#fo#s#r!%9^#V!pM@!Tq!9!"Tq!PYDM @!!!9!49^#Vr!9!Tq-o*9)~#ʌ@A×@*|—@:!DMä@`i#DM`iͦo@!!Tq|@@!!!!ͫp @ @@@ @@ß@!-o*9)~#sA!C!0ͭ9!C!1ͭ9!*9)^#V!8*9^8!9*9)^#Vl!*9)s#r*9#"9͋oʊA!"9-o! 9^#V)~#ʸA! 9^#V)^#Vl!9^#V!9^#Vos#_j!9^#V)s#rJs!"9-o!C!0ͭ9! 9^#VÍC!C!4ͭ9!!Tq!:`E!!!78!"!B!4ͭ9!C!1ͭ9!!Tq*|ʰB!ÉB#ͦoʰB!3!C!^8!9ÂB!"!"!B#͌oB!2!C!^8!9B!2!C!!^8!9!2!C!!^8!9!2!D!!^8!9!2!DD!!^8!9!2!FD!!^8!9!2!HD!!^8!9ͫpBIBqBBBACC Use the up-arrow and down-arrow keys to move thedarkened bar to your choice. Then, press theright-arrow key. To exit this menu, press ESC -o*DM!*)^#V##^#VͦoD#+E!C!0ͭ9! !Tq!B!0ͭ9!͊ErD!B!1ͭ9!B!0ͭ9!*E! !Tq!C!1ͭ9`iͧo]E!C!0ͭ9!!^E`i+DM#^8!9!B!0ͭ9!^8!9E -o! 9N#F`i~ʉE`i#DM+^!TqlE-o! 9N#F!9^#V+#|E`i^zE! !TqE`i#DM+^!TqàE-o!!Tq!=!Tq! 9^! !Tq!9^! !Tq-o**loyF*+"|LF*"*~#_F*jF*^#VhH*+"F**loʦF*#"*^#VhH*#"F!B!1ͭ9*hH!C!1ͭ9JD*"! 9^#VhH*#"!C*L-o!C!0ͭ9!DMG`i+DM`iͧo6G!!_H!^8!9 G!B!0ͭ9!DM!*###^#V*`i{oʴG!C!0ͭ9!!aH`i#DM+^8!9!B!0ͭ9!^8!9ZGͧoHE!C!0ͭ9! !Tq!B!0ͭ9!+#^8!9ôG!C!0ͭ9!cH78!B!0ͭ9!E! !Tq!<hH -o!+9~#‚H!<!+9s#r!+9^#V!~#™H!"!+9^#V##^"*loʼH!ÿH!"!B!0ͭ9!+9^#V"*###~#H*###^#V!9JszI!:!9Js!9osDM*0`i!9s*{okI!/`i!9#s*0`i!9##s!`i!9###szI!`i!9#s!9os!̀pRo!!9s#r!!9^#V!ͦoʶI!!!9s#r*!E! !Tq!!Tq!B!Tq!3!Tq!!9^#V+!L͊E!9`E!9os!!9~#fo!̀p!L͊E!!Tq!C!Tq!3!Tq! !Tq!!L*!^8!9!!9s#r!!9s#r*~#J*{oJ!:"!"!9~#fo#s#r!9~#fo#s#rJ!"*^#VJn f |,K!9^#V)s#r!9~#fo#s#rJ*ͧo|K*##^!{o|K!9^#V"!:!9^#V)s#r!9~#fo#s#rÂK!"!9^#V+"!9^#V! ͦoʿK!!9~#fo#s#r+)s#rÎK!DMK`i#DM`i ͦoK!BLK-- Previous sites --++ Next site page ++ -o*!9^#V!E!B!0ͭ9! !Tq!9^!0ͭ9! 9^#V)~#‚L!!L͊EâL!!9^#V)^#V##^#V͊E!B!0ͭ9! !Tq No help here.To run MITE for a particular site, press RETURN. You may make changes before actually going to MITE.For instructions on how to use AUTOMITE and MITE, press RETURN. To view the next screen, press RETURN.The SOURCE is a major information utility. It features electronic mail, bulletin boards, conferencing, stocks, news, online shopping, and over 1200 other services. Sign-up kits are available at Computerland and B. Dalton's Bookstores, or contact the Source at (800) 336-3366.Compuserve Infor- mation Service is a major information utility. It features electronic mail, bul- letin boards, a CB simulator, online clubs (SIGs), news, stocks, downloadable software and main- frame programming services. Sign-up kits are available at Computerland, Radio Shack, Sears, and B. Daltons, or call CIS at (800) 848-8199.NewsNet is an online collection of num- erous newsletters covering a variety of topics such as: computing, grants, business, IRS, office automation, media, taxes, banking, etc. Cost depends on which newsletters you read, and is less if you are a subscriber to the 'hardcopy' version. To subscribe, call (800) 345-1301.Dialog is a col- lection of online databases covering a wide range of topics such as ads, books, microcomputers, career, government, science and education. To sign up call (800) 227-1927, or (800) 982-5838 in California. A sub- set of Dialog is available as Knowledge Index at lower cost, primarily for home use at night.Dow Jones News Ser- vice is a business news and financial database. It features news and data on thousands of companies and their stocks. To sign up, contact your nearest Radio Shack, or DJNS at (800) 257-5114 or (609) 452-1511 in New Jersey. Much of this data is also available via CIS or the Source.The Official Airline Guide has information on both passenger and cargo service on over 600 airlines in the US and abroad. Available data in- cludes take off and arrival times, inter- mediate stops, type of aircraft, and the number of flights per week. To subscribe, contact OAG at (312) 654-6000.These are special options that allow you to clear old or unused sites off your system, change the site name, change the values set up for a site, or run MITE directly.This will allow you to change the name of the .PAR (parameter) file for a site. Use 'modify' instead to change the site description. Position the lit bar over your choice using the arrow keys. Press RETURN.This will let you change the values known for a site.This erases old, out of date, or unwanted parameter files.This will take you directly to the MITE program.This allows you to set up new sites. Do not give a site name which has already been used. See the rules for naming files in the KAYPRO user's guide.Select this option when the values shown are as you want them.You may enter anything here to describe the site.The phone number can be up to thirty characters and digits.The baud rate is the speed at which your Kaypro communicates with the remote site. Valid rates are 110, 300, 1200, 2400, 4800, and 9600. Kaypro internal modems run at 300 baud.This selects the character size and parity. These values refer to the site. To enter this, put in a 7 or 8, for number of bits, followed by N, for no parity, E, for even parity, or O, for odd parity.Enter the password exactly as it was given to you.The user code tells the computer you are connecting with your account number. Enter this exactly as it was given to you when you acquired your account.To save any changes you have made and go to MITE, press RETURN or the right arrow key. MITE will automatically dial the number for you.To save the new information, press RETURN or the right arrow key . ESCape will take you back to the main menu without saving the file.Enter the password you received when you subscribed to the SourceThe Source may only use Telenet.Enter the user code you received when you subscribed to the Source. Enter the machine number you received when you subscribed to the Source. Enter the password you received when you subscribed to Compuserve. Compuserve may use either a direct connection or TymnetEnter the user number you received when you subscribed to CompuserveEnter the password you received when subscribed to Dow Jones. Dow Jones may use either Telenet or TymnetEnter the password you received when you subscribed to the Offical Airline Guide.The Offical Airline Guide may use either Telenet or TymnetEnter the user number you received when you subscribed to the Official Airline GuideEnter the password you received when you subscribed to Newsnet Newsnet may use either Telenet or TymnetEnter the user number you received when you subscribed to Newsnet. -ob!9s#rzK_!9^#V!^#V!9s#r!A!a!!78!B!0ͭ9! !Tq!9^#Vh! !Tq!?!Tq!!9s!B!4ͭ9!9&!ͤ5!C!4ͭ9!9^z`!9^͌tY{o`* +" !!9^#Vs!9^#V!Tq!<! 9s#rb`! 9^#V!^#V! 9s#r! 9~#a!! 9s#r! 9^#V^#V!9s#rá`!9^#V! ^#V!9s#r!9~#a!9^#V!^#V!9~#foloa!9^#V#^!{o`!! 9^#V!s#r! 9~#%a!9^#V! ^#V! 9^#V! s#r!9^#Vl!9^#V! ~#±a! 9^#V!^#V!9^#V!^#V!s#r! 9^#V!~#ʑa! 9^#V!^#V!9^#V!^#V!s#r*+"! 9^#Vl!9^#Vl!9^#V! ^#V!9^#Vs#r!9^#Vl!9^#V! 9s#rÌ`M`Are you sure you want to delete -o!!n!9r!A!!<!9s#rXb!9^#V!^#V!9s#r!9~#b!9^#V^#VBK{b! ^#VBKxʿb`i~#rb`i)!9s#r#+!9&e7lobrbCb+!! 9s#r!B!0ͭ9!9&es@!9s#rzcb!9^#Vâd)! 9^#V!! ͧoVc o#ͧoVc!d! ̀pͦoʾcloʄcþc!6ͧoʾc! ̀pͦoʻc!6Îcd!̀pͦocd!ͧoc!d!9^#V͌t!9s#r#!9s#r/d!9~#fo#s#r!9^#V{oʟd!9^#Vͧo]d!!9s#rÜd!9^#V)! 9^#V!^#V#^͌t!9~#foloʜd!9^#Vßd dd!c!d^#V!ccccYcccc!cccccccYccccccccc! 9^#V{o"e!C!0ͭ9! 9^#V!9&e! 9s#rb-o!9^#V! Ro $p##!9^#V! oE!9^#V)! 9~#fo^#V!^#V#!DMÇe`i#DM`iͦoex§e#+^÷e#+^͢t!TqÂe-ob!79s#rze!A!C!0ͭ9!h!!78!B!0ͭ9! !Tq!79^#V!^#Vh!9s#r! !Tq!C!0ͭ9!h`E!!9s!B!4ͭ9!9!9^#V!!ͤ5!C!4ͭ9!9^z¤f!!!!9r!9!DMf`i#DM`iͦo g!9^`iͦof#+^͌tf! `i!9sf!h!9Js!<!39s#r>g!39^#V!^#V!39s#r!39~#ʻg!39^#V^#V!59s#rrg!59^#V! ^#V!59s#r!59~#ʸg! !9!99^#V!^#V##͈sµg!h!!78e]g)g! !9!'9r! !99^#V!^#V#!9r!9!Tq! !%9!;9^#V!^#V#r!!99^#V!^#V#!;9^#V##^#Vr!!99^#V##^#V!s!79^#V##^#V#yh#~ʑhn&͢turhChange to what? PARThat name's already in use!-o! 9^#V#DM!h#ͦoi`i^! {oi`i#DM+^!Tqhs#r**^#V!s#r*^#V"!*s#r! 9^#VF>*s#r!*##s!*###s#r!":w=!=DM!`is!! s!! s#r! 9^#V! s#r`i ! s#r!! s#r!! s#r!õ>#! 9^#V#^! ͮ<?9?|>! 9^#V#^ ?! 9^#V#^1+ o o o o o-o!9^#V!pj!!9s#rn*Oj!OjDM~#\k++nf!9~#fopNknf!9~#fòppjnf`is#r!9~#fo!9s#rnf++!9~#fòp!9^#Vs#r!9^#Vsrnf!9~#fo##s#rs#r!9^#V`is#rDM^#VÍj!9̀p!9s#r!9^#V!9~#fopʢk mŸk!k! Tq!j!9^#V++s#r!9~#fo`is#r!9^#V##&r`i^#V+DM!! s#r`is#r## Out of Memory $-o! 9^#V++DM!Mj##^#Vz m++PYpm`i##ut##! s#rOj{oʳl++nf##PYloʳl`i^#V##~#fos#r##utDM`i^#V`i##lom##~#l!! s#rmnf##`i~#fos#rnf! s#r!%l-o*[j,o*Yj,o*Wj,o*Uj,oNpNpNp-o*Uj! 9~#fo{om*Wj! 9~#fo{om*Yj! 9~#fo{om*[j! 9~#fo{om*Uj*]jloʡm! 9^#V"Ujm*Wj*]jloʼm! 9^#V"Wjm*Yj*]jlom! 9^#V"Yjm*[j*]jlom! 9^#V"[j-o!DM*Oj++nnf++##~#)nnfPYDMn!9òpPY-o!DM*Oj++bnnf++##~#ʇnnfPYpʄnnfDMWn!9òp!9s#r!9^#V`ipʾn!9^#Vn`i-o*Oj| o!&r!9s#r!9^#V##"Oj!!9^#V##s#r!9^#Vs#r-o!changes |g}o|/g}/o^#V#DM!99`i,o|z2oo:oo&zo&|o}|>o&|o&z2oo:o2o))o#}o|gp :o=2oo}:o=2oo}DM!>))4p =,p}}/o|/g#}|ʅovo|g}o{_}p|p|7g}ocp{_}p)xp}}o|gN#F# N#F#zڡp{ҥp##^#VBK^#Vzp#yp###óp#xp#~#fo}|>?o&}|>o&{_}p|g}op|g}o~# x q!9o~#%q!2q|t* CqqWqq*oDM*oo&quqo&q*o*+++*oDM*o!9N#F#^#Vkb6#> 6 #= q>6#=©q : >q Ar[q@qar{r`w# .qrqrw#q{o|g rrw#r!!|a{ !9^#V*:q!9}|Hr*:q":q|!-o! 9N#F!`i^!-lo{r`i#DM!Îr`i^!+loʎr`i#DM!`i^ztr $p`i#DM+^Ôr|r҅ͦU~2RB#ž(BsB ͳͳ*i A[ ͳIͦͳ;!k BB ~2=B#~2>B#~2?B#~2@B#~2SB# FB~# : !b &ͦͳ! B ! GvT K@1b! "im2m! "iog7>͗INSTALL v2.8K - Mite Installation Program - Jun 28, 1984 Copyright (c) 1983,1984 Mycroft Labs Inc. $Syntax error in command $Illegal file name $Invalid option $Writing installed version to $ $ *** Installation Aborted *** $ MODEM SELECTION MENU - PLEASE CHOOSE ONE OF THE FOLLOWING INTERNAL MODEMS --------------- 1) Kaypro Internal Modem 2) Data Solvers 300 AD 3) Data Solvers 1200 SMT EXTERNAL MODEMS --------------- A) Anchor-Signalman Mark VII B) Anchor-Signalman Mark XII C) Bizcomp 1012 D) BYTCOM 212 E) Cermetek 212A F) CTS 212AH G) Datec 212 AD H) Hayes Smartmodem I) Incomm 212 J) Novation Smart-Cat K) Novation Smart-Cat PLUS L) Novation Auto-Cat 1200 M) Novation J-Cat N) Prentice POPCOM 1200 O) Prometheus PRO-MODEM 1200 P) Racal-Vadic 212 Q) Rixon 212A R) Toyocom 212 S) UDS 212A/D T) U.S. Robotics 212 U) U.S. Robotics Password X) Other Smart Modem Y) Manual Dial Modem Z) No modem - Direct Connect Enter modem selection: $12H3ABCD~ EF GgHIJKL M! NOP@ Q_ R~ S TUY Z ? ^NU 0^M^NP 44^M XY^ND ^Q^MDATAT DAT D%U 1,D ^E^MO^M16^M2^M^MI^M^E^MD^MQ^M^MQQ^M^MDOG0OG0ENDDTMITE/U.COMMITE.COM0123456789  KAYINT.HEXKPRO484.HEXDATASOLV.HEXI O !>ͳ  ͦ7 wx# !,>K M ͦ7~ j ͦ7# x PY4 T] j ͦ7PY<F 0 ͦ7T]vX  ͦ77?!<>ͳw  ͦ7  :w 2 2 2 2* " *w#"!5² : w v  ͦ7 7?*+ ͦ7222V}Unable to open input file $Unable to close input file $Unable to open output file $Error while writing file $Unable to close output file $Unable to open hex file: $Error while closing hex file: $Error while reading hex file: $EMULATE OVLJ. Bayt! B "@̓ڋ ͒ / >͗*ʅ Y~ 2@A* * <: o:@_* {ͧH:@͗ͳ! 4$ ͗ͳ@<͆ ͦ Y - Display Next Page * - Do Not Change Actual Terminal. Enter Option: $͆!H' ͦ&?ͦ Manufacturer's name: xxxxxxxxxxxxxxxxxxxx $ Y - Display Next Page X - Exit to Previous Menu. Enter Option: $yͦ Emulation Module vx.xx Copyright (c) 1984 DISCO-TECH. $ͽڋ >͗X$ Y*2@A <:  o:@_{ͳH :@͗ͳË ! 4*@DM@qlͳͳ@]ͦͦ7 IS NOT VALID.$! @7#q1د2@*@"@ڻ:@‘!@:@2ڑ@!@MÑ1د2@*@"@!@H͸@!@ M@72@!@@w#@2@@2@@2@ɷG*@͸ 94*X*@m"@~ͦͦ7 INSUFFICIANT MEMORY FOR OPERATION. $ Press any key to continue: $: ,:@2 xy @2: G:@xͧͦ >ͳ> >$2:  ,:@?2 xy@2:  G:@xxͳ ͦ >Cͳ>A x - xxxxxxxxxxxxxxxxxxxx$=*@ é~G# ¸7ɯ}o|g!)w#< >͋ @ɯ2@! @ @!@>ͳ>2@6@@D72@!w#O^iog"@i`i)|! ʗ! wy! w!*6#6!'6!,w! 6! 6!*6#6`i)|!&w!'6!$q#p!*~# &7!(N#F p+q!*N#F p+q2!,~>77!,w! 6! 6!*6#6`i)|!&w!$q#p!(q#p¬ͦ¬2cADisk Full - Job Aborted $ր:k_k=p=_k=2  :cA<2cAk!cA4 )2cA> _k=pk!*~#fo)|!&Sp!(N#Fp+q!*N#Fp+q7!,~‘>ˆªͦUnable to Close - Job Aborted $~###6####! "eA2vA2wA!eA=, w#:eA :eA.#:fA< ~##6#~#N#F^>2vAgA>mm>2wAgA>=2dA=~ʗ,ʗ:dA=2dA~`i:vAʰ!gA:wAgAͅ}|~##~#~####7կ > ~ #>  ~#:i"xA!O#9yT#~2*xA^~*xA.ʏ =*†>?! ~# =*»>?š7CONRDRPUNLSTNUL6<@͗>:͗ ͗x>.͗2րO!B ~#͗)CON:RDR:PUN:LST:NUL:ʻHʻ0:v0ÂAG7))))oY_$͗æ> ͗> ͗~#a{ G|}x+++*0~#!'~2րڊ…!$N#F>x!(q#p?   o& ##6 #6 !*w#6>!&~2~A!$N#F!(q#p!"|A "zA*zA!'w*zA "zA*|A "|A!~A5¬*|ADM!*q#px>! ~2A! ~2A!$~#fo"A"A!,F!*~#fox= )|2A2AʌW2 B[=_*A{kͦ*A "A!A5[: B_!*6#6!$N#F!(q#p!,~`2A:A! >2A! ~2A:Aw! ~2A:Aw*A"A:A2A`Ae*AAe#%"A!A5:A`! :Aw! :Aw>Disk Full - Job Aborted $ʏÆ0:+BOQD+HV: B}/o|/g#7!2 B+-2 BʻBʻ0)oʻOʻQʻ0)))oʻDʻ0 )T]))хo.$.Hʻ0:v0ÂAG "A!A5[: B_!*6#6!$N#F!(q#p!,~`2A:A! >2A! ~2A:Aw! ~2A:Aw*A"A:A2A`Ae*AAe#%"A!A5:A`! :Aw! :Aw>Disk Full - Job Aborted $ʏÆ0:+BOQD+HV: B}/o|/g#7!2 B+-2 BʻBʻ0)oXXX0000000123456789   * +7GSâÖÄØ!~6e>22222!P"*"}o|g}o"}o|g"!s#r#!9(!*m*+"}o|g"""+++"!t#:g:G/2:O|2yʐ͖M^*|G>>>>G2>>>>A2>>2>>*}!~ƒ6ͅ 9͙MÙʻ*w#*͐Ҹ*"*~#*͐*"!**͐7I 7ɷ>I7ɷL)>07ɷL@57ɷL E>07ɷ7>p _ Wn͐jV 72Kn,X `    %K«H=¹H777$@}>2@m>2ɷH7ɷ}mɷ}m>:2>x/G:2>:2Y>x/G:2>:>:>:2>x/G:2|}:Fʤg9~^¾#~.#̈́ `ì> .~#* ̈́0 > G>>̈́2͘$.#/^KZ.̈́ 9`9u͘ xda{͌„d͘*+|~#¦aabb E H6E6E *** MITE not installed *** Please run the Install program to select computer type. $!91v*z({(6E2H2w2;~2Bw2v2v2v2Hw2w2Pv2Qv>2v2w!"-~!:m2:~:] ʀ!\yq͈A% !,"v>O21~>2v2v2v2v2v2v2v2v:F²>2v>2w2v2v2v:12v:22v:32v:42v:G2v>2v>2v>2v>2v>2v>2v!Iw6# x 2w>2y>2y!y6# + c 8 :v; ̀:vͤ:v͡:vͧ*v͞:1~O>_ >ͪz :Qvz :Pvz Ô ͗D::~ ʙ !:~6 K¢ >2Pv>Gâ B6E;Fq?µ ́Ec BʝHC DF(F` G >2Qvh%H I LD MM O]3Pʂ1SCU>*X} >́Eß ́E͗D *Ev>PE:vc ʹq:v?:   ͗D9I v͐dp6EͷFʹqqXc ́E͗D&6E!yx0~aq6E~ ڗ > ́E~́Eâ >^́E~@́Eʹq#x q V6E;Fq? ` 0 : ́Eʹq0o&ͧGy w` Xc >́Eó !y # 7́E>Ͱ>ͭc ́E76Ev><E:vc G!vwqc ́E_Ac ́E͗D6E>2Aw> ́E:Aw0́E>:́E> ́E:Awo&))))))Kw*Eʹq:Aw<2Aw ^ 6EͷFqʹq?´ M Xc 0  2Awo&))))))IwK6Ev>=E:vM !vO ~  6+:v=2v :vG!vqM "EM !"( !%q!(7 !,q!<AG !?q!0^ !4^ !8q o > >^@Ô ́E6EͷFʹqqYc 2:vy.:v  6EͷFʹqqY >ͭ>ͰͿ r r >2Bw:v G ͼ *Cw~#"Cw ^ *Cw~#"Cw ^@*Cw~ #"CwqE: >2Ew NF 2Ew Wf ! Q ́EW-Q L ~#"Cw 0 !Kwʊ @=… "Cw P¸ ~#"Cw0 § > !d=­ Q T*Cw~#"Cw ^ ~#"Cw 2Fw͉  r r 6E 2/~́EW-:/~͆ ̓20~ ́EW-:0~G:Fw*0 ! :BwW W͌Ij2Bw:He r};FG:vxq2/~!vc !vš>ͳͼ‹>ͳ}!v;F!Kw"Cw! #*Cw@"Cw±>2Bw2Ew}:v:/~!v8}:1~O:v!v:/~>2Hw82Hw}:1~A#:v@:/~́EW- @:v@> ́EW-:/~͆:Bw`:Ew`́EW-@:1~O}:/~ }> ͱ́EW-͉@̓20~@G @:1~Oʼ:vʼ!v:0~¼>2Hw82Hw@:v:0~!Ky"Cw>2Bw2Ew@:v:0~q20~G:vxāEW-:0~ :v:v> āEW-:1~O@:v@:0~ͱ @> ͱ:v> āEW-:>Ͱ>ͭ6E:1~Aʗ%6EͷFc ! 6ʝ6EͷFʹqqYʝ7c$ͱæ͌ڵ͆*6~"8~ r r͉ *8~#|+ͼ+"8~|7̓:vʏ7"6~OFFON HALFFULLNONEODD EVENANSORG{MAIN MENU} G - Go Start Communications H - Hang Up Phone I - Enter Site ID L - Load Parameters from Disk File S - Save Parameters on Disk File Sub-Menus: P - Parameter O - Option U - Text File Upload D - Text File Download B - Binary File Xfer M - Macro Definition C - Command Processor F - Character Filter X - Exit to CP/M {Enter option (? for help):} ${MACRO STRING DEFINITION MENU} $ X - Exit to Main Menu {Enter option (? for help):} ${UNWANTED CHARACTER FILTER DEFINITION MENU} $ X - Exit to Main Menu {Enter option (? for help): }$ n: XXH = $Awaiting Carrier (ESC to abort) ${Carrier Detected} $No Carrier Detected ${Carrier Lost} $Illegal Option ${SYSTEM COMMAND PROCESSOR} Enter command, HELP or ? for details: {Explanation of symbols used:} {d:} stands for a drive name (A:,B:,etc.) {afn} stands for an ambiguous filename, for example: *.ASM, F*.*, etc. {ufn} stands for an unambiguous filename, for example: FRED.ASM, MITE.COM, etc. {$att} stands for a file attribute, which may be any of the following: {$DIR} - make file visible in directory {$SYS} - make file invisible in directory {$R/W} - make file Read/Write {$R/O} - make file Read/Only Type to return to SYSTEM COMMAND PROCESSOR{Command Error} $ Type to continue, X to exit to Main menu:$ Enter new value: $ Enter new ASCII character: $ Enter new phone number: ${Illegal Value} $ {Enter Filename:} ${No Directory Space} ${Filename Error} ${No Such File(s)} ${Unable to Close} $Capture complete. Now closing file ${Warning}... Carrier still present. Hangup (Y/N)? $Awaiting Incoming Call - abort with ESC $ Capture Buffer Reset to Empty $ {Not in Capture Mode, request ignored} $Now resuming previous call $ {*** Capture Buffer Overflow ***} $Transmission Complete $Now Dialing: ${There is already a file with that name.} Overwrite it (Y/N)? ${Maximum Error Count Exceeded} - Try again (Y/N)? $ {Send operation aborted} $Attempting to Synchronize $ Enter New Macro String: ${Receive Aborted} $File Received ${Timeout} {Send Aborted} $File Sent $ Are you sure (Y/N)? $Resuming Link $ {Disk Full} ${Invalid Parameter File} - Load aborted ${Warning}... old parameter file $ Enter Site ID: $Site ID = $nnnnn Compare Errors $The following special characters are available: @W Wait until no chars for 1 second @Pi Wait until no chars for "i"/10 second @Tn Trap on ASCII character "n" @E Turn on wait-for-echo @N Turn off wait-for-echo (default) @Li Link to Macro String "i" (0-9) ^M Carriage Return ^n Control character "n" If Macro String 9 is defined, it will be automatically sent once the connection has been established. If Macro String 8 is defined, it will be automatically sent in response to a Ctrl-E in TWX mode. Abort macro string transmission with ESC Type to continue$Type to continue${Insufficent Memory} $ {Macro String abort} $2> >2y2:<))06EͷF!:O͇6EͷFq2:O!͇:lgyKʹq: E͑2G~ʅ}####m#N#^#V7yO ^#Vy2ҥ06EͷF!~:O͇BK<~4b<~͹b́E÷<~b:6EͷF<~>!j~vb<7ɷ!<~Tm>2<~b7ɯ2!~<~͹bw# x<~b For the interactive help feature to work, MITE.HLP must be on the currently logged disk. - Press any key to continue -$MITE.HLPN 9!t"##$3$T$$$$$$%G% For help on a particular menu option press the letter of the option. For general help press "?" : $ MITE supports a variety of binary file transfer protocols. For more information press the letter of the protocol:$ Help is available on the following topics: A - General use of macros B - Special characters used in macros C - An example of macro usage D - Another sample macro Which topic interests you? $ Help is available on the following topics: A - What does the character filter do? B - How to enter a character to be filtered Which topic interests you? $ Help is available on the following topics: A - General information H - Ambiguous file name expressions B - Copy file I - Reset C - Dir J - Set file attributes D - Drive K - Size of file E - Era L - Space left on disk F - List M - Type file G - Ren N - User Which topic interests you?$ Help is available on the following topics: A - General information H - Menu of additional commands B - Append I - Protocol C - Buffer J - Read D - Capture K - Receive E - Echo L - Screen F - Exit M - Send G - Macros N - Write Which topic interests you?$GHILSPOUDB M C F XP?TTgBDPSRMANIHXS?UEMBKRCLTD Q!XS?VU"D#E$H%T&G'XS?WC(I)A*W+R,P-T.F/Q0S1XS?XP2S3R4XSCZ?YC5H6I7M8T9X:B[A;B<C\D]A=B>A?B@CADBECFDGEHFIGJHKILJMKNLAMB^CND_E`FPGaH IbJcKdLRMeNf?gVhBiCjNkMlHmIn͗D:v+ ҏ%5:v6E>Ͱ>ͭ::1~O&>ͪ*v͞6E>Ͱ>ͭ͹͛% rʷ% rc ÷%>ͭ>Ͱ>ͪ& rѷ& r&>Ͱ>ͭc ͹z%>ͭ>Ͱè%͹:v:'6E̓̓̓!'"*^#V#"z:&͞"v@&!'ڗ% z&͉@&̓n&>2Hw H6Ew*Eʹq:vʪ&;(:vaqA(c  (6E2Hw> ͱ́E> ͱ́E::w<2>ͪ>Ͱ>ͭ>Ͱ!H~ &#& '͹6EH*Eʹq!HͶ6Ez' rѷ-' rm'dͼ yH'͉0'̓́E0'z'"E>Ͱ>ͭ!5c ͹&>Ͱ>ͭc >Ͱ͹6E:v²'!y~: :"Cw>2Bw2Ew͹: ͹>ͱ!'́E'ʹq!>2yã*,X` %Incoming Call Answered -- Detecting Baud Rate $Remote Trigger Character = XXH = nn $́E͗D:v/ :w:/ :v/ :v/ :v0aq:v 0c :v+0aq:v10c .6E;Fq?°(́EF(C*)́E:v#):v)6Ev>PE:vF(!v|Tm(,"EF(|!-|>jF()"EF(>2v!"-~>2vF(2vF(I?)́E:w2wF(FT)́E:v2vF(Pi)́E:v2vF(Qz)́EͧG2vF(R‘)́E!"-~"EF(S¢)́EͧG2vF(W´)́E2y.F(A)́E>2y.F(T(*́E>2*-~DM!yOxGx*~#́E *:<2*>2ͷF*F( )ʹq6EͷFF(Xc >́EÚ("EF(́E͗D:v0 :v0 :vC1p:v1aq:v$1c :v0po06E;Fq?–*́E>*U“,́E>2y!"!:y*6Ev>PE:v>*!vyTm*,6EJ-y!z>vb*?6EJ-2:Hw22Hw r+ r\,͉D+̓D+! ND+3+!y͹b\,2/~:v_+:/~2/~:vn+:/~ +:/~ †+:> †+> ͱ> :vGʖ+ͼÌ+G:vxq2/~ͱ>2:v+:v++\,+!/~+*#"+:/~́EW-:/~ +2:v,,\, +> ́EW-:v6,! N6,́EW-!v#,!:v2: +=2B,́EW-B,:2Hwyb:vʁ,*T qʹqT6E:2Hwʹqy6EJ-G,́E6Ev>PE:v>*v~qA-|A-}2v>*T,́EͧG2v>*D -́E6Ev>PE:v>*v~qA-|A-}2v>*E-́E:v2v>*H4-́E:v2v>*Xc >́EÀ*"E>*!2Hw::vd-q:vw.*-~Î-w.w.w.w.w.w#"-~*}o|g«-R6E2v>:2|->*2:vc.*-~*r|c.-}c.:vͱ!,. -20~́E*-~w#"-~*|.}.R6E2v:v-:0~q-*-~}O|G|!xL.~͍c# >.!"-~!:vͱ w.:ww.:́E:v‡. "E*-~}O|G!|xʧ.~͍c# Ù.:.|9d.S"Eg6E|wpʹq ͹2v2v!"-~{TEXT FILE DOWNLOAD MENU} C - Capture Mode = XXX I - Capture Indicator = XXX A - Append Captured Data W - Write Captured Data R - Reset Capture Buffer P - Printer Echo = XXX T - Type Capture Buffer F - Flow Control = XXX Q - Flow Start Char. = XXH = NN S - Flow Stop Char. = XXH = NN X - Exit to Main Menu {Enter Option (? for help):} ${TEXT FILE UPLOAD MENU} U - Upload Text File D - Interchar. Delay = XXX E - Await Char. Echo = XXX H - CR/LF Handshaking = XXX T - Turnaround Char. = XXH = NN G - Garbage Char. Count = XXX X - Exit to Main Menu {Enter Option (? for help):} $́E͗D*vN5 q:wo&v qv!6w#w:v72p5:v5- !H16q!l6q!g6 q:v5L :v125:1~5< 56E;Fq?2Â1Xc BH2́E6Ev>PE:vʂ1v~qT3͞T3"vÂ1D`2́E:v2vͤÂ1Mu2́E:v2vÂ1NŽ2́E6E!H4Â1Pª2́E:v<ڡ22v͡Â1S2́E:v2vͧÂ1R2́E:1~A2>A21~Â1>O21~Â1H2́E76E!g 4Â1I3́E66E!4Â1AL3́E86Ev>PE:vʂ1v~qT3|T3}T32wÂ1>́E1"EÂ1́E͗D:v8 :vM7aq:vS7c :vr7aq:vx7c :v7aq:v7c :v7aq:v7c :v7aq:v7c :v(8 :vH8 :vh8 :w8  76E;Fq?4́E]3Xc C 4́E:v2v]3E44́EͧG42v]3MH4́EͧG42v]3B\4́EͧG42v]3Lq4́E:v2v]3T†4́E:v2v]3Kš4́EͧG42v]3R®4́EͧG42v]3D4́E:v2v]3Q4́E:w2w]3>́E3"E]36Ev>PE:v56 #5!v~5#5{PARAMETER MENU} B - Baud Rate = XXXXX D - Data Bits = X P - Parity = XXXX S - Stop Bits = X R - Role (ANS/ORG) = XXX M - Mode (Duplex) = XXXX A - Auto Redial Count = XX N - Phone Number = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX I - Modem Init String = XXXXXXXXXXXXXXXXXXXX H - Dial Prefix = XXXXXXXXXX X - Exit to main menu {Enter option (? for help):} $ Enter initialization string: $ Enter dial header string: ${OPTIONS MENU} E - Escape Trigger Char = XXH = NN M - Macro Trigger Char = XXH = NN B - Break Trigger Char = XXH = NN K - Local Command Char = XXH = NN R - Remote Command Char = XXH = NN C - Caps Lock = XXX L - Auto LF after CR = XXX T - TWX Mode = XXX D - Direct Connect Mode = XXX Q - Expand Tabs to CON = XXX X - Exit to Main Menu {Enter option (? for help):} $ Enter Auto Redial Count: $F=:Hw8a=6Ev>PEKE:vʹq!g9v C9C9q#O9yP9##~ 99v͐dʹq> #OC9(9[9 P9~#fo^6ECAPT+;APPE;WRIT;ECHO;EXIT!;MACR;READE:v!v:Tm;!(>vb;?"E>́E>2H,6E:Hwz `9qO`9qFC;2vN`9:vœ;6Ev>PE:v!v|Tmv;,6E|!-|>j‘;6E>2v!"-~>2vɯ2y.>2y.qO`9qF;2vN`9>2v!Iw#~#:́E> ́E~́E# ;ʹq@x ;ʹq>2yʣ*yTmң*,6E>2yʍIyTmҍI,6E>2y JyTm J,6E}=6EͷFqSŠ<ʹqʹqZA͐dLœ<ʹqʹq=6E?ª< ʹq>́Eʹq*-~}o|g;A q*}o|gHA q A6E:~q`9}2:=2<qO`9qF=2vN`9>2vqO`9qF;=2wN`9>2w {Local Command (or ?): }$ {Remote Command (or ?): }$Enter L for Local command options, S for System command options, ? for detailed descriptions : $ECHO ON Turn printer echo on ECHO OFF Turn printer echo off CAPTure ON Turn capture mode on CAPTure OFF Turn capture mode off CRC ON Turn XMODEM CRC mode on CRC OFF Turn XMODEM CRC mode off APPEnd Append capture buffer to file WRITe Write capture buffer to disk and close READ ufn Read disk file and upload it PROTocol Check/select binary protocol SEND ufn Send file using current protocol RECV ufn Receive file using current protocol MACR List defined macro strings BUFFer Print capture buffer statistics SCREen ON Allow incoming character to display SCREen OFF Disable console on incoming characters USE ufn Get "console" input from file EXIT Exit to System (Local command only) $Number of bytes captured = nnnnn out of nnnnn available $HELP6Ev>PE:v7!vyTm҈A,"E7:y ›A!Dyqy!z>vb¶A?"E7y͹bMA"E7͹bG>A"E!͹bw#A͹bg͹bo"v͞͹b2v͡͹b2vͤ͹b2vͧ͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v!w<͹bw#aB͹b2v͹b2v͹b2v͹b>OʇB>A21~͹b2v͹b2v͹b2v͹b2v͹b2v!y ͹bw#­B͹b2v!g ͹bw#B!Iw͹bw# xB!H͹bw#B͹b2w͹b2w͹b2w͹b2wb́E6Ev>PE:vc !vyTm6C,"Ec :y IC!Dyqy!z>jc hC"Ec y>M͍c>͍c!~͍c#€C*v|͍c}͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c!w<~͍c#C:v͍c:v͍c:v͍c:1~O>D>͍c:v͍c:v͍c:v͍c:v͍c:v͍c!y ~͍c#:D:v͍c!g ~͍c#ND!Iw~͍c# x]D!H~͍c#mD:w͍c:w͍c:w͍c:w͍c9dc PAR ECE H6E:vʰD!HüD!HڼD!HDHq*-~}o|g^H q*}o|gdH q:vuH DH6EKE|H6Ew*Eʹqʹq! F# E~#́EE6EùSE*E$SE6E>{SE>}SE{cE:Hw!:pE}E:Hw!@F#~́E#sEG:wxʥE ¥E> ́E:;~•EE ±E!;~5ûE »E!;~6Or!;~4:HwE:vE:5~EEͱO;F25~ }FFE ͋FE+FE ͣFE;F>#́EʹqMFQFMF͋FAFEsF>#́EʹqH oFͣFcFEͣF Eʹq25~x͑F >́E> ́E>́E ҁE>^́E@́E;F́E:BwF £G:HʄG͹brG F@HG͹b@ZGqDG͹b0 FFO ͹ GMF͹b0 F@!Kw2BwF^ZG͹brG^ZG:vnGGnGͼdGãG>2Hb rʣG rʑG rãG:HwʄG͉҄G̓6Ev>PE:v G^G:vG0G:Gv~q}ɷ rG rH;FH͉H̓G7HMITE v2.75 - Copyright (c) 1983, Mycroft Labs, Inc. $XXXXXXX. Bytes Captured = nnnnn/nnnnn. Capture = XXX. $Site ID = $DIRECT ONLINE OFFLINÉE͗D:vo&)))MKq:wK KK6E;Fq?H́EÝHCH́E:w<2wÝHPƒÍEʹqL6EͷF ʝHq?IHʹqC,I>2vÝHH9I>2vÝHIFI>2vÝHMSI>2vÝHT`I>2vÝHXmI>2vÝHBzI>2vÝH"EÝHSJ>2y/K:v£I>2CMI²I24~TII>24~TIIEXII.ZII,]II>2CMI2Hw6E:R}J>2y/K:v J>2CcPpJ/J24~͚UpJ?J>24~͚UpJJJOYpJUJ[pJ`J_pJpJ>2CcPpJ2Hw6E:X…Jc >́EH/KL6E;Fq?«JÍJ ʴqCJ́Eʹq>2vHJ́Eʹq>2vIJ́Eʹq>2vMJ́Eʹq>2vTḰEʹq>2vXḰEʹq>2vB'ḰEʹq>2v>́EÖJ:vo&)))MMqtM6E{BINARY FILE TRANSFER MENU} P - Protocol = XXXXXXXX C - CRC option (XMODEM) = XXX S - Send File and Return to Link R - Receive File and Return to Link X - Exit to Main Menu {Enter option (? for help):} $Now Sending $Now Receiving $All Files Sent $All Files Received $Checksum Error $ X - XMODEM (Single) B - XMODEM/B (Batch) C - CLINK & Crosstalk H - HAYES (Smartcom) I - IBMPC Async M - MITE Multi-file T - TEXT (mainframes) Enter new protocol code or CR for no change (? for help): $Unknown message type $Current Protocol is: XXXXXXXX $XMODEM CLINK HAYES IBMPC MITE TEXT XMODEM/B>2F:yN6Ev>PE:v9v"-Fn6N,6E:v2(:v2):v2*>ͤ>͡>ͧ2yy9"-o*-"+IN?6EOXS:Hw2>2Hw*+~Oyq"+y!z>vb:CP/6E>dRO>2/4L6Eywp:FS6Eʹq rN rN>ͱOy!0͹bڜOw#N:/<2/>26>ͱ:/ͱ/ͱ>2E!"G!0~ͱ͡S̓S#O:F"O:Eͱ-O*G|ͱ}ͱ!'FOʃO>T́EcOSO>.́EëN‘O>ŔE҈O:6<26 N6EͷFʹqqYN>ͱ6EOʈOͫSN>2=ʹq!':=ͱҿOڪOOªOybS6EVN:CO>dR>ͱ>ͱ>ͱS6E!ʹq:(2vͤ:)2v͡:*2vͧ>dR>ͱ!y >2E~ͱ͡S7P#.P>ͱ͡S!E>^P>uͱ>2J:w2FwP>C2J:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2HwXS:CP:yP6Ev>PE:v!vyTmP,6E!ͪRڂRʂRAL6Eywp:FS6Eʹqy!z>c>2//6E>2I:Jͱ!'dQVR>T́E҈R:I<2I#Q>2J>2FT6E#QʁQgR|Q6EgR>6R!6R27/G6R>6R>2E!"G!06Rw͡S̓S#®Q:FQ6R!ECRQ6R̓S6R̓S!G~#CR:7G:/R=.RVRy!0~͍cR6EVR# R:/<2/>.́E>ͱ)QVRͫSVR>ŔE>ͱ҈R)Q>ͱʹqf6EÈRʹqS6Ey9d>ͱ:CPS6E:(2vͤ:)2v͡:*2vͧ!>#Sد2y!y >2E͡SRRw#>ͱþR:Eͱ72D!SSCS:D=2DR6E7>2F2D!:Jͱ=SVS2SC2S:D=2D,S7!I!yg)sS|g}!ogSr$s%# ]S*GO!I ~W$^"G!Ew!ñSFile Sent $All Files Sent $File Received $All Files Received $ - using CRC$Switching to checksum $:yMT6Ev>PE:v!vyTmMT,6Ey!z>vbfT?6E:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw28>2/:8^U!"2y!0͹bTw#*2#"2 x°TT>28*2|^U rT rT6E^U>29V0WU>ĆESU*8~|U>T́ET::iU9U>.́E:/<3U2/ÚTNU>ŔE:9^UT>ÚE>29VT>29VTybʹq6E!:(2vͤ:)2v͡:*2vͧ:yU6Ev>PE:v!vyTmU,6Ey!z>j:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw>29 r!V r!Vf6EãV0W/V>ĆEfV*8~|GV:9V>T́EfV::WV>ŔEpVʣVvV>ÚE>mV>29VV*4DM!4yxʛV~͍cҖV6EãV# ÁV>.́EkV>29Vʹqz6Ey9d:(2vͤ:)2v͡:*2vͧ>ͱ!";:9*WW*2|*W}*W:4~W:/*W>*WDM!0~*W# xW>*W*;|ͱ}ͱͱX! MW8W!"8~X!X2:¨WXgXo"4DM:4~ʁW2/XW!4Xw# xWX XXWX_!";::XW*4|X}X:4~W:/X>XDM!4~X# xW>X*;{ Xz XX!7!G*;g)4X|g}o"; AXxG!X:ytX6Ev>PE:v!vyTmtX,6Ey!z>vbŽX?6E:Hw2>2Hw!`/6EҸX/Y"E/Y¤X>ͱ rX r/Yy!0͹b/Y Xw# XX!0͉Y̓9YY͉ Y̓ Y~#ͱ X>.́EX>ͱ> ͱybʹq6E!:y~Y6Ev>PE:v!vyTm~Y,6Ey!z>j:Hw2>2Hw/6E>ͱ!:һYZ>T́EÝYYY6EZ!!0Zw#Z Y>ͱ!0y~#͍c Y> ͍c>.́E>ͱY>ͱ> ͱy9dʹqz6E:yaZ6Ev>PE:v9v"KFnrZ,6Eɯ2yy9"Ko*K"MˆZ>ͱ?6E:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw̓̓̓!/6EZq[>ͱq[ZZ!'*M~w[y~#Z"My!z>vb>ͱ!y ͞[q[4L6Eywpʹqy!0͹b`[w#<[>ͱ!0͞[q[>.́E4[>ͱybʹqüZ6E>ͱPL6E:(2vͤ:)2v͡:*2vͧ~#ͱO¢[ͱ[[Þ[[>ÚE7:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw̓̓̓!`/6E\\>ͱ!'\\(\!y \2yy!z>c`\\AL6Eywpʹq>ͱ\Š\6E\ʗ\>ÚE\!0\\y!0~͍c#ª\>.́E>ͱt\y9dʹq \aL6E\>ͱ:(2vͤ:)2v͡:*2vͧ#]w#O\O ]>ŔE>ͱ\\:y[]6Ev>PE:v!vyTm[],6Ey!z>vbu]?6E:Hw2>2Hw2W͈_ڔ^y!0͹b{^ ʑ] ʬ]w#xڑ]6x2S:W02a:SapE_*Oa q!a~ ]>0w#]!ȯ a͝_ڔ^]:S0G͝_ڔ^^> ͝_ڔ^^ڔ^!ȯڔ^qR"^ڔ^q2Uk_ڔ^w_ڔ^^:UAn^:W< c^2W>.́EÃ]Xʔ^>ŔE]>E͝_> ͝_ybʹq6E!:vGʬ^ͼâ^:v^:v^^^7?7:v!^7 ^7?:v_! N _C__́E!v^!:v2T:T@_=2T:_C__́E_7?7!a^_:SG0^_"Ooe_$^_ k_:v |_ rʛ_ r›_7ɷ2V͉__!´_!ȯ:Vͱͯ^͛^:y`6Ev>PE:v!vyTm`,6Ey!z>j:Hw2>2Hw2X!ȯ>R͝_ژa>A͝_ژa> ͱژaw_ژa!ȯ!D"OژaqEʉaDN`͵aژa02W͵aژa }`>00yOOOp`y2S!ژa ¦`>00)DM)) oҶ`$—`"Q:SO!0y`͵aژaw# `6k_ژaw_ژa^ژa*O:Qa:Ra:WG:X勸:a= a> VaØa>R͝_ژa>N͝_ژa> ͝_ژa^ژa>ŔEB`!0y~La#͍c@a> ͍c> ͍c>R͝_ژa>A͝_ژa> ͝_ژa^ژa>.́E:X< ƒa2XB`y9dʹqz6E!ͱ*OoҰa$"Oa*Ooa$"O7?7D >2:*>2>2:*>2>22*>2>22*>2`i)|! Zb! wy! w!*6#6!'6!,w! 6! 6!*6#6`i)|!&w!'6!$q#pb!*~#b6rb!(N#F p+q!*N#F p+qb!,~>b7!,wfc! 6! 6!*6#6`i)|!&w!$q#p!(q#pocsc6Eoc2cDisk Full - Job Aborted $րc©c.d_.d=3d=»c_.d=c c :c<2cc.d!c4 c2c> _.d=3d.d!*~#fo)|!&ds3d!(N#Fp+q!*N#Fp+q7!,~Td>͍cKdsmdpd6EUnable to Close - Job Aborted $"Ì"nj!d6 # d!dd dqw#¬d5eɌ<~d#=d dd!ɌiTm~d#d!yTm!?edO#e ,e##~ e5e;e^#Vj6ECOPY eDIR fDRIVEfERA fHELP ygLIST gREN gRESETgSET gSIZE iSPACEiTYPE ,jUSER ]j!yq!C>vbej6Ei!>ceMk6E͹bei͍cebi9dfbk6EɌf:!f!f!fq2uh*Ì"Ō2*Ō~f ~f*Ō~Sf:<@́E:*Ō ~hf>x́E*Ō #~́Eyƒf> ́E qfGʴq:ʦf> ́E>|́E> ́E*Ō"Ō:<23fʹq/f*Ō"Ō3f:Ĵq*.*:ifDvÁEôq=_:q2h*Ì"Ō*Ō~mgiq:r`g:s`g>2iwp:QOg>?́E> ́EͷFqY]gik6Eʹq*Ō "Ōg:j6Ek6Ei!>vb™gj6E͹bڭgqG™g7vbigj6E!iyFwx# gij6E _ͅjhtk6E:z$:h!@h{qO#h 5h##~h:h^#Vj6EDIRUhSYSqhR/WhR/Ohh*Ì~h ~w\hh*Ì~h ~wxhh*Ì~h ~wÔhh*Ì~h ~wðh*njMDɌ*ÌFnhk6E7ɷh*Ìtj6E7*Ì~iqiiwpʹqhͅj#itk6EɌ8i:@i@i!fq2h!"*Ì"Ō*Ō~iiq:si>2iwpi###~#2~2 *: O :G}jŸi:=ʳi)ëi*"!k q!k6E*Ō "ŌVi:i*>k q0k6Ej6Eͅjitk6EDv2:ij=_͕tj qj6E:_i!>vbEjj6E͹bYj́EGEjôqb:j0pjpj _0́E>?́Eôq|g}o }No such file(s) $All files? $Filename conflict $Attribute error $System Command Error $nnnnnK Bytes Available $Filename Error $ erased$nnnnnk Bytes $Total size = nnnnnk Bytes $No directory space $Unable to close $Not available on this DOS $Available commands: COPY new=old copy one file to another DIR afnx list files in directory DRIVE d: set default drive ERA afnx erase file(s) HELP print available commands LIST ufn list file to printer REN new=old rename file RESET make all drives R/W SET afnx atr set attribute on file(s) SIZE d:afnx display size of file(s) SPACE d: display space remaining on disk TYPE ufn type file to console USER n set user number $կ > *n~"n nm#`m> *n ~q"n#:m"!!1nO#—myʲm#~m*!üm~*!nmnm.m "n="n*m>?*n|m|m&n! ~q"n# "n="n*n>?*n"nm&n7*nCONRDRPUNLSTNUL"i"k6`i"eDv<2o>+2m2h2n!#ʣnO:ny‰n+ʣn-ʣn"™n:n/2nqnw#qno6!#8Tmo:8n:o28n2o2D*eono6E8wpʹqóo2g:m-Lo*eʳo*k~,o# O# o #o####n!n*iw#2o"i6:h<2h*kn*k*e~ʲoʦo# #Oio Ÿo! ~#€o:h=2h*i "iPoUo ~Poo2mkn:h7No files match $"p62r2spq6>2r`pDv2tOp=p_>2s`po&)))))F*pp#w#Cp"p6!r4*p:spp:t_:rpˆpp<@́E>:́E ́Ex¤p>.́E”ppրO!p ~#́E¸pCON:RDR:PUN:LST:NUL:dp ppq py0ů2u'8q8qd8q 8q>2u8q}o|gHq;q zXq:u> ]q02upqpq yq0ʈqqq0 v:گuBfuOʇuQʇuDʯuHu v> ́E> ́E_~#qa{ G|q}x+++*r0~#qqqqqqqqqqqqqqqqq!'~Brրښr•r!$N#F>x!(q#p?   o& ##6 #6 !*w#6s>s!&~2z!$N#F!(q#p!"x "v*vr!'wr*v "v*x "x!z5¼r*xDM!*q#pxs>s! ~2! ~2~!$~#fo"{"!,F!*~#foxMs )|2}2ʜsDv2ks=_*{ʋs{t6E*{ "{!}5ks:_!*6#6!$N#F!(q#p!,~pt2:~! s>2! ~2:~w! ~2:w*"{:2}ptut*{ut#5t"{!}5"t:pt! :w! :w>Disk Full - Job Aborted $##~#2##^#V#"!" OyOt* #" tO*+"|»t* :)=to&"!" !* #" u# u7.uO~q#!u **#"qu *+* #" qt"vvqBv0 v v)oiu"vvqOvQv0 v v)))oÊu"vvqDv0 v v)T]))хoҲu$òu"vvqHv0 v:u0vA vG v7))))ou:v}/o|/g#7!2+5v-2> q> qN#F>x!(q#p?   o& Full - Job Aborted $##~#2##^#V#"!" OyOt* #" tO*+"|»t* :)=to&"!" !!'+.26;?CHPTX[]agkow~ &,247:>BMU\`hjprwx|  !"#$%&'()*/7<CHMPTW\dhjlmqs The G option takes you from the menu system to the terminal mode. If you are the originate system, and you have a phone number entered in the parameter menu, MITE will dial the phone and establish a connection to the remote system. MITE will not attempt to dial the phone if the direct option (option D in the option menu) is on. MITE will wait up to 45 seconds for the remote system to answer. Note that some modems will not wait 45 seconds for a carrier. If carrier is already present and you enter a 'G' command, MITE responds with "Now resuming previous call" and you are placed in the terminal mode. If you are not actually dialed into another system then this usually indicates that the modem switches are not properly set, or that the cable connecting the modem to the computer is not correct. For further information see the chapter in the MITE manual entitled "Modem and Cable Installation." If MITE is set to answer a call (option R in the parameter menu) a message indicating that it is awaiting a call is displayed. The call is detected by the modem answering the phone and raising the carrier detect signal.  The H option can be used to hang up the phone at any time. With some on-line systems, this may be the only way to terminate a session. Not all such systems support a "BYE" or "OFF" command that causes their carrier to go away. If you try to exit to CP/M with carrier still present, you will be reminded that it is still present, and asked if you wish to hang up at that time. Normally, when the carrier is lost, the phone is automatically hung up and control returns to the Main Menu. It is then possible to exit to CP/M. The proper functioning of this option depends on the actual implementation. Not all hardware systems will allow the software to hang up the phone.  The I option allows you to enter a one-line description of your site or the site you will be using. This "site ID" will be printed on the third line of each menu page. When using MITE in the ANSWER role, this site ID should be set to something identifying YOUR site. This ID will be sent to the user dialing into your system, along with the standard MITE greeting. If you are in the Originate role, the site ID is purely informational.  The L option allows you to load parameters from a previously saved parameter file. You will be prompted for a file name, which should be entered in the "d:fn.ft" format (e.g., B:SOURCE.PAR, RATOFF.1, B:CPMNET, etc.). If a file type is not specified, the default file type .PAR will be used. If the specified file is not found, you will be notified, and control will return to the Main Menu. If anything other than a valid parameter file is specified, MITE will abort the load command and issue the following message: "Invalid Parameter File" If a parameter file created with an earlier version of MITE is loaded, then you will be warned: "Warning - old parameter file." At this point you should check all parameters, change if necessary and resave them (on the same file, normally) with the new version of MITE.  The S option allows you to save the current parameters on a disk file for future use as a command line argument or as input for the L option. You will be prompted for a file name, which should be entered in the "d:fn.ft" format. If no file type is specified, the default file type .PAR will be used. Even though it is called a parameter file, it is not only the settings of the parameter menu that are saved. In fact, all parameters that can be configured from ANY of the menus will be saved. Once you determine how to access a particular system you can save a parameter file and in the future, by loading that file, you can instantly configure MITE to access the system again.  The P option selects the PARAMETER MENU. From this menu, you can easily check or set various communications parameters, such as the baud rate, the number of data bits, etc. Once control is transferred to this menu, it remains there until you exit to the Main Menu with the X option. For more information on the parameter menu go to the parameter menu and request help.  The O option selects the OPTION MENU. From this menu, you can select the "trigger characters", as well as several other options. Once control is transferred to this menu, it remains there until you exit to the Main Menu with the X option. For more information on the option menu go to the option menu and request help.  The U option selects the TEXT FILE UPLOAD MENU. From this menu, you can initiate the uploading of a text file to the remote system, or select various options which effect how this is to be done. Once control is transferred to this menu, it remains there until you exit to the Main Menu with the X option (with the exception of the "upload" function itself, which automatically returns control to the terminal mode once the upload is complete).  The D option selects the TEXT FILE DOWNLOAD MENU. From this menu, you can turn the text file capture mode ON or OFF. You can decide whether "flow control" (XON/XOFF handshaking) is used, and if so, what characters are used to start and stop the flow of data from the remote system. Once control is transferred to this menu, it remains there until you exit to the Main Menu with the X option.  The B option selects the BINARY FILE TRANSFER MENU. From this menu, you can initiate a transfer of any file (including executable files, etc.) to or from another system running MITE (or various other intelligent terminal programs) or an RCPM system. You can also select the protocol to be used. Once control has been transferred to this menu, it remains there until you exit to the Main Menu with the X option. As with the text file "upload", once the actual Send or Receive functions have completed, control is automatically returned to the terminal mode.  The M option selects the MACRO STRING DEFINITION MENU. From this menu, the user can view or change any of the ten macro strings which may be invoked via the "macro trigger" character. Macros are used to automatically login to the system you're accessing or to allow you to easily transmit frequently used commands. Once control has been transferred to this menu, it remains there until you exit to the Main Menu with the X option.  The C option selects the SYSTEM COMMAND PROCESSOR, from which the user can issue a number of commands similar to those available in the operating system command mode. These include such commands as DIR, ERA, and TYPE. Once control has been transferred to this menu, it remains there until you exit to the Main Menu with the X option, or enter an "empty" command line (i.e., immediate CR after prompt).  The F option selects the UNWANTED CHARACTER FILTER MENU. From this menu, you can view and modify up to 10 ASCII characters that should be discarded immediately upon receipt. These unwanted characters will not be displayed to the console or saved in memory. The first two of these characters default to 7FH (DEL) and 1AH (Control-Z). The NULL character (00H) is automatically discarded. Once control has been transferred to this menu, it remains there until you exit to the Main Menu with the X option.  The X option allows you to exit to CP/M. You will be asked to confirm this action before the exit is done: "Are you sure (Y/N)? " If you wish to exit at this time, type a "Y" or "y". Any other response will return control to the Main Menu. If you do elect to exit, and a capture file is currently open, MITE will automatically close it for you and inform you of this operation with the following message: "Capture Complete. Now closing file d:fn.ft" If the carrier is still present, MITE will inform you with the following message: "Warning... Carrier still present. Hang up (Y/N)? " If you are finished with the session, reply with anything starting with "Y" or "y", and MITE will hang up before exiting. If you merely wish to return to CP/M temporarily and plan to resume this link, reply with anything else (typically "N" or "n") and the hang up function will not be performed.  The B option allows you to select a new baud rate. You will be prompted as follows: "Enter New Value: " If an illegal value is entered (one not supported by your implementation and/or hardware), the message "Illegal Value" will be displayed, and the rate will remain unchanged. If an empty line (i.e., immediate CR) is entered, the rate will remain unchanged. The default value is 300.  The D option allows you to select the number of data bits in each character. This option toggles between the values 7 and 8. Most timesharing systems use 7 data bits, and most systems that support binary file transfers use 8. The default value is 7. Note that MITE will automatically make a temporary switch from 7 to 8 data bits if you request a binary file transfer.  The P option allows you to select the parity of each character. This option toggles between the values NONE, ODD and EVEN. Most systems that use 7 data bits will use EVEN parity, while most systems that use 8 data bits will use NONE. The default value is EVEN.  The S option allows you to select the number of stop bits on each character. This option toggles between the values 1 and 2. Most 110 baud (and slower) systems use 2 stop bits, virtually all other systems use 1. The default value is 1.  The R option allows you to select the "role" that MITE will play in a connection. The choices are ORG (originate) and ANS (answer). Selecting this option toggles between ORG and ANS. If you are dialing into another system, you should select the ORG role. If someone else is going to be dialing into your system, you should select the ANS role. Note that not all hardware will support the answer role. The default value is ORG.  The M option allows you to select the mode (or duplex) of the transmission. It toggles between the values FULL and HALF. When running in FULL-duplex, it is up to the remote system to echo any characters typed on the local keyboard back to the local display. In HALF-duplex, it is up to the local system to perform this echo function. If you are getting NO echoes of characters you type, you are probably running FULL-duplex on a HALF-duplex system. If you are getting TWO characters for every character you type, you are probably running HALF-duplex on a FULL-duplex system. Most on-line systems use FULL-duplex. The default value is FULL.  The A option allows the user to specify the number of times an auto-dial modem will automatically redial the Phone Number (specified in the N option) if the connection is not completed in the first dialing. The default is zero which means do not redial if the initial call is unsuccessful. The value can be set from zero to fifteen to indicate the number of desired retries before giving-up. A number above fifteen is flagged as an illegal value and is ignored.  The N option allows the user to specify the phone number of the remote site. If a "smart modem" is being used, consult its user manual for specifics as to legal characters. To enter a blank phone number, enter at least one blank character. If the phone number field is blank, the dialing procedure will be skipped. Thirty characters are reserved for this string.  The I option permits the user to initialize the modem with up to twenty characters. Some smart modems require software switches to be set before they will operate properly with MITE. If you are running MITE under CP/M, an appropriate string should be set by the INSTALL program. Recommended settings for some popular modems are: Modem Name Init String Dial Prefix ----- ---- ---- ------ ---- ------ Anchor Signalman Mark VII None None Anchor Signalman Mark XII None AT D BIZCOMP 1012 None None CTS 212AH None ^Q^MD Datec 212 None AT Hayes Smartmodems None AT D Novation Smart-Cat %I %D (space after D) Novation J-cat or Auto-cat None None Rixon 212A ^M^MNU AT D Toyocom (BYTCOM) 212AD Q^M^MQ Q^M^MD^W U.S. Robotics Modems None AT D Note: Additional modems may be found in the "Modem and Cable Installation" section of the MITE handbook.  The H option allows the user to specify a string of up to ten characters which are to precede the number in the dial string. For example, with the Hayes Smartmodem, an "AT D" must be sent to instruct the modem to dial a number. This string must be sent regardless of the number to be dialed. Therefore, the user may enter this string as the dial header string. Likewise, if a switchboard system is always used, part of the number may be included in the 10 characters allotted to the dial header, e.g., "AT DT9,". The combination of the dial header and the number string gives the user 40 characters to express the dial string. The recommended dial prefix for many popular modems may be found by requesting help on option I of this menu, or by looking in the "Modem and Cable Installation" section of the MITE handbook.  The E option allows the user to specify an "Escape Trigger" character that will allow control to be transferred from the link back to the Main Menu. Any time this user-specified character is typed while in link mode, the screen will be erased and the Main Menu will be displayed. From the Main Menu it is possible to initiate various functions, exit to CP/M, return to the link, or go to other menus. This "Escape Trigger" character should be specified as something not required on the remote system. The normal default value is 0AH (10 decimal), which is the ASCII Line Feed (LF) character.  The M option allows you to specify the "Macro Trigger" character. Any time this user-specified character is typed while in the link mode, a second character will be read. If it is a digit in the range 0 to 9, the corresponding macro string will be sent to the remote site as if it were coming from the keyboard. As with the "Escape Trigger" character, it should be specified as something not normally required for use on the remote site. A new value may be specified in the same manner as with the "Escape Trigger" character described above. The normal default value is usually 1BH (ESC). If the character selected is required by the remote site, it may be sent by typing it twice.  The B option allows you to specify the "Break Trigger" character. Any time this user-specified character is typed while in the link mode, a communications line BREAK function (SPACE condition for 150 milliseconds) will be performed. A BREAK is NOT a real character and is rather out-dated, but is still required by certain computer systems (mostly IBM).  The K option allows you to specify the "Local Command Trigger" character. Any time this user-specified character is typed while in the link mode, you will be prompted with "Local Command?". For further information, type the local command trigger while in terminal mode and request help. This function is disabled when the value 00H (null) is selected. The recommended value is ^K (0BH).  The R option allows you to specify the "Remote Command Trigger" character. Any time this user-specified character is typed on the ORIGINATE system while in the link mode, the ANSWER system will prompt you with "Remote Command?". In response, the ORIGINATE user can issue "local" commands on the ANSWER system. This allows an ANSWER system to be put on-line in an unattended mode, so that the ORIGINATE user can control both ends of a file transfer, check directory space, and perform other tasks all from the ORIGINATE system. The "Remote Command Trigger" character is specified by the ANSWER system operator. It is listed (if active, i.e., non-null) when an incoming call is answered, as part of the initial greeting. Output of "local" commands invoked via the "Remote Command Trigger" character actually goes to both systems, and as a matter of convenience, remote commands may be invoked and/or entered from either console. If you are the ORIGINATE system it is not possible for the remote system to issue commands that your system will process.  The C option allows you to select an automatic conversion of lower case characters to upper case both to and from the remote system. This affects only alphabetic characters and serves the same function as a CAPS LOCK key. The default value is OFF. Each time this option is selected, the value toggles between ON and OFF.  The L option allows you to select an Automatic LF (Line Feed) character to be sent on the local console any time a CR (Carriage Return) character is received. Some timesharing systems send only a CR at the end of each line, whereas most CP/M console terminals require both a CR and a LF to advance to the next line. The default value is OFF. Each time this option is selected, the value toggles between ON and OFF.  The T option allows you to enable or disable the Western Union TWX compatibility mode. It is possible to access any TELEX terminal in the world via either of two mechanisms supported by Western Union. When the TWX mode of operation is selected, the following differences are in effect: * Any time a Control-E is received, macro string number 8 will be sent as an "answerback" message. * On establishing a connection, MITE will send a Control-E and await the returned "answerback", echoing it to your console. Once this has been displayed, MITE will automatically ask for the name of the file to be uploaded and will send the file. * On detection of an incoming call, the normal header is suppressed. It should be sufficient to create a parameter file called TWX.PAR that will set up all parameters for accessing the TWX network. The TWX Mode requires the following options to be set: AUTO LF after CR = ON (option L on OPTIONS MENU) Mode(duplex) = HALF (option M on PARAMETER MENU) CR/LF Handshaking = OFF (option H on UPLOAD MENU) Baud Rate = 110 (option B on PARAMETER MENU)  The D option allows you to go into direct connect mode. This mode is used to "fool" the computer into thinking that a modem carrier signal has been received. This option should be used when connecting two computers together without the use of modems. Another use is direct communications with a "smart modem". In most cases, this option should remain OFF.  The Q option allows the user to expand tab characters to spaces or send the tabs themselves to the console. This will not expand tabs on transmission to the remote system, but only to the console. If this option is ON, any tab character sent to the console will be expanded to spaces to place the cursor at the next 8th character position. When receiving terminal control codes that MITE does not recognize, positioning of the cursor with tabs will cause invalid expansions. The escape codes will be counted as characters sent, but will have no effect on the cursor position. This option may be turned off to allow the terminal itself to position the cursor upon receipt of a tab. Each time this option is selected, the value toggles between ON and OFF. The default is ON.  The U option allows you to "upload" (send) a text file to the remote system as if it were coming from the keyboard of the local console. When this option is selected, you will be prompted for a file name, which should be entered in the "d:fn.ft" format. The specified file will be sent to the remote system, using the conventions selected by the other options on this menu. Once the file has been sent, the communications link will be resumed automatically. If an XOFF character (13H, or ^S) is received from the remote system during transmission, MITE will pause until an XON (11H or ^Q) is received before continuing to transmit the file. This will prevent many systems from losing data while transmitting. An upload can be aborted at any time by typing an ESC on the console keyboard. The READ local command performs the same function.  The D option allows you to specify an "intercharacter delay" of 0 to 255 milliseconds. This delay allows you to slow down the outgoing text to the point that a "slow" remote system can accept it. This function works in both FULL- and HALF-duplex. It is the only way to slow down text in HALF-duplex. The time starts with the actual transmission of the character, not counting the transmission time at whatever baud rate you are running. If the actual delay time is less than a single character time, there will be no effect. For example, at 300 baud, each character takes about 33 milliseconds to transmit, so values below 33 will have no effect. A value of 100 will result in about 10 characters per second being sent. This option does NOT affect baud rate, it merely inserts a variable length delay between characters which are being sent at the normal baud rate. The intercharacter delay works for text being sent through the macro strings as well as from a file. When this option is selected, you will be prompted for a new value. The default value is 0.  The E option allows you to enable or disable a "wait for character echo" mode. When this mode is enabled, MITE will wait for each character that it sends to be echoed back by the remote system before it sends the next character. This insures that data will not be lost even on the "slowest" remote systems. The overall throughput is much slower (usually about half) than the rate without the "wait-for-echo" enabled. When this option is enabled, MITE will compare each echoed character it receives against the character it sent and list the number of characters that didn't match at the end of the transmission (nnnnn Compare Errors). Each time this option is selected, the value will toggle between ON and OFF. The default value is OFF.  The H option allows you to select the end-of-line (CR/LF) handshaking mode. When this mode is enabled, any time a CR (Carriage Return) is sent, MITE will wait until the remote system sends back a LF (Line Feed) before sending the next line. This feature is required on most timesharing systems, as they are usually "deaf" during this interval. If the user wishes to communicate with a remote printer or simple data communications utility (such as those found on many commercial word processors), it may be necessary to turn this option OFF, as the remote site in these cases will not send a LF in response to a CR. Each time this option is selected, the value will toggle between ON and OFF. The default value is ON.  The T option allows you to specify a "turnaround" character. When set to 00H, this option is disabled. When set to any other value, MITE will wait at the end of each line until it sees the specified character before it begins to transmit the next line. This feature allows the user to upload text to remote systems that prompt with a question mark (?), or some other prompt. If the turnaround character is not seen within twenty seconds, MITE will send the next line. Typing the escape key during this twenty second timeout period will cancel the timeout and cause MITE to immediately send the next line. When this option is selected, you will be prompted to enter a new ASCII character. The default value is 0.  The G option allows you to set the "Garbage Character Count". This count refers to the number of characters that MITE will wait for, after transmitting a line, before starting to send the next line. Each such "garbage" character has a one-half (.5) second timeout. This feature allows the user to upload text to remote systems that send nulls, line numbers, or other extraneous characters at the start of each line before they are ready to receive the new line. When this option is selected, you will be prompted to enter a new value. The default value is 0. Note : The H, T and G options can be used in combination. The H option is processed first, then the T option, then the G option. This combination allows the user to select a mode such as "At the end of each line, wait for a '?', then ignore the next 2 characters with a one-half (.5) second timeout on each, then send the next line". Using the various options, it should be possible to upload text to virtually ANY on-line system.  The C option allows you to turn the text capture mode ON or OFF. The first time capture mode is enabled (or the first time after a Write operation), the user will be prompted for a file name: "Enter Filename: " This file name should be entered in the "d:fn.ft" format (e.g., FRED.TXT). Note that it is possible to specify a logical device ( e.g., LST:) in addition to disk file names. If the specified file already exists, you will be notified of this fact and asked if you wish to overwrite it. If you later exit to the operating system without writing the captured data to disk with the W option, MITE will automatically write it for you at that time. Each time this option is selected, the value will toggle between ON and OFF. The initial value is OFF. The CAPT local command performs the same function. The I option indicates to the user that the incoming data is being placed into the capture buffer. If capture is ON (C option above) and the I option is ON (default), the first column of the display will be used as a capture buffer indicator. Initially a colon (:) will be placed by MITE at the front of each captured line displayed to the screen. This colon is merely an indicator and does not go into the capture buffer; nor does it get saved on the disk. The colon indicates to you that the information on the screen is being captured and that more than 4K (4096) characters of yet unused capture buffer space is available. The indicator character (first of each line) is also used to let you know when the capture buffer is approaching capacity. When the space remaining in the buffer drops below 4K (4096) characters, the indicator character is changed to an asterisk (*). This is a warning to the user that some action needs to be taken at the earliest opportunity to avoid overflowing the capture buffer. If the sending system pauses before the capture buffer overflows, you can save the text either by going back to the download menu, or by issuing the appropriate local commands. Information on local commands may be obtained by issuing a help request while in terminal mode.  The A option allows the user to write a partial file from the capture buffer. The APPEND local command performs the same function. The data captured will be written to the file specified earlier and the buffer pointer will be reset to empty. Also, the capture mode will remain ON and the output file will remain open. This allows the user to capture several long sessions to the same file, flushing the buffer each time.  The W option is used to write any captured data to the file that was originally specified when capture mode was first enabled. If flow control is enabled, this may actually be the last (partial) buffer. When the write is complete, MITE will remind the user which file was being used: "Capture Complete. Now closing file d:fn.ft" The Write option will set the capture mode to OFF and reset the capture buffer to empty. When this option is selected, the write operation is performed at that time.  The R option allows you to reset the capture buffer to empty. This option is useful only when flow control is disabled.  The P option allows you to turn the "printer echo" function ON or OFF. Any time the printer echo is ON, any character that is written to the console during a link will also be written to the list device. In order for this to function properly, the list device must operate at an effective baud rate that is higher than that of the communications link. For slower printers, it may be necessary to use the "capture to LST:" mechanism or to capture the data to a disk file for later printing. Each time this option is selected, the value toggles between ON and OFF. The initial value is OFF.  The T option allows you to list the current contents of the capture buffer to the console. The listing will pause every 23 lines (and at the end of file), until you hit a CR to continue or ESC to abort the listing. Control-S can be used to cause a pause in listing at any time. This feature is normally of use only when flow control is disabled (otherwise you can only list the last "partial buffer").  The F option allows you to select whether "flow control" handshaking is to be used while capturing text. XON/XOFF (Control-S/Control-Q) characters are usually used to accomplish this handshaking. Many systems will pause when you type Control-S and start back up when you type Control-Q. If flow control is enabled, MITE will attempt to use this mechanism to cause the remote system to pause while it writes the data to disk it has captured since the last pause. This is normally done every 2048 bytes. When the flow stop character is sent, MITE will wait until a full second has elapsed since the last character arrived before writing to disk. This is necessary since some systems have characters in transmission when the flow stop character is read. If the remote system supports this convention, it is highly recommended that you take advantage of it. Each time this option is selected, the value will toggle between ON and OFF. The default value is OFF.  The Q option allows you to specify the flow start character as described under the F option. Most systems that have this feature use Control-Q. When this option is specified, the user will be prompted for a new ASCII character. The default value is ^Q.  The S option allows you to specify the flow stop character as described under the F option. Most systems that have this feature use Control-S. When this option is specified, the user will be prompted for a new ASCII character. The default value is ^S.  The P option allows you to select the protocol to be used in the transfer of binary files from one system to another. When the P option is selected, the list of available protocols will appear. To change the protocol, you may enter the character listed beside the desired protocol. Enter a CR (carriage return) if you wish to leave the protocol unchanged. Be sure that the system with which you plan to communicate supports at least one of these protocols. The default value is XMODEM. For more information on each protocol select the P option of this menu and request help.  The S option allows a file to be sent using the currently selected protocol. When this option is selected, you will be prompted for a file name, which should be entered in the "d:fn.ft" format. At this time, MITE will start sending the specified file to the remote system. A period (".") will be displayed on the console for each block sent and acknowledged as correct. An 'R' will be displayed for each block that was rejected. A 'T' (timeout) means that the remote system didn't respond in the required amount of time. A 'U' (unrecognized) means that your system received an unrecognizable message from the remote system. When the file has been completely sent, MITE will display the message: "File Sent" and the terminal mode will be resumed automatically.  The R option allows a file to be received using the currently selected protocol. When this option is selected, you will be prompted for a file name, which should be entered in the "d:fn.ft" format. At this time, MITE will start receiving the specified file from the remote system. A period (".") will be displayed on the console for each block received correctly. An 'R' will be displayed for each block that is received in error. Other characters that may appear are described in the help screen for the S option of this menu. When the file has been completely received, MITE will display the message "File Received" and the terminal mode will be resumed automatically.  CLINK The original Mycroft Labs binary file protocol. It is compatible with CLINK and CROSSTALK. MITE will also permit the user to receive an ambiguous file list from a CROSSTALK system if several conditions are met. Since CROSSTALK does not include the file name in the protocol, but uses the remote command feature to indicate the beginning of a new transmission, MITE's remote command trigger character must be set to "^C" in order to be compatible with CROSSTALK. MITE must also be the Answer system for the remote command to work. If MITE is the originating system, single file transmissions are required.  HAYES The Hayes Terminal Program Verification protocol. As used in the Smartcom communications package.  IBMPC The IBM Asynchronous Support Package text file protocol. This is not strictly a binary protocol, as only text files can be sent, and no error checking or retransmission is done.  MITE The native MITE protocol (as used in the Mycroft Labs SEND/RECV utilities, see the August, 1982 "Dr. Dobbs Journal"). This protocol supports multi-file transfers, e.g., all files of type .ASM. No file name is required on the receive end.  TEXT A simple ASCII text file protocol that can interact with a high-level language program on a minicomputer or mainframe to transfer text files with error checking and recovery. A sample program to interact with this protocol is provided on the MITE distribution disk. The program, written in FORTRAN, is on file TEXTP.FOR.  XMODEM The protocol used on most RCPM systems. It is compatible with MODEM7, XMODEM, MODEM80, and various other intelligent terminal programs. MITE supports either the checksum or CRC versions of this protocol. To select which will be used issue the CRC local command or set the C option in the binary file transfer menu.  This menu allows you to view and/or define up to 10 pre-stored macro strings each of which can be up to 62 characters in length. These strings are saved and loaded along with the parameters in the .PAR file. Typical uses for macro strings include semi- or fully automatic login or favorite commands. To define the "n"th string, type the number of the desired string (0 to 9). You will be prompted for a new string, which will then be displayed in the menu following the string number. To exit from this menu, use the X option. Any printable ASCII characters can be entered directly. To enter control codes (such as CR, LF, Control-X, Control-H), enter a caret (^) followed by the printable character corresponding to it. The MITE manual contains a list of control codes in the chapter discussing the macro string menu. To invoke a macro string during a session, enter the "Macro Trigger Character" (see Option Menu), followed by the "n"th index character as set up for your terminal (see Installation Notes). For most systems the index characters are set up as '0' - '9'. If the character following the "Macro Trigger Character" is NOT one of these index characters, then that second character is sent through normally. If the remote system needs the "Macro Trigger Character" itself, it can be sent by typing it twice.  There are several special control codes that may be used to automate the login process on many remote systems. The example in help option C is for The Source. The characters currently available are as follows: @E Turn on wait-for-echo mode @N No echo wait (default) @W Wait until no characters received for 1 full second @Pi Wait until no characters received for "i"/10 second @Tn Trap on the ASCII character "n" @Li Link to Macro String "i" (0-9) ^M Carriage Return (control-M is the ASCII character for a carriage return). The "wait-for-echo" mode forces MITE to wait for the echo of each character that it sends before proceeding to the next character. This mode defaults to OFF at the start of each string. Some systems will lose characters if this wait is not enabled. However, many systems do not echo initial CR characters, passwords, etc., and require a means of turning this mode on and off on a character-by-character basis.  This sub-menu gives the user the capability of ignoring certain characters received from the remote system. This feature may be useful when a micro is communicating with a mainframe that uses the delete character (7FH) as a pad character. Many microcomputers will do a character delete from the screen when the delete character is received. In order to prevent this deletion, the user would select the 7FH as a character to ignore from the remote system. The 7FH character is a standard character to be ignored. Another example of when the unwanted character filter is useful involves the Dow Jones Service. This service will sometimes send a 1EH code which will cause certain computers to home the cursor without clearing the screen which can cause havoc for the user.  Three methods of entering the value are allowed. The ASCII value of the character may be entered in decimal or in hexadecimal. The control character may be entered by pressing the Control key along with the appropriate character. In some cases the operating system will trap this and not return it to MITE. For these cases a third method of entry is needed. Enter "^" followed by the character (e.g., "^M" to indicate a carriage return, 0DH).  Available commands: COPY new=old copy one file to another DIR x:afnx list directory of files DRIVE x: select new drive as default ERA x:afnx [q] erase file(s) HELP print list of legal commands LIST x:ufn list file to printer REN new=old rename "old" file to "new" RESET make all drives read/write SET x:afnx $att give file(s) new attribute SIZE x:afnx list size of file(s) in k bytes SPACE x: show space available on d: TYPE x:ufn list text file on console USER n set user number The "system command processor" executes a number of commands similar to the CP/M "direct" commands (e.g., DIR, ERA, TYPE), as opposed to transient commands (e.g., STAT, ED). When this option is selected, any number of these commands may be entered, one at a time.  COPY new=old Simple file to file copy. Uses syntax similar to PIP (e.g., COPY DEMO=TEST.DAT to make a copy of TEST.DAT on the file DEMO).  DIR x:afnx List the names of all of the files on disk 'x' that satisfy the ambiguous file name expression (afnx). For example, "DIR *.ASM" will list the names of all files of type "ASM". If the drive (x:) is not specified, the current drive is assumed. Names of R/W files will be preceded with the standard ':'. Names of R/O files will be preceded with a '>'. SYS files are not listed. See help screen H for an explanation of ambiguous file name expressions.  DRIVE x: Equivalent to 'x:' by itself in CP/M command mode. This makes drive 'x' the new default (or current) drive.  ERA x:afnx [q] Erase all files on disk 'x' that satisfy the ambiguous file name expression (afnx). For example, "ERA *.ASM" will erase all files of type "ASM". If the drive (x:) is not specified, the current drive is assumed. If a second parameter of "q" is specified (ERA *.ASM Q), you will be asked YES or NO on each file before it is deleted.  LIST x:ufn List the specified unambiguous file to the printer.  REN new=old Give an existing file ("old") a new name ("new"). Note that both "old" and "new" must be unambiguous file names. Drive designations (x:) may be included in "old" and/or "new". For example, to change the name of the file "FRED.ASM" to "JOE.MAC", enter "REN JOE.MAC=FRED.ASM".  What is an afnx? An ambiguous file name expression is a list of ambiguous file names separated with + or - operators, for set inclusion or exclusion. A '+' means to include any of the file names covered by the following afn that are not already in the overall list. A '-' means to exclude any of the file names covered by the following "afn" that ARE currently in the overall list. Note that the drive name is not significant in the comparisons. As an example, the afnx "*.ASM+*.SRC-F*.*" would mean all files of type ".ASM" and all files of type ".SRC" except those beginning with 'F'. It is also possible to use an expression like "A:*.ASM-B:*.ASM" which means all files on drive A: of type ".ASM" except those that also occur on drive B:.  RESET Make all drives Read/Write again. Equivalent to a Control-C (^C) in CP/M command mode. Should be done any time a new disk is mounted.  SET x:afnx $att Give all files on disk 'x' that satisfy the ambiguous file name expression (afnx) the new attribute "att". If the drive (x:) is not specified, the current drive is assumed. Possible new attributes are: $DIR - make files visible in directory $SYS - make files invisible in directory $R/W - make files Read/Write $R/O - make files Read/Only For example, to make all files of type "COM" on the current disk Read/Only, use the command: "SET *.COM $R/O".  SIZE x:afnx List size of specified file(s) in K bytes, then list total size of those listed. This can be helpful for estimating transmission time for a file.  SPACE x: List space available on specified drive. If no drive is specified, the current drive is assumed.  TYPE x:ufn List specified file to the console. Control- S (^S) may be used to pause (once paused, any character will restart the listing). Any other character will abort the listing.  USER n Set user number (0 to 7).  To invoke the use of a Local Command in terminal mode, the user would type the "Local Command Trigger" character. The default (preset) and recommended character is ^K. This "Local Command Trigger" can be changed through option K on the OPTION MENU. Do not set the trigger value to 00H, since this effectively disables the function. Whenever the "Local Command Trigger" character is typed on the Local console while in terminal link mode, the prompt Local Command? is displayed. At this time, any system command (see SYSTEM COMMAND PROCESSOR) or any one of the Local Commands may be entered. Once the command has been processed, terminal mode will be automatically resumed. Note that only the first four characters of the Local Commands need be entered. If a file name is omitted, MITE will ask for it later.  BUFFer Prints the capture buffer statistics (i.e., number of bytes captured out of total space available).  ECHO ON or ECHO OFF Allows the user to turn the printer echo function ON or OFF. This is the same as the P option on the TEXT FILE DOWNLOAD MENU.  EXIT Exits to CP/M. Closes open files. Does not hang up the phone  READ d:fn.ft Reads specified file from disk and sends it as if it were coming from the local keyboard without interpretation by your system. 'd' is the drive name, "fn" is the file name, and "ft" is the file type. The drive name is optional; if it is not specified, the drive name is assumed to be the current logged drive. This is the same as the U option on the TEXT FILE UPLOAD MENU.  SCREen OFF or SCREen ON This option allows the user to turn screen output OFF or ON. When OFF, characters received over the communications link will not be displayed on the screen. It is useful on those systems whose video displays are too slow to keep up with communications. This most often occurs on machines without a separate terminal. Problems with losing characters at the beginning of lines would indicate this option might be necessary when uploading or capturing files.  The X option allows control to return to the Main Menu.  This is the principal menu which starts MITE and provides access to its other features through the sub-menus. If this is your first time using MITE, there are a couple of things you should know: 1) You can obtain help on any menu option by going to the menu containing the option and pressing a question mark. You will then be requested to enter a single character indicating the topic on which you wish help. In most cases the character will be the letter of the menu option. 2) While the large number of options available in MITE may seem imposing at first, every option exists to solve a specific communications problem. The general rule of thumb is "If you don't understand an option, don't change it." Each option has a default value that is appropriate for the vast majority of the systems with which you are likely to communicate. Most of the options that are likely to cause you confusion are intended to solve problems that you are not likely to encounter.  The current value of the parameter is displayed to the right of the option description for most options. If the value is changed, it is immediately updated on the menu display. Some of the options prompt the user for input (e.g., Baud). Others merely toggle between two or three states when selected (e.g., Mode). This approach makes it easy to determine the current setting of all parameters at a glance and gives immediate feedback when they are being changed. With all parameters, options, macro strings, etc., any change(s) you make will stay in effect only until you exit to CP/M, unless you use the S option on the Main Menu to make the change(s) permanent.  From this menu, you can select the "trigger characters", as well as several other options. Trigger characters are the characters you type while online to invoke some of the special features of MITE. Once control is transferred to this menu, it remains there until you exit to the Main Menu with the X option.  This menu is used to set the parameters that control how MITE will interact with the remote computer when trying to upload a text file.  This menu controls what MITE will do in terms of saving information as it is received from the remote computer.  This menu is used to control sending or receiving of binary files. A binary file may contain any type of information whatsoever, making this the recommended means of transferring information whenever possible. When files are transmitted using one of the protocols allowed by MITE you have the added advantage that if errors occur while transmitting the file the block in which the error occurred will be re-transmitted. MITE supports a variety of protocols to allow compatability with the widest possible range of programs to be running on the remote system.  The C option enables or disables the use of a CRC (cyclic redundancy check) for error detection. This option has no effect if a protocol other than XMODEM or XMODEM/B is in use. Many RCP/M systems default to using a CRC for error detection when transferring files. The advantage to using this option is that the probability of detecting a transmission error is somewhat improved.  This variant of the original XMODEM protocol is used to allow multiple files to be transmitted with a single command. It may use either a CRC or checksum for error detection. You may determine whether or not to use a CRC for error detection through the C option of the binary file transfer menu or the CRC local command.  As an example of an auto login, the following string may be used to logon to The Source via TELENET: ^M@W^M@E@T=d1^M@T@c 30128^M@T>id tcm495 xxxxx^M When invoked, this string performs the following functions: ^M First CR to get attention (not echoed) @W Wait until no characters have come in for 1 second. ^M Second CR to get attention (not echoed) @E Turn on wait-for-echo mode @T= Input and display characters until "=" is seen d1^M Response to "Terminal=" question on TELENET @T@ Input and display characters until "@" is seen c 30128^M Response to "@" prompt on TELENET @T> Input and display characters until ">" is seen id ...^M Source logon command  Another example of macro string usage is in automating commands used to control MITE. One common use for this is turning capture on and specifying the name of the capture file with the invocation of a single macro. A macro that will perform this function could look like the following: ^Kcapt on^Mexample.txt^M An explanation of this macro string follows: ^K Control-K. This is the local command trigger. It Tells MITE that a local command is comming. capt on The local command to turn capture on. ^M Carraige return. example.txt The name of the capture file. ^M Carraige return.  APPEnd Allows the user to write the captured data to the disk file without closing the file. Capture mode must be ON before you use APPEnd. The capture mode is left ON after the writing operation is completed. Since the file is not closed by APPEnd, another append or write to the same file is allowed. This is the same as the A option on the TEXT FILE DOWNLOAD MENU.  CAPTure ON or CAPTure OFF Allows user to turn text capture mode ON or OFF. he first time capture is enabled or the first time after a WRITe, MITE will ask for a file name. This is the same as the C option on the TEXT FILE DOWNLOAD MENU.  ECHO ON or ECHO OFF Allows the user to turn the printer echo function ON or OFF. This is the same as the P option on the TEXT FILE DOWNLOAD MENU.  MACRos Lists all non-blank macro strings to the console.  PROTocol Displays the current binary protocol, displays the list of available protocols and allows a new protocol to be selected. This is the same as the P option on the BINARY FILE TRANSFER MENU.  READ d:fn.ft Reads specified file from disk and sends it as if it were coming from the local keyboard without interpretation by your system. 'd' is the drive name, "fn" is the file name, and "ft" is the file type. The drive name is optional; if it is not specified, the drive name is assumed to be the current logged drive. This is the same as the U option on the TEXT FILE UPLOAD MENU.  RECV d:fn.ft Receives file transmission onto specified file using the currently selected binary protocol. 'd' is the drive name, "fn" is the file name, and "ft" is the file type. If you are using the MITE binary transfer protocol, the d:fn.ft (drive, file name and type) is ignored and the sending system will supply the file name. This is the same as the R option on the BINARY FILE TRANSFER MENU.  SEND d:fn.ft Sends specified file from disk using the currently selected binary protocol. 'd' is the drive name, "fn" is the file name, and "ft" is the file type. This is the same as the S option on the BINARY FILE TRANSFER MENU.  WRITe Allows the user to write the captured data (or the last part of it, if flow control is enabled) to disk. Capture mode must be ON before using WRITe. A WRITe closes the file and turns the capture mode OFF. This is the same as the W option on the TEXT FILE DOWNLOAD MENU.  The features available in the SPECIAL TERMINAL MENU are features that allow you to customize MITE by selecting menu options. The exact features available vary somewhat from one machine to the next. Features available on an IBM-PC may be different from those available on a Z-100. To see what features are available in your implementation select the T option of the MAIN MENU. While in the SPECIAL TERMINAL MENU help is available to explain how each of the features operates.  The V option, in association with the B option above, allows the user to re-define the location of the RS-232 port specified in the C option above. In particular, this option allows the user to change the Interrupt Vector Address. This option should normally be set to either 0030H(port 1) or 002CH(port 2) (as are the defaults). Extreme caution should be taken in changing these addresses to values other than those above. See descriptions of the C and B options above for a complete discussion of the port re-definition options. WARNING: This option should be used with caution.  The B option allows the user to re-define the location of the RS-232 serial port specified in the C option above. This option provides for the ability to change the Port Base Address from its pre-defined value. This is very useful when using an internal modem board in a PC "look-alike" such as the Columbia MPC. Some PC look-alike systems have the RS-232 ports on the main computer board and are not optional. Therefore, an alternate address must be used on the modem board. The B option, in conjunction with the V option (described below), allows this flexability. After selecting the B option, the user will be asked to enter the base address of the RS-232 port. Please check the documentation associated with the modem board or serial board being implemented for the appropriate address. This address should be entered in hexadecimal format, e.g., 03F8H. The address entered will be associated with the port number currently in the C option until the session is terminated unless the Save option (Main Menu) is used to save all parameters. WARNING: This option should be used with caution.  The C option allows the user to change between the three serial ports available on the PC. Entering a "C" will cause the port number to increment as well as change the Port Base Address and the Interrupt Vector Address. Each of these values may be changed individually and stored in association with the port number. See the following paragraphs on changing the Port Base Address and the Interrupt Vector Address. These values are stored on the parameter file when a "Save" is done.  The N option allows the user to change the normal foreground color if a color monitor is being used. After selecting the N option, the user will be shown the foreground color options below and can select the desired color. The color selected will be used for the normal foreground color for non-highlighted displays. COLOR SELECTION OPTIONS 0 - Black 1 - Blue 2 - Green 3 - Cyan 4 - Red 5 - Magenta 6 - Brown 7 - Yellow 8 - Dark Gray 9 - Light Blue A - Light Green B - Light Cyan C - Light Red D - Light Magenta E - Yellow F - White Enter Foreground Color Code:  The M option allows the user to change the normal background color if a color system is being used. After selecting the M option, the user will be shown the background color options below and can select the desired color. The color selected will be used for the normal background color for non-highlighted displays. COLOR SELECTION OPTIONS 0 - Black 1 - Blue 2 - Green 3 - Cyan 4 - Red 5 - Magenta 6 - Brown 7 - Yellow Enter Background Color Code:  The H option allows the user to change the highlighted foreground color if a color system is being used. After selecting the H option, the user will be shown the foreground color options above and can select the desired color. The color selected will be used for the highlighted foreground color for highlighted displays.  The I option allows the user to change the highlighted background color if a color system is being used. After selecting the I option, the user will be shown the background color options above and can select the desired color. The color selected will be used for the highlighted background color for highlighted displays. This is general help for the emulation menu. This option lets you select the manufacturer of the terminal you wish to emulate. This menu lets you select the model. This menu lets you select the keyboard overlay. This option turns the emulation feature on or off. This options toggles the debug flag. This option sets the intercharacter delay when sending function keys. Return to main menu. This selects no emulation and turns off the flag in the emulation menu. Go to the next list. Return to the emulation menu.  The E option allows the user to require a password when MITE is used in the answer role. When MITE answers the incoming call this value will be checked. If it is blank, any caller will be allowed access to the system. If this value is non-blank, the caller will be prompted with: ENTER PASSWORD: He will be given three attempts to enter the password that is entered via this option. The password may be up to three characters, upper or lower case. The default setting for the password parameter is blank. USE x:fn.ft The USE command specifies that instead of reading input from the keyboard, MITE should read from the specified file. Characters coming from the file are treated just as if they case from the keyboard. At the end of the file, control is returned to the keyboard. If a macro string is active at the same time as the USE file, the macro string has precedence. The following should be taken into account when creating a USE file: - All control characters in the file are ignored. This includes carraige returns and line feeds. - To issue a control character, use the '^' followed by the character. For example, a carraige return (control-M) is specified by ^M. - To delay 1 to 9 seconds, use a @Dn where 'n' is the number of seconds. - An ampersand (@) followed by any other character other than another ampersand or a 'D' will cause the ampersand and the other character to be ignored. The S option allows filtering of control characters from the text file as it is transmitted t he remote system. Only carriage returns (0DH) and (if necessary) line feeds (0AH) are passed through. This option also strips the high bit from the transmitted character before sending it. With this option "ON", WORDSTAR files may be transmitted to a mainframe or another microcomputer without first "Printing to a Disk File". This option should be "OFF" if transmitting files containing Tabs (09H) or other required control characters.  To allow for modification of macro strings, several special functions enable the user to move characters from the "old" string into the "new" string. These functions are defined below. ^L - Control L moves the next character from the "old" string into the "new" string. On the IBM, you may use the right arrow key. ^K - Control K moves all remaining characters from the "old" string into the "new" string. On the IBM, you may use the up arrow key. ^H - Control H delets the last character from the "new" string. On the IBM, you may use the left arrow key. ESC - The Escape key will reset the "old" string to the beginning and the "new" string to empty. This allows the user to abort and start again. The 'Starting Point' is where AUTOMITE gets the 'default' values from (i.e. the answers that will be accepted if just CR is typed). You can use either 'Internal Defaults', which is the set of values MITE uses if no .PAR file is loaded, or you can specify an existing site name. The latter option allows you to start with a file that may be just like you want with one or two minor exceptions, such as phone number or baud rate. When in doubt, use 'Internal Defaults' (just type CR in response to this question). A site 'filename' is up to 8 characters, any of which can be alphabetic or numeric (no special characters like slash). If you are defining a supported service, an appropriate default filename will be supplied for you. If you are creating more than one file for a given supported service / network combination (e.g. DJNS/Telenet), you should specify a unique name for each file. If possible, use the same first few characters for related files (e.g. SOURCE3 and SOURCE12 for 300 and 1200 baud files for the source). This name will be listed on the AUTOMITE main menu. The 'description of site' may be any phrase of up to 50 characters, and should be descriptive of the site you are defining. If you are defining one of the supported services, an appropriate default description will be supplied. This description will be displayed on the AUTOMITE main menu. The 'phone number' is the number of the site you are defining. It may include characters such as parentheses, dashes and spaces. Additional characters may be available for your particular smart modem (consult your modem manual). Some examples of such modem specific characters are: T - for forcing touch tone (instead of pulse) dialing (Hayes) , - to pause for 1 second before proceding (Hayes) The 'baud rate' refers to the speed at which you wish to communicate. Most modems support 110 and 300 baud (about 10 and 30 char/sec respectively). Some modems also support 1200 baud (about 120 characters per second). Be sure your computer, your modem AND the online service are all able to support the baud rate that you select. The 'character format' refers to the number of data bits and the parity. Your selection must be the same as that used by the remote online system in order to communicate properly. If you get gibberish on your screen, you may wish to try a different character format. Most online systems use 7 data bits and Even parity (7/EVEN). A few use 8 data bits and No parity (8/NONE). Virtually no other combination is found in practice. If you use 8/NONE and get greek characters, reverse video characters, etc, try switching to 7/EVEN. MITE has the capability of automatically logging in to many online services, such as Dow Jones, etc. In order to do this, it must know exactly how such a login procedure works. There is a flexible 'language' in MITE that allows you to specify exactly how to interact with such a login procedure, but it is somewhat complex to learn. AUTOMITE knows how these login procedures work on all the supported online services, and can ask you for just those items specific to your account (user number, password, etc.). If you want to have MITE login automatically for you, answer this question YES, and then answer all the specific questions asked for the service you are using. If you have a valid account on that service, you should have all of the information required. Once you have defined a site with auto login, KEEP CAREFUL TRACK OF THE .PAR FILE CREATED BY AUTOMITE. Anyone with that file (and MITE) can use your online account as easily as you can! AUTOMITE is a front-end menu system for the MITE communications program. It allows you to easily determine which online sites have been previously set up (defined), and allows MITE to be executed using the parameters for any of those listed sites. It furthermore allows you to easily define new sites, including automatic login. AUTOMITE knows how to set up parameter files for many online services, such as Dow Jones via Telenet. The site code (a single letter in the range A through J) is the first item on each line of the AUTOMITE main menu. To invoke MITE using that site, just enter the site code and sit back while MITE does its stuff. Option W allows you to advance to the next page of defined sites, if more than 10 sites are currently defined. When you are on the last page of sites, this option will return you to the first page. The X option allows you to exit to the operating system WITHOUT chaining to MITE. The Y option allows you to define a new online site. You will be asked a few short questions such as: - what online service (source, dow jones, etc.) - what phone number - what baud rate (300, 1200, etc.) - do you want to set up an auto login sequence If you select the last option, you will be asked for additional information, such as user number, password, etc. It is recommended that you have all such information handy before trying to define a new site. The Z option allows you to zap (delete) an existing site from the list of current sites. This will erase the .PAR file. You will be asked to confirm the action before it is done. The currently supported sites are those for which AUTOMITE knows how to set up parameter files. Note that a 'supported site' actually is a combination of an online service (such as Compuserve) with a network used to access it (such as Tymnet). The reason for this is that the details of the logon procedure are dependent on which network is used to access the given service. To choose one of the supported sites, select the one letter code to the left of the site name and description. If you want to set up a parameter file for some other site, select 'none of the above' (by typing CR). In this case, you will be prompted for character format, and will NOT be prompted to set up an auto login procedure. n for this is that the details of the logon procedure are dependent on which network is used to access the given service. To choose one of the supported sites, select the one letter code to the left of the site name and description. If you want to set up a parameter file for some other site, select 'none of the above' (by typing CR). In this case, you will be prompted for XXX000000E0123456789   ÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌÌaabb E H6E6E *** MITE not installed *** Please run the Install program to select computer type. $!91v*z({(6E2H2w2;~2Bw2v2v2v2Hw2w2Pv2Qv>2v2w!"-~!:m2:~:] ʀ!\yq͈A% !,"v>O21~>2v2v2v2v2v2v2v2v:F²>2v>2w2v2v2v:12v:22v:32v:42v:G2v>2v>2v>2v>2v>2v>2v!Iw6# x 2w>2y>2y!y6# + c 8 :v; ̀:vͤ:v͡:vͧ*v͞:1~O>_ >ͪz :Qvz :Pvz Ô ͗D::~ ʙ !:~6 K¢ >2Pv>Gâ B6E;Fq?µ ́Ec BʝHC DF(F` G >2Qvh%H I LD MM O]3Pʂ1SCU>*X} >́Eß ́E͗D *Ev>PE:vc ʹq:v?:   ͗D9I v͐dp6EͷFʹqqXc ́E͗D&6E!yx0~aq6E~ ڗ > ́E~́Eâ >^́E~@́Eʹq#x q V6E;Fq? ` 0 : ́Eʹq0o&ͧGy w` Xc >́Eó !y # 7́E>Ͱ>ͭc ́E76Ev><E:vc G!vwqc ́E_Ac ́E͗D6E>2Aw> ́E:Aw0́E>:́E> ́E:Awo&))))))Kw*Eʹq:Aw<2Aw ^ 6EͷFqʹq?´ M Xc 0  2Awo&))))))IwK6Ev>=E:vM !vO ~  6+:v=2v :vG!vqM "EM !"( !%q!(7 !,q!<AG !?q!0^ !4^ !8q o > >^@Ô ́E6EͷFʹqqYc 2:vy.:v  6EͷFʹqqY >ͭ>ͰͿ r r >2Bw:v G ͼ *Cw~#"Cw ^ *Cw~#"Cw ^@*Cw~ #"CwqE: >2Ew NF 2Ew Wf ! Q ́EW-Q L ~#"Cw 0 !Kwʊ @=… "Cw P¸ ~#"Cw0 § > !d=­ Q T*Cw~#"Cw ^ ~#"Cw 2Fw͉  r r 6E 2/~́EW-:/~͆ ̓20~ ́EW-:0~G:Fw*0 ! :BwW W͌Ij2Bw:He r};FG:vxq2/~!vc !vš>ͳͼ‹>ͳ}!v;F!Kw"Cw! #*Cw@"Cw±>2Bw2Ew}:v:/~!v8}:1~O:v!v:/~>2Hw82Hw}:1~A#:v@:/~́EW- @:v@> ́EW-:/~͆:Bw`:Ew`́EW-@:1~O}:/~ }> ͱ́EW-͉@̓20~@G @:1~Oʼ:vʼ!v:0~¼>2Hw82Hw@:v:0~!Ky"Cw>2Bw2Ew@:v:0~q20~G:vxāEW-:0~ :v:v> āEW-:1~O@:v@:0~ͱ @> ͱ:v> āEW-:>Ͱ>ͭ6E:1~Aʗ%6EͷFc ! 6ʝ6EͷFʹqqYʝ7c$ͱæ͌ڵ͆*6~"8~ r r͉ *8~#|+ͼ+"8~|7̓:vʏ7"6~OFFON HALFFULLNONEODD EVENANSORG{MAIN MENU} G - Go Start Communications H - Hang Up Phone I - Enter Site ID L - Load Parameters from Disk File S - Save Parameters on Disk File Sub-Menus: P - Parameter O - Option U - Text File Upload D - Text File Download B - Binary File Xfer M - Macro Definition C - Command Processor F - Character Filter X - Exit to CP/M {Enter option (? for help):} ${MACRO STRING DEFINITION MENU} $ X - Exit to Main Menu {Enter option (? for help):} ${UNWANTED CHARACTER FILTER DEFINITION MENU} $ X - Exit to Main Menu {Enter option (? for help): }$ n: XXH = $Awaiting Carrier (ESC to abort) ${Carrier Detected} $No Carrier Detected ${Carrier Lost} $Illegal Option ${SYSTEM COMMAND PROCESSOR} Enter command, HELP or ? for details: {Explanation of symbols used:} {d:} stands for a drive name (A:,B:,etc.) {afn} stands for an ambiguous filename, for example: *.ASM, F*.*, etc. {ufn} stands for an unambiguous filename, for example: FRED.ASM, MITE.COM, etc. {$att} stands for a file attribute, which may be any of the following: {$DIR} - make file visible in directory {$SYS} - make file invisible in directory {$R/W} - make file Read/Write {$R/O} - make file Read/Only Type to return to SYSTEM COMMAND PROCESSOR{Command Error} $ Type to continue, X to exit to Main menu:$ Enter new value: $ Enter new ASCII character: $ Enter new phone number: ${Illegal Value} $ {Enter Filename:} ${No Directory Space} ${Filename Error} ${No Such File(s)} ${Unable to Close} $Capture complete. Now closing file ${Warning}... Carrier still present. Hangup (Y/N)? $Awaiting Incoming Call - abort with ESC $ Capture Buffer Reset to Empty $ {Not in Capture Mode, request ignored} $Now resuming previous call $ {*** Capture Buffer Overflow ***} $Transmission Complete $Now Dialing: ${There is already a file with that name.} Overwrite it (Y/N)? ${Maximum Error Count Exceeded} - Try again (Y/N)? $ {Send operation aborted} $Attempting to Synchronize $ Enter New Macro String: ${Receive Aborted} $File Received ${Timeout} {Send Aborted} $File Sent $ Are you sure (Y/N)? $Resuming Link $ {Disk Full} ${Invalid Parameter File} - Load aborted ${Warning}... old parameter file $ Enter Site ID: $Site ID = $nnnnn Compare Errors $The following special characters are available: @W Wait until no chars for 1 second @Pi Wait until no chars for "i"/10 second @Tn Trap on ASCII character "n" @E Turn on wait-for-echo @N Turn off wait-for-echo (default) @Li Link to Macro String "i" (0-9) ^M Carriage Return ^n Control character "n" If Macro String 9 is defined, it will be automatically sent once the connection has been established. If Macro String 8 is defined, it will be automatically sent in response to a Ctrl-E in TWX mode. Abort macro string transmission with ESC Type to continue$Type to continue${Insufficent Memory} $ {Macro String abort} $2> >2y2:<))06EͷF!:O͇6EͷFq2:O!͇:lgyKʹq: E͑2G~ʅ}####m#N#^#V7yO ^#Vy2ҥ06EͷF!~:O͇BK<~4b<~͹b́E÷<~b:6EͷF<~>!j~vb<7ɷ!<~Tm>2<~b7ɯ2!~<~͹bw# x<~b For the interactive help feature to work, MITE.HLP must be on the currently logged disk. - Press any key to continue -$MITE.HLPN 9!t"##$3$T$$$$$$%G% For help on a particular menu option press the letter of the option. For general help press "?" : $ MITE supports a variety of binary file transfer protocols. For more information press the letter of the protocol:$ Help is available on the following topics: A - General use of macros B - Special characters used in macros C - An example of macro usage D - Another sample macro Which topic interests you? $ Help is available on the following topics: A - What does the character filter do? B - How to enter a character to be filtered Which topic interests you? $ Help is available on the following topics: A - General information H - Ambiguous file name expressions B - Copy file I - Reset C - Dir J - Set file attributes D - Drive K - Size of file E - Era L - Space left on disk F - List M - Type file G - Ren N - User Which topic interests you?$ Help is available on the following topics: A - General information H - Menu of additional commands B - Append I - Protocol C - Buffer J - Read D - Capture K - Receive E - Echo L - Screen F - Exit M - Send G - Macros N - Write Which topic interests you?$GHILSPOUDB M C F XP?TTgBDPSRMANIHXS?UEMBKRCLTD Q!XS?VU"D#E$H%T&G'XS?WC(I)A*W+R,P-T.F/Q0S1XS?XP2S3R4XSCZ?YC5H6I7M8T9X:B[A;B<C\D]A=B>A?B@CADBECFDGEHFIGJHKILJMKNLAMB^CND_E`FPGaH IbJcKdLRMeNf?gVhBiCjNkMlHmIn͗D:v+ ҏ%5:v6E>Ͱ>ͭ::1~O&>ͪ*v͞6E>Ͱ>ͭ͹͛% rʷ% rc ÷%>ͭ>Ͱ>ͪ& rѷ& r&>Ͱ>ͭc ͹z%>ͭ>Ͱè%͹:v:'6E̓̓̓!'"*^#V#"z:&͞"v@&!'ڗ% z&͉@&̓n&>2Hw H6Ew*Eʹq:vʪ&;(:vaqA(c  (6E2Hw> ͱ́E> ͱ́E::w<2>ͪ>Ͱ>ͭ>Ͱ!H~ &#& '͹6EH*Eʹq!HͶ6Ez' rѷ-' rm'dͼ yH'͉0'̓́E0'z'"E>Ͱ>ͭ!5c ͹&>Ͱ>ͭc >Ͱ͹6E:v²'!y~: :"Cw>2Bw2Ew͹: ͹>ͱ!'́E'ʹq!>2yã*,X` %Incoming Call Answered -- Detecting Baud Rate $Remote Trigger Character = XXH = nn $́E͗D:v/ :w:/ :v/ :v/ :v0aq:v 0c :v+0aq:v10c .6E;Fq?°(́EF(C*)́E:v#):v)6Ev>PE:vF(!v|Tm(,"EF(|!-|>jF()"EF(>2v!"-~>2vF(2vF(I?)́E:w2wF(FT)́E:v2vF(Pi)́E:v2vF(Qz)́EͧG2vF(R‘)́E!"-~"EF(S¢)́EͧG2vF(W´)́E2y.F(A)́E>2y.F(T(*́E>2*-~DM!yOxGx*~#́E *:<2*>2ͷF*F( )ʹq6EͷFF(Xc >́EÚ("EF(́E͗D:v0 :v0 :vC1p:v1aq:v$1c :v0po06E;Fq?–*́E>*U“,́E>2y!"!:y*6Ev>PE:v>*!vyTm*,6EJ-y!z>vb*?6EJ-2:Hw22Hw r+ r\,͉D+̓D+! ND+3+!y͹b\,2/~:v_+:/~2/~:vn+:/~ +:/~ †+:> †+> ͱ> :vGʖ+ͼÌ+G:vxq2/~ͱ>2:v+:v++\,+!/~+*#"+:/~́EW-:/~ +2:v,,\, +> ́EW-:v6,! N6,́EW-!v#,!:v2: +=2B,́EW-B,:2Hwyb:vʁ,*T qʹqT6E:2Hwʹqy6EJ-G,́E6Ev>PE:v>*v~qA-|A-}2v>*T,́EͧG2v>*D -́E6Ev>PE:v>*v~qA-|A-}2v>*E-́E:v2v>*H4-́E:v2v>*Xc >́EÀ*"E>*!2Hw::vd-q:vw.*-~Î-w.w.w.w.w.w#"-~*}o|g«-R6E2v>:2|->*2:vc.*-~*r|c.-}c.:vͱ!,. -20~́E*-~w#"-~*|.}.R6E2v:v-:0~q-*-~}O|G|!xL.~͍c# >.!"-~!:vͱ w.:ww.:́E:v‡. "E*-~}O|G!|xʧ.~͍c# Ù.:.|9d.S"Eg6E|wpʹq ͹2v2v!"-~{TEXT FILE DOWNLOAD MENU} C - Capture Mode = XXX I - Capture Indicator = XXX A - Append Captured Data W - Write Captured Data R - Reset Capture Buffer P - Printer Echo = XXX T - Type Capture Buffer F - Flow Control = XXX Q - Flow Start Char. = XXH = NN S - Flow Stop Char. = XXH = NN X - Exit to Main Menu {Enter Option (? for help):} ${TEXT FILE UPLOAD MENU} U - Upload Text File D - Interchar. Delay = XXX E - Await Char. Echo = XXX H - CR/LF Handshaking = XXX T - Turnaround Char. = XXH = NN G - Garbage Char. Count = XXX X - Exit to Main Menu {Enter Option (? for help):} $́E͗D*vN5 q:wo&v qv!6w#w:v72p5:v5- !H16q!l6q!g6 q:v5L :v125:1~5< 56E;Fq?2Â1Xc BH2́E6Ev>PE:vʂ1v~qT3͞T3"vÂ1D`2́E:v2vͤÂ1Mu2́E:v2vÂ1NŽ2́E6E!H4Â1Pª2́E:v<ڡ22v͡Â1S2́E:v2vͧÂ1R2́E:1~A2>A21~Â1>O21~Â1H2́E76E!g 4Â1I3́E66E!4Â1AL3́E86Ev>PE:vʂ1v~qT3|T3}T32wÂ1>́E1"EÂ1́E͗D:v8 :vM7aq:vS7c :vr7aq:vx7c :v7aq:v7c :v7aq:v7c :v7aq:v7c :v(8 :vH8 :vh8 :w8  76E;Fq?4́E]3Xc C 4́E:v2v]3E44́EͧG42v]3MH4́EͧG42v]3B\4́EͧG42v]3Lq4́E:v2v]3T†4́E:v2v]3Kš4́EͧG42v]3R®4́EͧG42v]3D4́E:v2v]3Q4́E:w2w]3>́E3"E]36Ev>PE:v56 #5!v~5#5{PARAMETER MENU} B - Baud Rate = XXXXX D - Data Bits = X P - Parity = XXXX S - Stop Bits = X R - Role (ANS/ORG) = XXX M - Mode (Duplex) = XXXX A - Auto Redial Count = XX N - Phone Number = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX I - Modem Init String = XXXXXXXXXXXXXXXXXXXX H - Dial Prefix = XXXXXXXXXX X - Exit to main menu {Enter option (? for help):} $ Enter initialization string: $ Enter dial header string: ${OPTIONS MENU} E - Escape Trigger Char = XXH = NN M - Macro Trigger Char = XXH = NN B - Break Trigger Char = XXH = NN K - Local Command Char = XXH = NN R - Remote Command Char = XXH = NN C - Caps Lock = XXX L - Auto LF after CR = XXX T - TWX Mode = XXX D - Direct Connect Mode = XXX Q - Expand Tabs to CON = XXX X - Exit to Main Menu {Enter option (? for help):} $ Enter Auto Redial Count: $F=:Hw8a=6Ev>PEKE:vʹq!g9v C9C9q#O9yP9##~ 99v͐dʹq> #OC9(9[9 P9~#fo^6ECAPT+;APPE;WRIT;ECHO;EXIT!;MACR;READE:v!v:Tm;!(>vb;?"E>́E>2H,6E:Hwz `9qO`9qFC;2vN`9:vœ;6Ev>PE:v!v|Tmv;,6E|!-|>j‘;6E>2v!"-~>2vɯ2y.>2y.qO`9qF;2vN`9>2v!Iw#~#:́E> ́E~́E# ;ʹq@x ;ʹq>2yʣ*yTmң*,6E>2yʍIyTmҍI,6E>2y JyTm J,6E}=6EͷFqSŠ<ʹqʹqZA͐dLœ<ʹqʹq=6E?ª< ʹq>́Eʹq*-~}o|g;A q*}o|gHA q A6E:~q`9}2:=2<qO`9qF=2vN`9>2vqO`9qF;=2wN`9>2w {Local Command (or ?): }$ {Remote Command (or ?): }$Enter L for Local command options, S for System command options, ? for detailed descriptions : $ECHO ON Turn printer echo on ECHO OFF Turn printer echo off CAPTure ON Turn capture mode on CAPTure OFF Turn capture mode off CRC ON Turn XMODEM CRC mode on CRC OFF Turn XMODEM CRC mode off APPEnd Append capture buffer to file WRITe Write capture buffer to disk and close READ ufn Read disk file and upload it PROTocol Check/select binary protocol SEND ufn Send file using current protocol RECV ufn Receive file using current protocol MACR List defined macro strings BUFFer Print capture buffer statistics SCREen ON Allow incoming character to display SCREen OFF Disable console on incoming characters USE ufn Get "console" input from file EXIT Exit to System (Local command only) $Number of bytes captured = nnnnn out of nnnnn available $HELP6Ev>PE:v7!vyTm҈A,"E7:y ›A!Dyqy!z>vb¶A?"E7y͹bMA"E7͹bG>A"E!͹bw#A͹bg͹bo"v͞͹b2v͡͹b2vͤ͹b2vͧ͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v͹b2v!w<͹bw#aB͹b2v͹b2v͹b2v͹b>OʇB>A21~͹b2v͹b2v͹b2v͹b2v͹b2v!y ͹bw#­B͹b2v!g ͹bw#B!Iw͹bw# xB!H͹bw#B͹b2w͹b2w͹b2w͹b2wb́E6Ev>PE:vc !vyTm6C,"Ec :y IC!Dyqy!z>jc hC"Ec y>M͍c>͍c!~͍c#€C*v|͍c}͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c:v͍c!w<~͍c#C:v͍c:v͍c:v͍c:1~O>D>͍c:v͍c:v͍c:v͍c:v͍c:v͍c!y ~͍c#:D:v͍c!g ~͍c#ND!Iw~͍c# x]D!H~͍c#mD:w͍c:w͍c:w͍c:w͍c9dc PAR ECE H6E:vʰD!HüD!HڼD!HDHq*-~}o|g^H q*}o|gdH q:vuH DH6EKE|H6Ew*Eʹqʹq! F# E~#́EE6EùSE*E$SE6E>{SE>}SE{cE:Hw!:pE}E:Hw!@F#~́E#sEG:wxʥE ¥E> ́E:;~•EE ±E!;~5ûE »E!;~6Or!;~4:HwE:vE:5~EEͱO;F25~ }FFE ͋FE+FE ͣFE;F>#́EʹqMFQFMF͋FAFEsF>#́EʹqH oFͣFcFEͣF Eʹq25~x͑F >́E> ́E>́E ҁE>^́E@́E;F́E:BwF £G:HʄG͹brG F@HG͹b@ZGqDG͹b0 FFO ͹ GMF͹b0 F@!Kw2BwF^ZG͹brG^ZG:vnGGnGͼdGãG>2Hb rʣG rʑG rãG:HwʄG͉҄G̓6Ev>PE:v G^G:vG0G:Gv~q}ɷ rG rH;FH͉H̓G7HMITE v2.75 - Copyright (c) 1983, Mycroft Labs, Inc. $XXXXXXX. Bytes Captured = nnnnn/nnnnn. Capture = XXX. $Site ID = $DIRECT ONLINE OFFLINÉE͗D:vo&)))MKq:wK KK6E;Fq?H́EÝHCH́E:w<2wÝHPƒÍEʹqL6EͷF ʝHq?IHʹqC,I>2vÝHH9I>2vÝHIFI>2vÝHMSI>2vÝHT`I>2vÝHXmI>2vÝHBzI>2vÝH"EÝHSJ>2y/K:v£I>2CMI²I24~TII>24~TIIEXII.ZII,]II>2CMI2Hw6E:R}J>2y/K:v J>2CcPpJ/J24~͚UpJ?J>24~͚UpJJJOYpJUJ[pJ`J_pJpJ>2CcPpJ2Hw6E:X…Jc >́EH/KL6E;Fq?«JÍJ ʴqCJ́Eʹq>2vHJ́Eʹq>2vIJ́Eʹq>2vMJ́Eʹq>2vTḰEʹq>2vXḰEʹq>2vB'ḰEʹq>2v>́EÖJ:vo&)))MMqtM6E{BINARY FILE TRANSFER MENU} P - Protocol = XXXXXXXX C - CRC option (XMODEM) = XXX S - Send File and Return to Link R - Receive File and Return to Link X - Exit to Main Menu {Enter option (? for help):} $Now Sending $Now Receiving $All Files Sent $All Files Received $Checksum Error $ X - XMODEM (Single) B - XMODEM/B (Batch) C - CLINK & Crosstalk H - HAYES (Smartcom) I - IBMPC Async M - MITE Multi-file T - TEXT (mainframes) Enter new protocol code or CR for no change (? for help): $Unknown message type $Current Protocol is: XXXXXXXX $XMODEM CLINK HAYES IBMPC MITE TEXT XMODEM/B>2F:yN6Ev>PE:v9v"-Fn6N,6E:v2(:v2):v2*>ͤ>͡>ͧ2yy9"-o*-"+IN?6EOXS:Hw2>2Hw*+~Oyq"+y!z>vb:CP/6E>dRO>2/4L6Eywp:FS6Eʹq rN rN>ͱOy!0͹bڜOw#N:/<2/>26>ͱ:/ͱ/ͱ>2E!"G!0~ͱ͡S̓S#O:F"O:Eͱ-O*G|ͱ}ͱ!'FOʃO>T́EcOSO>.́EëN‘O>ŔE҈O:6<26 N6EͷFʹqqYN>ͱ6EOʈOͫSN>2=ʹq!':=ͱҿOڪOOªOybS6EVN:CO>dR>ͱ>ͱ>ͱS6E!ʹq:(2vͤ:)2v͡:*2vͧ>dR>ͱ!y >2E~ͱ͡S7P#.P>ͱ͡S!E>^P>uͱ>2J:w2FwP>C2J:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2HwXS:CP:yP6Ev>PE:v!vyTmP,6E!ͪRڂRʂRAL6Eywp:FS6Eʹqy!z>c>2//6E>2I:Jͱ!'dQVR>T́E҈R:I<2I#Q>2J>2FT6E#QʁQgR|Q6EgR>6R!6R27/G6R>6R>2E!"G!06Rw͡S̓S#®Q:FQ6R!ECRQ6R̓S6R̓S!G~#CR:7G:/R=.RVRy!0~͍cR6EVR# R:/<2/>.́E>ͱ)QVRͫSVR>ŔE>ͱ҈R)Q>ͱʹqf6EÈRʹqS6Ey9d>ͱ:CPS6E:(2vͤ:)2v͡:*2vͧ!>#Sد2y!y >2E͡SRRw#>ͱþR:Eͱ72D!SSCS:D=2DR6E7>2F2D!:Jͱ=SVS2SC2S:D=2D,S7!I!yg)sS|g}!ogSr$s%# ]S*GO!I ~W$^"G!Ew!ñSFile Sent $All Files Sent $File Received $All Files Received $ - using CRC$Switching to checksum $:yMT6Ev>PE:v!vyTmMT,6Ey!z>vbfT?6E:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw28>2/:8^U!"2y!0͹bTw#*2#"2 x°TT>28*2|^U rT rT6E^U>29V0WU>ĆESU*8~|U>T́ET::iU9U>.́E:/<3U2/ÚTNU>ŔE:9^UT>ÚE>29VT>29VTybʹq6E!:(2vͤ:)2v͡:*2vͧ:yU6Ev>PE:v!vyTmU,6Ey!z>j:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw>29 r!V r!Vf6EãV0W/V>ĆEfV*8~|GV:9V>T́EfV::WV>ŔEpVʣVvV>ÚE>mV>29VV*4DM!4yxʛV~͍cҖV6EãV# ÁV>.́EkV>29Vʹqz6Ey9d:(2vͤ:)2v͡:*2vͧ>ͱ!";:9*WW*2|*W}*W:4~W:/*W>*WDM!0~*W# xW>*W*;|ͱ}ͱͱX! MW8W!"8~X!X2:¨WXgXo"4DM:4~ʁW2/XW!4Xw# xWX XXWX_!";::XW*4|X}X:4~W:/X>XDM!4~X# xW>X*;{ Xz XX!7!G*;g)4X|g}o"; AXxG!X:ytX6Ev>PE:v!vyTmtX,6Ey!z>vbŽX?6E:Hw2>2Hw!`/6EҸX/Y"E/Y¤X>ͱ rX r/Yy!0͹b/Y Xw# XX!0͉Y̓9YY͉ Y̓ Y~#ͱ X>.́EX>ͱ> ͱybʹq6E!:y~Y6Ev>PE:v!vyTm~Y,6Ey!z>j:Hw2>2Hw/6E>ͱ!:һYZ>T́EÝYYY6EZ!!0Zw#Z Y>ͱ!0y~#͍c Y> ͍c>.́E>ͱY>ͱ> ͱy9dʹqz6E:yaZ6Ev>PE:v9v"KFnrZ,6Eɯ2yy9"Ko*K"MˆZ>ͱ?6E:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw̓̓̓!/6EZq[>ͱq[ZZ!'*M~w[y~#Z"My!z>vb>ͱ!y ͞[q[4L6Eywpʹqy!0͹b`[w#<[>ͱ!0͞[q[>.́E4[>ͱybʹqüZ6E>ͱPL6E:(2vͤ:)2v͡:*2vͧ~#ͱO¢[ͱ[[Þ[[>ÚE7:v2(:v2):v2*>ͤ>͡>ͧ:Hw2>2Hw̓̓̓!`/6E\\>ͱ!'\\(\!y \2yy!z>c`\\AL6Eywpʹq>ͱ\Š\6E\ʗ\>ÚE\!0\\y!0~͍c#ª\>.́E>ͱt\y9dʹq \aL6E\>ͱ:(2vͤ:)2v͡:*2vͧ#]w#O\O ]>ŔE>ͱ\\:y[]6Ev>PE:v!vyTm[],6Ey!z>vbu]?6E:Hw2>2Hw2W͈_ڔ^y!0͹b{^ ʑ] ʬ]w#xڑ]6x2S:W02a:SapE_*Oa q!a~ ]>0w#]!ȯ a͝_ڔ^]:S0G͝_ڔ^^> ͝_ڔ^^ڔ^!ȯڔ^qR"^ڔ^q2Uk_ڔ^w_ڔ^^:UAn^:W< c^2W>.́EÃ]Xʔ^>ŔE]>E͝_> ͝_ybʹq6E!:vGʬ^ͼâ^:v^:v^^^7?7:v!^7 ^7?:v_! N _C__́E!v^!:v2T:T@_=2T:_C__́E_7?7!a^_:SG0^_"Ooe_$^_ k_:v |_ rʛ_ r›_7ɷ2V͉__!´_!ȯ:Vͱͯ^͛^:y`6Ev>PE:v!vyTm`,6Ey!z>j:Hw2>2Hw2X!ȯ>R͝_ژa>A͝_ژa> ͱژaw_ژa!ȯ!D"OژaqEʉaDN`͵aژa02W͵aژa }`>00yOOOp`y2S!ژa ¦`>00)DM)) oҶ`$—`"Q:SO!0y`͵aژaw# `6k_ژaw_ژa^ژa*O:Qa:Ra:WG:X:a= a> VaØa>R͝_ژa>N͝_ژa> ͝_ژa^ژa>ŔEB`!0y~La#͍c@a> ͍c> ͍c>R͝_ژa>A͝_ژa> ͝_ژa^ژa>.́E:X< ƒa2XB`y9dʹqz6E!ͱ*OoҰa$"Oa*Ooa$"O7?7D >2:*>2>2:*>2>22*>2>22*>2`i)|! Zb! wy! w!*6#6!'6!,w! 6! 6!*6#6`i)|!&w!'6!$q#pb!*~#b6rb!(N#F p+q!*N#F p+qb!,~>b7!,wfc! 6! 6!*6#6`i)|!&w!$q#p!(q#pocsc6Eoc2cDisk Full - Job Aborted $րc©c.d_.d=3d=»c_.d=c c :c<2cc.d!c4 c2c> _.d=3d.d!*~#fo)|!&ds3d!(N#Fp+q!*N#Fp+q7!,~Td>͍cKdsmdpd6EUnable to Close - Job Aborted $"Ì"nj!d6 # d!dd dqw#¬d5eɌ<~d#=d dd!ɌiTm~d#d!yTm!?edO#e ,e##~ e5e;e^#Vj6ECOPY eDIR fDRIVEfERA fHELP ygLIST gREN gRESETgSET gSIZE iSPACEiTYPE ,jUSER ]j!yq!C>vbej6Ei!>ceMk6E͹bei͍cebi9dfbk6EɌf:!f!f!fq2uh*Ì"Ō2*Ō~f ~f*Ō~Sf:<@́E:*Ō ~hf>x́E*Ō #~́Eyƒf> ́E qfGʴq:ʦf> ́E>|́E> ́E*Ō"Ō:<23fʹq/f*Ō"Ō3f:Ĵq*.*:ifDvÁEôq=_:q2h*Ì"Ō*Ō~mgiq:r`g:s`g>2iwp:QOg>?́E> ́EͷFqY]gik6Eʹq*Ō "Ōg:j6Ek6Ei!>vb™gj6E͹bڭgqG™g7vbigj6E!iyFwx# gij6E _ͅjhtk6E:z$:h!@h{qO#h 5h##~h:h^#Vj6EDIRUhSYSqhR/WhR/Ohh*Ì~h ~w\hh*Ì~h ~wxhh*Ì~h ~wÔhh*Ì~h ~wðh*njMDɌ*ÌFnhk6E7ɷh*Ìtj6E7*Ì~iqiiwpʹqhͅj#itk6EɌ8i:@i@i!fq2h!"*Ì"Ō*Ō~iiq:si>2iwpi###~#2~2 *: O :G}jŸi:=ʳi)ëi*"!k q!k6E*Ō "ŌVi:i*>k q0k6Ej6Eͅjitk6EDv2:ij=_͕tj qj6E:_i!>vbEjj6E͹bYj́EGEjôqb:j0pjpj _0́E>?́Eôq|g}o }No such file(s) $All files? $Filename conflict $Attribute error $System Command Error $nnnnnK Bytes Available $Filename Error $ erased$nnnnnk Bytes $Total size = nnnnnk Bytes $No directory space $Unable to close $Not available on this DOS $Available commands: COPY new=old copy one file to another DIR afnx list files in directory DRIVE d: set default drive ERA afnx erase file(s) HELP print available commands LIST ufn list file to printer REN new=old rename file RESET make all drives R/W SET afnx atr set attribute on file(s) SIZE d:afnx display size of file(s) SPACE d: display space remaining on disk TYPE ufn type file to console USER n set user number $կ > *n~"n nm#`m> *n ~q"n#:m"!!1nO#—myʲm#~m*!üm~*!nmnm.m "n="n*m>?*n|m|m&n! ~q"n# "n="n*n>?*n"nm&n7*nCONRDRPUNLSTNUL"i"k6`i"eDv<2o>+2m2h2n!#ʣnO:ny‰n+ʣn-ʣn"™n:n/2nqnw#qno6!#8Tmo:8n:o28n2o2D*eono6E8wpʹqóo2g:m-Lo*eʳo*k~,o# O# o #o####n!n*iw#2o"i6:h<2h*kn*k*e~ʲoʦo# #Oio Ÿo! ~#€o:h=2h*i "iPoUo ~Poo2mkn:h7No files match $"p62r2spq6>2r`pDv2tOp=p_>2s`po&)))))F*pp#w#Cp"p6!r4*p:spp:t_:rpˆpp<@́E>:́E ́Ex¤p>.́E”ppրO!p ~#́E¸pCON:RDR:PUN:LST:NUL:dp ppq py0ů2u'8q8qd8q 8q>2u8q}o|gHq;q zXq:u> ]q02upqpq yq0ʈqqq0 v:گuBfuOʇuQʇuDʯuHu v> ́E> ́E_~#qa{ G|q}x+++*r0~#qqqqqqqqqqqqqqqqq!'~Brրښr•r!$N#F>x!(q#p?   o& ##6 #6 !*w#6s>s!&~2z!$N#F!(q#p!"x "v*vr!'wr*v "v*x "x!z5¼r*xDM!*q#pxs>s! ~2! ~2~!$~#fo"{"!,F!*~#foxMs )|2}2ʜsDv2ks=_*{ʋs{t6E*{ "{!}5ks:_!*6#6!$N#F!(q#p!,~pt2:~! s>2! ~2:~w! ~2:w*"{:2}ptut*{ut#5t"{!}5"t:pt! :w! :w>Disk Full - Job Aborted $##~#2##^#V#"!" OyOt* #" tO*+"|»t* :)=to&"!" !* #" u# u7.uO~q#!u **#"qu *+* #" qt"vvqBv0 v v)oiu"vvqOvQv0 v v)))oÊu"vvqDv0 v v)T]))хoҲu$òu"vvqHv0 v:u0vA vG v7))))ou:v}/o|/g#7!2+5v-2> q> qN#F>x!(q#p?   o& Full - Job Aborted $##~#2##^#V#"!" OyOt* #" tO*+"|»t* :)=to&"!" !C C TEXTP - The Text Protocol C C This program is designed to run on a mainframe or minicomputer C and interact with the TEXT protocol in the MITE data communications C package. The protocol allows verified transmission of data into C environments that ordinarily are unable to perform verified transfers C of information. C C Because of the extreme variety of systems on which this program C may be implemented, this program is only a starting point. The C checksum routine will need extensive modification if the mainframe C is not using ASCII representations. The input/output will need to be C modified in most instances. What this program is intended to be is C complete documentation for the mainframe side of the protocol and an C aid in implementing a version in a specific environment. C C This version of TEXTP is written in Microsoft Fortran under CP/M-80. C C Developed October 1983 by: C C Donald Waldo C Mycroft Labs, Inc. C P.O. 6045 C Tallahassee, FL C 32314 C byte ifn(11) 5 write(1,10) 10 format(' Send (1) or Receive (2)?') read(1,15)iopt 15 format(i1) if((iopt.ne.1).and.(iopt.ne.2)) goto 5 write(1,20) 20 format(' Enter Filename') read(1,25)ifn 25 format(11a1) call open(5,ifn,0) if(iopt.eq.1)call send if(iopt.eq.2)call recv endfile 5 goto 5 end C C C C C Text file protocol - Receive C C This subroutine receives a file using the TEXT C file protocol. C subroutine recv integer*4 n,ick1,ick2,icksum,iconv,ick3 byte line(150) data iE/69/ iA/65/ iN/78/ iX/88/ C C Initialize expected message number C msgnum=0 C C Main loop - read lines and verify them. C Each line transmitted by MITE starts with a 'D'. This is followed C by a 1 digit message number which helps improve error detection. C Following the message number is a 3 digit count of the number of C data characters on the line. This is followed by a 5 digit (16 bit) C checksum. The checksum is a 16 bit sum of all characters on C the line not including the checksum itself. It is computed C by summing the ASCII representation of the characters and C ignoring overflow. The checksum is followed by the data characters. C 30 read(1,12)line 12 format(150a1) C C All done if 1st char = 'E' C if(line(1).eq.iE) goto 900 C C Aborted if 1st char = 'X' C if(line(1).eq.iX) goto 900 C C Get no. chars on line C n=iconv(line,3,3) if(n.lt.0) goto 40 C C compute checksum and verify against received value C ick1=iconv(line,6,5) if(ick1.lt.0) goto 40 ick2=icksum(line,1,5) j=n ick3=icksum(line,11,j) ick2=ick2+ick3 if(ick2.ne.ick1) goto 40 C C Verify message number C ick3=iconv(line,2,1) msg=ick3 if(msg.eq.msgnum)goto 34 if(msg.eq.msgnum-1)goto 36 if((msgnum.eq.0).and.(msg.eq.9)) goto 36 goto 50 C C Line is good. Write to disk and acknowlege. C 34 k=n+11 write(5,35)(line(i),i=11,k) 35 format(150a1) msgnum=msgnum+1 if(msgnum.eq.10)msgnum=0 36 write(1,37) 37 format(3h RA/) goto 30 C C Something went wrong. Request that the line be retransmitted. 40 write(1,42) 42 format(3h RN/) goto 30 C C Error - abort transmission C 50 write(1,52) 52 format(3h RX/) C C Transmission complete. C 900 return end C C C C C subroutine send C C Text file protocol send. C C The data lines sent to MITE follow the same format described above. C integer*4 icnt,ichk,iconv,icksum byte line(80),line2(80) data izero/48/ iblank/32/ iA/65/ iD/68/ iN/78/ iX/88/ C C Wait for OK from micro before sending first line. C read(1,20)line msgnum=-1 C C Get line from file C 15 read(5,20,end=50)line 20 format(80a1) C C Increment message number, but keep in range 0-9 C msgnum=msgnum+1 if(msgnum.eq.10)msgnum=0 C C determine count C i=80 24 if((line(i).ne.iblank).or.(i.eq.0)) goto 30 i=i-1 goto 24 30 icnt=i C C Blank-fill output buffer C do 32 i=1,80 32 line2(i)=iblank C C compute checksum C line2(1)=iD line2(2)=msgnum+izero call putnum(icnt,line2,3,3) j=10+icnt do 35 i=11,j 35 line2(i)=line(i-10) j=icnt+5 ichk=icksum(line2,1,5) ichk=ichk+icksum(line2,11,icnt) call putnum(ichk,line2,6,5) 40 write(1,45)line2 45 format(1X,80a1/) C C Get ack or nak C read(1,20)line if(line(2).eq.iN) goto 40 if(line(2).eq.iX) goto 60 if(line(2).ne.iA) goto 60 goto 15 50 write(1,55) 55 format(2h E) return 60 write(1,65) 65 format(2h X) return end C C C subroutine putnum(num,ibuf,ist,ilen) integer*4 ipwr,num,itemp byte ibuf(150) data izero/48/ iptr=ist itemp=num ipwr=1 j=ilen-1 do 5 i=1,j 5 ipwr=ipwr*10 10 j=itemp/ipwr ibuf(iptr)=j+izero itemp=itemp-j*ipwr ipwr=ipwr/10 iptr=iptr+1 if(iptr.lt.ist+ilen)goto 10 return end C C C integer*4 function icksum(ibuf,ist,len) byte ibuf(150) integer*4 k,maxint C C This function computes a checksum as described above. C maxint=2**16-1 k=0 j=ist+len-1 do 10 i=ist,j k=k+ibuf(i) if(k.gt.maxint)k=k-maxint-1 10 continue icksum=k return end C C C integer*4 function iconv(ibuf,ist,len) byte ibuf(150) data izero/48/ iblank/32/ ipw=10**(len-1) k=0 j=ist+len-1 do 10 i=ist,j ich=ibuf(i) C C Convert blanks to zeros C if(ich.eq.iblank)ich=izero n=ich-izero if((n.lt.0).or.(n.gt.9)) goto 99 k=k+ipw*n ipw=ipw/10 10 continue iconv=k return 99 iconv=-1 return end  maxint=2**16-1 k=0 j=ist+len-1 do 10 i=ist,j k=k+ibuf(i) if(k.gt.maxint)k=k-maxint-1 10 continue icksum=k retuATCH 1 Enter disk drive (A/B...): Enter name of batch file: #@CAP##A!GGGGGGGG#CLIENTSRO ----------------------------------------------------------------- | CUSTOMER RECORD | | | | NAME: ID: | | Street: | | City: | | State: Zip: Phone: () | | | | Balance: Last Update: // | ----------------------------------------------------------------- 򠱮 ҮƠ宠 Ү @ CUSTOMER NAME 0@ID@ADDRESS@CITY@STATE @ZIP4@AREA9@PHONE,  x$888888.99BALANCE,: @MO= @DA@ @YR Ү @ CUSTOMER NAME 0@ID@ADDRESS@CITY@STATE @ZIP4@AREA9@Joe Anybuyer,ASO,321 Easy Street,South Succotash,OR,84653,303,586-6542,6635.06,08,31,82 Barney Addsmore,AUM,1A Broadway,Upper Heights,ME,19631,101,234-8976,9275.81,08,31,82 John Goodguy,GBN,49 Main Street,Benkelman,NE,67465,218,341-9191,5715.98,08,31,82 Mary Ordersbodkins,OMC,593 E. Blissdale,Mill Valley,CA,94324,915,361-9203,8975.72,08,31,82 Fred Paysontime,PCI,2143 South 50th Street,Cameron,OH,60698,411,989-3426,6876.93,08,31,82 Sally Sendemback,SRC,88 Circle Road,Roundview,CO,63986,821,443-9901,8949.89,08,31,82 ,,,,,,,,,,, eights,ME,19631,101,234-8976,9275.81,08,31,82 John Goodguy,GBN,49 Main Street,Benkelman,NE,67465,218,341-9191,5715.98,08,31,82 Mary Ordersbodkins,OMC,593 E. Blissdale,Mill Valley,CA,94324,915,361-9203,8975.72,08,31,82 Fred Paysontime,PCI,2143 South 50th Street,Cameron,OH,60698,411,989-3426,6876.93,08,31,82 Sally Sendemback,SRC,88 Circle Road,Roundview,CO,63986,821,443-9901,8949 ASOJoAUMBaZGBNJo0OMCMaPCIFr^SRCSa9CLIENTSRDTACLIENTSR$$$Automated Products,23467 Hollywood Blvd,Los Angeles,CA,90039,1111111 Business Electronics,1700 Fifth Ave.,New York City,NY,10011,2222222 Computer Devices,1455 Van Ness,San Francisco,CA,94926,3333333 The Computer Center,1555 Fifth Avenue,New York,NY,10017,4444444 Electronic Ecstasy,3218 Collins Ave.,Miami,FL,33139,5555555 Futuristic Funthings,Five-fifty 55th St.,Fresno,CA,93706,6666666 Global Gizmos,36477 N. W. First St,Portland,OR,97231,7777777 Herb's Computer Co.,1980 Main Street,Scarsdale,NY,10583,8888888 Integrated Systems,9000 Main Street,Dallas,TX,75207,9999999 ,,,,, 1,2222222 Computer Devices,1455 Van Ness,San Francisco,CA,94926,3333333 The Computer Center,1555 Fifth Avenue,New York,NY,10017,4444444 Electronic Ecstasy,3218 Collins Ave.,Miami,FL,33139,5555555 Futuristic Funthings,Five-fifty 55th St.,Fresno,CA,93706,6666666 Global Gizmos,36477 N. W. First St,Portland,OR,97231,7777777 Herb's Computer Co.,1980 Main Street,Scarsdale,NY,10583,11111112222222G3333333 4444444K5555555 6666666I7777777 8888888I9999999  99999CLIENTSRDTACLIENTSRNDXCUSTOMERDTACUSTOMER$$$40ÌD@  Copyright (c) 1978, 1984, MicroPro International Corp.  DataStar Release 1.42 ID # 612203KP-00A  KAYPRO Computer    "eP= B0B1C0C1 *2!*2  :Ie2 ͔A F ͔A*," WpBĜL=B:N?F@ y چ> ~O!*~ZdI'PPU> 6 ͨ$>2 >2 ͕8*r/~"r/<#- "r/6 :s"> : /! ~ʒ5T* ~ //~: ʑ! 4^*x/~f#~{EHͦG_ 5…͠ 2 P!I? {* ~EH1> :»Fچ §: ʾ§: >j :† ! wtچg : †!I' g!P͒ځ>Á4P: g_ 5Q:sQZ?з4 ;د: wm: !I?7ʁ: "!I' gP͞=4g=P:!I^E, Ag!I^E.9_@YNʧ͞=gP͒ҒÁ,4   9͞=g9͒#Ç* 61* @1* 61* @1O: y7>V2 > ͽ*wC~#ͽ:uf> ͽ:vʐ> ͽGc> ͽG³: ³͵ ͆H^GG{  d>_ >:d> > * ,!&5O> F#~#~  x2&y: :*x/^! sT* F >~: {: fÚ͆&=B * ",22EJL͆g̓͠ ͆!EJ~µ6W *?" *?" g! 3g<*{" 61͆ !*v/: g|g|,E0g!I?Í! ~6 !s >:: +͠ ͨ$! ~2 #s > *r/\~ A#V<6:#]++ *IͰFq ~#z> +q#! ~y5! 6* "?* "?* "{@1>@í͵gG! ~w>͵\ 2 \ \ E0b ʍ:   :s: *v/! ~8 b zĒ 7~I ͒B ~z!I?B b g! p: r : څ „ : >ʅ <*IDM*IͰFʙ =” AM >*I: ʭ *IͰF*IͰF:IG >JAɯ22 2! ~~ 3 ʶ   2 *Iͭ 2 *x/#~*c6A7# - >7g5͌!I?>7*v/|ʝ 6 -: T A͆H94z ,G; : /2 G; >2N?͆! 6>\u1" "{g59&e2 !I?m͑ *c: 6>͑  -9 >2` *cZ:¶ ! Fw_ -9 A2! Fw  !I?ö !I?> 7? 77?ɯ*y## !~GZ xd l !~l !~w A :G>22   x22 2 *y## #^#V++~ĺ  › bAx*c !:~ : ~6# w# !SͭE*:IX ͭE !ͲE8 8 !IͺE8 ͺE\ >͟? \:>G!!J >! l >*Ì \!ʌ\ *:I:IDJ*,? ",d>2]:]_d>;>) ~+^{#' ! W++^##Ny зG#N+yw*y6## =I *a͏ *a*a*x/N: G#~#F> ; ͏ :G k *a2 ͢ > ʭ Ù ʹ 2͎ʹ 1:@ F#^#V#NbA~ ##H~ # *e>2`*c *r/>G*y##:`:0:0; ͢ ͭ > > 2`I=B^EN: z!~6D!IͭE!ISF!J~IHGO#~`ڑ_w#ˆ6!L~+:>³~@## EH\~> ~N0E[E:E~#º~E!gJ >Gi#~ x EJ >z"w!s:vG:u͞HBK*w"y e?e+N#yb ^A+N# <N ;>\:>!6: 8 !"W !h͒!IF!JFN# >>  ³!]h >*,"x/+~O#"ax "t/*W: &~# x"W "Y*%"[I9{/_z/W\d>!I:O?A28J ^E͆y5͟? ;>\ >\:>I9!"W*? *?*Y"?*["?:h>þ!JF# >!I^E!6_A>!QJL *t/#DM*Y6#"c"e ʹ1DM*Y"eDM*YK0g:  u1"{2^> !"t/:@*##~=!"x/6#:w#:w*:>T> u1"*\ >:^O2G>  !~ʱ! y±:wx2!~wʱy> ~w t* >*:@*\ l*  !^4 *{@1#D!aJ$*/"}/!dJ$Ͱ/OUyͻ1B̝y1y: d>   >*}/~2gr*/!E >#h >d>!I=BͭE!>.6N!I!IͭEGOCyN_AҎ< w#ɯ>#2;J"2@J"AJ2%!I:*r/6#6*e~# 2͡ 2>2# W@͡!#~6W@G2O2k?Ҝ2#͂y"~## >":_:K " ":OK " "7 "*bA"k:Q:V: Q: ] y: *v/}:ր1: F8 ć|2~:#>2:#ͪ@: !wI: !>I: !dI!QI!~<2>16ʩ w+wʩ:w͒4!:w]?yt *%7+1jOFx,f":͖yuwf1d=M1F:jJ7xQC+2Ŀ:y*~72O7y7:m7_7!jJp!yO#+}2:_!I͂&5Bb?_jq;[|x:m!F̈́~pÖy&',# y0 5ͫyA!6JFy457#O5ͫy 7BB5b55Bya!4JK5By 7Ā5Ԁ5ԕỳʺAO!6JFN*:_L2f1:X"/7?~"'/!:L': ::::::: :@LY~::*_Fg:=p~:*S̈́F,w͝kʙ:#7c F+*:OA]Tʽ8 # ± ]TA+~8 O7 #!y_^#Vѷ9&;wUFU?2V(&(2&o*r/: M: Zo27*  b^*!#"":G#u#‡!I: ʟ!I? ڒO2J!}J ʒ!" """"" !I? ?Ғ2J!}J#I ?Òo&): ʒ""" y27: 7J!~6ͩJ: 7͡fQ͡f[~=BA͡,͒4!~5͒ܩ!~75Ò7474é"C+ҿ:G#7}*2zO:͖yVu!Og1|@X? 8+*1"`*: >2#>  ~w: ~w2* >2#<:#s2*r/>>@b~~_:#_F_ Xh:#8 #=B:#!F@ʊ¦!$6.:@ʦxw:jJ!$wҴ:#@!$ :$:jJO+Ҵ!p Fb_~Oz͖8 #zb O ~8 rZV~R8 #>ɐ8 +~R8 +^1O!G*:_+<7F]:#8 Ĵ#=˜!46.:#@161 ͏Fb8 #=~ Fb&:#8 #=_ ['6+T#Q# AT~~[>2:#r1>|:@|>2#:*DM**r«ʫ#ʟ+x8 ̀~7 #³z+«ʫ+#ë~ȹ͡Ԇx!*J:"ĕ7W@?2b_:WF#DM~.4 !\##zebW +lyZ >+la͏7_~#l_~#y_:Ͱ:2;J2@J*"02$**:Gy ~ !$On>02$$`#!$6**:GyL>0!$J?>w45YNn`#6X:2<27G~Ox:͔!0J:"Ď7*G> ?ʭ p!p$:*,711 D! W 2*:G#G>  : Ԇxʁ!:W@:` Q | \!@ j!!.J?@ ( <k?͎:͎::W >2*| 2>2#*{61* >*@1*?"r/*?"t/*:GS 5!:?>: => ] : : :.!": *?~6# 61*{@1: !0J?F Ͱ å *r/G 5!5!ɯ> ~Z! H!ɷ*#:G >*#:G7#t!D!ʢ!: ʞ!ͦ!ž!<â!<ͳ! ~w>2#] ":8"*F#:!!"$L"͈"!#&L""͈"K#:%L"#k?ԆxI"y7!2J:"X"] "7y: *eMM!p"2u"J>*v"k??k?>2O:*q#=":G_:O!L**:jJʱ"~!ʱ"" ^»"i!jJ"a# "AY}"o|"O}:"ɷWxB*x/^+~"#> !10!9"o/2'D$$%$@$$($xG$%$x$f$DMͼ%͎$t)> N#^#VbA$=$${$V$*?~ʢ$ڠ( Ò$4#DM*?*?6 6 ï$$#x~x~$y$$!$#N#^#V#$(())+l++,x,%t)G+$3%+6#^)I%y$:%$ʣ%$n%$$W$_n%"%f${͊%Gͣ%iM*%J  ҝ%ɻ{~# ڤ% ä%{2&~&l/2&͔&+%-%>2\/͔&0%%͔&!jJ&E!&e!&c(U&G&:&̈(%:&U&/2&%͔&G-_1&x4&͔&c(U&G͔&c(N&OxG{U&G!l/~h&+ Z&2]/!]/xwڑ()e/5)E)ů2\/ͱ(>@2]/>2&:&=2&~#ڔ&+-!jJ0ڔ&:Ҕ&2'ɯ :&2&&x{("'`i"'2'3%͔''!':\/'~ʨ(5:'O:]/'@ '2'~$'/<0'450'4<4O Ҩ(:\/>-':'G :jJ'ͤ''F':'ʋ'>E':' p'/<-Gy'x/ x' Gy'x0'':'!l/"'>2'2':]/ʵ'!'~ʹ'5>0!'~ʵ'5*'~'+"'t(0*'w#"'`i~A'6G>Mw͔'!:]/A<2N()T])ͤ'_:N(=2N(((:\/}/o|/g#~#Q(q#\(0 ͔&c(ɇ:]/=2]/:]/<2]/>â(>â(>â(>*o/7>7ɯ2]/!^/Z(( +T]~{( (G+~t((t(+T]t( G)#~{(({(!l/~!_/ͻ(̀()! l/ + $) ';) P'> ';)!m/~ȯw+6>+6=R)È(`i~G2\/x2]/f/#O(:\/W:]/ʊ)!f/O(ɯ' #Í)7>'w #Ù)7>'w #ì)>)2*2e/:]/W)\)!\/:*w )*t)\)!\/**O(!*:*w:*G2*xW!]/*\)r:*!f/(='*e/5):*G:\/c*f/!*͌)!f/>(͈(e/5)*)ʬ(f/!**͘)):*2\/ͪ))"j+X+!f/O(_+!X+O(!_+(2f+!_/Z(!_/"g+>2i+*j+~#"j++*X+*g+͌)*4=*t(+_+*g+͌)=*!i+5*g+#"g+*:]/ ʬ(W!\/w#zW@O+w`i#͕*)e/5)E)z@ڬ(Ñ( Wʖ(_!]/~2*,ȓ_Aw+{ڬ(Ñ(z+w>2),`i,O(2!,2e/?Ge/!,+͘)ð+͌)!!,~w:),=2),+(:l/+!f/(í+!,(í+#+ +2*,e/!!,O()e/5)E):\/‘(͎$ t),+t) W2.z\)' D,ͽ)-!A.O(2.>."/.t)\)(.\)|,}.!=.,ڹ,+å,#é,:.-t):.ʑ(ì( 2!/>A.\)+-t)A.).t)\)A.ͽ).l+ .t)2.-!.O(+/>"/.t)T/\)-!.O(.>"/.l+ .+-t):!/AO>r-/G͌-I.).+-)t)!l/"-~&|ʬ(|ҫ-}/o|/g#>2\/-^#V#}o|g-÷-*-&͈("-{¯-)'d -t)A.\)l+\d5bEHyed"BA1PYTAE(('@ A@P@@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1A@PX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AT/t)7/)T/+! DM=//. +-)!"/"/"/#"/"/"/"/9"?*x/V##/2z/*?_"{/͎1*t/6#"r/6 ͎1"/͎1"/2*/"/*/"/2*?"/͎1"/*/2*3:q/T0:N?>2/"?`i"?*?"r/*?"t/6x0:?ʢ0*/͎1X0*?ʹ1"/DM*/ͪ0͎16 #"}/ w#z—0!q/~w*?ʹ1*?"?"?*/DM*}/ +'1/:?*}/'1/:"%?"'?1'1*'??1/:000*%?/1/:~# 1 1xGyO*%? +~ '1#"r/9!q/F1q/Q1G >~ >?>>~ ^#V^#V*?:q/R1_͎161͞1>>*?A0*?"?"?*?ʹ1"?}o|g2q/*?"/!͞1 >:q/2q/:>1:q/>?>2:q/@>:q//?:>?>d>(>*}/"P?;>!"/+"+?#"/T2:q/d2ͨ2/22:q/ 2PY!~_2态Ou2*? >! ʑ2*? ͞2͎1!/4#ž2!-? >6d>2!-? >*P?n22/P͎1!/~w|2"/2/+3”1*/ #3+733x>1y   "v/"/"/|+"/C4”1͟3DM_T3:z/_2/>1*/~M3`i"v/go2/8*/~2/͊3^#V"v/#:z/###)˜3O͘3 :z/O >< ڸ3=¸3 > /<3>"/>3://<*/6*/"/>*/*/"X?*/"P?*}/!/4O$4l4! 35d>T5R>F/<>"/>P4>*/*/"X?*/"P?*/!/4x4~#v44#>4͠4Ͳ4~;4y4yN#>>4y! w`i)LGyq#»4xp#ɷGyO4*P?=4"P?(5 >y/w6(555!F~w(>p͞2 >7! *P?y~(5Q5 >!6~(5 >5>y5*}/>*/>*}/>*}/(>*/>(>"!?*!?!#?4µ5!N?6!9"?¾5>"7*?!#?65:N?ľ5!#?5:/͗555:q/0%65.64!7u66C76`i"/*/"/*/"/:z/o&+!"/"/+"%?"/*v/"'?_6[6͗6u6A6"%?D6"/*%?*'?##>+?97/:ړ682/"/:/:z/DMͱ6G}l`)ȷ#!)Ҿ6 ¶6͗565G6Z:687x6w7͗565l77*/:/7!72/"/7C778>2/7*/DM:/*/`i#v/<7"/͗6*{/~<6f7ͷ87>f7*r/~==2/:/7+"/͗6"/2/8ľ5:/G*/7¸7C772/5*)?G:+??x͗5l77*/:/ 875"/2/P7͗5&8>885:/>8*/"/:/2/>*/3ľ5:/"/2/O͌8p8T8p8i8[8 k8#y 8 ~8 |7+3ľ5*/ -8>2/*r/~#<*/"/:/2/:/8F9y2/*/"/*/3ķ5*r/*/:/O 9/)9*/+"/*/%-"/O84ķ5*{/*/ :z/G#9~ʼ5~# @9*/#84ľ5*/)9!"/ͫ9"ʀ9,i9͏9 ͫ9W9>͏9N9ͫ9,i9͏9 ͫ9"q9͏9À9*t/*/?2?ʩ9#"/~ʼ59 9~ ̫9> # */#3ľ5*/*{/9*x/N#~#F#:> : 92:~: :> +#:*r/~#":=!:*{/:z/G~=S:L:>S:#@:2/*y##"[?*r/̓::~ u:# h:2/ɯO2Z?~ ʵ:*[?####~2Z?*[? "[?ʵ::+::G::Z?:0:ʵ::µ::Z?#::~ #:~~ :Z?~ ;#+͗5!;5͗5G;59:/3;/:U;.6!7u66;`i"/6:/;:/ä;2/*%?|s;;;#||;"/;:/*/8>:/*/*/"/:/2/<"/2/9*/"/:/2/P<͡<ɯgo8ľ5:/*/P<"/2/*v/*/*{/6:z/;#s#rgo <"/+"/;*/:/84>*{/*/O :z/G<*/#"/*/$,"//<8y*/:/84>"/:/<2/6K4>"/*/4>*/3>:/<3>*/:/3>"/:/<2/63>"/*}/4>*r/O*/ =yw# =K4>*/#84>*/<`=/='={= T==>,{==y=Z=G="{={=2=y='={=> {= <Z=w=,v="d=>"w͂=# 3>*/#3>*/:/͗5*/"T?:/2S?8ľ5~2R?63>5͗5*T?"/:S?2/8ľ5:R?wþ=:/͗5*/*r/~# =zʈ|g}o>y/Ox/Gd>8>>ɯA>d>Ҽ5! w\>¼5>>y Ҝ>!ܤ>>G>2O?_ѯpɷ! ~*X? >!"X?>*V??"V?ʼ52N??>d>=:]-? >p+4z{Ͳ?g?oͦB*xA:gbA?Ͳ?OF:~A=O?*OIxGF:@=gBoͦB(BB:*yA*~A:*xA*BG:uG^EAy:}A?>F͆H!|A~/w@?W@A:|A!}A<2~A}AO~#GGA >MA@?W@Aů2yA2xA@k@͑@G@!xAB_:W:G:uڦ@x:Wæ@:@*~A_:W!yA:vҫ@@2wA~ʻ@@~Oz@:wA@>:wAO{_x@@yNwk@@*xAbA"zAA:Ho]?JA:~AFAO}?_*yA:v*~A4A}*zAF 7AAF*H!A:~AOG >DM:u͞H*w|/g}/o#wM:@2HG*"8IB*,µA"8I͍H"H:@_",:cA!M!V![27I*" H"H"Dͧ!ͻC:C=B:ͪ!ͻCC<=͗GB::A=ɯ2H:H*H怮w:2H*@*8I"H"H> 2HBqB!"HKDc%.ͦB*8IB6 #rBB‰B ͌D ͌DqB*H:@Gs#=–B!ͦB2HòB͹G:H“C\U:g)C*H{BzCG:7IB*HNE͌D#BC!MͻC*a:`C|eoMFCT!VͻCJFC![ͻC:CͩCKDC:A͞HLE:A͞HgC:cQC͌D==>cĉC> ͉Ci&fC oC |fC{0O͌Dɹ0͌D,BͩC*H"H~2Hw$C"HDM͍H"H>25IF#Ny~CDC*y怶O#~CB25Iy D FD*HͦB:5I"DE͌D*DyͩDO.DBXDy*HtD*HͲBE͌DtD*H"H*H"H*H*H?yiD2H:tD>O!H4*Hq#"H:HOF:šD>OyGұDƾҸDR B*HGD!p~DDD*H~6 O#DEͯBͻC:C:E:H$E*H~w:H2H:5IͻC:C25IwEGaErE^EOͦG ȹ`.͆HG̯BEG©E*HͺDDx/óEyo`FE2HF*HB_~O#E 'F?FGDE?FEFEG̺D*H$.G̯BF#^#V#|İFE EEFFEE*HG̺DͯBF##GhF> ~FOCq#\FsˆFwxF 6xF͕F\F{*H-ͦB CͦB+*͎GƒG͗G=ŽGO=›GGy!H456*HͲB:H<2H*H"HG*H6G"HG*H~#45!HG:HH*H~6H:H6H6H_!IF~+H^{*HwG"H:*H~6#^#V#jH:@MHͦG<͍HͱHʂHͯBCͺDEHʆH:A͞H*8IogWYxҫH)¤HGFͩDH #½H BH~ #HiHHOOOOO<OOxOOOOO<OOxOOOOO<O)OxOOOOO<O)OxTZx^+  B  e K Z x <_  `'4;S[p+K[p5mm{BATCH OVRFORMGEN COMDTANDXDEF.89ABCDEFGHabcdefgh  CURSOR: ^A=prev field ^S=left char ^D=right char ^F=next field ^T=first field ^L=last field FIELD EDIT: ^G=delete char ^V=insert hole ^C=copy from previous record OTHER: ^Z=restore screen ^U=print form ^O=print data ^J=help on/off END/EXIT: ^B=end entry ^E=exit current mode FIELD EDIT: ^G=delete char ^V=insert hole END/EXIT: ^B=end entry ^N=next record ^P=prev record ^E=exit mode _______________________________________________________________________________ADD MODE current form= ADD MODE LOCATE KEY MODE SCAN MODE (D) SCAN MODE (I)EDIT SCAN MASK VERIFY MODE MAINTENANCE , PLEASE ENTER KEY /BATCH Hit RETURN to file entered data, ^Y (or DEL) to erase all items on screenw. Type any other character to return to top of form and continue: , or control E to exit the current modeHit RETURN to file updated data or ^Y (or DEL) to leave filed data as it was and begin updating another form4 Hit RETURN to go to next form, ^Y (or DEL) to remove data from filew4 Remove data from file? (Y/N) Key not found. Hit ESC to re-enter key: End of file. # continue scan: File is empty so add mode is the only legal mode.  . The file does not contain any records to match the scan mask. # continue in EDIT SCAN MASK mode. The batch file has been verified. # enter another batch name. That file is in use. # e.nter the name of a file to use for temporary work space File maintenance is completeHit ESC key to Key already existsCan't read form definition file Cannot find file . Insufficient memory Directory on d Disk : full BATCH.OVR not found End of session. All work saved, but re-start is necessary to continue. (If disk is full, first remove something).  Length of key described in this form does not match file  or its index (.NDX) file is not properly terminated. Press return.Data (.DTA) Disk : read/write failure. Replace system disk, type return. The form definition file is where the specifications for your form are stored. If you have not yet designed a form, choose a name for the form definition file and enter it here.a A form definition name is eight (or less) letters and/or numbers, optionally preceeded by a disk drive (letter A-P followed by colon). Press RETURN key to enter form name or enter ^C to exit: Enter name of form definition file (or press RETURN): The form definition file, , does not exist yet. Do you want to create it (A) or enter a different form name (B)? Enter A or B:  data file () (A/B...)  indexa Enter disk drive to use for the The data file is used to store the data entered through the Datastar program by record. The index file is used for the select-by-key option and for scanning the file in index order. If these files don't exist yet, they will be created on the drive you select. A disk drive is specified by a letter A-P. Which command would you like explained? (A/K/E/I/D/M/B/V/R/F): i0NDiNeDi0NeEnter character to select new mode: A = ADD new records K = select records by KEY E = Exit current form I = SCAN in Index order D = SCAN in Data file order M = edit scan Mask B = select Batch file V = Verify batch file R = Restore main file F = File maintenance J = Help SPACE = current modeV=VERIFY MODE is used to CHECK THE VALIDITY OF CERTAIN FIELDS IN A BATCH FILE. When the form is presented, each datafield that the cursor stops at will require either a visual check or complete re-entry. In addition, certain illegal fields will require re-entry. When the record has been verified it will be removed from the batch file and placed in the main file.F=FILE MAINTENANCE is used to ORDER THE PRIMARY FILE and remove deleted records. When file maintenance is required, e when a batch file name is requested.R=RESTORE MAIN FILE is used to RETURN TO PRIMARY DATABASE OPERATION. It is only useful when a batch file has been selected as the current file.M=EDIT SCAN MASK is used to ALTER THE CURRENT SCAN MASK. When the mask is presented, any field may be altered. Only records that match the new SCAN MASK will be displayed in SCAN MODE(S). To allow all records to be displayed again, you must delete all alterations made to the SCAN MASK.K=SELECT BY KEY MODE is used to SELECT INDIVIDUAL RECORDS FROM THE FILE for screen display. When the form is presented, entry will be required at each "key" field that the cursor stops at. When entry is complete, the first record in the file that exactly matches in the entered positions will be displayed. This search mode is faster than the SCAN MODE search with mask.I=SCAN IN INDEX FILE ORDER is used to REVIEW THE CURRENT FILE IN SORT ORDER. The commands ^P and ^N can be used to display the Previous or Next record. The scan mask can be edited so that this mode will only present certain records out of the database.E=EXIT CURRENT FORM is used to CHANGE FORMS or EXIT DATASTAR ENTIRELY. After exitting current form (using the ^EE command): to change forms, enter a new form name to exit DATASTAR and return to the CP/M operating system, type ^CD=SCAN IN DATA FILE ORDER is used to REVIEW THE CURRENT FILE IN ENTRY ORDER.!B=SELECT BATCH FILE is used to SELECT AN ALTERNATE FILE for use in all database operations. Batch file processing is identical to primary file processing with the following two exceptions: When a batch file is selected, verification is not performed in ADD MODE. It is not possible to enter verify mode unless a batch file is selected.A=ADD MODE is used to ENTER NEW RECORDS INTO THE CURRENT FILE (primary or batch). When an empty form is first presented, each datafield that the cursor stops at will require entry by the operator. After entry is complete, verification may be required unless a batch file has been selected (see SELECT BATCH FILE message). "." is the only character allowed here.  0-9, "#$%()*+-." 0-9 a-z A-Z a-z A-Z A-Z and a-z A-Z, a-z a-z and 0-9 A-Z and 0-9 a-z} A-Z} A-Z, a-z and 0-9 A-Z, a-z}, 0-9 and space are the only characters allowed here.  ignored.  : ^ Unimplemented control character Illegal character;  Not enough memory to complete calculation Result of calculation larger than destination field Fatal program error. Please report occurrence Zero divisor in calculation Exponent overflow Field is not complete Field value must lie between  &   Field does not exactly match previous entry. Please enter field twice with the same value Illegal field. Please re-enter Operator entry not allowed  DM DataStar Release 1.42 ID # 612203KP-00A Copyright (c) 1978, 1984, MicroPro International Corp. All rights reserved. ts use. The software contains valuable trade secrets and proprietary information of MicroPro International Corporation and is protected by federal copyright law. It may not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. d in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. O{_x@@yNwk@@*xAbA"zAA:Ho]?JA:~AF40*4D  Copyright (c) 1978, 1984, MicroPro International Corp.  FormGen Release 1.42 ID # 612203KP-00A  KAYPRO Computer    "P= B0B1C0C1 *2!*2  822\  21^ M2\  21!9"Y ͱ Č 1* n:>p*@ +"@ U^*D 1"@ !D :d!E :45lw75>2$*@ ~~*9Gu<9ͨ9:> #:D O<9́_ͭB ~V_*!9N6s#r*9N6*9N6:#9G *D :> 9|9!)>͚6:C 2$c6r=. ͼ=A3 /ČNẍ́ zA+3*@ :D O:=_ A` /Nẍ́ zA#`2D K^K*@ ~|¥uN —*##ͣ^#V"D K"U ¼¼:D î¼*U *@ | ~ |*@ ~|uW *~=͊ ×"U &&:D &=:O`. 0:O=`. B` [.p0! :D _~*@ ~|ʈ>*@ ̈́ Č /ͬ:G~|¨̓ #™ /*@ :D G+~|ʴ#*@ ~|ͽ ͎*@ ~|zͣ0*@ ~|̓*@ ~O͎!'9 *@ ~w /*@ ~ /:D G~$+#~w:$:O:E G͌ͣ0:E O::!+9:=w/*D $.1:/<_́!5~!E Z̈́5Kã0ͣ0:E W !)9: :O~+ *"!4K͖0!S"L!E NS!E ~Y:=wK:E J!/9:=w/!C$8!5~!D ‡5K*T]:O:G # “:/<_́]' = A !+:Ҙ =/!o9Oy/ (@!a:* *| !19w/*Y ͘"͖0Ï!39!79!%9w/!X 5!59w/:T:2Y:*+"^ ! 6 #xQ ? 6.A !"D *"@  *1&"8"9:A2828$/z{ ^#V !99y/!W 5§ 4:.!W Fw̔/:W 0*9N6wR9 38 ҋ 1ʔ/8͹/~#   ! wɷy % G= :2] _ѯp% @!SK5*8xH K5 !P5̈́ ̈́ !C9X5̈́ X5\ =/A \ i7!! ! l *Ì \!ʌ\ *88*:*,| . ", 2:_ - u ~+^{#s m W++^##Y Ny зG#N+yw*q ##N =• ?914ʃ !~6? !;9K5!5!~=9ʢ GO#~` _w# 6!~+:> ~@## ʟ Ң \~> ) ~ʃ 0ڟ [ҟ :ڟ ~# ~Ÿ !;: G #~ @ x ҟ   "! :G:<8BK* "  "$Þ 6N "$ +N#y ҽ  A+N# Î N - \ !6Ą !"J ! !] *,"< +~O# "*< ~2_ @ *: a ~# x) " "Y *S "E9t {/_z/W\ !A9:] A2$: 4=/A >2̈́ !] *A-:@g"E<8*,"< 6#"BK@ 6 # x "w#w#w#"\!>:n l \!;:n 2h G9t !"!~*< ~O~!~*}D<8BK*~*~u xF~*6,X͔\ 2h  *w,̔ x‚"\ !I9t *@ ~|uʹ̹*D ,R*@ *D :o-"D 1"@ "D "@ ~|,*D R,fy\f=!B h*D ͊ʹʹ_͖uʹuͭ~w¡!4~6WuġWru͹yͻuʹruÓ͊*D ,͊x͐_)u {OzGͬ:D O**D h͊hN (ͨy_ʹN Y͖_ʹ *~ u )*Ͳ[͞:E wT]Ͳ"6>*4>Oy[*5͐_]TN DM*}o|g# +|"ɷW*##<N ͞:[ ͭ@ͭG#_>@M/ȺKwq[[[#~+[a[ma*##ͬʗ N „ͬ y*D g͊h2w!x4:wO:xWy͊ ͣ*Z o͊7 *Fx͊u(*@ *D  ,:#o$:7|u ͥ~> ́u Ͳ{/_z/Ẃͭ  OVlJWQWyO y ڜ<Ý }O|G|}~# x²~+ x½> !>!>~w2*##ͭwN Ƀ5~!~w*##͞ECC͹OIwN '~DM*##͞k+~kwN [*@ :D G̳*D hDM*##ͫʧN • {͞+~ͣO:D O+N>B>>>B>>ͨwͭw+++> > ẃOͭ]T :T:6#x# x7?ͭzځڊpxZ!Y~ͭ<>@B> >BÐ>Bͨͣwͭͭͭ~#¼! ~ _~6O~_JLɁOQz͐:@!}8 0կ_ ́@{r#=:u x=kzBK_*$"$ ́#́+) sur#s++|r+szBKͽz*#ͥ+"ͽͲ"*ͥ"*@ ~|uͭɯ:D *@ +~#|:D <**@ #~|:*##"< w+OOG*##͐Gh##~Io&)q#pxQ>G N 0x2y!~wͭ~@~2%!9"%:W 2 %>"͞ "u"$2$Hw͊ :ͫ͑:%͏$E$3!͘"R~¢:@2}8: %͞ ͭ 6!"$!9"$!&*$ͭ@>̐#~@w:E G,21/2}8͖0:$*8!@!$4:%2%:}8g -BF&`_^#V`:c:g:o::~#foͰ!G+#~$>2$!1!=4~=5dcB>2$$bk6?#=W:$<$k>2$*$& ~:+wy|*$ͨ2$2C #~#fo"D 1"@ G~w#°!%4>>2$O  > 2$FO#%x >  :$K>=y2$F#%7 >  *>: %Ž~#o͊ ͭ|,>#d}., i:,-dF#~#€yO~#¥>&K~#~>,>)~#odx>"  #"~!#<~+-*/^()?~#^#V#& +$Nbrr[*${ͱC~#R7CfC*$x/wRC!́R*$Vw> >5CRC{#RC*$xW>Đ#g:=QCbC!2%~RRRͱ7ȯ7C:% *$e" %:%/z2> ͆0$8n*8D2͹6O Z P?qͭ3#:$ʎ!E{#*%E*$ͭw#:$G+~ £˜ʱx2$Ҵ!W9*~##ͭ:$O#:$# ѯN 7* %:$_+~ Z,ɯ2%: %GBR#5% (>B#Aґ>-u ‚!T:n 0 n7*~##ͭN## ªğ#&N Ÿ7:$!%6x[A?:0?#=*$!%6*? )>$͟#yYG"ʫ#m͑q(7?>#Š<,>ž#)7>"­"ʭ&7> ,$%-w#!K9!M9!O9!&:?< !Q9!S9 w/: %*$eo(+,*%ͷ1G37*~*$k"$ʘʢʢ, ʘ ͘"*%{+*8ͷG3}ͼ1o%-Z#*8,G3*8ͼ1$>2%Ø͘"nÛ͘"̀*8.͹6G3*8*%{/G3!%4͘":%=G:$O:%C Hw͊ z:ͫ͑%ʃ:$u͏$E$z͐$͘"RJ"*%!þ!%4ͱͤ[$G3:*$&~ͱG`[$:$ W W   _ W 1 m _ %!W W W a f A A ,!W 8 !`:&  :% ~$ # ɷy2%a_O!c: {H y y0 ?& A?:% y0 & !o: ʹ X>x} HÄ <„ H*$#####~!V:ʗ ## y ͺ *C &6y_O*!9N6~![:O !A: ʹ ͺ :T:y*$ y*8!!U9w/D27!#:6 !!6^@#w!g: !: :$e!!u"""#3#""""k!K##?#T#q!##!!\#!`:t!!k:t!!o:Ͱ! #|!*$~2$x/w*$N!:2 %t!>͞{#yOʲ!^"=!$w͊ N *$(:$͊ "$n^"=!$͊ h*$*~=͊ ͨN#*$ͨO# YyĴ"$*$ͭ_>͐#*$ͭF *$"$ͽ*$=͊ (ͪ*N#ѷl"2> <2C !%5 *$xO!c:t!x_#>Q͐#>">!`:##xQ͐#x͐#*$MOt!GM_ɇO##*$V:$wr!x">ą"!x"> ą"#=*$w*$##:$G+~ o#d#{##x *$xV_͍#*$p:%*$z!4ʲ#5 #¥#57#^"=*$w:$L3$6*$?#-#,-:$_~#> ͤ###:$OG0 x$?$G0 $2$Я2$=!$wr*%G3/͒3E$~:%X4:$_[$:%…$*8Nͭ3#i$*8"%X4G3. /$8ɯG*$c6$~̵$#ͺ$~$*8"%!~$$Oí3X4*8$.G3 !8ͭ3~$                     `@@@ @@        @ >ͳ12.2.:![99):yy!u99)*~'##x2.".ͭ*(~e(~#(#~(~`@̪(~(~)N ‹'!~w:.'~w!k99)͹6 (]'c'ͣ0!m9y/ ('`( ? +~w#*.ͭ!s99)*.ͭG#P(!i99)_a(F(MP(*.ͭ}(!g99)â() N (#(!_99)2 )*.ͭͭGo&>)/)/)# )!]99)!.V6|7})c6zj) )! ͝)*Y9N6͚)́)~ T]:.k͚):.*8:@͹61c6|7~))¼)#F =*yO7)#xʡ)¡)#Ý)#~#foN6Ý)y ):.**1!D2*y  :.ʒ3:.E*y_ >!*:  * * =* *=*y V*2.:.<2.Qد2. )  =*>2.ͻ***;,H.>ͳ1|7Ĺ6 * *! ͝)!w9͗)!9͗)!y9+*!{9>+!}9>+*!9>+!9>+*~##y2 ++N *ͭ2.c6.)+2.͌*͙*c6͚)*TE*͑*+,T+,+ *6+~~f+#W+͎+:.ʡ+2+++ͭz +:oc͊*+~1#wÁ+6 #+BÊ+% !% ~ -,, *,~N~*,::O *# , **~##͑*xJ,-". * *xͤ- * *....>).>).>).ͭ¡, =*ä,,.$..!:.~­,.$..#. -. -$...ͭ, =*->.<,. =*> .<,.ͭ- =*'->).-.$..ͭʖ-`-!c:##yR-!:..> ).ͭ@ʖ-..ͭ-..Î--: *# ͝)N E, *5./ *ͭ@ͭG#N *½-͙*!9͗)y.^#V#-O *y -x.O *.F#^#V#N#.*.ͱx. . *. *.5..+k͝)*~Q*## ͑*ͭ¥.̻. * *# *x=2$<5.= *~2 %ͭ.͝)QN Y.*~Q. **~!9c6.͚) A> +.:ҙ*!9͗)P/g^/oD2*1:E g1l/P/OԚ6:1=Ol/*8xG͚6:@=gͼ1oD21ͦ1:E *1*1:D *1*> ͼ1G:G4ͣ0y:1Ë/>́6$8!1~/wͭ/̓//ͣ0:1!1<211O~#GG 1 0ͭ/̓//ͣ0ů2121͖0 0/0GĖ0!1ͼ1_:D W:C G:D0x:> WD0:@*1_:E W!1:I0ʂ021~Y0m0~Ozm0:1ڂ0>:1O{_x}0ڂ0yNw 0Ė0*11"1ͣ0:}8o.0:10O}l/_*1:*10}*1͚6 0Aā6*8!1:1OG DM:<8*|/g}/o#)>:@2}8G*"8͡1*,S1"8+8"8:@_",:ck1!M!V![28*"7"7">4ͧ!Y3:͊31:ͪ!Y3͍3<=57ô1::A=ɯ28:8*8怮w:28*@*8"8"8> 28͡12!"83c%.D2*8B6 #2͡1'2 *4 *42*8:@Gs#=42!D228P2W7:813\U:g2*8{Œ2zʻ2G:8ڌ2*8Nͼ4*4#}2û2!MY3*a:`ʠ2|eoM2T!VY3J2![Y3:͊3G33C:A<8LE:A<8gõ2:c2*4==>c'3> '3i&3  3 |3{0O*4ɹ0*41G3*8"8~28w2"8DM+8"8>28F#Ny~r3ͭ3`3*$y怶O#~x3ͳ128y ҡ3 ͠5ͭ3*8D2:83ͼ4*43yG4O3͡13y*84*8P2ͼ4*44*8"8*8"8*8*8| y428:4>O!84*8q#"8:8O͚6:84>Oy͜7O4ƾV4R ͼ1*8Gx4!p~|4ͭ3q4*8~6 O#‚4ʠ4M2Y3:͊3:²4:~84*8~w:~842~8!~4!4!4>2~8:8Y3:͊3285i7454OD7 ȹ`.$8|7M2`5|7G5*8X4Dx/<܁6$8P2>Q5yo`ͬ5`528c6*8ͼ1_~O#ʁ5 55|7̭3ʕ55t5͠5n5|7X4*8$.|7M2F#^#V#|N6t5 ʙ5Œ5ʵ5ʳ5Œ5s5*8|7X4M2F##͹66> 6O͒3q#5s&6w6 66365{*8-D2 ͒3D2+*8z<`68 9| ~6#:| ~6^#VN6Hͼ1G*9͚6 =6:@=ڷ6*8 p#s#ri767ʼ6D767i7676D7:7 F͡16:8Gͼ1x7#+ 7+*8DM+87ͤ4>,7!757=,7O=97|7y!8456*8P2:8<28*8"8|7*86͇7"8͜7*8~#45!877ñ7*8~7777_!q9c6~7^{*8w͇7"8:*8~6#^#V#8:@7D7<+8O8 8M2c3X47$8:A<8*8ogWYxI8)B8GN6G4z8 #[8 ͼ1z8~ #k8i88HHOO;OOO(OOO;OwOO(OOOdOOaio  BlBh Ui# +  5 O C1{-=Pdy/gbb~Phe !)!N#f#$$%%~'')9)2+h+C-a-..5/M/00!1:111Q3o333f557&78588899::%%;;=-=g>>??@@lBC{EGHIDATASTARCOMDEFBAKABCDEFGHabcdefgh98.YX!.'/~"NYSRFFFCFC-ABCDEFGHIJKLMNOPNS_N00NN0SF000 -N0 QCJ@@W OREPFBCURSOR: ^A=left item ^S=left char ^D=right char ^F=right item ^E=up line ^X=down line ^U=set/clear tab ^I=tab DELETE: DEL=char left ^G=char right ^T=entire column ^Y=entire line INSERT: ^P=line buffer ^V=char right ^B=entire column ^N=entire line OTHER: ^J=rotate help ^W=list form ^C=form done ^K=toggle key FIELD: ^Q,_=add/extend field ^Z=delete field ^R=define field HIGHLIGHT: ^O=set/clear ^L=delete block CURSOR: RETURN=next item ^S=left char ^D=right char ^E=prev item OTHER: ^A=previous field ^F=next field ^G=delete char ^V=insert char ^C=end definition ^R=start over ^Q=locate field ^J=more help _______________________________________________________________________________ LIN=000 COL=000 HELP SCREEN 2 NUM=000 LEN=000 POS=000 EDC=xx ^L Unimplemented control character. Hit ESC key: Cursor is not in a field, K ignored2At line limit[Cannot delete last }line2At columns}column2Not enough memory[Possible fatal program error. Please report occurrence[*** WARNING: Edit mask or range limits may need revision2The maximum number of fields is 245[Can't read form definition file Insufficient memoryDirectory on dDisk L: full. Replace system disk, type return. a literal enclosed in quotes, or a valid field name2 &2 a constant using only the digits 0 through 9, and optional decimal point and leading minus sign, or a valid field name2Illegal operand. Item must be a field between #001 and #N, or  +-*/^2Illegal operator. Item must be Unclosed left parenthesis2 K Illegal character2 Duplicate Field Name2This program is used to define a "form" for data entry. The form, much like a tax or license application form, will consist of a number of "boxes" to be filled in and background information to explain what goes in the boxes. An example of data fields with background explanation is: First Name: ________________ Last Name: _________________ In the following procedure, you will be able to create a form for data entry. You may move freely around the screen using the CURSOR commands at the screen top, inserting background text at will. The boxes/data fields are created using the underline or ^Q key. Note that 1. you will not get a chance to actually enter data in this step and 2. when the data is entered, only the data in the data fields will actually get recorded. The rest is simply background text. The help messages at the screen top list/explain most of the options available. Use ^J to rotate the help display. Data fields may be assigned various attributes via a special questionaire. To enter this phase, position the cursor at a datafield and type ^R. Type ^J at any question for further information in this phase. Type ^J now to rotate to the next help screen: Enter name of form definition file (or press RETURN): The form definition file is where the specifications for your form are stored. If you have not yet designed a form, choose a name for the form definition file and enter it here. A form definition name is eight (or less) letters and/or numbers, optionally preceeded by a disk drive (letter A-P followed by colon). Press RETURN key to enter form name or enter ^C to exit: errors and incomplete fields: Field Error description (position cursor at field to perform corrections)  ??? No key field has been established. (Choose at least 1 field as sort field, use ^K to assign key status.) 000 Illegal character(s) in the content control wordthe CCW is reached, correct the CCW.) 000 No file name specified for verify file"Enter file name:" is reached, enter name.) 000 Field must be defined as "file verify", since field 000 references it"Verify field?" is reached, enter Y, F.) 000 Unspecified index for a file derived field"Index field number:" is reached, enter index field or type ^J for additional help.) 000 Incomplete expression for calculated fieldexpression entry is reached, then complete expression entry, substituting valid field numbers for all "?".) 000 Invalid range check limitsrange check limits are reached, then edit range limits so that the minimum value is less than the maximum.) 000 Unspecified verify/calculate orderorder is reached, then enter order.)  ??? Key length is greater than 120 characters. (Position cursor at key field(s), use ^K to remove "*".) . (^R, RETURN key until  L=List errors on LST: deviceL D=save form and chain DatastarD/SPACE): Enter exit command: A=Abort without saving form B=save form & Boot operating system C=save form and Continue SPACE=continue without saving form (A/B/C/Abandon form edit? (Y/N) FORM LISTING AND FIELD ATTRIBUTE DEFINITIONSFIELD NUMBERS RANGE CHECK, LOW RANGE CHECK, HIGH ENTRY CONTROL MASK CONTENT CONTROL MASK FIELD ATTRIBUTE DEFINITIONS Q=required C=check dgt J=right just* * D E R I V E D * W=write ed c. LIST CALC *****VERIFICATION**** O=oper entry.. FIELD NUM/NAMER=range chk PAD/ . INDEX ITEM. FILE VERIFY LEN LIN COL KEY E=edit mask FLOAT . FIELD NUM ORDER . ORDER FILE NAME . ...CALCULATIONS Field name:You have entered the field definition phase by typing a ^R. The field definition phase is a questionnaire which allows you to set up controls over what data will be accepted during the data entry portion of this program. In the questions that follow, the answers you give will apply to the current field only. To return to background definition, type ^C. Field names are optional. The field name may contain from 1 to 32 characters and must begin with a letter. The remaining characters may be letters, numerals, or spaces. Field order:This attribute allows you to specify the order in which fields will be processed during the data entry phase. Key order:The key fields are the fields on which the index file is sorted. These fields are combined for sorting. The field with the key order #001 will be the most significant field in the sort. Tie breaker field? (Y/N)A tie breaker field is a key field entered by DataStar to create a unique key. Enter a Y here to have DataStar maintain the file by entering the lowest numeric value here that will create a unique key whenever necessary. Refuse duplicate keys? (Y/N)This attribute is used to to create files with unique keys. If the data entry operator attempts to enter a record with the same key as a record already in the file, an error message will be generated and the entry refused. Copy attributes of fieldThis attribute is used to save time when defining fields. If another field has been defined with the desired attributes, entering its field number here will cause its attributes to be used by this field also. Field derived? (Y/N)A field may be derived from other fields or from a file. The cursor will not stop at a derived field during data entry. A Y answer here will make this a derived field. You will define how data is to be derived for this field in the following prompts. Allow operator entry? (Y/N)A Y answer here will allow the operator to make adjustments to the data in this field. Otherwise, the cursor will not enter this field. Calculated/File? (C/F)A C answer here will make this a calculated field. Data for a calculated field is computed from constants and other fields on the form. You may define the calculation in the following prompt. An F answer here will make this a file derived field. Data for a file derived field is copied from a reference file. Another field on this form is used as an index into that file. For example, to derive vendor address for this field from a file of vendor names and addresses, you could use vendor name (entered elsewhere on this form) as the index field. Index field number:Enter the number of the field on this form that you want to be used as an index into the reference file. For the example in the previous prompt, you would enter the field number for vendor name. If you don't remember the number of the index field, use ^A or ^F to move to the index field. Its number will be displayed on the status line. Item number in file:This attribute designates the item (data) to be copied from the reference file to this field. For the example in the previous two prompts, if the vendor file has "name, address, city, state" for each vendor, you would enter "003" to extract city. Verify/calculate order:This attribute allows you to specify the verify/calculate sequence. In general, calculations should follow verifications unless the result of a calculation is being used as an index field. Fields can be calculated in any order. The calculation sequence will only make a difference when one calculation depends on the results of another. The field with verify/calculate order #001 will be processed first. Numeric/String? (N/S)A numeric calculated field uses an algebraic expression to derive a value for the field. The algebraic expression consists of fields and numeric constants combined arithmetically, using the operations: add(+), subtract(-), multiply(*), divide(/), exponentiation(^) A string expression consists of fields, sub-fields and string constants combined using the join(&) operation. Enter string expression for field:A string expression may contain fields, subfields or string constants (literals) combined using the join (&) operation. Fields are represented by either field number preceded by a "#", or field name. For example, #007 or fieldname. Subfields are used to extract only a portion of a field. The form is: field number (first character number, number of characters). For example, #7(1,2) or fieldname(1,2) Literals are represented by enclosing the characters in double quotation marks. For example, "A01". Enter algebraic expression for field calculation:An algebraic expression may contain fields and numeric constants combined with the arithmetic operations: add(+), subtract(-), multiply(*), divide(/) and exponentiation(^). Operations are performed from left to right in the usual manner with parentheses recognized. Fields are represented by either field number preceded by a "#", or field name. For example, #007 or fieldname. All constants and fields should contain only digits and optional minus sign and decimal point. Intermediate field? (Y/N)An intermediate field can keep redundant data from being stored on the disk or hold partial results in complicated calculations. An intermediate field is like any other field except that it is absent from the record that gets stored on the disk. A Y answer here will designate this field as intermediate. Required? (Y/N)This attribute determines if data must be entered in this field during data entry. A Y answer here will force the operator to make an entry. Right justify? (Y/N)This attribute determines on which side of the field the data will be placed if it does not fill the field. A Y answer here will align the data with the right side of the field. Pad field? (Y/N)A field can be extended to its full length by adding pad characters on the left of the data, for right justified fields, or vice versa. A Y answer here will pad the field with pad characters if it is not full. The pad character will be specified in the next prompt. Enter pad character:Any character may be used to extend the field to its maximum size. Commonly used characters are space and zero. Floating character? (Y/N)A 'floating character' can be inserted into the field, either on the left of the data for right justified fields or vice versa. For example if '$' is used as a floating character for a right justified field, a dollar sign will be added to the left of the data entered. A Y answer will provide a floating character in this field. The floating character will be specified in the next prompt. Enter floating character:Any character may be used as a floating character. Commonly used characters are '$', and '+' or '-'. Verify field? (Y/N)After the data entry for a form is complete, DataStar will enter a verify phase. In this phase all of the fields with the verify attribute will be checked for accuracy. You cannot assign the verify attribute to an intermediate field. A Y answer here will cause this field to be checked during the verify phase. The kind of verification will be specified in the next prompt. Sight/Retype/File? (S/R/F)Sight verify means the cursor will move to this field and allow the operator to take another look at the data. Retype verify means the field will be cleared before the cursor moves to it and the operator will be forced to type the same data again. File verify means the field will be checked against a reference file. File verify will be further specified in the following prompts. Keep file in memory? (Y/N) If the reference file is small enough (fewer than 500 characters) it will save space to keep it in memory during data entry. It will always speed processing to keep it in memory. A Y answer here will cause the reference file to be kept in memory. Enter file name:Enter the name of the reference file that contains the list of acceptable entries for this field. Enter file disk drive (-/A/B...): Enter "A-P" to specify the disk drive that holds the reference file. Enter "-" to use the current drive. In both cases, the operator will be asked to specify another disk drive if the file is not found. Enter file key field number:This attribute specifies the field in the reference file that DataStar will search to verify or match the data in this field. The field used must be the key field and be exactly the same length as this field. Enter the field number of the key field in the reference file. Batch verify? (Y/N)This attribute determines if the records created in DataStar will be verified immediately after data entry or later as a group. A Y answer here means the records will be verified later as a group. Check digit? (Y/N)A check digit is a digit added on to the end of a numeric field to make data obey some rule. The rule in DataStar is that the field must be divisible by eleven. A check digit is used to improve the accuracy of entered data, since incorrect data is not likely to obey the rule. Enter a Y to require that the data in this field be divisible by 11. Range check? (Y/N)This attribute is used to assure that only data within a certain range will be entered in this field. As an example, the two character field called month can only have values between 01 and 12. A Y answer here will allow you to specify the minimum and maximum values for this field in the following two prompts. Enter/change the minimum field value:A field is compared on a character by character basis to determine acceptablity. Characters are compared according to the following sequence: space !"#$%&'())*+,-./0-9:;<=>?@A-Z[\]^_`a-z{|}~ (highest) Enter the smallest acceptable value for this field. Enter/change the maximum field value:A field is compared on a character by character basis to determine acceptablity. Characters are compared according to the following sequence: space !"#$%&'())*+,-./0-9:;<=>?@A-Z[\]^_`a-z{|}~ (highest) Enter the largest acceptable value for this field. Edit mask? (Y/N)The edit mask allows you to control the entry and content of a field on a character by character basis. This includes inserting constants, copying data from the previous form, requiring entry at certain positions, as well as providing control over the actual characters that may be entered at each position. A Y answer will allow you to define the edit mask in two steps: entry and content control. Entry Control Character Codes: ! = must enter a character _ = may enter or leave blank X = automatic copy Y = auto-copy/may enter " = constant in this position ~ = constant/may enter ' = constant if data on / = constant if data on both sides of constant either side . = align decimal pointEnter/change the entry control mask:This attribute defines the entry control mask. This mask allows you to specify if data must be entered or how it is entered for each field position. Each character in the field may be entered by the operator, copied from the same position and field of the previous record, or be a constant. You may not use X or Y (automatic copy) in derived fields. Constants will be specified in the next prompt. Content Control Character Codes: A = A-Z only a = a-z only B = A-Z, space b = a-z, space C = A-Z, a-z -> A-Z c = A-Z, a-z D = A-Z, a-z -> A-Z, space d = A-Z, a-z, space E = A-Z, 0-9 e = a-z, 0-9 F = A-Z, 0-9, space f = a-z, 0-9, space G = A-Z, 0-9, a-z -> A-Z g = A-Z, 0-9, a-z H = same as G with space h = A-Z, 0-9, a-z, space 9 = 0-9 only 8 = 0-9, #$%()*+-. . = align decimal point _ = any character allowedEnter/change the content control mask:This attribute defines the content control mask. This mask allows you to specify the constant or type of data to be entered in each field position. For each position specified as a constant in the entry control mask (see the previous prompt), enter the desired constant in the same position in this mask. Record edit characters? (Y/N)Edit characters are constants and pad/float characters in the field. Usually they are removed from the field before the data is recorded. A Y answer here will include the edit characters in the disk record.   DM FormGen Release 1.42 ID # 612203KP-00A Copyright (c) 1978, 1984, MicroPro International Corp. All rights reserved. ctions on its use. The software contains valuable trade secrets and proprietary information of MicroPro International Corporation and is protected by federal copyright law. It may not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. d in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. number in file:This attribute designates the item (data) to be copied from the reference file to this field. For the example *K͞+DD9N'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!a{   `OE!y6$ -7rBo&))T])))!y)5=;A÷)Å;!A$AW+>6:'/+ó;0TAö,2.]6ø6v7åA!q9DM* w#w*!A s#r*! s#r*w#w! w#w͐R͐*6! ^#Vr+s'*6*6*w#w*6* 6* 6! w#w͐ڽ͐* 6! ^#Vr+sÒ* 6*6*6*6*6*6*6*6*6*,6#6*.! s#r*! s#r!!*0s#r!!*2s#r!!*4s#r!!*6s#r!!*8s#r!1"*:s#r!k"*<s#r!"*>s#r!"*@s#r!#*Bs#r!S#*Ds#r!#*Fs#r!#*Hs#r!#*Js#r!#*Ls#r!#*\ͧ!#*`ͧ!#*dͧ!#!7 ͧ!#!; ͧ!#!V ͧ!#!^ ͧ*!A s#r!$*ͧ*b6#6̓++`is#r*! s#r̓+! s#r!C 6#6! w#w! w#w͐7 ͐))*d##͐Cs#r͐))*d6#6! ^#Vr+s *a 6*b 6!2ͪ!,ͭ!T s#r!ͭ*m s#rMm | !$Ͱ!ͳ! ~#fo##~#fon!S s!|g}o|? ̓? ! 6#6! ~#fo̓n&#s#r! 6#6! ^#V!r+s͐#̓ns̓n*b s! ~#fo##~#fon&|g}osË ! Ͷ! w#w͐{ ͐͹! Ͷ! ^#Vr+sO ! Ͷ! Ͷ!*$*0s#r!r$*2s#r!$*4s#r!$*6s#r!$*8s#r!$*:s#r!$*<s#r!$*>s#r!=%*@s#r!~%*Bs#r!%*Ds#r!%*Fs#r!%*Hs#r!&*Js#r!=&*Ls#r!V&*Ns#r!&*Ps#r!&*Rs#r!&*Ts#r!&*Vs#r!'*Xs#r̓ !͹! w#w͐:*L!^ ͤ! s#rz,͐+|&!͹,!^ 6A! ^#Vr+s *Lͼ#|T!͹̓j!͹*! s#r! 6#6͐͐!͐! ~#fo͐)~#foͿ! s#rz!͹͐+|$͐n*a s͐n*b s! ~#fo͐)~#fo͐ ! s#rz$!͹!*͐*L*ͤ! s#rz!͹k}@€*Ì*ͳ!ͭ*c s#rMc #|¶!͹! Mc ͡Mc n&?! s#r͐ ͭ*e s#rMe #|!͹͐ Me ͐͡+|Me !& s#rMc n!E s#6! w#w͐͐E+ڒ͐))*d͐&n&#s#r!& ^#Vr+s! ^#Vr+sI͐*s#rM! s#r!2̓TMe ̓T!& s#r!!( ͐!0 6k}@! 6#6! w#wW͐! s#rMM!͹! ͶMe ͐}/o|/g|ʊ͐++|͝}/o|/g|ʊ͐#͐ns͐##͐ns! ^#V!r+s*Lͼ#|!͹! ^#Vr+s~Mm ͐MX|!͹MX|MZ|!͹̓5!͹! Ͷ͐+|[`i^#Vr+s!͐**! s#r! w#w͐ڭ͐ #͐͐͐ns! ^#Vr+sn! 6#6͐͐! ^#V!r+s! 6#6͐*͐*! s#r! ^#Vr+sn}.! w#w͐i! ^#Vr+s͐))*\͐ns! ^#Vr+s&*L*ͤ! s#rz§͐*͐i*Lͼ#|!͹͐͐k&s! ^#Vr+sö͐?(########͐E#?####! ?! s#r͐ͭ! s#r̓#|M!͹̓! s#r*! s#rMX|d! w#w͐گ͐*͐!7 ns! ^#Vr+sw͐#n*ska }ka *s*6͐+|*6*6* 6!&̓*! ~#fo&s#r̓!? s#r͐?͐s#r! ~#fo##s#r*! s#r! 6#6͐͐w! ^#V!r+s̓! s#r! w#w͐͐#͐͐͐ns! ^#Vr+så! w#w͐%͐ ͐͐*`ns! ^#Vr+s͐͐#ns͐ w#w͐w#w͐w#w! ~#fos#r! ^#Vr+so*! s#r! ^#V!r+s! w#w͐͐͐͐*ns! ^#Vr+sÛ͐##ks̓!? s#r!? ^#Vr+s6#6!? ^#Vr+sw#w!? ^#Vr+s6#6!? ^#Vr+s͐Es#r! w#w͐u! ^#Vr+s! ^#Vr+sO̓!" s#r͐&! s#r! w#w͐͐E+#͐"͐&n&#s#r͐"##͐&#ns#6! w#w͐"͐))*d##~#fos#r!& ^#Vr+s!" ^#V!r+s! ^#Vr+sÖ̓!& s#r͐"! s#r̓!? s#r!? ^#Vr+s6#6!? ^#Vr+s6#6͐?! s#r͐ 6͐ #6#6͐ ###6#6͐ 6͐ 6#6͐ 6͐  6C͐  w#w! ^#V! r+s͐ ! s#r͐+|v͐ 6͐ #6#6͐ ###6#6͐ 6͐ 6#6͐ 6͐  6͐  w#w! ^#V! r+s͐ ! s#r! ^#Vr+s6! ^#Vr+s6! ^#Vr+s6 ! ^#Vr+s6! ^#Vr+s6̓!? s#r*! s#r!*͐*! s#r! ^#Vr+sn}.! w#w͐E! ^#Vr+s͐!; ns! ^#Vr+s*L*#|h!͹̓! s#r! w#w͐͐ڹ*L! ^#Vr+sn&! ^#Vr+s}*L#|!͹*Lͼ#|!͹! 6#6! ^#Vr+s6! ^#Vr+s6 !̓*̓n&|g}os! ^#Vr+s! w#w! ^#Vr+sn}q! ^#Vr+sP! ^#Vr+s! ^#Vr+s6/! ^#Vr+s6N! ^#Vr+s6 ͐͐###! s#r!̓*! 6#6̓͐s! ~#fo͐s#r! ^#Vr+ska s! 6#6MZ|C! ^#Vr+s6! ^#Vr+s6 !͹!͹! Ͷ!^ *! s#r̓! s#rMZ|k!! w#w͐͐*͐*dns! ^#Vr+sÎ͐##n*skb }kb *s*6*6!&̓*! ~#fo&s#r̓!? s#r͐?6#6! ~#fo##s#r̓! s#r! ^#V!r+s! w#w͐ڷ͐#͐͐͐ns! ^#Vr+s|͐͐#ns! w#w͐͐ ͐͐!7 ns! ^#Vr+s͐ w#w͐w#w͐w#w! ~#fos#r̓!? s#r!? ^#Vr+s6#6!? ^#Vr+sw#w!? ^#Vr+s6#6!? ^#Vr+s͐E#s#r! w#w͐! ^#Vr+s! ^#Vr+så̓!" s#r! w#w͐͐E+[͐"͐&n&#s#r͐"##͐&#ns#6! w#w͐"͐Cs#r!& ^#Vr+s!" ^#V!r+s! ^#Vr+s͐"6#6͐"##6#6͐"6#6!" ^#V!r+s͐"! s#r̓!? s#r!? ^#Vr+s6#6!? ^#Vr+sw#w!? ^#Vr+s6#6*! s#r!*͐*! s#r! ^#Vr+sn}.)  ! w#w͐g ! ^#Vr+s͐!; ns! ^#Vr+s1 *L*#|Š !͹̓! s#r! w#w͐͐ *L! ^#Vr+sn&! ^#Vr+sß *L#| !͹*Lͼ#|!!͹! 6#6! ^#Vr+s6! ^#Vr+s6 !̓*!͹!͹! Ͷ!^ ̓ͳ!9MicroPro FormSort Release 1.01 Serial # FS9999XX COPYRIGHT 1982 MICROPRO INTERNATIONAL CORPORATION. FormSort Release 1.01 ID # 711303KP-00A Copyright (c) 1982, 1984, MicroPro International Corp. All rights reserved. nformation of MicroPro International Corporation and isrotected by federal copyright law. It may not be copiedr distributed in any form or medium, disclosed to thirdarties, or used in any manner not provided for in saidicense Agreement except with prior written authorizationrom MicroPro. DEFDTANDXDTA$$$FORM2 @:FORMSORT.OVR Too little memory. Formsort v1.0 COPYRIGHT (c) 1982 MicroPro International Corporation. Invalid file specification Invalid Option specified ) (A/B....) Cannot Open File Data fileIndex FileError: No input files specified. Example: A>FORMSORT OUTDEF/options INDEF1 INDEF2 ...No Input Files specified. Input file assumed same as output fileCannot create only a .NDX from a list of input files. Enter disk drive to use for the Data file (Enter disk drive to use for the Index file (More than 25 input files have been specifiedCan't find FormSort.OVR Please wait... SuperSort is now sorting the Invalid .DEF file. Check your form with FormGen.Too little memoryWarning: Mismatch on input and output form sizes.Close failureDirectory or Disk full while writing output file @';!9DM! w#w! w#w! w#w͐ڌ'͐ ͐6 ! ^#Vr+s`'! w#w͐'͐  ͐6 ! ^#Vr+sÔ'͐ ###6! w#w͐ ͐6͐ #n}:"(͐ ͐͐ n&='s! ~#fo##s#r! 6#6! ^#Vr+sn`is{, )`in}/ )`in} )! ^#Vr+s`in}.s(! 6#6! w#w )͐}/o|/g|(͐ڸ(͐ ! ^#Vr+s`in&='s(! 6#6 ) )͐(͐  ! ^#Vr+s`in&='s )! 6#6 )"(͐)!9+)ú8W+$A!A!9DM! w#w͐͐ ҅)*L)`is#rzʅ)! ^#Vr+s͐s! ^#Vr+s;)͐#|§)!")! %)!()͐î)!9)*Bö,!9DM͐ ###͉! s#rM ! s#rz&** ! s#r* s#r* s#r* w#w͐~#fo`is#r͐##~#fo͐*͐##~#fo͐u*͐͐~#fos#rú*͐##~#fo͐s#r`i~#fo͐##~#fo))s#r͐##͐s#r͐* s#r͐####N+͐M 1+͐?ͺ)! s#rz +!N+͐##͐s#r͐####ͽ)M `is#r͐! s#r͐~#fo`is#r4*!9c+<ó;!A!9DM`iw#w͐|+`i6#6͐Z+! s#r͐)*0~#fo]+͐|ʶ+`+ù+!9!9DM! w#w! ^#Vr+s͐͐ n&@s! ^#Vr+s6:͐͐n`is{ P,`in}P,! ^#Vr+s!P,! ^#Vr+s`ins,! ^#Vr+s6.! w#w͐ڪ,! ^#Vr+s͐ ))*\͐ns! ^#Vr+sg,í,!9!9DM͐++++`is#rM ! s#r͐͐,͐͐~#foK-͐͐~#fo8-͐͐5-͐͐~#fo8-K-͐~#fo! s#r,͐͐##~#fo))͐~#fo¨-͐##~#fo͐~#fo##~#fos#r͐͐~#fo~#fos#rú-͐͐~#fos#r͐͐##~#fo))͐ .͐##~#fo͐##~#fos#r͐͐~#fos#r.͐͐s#r͐* s#r!9M.W+ó;;[B!A$A5>6!9DM͐ `is#r`i^#Vr+sn}.t._.! w#w͐ڽ.`i^#Vr+s͐))*\͐ns! ^#Vr+s|.͐ ! s#r͐ `is#r`i~#fo##s#r͐5.͐8.!5.! 6#6͐|q/>.;.! s#r͐A>/͐P>/q/͐+++|M/A.!D.! D.!D.! 6#6/͐ ͐s*L*G.! s#r! D.͐#|.*LJ.û/!9/W+;!9DM͐ n}/0! w#w͐0͐)*V͐s#r! ^#Vr+s/U0! w#w͐U0͐)*Vw#w! ^#Vr+s'0! 6#6! ^#Vr+sn&/`is{0`in}/ʜ0 ʜ0Dʟ0Nʮ0Bʽ000*X6#60*Z6#60*X6#6*Z6#60! 6#60^0͐0!91)ñ9W+!9DM! w#w! w#wMc Q*g s#r!Mg 0Mg *k s#rMg ##nMg ###nѯgW?! s#r!͐*L0`is#rz 1!1!Mk 0Mm ####*q s#r* s#r* s#r*} s#r*{ s#r*y s#r*w s#r*u s#r*s s#r`i6#6͐Mk nѯg5!Mm 0Mm n}k2*q w#w!5Mm n&ڛ2Mm n*o s#6! 6#62!Mm #0Mm n&Mm #nѯg*o s#r! 6#6Mo ͐Mq 0! ~#foMq n&#s#r! w#w! w#wMq ! s#r͐+|¾5Mq n&@|g}o|¦4Mq n&|g}o|ʦ4͐*s s#rMs Mq nѯg*u s#r! w#w͐Mq n&+ڦ4*s ~#fo͐n}"44*s ~#fo͐n}/44*s ~#fo͐n}~44*s ~#fo͐n}.44*s ~#fo͐n}'B4! ^#Vr+sØ4*u ~#fo͐n}8ʍ4*u ~#fo͐n}.ʍ4*u ~#fo͐n}9˜4! ^#Vr+s! ^#Vr+sâ3͐ Mq n&15! w#w͐Mc n&+.5͐))*d~#fo͐ 5͐))*d##~#fo|g}os#r! ^#Vr+s4þ5Mq ###n&|g}o|ʾ5! w#w͐Mc n&+ھ5͐))*d~#fo͐°5͐))*d##~#fo@|g}os#r! ^#Vr+sR5`i^#Vr+s,2͐+5!95ÐB!9DM͐!͐5s#rz 6!͐͐##͐s#rs#rs#r͐~#foD6B!9DM͐~#foA6c6B!9DM͐͐`6s#rz‰6!͐͐ s#r͐6#6͐~#foþ6C!9DM͐^#Vr+sz7͐^#Vr+s! ns!|g}o!͐ ͐~#foͻ6++++|+7!͐6#6͐͐ s#r͐^#Vr+s! ns!|g}oÂ7CTApC!9DM͐~#fo¥7!ñ8͐~#fo`is#r͐͐ ͐~#foy7͐7!ñ8͐+?`is#r͐~#fo|ʈ8!͐ ͐ ͐|7͐~#fo͐s#r͐~#fo͐s#r!!͐~#fo7ñ8͐6#6͐͐ s#r!ñ8!98C!9DM͐^#Vr+sz8͐^#Vr+sn&|g}o͐!͐ ͐~#foͽ8s#r!49!͐##~#fo͐~#fo?s#r͐͐~#fo?+s#r͐͐ s#r͐^#Vr+sn&|g}oú9pCC!9DM͐ |9! ~#fo͐##~#fo͐~#fos#r͐ ͐##~#fo<:͐ ͐##~#fo͐~#fo?:!͐ ͉`is#r͐~#foʹ9#|m:!4;!͐ ͐~#foͷ9! s#r!ڠ:!4;͐͐s#r͐##͐͐?s#r͐͐##~#fo͐ s#r͐͐ ͐~#fo?͐~#fos#r!4;!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{u;O;͐|;!9Î;@<ó;!y9DM! `i͈;`i͋;!9ù;$A!9DM͐n};! ^#Vr+sn&Ͷ;;;ï?!9DM! n&;|SH>t?͐~#fo|=! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 =! 6=! 6! ~#fo! n&! ^#Vr+s~#fo! C<ѯgs#r>! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s>! n}[>! 6#6! ^#Vr+s~#fo! s#r͐n}>͐|>! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sv>͐6! ! s#r! n}?! ^#Vr+s!?! ^#Vr+s! n}?!0?! s>͐! ^#Vr+sns{@?! ^#Vr+s?! n}q?! ^#Vr+s!q?! ^#Vr+s6 J?Ç?! ^#Vr+s`insÝ?! ^#Vr+s`ins~<͐6!9!9DM! n&aͯ?! n&zͯ??!9DM͐͐ 4@͐^#Vr+s͐ !@͐0)@͐7s!&@͐ ͐͐ ͉͐?`is͐ ͐͐ )͐?`in&#&@!9!9DM! n&0ͯڳ@! n&9ͯý@È@!9DM`iw#w͐~#fon&ͺ@} A͐ ?͐^#Vr+snѯg`is#r@͐A!9 "   8A > _ HA7*|DM**͟AڃA>GoyD$v͠Fx0 T%uEEx0  oE AE Ex0  Efg*v#"v*v#"v:'bE*v͎jE> ͧEE>ͧEEE:EE*v͙Es#r!"v*v#"v*v&)*vg:'2lv|bk+Ó_:v*v*v:'FͼE!EE!E]% FFLHTFPLiFMToFMBuFCP0Ft a datafield and type ^R. Type ^J at any question for further information in this phase. Type ^J now to nexcreen: Enteefinition file (or pre RETURN): The form definition file is where the specifications for *!@w# '.'w#7&3ѷ_!4!?*&}o|gz$ p*2"9!33;ʹµ*zzA }o|g!U*w#$\!\*$,w# \O\>OA\òѷ!õ $$$FORMSORTCOM$97Can't find file FORMSORT.COM$No argument$SuperSort error$Internal error $Close failure $Directory or Disk full while writing output file $Too little memory $Formsort Finished $ /~/#~/+T]!0w#   " w!$>w> T$Tbk0w# G; P;w> COPYRIGHT (C) 1980 MICROPRO INTERNATIONAL Serial # SS9999XX ͈)*Us#r*.#."f/zͧ/+w-!9K-!9K-!K->4.""K->4.y/"Uy/"ʹ@, BYTES WORKING STORAGEp:Bj\ :U:7!!*h+G:!G:!! -!*)**t"*"e:Tĉ!SORT $$$&-! .*|>E4.! ->74.,~2O!>34.##" ͎ ~2 2O!>D4.##"͎ * ~ >U4. ##2>24.~O>44.y!>54.ͨ ͝ ~2!>64.##": : !"6!2 2 2 #2  2  2 *6DMyʬ :C2x:ʸ :2!@ ~@ > G27*: *| bkx@t +| #x w : x x@w D-% *"xz \ x@t "":z *:z D-##"2ym *" "*""&"*","."(ë x~ * ~ >C4.!\ yt t " *"""(! "*".*"0:-2*) :!>W4.x :* >V4.:_>84.7 2?,*"f"d!"V(@ K- +|#>94.@==>Y4.~#"6 >\4.{:=>[4.z: >^4.xk x#k ###:###++! 8- ʝ ,Ï ~##<>#4."!""y2^#V#N#F#~ x>?4. *K->>4. K->=4.   *" """$^#V# ¹ z>;4. ( >X4.{{< {@zt{F {{P {{Z {$78*$"$ *D"Z*D*XK->Q4.*Z*X+++J-ڭ ^#V#͠Ÿ "ZÁ :T!U!̦*D*ZK--͡-: @, @,͎-##"\"^!ͬ @,+*D^#Vͨ*dK-d :7 *Z^#V͠7 *D^#V8-*Z*DM "^*Z++"Z*DJ-v P #Fwx#Fwx+Ͳ *D##"D*ZK- @, *^*\-#+|ʞ Fwx#Ì "Z:T> k ô ++DM"("D*$""">-"  |g}o## !"*++"|d ^#V"\!"K)"+K-W5 ^#V#^#V8-!5##"+ ^#V*\8-W! s#r*+*K s#r !d:7Ĕ!"l*/*e#"8ͺͻ**D-"4e#"<͹ͽ "n !"j̀>4."n!͹͹"j̀@,WARNING SW1: MARGINAL SORT WORKING STORAGE%!)"h"n"<"8BÀ*4*"j̀ **8"8*4*<"<*n*h"nO͜">*nDM*j DM*l K-*8*<͔**->4.*0e#ͼ/ DM:7":*>:̔*(##͆-*P x"Ds#r# x"X"R:Ĕ*<T*-**>͔*-"N!-*":2: 2z""P!*:*2ɘ*DDM*Z^#V+"D-"Z*-*<*:͏K-"R͏*:z*-͝:7*Û!*fDM*"f*d-"d*N-"@*8*:͏g-"B6ͦ*D*ZK-҆ͭ *Da/ͩ͒/͑r͠/*Zͱ R*Z+~+~"ZK-i:W> '@G#x/!ʛ:>T] >R4. ͎-zÛ͎-~p:6px '*v"v##N#F'~#fo##q#p'x/~#~*h*ͽ*Bͩ-"`+->ڌPY*@ͩ-"4}>Q4.!#ͩ-##"`*4J-r2W*`*"_͎-*@:Wʴ*B*d"""*`)"X"Z"*`DM2*h|+"h*f####"f"$!5!4*"" x*ͩ-!~b5:****":@Á:**,*+V+^+F+N"!>2%"""`i" "(2$"*z"**##s#r"s#r#w#w*s#r#"+|+*X*`DM+V+^͑+r+s x"D**-"*">2*@, SORTING...!*Fw2,*J->Q>Q:,*|ž@, MERGING... :*@, ADDITIONAL MERGE... @, FINAL MERGE... :,@,, @,`*r*p".*t*l-"0**"4:-: -g"2*~*v-"6@,WARNING SW5: INSUFFICIENT FIELDS OR COLUMNS FOR KEY OR SELECT IN ONE OR MORE RECORDS, BLANKS ASSUMEDV(WARNING SW6: ONE OR MORE CR-DELIMITED INPUT RECORDS WERE LONGER THAN SPECIFIED MAXIMUM LENGTH, AND WERE DIVIDED INTO MULTIPLE RECORDS BEFORE SORT/MERGE: @,0l RECORD INPUT FOR SORTn  SORT RECORD EXCLUDED OR NOT SELECTEDp  SORT INPUT DELETIONr  SORT INPUT INSERTION.t RECORD SORTED: ʱ@,6v RECORD INPUT FOR MERGE ONLYx  MERGE-ONLY RECORDS EXCLUDED OR NOT SELECTEDz  MERGE-ONLY INPUT DELETION~ RECORD MERGED ONLY@,4  OUTPUT DELETION  OUTPUT INSERTION42 RECORD OUTPUT OUTPUT FILE SIZE 2 SORT RUN  MERGE RUN WORK FILE DISK SPACE USAGE *** SORT/MERGE COMPLETE ***¯͎-t̍:V*F'*N~-"P"L'2V!~6**!*F# ͞!"":$: <*R U͈:**=K:6>R4.͎-r*DM::'@ PY=—:•͎-p>2'*l"l*F(!}o"e*">"F"H* " G:2_*"Y:2`* "W~#!m!mgþ͔g| x½+|¢:6&#%q#p#s#r#%:PY6,#':̓.* DM*gK--V:o_N2ozW#~+zW{ m{Zd2og+V#))))y#v++z"‡y‡y6y߹ʓOzW> !m :o02o #~¼wt# +~w# >#f))),)!x3W-~))*W-~))/C*i*g:@ ##-z*~#""h, 2z:~# -+zU~#"h,@+ + xb~ UPY z~#"i ##"{!w6#6#6#6ʚ>o͉ w# ¤{ ʫ0{óN!y4{/ھ.{/N{ D!)͉g{ ./0}oo{|)o)$:yW-$$:x;!zw#{w 0!xX6+455!z4q55*{w*{w#"{x"{ { ʉ->+>:Uʹ*&*N@%>2T"*JͿ%":**e "**J%*R*e ">*% &͎-=7*DM-=_ ͎-:R Y! >*JͿ%":>% >e*J%"J*) ./ INSERT DISKETTE TO RECEIVE OUTPUT IN DRIVE:../, THEN TYPE RETURN*J.:)! :$, ,*"4 :2: :2; 2 z""L>2U@*b*ds#r#b*N%"d͎-h*b":7@p :7~ *"ʌ *Fͼ!*DM::'@ʺ :7 ʺ  ## -PY:! DM*K->  :7@ ̈́'PYz'BK*z'*DM:'6 #6 `i:&!00)!͎-n:! q/###<ƒ!6- a!1/ͬ!T])))):)<} .̈́(^#V#^#V*X("!"!J-">(_zWK-"~-/*h(*!"j(("*b(K-"͜$`i"l(*j(Þ(*!4"(*!"j(& "ʹ(m*):)<|F"! w#6#6#*d(o&͞!-"t("f"`ih"-*j":p"ҥ":r"ڤ"ҥ"##"`(H:r"ʸ"*t"*f"-:r"":p"*`(/|"l#"*`(-l#:r""*f""x"*t( .*h"ʹ( -*l""X(*p""Z(!"n(*n""p(*t("b((*x""d(*!X(-ʹ(:s"=y#=̹#͛(*x"J/|>4./ͭ):Z(&گ#*f(~¯##^#V*`(K->±###^#V"p(#"f(>ʹ(4.1*:Z(*`(*h(w#s#r#w#w#w#"h(̈́(*p(|#!Þ(&#͜$P$:Z(#$x$ +~$#$"f((#"f(`i"l(*l(*j(͔'#*t(*j(++s#r#*l(կw(:Z(#(*p(|#*h(*j(w-*`(/DM*t(( (/("j(&W$"f(#*j(:Z(@$*`(DM($*j(n-:Z(:'$*j("f(&ҝ$7$:Z($*j(/'$+ *h(-{$͍'BK{%z$*`(#K-ڮ$ʹ(>4.*t((BK*h(*j(- ͼ/6%̈́(*`(:Z(^% f%z'f%DM:'`i"v(*h(*d(w-*v(D-DM-"h(*v(-"v(ʞ%'i%:Z((*h(##('*h(6 #6 #"h((̈́(*`(%Þ(*h(('*h(̈́(*h("h((̈́(:Z(@ &%6#6#"h(*h(*f(ͼ/o-(&~("f( &!(*h(m&*f(~(*b("f("h(*t((s#r*n(s#r:Z(ܧ&ʹ(/!"n(Þ(:[(–&:[(ʢ&¢&*f(~(ͼ/"f(â&xr# xr# Ü&&*b(x(####*n(s#r&~(ʹ(!m*!(*h(x(&"h(ͼ/(&x7*f(*h(K-?&*f(:Z(~' ' '#"f(&*':[(?:Z("j(:'>2V(PYz~#?'4.z>4._'D-r#s+V#^+~ʰ'<:[(z7#~<ö':[(z7#~ʶ'*f(~(ͼ/"f(ͼ/('!(-~*t(@'6^#V6 s#r m* ~**f(*h(o-*b(-*f(*b(w-*j("j(*b("f("h(ʹ(/ʹ(/"t(*X(-*t(8!f(-×(*t(ɯ(Þ(*n(#|<(|("n(*p(|<(|(+"p(*b("f("h(*d(J-*h(J-! |2)}2)ʢ)>2))͹)>4.)d*~*):)<|) )! w/4.!*J*d*/d*/*)d*)/<>4.>/!)[*R*" s#r!"a/͕*~*#m**t+*:)<*/=*|*!)*ѯM+!ʱ***>*S*W**/DM- +‰*>4.>4.1*>t+|&+)*:)<9+/=M+"6+*>~#!#F6+Np+FqOp#q#pG~*}O):)<+ʙ+|! ʳ+*͹)³+x°+>)7+7*ʟ+! q!~w[*|d*+x8! 6/<,G*|!!w ,x ,7+>+/_/ /!=0,)(,/%"9,~#!H,, "/!e,W-a/z,w,9/,,,,,,9/,"=,Ç.*9,Ä,*;,Ä,*=,+|>S"/,ͩ-̈́,>K"/,";,|,G:?,#~==#,===,=,##,^#V#Ç/~a{ ~-w ->%4.#~+ -"-/<!--3A<>&4.x# 8-K-GzT-{xɅo>g{_zW{ozg}O|G}_|W}o|gɯo>g^#V#^#Vr+sɷ|g}oDM}ĺ-PY|-)ͺ-)yOxG-33. -~# --x-y -a/p/i/z.zq# .x>4.!9"-.~~2[."!.".*-.|:[.O.o&9/\.9//o&./ERROR͇.".!.͛.*.s.!"/͛.Ê.". ڦ.{:.|ğ.ý.!w#".~.@"/>:"//<6P/ o&6/~#.9/0?: ~ /#/~"/> _/G/?/./ G/~#$9/"/G/p/i/~#foy/~#fo o GM _ WÇ/^#V+Ù/++Ù/##^#V+s#r+*!~6#W-6ɀ*/)))))))}o&ɯ)lg/#ͅ**/**N#"g"i23*~<ʀ0=2-0# >@4.!E0!l0W-a/ɬ000/11000002^#V#339393^#V#339393^#V#N#F#*g33*i-+|#02!PYD-33Ñ03/31313130À03G3^#V#!$00-!0>16\3+r+s #1^#V#!01! 01]:0o"0:0o"0$0!0-*0*0D-:0r1##"+0*+0+"+0|>@ʝ1!0ͪ1!0ͪ1Ѻv1>ڝ1> !-03>3^#V#^#V#N#F#~2o".0I22oy1y# xt# BK*.0#}! "+0y92y# +y92y# ~2:o@2o>t2+~#)2xG:o2o~7+t2yI2+~z2ß:o@>t2y@f2*+0K-> t2z> t26zz2*.0:ow+p+q+r+s+r+s####!2"2!2"232*2K-2*2K-3>4.*2#w2K->4."2*22K->4.~+"293*2##"2s#r2K->4.\3*22K->4.^#V+++"27-./% <=2&?'"5@Z{[lP}M]\Nk`Kaz^L~no|_myjС*3vM{25v"6v:@v\*hv*-v:lT|\!"8vK"3v+"3v#*\Ê o  }!_vзG\z!avد2_vz2`v:/:]vF*0*3vow+p+q+r+s+r+s####!2"2!2"232*2K-2*2K-3>4.INVCE  O ----------------------------------------------------------------------- | ORDER RECORD | | | | Date (M/D/Y): // ORDER #: | | | |SALESPERSON: SELLER ID: | | Buyer: BUYER ID: | | Address: P. O. Number: | | City: | | State: Zip Code: SHIP VIA: | | | | Quantity Product Unit Cost Total Cost | | | | | | | | Tax Rate: % Sales Tax: TOTAL ORDER: | ----------------------------------------------------------------------- 򠱮 ŮƠ宠堠 Ů A@0!990112MO"A!!990131DA%A@"X89YR3@1ORDER@ SALESPERSON'?ASTAFF STAFF ID' @ CUSTOMER NAME &?ACLIENTSR CUST ID&@ SHIP ADDRESS?@PO NO@ SHIP CITY @SHIP ST! @SHIP ZIP? @SHIP VIA Q 999QUAN 1( APRODUCTR PRODUCT 1('( | $.COST 1'3 6 |  $',.TOTAL 13 P 999QUAN 2( @PRODUCTR PRODUCT 2('( | $.COST 2'3 6 |  $',.TOTAL 23! `.TAX RATE!: ` ',. 100 SALES TAX:9 6|  $ ',. TOTAL ORDER9Q 999QUAN 1( APRODUCTR PRODUCT 1('( | $.COST 1'3 6 |  $',.TOTAL 13 P 999QUAN 2( @PRODUCTR PRODUCT 2('( | $.COST 2'3 6 |  $',.TOTAL 23! `.TAX RATE!: ` ',.08,03,82,77781,,GSJ,John Goodguy,GBN,,450911,,,,GREYNHD,9,GADGETS,,,11,GIZMOS,,,3.5,127.13,3759.53 08,13,82,77790,,GSJ,John Goodguy,GBN,,471311,,,,RR EXP,3,GADGETS,,,1,WIDGETS,,,3.5,9.22,272.92 08,27,82,77800,,GSJ,John Goodguy,GBN,,478563,,,,P POST',6,WHATSITS,,,,,,,3.5,56.93,1683.53 09,01,82,77804,,GSJ,John Goodguy,GBN,,478604,,,,BUS,3,GADGETS,,,4,WIDGETS,,,3.5,37.22,1100.76 09,03,82,77809,,GSJ,John Goodguy,GBN,,478678,,,,BUS,3,GADGETS,,,2,WIDGETS,,,3.5,23.22,686.84 08,02,82,77777,,GSJ,Sally Sendemback,SRC,,820208,,,,UPS,3,GIZMOS,,,,,,,6.0,46.49,821.39 08,04,82,77784,,GSJ,Sally Sendemback,SRC,,820482,,,,AIR FRT,3,WHATSITS,,,,,,,6.,48.79,862.09 08,09,82,77787,,GSJ,Sally Sendemback,SRC,,820982,,,,P POST,3,GIZMOS,,,,,,,6.,46.49,821.39 08,23,82,77795,,GSJ,Sally Sendemback,SRC,,822382,,,,1 CLASS,3,WIDGETS,,,1,GADGETS,,,6.,41.26,729.04 09,02,82,77808,,GSJ,Sally Sendemback,SRC,,820209,,,,1 CLASS,3,WIDGETS,,,1,WHATSITS,,,6.,52.25,923.23 08,02,82,77778,,HBS,Barney Addsmore,AUM,,334267,,,,FED EXP,2,WIDGETS,,,4,GADGETS,,,4.0,30.06,781.58 08,09,82,77786,,HBS,Barney Addsmore,AUM,,334276,,,,AIR FRT,3,WIDGETS,,,2,GADGETS,,,4.,31.02,806.70 08,12,82,77789,,HBS,Barney Addsmore,AUM,,334305,,,,UPS,3,GIZMOS,,,4,GADGETS,,,4.0,45.06,1171.56 08,19,82,77793,,HBS,Barney Addsmore,AUM,,335001,,,,UPS,12,GADGETS,,,1,BODKINS,,,4.,68.24,1774.40 08,24,82,77797,,HBS,Barney Addsmore,AUM,,335543,,,,P POST,3,WHATSITS,,,,,,,4.,32.53,845.83 08,25,82,77799,,HBS,Barney Addsmore,AUM,,335580,,,,UPS,5,WHATSITS,,,2,BODKINS,,,4.0,106.32,2764.54 08,30,82,77803,,HBS,Barney Addsmore,AUM,,335693,,,,P POST,5,WIDGETS,,,1,GADGETS,,,4.,43.50,1131.20 09,01,82,77805,,HBS,Barney Addsmore,AUM,,335727,,,,UPS,6,WHATSITS,,,3,WIDGETS,,,4.0,89.05,2315.53 09,07,82,77810,,HBS,Barney Addsmore,AUM,,336504,,,,AIR FRT,3,WHATSITS,,,,,,,4.,32.53,845.83 09,09,82,77813,,HBS,Barney Addsmore,AUM,,339603,,,,RAIL,2,WIDGETS,,,1,BODKINS,,,4.0,42.05,1093.33 08,02,82,77780,,HBS,Fred Paysontime,PCI,,20802,,,,RR EXP,5,GADGETS,,,,,,,7.0,30.76,470.26 08,04,82,77783,,HBS,Fred Paysontime,PCI,,20804,,,,1 CLASS,7,WHATSITS,,,,,,,7.,132.83,2030.53 08,16,82,77791,,HBS,Fred Paysontime,PCI,,20816,,,,P POST,6,WHATSITS,,,1,BODKINS,,,7.,113.86,1740.46 08,23,82,77796,,HBS,Fred Paysontime,PCI,,20823,,,,P POST,3,GADGETS,,,4,WIDGETS,,,7.,74.44,1137.98 08,27,82,77801,,HBS,Fred Paysontime,PCI,,20827,,,,P POST,7,WIDGETS,,,,,,,7.,97.98,1497.70 08,02,82,77779,,STW,Joe Anybuyer,ASO,,0803ZI,,,,MAIL,10,WIDGETS,,,3,BODKINS,,,5.5,217.45,4171.13 08,05,82,77785,,STW,Joe Anybuyer,ASO,,080530,,,,1 CLASS,3,GADGETS,,,1,GIZMOS,,,5.5,14.50,278.20 08,18,82,77792,,STW,Joe Anybuyer,ASO,,081821,,,,1 CLASS,3,GIZMOS,,,,,,,5.5,42.61,817.51 08,25,82,77798,,STW,Joe Anybuyer,ASO,,082514,,,,GREYHND,3,GADGETS,,,4,GIZMOS,,,5.5,71.32,1368.22 09,02,82,77806,,STW,Joe Anybuyer,ASO,,090205,,,,GREYHND,4,GADGETS,,,,,,,5.5,19.33,370.93 09,08,82,77812,,STW,Joe Anybuyer,ASO,,090813,,,,MAIL,3,GADGETS,,,,,,,5.5,14.50,278.20 08,04,82,77782,,STW,Mary Ordersbodkins,OMC,,149561,,,,P POST,4,BODKINS,,,,,,,6.0,156.32,2761.76 08,11,82,77788,,STW,Mary Ordersbodkins,OMC,,149599,,,,UPS,3,BODKINS,,,,,,,6.,117.24,2071.32 08,19,82,77794,,STW,Mary Ordersbodkins,OMC,,149603,,,,P POST,5,BODKINS,,,,,,,6.0,195.40,3452.20 08,30,82,77802,,STW,Mary Ordersbodkins,OMC,,149854,,,,UPS,1,BODKINS,,,,,,,6.0,39.08,690.44 09,02,82,77807,,STW,Mary Ordersbodkins,OMC,,150006,,,,UPS,3,BODKINS,,,,,,,6.,117.24,2071.32 09,06,82,77810,,STW,Mary Ordersbodkins,OMC,,150032,,,,UPS,3,GIZMOS,,,3,WHATSITS,,,6.0,95.29,1683.49 09,07,82,77811,,STW,Fred Paysontime,PCI,,20907,,,,MSSGR,5,WIDGETS,,,2,GIZMOS,,,6.5,98.56,1614.96 ,,,77811,,,,,,,,,,,,,,,,,,,,, ,,149603,,,,P POST,5,BODKINS,,,,,,,6.0,195.40,3452.20 08,30,82,77802,,STW,Mary Ordersbodkins,OMC,,149854,,,,UPS,1,BODKINS,,,,,,,6.0,39.08,690.44 09,02,82,77807,,STW,Mary Ordersbodkins,OMC,,150006,,,,UPS,3,BODKINS,,,,,,,6.,117.24,2071.32 09,06,82,77810,,STW,Mary Ordersbodkins,OMC,,150032,,,,UPS,3,GIZMOS,,,3,WHATSITS,,,6.0,95.29,1683.49 09,07,82,77811,,STW,Fred Paysontime,PCI,,20GSJGBN7778108GSJGBN7779008eGSJGBN7780008EGSJGBN7780409!GSJGBN7780909GSJSRC7777708^GSJSRC77784087GSJSRC7778708GSJSRC7779508pGSJSRC7780809UHBSAUM7777808;HBSAUM7778608 HBSAUM7778908 HBSAUM7779308 eHBSAUM7779708 GHBSAUM7779908 #HBSAUM7780308 HBSAUM7780509 kHBSAUM7781009NHBSAUM7781309+HBSPCI7778008HBSPCI7778308iHBSPCI7779108GHBSPCI7779608,HBSPCI7780108STWASO7777908jSTWASO7778508LSTWASO7779208-STWASO7779808STWASO7780609hSTWASO7781209BSTWOMC7778208STWOMC7778808zSTWOMC7779408WSTWOMC77802088STWOMC7780709STWOMC7781009qSTWPCI7781109VBSAUM7779908 #HBSAUM7780308 HBSAUM7780509 kHBSAUM7781009NHBSAUM7781309+HBSPCI7778008HBSPCI7778308iHBSPCI7779108GHBSPCI7779608,HBSPCI7780108STWASO7777908jSTWASO7778508LSTWASO7779208-STWASO7779808STWASO7780609hST,. AK,0.0 AL,6.0 AR,3.0 AZ,5.0 CA,6.0 CO,6.5 CT,7.5 DC,8.0 DE,0.0 FL,4.0 GA,4.0 HI,4.0 IA,3.0 ID,3.0 IL,6.0 IN,4.0 KS,3.0 KY,4.0 LA,5.0 MA,5.0 MD,5.0 ME,5.0 MI,4.0 MN,5.0 MO,4.0 MS,5.0 MT,0.0 NC,4.0 ND,3.0 NE,4.5 NH,0.0 NJ,5.0 NM,4.0 NV,3.5 NY,8.0 OH,4.0 OK,4.0 OR,0.0 PA,6.0 RI,6.0 SC,4.0 SD,5.0 TN,4.5 TX,5.0 UT,4.5 VA,4.0 VT,3.0 WA,5.3 WI,4.0 WV,3.0 WY,3.0 ,  AKAL ARAZCA%CO-CT5DC =DE EFL MGA UHI ]IAeIDmILuIN}KSKY LAMAMD%ME-MI5MN=MOEMSMMTUNC]NDeNEmNH uNJ!}NM"NV# NY$OH%OK&%OR'-PA(5RI)=SC*ESD+MTN,UTX-]UT.eVA/mVT0uWA1}WI2WV3 WY4H%OK&%OR'-PA(5RI)=SC*ESD+MTN,UTX-]UT.eVA/mVT0uORDER  F #:  Date (M/D/Y): // #: Bill to: Ship to: Address: Address: City: City: State: Zipcode: State: Zipcode: P. O. #: Ship via: Terms: Quantity Product Description Unit Cost Total Cost Tax Rate: % Sales Tax: Total: 1 T099999991 ORDER NUMBER1 $U@0!990112MONTH 'A!!990131DAY*A@"X89YEAR<?QR9999999CUSTOMER CUSTOMER NUMBER< @ BILL NAME @ BILL ADDRESS @ BILL CITY) @OKSTATESDTA BILL STATE)@ BILL ZIPCODED/ACddddddddddddddddddd SHIP NAMED/@ SHIP ADDRESSD/@Cddddddddddddddddddd SHIP CITYD-/@CCOKSTATESDTA SHIP STATE-)>@99999 SHIP ZIPCODE)5 A2 HHHHHHHHHHHH P O NUMBER53 "A DDDDDDDDDDDDSHIP VIA3. ;A HHHHHHHHHHHTERMS.# Q999 QUANTITY 1#2 A@/CC-GCPRODUCTSDTA PRODUCT 12  @ DESCRIPTION 1 ,2 | $. UNIT COST 1,8 ; |  $',. TOTAL COST 18# P 999 QUANTITY 2#2 @@ /CC-GCPRODUCTSDTA PRODUCT 22  @ DESCRIPTION 2 ,2 | $. UNIT COST 2,8 ; |  $ ',. TOTAL COST 28!`.TAX RATE!: $`  ',. 100 SALES TAX:3 ;|  $ ',.TOTAL3PAYMENTSO --------------------------------------------------------- | PAYMENT RECORD | | | | ID: Name: | | | | DATE OF PAYMENT: | | | | AMOUNT OF PAYMENT: | | | --------------------------------------------------------- 򠱮 ӮƠ宠 Ӯ !ACLIENTSR ID! @ CUSTOMER NAME @MO!@DA$@YR+ x$.AMOUNT+ASO,,08,09,82,3233.91 ASO,,09,09,82,6635.06 AUM,,08,10,82,2315.53 AUM,,09,10,82,8144.61 GBN,,08,03,82,5443.06 GBN,,09,11,82,5715.98 OMC,,08,12,82,3452.20 OMC,,09,09,82,8285.28 PCI,,08,05,82,1787.60 PCI,,09,05,82,6786.93 SRC,,08,10,82,4171.13 SRC,,09,10,82,1683.48 ,,,,, ASOASO AUM/%AUMF.GBN]7GBNt@OMC IOMC"RPCI9[PCIPdSRCgmSRC~ on rive PAYMENTSDTAPAYMENTS$$$PRODUCTRO --------------------------------------- | PRODUCT RECORD | | | | Product Name: | | | | Wholesale Price: | | Retail Price: | | | | STOCK ON HAND: | | | --------------------------------------- 򠱮 ҮƠ宠 Ү *'AddddddddPRODUCT**'y $8999.99 WHOLESALE*''y $8999.99RETAIL'' T STOCK ҮƠ宠 Ү *'AddddddddPRODUCT**'y $8999.99 WHOLESALE*''y $BODKINS,325.68,651.36,46 GADGETS,43.95,87.90,214 GIZMOS,129.15,258.30,136 WHATSITS,135.55,271.10,134 WIDGETS,99.98,199.96,155 ,,, .68,651.36,46 GADGETS,43.95,87.90,214 GIZMOS,129.15,258.30,136 WHATSITS,135.55,271.10,134 WIDGETS,99.98,199.96,15BODKINS GADGETS GIZMOS 4WHATSITSNWIDGETS jz{|}~ (highst) Entr the lagest accptable vlue foPAYMENTSDTAPAYMENTSNDXPRODUCTRDEF PRODUCTRDTAPRODUCTR$$$DS-5D,"DataStar - 5"" Dynabyte",350.00 DS-5H,"DataStar - 5"" Heath",350.00 DS-5M,"Datastar - 5"" Micropolis",350.00 DS-5N,"DataStar - 5"" North Star",350.00 DS-8I,"DataStar - 8"" CP/M STD",350.00 DS-RM,DataStar Reference Manual,60.00 MM-5D,"MailMerge - 5"" Dynabyte",150.00 MM-5H,"MailMarge - 5"" Heath",150.00 MM-5M,"MailMerge - 5"" Micropolis",150.00 MM-5N,"MailMerge - 5"" North Star",150.00 MM-8I,"MailMerge - 8"" CP/M STD",150.00 MM-RM,MailMerge Reference Man.,20.00 WS-5D,"WordStar - 5"" Dynabyte",495.00 WS-5H,"WordStar - 5"" Heath",495.00 WS-5M,"WordStar - 5"" Micropolis",495.00 WS-5N,"WordStar - 5"" North Star",495.00 WS-8I,"WordStar - 8"" CP/M STD",495.00 WS-RM,WordStar Reference Manual,60.00 CS-8I,"CalcStar - 8"" CP/M STD",295.00 CS-5M,"CalcStar - 5"" Micropolis",295.00 CS-5N,"CalcStar - 5"" North Star",295.00 ,,  North Star",150.00 MM-8I,"MailMerge - 8"" CP/M STD",150.00 MM-RM,MailMerge Reference Man.,20.00 WS-5D,"WordStar - 5"" DynabyCS-5M }CS-5N 'CS-8I UDS-5D DS-5H )DS-5M NDS-5N xDS-8I "DS-RM JMM-5D qMM-5H MM-5M @MM-5N kMM-8I MM-RM ?WS-5D eWS-5H  WS-5M 2WS-5N \WS-8I WS-RM . QPRODUCTRNDXPRODUCTSDTAPRODUCTS$$$Jo|!9^#V!P!h!!!!!!ͤ!!9^#V##^#V!9s#r!ͦʈ!!ͤ!!9!9^#VX ʥÈ!!9s#r!9~#fo#s#r+!9^#V! !9^#V!9^!ͦ!ͤ!!9^#V!9só!!9s!!9!9^#V ͦB!"!ͤ!9^#V ͦg!<!ͤ THIS PROGRAM INSURES THAT AN INDEX FILE IS TERMINATED BY AN END OF FILE CHARACTER TO RUN: TYPE PUTEOF filename.NDX TYPE RETURN EXAMPLE: PUTEOF ORDER.NDX file not on disk fatal error - disk full fatal error - bad close on file |g}o|/g}/o^#V#DM!99`in|z2 : v}$}}°|ʿ!}¿|ʰ!}|}|?>o&zo&|}|>o&|o&z2 : v||/g}/o#z$/W{/_$DM!>2 ))7#}o|gO : =2 /}: =2 /}DM!>))n =f}}/o|/g#}|ʿð|g}o{_ʷ|/|7g}o{_ʷ)²}}o|gN#F# N#F#z{##^#VBK^#Vz#y####x#~#fo}|>?o&}|>o&{_ʷ|g}o/|g}o~# xD!9 ~#[!h|o!P!9s!9! b! !b!^9^#V!9s#r! 9^!ͦʷ!! 9^!9s#r! 9DM!9~#fo+s#r#|`i#DM+^!9~#fo#s#r+s!!9^#Vs!^9^#Vo!9^#V^zI!9~#fo#s#r+^f *WQOeO* DM* o&O̓o&O* *+++* DM* !9N#F#^#Vkb6#> 6 #=®>6#=· : > A$[@a${$`w# .+w#{o|g +w#!!|a{ !9^#V* !9}|R" |!o!" !!9s#r!9~#fo#s#r+^!9s#r! DM!"V Ý*V #"V *V ʐ!9^#Vz!9^#V^! ͦ!9^#V^! ͦ!9~#fo#s#r!9~#fo+s#rê!9^#V!`i*V ) s#r!9^#Vzʁ!9^#V^! ͵ʁ!9^#V^! ͵ʁ!9~#fo+s#r!9~#fo#s#r+^`i#DM+s!`i#DM+sÖ! *V ͤo͢ !9^#Vz! QA:$$$.SUBo!X !9s#r!9~#fo%s#r!9^#V!6 !9^#V!$^z# !">!!9^#V! 9^#V͛E !">!! 9^#Vù !9^#V!bͦt !">! !9^#V!b!9^#V!bͦʬ !">! !">!P P w ! 9^#V#!9^#V!$s!!9^#V!#s!9^#V!!s#r!9^#V!X ͺ%͟o!9^#V!%^X DM!$ ^!K !b!!$ s!o! 9^#V!%^X DM!!9s#rÑ !!9~#fos#r!9^#V!9~#fo ! 9^#V!9~#fo!b!!b">| `i!~#fo#s#r~ !9^#Vo! 9^#V!%^X DM!!9s#r( !!9~#fos#r!9^#V!9~#fo} ! 9^#V!9~#fo!b!"b">|} `i!~#fo#s#r !9^#Vo!9^#V!%^X DM! 9^#V!! s#r!!# s!o!9^#V!%^X DM!#b!! ^#Vo!9^#V!%^X o!9!.9^#V͛!9!bo!!bDM ͦS ! !b! DMc `iͦc !DM`io!9^#V! ͦʈ ! !b!9^#V!b!9^#VHI@ÉT\ Copyright (c) 1982, 1984, MicroPro International Corp.  REDIT Release 1.03 ID # 711303KP-00A  KAYPRO Computer    "O: WͱͺP2 Ñ! 6OG0: yK_ʉ %! ^#VͤO!`!_457#2  =9Dl 6 { F LD 2 2 2 2 <̀RVQP]" " `i" * DM* * n: ] #z : /<_͎Q͕É*BKPͰC: ¾+ ܨ~ ]+#͝QK͝Q++#~ ~ "+P: ]Cͼ̓P{/Cɻ/P{' “]WVbk#tM: l**I͟^#V͈C: : .PͲĩ™ͩʟC]gy~  ɴ ]gbk~=ytPͰͲ]CͰì&~ ̄]_ C&Pq#~ :.-PͰ_?CPq Z.pQq.: : ! ~͞:̥ʞ2* ͕ 2CVQ! ~/w*͵~ªz͝Qʼ~# ¼}|~2 ͵ n|: _<ҕ:"<"P +*+:G:WO_: : . ]͞: ʞ#~ l>O %͞[* #( LOͱ CP* .Қ #{=y* (  ͓LO!?]QP* ~ ͊>͍W!w]SPO_ʉ l!  0* ͓LO=G0!]QP ̊: H ̎* ͓LO=:_ck͓͝Q{LOɾĀ͓9!VQ*Y!Z<AV !~#y % : b (s >27 N < ZF ͤZF y : O*  +y<ZF B_>B ~V_!Z0s#r ! Z:Y :Y? * |<ZF : ZN : 27*YOGZV 0$F !Z00% !w^0~2 #h !{^e ʄ @>:>  ʭ ̊Ͱ* ʤ >͔LOͱ =ͫ  O ! LO͓# ) S!VQ!3]5 "ͰH: GQ VQ: O: !;]:=QP: /<_( : W͞!5!5~* M %͏!7]:V}UN*+YsT"+YW OsTy͔ b QNͤ ʠ O#~7ȹ  xQ: >!0!= %X͆ !YW*̀R2x!__OSPͤ? !K]QP*2!VQç* * O]!W] !]QP! 5!S]QP! 6 #c xPL L 6.N 6 >2 ͕ =: } 2Yt:>ʇ C*Y1Y2Y3YCYFYRYXYz{~#% 5 H F ! wɷyq  i Gw p" = :2 _i ! ^#V#N#F#{%X}U S ! C]G]!#|!{]nUnU}Y:@VY Oc_ O^#VzS#`̦r+s^#Vz!Bē)|2V}o&H 6H Hw. ͝S(*Yʿʹë*Y"Y :ƀz~#*Y Ϳ*Y"Y>w#c_  ..د  REMSGS OVR! f"H 2͆! "+Y~‚ͣڒ(WOͤͦ26sT6. >zp}Y*YDMM*YDM*Y*M":Y!Y#:Y^#V{ r+s=**| }Ny ĤT#@OͤT:ͤT!6~#.ͤT!GnU ???  xMH\ % ͯ͝SͫWw !:O!Y % !l% !*Ì:2ͤA<. ͣҾ. :<@2d_!m_0~# ̀R!/]CUͦڹ͝S͆ \!ʌ\ * 7B~#L*RU ~O@u_WRzg!O ~#b~#n:#> ng}R}% >-==-R>  ~<->>>>>ɁOb ~#+N#F+>=r<*#W=|:_H ͑ ywCU–!6!~!_] )}U!Y͔V>V!Y\> 3!c]ʖ!o]G0y!g] !k]NGw# w~# +:YOY#x2Y~# # #O~B~ط7##~+:>X͎A<## ~7s~q.#͎͇ s > ~#~0ͤw[?:~طa_)2͑ Q*"͆""͆͘"͆"͆"?:RPTBAKDEFͻOĻ\ % ɯ2\. !"!6\H 6H !ͻ:!\ O~#~i!\ ~#{ͻ++N#F#yˆ:2_Ͷ"ͻ+~# ¥¥ͻ:*|= x~#" *: ]}o|g\H !>2s]: A2d_ CU͑ v)<2*KT͕ͳ?ͻͻO>A8yq#_Ps)#yOĄ*ͻ4## Œͻ##F#Nͻ¤>E8#~u%ͻ+Ew?G% yͻĻ x ͻNy G#N:</( * 7<# >E86#~# M#N###~@#~~#V>y>y>@y N# ɢ !>2] ’*"":@226#"6.#6 #=¸6#""Qɯw#w#w#"͑ s!~6QH 2h3 ]•!"!l**b*~6>6 00Vʹ !4~6Wjʹ Wjr: ͻ * ,gy<Vcʹ cjrOBK_)b{OzG !: A_ #ڦ ž* hWOͤͅy_VW!y_͒_V& bPY`i)DM *~, y( O%b`q#p>͚: w*4>O>`*5K_\b x/Wy/_( Is\*5! Èb*++YP( A% ͚: w*4! b*++YP( A% *4*y\*5O > < }O|G|}~# x~ +xɷW*45/*45>t*45N*~>Ca2/!#܌ĖE5!/!4W>2/!#>Q>R2/!#Eg2/!#G܌xEz͚: > > >>>>>>~Ⱥwy<:.!ZKq>29N2.!B~5~64#=2.!BF#x+'~Ͷ͵'=W'GͶ~'ͶGw'Ͷ!N_~!Nws'Ͷs̈́^Ͷw͙ss7ͶWͶʥ=W{rͤɷ#~*~#> W~Ⱥw#w#w++:,!O:-!Wyr͟* o7 * g02,!!-!4g.L͇*#[ WH& yʹ Wj!>~w̚2*#>ڐwW…Ƀ5*~:Ĺ*r~Ĺ#͚~ɃwWºDM*~#͚+~wW* : O; !* i"!*#@<W)& {͚+~* DM*&͟O: O+gN>͈}>ͩ>ͩ͆ͤw>͟w>>>QUzRK:@!Y:  U _~6Ń  ( BK b s#r`iɯ  # w# BKz *S I  BK* "*ڡ "*ڡ "* ͥ ڡ " *ͥ ڡ "*ͥ ڡ "7 ¹ >ɯ* + ڿ * # * ; * ~ !!//ɷ7* : O; + !* : O # "!27>U!>U!27*~̰#" 7>U!>2-7! ~w!9"7: 2 7#" t!".7^"""!ͅ###(ک!͇"M6͜#T6̧([02{(~!2*7ͲA:@2Y! ~w: 7 +$!!!"27" 7:7͑3" 7I!"#""7ͯ#"".7!"7͕"+$."="L"U"!7"17!#Z8>"!7"17![38>! ]@:>!]F:>(+$i""i"": Gs"2R/2YVQ>2Y:7*+Y!@!74:727:Ygf$!_2#727:(7$$>ʎ$Ҏ$O>37͗$_~#foͽ1G+#¦$~37>27$$:#<37>27*7& $:+wy$ɯ27* 7>272 _* 7t* "%<2%7r#%:7EҊ%#~?_##={%ɷ! %ʴ%=͑3>Bô%:7<> !37%w#w#w#6/#G<&yO> %6$y27x:&7ͤ*2&7yͤ*w# %:#>8% !_% &>0&>bk8&27O F&X&w R&p# J&: Y3727FO#x% %ì&:#7#ʘ&>$2$7:7&>=Fy27#37&&'¸&%6~#>)'&>#2$7~#&͵u'='e'''}''K':$7'o,'r>}., $':,-''='â'~#* 7k% ':$7$'F#~#'W'yO~#!]0u%T'>('&>?'>$2$7~#ڟ'͵u'7'e'}''&~#>('~#'~'>,'~'#>)'o''x'>"  ~'#"'~'F*Z~#''~'#~(#~2*7~#^#V#O((+:)7:7H(oͤ*-@(>2*72)7͵k(w((w(((({8{8z{(c(~#{(7c({(w(=͑3>{(:#w(*7e"!7:%7(z2 >O.QtWO) !)E/ڲ(qy(_sT#²(:7( )!ͳ*ڲ(}G=4**ڪ(͛)v*ò(')ò(=50͵)50!)i))v*)50\)5050)505050X*))r)50**76!74:7=.x):7<.g}207:7o:7‹)-".72~!*7{+*+Yͬ)T}¶): Yo%-)#T(2)u!Ô)2*)+$)))50*:7<*=279:_)2*+$**'*50D.Qt<*=!746:_'*I27t*~=K*~y> :-75050*+Y>OWTͤ*͓*5ͤ*G~p#…*5+G~p+™*_*7&~!9"7*#7+"#7*!7:7_+~ *Z"/:777+,?!]!7<4/6*7T7ͳ4! ^=*:7,)37ͺ.R+Ԍ+_+-ͺ.+4+.x6,w+c+xx,t+.Gͺ.$ʇ+"ʇ+>/2#7*Zá+*Zͯ+..+++ ±+H~#++y*Z+<> yͺ.ͤ~#+~#+ɯ2+7G37,..:#7".6,F,.- .!,ͺ.(>.6,ͺ.#-AҐ,>.-i,.ͺ. ,b, 0 b,7.7?ͺ.0 ͚,ܻ,-:-77* 7(57>..,.*~,#>,,W,>7x~?7O#ͤ7# ,ͺ.ͤA :#7!-!]0,5͞-7O>.y.:#7Ͳ-ͺ.(‚->.~2#7yʌ-,͒-. x-w-# X- ʂ- 2#7 !^.* Zá+ :(7C> °-ɿy!-N# - =ö-ͺ.͎5=.*?-ͺ.)>.-ͺ.*Zͯ+.E..ͩ.".$7>.ͺ.AҐ,-ͺ."ʋ.0.ͺ.(7?>.ͺ.͎5j.<.ͺ.,>~.ͺ.͎5.ͺ.)7>.>.7"’."ʒ.ͺ.*Z. ú.$%.w#,!^.!].!]*~4/~.####.!].!]</ .6:!7*7*7eo/+"/7*7ͬ)'/Tf_*7$"7:7͵+0+0//000000030///////+0+0+0+0+0+0303030//'00'00//_/_/_/_/_/_y?50/_/:(7: `/:_50/_y_O//_//~#fo/!0~#/y2,7ͤO{0y y0 ?/A?:,760y y0 50yG0!]67!c_ U06^@#w#6:7͵410!1^4344h5h543000013033333h3-4-443322330!_1!_1!_1!_1!_>͡1* 7~>080686!_1qO=4q!_ͽ1 # 1* 7~2 7x/w0: 7Ď4+~#&O1>E8I1* 7+~w!^{1]́1:0x1!]b e)!] 6 H * 711!]6e)!m_>;&! 4J$! 52j_!_2#71: 7:(7>* 7yOʿ1͏2=!7wrW* 7ͅ:7r" 7t, > ~### % #*N2Ԁ5ڮ2«2:*7î2y4/!] {1!^ {1!]{1! 2>0%2&~0 2$-2|):%7=O* :7G2 2%7<2 ~ 3q#3*7T>!_73M3zQUzz* 7O1W_ɇOX3* 7V: 7w r!͒2* 7W:(7NQGyxyr*͞3*y"7*͒2* 7w*7>E͒25!3͒23}ķ5}=* 7w=.)3 1* 7w:7<º!w3 4*7E&+~ 43#64=4#x% :7Obk(4w# 4ͺ.8~w<**͒2=27!ͳ4* 7qh5;4y*~# >BR5W41* 7w3c%~?4T5x5%5EN#x>,N5~?O# #05xOc5#X5y:7_~z5> ͓*m5#m5:7͕5>7ů͕5OG0 =xҊ5G0 —5>$*7T/sT5:7*+YTT_5:%7LO*+Y"6*+Y"7T:%7:7_D6"6*7"+Y~)6>_O36#"6Ty ڤTTT*+Y"7!74͈65`6x<ʄ677*7}o"7T:727G*70~T~̾6̾6#6~›6*+Y"7 6#~#fo0~6O36~#*+YoT !+Y36~6*+YUPTcc  @    #B     € B C !!       "               "QR:2%N2$N27N28N2 :2#N:#N!O~w#:ͤ?  :#N/> :*"w+I;No&)p#qW2;*~^K#>w#~wW^;*27;~.đ;̕;ͣ<};<#~. ͤO#~ͤG##y#µ;x;#«;N#Fy< ;k͎5;;;;{!^KBPCWLH`MB`MT`OPPCPLPNPOSRBPCWPO `*27~ K<:K<͒@^<ͣ<-<^K~ ̴<͒@^<ͣ.:_͉< ͉02:N#x27" 7͢?=*=~>f@@QAW<2:ND2;NH=A>=27N!~^K#F#=*y>O!^K>E~!'_Kx!^Ky2;N–=D= ʽ=>A^##¢=_ =r>!/_K !^K !~^KO#F>#y=*y>O!^K>E~!+_Kx!^KyĖ=*#,>W>!_K>> #~D^h>~#Gv>c>^h>h>Q>> 2N@>`2N~##++Dw͕?DGDDo?ʪ>OҪ>45%?#œ>:N>~wy!^KN!^K!^K!^K@!_K!^K!^K!^K !^K@!_KO~!N 45=?=?Aw####~wc?P?h? Y? w P? ~w?!_?#?!N6#š?DO+~!^KF##~I@y=r>! _K:7@W@!8N~p0@!^K!9N6:7O~!^K*Z@Gͩ<S@~ !^KD^͇@3_:;NKD^ͣ@~ڸ@1 @¿@!:N:NGA:N>@:N@>@~¸@ AA8A kL7LK8A_% ~2_ɇ_!?_0ODwD0GD!_K* 7:7OQWȯ29N͖:9NmA>wmA*~#x27" 7A%BvB* 7W•A*~#>Ax~#+»AW»ADCDBBF'r>B~A^>@2NDC^͸@>2NDDA]TG#@B!_K~KB@BɷmBODE#~?_#~ YB #w#>B5DDBʦBGO##ͭBʡB ~˜B6 #‘BˆBq !^K~ ʵB>+B# ­B* 7_*~#" 7B* 7WBD27^>2N@>P2Nz*~#>Q__B>RD= C2N#_͸@>@2NWC:G! <G>E_D#~?#oC$DC>A_>D##C!>2%NdDDد2*N2$N2'N2)N͂E͐EͫE!*N:(Nw:'N1DG-G?GWJ2$NM>24N> V!]}U*+Y+"+Y!=N͔VVQ#~GͥDdD“Dy24N@ ,ͤD#yOҰDyOEO:(Nz_$D:+Y2+Y>.È5(D2(NVQ>V!]}U*>2)NFx$EH#~E_WWODE{4Ey0 iEyHbEhE) pE)sEVQNq#sT:+Y50D2+Y:4N!]E:4N>2)NE!]>E2)N:4NE!]>E!]>E* #~E*~#y2EEWE>2&NMF2&N͞MhL*L͜FͩF,FͩF M~ F!37 @F~# 1FGnFy ~#bFSF> + ,SF:&NʄF2FE>HFy$~0# ÎF37~# ŸFF F¸F:_F:)NF^F~@OF#ҬF>2'N MFM͌MO:(N!37:*NG #GF:)NFG+~@w:4N>*͉G]\78:4N*͉G][\8:4N*~*!]MlG*~*~!GkLxG*͉G]@:*͌G']F: 25N~H^#V#MLMG1HG͎H#27(".NԞH*.N#~©G!74* 7W" 7G* 7:5NG"7>>#G>$_:7<$^#V#"7^#Vɯ27#" 7!7"17" 7:5N"7~NH*177y4"7^H#*17#6"17*7F###6#͎H#{(~oH####*17+"17*7"0N####"7*0N0~#H*0N0~kL:7GnL:7H I!I BI eItIIT$tIIII!I"I I^I#^#V#H>:!_>I27* 7>~_$#~z_$#~v_$I3^BJ2_ BJI!~rI*J^!_I*J+^@@* 7͔I :7><v_$27PK>27* 7~|I!I".N=r>~G27#>/% !_I;^!_J:(7BJ!`BJ#JBJ2_1 BJ|I* 7N#F###BJ3Ji`0T] ~#KJy27:4N*~F!]M͓J!>NLMVLLz27Kz#pJ!>NHw#< ™JH26N>N.K J#~.KJJ^+Vs#r>26NîJ:6N JF#OJyJxJ# Jy:/!!7!OKK!VKhL:/!.K-%GKr>27*y>ͮ%GnL ** eK{Ko^Q^R^c^s^k^#N#F#ڑK|K`iKhLHK K KCK I:/!*y͔I!O^hLK![^hL+~_$+~=6K!_^hL!S^hL:/!6K!W^hL`iK:7<L:#N2#N:7<v_$;W)L!#N~45w6L-LhL:%NWLM! nL![_hL: YG=L L*+Y:@ẀR70~̙LʧLʬL̸LOWL#xnLnL#Fx Ly#nL#~#fo"nL#͌MG~L L~=GÜLxLL;WW!$Nw>24N Ly  L:%NʤTy M_2M!M!-N4M:$N{\MH !-N~6W !M :M!+N lMFGM4 xM2-N6# †M4~P QG~PP~~Q{_zQ QxNw:@* R_: W!R:P~# &QPVQ*͎Q:RO͒Q MQ:YG>OQ: ROҊQ>Q͎QʄQͦQO xnQxAV͝Q~# ’QÎQ: ~.* 7|ʳQ~#W:R_~ #Q/<_ûQP >: >* R*Y: RGO^#V#" QfOS2 Y:2Y:@2YG*"2Y"4YS[R"2YX"4YX"6Y:@_:M!V![2!Y*"W"X" Xͧ!gTT̀R>2$Y*@: Ygc%.RB*2Y""YRS¼RR*6Y+r T TžR:Y(T!R"+YP6 #R:YS\U:gES*)Y{Sz=SG:!YS*"YlT=S!MgT*aMT:`$SLU\S!VgTJ\S![gT:T͑S!CXZQDMg7S*c-Ty&~S / lSGT~+=xjS dT͑S~2$YwAS")YDMX""Y* Y:@=gR TSO͹Sy:$Y2YgTTF#NTiTyT*+YͤTS›TRT!)Y4*"Yq#""Y*+YRͪTy T : Y=!+YU͹S!+Y4: YTT*+Y$o"+Y2TyO XW*+YTT]!U U"+Y: YG {͹S#U*+Y|/UDMXOS@U*6Y 6*+Y;W_UWiUIUO"+Y}U ȹ*+YDM}U0!"'Y`i"%YU!UU*%Y"-Y*'Y|µU*%Y"+YUTDM"+Y"U}U>2U*U$~~#VV*V\VpVzV ̊V V U.VxUUɷ^#V#"UF#UU SVͯS!%Y4: YQVw#4~/U> 9VSV:%YSV>=9VcVSV:&YmV#*%Y"'Y ڿVOsTq#VsVwʹV#6ùV 6ʹVVÝV{!+Y5 sT5+`.T$=VW X«W͛T:/Y&W2WWͫWaWWͫWwW&W::)YO*"Y FSLW:$YG: YxWW#+ ]W+dWT͍WuWjW>͍W*0Y͆W*+YRgW͖W=WO=™W;Wy#45!&X2XSW*6Y~OXKX6#:@8XXXuX2XĚXrX# : Y=^X:p=: Yo&+~ X„XzڗX{`iR:X XO͉TWX#: Y¡X:XoO`RX6 # : YX!pgTT;WX*4YX*2Y: Y YogWYxY)Y<=>=<>=&+-*/^(),< < F I E L D D E F I N I T I O N > > press ^J for help on any item Field number/name:'Equivalent to field:'Control break level:'Copy attributes of field:'Field source: (File/Calc/Input)' File number/name:' Field number/name:' Index field number/name:' Numeric/String? (N/S)' Enter string expression:  Enter algebraic expression:  UNLESS THEN  Enter input prompt: Right justified? (Y/N)'Enter pad character:'Edit mask? (Y/N)'Edit Mask Condition Codes: F = float character position'T = trail character position 1 = float if first in column'C = trail if first in column - = float if negative'N = trail if negative + = float if positive'P = trail if positive ' = constant if data on one side'" = constant if data on both sides _ = constant or field data'. = decimal alignment position This mask defines positions only: floating, constant or decimal alignment. The next mask provides the actual characters to be used at each position. Enter the edit mask condition codes:This second edit mask is used to define the actual constants that will appear if the conditions of the first mask are met. When these conditions are satisfied, one character will appear in the field for every constant character in the mask. Combinations of floating characters may be used here; for example the characters "CR" used as constants in this mask with a corrsponding "NN" in the previous mask will print a CR after negative quantities. Enter the edit mask constants: When should the field be loaded with a new value: = always R = only at report start P = at each new page 1-9 = after control break * = when the following expression is satisfied Enter load condition ( /R/P/n/*): Enter expression for field load: LOAD WHEN Output field to file? (Y/N)' When should the field be cleared: = always . = never P = at each new page 1-9 = after control break * = when the following expression is satisfied Enter field clear condition ( /./P/n/*): Enter expression for clearing the field: CLEAR IF lowing expression is satisfied Enter field clear condition ( /./P/n/MLMG1HG͎H#27(".NԞH*.N#~©G!74* 7W" 7G* 7:5NG"7>>#G>$_:7<$^#V#"7^#Vɯ27#" 7!7"17" 7:5N"7~NH*177y4"7^H#*17#6"17*7F###6#͎H#{(~oH####*17+"17*7"0N####"7*0N0~#H*0N0~kL:7GnL:7H I!I BI eItIIT$tIIII!I"I I^I#^#V#H>:!_>REPORT COM == -}= = ] = =  = =  m = =  = = M }= X 2 e H   # + 3 5 8 9 D U S a e e  3; ) IzzIzzI66l HHl HHl KK"^^"^^"aa%zz%zz%}}')*,*0/3c2553HH36}};8__lAXXB966!HH!HH!KK$^^$^^$aaI&zzI&zzI&EFGJj|^ J LPRMP)W\rX`U#Y]d[ze[\g\\Q ),.0?OS~,!.8EGZgi7breh<Km!npnnnkjm;oo pSpσ ppq`sbsstdtwu'vvEwhxyzHzz&{r{{1||CHXmϘ|"}}}B~~~$8>EK_oxǙЙ 5EZ\q2pN8fŠNȋ8_%Y?͎VʏK 0i:ޒ9jĕ:DTAFT1C-N+P'".NYEAIOFCISR-ABCDEFGHIJKLMNOP?NS_00-- SINENNF0?0??0   *.1234567899PRRP123456789 :CURSOR: ^A=left item ^S=left char ^D=right char ^F=right item ^E=up line ^X=down line ^U=set/clear tab ^I=tab DELETE: DEL=char left ^G=char right ^T=entire column ^Y=entire line INSERT: ^P=line buffer ^V=char right ^B=entire column ^N=entire line OTHER: ^J=rotate help ^W=list form ^C=form done ^K=control break FIELD: ^Q,_=add/extend field ^Z=delete field ^R=define field OTHER: ^J=rotate help ^W=list form ^C=form done ^O=toggle ^ char CURSOR: RETURN=next item ^S=left char ^D=right char ^E=prev item OTHER: ^A=previous field ^F=next field ^G=delete char ^V=insert char ^C=end definition ^R=start over ^Q=locate field ^J=more help OTHER: ^A=previous line ^F=next line ^G=delete char ^V=insert char ^C=end definition ^Q=locate line ^J=more help OTHER: ^A=previous file ^F=next file ^G=delete char ^V=insert char ^C=end definition ^R=start over ^T=top of page ^J=more help OTHER: ^G=delete char ^V=insert char CURSOR: ^E=up line ^S=left char ^D=right char ^X=down line PRINT CNTL: SPACE=always print P=once/page R=once/report :=summaries only 1-9=print at control break n .=non-printing *=user defined _______________________________________________________________________________ LIN=001 CHR=001 HELP SCREEN # LIN=001 CHR=001 NUM=000 LEN=000 POS=000 EDC=xxCTL.AND..OR.<><=>=<>=&+-*/^(),< < F I E L D D E F I N I T I O N > > press ^J for help on any item Field number/name:'Equivalent to field:'Control break level:'Copy attributes of field:'Field source: (File/Calc/Input)' File number/name:' Field number/name:' Index field number/name:' Numeric/String? (N/S)' Enter string expression:  Enter algebraic expression:  UNLESS THEN  Enter input prompt: Right justified? (Y/N)'Enter pad character:'Edit mask? (Y/N)'Edit Mask Condition Codes: F = float character position'T = trail character position 1 = float if first in column'C = trail if first in column - = float if negative'N = trail if negative + = float if positive'P = trail if positive ' = constant if data on one side'" = constant if data on both sides _ = constant or field data'. = decimal alignment position This mask defines positions only: floating, constant or decimal alignment. The next mask provides the actual characters to be used at each position. Enter the edit mask condition codes:This second edit mask is used to define the actual constants that will appear if the conditions of the first mask are met. When these conditions are satisfied, one character will appear in the field for every constant character in the mask. Combinations of floating characters may be used here; for example the characters "CR" used as constants in this mask with a corrsponding "NN" in the previous mask will print a CR after negative quantities. Enter the edit mask constants: When should the field be loaded with a new value: = always R = only at report start P = at each new page 1-9 = after control break * = when the following expression is satisfied Enter load condition ( /R/P/n/*): Enter expression for field load: LOAD WHEN Output field to file? (Y/N)' When should the field be cleared: = always . = never P = at each new page 1-9 = after control break * = when the following expression is satisfied Enter field clear condition ( /./P/n/*): Enter expression for clearing the field: CLEAR IF This part of the program defines file usage. (^J = more help at any item) Enter the number of the next file to define or review:  This part of the program defines file usage. (^J = more help at any item) Enter the name of the associated definition file:  On which disk drive is the definition file located? (-/A/B...)?Access datafile in Sequence or as Reference file? (S/R)? Enter the condition(s) for record inclusion: INCLUDE IF Will the file include more than one volume? (Y/N)?How large should the disk buffer be??Will the datafile name(s) be entered at run time? (Y/N)? Enter the datafile name(s): Disk drive: (?/-/A/B...) File name: 2.9Change disks? (Y/N) Is the file going to be used for Input or Output? (I/O)?Should the file be read in index order? (Y/N)?Error if old version present or Add to it? (E/A)?Should an index file also be written?? < < F I L E D E S C R I P T I O N > > Access: If file exists: No. of buffers: Volume name: OPERATOR ENTERED, MULTI-VOLUMEVolume name:., CHANGE DISKSInclude if: Location: Line= Column= Length=Equivalent to: Control break level: Source:File="Field=Index=CALCULATED = Unless: Then: OPERATOR INPUTPrompt: RIGHT JUSTIFY Editing: EDIT MASKLoad if: Output: If: Clear if:  Enter the condition(s) under which this line should be printed: PRINT WHEN Print line  when Enter the condition(s) for a new page: PAGE WHEN Enter the condition(s) ending the report: END WHEN PAGE WHEN END WHEN < < D E F I N E C O N D I T I O N S > >You have entered the field definition phase by typing a ^R. The <2300> field definition phase is a questionaire which allows you to define how field information is to be derived and processed. In the questions that follow, the answers you give will apply to the current field only. To return to report layout definition, type ^C. This item allows you to specify the order in which fields will be processed during the report generation.This item is used to save time when entering field attributes. If <2330> another field is defined similarly, entering its field number here will cause its attributes to be used by this field also. CAUTION: If you answer Y here and you have already entered a definition for this field, it will be replaced by the new definition.Report field data may be read from a file, calculated from other <2340> fields in the report or entered by the operator. Decide how the data for this field is to be obtained and enter an F, C or I here.Files may be specified by name or number. In order to accept the <2341> entry, REDIT must recognize the name or number, i.e. there must be a file with that name or number in the list of defined files. Enter the name or number of a file that has already been defined or enter ^C^C^F to create a new file definition.Files may be specified by name or number. In order to accept the <2371> entry, REDIT must recognize the name or number, i.e. there must be a file with that name or number in the list of defined files. Enter the name or number of a file that has already been defined or enter ^C^C^F to create a new file definition.Fields may be specified only after the file has been specified. A <2342> field may be selected by number or name if it has been given a name (using FORMGEN) and the form definition file has been successfully read into memory; otherwise only the field number can be used.Fields may be specified only after the file has been specified. A <2372> field may be selected by number or name if it has been given a name (using FORMGEN) and the form definition file has been successfully read into memory; otherwise only the field number can be used.To retrieve data from a reference file, one field in the report must <2343> hold a key value of the file being searched. The report field which holds the key value is called the index field. Enter the name or number of the field in the report to use as an index to the file in selecting records.To update data from a reference file, one field in the report must <2373> hold a key value of the file being accessed. The report field which holds the key value is called the index field. Enter the name or number of the field in the report to use as an index to the file in selecting records for update.A numeric calculated field uses an algebraic expression to derive a <2344> value for the field. The algebraic expression consists of fields, functions and numeric constants combined using the operations: add(+), subtract(-), multiply(*), divide(/), exponentiation(^) A string expression consists of fields, sub-fields and string constants combined using the join(&) operation.A string expression may contain fields, subfields or constants. <2346> Fields are represented by field name or number preceded by "$": $7 Subfields are used to extract a portion of a field. The form is: $field (first character position, number of characters): $7(1,2) Constants are represented by characters enclosed in quotes("): "A01" The expression, $6(1,2) & $7(3,1), combines the first two characters of field 6 with the third character of field 7.An algebraic expression may contain fields, functions and constants <2345> combined with the arithmetic operations: add(+), subtract(-), multiply(*), divide(/) and exponentiation(^). Operations are performed from left to right with parentheses recognized. Fields are represented by name or by field number preceded by a # sign: #7 Constants may contain a decimal point and/or a leading minus: 1.23, -1.005 Recognized functions are: ABS, INT, MAX, MIN, REM, PAGE, FLDThe UNLESS expression provides the facility to omit the calculation <2348> in the line above it. If the UNLESS expression is true, the field value will be determined using the THEN expression (entered next). If the UNLESS expression is false or not entered, the field value will be determined using the expression in the line above it. If multiple UNLESS clauses are present, the field will be calculated using the expression immediately preceding the first missing or false UNLESS. The UNLESS expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic/string expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR.The input prompt is a message that will be displayed to the report <2347> program operator so that he/she knows what entry is required. Any message that will fit on a single line can be used. It will be displayed to the report program operator at the top of the screen. The cursor will blink back and forth between the message and the field to be entered.Right/left justification determines on which side of the field the <2351> data will be placed when it does not fill the field. A Y answer will align the field data with the right side of the field.Pad characters are used to fill the field when there aren't enough <2350> data characters to fill it. Any character can be used; the usual choice is the space character.An edit mask allows you to add fixed and floating characters to the <2352> data characters in the field and set a decimal alignment position. Fixed characters occupy fixed positions in the field; floating characters are characters whose position varies depending on how many data characters there are in the field. Decimal alignment is lining up data for output at the decimal point. You cannot put a non-integral calculated value into a field unless it has a decimal alignment position. A Y answer will allow you to enter an edit mask in two steps: positions/conditions and constants.The float codes are used to put character(s) in front of the data; <2353> the trail codes after the data. The codes for constants will insert characters at fixed positions into the data. Decimal alignment overrides right/left justification, putting data into the fields with decimal points aligned at that position. To use the float and trail codes, put one at every position in the field that the floating characters defined in the next mask may occupy. Some examples are: FFFFF, 11_.__NN, FFFF"FF_.__, ---"--_NCharacters that you want to float or trail must be put at the start <2354> or end of positions defined as floating/trailing in the first mask. Fixed characters and the decimal alignment character must be put at the constant and decimal alignment position. Some examples of mask combinations: FFFFF 11_.__NN FFFF"FF_.__ ---"--_N $____ $__.__CR $___,___.__ <__,___>The data generated for this field can be written to a file instead <2370> of or in addition to printing it. This feature can be used to make multiple reports, write audit trails, create data files for other programs, etc. If you choose to output this field, the next few questions will allow you to specify to which file and field the data should be written.Field names are optional. If a field name is entered here, then all <2300> references to this field will use the name as well as the number. A field name must start with a letter. The remaining characters may be letters, numbers, or spaces.Equivalent fields are used only in reports that read more than one <2310> record from a file as the report form is filled out. An example of this is telephone directories which list names and phone numbers in four columns. Assigning equivalence signals the report program that a new record must be read for each set of equivalent fields. To make this field equivalent to a field previously defined, enter the number of the field in the report that is appropriately defined. The field definition will be over for this field and any attributes previously assigned to this field will be lost.This field is a control break field. Control breaks are used to <2320> produce report summary lines and other special effects. This is done by specifying elsewhere in the report what should be done whenever the value of this (or any other control break) field changes. Notice that for this to actually produce summary lines, the input file(s) must be sorted in control break field order, so that when the value of a control break field changes, it is an appropriate time for a summary. Up to nine fields may be used for control breaks. These are given a number called the control break level, such that level 1 is most important and 9 is least important in the sort order. This allows nested summaries such as city (2) within state (1).The load condition specifies how often new values should be entered <2360> into the field. A load condition can be used when a field value is relatively constant or when the field is not on a report detail line (CTL character = space). Using the load condition can speed up report processing. In addition, using the "R" load condition enables the field to be used in an INCLUDE IF expression.The LOAD WHEN expression specifies the conditions under which this <2360> field should be loaded. The expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is: LOAD WHEN $MONTH="JANUARY" .AND. DAY=1 to load the field with a new value only on the first day of the year.Normally, fields are not cleared during processing. This is of no <2380> consequence since each pass will generate new field values. However, in order to produce counts and accumulated totals for summaries, you must clear the field at a new page or control break. Select one of the clear conditions if this field is a count or total field.The CLEAR IF expression specifies the conditions under which this <2380> field should be cleared. The expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is: CLEAR IF $MONTH="JANUARY" .AND. DAY=1 to clear the field on the first day of the year. Before a file can be used by ReportStar, you must describe how. <2100> These file usage descriptions are entered here, one per file. They are automatically numbered and saved. Enter the number of the next file description you would like to enter or review or press RETURN to accept the number given.The form definition file is read into memory and incorporated into <2110> the report specification at this step. If you change a definition (with the FORMGEN program), the new version should be put into the report specification. This is done by deleting and re-entering the disk drive. Enter the disk drive (A,B,...) where the data definition file is now located. A dash (-) may be used if it is on the logged drive.If your report uses only one file for input, access should usually <2130> be sequential. If it uses more than one file for input, as long as at least one of them is accessed sequentially, the remainder can be accessed either way. The considerations are: All sequential access files must be in the same order for merging to occur. Merging sequential files can be tricky if there are "missing" records in either file. Consult your reference manual if you are going to do this. For large files, reference file access is slower and requires more memory. Reference file access requires an index file.The report program can write files as it makes the report. These <2120> can be transaction summaries, audit trails, data for additional reports, etc.Sequential input files can be read in index file sequence as well <2135> as data file sequence if an index file is available. This saves a sorting step, but is usually slower and uses more memory. For large files, it is faster to sort them with SUPERSORT and read them in datafile sequence.If nothing is entered here, all records will be included. Otherwise, <2160> a LOGICAL EXPRESSION is used to select records for input or output. A logical expression specifies conditions under which a report process should occur. Each condition is expressed as a comparison of two values. An expression may compare the values of fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: AGE > 30 $GENDER = "F" Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is INCLUDE IF AGE > 30 .AND. $GENDER = "F" to include only women over the age of 30 in your report or output file.An input file may be in several volumes. All volumes may be on one <2145> disk (each volume having a unique name) or on several disks (each volume having the same or different names). All volumes must use the same form definition file. The REPORT program inputs each volume one at a time, as it is needed. The report program can also create multi-volume output files. The usual reason for doing this is that the file is larger than the capacity of one disk.If the file is one that you want to re-create every time the report <2125> is run, enter E to report the presence of any old version. If you you want to add to the file whenever the report is run enter A.If the file will be accessed later by DATASTAR or used in REPORT <2133> as a reference file, an index file must also be created. If the file will always be read sequentially, the index is unnecessary. Writing an index along with the data is slower than writing just the data. For large files, it will save time to use SUPERSORT to write the index file.Datafile names can be specified now or entered later when the report <2150> is run. A Y answer here will be require that the datafile name be entered every time the report is run. An N answer permits you to enter the datafile name(s) here and have them built into the report specification. This means that the name(s) of the datafile(s) used must always be the same for this report.Specify the disk drive where this datafile will be found when the <2152> report is run. You may enter a question mark (?) to allow the disk drive to be entered at run time.A file name is 1-8 letters or numbers. <2153>A file type is 0-3 letters or numbers. <2154>A Y answer here will cause the report program to ask the operator <2155> to insert the correct diskette into the drive specified. For a single volume file, it is used to remind the operator which drive to use. For multi-volume files, it is the only way to continue the file on the same drive. To use the change diskette message, this must be the only file in use on this drive (including the error log, the message overlay and the print file).Every file description includes information about the structure and <2105> type of data in the file. This information is stored in the form definition file (.DEF) by the FORMGEN program. If there is no form definition file for this file, you must exit and use FORMGEN to create one; otherwise, you may enter its name here. Note that the data file(s) defined here may later be referred to by description number or form definition name. To remove a file description from the report specification, delete all the characters in the definition name.A disk buffer is an area in memory used to hold data while waiting <2140> for it to be used (in the case of input) or written (for output). The number you assign here determines how many 128 sectors of memory will be used for the buffer area. Always use at least 8, unless this does not leave enough memory to run the report. Only the following entries are acceptable: 1, 2, 4, 8, 16 or 32.The PRINT WHEN expression specifies the conditions under which this <2240> line should be printed. The expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is: PRINT WHEN $MONTH="JANUARY" .AND. DAY=1 to print the line only on the first day of the year.The PAGE WHEN expression specifies the conditions under which a new <2400> page should be started. The expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is: PAGE WHEN $MONTH="JANUARY" .AND. DAY=1 to start a new page on the first day of each year.The END WHEN expression specifies the conditions under which the <2400> report should be ended. The expression must be a comparison of two values. The values compared may be fields, sub-fields, numeric constants, functions, character strings or arithmetic expressions. The following comparisons can be made: less than [<] less than or equal to [<=] equal to [=] not equal to [<>] greater than [>] greater than or equal [>=] Examples of comparisons are: $MONTH = "JANUARY" DAY = 1 Comparisons can be combined using the logical operators: .AND. and .OR. An example of combining comparisons is: END WHEN $MONTH="JANUARY" .AND. DAY=1 to end the report on the first day of the year. REDIT Release 1.03 ID # 711303KP-00A Copyright (c) 1982, 1984, MicroPro International Corporation. All rights reserved. ay not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in aid License Agreement except with prior written authorization from MicroPro.** Error 01 ** .COM is not present on drive  Specify which drive (A-P) to try next:  ** Error 02 ** Cursor is not in a field,  ignored. Press ESC key:  ** Error 03 ** At line limit,  ignored. Press ESC key:  ** Error 04 ** Cannot delete last line. Press ESC key:  ** Error 05 ** At column limit,  ignored. Press ESC key:  ** Error 06 ** Not enough memory,  ignored. Press ESC key:  ** Error 07 ** Possible fatal program error. Please report occurrence,  ignored. Replace system disk, press RETURN:  ** Warning 08 ** Edit mask may need revision. Press ESC key:  ** Error 09 ** The maximum number of fields is 245,  ignored. Press ESC key:  ** Error 10 ** Can't read report specification file. Replace system disk, press RETURN:   < < < P R I N T C O N T R O L C H A R S > > > *Special Effects* | * Special Effects * | * Printing Changes * (begin and end) | (one time each) | ^A Alternate pitch ^B Bold ^D Double | | ^N Standard pitch ^S Underscore | ^H overprint character | ^C Printing pause ^X Strikeout | ^F Phantom space | ^Y Other ribbon color ^V Subscript | ^G Phantom rubout | * User Patches * ^T Superscript | | ^Q, ^W, ^E, ^R ** Error 11 ** Insufficient memory. Replace system disk, press RETURN:  ** Error 12 ** Directory on disk : full. Replace system disk, press RETURN:  ** Error 13 ** Disk : full. Replace system disk, press RETURN:  ** Error 14 ** Illegal string operand. Item must be: a field name starting with $ or field number in the range $001 to $, a sub-field: field name/number followed by "(number,number)", the function $FILE, or a literal enclosed in quotes. Press ESC key:  ** Error 15 ** Illegal string operand. There are no report fields, so item can only be: the function $FILE, or a literal enclosed in quotes. Press ESC key:  ** Error 16 ** Completion of the current command, ^B, will result in a field being split. Is this what you wanted to do? (Y/N)  YNY** Error 17 ** Completion of the current command, ^T, will remove a field byte. Is this what you wanted to do? (Y/N)  YNY** Error 18 ** Illegal operand. Item must be a field number in the range #001 to #, a numeric constant using only digits 0-9 and optional decimal point, one of the functions: ABS, INT, MAX, MIN, REM, PAGE, FLD, ERR, FERR, CB or a recognized field name. Press ESC key:  ** Error 19 ** Illegal operand. There are no report fields, so item must be: a numeric constant using only digits 0-9 and optional decimal point, one of the functions: ABS, INT, MAX, MIN, REM, PAGE, FLD, ERR, FERR, CB or a recognized file field name (INCLUDE IF only). Press ESC key:  ** Error 20 ** Illegal operator. Item must be one of the following:  Press ESC key:  ** Error 21 ** Unclosed left parenthesis. Press ESC key:  ** Error 22 **  - Illegal character. Press ESC key:  ** Error 23 ** The form definition file, , is not present on drive . Do you want to try Another disk drive or Change diskettes? (A/C)  AAC** Error 24 ** Field  already has this name. Press ESC key:  ** Error 25 ** Insert diskette containing  into drive  and press RETURN. ** Error 26 ** The form definition file, , is not present on drive . Press ESC key:  ** Error 27 ** Entry must be a number in the range 001 to . Press ESC key:  ** Error 28 ** The only entry allowed here is 001. Press ESC key:  ** Error 29 ** Can't recognize field name. Press ESC key:  ** Error 30 ** Intermediate fields cannot be used in ReportStar. Press ESC key:  ** Error 31 ** Can't read form definition file. Press ESC key:  ** Error 32 ** You must enter a file description before it can be used. Press ESC key followed by ^C^C^F:  ** Error 33 ** File  already has this name. Press ESC key:  ** Error 34 ** Expression too long. Press ESC key:  ** Error 35 ** Too many/missing function argument(s). Press ESC key:  This is a two-part program that is used to create a report specification file. The first part of this program consists of a series of questions about the data files used in the report. The answers to these questions will be stored in the report specification file, and used later when the report is produced. You may type ^J at any question for additional information about that item. The second part of this program defines the report format. The first column of each line specifies when and how often that line type will appear in the report; the remainder of the line is an image of what will actually be printed. Any line may contain heading and data descriptions and/or report data. Space for report data is called a field and is indicated by the underline character. An example format is shown below: R INVENTORY REPORT FOR THE WEEK OF ________ P Part Number Quantity Price/thousand Total Value _______ ______ ________ ___________ As you create the layout, you may move freely around the screen using the CURSOR commands that will be displayed at the top of the screen. Type ^J now to begin the first part of the program:Enter name of report specification file (or press RETURN): The report specification file is where the specifications for your report are stored. If you have not yet designed a report, choose a name for the report specification file and enter it here. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: ** Error 36 ** ":" is not a legal disk drive. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: ** Error 37 ** "" - illegal character. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: ERROR 01 No report fields have been specified. ERROR 02 No detail line type (" " or ":") is present. Field  ERROR 03 Input file not specified. Field  ERROR 04 Output file used for input. Field  ERROR 05 Input field not specified. Field  ERROR 06 Index field not specified. Field  ERROR 07 Output file not specified. Field  ERROR 08 Output field not specified. Field  ERROR 09 Equivalent field or its base cannot be a control break. Field   10  Field calculation error: Field   11  UNLESS/THEN error: Field  ERROR 12 Missing edit mask constant. Field  ERROR 13 Edit mask order is not float, data, trail. Field  ERROR 14 Equivalent field is base of an equivalent field. Field  ERROR 15 Number of equivalent fields not constant. Field  ERROR 16 Equivalent field is referenced. Field   17  LOAD IF error: Field   18  CLEAR IF error: File   19  INCLUDE IF error: Line   20  PRINT WHEN error: Ctlb  ERROR 21 Control break not specified. Field  ERROR 22 Illegal line type for equivalent field or its base. WARNING 23 End report condition has not been specified. Field  ERROR 24 Input file used for output. File  ERROR 25 Missing data file volume name. Line  ERROR 26 Dot command error. WARNING 27 Control column order not RP123... ...321RP. Field  ERROR 28 Missing edit mask float/trail constant. Field  ERROR 29 Missing edit mask decimal alignment constant. Field  ERROR 30 Multiple edit mask decimal alignment positions. Field  ERROR 31 Edit mask float/trail constants not packed. Field  ERROR 32 Multiple edit mask float/trial conditionals. File  ERROR 33 Missing sort order. Field  ERROR 34 Equivalent fields with different field lengths. Field  ERROR 35 Equivalent field base is forward referenced. Field  ERROR 36 Multiple outputs to the same field. WARNING 37 Possibly not enough memory to run REPORT program. Field  ERROR 38 Control break field is control break or page dependent.   39  PAGE WHEN error:   40  END WHEN error: Field  ERROR 41 Input field not present in file. Field  ERROR 42 Output field not present in file. Field  ERROR 43 File key different length than index field length. Field  ERROR 44 Load condition not permitted with sequential input. Field  ERROR 45 Base of equivalent field cannot be operator input. Line  ERROR 46 Non-equivalent field(s) on line. ERRORAmissing report field. ERRORBillegal sub-field. WARNINGCrestricted function. ERRORDillegal use if FERR. ERROREreport field reference not "R" LOADed. Enter exit command: A=Abandon form-> start over S=save form -> end edit C=save form -> Continue edit F=no save -> edit File definition X=no save -> edit conditions L=List errors on LST: device SPACE=no save -> Continue edit (A/S/C/F/X/L/SPACE): Enter exit command: A=Abandon form-> start over S=Save form -> end edit C=save form -> Continue edit F=no save -> edit File definition X=no save -> edit conditions R=save form -> Run the report SPACE=no save -> Continue edit (A/S/C/X/R/F/SPACE):   errors and incomplete fields: Item # Error # Error description  Abandon edit without saving form? (Y/N)   ABSINTMAXMINREMPAGEFLD$FILEERRFERRCB Please enter page width (in columns):  Which reports do you want? 1 = Field numbers and ctl chars 4 = Field definitions 2 = Edit masks 5 = Print line and other conditions 3 = File descriptions 6 = Cross reference N = none of the above A = All of the above Enter one or more of 1,2,3,4,5,6,N,A and/or RETURN: A 123456NA REPORT LISTING WITH FIELD AND FILE ATTRIBUTE DEFINITIONSFIELD NUMBERS CONTROL CHARACTERS FILE DEFINITIONS EDIT MASK CONDITIONS EDIT MASK CONSTANTS PRINT LINE AND OTHER CONDITIONS FIELD DEFINITIONS CROSS REFERENCE LISTINGREFERENCEOUTPUT, WRITE INDEX FILEOUTPUTINPUT (INDEX ORDER)INPUTADD TOERRORFIELD NOT PADDED PAD WITH   NEW PAGEREPORT START(ALWAYS)REPORT ENDCONTROL BREAK   +LINE  PRINT CONDITION +FILE INCLUDE CONDITION+INDEX FOR , FIELD +CALCULATION+OUTPUT IF CONDITION+CLEAR IF CONDITION+EQUIVALENT TO+FIELD LOAD CONDITION+NEW PAGE CONDITION+END REPORT CONDITIONN+OUTPUT IF CONDITION+CLEAR IF CONDITION+EQUIVALENT TO+FIELD LOAD CONDITION+NEW PAGE CONDITION+END REPORT CONCEOUTPUT, WRITE INDEX FILEOUTPUTINPUT (INDEX ORDER)INPUTADD TOERRORFIELD NOT PADDED PAD WITH   NEW PAGEREPORT START(ALWAYS)REPORT ENDCONTROL BREAK   +LINE  PRINT CONDITION +FILE INCLUDE CONDITION+INDEX FOR , FIELD +CAfbOfv Copyright (c) 1982, 1984, MicroPro International Corp.  REPORT Release 1.03 ID # 711303KP-001  KAYPRO Computer  Teletype-like printer  No communications protocol  CP/M List Output driver (LST:) "i~CklP= B0B1C0C1 *2!*2  CkoA   -__7777'i'ͷiiWx2z7W:G~~56   YZRCDTTVV2CCTTBT2STTTTTTTTTTCBTTTTVUUUVUUVVSSVUfVVTVVTUVVgVVUTVTVUTTTTTTSTTRRTRfTTTTSSSTTfTTTTVTVUB@ @.!ͤ2 ͤ_: W~K#<###,~6#^#VMͤ O O!Oڙʛ0ڙ ҙT])))_ͤڔʖ0ڔ u|7ͤÝx 7 7 77?.  ~# x 6#$%%$o>gDMxɅo|gg}o|g^#V#~#foGz7{x~/w:.,;?!\ d{:v|\<=G:Y7ʣ*L~7£p#~<"LxG:Yx*^!9"^x<ð*P#*!9"*WU {z!!TEz> W_ !z#>2{ ȯ2 x~ #7 !9"!mbbblͽ*LHSRUJvBPPLMTMBHMFMCWPCPOPACPPN%OPHEEFO?!>ͬẃ ny !7>û!ͬ Á ! !(!$!,>û!3ͬ!5ͬͬW > >2_; "  > !*HH*F>o w#ͤr eͤr rw#-_6> _څbË!͝y >xONOFObbͳ}_bbͤÿ  !Tv ͳ  >2!~6B  :U!6> :T! ͭ !@. *FG !=. !:. ** z.>2>*_:<=k c *8.:T*8 !(ͭ ڢ !:. ͬ !=. > ͳ 7*H#~+G :͒ :0 !5 * | } > ܳ / ͭ 20 " !- ij + < * " !& ~ ij # <   R> ͳ > ô #~+͒ :0 ~ͭ #~ \v #~ ç #† * / b § : b #~ ʒ ʒ +b ͳ b ! o:} >y ::0>!0w:~ > > o>y ^#~ͭ > *: |Q :.< : :N#)L  > ͳ > ; > ͳ +|#>a  !"u .gy |c ,-:R) }ڍ > G!~6!Tx!3^ ͭ x!GO! >  >~ >- !~<>  !"ÿ N Ϳ *&*"*.*| !"* #" 2 *>y *7>y ƒ :Sp *|:* < Z > *|; *   P ʧ !~ʦ 5!& G:#~^ @͒ !4 :S/!U!6> :7* *.̀)  ͧ! >2X + >̀ͧE :D7 !"V"XG!a ~x7Ɂ*!:*)*| !.ڧ "8!"?"A#"=~2:#^#V## 2@~2:+~2>##)";|"A";O:!<=  q#s#r#ww# w!0~#)#~:G:O:e<@rY:=V_x2:*w*w:g"ʀyHG*w:g":o&{2yʤ:y_!*:e< !5~<4!~5*:*! :y*@*! 2}~5*:dx d-> 4> d!f:{~N=<<*-b`<> ͅx_y2:¹!4!4x*§:"g"!4:w#4!4x:*"!Ͱx **"**g"!"""!~6y_!""g"!4@-!4!~:`5*":!2*"*|:*):G$%v͒==ixԒxԒy2>2× :=ʦ|g}o|*&**"æ":ZFZjQF" Z  Z" Q" *":Za*"*)*T]: 7:?*.*&p*pjj*p**|":w#~w+"P6#"L"J6#"N"F"H"&s#r"^zs#r#::@>2=/22>:o>:X>/2(>2Y>̀>2Wí *F w#6*Hw#62:2:7227*"`!" :82>2!; #:AOڇN +y=!V!\S;͔"`"\"Z "^>2EG:X/!W!Y*\p#"\x2E:W:X:E/!Z% x~^"Z+ *\*^+.^*`"Z;"\&>ɚ !)äñëûõ08@2 /::7>>x /{/:L2><2!w ;KB2eͩ*Ji6#"JͣKͰ      ʦʦ6#Ͷ Ͷ~<~Ͱû*:O ~<6#!9 BK!w;2/2e!2L! !"*J\\\\\\\\!\F6#+UͶ~6# Ox"!w;!"2:aFP;2`2aOͰ x !\~6:]2Yð>2e2:!e****.2fĺwþͶ 6 +~^>^>#*! L! *ʟF#+”Ͷ~ O#x{}> ""J{2!wþ:2!2L! **:_?G{H?G+y O?xF*2WG ,2DDLq>2yl~ll¤OF:e=̊<<=~ʟ>2>Ù´F:eÕ!wʗ#<ºxʄ!}ʚPY+ʚZ :eOé+H%:wx :A=*ͤ%Q:e@:x:B=@6zZz :y:Z:z:! *C#"C*&ä~ʗPY:͐*&:ʮ*"*"!*ë*"**|.":_*|*ͽÌO!:LO|.0!5yKGyOG#zx!:**w"!]**+.چ*"*)"*"{OzW{_!wO<`!!!~͗:~Û> >!*e-,ͣw!"C22+:2+1=:+;3V/og"{+"+"+":":2+2:.@>͹hBA¶Z:+ͤ11xbFd͍)#; ͎7cͥ%!"+͑#.'+:+*+,͑#*{+#"{+>2+.> 2+B$>2++ͧ#%r,͸%'> 2+͂(i5(d%!lb*ʘÌ>*B}BDM"+:6S*B^!T>=zz+6Ã!:"a>2+͡2ͺ20/:[9<2+>A"7RN#5# ´;/¤*`"9:+_͟TU0>EV#~?_#~?`i"3R>B>##K ] }2IR~+6#s#r>~<w͍Q:9R!+Qw+6_6#s#r*:R6>Eʋ#]T~?O# N#6#q#=v2+@ͿT*SR">R&qR&!0R~@wvTU0ͥ!kCgij+ C_!mC_:0RͿT*SR&>\0:0R'd.*>R!kQU0ʠʤ!kQ':+!k_!kͬ[####2+ͥ| :+˜ͬj%bkT&i͜_Á*>Rͥ>\0O:+_{=͗º*:::*:::<x}nT>͹h̀ͥͬ>\0AN!k3!)=G } o%͜_zg{w`>\0 ͜_@ͥ!k <͚ څ+#fo͗nT~A2m#m~ >.!m{G~ #=:BFd*`ѯ+~ !kf  !ki  !k3!k *jDM:@=A !kf ' =H <͹hmC_+~ wT .)_ < *`| > ͚ ̸ !k3| Cg!+Zh#@P*>7> 2+!j+6Q* >Q*6a! ͆D2~+2^92:2+2+*`"+*B#%!O! ? +6Ͳ!?!>~#^#F=2[9+p*B@>E+q͘!>V+^*g!s#r*`+~#s#r#~@wx2z+h&)#w#s#rŒ!*B#>="?Ÿ!>^#V=?>#fo#~##!+r+s!+ %y""!2y+<2z+:+""OPQ":+""MB>;'9":+""MT>'9"(">.͎'0"~ ͎'#:+/ ?":y͎'͎'> ͎'> ͎'2+n"_"+*BͿ"qy̨"y? ̚"ͱ"0&~"yM!+¥"#4:w+?2w+#~ ±"wñ"~.":"2+ "@yO ~!mi+ #"~wy O`:+::*` +͔:Wd2X#*B~oa)#*`"+#yx>??F#yPY"+*`"+"+"+"++p+p+p{#*+*+"+"+"+ͷ##p$$$!j+~w:y+2}+#~@w:y+ 2+#>QA(>2+:~+!w+~Rw*B~#>RA(!x+P~w!m+ P~w#a$:x+!j+~@!m+ ~@Aʐ$#|$!x+~@!j+~@w͡$#—$:y+O*+~# ^#V6 #=µ$:z+_Pê$:w+@%$%$5$&0&$~ ~ *+͸T*+*+͸T+C_*B2+*Bd%!w+ ( (> 2+R%:w+*B͔%r&&>%!w+~w:+͑#*+,͑#*B$T&͎%r&&m%!"+!~+6*+#"+~M~""LH<"*B~r&&¨%5%%%r&&&¾%~%O!j+ ~2+:+O*B#> &?%#c(!+4qi0&!l;&P*i~# 0&~͙,131Q"z*+͸TO&}͚%Q":+͚%$$ܨ&~ ʐ&&#("+:+<9"̻&#~͎'~ •&V":$%r,5%͎%&*+*+"+!~+4> ͎'&\"LH&PL&MT'MB/'PN'"+X'"+f'$%>2+2+}!+N'&'"+f'o&X'$%>2+2+}!+N'&'"+f'ɾS'~2+!:+=`'*+*+*+͸T"+*+ԸT>\0"+!:45º'!W45!X~6!l;&P*2`*a*:͈`LT ĪS?T:`>\04>02j+!m+ (#'+~ w>2+~(~w>4!k+~w#+(:x+ G(~[(_!j+~w:+ɯ:+Y(~ʀ(F#eCv(:H\0{=0/>2+Ğ(;/†(V/<)*1R>EFyD/#Fx<(2+~#N͐) °(> ) ?Tѯ:+*1R"k))> y=*7RN#)# (x?>#~F*͊)_!9\\*>Rͥ\02+.͊):+g)+=O$(y;*>-*1R*3R r)+w xz)"+:+2+ʥ)ͫ))>,ͱ)ß)ͱ)͊)*+~ ),#¹)"+:+;*~,*x2k"k:+)* *):+ )* '*,* *x~#*>F))+w>2+*+=+ G>Cc( lY* l*B!T2j*+}0/Ŀ**:mͯ**:mͯ**:*:mͯ*#Fd::022:+2 |TP!mC_.|*:0R~X;/¿**B*0&*:g+w#*>G#^#V#~@#:}+_^#V:[9^#*+<='+~*+=+ _O*+ N#F#~[~#_+T+ ,ȷ@2+j$>2:*+,>29*+*+`,"9*+"+`,*B#>2+2Y9ͽ,!Y94, -*9,*d9?0,!:6!96*+"+V/*+DM~# xg,*+*+`,>ͅ,V/29*BN l3yŒ,29:+:9ͅ,c:Y9?ͽ,29"d9>h9C_y*d9>"9!9C_ y,:k9@*d9*"i9*v9~A(6K0͔-ʍ1:k9ʑ/ҕ6:n9=2[9*B@"f9:p9-:+—1+ʍ1.:o9=["k:h9OGͼ[ͱ-x2k>Œ-T]A{- {-45‚-w o->\0~w:Y9>=.O2+C>--I-))I029x2kl3*i9"k.:Y9?ͽ,*:R/0.H~w# .:9C_*1R6 X>G".?T.YV.F*C.͖[?Td.C.*:R6?T>K ~X͑. ͜.Fd*>R͙͆,i+4+N#~#foʱ.y =©.<:@͹h!k| +^#VLT0/+w>.;/.0/*96f/C_;/.0/f/>/~</>+w;//*9~Q$ɯ2[9*B~#![94?o&mTP!m>*w#w#w#6>.:9RG*:R*9~7/#‚/*~9*|9N#y/F#:k9/eCE00G/Œ-~c(N# ]TN# /@!9"k>2HG}2k>EE0:h9OvEʌ-F0:h92HG:l9O*9*9H:m#50 )0y=45#90 90\06:h9G*>\0>ͷO:Y9*+>*:9怇څ0::G͓0ͻ0V1̈́1V*:`'!:ͭ0y?P1ͭ0y!:P1^#Vz·0r+sx ?*:*{+kTP!:ͭ0*:͈`:`A2m!mlL1͙,::11Cg*jiͣd>ùhů2`?T*:LTS̓g!I1̓g?TLT y?_̈́1`1x!j~6!ml4ghP*m112jx0د*h9&*+:Y9>*C_L21!Il 2O!Ql2O!Yl2AO!alx2!3P1^#V":y2:2::3!з2:B!=l Q;3>=] }2:Q;<2:B3;2̓g~2E33####CgɷT22B:Be2!B"9~/:4O<:5:B!Al 2>*9͕27“2͕2ܝ2"9~#/7ȷ+> ::>ek2":::2:!]rkC_::qk2":!#"3R2IRx͍::*:LT~X::*:|LT~X!:4* dCgN*j 9f"jh O9fyE33N*3Ͷ34:l93353 4:m9 AO3#3O3q~=#3igO+ 3!!>4xO3#4>*3:9x2k"k:Z9E\0ͪ4ͷ44Z4'55 õ5GyH Os4.s4 c4xOxڨ4ĵ5ڨ4#}Oʎ4 |G5*5:k97*9C_A->4 2:2:/2:2:ɯ2:2:*9>54#4H*9:m 5#4:l9y745G}6x6#5:m9w4  N5,5x7~F5w#,5w#65xH*9:h9O >2:i6# h5T]~ʎ55Ž5wy55+5#  65x7~6w+5w+5xH*9 >2:i6+ 6T]~B6Q6B6wy_2m9͞7 6̀bl7a8hO!8Һ67%9ں6a.7i2jy 7!Y9~75~̓3͔-7"77:k9ʕ6*9͚16:+*z9~> 29͡c*i9d7P7a =7=7^7d7U7P7":+~ *~9FX"j#9x2jC_> H͌a!kZb.7ͦ8;8N7q7Gʚ7*i93~#7´7+y7qz2^9y7*\9*i9:h9GOͶ3:l97*\9~-:_9<:mG*\9~ 8#8+p!`9:^9way2a9H8 U8;8~2b9qͦ8*\9*_9&:_9͸88!f8y_^#Vѷ888P*8888888888888888888888888888;8~!_94:h9= !_9~5 8~qO#82c9:h9!_9_;88+~qO82c9 7y 9!ilCg`1͡ca!k!9 96^#@w#6:a9O8:c9O79788R9!_95;8:b9w8ͦ89!:^#V#N#F#{iCg:S    *;!;:-l1l!#|-;!m4g6;4gCk:@ùh::@k; l~# xn;A!lͫ;>!Uk=>!kͫ;>!5lͫ;>!Ek=>\ͥ2 3=k͈`;l͈`;^#Vz;#;<*kcx<w#Ö<l ʹ< ¦<<<د  RSMSGS OVR!mX;"B͜_2B@! "j~=<>+==hOҌ>2<9f <̕= =Ck*kDM=*kDM*k*B͉B="B:k!k}=#:k^#V{ʊ= r+s=}=*B*|¥=}Ny jf#¨=@Ojf:jf!<~ĵ=#ͨ=.jfͨ=!=4g ??? c< x=A\ C_H>ceqi_!:BO!~k C_!>lC_!*Ì:2W>r_`>:B<@2m!kͿ;~# n>Fd!9l g?>R>ce@ \!ʌ\ ~#>*B>> ~O@?_WV??z>!0?O ~#>~#n*> ng}?}%œ?>?==??î?> ×? ~>>>>ɁO? ~#+N#F+*BZ0#?=@:B_͜__yw gʌ>@!B6!~Ċ@2BS@!l Q;Cg!}kZh>͹h!~k\> @!lo@@ʌ>!)l 9y!!l !%lNGw# w~# ʓ@+:}kOk͸@x2~kBC_~/# ʸ@ ø@O~@~ط7##~+:>@&AA<## ~7 A~ A.#&AA  A > ~#~02B!9")R2H2HͤC͸CͿD%EͫDʛCDyܟC{CxG*+R62.RJ>2-R!9"+R͟D6DDxC+DCKDVD͟DDͦDC͟D xCC"Dx2DDI IIMIRIIIIIII*D:DG_^#V͟DN+;D2+DM͞FlDKͭExGͦD=gD͟DYD;D*`~ʀDJ pD4#DM*`*`6 6 ÍDͦD#x~x~7ʹD~͟DyD͟D!D#N#^#V#DJJJ%L LMMNIHHHHHIHHy2/RxKE_:/RDEKG~C$%oE:/R*+R~dE2R  L+6#æK!9")R>2.R"+Ry2-RͪE:-RO*+R͟DE £E͟D͟DFECE2+{FGFͦDE͟D͟DW͟D_E"F͟DEN+E*FJ  Fɻ{~͡G"kx2k*+R:-RO@F"+Ry2-R>:.RcF~# HF 7 HF :R”F~# cF 72R<2R~#ÔFcG%RͩG ʥF+ʼF-¿F>2RͩG0ʼFFͩG!mFEGeG͘J:GGG:GJF:G:G/2GFͩG GG-_GxGͩG͘J:GGͩG͘J3GOxG{:GG!%R~MG+ ?G2R!RxwJOKR}KÍK ͡G{2G2Hů2G!Rw# xG"H#ƒGʛG>@2R>2G>2(R>J:G=2G~#کG0:2Hɯ :G2GGxJ"H`i"H2HoEgHH!H:HO:RWH:R H@eHH/<$H45$H4.̪HwHͪH1H:HfHͪHHH*H:H~J>-ĪH5!%R"H>2H2H:RʈH!H~ʌH5>0!H~ʈH5*H~ҡH+"HԼJ0!H455*Hw#"Hyy:R>H/H/:R:R>/:R:R>/H/ Jɯ2LI BI8IͦK L:R!LI8I IGI<>I J _~woE }I2RKѯɻ L:RI%L =}I!w+~w*+DMCPlDvI*B~J=6D*B~J=͟F>7J):N#FäI*B~J=+I> J};(I>OäIoEKJJ>HJJ7,-$%}`i~A-J6G>MwgH!:RA<2J)T])wH_:J=2J]J:R}/o|/g#~#ÆJq#ÑJ0 *H"k:H2k>2HͩGØJɇ:R=2R:R<2R>J>DJ>J>͆D*)R7>E7ɯ2R2R K +T]~J 'KG+~ͼJKͼJ+T]ͼJ GHK#~J3KJ!%R~!RKJOK! %R + lK 'ÃK P'> 'ÃK!&R~ȯw+6>+6=šKJ`i2(R~2RʴK2RR#„J~„J2(RÈJ:RWK:R!R:(R<„JK' #K7>'w #K7>'w #L>&L2L2R:RWALͤK!R:Lw [LLKͤK!RgLL̈́J!L:Lw:LG2LxW!RLҤKrʝL!R-K=ŠLR}K:LG:RLR!LK!R>-KJR}KLcKJR!LLKOK:L2R LOK"MM!R̈́JM!M̈́J!M K2M!R͏J!R"M>2M*M~#"MsMYMM*MKTM4=AMͼJsMM*MK=aM!M5*M#"M/M:R JW!Rw#zW@Mw`i#LOKR}KÍKz@JJ WJ_!R~2Nȓ_AwM{JJz+w>2N`i{N̈́J2N2R?GR!{N%NKNK!N~w:N=2NZN K:%RPN!R KN!|N-KN+ [N2NR!N̈́JOKR}KÍK WPlD KN ċOO&OP͂MKPK!PP̈́J O||g}oNPͤKONPͤKP͂MKͤKKJEP L2RK 2PgD O|O}2PP!P̈́J>zQQP!PyOlO͂MXO#\O:PP:PJJ 2Q>AQͤK͂MPKP%LPKͤKP LPMPK2PP!Q̈́J͂MQ>QPK RͤKP!Q̈́JQ>QPMP͂MPK:QA P/533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1A@PX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1A RKQ%L R͂M! DM=QP ĂMP%L9!"hR"GR"]R#"_R"`R"LR"MR9"`*7RV##–R29R*`_":R͑T*3R#"1R6 ͑T"ER:0RS͑T"@R%U*bR"OR*dR"QRV*`"[R͑T"UR*SR*UFV:`>2hR2a"``i"`SR5S:0RS%UHSScSHS!:IR=;S"JR͑T*>R!~]S=O:IR=/! w~ʊS# cS͝SxSZ ʱS͊S# x:0RS:IRG!`"`*>R*ER"`;WT ST6*JR"LRDM"GR:0R4T͝S6# y!T:IRS*>R`_*a!0RUT"a0R`TGC_~ >A>>^#V*`:0RaT_͟TBT͟T'`*`R*`"`"`*`͸T"`>}o|g20R*`"SR!͟T C_:0R20Rr_T:0R>w_ U:0R@>:0R/Q`k`4`r_w_̜_`_*>R"`_!"dR+"`#"bRbU:0RrUͶU=UU:0R UPY!~mU态O̓U*`C_! ʟU*` ͬU͑T!eR4#¬U!` C_6͜_U!` C_*`nU2dR!:a=U͑T!eR:a=w|V"CR2BR+V•T*ER #0V+7:VV>ʕTy   "5R"WR"YR|+"XRZW•TͺVDM_pV:9R_2WR>T*[R~iV`i"5Rgo2ZR͐Z*[R~2ZRͥV^#V"5R#:9R###)³VOͳV :9ROX_< V=VX_ GR;^V>"GR>WBR;^"GR*ER6>*GR*ER"`*@R"`*>R!OR͖WO;W̃W! JX͜_kXĊ_F]R;^>"]R>gW>*]R*[R"`*UR"`*SR!bR*Wx4~#W4#>WͷWW~WyWyN#>$`Wy! w`i)LGyq#Wxp#ɷGyOW*`=W"`?XC_y/w6?X5X'X!F~w`_pͬUC_7! *`y~?XhXC_!6~?XC_5>*>R)`:0RT*>R`_*SR)``_"`*`!`4X!`6!9"`X$`"7*`!`6X:`X!`5:hRͤXXX*Y53Y4 ZzYY,ZY`i"iR*oR"IR*mR"JR:9Ro&+!"_R"LR+"`"oR*5R"`dY`Y͜YzYFY"`IY"iR*`*`##L_+͈`ͰZ7[ژY͔Z2_R"`R:hR:9RDMͶYG}l`)ȷ#!)Y »YͤXYX:0RnSUZY*`R:_RY Z2_R"`RY,ZY͐Z>2hR7*iRDM:pR*kR`i#5R;^Z"iR͜Y*:R~<YOZ`Z7>OZ*1R~==2hR:hR ~:0RS# *GR#VX*ER*:R͟[*7RN#~#F#[> ͼ[ §[2[~,[ [> +#¿[*1R~ [#,[=[*:R:9RG~=\ \>\#[2hR*1R:\6\~ ,\# \2hRO\GO\:\:\~,~ ~#ͤXn\XͤX͜\X:0R“S͟[:ZRˆ\[Ҫ\3Y ZzYҋ\`i"iRY:ZR\:hR<¶\*5R#"5R>\2ZR*`|\\]#|\"iR]:_R*`R͐Z`:pR*kR*XR"kR:WR2pR[]"kR2pR͖[*CR"mR:BR2oRͥ]]ɯgo͐ZX:WR*XRͥ]"kR2pR*5R*mR*:R6:9RS]#s#rgoa]"mR+"mRH]*`R:_ROW$`s]bW$`*:R*[RO :9RGB^*mR#"mR*oR$,"oRkRB^͟Zy*XR:WROW`"]R:WRs]2WR6bW$`"XR*SRX$`*JRV$`:IR+^ W$`*CR:BRV`"GR:BR+^2BR6 W$`"CR*>RX$`*1RO*ER d^yw# _^bW$`*]R#OW`*[RB^ͭ^|^^,d^ ʡ^j^^ͧ^ʔ^"^^^^^ d^> ^, <ͧ^^^"±^>"w^:0RS#  W$`*GR#V`*ER:hRͤX*JR"`:IR2`wZX~2`6 W$`X:hRͤX*fR*1R~# *_z]͜\^YX~#C_|g}oL_y/Ox/G͜_p_>ɯy_͜_X! wʔ_X$`)`y _!_ `G_pɷ! ~*`C_K`2`_!"` `*`͈`"`X2`:0Rk`5Q``E`͜_=:B`~k`~d`~A~K`!`o$!`#`z{AA $$$IagWao͠f.::g*lcIaO͔a: A:c=*c&  O͌a::*c*c::*cda_*i9:^9sa{W~ ͑c_#=uaua+͔a:@=za.Efa ʽa aaëaXfaa!a#a#a~_**h+"a*a~#"a O b::y@^ bO:je# g&bcy*j|,-2b<Ĺh!c~/wNb̀bc:c!c<2cN#"c!c~qʤcNb̀bcɯ2c2c͔bbGc:j_::daW!c>ҫbbG~ʹbb~~b{_zbbxNw:@*c_::W!c:Bͦb~# b͔bc*BTc:cOXc c:jGa͡c:cOPccTcJclc͔a x4cxAĹhcc~# XcTc::~.*h+|yc~#W:c_~ #͑c/<_Áca >::>*c*9:cG͌a^#V#J; ±c,aͬe2j:2j:@2jG*"j"j͹e!d"jͽj"jͷj"j:@_:M!V![2j*"i"i"iͧ!-feFd>2j*@:jgc%.ͣdB*j"j͚d͹e‚d͚d*j+r ͤf ͤfdd:je!ͣd"jP6 #›d:jGe\U:g e*j{dzeG:jd*j2fe!M-f*aMT:`dLU"e!V-fJ"e![-f:eWe!CjZQDMgd*c-fy&De / 2eGͤf~+=x0e deWe~2jwe"jDMͽj"j*j:@=gͣde;eOey:j<ʘe*j͈`˜eyw͹eʪe:ªeywq:!:A=:ͪ!-f:<=\ie2j:je:e:je*j~w:jf2j!~f!$f!$f>2j-feF#Nͤf/f?f*jjf͹eafͣdͤf!j4*jq#"j*jͣdpfy ʗf :j=!jfe!j4:j̚f͸f*j$o"jeyOi͙i*jfT]ff"j:jG {e#f*j|fDMͷjO͹eg*j 6*j̈́i%gh/ggO"jCg ȹ*jDMCgͿ;!"j`i"j͑gf͛g*j"j*j|{g*j"j͑g̸fDM"j"gCg>2g*g$~~#ggg"h6h@h Ph g ڛggxʛg›gɷ^#V#J;͛gF#͑g˜g hue!j4:jhw#4~f> gh:jh>=g)hh:j3h#*j"jh3h:j3h#F##hoh> څhO9fq#chs–hwh#6h 6hͣhch{!j5 9f5+`.f$=»h͇iiqiaf:jhhiqi'ihqi=ih::jO*j F͹ei:jG:jxi#+ #i+*ieSi;i0i>Si*jLi*jͣd-i\i=SiO=_ḯiy#45!k̈́i*j6ii"j͙i*j~͇iâiͷiʳiiʳi*kwii"k:0i:0i͹ii>i2j͹e‡i*j~jj6#:@iͷjͽj;j2j`j8j# :j=$j:p=:jo&+~ VjJjz]j{`iͣd:j ڏjOOf͇iĊj#:jgj:joO`ͣdͽj6 # :j˜j!p-fë́iĊj*jj*j:jjogWYxj)jkkRGEN COMREDIT COMREPORT LOG PRN [mlm[mmBmnonnooBoBommnnQnQnnnmmCURSOR: CR=next item ^S=left char ^D=right char ^A=prev entry OTHER: ^G=delete char ^V=insert hole ^C=abort report ^R=restart ---------------------------------------------------------------------------- FT1C-N+P'".: No *.123456789FPRNDX NÄÃ:6:Lʔ><2!w ;!2e*J"6#"J!      6# ~<~Ͱ=&*:O ~<6#0!9 BK!w;2/2e!2ͪ!i!"*Jrʺʺʺʺʺʺʺʺ!ҺF6#͉³~6# Oxbq"!w;!"2:a̡#P;2`2aBͰ x!\~6:]2Yð>2e2:!e\****.\2wþ Ô +~<¨*N++~|>ͼ>ͼ>b#*! ͪ!i*rF#͉O#xb{> b""J{2!wþ:2!2ͪ!i**:_͝G{\H͝G͉yUV O͝xFb8*2WG ***2ʟʟ§q>2y~B͡ö͡:e$!wʝ#<xʊ!}ʠPY+ʠʅ 8:eB+HP:wx :A=*P?Q:ek:x:B=kazͅz :y:ą:z:! :e>!:6=Gͽ!"C:ý:==:Ox   :==*C#ͷ:6=;0!)606:^!4:7=>2^~M5>ë!~4:6=:?҄!7H*&~ʝPY:͖*&!~͖o<=͒û:*"*"!**":_ͽ>22öBöBʪ ʒ>> 82!:͒!~6g*E*"!yw>:Ce!jxg*O*"!~ڲ²NͶ!!~6!x[!`ö!xpxQ!VosÒͶG!yw:MOͶyÒ:LO|./!4yKFyOF#zxɛ ?~:6!w.!2e*JͿ/6#"J!!b455ð     6#!  # ~ɯ!b4!~<~Ͱ&!b~~62c̀2*_#!44~H"J*:q:O ~<6#s!9 BK!w;!.*J"͏;Q22.~5Fõͽ.Ͱ x!\~6:].2Yð2e:G:W*b:Q'!}̀xD!cy?!bz2d͕}̉̀|yxDyyDz!b5yzDXõ|xOzO>2d2eͷ:ͫ<2h:g:h!v!ḯ:!e! w. þ! V |>|>|>|~>{>#:ı2! \!#*4ʿF#K´O#x{ڠ"{2!w.WG ґʑʑqy.~...%ͯ!w#<+xʵePjWx2.!~ to!|&PY!}& Šͯ:<:t!hʧ :|O:}ʻ½>!d H:e::wx :A=ͩ :e=Q:f)::x:B=ͩ)$ :f=:gzm:O:yL:O:zLɷVz X :`i:gͤy! ʋґ ʐʐ!4x!4:e>!:6=*G!"C::==:Ox    :==*C#ͽ:=2> ͡:6=UJ!C6J6:*x!4:7=>2x~g5>ñ!~4:6=:?Ҟ!7b:_.:ʩ!s~5N*t!i+#{ 2ty!v{w:h!5*t!i:s+#<2sw"t~PY:J 6.:=͉<=͕3>û!3?XC_ͬU͑T!eR4#¬U!` C_6͜_U!` C_*`nU2dR!:a=U͑T!eR:a=w|V"CR2BR+V•T*ER #0V+7:VV>ʕTy   "5R"WR"YR|+"XRZW•TͺVDM_pV:9R_2WR>T*[R~iV`i"5Rgo2ZR͐Z*[R~2ZRͥV^#V"5R#:9R###)³VOͳV :9ROX_< V=VX_ GR;^V>"GR>WBR;^"GR*ER6>*GR*ENJ&@ Copyright (c) 1982, 1984, MicroPro International Corp.  RGEN Release 1.03 ID # 711303KP-00A  KAYPRO Computer    "A+P= B0B1C0C1 *2!*2  CkoA2 y R22 `$"$`!= Sy*: }`!= Sy*D}ͻW l * ʹ2y ʊ qͲچ̈́: w * * ͵͞ʰay†!,ͦí!,Hʆí * yʭ: ! -H!ÂN&>1-!+63>!+QxQ$`2}2!-Hq222 *$"$"{ yu"} u" uo" " :@=2 2 2 2 2 :t+=2 2 2 2 2 2 * "$! 6+ <=_!~#~wPz!,a8o ' !@$>R " >2 * ~<~w-{z/<O!gP Eu! 4͓û!z *$CA͇"$!,͓Æͪy .A lÓ* "$!k : *{ ~!,* ~io" " o2 2 2 !,ͦ7o" !,Q60#60#61" * Ny2 2 #qGQF#͇cZ )o~R!,! 5!,~#?_* 4~:60+f*$!# uɯ2 2 2 2 #* " * ~ͮ" !," !Y," !," !l," ~( X*$+"$ uͷ o! 4~: 2 * 2 &=$|: 2 2 o: 2 >@2 2 ![ P!] " " * ~_ [a .o" *{ ~<<2 O. €" : 2 O: G2 >_B œ"$!f Bo" " W " *{ F#~*  <WA +~  #> Byw##! -! -6#"$Q> <~#> BN!?,͇ =<Nw#w#w#w#WC~*  Xf2 ! * : 2 G~6_‡6* " " " 2 _͐y  1 2 " ͝ ~w#* ~ȷ! " : &*  7 ͝C ! ~# "$! 57 õ ~w#9 ! DM* > ̓ * <T] ~l #` >_ n G>ͪ G͖ ~* " ~ > ՐOxy6_# · * > ̓ ~ ͷ *+:@O: G:  *+y=2 _W   J yx G,͇x!,f -F !,a -" " `i"O ͓2 2 x " *+$$$" G* * _à 2 !u ͦ  Ҭ :+wyª P~2 2   ! wɷy  G p" =# : $2 _ x Sx x x x  x , ,,l  ; ,    C ,  ,      # K -W - ,     , ,,l ,u ,,,,,,,,,,,,,,,,,,,,,, S F,  [ 72* : ~*& >  :G~#O~G: #) x2Nwy#D 7*G:o&L! y ~e *G_ .O!l @! "*:G*ͅ ҩ "x2*> 7~(* ::+~ ~Ɏ$+24DFHJLx_^#Vy(7 *45#>4157x*Fq*:2W)͉ ҽ2""`i"ɯ2+**:ɯ2W).O)2l!#Û *6_*6_Ɏ$+vDFLxWWWWOO\:_*q:Gq͓*:G͉!,ڣ!,>G)!+~6͗'wy7x2͇!:G͇~:#*:_Đ:_"2+*"=*S*"+*:w*:w*~26*"~26*[>2^#V#oa˜{^#V#!͂ )06~P1;M: 2+"+:"::G)! ,?$V>G)F6#~ ʶx ҇ ,͇Ý~7ȯ##~+:> ##~7 ~>7> ~#~O0.w[?:~ط`_: $2 $_ 2 ͎ͬgͻ!,H$!+x͘$$$v~R" !"$ +-%?$͘RPT ͇ !"$!6\ 2 \ ͇ͬ!9"$*} "$* "$*$ /L"$ͻ\͘DEF*{ O*{ ~ -6 ##F#N=+k͒Ѷw?G͇S͇x Ny G#N~ ҙ# ^+V+~+~ ¯~+++N*$q#"$*$s#"$@>>>@ N# !"ɢ C*$|=  x~#"$\ !*$!%-7: A29, ͗''--)-- ͝"*%=f́ͲC1"*$*͐" $* ~w#v͗"7$~2($#q# =Í*$*{ ~!!k > !>!͗>!!k > !!+>!*} * ~G!#~#O!y?!!>ͧ!*9$#*$͐s#r>ͧ!>!! ,$~#<> +3*$"=$[wed>ͧ!2"2"2 #!">!>2U#*{ ~GTy<2_#=#F#N͵2T#y!#TT …2_#* _~x=K:,B_yO4)y: O: G<2$ :$?ɷOxByy B| B_B:$<2$O! * : Gy*=$~2$:,2T#* T͌ ~zͣ*} NGͰ?y* > ̓ _! z* : W~_>####>_: * G:,O͌   OyWx<2Z#y2S#!T#~w?2f#G!V#͓!T#zw +~ PE{!U#4* ~*{ ~GOxęnAęĉ͙TTTTTTx=:U#2$!%x=K"$P:$2U#TT~__#T~_#T~_#T~_*$T>2T#>2S#xuG2y#!g#͓>2T>2T#>2S#*=$~2#2#X2#xuG2#!|#͓#~+_*=$~2#X2#d2#͕2#y2#!#͘{* ͣ* ~ʬ2$:$O ##~2S##~2T####~w~#G+~_:U#==2U#*=$~2#e2U#d2#͓2#!#͘!,>!,>2##͇*=$~2#X2#d2#͓2#y2#!#͘x=a x=r:,:,1G* * ʐ_>2$#~w:$<ʭ~w:S#_x!R#6Ҽ44+w>!> !{y !x!*=$4:C,:D,G:$Oħ!!{=ħ! =*=$7#!=, ~#+N#F+!"$*$";$]ͭ, f ͉ >!>ͧ!:$2'$!-͕!! ,:,G~#k͢!!! ,͕!!-͕!!!:"=͢!> !"!!!:,2$*{ ~G> ! »y.y1G2$ !> !!y:!!!".!!-:$O!## !!F! y!͕!###:$O~Ģ!+~ͧ!!!N!#!!*$*=$#####~^!+~g!!N!7F!###s!-͕!i!>ͧ!!-͕!> !i!>ͧ!Q~!#Ø!ͱ! ͱ!ͱ!GN#y!¶!!G~!#!>!> !:,!:$!>!x*$w#"$!$4 "6#4* $+" $|=4͎~!$q"*7$~2x+*@:t+gc%.1%B*+"v+(%G&%(%*++r 2' 2'$:s+|&!1%"+P6 #)%:s+%\U:g™%*}+{c%zʑ%G:u+c%*v+&Ñ%!Mͻ&*aMT:`x%LUͰ%!Vͻ&JͰ%![ͻ&:X&%!CN+ZQDMgË%*c-2'y&% / %G2'~+=x¾% de&%~2x+wÕ%"}+DMK+"v+*t+:@=g1%a&L&O &y:x+<&&*v+́&&ywG&8&:8&ywq:!:A=:ͪ!ͻ&:<=)Y&2s+:x+|&:|&:r+Ì&*v+~w:r+ʤ&2r+!~Ÿ&!Ͳ&!Ͳ&>2r+ͻ&U&F#N2'ý&&*+&G&&1%2'!}+4*v+q#"v+*+1%&y %' :t+=!+r' &!+4:t+('F'*+$o"+͆&yO_*'**+O'T]u'`'"+:t+G { &#f'*+|̓'DME+OG&”'*+ 6*+*̳'W)ͽ''O"+' ȹ*+DM'Q!"{+`i"y+(u')(*y+"+*{+| (*y+"+(F'DM"+"'('>2((*'($~~#m(n(~(̰((( ( _( )(͂(x)()(ɷ^#V#p)(F#(&( ʧ(&!y+4:t+¥(w#4~̓'> ͍(§(:y+ħ(>=͍(·(ͧ(:z+(#*y+"{+͐((:z+(#F##W)(> )O&q#(s$)w )#6 ) 6 )1)({!+5 &5+`.O'$=I)*t*)&:+z)͆)*)͵)p)))z)::}+O*v+ FG&ʠ):x+G:t+xʫ)#+ ʱ)+͸)n&))¾)>)*+)*+1%ͻ))=)O=)*y#45!+**+6)"+'**+~*0*E*A*Q*A**+w)"+:0c*:0l*͹e*[*>z*2C+G&**+~*Ÿ*6#:@Œ*E+K+*2D+**# :t+=Ҳ*:p=:t+o&+~ **z*{`i1%:D+ +O&*+#:t+*:C+oO`1%K+6 # :t+&+!pͻ&U&*+*+N+*+:t+^+ogWYxk+)d+++REDIT COMREPORT COMDTA????????DEF :N ..-    YN TALSPRMAXMIN d,IcE$   & ) 3 N d J 4 Kr Q[cguj4`** Error 07 ** G.COM is not present on drive h Specify which drive (A-P) to try next:  Please enter your report name here (or press RETURN): Enter 1-8 letters and/or numbers. If you don't want the report stored on the logged drive, enter the new disk drive (A:-P:) before the report name. Press ESC key to re-enter the report name or ^C to exit.  ** Error 08 ** The report, ;, already exists. You may: E = Edit/examine it, or G = Generate a new report (with a different name). Press E or G:  GGE** Error 09 ** "k" is not allowed in a report name. ** Error 10 ** "k:" is not a legal disk drive. Report name: File name: Number of columns used: ______________________________________________________________________________ CURSOR: ^A=left item ^S=left char ^D=right char ^F=right item ^E=up line ^X=down line SCREEN: ^P=previous screen ^C=exit ^W=scroll down ^Z=scroll up SCREEN: ^P=previous screen ^N=next screen ^W=scroll down ^Z=scroll up HELP: ^J=remove/restore this menu ^K=remove/restore message below OTHER: RETURN=enter selection ^L=change logged disk OTHER: RETURN=enter selection ^L=toggle 2 <-> 4 column display OTHER: RETURN=enter selection ^G=delete selected character OTHER: ^V=replace selection ^T=remove selection Select the datafile for this report. To select a file: Move the cursor to the file name below and press RETURN, or Type enough characters to uniquely identify the file and press RETURN. Your choice of files on logged drive (h) is:  The current logged disk is h To change the logged disk, enter the new drive name (A-P) here:  ** Error 11 ** There are no file definitions on drive h Please enter the name (A-P) of an alternate drive to use:  (intermediate) FIELD #001 Select the fields you want on this report. THE FIELDS WILL APPEAR ON THE REPORT IN THE ORDER SELECTED. To select a field: Move the cursor to the field name below and press RETURN, or Type enough characters to uniquely identify the field and press RETURN. Your field choices are: You have selected: ** Error 12 ** The maximum report width is 255 columns. The enter command is being ignored. Press ESC key. ** Error 13 ** The file selected has no fields. Press ESC key to enter an alternate file name. ** Error 14 ** The maximum number of fields (250) has been exceeded. The enter command is being ignored. Press ESC key. ** Error 15 ** You must select at least one field to create a report. Press ESC key. ** Warning 16 ** The command just entered, ^P, will return you to the file selection step. This will erase all the field and summary selections that you have made. Is it OK to proceed with this command? (Y/N) YYN** Error 17 ** The file selected has no key fields. Press ESC key to enter an alternate file name. Do you want a record count by G? (Y/N) To select summaries by G: Enter any/none of the following letters and press RETURN: T(Total), A(Average), L(Largest value), S(Smallest value). Summaries selected: Record count: PAGEREPORTThe report specification is now complete. You may: A=Abandon form-> start over or exit S=Save form -> make another or exit L=save form -> edit report Layout F=save form -> edit File definition SPACE=no save -> field selection R=save form -> Run the report (A/S/L/F/R/SPACE):  RA RSLF Abandon report generation without saving form? (Y/N)  NYN.PO 0 P P REPORT = Summary for (Count = ) Total Average Maximum Minimum** Error 01 ** Can't read form definition file. Press ESC key. ** Error 02 ** Fatal progam error; please report occurrence. Report generation abandoned. Press RETURN.  ** Error 03 ** Insufficient memory. Report generation abandoned. Press RETURN.  ** Error 04 ** Directory on disk h full. Report generation abandoned. Press RETURN.   ** Error 05 ** Disk h full. Report generation abandoned. Press RETURN.   ** Error 06 ** k - illegal character. Press ESC key. RGEN Release 1.03 ID # 711303KP-00A Copyright (c) 1982, 1984, MicroPro International Corporation. All rights reserved. able trade secrets and proprietary information of MicroPro International Corporation and is protected by federal copyright law. It may not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in aid License Agreement except with prior written authorization from MicroPro.ies, or used in any manner not provided for in said License Agreement except w C*$|=  x~#"$\ !*$!%-7: A29, ͗''--)-- ͝"*%=f́ͲC1"*$*͐" $* ~w#v͗"7$~2($#q# =Í*$*{ ~!!k > !>!͗>!!k > !!+>!*} * ~G!#~#O!y?!!>ͧ!*9$#*R @E @  Copyright (c) 1981, 1984, MicroPro International Corp.  REPORT Release 1.03  no terminal yet selected  I/O Master / O.E.M. Printer   "@@@P=  @@A   -__7777'@'@@Wx2z7W:G~~56   YZRCDTTVV2CCTTBT2STTTTTTTTTTCBTTTTVUUUVUUVVSSVUfVVTVVTUVVgVVUTVTVUTTTTTTSTTRRTRfTTTTSSSTTfTTTTVTVU INSTALL version 4.4B for ReportStar Release 1.03 DATASTAR.COMDATASTAR.COM!9" 1 ͣ R : o | e : | | x  ͯ !9"ͣͪ : : 24ɯ2.R!R ": 2 p _g p !"N !"P + l + ͅ ERROR CLOSING FILEô *N  6 > *P `  ͅ UNEXPECTED END OF FILE DURING READô Gzi {x*N + g ʬ ʛ ʬ > *P ` o ͅ DISK FULL ͅ DISKETTE DIRECTORY FULL+ g ô )+ g ì *N }o|g)|! w#6Ʌo|g!"N !"P  g Z > 2 w<==_ [ p N#ͅ ͐ ~ ~~ E ~#Ð ͅ !͐ 8 !p! ͐ * " * * | }ͅ This version of INSTALL is incompatable with theversion of ReportStar you are trying to install.!S͐ ~ ! ͐ ô 2 2 e >2 x >2 : ͐ ʴ : Š : ͐ !@@}O|G@!v):5O) !@v)!:5O)  REPORT.COM!  4 REPORT.COM! + 4~  , ͅ  **** CAN NOT OPEN FILE: ! ͐ ~ ͅ Please Enter Disk Drive (A/B/...) Or : N @ڈʈ҈2 2+ ͅ **** DRIVE NAME MUST BE "A"-"P" PLEASE RE-ENTER ****6 RGEN.COM!  4 RGEN.COM! + 4 REDIT.COM!  4 REDIT.COM! + 4xw# )կ :;u.!qt mͶ7COM#͓ʈ u͓>  ‰~͞#.:*? п[A?~ #öͶ#~+:~ͯ@##p <7 ~# Ã>2>222^#V#N#3333;;;;Nʼ   ʯʯʯ *:ʎ0GA::ʡ0:x=****E â*E xͅ E ͎**^#V#~#=^#V#N#F#3333;;;;<1>2 b@@ʴ ̓ E :wp>r>2wO> 2 a{ >E > E >E 1 n$!S͐ ͅ  ***** ReportStar TERMINAL MENU #1 *****A Lear-Siegler ADM-3A C Lear-Siegler ADM-31D Hazeltine 1500 E Microterm ACT-IVG Imsai VIO H Hewlett-Packard 2621 A/PI Infoton I-100 K Soroc IQ-120N Televideo 912/920 2 Terminal Menu #23 Terminal Menu #3 :6ͅ U no changeͅ PLEASE ENTER SELECTION (1 LETTER):!b:6Q!e">26"ڣn$U!A1;#CiDEGIKHNPPQWXP 32!=)(*< > ] &`$-!@#+ [%Q+oYZ!ͅ  ***** ReportStar TERMINAL MENU #2 *****Q Vector Flashwriter II W Xerox 820= Intertec Superbrain ! Sanyo MBC-2000/3000) NorthStar Advantage + TRS-80/Lifeboat 2.24 CP/MY TeleVideo 910 % TRS-80/Lifeboat 2.25 CP/MP DEC VT100/ANSI Terminal 1 Original Menu3 Terminal Menu #3ͅ  ***** ReportStar TERMINAL MENU #3 *****1 Original Menu 2 Terminal Menu #2@ Hewlett Packard 87 # Hewlett Packard 125< ADDS Regent 20/25 > ADDS Regent 40/45/60/45$ IBM 3101 ( Hazeltine 1420& Televideo 950 ] ADDS ViewpointX Heath or Zenith H89/H19 [ TRS-80 II (P&T CP/M)Z none of the above $Lear-Siegler ADM-3A terminaͅ  The CLEAR SCREEN and CURSOR CONTROL switches inside the ADM-3A terminal must be ONY#= 2p222222c2222go"g>2i22>22!P"@ $Lear-Seigler ADM-31 termina*Tͧ#Rͭ#Eͮ#'ͻ#)ͯ#(õ# $Xerox 820 Compute $Sanyo MBC-2000/300>F2OKͧ#Lͮ#Mͭ# $Televideo 910 terminaTͧ#͏#[  $Televideo 912/920 termina*)ͯ#(͵#͏#qwC,!" $TeleVideo 950 Termina͈͏#rwCN $Intertec SuperBraiͅ This installation will work on SuperBrains andSuperBrain QDs only. It uses MORPAT: and otherareas in USER1, so be sure not to use those areasalready containing patches.'>2!"͙#g ͙#͙#͙#5=!R>3>2ɯ!4w#!""""ͅ DO YOU HAVE DOS 3.0, 3.1, OR 3.2 (0, 1, OR 2) ??#0 1 2¶E >2! "E E >2!" $NorthStar Advantag!"p&">2͙#% $DEC VT-100/ANSI Terminaͅ Terminal must be in 80 * 24 format for proper operation.Make sure it is in ANSI mode, not VT-52 mode.'Y#[;H>2c͙#p $Hazeltine 1500 terminaͅ  The AUTO LF switch (under the little cover above the keyboard) must be OFF for proper ReportStar operation.Y#~'~ͧ#ͭ#ͮ#ͯ##͵#û# $Hazeltine 1420 Termina! *" $Soroc IQ-120 termina*(ͯ#)͵# $NEC PC-800 $MicroTerm ACT-IV termina' Y#!"p&"""" $Lifeboat 2.25/TRS-80 I͈ $Lifeboat 2.24/TRS-80 I>2!"p $Pickles & Trout/TRS-80 I>Y2O!"p& &&"&" $Imsai VIO displaͅ  For IMSAI VDP-40, VDP-80, & other systems with IMSAI VIO-C or VIO-D (with firmware) at F000. Accesses Video RAM directly. 24 * 80 format must be selected before ReportStar is invoked.!">22222!M!""w# $Vector Flashwriter Iͅ Flashwriter must be addressed at F000H.!">22222 $Imsai-VIO-used-as-a-terminaͅ  This version accesses Imsai VIO through the operating system and the VIO firmware, as though it was a terminal, to demonstrate ReportStar operation on a terminal with line insert, line delete, and erase to end line. Normally use selection "G" instead.!"p&&&"">2 $INFOTON I-100 terminaY#f '! Mͭ#Lͮ#4ͯ#3õ# $Hewlett-Packard 2621 termina'Y#&ayC>2cKç# $Hewlett Packard 82p͏#&dA͏#&d@ $Hewlett Packard 12Lͮ#Mͭ# $Heath or Zenith H89/H19 TerminaY#Y 'Kͧ#Lͮ#Mͭ#pͯ#q͵# $Adds Regent 20/2'Y#Y Kͧ#͙#6 $ADDS Regent 40/45/60/6Ͱ lͭ#Mͮ# $ADDS Viewpoint TerminaͰ ͙#0A͏#͏# $IBM 3101 Termina'Y#Y >2ͅ  We have not tested this terminal or printer type. Please report any problems.!#~ ~ ͐ ~ ͅ For other terminals and video boards, ReportStar must be"patched" with DDT. Determine your terminal's controlsequences from the manufacturer's manual; refer to theMODIFICATION section of the ReportStar manual, and thelisting in the appendix, for patching information.>U"""331#?#++##45Ⱦ#"^#V~ #e$ͅ OK (Y/N):>YGx?#B7#N7,#Y#E E e$1#ãG@ Q# R#xʴ Ḿ#V́#[́#~#2`~#2a~#2b2g~#O ~#Æ#^#V#́#^#V#N# ͆#!p#!#!#!#!6#r#sͅ Previous selection kept unchanged7$$7$$$bk:56 #=$Ͷ!~4$~#&$bk:56 #==$Ͷ!~Z$~#L$b$e$e$~ ~ : bNb$ͅ ***** PRINTER MENU *****(More specific info is displayed after choice is entered)A Any "Teletype-like" printer (ie almost any printer)C "Teletype-like" printer that can BACKSPACED DIABLO 1610/1620 daisy wheel printerE DIABLO 1640/1650/630/Xerox 1700 series daisy wheel printerF QUME Sprint 5 daisy wheel printerG NEC Spinwriter 5510/5520 thimble printerI "Half-Line-Feed" PrintersM I/O Master / O.E.M. Printer CombinationR C. Itoh/TEC Starwriter PrinterU no changeZ none of the abovͅ PLEASE ENTER SELECTION (1 LETTER):!&""n$:7ʾbÃ:1{$2&A)B;#Cl*D 2E2Fb3G3I,L 9M6Q /R5U'Z'b$ͅ ***** PRINTER MENU 2 *****L DIABLO 1200 Hy-Type I OEM daisy wheel printerQ Fancy TTY-like printer simulated on Diablo 1610-50 for demo1 return to printer menu Ë&!í!ͅ Are you sure you mean "none of the above"? Almost any printerwill work with choice A, "Teletype-like".If your printer really is different, refer to the MODIFICATIONsection of the ReportStar manual for information on patching ina custom printer driver subroutine, and enter S at the DRIVERMENU (coming up soon).>_*$Teletype-like printeͅ This selection will drive almost any printer. The printermust be capable of responding to ASCII printing characters,carriage return, and line feed only.K:ͅ  If your printer is capable of backspacing, use CHOICE Cinstead for faster output.A+>2@>2A͏#F ͏#Q ! "!""X"e"j"o"t"">27!~6$Backspacing TTY-like printeͅ  This choice is for any printer that will respond to anAscii BACKSPACE character (code 08) as well as carriagereturn, line feed, and printing characters.K:~ A+!"_$*ͅ If you have a DAISY WHEEL or thimble printer shown on themenu, use the appropriate choice in order to obtain "Micro-justified" output and additional formatting capabilities.kͅ Refer to manual for instructions on patching in optionalcontrol sequences for ribbon color change, character pitchchange, and half-line roll (for subscripts and superscripts)if your printer has these capabilities.$"Half line feed" printerͅ  This choice is for printers that can advance in half-lineunits but cannot roll carriage upward, such as a Selectricwith a half-line ratchet. Use of this choice causes subscripts and superscripts tobe printed offset by half a line. Backspacing capability is also assumed. Patching of control sequences may be necessary to tailorthis choice to your printer; see manual. If run for demo purposes on TTY-like printer, this choicewill double-space and otherwise function correctly.K:7+͏#X ͏#F $Fancy TTY-like demo on Diablͅ  This choice tests and demonstrates ReportStar's abililityto print subscripts, superscripts, two character pitches,and red and black ribbon on a Teletype-like (non-Daisy)printer that has control sequences to roll the carriage up anddown partial lines, change pitch, and/or change ribbon color. This demonstration runs on a Diablo 1610-50 but treats itlike a Teletype-like printer with additional control sequences. To make use of these capabilities on a real non-daisyprinter, select choice A or C as appropriate, then patch inthe specific printer's control strings. See the"Modification" section of the ReportStar manual."*͏#  ͏#   ͏#F ͏#o ͏#t ͏#e ͏#j ͏#A͏#Bð2$Diablo 1610/1620 printe~ 5r6~ >$*>2A͏# 4B  !B2́#!>">2@>"G2I>5"Q2S>6"V2X> "j2l>A"2>B"22o2s2L<2C2M>~2E2O>N27>_*$Diablo 1640/1650/630 printe~ ͅ This selection also works for Xerox 1730/1740/1750 printers~ 5r6~ 32͏# P͏# B S P͏#e  !>Y"o2q>Z"s2u>27$Qume Sprint 5 printe~ 5r6~ 32͏#I͏#I!> "o2q>/"s2u>o27$NEC Spinwriter 5510/20 printe~ 5ͅ This selection for the specified printers only. If you haveModel 5515 or 5525 use selection "D" (Diablo 1610) instead. To prevent buffer overflow with these printers at 1200 baudwithout using a cable adapter, specify "ETX/ACK" or "XON/XOFF"protocol at the next menu, and configure the printerappropriately.K:~ 32͏# 4KO@ ͏#= >]2@2I>O2C>2E>@2M>2O>>2S><2X>92l>32>422o2s͍5>27͍5>_*!"y&"~$C. Itoh/TEC Starwrite~ ͆3>c2E2Oͅ This choice is for the indicated daisy printers only. The serial versions of these printers should be interfacedat 1200 baud, otherwise printout will be very slow.ͅ To prevent buffer overflow with these printersinterfaced at 1200 baud, specify "ETX/ACK" protocolat the next menu.K:$I/O Master / O.E.M. Printer8ͅ This selection supports the following "OEM" printers: NEC Spinwriter 5500 Qume Sprint 3 (with cable adaptor) Diablo Hy-Type II 1345, 1355, 1355WPUsing the Micropro "I/O Master" interface board and cable(or an IMSAI PIO-4 board or equivalent; see also selection L).e82L>226<2@<2A<2>27͍5ͅ This selection activates a driver which accesses parallelports F8 thru FA directly. This selection applies to noserial printers.!8!8:5==6 #=9$Diablo Hy-Type I O.E.M. printe8ͅ  This selection supports a Diablo 1200 Hy-Type I OEMprinter on an IMSAI PIO-4 board or a Micropro I/O Master. It is also appropriate for a Hy-Type II (or compatibleequivalent) if the "data 1/2" bit is not connected, e.g. ifan unmodified IMSAI cable is used.e8>D8ͅ Make sure any AUTO LF or LOCAL LF switch is OFFb$:7;ͅ FOR DIABLO / QUME AT 1200 BAUD, SPECIFY ETX/ACK PROTOCOL(NEXT), AND MAKE SURE DRIVER CAN INPUT CHARACTERS (BELOW).;;ͅ FOR NEC AT 1200 BAUD, SPECIFY ETX/ACK OR X-ON/X-OFF PROTOCOL,SET UP PRINTER TO MATCH, AND MAKE SURE DRIVER CAN INPUT (BELOW);OR SPECIFY NO PROTOCOL AND MAKE A CABLE ADAPTER.ͅ At 300 baud or less, no protocol is required.<4<ͅ Most Teletype-like printers use no communications protocol.ͅ  ***** COMMUNICATIONS PROTOCOL MENU *****A "Communications Protocol" is necessary with some printersto prevent printer buffer overflow and character loss.E "ETX/ACK" ProtocolX "X-ON/X-OFF" ProtocolN NONE required (or handled outside of ReportStar)U no changePLEASE ENTER SELECTION (E, X, N, B, or U):!P>"26`>#~ "ڃ:ó>#e$:6ɯ>>26#"ETX/ACK" protocol:7L>ͅ For ETX/ACK protocol, you must patch in your printer's buffersize, ESPECIALLY IF IT IS SMALLER THAN 256 BYTES -- see manuaÊ=B;#U=E=X=N=:6!>!==!v>=!>"X-ON/X-OFF" protocolNo communications protocoINVALID PATCb$:6>ͅ With no protocol, the usual driver selection (below) is LÕ?ͅ With a protocol, the driver must be able to input as well asoutput characters (such as T or C). If you use selection L,patching will be required.ͅ  ***** DRIVER MENU *****Or, how should ReportStar send characters to your printer?L CP/M "List" device (LST:)T CP/M primary console device (TTY:)C CP/M secondary console device (CRT:)P Port Driver (direct I/O to 8-bit ports)S User-installed driver subroutinesU no changePLEASE ENTER SELECTION (L,T,C,P,S,B or U):!b"x2y2"ڳ>:b͝I:6b>23b{b:Gͭ!y="ڳ>:6A:32/ͅ  In most systems this is a "physical" device that is theprimary console device and is capable of Input and Output.Thus it is suitable for use with communication protocols ifit is not being used for the actual console. You need onlyset the Baud rate to match the printer (usualy 1200 baud).p ͅ **** WARNING **** TTY: is currenty the console. You maywant C (CRT:) unless you are INSTALLing for another system.$CP/M Console driver (CRT:>2/ͅ  In most systems this is a "physical" device that is thesecondary console device and is capable of Input and Output.Thus it is suitable for use with communication protocols ifit is not being used for the actual console. You need onlyset the Baud rate to match the printer (usualy 1200 baud).p ͅ **** WARNING **** CRT: is currenty the console. You maywant T (TTY:) unless you are INSTALLing for another system).$ReportStar's Port Driveͅ  The port driver directly acceses hardware port(s) to controlprinter. This driver is normally used with serial printersand a protocol. As hardware ports are very non-standard withrespect to location and status information, you may have toprovide data (Note that ReportStar will try to determine the dataall by itself) so ReportStar can modify the port driver. Notethat the port driver contains a "busy test", resulting in thebest response when editing and printing simultaneously.ɯ2NͳMnL5Yͅ *************************************************************WHAT IS THE OUTPUT PORT FOR YOUR PRINTER?NW1JU1J/RҪIWͅ *************************************************************WHAT IS THE OUTPUT STATUS PORT FOR YOUR PRINTER?N`X܊_JYWJ/R1J`X:6ͅ *************************************************************WHAT IS THE INPUT PORT FOR YOUR PRINTER?NܫXMKg]MK/RJܫXͅ *************************************************************WHAT IS THE INPUT STATUS PORT FOR YOUR PRINTER?NXKԎ^K/RMKXͅ *************************************************************WHAT ARE THE INPUT STATUS PORT BITS FOR YOUR PRINTER?N܈`mLu[mL/RK܈``Y͐YY:6ʄL-ZwZͅ *************************************************************WHAT ARE THE OUTPUT STATUS PORT BITS FOR YOUR PRINTER?N܊_MZM/R҄L܊_:6ͅ *************************************************************WHAT ARE THE INPUT STATUS PORT BITS FOR YOUR PRINTER?N܈`ڰMu[ҰM/RM܈`ͅ Are the printer ports "I/O" or "Memory Mapped" (I or M): M:MBʣIM7M:N7ͅ DO YOU WISH REPORTSTAR TO DETERMINE THE VALUES OR SHOULDREPORTSTAR ACCEPT THEM FROM YOU (D OR A): >A?#Bʣͅ DʜNͅ A7ͅ  wN:.RPکNN0:NE 0:NE :N>IN>M2M!00"W"]X"X"X"Y"Y"Y"Y"(Z"*Z"rZ"tZ"_"_"`"`_͚O_͚O`͚O`͚O:qOYͽOYͽO(ZͽOrZͽOW͚O]X͚OX͚OX͚O 0:O0:O 0:O0:O 0:O0:Oͅ  *************** CAUTION *****************THE FOLLOWING PROCEDURE WILL NOT WORK ON ALL HARDWARE ANDMAY HAVE UNUSUAL RESULTS SOMETIMES. PLEASE REMOVE YOURDISKS FROM THE DRIVES AND REPLACE THEM ONLY WHEN TOLD TO.ͩS>2.Rͅ ****************************************************************************************************************************YOU MAY NOW REPLACE THE DISKS YOU REMOVED EARLER.****************************************************************************************************************************"د2.Rͅ  **************** FAILURE *******************REPORTSTAR HAS FAILED IN THE DETERMINATION IT WAS ATTEMPTING.PLEASE CHECK YOUR PRINTER AND IT CONNECTION TO YOUR SYSTEM.IF ALL ELSE FAILS RESET YOUR SYSTEM AND TRY INSTALLING AGAINkͩSͅ IF YOU WISH TO RETRY THIS OPERATION ANSWER "Y" TO THE "OK Y/N"QUESTION BELOW. YOU MAY ABORT INSTALATION WITH A CONTROL C."ͅ IN ORDER TO USE REPORTSTAR'S AID TO DETERMINE THE OUTPUT PORTTHE PRINTER MUST BE CONNECTED AND TURNED ON WITH PAPER, A PRINTWHEEL AND A RIBBON INSTALLED AND WITH THE COVER CLOSED. THESERIAL PORT THAT THE PRINTER IS ATTACHED TO MUST BE SET TO THESAME BAUD RATE AS THE PRINTER."ͅ ReportStar will now attempt to output to a number of ports and willask each time if anything printed on the printer. You answer "Y"to the "OK Y/N" question when something is printed on the printer>ãV2 V>Y#ڞV2ͅ What is the OUTPUT port number in HEX: WW]_22Z!T>2Z>2Zw=eW#<_W!TÂWr[#x22Z2 }W> ZʍWxͅ THE OUTPUT STATUS FOR THE PRINTER IS: ͮNͅ H2ͅ THE OUTPUT STATUS BIT MASK FOR THE PRINTER IS: ͮNͅ H2ͅ THE OUTPUT STATUS ONES MASK FOR THE PRINTER IS: ͮNͅ H7?ͅ What is the OUTPUT STATUS port number in HEX: ]X]X]_22Zͅ What is the INPUT port number in HEX: XX]_22Zͅ What is the INPUT STATUS port number in HEX: XX]_22Z:BY23>2Z2Z2Z222>2Z2:Z:mY23>:2Z2Z2Z222>22Z2*Yfͅ What is the OUTPUT address in HEX: YY]_""Z*Yfͅ What is the OUTPUT STATUS address in HEX: YY]_""Z*(Zfͅ What is the INPUT address in HEX: (Z(Z]_""Z*rZfͅ What is the INPUT STATUS address in HEX: rZrZ]_""ZZG2 r[> ZZ2ͅ THE OUTPUT STATUS BIT MASK FOR THE PRINTER IS: ͮNͅ H2ͅ THE OUTPUT STATUS ONES MASK FOR THE PRINTER IS: ͮNͅ H7?7:6=ʖ\d2Z [ҕ[r[Á[ZGx!Y\~ª[ ›[r[ڪ[~#ڵ[Zʞ[gZ|ž[2ͅ THE INPUT STATUS BIT MASK FOR THE PRINTER IS: ͮNͅ HO2ͅ THE INPUT STATUS ONES MASK FOR THE PRINTER IS: ͮNͅ H7?TEST ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz d2Z š\Ү\r[Ú\ZG2 r[ڸ\>\Zʴ\gZ|´\2ͅ THE INPUT STATUS BIT MASK FOR THE PRINTER IS: ͮNͅ HO2ͅ THE INPUT STATUS ONES MASK FOR THE PRINTER IS: ͮNͅ H7?:6=^>x]<ʉ]2Z2Z ~]o]o]x!Y\~ ] ‘]r[ڠ]~#ګ]>ü]=r[2ZZ·]2ͅ THE INPUT PORT FOR THE PRINTER IS: ͮNͅ H7?> ^<^2Z2Z ^ ^^2 r[*^>5^>F^<&^2ZZA^2ͅ THE INPUT PORT FOR THE PRINTER IS: ͮNͅ H7?!T>2Z>2Zw=š^#<”^!T÷^r[#_x22Z2 ʲ^>_r[Z^:ͅ THE INPUT STATUS PORT FOR THE PRINTER IS: ͮNͅ H7?.:6=0_>.2_!@"_>2_!2"_*_+"_}r[:_S_7?!v_x_)))) `_}0 ??ͅ What are the bit(s) that change at the OUTPUT STATUS portwhen the OUTPUT port becomes ready to accept a characterfor OUTPUT (enter HEX value): __]_2ͅ Which bit(s) change(s) from a 0 to a 1 (enter HEX value): __]_2ͅ What are the bit(s) that change at the INPUT STATUS portwhen the INPUT port has a chracter availiable for INPUT.(enter HEX value): ``]_2ͅ Which bit(s) change(s) from a 0 to a 1 (enter HEX value): ``]_2$User-installed printer driveͅ  See manual and listing in appendix re coding and instal-ling your custom printer busy test, printer output, andprinter input subroutines (the input subroutine is needed onlywhen a communications protocol is in use).:O!dA!G!wa¥b:/!C!Eq>B;#U%ALaATCCEPGSta:.RbP lͅ ARE THE MODIFICATIONS TO REPORTSTAR NOW COMPLETE? IF THEY ARE ANSWER YES TO THE NEXT QUESTION. IF YOU WISH TO MAKE ADDITIONAL PATCHES TO REPORTSTAR'S USER AREAS, ANSWER NO TO THE NEXT QUESTION."wkͅ YOU MAY NOW MODIFY ANY LOCATION DESCRIBED IN THE LISTINGAT THE END OF THE USER MANUAL OR THE CUSTOMIZATION NOTES.YOU MAY USE EITHER THE LABEL OR THE HEX ADDRESS TO SPECIFYTHE LOCATIONS YOU WISH TO CHANGE. IF YOU USE A LABEL THENYOU MAY APPEND AN OFFSET TO THE LABEL (I.E. LABEL:+31). THELABEL ALWAYS HAS A ":" APPENDED (LABEL:). YOU MAY SPECIFYTHE NEW VALUE ONLY AS A HEX NUMBER. A LOCATION OF ZERO (0)WILL CAUSE THE END OF THE MODIFICATIONSeͅ  OFFSET IS NOT A HEX NUMBEReͅ  ADDRESS IS NOT HEX OR : MISSINGeͅ  NO SUCH LABEL ?!?!?!ͅ LOCATION TO BE CHANGED (0=END): bf?f]_ڃe"f/geMfb]_ګe|wkͅ  ADDRESS : |ͮN}ͮNͅ H OLD VALUE: ~ͮNb͚Oͅ H NEW VALUE: bb]_wff*f#fe|f}fb#úfGfxf f0b>*g: g+ gf+g>++&g77?!vgbQg cg VgLg####qg ;gb~#Yg~Ig#^#V#F#N7?7ACBSACFIACINACSEN ACSTAACSTA'ASCUcBLDSTACB4LF`CLEADMCLEADVCLRSCBCNVKEٹCOLOFbCONFI/CRBLIַCSWTCCTRAI[DBAVDBLSTBDB`DELCLүDELCUӰDELMIӱDFWQDHMIFLDHMILGDHMIMDHRNODLeDMJW‚DNPROӁDPHRUsDPHSPoDRLjDS[DVMIL>DVMMICDVMRNEEAKBS7ECOUN5ERAEOpERFLA4FILOU3HAVBSHIBCUҶHIBIֵHIT@INITS7INISU§ITBI9ITHEL1ITPOP8IVOFƎIVO·LIBSLINOFaLISENLISINMEMADҳMEMAPֲMORPANUMXE6PALePBACK_PBGME,PISTAPOBSPOIPOINPOINSPOIPOMASPOOPOOPOSENPOSMT@POSTAPRFINPRINIԽPROTC6PSCQPSCRLFPSFINɨPSHALXPSINIԗPSTA†PSTjPUBSPUINPUSENRIBBO΍RIBOFƒROLDOtROLUoSOCHһSYSTE2TRMINɕTRMUNɞUCRPOgULCHҼUNISUªUSELSԭUSRyUSR~USRUSRWIAb$ͅ CONFIRM TERMINAL AND PRINTER SELECTIONS:!͐ !͐ :k!͐ !͐ "ڣ":@ͅ PRESS ANY KEY FOR NEXT SCREENFUL OF TEXT:?#> E !pl>20!qll.l!Qv͐ l!qll<21!rll:v2223!tll:vUʐlP>!ʍl!tll:v0ڍlʌlڌlʌl x23!*mll>24!mllO!nlO!]olA24!p>l25:vl͐ #@2vm:vE lN mmO#~"mm2vxy7Do you want error reporting options installed into your REPORT program or do you want to select them each time you run the program? (I/S): IIISWhere do you want error messages reported? D Display on terminal. R Display on terminal and require an operator response. L Log in disk file. B Display on terminal and log in disk file.(D/R/L/B) RRRDLBWhich errors do you want reported? A All errors and warnings E Only errors F Only fatal errors N Only non-recoverable fatal errors(A/E/F/N) AAAEFNWhich errors do you want to stop the report? A All errors and warnings E Only errors F Only fatal errors N Only non-recoverable fatal errors(A/E/F/N) FFAEFNWhat is the maximum number of errors to report? 0 don't report any 1 1 2 10 3 100 4 1000 A report all(0/1/2/3/4/A) AA01234ANon-standard options are available for: Running under MP/M, System disk drive, Initial help level, Output report to disk file, or Error reportingDo you want to select any of these? (Y/N): NNNYAre you running under MP/M? (Y/N): NNNYREDIT layout help levels: 1 = no help screen 2 = only help screen 2 or no help 3 = all help screens except 4 will be available 4 = all help screensEnter the initial help level desired: (1/2/3/4): 441234 The system disk drive is where ReportStar will look to find programs and overlays if it can't find them on the logged drive. Enter a disk drive (A-P) to be used as the system disk drive, or enter '0' if you don't want a system disk drive.Enter selection (A to P or 0): AAABCDEFGHIJKLMNOP0The report output can be written to a disk file instead being printed: D = write report to a disk file P = print report U = have the operator make the selection at run timeEnter selection for report output: (D/P/U): UUDPUHow much memory should be used for the printer buffer? 1 = 128 characters 2 = 256 characters 3 = 512 characters 4 = 1024 characters 5 = 2048 characters 6 = 4096 charactersUsing more memory may speed up the report writting.(Enter a number between 1 and 6): 11123456This version of REPORTSTAR will run under CP/M only up the report writting.(Enter a number between 1 and 6): 11123456This version of REPORTSTAR will run under CPicroPro International Corporation and is protected by federal copyright law. It may not be copied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in said License Agreement except with prior written authorization from MicroPro. Enter name of report specification file (or press RETURN): RGEN COMREDIT COMREPORT LOG PRN ~eBFF!>OT ` C j    x[7wYY L@T@}_2)~(CURSOR: CR=next item ^S=left char ^D=right char ^A=prev entry OTHER: ^G=delete char ^V=insert hole ^C=abort report ^R=restart ---------------------------------------------------------------------------- FT1C-N+P'".: No *.123456789FPRNDX Abandon report? (Y/N) NYNEnter name of report specification file (or press RETURN): Do you want output to go to a disk file instead of the printer? (Y/N) NNYDo you want standard error reporting? (Y/N) YNY < completed.  warnings  errors  fatal errors < terminated.  warnings  errors  fatal errors < terminated by operator.  warnings  errors  fatal errorsPlease enter the name of the data volume to use for the file : Do you want to enter more volume names Now or Later (as required)? (Press N/L) NNLPlease enter the name of the first volume to use for the file : Please enter the name of the next volume to use for the file , or press RETURN to end the file: Please enter the rest of the volume names followed by RETURN. Press RETURN when the list is complete. A file name is 1-8 letters/numbers and an optional 1-3 letter/number extension, separated by a period. A file name may be preceded by a disk drive selection (letter, colon). Press ESC to re-enter the file name. The volume u of the file  is not present on the disk r. Enter the name of an alternate data file to use:  The volume u of the file  is not present on the disk r. Enter the name of an alternate data file to use or press RETURN to change disks:  The disk/directory in drive r is full. Enter the disk drive (A:-P:) to use to continue the volume u of the file : The disk/directory in drive r is full. Enter the disk drive (A:-P:) to use to continue the volume u of the file  or press RETURN to change disks: Please insert a diskette to use for the volume u of the file  in drive r and press RETURN.  Output volume u of the file  already exists on drive r. Enter the name of an alternate data file to use:  Output volume u of the file  already exists on drive r. Enter the name of an alternate data file to use or press RETURN to change disks: Please enter the drive number (A:-P:) to use for the volume u of the file : u already exists on drive r. Enter the name of an alternate file to use for the report or press RETURN to overwrite the existing file:    Opening u on drive r.  The report specification file, u, on drive r is unreadable. R = Re-enter the report drive/name X = Exit to operating system Press R or X:  RRXThe report specification file, u, on drive r contains errors. R = Re-enter the report drive/name L = List the errors so that they can be corrected Press R or L:  RRLPRINT PAUSED. Abandon or Continue? Press A or C: CAC The report specification file is where the specifications for your report are stored. If you have not yet designed a report, choose a name for the report specification file and enter it here. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: "H:" is not a legal disk drive. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: "H" - illegal character. A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: A report specification name is eight (or less) letters and/or numbers, optionally preceded by a disk drive (letter A-P followed by colon). Press ESC to enter report name or ^C to exit: REPORT Release 1.03 ID # 711303KP-00A Copyright (c) 1982, 1984, MicroPro International Corporation. All rights reserved. ied or distributed in any form or medium, disclosed to third parties, or used in any manner not provided for in aid License Agreement except with prior written authorization from MicroPro. The report specification file, u, is not present on drive r. R = Re-enter the report drive/name G = Generate a new report spec Press R or G:  RRG H.COM is not present on drive r Specify which drive (A-P) to try next: Where do you want error messages reported? (D/R/L/B) RRDLB D Display on terminal. R Display on terminal and require an operator response. L Log in disk file. B Display on terminal and log in disk file.Which errors do you want reported? (A/E/F/N) AAEFN A All errors and warnings E Only errors F Only fatal errors N Only non-recoverable fatal errorsWhich errors do you want to stop the report? (A/E/F/N) FAEFNWhat is the maximum number of errors to report? (0/1/2/3/4/A) A01234A 0 don't report any 1 1 2 10 3 100 4 1000 A report allIllegal character (H) ignored. Press ESC key. ** Warning #1 ** Pass V Output file, u, contains the following record with invalid data: R** Warning #2 ** Pass V Destination field, #, in report is too small for data: K** Warning #3 ** Pass V Alpha character(s) in numeric field, #, ignored: K** Error #4 ** Pass V Zero divide in calculation of field #.** Error #5 ** Pass V Destination field, #, in report is too small for numeric result: K** Error #6 ** Pass V Destination field, #, in file, u, is too small for data: K** Error #7 ** Pass V Reference file record for file, u, not found for index: K** Error #8 ** Pass V Function argument out of range in field #.** Fatal Error #9 ** Pass V Number out of range in field #.** Fatal Error #10 ** Pass V Expression too complicated for available memory in field #.** Fatal Error #11 ** Pass V Dot command error. Margins exceed or equal page length.** Fatal Error #12 ** Pass V Unknown fatal error.** Fatal Error #13 ** Pass V Can't read report specification file.** Fatal Error #14 ** Pass V The disk/directory on drive r is full.** Fatal Error #15 ** Pass V Insufficient memory.** Fatal Error #16 ** Pass V Illegal format, u, (on drive r)** Warning #17 ** Pass V Control character(s) present in input data for field # ignored.** Fatal Error #18 ** Pass V Change diskette message for u on drive r cannot be issued because drive is being used for other files.** Fatal Error #19 ** Pass V Change diskette message for u on drive r cannot be issued because file output is in progress.** Fatal Error #20 ** Pass V u on drive r has exceeded the maximum size for indexed output.n progress.** Fatal Error #20 ** Pass V u on drive r has exceeded the maximr #18 ** Pass V Change diskette message for u on drive r cannot be issued because drive is being used for other files.** Fatal Error #19 ** Pass V Change diskette message for u on drive r cannot be issSTAFF O ---------------------------------------------------------- | STAFF RECORD | | | | | | SALESPERSON ID: | | | | | ---------------------------------------------------------- 򠱮 ƮƠ宠堠 Ʈ ANAME8@IDJeremy S. Gogetter,GSJ Susan B. Hardsell,HBS Wyzell T. Softsell,STW ,  said icense Areement xcept wih prior ritten STAFF $$$GSJHBSSTW0pared ona characer by chracter bsis to dtermine cceptablty. Charcters ar compare accordigSTAFF DTASTAFF $$$*Y!\ x\F%CÚ LH SR UJ BP PL MT, MB2 HM8 FM> CWD PCU POL PAj CPd PNu OPo HE FO !J;>w͔ n!f;> !K; Ô !O;# !W;# !S;\ѷ-!>N d!\ xp!x* Not enough memory $CS OVR CS.OVRw#x`7PASCAL/M.xxx Copyright SORCIM Corp. 1981 S/N- 38,BCD 2.x804.01EV S.C.3740FilenameEXT&&(XÈP>P?CS OV2 T   WQjk#"ERlm)(>}>?}zz_z>}>=}z}{}!D J 9  O <  , F t T d _ o %4 Z f  =: i SrT8KDknt"@|KY!H}-<DKn2A"q )"4\hbp?+?? @o&L (!_^#V*MD2}~Bebob_x_*x@_*^#V!2"o&"*":ʝ!6u62::ʼ!6u6:! *)22!u6!"" 5!6u62*1.Å.Å:D:D.Åi`".Å.Å!"".Å"i`""!>À.Å!!*ù). Å. Å. Åi`"*~. …ý)*MDi`"> } "i`""!>À.Å.Å".Å"".ÅPCO o g o g1 o&1!1!1!1*w*ͻ11*Î*ͻ^#V2Ó*é*ͻs#r2î _րW _ *^#V=ͻ ͻ1Îïn&1s2ͻi`"`i{=Ļ )D)11ͻi`"{OzGn%D `iG^#V#=MD2^#V#~#fo2i`"q#p#s#rD 2o&)+V+^=w2 ʛo&)9^#Vs#r#=’2ͻi`"KBn%D O>G2᯲1Å 2i`"|}2!N: ~# DS#11 _ 2i`"K ) :o&E6oDi`"CK^#Vx]GjS]bllzW{_b! ~_#~WDi`"y! N#Fڟo`ALbS\¦öʶo{_zWyOxG-¦y/w#x/wD =11{ozg1}o|}/o}/o|/}{ozz܄$21i`" Di`" F i`"ͻ D7 }o|g1Y 12Y 1b Y ڄ Y 24Y 24Ê 2>}ͭ 2ä!.?%*?%yH ) y ̈́$`i<) MD!xGyO){_zW #= ɯ A A x& ̈́$; a z8 8 Ä$ ̈́$?%| !1Y | N V Y | N f ?%N !1 ʕ !D ʈ !D ڈ • È ڕ ˆ Õ ڕ È ڈ Õ i`"! ; O' 4 2 {_y| }! z {2N2G Ay" # :ͻi`"KB@ ͻi`")MDG a # J J z?%zɯO>G i`"_!} ^#Vz `   é | DP  x   D}o|g }o|g ** ** à 2 **DDí2 ? **D"""Y **?%_>W>o>gz Wt / |怺2 z!+~ "~ *D!""!9+x> ¸ wxGyOzW{_# :2#:2#:2#:2+++~w#~w#~w#~w++++5» *}lg*}lgD**P ""**P """ᯕo>g>o>g[ "<{_zWyOxG] !""72xGyOzW{_*)"*)қ #""}o|g"}o|g ** *#"} *#":={ ""*"z OOx*X =  H_>W>O>G|C㴵DW * = *+ [Gxʞ{/w#z/w#`Þ|GOxʏ{w#zw#‚yʞGw#w#–*Dxʞ{w#zw#±ÞO!9Axw#w#*H+~+~Di`"E#)9~"## ѻ2i`"'O)9o`9]%D)EO/ɔ>2ʭ{½#z½#œ:ºý$:O*D{/#z/#:~/ѣ#~/#:$O%y7Az9-i`"x! {zyoxgyGM{ozg{2&^#Vʛ×=–x! G{_#zWxʸ³:! yoxgy_z b ~9>o&D}K|K@}@|@KK2K@ ZO>G2*O ^#V7}O|G2i`N#F#^#V#""z}|DDxD}o|gD#)*N#F+}o|gMD2ͩ2ͩ*1ͩ**"*"N#Fq#p2ͩ*MD*#~=! V+^+F+N#KB21*+V+^" "*^#V TO* #~+~+ G*" ""*yvxʀ*~ĉ"2o&)) F+N q#p*$?%M*"*" i`"/<_**^#V7}o|g",~H^#V#N#Fo>g9͚  o>g9͚**##n%****!9" "**"*,"+V+^}O|G *c<*"*!òi`"͢>*MD"*!ò =i`"W*|ʚzFҚ #w""^#V*z"D!a {  wa{Q HA/[H_HQ?H#H$H0Q:Q #w *w$*s#r::<"?%ʩ!œ#|*##w#6ŽD! *p*##6#6###!~#¼DAO*| Ni` ) ) """*#!**s#rD,*^#V{=!* ^#V{=!yзO \w# Sw#G \pB +{'wzG y +'  7+>'w ž!& #!B ~!͇=~! ͇=+ ~1#  +s'G'w+>GG Jx=Š#6ÊP''w+ xҊ#6|@"@wʜÜ! ! 2O~22O#!BH!B!~@w/2""""!"p""""<o****i`"2UͬrUrUir<. rD<< rD<]Tͬr< **<v~@2v8rH@PU8r! ک!A &>2"UʹD<****DD<****D""!J *r"""![ *r͸*|N}2o~! ͇*}D!͸*|~}2N}! ͘ڠ! s!:G~22ͮ*}|@g}@Ox~w #r#  !!ͬi~#YP~#YP^#V|h h ^#V#^#Vh z| Goxgx_xW! Ͳ Ͳ w+zŒ  !))Ҿ zP OzyW#´ BzWx  "! }|{z>2E !!!"!DM!q#p#s#rq#p#s#r>2Jʹ$ ++**-( -,,-#-**E\......."$o$v"1bͻ"|Z"`i"t" w#"͆*/$>:$DxS}U$"y x%xD*%Do$MDy_xW{z/W{/_xzW{_Ì$$$$$$$$$}0>02$>0]T< $=kbG:$$> x>2$0~0~0#y$GN#x%%y_ѯ %#7# y:%'%%yz{x7# G%?%n% +~ xa%x~# n%x~aڋ%{ҋ%# {%~#Ó%7#Ü%zq#é%O:=@I·% ´%|%}%Ɛ'@'ɯ2&#~:+:%~@5&##%:<~>:77&.!&~.#!&y[&!7& [&:&7x7~f&#.[&*S&>?^&~# 7&G>  ^&x!5&|5&;5&=5&:5&@ʓ&#ʓ&*ʓ&?˜&2&a&{ w*%.*/$>*:õ&x:&Ƞ2&Ʉ&&OYy&OOy'_  'ɯ%'-' '^{#.'ͤ'6=(ͤ'#6^w#VwzW{_! 4!~oO ͧ%=(=(=(=( Y=(!!^#Vr+s=("',(' (,(( ( GCONSOLE#CON#CRT>READER5PUNCHGPRINTERLP5COMM1,COMM,NULL5TAPE15TAPE2/>2!"$ͧ%~|)|)O͘)X):|)~)# |*#A):"|)! 0)o^5)oV%|)X)!F(%>~)Oy~)~*w*T] FO>o)/Gwq#6D>2!9̈́$|D!"D#y% ʠ)>!%!s*)-'*`*%*k*%![*-''<2\!u*]͓%!\'! *-':@!6n% Pascal/M ABORT. ! Insufficient Memory. Feature not supported by DEMO. PC= FFFFh SP= FFFFh $$$ SUB*}2]*1{2*w#w2}2*{22y**29!(*&oS("6:8>*>2D͒-y*+!**.!+!D>+>28!`+">"<""A":͒-~ ʅ+:8I+~…+ͭ*~2@###^+*|ʻ+!~~+w*A*?%~+͠-w*Dx2~+ÿ+ï+]**<k.+:8).-!"û+2*>͂.**:{L,:8+NS,H,:@O ,y+͛,wH,,,&wH,͛,w{,,& $,> ,:t:H,6#{3,͠-wL,#+"û+:@ ,:Cy2Cu, = ͠,i,à,ƒ,>w  :7>â,>ʳ,YO,O,&ð,_>ê,*|~#"!"t-?',`'*, s#r> 2t-X'>,t-',t-͹'>,t-'"t-͠-> p-**N͘)n-!'> p-*!'> p->2>28͔-ͭ*~ !D*!""N*~ɯ2>28i`"<"":"!-"*<k.-:y.*:-!*'.-x2y.".*:":-!"*:!n%͠-w**:'K.F.x2y."].!"*:":/.|)!!q#p*w$*6#~2,#~2,<̀1r<ͯ2r<2r<.r<0r<̓/r<ͬ0r~7 / @4>@#!4{/4ͬ!4444!448!{/44ͬ4!4o/# U/!4#!44)/@P`i ~77AAҠ//< ڶ/ Ҩ/ ¿/Wr#w+4!46A!4#0ʹ/!4+04i4!+048!444!444ͬ!30{/`4YP!48AA1b'v`?)CW5?2ab$c?4t5XU"`?7vG7Uh?A6y"?EqRb?Q 4hE?WY04?fE5gt#?x&33?Ps@@vd@7y'a0@()eF@8P̓/PY!0ͬA#XPA~0PY!#04!4~w4#0!'1`4!444ͬ!444ͬ1!4BK4!#02YruT4&(W)$6Q"i77BP9P:3 ;8333='`Affg>&fffg?1%@%4!4~Gwx24-24 !=24ʹڻ1!4-24i1!E24ʹ1!4>w!4E24i1!524ʹ1!4E24i!4>w!4M24ͬ!444ͬU2!^2`4!4:4ͦ4AbSApyc&yIAG88GA1AY&SX@cfw#gYCwTg185`fW1cfQ 9V)!525!!=AG6FuA51?yi&&$agdYd u%Apyc&yI-2 PY!528DM̀1~2`i 4!4~w!4#0ʹ3@!#044!43ʹC3 !434ͬ!4#04i4!348!444!444ͬ!#0444!H448!4P44ͬ!4(4!448!444i44 ~y34!#048!444ͬ 3X4!448@3!5244i!4ͦ4!4@&yI$1A2V?aP?d3Fg1?hW(W)3333333@P"bD48@PBsPBsP@Q@`@EA4@R5wU0!4 448!~ʏ4!444ͬj4!444ͬ44845Ȯw:ʎ5i`":5*^#V{D{ O5*OWY5*MD2?%452y  5yo*MD}A: :ʈ5*~ʈ5i`"O*~^5m5ƒ5!9"5!v5u6Ã5y5i`"5*MD 5: 2͝5Di`"|5!@6 ͩ%*t"@6N#l%)6-'6͙$*n&5ʹ$*n&6ͫ$*#n& 6ʹ$5-' S:12 P#123 Lev 12 12345 - line executed. Entering Proc name - 12345678 :6!6@\6!7q6:!4n6!.6"2l%BKPpSTEP 95O7*7 7}|:A76~ 6 6,6;6|7 77a6{6 w#ï66#×6:A76~ 77#66#ï66go~7ѯx~ %7 )7#7~':7":72A76#2A79:~#]7<+w#_^#Vѯ71p?Z:!""""UC8 |•7}27>72,} :8-' *-'a:! Pascal Library not found. ! Pcode file not found. ! Pascal Library ill-formed. ! Pcode file ill-formed. PASCAL/M version NOT compatible with OS. !]͓%'<22\!"9:}2!:~o8 ;#T2p<%!9)!PC">O2p-͢!U~@/5"#l%*"K6!"*""+F+N}o|g"+F+N}o|g"* N#Fo>g9!9!!9"" ""!$$"}2:D*!9w$*Dé%!9)!p ii ` ii.gh i*ݚ iiiۣi4iidabba(i4ipci6iai.iacadadf2i4`*i0ii.e`i6ifei*i.i`ipi  i +2 `d e e (/`/d`b45b4bۡ#bb b6b b.ab`,bۡ`,b b`,&V vdddpdۡd &"<:<<c x0epdder6*d0 j1`/``d a`,d3`b1(adۡbdp`,b3U rA22Ar 22    T3A22Ar 22 <% R4b52bafDec,c0d ca dcA $`pd``peN ~5`bap5aeapf.$dGc`d62GUcd8 Z6A,Ap(8--+89A`A,`p `ۡA1A,`p+ B: 9A1 i72R3A,Apggpi472[ h;   :9 @ @;.8 ;Ee89;X#F6GgHGU !AU AaU a0U0728;x7a/22 7f6g g  g  dL ݚ$ ݝ$4  $а ݰ   e64g h fd5h dc5h >> $(>hh( h(    `4aۡ aۡa,02Yz2d2  `2 a a &`2 a   a ݰa  :d  e=e. ge  f e     j<dd*<  dd.<  bffff  fb)fef4ۥb+f0ݰf. fef.f*ݜfbf6fff.f*ݚ  e  `p ` `p ` `r  `p ` *(D4`Dp D `` D2B>dbbbae `eabababa>af4b``bfpc`d ` dc`bee>0 =ab`= cba`=!ba`a=#True Pa FalsePb`=0"a ``Ћb`=0$``Ћc`=0%a` l ml2   - Alg A`i iii(Aglg  = kn jnj ki 0`>.egZg#gg.i2g0.g0lmЋfa= &'`bЄcaЍacabbcbcbЃ2bPa#ca`dd`cab`b`6aabЌ`1a`bcd badbcbadbb`H`FabЄecЍce1b`d b`b`edbcb`ebbeTeSe deЄ egf3gfghdg gfdg e egg: fa`a-ݰ`    eaed0`eaea`a`W/zJ ~  z V (DzXPL  Dpjd H@6HLZ|>CONSOLE:P``CRT:P`PrrT<< <R4:/(AHardware parity error(Unknown device specified(Illegal I/O direction(Undefined hardware error( Device referenced is not on-line(File not found on CLOSE(Illegal file name(No space for file(Bad random access("File not found on volume specified(Duplicate file name(File already open( File not open(xError reading Real or Integer(RPut not at EOF(; End of file(' nG)rN9 IO error: (? .Unknown run-time error(BDivide by zero(Exit from uncalled proc(rArgument out of range(Floating point overflow(Illegal PCODE instruction(Integer overflow(Value range error(Non-existent Proc/Seg called(Stack overflow($String length exceeds declared limit(Can't read Pcode file(Programmed HALT(Program interrupted by User(String Index out of range(Non-existant External called(Case out of range(Set element out of range(fPointer invalid or Nil(HAssertion failure(/(H4gS) ~`D ! ##%V* tu Value= #%r60Enter new value: # iB`tJ@Value= #`t$`uJ , Limit= #`u$cVValue= #t$$Value = #sNil#s 16### T asCurrent dynamic length= #`$, Illegal index value= #at$" as`" v @@  File at 16### = #@   b+. P b :@b P #b B%F Bs 62 .*%, 24,.,&,.V` b`a`Ѝ b`Ѓa`Є (   a a*PASLIB* bnrа  nr nrk lnrknrk m`nrk  f``yEab kqabksFktgeH^beF ku  % H-& lk d  c cd  #ffgf N  b vxcw )At S#ss P#ppp procedur I#iiii sp=1234 < ! Line #$ ifrom  -cE=continue, =quit?# d d cc 2 Resuming...#dN`f Pb.! ;<: = Not impld. N JaJ ,2J;2J ;BBBB BJJ1 END 1Z TRUE 1C FALSE  1, CLEAR 1 DISPLAY 12J 1 OJ0J!2J< 11 111 1111111 ^C )IA\"$&(*,.0246j:<>^BDFHJLNPRTVXZ\^`bdfhjlnprtv15#expected# 41@XJ 4PS 8ddۣ BO 6l iveɀŃ jpgjq dgfhdpi֔vf dff) VCfe hqfeˀhsˀɀơ(hrˀ diɀgfˀɀgQ \deee  da e cʀ` ɀbbɀ"`e cʀbɀ be c P d fЇ lЃ klj kۃ k jc L Gaɀ`ɀˀ`(4 af gg GG `jk j k/  ` jʀ jˀ N)   h cmC C#oh  m m$Q'C%7m"+= ! W;% 9k-& ( afgg  I h   j   y i1 (1  Illegal value.#2/= ! uY q   M`E ЇЃll  2EˀG ɀɀˀ(G`E  E&V8 g֔vfptep eph e p p֔vfpt֔vfpv qffp֔vfpuuІ vv pd$d֔vfp$ Error in index#T& hb`/aˀ ɀCb  aCbab7 B bappɀ-2!`"ɀɣnEˀ< ɀ"E$> C " EG; ɀG;CGGEGCCGGE"EGE EˀɀG" EG|!֔vF  $ `)ppE`-2#= !.z Too long.#!F6>  pRp  feepfgf g dp eepfgd p hˀɀ Error in last index#epˀhG ` b   ֔v obbppn  $8bpp ab  C( bp babp`bpc.df֔vatdef֔vave`bdjHa`a9aˀɀ  ab b.b aC \b`hg /   Ѕ   l lˀ i ) ɀ  l Gkapl lGk$i Oap= !lGlm)`l C C#l ap aIˀI֔vn֔vnv֔vntn[ pp$, ]=#IIo= !m*s.!')n811`O&1;` Not an array#_5 , or ] D19` Not a record#$5 .,^,/,\ v1abOb Too many fields#1c  ?#1cb111 abx 3 ` D֔vI 1 Z1 tʀɀuɀG,ɀBBC C#ɀˀ%֔vID 1 ; ֔vID v5 /,\  p  ˀ֔vI  D1 Boh = !;  D< Unknown mode# acgosuw ?#X=^f(dy4[ceMdap`:acgdbdbpbddydyda8dyddy`ddydToo many#{ `BOrpa44 <: Xa4Ma4B ?#5BXI ` "dN(*,KE Crˀɀˀɀnv` q֡Րpb bb$: ;Ր b!( ֔ve ededed֔veCtmtn[e ֔vId/q֔veveq , e) K4nCbyˀbɀcsˀdɀcrˀ`ɀɀɀbdvaɀŃ e ev9b$: ;dՐ d֔vdvaɀŃ pcq d֡dՐ x+Ȁap apapBaȀbqaB| Break at ##ƀ$Ua-2Iƀ-2# ƀ$<> xvrMC PASDDT#<!2`1135 /,\,[,^ 15 ; 4j-4jƀƀƀƀ<: Line# #$Breaks: #ƀyȀƀˌ*B# ƀBp$, BȀƀ Trace on.#CA`< ?#/6> %3, "$10 Exit PASDDT.#6tiNV  ~ 0 Df :h6pV:-;;<<G(>@"< G+2>DR=BD`v a>aDBE`֔v=>==l`v a=$`CaaE>@> kv p = jidk֔vj j d'V ;=<G$empty symbol file#+2tȀEGM GE ECBbaȀE֔v=>===ȍGG=ȍToo many symbols.#Last symbol read: #>! in #vb !2Do you want to see the list of symbols available? #ȀƀcF`HJ  0 ihcdSeg##c$----- Procs -----#hceed khvb mmP# #mv$f#mf! lev#m$mq$ vars#mpmqnh֔vga`## !t$ u$ v$ $ $ $## !ab c  pA / Print .#.\ Print change it to .#);{-}B Set/clear break at .#;P Proceed.##;{-}S Set/clear step mode.#$;{-}T Set/clear trace mode.#%CLEAR Clear all debug modes.#DISPLAY Display status.#END Exit to system.#  PASDDT#` 1.00#*`s   .SYM(a,„IIvI֔v 0JJIbLLLbJJJIaaJIII֡ 3[ "L+ wJX,< X^R # ,49h C20/00/5500:01%Comp 4.02 CSV145,, COPYWRITpʑ#a ` #ʓ#7 Copyright (c) 1981, 1984, MicroPro International Corp.#" All rights reserved.#:#:#:#:#:#:#:#:##¸ a` 2`%\ ǀǁD8TEMPFILEǀSTOLENʓMicroPro CalcStar 7ȀʓȁƁȀƀʓƀЃȀƀȁƀˑ:ɑ:ˑʓSTOLEN SOFTWARE !!7Mʓȁǁʓ7ǁ1.46 <ǁ =ǁID # 511503KP-001 Rǁ7ʑ> CSMASK.MSKʑ> RNecessary file # CSMASK.MSK# not on default disk#2ʓJʓF˒ǀ TERMCAP.SYSǀ F3Terminal not configured... type "INSTCS" to do this#2ʑƀ8ʑ#ɑ˒ʑʑʑʑʑʑʑʑʑʑʑ ˑ7ɑ7ɑ7ˑ7ǁ}XXXXXǁ}ɑ7ʑ'ȁǁʑǁǁ} ǁʑǁǁ}ǁʑǁʑˑ3ɑ3ʑЃǁ}Ѓˑ4ɑɑ3Ȁɑ4ˑ3ƀˑ4ɑˑ6ɑˑ5ʑ^.ʑ^SUMʑ^AVGʑ^MINʑ^MAXʑ^ CNTʑ^SLOPEʑ^DEPDʑ^ REGRʑ^PROJʑ^ ABSʑ^ EXPʑ^ SQRTʑ^LNʑ^LOGʓ? ǀYRʑˑ92`Pʑ# # - hit space#ʑ# #+T^aɒa aɑ`ɒna `a``'ɑ` ``ɑrForm length : CONTINUOUS# ɒ˒kɒkbad form lengthɒk3Stop on each page (y,n) ? #YN#Y˒o˒o`Pʑ##ʑ#2R832top left corner : A1#   A1P gf Bad coord32  bottom right corner : # #  32  ed Bad coordepgpdpfp End < Start VTo which file ? #PRINTER:#  ɒˑ92>˒rɒrb``a`DISPLAY CON:PRINTER::.:.Iɒr#.DTA!.TXTʑʑ ?&File exists. Delete old file [y/n] ? #YN#Yʑʑcan't open fileʒhʒiʒfʒgɒr˒kOutput width : 132# ɒ˒nɒn˒n˒mɒiɒgbɒmʒ`ۃ˒m`ˑ8ɒiɒhMFix ordinates (y,n) ? #YN#Y˒pɒpYes# No#˒pReport Printing..#2#Make sure printer & paper are ready#ɒmɒn9ʑ# Printing in segments #ʑ#˒lTitle> #ɒl˒l ɒnЄDʑD#ʑ#ʑɒl˒jeAˑ9ɒpɒqAʑ#Cannot print empty worksheet#ʑ#ˑ92˒obhPrJ8ʑ2ˑ8Writing Data file..#ɒhcɒf. ɒidɒgdcJJJ|0J&J0(,0"0`ʑ" 0BB$0a"ʑ" ʑ0a aB`ʑ" JJJ ʒdJ ?n?PdJ 0Jbbbbb*ʒdJea ʑ#dɒgʑ, dʑc 468,ʑ# FILE WRITE ERROR - hit space#ʑ# #˒Ra`JJaʑʑ ,ʑ# Hit space to continue #ʑ# #`ɒRɒoʑ ˒lpʑɒl˒lɒk ɒlɒk(Kɒiɒr˒qɒiɒhɒpɒiɒhaɒq9Printing segment..#ɒj[[ e[ɒnɒqeɒpeʒۄʒcecɒgeʒcۄceɒpIɒqʑ 1:# bʑ#ɒqac[[ ee[`ɒf[[ɒidJJJ/PAGEdKKKd^ɒqdʑ#ʑ: bʑ#ɒpɒqdac]] ede]d[c˒i˒qcɒg..End of report#ʑ)@_ x*0^bBb(empty, but allocated)#numeric#text:#aZleft justified#P repeating#<right justified#"centered#4cN ` (Form mode set)#. ɑ;ɑ;#ɒ bɒ ʓ*ʓ*ɒʓ*ʓ*ʓ*.ɒiˑ;ˑ;"ɑ;dɒ}˒}ɒ}ɒ|ɒr˒`4ʑ# No form flags #ʑ#5%ʑ# Auto complete#ʑ#a˒}ɒ|˒|aɒɒ ɒ}ɒ|! ʑ# Form Control Mode #ʑ#˒}˒|˒fH Command> ##*?AMHPEIQRFSLCDOWG=#˒ɒ ʑ#2ɒs˒yɒt˒x˒ɒsɒt!ɒ˒˒ˑ82 Room for #ɑ $ entries.#tɒɒGˑ=ɒˑ<2W*Qo  "$&(*~.246:<>@BDFHJLNx] <ɑ;ˑ; ʓ*ˑ;"ɑ;O.ʓ*""& ʓ*ʓ*Fɒʓ*ɒɒ4˒ʑ# Auto aborted #ʑ#ɒ?ʓ*/ʑ# ? too long! #ʑ#ʒʒ  ? computing..#ʓ*dʓ*cʓ*cbc``ʓ*`ɐ'`% =#``)ʓ*# ʓ*# Z ɒk&ɑ;&Rˑ;ʑ#' data entered does not match cell type #ʑ# 2ɒɒ&&`ɒɒ&& 2ɑ;ʓ*/ʓ*bʓ*˒ʒʓ*ɒR:ɒL-ɒC ɒPʓ*/PAGE# ɒ=˒ʓ*&  2&&aʓ*Uʓ*#ʓ*#` &)ʓ*#&(&ɐ' &`ʓ*q&&`&!ʓ*! ʓNʓ*#9` &)&&ʓ*&ɐ'ʓ*! &&ɒɒ%ʓN#ʓ*#ɒɒ!ɒMɒvɒuʑ#> ʑ#&ɒʑ#< ʑ#ɒɑ;&ۡ+  4ɓEL-R# T-B#ʓN#ˑ8"ʓ*Ѓʓ**ɒs˒ɒt˒ɒɒ&""&&&&&&&' &&&(#' \&&7&ʒɒʒɒʓ*ʓ*#ʓ*# X`" ˒"˒"ʓ*ɒɒɒ Gˑ<ˑ=2ɑuʓ*GɓE ɒs ɒsɒt! ɒt!ɒt ɒsɒt! ɒs! 3ɓE ɒt! ɒs!)ɑʓ* ɑ?ɒ?ɑ .ɒ;#ɒ@ ɒtɒs" ɒ^KgkOQ^L<p b  :`a`a:`.`b`ab`baL`c`a`abaa#0`P ʑ##ʑ# 2RD"" 2 READ ERROR"" Load position : ## ɒʓ? 2@ Bad offset"Є"Є`ʑ˒˒~˓E"݃"܃" 2"݃"܃L ʑ#Array bounds exceeded#ʑ# 2"݃"܃2p%"&%&%&%&% & %&%& m""aЌ4a#aa݃aaa܃aɐ':-"#(ɐ'""c bʒ"݃cʒ"݃bɑ: ɑ . #J"ǀINF˒{&File name: (make sure file is saved)#  ɒ2. "#"ȁeǁeǁe.CSDǁe"  Not found" Password: #  "  QFIMQK~ȁeƁeȀƀƀƀƀȁe"QFIMQK9ʑ# Password does not match#ʑ#2`"rȀ"qȀ"Ȁʓ?ʓ? ʑ#ʑ#ȀȀȁeƁe:Ȁǀƀʒƀǀƀʒƀƀȁe`ȀȀƀƀ@ǀƀʒƀۉǀƀʒƀۉȀƀȀ`ƀAOverwrite current column formats with Merge file formats (y/n)? #YN#˒ɒNKȁeƁe:Ȁʒƀǀƀʒƀǀƀƀȁe˒{˒ƀ˒yƀ˒xƀƀ!""0w7V|L :`a`a:`.`b`ab`baL`c`a`abaa#0`Pʑ# SAVE error: ##ʑ# 2RRɒ Saving row# $qۣ򊥣,ɑ: ʒʒ!"!"!"!"! " !"! "M&0&(# T.  File Writepp79D`Pʑ##ʑ#2R832top left corner : A1#   A1P gf Bad coord32  bottom right corner : # #  32  ed Bad coordepgpdpfp End < StartVǀFɒpɒqCannot save empty worksheetǀʓ? File name: #ʓ?#ǀ ǀ ǀǀʓ?ǀǀɒ2ǀ.ǀ#ǀȀǀǀǀ.CSDǀǀ ʑ# File exists. # Destroy old contents (y,n) ?#ʑ#YN#˒ɒY 2`Verify password to remove: #ǀǀǀլǀ`ǀݙǀQFIMQK`ǀȀƀȀǀƀǀƀƀƀȀ`ǀՙǀQFIMQK Bad password!ǀʓ?ǀǀǀǀ Password ( = none): #ǀǀNAgain: #ǀǀǀ͙!Passwords do not match!ǀǀ,ǀ`,`ɒ~`ɒ`ɑɑ `ɓE`ǀͬ P)artial or A)ll #PA#AȀƀǀǀǀǀ 2ǀ`,``` ƀ`ƀ`ƀ ǀ File CloseSaved# p~`Pʑ# # ʑ#2RDcbda`eepe)edefeee!e&eɐ!'e&! egЌgrg!gЍgcagb`$ggb`ggcaggeɐ'ea`% ')+R ɒ2>        eg Bad coord1    Bad range coordgp ep fjgpdiep(From coord (>coord) :#  To coord (>coord) :#oigigeciga`Sizes don't agreeecigNot along row/column/jhmmm& R)elative or N)o adjustment ? #RN#nɒ2nR8igcea`)%Row --> row or column --> column onlyec b'ʑ#WAIT...#ʑ#kb;jhfdji hg fedcɑ b k ˒ɒsɒt!QSd <`Pʑ# # ʑ# 2RDɑ ˑ `)`ɑ `ˑ "ɒqbɒsdbp bpabpa`ɒqɒqɒcpc`ɒsdbpbcav `ɒɒb8b)ɑ ˑ bpbpb)ɑ ˑ bɑ aqˑ `+ɒpɒp˒aɑ aˑ ɑˑɒ'`ɒɒppaɑ aˑ ɑˑn ɒ˒dcɒ 2`3`cb!bpaap abapacb ɒbpbcm ɒeeqddd d& h Ќ h  b hX hh hgcfbgaf` hga hf`h d)dɐ 'dpep 4(ɑ ˒{˒ɒsɒt! 2 pl ˒{Insert: R)ow C)olumn #RC#˒ɒCɒsDɒsd3ʒcʒcʒcʒccʒɒsʒɒs ʑ#WAIT...#ʑ#d\ɒs(ɒscɒ?` `p `a&cɒɒq a`ɒacɒs˒{˒ɒsɒt!ɒRɑ sʑ#WAIT...#ʑ#bɒt bɒb˒ɒtbɒpɒbɒt˒{˒ɒsɒt! ʑ#ɒ iiq hhhh&oЌo  oooonggemffd  F ЃF,etc.#ʑ# 2,  # Ѓ7ERROR: would delete ref(s) at # # Ѓohp ip ʑ# G9')4682z ˒{$Delete: A)ll R)ow C)olumn E)ntry #RACE#˒ɒɒ 2ɒEQɒsɒta=aɒvɒuaɒsapaa)aɒA-  2ʑʓ? ˒{˒!ɒR_ɒt  2  2ɒtʑ#WAIT...#ʑ#ɒt˒ɒsɒt!ɒs  2  2ɒsDɒsb3ʒ`ʒ`ʒ`ʒ``ɒsʑ#WAIT...#ʑ#ɒs˒{˒ɒsɒt!  ` DI  &0.\   goto > A1#  ɒ 2ɑMA1 a`!+ʑ# Bad coord #ʑ#a4ɓET-B#˓E˓EL-R#6ɒtrow, column = #.&(# ---#, #ɒs.&(# ---#&Recalculate: A)ll E)ntry #AE#˒ɒE=ɒɒ`)``& `ɒsɒt%ɒA%apa`pa Lock: R)ow C)ol B)oth #RCB#˒ɒɒɒyɒ~˒yɒsɒyɒs˒yɒxɒ˒xɒtɒxɒt˒xɒRɒBʒʒtɒCɒBʒ~ʒs˒{˒ɒsɒt!`Pʑ# # ʑ# 2RD  F)orm mode (#ۥset) #clear) #N ɒsɒt P)recision (#``E `$ʒɒs$ ) or W)idth (#ʒɒs$) or # FPW#˒ɒF3ɒsɒt` Can't create ``ۡ ɒ 2Column #ɒs ɒP Precision (0..12):# Width (3..63):# E i.` ɒsɒt` Can't create ɒPyi `Eaa Prec. must be 0..12 i `a ʒɒsaiɒvɒu`ɒs 2˒;aa?Width must be 3..63 ʒɒsa˒˒{ɒsɒt!h $$ˑ8" `UQMI EA==W6 -7) "$3(*I.024?djR^~$ ɒcB`. cqbbba`%abp`cpL3 `*`gPc. ba2cbdddcb% ɒbc\D r+     @c2-a#``p`pЍ\`p`p$6/\! ʓN /# / .8.,2  0  0"1`,2 2 23..   .2!5#cb#c)ɐ#'c .!.`ddd ۡ`ddM 9 AZd9  >f  2.9j     2I=3!     4dgd       iidiij l:d d(d(Z ";09Ra# 0 0}1..a2.bE_.-`.092g 0.09`g-g<0g;C <2*2*-0&*& 2  ""*2=[2ʓFʓJ"e =dʓJ"ʓFʓFʓFʓJD >.:52--+.!"' !34\2!.(34)2.R3.3\` ``..09.<AZ!  3a.a.AZa.a19!` ` 39AZ.1.ʑ^111112(.21}1}:dd\2ʓJcb d44?cb2cfbe22]2ʓJ2ʓJ4z10d1 b1 D1 &-<-<0 1 ^2,.1 2)2.11&0'01% $>ʓJdd  ddʓJ_2ʓFʓJ;ʓJʓF#H|k 992 j,02W^`{WTj'x88**T.08 (%1&l77 `%d 7`/0Q`/'--<0%--<0. 66(i6=-;-;0`+z 55< h.>f.=g.hfgy!     5ghf 44de .?i4:= ?:\.\44:?\2A& ,cdd%2d#d&#!""  !,ʑ# Value range #ERROR #o$-> ## k#Ѝ? ʑ# hit space [#`a #] # #˒˒d ddb a`!da# #!d)d&ɓE*+˒ɒsɒt! R$-uV h%a``a`"&ʐapʐaʐ`pʐ`b(Aɐ `<`ɐ `da`ʐapʐbpabAacC;2 T@ɐ i$ʐdpgbcʐ dbd ɐ dWʐdp hhЃhddʐdp hdhcgfgɐfɐfgːɒ`t`qaea iReiʐepeɐ iʐep ieiiʐ epap`pː xd,B`e` ʐɐ `ɐ ː ɐ ` ?ɐ 4ʑ#WAIT...#ʑ#ɐ ː @Br)`ɑ ɑ ,ɐɐːɐ  )# H'`@aabcbcaacac baa%b#baЃa aaa#&p(ɑ !ɑ ` `ɑ ɑ pˑ ɑ ˑ ɑ ɑ<ɑ 4ɑ `ɑˑ `ɑ ɑ pˑ ɑ ˑɑ ˑ ɑ ɑN`Ќo k' " &ʓ< ʓ<# i  a#`p``p`pЊ`p& 0 d 2!R(@Ќ5 ? x  ʑ'ɑ7ɑ4ɑ6aɑ3ɑ5`Kaɑ6`ɑ5ɑ7o-ɑ4na 0a ɑ3n` 0` n#@aP"2a`ʑ ʑ#/` Oa# Pa#a`RZ"`Yʑ ʑ#!b a1ʑ  ʑ# `/O xʓ? [ #] 0`pa`pz ``paA dg0de0de9f2f deЃ0ef > Ndd  ˒" verify Y/N - #YN#˒ɒY6  ˑdJHd ˑ= ˑ7 ˑ1 ˑ+$  "/dɑdʑdʑЈdɑˑRdɑˑEdɑˑ8dɑˑ+dɑˑdɑˑdɑˑˑd ``Cɑ ɑɑ 5   ˑ 2PDɑ ɒ  gekk kp gk˒k'd2jD kCjkk ggek˒kqnhfnnph nYd2k oDoknonnnnnnnnh hfnN}`Pa 0``QPa a/T B` Pa`Aa`Aa.bP`a `a--aa-`a--T8`ʓ<ʓ< ʓ<  ʓ<#: `ɒtɒsʓ< ʓ<#(@  `/ j`j0jۃ`j0jۃjiabi*`0i> `iaa .`Piiia?i 0`Pj0.`Pa``ax`0`aa .`Pi  i 0i 0i-``PeQTP -`PRl ~a2bʒa db`#Ib&bI(I˒wId(b`(#ɒw `#*ɒwd`I#dɒwdId(`(#ɒwd `(# dɒw`I#`#bɒwd `(#Adɒwe e`#`I#dɒwee e`#^b ?n?d(b 5b(e(eee(e(d(Gb b ʒabdc((d !n!d((d(`(# xɒ{a˒˒zɒdɒ~g˒zab˒bʒdۃPdf\ɒ˒dɒ~ | * d ʒd  #bʒdۃdɒz˒zfɒɒz˒| bɒ"ɒ˒ɒ**dɒg`` cɒdd     ? #dɒ | * ɒTɒq eaɒzh5eɒea hebʒeۃhp eɒp˒bcɒ"dc* pRE˒zɒʒɒyɒzۃPɒzɒy#ʒɒyɒzۃɒz˒zL ^Fa`˒bɒ`bɒ`p˒%`bɒxɒɒ`pɒɒ`p˒ɒcɒ~4aceaapʒdۃdapɒ˒Ycɒycɒyɒz˒ɒBaɒɒyceaapʒdۃdapʒcۃP˒*: G`a`a!2a`Gɒɒɒ1ɒvʒɒsۃɒu ɒvɒu ɒɒ`˒x`ɒt`ɒɒ˒xFaɒyɒza˒yɒyɒ~ɒ~˒ye9Faɒyɒyɒ~ ɒy˒yaɒyɒz ɒy˒yɒxɒɒ˒xɒyɒ~ɒ~˒yɒyɒxEa˒s`˒ta`ʒvʒuGɒLɒɒvʒɒsۃɒuʑ#< ɒvɒu> ʑ#"CURSOR OFF SCREEN#˒˒˒ !dP//00//ɒ0/1V >#ǁCONǁCONSOLE:`ȁ%Ɓ%>ʑ>ac ǁcc$2abȁ%ǁSH$ˑ ˑ ʑɑˑ @ ɑˑ@ ˑaʒ` ʒ``˓E˒y˒x˒s˒t˒˒~˒˒˒ʒɒCˑː ː pedde Iɒɒɑɒxa``˒x˒xɒx˒tɒxaI˒xɒx˒tɒyɒzI˒yɒy˒sqɒySɒy˒yPɒʒɒyۄɒy`ʒɒyۄ`ʒɒyۄɒy˒yɒy˒s o˒ɒsɒt! ` Hɑ4HOɒsɒt!Cɒsɒt!7ɒsɒt!+ɒsɒt! 7-% KMOQ` ɒG@cPacЃcbd )ca"dɒd ccccdMASKF *ȑȑ8ȑ={Ƒ= Ƒ8Kfȑ=Ƒ<4Ƒ9OJD>9Ƒ< 1Ƒ< )CS #:6U MǑǑ>ʏF&bz  l$v%&"'J'(r  6)*&*N**v**T(++V RZH @p8nz`pvTKKF *ȑȑ8ȑ={Ƒ= Ƒ8Kfȑ=Ƒ<4Ƒ9OJD>9Ƒ< 1Ƒ< )CS #:6U MǑǑ>ʏF&bz  l$v%&"'J'(r  6)*&*N**v**T*Y!\ |\F%CÚ LH SR UJ BP PL MT, MB2 HM8 FM> CWD PCU POL PAj CPd PNu OPo HE FO !J;>w͔ n!f;> !K; Ô !O;# !W;# !S;\ѷ-!>N d!\ |p! |* Not enough memory $CSDUMP OVR CSDUMP.OVRw#|w 20/00/5500:01%Comp 4.02 CSDUMP,, REALTOSTb@  / j`j0jۃ`j0jۃj`iabi*`0i> `iaa .`Piiia?i 0`Pj0.`Pa``ax`0`aa .`Pi  i 0i 0i-``PeQTP -`PVl #R` Pa`Aa`Aa.`ʀʀ ʀʀ#*`P++Ќ@++ ++$++++JTZSd'c c`   `d cbcdcabc `b- a * `b+`a `a`a a5B  Password: #  V     ! not ok#2N& ǀINF'CalcStar file name ( to quit): #,  ȁ$ǁ$ǁ$.CSDǁ$ 8** # # not found on disk#  Comments ? #ʀ(B$Output file ( for printer): #ʀʀ=ʀ>3CSDUMP cannot create > files#ʀʀDISPLAYʀdisplayʀconsole:(ʀʀPRINTER:(ʀʀ:.ʀ#ʀȁ$ǁ$ʀ(ǁ$.DMP,ǁ$(ʀ CalcStar File # # - #ʀ#ʀЃ Ѓ FILE READ ERROR#2 Position #$ Width #$ Type:#ȁ$Ɓ$ F #  #Ɓ$ Text (#Ɓ$pRight justified): #cLeft justified) : #GCentered) : #+Repeating) : #w]C)Ɓ$Ɓ$#RʀƁ$#ʀƁ$ˀƁ$ʀɀʀɀʀ#ʀ# Numeric: #Ɓ$  = #Ɓ$ ?n? (error)#fƁ$ SƁ$Ȁƀƀ ƀȀƀȀƀ" #" Ɓ$  N ?.?N t0a `5Copyright(c) 1981, 1984, MicroPro International Corp.#! All rights reserved.#:#:#:#:#:#:#:#:## ǀPRINT CalcStar Dump vr_#1.45 #r Z`V  h , L  -Cursor Movement- | -Commands- ; followed by | -Misc- Right |A Auto F Format M Merge R Recalc * Extend |@ Curs Pos ^S Left ^D Right |C Copy H Help O Order S Save = Lock |? Evaluate ^E Up ^X Down |D Delete I Insert P Print W What ? Space |^ Data Togl ^Z Col A next row |E Edge L Load Q Quit G or Goto |Cancel Col> Row+-------------------------------------------------------------------------- +-------------------------------------------------------------------------- cursor: current: current|| type: data || contents: edit:Col> Row+-------------------------------------------------------------------------- +-------------------------------------------------------------------------- cursor: current: current|| type: data || contents: edit: ---- Help page 1 ---- hit to continue ________________Main entry mode_____________________________________________ Cursor is controlled with keys E, D, X, and S with the key held down. Direction is up, right, down, and left in that order. (Control Diamond) moves the cursor right if no data has just been typed. Z moves the cursor to the next row, first column. Data entry: digits 0-9, +, - signal numeric entry. alphabetic characters or blank signal text entry. /, followed by R, C, or L justifies text right, centered or left. ^ is used to switch between text and numeric if needed. /= duplicates entry across column. /P causes page break for print. ! sets special entry mode for arithmetic modification of input. Equations may contain numeric data, cell references, and functions. four-function arithmetic (+,-,*,/) may be used with any of these. @ refers to current cell location. Type one character and then move cursor to collect cell references without typing them. ! following a cell reference holds ref constant in relative copy. functions include: sum, avg, cnt, abs, exp, log, ln, min, max, regr, slope, proj, depd, sqrt.  ---- Help page 2 ----- Hit to continue ________________Extended commands_______________________________________ these commands are accessed by hitting the ';' key Auto enter Automatic entry mode. will abort. Copy Copy a (range) entry to another (range) entry Delete Delete a row, column, entry or the whole array Edge set the window top left corner to the cursor position Format change column size or precision under cursor Goto move cursor to a specific column and row Help display this information Insert Insert a row or column into the array Load Load a file into the array Merge overlay file onto array Order Change the evaluation (column/row) order of the array Print Print a report Quit exit the report generator Recalculate recompute entry at cursor or whole array in current order Save Save the array to a file What if text, prints 1st column & row entries of cursor position ? print approximate storage space in terms of entries = lock column A and row 1 onto display * Switch between 10 (with menu) and 15 row screen display PvNTv ݴ3򖸅R֋3p=PvNTv ݴ3򖸅R֋3p=5 Item.............................. ( ruck07:Il++"7"7="7+"75(Initial Value ($)...........3#* 02000*:c5£=*HL&bj <6Depreciation Rate (%).............. 007*H-3#"7"7Q"6(Year Acquired....................in 0981HͿ-=|!]=6:Residual Value ($).........~<" 0500O ~ + -!<=0:" ":++ 111  + -!<=0:" ":+ -2224~ > +-!<=0:" ":++1111%" >v +-!<=0:" ":+!%11!7 > +-!<=0:" ":++111  +-!<=0:" ":+-2224~ X? +-!<=0:" ":++1111%" ?v +-!<=0:" ":+!%11!7 ? +-!<=0:" ":++111  +-!<=0:" ":+-2224~ $@ +-!<=0:" ":++1111%" L@v +-!<=0:" ":+!%11!7 t@ +-!<=0:" ":++111  +-!<=0:" ":+-2224~ @ +-!<=0:" ":++1111%" Av +-!<=0:" ":+!%11!7 @A +-!<=0:" ":++111  +-!<=0:" ":+-2224~ A +-!<=0:" ":++1111%" Av +-!<=0:" ":+!%11!7  B +-!<=0:" ":++111  +-!<=0:" ":+-2224~ +-!<=0:" ":++111  +-!<=0:" ":+-2224~ A +-!<=0:" ":++1111%" Av +-!<=0:" ":+!%11!XKAYPRO ComputerM-3AC0B0$= y l:d d(d(Z ";09Ra# 0 0pCS OV2 CS OVRn    CSDUMP COMCSDUMP OVRCSMASK MSK4DEMO CSDTERMCAP $$$STORE 0 TO OK DO WHILE OK = 0 IF '&PROMPT' # ' ' ACCEPT '&PROMPT' TO COMMAND ELSE ACCEPT TO COMMAND ENDIF STORE !(COMMAND) TO COMMAND IF COMMAND = 'QUIT' QUIT ENDIF IF LESSON = '1' IF COMMAND # CHECK ?"You didn't enter:" ?" &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF LOOP ENDIF ENDIF IF COMMAND # CHECK ? ?"You didn't enter:" ?" &CHECK" ?"If you would like to try to correct the statement, enter Y when" ?"prompted. Otherwise, enter N, and then re-enter the entire command." DO TEACHC ENDIF IF COMMAND # CHECK ?"Please enter:" ?" &CHECK " LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF ENDIF ENDDO STORE ' ' TO PROMPT RETURN ?"You didn't enter &CHECK.. Please try again." LOOP "If you would like to try to correct the statement, enter Y when" ?"prompted. Otherwise, enter N, and then re-enter the entire command." DO TEACHC ENDIF IF COMMAND # CHECK ?"I'm afraid that's still not right. Please enter:" ?" &CHECK" LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF ENDIF ENDDO STORE ' ' TO PROMPT STORE 0 TO OK DO WHILE OK = 0 IF '&PROMPT' # ' ' ACCEPT '&PROMPT' TO COMMAND ELSE ACCEPT TO COMMAND ENDIF STORE !(COMMAND) TO COMMAND IF COMMAND = 'QUIT' QUIT ENDIF IF LESSON = '1' IF COMMAND # CHECK ?"You didn't enter:" ?" &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK LOOP ENDIF ENDIF IF COMMAND # CHECK ? ?"You didn't enter:" ?" &CHECK" ?"If you would like to try to correct the statement, enter Y when" ?"prompted. Otherwise, enter N, and then re-enter the entire command." DO TEACHC ENDIF IF COMMAND # CHECK ?"Please enter:" ?" &CHECK " LOOP ELSE STORE 1 TO OK ENDIF ENDDO STORE ' ' TO PROMPT RETURN didn't enter &CHECK.. Please try a STORE 0 TO OK DO WHILE OK = 0 IF '&PROMPT' # ' ' ACCEPT '&PROMPT' TO COMMAND ELSE ACCEPT TO COMMAND ENDIF STORE !(COMMAND) TO COMMAND IF COMMAND = 'QUIT' QUIT ENDIF IF COMMAND # CHECK DO CLEAR@ ?"You didn't enter" ?" &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK &COMMAND ENDIF ENDDO STORE ' ' TO PROMPT RETURN  ENDIF IF !(COMMAND) # CHECK DO CLEAR@ ?"You didn't enter" ?" &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK &COMMAN@ 12,0 @ 13,0 @ 14,0 @ 15,0 @ 16,0 @ 17,0 @ 18,0 @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 11,0 RETURN XNAMEClADDRESSClWPHONEC mHPHONEC mPHPREFC'm ALBERT EINSTEIN LITTLE TOWN USA (201)555-1212(201)555-1313W ROBERT REDFORD LOS ANGELES CA. (213)555-0565(213)555-1000H KILGORE TROUT NOWHERE (312)555-0000(312)555-9999W BOB HOPE TOLUCA LAKE CA. (213)555-7777(213)555-8888H RONALD REAGAN WASHINGTON DC (212)555-5000CLASSIFIED Ho use a file called CLIENT, which" ?"contains client names anREMARK * USE CLIENT FILE REMARK USE CLIENT USE CLIENT WAIT ERASE REMARK * BEGIN THE DO LOOP TO READ THE CLIENT FILE UNTIL AN REMARK * END-OF-FILE CONDITION OCCURS REMARK DO WHILE .NOT. EOF DO WHILE .NOT. EOF REMARK * EXECUTE THE IF STATEMENT WHICH ANALYZES THE PHPREF REMARK * FIELD OF THE CURRENT RECORD TO SEE WHICH PHONE NUMBER REMARK * IS TO BE USED TO CONTACT THE CLIENT REMARK IF PHPREF = 'W' IF PHPREF = 'W' REMARK * IF IT'S THE WORK PHONE, STORE 'WPHONE' (WHICH IS THE REMARK * FIELD NAME ON THE CLIENT FILE FOR WORK PHONE) TO THE REMARK * MEMORY VARIABLE PREF REMARK STORE 'WPHONE' TO PREF STORE 'WPHONE' TO PREF ELSE REMARK ELSE REMARK * IF IT'S THE HOME PHONE, STORE 'HPHONE' (WHICH IS THE REMARK * FIELD NAME ON THE CLIENT FILE FOR HOME PHONE) TO THE REMARK * MEMORY VARIABLE PREF REMARK STORE HPHONE TO PREF STORE 'HPHONE' TO PREF ENDIF REMARK * DISPLAY THE CLIENT NAME AND PREFERRED TELEPHONE NUMBER, REMARK * SUBSTITUTING PREF (WHICH CONTAINS EITHER 'WPHONE' OR REMARK * 'HPHONE' DEPENDING ON THE IF STATEMENT ABOVE), AND DON'T REMARK * DISPLAY THE RECORD NUMBER (OFF PARAMETER) REMARK DISP NAME,&PREF OFF DISP NAME,&PREF OFF REMARK * SKIP TO THE NEXT RECORD REMARK SKIP SKIP WAIT ERASE REMARK * SEE IF THE DO LOOP SHOULD BE CONTINUED REMARK ENDDO ENDDO REMARK * AFTER EOF - RETURN TO CALLER - DBASE TUTOR IN THIS CASE WAIT SET ECHO OFF RETURN it is" ?"time to QUIT. Goodbye." ?"Please enter QUIT." STORE 'QUIT' TO CHECK DO CHECKC RETURN B=================================BB==BB==BB==BB==BB==BB}}BB==BB==BB==BB==B==BB=BB==BB==BB==JB==B==B==BB==B========B==BB}=B}}BB}}BB==BB}}BB}}BB==BB=======}=========}}}BB}}BB}}BB==B}}BB}=BB==BB==BB==BB==BB==BB==BB==BB=}BB==BB=}BB==BBB WASHINGTON DC LL WAIT ONE MORE TIME WAIT RETURN TAINS EITHER 'WPHONE' OR REMARK * 'HPHONE' DEPENDING ON THE IF STATEMENT ABOVE), AND DON'T REMARK * DISPLAY THE RECORD (OFF PARAMETER) REMARK DISP NAME,&PREF OFF DISP NAME,&PREF OFF REMARK * SKIP TO THE NEXT RECORD REMARK SKIP SKIP WAIT ERASE REMARK * SEE IF THE DO LOOP SHOULD BE CONTINUED REMARK ENDDO ENDDO REMARK * AFTER EOF - RETURN TO CALLER - DBASE TUTOR IN THIS CASE WAIT SET ECHO OFF RETURN it is" ?"!POSITIONC pYTDSALARYNpMONTHSALNpSALCLASSNpTAXESNpNETSALARYNp PRESIDENT 68800 2000 6 720 1280 VICE-PRES 57900 1500 4 360 1140 SEC-STATE 50875 1250 3 225 1025 JANITOR 87250 2500 1 150 2350TAXES and NET SALARY fields contain" ?"zeroes. I'm going to perform some comptations to" ?"place amounts in these fields." WAIT ERASE ?"Using the REPLACE command, I'm going to compute" ?"TAXES by multiplying the SALCLASS field by .06," ?"and then multiplying the MONTHSAL field by that" ?"product. The command to do that looks like this." ?"REPLACE ALL TAXES M=1,L=55,W=50 Y WHITE HOUSE PAYROLL LISTING Y Y N 10,POSITION POSITION TITLE 5,YTDSALARY YTD SAL Y 5,MONTHSAL MONTH SAL Y 5,SALCLASS SAL CLASS N 5,TAXES TAXES Y 5,NETSALARY NET SAL Y "called COMPUTE, which contains payroll information" ?"for some of the people in the White House." ?"This is what the structure of the file looks" ?"like." USE A:COMPUTE DISP STRU ?"I also created a report to print the file, and" ?"show some totals of the information." ?"I'll print the report for&POSITIONC pPHONECpYTDSALARYNpMONTHSALNpSALCLASSNpTAXESNpNETSALARYNp PRESIDENT 68800 2000 6 720 1280 VICE-PRES 57900 1500 4 360 1140 SEC-STATE 50875 1250 3 225 1025 JANITOR 87250 2500 1 150 2350u can DELETE files in dBASEII. The files may be dBASEII files" ?"or any other file (by using a file suffix, e.g., TXT)." ? ?"First let's make sure that the WHITEHSE file is still around." ?"Enter DISPLAY FILE" STORE 'DISPLAY FILE' TO CHECK DO CHECKC ?"Now, let's DELETE it." ?"Enter DELETE FILE WHITEHSE" STORE 'DELETE FILE WHITEHSE' TO CHECzG  =C1B1C1=7 PP &::Fx#Nͮ j! f:&E!f:&E!$f:&E!*f!0f:Vi©=§*& :O:_2 2 2% ! ͌ 6zä;:{ »:!W¢:!Xw#ʤ#N#ʸzL7zNLTNxwzNjzz_w#Z0"9zzzzz>_:% ʁ*& *# "& ʹ*! ~#"! O;: =2 72% >;*& "# "& ʹz: =h: k: _2 6zä2 * *& Z7N-:T=o%"& ʹ6zw* *& Z7ʹ6zä: E ø* "& ʹ >2 zAy z>2 : * wO;ä* : U7* " N:( 2) * Z7ByAB* ~qO&:) 2( * " wO;͖ ä: 2 k! n! !͌zî* +* Z7z6ʘz*& -"& :T=o%"& ʹ>2 : O* * yU7+" :( 2) * " * * Z7 6:* * NyA * q* 6 :) 2( * " ͖ z>2 * 6 * *& Z7H6',͖ z: _: _: •: *& * Z7•: •: _: N¸*& * Z7ʸ: ¸* 6: 2 z: z>@_: z>_: _: z: 0_: z: _͐: G: x: 2 ̓7"+ y7" xG:' 2' yO:& =2& ʹZ Ð͛!"& !Ѣ" !Ҥ" 2 2 2 ô*& ,"& :T=$."& * #" * | :( <2( U7~͸ 2* * +" * |/:( =2( U7~2͸ 2* :* ! 9O:* 9ʂ#ʂ!n_AgLxX7y 7y7?_Oy! 97y! 9yE7G*+  N##y7yʽ~µF÷T;͇5* |͸*+  p###q!" *+ N!3!#* |Nͮ #* " ʂ* w#" 9F#FAU!UXjwq~-qE7qnO~7jy!~q_wq~q> wOͮ #* 6#" ͐*& "& ʹͨ"& ʹz~Oͮ #è~#.»~ #: o&)))ѢÃ7: N; * : O.3:  *+  y7z5* | ͸ : G: O* 3* "& ʹ* Nͮ #1 : * ~_YW TW 66ͅ~| *+ |  ͮ :& l ͨ*+ |:Eʖ :bO;z*& * ~7" *+  ~͎*& - :T=o%* ~7*+ ~7* ~7" ͅ:E :cO;! 4ɯ2 " "& 2( ̓7" ̓7"+ y7" *+  ~O2 #~- <2 #̓7yv u v ͇5* |] ͸x2 y2 f : G2 O!" " 3À #" 2 " ʹ* |ʏ ~Ò ͸ 2* : 2 * "! * "# >2% ;: N >9L>X:E;DELETED INSERT TFYNtfyn.+- #9AXL!ѢҤ"!m"!m"Y:K !m"*~#"6 L7&/;DMY$0<JYl5o$4:  w Tu *+":C~ !"K *N9"K #"K *Y~7"Y̓7" F#N#y7xU m xC .3*z5M *9K *x` #y9 K xz ~*wÑ ~*_Tʏ Yʏ 6Ñ 6K OG"x ~@ڸ 2è +~ ʨ + — yû yû >2 y/<2ɯ2X2*6!m"͸6N#~2#^#V#~#F#"x2:X/<͢x2XW ʋ:_:<2X*~XK 7=å̓7̓7"! N#̓7> U7~#y7O9K ̓7"i##̓7NF9x@<<< > w> ##̓7NFxYH͏*9> ##y7~K ̓7"ڶ#F#̓7N~@ڝ >U < #F#̓7~4HG> ͔7# 9> ##̓7~N6T> 6F> I5MI5EI*p#3H K I5MI5E|¸"xҸyʟ=ڢ~O#xU7*q#9 K >{ < *w# K ~wK @}2VK >z < @*2VK @ 2VK @D1VK bbbbbbON#yU7F# 9xwU7#"K ON#F#x<ڟG7ʣ#å>*wK {{{{{{O*wK O*wK ~/wK I͡5VK ,ͭ4VK N#.3VK n&ͭ4VK **,ON#F#x<ڎG7xʤ#é/< < :*(*:65#q#p#657\xW͒Q<\xJ7>1ѷ.OR.͚x͒†<͚x|7>cѷ.AND.K8K8K8¶<x¹>7.NOT.exexɱ~$>#<ex7~= >]#*>]@>]> ^> ]>c#~=[>^> #<ɯ+ڹx~+“#<+ڸxʸͼ>q-ʜ#<+ڸxʸͼ>q7xG|GyMxGɱ~+#<+'x''yO> -##<+'x''yO>7ͥڢx:~*f#<ͥڡxʡyxGOxG>:/o#<ͥڡxʡx=|GڏGyҕMx:7ͨ~+-#<>#<Y-~È~![97l͔.€<PG>z>zC>zCA>z\*ځ1p*ځ1f>z~(€͈Ҁ66$#͈7|P>%zC>&z\eځxʁp͙8<~),{>2eځxʁ<~) peځxʁ~)>#<:O>3z\*ځ1peځxʁ~)|p͙8\<~)\{^>2eځxʁf:O>4z#<>>4zC>zP> z\f>!z͈xNyCL\O+ʁ<fU6+#6#p#|C>"z>z>zC>#z\f>'z\f>(z͈ڄ1Ä͈ڄxÄ~(„#<~)„#<~,„#<77~(¥#<*ڥ~)¥#<7Ϳx.36*#z5!<7~87x#ͺ7O6+## #<7~_TYFN7>6,#w##<͢VUU#F###N>)~7*V7͢{z#N6)#~7*V7͢ڟž6)#~7*V7O+ʼ<"V¼<7>#222~+-#~0:.2: >2:=2>w: O:+Hyx:<ɯ~ J J#=.F..T.CDEFILPRSTV#@$!*INT #VAL5LEN&@BTESTmPEEKRANKSTR$!CHRDATETYPETRIM*EOF FILELOCK#LOCKNDX3(k*!g!c*0~**0*0"0|-*0#"02020r7DM*0> U79 6xJ2t0y2q02r0_!|^x2s0p!"m0#"o0$20!H$$0ʹʥͮÙ:0ͮ#z!÷կ2{0,""%#20!""z*0"0*m0"y0$:0"*w0!:q0O9*w0:q0U76#6*0#6#6>2020t$E$>20*w0>2~0!:q0O8%E%+++̓7z_t$"y0$"t$*0"|0͉$"u0:0O:0ڗ<(%DM:0<ͱ$+:0ͱ$+*9*u0!:q0O9*u0:q0U7*z~7!04:s0E$:0$*|0"0~20<g:{0%|20*y0"H$:0g:{0$|2{020ͱ$:q09:020O:020(%DM:0<ͱ$++*w0++9*o0"zH$:0O:0[20*o0"y0t$͉$*o0#"o0>20*0*0Z7*0#!:r0O9*w0:q0U7*z~7>20*o0H$*o0"m0#"o0$*0*|0r7DM*|0+T]*9#"0*m0*0~76͉$$ͮ$m$A#| Z7 &"!# $"0z!"%!:g07 "0*0*0Z7M &"J "0ͮ$:g0O8%# !$#͉$ $:0O:0ʡ y !05X Û O(%DMͮ$++:0<ͱ$++9!05t$E$!05!05E$:0X ͮ$:q0O9͉$ $ͮ$!:q0O9E$:0O:0ʳ ɷO2~0"u0#*0"0*m0"y0$:0n!>20*0*u08%E!+!%!++̓7zn!t$"y0$ !++̓7z_!t$"y0$ !t$y720*0"0!$*0 *:ڷ!#̓7z>C+++61ʩ!>N6/2f0{2g0#[0~7$0!P z!ͷ!!!:0!#, |,P ͷ>O&" "ͮ$8% "y7!#͉$ڍ"$%ҁ"͉$ڍ"$:0O:0Q":":0<20ͱ$++̓7t$"y0>20t$$*0#̓7zc"Ä"t$ͮ$y7Ö">207ɷ#͉$#$:0=20#͉$#$:0ʲ"=20*0#"ʹ$̓7t$"y0$:0<20t$:0<ͱ$++̓7z"͉$!05t$ #t$ͮ$y7#>207ɷ20ͼ<y.:0*0nͼ<y.>20*0"0#*m0"y0$t$:0w#*0#y7|R#*0###y7>20!*0"0#*m0"y0$:0<20t$:0#<ͱ$++y7|Œ#:0ͱ$y7͉$!05t$!0#ͼ<y.#20O!0~###q:0*0k0 9*0###"w0*y0"0:00ͼ< y.:0*0ͼ<y.*0~20*y0"0:00ͼ< y.*0:0w:0ͼ<y.*y0*0~7:0w#"0*0*0Z7š$7+~20+V+^"y0"0ѷ:0*w0=O:r0W yO$x$G$ $33:0!0:0ͼ<y.*0!k0 9*0:0ͼ<y.:r0U7!04:0!- O:r0_! 2%##:t0i%͔5:~0V%.3Y%͇5 2vz57:"Eu%7A:q0O8:0O:0£%:0ʟ%a/2020:0ͼ<y.20! "0~ % ~#*0~7U7"0#þ%*0}o|g~7ͼ<% y.7ͩ'ͫ(!06ͼ< y.!U0͒7:F&00͔.E&*:!?&'&F&͌&>2U0͌&>2W0e&͌&>2X0:͙8z7*:"0>2Z0Å&>2V0}:Y0'=2Y0"0:U0ʥ&&:W0ʲ&*0&:X0&*0|&*0Z7 'T]' |'!&:V0&:Z0&*0|<9-!"0>3y.>~y.> y./E:0ͼ<y.:020:020:0ͼ<y.0ͼ<L'77c'c'v'~h' P'=:020:0!0U7y7:020w:020!00ͼ< y.:V0':Z0'=!}- !}- =7"0"0||-Ø,!0͒70:ʛ(#~:(+~7ڛ(͠(:͠(:9ʛ( ʛ(.ʛ( ʛ(͠(:ʆ( ʛ( ʆ(,ʆ(.h(͠(3(:ʆ( ʆ(,ʆ(.S(͠(:ʗ( ʗ(,ʗ(͠(m(Û(!0U797aڧ(_0~@>:#~ »(>.#~(O+G)x )(G):&1D)X)D):1D)L)D):0-):1 )P)D):&1G)\)D):&1:)\)D):1G)P)ɯ<## *1N'## *:1N'!c͒7!g͒7!g6 :0> <9"0!*: 6/E'>@R,ڷ)́'.9-*0*:> U7~2>1x*y*6A##̓7z*:>1D*D*+pJ*6#6*6#6 #̓7zJ*D*͏*[*p#+N͒7~7W*##W*͏*\*p#~7qg*6>   ;+O~7D+_# ;+~7ڢ+ #~.Š+ #_Pq+Ë+S{+Ë+M…+Ë+ +Ë+~7ҝ+E7ҝ+:¢+# Ë+yͬ6*0+"0}$+͘,: E+ʸ++&"+': E+++̀#7:)E,.$,͘,,.<&",'.<̀#.7ɯ<}N,##~N,++6#6#65!}- ~2C1570ͼ<e,20y.7"0|-x~,> ͅ6# yx,*0"0>20*0*0DM:0ͼ<ü,*0#"020< , y.>207 <9-7:0ͼ<,, y.7*0:0!090ͼ< %-y.!"0|-$^-20A#': Ez-&"'N-20!': Ez-͘,m-!0͒7*0|-+*0Z7-"0"0*0"0! "0!0-ҿ-0!0-!0-*0|­-0:0ͼ< y.> y.w# -~w# -~w+ .:0ͼ<y. .:0 *0ͼ<y.*0DM*0~^.#y7"0*0ͳ%*0++y7"0̓%́'>y.*0DM*0> ͔7 20:0*0#"0"0 . *06#*0~7:Dw#:Ew#:Ew:0ͼ<y.G92?1:2@1:2A1:2B1?1xͼ< y.*06#"00ͼ< y.!~"0*0:0w#:0w#:0w#:0w#"0*0+~/"0G*0~Z7.0+~<.0"0xͼ< y.ALLH&NEXTR&RECORD]&FOR&WHILEx&KEY C.DBF.CMD.FRM.MEM.TXT.NDX.FMT.$$$.HEX~01X|(qsX|(qsOwy!q~a1!q~2252G.~2ʩ1t1/< چ1~2qP1~ڔ1WXØ1P_i,]5z˜1i~怲w.Fq1.'w- »12.>^5.42.7>'w- 12.ƙw- 1.7~'w- 2.~w4.62!q~wD1!qq25.;5 .]5V2GD1O2.4 @2.~GO.~WIwxw2~w4!q~2q.~!32q.6@.6> 2qD1.~2 2ß2 2.~=wy.C5:q=š22y 2.C5:q=22q.C52> .C5:q=22q2:qG.N@._y怳wq2547:q2q!q ;5 G3 393.6?+X3-^36 30ʙ3ڽ3:3.6G.~4چ3ƾoxwÌ3ƾo~w.~X3.4X3.~ʰ3.4.~X3.4X3.~X3.5X3.3.~36X3.~3.wy3x=G!q~.6036-@>4/<.w>  44.~yʪ4>..F>0-4 4ê4.¯C50 -4ê4<.q/<^4Q4xڡ4O>  h4T4.~4t4.~-r4> .¯C50t4.~ʪ4O>..¯C50 4ê4>*¡47!q ;5'44d4 44>I2q4}o|g4 z!qC5!q~,,,,,-5!q~O,~%5 -5.C5.5.~怱w.w~#25ɯw,<5_~Wwz+F5ɯ_~Wwz,e5!q25q25q25!q~@6 5 / ͅ66yy>ͅ6+ 2:Í62:ͬ6::E;:Eʩ6:ͼ<v::!E/E> ͅ6> ͅ6͸6~ͅ6#66&o6&o6'77d7 77a7Å67777> Å6A[?a{?:,7:G'"[]0:?U7y7o$z{/}o|gd7 z}o|g~#fos#r#^#V#q#p#N#F#>Wxʢ7r# ×7> #ç7žʸ7# ®7 G~77# ¿7y7# 7~77_G77_8# 7x"88x2:$8y2:H$87H8xH838::O~ F8# 88H8xO~aV8_—888O~Ao8_y8#^8xڕ8~0ړ8;ڕ8Aړ8Õ8DM! ©8ß8 08:80Z78zT])))oҩ8$©87 `i);_8ͅ6> ͅ6N Y9ɷ7͸6>?ͅ68H99y'9~# 9x99~+ ,9͠9œ99ʛ9W`i9ʉ9u9G9ʚ9OT]xU79É9/ a;:CM;a;G:/D};xy;t>_Ô;O; ڊ;!C4Ô; ”;!C6O:4DyY ڭ;!C4 !C6!C4:a =ü;:4D;  2C2C:C:C2/D:/D;:4D24D2C6@:C2DC:e!:C4K>s>>>>>>m??@!DD"BD~ =͕Aʓ=%=:.D@%=͕A%=> dC y6=*BD<6@B<2C*BD!\$9*BD=:.Dt=*BD=>dC>*;D+6dC*BD~w*;D+6HCy<2C!"=D"?D2AD*BD6#";DHC?@fAҿ=> dC6@/@=>dC/@KCA>29D*C"5D;?HCA29D*C"5D;?HCA>29D*C"5D;?HCA>29D*C#"5D;?HCAz<>ͫA͔@HC!"?D"=D;@HCA29D!"5D*C!*D"C;?*=D+"=D"CHCA29DͫA͔@*;D+:_ʒ>6HC6HCA*=D}|*?D}|*BD"CKCA*CxN#F#^#V>"?D`i"=DHCixg"=Dz{gxo"?DHC:.DS?!DD"BD2C*BD~??^#VO:.D> dC?6:C<8?2C*BD"BD>!:.D=J?J?)=??%KC6@ _KC*C?@fA?> dCM!\9*C?@6@/@<ʢ?>dC]!\9MdC2-D:-D*5D|YB*5DZ7?DM*?D@*=D*'D*C:9D@nC"C*'Dr7"=D"@nC"C*'Dr7"=D͗B*5Dr7"5D?\!\6# > ͔7͒7: E2\!]w#:s@+~@2\.ʃ@ʑ@w#s@!eʑ@w#Æ@:AD@¡@:_6@*BD:_ʱ@:AD@2AD))*BD! ~7!D"+D~@A:.D@ @#y7Z7@###̓7"'D6*7D "7D~A!D"7D#####~%A5A#~:A dC!DD~:BB!DD~:B'B> dC#";D=D9!"=D"?D2AD>*=D!r7|*?D#"?D!"=D!~A#̓7y7"'DB##6#6 dC;@*'D*BD"7C2C*BD!̓7++~7B:AD@2AD>dC>dC*;D!=D9 dCx~ ʱC ʶCʷC# ÜC#>2-Dx~ # CýC>2-DDBASEOVRCOMDBASEOVRCOMDȖ4X|ė 0Tx!E~LE=5!EU7~}'̓%//E!$E~}'6̓%!D~}'6̓%2 E2%E2E͞'>!Gr<1ޙ:*Z7uHuH!G6INSUFFICIENT MEMORY IN SYSTEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION TO THE SIZE OF THE OPERATING SYSTEM dBASE WILL OPERATE ON MOST 48K CP/M (tm) SYSTEMS THAT HAVE A STANDARD BIOS d)2c:H!*:U76>'R,H:E!EU7y'w2 E!E4Ϳ/:v <:`:I!HK6@I!VK65::I͙8{2D2FK*::͙8{2E2EK*::sI>wI͙8{2E2GK:`ʒI:EKG:FK2EKx2FK:FKII I:EKhJ:FKII I II:EK hJI:EKhJI:EKhJ:GKJI:FKI:EKhJ͸6͸6! JKJ@PR@brpf@Z@\TTT@@Ȅ@@@@@@@d\~XJE;#KJ!dK6: EhEdE͸6!uJ6IThirty days hath September April, June and November All the rest have thirty one Except February ... ERROR!J!KERRORK~@@ KE;#J##~#fo63(4/.!4% .#ERROR (DD/MM/YY) : (MM/DD/YY) :41 1 February 1984 hath September April, June and November All the rest have thirty one Except February ... ERROR!J!KERRORK~@@ !=Pad q ~!@(?ȷ:77x7:8A?<27Q(:.*(w#x:776?#:7[;7 OS:=2ya8{0 ͭ * !~#"dBASE II COPYRIGHT (C) 1983 BY ASHTON-TATE INC.10150 W. JEFFERSON CULVER CITY, CA 91204 *** dBASE II Ver 2. File is inaccessible, already open elsewhere File does not exist Unassigned file number File is currently open End of file found unexpectedly" Record out of range Too many files are open Disk is full Directory is full File already exists No find Too many memory variables Out of memory for memory variables Illegal variable name Too many characters No database file in use, enter filename:# Not a dBASE II database No room in system lock list System input/output error records added DO cancelled Bad name field Bad type field Bad decimal width field Bad width field Destroy existing file? (y/n)~ *** Unknown command Count = Enter record structure as follows:: Field Name, Type, Width, Decimal places Input data now? Macro is not a character string records copied Bad file name Command file cannot be found7 Nesting limit violation exceeded deletion(s) *** End run dBASE II *** , Too many returns encountered7 Enter record #, field (# or name), new value Illegal data type Called from Correct and retry? File has been deleted Illegal goto value2 Syntax error, re-enter Cannot insert - there are no records in database file End of file encountered End of locate scope Macro not found Pack complete records copied recall(s) Col Width, Contents Double space report? (y/n) replacement(s) Enter report form name: Enter heading: Data item not found WITH phrase not found Enter subtotals field: Subtotals in report? (y/n)& Page heading? (y/n) Enter page heading:  records sorted TO phrase not found ** Subtotal ** No expression to sum: Non-numeric expression> More than 5 fields to sum *** Syntax error *** Are totals required? (y/n) Record is locked... waiting Summary report only? (y/n)9 Index file cannot be opened Variable cannot be found Source and destination data types are different ON phrase not found *** Numeric field overflow Syntax error in format specification FIELD phrase not found Cannot open file Format file cannot be openedQ Coord: Correct and retry? (y/n) Change from: Change to: More corrections (y/n)? Enter filename: ** Total ** Record: No find Page no. Single step y:=step, n:=keyboard cmd, ESC:=cancel Waiting 7 Fld Name Type Width Dec Structure for file: = Enter options, m=left margin, l=lines/page, w=page width Enter subtotal heading: 7 Enter subtotal footing: Eject page after subtotals? (y/n) No FOR phrase Join attempted to generate more than 65,534 records No FROM phraseH Keys are not the same length Primary use databaseY Secondary use database Number of records: Database in use not indexed More than 7 index files selected4 Modify erases all records... proceed? (y/n) Enter today's date or return for none Date of last update: records indexed Record length exceeds maximum size (of 1000) *** Zero divide *** Beyond string *** Overlay cannot be opened Enter record # : Record not in index Index does not match database *** MAXIMUM RECORD LIMIT REACHED ***I Index does not match database Bad width field Destroy existing file? 1ޙ: Ej]29b: EʈG:"G:!E/E:,EhG: EEG<2Cb><;21b;>d <8: EaG:Cb<:1b;/EʈG: E/: Ef:eX9G#~ʖG/w}G͸6>.ͅ675:.::GG*G:%E H9G`K8G!:b4G9Gp`K8G::bG2%EG9GaK8G::bH2%EG=2:bG:\G:ʊH!H#~H!͒7!͒7#O+~.DH 9!k*„H ~C8J##y7N#9.:<9BJ2u H: H.:::E:I9ʴHm`K8»H,SaK8»H!.b4G:.b"I:E I9HaK8H*::.r]:r]G2EG9I,aK8I9I$aK8G2EG93I$aK8G!.b5G9zI:EzI: EdI<2Cb><;21b;ͧ:: EzI:Cb<:1b;.::IG^͔.’I*:~E73J̀)6S:L7SRGaQRNNRQ&R[TU XeXX'KGJJIN[NyNNNNNNN~OU|RRR3SRSSSYTdTlTxTTRU"U*UUU`V}VVVVWXXXXXZ[)\1\\\d\g\o\].RR>!d]>&d]> d]>8d]͢J>:ͅ65:9hJ:!E/E͸6KJͺ7wJ> >O!6+##yU76/#~765)G!- G͸6:87J:~r]#²J*:r7DM t,:`K8FT#,S*̀):``K8J>!Gr<͋,|K'͘,Ki.5/'z!͌,͏,͋,'͘,GͫK:-EʙK<2Cb><;21b;*MbDMxUKdK;/22b:r]b61#Ns#FrxbL2$by2'b>N2#bÀL2'byvLA2$b>C2#bÀL2$b>L2#b!xU76:aK8L,S87r]:xݠͺ7r]#*:!ݠU762ܠ>2/b:`K8"M,SDNO+DN"*bL>Rd],S"M`K8DN,S87r]:xAͺ7r]*:!A",bU762@:2b!- :/b!ݠ:#bNN~KM.KM#=M"Db!~_M._M#QM"Fb*Db+~M$ʨM*ʨM#ʲM9ʲM,gMʕM-ʲM gM+~$ʣM*ʣM> #wgMgM gMʻMwfM6 gM*Fb*Db~=NM#M~=N#M9MwM~=N#M9M#M60#M!ݠ~=NX N7Nw# N9*N#2NE77Nw# N6 # N!ݠ"(b>Vd]: G̀)> !Gr<:nNk*r] y7!G*E> 2EG̀)>!Gr<:ʲN`K8ʬN`K8r]ͼG>!Gr<̀)>!Gr<̀)>!Gr<>!Gr<&:`K8O*:'@'O͞':.EG>2 <G <͞'G̀)>*27b)O:.EG>+ <G&&r]:r]͋,|qO!͘&qO:7bW͵'hOqOhOr5/ͥ+qOPO`i:.E͸66!"3b!"5b`:K8¡Ò)>!Gr<*:`K8CQ`K8KQ`K8VQ̀)29b20b&!"=b:PP&&r]:PP`K8O>20b*:O}`K8P*:*=br]>29b:*E:P62#͍7x5Py0P66P6>Pp4>P6.###6#65"=b-7PPO:*EP:9bP"Db*Db~ P*=b6)#~762# ~#N###FNʥPCʜP6#6#6êPq#p#6ëPp#q#q4#6#65"=b*Db"DbdP*5b͘&G,|G͵'7QG*3b+"3b|P!"3b>e <);G͸6:0bQ,67ͅ6:9b1Q:*E1Q)DM #t,7Q!- ͥ+GPG>! Gr<*:>!Gr<*:>!Gr<:aK8&RaK8ʼQ9>'گQ:r]R,گQ:EҴQ!EU7y'w2 E!E4Ϳ/͞'G>)öQ>* ) <G>2EG:0_:0>R! Gr<>2%E2:bG2EG/28b: EG0G<;<GͳG̀)$'S:87RR:xͺ7O9y '|S: EGG9"R:.EG> <G>sd]*::̀)`:K8HS,SxS`K8WS9-Gf`K8xS$oS͋,'G̀#'G ,r]|ʟS͋,Z7=JT]' |ʤSG>3d]>~d]> !Gr<.r]:r]G>2%E2:bG̀):S>!Gr:ͅ65:9 T:!E/E͸6SNT6/#͍7++~7)KT:.E=T60#~765͸6!- G>Hd]G>4 <͸6S̀)>! Gr<> !Gr!Gr<̀)9ޙ~ʔT#ÉT!ޙ*:&&&r]9r]:Z0r]!͘&TͿ)"'E͵'Tͥ+TҺT:.EG>6 <G:.EG>7 <G:.EG>a <,6G!ޙ*:&&&r]*'E)T>!Gr<>!Gr< ,r]"Db-7r] ,r]}*Dbw#"Db-7G9UG!"=b:U?kU͸6nU:*=br]:*EŸU62#͍7xšUy•U6ÛU6ãUp4ãU6.###6#65"=b-7ʸUr]nU!- G͸6G>!Gr<20b:U`K8r]>20b: G:#E1V}' .͞'ͳ:#Ef:1V:V*V@:ͫK>*MbDM*(b!*bzV>GGy'G,|G5/:0bGͺ!G̀)&> 27b)O:.EG>; <G̀)>!Gr<96G:r]'-:r]`K8r],S'-G̀)20b,|W&!"=b!";b:ʑW`K8V*:>20bV&&r]9ʑW:O+W>d]9(W"Aba9yU7,SK8W*:*=br]N##~PWC+~PWL*Ab ~bW>Sd]*Ab61#~765"=b>29b-7ʑWڂWW\`K8V*:W:9bW!͘&W͵'WWW!- '5/:0bWͺ!%'ͥ+WҤW:.EG`i͸66>> <G>Ad]>Bd]>!Gr<>! Gr<:X`K8*X,S$X>!GrÕ]9k*HX**:-7Gr]*X:_X.G: EG}'̓%͞'/:EʨX=XʛX2E=!EU7~2 E2%EG2 E2E2%EG>- <G>!Gr<:`K8X.G`K8r]>.G:6a͔.X*:kZwGa͔. YHbK8r]G*:kZ;G:`K8YY*::D9Y}''̓%͞'2D:G>'>R,y'2D͞'GkZbY:D2EGkZ<G:`K8€Y*:<!c͒79cͺ72G\Z ,r]"EG:#EʽY}'̓%2#E͞'\ZY`K8Y`K8Y>'>R,Y>Yd]y'2#E͞'G2-EG>2-EG\Zr]~_@2 EG\Z͙8{2D*::͙8{2E*::͙8{2EG\Z ,r]}2aG\Z#9Gʹ\G:`K8r],S:`K8ʂZ`K8•]>̀):[X`K8}[ ,r]|G:C1[$Z,"Fb͚"Z"Fbz¼Z*Fb'̓[ʼZh[A#'h[,r7Z|Z'̓[Zh[9-h[$<[,"Fb&"-["Fbz[*Fb'̓[[h['̀#'%'h[,͋,Z7Y['>20h['̓[h[͘,\[:.EG>a <,6Gͥ+G: E>!Gr<r]"=b:`K8$\*:*=b#N#F:**=b6/#~7"=b"Ab9O+*:-7[r]*Ab*=b6)#~7"=bú[:.E\*Ab*=b60#~7"=b*=b65:.Eĸ6!- G>Hd]>!Gr !Gr<G> !Gr<͞' .̓%́'#:G'\>@R,\́'.9-:G`K8r],Sʹ\G>'\>@R,\y'#-7\\ ¶\>td]##z!\͞'9->d]>(d]>Qd]>d]>e <);]:!E/E:`]`K8r]*::r]k*;]** y76# T]> wͅ6> ͅ6GG <Õ]: Eʕ]>M <͸69.:r7M ]7Æ]>?ͅ6͞'2 E.::yNͧ:: E]:E28b!8b5]>0 <:8b!EU7~&ö]:]/E>[ <8/EG>\ ] ^ <8/E]1ޙ.:ÖGSTORE[?TUELSERENDDORENDIFGDOaQNOTEGLOOPRRELEASE XRETURNeXSELECTX@'KACCEPTGJAPPENDJCALL[NCANCELyNCHANGENCLEARNCOPYNCOUNTNCREATENDELETENDISPLAY~OCONTINUEUEDIT|REJECTRERASERGOTO3SGO3SHELPSIFSFINDRINDEXSINPUTSINSERTYTLISTlTLOADxTLOCATETUNLOCKd\MODIFYUPACK"UPOKE*UQUITUREADURECALL`VREINDEX}VREMARKVRENAMEVREPLACEVREPORTWRESETXXRESTOREXSAVEXSETXSKIPZSORT[SUM)\TEXT1\USEo\WAIT]CASENENDCASEROTHERWISENBROWSEINJOINdTTOTAL\\UPDATEg\ALLANDBLANKBOTTOMDOELSEENDTEXTFIELDSFILEFILESSCREENGETGETSIFINDEXMEMORYNOUPDATEOFFONPICTUREPRIMARYPRINTRECORDSAYSECONDARYSTATUSSTRUCTURETOTOPUSINGWHILEWITHENDDOENDIFCASEENDCASEOTHERWISEBELLECARRYECOLONECONFIRM EDEBUG EDELETED EECHOEEJECT+EESCAPE!EEXACT"EINTENSITY&ELINKAGE)ERAW*ESTEP,ESCREEN TALK.EALTERNATEYCALLYCONSOLEYDATEZDEFAULTZFORMATYHEADINGqYINDEXJZMARGIN:ZPRINThYdrNZqZrNCqrPOrPE.IDBASEMCOLORCONSOLEYDATEZDEFAULTZFORMATYHEADINGqYIN Number of records: Database in use not indexedGJK1OBQ:!E2Ỳ)2WY2SY2TY&:ʀG&&CX:ʀGXK8UG*:"eY'J>2WY%GYK8iG*:>2SY%GXK8CX*:>2SY2TY%G͋,"oY|ʎG'͘,ҎG:WYI!"~Y!d"xYz!:SY5I*eY*:>'>AR,Jy'2D͞'i.:TYʛH!*::D}'%ږJ"zY*zY~ ʯH ~NWH#F#̓79'H H"+HO:wH2H,ʈH,EH:ʯH2HwH:ʯHwH,EHÈH#F#̓7N9d.3*:39,ʈHy,ʈH:ʯH,}H:ʯH*zY"zYG#:D}'%ږJ͵'GږJ͞'5/͌*~Y#"~Y*oY#"oY*xY+"xY|G2XH:YHÐJ:.EG*~Y͸66> <:Y2!E!d"xYG͈S&Iz!͌*oY#"oYI'͋,'͘,J>AR,Jy'2D ,:J!ͳ%!Ң"jY!"zY~ J"GY(I"OY ~NʣI*jY6-#*GY~7*OY~765"jYI*GY ~NI*jY6)#*GY~76#61#*OY~765"jYI*jY6)#*GY~761#*OY~765"jYI*zY"zYiIi.z!*DM:D}',ږJ: J6 !Ң- ͵'JږJ͞'5/͌*~Y#"~Y*oY#"oY*xY+"xY|J2XlJ:YlJÐJ:.EJ*~Y͸66> <:Y2!E!d"xYJ:D}'̓%:.EʴJ*~Y͸66> <:Y2!E͞''͋,'͘,*oY͏,KX> <>2 EKX̓%> <>2 EKX̀)&2UY:~K&&CX:~KXK8K>W <>2 EKX>2UY*:!ݠ"~Y~7:O+EK> <>2 EKX9(\K>R <>2 EKX*~Y~7"~Y~7*::,J:/K:UY’K>W <>2 EKX!͘&͵'KKK͸6>a <,6͸6!ݠ"~Y*~Y̓7"~YzKgRKþK5/ͥ+KҘKKX̓%́'#́':L>_ <5:KXKX'KX>R,O2D:.LXK8CXðM># <>$ <͒7!"~Y!"zY*zY#"zY͸67*zY+))))"|Y:zY!gM675:9gMbk͒76 9O+~,N9N'N*|Y9~,L7ڽL_ #ïLyNN N*:! :_2YYCLNLLN>NM::͙8N{NzN{ *zY+|N!͏,a/'̓%>% <8KX>AR,.'9-i.͈SҞM'a/̓%KX*::')OR,)O.9"hY ͒7!"~Y*hY͘,ڢN~ M#*:9O+ 9 N: N9_C:NN:NL O>N:CY9*:!CY͙8O{NzN{9CY9*:!CY͙8O{*~YU7Z7!O"~Y*hY"hYM̓%*hY6 :D}'!͏, .a/'́'.9-KX>    y 2   <;X> <;X> <;X>y <;X>( <;X̀)!"qY,|KX"`Y"]Y>2XY:O2XY: fO>. <:XYKX: |O>Z <ÁO>} <5:OͼKX9 KX͙8*:͋,Z7:Q:|²O*`Y"`Y'*`Y : ʚP"vY:#EO͹TGfOGO͐PxfOxBP$P*`Y*vYͫW>fOGP͐PxfOxQPxBP$3P͚"fOòO*`Y+"`Y|fOòO$ʀP&"fOòOxnP*vYZ7$P"vYO*?Y~ BP*?Y"vYO͘,fO*`Y#"`YòO5/ͺ!9%Q,fO:,Q:P0Q͙8*:fOzfO{!fO+))))~fO fO"]YQ9O+fO9("]YfO*:9%Q:ͭ7r7M9*]YRfO1Q*]YgRKXfO5/fO> 2QY*:LQXK8CX>2RY*:LQ$G,:QYŒQ#"Y"~Yn,)DM,R*Yn,:RYʹQi.5/Q)Y!9͈SKX)!Y99,*Y#"Yn,5/Q͋,#͏,'9-*~Y'KX>5 <9-KX ~NJR#y=^RN#y7T]> ͔79.3#F#̓7N3> <7"cY V#~2bY#y7"lYzCʣRMS!X65:|SO9*cYRڃRvS!͒72_Y:bYG 9!"lYMS!X6! 6%S:qSS!$Y6! 6!<9ڀS>2_YR!͒7!$Y6! 6%S>2_YR:_Y|S:bYGCSw#4SvS6 #CSvS*cY͸66>:ͅ67*lY:bY_~ͅ6#eS7>ɯ> 2nY2gY"vY:#ES͹T>TҵT5/,#*vYͫW:nYTGO:gY2gYx>Tx"T*vYZ7>T"vY>2nYSx>T*?Y~ >T*?Y"vY>2nYS:gYLT5/7͸6! Y6,#6͸6*sY͸6 t,>:ͅ675:O9ʊS“TxʵTÞT*sYReT*sY"sY~ hT5/7}' .ͳ:#Ef:T:@T:T>*YDM*IY!KYzT͞'ɯ2VY2ZY:-EU: U!"KY!"MY:$)U:,./U ,CX}2Y-7ڞW:$PU: .VU ,CX}2Y22!"IY:YK8 V*:>2ZY:CXX61#Ns#FrxʨU2Xy2X>N2XU2XyʼUA2X>C2XU2X>L2X!xU76:.YK8 V*::87CX:xݠͺ7CX#*:!ݠU762ܠ>2VY:XK8|V*::ʞWO+ʞW"KY>V>R <>2 EKX*::|VYK8žW*::87CX:xAͺ7CX*:!A"MYU762@:ZY!- :VY!ݠ:XN_W~ʥV.ʥV#×V"zY!~ʹV.ʹV#ëV"~Y*zY+~W$W*W# W9 W,VV- W V+~$V*V> #wVV VWwV6 V*~Y*zY~ʗWFW#FW~ʗW#AW9,Ww+W~ʗW#YW9YW#FW60#FW!ݠ~ʗWXzWʑWw#eW9ʄW#ŒWE7ڑWw#eW6 #eW!ݠ"IY>V <>2 EKX"?Yͳ!Y66!"[Y*?Y N! :T_ r7Wy2uY*[YO:U!4Y > ͔7*?Y4Y~X#W4Y*[YDM!?Yz*[Y:uYg"[Y*?Y"?Y~ W>2!E:>2 EKX>2 EKXͼ>!Gr 0.*9͘.Ͱ+1 -;,'PICTURERECORD SAYSDFRECORD # TO USINGº0ͤ6++":9&i".9.> 0.*9͘.Ͱ+1 -;,G2LîM PûPÏQéRSêStT&2W2W2W2W2W2W9!",W:UH&&U:UHgVK8vG"W*:'L>2WFGVK8G>2W*:!6 ".W:O+G>$L9(ʭG>R$L*.W9!6 ".W*,W6-#~7~765",W*::,FG:ÏG]VK8H>2W*::VK8FG>2W*:FGVK8#H>2W*:FGUK8U>2W2W*::{VK8FG*::U2 W:FG:W"L*W*::WmHoH>'>R,y'2D:W´H!6#w#w#+++++9:WVK &/:WK͞'!ͳ%!͘&!".WK!d"*W,|K͵'JKKJK*.W#".W**W+"*W|I:.EI*.W͸66>' ͔7!- +J!"'W!"2W*'W~5 J#̓7##"'W ~NʿI#F#̓7*2Wy}I6,#: W,ʇIw# 9xU7+~ ›II#: W,ʬIw#"2W J+~ ¸I+­I#"2W J#F#̓7*2WyI6,#: W,I 9xU7"2W J~# IJII"2W J60#"2W OI*2W6 #6 #r7DM:D&JK:WFJ*DM:D}'&/͞'JK:WgJ*6 #6 :D*DM&JK!"2W",W*,W~ 3K ~NJ#F#̓7*2WyʙJ6,#: W,ʣJw# 9xU7+~ ·J¬J#: W,Jw#"2W%K+~ J+J#"2W%K#F#̓7*2WyJ6,#: W,K 9xU7"2W%K~# KKKK"2W%K60#"2W*,W",W uJ*2W6 #6 #r7DM:D&ͥ+KHK!VA9 &/""W!".W*"W~ K>  ~K> #‰K#~#~U###~U*"W""W&/*.W#".WwK:.EK*.W͸66>' <:D}'':WK:WL:WL .*.W!6#~7&/̓%2D͞'U>($L>H <͞'>2 EÙ)&!"'W>A2V21W20W2W24W!4W",W:&&U:@MgVK8L:0W<20WҩM*'WU>2W"'W#͍7xʤM!V4*! y7͒7*'W6)#~76#6/#~765"'W*,W60#~765",W9@M,VL:VL*:>21W!4W",W:@Mk*L**,W~ʟM#̓7",Wbk ͒7:O+9~7(M_# M*::,VL:L:WʟM!͘&nM͵'eMnMeM!- ͥ+nMPM:.E~M!4W͸6- >A2V:1WU!4W~5U#̓7*ÍM>J$L>K$L>L$L: E2\2W:vNZVK8M*::U_@2\::¸M:øM)VK8U*::U!V>  ͔7V9nN nN.=N*-Na$N_: N6?#.N:.nN:VnN nN*cNaZN_:EN6?#dN:>2WøM͸6:W›N!.V6!V] 9ͰN͸6U!V] 9ͰN͸6U!hW"fW6 \ON!UV6*fW:WN 9 "fW6 ON!hW"fW͸6*fW~ :W¶O]9"fW2h!]t,7t,72|\O\Oog676>/ͅ66>/ͅ66͸6:_N\N> <͸6:_N\N!jV6͸6Nt,>.ͅ6t,"fWO77N͸6NO\O7(ͅ6 ~ͅ6>)ͅ67~NfP#~2W\P<2!W2WwP#~2W###~2W>2!W! W- :!W*%WU7#"%W~ P͸6>` <7:$W6!U6*%W6!V6U2W2W:P$VK8P*:>'>2W>R,P>XUUK8U*:>2WP:WU:WQd)4W,چQ! ~7QEQ#Ny<2)WMQ#F###N>2)WMQ>2)W!4Wk*[Q**"W:)WOhW,*W ̓7:)WO!hW9Q̓%͞'U2W2W2W:RgVK8Q*:>'ڤR>R,ڤRy'2D""W>2WÙQUK8UQ)VK8QQ".W>2WR*::U VK8UQ",W>2W: RRÙQ:WʟR*"W~R:W?R*.WIUR*"W:WSR*,WIUR&/! F#N#̓7xsRxR zRzR&/*"W""W~ &R'̓%2D͞'U>HU>(U2W9)VK8R>2W9 VK8U*::U",W""W*"W~S*,W:WRIUSRIUS**"W""W~ RU&2W&&U:VSgVK8U*::U*".W>2W:VS HSS͋,|}S!͘&}S͵'tS}Sͥ+}SjS:.EʎS>" <`i6:WU`iͭ4*.W ̓7z5U>g <͞'y'&>r <͋,6>w <+++++6>/ͅ66>/ͅ66.S>p q <>f <~ ZT ͸6y67 t,7 ~ͅ67#~67###F~7xOT67T͸6>` <777)6U:>'>R,T2D:D%TT}2 WTT"WT}*Ww#"W! W5­TÇT̓%2D͞'U>XU!GT_0T O))))  T͞'>2 EU <>2 E>!Gr<&od6U 6U6U/}o|g9U zpU pU*rU?kU7gU_rU#KU~TTT@@Ȅ@@@PR@brpb@@@@@@@d\,ADDITIVEALLDELIMITED VARIABLES USED BYTES USEDEXCEPTEXTENDEDFIELDSFROMLIKEDATABASE FILES # RCDS LAST UPDATENoneONSTRUCTURETOFILE UNAVAILABLEWITHFIELD:NAMEC FIELD:TYPEC FIELD:LENN FIELD:DECN A::::::::ASDF ????????DBF$$$ SUB')#6.+5:TYPEC FIELD:LENN FIELD:DECN A::::::::ASDF ????????DBF$$$ SUB#ŒWE7ڑWw#eW6 #eW!ݠ"IY>V <>2 EKX"?Yͳ!Y66!"[Y*?Y N! :T_ r7Wy2uY*[YO:U!4Y > ͔7*?Y4Y~ GûG H:I2I2I:ʈGIK8^G*::"IIyeBG>)I9~KG+"I#~O#F>2IGIK8I#*::>'ҀG>( <,I>2IG:I>T)I:I>H)I>R,y'#*I*Iy''͞'͹H1I$1I$"I*I~G2I#:.EG͸6!I6:I&#p͹H*I#"IG##z!1Ì)!"I"I͋,!d"I!͏,*In,͘,|H*I#"I%H*In,5/*I*I#"I:.E%H*I+"I|%H͸6*I+6>: 9 <*I+"I͏,:.EʰH*I6>: <$1IûG!'Iz!!"I!d"Iͷ*I#"I*I+"I|I:.EI*I͸66>x x <͞'>2 E1I <>2 E>!Gr2eS2hS>92dS>P2oS<2kS2lS&:ʟG&&O:ʟGDPK8eG*:>'>2`S:GUPK8‹G*::OOPK8O*:>2lS:GIPK8O*:>2\S:G:`S¾G>? <5:9ʹOʹO>'>2[S>R,G>R,2[Sy'2$E2vS:[SG>h E 2vS:[S’H>F ʶHûH:>ûH:>@2cSͺ7ʆH2VO͜O!VyU762#q#:cSw#:hSG:oSw#p#652_S:[SH>= 2_S͜O2S:[S I>N 2S!9P*"iS2sS͜O:SXJ:[SXI>D 2rS͜O:rSXJ:[S€I>C 4 <{I͜O:[SªI>P 2yS͜O2zS:[SI>k 2zS͜O:[SI>i >7J.[9< J>(J-J:>-J:>@2cSͺ7IO2-[͜O!.[yU762#q#:cSw#q#:hSw#65:[SdJ>< 2xS:[SœJ͸6:xS67dO:L͙8{2wS*:~,O:*]SO:O:ySJ62#N#FxJw#:wSw#:hSw#65"]SJ"]S#͍7͜O:[S K>@ <*aS6+#"aSdO K1K*aS> 2cS>^K*aS#9OKTK:>TK:>@2cSͺ7JO͜O*aSqyU7#62#q#:cSw#:wSw#:hSw#65"aSxʸL:SʸL:[SK>N c <*fS#"fS67!c6ͨO:DM6>/ͅ6:E6>/ͅ6:E6͸6ͨO:vSM!V- ͸6ͨO!W- ͨO:rS+NͨO>*ͅ67!,[- !?U- rN:ZS™M;O:dSڙM͵'rNN:yS̨O!\- :hN>2O:_SrNͨOͥ+NNrN͵'rNN:rS+N! U- +N/O:ZS+N;O:dSڙM͸6ͨO>*ͅ67!,[- !?U- +N/O:S O:LT5 OͨO>` <ͨO!LT- !9Pk*N*!9P5~AN6A͸6:kS<ùO:[S%O>4 <ÉJ>V <>O:rS:qU5MOͨO>I <ͨO!qU- !S- :zS`O>2ZS͸6:[SƒO5:9:$E}'̓%͞'ùO:$Ef:9w:ŒO.:9:[S:$Eͭ:͸6:eSOy7 ïO>!Gr<>2 E:$E}'̓%͞'ùOTTT@@Ȅ@@@PR@brpb@@@@@@@d\,A::::::::AFORMPLAINPRINTTOZP=2 7*#7~#['{ (t['t t[ )t :[7"(>[~Œw#[~({ /t[/t ͨ [~$w#[27!"7[27:7[ ©(ͨ ͸[¯(~w[tã(w͌[8~w#w[" 7(x[27* 7"7̈́[":8ä\(x†* 7\Œ~@ \#*7s#r\D:+9*:\!64~=)!\W)!7~W)!$\8~# y)*\y) y)0\!8p"7ͩ6\G"K9z ڵ)<\w#~@*~B\^#VͩÎH\ ͩ *N\c*#7"T\!"7"7Z\!8>ͥ5`\+!8>ͥf\+*6|)*l\9<282r\!*/+!*/x\d*>,D:~\JC:9<\28!*/+\r*̓\*8|ʊ*\*ͩ\ʡ*>D7D\No Fatal\r(s) Warni\:7Gͩ\!28!*/+\r*̓\*8|ʎS>" <`i6:WU`iͭ4*.W ̓7z5U>g <͞'y'&>r <͋,6>w <+++++6>/ͅ66>/ͅ66.S>p q <>f:PK8GnPK84P*:TJ>u <8,P,P̀)!S > ͔7!5S w @G9!"Q!Q"Q!"Q*Q~ ʪG*Q y7 ~ʁG#{G~P###~P*Q"Q*Q"QdG!Q"Qͳ!"Q vP!Qz*Q"Q!"P*PDM*Q"Q!Qz*Q"Q~ H*P$"P:U=G:PG>x2PGjH,PH:P_:P!S8H=3H"P!$Vr7|YHDM ͔7+6ðGx I2PxʥH*Q"QQZ7ښH!Q"Q2PðG:P2PðG*Q"QRZ7һH I:P2PðG:P_:P!SH=H"P!$Vr7|HDM*P!9!$V> ͔7+6ðG!͒7!"P!"Q!Q"Q*Q~ J y7*::I*Q9O+~ ,J9~ iI7bI_ #TIy,J ,J*:! :_CʝINʝIL4J>I::͙8DJ{DJzDJ{*::I͙8    y _ <5:,P>'M>AR,҇J!P6>2PÍJy'2PPO>R,y'2Q:E2P2E:T=2 Q:T@J:U=2Q: Q=2 Q!(Q: Qw#~7!,Q6 #6 #"P"P"P"P#"P2Q*P!cr7DM*P>͔7Oͳ!"Q!"Q*P"P*PMkKO~ :K#~ :K#y"P&o6!: QU76!Qz:Q bK:U==!Kͼ!Q"Q*PM"P:QGP!Qz>GL®K!P68 M KKONjN*P*Pr7DM*P+T]*9#"P*P6 #6 vO K*P##*Pr7DM*P*P##9 "P*P~ K6 #6 #6#"P Kx2MxʒLONjN*P*PZ7kKM"P!Q5:Q LL5~kK2Q*P"P*P*PZ7҉LM"P:Q<2QG:Q ҃Lx2Qx [L*P"P KxLONjN*PM~´L6 #6 #6++##"P~L6 #6 #6#"PvO!Q4:Q L4:U===kK2Q*P"P KjN:Q > M>2Q*PM~%M##~%M"P:Q=2QM*P"P2Q KjN:PHM*P"PO5M*P*Pr7DM:Q}'&/'̓%:PM}'̓%PO@'QO-PO-PO-QO-ùM:PM}'̓%:Q}'̓%@'͞':P2Eͳ,P+~ M++~ M#~ #ͥ' >.ͭ7#"QQ9: QO> !͔76: QN~FN"Q*P+Z7O*Q~IN IN ?N> # N7y!"Q:QG!Qz*P~ ʁNʁN#qN: QO !U7 ʛN+~ʌN ʌNy2Q2QN*P*Pr7" QNy*PU7* QDM*P9:Q_*P"PN*P+U7* QDM*P+*9#"P*P:QO9vO*Q9:P^O*PaZ7-ÒOOT] "P:P}',xZO AO"P>2 Q*P+6 #6 #6#"P>2 Q*PbZ7*P*Pr7Z7O*P:Q}'&/*PT] *Pr7DM9*P"P*P"P*P"P*Q"Q*P> ͭ7#"P!P68ʠM5M>e <);êG&odP PP/}o|gP z>!Gr<>2 E,PCOMMANDNAME TYP LEN DECABORTING MODIFY (Y/N) NEW FILEBUFFER FULL, TYPE Y TO SAVE, OR N TO ABORTSTRUCTURE$$$BAK"7F#>27:7Þ ©(ͨ ͸(#~d¯FIELD 01 CSFIELD 02 C6SFIELD 03 COSFIELD 04 ChSFIELD 05 CSFIELD 06 CSFIELD 07 CSFIELD 08 CSFIELD 09 CSFIELD 10 CSFIELD 11 CTFIELD 12 C0TFIELD 13 CITFIELD 14 CbTFIELD 15 C{TFIELD 16 CTFIELD 17 CTFIELD 18 CTFIELD 19 CTFIELD 20 CTFIELD 21 CUFIELD 22 C*UFIELD 23 CCUFIELD 24 C\UFIELD 25 CuUFIELD 26 CUFIELD 27 CUFIELD 28 CUFIELD 29 CUFIELD 30 CUFIELD 31 C VFIELD 32 C$V >ELD 25 CuUFIELD 26 CUFIELD 27 CUFIELD 28 CUFIELD 29 CUFIELD 30 CUFIELʎS>" <`i6:WU`iͭ4*.W ̓7z5U>g <͞'y'&>r <͋,6>w <+++++6>/ͅ66>/ͅ66.S>p q <>f̀)> 2KL2L> 2LL!"HL2EL:ʙG*LK8GG*::O+ʃK(‹K"HL*:G-LK8UG\G*:G7LK8jG~G*:> 2KL2L>2LLGBLK8“K*:'ڛK>2ELG*HL|ʫK:ELʓK*+r7)|GG xGG>2SL*HL ~L{K2oL2L2LCH:KL2KL2L:LL2LL#~2pL2L2L#̓7~2sL2L2Lr7"XL:pLG:sLO:oLN9HxAO!L*"L"L9-,'y'2ZL>R,y'2Da/!"PL>2cL2TL͋,|¿H'2ZLÍJ2TL:D}'','*PL͏,a/.R,y'2ZL>2cL:SL_*PLr7"PL|ʍJ:cLʍJ2cL:TLH*PL&:SLor7H{2SL2RL2UL)DM!"VL:D}'+-:ZL}','+-:TL,I,ڋI I*PL#"PL2I,sK*XL*VL~7"VL`i!RL4:SLIJ*"L!tL"_L*HL"\L:TL—I:SL_*PLr7|sKRJ"PL"NL×I:RL2SLJRJ:ZL}':TLʺI͘,RJʤI*PL#"PLI͘,sK:LL2aL![L- I:D}'5/*HL y7HK?J:D}'*XL*r7)DM&/*LHK9*!:SL=O9y!U7~7:SLOJ*"L*HL"\L:TL—I*NL+"NL|—I:D}')DM!"VL:SL*VL̓7"VL*XLr7&/=fJ:TL€H,'ÿH:D}'̓%:ZL}'̓%͞'.*L*:.EʳK!J6óKSORT COMPLETE:SLOJ J:KL2aL:SLGyH==CK!tL"_L!dL"\L!蜁U7̓7y7"L"qL![L- /K*L~7*qL~7:K:UL:KCKCK=Jx:cL"L:ULfK!L- fK>2cL!L- >2UL> / <ãK> <ãK>R <ãK>H <ãK>( <ãK>2 EóK>2 EóK>!Gr2I͸6!K6y'&.+G>p <0G>q <͸6$~wG"`K!'K6͸67*`K~wG#"`K}'&7 .nK,! L6͸6GG͞'.y'G>2I͸6!IK6y'&.ʨG>p <íG>q <͸6$~G"`K!'K6͸67*`K~G#"`K}'&7 .nK,! L6͸6G.͸6:IH͸6͸6͸6>e <);lI͸6!I6:D6>/ͅ6:E6>/ͅ6:E6!J6: E@ͅ6>:ͅ6:DeH!I6:D&͸6!(J6:E[I7!5J6:E[I!BJ6:E[I7!OJ6:E[I!iJ6: E[I7!\J6;[I!vJ6: E[I7!J6: E[I!J6:E[I7!J6:+E[I!J6:!E[I7!J6:"E[I!J6:&E[I7!J6:)E[I!J6<[I7!J6:*E[I!J6:,E[I7!K6:.E[IlIeI!IhI!I6͞'>!Gr'>R,2D:H2 E:U2HG:Df:G9*DG#HK8DG>2H͸6G:Df:G9~*kGðGG:Df:G9yHK8G9tHK8DG~*ʽG.:6:H=2HƒG͸6>e <);G͸6:U2HÃG::!E:HG!H6:D}'̓%͞'G>!Gr<ʡ<ʡʡ Ę>GG<"8z½  "7"8y28  28DBASEMSG*END*EXITNO HELP MESSAGES FOUNDHELP Ę>GG<"8z½  "7"8y28  28DBASEMSG*END*EXITǸ).̀).2ZJ2YJ2XJ:ʤG:ZJBGUJK8BG*::'ڠI>2ZJG:YJiGQJK8iG*::I>2YJG:XJIJJK8I*:>2XJ:I"[J:O+I*::,G:ÊG:ZJʨI:YJʰI>R,y'2D͞'.:XJ‡H"]J!"_J!eJ"aJ*]J~ H*_J9*aJ6-#*]J~7*_J~765"aJ*]J "]J*_J "_JG>."]J*]J~ H N'zH*_J*]J9*aJ6-#*]J~7*_J~765"aJ*_J "_JZ7H*]J "]J+H!"_J!eJ"aJ*[J*::O+"cJ9(I"]J*_J9*aJ6-#*]J~7*_J~765"aJ*_J"_J*cJ*::,H:ÙH*_J6 !ͳ%> 2:D}' &/͞'>.9-.9-!"ᜯ.!- aI!eJ- :D}'*DM&/͞'*#"|<ʸI>.ͥ+oI,I9-.ͥ+I,I:D}'' .> &/̓%͞'I>( H l m  2 EI͞'>2 EI>!Gr!Gr2JG:JyGJK8yG>2J*:"J:O+?J*::,G:_G:JsJJK8sJ>2J*::GJ"KO+GJ2K9(GJ"K*:G:JOJ>R,Gy'2D ,G>R,y'2D 9&/͞'!ͳ%!"K65:JxH*J*::O+"J9(WJ! ~NdH*K6)#~7"K9N'WJ*K6)#~76#61#~765"K*J*::,H:H!" K* K~ H ~N½H* K(WJ*K6)#~7* K6)#~76#61#~765"K* K" K~H:JI*K#"K"J*K! ~NH*K6)#~7"K:KO*KN'GJ*K6)#~7p#65"K*K#"K"K!" K* K~ `I(SI*K6)#~761#* K~765"K* K" K*I!͘&*DM!> ͔79-~*ʅI͵'‘Iͥ+IvII*K- !"JI:JʱI*J- ʺI!- I:D}'*DM&/͞'*J#"J*K- ͥ+II͵'IàI*J":D}'*DM&/:D}'' . &/̓%͞':.E~J*J͸66>' <~J>( <_J>R <_J> <_J>H <_J>R <_J:D}'̓%͞'>2 E~J͞'>2 E~J>!Gr̀)2K2K2K2K2K:+H:K>GKK8>G*::'J>2KG:KkGKK8kG*::"KO+J2K*:>2KG:K¦GKK8¦G*::$K"K:O+J*:>2K:,G:ÇG:K HKK8 H*::$K"K:O+J*:>2K:,G:G:KK8G*::O+J*::,G:G:K$KKK8$K*:>2K$KG:KJ:KJ>R,Jy'2D ,!ͳ%:KœH*K(J F#y7"K*K:KON'J N#y7"KxJ2KûH*K:KON'J ~2K#y7"K!"K"K:KBI*K"K*K*::"K(J"K*KO+"K*KN'J*K6)#~76)#*K~76#61#*K~7"K*K*::~,9I:"KH*K65#"K:KI*K"K*K*::"K(J"K*KO+"K*::KK8‹I*::"KO+"K*KN'J!K ~*KNʱI6-#~7úI6)#~761#*K~7"K*K*::~,I:"KOI*K65:KcJ͞'!͘&J:D}'*DM,*K*K:KO7WJJ@J:K*J*K- :K7J*K- ͞'5/:D}'*DM,JJ͞'ͥ+JJ:D}'*DM,͞'*K:K '|ʪJ:KʗJ*K- :KʤJ*K- 5/:D}'*DM,JtJ:D}'̓%͞'5K>( <K> <$K>n <K>T <K>R <$K>o <K>s <K>S <K:D}'̓%͞'>2 E5K:D}'̓%>2 E5K>!Gr2M:O+:G> R 2M*M~ G͡JG!M4*M"MG:UO:MG:M2M#H*M:Mg."M!M4$H&"#H'öG͘,ҶG!"MK"M2M*M~ SHbKSH!M4*M"M3H: MO:MG!y=jHOxg^H"M* MM LL!Lz* M' K"M2M*M~ ʵHKڵH!M4*M"MÕH:M!MH~=2M:MG>2Mx2Mͼ2MK"M2M*M~ I͡JI!M4*M"MH:MILL2 M:MBI5/$BIͺ!2 MBI," M"M 2 M:MUJ:MI!M6#:M/2 M:M2MàG9-," M* M"M2 MÜG!M6#:Mw$J&"HJ" M: MHJ:MG:MO:M2MHJmH$%J&"HJ'+J͘,HJ* M#" M:MG:MO:M2MHJmH* M"M2 MÜG:M0ʞJsJ:M=J2M!M4ÑJK~ ʑJ:M<2M:M=J2M* M"M2 MÜGLL:TO ~ҶJ:MJ:MʿJ7~/2M7BK?~2M*MDML!Lz*M:M-!!M͔7!!MyU767~2MñK?~2MO>-!!M͔7!M~K#øK!!M:MU76*MDM!M!Lz*M:M2 ELL>OLͳ: M2E>!Gr<6 s#r27*7###:6$:7$*7 ͩ273{ "*$'¦$G *#7++J$ FIELDSRECORD # :00000 ͩ273{ "*$'¦$G *#7++J$ FIELDSRECORD -PO-PO-QO-ùM:PM}'̓%:Q}'̓%@'͞':P2Eͳ,P+~ M++~ M#~ #ͥ' >.ͭ7#"QQ9: QO> !GGH̓%#.̓%#>, <:D}''̓%:ʑH9IK8¡H*::87¡H~7:ʡHOG::pG,¡H::DG"I*I~ʥG#ÚG6#">IzG*>I6!ͽGʑH |G02III~G #Gy2I#~GI |DHO 6 .̓%́'#. .̓%́'#.:D}''̓%:#E}'̓%2#Ed)2c2D2E.ìH:d='$Z='͞'>2 EìH>!Gr<  { !![!!" :"E"Q"^"d"m""" """"""{!zW{_{!zW{_{!zW{TO$$$ SUB { !![!!" :"E"Q"^"d"m""" """"""{!zImH* M+" M|I:MG:M2MImH* MZ7I"M>2 M:M2MàG9-," M* M"M2 MÜG!M6#:Mw$J&"HJ" M: MHJ:MDEPTNONlDEPTNAMECl 1TECHNICAL DEVELOPMENT 2OFFICE ADMINISTRATION 3TRANSPORTATION 25.50 0.00 0.00 4 2 956.35 0.00 0.00 5 2 2400.55 0.00 0.00 6 3 742.45 0.00 0.00 7 3 450.75 0.00 0.00BBBBBBB5BBBBBBBBBBBBBBBBBBBBBBBM=1,L=55,W=35 Y DEPARTMENT LISTING N N 4,DEPTNO DEPT NO 25,DEPTNAME DEPARTMENT NAME !EMPNONlDEPTNONlTAXCODENlGROSSSALNlTAXESNlNETSALNl 1 1 4 1875.52 0.00 0.00 2 1 3 1555.97 0.00 0.00 3 1 3 1125.50 0.00 0.00 4 2 2 956.35 0.00 0.00 5 2 2 950.78 0.00 0.00 6 3 2 742.45 0.00 0.00 7 3 1 450.75 0.00 0.0000 7 3 450.75 0.00 0.00BBBBBBBBBBB BBBBBBBBBBBBBB BBBBBBBBBBBBBBBBBBBBBBB(EMPNONlLASTNAMEClDEPTNONlJOBCLASSNlTAXCLASSNlGROSSSALN l 5EINSTEIN 2 22 75 1500.05 2REDFORD 7 9 4 2000.50 8ROCKNE 1 65 34 1100.50 54GORT 99 99 39 500.00 78SMITH 903 49 61 1200.75 70JONES 235436456 3000.85 22SMITH 903876321 4576.82ber to indicate" ?"the type of work this employee does), and" ?"TAXCLASS and GROSSSAL for tax deduction and gross" ?"salary information. As we shall see in the" ?"advanced DBASE TUTOR lessons, the key fields" ?"in fi R(EMPNONlLASTNAMEClDEPTNONlJOBCLASSNlTAXCLASSNlGROSSSALN l 5EINSTEIN 2 22 75 1500.05 78SMITH 903 49 61 1200.75* 22SMITH 903876321 4576.82 54GORT 99 99 39 500.00 78SMITH 903 49 61 1200.75* 70JONES 235436456 3000.85 22SMITH 903876321 4576.82' TO CHECK DO CHECKC ?"? LASTNAME" STORE '? LASTNAME' TO CHECK DO CHECKC ?"There's another SMITH. Is it flagged for deletion?" ?"? *" STORE '? *' TO CHECK DO CHECKC ?"Yes, it is flagged for deletion, so we don't"(EMPNONpLASTNAMECpDEPTNONpJOBCLASSNpTAXCLASSNpGROSSSALN p 5EINSTEIN 2 22 75 1500.05 2REDFORD 7 9 4 2000.50 8ROCKNE 1 65 34 1100.50 54GORT 99 99 39 500.00 78SMITH 903 49 61 1200.75 70JONES 235436456 3000.85 22SMITH 903876321 4576.82 LESSON IF LESSON = 'QUIT' QUIT ENDIF IF LESSON = 'I' STORE 1 TO OK LOOP ENDIF STORE VAL(LESSON) TO LESSONN IF LESSONN < 1 .OR. LESSONN > 10 ?"I'm afraid you didn'M=1,L=55,W=40 Y EMPLOYEE MASTER PAYROLL N Y N 5,EMPNO EMP NO N 4,DEPTNO DEPT NO N 2,TAXCODE TX CD N 8,GROSSSAL GROSS SALARY Y 6,TAXES TAXES Y 8,NETSAL NET SALARY Y SE TUTOR" ?"manual, if you get involved in complex JOINS with" ?"many files, make sure that you do not violate any" ?"of the normailzation principles." ? ?"One more caution, too, when using JOIN. JOINs of" ?"larger files can take an extraordinary amount of" ?"time. If you find that run times for JOINs are" ?"becM=1,L=55,W=50 Y dBASE II PAYROLL REPORT N Y N 4,EMPNO EMP NO N 15,LASTNAME EMPLOYEE LAST NAME 4,DEPTNO DEPT NO N 5,JOBCLASS JOB CLASS N 5,TAXCLASS TAX CLASS N 10,GROSSSAL GROSS SALARY Y  ENDIF IF COMMAND # CHECK ?"You didn't enter:" ?" &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF ENDIF ENDDO M=1,L=55,W=50 Y PAYROLL INPUT LISTING N Y N 5,EMPNO EMP NO N 4,DEPTNO DEPT NO N 2,TAXCODE TX CD N 8,GROSSSAL GROSS SALRAY Y 6,TAXES TAXES Y 8,NETSAL NET SALARY Y ?"a report form called EMPMFRM for you to use to" ?"generate the report." STORE 'USE EMPMAST' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM EMPMFRM' TO CHECK DO CHECKC WAIT ERASE ?"Now, let's issue the same three commands for the" ?"JOBHIST file using the report form JOBHFRM re ?"time. If you find that run times for JOINs are" ?"becoming excessive, you may want to accomplish" ?"the results of a JOIN by using the UPDATE command," ?"or by writing a command procedure." ? ?"It's time to QUIT." STORE 'QUIT' TO CHECK DO CHECKC RETURN  10.15 20.20 30.25 40.30FFICE ADMINISTRATIO 3TRANSPORTATION 0 3 1 1125.50 0.00 0.00 4 2 956.35 0.00 0.00 5 2 2400.55 0.00 0.00 (EMPNONpLASTNAMECpDEPTNONpJOBCLASSNpTAXCLASSNpGROSSSALN p 2REDFORD 7 9 4 3500.50 5EINSTEIN 2 22 75 1500.05 8ROCKNE 1 65 34 1100.50 22SMITH 903876321 4576.82 54ZOG 99 99 39 525.25 70JONES 235436456 2965.85 78SMITH 903 49 61 1200.75 &CHECK" ?"Please try again." LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF LOOP ENDIF ENDIF IF$EMPNONlEMPNAMECl 1JONES, SARAH P. 2SMART, JOHN H. 3SCHNERD, H. 4FINGERS, STEPHEN 5DUCK, D. 6TROUT, KILGORE 7SMITH, R. 75 0.00 0.00BBBBBBBBBBB BBBBBBBBBBBBBB BBBBBBBBBBBBBBBBBBBBBBBM=1,L=55,W=40 Y EMPLOYEE NAME LISTING N N 5,EMPNO EMP NO 30,EMPNAME EMPLOYEE NAME  03/30/81 1 1 4 1875.52 0.00 0.00 2SCIENTIST 01/25/68 2 1 3 1555.97 0.00 0.00 3ENGINEER 06/20/79 3 1 3 1125.50 0.00 0.00 4CLERK TYPIST 08/14/81 4 2 2 956.35 0.00 0.00 5COPY SPECIALIST 11/28/80 5 2 2 950.78 0.00 0.00 6DRIVER 09/21/76 6 3 2 742.45 0.00 0.00 7OFFICE ASSISTANT 05/21/82 7  2EMPNO@  @  ?   " @@ @P@A"ATApAx?   " @ @ @` EMPNONlLASTNAMEClGROSSSALN l 54ZOG 25.25 2 1500.00 70JONES -35.00 1 65 34 1100.50 22 0 0 0 9576.82 54GORT 99 99 39 500.00 70JONES 235436456 3000.85 78SMITH 903 49 61 1200.75r of system design, and each system will" ?"dictate which method should be used. The purpose" ?"of this lesson is to show you how to use SORT" ?"if you feel the circumstances warrant it." WAIT ERASE ?"Enough said. EMPNONpLASTNAMECpGROSSSALN p 54ZOG 25.25 2 1500.00 70JONES -35.00?"Now, tell me which disk drive contains lesson &LESSON, and press the" ?" key." STORE 0 TO OK1 DO WHILE OK1 = 0 ACCEPT 'WHICH DISK DRIVE CONTAINS LESSON &LESSON?' TO TDRIVE IF !(TDRIVE) = 'QUIT' QUIT ENDIF RESET STORE $(!(TDRIVE),1,1) TO TDRIVE IF TDRIVE >= 'A' .AND. TDRIVE <= 'P' IF FILE("&TDRIVE.:TEACH&LESSON..CMD") STORE 1 TO EMPNONpLASTNAMECpGROSSSALN p 2 1500.00 54ZOG 25.25 70JONES -35.00 order by EMPNO." ? ?"Type SORT ON EMPNO TO EMPTSRT " STORE 'SORT ON EMPNO TO EMPTSRT' TO CHECK DO CHECKC ?"Now, use EMPTSRT, and display all the records on it. I'll help you if" ?"you make errors in either of the two commands to do this." STORE 'USE EMPTSRT' TO CHECK DO CHECKC STORE 'DISPLAY ALL' TO CHECK DO CHECKC M=1,L=55,W=50 Y JOB HISTORY REPORT N N 5,EMPNO EMP NO 15,EMPNAME EMPLOYEE NAME 15,JOBTITLE JOB TITLE 8,STRTDATE START DATE 06/20/79 4CLERK TYPIST 08/14/81 5COPY SPECIALIST 11/28/80 6DRIVER 09/21/76 7OFFICE ASSISTANT 05/21/82BB5BBBBBBBBBBBBBBBBBBBBBBBM=1,L=55,W=40 Y JOB HISTORY FILE LISTING N N 5,EMPNO EMP NO 20,JOBTITLE JOB TITLE 8,STRTDATE START DATE results of a JOIN by using the UPDATE command," ?"or by writing a command procedure." ? ?"It's time to QUIT." STORE 'QUIT' TO CHECK DO CHECKC RETURN  10.15 20.20 30.25 40.30FFICE ADMINISTRATIO 3TRANSPORTATION 0 3 1 1125.50 0.00 0.00 4 2 956.35 0.00 0.00 5 2 2400.55 0.00 0.00 "EMPNONlJOBTITLEClSTRTDATECl 1SUPERVISOR 05/10/79 1MANAGER 03/30/81 2SCIENTIST 01/25/68 3ENGINEER 06/20/79 4CLERK TYPIST 08/14/81 5COPY SPECIALIST 11/28/80 6DRIVER 09/21/76 7OFFICE ASSISTANT 05/21/82BB5BBBBBBBBBBBBBBBBBBBBBBBEEMPNONțJOBTITLEC͛STRTDATECEMPNONEMPNAMEC 1SUPERVISOR 05/10/79 1JONES, SARAH P. 1MANAGER 03/30/81 1JONES, SARAH P. 2SCIENTIST 01/25/68 2SMART, JOHN H. 3ENGINEER 06/20/79 3SCHNERD, H. 4CLERK TYPIST 08/14/81 4FINGERS, STEPHEN 5COPY SPECIALIST 11/28/80 5DUCK, D. 6DRIVER 09/21/76 6TROUT, KILGORE 7OFFICE ASSISTANT 05/21/82 7SMITH, R. CHECK" ?"If you would like to try to correct the statement, enter Y when" ?"prompted. Otherwise, enter N, and then re-enter the entire command." DO TEACHC ENDIF IF COMMAND # CHECK ?"Please enter:" ?" &CHECK " LOOP ELSE STORE 1 TO OK SET TALK ON &COMMAND SET TALK OFF ENDIF ENDDO STORE ' ' TO PROMPT 'EMPNONțDEPTNON͛TAXCODENЛGROSSSALNқTAXESNڛNETSALNTAXCODENTAXPCTN 1 1 4 1875.52 0.00 0.00 40.30 2 1 3 1555.97 0.00 0.00 30.25 3 1 3 1125.50 0.00 0.00 30.25 4 2 2 956.35 0.00 0.00 20.20 5 2 2 950.78 0.00 0.00 20.20 6 3 2 742.45 0.00 0.00 20.20 7 3 1 450.75 0.00 0.00 10.15 JEMPNONțDEPTNON͛TAXCODENЛGROSSSALNқTAXESNڛNETSALNTAXCODENTAXPCTNEMPNONEMPNAMEC 1 1 4 1875.52 0.00 0.00 40.30 1JONES, SARAH P. 2 1 3 1555.97 0.00 0.00 30.25 2SMART, JOHN H. 3 1 3 1125.50 0.00 0.00 30.25 3SCHNERD, H. 4 2 2 956.35 0.00 0.00 20.20 4FINGERS, STEPHEN 5 2 2 950.78 0.00 0.00 20.20 5DUCK, D. 6 3 2 742.45 0.00 0.00 20.20 6TROUT, KILGORE 7 3 1 450.75 0.00 0.00 10.15 7SMITH, R.  fEMPNONpDEPTNONpTAXCODENpGROSSSALNpTAXESNpNETSALNpTAXCODENpTAXPCTNpEMPNONpEMPNAMECpDEPTNONqDEPTNAMECq 1 1 4 1875.52562.65 1312.87 40.30 1JONES, SARAH P. 1TECHNICAL DEVELOPMENT 2 1 3 1555.97388.99 1166.98 30.25 2SMART, JOHN H. 1TECHNICAL DEVELOPMENT 3 1 3 1125.50281.37 844.13 30.25 3SCHNERD, H. 1TECHNICAL DEVELOPMENT 4 2 2 956.35191.27 765.08 20.20 4FINGERS, STEPHEN 2OFFICE ADMINISTRATION 5 2 2 950.78190.15 760.63 20.20 5DUCK, D. 2OFFICE ADMINISTRATION 6 3 2 742.45148.49 593.96 20.20 6TROUT, KILGORE 3TRANSPORTATION 7 3 1 450.75 67.61 383.14 10.15 7SMITH, R. 3TRANSPORTATION  too, and you can" ?"compute tax and net salary amounts, and produce the payroll register." WAIT ERASE ?"Issue the commands to do all this. First, USE JOINPAY3." STORE 'USE JOINPAY3' TO CHECK DO CHECKC CLEAR SET TALK OFF SET CONFIRM ON SET EXACT ON STORE ' ' TO PROMPT ERASE @ 6,0 ?" dBASE II LESSONS RELEASE 2.0.1" ?" COPYRIGHT 1982, 1983 S. C. JENNER" ?" ALL RIGHTS RESERVED" STORE 0 TO COUNT DO WHILE COUNT < 100 STORE COUNT + 1 TO COUNT ENDDO ERASE ?"I'd like to know your name. Please enter your first name and press" ?"the key." STORE 0 TO OK DO WHILE OK = 0 ACCEPT "What's your first name?" to STUDENT IF LEN(STUDENT) > 10 ?"You have a long first name. Please enter up to 10 characters of" ?"your first name or a nickname." LOOP ENDIF IF STUDENT = ' ' ?"I'm afraid you didn't enter your name. Please try again." LOOP ENDIF STORE !(STUDENT) TO STUDENT IF STUDENT = 'QUIT' QUIT ENDIF ACCEPT "Did you spell it correctly (Y OR N)?" TO SPELL STORE !(SPELL) TO SPELL IF SPELL = 'QUIT' QUIT ENDIF IF SPELL = 'Y' STORE 1 TO OK ENDIF ENDDO ERASE ?"If you have a printer, &STUDENT, turn it on. It will keep track of" ?"all that you do during these training sessions." ? ?"If your printer is on, type Y and press the key. If it is not" ?"on, type N, and press the key." STORE 0 TO OK DO WHILE OK = 0 ACCEPT "Is your printer on (Y/N)?" TO PRINTER IF !(PRINTER) = 'QUIT' QUIT ENDIF IF !(PRINTER) = 'Y' .OR. !(PRINTER) = 'N' STORE 1 TO OK IF !(PRINTER) = 'Y' SET PRINT ON ENDIF ELSE ?"You didn't enter a Y or N. Please try again &STUDENT.." LOOP ENDIF ENDDO ERASE DO WHILE T STORE 0 TO OK DO WHILE OK = 0 ?"If this is the first time you've used dBASE II LESSONS, select the" ?"I option from the menu below. This introduction contains background" ?"material on computers, operating systems, and dBASE II." ? ?"If this is not the first time you've used dBASE II LESSONS, select" ?"the appropriate lesson number (or QUIT) from the menu below." ? ?" I - Introduction, definitions of basic computer terms (reference," ?" not interactive)" ?" 1 - Create files, generate Reports, and correct syntax errors" ?" 2 - Add, change, and delete data in files, and record positioning" ?" 3 - Selecting sub-sets of data on files, and computations" ?" 4 - Record keys, indexing, random processing, and Boolean operators" ?" 5 - File and system utilities, and intro to command procedures" ?" 6 - Sorting, updating, and use of memory" ?" 7 - Relational data base construction" ?" 8 - Other forms of accepting and displaying data, dBASE II functions," ?" and SET options" ?" 9 - Building custom reports and screens" ?" 10 - Command procedures (programming features in dBASE II)" ?" QUIT - In response to any prompt, to return to the operating system" ? ACCEPT 'ENTER THE LESSON NUMBER' TO LESSON STORE !(LESSON) TO LESSON IF LESSON = 'QUIT' QUIT ENDIF IF LESSON = 'I' STORE 1 TO OK LOOP ENDIF STORE VAL(LESSON) TO LESSONN IF LESSONN < 1 .OR. LESSONN > 10 ?"I'm afraid you didn't enter an I, or a number between 1 and 10." ?"Please try again." WAIT LOOP ELSE STORE 1 TO OK ENDIF ENDDO IF LESSON # 'I' IF LESSONN > 9 STORE STR(LESSONN,2) TO LESSON ELSE STORE STR(LESSONN,1) TO LESSON ENDIF ENDIF STORE 0 TO OK DO WHILE OK = 0 IF FILE('TEACH&LESSON..CMD') STORE 1 TO OK ELSE ?"You must have received several diskettes for dBASE II LESSONS. Insert" ?"the diskette which contains lesson &LESSON into another disk drive (not" ?"the one you started dBASE II on). I'll wait while you do that." WAIT ?"Now, tell me which disk drive contains lesson &LESSON, and press the" ?" key." STORE 0 TO OK1 DO WHILE OK1 = 0 ACCEPT 'WHICH DISK DRIVE CONTAINS LESSON &LESSON?' TO TDRIVE IF !(TDRIVE) = 'QUIT' QUIT ENDIF RESET STORE $(!(TDRIVE),1,1) TO TDRIVE IF TDRIVE >= 'A' .AND. TDRIVE <= 'P' IF FILE("&TDRIVE.:TEACH&LESSON..CMD") STORE 1 TO OK1 LOOP ELSE ?"I'm afraid drive &TDRIVE doesn't contain lesson &LESSON.. Please specify" ?"the correct drive, and make sure that you inserted the diskette which" ?"contains lesson &LESSON into that drive." ENDIF ELSE ?"The drive specification must be one of the letters A through P." ENDIF ENDDO SET DEFAULT TO &TDRIVE ENDIF ENDDO IF LESSON = 'I' DO TEACHI LOOP ENDIF DO TEACH&LESSON ENDDO RETURN characters of" ?"your first name or a nickname." LOOP ENDIF IF STUDENT = ' ' ?"I'm afraid you didn't enter your name. Please try again." LOOP ENDIF STORE !(STUDENT) TO STUDENT IF STUDENT = 'QUIT' QUIT ENDIF ACCEPT "Did you spell it correctly (Y OR N)?" TO SPELL STORE !(SPELL) TO SPELL IF SPELL = 'QUIT' QUIT ENDIF IF SPELL = 'Y' STORE 1 TO OK ENDIF ENDDO ERASE ?"If you have a printer, &STUDENT, turn FIELD:NAMEC pFIELD:TYPECpFIELD:LENNpFIELD:DECNp FIELD C 80 0ADDRESS C 20 0*CITY C 10 0STATE C 30 0*PHONE C 12 0BBBBBBBJBBBBBB@BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"BBBBBBBBB"BBBBBBBBBBBBBBBBBBBBBBBBBBBNAMECpADDR1CpADDR2CpADDR3CqADDR4C1qADDR5COq JOHN MOTT 1773 N. GROVER CIRCLE YUMA TEXAS 90009 USA HER THERE YES THERE YES YES THERE @ SAY" ?"commands will be displayed on the top half of the" ?"screen." WAIT ERASE @ 12,0 SAY "Here I am down here." @ 13,0 SAY "The scLASTNAME@  @  @ @P@A"ATApAx?   " @EINSTEIN GORT JONES REDFORD ROCKNE SMITH SMITH   " @ @ @` M=1,L=55,W=50 Y PAYROLL REPORT N Y N 10,EMPNAME EMPLOYEE NAME 11,DEPTNAME DEPARTMENT NAME 8,GROSSSAL GROSS SALARY Y 7,TAXES TAXES Y 8,NETSAL NET SALARY Y  1TECHNICAL DEVELOPMENT 3 1 3 1125.50 0.00 0.00 30.25 3SCHNERD, H. 1TECHNICAL DEVELOPMENT 4 2 2 956.35 0.00 0.00 20.20 4FINGERS, STEPHEN 2OFFICE ADMINISTRATION 5 2 2 950.78 0.00 0.00 20.20 5DUCK, D. 2OFFICE ADMINISTRAT1,L=55,W=50 Y PAYROLL REPORT N Y N 10,EMPNAME EMPLOYEE NAME 10,DEPTNAME DEPARTMENT NAME 8,GROSSSAL GROSS SALARY Y 7,TAXES TAXES Y 8,NETSAL NET SALARY Y  1TECHNICAL DEVELOPMENT 3 1 3 1125.50 0.00 0.00 30.25 3SCHNERD, H. 1TECHNICAL DEVELOPMENT 4 2 2 956.35 0.00 0.00 20.20 4FINGERS, STEPHEN 2OFFICE ADMINISTRATION 5 2 2 950.78 0.00 0.00 20.20 5DUCK, D. 2OFFICE ADMINISTRAT QFIELDCPp M=1,L=55,W=70 Y NAME AND ADDRESS REPORT Y N 15,NAME NAME OF PERSON 20,ADDRESS ADDRESS 10,CITY CITY REPLACE FIELD:LEN WITH 80 REPLACE FIELD:DEC WITH 0 IF FILE("T1RDBF") DELETE FILE T1RDBF ENDIF CREATE T1RDBF FRTAXCODENlTAXPCTNl 10.15 20.20 30.25 40.30FFICE ADMINISTRATIO 3TRANSPORTATION 0 3 1 1125.50 0.00 0.00 4 2 956.35 0.00 0.00 5 2 2400.55 0.00 0.00 6 3 742.45 0.00 0.00 7 3 450.75 0.00 0.00BBBBBBB5BBBBBBBBBBBBBBBBBBBBBBBM=1,L=55,W=10 Y TAX CODES N N 4,TAXCODE TAX CODE 4,TAXPCT TAX PCT AMECD AXCODENGGROSSSALNITAXESNQNETSALNW ERASE ?"In this module, you will learn how to CREATE a dBASE II file, DISPLAY" ?"its contents and STRUCTURE, write a REPORT, correct SYNTAX ERRORS, and" ?"how to QUIT, or exit from dBASE II. It's very easy to do. To start, we" ?"will CREATE a file. All you have to do is type CREATE and press the" ?" key." ? ?"If you're not sure what a file is, what records are, or what fields" ?"within records are, QUIT this lesson, and review the dBASE II LESSONS" ?"Introduction. Otherwise, &STUDENT, proceed with your CREATE." ? ?"Type CREATE ." STORE 'CREATE' TO CHECK DO CHECKC1 ERASE ?"Very good, &STUDENT!" ? ?"dBASE II will now ask you to enter a filename for this file, so it" ?"can be found later. You may call the file any name you wish, but the" ?"filename may not exceed 8 characters. Type up to an 8 character" ?"filename, and press the key." STORE 0 TO OK DO WHILE OK = 0 ACCEPT TO FILE IF !(FILE) = 'QUIT' QUIT ENDIF STORE !(FILE) TO FILE IF LEN("&FILE") > 8 ?"I'm afraid you entered a filename which is greater than 8 characters." ?"Please try again." LOOP ENDIF IF FILE = ' ' ?"I'm afraid you didn't enter a file name. Please enter a name with from 1" ?"to 8 characters." LOOP ENDIF IF @(' ','&FILE') # 0 ?"Imbedded blanks are not permitted in the file name." ?"Please try again." LOOP ENDIF STORE FILE TO T:NAME DO TEACHXC IF T:NAMEOK # 1 LOOP ENDIF STORE 1 TO OK ENDDO STORE 0 TO OK ERASE ?"Now, you must specify the fields contained in &FILE.. Each field" ?"specification must contain a fieldname, fieldtype (either C for" ?"character fields, N for numeric fields, or L for logical fields)," ?"fieldlength, and the number of decimal positions in the field MAY be" ?"specified if it is a numeric field. Commas separate the fieldname," ?"fieldtype, fieldlength, and decimal specifications." ? ?"A enters each field. After you have entered the last field," ?"press the key again, and the file will be CREATEd." ? ?"By the way, whenever appears at the end of an entry line," ?"it means you should press the key. Don't type the word ." ? ?"Here are a couple of examples of fields. A 30 position character" ?"field called NAME would be entered as follows:" ? ?" NAME,C,30" ? ?"A 5 position numeric field called AMOUNT with 2 decimal positions would" ?"be entered as follows:" ? ?" AMOUNT,N,5,2" ? WAIT ERASE ?"OK. Try to CREATE a file. Make the file a name and address file" ?"that contains names and addresses of some of your friends (you do" ?"have some friends, right?)." ? ?"I'm going to let you specify only three fields in your file &STUDENT," ?"even though dBASE II lets you have up to 32 fields per file. We're" ?"trying to keep this first file simple." WAIT ERASE ?"I'm going to enter the first field for you, so it's easier for you to do" ?"the rest of the fields on your own. I'm going to call the first field" ?"NAME, and make it a character type field with a length of 30." STORE 1 TO FIELDNO ?"ENTER RECORD STRUCTURE AS FOLLOWS:" ? ?" FIELD NAME,TYPE,WIDTH,DECIMAL PLACES" ? DO WHILE OK = 0 STORE ' ' TO FIELDDEF DO WHILE FIELDDEF = ' ' STORE STR(FIELDNO,1) TO FIELDX STORE ' ' TO FIELDDEF IF FIELDNO = 1 ?" 1:NAME,C,30" ?"Press the key, and I'll enter it." SET CONSOLE OFF WAIT SET CONSOLE ON ?"Now, you enter the remaining fields for &FILE." STORE 'NAME,C,30' TO FIELDDEF ENDIF IF FIELDNO > 3 ?"Press the key. You've entered 3 fields, and that's enough for now," ?"even though dBASE II permits up to 32 fields." ACCEPT "Press the key" TO END STORE 'END' TO FIELDDEF STORE FIELDNO - 1 TO FNOHOLD STORE 1 TO OK LOOP ENDIF IF FIELDNO # 1 ACCEPT " &FIELDX" TO FIELDDEF IF !(FIELDDEF) = 'QUIT' QUIT ENDIF ENDIF IF FIELDDEF = ' ' STORE 'END' TO FIELDDEF STORE FIELDNO - 1 TO FNOHOLD LOOP ENDIF STORE TRIM(FIELDDEF) TO FIELDDEF STORE LEN('&FIELDDEF') TO LENGTH STORE 1 TO S STORE LENGTH TO L STORE @(',',$(FIELDDEF,S,L)) TO COMMAL IF COMMAL = 0 ?"You didn't enter commas separating the fieldname, fieldtype, and" ?"fieldlength specifications. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE 0 TO COUNT STORE FIELDDEF+',' TO FIELDDEF STORE LEN('&FIELDDEF') TO LENGTH,L STORE ' ' TO PARSE1,PARSE2,PARSE3,PARSE4 STORE 0 TO PARSERR DO WHILE COUNT < 4 STORE COUNT + 1 TO COUNT STORE STR(COUNT,1) TO COUNTX IF L = 0 STORE 4 TO COUNT LOOP ENDIF STORE @(',',$(FIELDDEF,S,L)) TO COMMAL IF COMMAL = 1 ?"Don't enter 2 commas in a row, or end a field with a comma. Please try" ?"it again." STORE 1 TO PARSERR STORE 4 TO COUNT LOOP ENDIF STORE $(FIELDDEF,S,(COMMAL - 1)) TO PARSE&COUNTX STORE S + COMMAL TO S STORE L - COMMAL TO L ENDDO IF PARSERR = 1 STORE 0 TO PARSERR STORE ' ' TO FIELDDEF LOOP ENDIF IF (PARSE1 = ' ' .OR. PARSE2 = ' ' .OR. PARSE3 = ' ') ?"NAME, TYPE, and WIDTH must be specified. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE !(PARSE1) TO PARSE1 IF LEN(PARSE1) > 10 ?"NAME specification may not exceed 10 characters. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE !(PARSE2) TO PARSE2 IF (PARSE2 # 'C' .AND. PARSE2 # 'N' .AND. PARSE2 # 'L') ?"TYPE must be either C, N, or L. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF IF !(PARSE2) = 'L' .AND. PARSE3 # '1' ?"LOGICAL types may only have a length of 1. Please try again." STORE ' ' TO FIELDDEF LOOP ENDIF IF (VAL(PARSE3) > 99 .AND. STR(VAL(PARSE3),3) # PARSE3) .OR.; (VAL(PARSE3) > 9 .AND. VAL(PARSE3) < 100 .AND. STR(VAL(PARSE3),2) # PARSE3); .OR. (VAL(PARSE3) < 10 .AND. STR(VAL(PARSE3),1) # PARSE3) ?"Only numbers, without decimal points, may be entered in the" ?"length specification. Please try again." STORE ' ' TO FIELDDEF LOOP ENDIF IF PARSE4 # ' ' IF (VAL(PARSE4) > 99 .AND. STR(VAL(PARSE4),3) # PARSE4) .OR.; (VAL(PARSE4) > 9 .AND. VAL(PARSE4) < 100 .AND. STR(VAL(PARSE4),2) # PARSE4); .OR. (VAL(PARSE4) < 10 .AND. STR(VAL(PARSE4),1) # PARSE4) ?"Only numbers, without decimal points, may be entered in the" ?"decimal specification. Please try again." STORE ' ' TO FIELDDEF LOOP ENDIF ENDIF IF (&PARSE3 < 1 .OR. &PARSE3 > 254) ?"Length must be between 1 and 254. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF IF PARSE4 # ' ' IF &PARSE4 >= &PARSE3 ?"The decimal specification must be at least one position shorter" ?"than the length specification. Please try it again." STORE ' ' TO FIELDDEF LOOP ENDIF ENDIF IF PARSE2 = 'C' .AND. PARSE4 # ' ' ?"Character fields may not have a decimal specification. Please try it" ?"again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE PARSE1 TO T:NAME DO TEACHXC IF T:NAMEOK # 1 STORE ' ' TO FIELDDEF LOOP ENDIF STORE PARSE1 TO F&FIELDX.:NAME STORE PARSE2 TO F&FIELDX.:TYPE STORE &PARSE3 TO F&FIELDX.:LEN IF PARSE4 = ' ' STORE 0 TO F&FIELDX.:DEC ELSE STORE &PARSE4 TO F&FIELDX.:DEC ENDIF STORE FIELDNO + 1 TO FIELDNO STORE ' ' TO FIELDDEF ENDDO IF FNOHOLD = 0 ?"I'm afraid you didn't enter any fields. Please try it again." LOOP ENDIF STORE 1 TO OK ENDDO ERASE ?"Immediately following the creation of a file, dBASE II asks:" ? ?"ENTER DATA NOW?" ? ?"To which you would reply Y if you wish to enter data into your file," ?"or N if you don't want to. The method and format for entering data" ?"using the APPEND command is identical to the ENTER DATA NOW? format." ?"We're going to use the APPEND format, so you will learn it, and the" ?"ENTER DATA NOW? format, at the same time." ? ?"I'm going to put your file definition away now in a safe place. I'll be" ?"back in a few moments." WAIT DO TEACH11 RETURN WAIT DO TEACH11 RETURN WAIT DO TEACH11 RETURN t" ?"again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE PARSE1 TO F&FIELDX.:NAME STORE PARSE2 TO F&FIELDX.:TYPE STORE &PARSE3 Tt" ?"again." STORE ' ' TO FIELDDEF LOOP ENDIF STORE PARSE1 TO F&FIELDX.:NAME STORE PARSE2 TO F&FIELDX.:TYPE STORE &PARSE3 TLDDEF LDDEF LDDEF LDDEF E3) < 10 .AND. STR(VAL(PARSE3),1) # PARSE3) ?ERASE ?"In lesson 9, &STUDENT, screen building and custom report building" ?"capabilities of dBASE II were covered. @ SAY was demonstrated, and" ?"the ZIP package functions mentioned." ? ?"Now, you are at the last lesson, lesson 10. If you thought that dBASE II" ?"has a lot of power based on what you've seen so far, this lesson should" ?"convince you that there is very little that you can't do with it." ?"Unlike much microcomputer software, dBASE II has programming features" ?"found only in rather powerful languages." ? ?"Every command that has been demonstrated can be placed in command" ?"procedures, which are the same as source programs for other languages." WAIT ERASE ?"In addition to the commands demonstrated so far, dBASE II also has" ?"DO, IF, and macro substitution capability. With these additional" ?"commands, not only do you have full programming capability, quite" ?"literally, you can do things that you would be unable to do, or do as" ?"easily, in conventional programming languages." WAIT ERASE ?"I have a command procedure that contains the commands necessary to" ?"illustrate these things. It is called CLIENTLS. Do not expect to" ?"become a programmer by reviewing this command procedure. It only serves" ?"as an illustration of the programming power within dBASE II. If you do" ?"understand programming concepts, a review of this command procedure," ?"coupled with everything else learned in these lessons, may convince" ?"you that you do not have to know any other language." WAIT ERASE ?"You're going to use a file called CLIENT, which contains client names and" ?"phone numbers (work, and home). The file also contains a field that" ?"indicates whether the client prefers to be called at work or at home." ?"Take a look at the structure of the file, &STUDENT.." ? STORE 'USE CLIENT' TO CHECK DO CHECKC ? STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC WAIT ERASE ?"The command procedure, essentially, reads every record on CLIENT, and" ?"displays the client's name and one of the phone numbers depending on the" ?"code contained in the work/home preference field. The command procedure" ?"contains a number of REMARK commands that do nothing but display items" ?"on the screen. Ignore them to determine the program flow." WAIT ERASE ?"The command procedure does not illustrate how to call other command" ?"procedures. You've been doing it every time you started me up by typing" ?"DO LESSONS. Now, I want you to start up the command procedure that" ?"illustrates DO, IF, and macro substitution." ? ?"Type DO CLIENTLS " STORE 'DO CLIENTLS' TO CHECK DO CHECKC WAIT ERASE ?"Well, that's all &STUDENT.. Remember, as I mentioned in lesson 4, you" ?"can create command procedures by using a line editor, a word processing" ?"package, or the MODIFY COMMAND command in dBASE II." WAIT ERASE ?"Before you QUIT for the last time though, I have a confession to make." ?"I didn't mention or show you all of the dBASE II commands. There are a" ?"few more, but I'm going to let you find out what they do on your own." ?"The commands I haven't mentioned are: COUNT, SUM, TOTAL, CANCEL," ?"CHANGE, EJECT, ERASE, LOOP, and NOTE (but REMARK, which is used in the" ?"CLIENTLS command procedure, is similar to NOTE)." WAIT ERASE ?"Well, it's time to QUIT for the last time. Please enter QUIT." STORE 'QUIT' TO CHECK DO CHECKC RETURN ?" NOTE an ?" NOTE an anguages." ? ?"Every command that has been demonstrated can be placed in command" ?"procedures, which are the same as source programs for other languages." WAIT ERASE ?"In addition to the commands demonstrated so far, dBASE II also has" ?"DO, IF, and macro substitution capability. With these additional" ?"commands, not only do you have full programming capability, quite" ?"literally, you can do things that you would be unable to do, or do as" ?"easily, in conventional programming langSET CONSOLE OFF USE MASTE DELETE ALL PACK STORE 0 TO COUNT DO WHILE COUNT < FNOHOLD STORE COUNT + 1 TO COUNT STORE STR(COUNT,1) TO COUNTX APPEND BLANK STORE !(F&COUNTX.:NAME) TO F&COUNTX.:NAME REPLACE FIELD:NAME WITH F&COUNTX.:NAME REPLACE FIELD:TYPE WITH F&COUNTX.:TYPE REPLACE FIELD:LEN WITH F&COUNTX.:LEN REPLACE FIELD:DEC WITH F&COUNTX.:DEC ENDDO IF FILE("&FILE") USE DELETE FILE &FILE ENDIF USE CREATE &FILE FROM MASTE USE SET CONSOLE ON ERASE ?"You've created &FILE., &STUDENT, and you're ready to USE it." ? ?"Type USE &FILE " STORE 'USE &FILE' TO CHECK DO CHECKC ?"Now DISPLAY the STRUCTURE of &FILE." ? ?"Type DISPLAY STRUCTURE " STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC WAIT ERASE ?"There are several ways to add data to a file in dBASE II. You" ?"can APPEND, EDIT, or INSERT data. We're going to use the APPEND" ?"command. EDIT and INSERT work in a similar fashion, and we will use" ?"EDIT in lesson 2. For now, let's use APPEND. Type APPEND and press" ?", and the screen will be formatted to enter data in &FILE.." ?"Enter data into each field, and press to go to the next" ?"field. After you've entered several records, press before" ?"entering data in the first field of the next record. You will then come" ?"back to me, and we will continue the lesson." ? ?"Please don't enter more than 10 records into the file. dBASE II permits" ?"over 65,000 records per file, but that's too much for this example." ? STORE 0 TO AOK DO WHILE AOK = 0 ?"Type APPEND " STORE 'APPEND' TO CHECK DO CHECKC GOTO TOP STORE 0 TO RECCOUNT DO WHILE .NOT. EOF STORE RECCOUNT + 1 TO RECCOUNT SKIP ENDDO IF RECCOUNT = 0 ?"I'm afraid you didn't enter any records onto &FILE.. When the" ?"first entry screen appears, don't press the key immediately." ?"Instead, enter data for at least one of the screens." ? LOOP ELSE STORE 1 TO AOK GOTO TOP ENDIF ENDDO ERASE ?"Now you have some data on your file. You may view the data on &FILE" ?"using the DISPLAY command. A single record may be displayed, or you may" ?"see all of records in the file. DISPLAY, with no qualifier, shows you" ?"the record you are currently working with. DISPLAY ALL displays all" ?"of the records in the file. We're going to display all of the records" ?"in &FILE.." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Now let's try a REPORT, &STUDENT.." WAIT ERASE ?"To generate a report, type REPORT and press the key. A file" ?"must be in USE when you do a report, but we are already USING &FILE.." ?"You will be asked for fields to be printed in the REPORT, and the fields" ?"must be within the file currently in USE. Right now, that's &FILE.. I'm" ?"going to DISPLAY the STRUCTURE of &FILE, so you use correct field names" ?"in your report. When you do a report on your own, you should DISPLAY the" ?"STRUCTURE of the file in USE, just like I'm going to do. Otherwise," ?"you're liable to be part way into the report definition, and have to" ?"cancel it because you can't remember how to spell a fieldname." WAIT ERASE DISP STRU ? ?"Type REPORT " STORE 'REPORT' TO CHECK DO CHECKC1 RELEASE PRINTER,DRIVE,TDRIVE,LENGTH,S,L,COMMAL,PARSE1,; PARSE2,PARSE3,PARSE4,PARSERR,END,AOK,RECCOUNT DO TEACH1R WAIT ?"Before you try dBASE II on your own, there is one other thing you should" ?"be aware of. When you make an error entering a command when I'm not" ?"around, dBASE II will not tell you what your mistake was." DO TEACH1S ERASE ?"I'd like you to QUIT now, but after you have, I would like you to try" ?"dBASE II on your own." ? ?"After you've QUIT, please: 1) Start up dBASE II again and enter a date," ?"2) CREATE a file (the same one you did with me if you'd like, 3) USE" ?"the file, 4) DISPLAY it's STRUCTURE, 5) DISPLAY it's contents, 6) prepare" ?"a REPORT, and 7) QUIT dBASE II" ? ?"all without my help, &STUDENT.." ? ?"Type QUIT " USE DELETE FILE &FILE DELETE FILE &RNAME..FRM STORE 'QUIT' TO CHECK DO CHECKC RETURN ?"You've created &FILE., &STUDENT, and you're ready to USE it." ? ?"Type USE &FILE " STORE 'USE &FILE' TO CHECK DO CHECKC ?"Now DISPLAY the STRUCTURE of &FILE." ? ?"Type DISPLAY STRUCTURE " STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC WAIT ERASE ?"There are several ways to add data to a file in dBASE II. You" ?"can APPEND, EDIT, or INSERT data. We're going to use the APPEND" ?"command. EDIT and INSERT work in a similar fashion, and we will use" ?"EDIT in lesson 2. For nowERASE ?"Like files, dBASE II names REPORT formats. Like file names, report" ?"format names may not exceed 8 characters." ? ?"Please enter a formname for your REPORT and press the key." ? STORE 0 TO OK DO WHILE OK = 0 ACCEPT 'ENTER REPORT FORM NAME' TO RNAME STORE !(RNAME) TO RNAME IF RNAME = 'QUIT' QUIT ENDIF IF RNAME = ' ' ?"I'm afraid you didn't enter anything. Please try again." LOOP ENDIF STORE TRIM('&RNAME') TO RNAME IF LEN('&RNAME') > 8 ?"I'm afraid you entered a name with more than 8 characters. Please try" ?"again." LOOP ENDIF IF @(' ','&RNAME') # 0 ?"Imbedded blanks are not permitted in the REPORT name. Please try again." LOOP ENDIF STORE RNAME TO T:NAME DO TEACHXC IF T:NAMEOK # 1 LOOP ENDIF STORE 1 TO OK ENDDO ?"Now, dBASE II needs to know three things: 1)The print position of the left" ?"margin of the report (the M specification), 2)The number of lines that can" ?"be contained on one page of the report (the L specification), and 3)The" ?"width of the page in characters, or the right hand margin of the report" ?"(the W specification)." ? ?"If you don't enter these specifications, dBASE II automatically chooses" ?"(by default), M=1, L=60, W=80. We're going to change these defaults," ?"and set M to 1, L to 55, and W to 70." ? ?"Type M=1,L=55,W=70 " STORE 'M=1,L=55,W=70' TO CHECK STORE 'ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE,W=PAGE WIDTH' TO PROMPT DO CHECKC1 ERASE ?"You may optionally specify a page heading on the REPORT. Let's put one" ?"on it." ? ?"Type Y " STORE 'Y' TO CHECK STORE 'PAGE HEADING(Y/N)?' TO PROMPT DO CHECKC1 ?"You may now enter the heading that will appear at the top of each page" ?"of your report. dBASE II will automatically center the page heading for" ?"you. Since this is a name and address report, let's call the report" ?"just that." ? ?"Type NAME AND ADDRESS REPORT " STORE 'ENTER PAGE HEADING' TO PROMPT STORE 'NAME AND ADDRESS REPORT' TO CHECK DO CHECKC1 ERASE ?"Next, dBASE II will ask if you'd like to double space your report, and" ?"if you wish to have numeric fields totaled at the end of the report." ?"Besides report totals, dBASE II permits sub-totaling on a field in your" ?"file. Let's not ask for any totals for this report (they aren't rele-" ?"vant for a name and address file), but if you'd like to try some" ?"totaling after the lesson is over, do that." ? ?"Type Y " STORE 'DOUBLE SPACE REPORT?(Y/N)' TO PROMPT STORE 'Y' TO CHECK DO CHECKC1 ? ?"Type N " STORE 'TOTALS REQUIRED?(Y/N)' TO PROMPT STORE 'N' TO CHECK DO CHECKC1 ERASE ?"Next, dBASE II will ask which fields in &FILE are to be printed on the" ?"REPORT &RNAME.. You may include one or all of the fields in &FILE in the" ?"report. For each field, you must specify the number of print positions" ?"the field will occupy on the report. The width on the report may be less" ?"than the width of the field on the file. For example, if an address" ?"field is 40 characters wide on the file, you could request that it be" ?"printed in only 10 or 15 positions on the report. This automatic" ?"wraparound feature is very nice when there is limited width on your CRT" ?"or printer, and you have large width fields on your file." WAIT ERASE ?"One final caution before you start entering the width and field" ?"specifications for your report. Make sure that the sum of all the field" ?"widths does not exceed the width specified in the report width" ?"specification (W specification, 70 for our report). There is no auto-" ?"matic wraparound facility for this." WAIT ERASE ?"Well, let's give it a try. When prompted, enter the field print width," ?"followed by a comma, followed by the name of the field in &FILE.. Here's" ?"an example for a field called NAME which is 30 characters in width on" ?"the file, but which is to be printed within 20 characters on the report:" ?" 20,NAME" ?"After each field entry, press the key, and after you have entered" ?"all of the fields to be printed, press the RETURN key again. Then you'll" ?"see your report on the display screen." WAIT STORE 0 TO ROK DO WHILE ROK = 0 DO TEACH1R1 ENDDO RETURN ort. Make sure that the sum of all the field" ?"widths does s for your report. Make sure that the sum of all the field" ?"widths does r report. Make sure that the sum of all the field" ?"widths does ur report. Make sure that the sum of all the field" ?"widths does ort. Make sure that the sum of all the field" ?"widths does Make sure that the sum of all the field" ?"widths does . Make sure that the sum of all the field" ?"widths does our report. Make sure that the sum of all the field" ?"widths does STORE 0 TO ROK ure that the sum of all the field" ?"widths does STORE 0 TO ROK ure that the sum of all the field" ?"widths does STORE 0 TO ROK tion), 2)The number of liERASE ?"I'll enter the report specification for the NAME field for you, so you" ?"know how it's done. I'm going to use the wraparound feature and print" ?"NAME in 15 positions even though the field is 30 characters wide." ? ?"COL WIDTH,CONTENTS" STORE 1 TO RCOUNT STORE 0 TO OK STORE 0 TO FIRST DO WHILE OK = 0 IF RCOUNT = 1 ?" 1:15,NAME" ? ?"Press the key, and I'll enter it." SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF STORE STR(RCOUNT,1) TO RCOUNTX IF RCOUNT # 1 IF FIRST = 0 STORE 1 TO FIRST ?"You're on your own now to enter fields and headings on your report." ?"Good luck &STUDENT.." ENDIF IF RCOUNT > 3 ?"I believe you have entered all of the fields for the report. Please press" ?"the key to continue." WAIT STORE 1 TO OK LOOP ENDIF ACCEPT ' &RCOUNTX' TO R&RCOUNTX IF !(R&RCOUNTX) = 'QUIT' QUIT ENDIF ELSE STORE '15,NAME' TO R&RCOUNTX ENDIF IF R&RCOUNTX = ' ' STORE 1 TO OK LOOP ENDIF STORE TRIM(R&RCOUNTX) TO R&RCOUNTX STORE !(R&RCOUNTX) TO R&RCOUNTX STORE @(',',R&RCOUNTX) TO COMMA IF COMMA = 1 ?"A comma cannot be the first character in a report field specification." ?"Please try again." LOOP ENDIF STORE COMMA + 1 TO COMMAN IF COMMA = 0 ?"You didn't enter a comma between the width and contents specifications." ?"Please try again." LOOP ENDIF STORE LEN(R&RCOUNTX) TO LR STORE LR - COMMA TO LR STORE @(',',$(R&RCOUNTX,COMMAN,LR)) TO COMMA2 IF COMMA2 # 0 ?"I,m afraid you entered more than 1 comma. Please try again." LOOP ENDIF STORE $(R&RCOUNTX,COMMAN,LR) TO FHNAME STORE 0 TO RLOOP DO WHILE RLOOP < FNOHOLD STORE RLOOP + 1 TO RLOOP STORE STR(RLOOP,1) TO RLOOPX IF $(R&RCOUNTX,COMMAN,LR) = F&RLOOPX.:NAME STORE 1 TO FOUND STORE FNOHOLD TO RLOOP ELSE STORE 0 TO FOUND ENDIF ENDDO IF FOUND # 1 ?"I'm afraid the fieldname &FHNAME does not exist on &FILE." STORE 0 TO RLOOP1 ?"Valid field name(s) is/are:" DO WHILE RLOOP1 < FNOHOLD STORE RLOOP1 + 1 TO RLOOP1 STORE STR(RLOOP1,1) TO RLOOPX STORE F&RLOOPX.:NAME TO HLDNAME ?" &HLDNAME" ENDDO LOOP ELSE STORE $(R&RCOUNTX,1,COMMA -1) TO R&RCOUNTX.LEN STORE VAL(R&RCOUNTX.LEN) TO R&RCOUNTX.LENN IF R&RCOUNTX.LENN > 99 STORE STR(R&RCOUNTX.LENN,3) TO RLENGTH ELSE IF R&RCOUNTX.LENN > 9 STORE STR(R&RCOUNTX.LENN,2) TO RLENGTH ELSE STORE STR(R&RCOUNTX.LENN,1) TO RLENGTH ENDIF ENDIF IF RLENGTH # R&RCOUNTX.LEN ?"The width must be numeric. Please try again." LOOP ENDIF IF R&RCOUNTX.LENN < 1 .OR. R&RCOUNTX.LENN > 254 ?"The width must be a number between 1 and 254. Please try again." LOOP ENDIF IF RCOUNT = 1 ?"I'll enter the heading for the NAME field for you." ?"ENTER HEADING: NAME OF PERSON." ? ?"Please press the key." STORE 'NAME OF PERSON' TO H&RCOUNTX SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF IF RCOUNT # 1 ?"Now enter the report column heading for the &FHNAME field." ACCEPT 'ENTER HEADING' TO H&RCOUNTX IF !(H&RCOUNTX) = 'QUIT' QUIT ENDIF ENDIF ENDIF STORE RCOUNT + 1 TO RCOUNT ENDDO STORE 0 TO TOTLEN STORE 1 TO COUNT DO WHILE COUNT < RCOUNT STORE STR(COUNT,1) TO COUNTX STORE R&COUNTX.LENN + TOTLEN TO TOTLEN STORE COUNT + 1 TO COUNT ENDDO IF TOTLEN > 70 ?"I'm afraid the sum of the print field widths is greater than 70 (for" ?"this report, we set the report width to 70). You'll have to enter them" ?"again." WAIT RETURN ENDIF ?"I've got to put your report away now. dBASE II won't take as long as I" ?"do to show you your report, but I'm a little slower. I'll be back in a" ?"few moments." WAIT USE MASTE DELETE ALL PACK APPEND BLANK REPLACE FIELD:NAME WITH 'FIELD' REPLACE FIELD:TYPE WITH 'C' REPLACE FIELD:LEN WITH 80 REPLACE FIELD:DEC WITH 0 IF FILE("T1RDBF") DELETE FILE T1RDBF ENDIF CREATE T1RDBF FROM MASTE USE T1RDBF APPEND BLANK REPLACE FIELD WITH 'M=1,L=55,W=70' APPEND BLANK REPLACE FIELD WITH 'Y' APPEND BLANK REPLACE FIELD WITH ' NAME AND ADDRESS REPORT' APPEND BLANK REPLACE FIELD WITH 'Y' APPEND BLANK REPLACE FIELD WITH 'N' STORE 0 TO FRCOUNT DO WHILE FRCOUNT < RCOUNT - 1 STORE FRCOUNT + 1 TO FRCOUNT STORE STR(FRCOUNT,1) TO FRCOUNTX APPEND BLANK REPLACE FIELD WITH R&FRCOUNTX APPEND BLANK REPLACE FIELD WITH H&FRCOUNTX ENDDO COPY TO &RNAME..FRM SDF USE &FILE REPORT FORM &RNAME ?"Nice report, &STUDENT!" WAIT ERASE ?"Once you've created a report, you can request it again, without" ?"re-entering the report specifications, by referring to it's formname." ?"In our example, that's &RNAME.. Let's see the report one more time." ? ?"Type REPORT FORM &RNAME " STORE 'REPORT FORM &RNAME' TO CHECK DO CHECKC1 REPORT FORM &RNAME WAIT ERASE ?"By adding the phrase TO PRINT to the report request, you can direct the" ?"report to the printer, and it will appear on the CRT and the printer." ?"In our example, the command would be: REPORT FORM &RNAME TO PRINT." STORE 1 TO ROK RETURN e ra ?"Nice raE ?"Nice raME ?"Nice ra ?"Nice ra ?"Nice ra report, you can request it again, without" ?"re-entering the report specifica- tions, by referring to it's formname." ?"In our example, that's &RNAME. Let's see the report one more time." o put your report away now. dBASEII won't take as long as I" ?"do to show you your report, but I'm a little slower. I'll ?"Nice ra ?"Nice ra ?"Nice ra report, you can request it again, without" ?"re-entering the report specifica- tions, by referring to it's formname." ?"In our example, that's &RNAME. Let's see the report one more time." o put your report away now. dBASEII won't take as long as I" ?"do to show you your report, but I'm a little slower. I'll o put your report away now. dBASEII won't take as long as I" ?"do to show you your report, but I'm a little slower. I'll STORE STR(FRCOUNT,1) TO FRCOUNTX APPEND BLANK REPLACE FIELD WITH R&FRCOUNTX APPEND BLANK STORE STR(FRCOUNT,1) TO FRCOUNTX APPEND BLANK REPLACE FIELD WITH R&FRCOUNTX APPEND BLANK COUNT + 1 TO RCOUNT ENDDO STORE 0 TO TOTLEN STORE 1 TO COUNT DO WHILE COUNT < RCOUNT STORE STR(COUNT,1) TO COUNTX STORE R&COUNTX.LENN + TOTLEN TO TOTLEN STORE COUNT + 1 TO COUNT ENDDO IF TOTLEN > 70 ?"I'm afraid the sum of the print field widths is greater than 70 (for" ?"this reWAIT ERASE ?"Instead, an error message similar to the one below will appear." ? ?" *** SYNTAX ERROR ***" ?" ?" ?" command" ? ?"CORRECT AND RETRY?(Y/N)" ? ?"You then have the opportunity to correct the command if you wish." ?"Try this example. Let's say that you misspell USE when you wish to USE" ?"&FILE.. Instead of entering USE &FILE, you enter UES &FILE.." ? ?"Type UES &FILE " STORE 'UES &FILE' TO CHECK DO CHECKC1 ?"*** SYNTAX ERROR ***" ?" ?" ?" &COMMAND" ?"CORRECT AND RETRY? (Y/N)" WAIT ERASE ?"If you enter a Y, some messages will appear that are shown to give you" ?"the opportunity to change characters within the command. In our case," ?"we want to change the letters ES to SE, so USE is spelled properly." ?"Give it a try, &STUDENT.." ? ?"Type Y " STORE 'Y' TO CHECK STORE 'CORRECT AND RETRY (Y/N)?' TO PROMPT DO CHECKC1 ?"Now, dBASE II will display the message CHANGE FROM:. At this point, it" ?"wants to know which characters in the command have to be changed. For" ?"you, it's the letters ES." ? ?"Type ES " STORE 'ES' TO CHECK STORE 'CHANGE FROM' TO PROMPT DO CHECKC1 WAIT ERASE ?"Then dBASE II will display the message CHANGE TO: For us, ES has to be" ?"changed to SE." ? ?"Type SE " STORE 'SE' TO CHECK STORE 'CHANGE TO' TO PROMPT DO CHECKC1 WAIT ERASE ?"Then, dBASE II will display the corrected command, like this:" ? ?"USE &FILE" ? ?"Then dBASE II will ask if any more corrections are desired. We have no" ?"more to make, since the command is OK now, so you should enter N." ? ?"Type N " STORE 'N' TO CHECK STORE 'MORE CORRECTIONS' TO PROMPT DO CHECKC1 WAIT ERASE ?"Sometimes, it's easier to re-enter the entire command, rather than go" ?"through the CHANGE FROM, CHANGE TO procedure. To do this, respond N" ?"when the CORRECT AND RETRY (Y/N) message is displayed. A period (.) will" ?"then be displayed, and the command can be re-entered in it's entirety." ? ?"Generally, a spelling error is the cause of a SYNTAX ERROR message, so" ?"be very careful how you spell things. Some other frequent causes of" ?"errors are field names being used when they do not exist on the file" ?"being USEd, and attempting to USE a file which is not on the disk drive" ?"that dBASE II programs are on. For example, if dBASE II was initiated on" ?"drive B:, and &FILE is on drive A:, we would have had to enter USE" ?"A:&FILE in our example above." WAIT ERASE ?"One final thing for this lesson. To leave dBASE II, and return to the" ?"operating system, the QUIT command is used." WAIT ERASE RETURN is displayed. A period (.) will" ?"then be displayed, and the command can be re-entered in it's entirety." ? ?"GeneralERASE ?"In lesson 1, you learned how to CREATE a file, APPEND data to it, DISPLAY" ?"its STRUCTURE and contents, generate a REPORT, correct syntax errors," ?"and QUIT dBASE II." ? ?"In this second lesson, you will learn how to EDIT data in a file, DELETE" ?"records from a file, RECALL records which have been deleted, REPLACE" ?"the contents of fields, and also, how to position yourself in a file by" ?"using GO and SKIP commands. For this lesson, we'll use a name and" ?"address file that contains the names and addresses of some of my" ?"friends." ? ?"You can name the file. Remember, the name cannot exceed 8 characters." STORE 0 TO OK DO WHILE OK = 0 ? ACCEPT "Enter the filename" TO FILE STORE !(FILE) TO FILE IF FILE = 'QUIT' QUIT ENDIF IF LEN("&FILE") > 8 ?"Filename cannot exceed 8 characters. Please try again." LOOP ENDIF IF FILE = ' ' ?"You didn't enter a filename. Please try again." LOOP ENDIF IF @(' ','&FILE') # 0 ?"Imbedded blanks are not permitted in the filename. Please try again." LOOP ENDIF STORE FILE TO T:NAME DO TEACHXC IF T:NAMEOK # 1 LOOP ENDIF STORE 1 TO OK ENDDO USE TUTNABK COPY TO &FILE WAIT ERASE ?"You can now start USEing &FILE.. Remember the format of the USE command?" ?"In case you don't, I'll refresh your memory. Format of the USE command is:" ? ?" USE filename" ? ?"In this case, the command is USE &FILE.." ? ?"Type USE &FILE " STORE 'USE &FILE' TO CHECK DO CHECKC WAIT ERASE ?"Now, see what the structure of &FILE is." ? ?"Type DISPLAY STRUCTURE " STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC ?"Now, DISPLAY ALL the records in &FILE.." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Let's EDIT some records, to change the contents of some fields" ?"within the records. We'll start with record 1, but you may EDIT" ?"more records by pressing the key after editing the last field" ?"in a record. When you press the key while positioned at the" ?"the last field in a record, dBASE II will position you at the first" ?"field of the next record. You may then EDIT that record, or press" ?"the CONTROL (ctrl) and W keys at the same time to discontinue the" ?"EDIT." ? ?"NOTE: There are a number of ctrl functions to position the cursor while" ?"in EDIT (or BROWSE, APPEND, MODIFY, and other full screen commands)." ?"The dBASE II reference card which is packaged with dBASE II LESSONS" ?"contains a diagram and explanation of all keys, and their functions." ?"Please look at that section of the reference card now." WAIT ERASE ?"Type EDIT 1 " STORE 'EDIT 1' TO CHECK DO CHECKC ERASE ?"Let's DISPLAY the data in &FILE now, so you can see it with the" ?"changes you made." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC DO TEACH2R ERASE ?"To look at the last record, use the GOTO command followed by the" ?"the DISPLAY command." ? ?"Type GOTO BOTTOM " STORE 'GOTO BOTTOM' TO CHECK DO CHECKC ?"Now, type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"Now let's DELETE the last record." ? ?"Type DELETE " STORE 'DELETE' TO CHECK DO CHECKC WAIT ERASE ?"Now, let's DISPLAY ALL the records on &FILE.." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Notice the * in the first position of the last record. That means it's" ?"flagged for deletion. Any record flagged for deletion will be" ?"physically deleted from the file when a PACK command is executed. Let's" ?"get rid of that last record." WAIT ERASE ?"Type PACK ." STORE 'PACK' TO CHECK DO CHECKC ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Notice the last record is no longer there. You can do that to any" ?"record with the DELETE command." WAIT ERASE ?"You can RECALL records flagged for deletion, &STUDENT, with the RECALL" ?"command. Let's try it. First, you will have to DELETE a record, then" ?"do a DISPLAY to see that it was flagged for deleteion, then, RECALL it." ?"Do a final DISPLAY to see that it is no longer flagged for deletion." ? ?"Type DELETE " STORE 'DELETE' TO CHECK DO CHECKC DO TEACH21 RETURN CHECK DO CHECKC DO TEACH21 RETURN SE ?"Now, let's look at the last record. The GOTO coSE ?"Now, let's look at the last record. The GOTO coSE ?"Now, let's look at the last record. The GOTO cole when a PACK command is executed. Let's" ?"get rid of that last record." WAIT le when a PACK command is executed. Let's" ?"get rid of that last record." WAIT le when a PACK command is executed. Let's" ?"get rid of that last record." WAIT TRUCTURE " STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC ?"Now, DISPLAY ALL the records in &FILE.." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Let's EDIT some records, to change the contents of some fields" ?"within the records. We'll start with record 1, but you may EDIT" ?"more records by pressing the key after editing the last ?"Now, let's see if the record is flagged for deletion." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"The record is flagged for deletion. Let's get it back." WAIT ERASE ?"Type RECALL " STORE 'RECALL' TO CHECK DO CHECKC ? ?"Now, type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Only one more thing in this lesson. You can SKIP forward and backward" ?"in a dBASE II file. Let's GOTO the first record in &FILE, and then" ?"SKIP to the second record." ? ?"Type GOTO TOP " STORE 'GOTO TOP' TO CHECK DO CHECKC ? ?"Now, type SKIP " STORE 'SKIP' TO CHECK DO CHECKC ? ?"Now, type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"That's what record 2 looks like. You can also SKIP backwards any number" ?"of records by preceding the number of records to be SKIPped with a" ?"minus (-) sign." WAIT ERASE ?"Let's go back 1 record to the first record in the file." ? ?"Type SKIP - 1 " STORE 'SKIP - 1' TO CHECK DO CHECKC ?"Now, DISPLAY the first record, &STUDENT.." ? ?"Type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"And that's it for lesson 2. After you QUIT this time, get back into" ?"dBASE II and practice with EDIT (and INSERT and BROWSE, which are other" ?"commands for data editing), DELETE, RECALL, REPLACE, GOTO, and SKIP." ?"I'm going to go away now." USE DELETE FILE &FILE ? ?"Type QUIT " STORE 'QUIT' TO CHECK DO CHECKC RETURN C C  ?"Now, let's see if the record is flagged for deletion." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"The record is flagged for deletion. Let's get it back." WAIT ERASE ?"Type RECALL " STORE 'RECALL' TO CHECK DO CHECKC ? ?"Now, type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Only one more thing in this lesson. You can SKIP forward and backward" ?"in a dBASE II file. Let's GOTO the first record in &FILE, and then" ?"SKIP to the second record." ? ?"Type GOTO TOP " STORE 'GOTO TOP' TO CHECK DO CHECKC ? ?"Now, type SKIP " STORE 'SKIP' TO CHECK DO CHECKC ? ?"Now, type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"That's what record 2 looks like. You can also SKIP backwards any number" ?"of records by preceding the number of records to be SKIPped with a" ?"minus (-) sign." WAIT ERASE ?"Let's go back 1 record to the first record in the file." ? ?"Type SKIP -1 " STORE 'SKIP -1' TO CHECK DO CHECKC ?"Now, DISPLAY the first record, &STUDENT.." ? ?"Type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"And that's it for lesson 2. After you QUIT this time, get back into" ?"dBASE II and practice with EDIT (and INSERT and BROWSE, which are other" ?"commands for data editing), DELETE, RECALL, REPLACE, GOTO, and SKIP." ?"I'm going to go away now." USE DELETE FILE &FILE ? ?"Type QUIT " STORE 'QUIT' TO CHECK DO CHECKC RETURN C C  WAIT ERASE ?"There's another way to change data in fields besides the EDIT command." ?"Unlike EDIT, the REPLACE command does not build a screen for you. It" ?"changes the field specified in the REPLACE command. I've positioned" ?"&FILE to the first record. Let's see what it contains, &STUDENT.." GOTO TOP ? ?"Type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC WAIT ERASE ?"Let's REPLACE the field NAME with your name, &STUDENT.. To do that" ?"type:" ? ?" REPLACE NAME WITH '&STUDENT' " ? ?"Notice the quotes around &STUDENT.. Since NAME is a character field," ?"quotation marks are necessary. Quotes are not required for numeric" ?"fields, however. Let's give it a try." STORE 0 TO OK DO WHILE OK = 0 ? ?"Type REPLACE NAME WITH '&STUDENT' " STORE "REPLACE NAME WITH '&STUDENT'" TO CHECK DO CHECKC ?"Now, let's DISPLAY the record to see the change." ? ?"Type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC WAIT RETURN ich are other" ?"commands for data editing), DELETE, RECALL, REPLACE, GOTO, and SKIP." ?"I'm going to go away now." USE DELETE FILE &FILE ? ?"Type QUIT " STORE 'QUIT' TO CHECK DO CHECKC RETURN ERASE ?"In lesson 2, you learned how to edit data in files using the EDIT," ?"DELETE, RECALL, and REPLACE commands. You also learned how to" ?"position the dBASE II record pointer using the GOTO and SKIP" ?"commands." ? ?"In lesson 3, we're going to learn about 'scope' and 'for' specifications" ?"in dBASE II. 'Scope' is used to tell dBASE II whether the current," ?"next n, or all records within a file are to be considered in the" ?"execution of a command. 'For' specifies which groups or sets of" ?"records are to be considered in the execution of a command. 'Scope'," ?"and 'for' can be used individually, or in the same command with each" ?"other." ? ?"You'll recall in lesson 2 that we used the command DISPLAY ALL to" ?"display all of the records in a file. ALL is a 'scope' qualifier. Had" ?"we just said DISPLAY, only the current record in the file would have" ?"been displayed. With ALL, everyone of the records in the file were" ?"displayed." ? WAIT ERASE ?"'Scope' has 3 possibilities. If it is omitted, only the current record" ?"is processed by the command. If ALL is specified, all records in the" ?"file in USE are processed. If NEXT n (where n is a number) is" ?"specified, the next n records are processed by the command." ? ?"Let's try some examples. I have a name and address file saved that we" ?"can use for this lesson. It's the same file we used in lesson 2. If" ?"you'll name it for me, we can use it again." ? STORE 0 TO OK DO WHILE OK = 0 ACCEPT "Enter the filename " to FILE STORE !(FILE) TO FILE IF FILE = 'QUIT' QUIT ENDIF IF LEN("&FILE") > 8 ?"Filename may not exceed 8 characters. Please try again." LOOP ENDIF IF FILE = ' ' ?"You didn't enter a filename. Please try again." LOOP ENDIF IF @(' ','&FILE') # 0 ?"Imbedded blanks are not permitted in the filename. Please try again." LOOP ENDIF STORE FILE TO T:NAME DO TEACHXC IF T:NAMEOK # 1 LOOP ENDIF STORE 1 TO OK ENDDO WAIT SET CONSOLE OFF USE TUTNABK COPY TO &FILE SET CONSOLE ON ERASE ?"First, tell dBASE II to USE &FILE.." ? ?"Type USE &FILE " STORE 'USE &FILE' TO CHECK DO CHECKC ?"Now DISPLAY the first 3 records in &FILE.." ? ?"Type DISPLAY NEXT 3 " STORE 'DISPLAY NEXT 3' TO CHECK DO CHECKC ?"Now let's DELETE the first 4 records in &FILE.. GOTO the TOP of" ?"&FILE.." ? ?"Type GOTO TOP " STORE 'GOTO TOP' TO CHECK DO CHECKC ? ?"Now, type DELETE NEXT 4 " STORE 'DELETE NEXT 4' TO CHECK DO CHECKC WAIT ERASE ?"Now let's DISPLAY ALL of the records again." ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Notice that the first 4 records are flagged for deletion." WAIT ERASE ?"To 'unflag' them you can RECALL ALL, or RECALL NEXT 4 (only after you" ?"GOTO TOP). RECALL ALL." ? ?"Type RECALL ALL " STORE 'RECALL ALL' TO CHECK DO CHECKC ? ?"Now, type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"The first 4 records have been RECALLed." WAIT ERASE DO TEACH3F RETURN nd. 'Scope'," ?"and 'for' can be used individually, or in the same command with each" ?"other." ? ?"You'll recall in lesson 2 that we used the command DISPLAY ALL to" ?"display all of the records in a file. ALL is a 'scope' qualifier. Had" ?"we just said DISPLAY, only the current record in the file would have" ?"been displayed. With ALL, everyone of the records in the file were" ?"displayed." ? WAIT ERASE ?"'Scope' has 3 possibilitiesWAIT ERASE ?"Everything you have learned so far is nice, but what's a computer" ?"without computations? dBASE II can compute very well. It can add," ?"subtract, multiply, and divide. I've made a file to illustrate how" ?"computations work in dBASE II. Please be aware, however, that " ?"computations are not limited to the contents of files. Computations" ?"can be performed on memory variables, they can be performed right" ?"on the screen, and can be used within expressions (you'll learn" ?"what all of these things are in future lessons). For now though, we'll" ?"see how can they can be used with the things you've learned." ? ?"I've CREATEd a file called COMPUTE, which contains payroll information" ?"for some of the people in the White House." WAIT ERASE ?"This is what the structure of the file looks like." USE COMPUTE DISP STRU ?"I also created a report to print the file, and show some totals of the" ?"information. I'll print the report for you." WAIT TO WAITM REPLACE ALL TAXES WITH 0 REPLACE ALL NETSALARY WITH 0 REPORT FORM COMPUTE ?"Notice that the TAXES and NET SALARY fields contain zeroes. You're going" ?"to perform some computations to place amounts in these fields." WAIT ERASE ?"Using the REPLACE command, we're going to compute TAXES by multiplying the" ?"SALCLASS field by .06, and then multiplying the MONTHSAL field by that" ?"product. The * in the REPLACE command indicates multiplication." ? ?"Type REPLACE ALL TAXES WITH ((SALCLASS * .06) * MONTHSAL) " STORE 'REPLACE ALL TAXES WITH ((SALCLASS * .06) * MONTHSAL)' TO CHECK DO CHECKC ? ?"Now, you're going to compute NETSALARY by subtracting TAXES from MONTHSAL." ? ?"Type REPLACE ALL NETSALARY WITH MONTHSAL - TAXES " STORE 'REPLACE ALL NETSALARY WITH MONTHSAL - TAXES' TO CHECK DO CHECKC ? ?"Finally, you're going to compute YTDSALARY (year-to-date salary) by" ?"adding NETSALARY to YTDSALARY." ? ?"Type REPLACE ALL YTDSALARY WITH YTDSALARY + NETSALARY " STORE 'REPLACE ALL YTDSALARY WITH YTDSALARY + NETSALARY' TO CHECK DO CHECKC WAIT ERASE ?"Now, &STUDENT, print the report with the computed fields in the file." ? ?"Type REPORT FORM COMPUTE " STORE 'REPORT FORM COMPUTE' TO CHECK DO CHECKC ? ?"The only computation facility you didn't use was divide. A '/' is used to" ?"perform that operation.?" RETURN - date salary) by adding NETSALARY to YTDSALARY. The" ?"command to do that looks like this: REPLACE ALL YTDSALARY WITH YTDSALARY" ?"+ NETSALARY The + indicates addition. Now, I'll do all that, an- date salary) by adding NETSALARY to YTDSALARY. The" ?"command to do that looks like this: REPLACE ALL YTDSALARY WITH YTDSALARY" ?"+ NETSALARY The + indicates addition. Now, I'll do all that, an ry variables, they can be performed right" ?"on the screen, and can be used within expressions (you'll learn" ?"what ERASE ?"As I mentioned earlier, the 'for' clause is used to specify groups or" ?"sets of records, and may be used by itself or in conjunction with a" ?"'scope' specification. &FILE has a field called NAME in it. We can" ?"use it to demonstrate the 'for' clause. NAME is a character field, but" ?"numeric and logical fields can be used in a similar fashion." GOTO TOP STORE NAME TO F1 STORE TRIM(F1) TO F1 ?"The field NAME in record 1 of &FILE contains:" ? ?" &F1" WAIT ERASE ?"Now, try a 'for' clause with a DISPLAY ALL. You will display all" ?"records, but only if NAME is equal to &F1.." STORE '=' TO OP DO TEACH3F1 WAIT ERASE ?"To DISPLAY ALL if NAME is not equal to &F1," ?"the command changes slightly." STORE '#' TO OP DO TEACH3F1 WAIT ERASE ?"And, to DISPLAY ALL if NAME is less than &F1," ?"the command changes slightly again." STORE '<' TO OP DO TEACH3F1 WAIT ERASE ?"The 'scope' specification could be NEXT n, rather than ALL. Besides" ?"equal to (=), not equal to (#), and less than (<), the 'for' clause" ?"can contain the following operators:" ? ?" greater than - >" ? ?" greater than or equal to - >=" ? ?" less than or equal to - <= or" ? ?" substring equal to - $" ? DO TEACH3C WAIT ERASE ?"Well, that's it for 'scope', 'for', and computations. After you QUIT" ?"this time, try some 'scope' and 'for' exercises on your own. Do some" ?"computations if you'd like to." WAIT ERASE ?"You can use 'scope' and 'for' with the following commands:" ?" CHANGE" ?" COPY" ?" COUNT" ?" *DELETE" ?" *DISPLAY" ?" LOCATE" ?" *REPLACE" ?" *RECALL" ?" *REPORT" ?" SUM and" ?" TOTAL" ? ?"An asterisk (*) precedes the commands we have covered so far." WAIT ERASE ?"The only restriction for use of 'scope' and 'for' applies to the" ?"REPORT command. ALL is assumed as scope, NEXT n may be specified, and" ?"current record is not permitted. This applies to the REPORT command" ?"only." WAIT ERASE USE DELETE FILE &FILE ?"And that's the end of lesson 3. QUIT, and I'll return you to the operating" ?"system." ? ?"Type QUIT " STORE 'QUIT' TO CHECK DO CHECKC RETURN WAIT ERASE ?"Well, that's it for 'scope', 'for', and computations. After you QUIT" WAIT ERASE ?"Well, that's it for 'scope', 'for', and computations. After you QUIT" WAIT ERASE ?"Well, that's it for 'scope', 'for', and computations. After you QUIT" WAIT ERASE ?"Well, that's it for 'scope', 'for', and computations. After you QUIT" ? ?" greater than or equal to - =>" ? ?" less than or equal to - =< or" ? ?" substring equal to - $" ? ?"If you're not familiar with substring pr ? ?" greater than or equal to - =>" ? ?" less than or equal to - =< or" ? ?" substring equal to - $" ? ?"If you're not familiar with substring prssumed as scope, NEXT n may be specified, and" ?"current record is not permitted. This applies to the REPORT command" ?"only." WAIT " ?"use it to demonstrate the 'for' clause. NAME is a character field, but" ?"numeric and logical fields can be used in a similar fashion." GOTO TOP STORE NAME TO F1 STORE TRIM(F1) TO F1 ?"The field NAME in record 1 of &FILE contains:" ? ?" &F1" WAIT ERASE ?"Now, try a 'for?"Here's how you tell dBASE II to do that." ? ?"Type DISPLAY ALL FOR NAME &OP '&F1' " STORE "DISPLAY ALL FOR NAME &OP '&F1'" TO CHECK DO CHECKC RETURN ARY (year-to-date salary) by" ?"adding NETSALARY to YTDSALARY." ? ?"Type REPLACE ALL YTDSALARY WITH YTDSALARY + NETSALARY " STORE 'REPLACE ALL YTDSALARY WIERASE ?"In lesson 3, &STUDENT, you learned how to use scope and for clauses," ?"and how to perform computations in dBASE II. In lesson 4, you're" ?"going to see how files can be placed in order, and how data on files" ?"can be located randomly. Record keys and indices are used to" ?"accomplish these tasks." SET CONSOLE OFF DELETE FILE EMPMAST DELETE FILE EMPNOIND DELETE FILE NAMEIND.NDX USE EMPBAK COPY TO EMPMAST SET CONSOLE ON WAIT ERASE ?"First, what is a key, or more properly a key field? A key is a data" ?"item which uniquely identifies a record on a file. It, therefore, can be" ?"used to FIND a record, without having to scan through every record on" ?"the file. A typical example is a company payroll file, which has a key" ?"field EMPNO (employee number). Other information on the file might be" ?"LASTNAME (the employee's last name), DEPTNO (department number), JOBCLASS" ?"(a job classification number to indicate the type of work this employee" ?"does), and TAXCLASS and GROSSSAL for tax deduction and gross salary" ?"information. As we shall see in future dBASE II LESSONS, the" ?"key fields in files can be used to JOIN files into complete data bases." WAIT ERASE ?"I just happen to have a file like the one I just described. I've called" ?"the file EMPMAST (EMPloyee MASTer). Please issue the command to use it." ? STORE 'USE EMPMAST' TO CHECK DO CHECKC ?"Now, display its structure." ? STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC WAIT ERASE ?"Now, I'd like you to display all of the records on EMPMAST." ? STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Very good &STUDENT.." ? ?"Notice that the records are not in order by the employee number (EMPNO)." WAIT ERASE ?"There are two ways to put the records in order by employee number" ?"(EMPNO). You can INDEX the records, or you can SORT them. You'll SORT" ?"in a future lesson. Right now, you're going to INDEX them." ? ?"Type INDEX ON EMPNO TO EMPNOIND " STORE 'INDEX ON EMPNO TO EMPNOIND' TO CHECK DO CHECKC ?"The file EMPNOIND now contains key information for all records in the" ?"file EMPMAST. If we USE EMPMAST in conjunction with its INDEX file" ?"EMPNOIND, it will appear that all of the records on EMPMAST are in" ?"order by employee number." WAIT ERASE ?"Type USE EMPMAST INDEX EMPNOIND " STORE 'USE EMPMAST INDEX EMPNOIND' TO CHECK DO CHECKC ? ?"Now, type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ? ?"Notice &STUDENT, that the records are in sequence by employee number." ? ?"Now, let's try to FIND a record. You may specify any employee number" ?"that exists on EMPMAST. You pick the number." ? ?"Type FIND n, where n is an employee number, and press " STORE 0 TO OK DO WHILE OK = 0 ACCEPT TO COMMAND IF !(COMMAND) = 'QUIT' QUIT ENDIF IF $(!(COMMAND),1,5) # 'FIND ' ?"FIND followed by a blank, must be the first 5 characters in the command." ?" Please try again." LOOP ELSE &COMMAND IF # = 0 ?"I'm afraid that employee number does not exist. Please try it again." LOOP ELSE STORE 1 TO OK ENDIF ENDIF ENDDO ? ?"Now, DISPLAY the record." STORE 'DISPLAY' TO CHECK DO CHECKC WAIT ERASE ?"Later versions of dBASE II permit up to 7 indices of a file to be active" ?"at one time. I'm going to assume that you do not have a recent version," ?"and permit only one index to be active." ? ?"Let's, index the file EMPMAST on another field though (the LASTNAME field)" ?"to see how that works. Since LASTNAME may not be unique (that is, there" ?"may be several SMITH records), we'll FIND SMITH, and then SKIP to see if" ?"there are more." ? ?"Type USE EMPMAST " STORE 'USE EMPMAST' TO CHECK DO CHECKC WAIT ERASE ?"Now, type INDEX ON LASTNAME TO NAMEIND " STORE 'INDEX ON LASTNAME TO NAMEIND' TO CHECK DO CHECKC ? ?"Now, type USE EMPMAST INDEX NAMEIND " STORE 'USE EMPMAST INDEX NAMEIND' TO CHECK DO CHECKC ? ?"Now, DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Now the records on EMPMAST are in order by last name." WAIT ERASE ?"Now, type FIND SMITH " STORE 'FIND SMITH' TO CHECK DO CHECKC ? ?"Type DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ?"There's the first SMITH record." ? ?"Now, SKIP " STORE 'SKIP' TO CHECK DO CHECKC ?"Now, DISPLAY " STORE 'DISPLAY' TO CHECK DO CHECKC ? ?"And, there's the second SMITH record." WAIT DO TEACH4L ERASE ?"And that's all for INDEX, FIND, LOCATE, and CONTINUE. I want you to QUIT" ?"now, and try these commands on your own. Try some of the Boolean" ?"operators with any command that permits use of the FOR phrase as well." STORE 'QUIT' TO CHECK DO CHECKC RETURN ?"Now, DISPLAY ALL" ?"Now, DISPLAY ALL" ?"Now, DISPLAY ALL" ecord. You may specify any employee number" ?"that exists on EMPMAST. You pick the number." ? ?"Type FIND n, where n is an employee number, and press " STORE 0 TO OK DO WHILE OK = 0 ACCEPT TO COMMAND IF !(COMMAND) = 'QUIT' QUIT ENDIF IF $(!(COMMAND),1,5) # 'FIND ' ?"FIND followed by a blank, must be theERASE ?"Let's try one more thing before you leave this lesson. In lesson 3, I" ?"didn't tell you the whole truth about FOR clauses. Besides being able" ?"to use the arithmetic operators like =, <, >, =>, etc., you can also use" ?"the Boolean operators .AND., .OR., and .NOT.. In fact, you can use" ?"arithmetic and Boolean operators wherever dBASE II lets you use an" ?"expression (shown in dBASE II command examples as exp). Let's try" ?"some examples with the EMPMAST file. I've created a REPORT FORM to" ?"use with the examples. The formname is EMPMASTR. First, USE EMPMAST." STORE 'USE EMPMAST' TO CHECK DO CHECKC WAIT ERASE ?"Now, let's get a report of the entire file." ? ?"Type REPORT FORM EMPMASTR " STORE 'REPORT FORM EMPMASTR' TO CHECK DO CHECKC WAIT ERASE ? ?"Now, type REPORT FORM EMPMASTR FOR DEPTNO > 10 .AND. GROSSSAL < 1300" ?"" STORE 'REPORT FORM EMPMASTR FOR DEPTNO > 10 .AND. GROSSSAL < 1300' TO CHECK DO CHECKC WAIT ERASE ?"Now, type REPORT FORM EMPMASTR FOR TAXCLASS < 10 .OR. TAXCLASS > 75" ?"" STORE 'REPORT FORM EMPMASTR FOR TAXCLASS < 10 .OR. TAXCLASS > 75' TO CHECK DO CHECKC WAIT ERASE ?"The only limiting factor on the number of arithmetic and Boolean" ?"combinations in a command is the command length restriction in dBASE II." ?"Since commands can be up to 254 characters, it is most likely that you" ?"will get confused about what the expression means before you run out of" ?"positions to specify it." WAIT ERASE RETURN  WAIT ERASE ?"Let's LOCATE ALL FOR LASTNAME = 'SMITH'. Notice the quotation marks" ?"around SMITH. LASTNAME is a character field, and in the FOR phraseERASE ?"The INDEX command is useful for larger files where there is a need to" ?"access records randomly. For smaller files (50 records or less), you can" ?"accomplish the same results by using the LOCATE and CONTINUE commands." ? ?"LOCATE reads sequentially through the file in USE, and then presents" ?"record numbers that satisfy the FOR specification. Because LOCATE is" ?"LOCATEing records sequentially, it takes a long time to LOCATE" ?"records in larger files. INDEX on the other hand, does not take more" ?"than 2 or 3 seconds to FIND a record, no matter how big the file is." ?"Since our EMPMAST file is small, we can LOCATE records quickly too." WAIT ERASE ?"First, we have to use EMPMAST." STORE 'USE EMPMAST' TO CHECK DO CHECKC ?"Now, display all the records." STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Now, LOCATE ALL FOR EMPNO = 22." STORE 'LOCATE ALL FOR EMPNO = 22' TO CHECK DO CHECKC STORE # TO REC STORE STR(REC,1) TO RECX ? ?"Record &RECX contains employee number 22 data. Now, DISPLAY." STORE 'DISPLAY' TO CHECK DO CHECKC ?"Enter CONTINUE now. dBASE II will see if any more records contain" ?"employee number 22." STORE 'CONTINUE' TO CHECK DO CHECKC ?"Since only one record contains employee number 22, an END OF FILE message" ?"is displayed. That would not be the case if you changed the locate" ?"slightly." WAIT ERASE ?"Let's LOCATE ALL FOR LASTNAME = 'SMITH'. Notice the quotation marks" ?"around SMITH. LASTNAME is a character field, and in the FOR phrase," ?"character fields must be enclosed in quotes." STORE "LOCATE ALL FOR LASTNAME = 'SMITH'" TO CHECK DO CHECKC STORE # TO REC STORE STR(REC,1) TO RECX ?"Record &RECX contains SMITH. Now, DISPLAY it." STORE 'DISPLAY' TO CHECK DO CHECKC ?"Now, CONTINUE." STORE 'CONTINUE' TO CHECK DO CHECKC ?"No END OF FILE message is displayed because there is another SMITH" ?"record on the file." STORE # TO REC STORE STR(REC,1) TO RECX ?"It's record number &RECX.. Let's look at that record. DISPLAY" STORE 'DISPLAY' TO CHECK DO CHECKC WAIT DO TEACH4B RETURN ?"Let's LOCATE ALL FOR LASTNAME = 'SMITH' Notice the quotation marks" ?"around SMITH. LASTNAME is a character field, and in the FOR phrase," ?"character fields must be enclosed in quotes. Try it." STORE "LOCATE ALL FOR LASTNAME = 'SMITH'" TO CHECK DO CHECKC s must be enclosed in quotes." STORE "LOCATE ALL FOR LASTNAME = 'SMITH'" TO CHECK DO CHECKC STORE # TO REC STORE STR(REC,1) TO RECX ?"Record &RECX contains SMITH. Now, DISPLAY it." STORE 'DISPLAY' TO CHECK DO CHECKC ?"Now, CONTINUE." STORE 'CONTINUE' TO CHECK DO CHECKC ?"No END OF FILE message is displayed because there is another SMITH" ?"record on the file." STORE # TO REC STORE STR(REC,1) TO RECX ?"It's record number &RECX.. Let's look at that record. DISPLAY" STORE ERASE ?"In lesson 4, &STUDENT, you learned about record keys, and their use" ?"with the INDEX and FIND commands. You also learned how to use LOCATE" ?"and CONTINUE for small files which were not indexed on a key." ? ?"In lesson 5, you're going to learn about some of the dBASE II file utility" ?"functions, a way to tell dBASE II that a new diskette has been placed in" ?"a disk drive (perhaps to back-up a file, like you'll do in this lesson)," ?"and finally, you'll see how to execute commands from disk, rather than" ?"entering them on the keyboard." WAIT ERASE ?"Remember in lesson 3, you had a file which contained payroll information" ?"for some of the people in the White House. If there is important" ?"information, this is it. Right? The janitor thinks so. I saved that" ?"file for this lesson too." ? ?"I called the file COMPUTE. We can see if it's still there with the" ?"DISPLAY FILE command. This command displays the file names for dBASE II" ?"files (and other files too) on disk." SET CONSOLE OFF DELETE FILE WHITEHSE USE COMPUTE1 DELETE ALL PACK SET CONSOLE ON WAIT ERASE ?"Type DISPLAY FILE " STORE 'DISPLAY FILE' TO CHECK DO CHECKC ?"Now, &STUDENT, start working with the file COMPUTE." ? ?"Type USE COMPUTE " STORE 'USE COMPUTE' TO CHECK DO CHECKC REPLACE ALL NETSALARY WITH 0 TAXES WITH 0 ? ?"Type DISPLAY ALL " STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"This is definitely important data. You wouldn't want to lose it." ?"To make sure that you don't lose the data, you're going to back-up" ?"COMPUTE. Essentially, what this amounts to is that you going to" ?"create a COPY of the file. Normally, the back-up copy would be made on" ?"a different diskette (other than the one the file is on), but since" ?"we're just demonstrating how a back-up is done, you'll put the back-up on" ?"the same disk as the file." ? ?"In a real back-up situation, where a different diskette is used to" ?"receive the file, the RESET command should be issued. This tells the" ?"system that a disk swap has occurred, and will eliminate the possibility" ?"of a disk error occurring." WAIT ERASE ?"OK. Let's make the back-up file, and let's call it WHITEHSE. The file" ?"currently in USE (COMPUTE) is copied to the back-up file with a COPY" ?"command." ? ?"Type COPY TO WHITEHSE " STORE 'COPY TO WHITEHSE' TO CHECK DO CHECKC ? ?"Now type DISPLAY FILE " STORE 'DISPLAY FILE' TO CHECK DO CHECKC ?"Now, both COMPUTE and WHITEHSE are on disk." WAIT ERASE ?"Before you continue with file utilities, let's take a look at how dBASE II" ?"lets you execute a number of commands without typing them all on the" ?"keyboard." ? ?"The DO command does this. It accesses a disk file, and executes all of" ?"the dBASEII commands in that Command Procedure." ? ?"You may create a Command Procedure through use of the operating" ?"system text editor, a word processing package, or the MODIFY COMMAND" ?"in dBASE II. I've created a Command Procedure that uses COMPUTE," ?"performs some calculations on the record contents, and produces a" ?"report to show the results." ? ?"I've called the Command Procedure WHITEHSE. If you enter DO WHITEHSE," ?"the Command Procedure will be accessed, and executed. I've set some" ?"things up so you can see the commands as they are executed, and then" ?"see the results of the execution. If this looks familiar to you," ?"it's because we did this in lesson 3, with you entering the commands from" ?"the keyboard." WAIT ERASE ?"Type DO WHITEHSE " STORE 'DO WHITEHSE' TO CHECK DO CHECKC WAIT ERASE ?"Now, let's examine two more utility functions. As I mentioned earlier," ?"the DISPLAY FILE command can display dBASE II files AND other files on disk" ?"(see the dBASE II TUTOR introduction for a description of the types of" ?"files supported by operating systems). The LIKE phrase is added to the" ?"command to display non-dBASE II files." ? ?"Type DISPLAY FILE LIKE *.CMD " STORE 'DISPLAY FILE LIKE *.CMD' TO CHECK DO CHECKC WAIT ERASE ?"dBASE II also lets you delete files. BE EXTREMELY CAREFUL WITH THIS" ?"COMMAND, however. ONCE DELETED, THE FILES CANNOT BE RETRIEVED. The" ?"files may be dBASE II files, or any other file type (through use of the" ?"file suffix, TXT for example)." ? ?"To illustrate, you're going to delete the WHITEHSE file. First, let's" ?"make sure that the WHITEHSE file is still around." ? ?"Type DISPLAY FILE " STORE 'DISPLAY FILE' TO CHECK DO CHECKC ?"Now, DELETE it, &STUDENT.." ? ?"Type DELETE FILE WHITEHSE " STORE 'DELETE FILE WHITEHSE' TO CHECK DO CHECKC WAIT ERASE ?"One last thing for this lesson. dBASE II permits file structures to be" ?"changed, or MODIFYd. This is very useful when you wish to add a (some)" ?"field to a file that already exists. I can't show you the MODIFY" ?"STRUCTURE command itself, you'll have to do that on your own, but I can" ?"show you how it can be used to change an existing file structure." ? ?"The COMPUTE file that we used earlier had several pieces of information" ?"about the White House staff. It did not have the phone extensions for" ?"them, however. By USEing COMPUTE, and then issuing the MODIFY" ?"STRUCTURE command we could add the PHONE field. After the structure" ?"has been modified, it will look like the structure in a file I have" ?"called COMPUTE1." WAIT ERASE ?"Type USE COMPUTE1 " STORE 'USE COMPUTE1' TO CHECK DO CHECKC ? ?"Now, type DISPLAY STRUCTURE " STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC ? ?"Notice that the PHONE field is in it." WAIT ERASE ?"COMPUTE1, however, has no data in it. By using the APPEND FROM command" ?"we can get all of the data that was on COMPUTE onto COMPUTE1." ? ?"Type APPEND FROM COMPUTE " STORE 'APPEND FROM COMPUTE' TO CHECK DO CHECKC ? ?"Now, COMPUTE1 has all of the information that was on COMPUTE, and COMPUTE1" ?"has a field where we can enter PHONE extensions." ? ?"One word of caution. MODIFY STRUCTURE E R A S E S all of the data" ?"on the file being modified. So, before issuing the MODIFY STRUCTURE" ?"command, copy the file to a back-up file or you will L O S E all of" ?"the data that W A S on your file." ? WAIT ERASE ?"Well, that's it for file utilities, and Command Procedures. After you" ?"QUIT this time, try some exercises on your own. DISPLAY, and COPY" ?"files. MODIFY the STRUCTURE of a file, and APPEND data to a new" ?"file structure FROM a copied file. If you feel bold, create a" ?"command procedure using MODIFY COMMAND. In future sessions, I'll" ?"show you how you can create some really powerful Command Procedures" ?"that can do as much as most conventional programming languages," ?"and do it with far fewer instructions. Now, however, it's time" ?"to quit again." ? STORE 'QUIT' TO CHECK DO CHECKC RETURN culations on the record contents, and produces a report to show the" ?"culations on the record contents, and produces a report to show the" ?"culations on the record contents, and produces a report to show the" ?"culations on the record contents, and produces a report to show the" ?" cucu ERASE ?"In lesson 5, &STUDENT, you covered the DISPLAY FILE and COPY file" ?"utilities. We also learned about MODIFY STRUCTURE, and how to" ?"APPEND data onto a MODIFYd file structure. You learned, too, about" ?"the creation of command procedures (or programs) in dBASE II." SET CONSOLE OFF DELETE FILE EMPMAST DELETE FILE EMPTRANS DELETE FILE EMPTSRT DELETE FILE EMPMSRT DELETE FILE TUTMEM.MEM USE EMPBAK COPY TO EMPMAST USE EMPTBAK COPY TO EMPTRANS SET CONSOLE ON ? ?"In lesson 6, you're going to learn about SORT, (another method for" ?"putting records in sequence, other than INDEX), UPDATE (a method for" ?"changing information on a file from another file), and how to work" ?"with memory using STORE, DISPLAY MEMORY, SAVE, RESTORE, RELEASE, and" ?"CLEAR." WAIT ERASE ?"Remember, in lesson 4, you used two key fields on a file called EMPMAST." ?"One key was EMPNO, another was EMPNAME. SORT can put files in order just" ?"like INDEX, but there is one big difference. When INDEX is used, the file" ?"will automatically have its index(es) updated, and therefore, be kept in" ?"in order, whenever APPEND, EDIT, REPLACE, READ, OR BROWSE are used to" ?"update the file. That is not the case with SORT. If changes are made to" ?"key fields in a SORTed file, the file must be re-sorted to get it back in" ?"sequence." WAIT ERASE ?"There are times, however, when a SORTed file is preferrable to an" ?"INDEXed file. We will demonstrate one in this lesson. In this" ?"example, we want the operation of preparing updates to EMPMAST" ?"to be a separate operation and be contained on a separate file" ?"(EMPTRANS), because balancing of the input is required prior to the" ?"UPDATE process. We would also like to have the ability to back-out" ?"transactions after updates have taken place (if, for example we find" ?"that some of the input contained errors that had to be easily removed" ?"from the master file). Had all of the input been entered from the" ?"keyboard using EDIT, back-out may be quite difficult." WAIT ERASE ?"The choice between using SORT or INDEX is a matter of system design." ?"Each system will dictate which method should be used. The purpose" ?"of this lesson is to show you how to use SORT if you feel the" ?"circumstances warrant it." WAIT ERASE ?"Enough said. Let's look at EMPMAST. By now I'm sure you know that" ?"you must use it, display it's structure, and then display all the" ?"records on it. If you make a mistake, I'll tell you what to do, but I" ?"want you to try to perform these three operations without me telling" ?"you specifically what to do." STORE 'USE EMPMAST' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Now, &STUDENT, SORT EMPMAST on employee number (EMPNO). SORT will" ?"sort the file in USE on the key specified, and place the SORTed file on" ?"another file." ? ?"Type SORT ON EMPNO TO EMPMSRT " STORE 'SORT ON EMPNO TO EMPMSRT' TO CHECK DO CHECKC ?"Now, EMPMSRT file contains the data that is on EMPMAST in EMPNO" ?"(employee number) sequence. Let's take a look at EMPMSRT. We first" ?"have to use it, and then to see it, I have retained the REPORT FORM" ?"EMPMASTR from lesson 4. Try the USE and REPORT. I'll tell you if you" ?"make any mistakes." STORE 'USE EMPMSRT' TO CHECK DO CHECKC STORE 'REPORT FORM EMPMASTR' TO CHECK DO CHECKC ?"All the records are in order by employee number." WAIT ERASE ?"In UPDATE, a file is needed, which contains the changes to be made." ?"This file is generally referred to as a transaction file. The UPDATE" ?"command requires that the master file (EMPMAST) and the transaction" ?"file be in the same sequence. Our transaction file is called EMPTRANS." ? ?"Let's take a look at it. First USE it, then DISPLAY it's STRUCTURE," ?"and then DISPLAY ALL of the records on it. Try these three commands." ?"I'll help you, if you make any mistakes." STORE 'USE EMPTRANS' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'DISPLAY ALL' TO CHECK DO CHECKC WAIT ERASE ?"Now we have to SORT EMPTRANS to get it in order by EMPNO." ? ?"Type SORT ON EMPNO TO EMPTSRT " STORE 'SORT ON EMPNO TO EMPTSRT' TO CHECK DO CHECKC ?"Now, use EMPTSRT, and display all the records on it. I'll help you if" ?"you make errors in either of the two commands to do this." STORE 'USE EMPTSRT' TO CHECK DO CHECKC STORE 'DISPLAY ALL' TO CHECK DO CHECKC ?"Now, the transaction file is also in employee number sequence." WAIT DO TEACH6U RETURN number sequence." WAIT DO TEACH6U RETURN u feel the" ?"circumstanu feel the" ?"circumstanST in EMPNO" ?"(emplST in EMPNO" ?"(empl fields in a SORTed file, the file must be re-sorted to get it back in" ?"sequence." WAIT ERASE ?"There are times, however, when a SORTed file is preferrable to an" ?"INDEXed file. We will demonstrate one in this lesson. In this" ?"example, we want the operationERASE ?"Up to now, you have been dealing with only data on files. You're now going" ?"to see how to use memory variables. Memory variables are used in much" ?"the same fashion as fields on records. However, unlike fields on records," ?"memory variables are always available for immediate use. It is not" ?"necessary to read them from a file to access them. dBASE II permits" ?"up to 64 memory variables in memory at any one time, and also permits" ?"memory variables to be SAVEd on disk, for later RESTOREing." ? ?"Several commands deal with memory variables. They are: STORE, DISPLAY" ?"MEMORY, SAVE, RESTORE, RELEASE, and CLEAR." WAIT ERASE ?"Remember how REDFORD lost his name. Let's get REDFORD's name back" ?"using a memory variable." ? ?"Type STORE 'REDFORD' TO MEMNAME " STORE "STORE 'REDFORD' TO MEMNAME" TO CHECK DO CHECKC ? ?"Now, &STUDENT, type DISPLAY MEMORY " STORE 'DISPLAY MEMORY' TO CHECK DO CHECKC ?"I've got some things in memory too, but notice that there is a memory" ?"variable called MEMNAME, which contains REDFORD." WAIT ERASE ?"Using the EMPMSRT file, you can give REDFORD his name back from the" ?"memory variable MEMNAME." ? ?"Type USE EMPMSRT " STORE 'USE EMPMSRT' TO CHECK DO CHECKC ? ?"Now, DISPLAY." STORE 'DISPLAY' TO CHECK DO CHECKC ?"That's the old REDFORD record all right, with no name in it. Now," ?"REPLACE LASTNAME WITH MEMNAME" STORE 'REPLACE LASTNAME WITH MEMNAME' TO CHECK DO CHECKC ?"Now, DISPLAY" STORE 'DISPLAY' TO CHECK DO CHECKC ?"And, REDFORD has his last name back." WAIT ERASE ?"There may be instances where 64 memory variables are not enough for the" ?"work you have to do. For these instances, and other occasions where you" ?"want to SAVE memory variables (perhaps to be RESTOREd to memory the next" ?"day from a previous day's work), dBASEII provides the SAVE command. All" ?"memory variables are put on the disk file specified in the SAVE command." ? ?"Type SAVE TO TUTMEM " STORE 'SAVE TO TUTMEM' TO CHECK DO CHECKC ?"Now all the memory variables are on the disk file TUTMEM." WAIT ERASE ?"If you're finished with some memory variables, and want to make room for" ?"some more, the RELEASE command is used. Let's RELEASE one of yours, and" ?"one of mine." ? ?"Type RELEASE MEMNAME,PRINTER " STORE 'RELEASE MEMNAME,PRINTER' TO CHECK DO CHECKC ?"Now, DISPLAY MEMORY." STORE 'DISPLAY MEMORY' TO CHECK DO CHECKC ?"MEMNAME and PRINTER are no longer in memory. To release all memory" ?"variables, enter RELEASE ALL" STORE 'RELEASE ALL' TO CHECK DO CHECKC1 ?"Now, DISPLAY MEMORY." STORE 0 TO OK DO WHILE OK = 0 ACCEPT TO COMMAND IF !(COMMAND) = 'QUIT' QUIT ENDIF IF !(COMMAND) # 'DISPLAY MEMORY' ?"You didn't enter DISPLAY MEMORY. Please try again." LOOP ELSE RELEASE ALL DISPLAY MEMORY STORE 1 TO OK STORE ' ' TO PROMPT ENDIF ENDDO WAIT ERASE RESTORE FROM TUTMEM ?"Oh no, &STUDENT.. All the memory variables are gone, and I still need" ?"some of them. Let's get them back!!!!!!!!!" ? ?"Type RESTORE FROM TUTMEM " STORE 'RESTORE FROM TUTMEM' TO CHECK DO CHECKC ? ?"Now, DISPLAY MEMORY." STORE 'DISPLAY MEMORY' TO CHECK DO CHECKC WAIT ERASE ?"You can also RELEASE ALL the memory variables by entering CLEAR, and" ?"CLEAR will also take the file in USE out of the USE state. For example," ?"if you enter CLEAR now, the EMPMSRT file would no longer be in USE." WAIT ERASE RETURN ERASE ?"Now you've done it. All the memory variables are gone, and I still need" ?"some of them. Let's get them back!!!!!!!!! Type RESTORE FROM TUTMEM." STORE 'RESTORE FROM TUTMEM' TO CHECK DO CHECKC ERASE ?"Now you've done it. All the memory variables are gone, and I still need" ?"some of them. Let's get them back!!!!!!!!! Type RESTORE FROM TUTMEM." STORE 'RESTORE FROM TUTMEM' TO CHECK DO CHECKC  CHECK DO CHECKC ?"That's the old REDFORD record all right, with no name in it. Now," ?"REPLACE LASTNAME WITH MEMNAME" STORE 'REPLACE LASTNAME WITH MEMNAME' TO CHERASE ?"Now you're ready to try UPDATE. Both the master and transaction files" ?"(EMPMAST and EMPTRANS) are in sequence by EMPNO on the files EMPMSRT and" ?"EMPTSRT. First, you have to USE EMPMSRT." STORE 'USE EMPMSRT' TO CHECK DO CHECKC ?"Type UPDATE FROM EMPTSRT ON EMPNO REPLACE LASTNAME ADD GROSSSAL " STORE 'UPDATE FROM EMPTSRT ON EMPNO REPLACE LASTNAME ADD GROSSSAL' TO CHECK DO CHECKC WAIT ERASE ?"To see what the UPDATE did, type REPORT FORM EMPMASTR " STORE 'REPORT FORM EMPMASTR' TO CHECK DO CHECKC ?"Notice that REDFORD (employee 2) lost his name, and that GROSSSAL has" ?"been changed in all three records that had transactions. REDFORD lost" ?"his name, because REPLACE was used for the LASTNAME field, and the" ?"LASTNAME field in the transaction file for his record was blank." ?"GROSSSAL was increased or decreased based on the amounts that were in" ?"the GROSSSAL field on the transaction file." WAIT ERASE ?"There are ways, using command procedures, to exercise complete control" ?"over updates to files. We'll see how that can be done, in lesson 10." WAIT DO TEACH6M ERASE ?"That's it for SORT, UPDATE, and dealing with memory variables. After" ?"you've QUIT, practice with these commands, so you'll be able to use them" ?"in the future." ? ?"Please QUIT now." STORE 'QUIT' TO CHECK DO CHECKC RETURN STORE 'REPORT FORM EMPMASTR' TO CHECK FORM EMPMASTR' TO CHECK ords on it. If you make a mistake, I'll tell you what to do, but I" ?"want you to try toERASE SET CONSOLE OFF USE EMP8 COPY TO EMPMAST SET CONSOLE ON ?"In lesson 6, &STUDENT, you learned how to use SORT and UPDATE commands" ?"to update master files from transaction files. You also covered" ?"memory variables and their use through STORE, DISPLAY MEMORY, SAVE," ?"RESTORE, RELEASE, and CLEAR." ? ?"In lesson 7, you're going to learn how to use the SELECT PRIMARY and" ?"SELECT SECONDARY commands, and also, how to JOIN files. The JOIN" ?"is a fundamental feature of relational systems (see the dBASE II" ?"LESSONS introduction for more details), and is, essentially, a match" ?"merge process that combines files into full-fledged data bases." WAIT ERASE ?"First, you're going to JOIN an employee name file (EMPNAME), with a job" ?"history file (JOBHIST), and produce a report that displays the job" ?"histories for all employees. You're using two files to do this, since it" ?"is possible that employees could have had many different job titles, and" ?"since relational systems do not permit repeating groups (repeating" ?"fields), you cannot permit multiple job history fields in the employee" ?"master file itself." ? ?"First, look at the file structures for EMPNAME, and JOBHIST, and" ?"produce reports that display the contents of each file." WAIT ERASE ?"Issue the commands to display the structure and print a report for" ?"EMPNAME, first. I have a report form called EMPNAME for you to use to" ?"generate the report." STORE 'USE EMPNAME' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM EMPNAME' TO CHECK DO CHECKC WAIT ERASE ?"Now, issue the use, display structure, and report commands for" ?"JOBHIST. I have a report form called JOBHFRM you can use for the" ?"report." STORE 'USE JOBHIST' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM JOBHFRM' TO CHECK DO CHECKC WAIT ERASE ?"Now JOIN the two files to produce a file that contains all job" ?"history information for all employees." ? ?"The JOIN command reads each record in the PRIMARY USE file, one at a" ?"time, and then interrogates every record in the SECONDARY USE file to see" ?"if the FOR expression is satisfied. If the FOR expression is satisfied," ?"a record is written to the file specified by the TO clause." ? ?"Let's go through the series of commands for the JOIN of EMPNAME and" ?"JOBHIST." WAIT ERASE ?"First, USE JOBHIST." STORE 'USE JOBHIST' TO CHECK DO CHECKC ?"Now, SELECT SECONDARY." STORE 'SELECT SECONDARY' TO CHECK DO CHECKC ?"Now, USE EMPNAME." STORE 'USE EMPNAME' TO CHECK DO CHECKC ?"Now SELECT PRIMARY to get back to the JOBHIST file." STORE 'SELECT PRIMARY' TO CHECK DO CHECKC ?"And now, JOIN TO JOINJOB FOR EMPNO = S.EMPNO (notice the S. preceding" ?"the second EMPNO). That indicates that dBASE II is to use EMPNO from" ?"the secondary file." STORE 'JOIN TO JOINJOB FOR EMPNO = S.EMPNO' TO CHECK DO CHECKC WAIT ERASE ?"Now, &STUDENT, let's use JOINJOB, display it's structure, and print a" ?"report using the report form JJFRM." STORE 'USE JOINJOB' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM JJFRM' TO CHECK DO CHECKC WAIT DO TEACH7P ERASE ?"That's it for JOIN, SELECT, and Relational data base manipulation." ?"If you get involved in complex JOINS, with many files, make sure" ?"that you do not violate any of the relational data base normalization" ?"principles (see the dBASE II TUTOR introduction for more details)." ? ?"One more caution, when using JOIN. JOINs of larger files can take an" ?"extraordinary amount of time. If you find that run times for JOINs" ?"are becoming excessive, you may want to accomplish the results of a JOIN" ?"by using the UPDATE command, or by writing a command procedure." ? ?"And, speaking of command procedures, once you have all of your file" ?"structures defined and know the JOINs required to build your Relational" ?"Data Base, you can create a command procedure that contains all of the" ?"USE, SELECT, and JOIN commands, and let the command procedure do all of" ?"the work for you." ? ?"It's time to QUIT." STORE 'QUIT' TO CHECK DO CHECKC RETURN 'USE JOINJOB' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM JJFRM' TO CHECK 'USE JOINJOB' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM JJFRM' TO CHECKuired to build your Relational" ?"Data Base, you can create a command procedure that contains all of the" CCHECKuired to build your Relational" ?"Data Base, you can create a command procedure that contains all of the" C ORM JJFRM' TO CHECK DO CHECKC WAIT DO TEACH7P ERASE ?"That's it for JOIN, SELECT, and Relational data base manipulation." ?"If you get involved in complex JOINS, with many files, make sure" ?"that you do not violate any of the relational data base normalization" ?"principles (see the dBASE II TUTOR introduction for more details)." ? ?"One more caution, when using JOIN. JOINERASE ?"You'll be trying something a little more complicated this time. You're" ?"going to use an employee master file, join it to a tax code file to pick" ?"up deduction percentages, join that file to the employee name file, join" ?"that file to a department name file, and finally, using that final" ?"relational data base, compute tax and net salary amounts, and produce a" ?"payroll register report." WAIT ERASE ?"First, I'll show you the employee master file. It's called EMPMAST. Use" ?"it, display it's structure, and then produce a report using the report" ?"form EMPMAST." STORE 'USE EMPMAST' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC STORE 'REPORT FORM EMPMAST' TO CHECK DO CHECKC WAIT ERASE ?"Now. &STUDENT, look at the file EMPMAST is going to be JOINed to." ?"It's called TAXMAST. Enter USE TAXMAST." STORE 'USE TAXMAST' TO CHECK DO CHECKC ?"Now, display it's structure." STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC ?"Notice that it contains a TAXCODE field, which is also on the EMPMAST" ?"file, and that a tax % field is also present. After you have JOINed" ?"EMPMAST and TAXMAST, the JOINed file will have all the information" ?"needed to compute a tax, and net salary amount for every employee." WAIT ERASE ?"OK. Let's do the first JOIN. Enter, USE EMPMAST." STORE 'USE EMPMAST' TO CHECK DO CHECKC ?"Now, SELECT SECONDARY." STORE 'SELECT SECONDARY' TO CHECK DO CHECKC ?"Now, USE TAXMAST." STORE 'USE TAXMAST' TO CHECK DO CHECKC ?"Now, SELECT PRIMARY." STORE 'SELECT PRIMARY' TO CHECK DO CHECKC ?"And, finally, JOIN TO JOINPAY1 FOR TAXCODE = S.TAXCODE." STORE 'JOIN TO JOINPAY1 FOR TAXCODE = S.TAXCODE' TO CHECK DO CHECKC WAIT ERASE ?"Each record in JOINPAY1 now contains, for each employee that was on the" ?"EMPMAST file, a tax percentage amount. If you now use JOINPAY1, you can" ?"also include on our data base an employee name, by performing a JOIN to" ?"the EMPNAME file. which contains two fields, EMPNO, and EMPNAME." ? ?"First USE JOINPAY1, then SELECT SECONDARY, then USE EMPNAME, then" ?"SELECT PRIMARY, then JOIN TO JOINPAY2 FOR EMPNO = S.EMPNO." ? STORE 'USE JOINPAY1' TO CHECK DO CHECKC STORE 'SELECT SECONDARY' TO CHECK DO CHECKC STORE 'USE EMPNAME' TO CHECK DO CHECKC STORE 'SELECT PRIMARY' TO CHECK DO CHECKC STORE 'JOIN TO JOINPAY2 FOR EMPNO = S.EMPNO' TO CHECK DO CHECKC WAIT ERASE ?"Now, &STUDENT use and display the structure of JOINPAY2 to see what " ?"the data base has so far." STORE 'USE JOINPAY2' TO CHECK DO CHECKC STORE 'DISPLAY STRUCTURE' TO CHECK DO CHECKC ?"Notice that the fields EMPNO and TAXCODE appear twice. You could have" ?"removed the duplicates if you had used the FIELD specification in the" ?"JOINs, but since you're not nearing the 32 field limit for a file, the" ?"duplicates can exist, and the entry of the JOIN commands is easier" ?"without the FIELD specification." WAIT ERASE ?"Do a JOIN of JOINPAY2 and DEPTMAST, which has a DEPTNO and DEPTNAME" ?"field in it. Enter, USE JOINPAY2." STORE 'USE JOINPAY2' TO CHECK DO CHECKC ?"Now, enter SELECT SECONDARY." STORE 'SELECT SECONDARY' TO CHECK DO CHECKC ?"Now, USE DEPTMAST." STORE 'USE DEPTMAST' TO CHECK DO CHECKC ?"Now, SELECT PRIMARY." STORE 'SELECT PRIMARY' TO CHECK DO CHECKC ?"Now, JOIN TO JOINPAY3 FOR DEPTNO = S.DEPTNO." STORE 'JOIN TO JOINPAY3 FOR DEPTNO = S.DEPTNO' TO CHECK DO CHECKC ?"Now, the data base has department name data in it too, and you can" ?"compute tax and net salary amounts, and produce the payroll register." WAIT ERASE ?"Issue the commands to do all this. First, USE JOINPAY3." STORE 'USE JOINPAY3' TO CHECK DO CHECKC ?"Now, REPLACE ALL TAXES WITH GROSSSAL * TAXPCT." STORE 'REPLACE ALL TAXES WITH GROSSSAL * TAXPCT' TO CHECK DO CHECKC ?"Now REPLACE ALL NETSAL WITH GROSSSAL - TAXES." STORE 'REPLACE ALL NETSAL WITH GROSSSAL - TAXES' TO CHECK DO CHECKC ?"And, finally, ask for a REPORT using the report form REGFRM." STORE 'REPORT FORM REGFRM' TO CHECK DO CHECKC WAIT ERASE ?"If you change any of the structures for the files being used, by adding" ?"more fields or changing field lengths, the same commands that we used" ?"for this entire procedure will still work. Relational data base" ?"systems, like dBASE II, use this data independence or automatic" ?"navigation feature to make changes to file and data base structures" ?"transparent to the users of the system." WAIT RETURN ount for every employee." WAIT ERASE ?"OK. Let's do the first JOIN. Enter, USE EMPMAST." STORE 'USE ESET CONSOLE OFF DELETE FILE EMPMAST SET CONSOLE ON ERASE ?"In lesson 7, &STUDENT, you learned how simple files can be transformed" ?"into data bases through the JOIN command. Although the payroll" ?"system we used as an illustration was a rather simple example of the" ?"power of the relational JOIN, the power of such a tool is quite" ?"obvious." ? ?"In lesson 8, you're going to learn about some of functions that can be" ?"used in dBASE II. Functions, as we will see, permit near assembly" ?"operations to be performed, without having to call assembly language" ?"programs. I'm going to show you the functions available in the latest" ?"release of dBASE II. Most of them are available in earlier releases, but" ?"before you try them on your own, make sure that they are included in" ?"your release of dBASE II." ? ?"To illustrate the functions, I'm also going to cover some other" ?"commands. You'll look at ACCEPT, which is used to ACCEPT data from the" ?"keyboard. The INPUT statement can also be used to obtain data from the" ?"keyboard, but there are some differences, and ACCEPT is the generally" ?"favored method for keyboard data entry. We'll also be looking at the ?" ?"(question mark, or what is) command, which can be used to display data" ?"on the CRT." WAIT ERASE ?"First, you will look at the functions LEN, @, $, and !. You'll use ACCEPT" ?"to get the data for our illustration. Type ACCEPT 'ENTER A STATEMENT TO" ?"BE PARSED' TO STATEMENT first, then, when you are prompted, type" ?"NAME,N,20,5." ? ?"Type ACCEPT 'ENTER A STATEMENT TO BE PARSED' TO STATEMENT " STORE "ACCEPT 'ENTER A STATEMENT TO BE PARSED' TO STATEMENT" TO CHECK DO CHECKC1 STORE 0 TO OK DO WHILE OK = 0 ? ?"Now, type NAME,N,20,5 " ACCEPT 'ENTER A STATEMENT TO BE PARSED' TO STATEMENT STORE !(STATEMENT) TO STATEMENT IF STATEMENT = 'QUIT' QUIT ENDIF IF STATEMENT # 'NAME,N,20,5' ?"You didn't enter NAME,N,20,5. Please try again." LOOP ELSE STORE 1 TO OK ENDIF ENDDO WAIT ERASE ?"Now, &STUDENT, find where in STATEMENT, the first comma occurs, and STORE" ?"that location to a memory variable called COMMAL. The @ function (where" ?"is it at), does this. The field specified in the second parameter is" ?"scanned to see where the first parameter in the command occurs." ? ?"Type STORE @(',',STATEMENT) TO COMMAL " STORE "STORE @(',',STATEMENT) TO COMMAL" TO CHECK DO CHECKC ?"The first comma occurs in position 5 of STATEMENT. Now, take the" ?"characters preceding the comma, and STORE them to a memory variable" ?"called WORD1. You can use the $ (substring) function for this. The" ?"expression specified by the first parameter, starting at the position" ?"specfied by the second parameter, for a length of the third parameter is" ?"the result of the $ function." ? ?"Type STORE $(STATEMENT,1,COMMAL - 1) TO WORD1 " STORE 'STORE $(STATEMENT,1,COMMAL - 1) TO WORD1' TO CHECK DO CHECKC WAIT ERASE ?"The $ function can be used without the second and third parameters, in" ?"which case the first parameter will be analyzed to see if a substring" ?"occurs anywhere within it. For example, you could see if the string NAME" ?"occurs anywhere within STATEMENT." ? ?"Type ? 'NAME' $(STATEMENT) " STORE "? 'NAME' $(STATEMENT)" TO CHECK DO CHECKC ?"The .T. indicates that the substring NAME does occur within STATEMENT." ? ?"The $ function with the second and third parameters omitted is a very" ?"nice way to do keyword searching of files. For example, using the" ?"DISPLAY ALL or REPORT commands, a file of text could be searched like" ?"this:" ? ?"DISPLAY ALL FOR 'AGRICULTURE' $(ABSTRACT) .OR. 'PLANT' $(ABSTRACT)" ? ?"If you have textual data, and need a keyword searching facility for it," ?"the facility is already in dBASE II." WAIT ERASE ?"Whether you entered NAME in upper or lower case, I converted it to" ?"upper case. You may have noticed that I have performed this upper case" ?"conversion throughout these lessons. I've changed WORD1 (NAME) from" ?"upper to lower case, and I'm going to let you convert it back to upper" ?"case. You'll use the ! function to do this." ? ?"First, &STUDENT, make sure that WORD1 contains 'name'." STORE 'name' to WORD1 ? ?"Type ? WORD1 " STORE '? WORD1' TO CHECK DO CHECKC ? ?"Now, type STORE !(WORD1) TO WORD1U " STORE 'STORE !(WORD1) TO WORD1U' TO CHECK DO CHECKC ?"Consider that you have files with text in them, and want to break down" ?"the text into single words that are separated by blanks, commas, colons," ?"or something else, to produce an index. The preceding group of " ?"instructions does just that. When that sequence of instructions is put" ?"command procedure, it can be used to break down text on any file." WAIT DO TEACH8F DO TEACH8R ERASE ?"The functions can be most powerful when used in command procedures with" ?"IF's and DO LOOPS, but they do have value when being used from the" ?"keyboard." ? ?"I'm going to ask you to do something now that I have not asked you to do" ?"before, and will not ask you to do again. I'd like you to take the" ?"dBASE II reference card, which came with your system, and read about the" ?"the SET options. Once you've done that, try some of the dBASE II functions" ?"and experiment with the various SET commands." ? ?"Now, it's time to quit." STORE 'QUIT' TO CHECK DO CHECKC RETURN ASEII manual and R E A D (a dirty word) what it haASEII manual and R E A D (a dirty word) what it haASEII manual and R E A D (a dirty word) what it ha ENT,1,COMMAL - 1) TO WORD1' TO CHECK DO CHECKC WAIT ERASE ?"The $ funcERASE ?"Now, try the FILE, LEN, TRIM, #, EOF, *, and TYPE functions. The" ?"EMPMAST file from lesson 5 should be available. You'll use the FILE" ?"function, &STUDENT, to make sure it is." ? ?"I'll continue to use the ? (what is) command to show you how that works." ?"There is also a ?? command, which displays just like ?, but will not" ?"advance a line after the display. This is useful when you wish to print" ?"the results from several operations on one print line of a printer." WAIT ERASE ?"Type ? FILE('EMPMAST') " STORE "? FILE('EMPMAST')" TO CHECK DO CHECKC ?"That's not good. The .F. means that the file test was false, and" ?"EMPMAST is not around. Perhaps the back-up is still available." ? ?"Type ? FILE('EMPBAK1') " STORE "? FILE('EMPBAK1')" TO CHECK DO CHECKC ?"The .T. indicates true, so we can use that file." ? ?"Note - You could have STOREd the results of those tests (.T., or .F.)," ?"and used them to control the flow of a program. You'll see how that" ?"might be done in the last dBASE II LESSONS module." ? ?"Now, &STUDENT, use EMPBAK1, and try some other functions." STORE 'USE EMPBAK1' TO CHECK DO CHECKC ? ?"You're going to SKIP through EMPBAK1, looking for records that contain" ?"SMITH in them. When we are at a record that contains SMITH in the" ?"LASTNAME field, we want to STORE the record number of that record" ?"into a memory variable called RECNO, but only if the record is not" ?"flagged for deletion. I know this can be done easily in a DO LOOP," ?"but I'm going to wait until the last lesson to illustrate DO." ? ?"You're at the first record of EMPBAK1. See if LASTNAME is SMITH." WAIT ERASE ?"Enter ? LASTNAME" STORE '? LASTNAME' TO CHECK DO CHECKC ?"No, that one is not SMITH. Before you go to the next record though," ?"try the the LEN and TRIM functions." ? ?"Type ? LEN(LASTNAME) " STORE '? LEN(LASTNAME)' TO CHECK DO CHECKC ?"To remove trailing blanks in LASTNAME:" ? ?"type STORE TRIM(LASTNAME) TO TRIMNAME " STORE 'STORE TRIM(LASTNAME) TO TRIMNAME' TO CHECK DO CHECKC ?"Now, type ? LEN(TRIMNAME)" STORE '? LEN(TRIMNAME)' TO CHECK DO CHECKC STORE LEN(TRIMNAME) TO NL STORE STR(NL,2) TO NLX ?"TRIMNAME is only &NLX characters long, since trailing blanks were" ?"removed from &TRIMNAME.. Now, SKIP to the next record." STORE 'SKIP' TO CHECK DO CHECKC ?"You don't want to SKIP past the end of the file. Check for that." ? ?"Type ? EOF " STORE '? EOF' TO CHECK DO CHECKC ?"OK. You haven't hit end of file. See if this record has SMITH." ?"Type ? LASTNAME " STORE '? LASTNAME' TO CHECK DO CHECKC ?"There's SMITH. See if the record is flagged for deletion." ? ?"Type ? * " STORE '? *' TO CHECK DO CHECKC ?"No. It's not flagged for deletion. STORE The record number, so you" ?"can come back to this record later." ? ?"Type STORE # TO RECNO " STORE 'STORE # TO RECNO' TO CHECK DO CHECKC ?"OK, &STUDENT, see if there are any more SMITH records. SKIP" STORE 'SKIP' TO CHECK DO CHECKC ?"? EOF" STORE '? EOF' TO CHECK DO CHECKC ?"? LASTNAME" STORE '? LASTNAME' TO CHECK DO CHECKC ?"There's another SMITH. Is it flagged for deletion?" ?"? *" STORE '? *' TO CHECK DO CHECKC ?"Yes, it is flagged for deletion, so you don't want it. SKIP" STORE 'SKIP' TO CHECK DO CHECKC ?"? EOF" STORE '? EOF' TO CHECK DO CHECKC ?"That's end of file. Get back to the record that had SMITH, and was" ?"not flagged for deletion. Which one was it? That's right, you stored" ?"the record number in the memory variable RECNO." ? ?"Type GOTO RECNO " STORE 'GOTO RECNO' TO CHECK DO CHECKC ?"Now, DISPLAY" STORE 'DISPLAY' TO CHECK DO CHECKC ?"And there's the SMITH record that isn't flagged for deletion." WAIT RETURN DO CHECKC ?"? EOF EOF' TO CHEC" e e eEC" e EOF' TO CHEC" eC" e ed" ?"the record number in the memory in the memory ory HECK DO CHECKC ?"The .T. indicates true, so we can use that file." ? ?"Note - You could have STOREd the results of those tests (.T., or .F.)," ?"and used them to control the flow of a program. You'll see how that" ?"miERASE ?"There are only a few more functions. First let's look at the type" ?"function. It tells you whether an expression is C (character), N" ?"(numeric), or L (logical) type." ? ?"Type ? TYPE(EOF) " STORE '? TYPE(EOF)' TO CHECK DO CHECKC ?"Now, ? TYPE(LASTNAME) " STORE '? TYPE(LASTNAME)' TO CHECK DO CHECKC ?"NOW, ? TYPE(RECNO) " STORE '? TYPE(RECNO)' TO CHECK DO CHECKC ?"You can also see the date that was entered when dBASE II was started up." ?"? DATE() " STORE '? DATE()' TO CHECK DO CHECKC IF DATE() = '00/00/00' ?"You should have entered a date when you started dBASE II. Then it would" ?"have been displayed by the last command." ENDIF ?"You can convert numbers with decimals to integers." ? ?"Type ? INT(250.50) " STORE '? INT(250.50)' TO CHECK DO CHECKC ?"You can convert numbers and numeric expresions to characters and specify" ?"the length of the character field." ? ?"Type ? STR(234 + 123,3) " STORE '? STR(234 + 123,3)' TO CHECK DO CHECKC ?"And, finally, you can convert a numeric expression to an ASCII character" ?"(octal). You may find this function useful to control your printer to" ?"set it to compress mode, large type, etc.)." ? ?"I can't show you printer control characters, because they cannot be" ?"displayed on the screen. I can show you what an ASCII 41 is though." ? ?"Type ? CHR(41) " STORE '? CHR(41)' TO CHECK DO CHECKC ? ?"And, that's it for functions." WAIT RETURN 0/00' .50)" STORE '? INT(250.50)' TO CHECK DO CHECKC ?"You can convert numbers and numeric expresions to characters and specify" ?"the length of the character field. Enter ? STR(234 + 123,3)" STORE '? STR(234 + 123,3)' TO CHECK DO CHECERASE STORE; ' ' TO BLANKS ?"In lesson 8, &STUDENT, the dBASE II functions were reviewed. You also" ?"used ACCEPT to obtain input from the keyboard, and ? to display data" ?"on the CRT." ? ?"In lesson 9, you will learn how to format screens and print special" ?"reports or forms using the @ SAY command. This lesson will be rather" ?"brief, because a new feature called ZIP has been added to dBASE II, and" ?"it performs automatic generation of @ SAY commands based on 'painted'" ?"screens. Still, I am going to show you how the @ SAY command works." ?"By doing so, I will also demonstrate the functions available in ZIP." WAIT ERASE ?"With ZIP or @ SAY you have total flexibility in defining the screen" ?"layout. When used with SET FORMAT TO PRINT, @ SAY can be used to build" ?"custom forms or reports on the printer. For the lesson, I'm going to use" ?"@ SAY to keep my instructions and your responses on the bottom half of" ?"the screen. The results of the @ SAY commands will be displayed on the" ?"top half of the screen." WAIT ERASE @ 11,0 ?"Here I am down here, &STUDENT." ? ?"Using @ SAY or ZIP permits you to use the 24 rows and 80 columns of the" ?"screen any way you wish. When SET FORMAT TO PRINT is in effect, the" ?"printer can be viewed as a large piece of paper having 255 lines, and" ?"255 columns." ? ?"Let's try an example." WAIT DO CLEAR@ ?"In the example, you're going to use a file which contains, among other" ?"things, names and addresses that have to be updated from time to time." ?"We could use the standard screen formats provided by EDIT, APPEND, etc.," ?"but the user doesn't like the way these formats look on the screen, and" ?"the file being used contains a lot of other data on it that clutters the" ?"screen and makes it difficult for office personnel to make the changes." WAIT DO CLEAR@ ?"I have already issued the USE command for NAMEADDR and positioned it to" ?"the first record. NAMEADDR contains, among other fields, some fields" ?"called NAME, ADDR1, ADDR2, ADDR3, ADDR4, and ADDR5.These are the fields" ?"we will be using in our example. I'm going to start prompting you to" ?"enter commands, when I do, enter the command, and watch what happens in" ?"the upper portion of the screen." WAIT DO CLEAR@ USE NAMEADDR ?"Enter @ 1,0 SAY 'NAME OF PERSON' GET NAME" STORE "@ 1,0 SAY 'NAME OF PERSON' GET NAME" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 3,5 SAY 'FIRST ADDRESS' GET ADDR1" STORE "@ 3,5 SAY 'FIRST ADDRESS' GET ADDR1" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 4,5 SAY 'SECOND ADDRESS' GET ADDR2" STORE "@ 4,5 SAY 'SECOND ADDRESS' GET ADDR2" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 6,5 SAY 'THIRD ADDRESS' GET ADDR3" STORE "@ 6,5 SAY 'THIRD ADDRESS' GET ADDR3" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" STORE "@ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" STORE "@ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" TO CHECK DO CHECKS DO CLEAR@ ?"Now that the screen is filled, if a READ command is issued, the cursor" ?"will be placed at the first outstanding GET (which is NAME for us). At" ?"this point, you can enter changes to the NAME field and press the " ?"key to go to the next field. Press after editing the last field," ?"to return to me. Try it &STUDENT.." ? ?"Type READ " STORE 'READ' TO CHECK DO CHECKS DO CLEAR@ ?"Obviously, this is a very simple illustration. In real life, the name" ?"and address file would probably be INDEXed on name or perhaps some other" ?"field or fields so FINDs could be issued randomly to position the file" ?"to the record to be changed. It does, however, illustrate the" ?"flexibility dBASE II provides for screen and printer formatting, and data" ?"entry from the screen." WAIT DO CLEAR@ ?"Don't forget to look at the ZIP package either. That makes screen" ?"building a snap." ? ?"It's time to quit again. After you have, try @ SAY and ZIP. I'll see" ?"you again in the final lesson, lesson 10. Enter QUIT." STORE 'QUIT' TO CHECK DO CHECKS RETURN field or fields so FINDs could be issued randomly to position the file" ?"to the recorfield or fields so FINDs could be issued randomly to position the file" ?"to the recorfield or fields so FINDs could be issued randomly to position the file" ?"to the recor 6,5 SAY 'THIRD ADDRESS' GET ADDR3" STORE "@ 6,5 SAY 'THIRD ADDRESS' GET ADDR3" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" STORE "@ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" STORE "@ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" TO CHECK DO CHECKS DO CLEAR@ ?"Now that the screen 6,5 SAY 'THIRD ADDRESS' GET ADDR3" STORE "@ 6,5 SAY 'THIRD ADDRESS' GET ADDR3" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" STORE "@ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" STORE "@ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" TO CHECK DO CHECKS DO CLEAR@ ?"Now that the screen . It does, however, illustrate the" ?"flexibility dBASEII provides for screen and printer formatting, and data" ?"entry from the screen." WAIT DO CLEAR@ ?"Don't forget to look at the ZIP package either. That makes screen" ?"building a snap." ? ?"It's time to quit again. After you have, try @ SAY and ZIP. I'll see" ?"you again in the final lesson, lesso. It does, however, illustrate the" ?"flexibility dBASEII provides for screen and printer formatting, and data" ?"entry from the screen." WAIT DO CLEAR@ ?"Don't forget to look at the ZIP package either. That makes screen" ?"building a snap." ? ?"It's time to quit again. After you have, try @ SAY and ZIP. I'll see" ?"you again in the final lesson, lessoADDR3" STORE "@ 6,5 SAY 'THIRD ADDRESS' GET ADDR3" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" STORE "@ 7,5 SAY 'FOURTH ADDRESS' GET ADDR4" TO CHECK DO CHECKS DO CLEAR@ ?"Enter @ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" STORE "@ 8,5 SAY 'FIFTH ADDRESS' GET ADDR5" TO CHECK DO ACCEPT 'CORRECT AND RETRY (Y/N)' TO CORRECT STORE !(CORRECT) TO CORRECT IF CORRECT = 'QUIT' QUIT ENDIF IF CORRECT = 'Y' STORE T TO OKC1 DO WHILE OKC1 STORE T TO OKC2 DO WHILE OKC2 ACCEPT 'CHANGE FROM' TO CFROM STORE !(CFROM) TO CFROM IF CFROM = 'QUIT' QUIT ENDIF STORE @(CFROM,COMMAND) TO LOC IF LOC # 0 STORE F TO OKC2 ELSE ?"&CFROM not found." ?"Please try again." ENDIF ENDDO ACCEPT 'CHANGE TO' TO CTO STORE !(CTO) TO CTO IF CTO = 'QUIT' QUIT ENDIF STORE LOC - 1 TO LENI STORE STR(LOC,2) TO LOCX STORE STR(LENI,2) TO LENIX STORE LEN(COMMAND) TO SLEN STORE LEN(CFROM) TO CFROMLEN STORE LOC + CFROMLEN TO SELOC STORE STR(SELOC,2) TO SELOCX STORE (SLEN - SELOC) + 1 TO ELEN STORE STR(ELEN,2) TO ELENX IF LENI # 0 STORE $(COMMAND,1,&LENIX) + CTO TO ISTATE ELSE STORE CTO TO ISTATE ENDIF IF ELEN # 0 STORE ISTATE + $(COMMAND,&SELOCX,&ELENX) TO COMMAND ELSE STORE ISTATE TO COMMAND ENDIF ? ?" &COMMAND" ACCEPT 'MORE CORRECTIONS (Y/N)' TO MOREC STORE !(MOREC) TO MOREC IF MOREC = 'QUIT' QUIT ENDIF IF MOREC = 'Y' LOOP ELSE STORE F TO OKC1 ENDIF ENDDO ENDIF RETURN  0 STORE $(COMMAND,1,LENIX) + CTO TOERASE ?"Throughout these lessons, I will pause to let you read items" ?"displayed on the screen. When I do, the message WAITING will" ?"appear on the screen. When it does, press the space bar to" ?"continue." ? ?"This is a test. Press the space bar when the WAITING message" ?"appears." WAIT ERASE ?" Table of Contents" ? ? ?" I Introduction" ? ?" II A Few New Words" ? ?" III More New Terms" ? ?" IV What Is A Relational Data Base?" ? ? WAIT ERASE ?"I Introduction" ? ?"There is something unusual about this product. There is no manual. Don't" ?"feel cheated. In keeping with the computer age, we have chosen to put" ?"information on magnetic disk, rather than on paper. We did this because" ?"we think that working interactively with a computer is a far better way" ?"to learn than by simply reading a manual." ? ?"In this course, you will be actively working with dBASE II. In many" ?"instances, you will decide the data to be used and the format of output." ?"Where data is supplied, you will have to issue the proper commands to act" ?"on the data. Don't worry though, the dBASE II Lessons give you a lot of" ?"help when you make errors, so if you make errors in dBASE II, you'll know" ?"how to correct them." WAIT ERASE ?"For the beginner, we believe you will find that the first four lessons will" ?"be all you need to really feel comfortable with dBASE II, and at that" ?"point, you will know all of the operations required to create files," ?"generate reports, change data on your files through editing, and perform" ?"computations on your data. Each lesson will probably not take more" ?"than a half hour to complete." ? ?"For the experienced programmer, you're in for a treat. If you think" ?"COBOL, PL/I, FORTRAN, PASCAL, or BASIC are nice programming languages," ?"wait until you try this. The combination of structured English, set" ?"processing, dBASE II functions, macros (substitutions within commands)," ?"stored command procedures (programs), nested DO and nested IF capability," ?"along with true relational data base capability is extremely powerful." ?"At the same time, dBASE II is very easy to use, and it runs on a " ?"microcomputer, which makes it even more attractive. We think you'll find" ?"lessons eight, nine, and ten most interesting." WAIT ERASE ?"II A Few New Words" ? ?"There are a few new terms that are essential to Data Base Management. You" ?"should become familiar with them before you begin the Lessons." ? ?" What Is A File?" ? ?"A file is a body of information about the same subject. Electronic files" ?"are a lot like the paper files in your file cabinet. For example, you" ?"might have a file folder labeled, 'Customers--Smith.' It holds all" ?"information you have on your customers named Smith. You may even have" ?"a personal file folder containing names and addresses of your friends" ?"and relatives." WAIT ERASE ?" What Is A Record?" ? ?"A record is a smaller unit of information within a file. An electronic" ?"record can be compared to a piece of paper which contains information" ?"pertinent to one of your customers. For example, David Smith's name," ?"address, phone number, and purchasing history." ? ?" What Is A Field?" ? ?"A field is a category or heading within a record. If the information" ?"you wanted in a record was NAME, ADDRESS, PHONE NUMBER, TITLE, PRODUCTS" ?"PURCHASED, BILLS OUTSTANDING, you would need to create a field for each" ?"item. The way you intend to use the file will help you to decide how " ?"many fields you have and what they are." WAIT ERASE ?" What Is Data?" ? ?"Data is what you get out of your computer from the information you have" ?"entered into your computer. For example, if you entered a customer's name" ?"as 'David Smith,' 'David Smith' is the data you would get out of your" ?"computer when you asked for that particular customer's name." ? ?"A FILE is the largest unit of information. A FILE contains RECORDS where" ?"DATA is stored under headings or categories called FIELDS." WAIT ERASE ?"III More New Terms" ? ?" Operating Systems" ? ?"The Operating System is essentially the software required to manage your" ?"computer. The most important function of a microcomputer operating system" ?"is to control the input of information and the output of data to computer-" ?"ized devices (such as, a printer, the terminal's display screen, and disk" ?"drives). All of your typed-in requests to print a document, display a" ?"report on the screen, or copy data to a disk pass through the Operating" ?"System. It knows the correct device addresses for requests and makes it" ?"easy for you to use these devices. The Operating System also performs" ?"input and output error checking and attempts error corrections whenever" ?"possible." ? ?"There are a few operating system facilities that you should become familiar" ?"with." WAIT ERASE ?"'DIR' is a command you give your computer to find out what files you have" ?"in a particular disk. When you enter the 'DIR' command at the B prompt" ?"('B>DIR'), you will get a screen display of all names of the files in your" ?"B drive (or on the disk in your B drive)." ? ?"'STAT' is a command that asks for the free space status of a particular" ?"drive (or disk inserted in that drive). When entered at a drive prompt," ?"(for example, 'A>STAT'), your computer will tell you in terms of BYTES" ?"(characters), how much room you have left to work with." WAIT ERASE ?"'PIP' is used to transfer data from one device (a disk, for example) to" ?"another device (another disk, for example). The command to transfer the" ?"file MYFILE from drive A to drive B looks like this:" ? ?" B>PIP B:=A:MYFILE" ? ?"One more command, 'ERA' is a command that should be used with caution." ?"'ERA' erases files you identify. Usually, this is used with text files" ?"you have written, like memos or letters, after they have been sent to the" ?"addressees, or data files that are no longer needed." ? ?"You will find more information on these operating system facilities and how" ?"they work on your computer in your computer operating manual." WAIT ERASE ?"IV What Is A Relational Data Base?" ? ?"First of all, a data base is a systemized organization of computer files" ?"for central access, retrieval, and editing. In a Relational data base," ?"the data base looks like a table. In other data base systems, the" ?"structures are rather complex, but dBASE II data bases all look something" ?"like this simplified example, which follows:" WAIT ERASE ?" Employee Roster" ? ?" EMPNAME EMPNO EMPDEPT EMPSAL EMPSTART" ? ?"REC1 Allen, F. G. 211 ACCT 18,000 01/23/79" ? ?"REC2 Brown, H. B. 354 ADMN 14,500 03/22/82" ? ?"REC3 Calendor, P. 134 PERS 21,000 12/17/77" ? ?"REC4 Calvin, J. 098 PRES 88,000 10/02/75" ? ?"The horizontal axis of this chart lists FIELD NAMES (EMPNAME, EMPNO," ?"EMPDEPT, EMPSAL, EMPSTRT), which read down each column. The vertical" ?"axis lists the records of this file, which read accross the page. With" ?"this type of organization, any or all data bases can be accessed by" ?"naming the coordinates of any particular cell of information. For" ?"example, you can find out the salary of P. Calendor by asking for the" ?"EMPSAL of Calendor, P.. We can also find out anything else about P." ?"Calendor if it is listed in the file. We could also ask for all EMPNAME" ?"(EMPloyees' NAMes) beginning with the letter 'C'." WAIT ERASE RETURN stem is essentially the software required to manage your" ?"computer. The most important function of a microcomputer operating system" ?"is to control the input of information and the output of data to computer-" ?"ized devices (such as, a printer, the terminal's display screen, and disk" ?"drives). All of your typed-inSTORE 0 TO T:NAMEOK STORE 0 TO COUNT STORE LEN(T:NAME) TO T:NAMELC DO WHILE COUNT < T:NAMELC STORE COUNT + 1 TO COUNT STORE STR(COUNT,2) TO COUNTX IF $(T:NAME,&COUNTX,1) < 'A' .OR. $(T:NAME,&COUNTX,1) > 'Z' IF $(T:NAME,&COUNTX,1) < '0' .OR. $(T:NAME,&COUNTX,1) > '9' STORE T:NAMELC TO COUNT STORE 0 TO T:NAMEOK LOOP ELSE STORE 1 TO T:NAMEOK ENDIF ELSE STORE 1 TO T:NAMEOK ENDIF ENDDO IF T:NAMEOK = 1 IF $(T:NAME,1,1) < 'A' .OR. $(T:NAME,1,1) > 'Z' STORE 0 TO T:NAMEOK ?"The first character in a name must be a letter." ?"Please try again." ? ENDIF ELSE ?"Although dBASE II permits some special characters in names, please" ?"use only letters and numbers now. Please try again." ? ENDIF RETURN  TO OK ENDDO ERASE ?"Immediately following the creation of a file, dBASE II asks:" ? ?"ENTER DATA NOW?" ? ?"To which you would reply Y if you wished to enter data intPROMPTd COUNT dBOK *d@STUDENTdKVJSPELLdYPRINTERdNLESSON d6LESSONN d@`OK1 8d@TDRIVE5dACHECKdSAVE TO TUTMEMCOMMANDdSAVE TO TUTMEMCORRECT'dNOKC1dOKC2dCFROMRdUTLOC VdACTO]dTLENI ydALOCX`d14LENIXd13SLEN dACFROMLEN d@ SELOC dASELOCXd16ELEN d@ ELENXd 2ISTATEdDISPLAY STRUCTMOREC?dNMEMNAMEIdREDFORD .NAMEClADDRCl JIM OVER THERE HAROLD RUSSIA GEORGE PENNSYLVANIA THROCKMORTON OUTER MONGOLIA GOD EVERYWHERE ITS OVER THERE SALLY RUSSIA LINDA PENNSYLVANIA HAROLD RUSSIA GEORGE PENNSYLVANIA 0 ITS OVER THERE 0.0 HAROLD RUSSIA 100.5 GEORGE PENNSYLVANIA 58.0DO WHILE OK = 0 ACCEPT TO COMMAND IF !(COMMAND = 'DISPLAY' STORE 1 TO OK ^COMMAND ELSE ?"Check your spelling, and try it again." ENDIF ENDDO ?"That's whSET TALK ON SET ECHO ON USE COMPUTE REPLACE ALL TAXES WITH ((SALCLASS * .06) * MONTHSAL) REPLACE ALL NETSALARY WITH MONTHSAL - TAXES REPLACE ALL YTDSALARY WITH YTDSALARY + NETSALARY WAIT REPORT FORM COMPUTE SET ECHO OFF SET TALK OFF RETURN etter name. Let's change the name of COMPBK" ?"to WHITEHSE. RENAME will do that for us." ?"Type RENAME COMPBK TO WHITEHSE (cr)" STORE 0 TO OK DO WHILE OK = 0 ACCEPT TO COMMAND IF !(COMMAND) # 'RENAME COMPBK TO WHITEHSE' ?"Check your spelling, and try again."  ACCEPT TO COMMAND IF !(COMMAND) # 'QUIT' ?"Check your spelling, and try again." LOOP ELSE STORE 1 TO OK ^COMMAND ENDIF ENDDO RETURN re on the same diskette," ?"and that diskette is unreadable, the back-up file" ?"is just as inaccessible as the original. Since " ?"we're just demonstrating the commands required to" ?"back-up a file, we'll put them on the samPOSITIONC lYTDSALARYNlMONTHSALNlSALCLASSNlTAXESNlNETSALARYNl DATECsAMTN sNUMNsCLEARLs 04/12/84 100000.00 1F mselect PICTURE "#" READ * reading user response STORE VAL(mselect) TO select ENDDO * process user's response DO CASE * test for exit condition CASE select = 0 RELEASE mselect,select * retain variables - 'balance', 'lastchk' and 'lastdep' SAVE TO Cb-book.mem * clear variables and return to calling program or dbase system CLEAR ERASE RETURN * test for new checBALANCE gDPLASTDEP g@LASTCHK g@FMENU.CMD (.PRG) TO loop2 ENDIF ENDDO loop2 IF !(answer)="Y" * data is correct - add to database APPEND BLANK REPLACE Chkno WITH mchkno REPLACE Date WITH mdate REPLACE Payto WITH mpayto REPLACE Amt WITH mamt REPLACE Memo WITH mmemo REPLACE Can WITH mcan * update balance and lastchk STORE balance - Amt TO ba* Program.: CB-CANCL.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Enter cancelled checks * Called from CB-MENU.CMD (.PRG) * enter cancelled check data * USE Cb-check * draw check mask DO Cb-mask @ 1,26 SAY "CHECK CANCELLATION ROUTINE" STORE T TO more DO WHILE more * more is designed for repeated check cancellations STORE 0 TO mcan * input check number to be cancelled @ 20, 0 @ 18,11 SAY "Enter Check Number to be cancelled (or 0 to exit)"; GET mcan PICTURE "####" READ * testing for exit condition IF mcan = 0 STORE F TO more LOOP ENDIF * search for cancelled check number LOCATE FOR Chkno = mcan IF .NOT. Can .AND. .NOT. EOF * if not already cancelled and not at end of file, display check data @ 4,71 SAY Chkno @ 6,68 SAY Date @ 8,25 SAY Payto @ 8,66 SAY Amt PICTURE "#######.##" @ 14,10 SAY Memo @ 18, 0 STORE " " TO answer @ 18,23 SAY "Is this the right check? [Y/N] " GET answer PICTURE "!" READ IF answer = "Y" REPLACE Can WITH T ENDIF ELSE * if not located, clear entry from previous check on screen @ 4,71 SAY " " @ 6,68 SAY " " @ 8,25 SAY " " @ 8,66 SAY " " @ 14,10 SAY " " IF EOF * check is not in file @ 20,21 SAY "Check "+STR(mcan,4)+" cannot be found." ELSE * check is already cancelled @ 20,19 SAY "Check "+STR(mcan,4)+" is already cancelled." ENDIF STORE " " TO wait @ 21,20 SAY "Press any key to continue " GET wait READ @ 20, 0 @ 21, 0 ENDIF CLEAR GETS ENDDO more ERASE * display to the screen a list of remaining uncleared checks ? " LIST OF REMAINING UNCLEARED CHECKS" ? ? "CHKNO PAID TO "+; "AMOUNT DATE MEMO" ? "----- ------------------------------- ---------- -------- --------------" DISPLAY OFF ALL FOR .NOT. Can Chkno, Payto, Amt, Date, TRIM(Memo) ? ? STORE " " TO answer @ 22,13 SAY "Press any key to return to the main menu " GET answer READ * close out open files and variables USE RELEASE mcan,answer,more,wait RETURN * EOF: CB-CANCL.CMD (.PRG) * Program.: CB-CHECK.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Enter checks * Called from CB-MAIN.CMD (.PRG) * enter new check data USE Cb-check * draw the check mask on the screen DO Cb-mask STORE T TO loop1 DO WHILE loop1 * loop1 is designed to continue entering checks into the database @ 1,60 SAY "LAST CHECK #"+STR(lastchk,4,0) * initialize memory variables STORE lastchk+1 TO mchkno STORE " " TO mdate STORE " " TO mpayto STORE 0 TO mamt STORE " " TO mmemo STORE F TO mcan STORE T TO loop2 DO WHILE loop2 * loop2 is designed to enter and reenter correct data STORE T TO loop3 DO WHILE loop3 * loop3 is designed to check for duplicate check numbers @ 4,42 SAY "(Enter 0 to exit)" @ 4,70 GET mchkno PICTURE "####" READ @ 4,42 SAY " " @ 18, 0 IF mchkno = 0 USE RELEASE loop1,loop2,loop3,answer,is:valid,valid,ans,taxchar,; mchkno,mdate,mpayto,mamt,mmemo,mcan,mtax,word1,word2 RELEASE amt:full,length,amt:word,is:error,count,true,string RETURN ENDIF * test for negative check number IF mchkno < 0 STORE lastchk+1 TO mchkno LOOP ENDIF * check for duplicate check number LOCATE FOR Chkno=mchkno IF .NOT. EOF @ 18,15 SAY "Check number already exists. Please reenter" ELSE STORE F TO loop3 @ 18,0 ENDIF ENDDO loop3 STORE F TO is:valid DO WHILE .NOT. is:valid @ 6,67 GET mdate PICTURE "##/##/##" READ * check for valid date DO Cb-date IF .NOT. is:valid @ 18,25 SAY "Invalid date - please reenter" ELSE @ 18, 0 ENDIF ENDDO STORE F TO valid DO WHILE .NOT. valid * test for name on check - no blank checks allowed @ 8,24 GET mpayto READ IF mpayto = " " @ 18,15 SAY "No blank checks allowed - please reenter" ELSE @ 18, 0 STORE T TO valid ENDIF ENDDO STORE F TO valid DO WHILE .NOT. valid * test for amount less than or equal to 0 @ 8,65 GET mamt PICTURE "#######.##" READ IF mamt = 0.00 @ 18,15 SAY "Check must have an amount - please reenter " ELSE IF mamt < 0.00 @ 18,15 SAY "Check must be a positive amount - "+; "please reenter" ELSE @ 18, 0 * put numbers into words!! STORE mamt TO amt:full DO Cb-nbwd IF is:error @ 20,20 SAY "Number is too large - please reenter" ELSE STORE T TO valid ENDIF ENDIF ENDIF ENDDO IF balance < mamt @ 18,10 SAY "There are not sufficient amount of funds "+; "to cover this check." * erase current check display @ 6,67 SAY " " @ 8,24 SAY " " @ 8,65 SAY " " STORE lastchk+1 TO mchkno STORE " " TO mdate STORE " " TO mpayto STORE 0.00 TO mamt LOOP ENDIF * display words on check STORE " "; TO string STORE LEN(amt:word) TO length IF length > 75 STORE 74 TO count STORE T TO true DO WHILE true IF $(amt:word,count,1)=" " .OR. $(amt:word,count,1)="-" STORE F TO true ELSE STORE count-1 TO count ENDIF ENDDO STORE $(amt:word,1,count)+$(string,1,75-count) TO word1 STORE $(amt:word,count+1,length-count) TO word2 @ 11,4 SAY word1 @ 12,10 SAY word2 ELSE STORE amt:word + $(string,1,75-length) TO word1 @ 11,4 SAY word1 @ 12,10 SAY " " ENDIF * enter memo data @ 14, 9 GET mmemo READ @ 18,0 STORE " " TO answer @ 18,10 SAY "IS THE ABOVE CHECK CORRECT? "+; "[ (Y)es / (N)o / (A)bort ] " GET answer PICTURE "!" READ CLEAR GETS @ 18,0 IF answer$"YA " STORE F TO loop2 ENDIF ENDDO loop2 IF answer $ "Y " APPEND BLANK REPLACE Chkno WITH mchkno,Date WITH mdate,Payto WITH mpayto,; Amt WITH mamt,Memo WITH mmemo,Can WITH mcan STORE balance - Amt TO balance STORE Chkno TO lastchk STORE " " TO answer @ 18,5 SAY "Do you need a record of this check for income"+; " tax purposes? [Y/N] " GET answer PICTURE "!" READ IF answer $ "Y " @ 18, 0 @ 18, 1 SAY "(1) Business expenses (4) Alimony" @ 18,55 SAY "(7) Contributions" @ 19, 1 SAY "(2) Medical or Dental (5) Child Care" @ 19,55 SAY "(8) Miscellaneous" @ 20, 1 SAY "(3) Medicine or Drugs (6) Automotive" STORE 9 TO mtax DO WHILE mtax < 0 .OR. mtax > 8 * enter respective tax deduction STORE " " TO taxchar @ 22, 5 SAY "Enter number which corresponds to tax "+; "deduction (or 0 for none) " GET taxchar READ STORE VAL(taxchar) TO mtax ENDDO ELSE STORE 0 TO mtax ENDIF REPLACE Tax WITH mtax @ 18,0 @ 19,0 @ 20,0 @ 22,0 ENDIF STORE " " TO answer @ 18,10 SAY "Would you like to enter another check? [Y/N] "; GET answer PICTURE "!" READ @ 18,0 IF answer = "N" STORE F TO loop1 ELSE @ 6,67 SAY " " @ 8,24 SAY " " @ 8,65 SAY " " @ 14, 9 SAY " " @ 11, 4 SAY "__________________________________________________" @ 11,54 SAY "_______________Dollars" @ 12,10 SAY " " ENDIF ENDDO loop1 USE RELEASE loop1,loop2,loop3,answer,is:valid,valid,ans,taxchar,mchkno,mdate,; mpayto,mamt,mmemo,mcan,mtax RELEASE amt:full,length,amt:word,is:error,count,true,word1,word2,string RETURN * EOF: CB-CHECK.CMD (.PRG)  SAY " " @ 14, 9 SAY " " @ 11, 4 SAY "__________________________________________________" @ 11,54 SAY "_______________Dollars" @ 12,10 SAY " " ENDIF ENDDO loPCHKNONsPAYTOCsAMTN sCANLtDATECtMEMOCtTAXN't 1JIM NOVAK 50000.00T04/12/84SERVICES 3ponse STORE VAL(mselect) TO select ENDDO * process user's response DO CASE * test for exit condition CASE select = 0 RELEASE mselect,select * retain variables - 'balance', 'lastchk' and 'lastdep' SAVE TO Cb-book.mem * clear variables and return to calling program or dbase system CLEAR ERASE RETURN * test for new chec* Program.: CB-CLEAR.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Clear deposits * Called from CB-MENU.CMD (.PRG) USE Cb-bank ERASE @ 1,20 SAY "Clear Deposits with Bank Statement" @ 2,20 SAY "----------------------------------" @ 3, 5 SAY " Date Amount " @ 4, 5 SAY "-------- ----------" IF lastdep>10 @ 3,45 SAY " Date Amount " @ 4,45 SAY "-------- ----------" ENDIF IF lastdep > 20 STORE 20 TO stop ELSE STORE lastdep TO stop ENDIF STORE 1 TO col,count STORE 5 TO row DO WHILE count <= stop LOCATE FOR Num=count @ row,col SAY Num @ row,col+4 SAY Date @ row,col+15 SAY Amt IF count = 10 STORE 41 TO col ENDIF STORE count+1 TO count IF count > 10 STORE count-6 TO row ELSE STORE count+4 TO row ENDIF ENDDO STORE T TO loop1 DO WHILE loop1 STORE -1 TO number DO WHILE number < 0 .OR. number > stop STORE " " TO mnumber @ 16,15 SAY "Enter number of corresponding deposit listed on" @ 17,21 SAY "bank statement (or 0 to exit) " GET mnumber READ STORE VAL(mnumber) TO number ENDDO @ 19,0 IF number = 0 STORE F TO loop1 LOOP ENDIF IF number > 10 STORE 39 TO col STORE number-6 TO row ELSE STORE 0 TO col STORE number+4 TO row ENDIF LOCATE FOR Num=number IF EOF @ 19,22 SAY "Already cleared - please reenter" ELSE STORE " " TO answer @ 19,25 SAY "Is this correct? [Y/N] " GET answer PICTURE "!" READ @ 19,0 IF answer $ "Y " REPLACE Clear WITH T,Num WITH 0 @ row,col SAY " " ELSE @ row,col SAY " " ENDIF ENDIF CLEAR GETS ENDDO STORE 0 TO count LOCATE FOR .NOT. Clear IF EOF @ 22,22 SAY "There are no deposits in transit" STORE 0 TO lastdep ELSE STORE T TO loop2 DO WHILE loop2 STORE count+1 TO count REPLACE Num WITH count CONTINUE IF EOF STORE count TO lastdep STORE F TO loop2 ENDIF ENDDO @ 22,22 SAY "There are "+STR(lastdep,2,0)+" deposits in transit" ENDIF USE * release memory variables RELEASE stop,col,row,count,loop1,number,mnumber,answer,loop2 * EOF: CB-CLEAR.CMD (.PRG) ar IF EOF @ 22,22 SAY "There are no deposits in transit" STORE 0 TO lastdep ELSE STORE T TO loop2 DO WHILE loo* Program.: CB-DATE.CMD (.PRG) * Author..: Luis A. Castro * Date....: 8/2/83, 11/20/83. * Notice..: Copyright 1983, ASHTON-TATE, All Rights Reserved. * May not be reproduced without permission. * Notes...: Subroutine to verify a date. * PARAMETERS------------------------------------------------+ * name typ len picture description * ========== === === ========== ======================= * mdate C 8 MM/DD/YY Calendar date * (or) mdate C 10 MM/DD/YYYY Calendar date * is:valid L 1 Validation flag. * ----------------------------------------------------------+ STORE F TO is:valid IF 0 = TEST(MDATE) .OR.; ( LEN(mdate) <> 8 .AND. LEN(mdate) <> 10 ) .OR.; @(" ",mdate) > 0 .OR. @("-",mdate) > 0 .OR.; @(".",mdate) > 0 .OR. @("+",mdate) > 0 * ---The memory variable "mdate" must exist and * ---must not contain special characters. RETURN ENDIF * STORE VAL( $(mdate,1,2) ) TO t:month STORE VAL( $(mdate,4,2) ) TO t:day IF LEN(mdate) = 8 STORE VAL( $(mdate,7,2) ) TO t:year ELSE STORE VAL( $(mdate,7,4) ) TO t:year ENDIF * DO CASE CASE t:month < 1 .OR. t:month > 12 .OR. t:day < 1 .OR.; t:day > VAL( $("312931303130313130313031",; ( t:month - 13*INT(t:month/13))*2 - 1, 2 ) ) * CASE LEN(mdate)= 8 .AND. t:month=2 .AND.; t:day > 28 .AND. t:year/4 > int(t:year/4) * CASE LEN(mdate)=10 .AND. t:month=2 .AND.; t:day > 28 .AND. ( (t:year/4 > INT(t:year/4) .AND.; t:year/100 = INT(t:year/100)) .OR.; t:year/400 > INT(t:year/400) ) * OTHERWISE STORE T TO is:valid ENDCASE * RELEASE t:month,t:day,t:year RETURN * EOF: CB-DATE.PRG (.CMD)  ( t:month - 13*INT(t:month/13))*2 - 1, 2 ) ) * CASE LEN(mdate)= 8 .AND. t:month=2 .AND.; t:day > 28 .AND. t:year/4 > int(t:year/4) * CASE LEN(mdate)=10 .AND. t:month=2 .AND.; t:day > 28 .AND. ( (t:year/4 > INT(t:year/4* Program.: CB-DEPST.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Enter deposits * Called from CB-MAIN.CMD * enter new deposit data USE Cb-depst GO BOTTOM STORE #+1 TO firstdep * initialize logical memory variables STORE F TO special,again STORE T TO continue DO WHILE continue * continue loop is for continuing entering a deposit slip ERASE @ 3, 0 SAY "+--------------------------------------------+" @ 4, 0 SAY "|" @ 5, 0 SAY "|" @ 6, 0 SAY "|" @ 7, 0 SAY "|" @ 8, 0 SAY "|" @ 9, 0 SAY "|" @ 10, 0 SAY "|" @ 11, 0 SAY "|" @ 12, 0 SAY "|" @ 13, 0 SAY "|" @ 14, 0 SAY "|" @ 15, 0 SAY "|" @ 16, 0 SAY "|" @ 17, 0 SAY "|" @ 18, 0 SAY "|" @ 19, 0 SAY "|" @ 20, 0 SAY "+--------------------------------------------+" @ 19,45 SAY "|" @ 18,45 SAY "|" @ 17,45 SAY "|" @ 16,45 SAY "|" @ 15,45 SAY "|" @ 14,45 SAY "|" @ 13,45 SAY "|" @ 12,45 SAY "|" @ 11,45 SAY "|" @ 10,45 SAY "|" @ 9,45 SAY "|" @ 8,45 SAY "|" @ 7,45 SAY "|" @ 6,45 SAY "|" @ 5,45 SAY "|" @ 4,45 SAY "|" @ 6, 3 SAY "========================================" @ 7,30 SAY "|" @ 8,30 SAY "|" @ 9,30 SAY "|" @ 10,30 SAY "|" @ 11,30 SAY "|" @ 12,30 SAY "|" @ 13,30 SAY "|" @ 14,30 SAY "|" @ 2,18 SAY "DEPOSIT SLIP" @ 5, 9 SAY "RECEIVED FROM" @ 5,34 SAY "AMOUNT" @ 16,15 SAY "SUBTOTAL" * initialize memory variables STORE 0.00 TO subtotal,total,cash @ 16,32 SAY subtotal * enter date if first time through loop IF .NOT. again STORE F TO is:valid,c DO WHILE .NOT. is:valid STORE " " TO mdate @ 4,5 SAY "ENTER DATE OF DEPOSIT " GET mdate PICTURE "##/##/##" READ @ 4,48 IF mdate=" / / " @ 4,55 SAY "NO DATE ENTERED" STORE " " TO ans @ 5,48 SAY "Do you wish to abort? [Y/N] " GET ans PICTURE "!" READ IF ans = "Y" USE RELEASE firstdep,special,again,continue,subtotal,total,; cash,is:valid,mdate,ans RETURN ENDIF @ 4,48 @ 5,48 ELSE DO Cb-date IF .NOT. is:valid @ 4,48 SAY "Invalid Date - please reenter" ELSE STORE " " TO answer @ 4,48 SAY "Is this correct? [Y/N] " GET answer PICTURE "!" READ @ 4,48 IF answer = "N" STORE F TO is:valid ENDIF ENDIF ENDIF ENDDO is:valid ENDIF @ 4,4 SAY " Date of Deposit: " @ 4,25 SAY mdate STORE 7 TO line STORE F TO restart STORE T TO loop2 DO WHILE loop2 * loop2 is for updating incorrect deposit slip STORE T TO more DO WHILE more * more is for entering and updating individual deposit entries IF line > 14 @ 16,15 SAY " " @ 20, 0 @ 23, 0 @ 0, 0 @ 19, 0 SAY "|" @ 19,45 SAY "|" @ 20, 0 SAY "+--------------------------------------------+" @ 14,30 SAY "|" @ 16,15 SAY "SUBTOTAL" @ 16,32 SAY subtotal STORE 14 TO line ENDIF * if second time through loop IF again IF .NOT. special STORE Paidfrom TO mpayfrom STORE Amt TO mamt ENDIF * display deposit information @ line,4 SAY mpayfrom @ line,32 SAY mamt IF .NOT. special STORE " " TO ans @ line,48 SAY "Is this correct? [Y/N] " GET ans PICTURE "!" READ ENDIF @ line,48 CLEAR GETS IF ans = "N" .OR. special STORE " " TO an @ line,52 SAY "Do you wish to delete" @ line+1,50 SAY "this transaction? [Y/N] " GET an PICTURE "!" READ @ line,48 @ line+1,48 IF an = "Y" * erase current deposit from screen... @ line,3 SAY " " @ line,31 SAY " " DELETE SKIP IF EOF STORE F TO more ENDIF LOOP ELSE IF special REPLACE Paidfrom WITH mpayfrom,Amt WITH mamt ENDIF ENDIF ELSE STORE subtotal + mamt TO subtotal @ 16,32 SAY subtotal SKIP IF EOF STORE F TO more ENDIF STORE line+1 TO line LOOP ENDIF ELSE STORE " " TO mpayfrom STORE 0.00 TO mamt STORE F TO loopamt ENDIF STORE F TO special * this routine is to enter deposit data @ line,3 GET mpayfrom READ IF mpayfrom=" " @ line,3 SAY " " @ line,29 SAY " " @ line,31 SAY " " IF again STORE T TO special LOOP ENDIF STORE F TO more LOOP ENDIF STORE T TO loopamt DO WHILE loopamt * make sure a positive amount is inputted @ line,31 GET mamt READ IF mamt <= 0 STORE 0.00 TO mamt ELSE STORE F TO loopamt ENDIF ENDDO * display subtotal to screen STORE subtotal + mamt to test @ 16,32 SAY test STORE " " TO ans @ line,48 SAY "Is this correct? [Y/N] " GET ans PICTURE "!" READ @ line,48 CLEAR GETS IF ans = "N" @ 16,32 SAY subtotal @ line,31 SAY " " LOOP ENDIF * delete colons from the screen surrounding each input @ line,3 SAY " " @ line,29 SAY " " @ line,31 SAY " " @ line,42 SAY " " STORE subtotal + mamt TO subtotal * now add a record (if first time through)... IF .NOT. again APPEND BLANK ENDIF REPLACE Paidfrom WITH mpayfrom,Date WITH mdate,Amt WITH mamt IF again SKIP IF EOF STORE F TO more ENDIF ENDIF STORE line+1 TO line ENDDO more IF subtotal = 0 @ line,52 SAY "NO DEPOSITS ENTERED" STORE " " TO ans @ line+1,48 SAY "Do you wish to abort? [Y/N] " GET ans PICTURE "!" READ @ line,52 @ line+1,48 IF ans = "Y" PACK USE RELEASE firstdep,special,again,continue,subtotal,total,cash,c,; is:valid,mdate,line,restart,loop2,more,mpayfrom,mamt RELEASE loopamt,test,ans,answer,an RETURN ELSE IF again PACK STORE T TO restart STORE F TO loop2 ELSE LOOP ENDIF ENDIF ELSE STORE F TO loop2 ENDIF ENDDO loop2 IF restart STORE F TO again,special RELEASE line,restart,loop2,more,mpayfrom,mamt,loopamt,test,answer,an LOOP ENDIF @ 18,30 SAY "-------------" @ 17,15 SAY "LESS CHANGE" STORE 0.00 TO total DO WHILE total <= 0.00 @ 17,31 GET cash READ @ 22,0 STORE subtotal-cash TO total IF total <= 0.00 @ 22,10 SAY "Cash withdrawal exceeds deposit - please reenter" ENDIF ENDDO IF cash <> 0 @ 17,31 SAY "<" @ 17,42 SAY " >" ELSE @ 17,31 SAY " " @ 17,42 SAY " " ENDIF @ 19,15 SAY "TOTAL DEPOSIT" @ 19,32 SAY total STORE " " TO answer @ 22, 6 SAY "Is the above deposit slip correct? "+; "[ (Y)es / (N)o / (A)bort ] " GET answer PICTURE "!" READ IF answer = "N" GOTO firstdep STORE T TO again LOOP ENDIF IF answer = "A" @ 22,0 @ 22,12 SAY "ABORTING ABOVE DEPOSIT" GOTO firstdep DO WHILE .NOT. EOF DELETE SKIP ENDDO PACK ENDIF IF answer$"Y " STORE balance + total TO balance IF cash > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH -cash,Paidfrom WITH "Cash Withdrawal" ENDIF IF again PACK STORE F TO again ENDIF STORE lastdep+1 TO lastdep USE Cb-bank APPEND BLANK REPLACE Date WITH mdate,Amt WITH total,Num WITH lastdep,Clear WITH F USE Cb-depst ENDIF STORE " " TO answer @ 22,0 @ 22, 3 SAY "Would you like to enter another deposit? [Y/N] "; GET answer PICTURE "!" READ IF answer = "N" STORE F TO continue ELSE GO BOTTOM STORE #+1 TO firstdep RELEASE line,restart,loop2,more,mpayfrom,mamt,loopamt,test,answer,an ENDIF CLEAR GETS ENDDO continue USE RELEASE firstdep,again,continue,subtotal,total,cash,c,is:valid,mdate,; line,more,mpayfrom,mamt,loopamt,test,ans,an,answer RELEASE special,loop2,restart RETURN * EOF: CB-DEPST.CMD (.PRG) GET answer PICTURE "!" READ IF answer = "N" STORE F TO continue ELSE GO BOTTOM STORE #+1 TO firstdep RELEASE line,restart,loop2,more,mpayfrom,mamt,loopamt,test,answer,an ENDIF CLEAR GETS ENDDO continue USE RELEASE firstdep,again,continue,subtotal,total,cash,c,is:valid,mdate,; line,more,mpayfrom,mamt,loopamt,test,ans,an,,DATECsAMTN sPAIDFROMCs 04/12/84 100000.00KAYPRO Y "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "||" @ 10,78 SAY "||" @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "========================================" @ 12,40 SAY "========================================" @ 5,29 SAY " 0. exit" @ 6,29 SAY " 1. mailing labels"* Program.: CB-HELP.CMD (.PRG) * Author..: Stephen Kurasch * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Help screens called from CB-MENU.CMD ERASE SET COLON OFF ? TEXT Welcome to the Checkbook Management System. This system is designed to keep track of your deposits, your checks, balancing your checkbook and print- ing reports of several combinations. Listed below are the menu selections and a description of each. (1) Enter new checks: This selection will allow the user to enter checks. The special features of this entry are checking for duplicate check numbers, checking for a valid date, not allowing a blank check, making sure that a positive, non-zero amount exists, and categorizing the check into 8 different tax deductible fields (if needed). (2) Enter deposits: This selection is for entering a deposit slip. The special features included here are keeping track of the individual deposits as well as the entire deposit slip itself. It checks for positive, non-zero amounts and provides a place to deduct cash withdrawals. ENDTEXT STORE " " TO continue @ 23,25 SAY "Press any key to continue " GET continue READ ERASE ? TEXT (3) Enter cancelled checks: This selection allows you to cancel the checks you received with your bank statement. It checks to make sure that the check has already been cancelled or that the check is on file. (4) Entered cleared deposits: This selection allows you to clear the deposits that are listed on the bank statement. (5) Reconcile bank statement: This selection is a bank reconciliation. Preparing a bank recon- ciliation means determining those items which make up the difference between the balance on the bank statement and the balance in the checkbook. We must deduct from our records any charges that been made by the bank. We must add to our records any amount that the bank has credited to our account. This includes interest earned, or if you are lucky enough, a bank note that has come due to you. As in (3) and (4) above, these must be taken into account on the banks records. ENDTEXT STORE " " TO continue @ 23,25 SAY "Press any key to continue " GET continue READ ERASE ? TEXT (6) Reports: This selection will print several combinations of reports. These include listings of all checks, of all taxable checks, and of all deposits between two dates. All reports can be listed on the screen or to the printer. Have fun!!! ENDTEXT STORE " " TO continue @ 23,17 SAY "Press any key to return to the main menu " GET continue READ SET COLON ON RELEASE continue RETURN * Program.: CB-MAIN.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Main menu for checkbook management system * Turn off display of commands to the screen SET TALK OFF SET BELL OFF SET INTENSITY OFF * Pull retained variables from memory file CHXBOOK.MEM RESTORE FROM Cb-book.mem DO WHILE T * DO WHILE T means DO WHILE TRUE i.e. DO FOREVER * The DO WHILE will be terminated by a RETURN command * clear the screen and display the main menu ERASE @ 1, 0 SAY "========================================" @ 1,40 SAY "========================================" @ 2, 0 SAY "||" @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" @ 4, 0 SAY "||" @ 5, 0 SAY "||" @ 6, 0 SAY "||" @ 7, 0 SAY "||" @ 8, 0 SAY "||" @ 9, 0 SAY "||" @ 10, 0 SAY "||" @ 11, 0 SAY "||" @ 12, 0 SAY "||" @ 13, 0 SAY "||" @ 14, 0 SAY "||" @ 15, 0 SAY "========================================" @ 15,40 SAY "========================================" @ 14,78 SAY "||" @ 13,78 SAY "||" @ 12,78 SAY "||" @ 11,78 SAY "||" @ 10,78 SAY "||" @ 9,78 SAY "||" @ 8,78 SAY "||" @ 7,78 SAY "||" @ 6,78 SAY "||" @ 5,78 SAY "||" @ 4,78 SAY "||" @ 2,78 SAY "||" @ 2,12 SAY "C H E C K B O O K M A N A G E M E N T S Y S T E M" @ 5,25 SAY " 0 - Exit" @ 6,25 SAY " 1 - Enter new checks" @ 7,25 SAY " 2 - Enter deposits" @ 8,25 SAY " 3 - Enter cancelled checks" @ 9,25 SAY " 4 - Enter cleared deposits" @ 10,25 SAY " 5 - Reconcile bank statement" @ 11,25 SAY " 6 - Reports" @ 12,25 SAY " 7 - Help" * display the current checkbook balance @ 18,20 SAY "Current Checkbook balance $ "+STR(balance,10,2) STORE 8 TO select * check for non-valid entry to menu DO WHILE select < 0 .OR. select > 7 STORE " " TO mselect @ 15,33 SAY " select : : " @ 15,41 GET mselect PICTURE "#" READ * reading user response STORE VAL(mselect) TO select ENDDO * process user's response DO CASE * test for exit condition CASE select = 0 RELEASE mselect,select * retain variables - 'balance', 'lastchk' and 'lastdep' SAVE TO Cb-book.mem * clear variables and return to calling program or dbase system CLEAR ERASE RETURN * test for new checks CASE select = 1 DO Cb-check * test for new deposits CASE select = 2 DO Cb-depst * test for cancelled checks CASE select = 3 DO Cb-cancl * test for clearing deposits in transit CASE select = 4 DO Cb-clear * test for reconcile with bank statement CASE select = 5 DO Cb-recon * test for reports CASE select = 6 DO Cb-reprt * test for help screens CASE select = 7 DO Cb-help OTHERWISE ENDCASE ENDDO RETURN * EOF: CB-MAIN.CMD (.PRG) r cancelled checks CASE select = 3 DO Cb-cancl * test for clearing deposits in transit CASE select = 4 DO Cb-clear * test for reconcile with bank statement CASE select = 5 DO Cb-recon * test for reports CASE select = 6 DO Cb-reprt * test for help screens CASE select = 7 DO Cb-help * Program.: CB-MASK.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. ERASE @ 2, 0 SAY "+-------------------------------------------------" @ 2,50 SAY "-----------------------------+" @ 3, 0 SAY "|" @ 4, 0 SAY "|" @ 5, 0 SAY "|" @ 6, 0 SAY "|" @ 7, 0 SAY "|" @ 8, 0 SAY "|" @ 9, 0 SAY "|" @ 10, 0 SAY "|" @ 11, 0 SAY "|" @ 12, 0 SAY "|" @ 13, 0 SAY "|" @ 14, 0 SAY "|" @ 15, 0 SAY "|" @ 16, 0 SAY "+-------------------------------------------------" @ 16,50 SAY "-----------------------------+" @ 15,79 SAY "|" @ 14,79 SAY "|" @ 13,79 SAY "|" @ 12,79 SAY "|" @ 11,79 SAY "|" @ 10,79 SAY "|" @ 9,79 SAY "|" @ 8,79 SAY "|" @ 7,79 SAY "|" @ 6,79 SAY "|" @ 5,79 SAY "|" @ 4,79 SAY "|" @ 3,79 SAY "|" @ 4,63 SAY "Number" @ 5,70 SAY "------" @ 6,63 SAY "Date" @ 7,68 SAY "--------" @ 8, 4 SAY "Pay To The Order Of" @ 8,64 SAY "$" @ 9,24 SAY "--------------------------------" @ 9,65 SAY "------------" @ 11, 4 SAY "__________________________________________________"+; "_______________Dollars" @ 14, 4 SAY "Memo" @ 14,51 SAY "_______________________" @ 15, 9 SAY "---------------------------" RETURN * EOF: CB-MASK.CMD (.PRG) 9 SAY "|" @ 4,79 SAY "|" @ 3,79 SAY "|" @ 4,63 SAY "Number" @ 5,70 SAY "------" @ 6,63 SAY "Date" @ 7,68 SAY "--------" @ 8, 4 SAY "Pay To The Order Of" @ 8,64 SAY "$" @ 9,24 SAY "--------------------------------" @ 9,65 SAY "----------* Program..: CB-NBWD.CMD (.PRG) * Author...: Tom Rettig * Date.....: August 26, 1983 * Revised..: January 11, 1984 * Notice...: Copyright 1983, ASHTON-TATE, All Rights Reserved. * May not be reproduced without written permission. * Notes....: Subroutine for converting a numeric dollar amount * (to $999,999.99) to words. * Parameters passed: * name type length description * ---------- ---- ------ --------------------------- * in: amt:full N 3 - 9 Including 2 decimal places. * out: amt:word C 23 -86 Depending on the amount. * is:error L 1 .T. if error in conversion. * Initialize memory variables... STORE "ONE TWO THREEFOUR FIVE SIX SEVENEIGHTNINE TEN " TO t:unit STORE "ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN "+; "SEVENTEEENEIGHTEEN NINETEEN " TO t:teen STORE "TEN TWENTY THIRTY FORTY FIFTY SIXTY SEVENTYEIGHTY NINETY"; TO t:decade STORE " " TO amt:word STORE F TO is:error * * Convert decimal places to a string containing cents amount... STORE STR((amt:full-INT(amt:full))*100,2) TO t:cent:str IF t:cent:str = " " STORE "0" + $(t:cent:str,2,1) TO t:cent:str ENDIF * Change tthe environment for upcoming branches... SET EXACT ON * Conditional branch... DO CASE * Branch for amounts too high or too low... CASE amt:full > 999999.99 .OR. amt:full < 0.00 STORE T TO is:error RELEASE ALL LIKE t:* SET EXACT OFF RETURN * Branch for zero dollars... CASE amt:full < 1.00 STORE " NO " TO amt:word * Branch for other conditions... OTHERWISE * Convert dollar amount to a character string... STORE STR(INT(amt:full),6) TO t:amt:str * Branch for hundred thousands... IF $(t:amt:str,1,1) > "0" STORE $(t:amt:str,1,1) TO t:hunthous STORE amt:word+TRIM($(t:unit,(VAL(t:hunthous)-1)*5+1,5))+; " HUNDRED " TO amt:word ENDIF * Branch for ten-thousands and thousands... IF $(t:amt:str,2,2) > " " STORE $(t:amt:str,2,1) TO t:tenthous STORE $(t:amt:str,3,1) TO t:thousand * Branch for combinations of ten-thousands and thousands... DO CASE CASE $(t:amt:str,1,1)>"0" .AND. VAL($(t:amt:str,2,2))=0 STORE amt:word + "THOUSAND" TO amt:word CASE t:tenthous=" " .OR. t:tenthous="0" STORE amt:word+TRIM($(t:unit,(VAL(t:thousand)-1)*5+1,5))+; " THOUSAND" TO amt:word CASE t:thousand="0" STORE amt:word+TRIM($(t:decade,(VAL(t:tenthous); -1)*7+1,7))+" THOUSAND" TO amt:word CASE t:tenthous="1" STORE amt:word+TRIM($(t:teen,(VAL(t:thousand)-1)*9+1,9))+; " THOUSAND" TO amt:word CASE t:tenthous>"1" STORE amt:word+TRIM($(t:decade,(VAL(t:tenthous); -1)*7+1,7))+"-"+TRIM($(t:unit,(VAL(t:thousand); -1)*5+1,5))+" THOUSAND" TO amt:word ENDCASE * Branch for comma or space after thousands... IF VAL($(t:amt:str,4,3)) > 0 STORE amt:word + ", " TO amt:word ELSE STORE amt:word + " " TO amt:word ENDIF ENDIF * Branch for hundreds... IF $(t:amt:str,4,1) > "0" STORE $(t:amt:str,4,1) TO t:hundred STORE amt:word+TRIM($(t:unit,(VAL(t:hundred)-1)*5+1,5))+; " HUNDRED " TO amt:word ENDIF * Branch for tens and ones... IF VAL($(t:amt:str,5,2)) > 0 STORE $(t:amt:str,5,1) TO t:tens STORE $(t:amt:str,6,1) TO t:ones * Branch for combinations of tens and ones... DO CASE CASE t:tens=" " .OR. t:tens="0" STORE amt:word+TRIM($(t:unit,(VAL(t:ones)-1)*5+1,5))+" "; TO amt:word CASE t:ones="0" STORE amt:word+TRIM($(t:decade,(VAL(t:tens)-1)*7+1,7))+" "; TO amt:word CASE t:tens="1" STORE amt:word+TRIM($(t:teen,(VAL(t:ones)-1)*9+1,9))+" "; TO amt:word CASE t:tens>"1" STORE amt:word+TRIM($(t:decade,(VAL(t:tens)-1)*7+1,7)); +"-"+TRIM($(t:unit,(VAL(t:ones)-1)*5+1,5))+" "; TO amt:word ENDCASE ENDIF ENDCASE * Branch for one dollar or more, and put the word string together IF amt:word = " ONE" STORE $(amt:word,2,LEN(TRIM(amt:word))+1) + "DOLLAR and " +; t:cent:str + "CENTS" TO amt:word ELSE STORE $(amt:word,2,LEN(TRIM(amt:word))+1) + "DOLLARS and " +; t:cent:str + " CENTS" TO amt:word ENDIF * Restore the environment and return to the calling program RELEASE ALL LIKE t:* SET EXACT OFF RETURN * EOF: CB-NBWD.CMD (.PRG) ENDCASE ENDIF ENDCASE * Branch for one dollar or more, and put the word string together IF amt:word = " ONE" ST* Program.: CB-RECON.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Reconcile the bank statement ERASE * total outstanding checks USE Cb-check SUM Amt TO outstand FOR .NOT. Can @ 2,15 SAY " PROGRAM TO RECONCILE WITH BANK STATEMENT" @ 3,15 SAY " ----------------------------------------" * total deposits in transit USE Cb-bank SUM Amt TO notclear FOR .NOT. Clear STORE -1.00 TO bank:bal STORE T TO loop1 DO WHILE loop1 DO WHILE bank:bal < 0.00 STORE 0.00 TO bank:bal @ 5,5 SAY "Enter ending balance from bank statement $ " GET bank:bal READ ENDDO STORE " " TO answer @ 7,25 SAY "Is this correct? [Y/N] " GET answer PICTURE "!" READ @ 7,0 IF answer $ "Y " STORE F TO loop1 ELSE STORE -1.00 TO bank:bal ENDIF ENDDO * erase colons surrounding bank:bal input @ 5,49 SAY " " @ 5,60 SAY " " @ 7,18 SAY "ADD: "+STR(lastdep,2,0)+" deposits in transit $" @ 7,50 SAY notclear @ 8,49 SAY "------------" @ 9,49 SAY bank:bal+notclear @ 11,11 SAY "SUBTRACT: Total outstanding checks $" @ 11,50 SAY outstand @ 12,49 SAY "------------" IF outstand > 0.00 @ 11,49 SAY "<" @ 11,61 SAY ">" ENDIF STORE bank:bal+notclear-outstand TO truebal @ 13,27 SAY "True cash balance = $" @ 13,50 SAY truebal @ 15,27 SAY "Checkbook balance = $" @ 15,50 SAY balance * initialize memory variables STORE F TO decision IF truebal = balance STORE T TO equal @ 19,14 SAY "Checkbook and bank statement exactly balance" STORE " " TO answer @ 21,16 SAY "Press any key to return to main menu " GET answer PICTURE "!" READ RELEASE outstand,notclear,bank:bal,loop1,answer,truebal,decision,equal USE RETURN ELSE STORE F TO equal @ 18,14 SAY "Bank Statement and Checkbook do not balance" USE Cb-depst IF truebal > balance STORE T TO greater ELSE STORE F TO greater ENDIF ENDIF STORE F TO is:valid DO WHILE .NOT. is:valid STORE " " TO mdate @ 20,17 SAY "Enter Bank Statement Date " GET mdate PICTURE "##/##/##" READ @ 21,20 DO Cb-date IF .NOT. is:valid @ 21,20 SAY "Invalid date - please reenter" ELSE STORE " " TO answer @ 21,22 SAY "Is this correct? [Y/N] " GET answer PICTURE "!" READ @ 21,20 IF answer = "N" STORE F TO is:valid ENDIF ENDIF ENDDO ERASE @ 2, 0 SAY "========================================" @ 2,40 SAY "========================================" @ 3, 0 SAY "||" @ 4, 0 SAY "========================================" @ 4,40 SAY "========================================" @ 5, 0 SAY "||" @ 6, 0 SAY "||" @ 7, 0 SAY "||" @ 8, 0 SAY "||" @ 9, 0 SAY "||" @ 10, 0 SAY "||" @ 11, 0 SAY "||" @ 12, 0 SAY "||" @ 13, 0 SAY "||" @ 14, 0 SAY "========================================" @ 14,40 SAY "========================================" @ 13,78 SAY "||" @ 12,78 SAY "||" @ 11,78 SAY "||" @ 10,78 SAY "||" @ 9,78 SAY "||" @ 8,78 SAY "||" @ 7,78 SAY "||" @ 6,78 SAY "||" @ 5,78 SAY "||" @ 3,78 SAY "||" @ 3,27 SAY "BANK CREDITS AND CHARGES" @ 5,17 SAY "Credits" @ 5,57 SAY "Charges" @ 6,17 SAY "-------" @ 6,57 SAY "-------" @ 12, 4 SAY "------------------------------------" @ 12,40 SAY "------------------------------------" @ 5,40 SAY "|" @ 6,40 SAY "|" @ 7,40 SAY "|" @ 8,40 SAY "|" @ 9,40 SAY "|" @ 10,40 SAY "|" @ 11,40 SAY "|" @ 13, 4 SAY "True cash balance" @ 13,43 SAY "Checkbook balance" @ 8, 4 SAY "Interest earned" @ 8,43 SAY "Service charges" @ 9, 4 SAY "Bank collections" @ 9,43 SAY "Collection fees" @ 10, 4 SAY "Miscellaneous addition" @ 10,43 SAY "Miscellaneous charge" @ 13,25 SAY truebal DO WHILE .NOT. equal .AND. .NOT. decision @ 13,65 SAY balance STORE balance TO test STORE 1 TO count STORE 8 TO row STORE 27 TO col STORE 0.00 TO n1,n2,n3,n4,n5,n6 STORE -1.00 TO amount DO WHILE count < 7 DO WHILE amount < 0.00 STORE 0.00 TO amount @ row,col GET amount READ ENDDO IF count = 1 STORE amount TO n1 ELSE IF count = 2 STORE amount TO n2 ELSE IF count = 3 STORE amount TO n3 ELSE IF count = 4 STORE amount TO n4 ELSE IF count = 5 STORE amount TO n5 ELSE STORE amount TO n6 ENDIF 5 ENDIF 4 ENDIF 3 ENDIF 2 ENDIF 1 IF count < 4 STORE test + amount TO test ELSE STORE test - amount TO test ENDIF IF amount > 0 @ 13,65 SAY test ENDIF STORE count+1 to count IF count = 4 STORE 8 TO row STORE 65 TO col ELSE STORE row + 1 TO row ENDIF STORE -1.00 TO amount CLEAR GETS ENDDO STORE " " TO answer @ 16,20 SAY "Are the above entries correct? [Y/N] "; GET answer PICTURE "!" READ IF answer = "N" @ 16, 0 @ 8,27 SAY " " @ 9,27 SAY " " @ 10,27 SAY " " @ 8,65 SAY " " @ 9,65 SAY " " @ 10,65 SAY " " LOOP ENDIF IF truebal = test @ 18,17 SAY "Checkbook and bank statement exactly balance" STORE T TO equal ELSE @ 18,15 SAY "Checkbook and bank statement still do not balance" IF truebal > test STORE truebal - test TO diff ELSE STORE test - truebal TO diff ENDIF @ 19,23 SAY "The difference is $"+STR(diff,10,2) STORE " " TO answer @ 21,11 SAY "Do you still want to include the above changes? [Y/N] "; GET answer PICTURE "!" READ IF answer = "N " USE RELEASE outstand,notclear,bank:bal,loop1,answer,truebal,decision,; equal,greater,is:valid,mdate,test,count,row,col,n1,n2,n3 RELEASE n4,n5,n6,amount,diff RETURN ELSE STORE T TO decision ENDIF ENDIF ENDDO IF n1 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH n1,Paidfrom WITH "Interest earned" ENDIF IF n2 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH n2,Paidfrom WITH "Bank Collections" ENDIF IF n3 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH n3,Paidfrom WITH "Miscellaneous addition" ENDIF IF n4 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH -n4,Paidfrom WITH "Service charge" ENDIF IF n5 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH -n5,Paidfrom WITH "Collection fees" ENDIF IF n6 > 0 APPEND BLANK REPLACE Date WITH mdate,Amt WITH -n6,Paidfrom WITH "Miscellaneous charges" ENDIF STORE test - balance TO mamt IF mamt <> 0 USE Cb-bank APPEND BLANK REPLACE Date WITH mdate,Amt WITH mamt,Num WITH 0,Clear WITH T ENDIF STORE test TO balance USE RELEASE outstand,notclear,bank:bal,loop1,answer,truebal,decision,equal,; greater,is:valid,mdate,test,count,row,col,n1,n2,n3,n4,n5,n6 RELEASE amount,mamt,diff RETURN * EOF: CB-RECON.CMD (.PRG)  APPEND BLANK REPLACE Date WITH mdate,Amt WITH -n6,Paidfrom WITH "Miscellaneous charges" ENDIF STORE test - balance TO mamt IF mamt <> 0 USE Cb-bank APPEND BLANK REPLACE Date WITH mdate,Amt WITH mamt,Num WITH 0,Clear WITH T ENDIF S* Program.: CB-REPRT.CMD (.PRG) * Author..: Anonymous * Date....: February 9, 1984 * Notice..: Copyright 1984, Ashton-Tate and RSP, Inc. * Notes...: Print reports DO WHILE T ERASE @ 2, 0 SAY "========================================" @ 2,40 SAY "========================================" @ 3, 0 SAY "||" @ 4, 0 SAY "========================================" @ 4,40 SAY "========================================" @ 5, 0 SAY "||" @ 6, 0 SAY "||" @ 7, 0 SAY "||" @ 8, 0 SAY "||" @ 9, 0 SAY "||" @ 10, 0 SAY "||" @ 11, 0 SAY "========================================" @ 11,40 SAY "========================================" @ 10,78 SAY "||" @ 9,78 SAY "||" @ 8,78 SAY "||" @ 7,78 SAY "||" @ 6,78 SAY "||" @ 5,78 SAY "||" @ 3,78 SAY "||" @ 3,34 SAY "REPORTS MENU" @ 6,25 SAY " 0 - Exit" @ 7,25 SAY " 1 - Checks" @ 8,25 SAY " 2 - Bank Deposits" @ 9,25 SAY " 3 - Individual Deposits" STORE 4 TO choice DO WHILE choice < 0 .OR. choice > 3 STORE " " TO mchoice @ 11,33 SAY " select : : " @ 11,41 GET mchoice READ STORE VAL(mchoice) TO choice ENDDO STORE 6 TO row STORE 0 TO count DO WHILE count < 4 @ row+count,25 SAY " " STORE count+1 TO count ENDDO IF choice = 0 RELEASE choice,mchoice,row,count USE RETURN ENDIF @ 3,30 SAY " " IF choice = 1 STORE "Checks" TO option STORE 31 TO col STORE 5 TO ub @ 11,0 @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "||" @ 12,78 SAY "||" @ 13, 0 SAY "========================================" @ 13,40 SAY "========================================" @ 7,24 SAY " " ELSE IF choice = 2 STORE "Bank Deposits" TO option STORE 28 TO col STORE 4 TO ub @ 11,0 @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "========================================" @ 12,40 SAY "========================================" @ 8,24 SAY " " ELSE STORE "Individual Deposits" TO option STORE 25 TO col STORE 3 TO ub @ 9,24 SAY " " ENDIF ENDIF @ 3,col SAY !(option) + " SUB-MENU" @ row+choice,24 SAY " " @ 6,20 SAY "0 - Return to REPORTS MENU" @ 7,20 SAY "1 - List all "+option @ 8,20 SAY "2 - List all "+option+" between two dates" @ 9,20 SAY "3 - List all "+option+" over a certain amount" IF choice = 1 @ 10,20 SAY "4 - List all taxable checks" @ 11,20 SAY "5 - List certain taxable checks" USE Cb-check STORE " CHKNO DATE PAY TO THE ORDER OF AMOUNT"; TO command1 STORE " ----- -------- ------------------------------ ----------"; TO command2 STORE "' '+STR(Chkno,4,0)+' '+Date+' '+Payto+' '+STR(Amt,10,2)"; TO command ELSE IF choice = 2 @ 10,20 SAY "4 - List all deposits in transit" USE Cb-bank STORE " DATE AMOUNT" TO command1 STORE " -------- ----------" TO command2 STORE "' '+Date+' '+STR(Amt,10,2)" TO command ELSE USE Cb-depst STORE " DATE PAIDFROM AMOUNT" TO command1 STORE " -------- ------------------------- ----------"; TO command2 STORE "' '+Date+' '+Paidfrom+' '+STR(Amt,10,2)" TO command ENDIF ENDIF STORE 6 TO choice2 DO WHILE choice2 < 0 .OR. choice2 > ub STORE " " TO mchoice2 @ 8+ub,33 SAY " select : : " @ 8+ub,41 GET mchoice2 READ STORE VAL(mchoice2) TO choice2 ENDDO IF choice2 = 0 * release some memory variables and return to the REPORTS MENU RELEASE option,col,ub,command1,command2,command,choice2,mchoice2 LOOP ENDIF STORE " " TO printer @ 22,6 SAY "Do you want the output sent to the printer "+; "or the screen? (P/S) " GET printer PICTURE "!" READ @ 22,0 IF printer = "P" SET PRINT ON ELSE STORE "S" TO printer ENDIF STORE row+ub+4 TO newrow IF choice2 = 1 STORE "LIST ALL "+!(option) TO header ERASE ? ? " "+header ? command1 ? command2 GO TOP DO WHILE .NOT. EOF ? &command SKIP ENDDO ENDIF IF choice2 = 2 STORE T TO sandy DO WHILE sandy STORE F TO is:valid DO WHILE .NOT. is:valid STORE " " TO mdate @ newrow,23 SAY "Enter starting date "; GET mdate PICTURE "##/##/##" READ DO CB-DATE IF is:valid STORE mdate TO date1 STORE $(mdate,7,2)+$(mdate,1,2)+$(mdate,4,2) to begin ENDIF ENDDO is:valid STORE F TO is:valid DO WHILE .NOT. is:valid STORE " " TO mdate @ newrow+2,23 SAY "Enter ending date "; GET mdate PICTURE "##/##/##" READ DO CB-DATE IF is:valid STORE mdate to date2 STORE $(mdate,7,2)+$(mdate,1,2)+$(mdate,4,2) to ending ENDIF ENDDO is:valid IF begin > ending @ 20,13 SAY "Ending date occurs before starting date - "+; "please reenter" LOOP ENDIF STORE F TO sandy ERASE STORE 0.00 TO amount GO TOP STORE "LIST ALL "+!(option)+" BETWEEN "+date1+" AND "+date2; TO header ? ? " "+header ? command1 ? command2 DO WHILE .NOT. EOF STORE $(Date,7,2)+$(Date,1,2)+$(Date,4,2) TO mdate IF mdate > begin .AND. mdate < ending ? &command STORE amount + Amt TO amount ENDIF SKIP ENDDO IF choice = 1 STORE " " TO first ELSE IF choice = 2 STORE " " TO first ELSE STORE " " TO first ENDIF ENDIF ? ? first+"TOTAL $"+STR(amount,10,2) ENDDO sandy RELEASE sandy,is:valid,mdate,date1,begin,date2,ending,amount,first ENDIF IF choice2 = 3 STORE -1.00 TO amount DO WHILE amount < 0.00 STORE 0.00 TO amount @ newrow,20 SAY "Enter in amount " GET amount READ ENDDO STORE newrow+3 TO newrow ERASE GO TOP STORE "LIST ALL "+!(option)+" OVER $"+STR(amount,10,2) TO header ? ? " "+header ? command1 ? command2 DO WHILE .NOT. EOF IF Amt > amount ? &command ENDIF SKIP ENDDO RELEASE amount,answer ENDIF IF choice2 = 4 .AND. choice = 2 STORE "LIST ALL DEPOSITS IN TRANSIT" TO header GO TOP LOCATE FOR .NOT. Clear IF EOF @ newrow,30 SAY "No Deposits in transit" ELSE ERASE STORE 0.00 TO amount ? ? " "+header ? command1 ? command2 DO WHILE .NOT. EOF IF .NOT. Clear ? &command STORE amount + Amt TO amount ENDIF SKIP ENDDO ? ? " TOTAL $"+STR(amount,10,2) ENDIF RELEASE amount ENDIF IF choice = 1 .AND. choice2 > 3 STORE " Business expenses " TO m1 STORE " Medical or Dental expenses " TO m2 STORE "Payments for Medicine or Drugs" TO m3 STORE " Alimony payments " TO m4 STORE " Child Care expenses " TO m5 STORE " Automotive expenses " TO m6 STORE " Contributions " TO m7 STORE " Miscellaneous tax deductions " TO m8 IF choice2 = 5 @ newrow, 1 SAY "(1) Business expenses (4) Alimony" @ newrow,55 SAY "(7) Contributions" @ newrow+1,1 SAY "(2) Medical or Dental (5) Child Care" @ newrow+1,55 SAY "(8) Miscellaneous" @ newrow+2,1 SAY "(3) Medicine or Drugs (6) Automotive" STORE 9 TO mtax DO WHILE mtax < 0 .OR. mtax > 8 STORE " " TO taxchar @ newrow+4,6 SAY "Enter specific tax expense (or 0 to return "+; "to the REPORTS MENU) " GET taxchar READ STORE VAL(taxchar) TO mtax ENDDO IF mtax = 0 RELEASE option,col,ub,command1,command2,command,choice2,; mchoice2,newrow,m1,m2,m3,m4,m5,m6,m7,m8,mtax,taxchar LOOP ENDIF STORE "m"+taxchar TO string2 STORE "LIST ALL "+&string2 TO header ELSE STORE "LIST ALL TAXABLE CHECKS" TO header ENDIF ERASE ? ? " " + header ? IF choice2 = 4 ? " "+m1 ENDIF ? command1 ? command2 IF choice2 = 4 STORE 1 TO count STORE T TO again DO WHILE again STORE 0.00 TO amount GO TOP DO WHILE .NOT. EOF IF Tax = count ? &command STORE amount+Amt TO amount ENDIF SKIP ENDDO ? ? " TOTAL $" +; STR(amount,10,2) * need routine to keep track of totalling print out totals ? ? STORE count+1 TO count IF count > 8 STORE F TO again ELSE STORE "m"+STR(count,1) TO string1 ? " "+&string1 ? command1 ? command2 ENDIF ENDDO again ELSE STORE 0.00 TO amount GO TOP DO WHILE .NOT. EOF IF Tax = mtax ? &command STORE amount+Amt TO amount ENDIF SKIP ENDDO ? ? " TOTAL $"+; STR(amount,10,2) ENDIF RELEASE m1,m2,m3,m4,m5,m6,m7,m8,amount IF choice2 = 4 RELEASE again,string1 ELSE RELEASE mtax,taxchar,string2 ENDIF ENDIF IF printer = "P" SET PRINT OFF ELSE ? ? ENDIF STORE " " TO ret @ 23,15 SAY "Press any key to return to the REPORTS MENU " GET ret READ RELEASE option,col,ub,command1,command2,command,choice2,; mchoice2,newrow,header,printer,ret ENDDO T 2,m3,m4,m5,m6,m7,m8,amount IF choice2 = 4 RELEASE again,string1 ELSE RELEASE mtax,taxchar,string2 ENDIF ENDIF IF printer = "P" SET PRINT OFF ELSE ? ? ENDIF STORE " " TO ret @ 23,15 SAY "Press any key to return to the REPORTS MENU " GET ret READ RELEASE option,col,ub,command1,command2,command,ÝZIP COMCOPYRIGHT 1982, PAWLUK CORPORATION5455 Wilshire BoulevardLos Angeles, CA 90036(213) 937-0551^#VN#F<%0  ZIP.COM NOT PRESENT ON DEFAULT DISK $:22!}~#z~!} w#z’s\!}:W"+^!hu>2Ra2Qa>2h:hog:QaogW7*+^3:Rao*+^*:Qaog~OUU!]:Qaog3ͩV>2]V*+^*:Qaog~!Ra2Ra!Qa42RaR]yB>C!`@!a>'V<[RyB>C!`@!a>#V<[RyB>C!`@!a>!V<[RyB>C[nV!h6:h!h6RyB>C!`@!b>VVVV VV(V%V$V$V%V!V V VVV<[!hJ:zR"_!_#*_ |u!_~#RyBC!`@!c>%V<[CP}*+^w*+^~$P!`a :V!`aUUV\P|2_!`aUUV\P|2_!`aUUV\P|2_a*+^36>2Qa>2h:hog:QaogW!]:Qaog3ͩVn&}*+^*:Qaogw!]:Qaog3ͩV*+^32͹U!Qa4g*+^~$P!`a :V:_$P:_$P:_$P!`aUUGUUU\P|*+^w(!h͉XRByB!`@!-^V<[>2Qa:Qaog |o32]V!`^d>2]V!^d>2]V!^d>2]V!^ d>2]V!,_!d>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRByBC!`@!(d>'V<[þ>3>!OdU!-^2:V!`^Qd>2]V!^Ud>2]V!^d>2]V!^d>2]V!,_Vd>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wR yBC!`@!Wd>'V<[þ>3>!dGU!-^2:V!`^Qd>2]V!^Ud>2]V!^d>2]V!^d>2]V!,_Vd>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^w*_+++|RyBC!`@!~d>'V<[ *_ | R yBC!`@!d>'V<[>CP}*+^wþ!-^d>2]V!`^d>2]V!^d>2]V!^d>2]V!^d>2]V!,_d>2]V!__d>2]V!_6!d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT>CP}*+^wR yBC!`@!d>'V<[þ!ua^#V*_ |2 !e>1T*+^>XTR/ yBC!`@!e>(V<[g !&d>1T*+^>XTRg yBC!`@!=e>(V<[!$d>1T*+^>XT>3>!eeU!-^2:V!`^Qd>2]V!^ge>2]V!^ie>2]V!^ke>2]V!,_me>2]V!__6!_6!"d>1T*+^#>XTCP}*+^wþ!-^oe>2]V!`^qe>2]V!^Ud>2]V!^d>2]V!^!d>2]V!,_Vd>2]V!__6!_6!te>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wR yBC!`@!ve>'V<[þ!-^e>2]V!`^d>2]V!^ke>2]V!^me>2]V!^ie>2]V!,_ge>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRy yBC!`@!e>'V<[þ!-^e>2]V!`^e>2]V!^Od>2]V!^e>2]V!^e>2]V!,_e>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wR9 yBC!`@!e>'V<[þ>3>!eeU!-^2:V!`^Qd>2]V!^e>2]V!^e>2]V!^e>2]V!,_e>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wRyBC!`@!e>'V<[þ!-^%f>2]V!`^+f>2]V!^ke>2]V!^me>2]V!^ie>2]V!,_ge>2]V!__2f>2]V!_7f>2]V!te>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT>CP}*+^wRyBC!a@!'V<[þ!-^cf>2]V!`^ef>2]V!^e>2]V!^e>2]V!^e>2]V!,_e>2]V!__6!_6!te>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT>`CP}*+^wRyBC!a@!if>'V<[þ!-^f>2]V!`^d>2]V!^ke>2]V!^me>2]V!^ie>2]V!,_ge>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRUyBC! a@!f>'V<[þ!-^f>2]V!`^d>2]V!^ke>2]V!^me>2]V!^ie>2]V!,_ge>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRyBC!a@!f>'V<[þ!-^f>2]V!`^d>2]V!^Ud>2]V!^d>2]V!^ d>2]V!,_Vd>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wRyBC!a@!f>'V<[þ>3>!eeU!-^2:V!`^Qd>2]V!^Ud>2]V!^d>2]V!^d>2]V!,_Vd>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^w*_ |®RyBC!a@! g>'V<[ *_ |RyBC!a@!4g>'V<[ *_ | R yBC!$a@![g>'V<[þ!oa^#V!a^#V>3>!dGU!-^2:V!`^Qd>2]V>3>!^2:V!^g>2]V!^g>2]V!,_g>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRyBC!)a@!g>'V<[þ!-^d>2]V!`^d>2]V>3>!^2:V!^g>2]V!^g>2]V!,_g>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRyBC!.a@!g>'V<[þ!a^#V>3>!eeU!-^2:V!`^Qd>2]V!^Ud>2]V!^g>2]V!^d>2]V!,_Vd>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XTCP}*+^wRxyBC!3a@!g>'V<[þ!-^e>2]V!`^g>2]V!^!d>2]V!^g>2]V!^d>2]V!,_g>2]V!__6!_6!h>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wR9yBC!8a@!h>'V<[þ!-^)h>2]V!`^d>2]V!^d>2]V!^d>2]V!^d>2]V!,_d>2]V!__6!_6!te>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT>CP}*+^wRyBC!=a@!/h>'V<[þ!-^d>2]V!`^Qd>2]V!^Vh>2]V!^Wh>2]V!^Xh>2]V!,_e>2]V!__6!_6!"d>1T*+^#>XT!$d>1T*+^>XT!&d>1T*+^>XT> CP}*+^wRyBC!Ba@!Yh>'V<[þ^RyB>C!Ga@!h>$V<[VV<[!Sa>V!h>V!h>VMnVͼ]!m6:mRyB!h@!-^V<[>2 j: jog |322#j>2 j>2m:mog: jogW:#jog!]: jog3ͩVn&W}2#j! j4:#j!]*_3ͩV6ReyB>C!h@!1j>V<:#jog>͙SVV<[RvyB>C[!m͙"RyB>C!h@!oj>V<[:_RyB!h@!j>V<[RyB!h@!j>V<[RyB>C[!"_!`^"m!m͙"!"_R@yB>C!h@!j>V<*+^#>1T>R<[R]yB!h@!j>V<[:_RyB!i@!j> V<[áRyB!i@!j>V<[RyB>C! i@!j> V<[!^"m!m͙"RyB!i@!j> V<[!^"m!m͙"RyB>C!i@!j> V<[!^"m!m͙"RCyB!i@!j> V<[!,_"n!n͙"RqyB>C!"i@!j>V<[RyB>C[!__"n!n͙"RyB>C!'i@!j>V<[RyB>C[!_"n!n͙"RyB>C!,i@!k> V<*+^>1T!k>1TͱT>R<[RCyB!4i@!k> V<*+^>1T>R<[ReyB>C!>i@!k>V<[:_RyB!Ci@!0k>V<[éRyB!Hi@!7k>V<[RyB>C!Mi@!Fk>$V<[!nJ:zR"_RyBC!Ri@!mk>'V<[*_ |/*_+|!m6*_ |V!]*_3ͩV" n! n;$*_++|:mN!m6*_ |RyBC!Wi@!k>V<[! nJ:͡P*+^>XT*+^>1T!k>1TT*+^>XT*+^>1T!k>1TT!k>1T*+^>XT!k>1T*+^>1TT!k>1T*+^>XT*_ |RLyBC!\i@!k>V<[!nJ:͡P*+^>XT*+^>1T!k>1TT!k>1T*+^>XT!k>1T*+^>1TT!k>1T*+^>XT*_ |:_/2_fÖ"!m6RyB!ai@!-^V<[>2 j: jog |+3C!fi@!k>VV<[!`^"n!n͙"!m6:mP RyB>C!mi@!k>"V<[!nJ:zR}2 j: jog+|>2 j: jog |>22 jRyB>C!ri@!l>%V<[!nJ:zR}2!j:!jog+| >2!j" :!jog |" >22!j!`^: j_UUC!wi@!>l>V<[Þ R yB>C!|i@!Bl>V<[R yB!i@!Gl>!V<[V!hl>V!il>VMC!i@!jl>#V<*+^#>1T>R#V<[V!hl>V!il>VMC!i@!l>V<[!$nJ:͡P*+^#>XT!l>1T*+^#>1TT!!l>1T*+^#>XT"*+^#>1T!l>1TT"!l>1T*+^#>XT%(m!R"yB>C[:_>"R>"yB!i@!l>V<[R["yB!i@!l> V<[V!hl>V!il>VMnV*(nn&|"R"yB!i@!l>V<[7$>2 j*(nn&}2*n:*nog: jogW7$*(n: j_UUG!$j>nV!l$jx͋U $!l$jx͋UP#RM#yB!i@!l>V<[$!V<[$!=l$jx͋U*_++|#R#yB!i@!m>V<[$R$yB!i@!l>V!$jn&@ }3>>^3>UU<[0$R0$yB!i@!l>V!$jU<[! j4""(^#V"+nR]$yB!i@!-^V<[>2 j: jog |:_$3C[*+n"0n!0n͙"*_+|$R$yB>C!i@! m>V<[+&*_++| %R%yB>C!i@!m>V<[+&*_+++|9%R6%yB>C!i@!3m> V<[+&*_ |j%Rg%yB>C!i@!=m> V<[+&*_ |›%R%yB>C!i@!Im> V<[+&*_ |%R%yB>C!i@!Vm> V<[+&*_ |%R%yB>C!i@!bm> V<[+&*_ |+&R+&yB>C!i@!om> V<[RM&yB>C!i@!|m>V<[V!m>V!m>VM2 j*+n6!$jn& |'R&yB!i@!m>V<:#jog>͙S V<[R;'yB>C!i@!m> V<: jog>͙SV<[V<['R'yB! j@!$jn&@ }3>>^3>U<['R'yB!j@!$j>V<[!#j5! j4!$j*+n2>ͻUù&%(:m(:#jog*+nn&}2#j*+n6ã&(RG(yB>C!j@!m>V<[$V<[R(yBC[!$j>V!m>V!m>VMnV!n>1T*+^###>XT!n>1T*+^f>XT*+^ n>GnV*+^ n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^n>GnV*+^ n>GnV*+^!n>GnV*+^"n>GnV*+^#n>GnV*+^$n>GnV*+^%n>GnV*+^&n>nV*+^'n>GnV!nn>nV!n>V!n>V!n>VM2n:nog |:_1+3C!7n@!n>V<[!no>nV!nnx͋U!nnx͋U+_w!nnx͋U!nnx͋U+>3>!rG$V!r V!n>V!n>VMnV!n>V!n>V!n>VM2n:nog |:_,3C!An@!n>V<[!no>nV!nnx͋U!nnx͋Ur-_w!nnx͋U!nnx͋Uo->3>!rG$V!r <,!n>V!n>V!n>VM#V<[R-yBC!Kn@!:o>%V<[!n6!nn>GnV!nnx͋U?!nn& |/!nnx͋U6._w!r <R.yB>C!Pn@!_o>V<[!nyo>nV!nnx͋U?!nn& |/!nnx͋U?/V<[!no>nV>3>!rG$V!r <Ô.!onx͋U?!nox͋U?h/!n>_w>2n>2r:rog:nogW/:n:n:n//*+^ :nog!nx͋U/*+^ :nogn>GnV>2n!n4r/9,X4R0yBC!o>$VͩA[%V<[!nV!n>V!o>VMVͩA[!nyo>GnV!yonx͋U!zonx͋U41VͩA[11!pnx͋U!npx͋U11*+^!n>GnVÉ0*+^n>GnVW4!nV!n>V!p>VMVͩA[!nyo>GnV!yonx͋U!zonx͋U?2VͩA[<2!pnx͋U!npx͋U<2*+^!n>GnVÔ1*+^n>GnVW4!nV!n>V!Hp>VM1T!Ip>1TT>R!n :V!n!nV!n>Vͫ ]VR2yBC!Kp>VͩA!nVͩA!\p>VͩA[!rJ:͡P*+^f>XT*+^f>1T!Ip>1TT:3!Ip>1T*+^f>XTÆ3*+^>1T!Ip>1TT*+^f>1TT3*+^>1T!Ip>1TT*+^f>XTW4!nV!n>V!bp>VM1T*+^###>XTR3yBC!cp>VͩA[!rJ:͡P*+^###>XT*+^###>1T!n>1TT+4!n>1T*+^###>XTW4!~p>1T*+^###>1TTW4!~p>1T*+^###>XT8R}4yB>C!_n@!p>V<[R4yB>C!dn@!p>V*+^>V!nUU V*+^>V!nUU<[R5yB>C!kn@!p>V V*+^ U<[R95yB>C!rn@*+^ >V<[*+^'!nx͋Um5Rj5yB!wn@!p>V<[Î5R5yB!|n@*+^'>V<[R5yB!n@!p>V V*+^$>V*+^ UU<[R76yB>C!n@!p>V*+^ >V*+^ UU V*+^>V*+^ UU<[R6yB>C!n@! q>V*+^>V*+^ UUV*+^>V*+^ UU<[R27yB>C!n@!>q>V*+^>V*+^ >V!4q> V*+^>V*+^ >V!+q> V*+^>V*+^ UUUUUUUU<[R7yB>C!n@!Yq>V*+^>V*+^ >V!Oq> V*+^>V*+^ >V!Fq> V*+^>V*+^ UUUUUUUU<[R^8yB>C!n@!zq> V*+^>V*+^ >V!pq> V*+^#>V*+^ >V!gq> V*+^">V*+^ UUUUUUUU<[R8yB>C!n@!q>V*+^>V*+^ >V!q> V*+^>V*+^ >V!q> V*+^>V*+^ UUUUUUUU<[I:RQ9yB>C!n@!q>V'V(V(VVV<[R9yB>C!n@*+^>V!DrU<[R9yB>C!n@*+^>V!\rU<[R:yB>C!n@!tr>V<*+^>1T!Ip>1TT>RV<*+^f>1T>R<[RH:yB>C!n@!r>V<*+^###>1T>R<[s~# O:!r>V!r4U!ssP:V*s~:*s^#V>ogH<*ss#r:*+^>1T! s>1TTjR*s^#VH<*ss#r!!s s>nV!"s!"s6!r6*s*s^#VW!!sn& |;V! s> Vͫ<|¡;!s#!!s>V!s>Vͫ<|:rq;>3>!sG$V!s <á;!s ͻU*s#"s!s!sx͋U¡;!r6;!!s>V!ssVͫ<|;!s ͻU*s#"s;>3>!sG$V!s <:!"s!"sVÍV^#V^;#V!<*3>;K* <@|A<|{z7 Ҟ<#~wf<~ <<#<#ü ͱ@=&9H=x2_y 5=2_"s ><8?*s=x2_=WA j=Aj=j=G:_=Wx2_"s >!_F6!_~#ʎ=x=2_8?>Eͱ@:_+=-/x2_y2_"s >z?:_!_?4!9~#ͱ@=*s>@2_2_2_<2_!9> !>+4>>A>-A>>2_>>Z>P> T> >>A>.q>>>q>>>b>e{>E¾>>+‹>>Ô>-”>>>WG>>Ҳ>xGGG>º>GyO> W>þ>:_>>>y2_>~#z0 0!__w!_~?4_!_sWW2_G:_<2_=W:_Wz?R?:_R?!_5!_4W:_G:_`?!_?>2_͝?ͱ@!_5l?:_!_<_!_>w w>+Ï?!_~5>.?G:_x0¼?:_> !_~?5!_4!_5-2_x!_^4{??!_~0>0@ @x=@Gy@? 1@:_@+@!_x?+@ͨ@?̓D? E@?> ͱ@7@ W@xQ@>ͨ@? b@y@?xl@>?=̓Dl@ʦ@x!_Ҏ@ͦ@y@:_ʙ@ڦ@:_> ͱ@Î@>2s!sC:_@!_@> @> @@2s!sÑD!sÎXLA͍A^͘A^#V%AALA@#FA#NA#^#r+s#^#V++r+s~@5@͍A5^͘Aq#p@O͍A4~ jA_͘As#r#s#r#q!pAÎXxAyA`zA|A Format Overflow*`-&&`!sAO:6`yA!9GA~#'ºAúAyAO:.`A(B[BA{A*_|Bj& *_*_W#W> cB> cB[B> cB{=>'cB!9JB=~#'CB{>'cBcB.B{=>'cB{>bcB*_++|2t!t͑DɯÀB>ÀB>2t"t"t`i"t!9"t!tÜBt ~# ¡B*t~C*t~B!t>VG3!!!7`iE!7`"u!u-G C!t>VG3!R.!!\`iE!\`" u! u-G"C*t" u! u-G!u͈E*t^#V!_s#r*u^#V!_s#r*t^#VDU|*`DU|GgC!uC*t^#V}*`}GʊC!uC:2`C*t^#V}*`}GʮC!uC:5`C*t^#V}C!uC^#V"u!`"!u*u"%u!u͎X2)u!'uC^#V".u:.`C:0`(D*.u%D*.u5!0u6:0u "DUDDDTD!1u͑D*.uTD*.u5!_6!3u͑D:_QD*.u6.D͏G20u:0u‚D!`"9u!"=u!5u͎X!_6#6!0u6 :6`D!@u͑D^#V"Fu!_"Lu*Fu"Ju!HusLD!`"Ru!"Vu!Nu͎XDhE:.`hE*Fu~ D*_#"_hE*Fu~ D!_6#6hE:6`hE*Fu~ E*_#"_!_6#6hE*Fu~ hE*_#"_!_#9E!_6#6*_*_#W|hE!`"\u!"`u!Xu͎XcE̓D!_6"bu!9"du!bu͈E! 9^lu~# E*lu^#V|ʢE*lu*nu JU*nu nbE*nu !qu>jVE!fu>V*luU!qu$V*lu~#F*lu^#V)))|F*lu6P#6*lu~#WF*lu^#V))|KF*lu6#6WF*lu6<#6*lu6#6*lu6#6*lu6#6*lu 6*lu^#V}CP}2pu*lu^#V}F!pu44*lu^#V}F>2pu*lu^#V}F*nu~#F*nu6#6*lu"u*nu"u*nu"u!uPK*lu^#V|,G*lu"u!"u!u͎X^#V^#VC\:`JG!oG͎X2`O!&`YG6^G +~#w!` s#r!`4[wGxG`yG{G I/O Stack Overflow:_¯G!_"u!u`LG!u6úG:_2u!_6:u G*_#"_:u G!_6#6:u"FN"HN*FN^#V#"FN^#VGG"LNG"PN|G|~GGya(HA =.:;<>[]y *JNH DHPHH$DHH1rH o&))))\xH  ʏH#w HDHJH*PN#ʾHAҾHGDHH:H 6Hp4DH+\HH#HH#*H6?HwDHHHIDHH#6 H.9IDH \H-IH9I#*%I6?)IwDHIH@IDH-I#6 9I%#6BI*PN##^ ~?YI# RIxCON CON RDR PUN LST M!tI ~JH$IDHH1ҽI\ʤIlI$I!~ IDH!aIHI IDH#Ix=GIDH>ɯ*PN+I^#VI#{#zI6#6I r+s!uF#~RJ!u6P  Y\ Y\!u^r+s6 #6 !u4^N*PN|‚J}=oJ"J~JzIzJO>~ʎJʎJ>JN*PN|ºJYzI=ʧJy³JY\öJ>~J=J>Jq2UN*PN/"RNJ'K{ JI*RN*PN#:UNOKI#s#rKJJJ JJIr+s{8K!ON4*RN+>|GK+}oGG~2NNG"JNG:NNVL̓IʉKG:NNVL*LNpƒK4#67NH:NNڤKAK*FN++"FNíK}+ʱKGK}|2AN"?NHAK"DN1:W|VL##"PN6*LNs#r͞HM{ M*PN:NNwK6L*DN"BN<-L:NNML7N*LNw#w7NGG7N\JGq7NGG7NGN͕J7N*PN~" 4#4#4GG7N~´LLsO7N J>L7NGG7N~ J>L7N*PN~L>7NLxO7N*PN!*~!/2TN*PN|M(^#VHH{z!MzM2ONzPM:TNDM\JqKMN͕J#+M*PN|ʅM*~ʅM=!ONڂM:TNJM{MwbM͆L>GG7N|}7N~> 7N<7NGG7N|¼M*LNw=7N*PN]*LN^#V6+6++W7NG H7N>7N"N#F#~Gq#p#w>7NG H7N>7N*~H!&N=N>!*PN" s#r#w=7N*HN }!u6 4>2u*u!4#4#4~#N#F#y#x#:u*u!!:uʰNͅNoN:u~G~#~O?N#~N! p! y! qO>G!$q#p#6zO"u"u2ux2uVN2ufN!u~5P͕NO=O:uO*uGx|g}oJP WWG!9!yʈPʈP)0ʃP1W# lPyʓP) ÈPxDMox&9`iO! 9xP~ P#ðPz,Q>o>g9~+PiQWP-P.PiQP0iQ:iQ0 QG!9~wG# QxiQP! 9~ 9Q_>W! 9+wYQylQW!QxQ##/<^#VQQҴQ!9VzwzO#‘QʰQ*U*U! 9/GO~*UO*U~q+Q!96#=QO!9FxTy"R! 9~WwzO+RGR_ /!9~#=6RART"u>R*u"uMRzR*u"uMRzR*uG!9!xR R+£R$%WgR-ʘR0W:W0T])W)WW)Wo|gWÈR{R$%W}R|Wz- Wo&9}O!9 w# S60#60! 9~ :S!97>?'w#+S-!9~SSS~#S@S! 9~.eS+60qS0qS6 #YS+r>o&9y>o&90w+–S6./G!S S>0S S>-3ST]))S寕iO>`G>0 T<T DM0 > QTw#QT O~#gTGxzTʆT *U> ʒT*U#ÆT!9!97>?'w#¢T!9!'w#½TT*U!9!7>?'w#TT!9!7>?'O# UG>!0UÎX8U9U:UU)DUyw# JU~#aU~#W #ïU~#o>gxGUGnVwF#"uxVU*u!9G_>WObk++ V~+Vy~#/g{ozg! WÎX(W)W*W,W.W Conversion#}OD*Vv~|W##~#foCW!XWÎX`WaWbWdWfW Free Space Exhausted##^#V#{_zWEX{_zWHW4z¢W{W##^#V# ##s#rs#r#s#r+++~sw#r####}*Vv}|?X*{z?X+F+N+V+5^{EX{zEX}|EX{XXi`~sw#r##q#p i`N#F#^#V~EXq4#p+i`##s#rKX]gX] FREE Request Out-of-Range$ Free Space Overwrite$GKҦXMbkæXsZFrZNrZN#FrZ^#V"`y2`xҹXi&ͳ[XXxX>X!`{#z*_*_[xyxXWY_!Z^#VͮYQY>(SYy͊Y>)SY|4YFYZ|@YFYͮYYü]>,SYQY> _Y\ Y\ Y\0:SYSYaYaYQY|oY}oY ښYdԜY ͜YڧYÞYxaYN #~SYðY!ZͮY*Pv!9{_zY{Y YYQY>#SY*Pv>=^#V#{YY Z>: Z>?SY!yZͮYͮY>=SY^#V|KZ}BZ.))ZîY#F>AZ> #fZ~ >. Z~ Z=WZ^#V# File: Traceback:ZZZZZZZZ ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!`~B['[] Condition Stack Overflow$4Ox!v w#s#r#s#r!9!` s#r!`N!v +++++{[#{”[#zʙ[++~{[++!`5!~# ¨[ä[!`N!v +++++[#~#[+{[#z[++~[#^#V=!`~C\5:`_!`^#V"`_.~# \*`))))).` )| *\*_|}*`"_:`*`_w# P\*`{ j\ n\!#"`à\Copyright (c) 1980 Digital Research, v1.3 !"Tv"Rv"Xv2`2`*[v \"Pvq#p##}o"Vv*}o|\]]+w+w+r+s4w#w#s#r<2Zv++*Tvs#r"Tv*Rv#"Rv*RvDM!Tvx~²]#~+²]+F+Nq#p*Rv+"RvI]Ұ]=c]!+~O~#~G!/x‹]yʨ] >O6# ‚] r]=ɯ ~#fo++!]!Rv~#]*Tv]¼]]]^  Insufficient Memory$ Invalid I/O List End of Execution$^b bb SYSINSYSPRINT  E | < X{< ZIP 1.5 1982 Hal Pawluk TERMINAL INSTALLATION PROCEDURE Press any key to continue. 0. Custom install a terminal 1. ADDS 14. IBM 3101 2. ADM-31, Ampex 15. INTERTEC 3. ADM-3, -5 16. NEC 4. Ambassador 17. Osborne 1 5. Apple (24x40) 18. SOROC 6. Apple (24x80) 19. TRS80 II/Lifeboat 7. Apple III 20. TRS80 II/P & T 8. Cromemco 3102 21. Televideo 910 9. HDS 108 22. Televideo 92510. HP 86,87 23. Vector Graphic11. HP 125, 2621 24. Visual 10012. Hazeltine 1500 25. Xerox 82013. Heath 89 Enter a number or : Will skip listed terminals. Y  2#ADDS terminal installed. ;= ADM-31/Ampex terminal installed. ADM-3, -5 terminal installed. Osborne 1 installed. [; HPp\Ann Arbor terminal installed. @24 x 40 Apple installed. 24 x 80 Apple installed. *DCAB  Apple III installed. ECromemco 3102 installed. ?a <=>HDS 108 terminal installed. HP 86/87 installed. HJH&ay C&s1a&s0aHP-125, 2621 installed. ~~ Hazeltine 1500 terminall installed. EHHeath 89 installed. LIBM 3101 terminal installed. Superbrain/Compustar installed. NEC computer installed. Soroc terminal installed. Televideo 910/912/920 installed. TRS-80 with Lifeboat CP/M installed. TRS=80 with P & T CP/M installed. Televideo 925/950 installed.  (Vector Graphic installed. Visual 100 terminal installed. Xerox 820 installed. Type C to CHANGE entry or : Cc +^ cc +^h          2 INSTALLED VALUES: ( spaces available)1> Clear & Home cursor: 2> Cursor positioning: (ANSI)(ASCII)Offset: (Delay installed)not installed)3> Up : 4> Down: 5> Right: 6> Left: 7> (ANSI) Set-up: 8> (ANSI) Re-set: 9> Height: 10> Width: 11> Backspace key erases.will not erase.Enter number to change or :  New value for HEIGHT (24-60): #YNew value for WIDTH (40-80): @CURSOR POSITIONING SEQUENCE:ROW position is character number: COLUMN position is character number:  ANSIASCII addressing: change it (Y or N)? YyThe CURSOR OFFSET (in decimal) is: Do you want to change it (Y or N)? New CURSOR OFFSET (1-256): VNO DELAY used: Change it (Y or N)? ESC CLEAR SCREEN & HOME: CURSOR POSITIONING: CURSOR UP:CURSOR DOWN:CURSOR RIGHT:CURSOR LEFT:(ANSI) SETUP:(ANSI) RESET:Type C to CHANGE it: Cc* spaces leftCharacter: ESCC to CHANGE entry or : m -^ jklk jklkklkn jklkjklk$jklk /n        D/TBMEQSVH@#.-I NPAK_FLC fC to CHANGE, F if FINISHED: az Type the symbol or number to change: Now type the replacement: []RESERVED--Enter new choice: Enter L>etter to change or hNew horizontal marker: RESERVED--Enter new symbol: !~vNew vertical marker: RESERVED: Enter new symbol: tNew tab value (1-): mNew page margin (0 - 132): 2 ZIP COMMAND DEFAULTS:: DISPLAY value: INPUT value[]: EMBED commandsCommand mark: Edge: Center text: Kill Row/Col: Add Row/Col: Horizontal line: Vertical line: Top : Bottom : Middle: Delete : Insert : Prior Screen: First : Last : Next Screen: SAVE : ERASE : QUIT no save ZIP's DYNAMIC VALUES:ZIP will start any new session with thevalues you install now. You will be ableto change these temporarily during a ZIPsession. ertical marker: orizontal mark: abs (1 -) : argin, printer: r r nr r nnnr nn_pap_pap ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.$:@%#/0123456789+-.0123456789+-.  + s!s!ss>ssss`ss Invalid Format Item$  tttttt Stream/Record Sequen/Direct Input/Output Keyed Access P< $conu u_ttttttt%u)u *u+u,u-u=u ?uLuBuCuVuDuEu`u.datpuquujukuuuuu]vtttttt Stream/Record Sequen/Direct Input/Output Keyed Access P< $con*DBASE HELP TEXT FILE DBASEMSG.TXT VERSION 1.17 FOR dBASE II v2.41 Copyright 1984 Ashton-Tate Written by Wayne Ratliff, Jim Taylor, and Howard Dickler INTRODUCTION This entry is intended to give you on-line information about your dBASE II Database Management System. It explains the disk files you have received, and gives suggestions on tapping the power now available to you for data management. Using the on-line HELP in conjunction with your Manual, you will soon be creating databases and writing command procedures to do your work. >>>>>>> type any key to continue <<<<<<< HOW TO USE THE 'HELP' FACILITY Information about your dBASE II system can be obtained by typing HELP and the name of a dBASE II command or HELP and any of the following key words. FULL SCREEN LIMITS NEW VIDEO ERRORS FUNCTIONS DBASE GLOSSARY HELP INSTALL RUNTIME >Note: Entire key words need not be entered. dBASE will then look up the entry for the key word and display it. If there is no information on the subject then dBASE will say "NO HELP MESSAGES FOUND". When there is more text to display beyond what's shown, then you will see the word WAITING (like this). >>>>>>> type any key to continue <<<<<<< The essential dBASE II files on this disk are: DBASE.COM -- main system program file DBASEOVR.COM -- all overlays and system messages DBASEMSG.TXT -- this HELP file (only necessary if you use HELP) INSTALL.COM -- terminal installation program (not necessary after terminal is installed). *EXIT *FULL SCREEN FULL-SCREEN CURSOR MOVEMENT CODES -- ALL COMMANDS ctrl-X moves cursor DOWN to the next field (also ctrl-F) ctrl-E moves cursor UP to the previous field (also ctrl-A) ctrl-D moves cursor AHEAD one character ctrl-S moves cursor BACK one character ctrl-G deletes character under cursor or deletes character to left of cursor ctrl-Y blanks out current field to right of cursor ctrl-V toggles between overwrite and INSERT modes ctrl-W save changes and returns to "." prompt IN EDIT MODE ctrl-U toggles the record DELETE mark on and off ctrl-C writes current record to disk and ADVANCES to next record ctrl-R writes current record to disk and BACKS to previous record ctrl-Q ignores changes to current record and returns to "." prompt ctrl-W writes all changes to disk and returns to "." prompt IN BROWSE MODE ctrl-B pans the window RIGHT one field ctrl-Z pans the window LEFT one field IN MODIFY MODE ctrl-T DELETES current line, moves all lower lines up ctrl-N INSERTS new line at cursor position ctrl-C scrolls down a half page ctrl-W writes all changes to disk and returns to "." prompt ctrl-Q ignores all changes and returns IN APPEND MODE terminates APPEND when cursor is in first position of first field ctrl-W writes record to disk and moves to next record ctrl-Q ignores current record and returns to "." prompt CONTROL KEY STROKES OPERABLE WHEN NOT IN FULL SCREEN ctrl-P toggles your printer ON and OFF ctrl-R repeats last executed command ctrl-X clears the command line without executing command ctrl-H backspace ctrl-M emulates a carriage return ctrl-S starts/stops CPU operation *VIDEO Your KAYPRO has a variety of video attributes including reverse and half intensity, blinking, underlining and cursor off. In- structions for using these are found in you User's Manual. In the meantime, we've included two examples of the possibilities with your dBASE II system. One program, REV-ON will turn on half-intensity reverse video and the other, REV-OFF, turns it off. To use, type: . DO REV-ON or . DO REV-OFF at the dBASE II (.) prompt. *EXIT *INSTALL In order to use dBASE II's Full-screen editing facility, your terminal must be properly installed. Many dBASE formats are pre- installed. If yours is not your screen will appear jumbled when you attempt to perform such full screen operations as APPEND or EDIT. To correct this you must install dBASE II by running the dBASE II installation program, INSTALL.COM, called from your system as INSTALL. Since you may diagnose your terminal's status at any time by running STARTUP.PRG (called from the dBASE II "." prompt by entering the command DO STARTUP), you would be wise to use it before attempting to INSTALL dBASE II. It will tell you if you need to run the installation program, and can be used later to check the results if you do. *EXIT *NEW > New commands and changes to dBASE II New commands: HELP -- user aid command. REINDEX -- realigns and updates existing index file. SET F -- sets value of function key on IBM PC, Victor, TI Professional, and IBM PC compatible terminals. SET COLOR -- alters display color on terminals listed above. TEXT -- displays multiple lines of text, terminated by ENDTEXT. RANK( ) -- function returns ASCII value of first character. TEST( ) -- function determines validity of Supplemented Commands: APPEND,INSERT,EDIT,CREATE -- can now use a format file for screen control. BROWSE -- can now be given a list of fields to work with. DISPLAY STATUS -- shows databases and indexes in use and SET settings. READ & REPLACE -- can be directed not to perform disk accesses when non-key data is changed. RELEASE -- can now release subsets of memory variables. RESTORE -- can restore additively to existing memory variables. SAVE -- can now save subsets of memory variables. SET RAW ON -- eliminates extra spaces in DISPLAY and ? commands. UPDATE -- replace clause can now include WITH phrases. *EXIT *GLOSSARY dBASE II TERMINOLOGY or - any valid dBASE command or function. -- character string(s). In most instances must be delimited with single quotes (''), double quotes (""), or brackets ([]). -- an whose content is defined as Character in type. May be a cstring, a memvar or field of type C or any combination of these items concatenated with the dBASE operators. -- any non-alphanumeric character used to demarcate data, e.g., single quotes (''), double quotes (""), brackets ([]), colons (::), commas (,,), etc. or -- an item or group of items and operators whose value can be determined by dBASE. s may be defin- ed as C,N, or L depending on the "type" of data they contain. -- a list of expressions delimited with commas. -- a record field name. -- a list of field names delimited with commas. -- name of file you wish to create or access. -- name of index file you wish to create or access. -- list of field(s) or portion(s) thereof used to create index files or sorted databases. -- the name of a memory variable. -- list of memory variables delimited with commas. -- a number which dBASE regards as a literal value. -- an whose content is defined as Numeric. -- command option specifies range of records dBASE must treat in executing command. has three possible values: ALL records in file; NEXT records in file; and RECORD . Default value varies from command to command. -- allows batch manipulation of files of same type and/or with matching characters in filename using operating system "wild cards," ? and *. Also allows batch manipulation of groups of with matching characters in name. -- the name of a database field or . *EXIT *? *?? > ? -- Evaluates and displays the value of an expression. In command files (and elsewhere) can be used without expression to space down a line at output. . ? 6/3 2 . ? 'CITY' CITY . ? CITY (field of file in use) Managua > ?? -- Same as ?, but displays result on same line as entry. *EXIT *@ > @ -- Displays user formatted data on screen or printer at spec- ified x,y coordinates (x=line,y=column). Syntax: @ [SAY [USING '']] [GET [PICTURE '']] Examples: @ 3,23 SAY AMOUNT * 1.06 USING '$$$,$$$.99' @ 14,23 SAY "ENTER PHONE" GET PHONE PICTURE '(###)###-####' @ LINE+2,45 SAY TOTAL USING '99999.99' *EXIT *ACCEPT > ACCEPT -- Prompts user to enter character string information into a designated memory variable. Syntax: ACCEPT [''] TO Example:. ACCEPT "What is your name?" to NAME What is your name?: [user's response stored to SIN] . ? NAME [user's response displayed] *EXIT *APPEND > APPEND FROM [FOR ] or APPEND FROM [SDF] [DELIMITED] [FOR ] -- appends data FROM a database or file in System Data Format file to the database in use. Records marked for deletion in FROM will not be appended. e.g., APPEND FROM MAILLIST FOR NAME='N' APPEND FROM TEST.TXT DELIMITED > APPEND BLANK -- appends a blank record to file in use. > APPEND -- allows user to add new records to database in use. (If index is also in use, the index file is automatically updated). *EXIT *BROWSE > BROWSE [FIELDS ] -- Brings up Full-screen viewing and editing of the database in use. *EXIT *CANCEL > CANCEL -- In a command file, stops command file execution and returns user to dBASE "." prompt. Command file fragment: ACCEPT "What should this humble machine do next?" to NEXT IF NEXT = 'Q' CANCEL ENDIF *EXIT *CHANGE > CHANGE -- Permits Non-Full-Screen editing of database in use by field. Hit ESCape key to terminate CHANGE mode. Syntax: CHANGE [] FIELD [FOR ] Example: CHANGE ALL FIELD ZIP FOR ZIP = '90045' RECORD: 00001 ZIP: 90045 CHANGE? (Enter the characters to be changed and hit return. Add new data at the TO prompt, or hit return to go to the next appro- priate record.) *EXIT *CLEAR > CLEAR -- closes all database in use, releases all memory vari- ables, and Selects Primary work area. > CLEAR GETS -- commands dBASE to forget all GET statements still active without erasing the screen. *EXIT *COPY > COPY -- Copies the database in use or only its structure TO another file. COPY will create the TO if it does not yet exist, but will destroy an already existing file of that name. Will not copy records marked for deletion. Command has three forms: COPY TO [] [FIELD ] [FOR ] COPY TO [SDF] [DELIMITED [WITH ]] [FOR ] COPY TO STRUCTURE [FIELD ] > COPY TO STRUCTURE EXTENDED -- special form of COPY creates database whose records represent the structure of file in use. *EXIT *COUNT > COUNT -- Counts the number of records in database in use which satisfy specified criteria. Default value is COUNT all records. Syntax: COUNT [scope] [FOR ] [TO ] Example: COUNT NEXT 25 FOR GRADE > 'B-' TO DEANLST *EXIT *CREATE > CREATE [] -- Creates a new database. User will be prompted for file structure. > CREATE FROM EXTENDED -- creates database whose structure is determined by the data contained in the records of . (Used with COPY STRUCTURE EXTENDED.) *EXIT *DELETE > DELETE FILE -- deletes specified file. > DELETE [] [FOR ] -- marks record(s) for deletion. Records marked for deletion (with *) will not be erased until the PACK command is given. Records may also be marked for deletion by record number. Examples: DELETE ALL FOR COMPANY = 'ZMB' DELETE RECORD 15 *EXIT *DISPLAY > DISPLAY FILES [ON ] [LIKE ] -- lists files on drive. For example, DISPLAY FILES ON B LIKE *.MEM. > DISPLAY [][][FOR][OFF] -- displays records of file in use. > DISPLAY STRUCTURE -- displays field names, types, lengths, and decimals (structure) of file in use. > DISPLAY MEMORY -- display names,types, and values of all cur- rently defined memory variables. > DISPLAY STATUS -- lists databases in use, system date, indexes in use, and current parameters SET. *EXIT *DO *ENDCASE *ENDDO *LOOP > DO -- opens and executes specified command file. > DO WHILE -- used in command files to open a structured loop. Commands in between are executed so long as the DO WHILE is found to be true. Syntax: DO WHILE Example: USE MAILLIST DO WHILE .NOT. EOF [LOOP] ? NAME ? PHONE ENDDO SKIP ENDDO > LOOP -- causes command file to jump processing back to the DO WHILE command. Example: USE MAILLIST DO WHILE .NOT. EOF IF ZIP = '90005' SKIP LOOP ENDIF ? NAME ? PHONE SKIP ENDDO *CASE > DO CASE -- used in command file to choose one and only one of several possible execution paths. OTHERWISE clause optional, and executes when no CASE is true. ENDCASE is needed to close command. Example: USE MAILLIST ACCEPT "WHICH MENU OPTION DO YOU PREFER?" to Choice DO CASE CASE Choice = '1' DO Clabels CASE Choice = '2' DO Cappend CASE Choice = '3' DO Cedit OTHERWISE Return ENDCASE *EXIT *EDIT > EDIT [] -- enables selective editing of database in use by record number. Requests record number if not supplied. When edit of particular record has been com- pleted, ctrl-W brings back EDIT's record number prompt (ENTER RECORD #:). To terminate EDIT mode, answer record number query with a return. *EXIT *EJECT > EJECT -- causes printer to do a form feed (page eject) if PRINT is SET ON or FORMAT is SET TO PRINT. When using @ SAY commands for direct page formatting, EJECT will zero out line and column counters. *EXIT *ERASE > ERASE -- clears the screen. In interactive mode, "." prompt will appear at top left corner of screen. *EXIT *FIND > FIND -- when using indexed files, positions to first record indexed by . *EXIT *GO *GOTO > GO or GOTO -- positions to a specific record or place in the database in use. Also positions to record number contained in memory variable. Syntax: GO or GOTO [RECORD ],,[TOP],[BOTTOM], or *EXIT *HELP dBASE II ON-LINE HELP FACILITY Below you will find a list of all dBASE commands. Each entry in this list corresponds to an entry in the HELP file proper. In the latter, you will find a brief synopsis of each command as well as a picture of that command's correct syntax. Please remember, however, that HELP file information is limited, and is only meant to cut down on the number of trips you will have to make to the dBASE II Manual. To access the entry for the dBASE command (or other Help File entry) you wish to review, simply respond to the dBASE "." prompt by entering HELP and a return (e.g. HELP CREATE ). dBASE will access the information you wish to see, and then return you to the "." prompt so you can go right back to work. In some cases the entry will take up more space than is provided by a single screen. (This is one of them.) To bring up the next screen of information, just hit any console character: this will tell dBASE to stop "WAITING." If you wish to exit the HELP file before viewing an entire entry, simply hit ESCape. >>>> Type 'HELP dBASE' for other <<<<<< >>>>> important information <<<<< > ? -- displays an expression, variable, or field. > ?? -- displays an expression list without a preceeding line feed. > @ -- displays user formatted data on screen or printer. > ACCEPT -- allows input of character strings into memory vari- ables. > APPEND -- append information from another dBASE II database or files in Delimited or System Data format. > BROWSE -- full screen window viewing and editing of database. > CANCEL -- cancels command file execution. > CHANGE -- Non-Full-Screen edit of fields of database. > CLEAR -- closes databases in use and releases current memory variables. > CONTINUE -- continue the searching action of a LOCATE command. > COPY -- creates a copy of an existing database. > COUNT -- counts the number of records in file which meet some criteria. > CREATE -- creates new database. > DELETE -- deletes a file or marks records for deletion. > DISPLAY -- display files, database records or structure, memory variables, or status. > DO -- executes command files or structured loops in same. > EDIT -- initiates edit of records in a database. > EJECT -- ejects a page on the printer. > ELSE -- alternate path of command execution within IF. > ENDCASE -- terminates a CASE command. > ENDDO -- terminates DO WHILE command. > ENDIF -- terminates an IF command. > ENDTEXT -- terminates a TEXT command. > ERASE -- clears the screen. > FIND -- positions to record corresponding to key in index file. > GO or GOTO -- positions to specific record or place in file. > HELP -- access help file overview or specific help file entry. > IF -- allows conditional execution of commands. > INDEX -- creates an index file. > INPUT -- allows input of expressions into memory variables. > INSERT -- insert new record in database. > JOIN -- joins output of two databases. > LIST -- lists files, database records or structure, memory variables, and status. > LOCATE -- find a record that fits a condition. > LOOP -- skips to beginning of DO WHILE command. > MODIFY -- create and/or edit command file or modify structure of existing database. > NOTE or * -- allows insertion of comments in command file. > PACK -- erases records marked for deletion. > QUIT -- exits dBASE and returns to operating system. > READ -- initiates full-screen editing of formatted screen by accepting input into variables accessed with @ GET. > RECALL -- erases mark for deletion. > REINDEX -- update existing index file. > RELEASE -- eliminates unwanted memory variables and releases memory space. > REMARK -- permits display of any characters. > RENAME -- rename a file. > REPLACE -- change information in record(s) or entire database field by field. > REPORT -- format and display a report of information. > RESET - reset operating system after placing new disk in drive. > RESTORE -- retrieves memory variables stored in MEM file. > RETURN -- ends a command file. > SAVE -- copies current memory variables to disk file. > SELECT -- switches between USE files in PRIMARY and SECONDARY areas. > SET -- sets dBASE control parameters. > SKIP -- position forwards or backwards in database. > SORT - write copy of database sorted on one of the data fields. > STORE -- creates memory variables. > SUM -- compute and display the sum of database field(s). > TEXT -- allows output of block of text from a command file. > TOTAL -- creates summary copy of database combining information from specified fields of records meeting some criteria. > UPDATE -- allows batch updates of a database. > USE -- specifies database to USE until next USE command is issued. > WAIT -- suspends command file processing until user input received. >>>>> Other key words <<<<< (e.g. type 'HELP RUNTIME' ) FULL SCREEN NEW ERRORS GLOSSARY FUNCTIONS INSTALL DBASE LIMITS RUNTIME *EXIT *IF *ELSE *ENDIF > IF -- in command file, IF structure permits conditional exe- cution of commands. ELSE clause is optional. Syntax: IF Example: IF STATE = 'CA' DO INSTATE (CMD file) [ELSE ELSE ] DO OUTSTATE (CMD file) ENDIF ENDIF *EXIT *INDEX > INDEX ON TO -- creates an index file for database in use based upon content of field(s) or portion(s) of field(s) specified by the or index . *EXIT *INPUT > INPUT [""] TO -- prompts user to enter numeric or logical information into the designated memory variable. Example: INPUT 'Prompt user for input' TO X Prompt user for input: 12 [user input, 12, stored to X] . ? X 12 *EXIT *INSERT > INSERT [[BEFORE] [BLANK]] -- inserts a record into the database in use immediately after or -- with BEFORE -- before the current record. Presents user with data entry format for use file unless BLANK record is requested. *EXIT *JOIN > JOIN -- creates a new database by combining the records of files in use in Primary and Secondary areas. Records are added where FOR evaluates as True. Command must be executed from primary area. Default value for FIELD is ALL. Syntax: JOIN TO FOR [FIELDS ] Example: . USE NAMES . SELECT SECONDARY . USE MAILLIST . SELECT PRIMARY . JOIN TO NAMEJ FOR LAST <> S.LAST *EXIT *LIST > LIST FILES [ON ] [LIKE ] -- lists all files on designated disk. Default to logged disk. Example: LIST FILES ON C LIKE *.FRM > LIST [][] [FOR ][OFF] -- displays records of file in use. Default value is ALL records. Example: LIST NEXT 25 NAME, PHONE FOR CONTRIB > 100 (i.e., NAME and PHONE of next 25 who contributed more than $100.) > LIST STRUCTURE -- displays structure of database in use. > LIST MEMORY -- lists names and values of all currently defined memory variables. > LIST STATUS -- lists databases open, indexes in use, system date, and current parameters SET. *EXIT *LOCATE *CONTINUE > LOCATE [] FOR -- finds first record of database for which FOR is True. Use CONTINUE to find next such record. (User may manipulate record before resuming search with CONTINUE.) . LOCATE ALL FOR ZIP >= '95000' .AND. ZIP < '96000' RECORD: 00123 . DISPLAY . CONTINUE RECORD: 00232 *EXIT *MODIFY > MODIFY STRUCTURE -- allows user to alter the structure of database in use. This command will destroy all data in the file in use. (To alter structure without loss of data, use COPY STRUCTURE, USE, and APPEND as illustrated below.) . USE NAMES . COPY STRUCTURE TO TEMP . USE TEMP . MODIFY STRUCTURE -- no data lost since file is empty . APPEND FROM NAMES -- brings data into modified database . DELETE FILE NAMES . USE -- close TEMP in order to: . RENAME TEMP TO NAMES > MODIFY COMMAND -- calls dBASE's text editor and brings up or creates designated file. Primarily used for creating and editing command (.PRG), text (.TXT), and format (.FMT) files, but may be employed as a simple full screen word processor. *EXIT *NOTE > NOTE or * -- permits the insertion of comments into a command file. Comments following NOTE or * will not be read when file is executed. *EXIT *PACK > PACK -- erases records marked for deletion in database in use. If index files are in use, they will be automatically updated. *EXIT *QUIT > QUIT [TO ] -- terminates dBASE and returns control to operating system. Optionally calls programs from system level. *EXIT *READ > READ -- initiates full-screen mode for entry or editing of variables. The Full-screen prompts and window are created by @ SAY commands with GET phrases. Command file fragment: STORE ' ' TO name STORE ' ' TO phone @ 4,4 SAY 'Name' GET name @ 6,4 SAY 'Phone' GET phone PICTURE '(###)###-####' READ *EXIT *RECALL > RECALL [] [FOR ] -- reinstates record(s) marked for deletion within use file. Default value is current record. *EXIT *REINDEX > REINDEX -- allows update of index files not automatically 'reindexed' after alteration of database file. Example: . USE MAILLIST INDEX INDEXA . APPEND [append operations performed] . SET INDEX TO INDEXB,INDEXC . REINDEX *EXIT *RELEASE > RELEASE -- erases unwanted memory variables and opens memory space for further use. ( uses ? to mask any single character, * to mask all remaining characters. Syntax: RELEASE [], or [ALL] RELEASE ALL LIKE RELEASE ALL EXCEPT Examples (where N, N1, N2, N10, V7 are variables in use): RELEASE ALL LIKE N? [N10 and V7 will remain] RELEASE ALL LIKE N?? [V7 will remain] RELEASE ALL EXCEPT ?1* [N1 and N10 will remain] *EXIT *REMARK > REMARK -- permits the display of any characters. In command file character entry is output. Example: . REMARK abracadabara!!! abracadabara!!! *EXIT *RENAME > RENAME TO -- renaming of file in DOS directory. Unless otherwise indicated, dBASE assumes that file type is DBF. Example: . RENAME REVIEW.FRM TO REVIEW2.FRM *EXIT *REPLACE > REPLACE -- allows user to replace contents of specified fields of database in use. If index file is keyed on field targeted for update, index in use will be automatically updated. Default is current record. Syntax: REPLACE [] WITH [, WITH ][FOR ] Example: . USE MXPROJ . REPLACE ALL COST WITH COST * 6.1 FOR ITEM = 'ELEC' *EXIT *REPORT > REPORT -- used for creating a Report Form File (FRM) for dis- playing specified information from a database in a user- defined format. Outputs results to screen or printed page. Syntax: REPORT [FORM
] [][TO PRINT] [FOR ] [PLAIN] *EXIT *RESET > RESET [] -- use this command after changing disks on any drive other than that containing dBASE. Command resets the DOS bit map, allowing uninterrupted operation of dBASE program. Close all files before issuing a RESET. *EXIT *RESTORE > RESTORE FROM [ADDITIVE] -- retrieves and activates the set of memory variables previously SAVEd to a memory file. ADDITIVE allows you to keep currently defined variables intact; otherwise they are lost. *EXIT *RETURN > RETURN -- may be used in a command file to return control to the command file which called it or to dBASE "." prompt if user called it. *EXIT *SAVE > SAVE TO [ALL LIKE ] or [ALL EXCEPT ] -- copies all memory variables currently in use, or only those specified by , to designated memory (MEM) file. uses ? to mask any single characters and * to mask all remaining characters. Examples (where N1, N2, N10, V1, V2, V10 are current variables): . SAVE TO NUMBER ALL LIKE N* [saves N1, N2, N10] . SAVE TO NUMBER ALL LIKE N? [saves N1, N2] . SAVE TO NUMBER ALL EXCEPT ?1* [saves N2, V2] *EXIT *SELECT *PRIMARY *SECONDARY > SELECT [PRIMARY / secondary] -- allows user to move between the two work areas dBASE provides, thus permitting user to work with two databases simultaneously and maintain record pointers in both. Primary area is active upon bringing up dBASE. *EXIT *SET > SET -- sets dBASE control parameters. Syntax: SET [ON or OFF] SET TO