home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / TREE.SFX / tree.exe (.txt) next >
Encoding:
Commodore BASIC  |  1997-08-13  |  1.5 KB  |  67 lines
  1. 10 REM CMD NATIVE TREE V1.3 - SUPERCPU OPTIMIZATION ADDED
  2. 20 REM REV. DATE 6/4/97
  3. 22 U=ABS((PEEK(53433)AND128)=128)
  4. 23 IFU<>0THEN30
  5. 25 POKE53374,0:POKE53366,0:POKE53375,0
  6. 30 NB$="":TB=0:FT=0:SC=0:D=0:V=0:SK=0:PN%=1
  7. 40 SH$="":RH$="":N$="":K$="":EN$="":ET$="":TP$="":MP$=""
  8. 50 PRINT"[147] CMD NATIVE TREE V1.3 [146] BY RANDY HARRIS"
  9. 60 PRINT"DEVICES PRESENT ..."
  10. 70 FOR D=8TO30
  11. 80 OPEN15,D,15:CLOSE15
  12. 90 IFST<>0THEN110
  13. 100 PRINTD
  14. 110 NEXT:GOTO140
  15. 120 GETK$:IF K$=""THEN120
  16. 130 RETURN
  17. 140 PRINT"                  ";8
  18. 150 INPUT"[145]ENTER DRIVE #8-30";D
  19. 160 IFD<8 OR D>30 THENPRINT"[145][145][145]":GOTO140
  20. 170 OPEN15,D,15:CLOSE15:IFST<>0THENPRINT" DEVICE NOT PRESENT! [146]":PRINT"[145][145][145][145][145]":GOTO140
  21. 180 PRINT"[147]";
  22. 190 PRINT" OUTPUT TO: [146]";:PRINT"(S)CREEN  (P)RINTER  (D)ISK":SP=3
  23. 200 GETSP$:IFSP$="P"THENSP=4:GOTO220
  24. 205 IFSP$="D"THEN220
  25. 210 IFSP$<>"S"THEN200
  26. 220 INPUT"[147][145] ENTER PARTITION NUMBER (1-254) [146]";PN$
  27. 230 IF VAL(PN$)<1 OR VAL(PN$)>254THENGOTO180
  28. 240 OPEN15,D,15:PRINT#15,"CP"+PN$
  29. 250 INPUT#15,EN$,ET$:CLOSE15
  30. 260 PRINT" ";ET$;" [146] ";PN$
  31. 270 IF EN$<>"02"THENGOTO220
  32. 280 HS=0:DN=0:PRINT:PRINT"";
  33. 290 OPEN15,D,15:PRINT#15,"CD//"
  34. 295 IF SP$="D"THEN OPEN4,D,4,"@:TREE."+PN$+",S,W":GOTO310
  35. 300 OPEN4,SP,0
  36. 310 OPEN1,D,0,"$:*=B"
  37. 320 GOSUB 460
  38. 330 N$="":NB$=""
  39. 340 GET#1,NB$
  40. 350 IFST<>0THENCLOSE1:GOTO490
  41. 360 IFNB$<>CHR$(34)THEN340
  42. 370 GET#1,NB$:IFST<>0THEN CLOSE1:GOTO490
  43. 380 IFNB$<>CHR$(34)THENN$=N$+NB$:GOTO370
  44. 390 IFDN=0THENPRINT#4,N$:DN=1:GOTO330
  45. 400 IF SK=0 THEN430
  46. 410 IF SK=1 AND MP$(SC)<>N$THEN330
  47. 420 IF MP$(SC)=N$ AND SK=1 THEN SK=0:GOTO330
  48. 430 IFHS=1THENHS=0:GOTO330
  49. 440 IFSC>0THENGOSUB580
  50. 450 PRINT#4,"[171][192] ";N$:CLOSE1:GOSUB540:GOTO310
  51. 460 INPUT#15,EN$,ET$
  52. 470 IFEN$<>"00"THENPRINT" ";ET$;" [146]":CLOSE1:CLOSE15:CLOSE4:END
  53. 480 RETURN
  54. 490 IFSC=0THENCLOSE1:CLOSE15:CLOSE4:END
  55. 500 PRINT#15,"CD:_"
  56. 510 GOSUB460
  57. 520 SC=SC-1:SK=1
  58. 530 GOTO310
  59. 540 MP$(SC)=N$:SC=SC+1:HS=1
  60. 550 PRINT#15,"CD:"+N$
  61. 560 GOSUB460
  62. 570 RETURN
  63. 580 FOR V=1TOSC
  64. 590 PRINT#4,"[221]    ";
  65. 600 NEXT
  66. 610 RETURN
  67.