0 REM:POWR-DOS Menu
1 MAXFILES=1:CLEAR512:LFILESV:XX=64206:POKEXX,2:POKEXX+1,0:GOTO23
2 DEFSTRA-H:DEFINTI-W:DIME(40),J(20),H(9):FORI=0TO9:READH(I):NEXT:AQ="QFWFQ .DO":E=CHR$(27):GC=CHR$(13):FORI=27TO32:G=G+CHR$(I):NEXT:G=G+GC:D=CHR$(34):KB=-86:KEYOFF:ONKEYGOSUB43,31,48,49,50,30,47,51:RETURN:DATAAll,BA,CO,DO,PDD,RAM,Load,Save,"0:","RAM:"
3 S=0:R=-1
4 IFKPTHENKP=0ELSERETURN
5 PRINT@240,SPACE$(40);:PRINT@240,"";:RETURN
6 A=A+GC:B="O¯G2æöå*¥ùÃëd":Y=VARPTR(B):X=VARPTR(A):CALLPEEK(Y+1)+256*PEEK(Y+2),PEEK(X),PEEK(X+1)+256*PEEK(X+2):RETURN
7 PRINT@72+8*P," "LEFT$(E(J(P)),6)E"q":GOTO4
8 U=PEEK(XX):T=PEEK(XX+1):O=0:S=0:GK="Press Key":ONERRORGOTO52:IFU=1THENLFILESTOAQ:ZL=1280*DSKI$("")ELSELFILESRTOAQ:ZL=FRE(0)
9 ONERRORGOTO53:OPENAQFORINPUTAS1:NF=0:GOSUB5
10 IFNOTEOF(1)THENINPUT#1,A:IFLEN(A)<>17THEN10ELSEIFLEFT$(A,9)=AQTHEN10ELSENF=NF+1:E(NF)=LEFT$(A,9):PRINT".";:GOTO10
11 CLOSE:KILLAQ
12 TN=T-1-4*(T=0)
14 CLS:PRINT"Src:"H(3+U)TAB(13)"Free:"ZLTAB(27)"Type:":N=0:I=1
15 IFNF<IORN=20THEN17ELSEIF(I>O)AND(T=0)OR(MID$(E(I),8,1)=LEFT$(H(T),1))THENN=N+1:J(N)=I
16 I=I+1:GOTO15
17 PRINT@280,E"p";:IFN=0THENPRINTSPACE$(26);ELSEPRINT" Sel "H(5+U)" Kill Len. Page  ";
18 PRINTH(6-U)"  "H(T)TAB(35)"Menu";
19 M=1:IFN=0THENKEY(6)ON:KEY(7)ON:KEY(8)ON:RETURN
20 C=STRING$(20,"q")
21 FORP=1TON:PRINTEMID$(C,P,1);:GOSUB7:NEXT:CALL26041:IFNF<21ORT>0THENPRINT@300,E"p    "E"q";
22 P=M:PRINTE"p";:GOSUB7:PRINT@34,RIGHT$(E(J(M)),2);:Q=0:RETURN
23 XX=64206:GOSUB2:GOSUB8
25 PRINT@40,E"q"DATE$" "TIME$:IFN=0THEN25ELSEKEYON:Q=INSTR(G,INKEY$):P=M
26 IFQ=2ORQ=6THENM=M+1ELSEIFQ=3THENM=M-1ELSEIFQ=5THENM=M+5ELSEIFQ=4THENM=M-5ELSEIFQ=7THENF=H(7+U)+E(J(M)):B=RIGHT$(E(J(M)),2):IFB="BA"THENCLS:RUNFELSEIFB="CO"THEN57ELSEIFB="DO"THENGOSUB63
27 IFM<=0THENM=NELSEIFM>NTHENM=1
28 IFQ>1ANDP<>MTHENPRINTEMID$(C,P,1);:GOSUB7:S=0:GOSUB22
29 GOTO25
30 KEYSTOP:POKEXX,UMOD2+1:GOTO8
31 C1=H(U+5)+"m"+D+":":C3="Overwrite ":IFU=1THENC2=D+",F"ELSEC2=D
32 KEYSTOP:GOSUB3:KE=0:CALL8802:A="Run23":GOSUB6:V=0:IFINSTR(C,"p")THENGOSUB5:PRINTC3"ALL (y/n/a)?";:GOSUB56:R=I:GOSUB5:IFR=0ANDC1=""THENRETURN
34 V=V+1:IFV>NTHEN41ELSEIFMID$(C,V,1)="p"ORV=MTHENF=E(J(V))ELSE34
35 GOSUB5:IFC1=""THENZ=1:FP=H(7+U)ELSEFP=H(10-U):Z=DSKI$(FP+F):IFZ=0THEN38ELSEIFR=0THEN34
36 PRINTC3;FP;F;:IFR=1THEN38ELSEPRINT" (Y/N)?";
37 GOSUB56:IFI<0THEN37ELSEIFI=0THEN34
38 IFC1<>""THENA=C1+F+C2:GOSUB6
39 IFZ<>0THENA="Kill"+D+FP+F:GOSUB6
40 KE=1:GOTO34
41 IFKE=0THEN5ELSECALL26041:POKEKB,1:POKEKB+1,11:POKEKB+2,255:CLS:END
43 KEYSTOP:GOSUB5:S=S+1:ONSGOTO44,46,45
44 MID$(C,M)="p":RETURN
45 S=1:GOTO20
46 C=STRING$(20,"p"):GOTO21
47 KEYSTOP:T=TN:POKEXX+1,T:S=0:GOTO12
48 C1="":C3="Kill ":GOTO32
49 S=0:GOSUB5:F=H(7+U)+E(J(M)):KP=1:V=M:PRINTFTAB(20)DSKI$(F):RETURN
50 IFNF<21ORT>0THENRETURNELSEKEYSTOP:GOSUB3:O=(O+20)MOD40:GOTO14
51 LFILESMENU
52 IFERR<>57THENCLOSE:KILLAQ
53 BEEP:GOSUB5:IFERR=7THENA="OM"ELSEIFERR=18THENA="IO"ELSEIFERR>58THENA=MID$("NRDNCMDAWPDFNDHTAE",ERR*2-117,2)ELSEA="#"+STR$(ERR)
54 PRINTA" Error; "GK;
55 CALL26041:B=INPUT$(1):CLS:RUN
56 I=INT((INSTR("aAnNyY",INPUT$(1))-3)/2):IFI=-2THEN56ELSERETURN
57 ONERRORGOTO58:CLS:RUNMF
58 ONERRORGOTO53:RESUME59
59 X=PEEK(XX)+256*PEEK(XX+1):IFU=1THEN61
60 CLEAR512,X:GOSUB2:GOSUB62:RUNME
61 CLEAR512,X:GOSUB2:GOSUB62:RUNM":"+E
62 X=VARPTR(E):POKEX,6:POKEX+1,147:POKEX+2,252:RETURN
63 OPENFFORINPUTAS1:CLS
64 IFEOF(1)THEN67ELSEPRINTINPUT$(1,1);:IFPEEK(63033)<8THEN64ELSEPRINT@280,"More? ";:GOSUB56:IFI>0THENCLS:GOTO64
67 CALL26041:CLOSE:PRINT@280,GK;:B=INPUT$(1):GOTO14
                                                             