MY PROGRAMS Librarian OZ PROGRAM The Wonderful Librarian of OZ BIN_PROG_1 PFILE:B9YIHANI.BAS    = E = E =   30BB$(8)*120:0TB$(8)*120:0CB$(100)*120:0CL(100) '0PS$(1)*120:0Y(8):PH$="E:Z":DQ$=34  OC=0:RR=0 (*BG:' 2%PC=0:PB=0:PT=0:TT=1:SU=0:PG=1:Y(0)=1 < U+*GL F!PH$Was#2 P a#2,TB$(0) Z PT=TB$(0) _X=1 d WI=1RPT n a#2,TB$(I) sVTB$(I)<>""TY(X)=I:X=X+1 x[I } Y(0)=X-1 "#2 U+*GL !PH$+"#"Was#2 a#2,TT,TC,PG "#2 SU=1 b1*GC:Y SU=0:RR=1:+*ST *GLb,*WC:Y VPT=0T+*GT Q85,2:`"1. Go to Library" *GTQ85,3:`"2. Get New Book" DVPT>0TAT=1:i(92,20)-(152,30),X,BF:vAT=2:i(92,30)-(152,40),X,BF BT=1 *IAY G$=(1):GG=G$ QV(GG=4GG=6)AT=2PT>0Ti(92,20)-(152,30),X,BF:AT=1:i(92,30)-(152,40),X,BF "KV(GG=5GG=7)AT=1Ti(92,20)-(152,30),X,BF:AT=2:i(92,30)-(152,40),X,BF ,)V(GG=49(GG=10AT=1))PT>0T+*GN 6@V(GG=50(GG=10AT=2))PT<7TAT=2:PT=PT+1:PC=0:PB=1:+*OC @VGG=9T+*H1 TVGG=27T+ *EX ^ +Y*IA h*GNP r WI=1RY(0) |9Q0,I-1:`I+" "+TB$(Y(I)):i(0,(I-1)*10)-(4,I*10),X,BF [I  X=1:BT=Y(X) i(6,(X-1)*10)-(230,X*10),X,BF *ITY G$=(1):TT=G$:GG=G$ $VTT>0TT<=Y(0)TTT=Y(TT):+*CH :V(GG=5GG=7)Ti(6,(X-1)*10)-(230,X*10),X,BF:X=X+1:GG=0 :V(GG=4GG=6)Ti(6,(X-1)*10)-(230,X*10),X,BF:X=X-1:GG=0 VGG=27TP:+m*BG VGG=10TTT=BT:+1*GC VGG=12TTT=BT:+*DT VGG=9T+N*H2 VGG>0T+H*IT VX<1TX=Y(0) VX>Y(0)TX=1 BT=Y(X) i(6,(X-1)*10)-(230,X*10),X,BF  +H*IT  *CHXAA=0  WI=1RY(0) VTT=Y(I)TI=Y(0):AA=TT [I VAA=0T+H*IT *GCP & NN$=PH$+TT + U+ *EX 0!NN$Was#2 : NN$=NN$+"%" D!NN$Was#4 N a#2,CB$(0) X PC=CB$(0) b WI=1RPC l a#2,CB$(I) v a#4,CL(I) [I "#2 "#4  WI=IR80  CB$(I)="" CL(I)=0 [I  VSU=1Te *CPY VRR=1T)VGG>48GG<56TTC=LF+TC-1:PG=1:+*ST HVGG=27TP:+*GN MVGG=9T+N*H2 RVGG>0T+*TN \VPE>MPTPE=1 fVPE<1TPE=MP p b*NC:Y z +*TN *OCVOC=1T+*RT !"COM:C,&HFF"s#1 OC=1 *RTP:Q100,1:`"Loading:" RR=0:PE=1:PC=0:PB=0  b*VN:Y VX=0TTP=PT:vTP=X VTP4TFT$=(PS$(0),3):I=GG-4:FL$=(PS$(0),I) B*VFT$=""TP=1:F=FL$:RR=RR+3:+ %*CM L-VPS$(0)="

"TPB=PB+1:P=3:RR=RR+3:+ *SB V9VFT$=""TP=2:CL(PC+1)=FL$:RR=RR+3:PB=PB+1:+ *SB `#VPS$(0)=""T`#1,"**":+ *WR j'VP=1TTB$(TP)=DQ$+PS$(0)+DQ$:+ *NP t/VP=2TPC=PC+1:CB$(PC)=DQ$+PS$(0)+DQ$:P=0:PB=0 ~ VP=3TP=0 BB$(PE)=DQ$+PS$(0)+DQ$:PE=PE+1  RR=RR+GG+3  + *AC *WR!PH$Wqs#2  `#2,PT  WI=1RPT  `#2,TB$(I) [I "#2  NN$=PH$+TP !NN$Wqs#2  `#2,PC  WI=1RPC  `#2,CB$(I)  CB$(I)="" [I ("#2 2 NN$=NN$+"%" <!NN$Wqs#2 F WI=1RPC P `#2,CL(I) Z[I d"#2 n +m*BG x*SB:' VPC=0T+ *AC  NA$=TP NB$=PC:AA=NB$ VAA=1TNB$="0"+NB$ NC$=PB:AA=NC$ VAA=1TNC$="00"+NC$ VAA=2TNC$="0"+NC$ NN$=PH$+NA$+NB$+NC$ !NN$Wqs#3  WI=1RPE-1  `#3,BB$(I) [I "#3 PE=1  b*DP:Y  *AC`#1,"*" " + 3*RC ,*CM:' 6I= @ I=I*62-10240 JFVF>ITP:*20:Q60,3:`"Sorry, You have not enough memory!":+ *EX T FZ=F/100 ^ + *AC h*NPQ2,2:`PS$(0) ri(64,36)-(174,54),B |PS=69  + *AC *EXVOC=1T"#1 \  *STY  MP=CL(TC)/7  WI=1R999 *VMP<=ITMP=I:I=999 4[I 9VPG=0TPG=MP > NA$=TT HNB$=TC:AA=NB$ RVAA=1TNB$="0"+NB$ \ VSU=1Te *SMP VTC>PCTC<1T+$*CP NC$=PG:AA=NC$ VAA=1TNC$="00"+NC$ VAA=2TNC$="0"+NC$ NN$=PH$+NA$+NB$+NC$ !NN$Was#2 !VPG0T+*IP jVPG>MPTTC=TC+1:PG=1:+*ST tVPG<1TTC=TC-1:PG=0:+*ST ~ +*SM *NCP LF=PE*7-6:LL=PE*7 VLL>PCTLL=PC WX=LFRLL PS=(6-(PE*7-X)) >Q1,PS:`(PS+1)+" "+CB$(X):i(0,(PS)*10)-(5,(PS+1)*10),X,BF [X e *DPDOWNLOADPROGRESS  RZ=RR/FZ  WI=1R100 VRZ10T+*DQ (SU=1:b1*GC:Y -$Q60,3:`"Removing... Please Wait." 2 WTC=1RPC < b*ST:Y F WPG=1RMP PNC$=PG:AA=NC$ ZVAA=1TNC$="00"+NC$ dVAA=2TNC$="0"+NC$ nNN$=PH$+NA$+NB$+NC$ 0TGG=X [I X=GG e u1Z