home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / LIST.DIR.bas < prev    next >
BASIC Source File  |  2020-08-13  |  508b  |  11 lines

  1. 10 ME$ = "LIBRARY":RM$ = "/RAMAEPC/"
  2. 20  IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"-"RM$;ME$
  3. 100  PRINT  CHR$(4)"-"RM$"DIR.OBJ"
  4. 110 BAS =  PEEK(14 *16 +13) + PEEK(14 *16 +14) *256
  5. 120 PTR = BAS +2
  6. 130 F$ = ""
  7. 140  IF  PEEK(PTR) < >160  THEN F$ = F$ + CHR$( PEEK(PTR) -128):PTR = PTR +1: GOTO 140
  8. 150  PRINT F$
  9. 160 FT$ =  CHR$( PEEK(BAS +17) -128) + CHR$( PEEK(BAS +18) -128) + CHR$( PEEK(BAS +19) -128)
  10. 170  PRINT FT$
  11. 200  IF FT$ = "TXT"  THEN  HOME : PRINT  CHR$(4)"SHOWTXT "F$: RUN