home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 March / 64er_Magazin_92-03_1992_Markt__Technik_de_Side_A.d64 / dirlist (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.