home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 October / 64er_Magazin_95-10_1995_Markt__Technik_de_Side_A.d64 / dir-filer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  1.9 KB  |  107 lines
  1. 100 gosub 1010
  2. 200 gosub 1120
  3. 300 gosub 1210
  4. 400 gosub 1310
  5. 500 gosub 1410
  6. 600 print"es wurde file ";de$(s1+s2-1);"[146] gewaehlt"
  7. 999 end
  8. 1001 :
  9. 1004 rem ------------
  10. 1005 rem vorbereitung
  11. 1006 rem ------------
  12. 1010 dim di$(255):dim de$(255):ii=0:ee=0:su=0
  13. 1020 le$="                "
  14. 1030 open 1,8,0,"$"
  15. 1040 poke781,1
  16. 1050 sys 65478
  17. 1060 get a$,a$,a$,a$:x$=chr$(0)
  18. 1070 return
  19. 1071 :
  20. 1104 rem ------------
  21. 1105 rem dir einlesen
  22. 1106 rem ------------
  23. 1110 a=0
  24. 1120 fori=1 to28
  25. 1130 get a$
  26. 1135 if a$=chr$(34)then a=1
  27. 1140 ifa=1thendi$(ii)=di$(ii)+a$
  28. 1150 next:ii=ii+1
  29. 1160 get a$,a$,a$,b$
  30. 1170 if st then sys 65484:close1:return
  31. 1180 goto 1110
  32. 1181 :
  33. 1190 next i
  34. 1204 rem -------------
  35. 1205 rem dir auswerten
  36. 1206 rem -------------
  37. 1210 for i=0toii-2
  38. 1215 su=0
  39. 1220 lo=len(di$(i)):ll=lo-24
  40. 1230 en$=left$(right$(di$(i),5+ll),3)
  41. 1240 if en$<>"prg"  then nexti
  42. 1250 for so=2to lo
  43. 1260 if mid$(di$(i),so,1)=chr$(34)then1270
  44. 1265 su=su+1:next so
  45. 1270 de$(ee)=mid$(di$(i),2,su)
  46. 1275 ee=ee+1
  47. 1280 next i
  48. 1290 return
  49. 1291 :
  50. 1300 rem -----------
  51. 1302 rem dir-fenster
  52. 1304 rem -----------
  53. 1305 :
  54. 1308 print"[147]";
  55. 1310 print"[176][192]disc[192][192][192][192][192][192][192][192][192][192][192][192][174]"
  56. 1315 print"[221]                 [221]"
  57. 1320 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  58. 1325 print"[221]                 [221]"
  59. 1330 print"[221]                 [221]"
  60. 1335 print"[221]                 [221]"
  61. 1340 print"[221]                 [221]"
  62. 1345 print"[221]                 [221]"
  63. 1350 print"[221]                 [221]"
  64. 1355 print"[221]                 [221]"
  65. 1360 print"[221]                 [221]"
  66. 1365 print"[221]                 [221]"
  67. 1370 print"[221]                 [221]"
  68. 1375 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  69. 1380 print" ";mid$(di$(0),2,16);"[146]"
  70. 1390 return
  71. 1391 :
  72. 1400 rem --------------
  73. 1402 rem - hauptroutine
  74. 1404 rem --------------
  75. 1410 print"":s1=1:s2=1
  76. 1420 gosub 2010: rem dir zeigen
  77. 1430 gosub 2110: rem abfrage
  78. 1999 return
  79. 2000 rem ---------- -
  80. 2002 rem - plot dir -
  81. 2004 rem ---------- -
  82. 2010 print""
  83. 2020 for i=s1tos1+9
  84. 2030 re$=right$(le$,17-len(de$(i)))
  85. 2040 if i=s1+s2-1then 2060
  86. 2050 print"[154]";de$(i)+re$;"[146]":goto2080
  87. 2060 print"[154]";de$(i)+re$;"[146]"
  88. 2080 nexti
  89. 2090 return
  90. 2091 :
  91. 2100 rem -----------------
  92. 2102 rem - tastenabfrage -
  93. 2104 rem -----------------
  94. 2110 gett$:ift$=""then2110
  95. 2120 ift$="" then2160
  96. 2130 ift$="[145]" then2260
  97. 2140 if t$=chr$(13)thenreturn
  98. 2150 goto 2110
  99. 2160 ifs2=10then2180
  100. 2170 s2=s2+1:gosub2010:goto2110
  101. 2180 ifs1<ee-s2thens1=s1+1:gosub2010:
  102. 2190 goto 2110
  103. 2260 ifs2=1then2280
  104. 2270 s2=s2-1:gosub2010:goto2110
  105. 2280 ifs1>1thens1=s1-1:gosub2010
  106. 2290 goto2110
  107.