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