home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / diskordner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  122 lines
  1. 0 rem =========================
  2. 1 rem  diskordner cbm 64  v2.0
  3. 2 rem  (/) by nikolaus heusler
  4. 3 rem         zwengauerweg  18
  5. 4 rem         8000 muenchen 71
  6. 5 rem         tel.  089/792940
  7. 6 rem  v=2.0, rev 3 vom 070188
  8. 7 rem =========================
  9. 8 :
  10. 9 poke1,55:data120,177,216,145,216,200,208,249,230,217,208,245,76,221,253
  11. 10 ifpeek(49153)><93thenload"diskordner.mc",8,8
  12. 15 d2=664:rs$="                                       [160]
  13. 16 [129]i[178]828[164]842:[135]q:[151]i,q:[130]:[158]828:[151]1,53:[151]650,128:[158]49152
  14. 17 [151]53280,.:[151]53281,.
  15. 18 [134]n$(255),b%(255)
  16. 20 [153]"loadpoke"rs$;
  17. 21 [153]"       str$ i s k o r d n e r   (NULL)2.0      ";
  18. 22 [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(tab(tab(tab(      ";
  19. 23 [153]"  (NULL)erteilt asciles optimal auf str$isketten  ";
  20. 25 [153]rs$"  (c) nh-221187-arr   valin (NULL)(NULL)(NULL) (NULL)rogramm  ";
  21. 26 [153]rs$                        
  22. 28 [151]59639,15
  23. 29 [137]500
  24. 30 [141]1020:[153]"peekitte geben (NULL)ie die (NULL)amen und (NULL)aengen
  25. 32 print"(in [194]locks) ein !
  26. 34 [153]" valingabe von '?': ascehler
  27. 36 print"             '*': [197]nde
  28. 38 [153]"(NULL)r.   (NULL)ame               peeklocks
  29. 39 az=1:print"[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]
  30. 45 [151]781,[194](214):[158]59903:[153][201]("   "[170][196](az),3);
  31. 50 [141]1000:n$(az)[178]"":[133]" ";n$(az)
  32. 52 [139]n$(az)[179][177]"?"[167]58
  33. 54 [139][194](214)[177]17[167]az[178]az[171]1:[153]"on";
  34. 56 [153]"on";:[137]45
  35. 58 [139]n$(az)[178]""[167]56
  36. 60 [139]n$(az)[178]"*"[167]72
  37. 62 b$[178]"":[153]"on "[163]23);:[141]1000:[133]b$:[139]b$[178]"?"[167]56
  38. 64 [139]b$[178]""[167]62
  39. 66 b[178][197](b$):[139]b[179]1[176]b[177]di[167]62
  40. 68 b%(az)[178]b:[153]"on"[163]23)"close
  41. 70 az=az+1:goto45
  42. 72 ifaz=1then56
  43. 74 az=az-1
  44. 75 fori=1toaz:sys49155,b%(i),i:next:poke59639,7
  45. 76 gosub1020:print"[194]itte [196]rucker bereitmachen und [210][197][212][213][210][206]   druecken !
  46. 78 [151]198,.:[146]198,1
  47. 79 [153]"(NULL)(NULL). (NULL)it langen (NULL)artezeiten muss gerech- net werden !
  48. 80 open4,4,7
  49. 81 print"[218]um [194]eschleunigen  _[192] [146] gedrueckt lassen und auf [210]eaktion warten !
  50. 82 [152]4,"valmpfohlene (NULL)erteilung der asciles:
  51. 84 print:print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  52. 100 [141]1010:[139]su[179]di[167]300
  53. 102 v[178].:vv[178].:zm[178]1
  54. 104 [158]49164:[139][194](5)[178].[167]400
  55. 110 [141]1030
  56. 111 [158]49158,di[171]vv,di,(20000[171]v[172]2500)[173]zm
  57. 112 [139][194](2)[167][141]200:[137]100
  58. 114 [139]v[179]7[175]v%[178].[167]v[178]v[170]1:[137]116
  59. 115 v%[178]1:v[178]7.2
  60. 116 vv[178]vv[170]1:[137]110
  61. 200 fl[178]1[170]fl:[152]4:[152]4:[152]4,"atnuf str$isk (NULL)r."fl":":[152]4:su[178].
  62. 202 [129]i[178]1[164][194](2):n[178][194](52479[170]i)
  63. 204 [152]4,[200](n$(n)[170]"                    ",20);
  64. 206 [152]4,[201]("   "[170][196](b%(n))[170]" peeklocks",10):su[178]su[170]b%(n):[130]
  65. 208 [152]4:[152]4,"freie peeklocks:"d2[171]su"  asciles:"i[171]1:vc[178]vc[170]i[171]1:gb[178]gb[170]d2[171]su
  66. 210 [142]
  67. 300 [158]49164:[139][194](5)[178].[167]400
  68. 302 [158]49158,su,su,65535:[141]200
  69. 400 [152]4:[152]4:[152]4,"*** ascertig ! ***
  70. 402 print#4:print#4,"[197]s wurden"vc"von"az"[198]iles verteilt
  71. 404 [152]4,"atnnzahl str$isketten:"fl
  72. 406 [152]4,"ascreie peeklocks auf diesen str$isketten:"gb:[160]4
  73. 408 [153]"ascval(NULL)(NULL)right$chr$ !!!":[158]49164
  74. 409 [153]"atnnzahl str$isketten:"fl
  75. 410 [139][194](5)[177].[176]az[179][177]vc[167][153]"???(NULL)ystemfehler
  76. 412 end
  77. 500 print"[152][199]ewuenschte [193]nzahl freie [194]locks pro
  78. 502 [141]1002:[133]"str$isk   3cmdcmdcmd";fr:[139]fr[179].[176]fr[177]d2[171]1[167][153]"onon":[137]502
  79. 504 di[178]d2[171]fr:[153]"atnutomatischer valinzug der ascilenamen oder
  80. 506 print"manuelle [197]ingabe ? [[193]/[205]/_]
  81. 508 [161]a$:[139]a$[178]"_"[167][138]
  82. 510 [139]a$[178]"m"[167]30
  83. 512 [139]a$[177][179]"a"[167]508
  84. 520 [141]1020:[153]"atnutmatischer valinzug. (NULL)teuerung:
  85. 522 print"    f1 [146][145][157][157][157][157][164][164][164][164] = [196]ieses [198]ile uebernehmen
  86. 524 [153]"    f3 wait = peeklocklaenge dieses asciles
  87. 526 print"        = zur [204]aenge des letzten addie-
  88. 528 [153]"   totototo   ren, nicht uebernehmen
  89. 530 print"    f5 [146] = [196]ieses [198]ile ueberspringen
  90. 532 [151]59639,15
  91. 540 [153]"peekitte str$isk valinlegen ! ((NULL)val(NULL)(NULL)(NULL)(NULL))":[151]198,.:[146]198,1:xl[178].
  92. 542 [160]2:[159]2,8,0,"$0":[161]#2,a$,a$
  93. 544 [161]#2,a$,a$,l$,h$:bl[178][198](l$[170][199](.))[170]256[172][198](h$[170][199](.))
  94. 546 [161]#2,a$:[139]a$[179][177][199](34)[175]a$[177]""[167]546
  95. 547 [139]a$[178]""[167]580
  96. 548 nm$[178]"
  97. 550 get#2,a$:ifa$<>chr$(34)thennm$=nm$+a$:goto550
  98. 551 get#2,a$:ifa$then551
  99. 552 ifxl=.thenxl=1:goto544
  100. 553 gosub600:poke198,.
  101. 556 geta$:ifa$="[135]"then544
  102. 558 ifa$="[134]"andaz>.then570
  103. 560 ifa$<>"[133]"then556
  104. 562 print"[145]"tab(27)"[186][160][160]":az=az+1:n$(az)=nm$:b%(az)=bl:goto544
  105. 570 b%(az)=b%(az)+bl:nm$=n$(az):bl=b%(az):print"[145][145]":gosub600
  106. 572 print"[145]"tab(27)"[186]  ":goto544
  107. 580 print"[145]  [206]och eine [196]iskette ? [[202]/[206]]        [160]
  108. 582 [161]a$:[139]a$[178]"n"[167]75
  109. 584 [139]a$[179][177]"j"[167]582
  110. 586 [153]"onon":[137]540
  111. 600 bl$[178][196](bl):bl$[178][201]("        "[170]bl$[170]"  ",9)
  112. 602 [153]"on"bl$nm$[200](rs$,18[171][195](nm$))"???       ":[142]
  113. 1000 [151]198,2:[151]631,34:[151]632,20:[142]
  114. 1002 [151]198,3:[151]631,34:[151]632,20:[151]633,51:[142]
  115. 1010 [158]49161:su[178][194](2)[170]256[172][194](3):[142]
  116. 1020 [129]x[178]8[164]24:[151]781,x:[158]59903:[130]:[151]214,8:[158]58732:[142]
  117. 1030 [153]"right$n atnrbeit: str$isk"1[170]fl"cmd, max.frei:"d2[171]di[170]vv"cmd   close
  118. 1032 print"max.[214]ersuche:"int((20000-v*2500)/zm)"[157]   [160]
  119. 1034 [153]"(NULL)umme:"su"cmd, atnnz.asciles: noch"[194](5)"cmd   closeononon
  120. 1035 geta$:ifa$="_"thenzm=100
  121. 1036 return
  122.