10programname$="MANAGER" 11VDU6 20MODE7 30REM revised 23 May 1995 50ONERRORGOTO1580 55IFE%<48ORE%>51THENE%=48 60A=E%:PROCdrive 80base%=31908 90VDU14 100*FX4,1 110CLS:*. 115IFP%=0THENP%=1 120nfile%=0 130IFbase%?(nfile%*20)<>32THENnfile%=n file%+1:GOTO130 140PRINTTAB(0,20)" ENTER 0 1 2 3 to se lect another drive,"'" or initial key to ..." 150PRINT" Lock Unlock Print Copy View (re)Name"'" Move Title Info. Move Run Format "'" Kompact Directory Libary."; 160VDU23,1,0;0;0;0; 167F$="":M=base%+20*(P%-1):FORi%=0TO6: F$=F$+CHR$M?i%:NEXT 168IFASC(F$)=33THENP%=P%+1:GOTO167 170PRINTTAB(1,4+P%/2); 180IFP% MOD 2=0 VDU11,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9 190y=VPOS:x=POS:PRINT" > ";:VDU9,9,9,9 ,9,9,9,9,9,9,9,9,9,9,9,9,9,:PRINT" "; 210PRINTTAB(23,0)" "+F$; 220SOUND1,-10,255,2:SOUND2,-10,200-P%* 4,2:SOUND3,-10,216-P%*4,2 230A=GET:IFA=33THENCHAIN":0.CONTROL" 240IFA>135ANDA<140GOTO510 250IFA>47ANDA<52PROCdrive:GOTO110 260IFA=67ORA=99THEN790:REMcopy 270IFA=70ORA=102THEN700:REMformat 280IFA=82ORA=114THENCHAINF$:REMrun 290IFA=68ORA=100THEN910:REMdelete 300IFA=86ORA=118THEN1150:REMview 310IFA=75ORA=107THEN750:REMKompact 320IFA=80ORA=112THEN1150:REMprint 330IFA=78ORA=110THEN1460:REMchange nam e 340IFA=73ORA=105THEN1520:REMinformatio n 350IFA=77ORA=109THEN840:REMmove 360IFA=84ORA=116THEN970:REMtitle 370IFA=76ORA=108THEN1070:REMlock 380IFA=85ORA=117THEN1120:REMunlock 390IFA=36ORA=52THEN1630:REMdirectory 400VDU3 410VDU7:GOTO230 420 430DEFPROCwipe(line):IFline=24THENPRIN TTAB(0,24)STRING$(37," ");:ENDPROC 440PRINTTAB(0,line);STRING$(40," ");:E NDPROC 450ENDPROC 460 470DEFPROCclear 480FOR W=20TO24:PROCwipe(W):NEXT:ENDPR OC 490 500REMjump 510PRINTTAB(x,y)" "; 520IFA=138P%=P%+2 530IFA=139P%=P%-2 540IFA=137P%=P%+1 550IFA=136P%=P%-1 560IFP%<1THENP%=nfile% 570IFP%>nfile%THENP%=1 580IFA=139THENM=M-20:P=P+4 590GOTO140 600 610DEFPROCdrive 615IFE%<>A THENP%=1 620IFA=48THEN*DRIVE0 630IFA=49THEN*DRIVE1 640IFA=50THEN*DRIVE2 650IFA=51THEN*DRIVE3 660E%=A 670ENDPROC 680 690REMformat 700CLS:PRINTCHR$141" FORMATTER"'CHR$14 1" FORMATTER"' 710VDU15:E%=48:*DR.0 720*FORM80 730 740REMKompact 750PROCclear:PRINTTAB(0,21)" Compactin g drive "+CHR$E%''" Are you sure?":G=GET :IFG=89ORG=121GOTO760 755GOTO230 760VDU15:J$="K.0*COMPACT|M|M Hit RETUR N to continue.|MCHAIN"":0.MANAGER""":CLS :GOTO1790 780 790REMcopy 800PROCclear:PRINTTAB(0,21)" COPY ";F$ ;" to drive ... ?";:D$=GET$:IFINSTR("123 0",D$)=0VDU7:GOTO800 810PROCclear:PRINTTAB(0,21);:J$="K.0*C OPY "+CHR$E%+" "+D$+" "+F$+"|MCHAIN"":0. $.MANAGER""|M" 820GOTO1790 830 840REMmove 850PROCclear:PRINTTAB(0,21)" Move "+F$ +" to drive ... ?":D$=GET$:IFINSTR("1230 ",D$)=0VDU7:GOTO850 852J$="K.0*COPY "+CHR$(E%)+" "+D$+" "+ F$+"|M*DELETE "+F$+"|MCHAIN"":0.$.MANAGE R""|M" 853GOTO1790 900 910REMdelete 920VDU7:PROCclear:PRINTTAB(0,21)" DELE TE ";F$;" Are you sure ?";:A=GET:IFA=89O RA=121THEN940 930GOTO110 940OSCLI("DELETE "+F$):P%=P%-1:GOTO110 950 960REMtitle 970I=0:T$="" 980PROCclear 990*FX4,0 1000VDU23,1,1;0;0;0; 1010C$=CHR$(?(31744+I)):IFC$=" "THEN103 0 1020T$=T$+C$:I=I+1:GOTO1010 1030IFT$<>""PRINTTAB(0,21)" The present title is "+T$ 1040VDU7:PRINTTAB(0,23);:INPUT" ENTER t he new title... "T$:IFT$=""THENT$="." 1050OSCLI("TITLE "+T$):GOTO100 1060 1070REMlock 1080OSCLI("ACCESS "+F$+" L"):PRINTTAB(0 ,0);:*. 1090GOTO140 1100 1110REMunlock 1120OSCLI("ACCESS "+F$):PRINTTAB(0,0);: *. 1130GOTO140 1140 1150REMview 1160PROCclear:PRINTTAB(0,21);:OSCLI("IN FO "+F$):G$="":FORI=0TO5:G$=G$+CHR$(?(32 598+I)):NEXTI:IFG$="000000"ORG$="FFFFFF" THEN1190 1170VDU7:PROCwipe(20):PRINTTAB(0,21)" " +F$;" is not a printable file. ":GO TO230 1180 1190CLS:VDU15:z%=0:IFA=80ORA=112THENPRO Ccheck`printer 1200CLOSE#0:ch=OPENIN(F$) 1210GOSUB1350:REMcheck keyboard 1220pointer%=PTR#ch:a=BGET#ch:IFa=0GOTO 1300 1230IFa>127THENa=a-128 1240IFa=13THENVDU10,13 1250IFa<32THENa=32 1260PRINTCHR$(a); 1270IFa=&40ORa=&FFGOTO1340 1280z%=z%+1:IFz%=105THENGOSUB1350:z%=0 1290GOTO1220: :REMstring 1300PTR#ch=pointer%:INPUT#ch,A$:IFA=118 THENPRINTLEFT$(A$,39):GOTO1210 1310IFA=112THENPRINTLEFT$(A$,76):GOTO12 10 1320IFA=112THENPRINTA$:GOTO1210 1330PRINT';A$:GOTO1210: :REMvalue 1340PTR#ch=pointer%:INPUT#ch,A%:PRINT" ";A%:GOTO1210: :REM check keyboard 1350K=INKEY(0):IFK=32THEN1390 1360IFK=13THEN1610 1370*FX21,0 1380RETURN:REM hold display 1390v%=VPOS:h%=POS:PRINT:PRINTTAB(0,24) " HIT any key to continue.";:*FX21,0 1400K=GET:IFK=13THEN1610 1410PRINTTAB(0,24)" ":IFv%=24THENv%=23 1420PRINTTAB(h%,v%-1);:RETURN: : 1430DEFPROCcheck`printer:PRINTTAB(8,10) "CHECK PRINTER IS READY"'" AND HIT ANY KEY":VDU7:G=GET:IFG=33ORG=13THE N1610 1440CLS:VDU2:ENDPROC: 1450 1460REMname 1470*FX4,0 1480PROCclear:PRINTTAB(0,21)" Rename "; F$;'" as ... ";:INPUT""N$:IFN$=""ORN$="! "THEN100 1490IFLEN(N$)>7THENN$=LEFT$(N$,7) 1500OSCLI("RENAME "+F$+" "+N$):GOTO100 1510 1520REMinformation 1530*FX21,0 1540IFA=73THENCLS:PRINT" INFORMATION fo r drive ";E%;':OSCLI("INFO *.*"):PRINT'" Hit any key to continue ...";:A=GET:GOT O110 1550PROCclear:PRINTTAB(0,22)" ";:OSCLI( "INFO "+F$):GOTO230 1560 1570REMerrortrap 1580IFERR=223GOTO1610 1590*FX4,0 1600PROCclear:PRINTTAB(0,20)"ERROR ";ER R;" at line ";ERL:REPORT:PRINT:VDU7:CLOS E#0:VDU3:END 1610PRINT''" END OF FILE"'" HIT any key .":G=GET:IFG=33THENCHAIN"CONTROL"ELSECLO SE#0:VDU3:GOTO90 1620 1630REMdirectory 1640PROCclear:PRINTTAB(0,21)" ENTER the new directory... ";:G$=GET$:PRINTG$ 1650OSCLI("DIR "+G$) 1660P%=1:GOTO110 1670 1680REM B32 status 1690PROCclear1 1700PRINTTAB(0,4); 1710*XSTATUS 1720PRINT 1730*XSTATUS S 1740PRINTTAB(0,20)"RETURN for main disp lay."'"Buffer Help Aries Load ROM" 1750G=GET 1760IFG=13GOTO120 1770IFG=72ORG=104THENPROCclear1:PRINTTA B(0,3);:OSCLI("*HELP ARIES"):GOTO1740 1775 1780REMact 1790REM*FX201,1 1810$&900=J$:X%=0:Y%=&9:CALL&FFF7 1820*FX138,0,128 1830END