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