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