urcislozku$ = "C:\honza\qbasic\"
nazevprogramu$ = urcislozku$ + "project.bas"
sloz = 1
SHELL "C:"
FOR i = 1 TO 2
SHELL "cd.."
NEXT
slozka$(0) = "A:\"
slozka$(1) = "C:\"
slozka$(2) = "D:\"
slozka$(3) = "E:\"
ON ERROR GOTO restart
OPEN urcislozku$ + "load.s_j" FOR INPUT AS #1
INPUT #1, k$, j
slozka$(j) = k$
CLOSE #1
kkkl:
i = 4
l1:
i = i + 1
IF i > 1000000 THEN GOTO l2
IF RIGHT$(LEFT$(slozka$(j), i), 1) = "\" THEN GOTO l2
LOCATE 1, 1: PRINT ":"; RIGHT$(LEFT$(urcislozku$, i), 1); ":"; urcislozku$
GOTO l1
l2:
z = z + 1
IF z <> 1 THEN GOTO l3
CLS
j$ = LEFT$(k$, i - 1)
k$ = RIGHT$(j$, LEN(j$) - 3)
IF z = 1 THEN SHELL "cd " + k$: GOTO l1
IF z = 1 THEN q$ = k$
END
l3:
q$ = LEFT$(k$, i - 1)
j = LEN(k$) - LEN(h$)
h$ = RIGHT$(q$, j + 1)
SHELL "cd " + h$
restart:
CLS
'Barvy pro nastavenˇ
OPEN urcislozku$ + "pccomm.s_j" FOR INPUT AS #1
INPUT #1, barva1$, barva2$, barva3$, barva4$
CLOSE #1
barva1 = VAL(barva1$)
barva2 = VAL(barva2$)
barva3 = VAL(barva3$)
barva4 = VAL(barva4$)
CLS
levo$ = CHR$(0) + CHR$(75)
pravo$ = CHR$(0) + CHR$(77)
nahoru$ = CHR$(0) + CHR$(72)
dolu$ = CHR$(0) + CHR$(80)
program:
SCREEN 9
'Barva pozadˇ
prog:
LINE (0, 0)-(680, 350), barva3, BF
'Okraje programu
LINE (20, 10)-(620, 300), barva4, B
'Dolnˇ obrazovka
okraj = 460
x = 33
LINE (25, 295)-(okraj, 295), barva4
LINE (25, x)-(25, 295), barva4
LINE (25, x)-(okraj, x), barva4
LINE (okraj, x)-(okraj, 295), barva4
'Okraj autor…
LINE (465, 295)-(615, 225), barva4, B
menu:
'Datum:
den$ = LEFT$(RIGHT$(DATE$, 7), 2)
mesic$ = LEFT$(DATE$, 2)
rok$ = RIGHT$(DATE$, 4)
datum$ = den$ + "." + mesic$ + ". " + rok$
'Hornˇ menu
t$ = "Konec"
t1$ = "Editovat"
t2$ = "Programy"
t3$ = "Nastavenˇ"
t4$ = datum$
t5$ = TIME$
COLOR barva1, barva3
LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
'Prav‚ menu
t$(0) = "Kopˇrovat"
t$(1) = "Pýesunout"
t$(2) = "Pýejmenovat"
t$(3) = "Vymazat"
t$(4) = "Vytvoý. adres."
t$(5) = "N povŘda"
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
LOCATE 18, 60: PRINT "ćpalda soft"
LOCATE 19, 60: PRINT "    &"
LOCATE 20, 60: PRINT "Jan Dvoý k"
pri:
LOCATE 20, 5: PRINT UCASE$(slozka$(sloz)) + ">" + m$
DO
k$ = INKEY$
LOOP UNTIL k$ = "" OR k$ <> ""
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menuokno
IF k$ = "" THEN GOTO menu
IF k$ = CHR$(8) THEN GOTO minus
IF k$ = CHR$(13) THEN GOTO j
IF k$ = "/" OR k$ = "?" OR ASC(k$) > 45 AND ASC(k$) < 123 OR k$ = " " THEN m$ = m$ + k$: GOTO menu
IF k$ <> "" THEN GOTO menu
minus:
IF m$ = "" THEN BEEP
IF m$ <> "" THEN j$ = m$: m$ = LEFT$(j$, LEN(m$) - 1)
GOTO prog
j:
IF m$ = "cd.." OR m$ = "CD.." THEN GOTO jk
IF UCASE$(LEFT$(m$, 3)) = "CD " THEN l$ = m$: GOTO cd
IF UCASE$(m$) = "A:" THEN sloz = 0
IF UCASE$(m$) = "C:" THEN sloz = 1
IF UCASE$(m$) = "D:" THEN sloz = 2
IF UCASE$(m$) = "E:" THEN sloz = 3
IF m$ = "" THEN GOTO menu
SHELL m$: m$ = "": LOCATE 20, 5: PRINT "                                                   ": GOTO prog
GOTO menu
jk:
FOR i = 2 TO 10
IF RIGHT$(LEFT$(slozka$(sloz), i), 1) = "\" THEN GOTO jkl
NEXT
jkl:
FOR j = i + 1 TO 10
IF RIGHT$(LEFT$(slozka$(sloz), j), 1) = "\" THEN GOTO jklm
NEXT
jklm:
SHELL "cd.."
j$(sloz) = slozka$(sloz)
slozka$(sloz) = LEFT$(slozka$(sloz), LEN(j$(sloz)) - j + 2)
IF UCASE$(slozka$(sloz)) = "A:" THEN slozka$(sloz) = "A:\"
IF UCASE$(slozka$(sloz)) = "C:" THEN slozka$(sloz) = "C:\"
IF UCASE$(slozka$(sloz)) = "D:" THEN slozka$(sloz) = "D:\"
IF UCASE$(slozka$(sloz)) = "E:" THEN slozka$(sloz) = "E:\"
IF UCASE$(slozka$(sloz)) = "A" THEN slozka$(sloz) = "A:\"
IF UCASE$(slozka$(sloz)) = "C" THEN slozka$(sloz) = "C:\"
IF UCASE$(slozka$(sloz)) = "D" THEN slozka$(sloz) = "D:\"
IF UCASE$(slozka$(sloz)) = "E" THEN slozka$(sloz) = "E:\"
m$ = ""
LOCATE 20, 5: PRINT STRING$(25, " ")
GOTO menu
menuokno:
IF menuokno = 1 THEN menuokno = 0
IF menuokno = 0 THEN menuokno = 1
kmenu = menuokno
IF kmenu = 1 THEN GOTO hornimenu
IF kmenu = 0 THEN GOTO menu
'Typy hornˇch menu
hornimenu:
COLOR barva1, barva3
x = x + 1
IF x = 1 THEN LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
COLOR barva2, barva3
LOCATE 2, 14: PRINT t1$
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = pravo$ THEN x = 0: GOTO programys
IF k$ = levo$ THEN x = 0: GOTO konecs
IF k$ = CHR$(13) THEN SHELL "edit": SHELL "cls"
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO hornimenu
IF k$ <> "" THEN GOTO hornimenu
programys:
COLOR barva1, barva3
x = x + 1
IF x = 1 THEN LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
COLOR barva2, barva3
LOCATE 2, 26: PRINT t2$
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = pravo$ THEN x = 0: GOTO nastavenis
IF k$ = levo$ THEN x = 0: GOTO hornimenu
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = CHR$(13) THEN GOTO programy
IF k$ = "" THEN GOTO programys
IF k$ <> "" THEN GOTO programys
END
konecs:
COLOR barva1, barva3
x = x + 1
IF x = 1 THEN
LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 2, 5: PRINT t$
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = pravo$ THEN x = 0: GOTO hornimenu
IF k$ = levo$ THEN x = 0: GOTO napovedas
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO konecs
IF k$ = CHR$(13) THEN GOTO konec
IF k$ <> "" THEN GOTO konecs
nastavenis:
COLOR barva1, barva3
x = x + 1
IF x = 1 THEN
LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 2, 38: PRINT t3$
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = pravo$ THEN x = 0: GOTO kopirovats
IF k$ = levo$ THEN x = 0: GOTO programys
IF k$ = CHR$(13) THEN GOTO nastaveni
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO nastavenis
IF k$ <> "" THEN GOTO nastavenis
napovedas:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
END IF
COLOR barva2, barva3
LOCATE 14, 60: PRINT t$(5)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO konecs
IF k$ = nahoru$ THEN x = 0: GOTO vytvors
IF k$ = CHR$(13) THEN GOTO napoveda
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO napovedas
IF k$ <> "" THEN GOTO napovedas
vytvors:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 12, 60: PRINT t$(4)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO napovedas
IF k$ = nahoru$ THEN x = 0: GOTO vymazats
IF k$ = CHR$(13) THEN GOTO vytvor
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO vytvors
IF k$ <> "" THEN GOTO vytvors
vymazats:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 10, 60: PRINT t$(3)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO vytvors
IF k$ = CHR$(13) THEN GOTO vymazat
IF k$ = nahoru$ THEN x = 0: GOTO prejmenovats
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO vymazats
IF k$ <> "" THEN GOTO vymazats
prejmenovats:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 8, 60: PRINT t$(2)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO vymazats
IF k$ = nahoru$ THEN x = 0: GOTO presunouts
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = CHR$(13) THEN GOTO prejmenovat
IF k$ = "" THEN GOTO prejmenovats
IF k$ <> "" THEN GOTO prejmenovats
presunouts:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
END IF
COLOR barva2, barva3
LOCATE 6, 60: PRINT t$(1)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO prejmenovats
IF k$ = nahoru$ THEN x = 0: GOTO kopirovats
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = CHR$(13) THEN GOTO presunout
IF k$ = "" THEN GOTO presunouts
IF k$ <> "" THEN GOTO presunouts
kopirovats:
x = x + 1
IF x = 1 THEN
COLOR barva1, barva3
FOR x = 0 TO 5
s = 2
LOCATE 4 + s * x, 60: PRINT t$(x)
NEXT
LOCATE 2, 5: PRINT t$; "    "; t1$; "    "; t2$; "    "; t3$; "        "; t4$; " / "; t5$
END IF
COLOR barva2, barva3
LOCATE 4, 60: PRINT t$(0)
COLOR barva1, barva3
LOCATE 2, 69: PRINT TIME$
DO
k$ = INKEY$
LOOP UNTIL k$ <> "" OR k$ = ""
IF k$ = dolu$ THEN x = 0: GOTO presunouts
IF k$ = nahoru$ THEN x = 0: GOTO nastavenis
IF k$ = CHR$(13) THEN GOTO kopirovat
IF k$ = CHR$(0) + CHR$(68) THEN GOTO menu
IF k$ = "" THEN GOTO kopirovats
IF k$ <> "" THEN GOTO kopirovats
nastaveni:
CLS
SCREEN 12
OPEN urcislozku$ + "pccomm.s_j" FOR INPUT AS #1
INPUT #1, barva1$, barva2$, barva3$, barva4$
CLOSE #1
kde3 = VAL(barva1$) + 1
kde4 = VAL(barva2$) + 1
kde2 = VAL(barva3$) + 1
kde1 = VAL(barva4$) + 1
LOCATE kde1 + 5, 5: PRINT CHR$(26)
LOCATE kde2 + 5, 26: PRINT CHR$(26)
LOCATE kde3 + 5, 45: PRINT CHR$(26)
LOCATE kde4 + 5, 65: PRINT CHR$(26)
LINE (2, 10)-(630, 450), 15, B
x = 630 / 4
LINE (x, 50)-(x, 450)
LINE (2 * x, 50)-(2 * x, 450)
LINE (3 * x, 50)-(3 * x, 450)
COLOR 11: LOCATE 2, 2: PRINT "Nastavenˇ barev:       <ENTER>  <ESC>"
COLOR 2: LOCATE 4, 2: PRINT "R m:"
LOCATE 4, 61: PRINT "Vybraně text:"
LOCATE 4, 41: PRINT "Text:"
LOCATE 4, 21: PRINT "Pozadˇ:"
a = -1
FOR x = 80 TO 320 STEP (16)
a = a + 1
LINE (51, x + 1)-(99, x + 13), a, BF
LINE (50, x)-(100, x + 14), 15, B
NEXT
a = -1
FOR x = 80 TO 320 STEP (16)
a = a + 1
LINE (221, x + 1)-(269, x + 13), a, BF
LINE (220, x)-(270, x + 14), 15, B
NEXT
a = -1
FOR x = 80 TO 320 STEP (16)
a = a + 1
LINE (371, x + 1)-(419, x + 13), a, BF
LINE (370, x)-(420, x + 14), 15, B
NEXT
a = -1
FOR x = 80 TO 320 STEP (16)
a = a + 1
LINE (531, x + 1)-(579, x + 13), a, BF
LINE (530, x)-(580, x + 14), 15, B
NEXT
levo$ = CHR$(0) + CHR$(75)
pravo$ = CHR$(0) + CHR$(77)
nahoru$ = CHR$(0) + CHR$(72)
dolu$ = CHR$(0) + CHR$(80)
ram:
IF kde1 = 0 THEN kde1 = 16
IF kde1 = 17 THEN kde1 = 1
COLOR 0
LOCATE kde1 + 4, 5: PRINT " "
LOCATE kde1 + 6, 5: PRINT " "
IF kde1 = 1 THEN LOCATE 21, 5: PRINT " "
IF kde1 = 16 THEN LOCATE 6, 5: PRINT " "
COLOR 15
LOCATE kde1 + 5, 5: PRINT CHR$(26)
LOCATE 25, 5: PRINT "Barva ź. "; kde1 - 1
LOCATE 25, 26: PRINT "             "
LOCATE 25, 45: PRINT "             "
LOCATE 25, 65: PRINT "             "
DO
k$ = INKEY$
LOOP UNTIL k$ = nahoru$ OR k$ = dolu$ OR k$ = pravo$ OR k$ = levo$ OR k$ = CHR$(13) OR k$ = CHR$(27)
IF k$ = dolu$ THEN kde1 = kde1 + 1
IF k$ = nahoru$ THEN kde1 = kde1 - 1
IF k$ = pravo$ THEN GOTO pozadi
IF k$ = levo$ THEN GOTO vybrany
IF k$ = CHR$(13) THEN GOTO enter
IF k$ = CHR$(27) THEN GOTO restart
GOTO ram
pozadi:
IF kde2 = 0 THEN kde2 = 16
IF kde2 = 17 THEN kde2 = 1
COLOR 0
LOCATE kde2 + 4, 26: PRINT " "
LOCATE kde2 + 6, 26: PRINT " "
IF kde2 = 1 THEN LOCATE 21, 26: PRINT " "
IF kde2 = 16 THEN LOCATE 6, 26: PRINT " "
COLOR 15
LOCATE kde2 + 5, 26: PRINT CHR$(26)
LOCATE 25, 26: PRINT "Barva ź. "; kde2 - 1
LOCATE 25, 5: PRINT "             "
LOCATE 25, 45: PRINT "             "
LOCATE 25, 65: PRINT "             "
DO
k$ = INKEY$
LOOP UNTIL k$ = nahoru$ OR k$ = dolu$ OR k$ = pravo$ OR k$ = levo$ OR k$ = CHR$(13) OR k$ = CHR$(27)
IF k$ = dolu$ THEN kde2 = kde2 + 1
IF k$ = nahoru$ THEN kde2 = kde2 - 1
IF k$ = levo$ THEN GOTO ram
IF k$ = pravo$ THEN GOTO text
IF k$ = CHR$(13) THEN GOTO enter
IF k$ = CHR$(27) THEN GOTO restart
GOTO pozadi
text:
IF kde3 = 0 THEN kde3 = 16
IF kde3 = 17 THEN kde3 = 1
COLOR 0
LOCATE kde3 + 4, 45: PRINT " "
LOCATE kde3 + 6, 45: PRINT " "
IF kde3 = 1 THEN LOCATE 21, 45: PRINT " "
IF kde3 = 16 THEN LOCATE 6, 45: PRINT " "
COLOR 15
LOCATE kde3 + 5, 45: PRINT CHR$(26)
LOCATE 25, 5: PRINT "             "
LOCATE 25, 26: PRINT "             "
LOCATE 25, 65: PRINT "             "
LOCATE 25, 45: PRINT "Barva ź. "; kde3 - 1
DO
k$ = INKEY$
LOOP UNTIL k$ = nahoru$ OR k$ = dolu$ OR k$ = pravo$ OR k$ = levo$ OR k$ = CHR$(13) OR k$ = CHR$(27)
IF k$ = dolu$ THEN kde3 = kde3 + 1
IF k$ = nahoru$ THEN kde3 = kde3 - 1
IF k$ = levo$ THEN GOTO pozadi
IF k$ = pravo$ THEN GOTO vybrany
IF k$ = CHR$(13) THEN GOTO enter
IF k$ = CHR$(27) THEN GOTO restart
GOTO text
vybrany:
IF kde4 = 0 THEN kde4 = 16
IF kde4 = 17 THEN kde4 = 1
COLOR 0
LOCATE kde4 + 4, 65: PRINT " "
LOCATE kde4 + 6, 65: PRINT " "
IF kde4 = 1 THEN LOCATE 21, 65: PRINT " "
IF kde4 = 16 THEN LOCATE 6, 65: PRINT " "
COLOR 15
LOCATE kde4 + 5, 65: PRINT CHR$(26)
LOCATE 25, 5: PRINT "             "
LOCATE 25, 26: PRINT "             "
LOCATE 25, 45: PRINT "             "
LOCATE 25, 65: PRINT "Barva ź. "; kde4 - 1
DO
k$ = INKEY$
LOOP UNTIL k$ = nahoru$ OR k$ = dolu$ OR k$ = pravo$ OR k$ = levo$ OR k$ = CHR$(13) OR k$ = CHR$(27)
IF k$ = dolu$ THEN kde4 = kde4 + 1
IF k$ = nahoru$ THEN kde4 = kde4 - 1
IF k$ = levo$ THEN GOTO text
IF k$ = pravo$ THEN GOTO ram
IF k$ = CHR$(27) THEN GOTO restart
IF k$ = CHR$(13) THEN GOTO enter
GOTO vybrany
enter:
KILL urcislozku$ + "pccomm.s_j"
b1$ = STR$(kde3 - 1)
b2$ = STR$(kde4 - 1)
b3$ = STR$(kde2 - 1)
b4$ = STR$(kde1 - 1)
barva1$ = RIGHT$(b1$, LEN(b1$) - 1)
barva2$ = RIGHT$(b2$, LEN(b2$) - 1)
barva3$ = RIGHT$(b3$, LEN(b3$) - 1)
barva4$ = RIGHT$(b4$, LEN(b4$) - 1)
OPEN urcislozku$ + "pccomm.s_j" FOR OUTPUT AS #1
WRITE #1, barva1$, barva2$, barva3$, barva4$
CLOSE #1
GOTO restart
END
kopirovat:
CLS
t1$ = "Zadej n zev souboru pro kopˇrov nˇ: "
t2$ = "Zadej cestu slo§ky, do kter‚ chceç kopˇrovat:"
t3$ = slozka$(sloz)
COLOR 11, 0:
LOCATE 10, 1: PRINT t1$
COLOR 2, 0
LOCATE 10, LEN(t1$) + 2: PRINT t3$
LOCATE 10, LEN(t1$) + LEN(t3$) + 2: INPUT "", nazev1$
COLOR 11, 0
LOCATE 12, 1: PRINT t2$
COLOR 2, 0
LOCATE 12, LEN(t2$) + 2: INPUT "", nazev2$
k$ = "copy " + CHR$(34) + slozka$(sloz) + nazev1$ + CHR$(34) + " " + CHR$(34) + nazev2$ + nazev1$ + CHR$(34)
COLOR 15
SHELL k$
SLEEP 1
GOTO prog
prejmenovat:
t1$ = "Zadej n zev souboru pro pýejmenov nˇ:"
t2$ = "Zadej nově n zev:"
CLS
COLOR 11, 0:
LOCATE 10, 1: PRINT t1$
COLOR 2, 0
LOCATE 10, LEN(t1$) + 2: INPUT "", nazev1$
COLOR 11, 0
LOCATE 12, 1: PRINT t2$
COLOR 2, 0
LOCATE 12, LEN(t2$) + 2: INPUT "", nazev2$
ON ERROR GOTO chybak
k$ = slozka$(sloz) + nazev1$
l$ = slozka$(sloz) + nazev2$
NAME k$ AS l$
GOTO prog
chybak:
CLS
l$ = "Chybně n zev souboru(slo§ky)"
BEEP:
LOCATE 12, ((80 - LEN(l$)) / 2): PRINT l$
SLEEP 1
RUN nazevprogramu$
presunout:
t1$ = "Zadej n zev souboru pro pýesunutˇ:"
t2$ = "Zadej cestu slo§ky pro pýesunutˇ:"
CLS
COLOR 11, 0:
LOCATE 10, 1: PRINT t1$
COLOR 2, 0
LOCATE 10, LEN(t1$) + 2: INPUT "", nazev1$
COLOR 11, 0
LOCATE 12, 1: PRINT t2$
COLOR 2, 0
LOCATE 12, LEN(t2$) + 2: INPUT "", nazev2$
k$ = slozka$(sloz) + nazev1$
l$ = nazev2$ + nazev1$
ON ERROR GOTO chybak
NAME k$ AS l$
GOTO prog
vymazat:
CLS
COLOR 11, 0
LOCATE 11
INPUT "Zadej jm‚no souboru, kterě chceç smazat: ", mazani$
IF mazani$ = "" THEN GOTO vymazat
PRINT
s = 45 + LEN(mazani$)
l$ = STRING$(s, "Í")
PLAY "o3l20 a3"
PRINT "É"; l$; "»"
PRINT "ş Opravdu chceç soubor "; mazani$; " smazat? (ENTER / ESC) ş"
PRINT "Č"; l$; "Ľ"
k$ = slozka$(sloz) + mazani$
DO
ppp$ = UCASE$(INKEY$)
LOOP UNTIL ppp$ = CHR$(13) OR ppp$ = CHR$(27)
IF ppp$ = CHR$(13) THEN GOTO vymaz
IF ppp$ = CHR$(27) THEN GOTO prog
vymaz:
ON ERROR GOTO chybak
KILL k$
GOTO prog
vytvor:
CLS
COLOR 11, 0
LOCATE 11, 1: INPUT "Zadej n zev nov‚ slo§ky: ", nazev$
j$ = slozka$(sloz) + nazev$
ON ERROR GOTO chybak
MKDIR j$
GOTO prog
napoveda:
CLS
OPEN urcislozku$ + "help.s_j" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, text$
COLOR barva1, barva3
PRINT text$
LOOP
CLOSE #1
DO
LOOP UNTIL INKEY$ <> ""
GOTO restart
konec:
i = 4
k1:
CLS
COLOR 15, 0
i = i + 1
IF i > 1000000 THEN GOTO k2
IF RIGHT$(LEFT$(urcislozku$, i), 1) = "\" THEN GOTO k2
LOCATE 1, 1: PRINT ":"; RIGHT$(LEFT$(urcislozku$, i), 1); ":"; urcislozku$
GOTO k1
k2:
z = z + 1
IF z <> 1 THEN GOTO k3
CLS
j$ = LEFT$(urcislozku$, i - 1)
k$ = RIGHT$(j$, LEN(j$) - 3)
PRINT k$
IF z = 1 THEN SHELL "cd " + k$: GOTO k1
IF z = 1 THEN q$ = k$
END
k3:
q$ = LEFT$(urcislozku$, i - 1)
j = LEN(k$) - LEN(h$)
IF j < 0 THEN END
h$ = RIGHT$(q$, (j + 1))
pp$ = "cd " + h$
SHELL pp$
programy:

END
cd:
k$ = slozka$(sloz) + RIGHT$(m$, (LEN(l$) - 3))
ON ERROR GOTO ree
FILES k$ + "\*.*"
slozka$(sloz) = slozka$(sloz) + RIGHT$(m$, (LEN(l$) - 3)) + "\"
m$ = ""
GOTO restart
END
ree:
OPEN urcislozku$ + "load.s_j" FOR OUTPUT AS #1
WRITE #1, slozka$(sloz), sloz
CLOSE #1
RUN nazevprogramu$