0 'SETMEM.100 Richard Hanson Dec/87 Written for my friend Mile Cucek 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:CLEAR0,MAXRAM:CLEAR500 3 R$=CHR$(27)+"p":N$=CHR$(27)+"q" 4 PRINT@45,R$" Set or Clear high memory "N$ 5 PRINT@125,R$" Number or Enter: "N$" ";:LINEINPUTZ$ 6 Z=VAL(Z$) 7 IFZ=0THENCLS:PRINT@125,R$" High memory has been cleared... "N$:GOTO10 8 CLS:PRINT@125,R$" High memory has been set... "N$ 9 CLEAR256,Z 10 FORX=1TO400:NEXT:MENU