home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / directory.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  7KB  |  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.