home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9203a.d64 / dirlist (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  661b  |  43 lines
  1. 11000 R=-1
  2. 11010 T$(0)="DEL"
  3. 11020 T$(1)="SEQ"
  4. 11030 T$(2)="PRG"
  5. 11040 T$(3)="USR"
  6. 11050 T$(4)="REL"
  7. 11060 OPEN1,8,15
  8. 11070 OPEN2,8,2,"#"
  9. 11080 PRINT"[147]TYP    NAME             LAENGE[146]"
  10. 11090 S=1
  11. 11100 PRINT#1,"U1:"2;0;18;S
  12. 11110 GET#2,T$,S$
  13. 11120 S$=S$+CHR$(0)
  14. 11130 T$=T$+CHR$(0)
  15. 11140 S=ASC(S$)
  16. 11150 E=1
  17. 11160 PRINT#1,"B-P";2;2+(E-1)*32
  18. 11170 A$=A$+CHR$(0)
  19. 11180 GET#2,A$
  20. 11190 A$=A$+CHR$(0)
  21. 11200 IFASC(A$)<128ANDASC(T$)=0THEN11390
  22. 11210 IFASC(A$)>127THEN PRINTT$(ASC(A$)-128)"    ";
  23. 11220 PRINT#1,"B-P";2;5+(E-1)*32
  24. 11230 N$=""
  25. 11240 FORA=1TO16
  26. 11250 GET#2,B$
  27. 11260 N$=N$+B$
  28. 11270 NEXT A
  29. 11280 PRINTN$"   ";
  30. 11290 PRINT#1,"B-P";2;30+(E-1)*32
  31. 11300 GET#2,A$,B$
  32. 11310 A$=A$+CHR$(0):B$=B$+CHR$(0)
  33. 11320 L=ASC(A$)+256*ASC(B$)
  34. 11330 PRINTL
  35. 11340 E=E+1
  36. 11350 IFE<9THEN11160
  37. 11360 E=0
  38. 11370 IFASC(T$)=0THEN11390
  39. 11380 GOTO11100
  40. 11390 CLOSE2
  41. 11400 CLOSE1
  42. 11410 RETURN
  43.