X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FSPOLECNI.BAS;fp=turbobasic%2FSPOLECNI.BAS;h=345a80945bac80358ad8a5f6b216022a617d8136;hb=6c1eebfd3f2dcd4be9ee64d739511f443c53fa33;hp=26f1aab2047dcdd3fdcff63ed3995797e5744ca2;hpb=5e4a6589793bee507096722ceada07d1918761d2;p=mirrors%2FPrograms.git diff --git a/turbobasic/SPOLECNI.BAS b/turbobasic/SPOLECNI.BAS old mode 100755 new mode 100644 index 26f1aab..345a809 --- a/turbobasic/SPOLECNI.BAS +++ b/turbobasic/SPOLECNI.BAS @@ -2,7 +2,7 @@ CLS COLOR 14,15 LOCATE 2,2 SCREEN 0 -INPUT " AHOJ,JAK SE Mµæ. DOBRE/SPATNE " ;AAA$ +INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$ IF AAA$= SPATNE THEN GOTO CXY IF AAA$= DOBRE THEN GOTO ASE @@ -18,7 +18,7 @@ GOTO SDF CXY: CLS LOCATE 2,2 -PRINT " TO JE æKODA. " +PRINT " TO JE Å KODA. " FOR A=0 TO 2000 NEXT A SOUND RND*100+40,40