[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Moving binary files to /RAM
- Subject: Re: Moving binary files to /RAM
- From: email@DELETE_THIS.luddite.no-ip.com (Simon Williams)
- Date: Sun, 30 Jan 2005 01:34:58 GMT
- Newsgroups: comp.sys.apple2
- Organization: Luddite Enterprises
- References: <1gr4l27.10w3ygd1bycnoyN%email@DELETE_THIS.luddite.no-ip.com> <10vngq9175mp5e5@corp.supernews.com> <1gr5fun.1pixfg1vgp896N%email@DELETE_THIS.luddite.no-ip.com> <10vo7oktk9co5c0@corp.supernews.com>
- User-agent: MacSOUP/2.4.6
- Xref: g2news1.google.com comp.sys.apple2:7621
Laine Houghton <laine@intergate.com> wrote:
<snip>
>
> Do you remember this program?
> http://tinyurl.com/6lq6a
Ha! I'd forgotten all about it...
> You could modifiy it to delete /Ram files and load all bin files from /disk
> to /Ram
>
> 210 D$ = CHR$ (4) : DIM KILL$ (50)
> 220 PN$ ="/RAM"
> 280 PRINT D$;"OPEN";PN$;",TDIR"
> 290 PRINT D$;"READ";PN$
> 292 FOR X=1 TO 3
> 295 INPUT DIR$ : REM SKIP HEADER
> 297 NEXT : X=0
> 300 INPUT DIR$
> 320 IF DIR$ = "" GOTO 360 : REM BLANK LINE
> 330 KILL$ (X) = MID$ (DIR$,2, 16)
> 340 X = X + 1
> 350 GOTO 300
> 360 PRINT D$;"CLOSE" : X = X-1
> 370 FOR LOOP =0 TO X
> 380 PRINT D$ ; "DELETE /RAM/"; KILL$(LOOP)
> 390 NEXT : END
<snip>
So... looking at this, I'm seeing that we can open and read a directory
in exactly the same way as a text file. I wish I'd have realised this
several years ago!
-s
--
._____.
|[LD8]! SIMON WILLIAMS :: LUDDITE ENTERPRISES UNLIMITED
| (O) | 68K MACINTOSH SERVER http://luddite.no-ip.com
!__!__! FAILURE RECORDS http://failurerecords.no-ip.com