DECLARE SUB moje (r!, text$)
CLS
menu1:
k = k + 1
jj = k
CLS
PRINT
PRINT
COLOR 10: PRINT "                            Jan Dvoý k company"
COLOR 2
PRINT
PRINT "      É"; STRING$(25, "Í"); "»"
c$ = STRING$(25, "Í")
m$ = STRING$(25, " ")
PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      Ě"; c$; "ą": PRINT "      ş"; m$; "ş": PRINT "      Č"; c$; "Ľ"
COLOR 4: LOCATE 6, 9: PRINT CHR$(26); "Nov  osoba"
COLOR 2: LOCATE 7, 10: PRINT "Zobrazit osobu"
LOCATE 8, 10: PRINT "Pýepsat osobu"
LOCATE 9, 10: PRINT "Vymazat osobu"
LOCATE 11, 10: PRINT "Konec"
IF k = 1 THEN moje 2, "F7 = vytvoýit adreses ý pod kterě se budou data ukl dat"
IF jj = 1 THEN GOTO adresar
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu2
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu5
IF p$ = CHR$(13) THEN GOTO new
adresar:
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(65) OR p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(65) THEN GOTO ano
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu2
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu5
IF p$ = CHR$(13) THEN GOTO new
ano:
ON ERROR GOTO ne
MKDIR "osoby"
GOTO menu1
ne:
CLS
moje 12, "Tato slo§ka ji§ existuje!!!"
SLEEP 0
RUN "diar.bas"
menu2:
CLS
PRINT
PRINT
COLOR 10: PRINT "                            Jan Dvoý k company"
COLOR 2
PRINT
PRINT "      É"; STRING$(25, "Í"); "»"
c$ = STRING$(25, "Í")
PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      Ě"; c$; "ą": PRINT "      ş"; m$; "ş": PRINT "      Č"; c$; "Ľ"
COLOR 2: LOCATE 6, 10: PRINT "Nov  osoba"
COLOR 4: LOCATE 7, 9: PRINT CHR$(26); "Zobrazit osobu"
COLOR 2: LOCATE 8, 10: PRINT "Pýepsat osobu"
LOCATE 9, 10: PRINT "Vymazat osobu"
LOCATE 11, 10: PRINT "Konec"
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu3
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu1
IF p$ = CHR$(13) THEN GOTO otevri
menu3:
CLS
PRINT
PRINT
COLOR 10: PRINT "                            Jan Dvoý k company"
COLOR 2
PRINT
PRINT "      É"; STRING$(25, "Í"); "»"
c$ = STRING$(25, "Í")
m$ = STRING$(25, " ")
PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      Ě"; c$; "ą": PRINT "      ş"; m$; "ş": PRINT "      Č"; c$; "Ľ"
COLOR 2: LOCATE 6, 10: PRINT "Nov  osoba"
COLOR 2: LOCATE 7, 10: PRINT "Zobrazit osobu"
COLOR 4: LOCATE 8, 9: PRINT CHR$(26); "Pýepsat osobu"
COLOR 2: LOCATE 11, 10: PRINT "Konec"
LOCATE 9, 10: PRINT "Vymazat osobu"
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu4
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu2
IF p$ = CHR$(13) THEN GOTO prepis
menu4:
CLS
PRINT
PRINT
COLOR 10: PRINT "                            Jan Dvoý k company"
COLOR 2
PRINT
PRINT "      É"; STRING$(25, "Í"); "»"
c$ = STRING$(25, "Í")
m$ = STRING$(25, " ")
PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      Ě"; c$; "ą": PRINT "      ş"; m$; "ş": PRINT "      Č"; c$; "Ľ"
COLOR 2: LOCATE 6, 10: PRINT "Nov  osoba"
COLOR 2: LOCATE 7, 10: PRINT "Zobrazit osobu"
COLOR 4: LOCATE 9, 9: PRINT CHR$(26); "Vymazat osobu"
COLOR 2: LOCATE 8, 10: PRINT "Pýepsat osobu"
COLOR 2: LOCATE 11, 10: PRINT "Konec"
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu5
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu3
IF p$ = CHR$(13) THEN GOTO vymaz
menu5:
CLS
PRINT
PRINT
COLOR 10: PRINT "                            Jan Dvoý k company"
COLOR 2
PRINT
PRINT "      É"; STRING$(25, "Í"); "»"
c$ = STRING$(25, "Í")
m$ = STRING$(25, " ")
PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      ş"; m$; "ş": PRINT "      Ě"; c$; "ą": PRINT "      ş"; m$; "ş": PRINT "      Č"; c$; "Ľ"
COLOR 2: LOCATE 6, 10: PRINT "Nov  osoba"
COLOR 2: LOCATE 7, 10: PRINT "Zobrazit osobu"
LOCATE 9, 10: PRINT "Vymazat osobu"
LOCATE 8, 10: PRINT "Pýepsat osobu"
COLOR 4: LOCATE 11, 9: PRINT CHR$(26); "Konec"
DO
p$ = INKEY$
LOOP UNTIL p$ = CHR$(0) + CHR$(80) OR p$ = CHR$(0) + CHR$(72) OR p$ = CHR$(13)
IF p$ = CHR$(0) + CHR$(80) THEN GOTO menu1
IF p$ = CHR$(0) + CHR$(72) THEN GOTO menu4
IF p$ = CHR$(13) THEN RUN "menu.bas"
new:
CLS
PRINT
COLOR 7
ON ERROR GOTO nelze
LOCATE 1, 1: FILES "osoby/*."
LOCATE 2, 1: PRINT STRING$(80, " ")
LOCATE 3, 1: PRINT STRING$(80, " ")
LOCATE 4, 1: PRINT STRING$(80, " ")
LOCATE 5, 1: PRINT STRING$(80, " ")
LOCATE 6, 1: PRINT STRING$(80, " ")
LOCATE 7, 1: PRINT STRING$(80, " ")
LOCATE 8, 1: PRINT STRING$(80, " ")
LOCATE 9, 1: PRINT STRING$(80, " ")
LOCATE 10, 1: PRINT STRING$(80, " ")
LOCATE 1, 1: INPUT "Pýezdˇvka (Max 8 znak…): ", prez$
IF LEN(prez$) > 8 THEN GOTO new
IF LCASE$(prez$) = "konec" THEN END
IF prez$ = "" THEN GOTO new
mez$ = "                        "
ON ERROR GOTO novy
OPEN "osoby/" + prez$ FOR INPUT AS #1
CLS
PRINT
DO WHILE NOT EOF(1)
INPUT #1, Rec1$
LOOP
LOCATE 10, 30: PRINT "Tento soubor ji§ existuje!"
SLEEP 2
RUN "diar.bas"
novy:
ON ERROR GOTO nelze
OPEN "osoby/" + prez$ FOR OUTPUT AS #1
DO
INPUT "Jm‚no a pýˇjmenˇ: ", name$
INPUT "Ulice: ", street$
INPUT "Poçta: ", post$
INPUT "PS¬  : ", psc$
INPUT "Tel. dom… : ", teld$
INPUT "Tel. mobil: ", telm$
WRITE #1, "Jm‚no a pýˇjmenˇ: " + name$, mez$, "Adresa: " + street$, "        " + post$, "        " + psc$, mez$, "Tel. dom… : " + teld$, "Tel. mobil: " + telm$
LOOP WHILE UCASE$(r$) = "Y"
CLOSE #1
GOTO menu1
otevri:
COLOR 7
CLS
LOCATE 1, 30: PRINT "Otevýˇt soubor"
ON ERROR GOTO nelze
FILES "osoby/*."
INPUT "Zadej jm‚no: ", jmeno$
IF jmeno$ = "" THEN GOTO otevri
ON ERROR GOTO menu14
OPEN "osoby/" + jmeno$ FOR INPUT AS #1
CLS
PRINT
DO WHILE NOT EOF(1)
INPUT #1, Rec1$
PRINT Rec1$
LOOP
CLOSE #1
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOTO menu2
vymaz:
COLOR 7
CLS
LOCATE 1, 30: PRINT "Vymazat soubor"
ON ERROR GOTO nelze
FILES "osoby/*."
INPUT "Zadej pýezdˇvku: ", delete$
COLOR 11
s = 37 + LEN(delete$)
l$ = STRING$(s, "Í")
PLAY "o3l20 a3"
PRINT "É"; l$; "»"
PRINT "ş Opravdu chceç soubor "; delete$; " smazat? (A/N) ş"
PRINT "Č"; l$; "Ľ"
DO
p2$ = UCASE$(INKEY$)
LOOP UNTIL p2$ = CHR$(65) OR p2$ = CHR$(78)
ON ERROR GOTO menu14
IF p2$ = CHR$(65) THEN KILL "osoby/" + delete$
IF p2$ = CHR$(78) THEN GOTO menu4
GOTO menu1
prepis:
CLS
COLOR 7
LOCATE 1, 30: PRINT "Pýepsat soubor"
ON ERROR GOTO nelze
FILES "osoby/*."
INPUT "Pýezdˇvka: ", prez$
PRINT
PRINT "1. pýejmenovat / 2. pýepsat "; prez$; " ? (1/2)"
DO
otezk$ = INKEY$
LOOP UNTIL otezk$ = "1" OR otezk$ = "2"
IF otezk$ = "1" THEN GOTO kkkk
IF otezk$ = "2" THEN GOTO kkkkk
kkkk:
PRINT
PRINT "Star‚ jm‚no: "; prez$
INPUT "Zadej nov‚ jm‚no: ", new$
ON ERROR GOTO menu24
NAME "osoby/" + prez$ AS "osoby/" + new$
GOTO menu3
kkkkk:    
ON ERROR GOTO menu24
OPEN "osoby/" + prez$ FOR INPUT AS #1
PRINT
DO WHILE NOT EOF(1)
INPUT #1, Rec1$
PRINT Rec1$
LOOP
CLOSE #1
s = 38 + LEN(prez$)
l$ = STRING$(s, "Í")
PLAY "o3l20 a3"
PRINT
PRINT "É"; l$; "»"
PRINT "ş Opravdu chceç soubor "; prez$; " pýepsat? (A/N) ş"
PRINT "Č"; l$; "Ľ"
DO
p2$ = UCASE$(INKEY$)
LOOP UNTIL p2$ = CHR$(65) OR p2$ = CHR$(78)
IF p2$ = CHR$(65) THEN GOTO pr2
IF p2$ = CHR$(78) THEN GOTO menu3
pr2:
CLS
CLS
mez$ = "                        "
OPEN "osoby/" + prez$ FOR OUTPUT AS #1
ON ERROR GOTO menu3
DO
INPUT "Jm‚no a pýˇjmenˇ: ", name$
INPUT "Ulice: ", street$
INPUT "Poçta: ", post$
INPUT "PS¬  : ", psc$
INPUT "Tel. dom… : ", teld$
INPUT "Tel. mobil: ", telm$
WRITE #1, "Jm‚no a pýˇjmenˇ: " + name$, mez$, "Adresa: " + street$, "        " + post$, "        " + psc$, mez$, "Tel. dom… : " + teld$, "Tel. mobil: " + telm$
LOOP WHILE UCASE$(r$) = "Y"
CLOSE #1
GOTO menu3
menu14:
CLS
LOCATE 12, 30: PRINT "Tento soubor neexistuje!!!"
DO
LOOP UNTIL INKEY$ = CHR$(13)
RUN "diar.bas"
menu24:
CLS
LOCATE 12, 30: PRINT "Chybně n zev!!!"
DO
LOOP UNTIL INKEY$ = CHR$(13)
RUN "diar.bas"
nelze:
CLS
moje 12, "Neexistuje slo§ka OSOBY!!!"
SLEEP 0
RUN "diar.bas"

SUB moje (r, text$)
k = LEN(text$)
LOCATE r, ((80 - k) / 2): PRINT text$
END SUB