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