home *** CD-ROM | disk | FTP | other *** search
- 10 POKE56,64:CLR:GOTO2015
- 15 Q$=CHR$(34):PRINT"[147]"
- 20 PRINT"ENTER DEVICE #, TO LOAD DISK DIRECTORY."
- 22 PRINT"(ENTER 0 TO EXIT.)"
- 25 PRINT" 8[145]":INPUTD
- 27 IFD-8AND252THENPOKE56,160:END
- 30 POKE186,D
- 31 SYS49822
- 32 IFPEEK(783)AND1THEN300
- 34 PRINT"[147]LOADING DIRECTORY FROM DISK..."
- 40 SYS51183
- 41 N=144-PEEK(156):M=PEEK(156)-PEEK(155):F=1:L=M:IFM>NTHENM=N:F=.
- 42 IFL>N+PEEK(155)THENL=N+PEEK(155)
- 44 PRINT"THIS DISK CONTAINS:"
- 45 PRINT:PRINTPEEK(156)-PEEK(155)-PEEK(2),"VISIBLE ACTIVE FILES."
- 46 PRINT:PRINTPEEK(2),"HIDDEN ACTIVE FILES."
- 47 PRINT:PRINTPEEK(155),"DELETED (SCRATCHED) FILES."
- 48 PRINT"THE MAXIMUM NUMBER OF HIDDEN FILES"
- 49 PRINT"ALLOWED IS:";M;"[157].":IFPEEK(155)=.ORFTHEN56
- 50 PRINT"YOU MAY INCREASE THAT NUMBER TO";L;"BY"
- 51 PRINT"REMOVING THE SCRATCHED FILE ENTRIES."
- 52 PRINT"BUT IF YOU DO, YOU WILL NEVER BE UNABLE"
- 53 PRINT"TO RECOVER THEM. PRESS R TO REMOVE THE"
- 54 PRINT"SCRATCHED FILE ENTRIES. OTHERWISE,"
- 56 PRINT"PRESS RETURN.";
- 57 GETA$:IFA$=CHR$(13)THENF=.:N=N-PEEK(2):GOTO60
- 58 IFA$=CHR$(82)THENF=1:N=N-PEEK(2)+PEEK(155):GOTO60
- 59 GOTO57
- 60 POKE2,N
- 61 SYS51204
- 63 PRINT"SELECT FILE BY MOVING POINTER WITH"
- 65 PRINT"CURSOR UP/DOWN. ALL ENTRIES ARE"
- 70 PRINT"VISIBLE EXCEPT THOSE FOLLOWED BY AN ";Q$;"H";Q$;".";
- 75 PRINT"PRESS T TO TOGGLE BETWEEN VISIBLE AND"
- 77 PRINT"HIDDEN. WHEN FINISHED, PRESS RETURN."
- 80 PRINT"NOTE: IF YOU WANT TO SCRATCH A HIDDEN"
- 82 PRINT"FILE, BE SURE TO MAKE IT VISIBLE FIRST."
- 85 PRINT"PRESS RETURN WHEN READY."
- 90 PRINT"PRESS X TO EXIT.";
- 100 GETA$:IFA$=CHR$(13)THEN150
- 130 IFA$="X"THENPOKE56,160:END
- 140 GOTO100
- 150 GOSUB380:GOTO600
- 300 PRINT"[147]?DEVICE";D;"NOT PRESENT":CLR:GOTO20
- 380 PRINT"[147] CURSOR U/D MOVES POINTER."
- 385 PRINT" PRESS T TO TOGGLE HIDDEN/VISIBLE."
- 390 PRINT" PRESS RETURN WHEN FINISHED."
- 397 PRINT"****************************************"
- 400 RETURN
- 600 SYS51213
- 680 IFPEEK(783)AND1THEN750
- 683 SYS50709
- 685 PRINT"FILE CANNOT BE HIDDEN. THE MAXIMUM"
- 687 PRINT"NUMBER HAS ALREADY BEEN REACHED."
- 688 PRINT"PRESS RETURN."
- 690 GETA$:IFA$=CHR$(13)THEN700
- 695 GOTO690
- 700 GOSUB380:SYS51250:GOTO680
- 750 SYS50709
- 755 PRINT"PRESS R TO RETURN TO SELECT MODE."
- 760 PRINT"PRESS S TO SAVE DIRECTORY TO DISK."
- 765 PRINT"PRESS RETURN TO START OVER."
- 770 GETA$:IFA$=CHR$(13)THEN10
- 775 IFA$="S"THEN790
- 780 IFA$="R"THEN785
- 782 GOTO770
- 785 GOSUB380:SYS51250:GOTO680
- 790 POKE2,F
- 794 PRINT"[147]SAVING DIRECTORY TO DISK"
- 795 SYS51233
- 799 GOTO10
- 2015 PRINT"[147][142]ONE MOMENT PLEASE..."
- 2020 P=PEEK(45)+256*PEEK(46)-1
- 2025 IFPEEK(P)THENP=P-1:GOTO2025
- 2030 FORI=.TO22:READY:POKE53000+I,Y:NEXT
- 2035 POKE53,56:POKE54,200:POKE251,199:POKE252,247
- 2040 POKE254,P/256:POKE253,PAND255:SYS53000
- 2045 POKE2063,48:GOTO10
- 2050 DATA160,0,177,253,145,53,152,208,4
- 2055 DATA198,54,198,254,136,230,251
- 2060 DATA208,240,230,252,208,236,96
-