home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / dir-changer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  126 lines
  1. 0 rem "dir-changer"
  2. 10 poke53281,0:print"[147]";chr$(14)
  3. 30 print"       *** [196][201][210][197][195][212][207][210][217] [195][200][193][206][199][197][210] ***
  4. 40 [153]"       tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  5. 245 printchr$(14)"   [194]itte warten [211]ie einen [205]oment ..."
  6. 250 fori=828to922:readx:pokei,x:next:sys828
  7. 260 dimb(18),f$(144)
  8. 270 z$=""
  9. 280 b(1)=1:b(2)=4:b(3)=7:b(4)=10:b(5)=13:b(6)=16:b(7)=2:b(8)=5:b(9)=8:b(10)=11
  10. 290 b(11)=14:b(12)=17:b(13)=3:b(14)=6:b(15)=9:b(16)=12:b(17)=15:b(18)=18
  11. 300 open1,8,15:print#1,"i"
  12. 310 open2,8,2,"#"
  13. 320 n=1:z=1:t=18:s=1:hi$="":k=1
  14. 330 fori=1to11:hi$=hi$+chr$(0):next
  15. 340 k$=chr$(131)+chr$(18)+chr$(0)+"----------------"+hi$
  16. 350 gosub860:ift>0thenz=z+1
  17. 360 bp=2
  18. 370 fori=1to8
  19. 380 gosub890:ifasc(left$(a$,1))<>0thenf$(n)=a$:n=n+1:next
  20. 390 ifasc(left$(a$,1))=0thennext
  21. 400 ift<>0thengoto350
  22. 410 za=z:na=n:goto730
  23. 420 :
  24. 430 :rem insert empty file
  25. 450 printz$;:input"[153]ueber welchem eintrag";a
  26. 460 ifa=0ora>nthengoto450
  27. 470 fori=ntoa+1step-1
  28. 480 f$(i)=f$(i-1):next:n=n+1:f$(a)=""
  29. 490 fori=1to30:f$(a)=f$(a)+chr$(0):next
  30. 500 goto730
  31. 510 :
  32. 520 :rem swap entries
  33. 540 printz$;:input"[153]welche zwei nummern vertauschen";a,b
  34. 550 ifa=0ora>n-1then540
  35. 560 ifb=0orb>n-1then540
  36. 570 fh$=f$(a):f$(a)=f$(b):f$(b)=fh$
  37. 580 goto730
  38. 590 :
  39. 600 :rem add dashes
  40. 620 printz$;:input"[153]ueber welchem eintrag";a
  41. 630 ifa=0ora>nthengoto620
  42. 640 fori=ntoa+1step-1
  43. 650 f$(i)=f$(i-1):next:n=n+1:f$(a)=k$:goto730
  44. 660 :
  45. 670 :rem remove empty files
  46. 690 fori=1ton-1:if(asc(left$(f$(i),1)))=0thengoto720
  47. 700 next
  48. 710 goto730
  49. 720 forr=iton-1:f$(r)=f$(r+1):next:n=n-1:goto690
  50. 725 :
  51. 726 :rem directory listing
  52. 730 print"[147]       *** directory changer ***[146]"
  53. 740 fori=ktok+18
  54. 760 ifi<nthenprint"[157]";i;mid$(f$(i),4,16)
  55. 770 ifi+19<nthenprinttab(19)"[145]";i+19;mid$(f$(i+19),4,16)
  56. 775 next
  57. 781 printz$"f1[146] leerraum einsetzen  crsr-dn[146] vorwaerts";
  58. 782 print"f3[146] eintraege vertauschen crsr-up[146] rueckw.";
  59. 783 print"f5[146] trennzeile einfuegen
  60. 784 [153]"f7wait leerraum entfernen     returnwait feritg";
  61. 789 [153][199](142);
  62. 790 [151]198,0:[146]198,1:[161]a$
  63. 800 :[143] f1
  64. 801 [139]a$[178]"input"[167]420
  65. 802 :[143] f3
  66. 803 [139]a$[178]"dim"[167]510
  67. 804 :[143] f5
  68. 805 [139]a$[178]"read"[167]590
  69. 806 :[143] f7
  70. 807 [139]a$[178]"let"[167]660
  71. 808 :[143] crsr-up
  72. 809 [139]a$[178]"on"[167]k[178]k[171]10:[139]k[178][179]0[167]k[178]1
  73. 810 :[143] crsr-down
  74. 811 [139]a$[178]""[167]k[178]k[170]10:[139]k[177]n[167]k[178]n[171]38
  75. 812 :[143] write directory?
  76. 813 [139]a$[179][177][199](13)[137]730
  77. 818 [153][199](14)"load(NULL)eues directory wird geschrieben ...
  78. 820 print"[194]itte warten, bis die rote [204]euchtdiode
  79. 830 [153]"am (NULL)aufwerk aus ist."
  80. 850 [137]1000
  81. 860 [152]1,"u1 2 0";t;s
  82. 870 [161]#2,t$,s$
  83. 880 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0)):[142]
  84. 890 [152]1,"b-p 2";bp
  85. 900 a$[178]"":[133][172]2,30,a$:[139]bp[179]226[167]bp[178]bp[170]32
  86. 910 [142]
  87. 920 [131]169,71,160,3,141,8,3,140,9,3,96,32
  88. 930 [131]115,0,201,133,240,6,32,121,0,76,231,167
  89. 940 [131]32,115,0,201,172,240,6,32,191,171,76,174
  90. 950 [131]167,32,155,183,32,30,225,32,253,174,32,158
  91. 960 [131]183,138,72,32,253,174,32,139,176,133,73,132
  92. 970 [131]74,32,163,182,104,32,117,180,160,2,185,97
  93. 980 [131]0,145,73,136,16,248,200,32,18,225,145,98
  94. 990 [131]200,196,97,208,246,32,204,255,76,174,167
  95. 1000 a$[178]""
  96. 1010 [129]i[178]1[164]30:a$[178]a$[170][199](0):[130]:n[178]n[171]1:na[178]na[171]1
  97. 1020 zn[178][181](n[173]8):[139]n[173]8[177]zn[167]zn[178]zn[170]1
  98. 1030 [139]zn[178]za[167][137]1060
  99. 1040 [139]zn[177]za[167][129]i[178]za[170]1[164]zn:[152]1,"b-a 0";18;b(i):[130]
  100. 1050 [139]zn[179]za[167][129]i[178]zn[170]1[164]za:[152]1,"b-f 0";18;b(i):[130]
  101. 1060 nz[178]0:bp[178]0:k[178]0:zb[178]1
  102. 1070 [139]zb[178]zn[167]c$[178][199](0):b$[178][199](255):[137]1090
  103. 1080 c$[178][199](18):b$[178][199](b(zb[170]1))
  104. 1090 [152]1,"b-p";2;bp:[152]2,c$;b$;
  105. 1100 bp[178]2
  106. 1110 nz[178]nz[170]1:k[178]k[170]1
  107. 1120 [152]1,"b-p";2;bp
  108. 1130 [152]2,f$(nz);
  109. 1140 [139]k[178]8[176]nz[178]n[167]1160
  110. 1150 bp[178]bp[170]32:[137]1110
  111. 1160 [139]k[178]8[167]1200
  112. 1170 bp[178]bp[170]32:[152]1,"b-p";2;bp
  113. 1180 [152]2,a$;
  114. 1190 k[178]k[170]1:[139]k[179]8[167]1170
  115. 1200 [152]1,"u2:2 0";18;b(zb)
  116. 1210 [139]nz[178]n[167]1230
  117. 1220 zb[178]zb[170]1:k[178]0:bp[178]0:[137]1070
  118. 1230 [139]za[178][179]zn[167][137]1290
  119. 1240 [129]i[178]zn[170]1[164]za
  120. 1250 [152]1,"b-p";2;0:[152]2,[199](75);
  121. 1260 [129]t[178]1[164]255:[152]2,[199](1);:[130]
  122. 1270 [152]1,"u2:2 0";18;b(i)
  123. 1280 [130]i
  124. 1290 [161]#1,a:[139]a[177]0[167][153]"on(NULL)chreibfeh:er, bitte str$iskette pruefen!"
  125. 1300 [160]1:[160]2:[128]
  126.