0 PRINT@4,"HIMEM2 by James Main Kenney 1995":PRINT@83,"HIMEM ="HIMEM:M=HIMEM-FRE(0)+175:PRINT"Can be set"M"- 61104 (MAXRAM)":PRINT"ENTER accepts; other keys scroll:
1 P=242:GOSUB6:IFK=1THEN3ELSEREADF$,H:IFH=0THENRESTORE:GOTO1ELSEIFH=1THEN3ELSEIFH=2THENH=HIMEM:PRINTF$;H;ELSEPRINT"For "F$".CO: CLEAR256,"H;
2 IFASC(INPUT$(1))=13THEN4ELSE1:DATALeave HIMEM =,2,files not ,61104,DOS200,55200,TSLOAD,54600,,1,,0
3 PRINT"CLEAR256,";:K=0:H$=INPUT$(1):IFASC(H$)<48ORASC(H$)>57THEN1ELSEPRINTH$;:LINEINPUTJ$:H=VAL(H$+J$):K=1
4 P=289:GOSUB6:IFH<MTHENBEEP:PRINT"<"M;ELSEIFH>MAXRAMTHENBEEP:PRINT"> 61104 (MAXRAM)";ELSECLEAR256,H:MENU
5 H$=INPUT$(1):GOSUB6:GOTO1
6 PRINT@P,CHR$(27)"K";:RETURN