home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
kill.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
675b
|
11 lines
1 'KILL.100 - Reproduced from programming notes by Paul Globman (5/25/87)
2 '
3 'A nice feature of the Tandy 200 is the ability to put the widebar cursor
4 'over a filename on its menu and press a function key to KILL the file and
5 'free the RAM it occupied. The Model 100 doesn't allow this... until now!
6 'Place the widebar cursor over any RAM file on the M100/102 menu and type
7 'KILL.BA + [ENTER] to delete that file.
8 '
10 AD=64929+2*PEEK(65006):AD=PEEK(AD)+256*PEEK(AD+1):FOR I=3 TO 10:F$=F$+CHR$(PEEK(AD+I)):IF I=8 THEN F$=F$+"."
20 NEXT:M$="MENU"+CHR$(13):AD=65450:POKE AD,10:FOR I=1 TO 5:M=ASC(MID$(M$,I,1)):POKE AD+2*I,M:POKE AD+2*I+1,M:NEXT:KILL F$