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 |