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:? " ®®גחציáהחכדצ¶¶ ®®גחציáגIJקIJ¶¶ "¢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:? "צדבקנפáקנקIJכáדפפנפ"¢82 POSITION 20,8:? "גΘ≤δáגσ∈≤Θ⌠∙´ ";SEC$¢84 POSITION 20,9:? "לβ°áúá∩≡∈áµ∮≤ ";OF¢86 POSITION 20,10:? "לβ°áה≥σσáלσϕ´ ";FM¢88 POSITION 20,11:? "אIJצחבáפσ÷«ááá ";VE$¢90 POSITION 20,14:? "®®גחציáIJבקחנמ¶¶"¢92 FOR A=1 TO 9¢94 POSITION 20,16:? "Another Dir. [A]"¢96 POSITION 20,16:? "IJ∈∩⌠Φσ≥áגΘ≥«á [A]"¢98 POSITION 20,17:? "Go to BASIC [B]"¢100 POSITION 20,17:? "ו∩á⌠∩áאIJצחבáá [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:? "אIJצחבáחצ";:END ¢148 DOS ¢150 XZ=USR(58487):? XZ¢
