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 >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
107 lines
100 gosub 1010
200 gosub 1120
300 gosub 1210
400 gosub 1310
500 gosub 1410
600 print"es wurde file ";de$(s1+s2-1);"[146] gewaehlt"
999 end
1001 :
1004 rem ------------
1005 rem vorbereitung
1006 rem ------------
1010 dim di$(255):dim de$(255):ii=0:ee=0:su=0
1020 le$=" "
1030 open 1,8,0,"$"
1040 poke781,1
1050 sys 65478
1060 get a$,a$,a$,a$:x$=chr$(0)
1070 return
1071 :
1104 rem ------------
1105 rem dir einlesen
1106 rem ------------
1110 a=0
1120 fori=1 to28
1130 get a$
1135 if a$=chr$(34)then a=1
1140 ifa=1thendi$(ii)=di$(ii)+a$
1150 next:ii=ii+1
1160 get a$,a$,a$,b$
1170 if st then sys 65484:close1:return
1180 goto 1110
1181 :
1190 next i
1204 rem -------------
1205 rem dir auswerten
1206 rem -------------
1210 for i=0toii-2
1215 su=0
1220 lo=len(di$(i)):ll=lo-24
1230 en$=left$(right$(di$(i),5+ll),3)
1240 if en$<>"prg" then nexti
1250 for so=2to lo
1260 if mid$(di$(i),so,1)=chr$(34)then1270
1265 su=su+1:next so
1270 de$(ee)=mid$(di$(i),2,su)
1275 ee=ee+1
1280 next i
1290 return
1291 :
1300 rem -----------
1302 rem dir-fenster
1304 rem -----------
1305 :
1308 print"[147]";
1310 print"[176][192]disc[192][192][192][192][192][192][192][192][192][192][192][192][174]"
1315 print"[221] [221]"
1320 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1325 print"[221] [221]"
1330 print"[221] [221]"
1335 print"[221] [221]"
1340 print"[221] [221]"
1345 print"[221] [221]"
1350 print"[221] [221]"
1355 print"[221] [221]"
1360 print"[221] [221]"
1365 print"[221] [221]"
1370 print"[221] [221]"
1375 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1380 print" ";mid$(di$(0),2,16);"[146]"
1390 return
1391 :
1400 rem --------------
1402 rem - hauptroutine
1404 rem --------------
1410 print"":s1=1:s2=1
1420 gosub 2010: rem dir zeigen
1430 gosub 2110: rem abfrage
1999 return
2000 rem ---------- -
2002 rem - plot dir -
2004 rem ---------- -
2010 print""
2020 for i=s1tos1+9
2030 re$=right$(le$,17-len(de$(i)))
2040 if i=s1+s2-1then 2060
2050 print"[154]";de$(i)+re$;"[146]":goto2080
2060 print"[154]";de$(i)+re$;"[146]"
2080 nexti
2090 return
2091 :
2100 rem -----------------
2102 rem - tastenabfrage -
2104 rem -----------------
2110 gett$:ift$=""then2110
2120 ift$="" then2160
2130 ift$="[145]" then2260
2140 if t$=chr$(13)thenreturn
2150 goto 2110
2160 ifs2=10then2180
2170 s2=s2+1:gosub2010:goto2110
2180 ifs1<ee-s2thens1=s1+1:gosub2010:
2190 goto 2110
2260 ifs2=1then2280
2270 s2=s2-1:gosub2010:goto2110
2280 ifs1>1thens1=s1-1:gosub2010
2290 goto2110