home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
sethim.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
431b
|
9 lines
0 'Set Himem -- based on SETRAM.BA on TPDD master disk, modified by Chia-Chi Chao
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT:PRINT"High Memory:":PRINT" D)skmgr, F)loppy, or C)lear ?"
3 K$=INKEY$:IFK$=""THEN3
4 K$=CHR$(ASC(LEFT$(K$,1))AND223):A=256:IFK$="C"THENCLEARA,MAXRAM:MENU
5 IFK$="F"THENCLEARA,59400:MENU
6 IFK$="D"THENCLEARA,60700:MENU
7 BEEP:GOTO3