LnSOS BOOT 7.0 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPҎƪΠΠϰӵ堥.D1/SOS.DRIVERŠԠϮήĐ󱱩 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$ePHONERNADDRESSESRH2DEALERSRN HAASHF;HAASIFFHF1FIF)BRYANRNRNBRYANIFADEALERSHFA!LISTRH;HELLO Ϣ SOS.DRIVER$FϢ+FILECABINET (LPOLICYHOLDERSIFBUDGETHFADDRESSESRNTESTRHt t OPERATIONSHF+OPERATIONSIFuTESTRNRRN)*SOS.DRIVER *R+FILECABINET.3ut ' *SOS.KERNEL ,V$,FILECABINET2 .(L*SOS.INTERP R3d+BASENAME"'TIMESET B t Ϣ +TIMESET.INV >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"[-,-L(Ġ %),i-i8,ȱ,,B,[[ ڠ %[`l  " ) i   !"#$%&'()*+,0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ¢` C` ] %饚0` C` ߰4`)|E8LLLILLLLLLLLL`LLL`SOS 1.1 04-SEP-81(C) 1980, 1981 BY APPLE COMPUTER INC.G^`on 8 JJAj@` ?5($`ŠɠӠϕçӕĐ̕͠ҠϠϠ栊̠ԅɠӠРȠӠàԪŪªàѠҥ̈H v?b,,,,h[߈eߢ~))`*LLLLࠐ߈ߨi`Ѕ񩏍E `X`)) h)`oŠҠî((Ҡŭ󠱩ӠŠҶԪ̪ƠҌӮծSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMMƇŠҠϰеӠҪǪɪņũÊΠҠϮɖզӀxZ߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' $'`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECé٠@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %z(Aw(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荑Ѝ荱 荑`荱``` D ( )  ) ) * ) C* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<((g %(n(v(m( %u(e(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƈ(X#"$% "$ #%%& '   ` {" & ɠ% %)  ( (" %(n(v(m( %u(](0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`5&i ` Ȱ 0i `<8> ȐT İF ȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`Lȭ)Ѷ*Ѷ"` Ȱ Ȑ`E`Ɔ ̐8`>>5Ѷ ۩<`>`h ې'``hi ` [y6y۽yJL5 ǐ!i `W8`0( Ȑ ;Ȱt ʮy6E`5 $խX Ȑ ޢ ǰLLǽi `< FȰ+<#5 ې'` Ȑ ܐE`W8`R` ХǍN`>ۅ %  )Ѱ Ѱ` =e Ɛ ǰL*Jۈ5Jȱ5۠ƍKȱǍL ̐ H h1  ܐE`5ۈ?ۅ @ۅ 8e`M) `JۅH)Ѱ%}ʈřPۈЍP۩@` 8 Ɛ`  ' Q8` ƭ ̐` MۭN۩O۠ȱ8D`F`8eX)ߠȍK۱ǍL ̰"% & !8* J8` LŢ 6`>8 iOۥƍMۭJۅ5MۅƭNۅ ̰ ì=ۈPۑKL ˰KۅƭLۅ ̰?ۙ%<ۍ" ˰V)Ik'ƭ(ǭ)Oۭ*= ̰2 å8 $8 ˰%ƅ𳱴 ̐`K8`)` İ =۱Pۈ` LưW/PۈbۄÍÍMۙ'Ù =ۍ*Pۨ  ЍP۹Pۙ8h - ðb ¥ ðD ð5L* Eʰ-ƥLˠ7JJ)Í`v=՗' O m=ې浰``8 8qn ؍nH° ̰ -̐8` H° ̰8h? @ۢ8qJ ˰y ` ¥ ʰ泱Ƴ ˰#泪 Ѳ Ƴ ` LΠ`泑Ƴ` LĥH8`JȘcۅ f۩eۍgۅ Ȱ EʰaۙPۈ`ۥoۥp۩ÍnۭKۍuۭLۍv $հL¢H8`gJfje Ȅ PۍPۆecۅidۅJ Ȱ EʰWaۅbۄ ¦J> ʰ0 )̰+泱Ƴ 35WL Lz5WW{5 ې'`,55 ې'` ݠ B1 ;ȩȑ Ȧ8`5  @ RLi ` İG8`FOI8`  S`éۅĩ ` H֩MzG]? @zۅ5H ȐE# İ ǰ h`h`8`W h8`hR`hL i +zۅ5yۅ6 Vǰ `E8<W`­ `0XLzۅ5 ȩE` ĐL Ȑ L ͼ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0sj 滅ѺR NeѺ Ѻ  ې'`i ҩ C8`X8``zi/ ȑ  ©  E7<3W`ȽLνȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e  ȩ`Lg` 7)?w۽x۩ ؠXՅ< ͼW7 mN78 M榠=$)@5 Ȑ ܐEL) .) @L `lwإDع5S(jO8%ؠIJK,-NOPQ0vt /y.\ʊJJJJ yۍz۩  ˰Fȱ ̰6 o 0 L3ɠ 0zۑyۑ8ȱ`H8` ɹ $ y z JJJJ8 ` yz۪` H hQ)ʅ F jF jF jF &!  ְ*  ˰F湥 ƹ`Z8`@  Eʰ泭zۑƳ Nʐ` [ʐ` (˰ ƹ ː`zۘ .z .z .z۪8*Jyۦȱy۬z` # (ː`  = ˰)= I`ȱiL`Lנ"   `1` Đ7@8VP۩ Ƞp۪o8cۊd۠)PJJJJPۑĥ` İp")N8`) ؾ0 PĥLä 0 PĥLà !"#$ ˰``)(`N8` ) հۈ j̰آ*գ  ̰ ݢգ L Lؠ; (˦,+* ʈJj נ iȩ`4泱ƳHh ɠi(8`L L ש m )۠0)p $խX.8`)@ 'ϰ) 7ϰIۈKۅƭLۅǭJۅ5 ̰ ŭM۬NKLƄ  Ġcȱd۠P ȍa۱b۠ yۭP) yۍP ð*)J# ȱi `)5©YéՅĩ5 hYJJ+`.X`8`ɂ )`@ ש ְO դFi ڥ(8` ְ( ȱ5 Ǧ)`L ץ: ש ְ⥺i L̊.>.ʱ+,EP!.E.L+,,҄*- P*e (` ԰B ԰5 ԰0,Jy۪泭zۑƳ ϰL  ΐ` ԰> Hy۪ȱHzۑhƳh ϰq ` EʰiN8` հ*eyȱ+ezȱ,i{۠dѺq۹dۑ񥤅- ť.Lԥ.L ̰$)rJ Ȱ )# hԐ)Hqۑwۑh8`P) ԰ ԰ҥ,J+j泭z۪ƳyۑȊ ) PH hH h8`8-ȥ.L8*Ʊ ) 8 0*-`.G.ʱ*+,EP'.E.LUұE0+,,҄*p-e(` L ̰2 DP Ґ#L8 ͠HHȑhhȑ`L )N8`*eyȱ+ezȱ,i{۠dѺ*ȱ+L - ť.L ҥ. ZՅL ̐L DpͰ.J/)@߅4 ̰Q..++,,IJ/ ҥ-.;Цե,J+jѲƳǥ4𳥽 S8`O8` "` / 򑺠+* ̐H h8` gΰi `()  )LРI )8`i (` )ϙL΅Ɵ҅ ˢ L΢ ΰ LLϠ ˢ ΰ1` Đ@ АP8`B8`IۑPJJJJ -nѥ N8`n) ))УmJ8` aۑȭbۑǠPۑcۑȭdۑ($+)e`8`)` J yJ + Rΰ" 0 Rΰ 🱼ѼL8`ǩ Π` ΰ ƑȥǑ` Ѻ  ǵµ ZՕØ5Ņ4 ȩυɩč5 ψ h.8` )@ 'ϰa)yۥ,8yېu+J,\ ȱL͠) 7ϰ'#,J(]  ΰ ƑȥǑ.8`  ΰ,JѲ ƳLͅƱƳ uΰҥ,J+jѲ84ƳJJ ͐3泑ƳLͩ潑ƽ`ƱƳ gΰ( Πw۵*ÎLΩƄǥL ̩a۬bL̠HHh` j̐`*ѺG0?M`)J"u-- M8`*`)yȥ+8yۍyې  ,ѺL͠"L!Π5 $խX Ȑ ܐE`C8`JJJJѶQi L(ˢ  0 ː `"L.˦ `H8`8$$"$= ˰=`$0`#$"0`$0`#$"0#`!qȱi 5H5Ƶ ǽ h5`L˩Đ2@H ٰCŰrP` ٰ(` ٰѶ? İG8`FJە1 ͼ İ ЩP߭n)@N8`J1@8` ٰ񈱴PۈP)Paۅƭbۅ ̰ ٰLÍL˥Lۼ  ɰ` İK ХP8` ȐH80n)N  $հP)@L ʰP)0 -̐` M ­a۠泭bۑƳѲƱƳ ̰ ٰä泱Ƴ ɰȭaۮb ɰP?@?ۦ ְcqȭdqLJ  (˰Aaۅƭbۅ Xx,f (I0јIFjFjFji```x@gŽPp+wLnԠ͠Š԰.D1 .D2 .D3 .D4 JJh)y ` (2"(Y/N)? ";L$:L$="Y"L$="y"F$="IF":DP$+F$:410:20000%L$<>"N"L$<>"n"VP=:80:220 20000O," "H$(0)": ";J:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):I::L=L+NH+2:J@"Pres-/0123456789:;<=>?@ABCDEFGHIJKLMNOP(I2,S))190180"N$(I1,S))<=N$(I2,S))190180 O175N$(I1,S)>=N$(I2,S)190180N$(I1,S)<=N$(I2,S)1904X=R%(I):R%(I)=R%(I+M):R%(I+M)=X:I=I-M:I>=1140J=J+1:J>K110130c15);:=5:"Sorting is done";D1$::L File Cabinet /// ! version - 2.0 7/20/81(640 <:20000F=VP:7);30);:P=VP-1:7);30);:d14);:M=NRnM=M/2):M=0210xK=NR-M:J=1I=JI1=R%(I):I2=R%(I+M):L170 O150"N$(I1,S))>=N$*/5BL. zF`LLz Lz`Y `РΠРĠΰҔƘΰŠ B k L( LO  %   h` ` ?!©UéĩU󥣍V h`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    iLȢ d` $,)?P^ GL㢮 5LhP.)(Ơ L`ޠ LR  稱 I)0JJJJ` 3`)à`֩ нѽ)`]PU]]UPPX0 0 PPXPP  ҠƠӠРĠɠŠԠղ֠ɠŠԠϠŠŲɠĠӠŠ̠ŠĠ̰֠ŠԠ̠LQ   BHHH)HH @`)h8`  3ШБˆeЅАѤ  БĈ= $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) L@ i0i6`ɠņӺ̠ԵӠŠӠĺΪŜӠy)(h`H` 0L+i Lh` L` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`̠ɠ'Ӑ SYSTEM FAILURE 8`څ  LW%  LW8La텚8嚅 L L Ld V `` ``HhH` ؤک 쨩 V Lۅץ  VL9x) ( :` H ) L  ,P&pб0 L-L('8`+8``0Fܢ` ř,Ř 0 8f)J ȈL`s RETURN to continue, ESC for menu";:L$:L$)=27:E=0:20000JL$)<>13VP=:70:320 TL=0::^F$<>"IF"FF=1$h#1,DP$+F$:#1;NR:FF380,3904rJ=1NR:I=1NH:#1;N$(J,I):I:R%(J)=J:J:400|J=1NR:#1;R$(J):J:400 J=1NR:#1;R$(J):J:#1;AV#1:FF=0:F$<>"IF"FF=1$#1,DP$+F$:#1;NR:FF440,4500J=1NR:I=1NH:#1;N$(R%(J),I):I:J:460J=1NR:#1;R$(J):J:460 J=1NR:#1;R$(J):J:#1;AV#1:FF=0:JJ=1:J1=RH*3+6:"This report has the f7:300::"No change, press RETURN"::1,80,24:I=1NH:I" "H$(I);:=20!": "N$(R%(J),I);:=22:"";C$C$<>""N$(R%(J),I)=C$=-1:=22:N$(R%(J),I)I::300:4"More changes (Y/N)? ";L$:L$="Y"L$="y"2020/ L$<>"N"$:L$="Y"L$="y"L$=""1,180,24:ST=ST+(AT-ML):1000&L$<>"N"L$<>"n"VP=:80:10401,180,24$ST=ST+(AT-ML) .20000:=5:œ20000U"Which record would you like to change - ";J$:J=J$):J<0J>NRVP=:80:2010j=020000ou are entering record # "NR:"_______________________________________________________________________________":1,680,24:*I=1NH:H$(I)" - ";:"";N$(NR,I)::ML=<ML<200D1$"You only have "ML" bytes of memory left":N"MORE (Y/N)? ";LDP$+"IF" œ995'F$="RN":350:I=1NR:R$(I)+"RH": DP$+"RN"8:DP$="":F$="BASENAME":350:NR=1"BASENAME":6400I=SNR-1:R$(I)=R$(I+1)::NR=NR-1:410:800AT=:"There are "NR" records in the "DP$" file":NR=NR+1:R%(NR)=NR::"Ye recovered.":"Are you sure that you want to delete it (Y/N)? ";S$:S$="Y"S$="y"940S$="N"S$="n"800S$<>"N"S$<>"n"910F:=12:=32::"[ DELETING FILE ]"::=(80-R$(S)))/2):R$(S):DP$=R$(S):œ970 DP$+"HF" œ990 you have ";FL;" characters":VP=:70:870 nœ890 pDP$+F$,)z:NR=J:DP$+F$:410:DP$=R$(J-1):670<"Delete which : ";S$:S=S$):S<1S>J-1VP=:80:800:=9:"Ready to delete "34);R$(S);34);"."::"Once deleted, this data cannot not bUa"Name for new File Cabinet file - ";A$:VP=:A$,1))<6580:J=0865:ۺ800 fJ=0J=1 gR$(J)=A$IkR$(J)," ")<>0"No spaces allowed in file name ":VP=VP+1:70:870olFL=R$(J)):FL=>14"File name must be less than 13 characters, 420:::690v :"Select from:"::J=1NR:J" "R$(J):J::J" Create a New File":J>1J+1" Delete a File":J+2" Exit Program"*,4"Which ";S$:VP=:S=S$):S=J+1:9009S=J+214100>S<1S>J80:820HDP$=R$(S):S<>J670 R:865\SC=:350:SE=:ST=SC-SE:20000:Zav=30:=1:=26:"Press 'RETURN' to exit to menu":=4:"HEADER TITLES:"::1,680,24:II=120:"HEADER # "I": ";:"";R$(I):R$(I)=""I>20NR=I:I=20:780 I:NR=I NR=17);::760 NR=NR-1:FF=2:)=H$(I):::: ::a:R$(89),AC(21),K(89),H$(21),RN$(21),K1(21):D1$=7):H$(0)="REC":DP$="":F$="BASENAME":œ860 350:800F$="HF":FF=2:œ710360XI=1NR:H$(I)=R$(I):I:NH=NR:NR=0:B=/(AV*NH+7*NH)):N$(B,NH),R%(B):F$="IF":œ60"I-1): XI1=1WIDE:#1;"-";::#1:2b"Enter report you want deleted ";A$:a$="")gRF=A$):RF<1RF>I-1VP=:80:610lF$=RN$(RF)+"RN":F$7qNN=NR-1:J=RFNR-1:RN$(J)=RN$(J+1)::9660:NR=NS:@v:"Select From"::I=1NH:I;" ";H$(I):R$(I!A=N):C=N-N):C<>0C=C+.0017&A$=A):C$=C):C$=C$+"00":C$,1)="."C$=C$,3)!0C$,1)<>"."C$="."+C$,2).:A$=A$+C$:N1=A$):A9=1A$="-"+A$:N1=N1+1?2DN=((K(3*(I+1)-1)-K(3*I-1))-N1-1))+K(3*I-1):(NN=((WIDE-K(3*I-1))-N1))+K(3*":510A$="Right"A$:J1=J1+1:o::"Total at - ";R$(RH*3+2):"Total width - ";R$(RH*3+5)::=22:=25:"Press any key to continue";:A$+::"Select From:"::MF=0"0 "H$(0) I=1NH:I" "H$(I)::MF=0:A9=0:N<0A9=1:N=N)#ollowing options:":25,580,24:_"Header Tab Total Column":"------------------------------------------"PI=1RH*33:H$(R$(I)));:=21:R$(I+1);:=29:R$(I+2))=0A$="No":490 A$="Yes"*A$;:=38:R$(J1))=0A$="LeftL$<>"n"L$<>""VP=:80:2050 2000 :=5Z "Which record would you like to delete - ";DR$:DR=DR$):DR<0DR>NRVP=:80:3000 dr=020000 :J=DR::300:V "Is this the record you want to delete (Y/N)? ";:A$:A$="N"A$="n"A$=""3000( A$<>"Y"A$<>"y"VP=-1:70:3020. RN=R%(DR):J=1NR-1:J>=DRR%(J)=R%(J+1) R%(J)>RNR%(J)=R%(J)-1` J:J=RNNR-1:I=1NH:N$(J,I)=N$(J+1,I):I:J:NR=NR-1::"Record Number "DR" deleted!":: 3002Y:=5:L=0:"Do you want to(L/R)? ";A$:A$<>"L"A$<>"l"A$<>"R"A$<>"r"VP=-1:80:9280%J$A$="L"A$="l"K1(I1)=0:I1=I1+1%T$A$="R"A$="r"K1(I1)=1:I1=I1+1%Y$:=5:=59:K(I):=7:=59:K(I+1)%^$:1,NH+780,24::K(0)<>19340Fh$:"Which tab position for total: ";A$:$):I=19250%$K(I+1)=132VP=-1:80:9230S,$:"Total on "H$(K(I))" (Y/N)? ";:"";A$:A$="Y"A$="y"K(I+2)=1:K(0)=1:9280(6$A$<>"N"A$<>"n"VP=-1:80:9260i@$:"Left or right justified columns #I1=1:I=1RH*33#1,NH+880,24i$:"Which header do you want in position #"(I+2)/3" - ";:"";A$:a$=""a$,1)>"9"VP=-1:80:92201 $K(I)=A$):K(I)<1K(I)>NHVP=-1:80:9220M$:"Which tab position for "H$(K(I))" - ";:"";A$:K(I+1)=A_________________________________________________________________":vp=+29#=45:=5:"Last Header - ":=45:=7:"Last Tab - "4#=1:=vp:"How many headers - ";A$:a$=""20000-#RH=A$):RH<1RH>NH+1VP=-1:80:9190#E=0RN$(NN)="Present":520:NR=NS:91605#::=5:"No report formats on disk...":::NN=1N#"Do you want to create one (Y/N)? ";A$:A$="N"A$="n"A$=""RP=1:9160(#A$<>"Y"A$<>"y"VP=-1:70:9130#:520:NR=NS #E9350 #RP20000d#NH<18"_____________:NR=09060P#I=09060Z#I" "R$(I)Hd#::I" Create a new report format":I+1;" Delete a report format":n#"Which ";S$:s$=""20000's#s=s$):S<1S>I+1VP=:80:9070x#S=I+1610:90201#NN=S:S<>IRN$(S)=R$(S):E=1:9650:520:9624#Z=NR:NR=NH:DP$+F$:420:NR=NZ:200008(#T9=0:WIDE=80:RP=0::I=03*NH+5:K(I)=0::PF=0:NL=2412#I=0NH+1:AC(I)=0::HC=0:GT=0:PAGE=0:E93503<#NN=0:I=021:RN$(I)=""::NS=NR:F$="RN":œ9120LF#350::I=1NR:RN$(I)=R$(I):::"Select from:"::I=0NRWFL=TOO$):FL=>14VP=-1::"File name must be less than 13 characters":70:7050R$(S)=TOO$:410:œ7160FR$+"HF",TOO$+"HF":œ7180FR$+"IF",TOO$+"IF":œ7180FR$+"RN",TOO$+"RN" :PD$=FR$PD$=TOO$ 70106FF=2:F$="HF":N file ";s$:S=S$):S=0NR=TT:DP$=PD$:20000vS<1S>JVP=:80:7020%:=5:"From: ";R$(S):FR$=R$(S):'"To : ";TOO$:VP=-1:too$=""7015too$,1))<6570:7050KTOO$," ")<>0:VP=-1::"No spaces allowed in file name ":70:7050"Do you want to sort:"::"1 Ascending order":"2 Descending order":"Which ";O$:o$=""6000%O=O$):O<1O>2VP=:80:6050 :100XTT=NR:PD$=DP$bDP$="":F$="BASENAME":350/g:"File Names: "::J=1NR:J" "R$(J)::?l"Rename whichMF=1::520:5z"Enter # of field for sorting ";S$:s$=""20000&S=S$):S<1S>NHVP=:80:6010J:=5:"Do you want to sort:"::"1 Alphabetically":"2 Numerically":"Which ";L$:l$=""6000%L=L$):L<1L>2VP=:80:6030P:=5:20000&s=s$):S<1S>NHVP=:80:5010?:=5:"Please enter the "H$(S);:" you want to find - ";Q$Q$=""5000;:J=1NR:N$(R%(J),0)=J):N$(R%(J),S),Q$)<>0300L+NH>20320J'"Thats all of them . . . . ";:320 5000p:J=SRNR:" "H$(0)": ";J:L=L+1:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):L=L+1:I::L=L+1:L+NH>20320,J:"Press RETURN for menu...";L$:20000L=0:MF=1:;=1:"You may search by any of the following:"::530:"Which ";S$:s$="" list ALL or PART (A/P)? ";S$::S$="A"S$="a"SR=1:4040s$=""20000&S$<>"P"S$<>"p"VP=:80:4000*"Starting record? ";SR$:sr$=""4000#sr=sr$):SR<1VP=:80:4020<SR>NR:D1$"Only ";NR;" records available.":80:4020qA$)=0K(0)=0:T9=1:9340=r$K(I+1)=A$):K(I+1)132VP=-1:80:9320m|$:"What is the output width - ";A$:K(RH*3+5)=A$):K(RH*3+5)132VP=-1:80:9340I$:"Select records by which header - ";A$:A$="A"A$="a"E=0:20000 $vp=-21$a$,1)<"0"a$,1)>"9"a$<>""70:9350)$S=A$):A$)=0Q$="@":X$="@":9400<$:"What should "H$(S)" be - ";:"";q$:q$=""70:9350;$:"What other header - ";X$:X=X$):X=0X$="@":9400 $vp=-2<$:"What :D1$;:&q$,1))<65e1=1:&?&:"Check your reference manual for this error number ":';'=HP2:=22:"- - - Saving your data to the disk - - -" 'œ10100!'F$="IF":DP$+F$:410::8080t':DP$+F$,:10000%*:=3:=32:"Add Ns name (Y/N)? ";b$%&b$="Y"b$="y"VP=VPR:80:9870&&b$<>"N"b$<>"n"vp=:80:9925&nn=nn-1:9900H&E1=0:q$," ")<>0:"No spaces allowed in file name ":D1$:E1=1:Q&FL=q$):FL>=14:"File name must be less than 13 characters":E1=15:I=1NR:R$(I)=K(I))::R$(I-2)=K(0)):I=NR+1NR+RH:R$(I)=K1(I-NR))::NR=NR+RH:PD$=DP$:DP$=""&F$=RN$(NN)+"RN":œ9910 &F$,&410:DP$=PD$:9660:&:<>339980-&:"You already have a file by this name"2&"Do you want to change thiC=0\&L=L+1:#1: f&600:I=1RH:AC(I)=09850"p&N=AC(I):540:580:#1;N);A$;(z&:GT<>0N=GT:540:590:#1;N);A$ :1&"Enter the report format name ";q$:q$=""&VP=:9960:E1=180:9870&e=1:rn$(nn)=Q$:VPR=VPw&NS=NR:NR=3*RH+)):580:#1;N);[C&Z=K(3*(I+1)-1)-K(3*I-1):Z<=N$(R%(J),K(3*I-2)))#1;N$(R%(J),K(3*I-2)),Z-1);:9800GN$(R%(J),K(3*I-2));0N=HC:540:590:#1;N);A$;:GT=GT+HC:H-1)=K(3*(RH+2)-1)' &I=1RH:K1(I)=0#1;K(3*I-1));/&K1(I)=1N1=H$(K(3*I-2))):580:#1;N);< H$(K(3*I-2));::K(0)=1N1=5:590:#1;N);"Total";*:600:L=5:'4&I=1RH:K1(I)=0#1;K(3*I-1));5>&K1(I)=1N1=N$(R%(J),K(3*I-2)GE+1:SPACE=WIDE-RN$(NN))-H$(S))-18+%PF=1=WIDE-25:#1;TD$;:SPACE<1#1-%PF<>1#1;WIDE-25);TD$;:SPACE<1#12%PF=1=WIDE-6:#1;"PAGE ";PAGE:SPACE>0#14%PF<>1#1;WIDE-6);"PAGE ";PAGE:SPACE>0#1-&600:K(0)=0K(3*(RH+1)R)=R$(I))::NR=NS%:470::RP=1:6%NR=NN:F$="RN":I=1NR:R$(I)=RN$(I)::410:NR=NS:A%:Q$="@"#1;DP$+" "+RN$(NN);" Report (all records)";:9710>%#1;DP$+" "+RN$(NN)" Report for "H$(S)":"Q$;:X$="@"9710%#1;" and "H$(X)":"X$;1%PAGE=PA__________________________________________"%1,nh+780,24::9350(%L$<>"N"L$<>"n"VP=-1:80:9620%E=0:20000%%PD$=DP$:DP$="":F$=RN$(NN)+"RH":350:DP$=PD$:RH=(NR-5)/4:I=1NR-RH:K(I)=R$(I))::K(0)=R$(I-2)):I=NR-RH+1NR:K1(I+RH-N" format (Y/N)? ";L$:VP=:L$<>"y"L$<>"Y"9622w%::NS=3*RH+5:I=1NS:R$(I)=K(I))::R$(I-2)=K(0)):I=NS+1NS+RH:R$(I)=K1(I-NS))::NS=NS+RH:9655:520:9624%l$="n"l$="N"e=0:20000 %80:9620V%"_____________________________________0#0%N$(R%(J),S),Q$))<>Q$9560:%X$="@"9550#D%N$(R%(J),X),X$))<>X$9560 N%9780X%PF=1L>18:320:9680 b%JNL#1;12):9680l%L=09680v%J:T99830:#1::e9620 %9870%Y%"More reports using the "RN$(NN);:ILENTYPE":9500(%B$="N"B$="n"P$=".PRINTER":9500%vp=vx:80:9450Y%A$="P"A$="p":"How many lines per page - ";NL$:NL=NL$):NL<1VP=Vx:80:9450 !%::I=1RH:AC(I)=0:I:GT=0 $%#1,P$1&%9680:J=1NR:N$(R%(J),0)=J):Q$="@"955:vp=-1:td$=""80:9440L$::"Output to screen or printer (S/P)? ";A$:A$)=0VP=-1:80:9450 $vx=-13$A$="S"A$="s"P$=".CONSOLE":PF=1:nl=22:9500l$A$="P"A$="p"PF=0::"Are you using the silentype (Y/N)? ";B$:B$="Y"B$="y"P$=".Sshould "h$(x)" be - ";:"";x$:x$=""70:9370+$WIDE=K(RH*3+5):I=1RH:K(3*I)=1T9=1$$TD$<>""9450T$::"Are you using the built in clock (Y/N) ? ";A$:A$="Y"A$="y"TD$=:9450($A$<>"N"A$<>"n"VP=-1:80:9420-$:"Date? ";TD$ew Headers":=51*+I=nh+120:"Enter header #";i;:" - ";r$(i)++r$(i)=""i=i-1:11057/+ 0+110591+i=nh20000 2+ah=i-nhD3+F$="HF":NZ=NR:NR=i:FF=2:DP$+F$:420:NR=NZ:F$="IF":A$=DP$+F$:A$94+#1,A$:#1;NR:J=1NR:I=1NH:#1;N$(R%(J),I):I>+K=1AH:#1;"X":K:J:#1H+640.630 .flag=0@."Header title to change ";HT$:ht$=""flag=112050:20000+.HT=HT$):HT<1HT>NHVP=:80:120107.::"From - ";H$(HT)::"To - ";H$(HT):630:flag=1 .120106/RN=NR:NR=NH:F$="HF":FFADERFILE" œ990DP$+"INDEXFILE"<:DP$="":F$="BASENAME":350:NR=1"BASENAMEFILE":6400I=SNR-1:R$(I)=R$(I+1)::NR=NR-1:410:800:"There are "NR" records in the "DP$" file":NR=NR+1:R%(NR)=NR:"You are entering record # "NR::I=1N:80:2050 20000_e you sure that you want to delete it (Y/N)? ";S$:S$="Y"S$="y"940S$="N"S$="n"800S$<>"N"S$<>"n"910P:=12:=26::"[ DELETING PROCESSOR FILE ]"::=(80-R$(S)))/2):R$(S):DP$=R$(S):œ970DP$+"HES>1480:20120PNS650,1000,2000,3000,4000,5000,6000,7000,9000,10000,11000,12000,13000,140000u#1,"TESTHF" 1u#1;NR 9uI=1NR :u#1;A$DuA$NuI Xu#1;A=:300::"More changes (Y/N)? ";L$:L$="Y"L$="y"2000& L$<>"N"L$<>"n"VP=N=HP2:"4 Delete";:=HP3:"11 Add Headers To a File"7pN=HP2:"5 List";:=HP3:"12 Change Header Titles"?zN=HP2:"6 Search";:=HP3:"13 Delete Headers From a File")N=HP2:"7 Sort";:=HP3:"14 Quit"::N=HP2:"Which ";S$:VP=:S=S$):S<1ging is ";VAXEN:"_______________________________________________________________________________"FN7HN:=HP2:"1 Select File";:=HP3:" 8 Rename File"/RN=HP2:"2 Add";:=HP3:" 9 Report Option".\N=HP2:"3 Change";:=HP3:"10 Save Data":fns "NR" record";:NR<>1"s";7>N=HP3:"Room for "B-NR" more record";:nr<>1"s"; ?N:20037>@N=HP1::"Number of characters/header you have set is ";AV*BNNR<>0NH<>0VA=(ST/(NR*NH))-3:VA=0CCN=HP1::"Number of characters/header you are avera******************************************************"(*N=HP1::"Current file: ";::DP$;:?+NNR<>0NH<>0AV=(ST/(NR*NH))-3:VA=AV):VA<=0VA=0:AV=06,N=hp3:"Averaging ";VA;" character";:VA<>1"s";-N"/header"<4N=HP1::"Currently contai **"V#N"** F I L E C A B I N E T / / / VER. - 2.0 **"V%N"** **"V&N"*************************you want to quit now (Y/N)? ";A$:A$="Y"A$="y"14100 620000,7:::=10:=31:"Have a good day !!!": N::HP1=21:HP2=11:HP3=41V!N"*******************************************************************************"V"N"** 6=20:"Do you wish to save your data (Y/N)? ";A$:A$=""200006A$="N"A$="n"14100'6A$<>"Y"A$<>"y"VP=:80:140006F$="IF":DP$+F$:410U6=20:=23:" ";J6=20:=23:"Do ,,m3J=1::=5:"Saving data to ";DP$;" file"r3I=1NH1:I=DH13190|3R$(J)=H$(I):J=J+1F3:F$="HF":NR=NH1-1:FF=2:DP$+F$:420:F$="IF":NR=NR1:NH=NH1:DP$+F$3#1,DP$+F$:#1;NR-3J=1NR:I=1NH:I<>DH#1;N$(R%(J),I) 3I:J:#13640BVP=VP+2:80:13110 J3FL=NN$)gT3FL=>14"File name must be less than 13 characters, YOU HAVE ";FL;" CHARACTERS":VP=+1:80:13110a^3FF=0:F$="BASENAME":NR1=NR:NH1=NH:DP1$=DP$:DP$="":350:NR=NR+1:R$(NR)=NN$:DP$+F$:410:DP$=NN$h3DP$+"HF",:DP$+"IF"le"E3"or a new file (S/N)? ";A$:A$="S"A$="s"NR1=NR:NH1=NH:131653A$="N"A$="n"131003VP=:80:13060 ,3:=5M63"Name for new File Cabinet file - ";NN$:VP=:NN$,1))<6580:13110G@3NN$," ")<>0"No spaces allow in file name ":=2:DP$+F$:420:NR=RN:20000%2:=3:=32:"Delete a Header":=52.2"Delete From"::I=1NH:I;" ";H$(I)::2"Which ";A$:a$=""20000*2DH=A$):DH<1DH>NHVP=:80:13030G2:"Do you want to save your data of ";DP$;" file to the same fiH:H$(I)":";:"";N$(NR,I)::ML=<ML<200D1$"You only have "ML" bytes of memory left":,"MORE (Y/N)? ";L$:L$="Y"L$="y"1000&L$<>"N"L$<>"n"VP=:80:1030 20000g:=5:"Enter the number of the record you want to change ";J$:J=J$):J<1J>NRVP=POS:70:2000):300::"No change, press RETURN":I=1NH:I" "H$(I);:=20": "N$(R%(J),I);:"";C$C$<>""N$(R%(J),I)=C$I=:300::"More changes (Y/N)? ";L$:L$="Y"L$="y"2000& L$<>"N"L$<>"n"VP= 56ɀ56H nhɀ])& UoL 2nL \ͷfL uf# 2nfHffhf) _ ʢLh `Lj lhP `U a-Qggeg5hih 6i6 hbU" b$%UUUg 5b bL6_ _^_ __hg^`8 ` i6g55``BY BSAMHH H]fHhH_HcH wwhch_hhhfhi0hhhB B A` L^'( z)&񦕤LNKM$Ld ě n 2n n6[6 5E UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR IN BREAK%&'(%+.@C$DE FG!H"I'MN#PQRTW(XɁ7XWWXjnXWi` 3^?@@bgchch ܆^ ^b ^b^b^L]b8g+H__^8O LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURC$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVCONV&CONVKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRINDEELSCOuuuuuuS}1DKuuuuuuuuuuuuȔ-zz4{ {@uu2{Ӎʍ?zzzzv#jvdvXX~}{{XJDފL^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXAAAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERҟɀ jiLr pێrpE 먑uvfuuuuuuus2uuuIdUduuuuuu횑uu5dNRVP=:80:3000. RN=R%(DR):J=1NR-1:J>=DRR%(J)=R%(J+1) R%(J)>RNR%(J)=R%(J)-1^ J:J=RNNR-1:I=1NH:N$(J,I)=N$(J+1,I):I:J:NR=NR-1::"RecU U`L^a8 UiXjjU):,$f 0$ p $ 0t!L`?iٰcL,aU )!a{)Qi ڐ߽U) xai) xaɢ ɣɍж$HU xahʥ0UUȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L`ʅUU=ȄL aȱi8eiiji!U)L`UUU`La` :0.`9::hhgg.%g& $gegަhH逪hhʰ`  0c 5bLT IJJABB o kff˻ffhhf`LvL6#&F 7 ; u d ` Lm$ uf#L5o566ȱ5Ln H# 2n n#͉L fhLn QRKLLuh$0LX$ LL^5r n ohhLiOPP` ff# hf dp,_;Ln  5s$0P ˌ˅5U66U n Lm n0 ok n#`$Ln#i)8#Ln "{ su u( LPdʊ# Lm n  zf5f$0H o kffhe##5ff˩ff?LUn ,?#$04fHHf yuHH 5sL mHHh$0'ph  ِlWȥmW`LVhXWXLhm lmmLlml ՔYZZ{|| y `lmmYZZ zWXX #z yYW# mXX =^W^0A,^`=8WW>X> XXXL^ h`L^ n Jj dxZkKhLhhhe9e:: mLi ?lei `Lu Bl:,"hhhhLiɜEɝDɞLe %{Hɾɺдmhɾ r l +k r l` lLk l,h`LwdLe$%/%5$ &5 &5e$$5e%%$&%$e$% Ll PMNKLhhLi`La, ; V aFL) u a }kLi &^hhh5h689H: H:HLHKHH6H5HHH` 0k` +k` r l +k r k` l BlK$L%8eȢ 9:: a.ghh ` ` `]ɾ,L^hhKȱLe潥ɂ逅$L# nKL n =jLiLuLe uj5逢)&a WHVHLgLl8:9: ІSTT`)ɀLK$Ld8gLOPPKLMNhhf 2n*]L_L2_-L(fPL^OW;8<< ` lLX*i mXX 熅XL| `]'_ch_chbi^g ]ihh &^ r l fkh r d s sn %jji56L|%}  d s  mXHWHHH iLOPP$pX0S&ȱhȱ  n#W", noȱ28eLgji`L2n noȱ"Ɂɂ ȱ :, iWjj ȱiYjj8逪XW0 ,h0WHW$ 0X: h lo ,h0 noLh) noWA 0 xa loLhfffff`,@ff Cg fʳfH @gh(fL2 \ffک,ffLgTg`zgfgHELLO l a(% -, dLu l {ghhh$PLuj 2nȱȱ%$LWH loh l aLK$L% L^gHhHhH , - d l$% ag5h6h6hhhhh8g5h6h `6 hbLbf 6`L6`  f.CONSOLE\ VfUfff gfg0  (`H uhLu ff h u e Re()' ReKHLI BlLl89弅:彬: `H hɝɞɜ)`ff  h芅 e ()'` e'()HKIL ReLjL^) jk!Lu 0c p a0d婷tgL6_$%L{g Lk` Dd` Dd` yuL%{ Sd#`L,H yu %{h 6Lۇ,L68f`  KL BlLlOPPKLLi KL` Ѽ  e@ _m__^ ]Lb潭`: 808`:LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`ff@ZH  c#IJJABB 9::)ѭ=>>;<<?@@V ě ]jhhHH  `89::  e!)`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@vuU UU@Lp " t ,; u nLOp#f 7 ;П ,ULp nʆ,U _U% oLwj nL_T ST#LT, U VV $ 0  rUVVE$ P% gV{||Hf Kh @r mLmq00$0 Lp n mpV l$D$ P 膼Lq$0",i c{ ;mLmqHUHhp< $ p0H 07h m ,LoUVV r F uLp 0mLmqF вLo ?lȪL^ȱQȱȅR l uLqUVV$ LmjU r$ vL~@jjj)(L L^~jklmL>|5665m5l5k5n j5i`d,]WXX566 m5 l5k5n %j5i5` m l)m m`znth` ht`i  | |`i n*` jfJ`5665y5x5w5zEn{z v5ui`uei0,iiLb|{n`nI0hhL^|L| i{ {i` o~{ L~ }L 8ii -~ivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvji0vvvvvj`L|^Vy dv88; 54541r LiHi?} {D} ~%} {*} I} {h YN} }L} -~~ }m }l }k }j }L L|J eyexew~ev~f~fffi0ŨV }${Wiuu8Iemlkj |jJkjlkmlmi in`emeymlexlkewkjevjL|i&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L^}Ym6Zm6Z y` zLr{5 LzL s ՐlmL z0566 `{{L s ِm*elL{mLiɑL Wlm$%`L{ }nInEz{iL{ }> }Luu8i$iznIi y("LiH)&h`( '&'`lmm566Ly ({H hjL` zYYHH 㔥YZZ #zhhe5566ɂ逅66 yZZY zL` zYILEzm ) u %{ zʊHYImm suhhhhYhZhZHHE` z YZZ yLyl5 Іf feLweLxL^lqx fyL^ Քxy{|y| yeGGHHɂHHlm{|m| y fyL` nxyyLzHI855J J6 666 h`{Hȱ{ȱ{ 656 syh H5Gh`lmm566 z5Hȱ5ȱ5 665 sy56h(`8ȱe iȅ s eff8  džffHs.GbHcHcLgxGgHhHhHH ]hhhGHHBBA!AghhLx8 džffeLw ]^A_B_B`)&N> ȱI8gJJ hhge ghhy6( y( y\LF )XHABB8 dž__^hHI8e^ dž@1 @+?%GHHHIJJih BABGHh`$  ě ww Дs IJJ^__Lhxeȱeȱe XE )s LxɁ >H>H= Vt~w/z*|cYX ~uƀ1r }iP  iɈ J~ i8Huiiu { t {h /~` O] } ]L} LoȘ戅 }iȅ {do`Abi$nFn)U`y`'d  ZuL`| ]z% uH Mh{ H S} } 1hJ inIn`L1 HHHHH u hL0shh6h6h555% 郢5566 郠` ye55M  M X~e t~e { Wei0 i8fe.șU0șUmymlylkykjyj00ڊIi i/ȄȪ)Ue.șUI)ЪU0.ȩ+f.8f-UEU/8 i:UUUUU碓cA[8饰 a{8`8\e@@He? 3^@@?hbbb0 ea ȑbc8L @@h5h656H mHlHkHjHiHl5 8eeghh^__` HHH H sh hhhn0iɐ ML {LW\i FHHHHH hhhHHlm ,҄ suhh)>=>hgh<<;[a{gggegȱgehh LK ,L^  8` ^LВ hhL=6 $P 訽5-:/ UUhhh{hzh}h| w Zp 0|8pJ LXLLӟG $p0`pog nkڥrok8o,koLjAaCcoJ nko5 nkk nLʟ S L? nL֟ HG56H6H k l ٥z{{ Bl}hhh ;в| |膆  ,;' Lޝ w Z pLNL2n`|H}HzH{HHH ɶ# {hH u  5s su,; Lu  5s$ zrL qiLpnH hɀ8(*iU.YCBULěJAktbgIȌp q8  r s8 JJ` !UvUUU ^"( M F566 y}z{6{L% #z{{"} GLuL^ lHHcJcmi J_mjmjJ_AgBhBh ]^A_B_B`L^ JEI L r Bkgelge8Å c  uLRNO rAKНTJVP Q8 DDFR S8 DiFEC CD)XDmXDǩ|`LvH wwhA?B@7B@87F8f7877878L^7 8*JA5gB6B68 h圍h?H@H@HI?J@J@ hbh@h@h?gAhBhBJJ8 J圍J7d8eBaLv`ijBfi jL^`Ib^J88 ii UŦLXUU HHHHL̷ +hh LP iL +hlhkhn jhimhHN8 Lu`LȓJ1CUDVDVU Lŧ 0 7U L`uUU{U||LK: / cyUUȹUUȥ Uл yu U` hh U LuL  (L[ Uީ  @Y%(&:$LX Vu 2 iHn %jHkHlHK Vu ʍ ِlHmH5 Vu {iH ꎥHH楩e ) ,LuLK eՅ7Ui8U #  785U6VLǕU7e778ҥU^V_bcF_hcCgDhebbc ]^__`U8傅UV` uUȱU` L^ uUUƜ0ƛ ̘WqeWȱWqei W` u8UUWȥVUX`UeUV` UO / +'L U)łiV VL LB 8U 7ȱ7 UU ЯUVULU7V8 i L LS U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LOU7VV 4YgXg8UXg5VYg665VgWg 4 4VgWgWgJi XgWgZgVg 485壍XgVg6复YgWg 4 c uUUHVH ̘U7WUV8XVV8 ̘Wb7ȥXɂ逅c7 5ef fbe  7U8VLh88h7UV^^`H"h{||kjkȱ{ "ie{||  Ք{|56|6 y&5L^i8IjJkJk ܆lmm'&`L^fCDDEFUVFVX L4  uVgWgXgYg8WHHHH lL d L s HHH mu shhh5ȱ6ȱLȓ65 h5H6 dHHHȱȱ6H6H5H u =к shhh Luhhhh` U/mZlmYZ wjHkkiLL^ȥ5^H^h Lel5emȆ6п  Le^e__ iLڏe *& eee`  ě ww8A?pB@B@ ܆onL8jkL ufȩ8 ufLLа,L^  u  h s su= uXHXH L56ۥ 8ee L^?be^@ce@c __^_ ]__^;<<6 $Phihi^Ȋ^6gȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^Lyh  (`|||}z,A[ :808Ш`,1@`y Gy`LޝHq1$u tAvʘtDթ 3q(~th`pvquts~y ffp$pp8j/;XAx=|8ez{{ Іghh "o `Lޝ x  wwghhoؠKkqvj 8LV`$uZuukvN kGv@  vvyLSj 3L8 ,V-uukv kv@vvyLLޝj 3 8 A80멀uukeqqtt$uA)*Ң֢t ?L B$uЫkЦuuj 3ysLġ,Vk Lm 2LˮL ꎅWXX` $` ,`HȘe`{ai|a|h - ;mLڮF 7 ; ` u op  4 t d sd LiLdʆ `! `Ȣ` :  `$ nL^u=g8i>hj>h ki=5j>6k6> hb 5b b$% kLi B  uLl$%`8f 7 ; ` u ` LuLeopL 0xH $0_ ih8fH`aai uhH2 {h JJJJf m ` :t osWgUg`Lvo`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ ; wwA?B@B @=g>h>h b=i>j>k V b LLLv ]gYg mZg8 n ]gvkUgl)@7gg0u(> ѨƬƫHH ^hohp` ]g0U`ȹU`VgVg 4LhsgN ǩ ? Og#X ggjgF=sg7N^g LsXggYgZg ? Og T L̬)Nl ^lEN)`L0s h  o d ɃɄ d`" lJJJJsg u ǩ LjLu RLN @uWgkjg tgg )llhgsigt hgigtggCighgȌWgXgUgVg ? Og"ighgH lhWUiUgiUVgL 5s zWH hW 5UWW nW` hL , u s Ր mqlr l)# u 0 ? OgLLv ``L ,Nku X ul)F UgH`UgVg 1gg Ngg 4NhHUg hUgl  Lv` H o h8L ± kLvUg 4 vkUgk L4 |u %{ʊ0  ekUg`L ({HIJh*Ug) H 4hVgL ({ъ) Ug)LLW= ɀ6"2豼U : , OgL ǩUgHVgH u ɩUgWgVgXghVghUgL4,fg ǩfWggXgYgL4 ǩL4 ({ n^8fl)I)I `op Ll L ({ nl)v rHqhLCLvkUg 4Ug jg wqr` hple Computer 1980, 1981  B n ꧠWgVg 4Lc gg` B Sb n Lc cLˍVgUWgYgXg=89U>:>:iU`9mU:mU: J &IHJh=>>UXgUYg9VgWg`L^ O aFL6_, ?U`Lv 6A ff# gf\ʐ 6 2nL 6 6 ff˻fдf`ffff \UgH chLLv`șfЂfffffffޭfffffffffнɯfз˩fб`  Apple Business BASIC v1.1 - (C) Apȥ xGƁ8 LQii0$iti8ti 8偅w恤wvwuJ-$n0+G0)GGwL 00`U 0r)`rqqLf $uyG-++ $n-G` kiekiiIif`ri8r` 0#U 0Ui)U`hGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)GG(sȢ8傅䂐$u a0 xGL`$uAG)EGȩ+$i-Gȥf8 i y LH 0Gh 0GG5H6H6yLne ҥ GAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙUթU`yiɀjjn*8miɝ d L q$uLۤ$)JJ8偅8傪 ȥ f$i0Ł!y0GLĤLQ~䁰< a0$H ,Gl$uhuuj 3 ?XkkNuuj 3k 4%v. ݠ J #  f`u Bvphh` Lޝjk ,hh`Sj9-k L9j ekekk|z)ekk |j[   Lޝ`j 9kkj"j"k u`I !li)id`   r $ <,8 r  5si$ z656$0 p n %jjF$0ݢ0 liʽ`L , l)% `ٜL ` |u %{ Lʊ0 o `Ug c gg cggL0sUgfɯfH chLv ov1 kffff LLvLefU L_H ݳhUUE UU`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: ±`LvupHoHp  (hiXghiYg ?@  ' Set the Apple /// Date and Time .( Copyright (C) Apple Computer, Inc. 1980 - 1day$(7)2day$(0)="UNKNOWN"3day$(1)="SUNDAY"4day$(2)="MONDAY"5day$(3)="TUESDAY"6day$(4)="WEDNESDAY"7day$(5)="THURSDAY"8day$(6)=P24N"Which ";S$:VP=:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAAAAAA:"4 Delete";:=HP3:"11 Save Data"8pN=HP2:"5 List";:=HP3:"12 Add Headers To a File"9zN=HP2:"6 Search";:=HP3:"13 Change Header Titles"=N=HP2:"7 Sort";:=HP3:"14 De`ete Headers From a File"&N=HP2+(HP3-HP2)/2):"15 Quit": N=H/4N=HP1::"Currently Contains: "NR" Records"+>N=HP1::"Room for "B-NR" more records"7HN:=HP2:"1 Select File";:=HP3:" 8 Rename File"3RN=HP2:"2 Add";:=HP3:" 9 Check Record Size"2\N=HP2:"3 Change";:=HP3:"10 Report Option".fN=HP2'6A$<>"N"A$<>"n"VP=:80:14030 620000)7::=10:=31:"HAVE A GOOD DAY!!!": N:HP1=21:HP2=11:HP3=413!N=HP1:"******* THE DATA PROCESSOR *******"3%N=HP1:"******* BY DICK STEIN 5-6-81 *******"'*N=HP1::"Current File: ";::DP$:INDEX":410:œ10100 ':20000t':DP$+F$+"FILE",:10000G6"Did you want to save your data (Y/N)? ";A$:A$="N"A$="n"14100'6A$<>"Y"A$<>"y"VP=:80:140006F$="INDEX":410@6"Do you want to quit now (Y/N)? ";A$:A$="Y"A$="y"14100 record? ";SR:SR<1VP=:80:4020:SR>NRD1$"Only ";NR;" RECORDS available.":80:4020oJ=SRNR:" "H$(0)": ";J:L=L+1:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):L=L+1:I::L=L+1:L+NH>20320,J:"Press RETURN for MENU...";L$:20000'F$="ord Number "DR" deleted!":, "More (Y/N)? ";L$:L$="Y"L$="y"3000& L$<>"N"L$<>"n"VP=:80:3040 20000U:L=0:"Do you want to list ALL or PART (A/P)? ";S$::S$="A"S$="a"SR=1:4040&S$<>"P"S$<>"p"VP=:80:40001"StartingIC DATA WPTEXTSYSTEMRESERVRESERVCAT kUgo 1$'XgdYgVgUWg ? OgL8`L:LUUU) UJnU UJJJJ /UU`H hmUUUUUU`0U`UU :UUL ǩ u ɋ 0#agUpUoUn ˌUUUU ȹUUUʈ00U%U$U [UU. ['U&U( UU7 `st?9}Ust5 ewx! es8wtx euuLUUNKNWNBAD PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASru HH` TakTu+ 1U)UU(U)U UU [VU#U ȹU Uuu`@nU TYPE BLKS NAME MODIFIED TIME CREATED TIME EOF U)!U)*UU)UUU mUmUUiVg` Ȳ ? OgXMLv$0% qr Ȳ 4qrqL `LeUsg La jg 3 Ugk 2nkUg ݳU nL@L 2nLRluvjghgsigtogwpgx`F UUqLOg qrL^op `VgWgsXgtYgkUg` ? OgLvVPgTQggRgfTg`EAd3] L^3]L^fWggXg Yg`agbgcg^WggXgYgdgegL4opqrst SVg"FRIDAY"9day$(7)="SATURDAY""A16);1): 40X24 Color modeED19);0);20);15): Set foreground/background colors FKleft=9:top=5QLcuck$=128)+01)+000)+2)+04)+0)+128)+30)+000)+2)+08)+0)PMkoo$=128)+01)1 Operations Budget olders Budget TIMSET TIMSET  hxhyhi0rhi0qhi0phi0ohi0nhhi0mhi0lhi0khi0jhi0ihi0hyHxHbc`f1900000COPYRIGHT (C) APPLE COMPUTER 1980{vqlgba_\Z'II.0 [d.3]( TIMSET 1,5)6=left+13:=top+2:0@i=h1%:1000:c$=d$:i=h2%:1000:hour%=c$+d$)Jhour%<0hour%>24300Th1%=c$):h2%=d$) Y":";1^i=mi1%:1000:c$=d$:i=mi2%:1000:min%=c$+d$)hmin%<0day%>59300rmi1%=c$):mi2%=d$) |":00"6002=l0160*ncoo&=П,2))12:ncoo&=0ncoo&=12$i=1ncoo&):#1;cuck$;koo$:i160=27=39999="t")="T")300="d")="D")400 2002,=left:=top+11::"Type T to change the Time"1=left+13:=top+2:ҟ,eaves original value")"ESCAPE aborts operation or program".notfirst=0".d1/timeset.inv":notfirst=1 200=left:=top+2$Ҡ,4,5);"/";Ҡ,1,2);" ";3000:2000):left+6);::day$(d3%);::" "!ҟ,4,5)<>"00:00"d3%=+095)+2)+08)+0)+128)+20)+095)+2)+08)+0) N=top#P=left:"Current date and time"#Z=left:"------- ---- --- ----" d=top+10'n=left:"Type D to change the Date"'x=left:"Type T to change the Time"1=22:"Using Space key l1 Operations 30 : For: Amount Code 5.83333 de0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRπ̠ŠԠؠ̠Ҡ ŠӠή٠Š兠ʠӶȀ٠Ϡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ÀŕҰƠŠɠ͠栺ؠԠҺРŠӠ̠Ĵ̠Ѡ̠̠ϰѠŅ⠀ɠԠՠγ`%!^0 ^)@`a R =` ^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` R`X`U T  \AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  C?^0: ݳ ٢ ^)?i` )@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C ŠIJĠ͠͠ҠӠ̠ǠժűϠŠϠҠ̠͠ɂƆ ŠUAQY @?ZY 9ZYY^TU QZoȥɭ h`` ? h``  h`X0i 8~XX0H hh襯` ©Wéĭ h0W`F X0A 17 r L l R r  2 : o o io o i ta  - 3 7/1 482 Kelmar Travel Travel Tickets 295.00 873 7/2 483 UPS Shipping 5.61 79 7/3 484 Post Office Stamps 18.00 841 oQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aC[JC` ?`> HH` s) L/ d` 6H5H` D^Ol>` ,b `  L LBa@LB a @LLD8?8`DE( 8DCDE` E0LXDE`DHEH hEGİ  ( ,=  HH`! (88" (èYÈ`,=0L  ZHYH`Lh~}k} =@ '` `è" (ÙY`L_Ùe`Ù `` q>  ,  'H&H` (# (9d7="Z` Jcd % ( i=` ( (,=) =x)) v(cd `# (,=ȅɅŐDL8H\0`(d  $,($  ,  .SILENTYPE A@  @ (C) 1980 Apple0,>!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba ddahDFL \DF]EGL) d>`H_E ^Db) b bh`  b)h` mDm`DE(EDmCDEhBkȌB`LBkB` '`)ݲ>`A@>A HH`>`<>EeFJKL.^CcHV=WwBbG? "#Rgnh*2U^wb b) b b)b``@?m` _ ^`\]LY@?m`  ٥`^_LY j` j@)` jLX@)c`@)a`@HEmDh0_^`0 (Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,2 7 > C F I L Q Z d k |   * - 0 3 < ? B E H K N o x    ! $ ) , 1 4 7 : ? B J O T [ ` e j m p {     ' + / 1 3 5 7 9 ; = ? D I M T Y ^ a f k q v {   "(+037:?BGKPSdilotwz   "&)-047CKNUX[^nqt $ * - $'048;@FIMPUY\`hknqw  %*.38AINQTY]bv{~ !&),14>ADHKPSW`eipuy|kx 2;@CNRWY[]_acegjq{'+579;=?BFKQTWZ]`ehknsvy| !H_ AAp*@"*QIYQIPIIAPIDIAAIHIA"AHBLI@QA@^ A6$# >1fN&`6> 9?6">A@.~A>0=3&@~|cpa ,&(*,.0246;@Cchb6>#B r>@62 >?>>>>2@~|cpC p*dI"*E!EAQIGIIA@ADIAAIHAAAHAHI@EA@?A> 6A}5 AA>III$QIHII""M]DIAAIHIAHEHIIAA   `0>H hJ)@$0P L S S L P  J L `J0 H/ H` d y ~ o t Z 8`8 8`8)8ILH > ' ` j 8` ) ` > ` C ` L ` S ` 348``  y y 8 ``  ) 9:`Y_Zx) ) =(`H6H 7I%h7680 9:LV 9:98;;<3ij X 3gh5 X 53e,<0m;f,<0m< X ij X h`)[_^Zh`3J 3L 3 ) 4J 4 ح4 ) 3 5 P L 4  J L5 P P ) ` C $ a0 '8` P a P a J  L a 0 P a0 P a0 P a0 L 8D9E:II  t8 t`A t\] L  67L) [,8누 ,[ Hh tF t,80,[ t` ^H ) `  t( K ,8`   ) J J LS HH `,80`B`#$+29Y` `` Z` [`  ) P LL ) 0)9  tL> )&0 ,8BkL  ,8Ii`a a tL> a0ca t, FDGE  L BLqk E: -D9%    C  tB@Bk L!8D9E:98F:G0 г氭LA t  BHb)bZI[J`K`IZJ[K`` H 0L06,8]\DEH j@ jhLXB j@0)HmHHh jܭ@L`@)[) L:[)L:[0 H j[ jh[ j X `[) >`b b)b`@d`e`BNk B L;<,b= ' 9 : A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#.PRINTER A"(C) 1980 by Apple Computer Inc.H  [L` H ' 8 Q ТΕLϦI X +)J* b I Q 8fxL@ X I)!) b `Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L[`ɠɀ)ӮԮmwӥmxԐ mi` CHBH`z !`LL) @L) L8` "FileCabinet""******* THE DATA PROCESSOR *******"3=HP1:"******* By DICK STEIN 5-6-81 *******"("DATAPROCESSOR",P<0 )ߍL( J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  xLJ}~~Șݶ~`}}~L7 L }ީ~` yjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx   ʊJJJ莟mwwxix 0ޤՐڢ  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. ' Q  @„ȄL5`ʝ`))ժuvЭ H ʊJ((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( (l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/Q_dos|~.GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww `,M0L }H|H`! (```,M0L HH`LwO NPQ #) "# ```FJ "%/27@EHRU\ain #03@IN`,M0L& (,M0L7 Đ`ʥ逅8nOQRnʐQxOeʍOH )  h(eʅ8ʅİLp )` ) `)DNNLSOPRnPO  % &$N) HH` (# (Zg] >M")"#)  #`,M$ ()LFG O M`% (MLOFG 80 J8}L t L 0yʽz0 t L2  Lh `*f*&*)` ` h e`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ ʏ  #&).369<ADGJMP^g $*-06=BKOR^agjmpu}*/28BWsvy~JJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~ϭ - f, ϥ- fϱϮEϑʩ`P u  CH` f(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJhIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  h`!J8݅ eۅ$  h` ' Q $צ! LP WL?$7߭$PH8 iߩ ih ߍ v`i,ʐi,iPIIʥ)ifʦʆ̐pLe/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L τ`ϩE҅0Ȅ(fL  ('Άѽн`8Hٰ ҟ,2,1))% mi1%=ҟ,4,1)):mi2%=ҟ,5,1)) ':: '::d3%<0d3%=0> ' Get components of DATE$ and TIME$ # y1%=Ҡ,1,1)):y2%=Ҡ,2,1))# m1%=Ҡ,4,1)):m2%=Ҡ,5,1))# d1%=Ҡ,7,1)):d2%=Ҡ,8,1))< year%=y1%*10+y2%:month%=m1%*10+m2%:day%=d1%*10+d2%:2000# h1%=ҟ,1,1)):h2%=s Congruence to calculate day of week  Inputs: year%,month%,day%% Output: d3% = 1-7 (1=Sunday)  c%=19 d%=year% k%=day% m%=month%-2*m%<=0m%=m%+12:d%=d%-1;4d3%=2.6*m%-0.2)+k%+d%+d%/4)+c%/4)-2*c%)7+1)96+Y2%,%M1%*256+M2%,%D1%*256+D2%,%D3%,%H1%*256+H2%,%MI1%*256+MI2%)b100 Get character subroutine d$d$)=27100: ESCAPE 3d$=" "d$=i): SPACE leaves original char d$<"0"d$>"9"1030$d$;.4 Zeller'+d$)day%<1day%>31400d1%=c$):d2%=d$) "/";0i=y1%:1000:c$=d$:i=y2%:1000:year%=c$+d$)year%>99400y1%=c$):y2%=d$)#h1%=ҟ,1,1)):h2%=ҟ,2,1))%mi1%=ҟ,4,1)):mi2%=ҟ,5,1)) 2000&600TXTIMSET(%Y1%*25eft:=top+10::"Type D to change the Date")=left:=top+2:Ҡ,4,5);"/";Ҡ,1,2)=left:=top+2:1i=m1%:1000:c$=d$:i=m2%:1000:month%=c$+d$)month%<1month%>12400m1%=c$):m2%=d$) "/";/i=d1%:1000:c$=d$:i=d2%:1000:day%=c$      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi)h `  )`%)8`)    C   ʥ)Ģ    C Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.) H ' Q Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L# Ӣ ,$0F t բӅLs  mӥmԐLX "&),/4:>BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~   #(/28AHPSWZehu ),14?Rat{   % 9 < C F U q u x     ' , 0 5 8 = F M U Z ] b i n s y ~   $ ) 1 8 E K N S V    . 5 8 A _  9 _\\b)ba)a b 04 )ߍY) J,P,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(I I `[M,Y0JՐ̑ʈ`Jհȍ,P,`,$ ( $  x) (,`% (L5, `é ĩ `Y) jYZNZ~ZO,Y0'^^^]]8^][[```__8`ΝL  `,0 x) `(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍĩϭ & &υΠÑΈΝ + ҰةeÅÐн,QȱÍR`)P`Ɂ" (`Hh) `ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* I `x|x|,,P-X + `T`U`V`W`X`[ȭ\` `YȭȭéL, HH`L5L  d     HEJ lO  zh) `(" ( (ÈE  z`) `(, LL͏[`͐\L" L L L [LM LM ,0L5 HH`! (56O[agm x `(" ((èDÈ`QȭR`P```JÈ`EÈ`S`Z)Z`,@`[, [L[`[͏[`,s[L\͐\L" ,XL \\L" ,CL [\L" [,)LL L YL Z)ߍZ`Z Z`aL bL )Z) ZL   x)Y [J h̰ [h,L`  ;Yo}"+9GPYo ` Xb[m][\m_\]_^`L ]m[]_m\_[\L [m]^\m_`L bXL Z ZT ,U H,T p  He҅Ґhe…å逅h,QRLґȥӑ,P0 h0  z`,0L5 ҅ӥĥŰ+,0p J L Lz )"Ơ̏ HH` MH,҅x  (ĥŐL ,PHȊ©L,T2,X-P" a{)X LnX0$0%,V ҥ #L$0T,WOKT0P;ҥ,W #LA\   8҅¥Ӆé҅L,`[,S`,XP"[YJ H) +̰ H) +ʭP h̰ʩ8,)΂ ̓`,T H h J `T!   J(P J J `,0L5,P0H0 ԥ f0)ĭX)X5 I`6 `7 I`8 I`9A)I@`{ ~I)_ J) ) )) ,0E EJ%O J(,@OEJLf ((((PPPPBTVSPLH   5Aʘ ;H:H` (# (I// 0`)I<0 ^)WL)6L= C H n ~ [`w!&)LQT^epty"5v{ .CONSOLE a (C) 1980 by Apple Computer Inc.O  O0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $p̑бʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA`^adgjorw|KP%*-LQ\r{~  #(-2=AJLNPXdmsy !+?MS[aeu "%*2NVYP TcL,UUTdLXXL"lp,W0k,bPZ,[0\[cLZnoln _L `L aXl ) ` ) `x,V0 ")(`JN{Y H`j) )g kkL)` kkLi ),b-cWLidWuoeQ,T0L@TEPd>gZ[M,h,oe$YHV ))ho kk0 qroqYLG,h,VLGj)`L5,jL",T`ȩ`,Q0L HH`LE9Uc,T U H,U0x])] olXYmnpqVWkj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`l031e-Y x V(x) V()LU Hh,RSLCpȥȑ`,Q0LmEąĩEŅ Hm`l HL 8fol,Q0L KHJH`! (QRo}`\" (\ÈȌk`RȭS` l  o Q`,Q$ ()PJK . "]RSiTUWZ[ Q`% (QLl  )JK `,Q0LpEąĩEŅ|o,i0prH 8fofo7,T0*,V- HH` (# (#+/ 6 = N S X ` t (-1:C\aeqw~36qw\r.RS232 c "߄P(C) Apple Computer Inc. 1981L7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H M P S X \ _ b e j o t w z   $ ' ,   !$'*-27;@EILORUX[`chknsv~ "$&(*,.024HQW]ciq|           & + . 1 4 %=BEHKPX]aehorw{!$',/47:>ADGJMRUX\_behknsv|f(,:<>@BDFHJZbmt{!$,169>AILORU[aknqw~ $27?DGKPSX`{ (+2;X[^chm^g ag_gbg`gcgLLLu_g`g  u s Րml0L`g_g`Vubhb]lk{aap8y^věyynyBOgՐihm?lK;mm0j̷5:?4ӍCHH CD\hh Hh`L)i     !$),038;@DIL]behmpsx{   #'*6>AHKNQadgty~   % * 1 6 9 < ? D M W ^ o z }     ilr %).3<DILOTX]qvy~ !$',/9<?CFKNR[`dkptw-6;>IMRTVXZ\^`belv "&02468:=AFLORUX[`cfinqtwz} "+/36;ADHKPTW[cf@"*QIYQIPIIAPIDIAAIHIA"AHBLI@QA@^ A6$# >1fN&`6> 9?6">A@.~A>0=3&@~|cpa !#%')+-/16;>^cfsz~ >>>2@~|cpC p*dI"*E!EAQIGIIA@ADIAAIHAAAHAHI@EA@?A> 6A}5 AA>III$QIHII""M]DIAAIHIAHEHIIAA H_ AAp*P L   L P . L `J H H`7  ( - 2 D  # 8`8 8`8)8IL <  ` N 8`  ` " ` ` `  ` 348`` y yo z yp 8 `` { b6>#B r>@62 >?>x) ) =(`H6H 7I%h7680 9:L 9:9 83de < 3bc5 < 53`$0ea$0e < de < h`  `0>H hJ)@$0^))[_^Z`3J 3í3 ) 4J 4 ٭4 ) 3 5 4 4 . L 4 4 ) ` $ a0 '8` a 0  9:`Y_Z" \0^\ o 8B9C:II  o8 o`A oWX  67L G V,8누 J ,V Hh oF o,80,V o` F 0L06,8 [  o( > ,8`    . . L H H `,80`@`%,L` s[` sU` sV` v  4 LL  0)9  oL" )&0 ,8@fL v,8Ii`\ \ oL@ |L,]=  9 :  DBEC  @Ljf C: -B9%   z  o@@@f L8B9C:98D:E0 г氭LA o  @F])]UV[`UV[` )\`>HCmBh0ZY`0XWBCH e> ehLS@ e>0)HmFFh eܭ>LS>)V) L5V)L5V0 H eV ehV e S `V) <`] ])]`>_`e`@Lf HH`<`<>EeFJKL.^CcHV=WwBbG? Mzbic%-PYr] ]) ] ])]``>=m[ zZ Y`WXLT>=m[ z ٥`YZLT e[ e>)[ eLS>)^`>HH `DONN DENMAN STRIKES! H o h8L  kLvUQ 2 vkUQk L2 |_ %eʊ0  ekUQ`L{ (eHIJh*UQ) H 2hVQL} (eъ) UQ)LLW= ɀ6"2豼? :  # & ) , / 2 S \ s {     # . 3 8 ? B G L R ] h k n s x      % * / 4 9 > A P S X [ y vZ.GRAFIX b ?  """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww/((((PPPP @```pHJh` H hJJJJ`)`$ȱ)%ԅ (%ժ )JJJ`&&*`JJ` **&*&ݥ`J` ***`` ` Jjj݊` ݊`JfJfFݪ݆` `JfJfJfF`ݩ`$pR`Rp)=O%e܅ $ ' `ߪ!J8ۅ eم$ ' ` b ӦH L حR $I$0pQ)QPp pQPI1ʑ )`  $Hȥ ( ԆݥՅh ݅L $I$ P %I1L-p Q%Q)`%L-Ϊ&%ԩ@Ԅ`FԐ @Ԑ 8ئ ӆֽHӽO`-(LB Ԅ` ԰Ȅ( LB  ('ӆֽOսH`8iEE˅`8Hװ hIiHׅh8IifפӦ۰>Jj8مe ` ` @ `޹`8HJJJh ) ˽!`Jj8ߴHi#iV( OռHԆi`JӐ `/,Y"ʰ,Wi8i#Hiihifi`i,Yʐi,XiPIIʥ)ifʐpL /FԐ &8Ȅ`' R  R ~  R ʥ)Ģ R  R ~ Ģ LR E% %) LR 8`م&٥eepɀjff&ۥeepɀjff۠ %) R %)`% R 0.K) J M L    0N Pܭ#m̥mͭ8LF )ѠhhhhR` b ۄ̢J4RHF SR hR̅͢L $P I)Ls m̥mLs   )`%)8`)mץm8LץM08׍؍`8PץQ0.8׍؍0ۭPQe׍e؍88N׭O0e׍e؍0RHHHHmm)٭)ڭ׭fjfjfjۭ׭fjfjfj b ӭ* ѠhhhhR`  $I$0pQ)QPp pQPI1ʑ I1) LtJḼͭF8J׭K068׍؍0VJK$e׍e؍ =H 'HH N YM))MYhh0 ϭPh0 йP`)R`)S`F   b L `  L `FF   L `RHSRP8NHHHJK8LJMKDLELD) @LD) L8HXHIYI`JFKG`TUI ,V@ EELΩJKNOLMPQ`IL8YʈE)E)`E E @Э ) t`L Lt ީ` ) & & &mT̥mUͭVWX FmWFGiG` HH`??????l??R_@I??????`K LJMKKJKPQ PQQPQPNQO PNQOONO,P<0 )ߍL J,P,QJ,R,SJ,T,U,WFL,0Lp ȅɥŐ ĐL  6LȘ  ``,0Lp νFGBEHKNQT^akorux{~:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAAS$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 A11 Save Data"8pN=HP2:"5 List";:=HP3:"12 Add Headers To a File"9zN=HP2:"6 Search";:=HP3:"13 Change Header Titles"=N=HP2:"7 Sort";:=HP3:"14 Delete Headers From a File"&N=HP2+(HP3-HP2)/2):"15 Quit": N=HP24N"Which ";S$:VP=y Contains: "NR" Records"+>N=HP1::"Room for "B-NR" more records"7HN:=HP2:"1 Select File";:=HP3:" 8 Rename File"3RN=HP2:"2 Add";:=HP3:" 9 Check Record Size"2\N=HP2:"3 Change";:=HP3:"10 Report Option".fN=HP2:"4 Delete";:=HP3:"VP=:80:14030 620000)7::=10:=31:"HAVE A GOOD DAY!!!": N:HP1=21:HP2=11:HP3=413!N=HP1:"******* THE DATA PROCESSOR *******"3%N=HP1:"******* BY DICK STEIN 5-6-81 *******"'*N=HP1::"Current File: ";::DP$:/4N=HP1::"Currentl':20000t':DP$+F$+"FILE",:10000G6"Did you want to save your data (Y/N)? ";A$:A$="N"A$="n"14100'6A$<>"Y"A$<>"y"VP=:80:140006F$="INDEX":410@6"Do you want to quit now (Y/N)? ";A$:A$="Y"A$="y"14100'6A$<>"N"A$<>"n"=:80:4020:SR>NRD1$"Only ";NR;" RECORDS available.":80:4020oJ=SRNR:" "H$(0)": ";J:L=L+1:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):L=L+1:I::L=L+1:L+NH>20320,J:"Press RETURN for MENU...";L$:20000'F$="INDEX":410:œ10100 !":, "More (Y/N)? ";L$:L$="Y"L$="y"3000& L$<>"N"L$<>"n"VP=:80:3040 20000U:L=0:"Do you want to list ALL or PART (A/P)? ";S$::S$="A"S$="a"SR=1:4040&S$<>"P"S$<>"p"VP=:80:40001"Starting record? ";SR:SR<1VP :=5:"Enter Record Number you want to delete ";DR$:DR=DR$):DR<1DR>NRVP=:80:3000. RN=R%(DR):J=1NR-1:J>=DRR%(J)=R%(J+1) R%(J)>RNR%(J)=R%(J)-1^ J:J=RNNR-1:I=1NH:N$(J,I)=N$(J+1,I):I:J:NR=NR-1::"Record Number "DR" deletedPOS:70:2000):300::"No change, press RETURN":I=1NH:I" "H$(I);:=20": "N$(R%(J),I);:"";C$C$<>""N$(R%(J),I)=C$I=:300::"More changes (Y/N)? ";L$:L$="Y"L$="y"2000& L$<>"N"L$<>"n"VP=:80:2050 20000_I)::ML=<ML<200D1$"You only have "ML" bytes of memory left":,"MORE (Y/N)? ";L$:L$="Y"L$="y"1000&L$<>"N"L$<>"n"VP=:80:1030 20000g:=5:"Enter the number of the record you want to change ";J$:J=J$):J<1J>NRVP=DP$+"INDEXFILE"<:DP$="":F$="BASENAME":350:NR=1"BASENAMEFILE":6400I=SNR-1:R$(I)=R$(I+1)::NR=NR-1:410:800:"There are "NR" records in the "DP$" file":NR=NR+1:R%(NR)=NR:"You are entering record # "NR::I=1NH:H$(I)":";:"";N$(NR,& 4 9 G L T [ ` f i n q v     $ G N Q Z i p s |   8 ? v { * P ^ x O T W z  #7QWu&.1Z_j #&),/25:ADJSZbeilwz '*258;>ADINRW\gj %38;@FMU\dilqz      ! AAAAAAAAA00N50 AAAAAAAAAA:"15 Quit": N=HP24N"Which ";S$:VP=:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAAt": N=HP24N"Which ";S$:VP=:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAAS$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAA"Want to SAVE the "DP$" File sorted by "H$(S)" to disk ";>"(Y/N)? ";L$:L$="Y"L$="y"F$="IF":DP$+F$:410:20000%L$<>"N"L$<>"n"VP=:80:220 20000O," "H$(0)": ";J:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):I::L=L+NH+2:J@"Pres (I2,S))190180"N$(I1,S))<=N$(I2,S))190180 O175N$(I1,S)>=N$(I2,S)190180N$(I1,S)<=N$(I2,S)1904X=R%(I):R%(I)=R%(I+M):R%(I+M)=X:I=I-M:I>=1140J=J+1:J>K110130c15);:=5:"Sorting is done";D1$::L File Cabinet /// ! version - 2.0 7/20/81(640 <:20000F=VP:7);30);:P=VP-1:7);30);:d14);:M=NRnM=M/2):M=0210xK=NR-M:J=1I=JI1=R%(I):I2=R%(I+M):L170 O150"N$(I1,S))>=N$3 Bryan Haas 100 Bandley Drive CA X X Linda Lyon 555 Tyndal Drive CA X X Laura Lyon 555 Tyndal CA X X 6 First Name Last Name Address State Zip Code Phone Number 5.57143 3 Bryan Haas 100 Bandley Drive Cupertino CA X X X Linda Lyon 555 Tyndal Drive Los Altos CA X X X Laura Lyon 555 Tyndal Los Altos CA X X X ile"&N=HP2+(HP3-HP2)/2):"15 Quit": N=HP24N"Which ";S$:VP=:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAA2):"15 Quit": N=HP24N"Which ";S$:VP=:S=S$):S<1S>1680:20190UNS650,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000N50 AAAAAAAAAAange Header Titles"=N=HP2:"7 Sort";:=HP3:"14 Delete Headers From a Fs RETURN to continue, ESC for menu";:L$:L$)=27:E=0:20000JL$)<>13VP=:70:320 TL=0::^F$<>"IF"FF=1$h#1,DP$+F$:#1;NR:FF380,3904rJ=1NR:I=1NH:#1;N$(J,I):I:R%(J)=J:J:400|J=1NR:#1;R$(J):J:400 J=1NR:#1;R$(J):J:#1;AV#1:FF=0:F$<>"IF"FF=1$#1,DP$+F$:#1;NR:FF440,4500J=1NR:I=1NH:#1;N$(R%(J),I):I:J:460J=1NR:#1;R$(J):J:460 J=1NR:#1;R$(J):J:#1;AV#1:FF=0:JJ=1:J1=RH*3+6:"This report has the f7:300::"No change, press RETURN"::1,80,24:I=1NH:I" "H$(I);:=20!": "N$(R%(J),I);:=22:"";C$C$<>""N$(R%(J),I)=C$=-1:=22:N$(R%(J),I)I::300:4"More changes (Y/N)? ";L$:L$="Y"L$="y"2020/ L$<>"N"$:L$="Y"L$="y"L$=""1,180,24:ST=ST+(AT-ML):1000&L$<>"N"L$<>"n"VP=:80:10401,180,24$ST=ST+(AT-ML) .20000:=5:œ20000U"Which record would you like to change - ";J$:J=J$):J<0J>NRVP=:80:2010j=020000ou are entering record # "NR:"_______________________________________________________________________________":1,680,24:*I=1NH:H$(I)" - ";:"";N$(NR,I)::ML=<ML<200D1$"You only have "ML" bytes of memory left":N"MORE (Y/N)? ";LDP$+"IF" œ995'F$="RN":350:I=1NR:R$(I)+"RH": DP$+"RN"8:DP$="":F$="BASENAME":350:NR=1"BASENAME":6400I=SNR-1:R$(I)=R$(I+1)::NR=NR-1:410:800AT=:"There are "NR" records in the "DP$" file":NR=NR+1:R%(NR)=NR::"Ye recovered.":"Are you sure that you want to delete it (Y/N)? ";S$:S$="Y"S$="y"940S$="N"S$="n"800S$<>"N"S$<>"n"910F:=12:=32::"[ DELETING FILE ]"::=(80-R$(S)))/2):R$(S):DP$=R$(S):œ970 DP$+"HF" œ990 you have ";FL;" characters":VP=:70:870 nœ890 pDP$+F$,)z:NR=J:DP$+F$:410:DP$=R$(J-1):670<"Delete which : ";S$:S=S$):S<1S>J-1VP=:80:800:=9:"Ready to delete "34);R$(S);34);"."::"Once deleted, this data cannot not bUa"Name for new File Cabinet file - ";A$:VP=:A$,1))<6580:J=0865:ۺ800 fJ=0J=1 gR$(J)=A$IkR$(J)," ")<>0"No spaces allowed in file name ":VP=VP+1:70:870olFL=R$(J)):FL=>14"File name must be less than 13 characters, 420:::690v :"Select from:"::J=1NR:J" "R$(J):J::J" Create a New File":J>1J+1" Delete a File":J+2" Exit Program"*,4"Which ";S$:VP=:S=S$):S=J+1:9009S=J+214100>S<1S>J80:820HDP$=R$(S):S<>J670 R:865\SC=:350:SE=:ST=SC-SE:20000:Zav=30:=1:=26:"Press 'RETURN' to exit to menu":=4:"HEADER TITLES:"::1,680,24:II=120:"HEADER # "I": ";:"";R$(I):R$(I)=""I>20NR=I:I=20:780 I:NR=I NR=17);::760 NR=NR-1:FF=2:)=H$(I):::: ::a:R$(89),AC(21),K(89),H$(21),RN$(21),K1(21):D1$=7):H$(0)="REC":DP$="":F$="BASENAME":œ860 350:800F$="HF":FF=2:œ710360XI=1NR:H$(I)=R$(I):I:NH=NR:NR=0:B=/(AV*NH+7*NH)):N$(B,NH),R%(B):F$="IF":œ60"I-1): XI1=1WIDE:#1;"-";::#1:2b"Enter report you want deleted ";A$:a$="")gRF=A$):RF<1RF>I-1VP=:80:610lF$=RN$(RF)+"RN":F$7qNN=NR-1:J=RFNR-1:RN$(J)=RN$(J+1)::9660:NR=NS:@v:"Select From"::I=1NH:I;" ";H$(I):R$(I!A=N):C=N-N):C<>0C=C+.0017&A$=A):C$=C):C$=C$+"00":C$,1)="."C$=C$,3)!0C$,1)<>"."C$="."+C$,2).:A$=A$+C$:N1=A$):A9=1A$="-"+A$:N1=N1+1?2DN=((K(3*(I+1)-1)-K(3*I-1))-N1-1))+K(3*I-1):(NN=((WIDE-K(3*I-1))-N1))+K(3*":510A$="Right"A$:J1=J1+1:o::"Total at - ";R$(RH*3+2):"Total width - ";R$(RH*3+5)::=22:=25:"Press any key to continue";:A$+::"Select From:"::MF=0"0 "H$(0) I=1NH:I" "H$(I)::MF=0:A9=0:N<0A9=1:N=N)#ollowing options:":25,580,24:_"Header Tab Total Column":"------------------------------------------"PI=1RH*33:H$(R$(I)));:=21:R$(I+1);:=29:R$(I+2))=0A$="No":490 A$="Yes"*A$;:=38:R$(J1))=0A$="LeftL$<>"n"L$<>""VP=:80:2050 2000 :=5Z "Which record would you like to delete - ";DR$:DR=DR$):DR<0DR>NRVP=:80:3000 dr=020000 :J=DR::300:V "Is this the record you want to delete (Y/N)? ";:A$:A$="N"A$="n"A$=""3000( A$<>"Y"A$<>"y"VP=-1:70:3020. RN=R%(DR):J=1NR-1:J>=DRR%(J)=R%(J+1) R%(J)>RNR%(J)=R%(J)-1` J:J=RNNR-1:I=1NH:N$(J,I)=N$(J+1,I):I:J:NR=NR-1::"Record Number "DR" deleted!":: 3002Y:=5:L=0:"Do you want to(L/R)? ";A$:A$<>"L"A$<>"l"A$<>"R"A$<>"r"VP=-1:80:9280%J$A$="L"A$="l"K1(I1)=0:I1=I1+1%T$A$="R"A$="r"K1(I1)=1:I1=I1+1%Y$:=5:=59:K(I):=7:=59:K(I+1)%^$:1,NH+780,24::K(0)<>19340Fh$:"Which tab position for total: ";A$:$):I=19250%$K(I+1)=132VP=-1:80:9230S,$:"Total on "H$(K(I))" (Y/N)? ";:"";A$:A$="Y"A$="y"K(I+2)=1:K(0)=1:9280(6$A$<>"N"A$<>"n"VP=-1:80:9260i@$:"Left or right justified columns #I1=1:I=1RH*33#1,NH+880,24i$:"Which header do you want in position #"(I+2)/3" - ";:"";A$:a$=""a$,1)>"9"VP=-1:80:92201 $K(I)=A$):K(I)<1K(I)>NHVP=-1:80:9220M$:"Which tab position for "H$(K(I))" - ";:"";A$:K(I+1)=A_________________________________________________________________":vp=+29#=45:=5:"Last Header - ":=45:=7:"Last Tab - "4#=1:=vp:"How many headers - ";A$:a$=""20000-#RH=A$):RH<1RH>NH+1VP=-1:80:9190#E=0RN$(NN)="Present":520:NR=NS:91605#::=5:"No report formats on disk...":::NN=1N#"Do you want to create one (Y/N)? ";A$:A$="N"A$="n"A$=""RP=1:9160(#A$<>"Y"A$<>"y"VP=-1:70:9130#:520:NR=NS #E9350 #RP20000d#NH<18"_____________:NR=09060P#I=09060Z#I" "R$(I)Hd#::I" Create a new report format":I+1;" Delete a report format":n#"Which ";S$:s$=""20000's#s=s$):S<1S>I+1VP=:80:9070x#S=I+1610:90201#NN=S:S<>IRN$(S)=R$(S):E=1:9650:520:9624#Z=NR:NR=NH:DP$+F$:420:NR=NZ:200008(#T9=0:WIDE=80:RP=0::I=03*NH+5:K(I)=0::PF=0:NL=2412#I=0NH+1:AC(I)=0::HC=0:GT=0:PAGE=0:E93503<#NN=0:I=021:RN$(I)=""::NS=NR:F$="RN":œ9120LF#350::I=1NR:RN$(I)=R$(I):::"Select from:"::I=0NRWFL=TOO$):FL=>14VP=-1::"File name must be less than 13 characters":70:7050R$(S)=TOO$:410:œ7160FR$+"HF",TOO$+"HF":œ7180FR$+"IF",TOO$+"IF":œ7180FR$+"RN",TOO$+"RN" :PD$=FR$PD$=TOO$ 70106FF=2:F$="HF":N file ";s$:S=S$):S=0NR=TT:DP$=PD$:20000vS<1S>JVP=:80:7020%:=5:"From: ";R$(S):FR$=R$(S):'"To : ";TOO$:VP=-1:too$=""7015too$,1))<6570:7050KTOO$," ")<>0:VP=-1::"No spaces allowed in file name ":70:7050"Do you want to sort:"::"1 Ascending order":"2 Descending order":"Which ";O$:o$=""6000%O=O$):O<1O>2VP=:80:6050 :100XTT=NR:PD$=DP$bDP$="":F$="BASENAME":350/g:"File Names: "::J=1NR:J" "R$(J)::?l"Rename whichMF=1::520:5z"Enter # of field for sorting ";S$:s$=""20000&S=S$):S<1S>NHVP=:80:6010J:=5:"Do you want to sort:"::"1 Alphabetically":"2 Numerically":"Which ";L$:l$=""6000%L=L$):L<1L>2VP=:80:6030P:=5:20000&s=s$):S<1S>NHVP=:80:5010?:=5:"Please enter the "H$(S);:" you want to find - ";Q$Q$=""5000;:J=1NR:N$(R%(J),0)=J):N$(R%(J),S),Q$)<>0300L+NH>20320J'"Thats all of them . . . . ";:320 5000p:J=SRNR:" "H$(0)": ";J:L=L+1:I=1NH:I" "H$(I);:=20:": "N$(R%(J),I):L=L+1:I::L=L+1:L+NH>20320,J:"Press RETURN for menu...";L$:20000L=0:MF=1:;=1:"You may search by any of the following:"::530:"Which ";S$:s$="" list ALL or PART (A/P)? ";S$::S$="A"S$="a"SR=1:4040s$=""20000&S$<>"P"S$<>"p"VP=:80:4000*"Starting record? ";SR$:sr$=""4000#sr=sr$):SR<1VP=:80:4020<SR>NR:D1$"Only ";NR;" records available.":80:4020qA$)=0K(0)=0:T9=1:9340=r$K(I+1)=A$):K(I+1)132VP=-1:80:9320m|$:"What is the output width - ";A$:K(RH*3+5)=A$):K(RH*3+5)132VP=-1:80:9340I$:"Select records by which header - ";A$:A$="A"A$="a"E=0:20000 $vp=-21$a$,1)<"0"a$,1)>"9"a$<>""70:9350)$S=A$):A$)=0Q$="@":X$="@":9400<$:"What should "H$(S)" be - ";:"";q$:q$=""70:9350;$:"What other header - ";X$:X=X$):X=0X$="@":9400 $vp=-2<$:"What :D1$;:&q$,1))<65e1=1:&?&:"Check your reference manual for this error number ":';'=HP2:=22:"- - - Saving your data to the disk - - -" 'œ10100!'F$="IF":DP$+F$:410::8080t':DP$+F$,:10000%*:=3:=32:"Add Ns name (Y/N)? ";b$%&b$="Y"b$="y"VP=VPR:80:9870&&b$<>"N"b$<>"n"vp=:80:9925&nn=nn-1:9900H&E1=0:q$," ")<>0:"No spaces allowed in file name ":D1$:E1=1:Q&FL=q$):FL>=14:"File name must be less than 13 characters":E1=15:I=1NR:R$(I)=K(I))::R$(I-2)=K(0)):I=NR+1NR+RH:R$(I)=K1(I-NR))::NR=NR+RH:PD$=DP$:DP$=""&F$=RN$(NN)+"RN":œ9910 &F$,&410:DP$=PD$:9660:&:<>339980-&:"You already have a file by this name"2&"Do you want to change thiC=0\&L=L+1:#1: f&600:I=1RH:AC(I)=09850"p&N=AC(I):540:580:#1;N);A$;(z&:GT<>0N=GT:540:590:#1;N);A$ :1&"Enter the report format name ";q$:q$=""&VP=:9960:E1=180:9870&e=1:rn$(nn)=Q$:VPR=VPw&NS=NR:NR=3*RH+)):580:#1;N);[C&Z=K(3*(I+1)-1)-K(3*I-1):Z<=N$(R%(J),K(3*I-2)))#1;N$(R%(J),K(3*I-2)),Z-1);:9800GN$(R%(J),K(3*I-2));0N=HC:540:590:#1;N);A$;:GT=GT+HC:H-1)=K(3*(RH+2)-1)' &I=1RH:K1(I)=0#1;K(3*I-1));/&K1(I)=1N1=H$(K(3*I-2))):580:#1;N);< H$(K(3*I-2));::K(0)=1N1=5:590:#1;N);"Total";*:600:L=5:'4&I=1RH:K1(I)=0#1;K(3*I-1));5>&K1(I)=1N1=N$(R%(J),K(3*I-2)GE+1:SPACE=WIDE-RN$(NN))-H$(S))-18+%PF=1=WIDE-25:#1;TD$;:SPACE<1#1-%PF<>1#1;WIDE-25);TD$;:SPACE<1#12%PF=1=WIDE-6:#1;"PAGE ";PAGE:SPACE>0#14%PF<>1#1;WIDE-6);"PAGE ";PAGE:SPACE>0#1-&600:K(0)=0K(3*(RH+1)R)=R$(I))::NR=NS%:470::RP=1:6%NR=NN:F$="RN":I=1NR:R$(I)=RN$(I)::410:NR=NS:A%:Q$="@"#1;DP$+" "+RN$(NN);" Report (all records)";:9710>%#1;DP$+" "+RN$(NN)" Report for "H$(S)":"Q$;:X$="@"9710%#1;" and "H$(X)":"X$;1%PAGE=PA__________________________________________"%1,nh+780,24::9350(%L$<>"N"L$<>"n"VP=-1:80:9620%E=0:20000%%PD$=DP$:DP$="":F$=RN$(NN)+"RH":350:DP$=PD$:RH=(NR-5)/4:I=1NR-RH:K(I)=R$(I))::K(0)=R$(I-2)):I=NR-RH+1NR:K1(I+RH-N" format (Y/N)? ";L$:VP=:L$<>"y"L$<>"Y"9622w%::NS=3*RH+5:I=1NS:R$(I)=K(I))::R$(I-2)=K(0)):I=NS+1NS+RH:R$(I)=K1(I-NS))::NS=NS+RH:9655:520:9624%l$="n"l$="N"e=0:20000 %80:9620V%"_____________________________________0#0%N$(R%(J),S),Q$))<>Q$9560:%X$="@"9550#D%N$(R%(J),X),X$))<>X$9560 N%9780X%PF=1L>18:320:9680 b%JNL#1;12):9680l%L=09680v%J:T99830:#1::e9620 %9870%Y%"More reports using the "RN$(NN);:ILENTYPE":9500(%B$="N"B$="n"P$=".PRINTER":9500%vp=vx:80:9450Y%A$="P"A$="p":"How many lines per page - ";NL$:NL=NL$):NL<1VP=Vx:80:9450 !%::I=1RH:AC(I)=0:I:GT=0 $%#1,P$1&%9680:J=1NR:N$(R%(J),0)=J):Q$="@"955:vp=-1:td$=""80:9440L$::"Output to screen or printer (S/P)? ";A$:A$)=0VP=-1:80:9450 $vx=-13$A$="S"A$="s"P$=".CONSOLE":PF=1:nl=22:9500l$A$="P"A$="p"PF=0::"Are you using the silentype (Y/N)? ";B$:B$="Y"B$="y"P$=".Sshould "h$(x)" be - ";:"";x$:x$=""70:9370+$WIDE=K(RH*3+5):I=1RH:K(3*I)=1T9=1$$TD$<>""9450T$::"Are you using the built in clock (Y/N) ? ";A$:A$="Y"A$="y"TD$=:9450($A$<>"N"A$<>"n"VP=-1: