Ещё пример: GEN.ICQ-bot
не из учебника.
[php]
- 5 cls
- 10 gen%=2+mod(rnd(0),3)
(генератор чисел от 0 до 5)
- 11 input"ввод:",you$
(задаёте вопросы,например-ты mobile basic?)
- 12 if gen%=0 then goto 100 (если генератор равняет к нулю то переход на строку 100)
- 13 if gen%=1 then goto 200
- 14 if gen%=2 then goto 300
- 15 if gen%=3 then goto 400
- 16 if gen%=4 then goto 500
- 17 if gen%=5 then goto 600
======================
  [/php]

[php]
           вывод ответов:
- 100 print"ДА":sleep 500:goto 5
- 200 print"НЕТ":sleep 500:goto 5
- 300 print"НЕ ПОНЯЛ"
- 301 print"ВОПРОС!":sleep 500:goto 5
- 400 print"ПОВТОРИ":sleep 500:goto 5
- 500 print"НЕ ЗНАЮ!":sleep:goto 5
- 600 print"САМ ТАКОЙ":sleep 500:goto 5
[/php]

Анализатор нажатих клавиш
переменная кл% хранит цифру нажатой клавиши от 1 до 9

Искривитель картинки, делал когдато чень давно

"ШИФРАТОР"
[php]
- 5 cls
- 10 input"слово:",f$
- 11 input"код:",c%
- 12 For x%=1 to Len(f$)
- 13 a$=MID$(f$,x%,1)
- 14 z%=ASC(a$)+c%
- 15 print chr$(z%)
- 17 NEXT x%
[/php]

В программе де-шифратор вводите зашифрованое слово и код зашифровки и вам выдаст,то слово которое зашифровали.

"ДЕ-ШИФРАТОР"
[php]
- 5 cls
- 10 input"слово-zs:",f$
- 11 input"код-zc",c%
- 12 For x%=1 to Len(f$)
- 13 a$=MID$(f$,x%,1)
- 14 z%=ASC(a$)-c%
- 15 print chr$(z%)
- 16 NEXT x%
[/php]

Программа взломщег:
Вам останеться только выбрать из предложенных 255 вариантов
нужный (это не так уж много)

Переименуйте тему! Зайдя сюда, понадеялся увидеть настоящие исходники МВ, а тут исходники программ на МВ

кому нужны исходники игры ping pong?(код мой на игру забил делать надоело) графа и звук в комплекте, если кому надо…