0 PRINT@4,"HIMEM1 by James Main Kenney 1995":PRINT@83,"HIMEM ="HIMEM:M=HIMEM-FRE(0)+175:PRINT"Can be set"M"- 62960 (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 ,62960,SCRIPY,62640,PRINT,59900,XMDPW5,58866,DOS100,57100,TSLOAD,56400,,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:IFHMAXRAMTHENBEEP:PRINT"> 62960 (MAXRAM)";ELSECLEAR256,H:MENU 5 H$=INPUT$(1):GOSUB6:GOTO1:REMSMALL,62861,CORTN1,62770,SORT,62757,TINY,62200,B3OF9,61788,PLESY,61788,UPC,61788,CDABR,61788,I2OF5,61788,UPCEAN,61752 6 PRINT@P,CHR$(27)"K";:RETURN:REMVIEW (SMALL),61600,WAND,61522,DSKMGR,60700,CORTN2,58073,CDABRD,56924,I2OF5D,56924,UPCEAD,56888,WANDD,56658,XTEL,53930