X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;ds=sidebyside;f=turbobasic%2FTELEFON1.BAS;fp=turbobasic%2FTELEFON1.BAS;h=ab8aa8116ebb5b8c079731254d364ee28d5fd126;hb=6c1eebfd3f2dcd4be9ee64d739511f443c53fa33;hp=b2f578477631fe915b952c0b7b3f3e748a6953c9;hpb=5e4a6589793bee507096722ceada07d1918761d2;p=mirrors%2FPrograms.git diff --git a/turbobasic/TELEFON1.BAS b/turbobasic/TELEFON1.BAS old mode 100755 new mode 100644 index b2f5784..ab8aa81 --- a/turbobasic/TELEFON1.BAS +++ b/turbobasic/TELEFON1.BAS @@ -3,7 +3,7 @@ CLS COLOR 14,1 SCREEN 0 LOCATE 2,2 -INPUT " ZADEJTE VSTUPNÖ PIN " ;A +INPUT " ZADEJTE VSTUPNÍ PIN " ;A IF A<>4545 THEN START GOTO POKR @@ -42,21 +42,21 @@ RETURN '----------------------------------------------------------------------------- DIR : LOCATE 8,23 -PRINT "PRAVE STE SE DOVOLALI NA TEL.¬.:158" +PRINT "PRAVE STE SE DOVOLALI NA TEL.Č.:158" LOCATE 10,10 print "TADY POLICIE H.L.M.PRAHY" RETURN '----------------------------------------------------------------------------- KONEC : -print "stlaŸ kl vesu*ENTER*" +print "stlač klávesu*ENTER*" END '----------------------------------------------------------------------------- HELP : A$="ZKOUSKA OVLADANI TELEFONU" CALL ECHO (5,16,A$,13) -A$="STISKN·TE TELEFON1 NEBO POMOC" +A$="STISKNĚTE TELEFON1 NEBO POMOC" CALL ECHO (7,17,A$,13) -A$="VIDITE U¦ TELEFONUJETE PO SITI MUDRUÕKANET" +A$="VIDITE UŽ TELEFONUJETE PO SITI MUDRUŇKANET" CALL ECHO (7,18,A$,13)