Copyright 1988 R.W. Hess

0 'BIBLDR.BA 1/88, PERRY/WHEELER/HESS; for use with BIBLIO.BA
2 GOSUB36
4 B=64704
6 CLS:PRINT@90,"Loading: BIBSRT.CO":A=B:C=B+E:D=D+B:S=99:M=99:PRINT@176,;:
8 GOSUB28:IFO=0THENPOKEA,K:A=A+1:GOTO8
10 P=K:GOSUB28:G=P+256*K+B:P=INT(G/256):Q=G-P*256
12 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO8
14 MAXFILES=2:OPEN"END<!>"FOROUTPUTAS1:PRINT#1,"Press F3. Type: END<!>   Press <ENTER>"
15 OPEN"BIBFYL"FOROUTPUTAS2:PRINT#2,"#":PRINT#2,"*":CLOSE
16 K$="MENU"+CHR$(13):GOSUB52:BEEP:SAVEM"BIBSRT",64704,64988,64704
18 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN26
20 IFU>16THENU=U-16:O=1ELSEO=0
22 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN26
24 K=(U-1)*16+V-1:RETURN
26 BEEP:PRINT@205,"Bad character";:END
28 IFM<N*2+5THEN34
30 READY:M=1:GOSUB18:IFK=0THEN14
32 S=S+1:PRINTCHR$(147);:N=K:M=3:GOSUB18:M=5:L=K:GOSUB18:L=K*256+L:R=0
34 M=M+2:GOSUB18:R=R+K:RETURN
36 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=284:D=0:RETURN
38 DATA38EA1ECD3142000000CD224221BEFDCD9157CD4446D7CAA7FD2185F6E52B23CDE80F77FE2ECAE9FCB7C2DBFC11BAFD0604CD6934D13E0ACDAB5ACA
40 DATA38762795FDCDE35A22D9FDAF32D8FD2AD9FDE5CD64FD22DBFDE1EB482ADBFDE5CD64FD22DBFDE178B7CA30FDC5D5E5CD57FDE1D1C1DC3AFDC30FFD
42 DATA381A1F3AD8FDB7C200FDC3C0FCC5E51185F6CD4225D1EB0CCDE82E1185F6C104CD6C34413EFF32D8FDC9EB1ABEC01305C8230DC258FDC906007EFE
44 DATA38911E1AC82304CA7BFDFE0DC266FD7EFE0AC02304C0CD3142D1E106647EE72305C282FDC38CFD21CDFDCD9157C39BFD21D65CCD9157CD627621AA
46 DATA38F013FDCD9157CD2F5FC90000507265737320537061636520426172002E444F002020202020536F7274696E673A20004C6F6E67204C696E652100
48 DATA0500000000000000
50 DATA00
52 FORI=1TOLEN(K$):POKE65449+2*I,ASC(MID$(K$,I)):POKE65450+2*I,0:NEXT:POKE65450,I:RETURN