home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / setmem.ba < prev    next >
Text File  |  2006-10-19  |  500b  |  12 lines
  1. 0 'SETMEM.100  Richard Hanson  Dec/87      Written for my friend Mile Cucek
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:CLEAR0,MAXRAM:CLEAR500
  4. 3 R$=CHR$(27)+"p":N$=CHR$(27)+"q"
  5. 4 PRINT@45,R$" Set or Clear high memory "N$
  6. 5 PRINT@125,R$" Number or Enter: "N$" ";:LINEINPUTZ$
  7. 6 Z=VAL(Z$)
  8. 7 IFZ=0THENCLS:PRINT@125,R$" High memory has been cleared... "N$:GOTO10
  9. 8 CLS:PRINT@125,R$" High memory has been set... "N$
  10. 9 CLEAR256,Z
  11. 10 FORX=1TO400:NEXT:MENU
  12.