home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / directory-list. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  88 lines
  1. 100 rem direktory-ausdruck fuer floppy 1541
  2. 120 print"[147] directory-listing [146]"
  3. 130 print"sie koennen sich das listing auf dem"
  4. 140 print"bildschirm (3) oder auf dem drucker (4)"
  5. 150 print"bzw. (5) ausgeben lassen."
  6. 160 input"ausgabe-adresse  4[157][157][157]";z
  7. 170 ifz<3orz>5thenprint"[145][145][145]":goto160
  8. 180 ifz=5thenp$="            "
  9. 190 ifz=4thenp$="[145]            "
  10. 200 input"datum                    [157][157][157][157][157][157][157][157][157][157]";d$
  11. 210 input"seite    [1/2]   1[157][157][157]";st$
  12. 220 input"disk-format      1541[157][157][157][157][157][157]";df$
  13. 230 input"end-adr. [j/n]   n[157][157][157]";z$
  14. 240 print"[147]"
  15. 250 data 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
  16. 260 data 230,101,208,10,230,100,208,6,230,96,208,2,230,98,32,228,255,165,144
  17. 270 data 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
  18. 280 forj=860to914:readx:pokej,x:nextj
  19. 290 data "seq","prg","usr","rel"
  20. 300 forj=1to4:readt$(j):next
  21. 310 ifasc(z$)=74thenf=1
  22. 320 open4,z:open15,8,15,"i":close15
  23. 330 g$="                 "
  24. 340 open1,8,3,"$"
  25. 350 get#1,a$
  26. 360 forj=1to141:get#1,a$:nextj:gosub510
  27. 370 forj=0to1:get#1,a$:nextj
  28. 380 forj=1to89:get#1,a$:nextj
  29. 390 n$=left$(n$+"               ",16)
  30. 400 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  31. 410 print#4,p$"[165] "chr$(14)n$chr$(15)"  [165] ";chr$(14)i$chr$(15)" [165]"
  32. 420 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  33. 430 print#4,p$"[165] "chr$(14)d$chr$(15)" [165]"chr$(14)"seite"chr$(15)" ";
  34. 440 print#4,chr$(14)st$chr$(15)" [165]"chr$(14)df$chr$(15)"[165]"
  35. 450 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  36. 460 iff=1goto480
  37. 470 print#4,p$"[165]file-name       [165]typ[165]blk[165]sp[165]se[165]start      [165]":goto490
  38. 480 print#4,p$"[165]file-name       [165]typ[165]blk[165]sp[165]se[165]start-ende [165]":goto490
  39. 490 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  40. 500 bl=0:goto600
  41. 510 forj=1to16:get#1,a$:ifa$=chr$(160)goto530
  42. 520 n$=n$+a$
  43. 530 nextj:get#1,a$,a$
  44. 540 forj=0to1:get#1,a$:ifa$=chr$(160)goto560
  45. 550 i$=i$+a$
  46. 560 nextj:get#1,a$:return
  47. 570 print#4,"$";:x=b/16:gosub580:x=a/16:gosub580:y=256*b+a:return
  48. 580 forj=1to2:x%=x:x=(x-x%)*16:ifx%>9thenx%=x%+7
  49. 590 print#4,chr$(x%+48);:nextj:return
  50. 600 q=q+1
  51. 610 get#1,m$,t$,s$:ifs$=""thens$=chr$(0)
  52. 620 f$="":forj=1to16:get#1,a$:ifa$=chr$(160)goto640
  53. 630 f$=f$+a$
  54. 640 nextj
  55. 650 forj=1to10:get#1,a$:nextj
  56. 660 l=0:ifa$<>""thenl=asc(a$)
  57. 670 get#1,a$:ifq<8thenget#1,a$,a$:goto690
  58. 680 q=0
  59. 690 ifm$=""goto910
  60. 700 m=asc(m$)and15:ifm<1orm>4thenm=0
  61. 710 ml$="[165]                                          [165]"
  62. 720 ifn%=0thenprint#4,p$;ml$:n%=-1
  63. 730 print#4,p$"[165]"f$left$(g$,16-len(f$));
  64. 740 print#4,"[165]"t$(m);
  65. 750 k$=mid$(str$(l),2):print#4,"[165]"left$(g$,3-len(k$))k$;:bl=bl+val(k$)
  66. 760 k$=mid$(str$(asc(t$)),2)
  67. 770 print#4,"[165]"left$(g$,2-len(k$))k$;
  68. 780 k$=mid$(str$(asc(s$)),2):print#4,"[165]"left$(g$,2-len(k$))k$"[165]";
  69. 790 ifm=0thenprint#4,"           ";:goto900
  70. 800 open2,8,4,dr$+":"+f$+","+t$(m)+",r"
  71. 810 a=0:ifm<>2goto850
  72. 820 get#2,a$,b$:a=0:ifa$<>""thena=asc(a$)
  73. 830 b=0:ifb$<>""thenb=asc(b$)
  74. 840 gosub570:iff=0thenprint#4,"      ";:goto890
  75. 850 poke785,92:poke786,3:c=usr(0):a=a+c:a$=right$("     "+str$(a),5)
  76. 860 ifm<>2thenprint#4,a$" bytes";:goto890
  77. 870 print#4,"-";:a%=a/256:a=a-a%*256:b=b+a%
  78. 880 gosub570
  79. 890 close2:print#4,"[165]";
  80. 900 print#4
  81. 910 ifst=0goto600
  82. 920 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  83. 930 bl$=right$("   "+mid$(str$(bl),2,4),4)
  84. 940 fr$=right$("   "+mid$(str$(664-bl),2,4),4)
  85. 950 print#4,p$"[165]blocks : 664   belegt : "bl$"  frei : "fr$" [165]"
  86. 960 print#4,p$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  87. 970 close1:close4:end
  88.