home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / P.SFD (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  29 lines
  1. 1 REM**********************************
  2. 2 REM*  CNSG    SFD DIRECTORY READER  *
  3. 3 REM*--------------------------------*
  4. 4 REM* MODIFIED FOR C-NET 12.0   1987 *
  5. 5 REM*--------------------------------*
  6. 6 REM*   BY THE TECH-NET BBS AND BY   *
  7. 7 REM*--------------------------------*
  8. 8 REM*     THE C-NET SYSOPS GUILD     *
  9. 9 REM**********************************
  10. 10 N=0
  11. 509 A$="\F1ïï\C1└\CO└\CL└\CK└\C6 ╙╞─ ─IRECTORY V1.0 \CK└\CL└\CO└\C1└":SYSO
  12. 510 N=N+1
  13. 511 IFN>1THEN542
  14. 512 A$="ïï\CJ─EVICE#\C1:\CK \I1":SYSO:IFAN$=""THEN1812
  15. 513 DV=VAL(AN$):CLOSE2:CLOSE15:IFDV<8ORDV>16THEN512
  16. 514 OPEN15,DV,15:CLOSE15:IFST<>0THENA$="\B1\C2╬O ─EVICE#"+AN$:SYSO:GOTO512
  17. 515 A$="\CJ─RIVE# \C1:\CK \I1\C3":SYSO:IFAN$<"0"ORAN$>"1"THEN512
  18. 516 A$=AN$:DN$=A$:GOSUB541:OPEN2,DV,0,"$"+DN$:OPEN15,DV,15:GOSUB540:IFA$="00"THEN518
  19. 517 CLOSE2:CLOSE15:A$="\B1\C2╬O ─RIVE# "+DN$:SYSO:GOTO512
  20. 518 CLOSE2:OPEN2,DV,2,"#":PRINT#15,"U1:2,"+DN$+",39,1":GOSUB540:IFA$="00"THEN522
  21. 519 CLOSE2:CLOSE15:OPEN2,DV,0,"$"+DN$:OPEN15,DV,15:SYS53013
  22. 520 CLOSE2:CLOSE15:GOTO547
  23. 521 PRINT#15,"B-P:2",P:RETURN
  24. 522 GET#2,A$,B$:T=ASC(A$+CHR$(0)):S=ASC(B$+CHR$(0)):GOTO523
  25. 523 FORI=0TO7:P=2+I*32:GOSUB521:GET#2,PZ$:FL$="":P=5+I*32:GOSUB521
  26. 524 PZ=ASC(PZ$+CHR$(0)):IFPZ=0THEN536
  27. 525 FORX=1TO16:GET#2,A$:IFA$<>CHR$(160)THENFL$=FL$+A$:NEXTX
  28. 526 P=30+I*32:GOSUB521:GET#2,A$,B$:AZ=(ASC(A$+CHR$(0))+(ASC(B$+CHR$(0)))*256)
  29.