Re: Thunderclock and UCSD

["Laine Houghton" <hcr5@uswest.net>]

There were plenty of DOS tools out there as well. If you just want to see
what is in the LBR file you can use this on the Apple. It would need a few
small machine language calls added to actually extract the files.



100  HOME : PRINT "Enter full pathname to the LBR file :";: INPUT N$
 110 D$ =  CHR$ (4):NUM = 0:SB = 8192
 120  DIM NAME$(50): DIM FSIZE(50): DIM FINDEX(50)
 130  PRINT D$;"bload ";N$;",a$2000,l32"
 140  PRINT : PRINT : HTAB 40: INVERSE : PRINT "WORKING": NORMAL
 150  PRINT : PRINT : PRINT : PRINT "Use Control 's' to stop output."
 160 A =  PEEK (SB + 15) * 256 +  PEEK (SB + 14)
 170 B = A * 128
 180  PRINT D$;"bload";N$;",a$2000,l";B
 190  FOR X = 47 TO B STEP 32
 200 A = ( PEEK (SB + X) * 256 +  PEEK (SB + X - 1)) * 128
 210  IF A = 0 THEN  NEXT
 220 FSIZE(NUM) = A
 230 A = ( PEEK (SB + X - 2) * 256 +  PEEK (SB + X - 3)) * 128
 240 FINDEX(NUM) = A
 250  FOR LP = 1 TO 11:A =  PEEK (SB + X + LP - 15)
 260  REM *******activate for apple   ******
 270  REM  *** IF A =  < 45 THEN  GOTO 310
 280  REM  *** IF A =  > 91 THEN  GOTO 310
 290  REM *******  removes illegal  chars  ******
 300 NAME$(NUM) = NAME$(NUM) +  CHR$ (A)
 310  NEXT LP
 320 NUM = NUM + 1: NEXT : HOME
 330  FOR X = 0 TO NUM - 1
 340  PRINT "File: ";: PRINT NAME$(X);
 350  HTAB 20: PRINT "Bytes: ";: PRINT FSIZE(X);
 360  HTAB 32: PRINT "Index Byte: ";: PRINT FINDEX(X)
 370  NEXT



"Teodor Angelov" <ta@orion-z.com> wrote in message
news:9tvmek$598ul$1@ID-68729.news.dfncis.de...
> i found a linux tool named "lbrate" which is able to decompress such
> archives.
>
> teodor
>