home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / filescanner (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 OPEN1,8,15:OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 1":W=170:DIMC$(W),D$(W),E$(W):H=9
  2. 2 GET#2,A$,B$:A=ASC(A$+CHR$(0)):B=ASC(B$+CHR$(0)):L=L+1:M=L*8:O$=CHR$(0):OPEN3,3
  3. 3 FORI=1TO8:PRINT#1,"B-P 2"(I-1)*31+I+2:GET#2,C$(M+I),D$(M+I):FORK=1TO16
  4. 4 GET#2,Q$:E$(M+I)=E$(M+I)+Q$:NEXTK,I:IFA<>0THENPRINT#1,"U1 2 0"A;B:CLOSE3:GOTO2
  5. 5 PRINT"[147][198][201][204][197]-[211][195][193][206][206][197][210]":PRINT"F1[146]-VOR,F3[146]-ZURUECK,[210]ET[146]-BESTAETIGEN"
  6. 6 CLOSE3:T=0:PRINT">"E$(H)"<[145]":GETT$:IFT$=CHR$(134)THENIFH>9THENH=H-1
  7. 7 L$="BLOCKS":PRINTCHR$(14);:IFT$=CHR$(133)THENIFH<169ANDH<(M+I)THENH=H+1
  8. 8 IFT$=CHR$(13)THENC$=C$(H):D$=D$(H):PRINT"[147][196]RUCKERAUSGABE (J/N)":GOTO10
  9. 9 POKE650,128:GOTO6
  10. 10 GOSUB19:OPEN3,3-X,1:PRINT#3,E$(H)"-TRACK/SEKTOR":PRINT#3,"   DEZ"TAB(22)"HEX"
  11. 11 C=ASC(C$+O$):D=ASC(D$+O$):PRINT#1,"U1 2 0"C;D:D(1)=C:D(2)=D:GOSUB18:FORL=1TO2
  12. 12 R=D(L)-INT(D(L)/16)*16:IFR<10THENH$(L)=CHR$(48+R)+H$(L):GOTO14
  13. 13 H$(L)=CHR$(55+R)+H$(L)
  14. 14 IFD(L)>15THEND(L)=INT(D(L)/16):GOTO12
  15. 15 NEXT:PRINT#3,Y$" ",W$;H$(1)" / "H$(2):GET#2,C$,D$:T=T+1:IFASC(C$+O$)<>0THEN11
  16. 16 PRINT#3,T;L$:PRINT"[206]OCH EIN [198]ILE (J/N)?":GOSUB19:IFK$="J"THENH=9:GOTO5
  17. 17 CLOSE2:CLOSE1:CLOSE3:POKE650,0:END
  18. 18 H$(1)="":H$(2)="":W$=M$(1-X):Y$=""+STR$(C)+"/"+STR$(D)+"  ":RETURN
  19. 19 GETK$:IFK$=""THEN19
  20. 20 W$=CHR$(27)+CHR$(36)+CHR$(165)+CHR$(0):M$(1)="":M$(2)=W$:X=(K$="J"):RETURN
  21.