home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / extmnu.100 < prev    next >
Text File  |  2006-10-19  |  492b  |  20 lines
  1. 5 REM extRAM menu program
  2. 10 IPL:IFMAXRAM=0THENMAXRAM=1
  3. 25 CLS:CALL63012'?
  4. 30 PRINT:INPUT" >fileName, *, or ENTER";XR$
  5. 35 IFXR$=""THENMENU
  6. 40 IFXR$="*"THEN200
  7. 45 IFINSTR(XR$,".D")ORINSTR(XR$,".d")THEN100
  8. 50 CALL63012'+
  9. 55 RUN
  10. 100 X$="":INPUT" >copy as";X$
  11. 105 IFX$=""THENRUN
  12. 110 IFX$="1"THENFILES:GOTO100
  13. 115 IFX$="0"THENX$="lcd:"
  14. 120 OPENX$FOROUTPUTAS1
  15. 125 CALL63012'+1
  16. 130 RUN
  17. 200 PRINT" wait..":XR$="EXTMNU.BA"+CHR$(13)+CHR$(0)
  18. 205 XP%=32239:CALL63012']
  19. 210 CALL63012'*
  20.