home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 October / 64er_Magazin_93-10_1993_Markt__Technik_de_Side_A.d64 / minidir.basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 10 rem nikolaus heusler - zwengauerweg 18 - 81479 muenchen - 6.93
  2. 20 n$=chr$(0):q$=chr$(34)
  3. 30 l$="                                  "
  4. 100 print"[147]** mini-dir             nikolaus heusler
  5. 102 [153]"druckt zweispaltige directories auf ep-
  6. 104 print"son-kompatiblen druckern
  7. 110 [153]"schrift stauchen?      [j/n] ";
  8. 112 [161]s$:[139]s$[179][177]"j"[175]s$[179][177]"n"[167]112
  9. 114 [153]s$
  10. 120 [153]"formfeed nach druck?   [j/n] ";
  11. 122 [161]ff$:[139]ff$[179][177]"j"[175]ff$[179][177]"n"[167]122
  12. 124 [153]ff$
  13. 127 [153]"gross- & kleinbuchst.? [j/n] ";
  14. 128 [161]sa$:[139]sa$[179][177]"j"[175]sa$[179][177]"n"[167]128
  15. 129 [153]sa$
  16. 130 [153]"bitte diskette einlegen, drucker
  17. 132 print"bereitmachen und taste druecken!
  18. 140 [151]198,.:[146]198,1:[161]a$
  19. 150 sa[178]1:[139]sa$[178]"j"[167]sa[178]2
  20. 200 [159]4,4,sa:[159]5,4,1:[152]5,[199](27)[199](64)[199](15);:[159]2,8,0,"$
  21. 205 ifs$="j"thenprint#5,chr$(27)chr$(83)chr$(0)chr$(27)"3"chr$(12);
  22. 210 get#2,a$,a$
  23. 220 get#2,a$,a$
  24. 230 get#2,a$,b$:n=256*asc(b$+n$)+asc(a$+n$)
  25. 235 g$=""
  26. 240 get#2,a$:ifa$=""orst<>0ora$=n$then500
  27. 250 g$=g$+a$:ifa$<>q$then240
  28. 260 f$=""
  29. 270 get#2,a$:ifst<>0then500
  30. 280 ifa$<>q$thenf$=f$+a$:goto270
  31. 290 z$=""
  32. 300 get#2,a$
  33. 310 ifa$<>""anda$<>n$thenz$=z$+a$:goto300
  34. 320 gosub600:v$=e$
  35. 400 iff=1then450
  36. 405 v$=left$(v$+l$,16)
  37. 410 f=1:print#5,"     directory der disk ";:print#4,q$v$q$;:print#5,"  id: "q$;
  38. 412 f$=z$:gosub600:ifmid$(e$,4,1)=" "thene$=left$(e$,3)
  39. 414 print#4,mid$(e$,2)q$
  40. 416 print#5,"-------------------------------------------------------------
  41. 420 [137]500
  42. 450 [139][198](z$[170]n$)[178]32[176][198](z$[170]n$)[178]42[167]z$[178][201](z$,[195](z$)[171]1):[137]450
  43. 451 f$[178]z$:[141]600
  44. 452 w$[178]w$[170][201](l$[170][196](n),5)[170]" "[170]q$[170][200](v$[170]q$[170]l$,18)[170][200](e$[170]l$,5):dz[178]dz[170]1
  45. 455 [139]m[178]0[167]w$[178]w$[170]"!
  46. 460 m=1-m:ifm=0thenprint#4,w$:w$=""
  47. 500 ifleft$(g$,1)="b"theng$="blocks frei.":goto505
  48. 503 ifst=0then220
  49. 505 ifw$>""thenprint#4,w$
  50. 506 print#5,"-------------------------------------------------------------
  51. 507 [152]5,[201](l$[170][196](n),5)[170]" "[170]g$[170][201](l$[170][196](dz),18)" datei";
  52. 508 [139]dz[179][177]1[167][152]5,"en";
  53. 509 [152]5:[152]5:[152]5
  54. 510 [139]ff$[178]"j"[167][152]5,[199](12)
  55. 520 [160]4:[160]5:[160]2:[153]"vorgang beendet.":[128]
  56. 600 e$[178]""
  57. 610 [129]i[178]1[164][195](f$)
  58. 620 h[178][198]([202](f$,i,1)[170]n$):[139](h[177]31[175]h[179]127)[176](h[177]159[175]h[179]255)[167]640
  59. 630 h[178]32
  60. 640 e$[178]e$[170][199](h):[130]:[142]
  61.