Znacie bajkę o Alibabie i czterdziestu rozbójnikach? Znacie! A więc zabawmy się razem. Pamiętacie na pewno, w jaki sposób sprytni zbójcy strzegli swych skarbów. Mieli kryjówkę w skale, która otwierała się tylko na odpowiednie hasło. (Pamiętacie jakie?) Hasło znał tylko herszt bandy i tylko on — do czasu aż w całą sprawę nie wmieszał się jeszcze sprytniejszy Alibaba — mógł otworzyć skarbiec. A może wy także macie jakieś skarby do ukrycia, może na przykład jakiś specjalny program, którego nie chcecie pokazać kolegom. Jest na to sposób. Wystarczy umieścić przed waszym programem przedstawiony tutaj podprogram. Pyta on o hasło i przechodzi do wykonywania właściwego programu tylko w przypadku podania prawidłowej odpowiedzi.100 LET haslo$="" 110 LET nrlitery = 0 120 PRINT "Podaj haslo" 130 LET litera$= INKEY$ 140 IF litera$="" THEN GOTO 130 150 LET haslo$=haslo$+litera$ 160 LET nrlitery=nrlitery+1 170 PRINT "*" 180 IF nrlitery190 PRINT 200 IF haslo$<>"sezam" THEN GOTO 220 210 GOTO 240 220 PRINT "OSZUKUJESZ!!!" 230 GOTO 100 240 PRINT "Haslo prawidlowe" 250 REM ******************************* 260 REM ***** P R O G R A M *********** 270 REM ******************************* Bajtek★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|