home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
LIST.DIR.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
508b
|
11 lines
10 ME$ = "LIBRARY":RM$ = "/RAMAEPC/"
20 IF PEEK(104) < >8 THEN POKE 104,8: POKE 2048,0: PRINT CHR$(4)"-"RM$;ME$
100 PRINT CHR$(4)"-"RM$"DIR.OBJ"
110 BAS = PEEK(14 *16 +13) + PEEK(14 *16 +14) *256
120 PTR = BAS +2
130 F$ = ""
140 IF PEEK(PTR) < >160 THEN F$ = F$ + CHR$( PEEK(PTR) -128):PTR = PTR +1: GOTO 140
150 PRINT F$
160 FT$ = CHR$( PEEK(BAS +17) -128) + CHR$( PEEK(BAS +18) -128) + CHR$( PEEK(BAS +19) -128)
170 PRINT FT$
200 IF FT$ = "TXT" THEN HOME : PRINT CHR$(4)"SHOWTXT "F$: RUN