5 REM extRAM menu program
10 IPL:IFMAXRAM=0THENMAXRAM=1
25 CLS:CALL63012'?
30 PRINT:INPUT" >fileName, *, or ENTER";XR$
35 IFXR$=""THENMENU
40 IFXR$="*"THEN200
45 IFINSTR(XR$,".D")ORINSTR(XR$,".d")THEN100
50 CALL63012'+
55 RUN
100 X$="":INPUT" >copy as";X$
105 IFX$=""THENRUN
110 IFX$="1"THENFILES:GOTO100
115 IFX$="0"THENX$="lcd:"
120 OPENX$FOROUTPUTAS1
125 CALL63012'+1
130 RUN
200 PRINT" wait..":XR$="EXTMNU.BA"+CHR$(13)+CHR$(0)
205 XP%=32239:CALL63012']
210 CALL63012'*