home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64 / directory.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  6.5 KB  |  128 lines
  1. 100 poke53280,14:poke53281,6
  2. 110 print"[147]                                        ";
  3. 120 print"  directory-load  written by udo woehler  ";
  4. 130 print"                                        "
  5. 140 print"hex-eingabe mit $"
  6. 150 print:print:print"anfangsadresse = 256*";
  7. 160 open1,0:input#1,ad$:close1
  8. 170 print:print:input"filename      :";fi$
  9. 180 open1,8,15
  10. 190 open2,8,2,fi$+",p,w"
  11. 200 input#1,a,a$
  12. 210 ifa=63thenclose2:close1:goto330
  13. 220 ifa>19thenprint"[147]diskfehler";a;a$:close2:end
  14. 230 ifleft$(ad$,1)<>"$"thenad=val(ad$)*256:goto370
  15. 240 ad=0:fort=1to2
  16. 250 x=asc(mid$(ad$,t+1,1)+chr$(0))
  17. 260 ifx>47andx<58thenx=x-48
  18. 270 ifx>64andx<71thenx=x-55
  19. 280 ifx<0orx>15thenclose2:run
  20. 290 ad=ad+x*16^(2-t)
  21. 300 next
  22. 310 ad=ad*256
  23. 320 goto370
  24. 330 print:print:print"alten file loeschen ?(j/n)"
  25. 340 gets$:ifs$<>"j"ands$<>"n"then340
  26. 350 ifs$="j"thenopen1,8,15,"s:"+fi$:close1:goto180
  27. 360 run
  28. 370 ifad>256*251orad<0thenrun
  29. 380 print"[147]                                        ";
  30. 390 print"  directory-load  written by udo woehler  ";
  31. 400 print"                                        "
  32. 410 print"syntax: sys";ad;",na$,zh%,fi$,bl%,      ";
  33. 420 print"                  ty%,tr%,se%,ty$"
  34. 430 print:print"  na$     = name der diskette"
  35. 440 print"  zh%     = anzahl eingelesener files"
  36. 450 print"  fi$(n)  = name            der files"
  37. 460 print"  bl%(n)  = laenge          der files"
  38. 470 print"  ty%(n)  = dateitypen      der files"
  39. 480 print"  tr%(n)  = anfangstracks   der files"
  40. 490 print"  se%(n)  = anfangssektoren der files"
  41. 500 print"  ty$     = zu uebernehmende dateitypen"
  42. 510 print"              p = programm    dateien"
  43. 520 print"              s = sequentiele dateien"
  44. 530 print"              r = relative    dateien"
  45. 540 print"              u = user        dateien"
  46. 550 print"              d = deleted     dateien"
  47. 560 print"sie muessen nur gewuenschte variablen   (aber alle kommata ";
  48. 570 print"und ty$) angeben."
  49. 580 print:print"fi$,bl%,ty%,tr% und se% sind felder !"
  50. 590 print"             bitte warten[145]"
  51. 600 hi=int(ad/256):lo=ad-hi*256
  52. 610 print#2,chr$(lo);chr$(hi);
  53. 620 restore
  54. 630 readb:pu=pu+b:ifb=-1then680
  55. 640 ifb<86orb>91thenprint#2,chr$(b);:goto630
  56. 650 an=b-86+ad/256
  57. 660 print#2,chr$(an);
  58. 670 goto630
  59. 680 close2:close1
  60. 690 ifpu<>138172thenprint"[147]pruefsummenfehler":open1,8,15,"s:"+fi$:close1:end
  61. 700 print"                          [145][145][145][145][145][145][145][145][145][145][154]"
  62. 710 end
  63. 720 data169,36,32,180,89,173,19,91,141,25,91,165,69,166,70,141,205,90,142,206
  64. 730 data90,169,37,32,180,89,173,19,91,141,26,91,165,69,166,70,141,145,90,142
  65. 740 data146,90,169,36,32,180,89,173,19,91,141,20,91,165,69,166,70,141,114,90
  66. 750 data142,115,90,169,37,32,180,89,173,19,91,141,21,91,165,69,166,70,141,153
  67. 760 data90,142,154,90,169,37,32,180,89,173,19,91,141,22,91,165,69,166,70,141
  68. 770 data166,90,142,167,90,169,37,32,180,89,173,19,91,141,23,91,165,69,166,70
  69. 780 data141,179,90,142,180,90,169,37,32,180,89,173,19,91,141,24,91,165,69,166
  70. 790 data70,141,192,90,142,193,90,32,253,174,160,5,169,255,136,153,8,91,200
  71. 800 data136,208,248,32,158,173,32,163,182,160,0,177,100,141,18,91,200,177,100
  72. 810 data133,34,200,177,100,133,35,160,0,162,5,202,177,34,221,233,90,240,7,202
  73. 820 data232,208,244,76,214,86,138,157,8,91,200,204,18,91,208,229,169,2,133
  74. 830 data184,133,185,169,8,133,186,169,1,133,183,169,238,162,90,133,187,134
  75. 840 data188,32,192,255,169,15,133,184,133,185,169,8,133,186,169,0,133,183,32
  76. 850 data192,255,169,18,141,13,91,169,0,141,14,91,173,25,91,240,83,32,67,89
  77. 860 data162,2,32,198,255,162,144,32,228,255,202,208,250,162,0,32,228,255,208
  78. 870 data2,169,32,157,210,90,232,224,16,240,7,224,18,208,237,76,64,87,32,228
  79. 880 data255,32,228,255,76,33,87,32,204,255,165,122,141,112,90,165,123,141,113
  80. 890 data90,169,205,133,122,169,90,133,123,32,165,169,173,112,90,133,122,173
  81. 900 data113,90,133,123,169,1,141,14,91,169,0,141,15,91,32,67,89,162,2,32,198
  82. 910 data255,32,228,255,141,13,91,32,228,255,141,14,91,169,8,141,16,91,32,228
  83. 920 data255,141,17,91,32,228,255,133,99,173,23,91,240,42,169,0,133,98,162,144
  84. 930 data56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40
  85. 940 data56,8,169,32,157,188,90,232,224,3,208,232,40,32,228,255,133,99,173,24
  86. 950 data91,240,42,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8,162,0,189
  87. 960 data0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,201,90,232,224,3,208
  88. 970 data232,40,162,0,32,228,255,208,2,169,32,157,124,90,232,224,16,208,241
  89. 980 data162,9,32,228,255,202,208,250,32,228,255,133,99,32,228,255,133,98,173
  90. 990 data21,91,240,38,162,144,56,32,73,188,32,223,189,24,8,162,0,189,0,1,40
  91. 1000 data8,176,7,201,0,208,5,40,56,8,169,32,157,162,90,232,224,3,208,232,40
  92. 1010 data173,22,91,240,47,174,17,91,169,0,133,98,134,99,162,144,56,32,73,188
  93. 1020 data32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32
  94. 1030 data157,175,90,232,224,3,208,232,40,173,17,91,41,7,162,0,221,8,91,240,29
  95. 1040 data232,224,5,208,246,206,16,91,240,9,32,228,255,32,228,255,76,133,87,173
  96. 1050 data13,91,201,0,240,71,76,108,87,174,15,91,169,0,133,98,134,99,162,144
  97. 1060 data56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40
  98. 1070 data56,8,169,32,157,118,90,157,157,90,157,170,90,157,183,90,157,196,90
  99. 1080 data232,224,3,208,220,40,238,15,91,32,255,89,76,134,88,173,26,91,240,78
  100. 1090 data173,15,91,133,99,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8
  101. 1100 data162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,149,90,232
  102. 1110 data224,3,208,232,40,165,122,141,112,90,165,123,141,113,90,169,145,133
  103. 1120 data122,169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123
  104. 1130 data32,204,255,169,2,32,195,255,169,15,32,195,255,96,174,13,91,169,0,133
  105. 1140 data98,134,99,32,204,255,162,144,56,32,73,188,32,223,189,173,0,1,141,248
  106. 1150 data90,173,1,1,201,0,208,2,169,32,141,249,90,174,14,91,169,0,133,98,134
  107. 1160 data99,162,144,56,32,73,188,32,223,189,173,0,1,141,251,90,173,1,1,201,0
  108. 1170 data208,2,169,32,141,252,90,162,15,32,201,255,160,0,185,239,90,240,13,32
  109. 1180 data168,255,201,13,208,3,32,171,89,200,208,238,32,204,255,96,32,204,255
  110. 1190 data162,15,32,201,255,96,72,32,253,174,32,121,0,133,69,162,0,142,19,91
  111. 1200 data201,44,240,55,32,121,0,32,19,177,176,3,76,8,175,162,32,32,115,0,144
  112. 1210 data5,32,19,177,144,11,170,32,115,0,144,251,32,19,177,176,246,104,133,70
  113. 1220 data32,121,0,197,70,208,220,32,115,0,134,70,162,255,142,19,91,96,104,96
  114. 1230 data165,122,141,112,90,165,123,141,113,90,169,114,133,122,169,90,133,123
  115. 1240 data173,20,91,240,6,32,165,169,32,115,0,173,21,91,240,14,169,153,133,122
  116. 1250 data169,90,133,123,32,165,169,32,115,0,173,22,91,240,14,169,166,133,122
  117. 1260 data169,90,133,123,32,165,169,32,115,0,173,23,91,240,14,169,179,133,122
  118. 1270 data169,90,133,123,32,165,169,32,115,0,173,24,91,240,11,169,192,133,122
  119. 1280 data169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123,96
  120. 1290 data0,0,32,32,36,40,32,32,32,41,178,34,32,32,32,32,32,32,32,32,32,32,32
  121. 1300 data32,32,32,32,32,34,170,34,34,0,32,32,37,178,32,32,32,0,32,32,37,40,32
  122. 1310 data32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32,32,0,32,32
  123. 1320 data37,40,32,32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32
  124. 1330 data32,0,32,32,36,178,34,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
  125. 1340 data32,32,34,170,34,34,0,68,83,80,85,82,35,85,49,58,32,50,32,32,48,32,32
  126. 1350 data32,32,32,32,13,66,45,80,32,50,32,32,48,13,0
  127. 1360 data-1
  128.