1 ' DIRSTART V1.3 Bernhard Ballweg
10 BORDER 0:INK 0,0:INK 1,2:INK 2,26:INK 3,9
15 FOR a=&4000 TO &400F:READ w$:POKE a,VAL("&"+w$):NEXT
20 MODE 0:a=&BB5A:POKE a,&C3:POKE a+1,0:POKE a+2,&40
25 b$="*.*":|DIR,àb$:CALL &BD37:|DISC:MODE 1:PEN 3
30 b$=SPACE$(43):PRINT TAB(4);"<SPACE>  zeigt weitere Eintraege";b$;"<1-5>";SPC(7)"startet das Programm";b$;"<DEL>";SPC(15)"beginnt vorn";b$;"<ESC>";SPC(14)"Ende DIRSTART"
35 WINDOW#0,10,34,11,23:s=&5010
40 FOR q=1 TO 70:CLS:FOR w=1 TO 5:FOR e=0 TO 11
45 a$=a$+CHR$(PEEK(S+e)):NEXT:a$(w)=a$:a$=""
50 IF INSTR(a$(w),"K free") THEN 65 ELSE LOCATE 1,2*w:PEN 2
55 PRINT w;".";"   ";:PEN 1:PRINT a$(w);:s=s+12:NEXT
60 GOSUB 70:NEXT
65 LOCATE 1,12:PEN 3:PRINT "Ende des Directory !":GOTO 60
70 CALL &BB03:IF INKEY(47)=0 THEN RETURN
75 IF INKEY(66)=0 THEN END ELSE IF INKEY(79)=0 THEN 35
80 b$=INKEY$:IF b$<"1" OR b$>"5" THEN 70 ELSE RUN a$(VAL(b$))
85 DATA FE,1E,F8,E5,2A,0E,40,77,23,22,0E,40,E1,C9,00,50