COLOR 14,1\r
SCREEN 8\r
LOCATE 2,2\r
-INPUT " ZADEJTE STARTOVACÖ PIN " ;A\r
+INPUT " ZADEJTE STARTOVACÍ PIN " ;A\r
IF A<>007 THEN GOTO START\r
REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT PINEM 007\r
STOP\r
COLOR 4,15\r
SCREEN 1\r
LOCATE 2,2\r
-INPUT " ZAKàDUJTE " ;A$\r
+INPUT " ZAKÓDUJTE " ;A$\r
CLS\r
LOCATE 2,2\r
-INPUT " ODKàDUJTE " ;C$\r
+INPUT " ODKÓDUJTE " ;C$\r
IF A$=C$ THEN GOTO JEDNA\r
CLS\r
LOCATE 2,2\r
-PRINT " æPATNí KàD ( !!! ZABLOKOVµNO !!! ) "\r
+PRINT " ŠPATNÝ KÓD ( !!! ZABLOKOVÁNO !!! ) "\r
DO\r
SOUND RND*800+12,13\r
LOOP\r
screen 1\r
COLOR 14,1\r
LOCATE 2,2\r
-INPUT " ZAKàDUJTE ALARM " ;KOD$\r
+INPUT " ZAKÓDUJTE ALARM " ;KOD$\r
ZPED:\r
SCREEN 1\r
COLOR 14,1\r
LOCATE 2,2\r
cls\r
-INPUT " ODKàDUJTE ALARM " ;UNKOD$\r
+INPUT " ODKÓDUJTE ALARM " ;UNKOD$\r
IF UNKOD$=KOD$ THEN GOTO NOTALARM\r
SOUND 1000+12,100\r
GOTO ZPED\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\87 kl vesu Enter"\r
+print "stlaç klávesu Enter"\r
end\r
'-----------------------------------------------------------------------------\r
HELP :\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\87 kl vesu Enter"\r
+print "stlaç klávesu Enter"\r
end\r
'-----------------------------------------------------------------------------\r
HELP :\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\87 kl vesu Enter"\r
+print "stlaç klávesu Enter"\r
end\r
'-----------------------------------------------------------------------------\r
HELP :\r
SCREEN 0\r
COLOR 15,0\r
LOCATE 2,2\r
-PRINT "GRAN TOMET M GRAN TY(viz hvØzdy)JEN NA JEDEN D VKOV¡ VìSTýEL :*****"\r
+PRINT "GRANáTOMET Má GRANáTY(viz hvězdy)JEN NA JEDEN DáVKOVí VýSTřEL :*****"\r
LOCATE 3,2\r
-INPUT " M -LI SE VYSTýELIT STISKNI *ENTER* " ;V\r
+INPUT " Má-LI SE VYSTřELIT STISKNI *ENTER* " ;V\r
FOR A=2 TO 71\r
FOR I=0 TO 600\r
NEXT I\r
print "hustota....."hmotnost " g/cm3"\r
print "objem......."objem " cm3"\r
print "hmotnost.....? g"\r
-print "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"\r
+print "────────────────────────────────────────────────────"\r
print "hmotnost = hustota . objem"\r
print "hmotnost = "hmotnost" g . "objem " cm3"\r
print "hmotnost = "hustota" g/cm3"\r
print "hmotnost...."hmotnost " g"\r
print "objem......."objem " cm3"\r
print "hustota.....? g/cm3"\r
-print "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"\r
+print "────────────────────────────────────────────────────"\r
print "hustota = m:V"\r
print "hustota = "hmotnost" g:"objem " cm3"\r
print "hustota = "hustota" g/cm3"\r
PRINT " FLOPI DISC "\r
LOCATE 20,20\r
REM SCREEN 1\r
-PRINT " TOMµæ MUDRUÕKA "\r
+PRINT " TOMÁŠ MUDRUŇKA "\r
FOR TOMAS=0 TO 1000000\r
NEXT TOMAS\r
END\1a
\ No newline at end of file
SCREEN 9\r
COLOR 3,15\r
LOCATE 2,2\r
-INPUT " Pü¡KLAD (BEZ*=*) " ;A\r
+INPUT " PŘíKLAD (BEZ*=*) " ;A\r
CLS\r
LOCATE 2,2\r
PRINT " = " A\r
COLOR 0,15\r
SCREEN 0\r
LOCATE 2,2\r
- INPUT " S¬ÖTANEC= " ;S1\r
+ INPUT " SČÍTANEC= " ;S1\r
LOCATE 23,23\r
INPUT " " ;K$\r
IF K$="X" THEN GOTO KONEC\r
LOCATE 3,2\r
PRINT " + "\r
LOCATE 4,2\r
- INPUT " S¬ÖTANEC= " ;S2\r
+ INPUT " SČÍTANEC= " ;S2\r
LOCATE 5,2\r
PRINT " = "\r
V=S1+S2\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\87 kl vesu Enter"\r
+print "stlaç klávesu Enter"\r
end\r
'-----------------------------------------------------------------------------\r
HELP :\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\87 kl vesu Enter"\r
+print "stlaç klávesu Enter"\r
end\r
'-----------------------------------------------------------------------------\r
HELP :\r
NEXT A\r
\r
DO\r
- A$="TELEFONY CLUB exit! HESLA PAR\9b CI "\r
+ A$="TELEFONY CLUB exit! HESLA PARŤáCI "\r
D=5:X=5:Y=17:C=14\r
GOSUB MENU\r
ON MENU GOSUB TELEFON,DIR,KONEC,HELP,LOAD\r
'-----------------------------------------------------------------------------\r
DIR :\r
SOUND RND*150+12,13\r
-PRINT "KROTITEL\90 DUCH\85"\r
+PRINT "KROTITELÉ DUCHů"\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
SCREEN 0\r
-INPUT " ZADEJ 1 (çED ) NEBO JEN ENTER(MODR )";L\r
+INPUT " ZADEJ 1 (šEDá) NEBO JEN ENTER(MODRá)";L\r
IF L=1 THEN COLOR 0,15:GOTO RAZ\r
COLOR 14,1\r
\r
SCREEN 0\r
-INPUT " ZADEJ 1 (çED ) NEBO JEN ENTER(MODR )";L\r
+INPUT " ZADEJ 1 (šEDá) NEBO JEN ENTER(MODRá)";L\r
IF L=1 THEN COLOR 0,15:GOTO RAZ\r
COLOR 14,1\r
\r
'-----------------------------------------------------------------------------\r
TEXT :\r
LOCATE 10,5\r
-print "JESTLI ¦E NEUMÖTE NASOBIT:*KONEC*,!!!POZOR!!! NASOB2 ZNAMKUJE"\r
+print "JESTLI ŽE NEUMÍTE NASOBIT:*KONEC*,!!!POZOR!!! NASOB2 ZNAMKUJE"\r
RETURN\r
'-----------------------------------------------------------------------------\r
NASOB :\r
SCREEN 8\r
COLOR 14,1\r
LOCATE 2,2\r
-PRINT " PO- ¬J* M* PR 2.* ¬T/PS "\r
+PRINT " PO- ČJ* M* PR 2.* ČT/PS "\r
LOCATE 3,2\r
-PRINT " éT- M* ¬J* PR 1.* ¬J:SL* PLAVµNÖ* PLAVµNÖ:NµVRAT "\r
+PRINT " ÚT- M* ČJ* PR 1.* ČJ:SL* PLAVÁNÍ* PLAVÁNÍ:NÁVRAT "\r
LOCATE 4,2\r
-PRINT " ST- ¬J* M* Tv* ¬T* Hv "\r
+PRINT " ST- ČJ* M* Tv* ČT* Hv "\r
LOCATE 5,2\r
-PRINT " ¬T- M* ¬J* PR 2.* P¬* ¬T/PS "\r
+PRINT " ČT- M* ČJ* PR 2.* PČ* ČT/PS "\r
LOCATE 6,2\r
-PRINT " Pµ- ¬J* M* Vv* ¬T "\r
+PRINT " PÁ- ČJ* M* Vv* ČT "\r
SOUND 100+12,150\r
END\1a
\ No newline at end of file
SCREEN 8\r
COLOR 14,1\r
LOCATE 2,2\r
-PRINT " PO- ¬J* M* PR 2.* ¬T/PS "\r
+PRINT " PO- ČJ* M* PR 2.* ČT/PS "\r
LOCATE 3,2\r
-PRINT " éT- M* ¬J* PR 1.* ¬J:SL* PLAVµNÖ* PLAVµNÖ:NµVRAT "\r
+PRINT " ÚT- M* ČJ* PR 1.* ČJ:SL* PLAVÁNÍ* PLAVÁNÍ:NÁVRAT "\r
LOCATE 4,2\r
-PRINT " ST- ¬J* M* Tv* ¬T* Hv "\r
+PRINT " ST- ČJ* M* Tv* ČT* Hv "\r
LOCATE 5,2\r
-PRINT " ¬T- M* ¬J* PR 2.* P¬* ¬T/PS "\r
+PRINT " ČT- M* ČJ* PR 2.* PČ* ČT/PS "\r
LOCATE 6,2\r
-PRINT " Pµ- ¬J* M* Vv* ¬T "\r
+PRINT " PÁ- ČJ* M* Vv* ČT "\r
SOUND 100+12,70\r
END\1a
\ No newline at end of file
\r
VYP:\r
IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r
-REM pokud je B vØtç¡ ne§ A zmenç¡ se\r
+REM pokud je B větší než A zmenší se\r
B(I)=INT(B(I)*.9)\r
B(I)=B(I)+1\r
GOTO VYP\r
\r
VYSL:\r
-REM aby druhì s\9f¡tanec nebyl 0\r
+REM aby druhý sčítanec nebyl 0\r
IF C(I)=O THEN A(I)=A(I)+2:GOTO VYP\r
\r
REM VYSLEDEK JE V A(x)\r
B(I)=B(I)+1\r
\r
VYP:\r
-REM pokud je A vetsi ne§ 100 zmençit\r
+REM pokud je A vetsi než 100 zmenšit\r
IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP\r
C(I)=A(I)+B(I)\r
-REM pokud je sou\9fet vØtç¡ ne§ 100 zmençit B\r
+REM pokud je součet větší než 100 zmenšit B\r
IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP\r
\r
LOCATE I+5,1\r
COLOR 14,15\r
LOCATE 2,2\r
SCREEN 0\r
-INPUT " AHOJ,JAK SE Mµæ. DOBRE/SPATNE " ;AAA$\r
+INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$\r
IF AAA$= SPATNE THEN GOTO CXY\r
IF AAA$= DOBRE THEN GOTO ASE\r
\r
CXY:\r
CLS\r
LOCATE 2,2\r
-PRINT " TO JE æKODA. "\r
+PRINT " TO JE ŠKODA. "\r
FOR A=0 TO 2000\r
NEXT A\r
SOUND RND*100+40,40\r
CLS\r
COLOR 15,9\r
LOCATE 6,24\r
-PRINT " MEGA ZVUKY UKON¬I ENTER "\r
+PRINT " MEGA ZVUKY UKONČI ENTER "\r
LOCATE 7,24\r
PRINT " -------------------------------- "\r
\r
COLOR 14,1\r
SCREEN 0\r
LOCATE 2,2\r
-INPUT " ZADEJTE VSTUPNÖ PIN " ;A\r
+INPUT " ZADEJTE VSTUPNÍ PIN " ;A\r
IF A<>4545 THEN START\r
\r
GOTO POKR\r
'-----------------------------------------------------------------------------\r
DIR :\r
LOCATE 8,23\r
-PRINT "PRAVE STE SE DOVOLALI NA TEL.¬.:158"\r
+PRINT "PRAVE STE SE DOVOLALI NA TEL.Č.:158"\r
LOCATE 10,10\r
print "TADY POLICIE H.L.M.PRAHY"\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r
-print "stla\9f kl vesu*ENTER*"\r
+print "stlač klávesu*ENTER*"\r
END\r
'-----------------------------------------------------------------------------\r
HELP :\r
A$="ZKOUSKA OVLADANI TELEFONU"\r
CALL ECHO (5,16,A$,13)\r
-A$="STISKN·TE TELEFON1 NEBO POMOC"\r
+A$="STISKNĚTE TELEFON1 NEBO POMOC"\r
CALL ECHO (7,17,A$,13)\r
-A$="VIDITE U¦ TELEFONUJETE PO SITI MUDRUÕKANET"\r
+A$="VIDITE UŽ TELEFONUJETE PO SITI MUDRUŇKANET"\r
CALL ECHO (7,18,A$,13)\r
\r
\r
COLOR 14,1\r
SCREEN 1\r
LOCATE 2,2\r
-INPUT " ZADEJTE STARTOVACÖ PIN " ;A\r
+INPUT " ZADEJTE STARTOVACÍ PIN " ;A\r
IF A<>007 THEN GOTO START\r
REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT timto PROGR...\r
END\1a
\ No newline at end of file
COLOR 14,1\r
SCREEN 8\r
LOCATE 2,2\r
-INPUT " ZADEJTE STARTOVACÖ PIN " ;A\r
+INPUT " ZADEJTE STARTOVACÍ PIN " ;A\r
IF A<>007 THEN GOTO START\r
REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT PINEM 007\r
STOP\r
COLOR 14,1\r
SCREEN 1\r
LOCATE 2,2\r
- INPUT " ZADEJTE STARTOVACÖ PIN " ;A\r
+ INPUT " ZADEJTE STARTOVACÍ PIN " ;A\r
IF A<>007 THEN GOTO START\r
REM ZDE LZE DOPLNIT PROGRAM DO KTEREHO LZE VSTOUPIT PINEM 007\r
STOP\r
INPUT " JAK JSE JMENUJETE " ;A$\r
CLS\r
LOCATE 2,2\r
-PRINT " V¡T M U§IVATELE JM\82NEM "\r
+PRINT " VíTáM UžIVATELE JMéNEM "\r
LOCATE 3,2\r
PRINT A$\r
SOUND 100+12,80\r