home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 94 / Tiger_Disk_094_20xx_Tiger-Crew-Disk_de_Side_B.d64 / directoryprinter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  89 lines

  1. 20 poke53280,0:poke53281,11:print"[147][159]"chr$(14):dimb$(64)
  2. 30 close4:open4,4,0:close4
  3. 40 if st and-64 then print,"[196]rucker einschalten[145]":goto30
  4. 60 s=704:dj=99
  5. 70 c$=chr$(13):e$=chr$(27):o$=chr$(0):gosub930:pokes+3,dj:poke198,0
  6. 100 print"[147]","[196]irectory [208]rinter
  7. 110 [153]"   (NULL)aechste str$iskette - 'asc7'wait oder (NULL)val(NULL)(NULL)(NULL)(NULL)
  8. 120 ifw=64thenprint"   [196]ruck wiederholen - '[198]5'"
  9. 130 print,"validieren - '[198]3'"
  10. 140 print,"      [197]nde - '[198]1'"
  11. 150 wait198,1:geta$:as=asc(a$):poke198,0:ifas=135andw<>64thenas=0
  12. 160 ifas=136andw=64thengosub300:goto100
  13. 170 ifas=13thenas=136
  14. 180 onas+132*(as>132)gosub3000,1020,600,200:goto100
  15. 200 dj=peek(s+3):dj$=mid$(str$(dj),2)
  16. 210 gosub800:ifd3$<>dj$thend$="ttmm"+dj$
  17. 220 print"[153][212]agesdatum  :"d$c$"[145]"spc(11);
  18. 230 inputd$:iflen(d$)<>6then220
  19. 240 ifd$=da$then300
  20. 250 pokes,val(mid$(d$,1,2)):pokes+1,val(mid$(d$,3,2))
  21. 260 pokes+2,val(mid$(d$,5,2)):gosub800
  22. 290 rem=== block's free / dir-name
  23. 300 w=0:n=0:cc$="":print"[147][153]";:gosub1000:ifde=21thengosub2100:goto510
  24. 310 open2,8,2,"#":get#2,a$:p=asc(a$+o$)+3
  25. 320 print#15,"m-r"chr$(250)chr$(2):get#15,bl$
  26. 330 print#15,"m-r"chr$(252)chr$(2):get#15,bh$:bf=asc(bl$+o$)+256*asc(bh$+o$)
  27. 340 sp=18:se=0:gosub870:bf$=right$("   "+str$(bf),4)
  28. 350 print#15,"m-r"chr$(144)chr$(7)chr$(23)
  29. 360 a$="":cc$="":input#15,a$:cc$=left$(a$,16):id$=mid$(a$,19,2)
  30. 370 sp=18:se=1:print"[147]"," "dd$c$," "cc$"[146] "id$
  31. 380 :
  32. 390 rem=== dir lesen
  33. 400 gosub870:ifed=10then500
  34. 410 fordi=0to7:pz=di*32:print#15,"b-p 2";pz+2:gosub2000:rem err
  35. 420 : ifdethened=10:di=10
  36. 430 : get#2,a$:a=asc(a$+o$):b=a-(a and128):ifa=0then490:rem geloescht
  37. 435 : ifb>64thenb=b-60
  38. 440 : print#15,"m-r"chr$(pz+5)chr$(p)chr$(16):input#15,f$:iflen(f$)=16then470
  39. 450 : print#15,"m-r"chr$(pz+5)chr$(p)chr$(16)
  40. 460 : f$="":fori=1to16:get#15,a$:f$=f$+a$:next
  41. 470 : print#15,"b-p 2";pz+30:get#2,bl$:get#2,bh$:bl=asc(bh$+o$)*256+asc(bl$+o$)
  42. 480 : n=n+1:f$(n)=right$("  "+str$(bl),4)+" "+f$+" "+b$(b):print"      "f$(n)
  43. 490 next:ifed=0then400
  44. 500 printc$"      "bf$" bloecke frei.
  45. 510 [160]15:[160]2
  46. 590 [143]=== print
  47. 600 [139]cc$[178]""[167][142]
  48. 610 f[178]4:[159]f,4,7:[152]f:[157]f:[153]e$"(NULL)";
  49. 620 [153]e$"(NULL)"e$[199](15)e$"s"o$e$"a"[199](5)e$" name : "cc$"  right$str$:  "id$"  ";
  50. 630 [152]f,bf$"  peekloecke frei.       (NULL)tand vom: "dd$" "e$"-0":[152]f
  51. 640 [139]w[167]670
  52. 650 b[178]n[173]3:b%[178]b:[139]n[178]0[167]710
  53. 660 [139]b[179][177]b%[167][129]x[178]1[164]3:f$(n[170]x)[178]"":[130]:n[178]n[170]3
  54. 670 b%[178]n[173]3:[129]x[178]1[164]b%
  55. 680 : [152]f,f$(x)" "f$(x[170]b%)" "f$(x[170]2[172]b%)
  56. 690 [130]
  57. 710 w[178]64:[152]f:[160]f:[153]"loadopen"[199](14):[142]
  58. 790 [143]=== subroutine
  59. 800 d1$[178][201]("0"[170][202]([196]([194](s)),2),2)
  60. 810 d2$[178][201]("0"[170][202]([196]([194](s[170]1)),2),2)
  61. 820 d3$[178][201]("0"[170][202]([196]([194](s[170]2)),2),2):dd$[178]d1$[170]"."[170]d2$[170]"."[170]d3$
  62. 830 d$[178]d1$[170]d2$[170]d3$:da$[178]d$:[142]
  63. 850 [143]" block read
  64. 860 ed=10:goto900
  65. 870 print#15,"u1 2 0";sp;se:gosub2000:ifdethenprint"zeile 870":goto860
  66. 880 ed=0:get#2,sp$:get#2,se$:sp=asc(sp$+o$):se=asc(se$+o$)
  67. 890 ifsp=0orsp>35orse>20thened=1
  68. 900 return
  69. 920 rem" initialisieren
  70. 930 j[178]0:i[178]0:di[178]0:pz[178]0:se[178]0:a[178]0:b[178]0:bl[178]0:bf[178]0:w[178]0
  71. 940 b$(0)[178]"    ":b$(1)[178]"seq ":b$(2)[178]"prg ":b$(3)[178]"usr ":b$(4)[178]"rel "
  72. 950 b$(5)[178]"seq<":b$(6)[178]"prg<":b$(7)[178]"usr<":b$(8)[178]"rel<"
  73. 960 [134]f$(152)
  74. 970 [142]
  75. 990 [143]" disk-anw.
  76. 1000 open15,8,15,"i0":gosub2000:return
  77. 1010 :
  78. 1020 open15,8,15,"v0":gosub2000:return
  79. 1030 :
  80. 1990 rem" disk-err
  81. 2000 [132]15,de,de$,s1,s2
  82. 2010 [139]de[167][153]""de;de$,s1;s2
  83. 2020 [142]
  84. 2030 :
  85. 2100 [153],"disk error #"de;c$"weiter mit:   (NULL)atn(NULL)(NULL)val
  86. 2110 poke198,0:wait198,1:return
  87. 2990 rem=== ende
  88. 3000 print"[147]":close15:end
  89.