💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › MiscInfo › Misc › lbr… captured on 2023-01-29 at 10:02:26.
-=-=-=-=-=-=-
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 >