10 REM DIRECTORY MODULE BY ALEX PIGNATO AND RON FETZER OF THE OL' HACKERS A.U.G.  8/99 VERSION 2.2›12 CLR :DIM D$(17),Y$(3),XYZ$(1),VE$(6),SEC$(4):DST=0:DSK=0:XYZ$=""›14 ? CHR$(125):DSK=0:POKE 710,0:POSITION 2,12:? "SEE DIRECTORY ON WHAT DRIVE(1,2,8)";:INPUT DSK›16 IF DSK=1 OR DSK=2 OR DSK=8 THEN 22›18 GOTO 14›20 IF Y$="M" THEN DSK=8›22 TRAP 40000:IF DSK=8 THEN 28›24 IF DST=1 THEN ? CHR$(125):XYZ$="":POSITION 2,12:? "Is the new disk in the drive(YES/NO)";:INPUT XYZ$›26 IF XYZ$="N" THEN DST=1:GOTO 24›28 D$="":Y$="":POKE 82,2:VE=PEEK(43234):POKE 710,0›30 FM=FRE(0)›32 OF=PEEK(1801)›34 IF VE=0 THEN VE$="NO BAS"›36 IF VE=162 THEN VE$="A"›38 IF VE=96 THEN VE$="B"›40 IF VE=234 THEN VE$="C"›42 IF VE=255 THEN VE$="TURBO"›44 US=0:FREI=0:FL=0:PRINT CHR$(125);"ª ÄÉÒÅÃÔÏÒÙ­ÃÈÅÃËÅÒ  ÄÉÓË ÃÏÎÔÅÎÔÓ ª"›46 IF DSK=1 THEN CLOSE #1:OPEN #1,6,0,"D1:*.*":? ›48 TRAP 70:IF DSK=2 THEN CLOSE #1:OPEN #1,6,0,"D2:*.*":? ›50 IF DSK=8 THEN CLOSE #1:OPEN #1,6,0,"D8:*.*":? ›52 POKE 752,1:? "  ¾¾ÄÉÓË ÆÉÌÅÓ¼¼  ¾¾ÄÉÓË ÄÁÔÁ¼¼ "›54 ? "     DRIVE #";DSK:? ›56 INPUT #1;D$:? D$›58 IF D$(2,2)=" " THEN US=US+VAL(D$(15)):FL=FL+1:GOTO 56›60 CLOSE #1›62 FREI=VAL(D$(1,3))›64 ? :POSITION 20,4:PRINT "Æéìåó ïî Äéóë ";FL:POSITION 20,5:? "Óåãôïòó õóåäº ";US›66 IF FL=0 OR D$(1,4)="999+" THEN 72›68 GOTO 72›70 ? CHR$(125):POSITION 8,10:? "DRIVE D";DSK;"  IS NOT ACTIVE":FOR JJ=1 TO 400:NEXT JJ:TRAP 40000:RUN ›72 POSITION 20,6:PRINT "Æòåå Óåãôïòóº ";FREI:POSITION 20,7:? "Ôïôáì Óåãôïòó ";US+FREI›74 IF DSK=8 THEN SEC$="RAM":GOTO 82›76 IF US+FREI=707 THEN SEC$="SNGL"›78 IF US+FREI>707 THEN SEC$="1050"›80 IF US+FREI<707 THEN POSITION 2,22:? "ÓÅÃÔÏÒ ÔÏÔÁÌ ÅÒÒÏÒ"›82 POSITION 20,8:? "Äéóë Äåîóéôùº ";SEC$›84 POSITION 20,9:? "Íáø £ ïðî æìó ";OF›86 POSITION 20,10:? "Íáø Æòåå Íåíº ";FM›88 POSITION 20,11:? "ÂÁÓÉÃ Òåö®    ";VE$›90 POSITION 20,14:? "¾¾ÄÉÓË ÁÃÔÉÏÎ¼¼"›92 FOR A=1 TO 9›94 POSITION 20,16:? "Another Dir.   [A]"›96 POSITION 20,16:? "Áîïôèåò Äéò®   [A]"›98 POSITION 20,17:? "Go to BASIC    [B]"›100 POSITION 20,17:? "Çï ôï ÂÁÓÉÃ    [B]"›102 POSITION 20,18:? "Go to DOS      [D]"›104 POSITION 20,18:? "Çï ôï ÄÏÓ      [D]"›106 POSITION 20,19:? "Load a Disk    [L]"›108 POSITION 20,19:? "Ìïáä á Äéóë    [L]"›110 POSITION 20,20:? "DEL MEM SV D8  [M]"›112 POSITION 20,20:? "Äåì ÍÅÍ ÓÖ Ä¸  [M]"›114 POSITION 20,21:? "Return to Prg  [R]"›116 POSITION 20,21:? "Òåôõòî ôï Ðòç  [R]"›118 NEXT A›120 POSITION 20,22:? "Select a letter";›122 POKE 752,0:INPUT Y$›124 IF Y$="A" OR Y$="B" OR Y$="D" OR Y$="L" OR Y$="R" OR Y$="M" THEN GOTO 128›126 GOTO 120›128 ? CHR$(125):GRAPHICS 0›130 IF Y$="R" THEN CLR :GRAPHICS 0:GOTO 200›132 IF Y$="A" THEN DST=1:GOTO 14›134 IF Y$="B" THEN 146›136 IF Y$="D" THEN 148›138 TRAP 20:IF Y$="M" THEN XIO 33,#1,0,0,"D8:MEM.SAV":GOTO 20›140 IF Y$="L" THEN ? CHR$(125):XYZ$="":POSITION 2,12:? "Did you put a new disk in drive #1";:INPUT XYZ$›142 IF XYZ$(1,1)="Y" THEN GOTO 150›144 IF XYZ$(1,1)="N" THEN GOTO 140›146 ? CHR$(125):POSITION 1,1:? "ÂÁÓÉÃ ÉÓ";:END ›148 DOS ›150 XZ=USR(58487):? XZ›