DECLARE SUB SALAM ()
DECLARE SUB HELP ()
DECLARE SUB BORD ()
DECLARE FUNCTION GIAS! (E!, F!, G!, H!)
DECLARE SUB GOD ()
DECLARE SUB START ()
DECLARE SUB LOSS ()
DECLARE SUB WIN ()
DECLARE SUB KHAT ()
DECLARE SUB HEADRIGHT ()
DECLARE SUB KADR ()
DECLARE SUB HEAD ()
DECLARE SUB POINTS ()
DECLARE SUB THANK ()
DECLARE SUB MENU ()
DECLARE SUB AGAIN ()
DIM SHARED A, B, C, D
1 CLS : RANDOMIZE TIMER
COLOR , 1
FOR I = 1 TO 24
FOR J = 1 TO 80
LOCATE I, J: PRINT " "
SOUND 50 + J, 1 / 43
NEXT J, I
FOR I = 0 TO 5000: NEXT
ON KEY(1) GOSUB F1
ON KEY(2) GOSUB F2
ON KEY(3) GOSUB F3
ON KEY(4) GOSUB F4
A = 1 + INT(6 * RND)
2 B = 1 + INT(6 * RND)
IF B = A THEN GOTO 2
3 C = 1 + INT(6 * RND)
IF C = B OR C = A THEN GOTO 3
4 D = 1 + INT(6 * RND)
IF D = C OR D = B OR D = A THEN GOTO 4
SELECT CASE A
       CASE 1
            A = 1
       CASE 2
            A = 4
       CASE 3
            A = 14
       CASE 4
            A = 2
       CASE 5
            A = 15
       CASE 6
            A = 8
END SELECT
SELECT CASE B
       CASE 1
            B = 1
       CASE 2
            B = 4
       CASE 3
            B = 14
       CASE 4
            B = 2
       CASE 5
            B = 15
       CASE 6
            B = 8
END SELECT
SELECT CASE C
       CASE 1
            C = 1
       CASE 2
            C = 4
       CASE 3
            C = 14
       CASE 4
            C = 2
       CASE 5
            C = 15
       CASE 6
            C = 8
END SELECT
SELECT CASE D
       CASE 1
            D = 1
       CASE 2
            D = 4
       CASE 3
            D = 14
       CASE 4
            D = 2
       CASE 5
            D = 15
       CASE 6
            D = 8
END SELECT
GOD
START
KEY(1) ON
DO
LOOP UNTIL INKEY$ = CHR$(13)
COLOR , 1
FOR I = 5 TO 18
LOCATE I, 17: PRINT STRING$(27, " ")
NEXT I
KADR
KHAT
POINTS
HEAD
BORD
MENU
Y = 1
KEY(2) ON
KEY(3) ON
KEY(4) ON
L = 22: M = 17: K = 0: T = 0
DO
5 A$ = INKEY$
IF A$ = "" THEN GOTO 5
SOUND 1000, 1
K = K + 1
SELECT CASE A$
       CASE "1"
            P(K) = 1
       CASE "2"
            P(K) = 4
       CASE "3"
            P(K) = 14
       CASE "4"
            P(K) = 2
       CASE "5"
            P(K) = 15
       CASE "6"
            P(K) = 8
       CASE ELSE
            GOTO 5
END SELECT
SELECT CASE K
       CASE 2
            IF P(2) = P(1) THEN
            BEEP: K = 1: GOTO 5
            END IF
       CASE 3
            IF P(3) = P(2) OR P(3) = P(1) THEN
            BEEP: K = 2: GOTO 5
            END IF
       CASE 4
            IF P(4) = P(3) OR P(4) = P(2) OR P(4) = P(1) THEN
            BEEP: K = 3: GOTO 5
            END IF
END SELECT
COLOR P(K)
LOCATE L, M: PRINT "��"
SELECT CASE M
       CASE 17
            E = P(K)
       CASE 20
            F = P(K)
       CASE 23
            G = P(K)
       CASE 26
            H = P(K)
END SELECT
IF M = 26 THEN
   L = L - 2: M = 14: K = 0
   N = GIAS(E, F, G, H)
   V = N MOD 10
   U = N \ 10
   IF U = 0 AND V = 2 THEN
      Q = 1: R = 1: S = 0: T = 0
   END IF
   IF U = 0 AND V = 3 THEN
      Q = 1: R = 1: S = 1: T = 0
   END IF
   IF U = 0 AND V = 4 THEN
      Q = 1: R = 1: S = 1: T = 1
   END IF
   IF U = 1 AND V = 1 THEN
      Q = 4: R = 1: S = 0: T = 0
   END IF
   IF U = 1 AND V = 2 THEN
      Q = 4: R = 1: S = 1: T = 0
   END IF
   IF U = 1 AND V = 3 THEN
      Q = 4: R = 1: S = 1: T = 1
   END IF
   IF U = 2 AND V = 0 THEN
      Q = 4: R = 4: S = 0: T = 0
   END IF
   IF U = 2 AND V = 1 THEN
      Q = 4: R = 4: S = 1: T = 0
   END IF
   IF U = 2 AND V = 2 THEN
      Q = 4: R = 4: S = 1: T = 1
   END IF
   IF U = 3 AND V = 0 THEN
      Q = 4: R = 4: S = 4: T = 0
   END IF
   IF U = 3 AND V = 1 THEN
      Q = 4: R = 4: S = 4: T = 1
   END IF
   IF U = 4 AND V = 0 THEN
      Q = 4: R = 4: S = 4: T = 4
   END IF
   LOCATE L + 2, 11
   COLOR Q, 7: PRINT CHR$(2);
   COLOR R, 7: PRINT CHR$(2);
   COLOR S, 7: IF S <> 0 THEN PRINT CHR$(2);  ELSE LOCATE L + 2, 14
   COLOR T, 7: IF T <> 0 THEN PRINT CHR$(2)
END IF
IF T = 4 THEN GOTO 10
IF L = 4 THEN GOTO 20
M = M + 3
LOOP UNTIL W = 1
'***************************************************************************'
10 HEADRIGHT
   SLEEP (5)
   WIN
   AGAIN
15 B$ = INKEY$
   IF B$ = "" THEN GOTO 15
   IF B$ = "F" OR B$ = "f" THEN
    Y = 0
    GOTO 1
   END IF
   THANK
   COLOR , 4: CLS
   SALAM
   END
20 HEADRIGHT
   SLEEP (5)
   LOSS
   AGAIN
25 B$ = INKEY$
   IF B$ = "" THEN GOTO 25
   IF B$ = "F" OR B$ = "f" THEN
    Y = 0
    GOTO 1
   END IF
   THANK
   COLOR , 5: CLS
   SALAM
   END
F1:
   HELP
   B$ = INPUT$(1)
   COLOR , 1
   FOR I = 6 TO 19
   LOCATE I, 31: PRINT STRING$(31, " ")
   NEXT I
   IF Y = 0 THEN START ELSE BORD
   RETURN
F2:
   SOUND 2000, 2
   HEADRIGHT
   SLEEP (5)
   Y = 0
   GOTO 1
F3:
   SOUND 2000, 2
   HEADRIGHT
   SLEEP (5)
   AGAIN
30 B$ = INKEY$
   IF B$ = "" THEN GOTO 30
   IF B$ = "F" OR B$ = "f" THEN
   Y = 0
   GOTO 1
   END IF
   THANK
   COLOR , 2: CLS
   SALAM
   END
F4:
   SOUND 2000, 2
   COLOR , 3: CLS
   SALAM
   END
'***************************************************************************'

SUB AGAIN
COLOR 0, 6
PLAY "G"
LOCATE 13, 9: PRINT CHR$(201) + STRING$(22, "�") + CHR$(187)
FOR I = 14 TO 15
LOCATE I, 9: PRINT CHR$(186) + " "
LOCATE I, 31: PRINT " " + CHR$(186)
NEXT I
LOCATE 16, 9: PRINT CHR$(200) + STRING$(22, "�") + CHR$(188)
COLOR 2, 5
LOCATE 14, 11: PRINT " ������ ������ ���� "
LOCATE 15, 11: PRINT " <����>������ ����� "
COLOR 0, 3
LOCATE 14, 33: PRINT " "
LOCATE 15, 33: PRINT " "
LOCATE 16, 33: PRINT " "
LOCATE 17, 10: PRINT "                        "
END SUB

SUB BORD
COLOR 0, 5
SOUND 200, 10
LOCATE 14, 38: PRINT CHR$(218) + STRING$(15, CHR$(196)) + CHR$(191)
FOR I = 15 TO 21
COLOR 0, 5
LOCATE I, 38
IF I MOD 2 <> 0 THEN
PRINT CHR$(179); SPC(15); CHR$(179)
ELSE
PRINT CHR$(179) + STRING$(15, CHR$(196)) + CHR$(179)
END IF
COLOR , 3
LOCATE I, 55: PRINT " "
NEXT I
LOCATE I, 55: PRINT " "
LOCATE 23, 39: PRINT STRING$(17, " ")
COLOR 0, 5
LOCATE 22, 38: PRINT CHR$(192) + STRING$(15, CHR$(196)) + CHR$(217)
COLOR 15, 5
LOCATE 15, 40: PRINT "����������=F1"
LOCATE 17, 40: PRINT "�� �� ����=F2"
LOCATE 19, 40: PRINT "���� �����=F3"
LOCATE 21, 40: PRINT "����������=F4"
'**************************************************************************'
COLOR 0, 14
LOCATE 5, 36: PRINT CHR$(218) + STRING$(19, CHR$(196)) + CHR$(191)
FOR I = 6 TO 10
COLOR 0, 14
LOCATE I, 36
IF I <> 8 THEN
PRINT CHR$(179); SPC(19); CHR$(179)
ELSE
PRINT CHR$(179) + STRING$(19, CHR$(205)) + CHR$(179)
END IF
COLOR , 7
LOCATE I, 57: PRINT " "
NEXT I
LOCATE I, 57: PRINT " "
LOCATE 12, 37: PRINT STRING$(21, " ")
COLOR 0, 14
LOCATE 11, 36: PRINT CHR$(192) + STRING$(19, CHR$(196)) + CHR$(217)
COLOR 15, 14
LOCATE 6, 37: PRINT "���� ����� ����"
LOCATE 7, 37: PRINT "������� �� ����"
LOCATE 9, 37: PRINT "��� ����� ����"
LOCATE 10, 37: PRINT "������� �� ����"
COLOR 0, 14: LOCATE 6, 52: PRINT ":": LOCATE 9, 52: PRINT ":"
COLOR 4, 14: LOCATE 6, 54: PRINT CHR$(2)
COLOR 1, 14: LOCATE 9, 54: PRINT CHR$(2)
END SUB

FUNCTION GIAS (E, F, G, H)
I = 0: J = 0
IF E = A THEN I = I + 1
IF F = B THEN I = I + 1
IF G = C THEN I = I + 1
IF H = D THEN I = I + 1
IF E = B OR E = C OR E = D THEN J = J + 1
IF F = A OR F = C OR F = D THEN J = J + 1
IF G = A OR G = B OR G = D THEN J = J + 1
IF H = A OR H = B OR H = C THEN J = J + 1
GIAS = I * 10 + J
END FUNCTION

SUB GOD
COLOR 14, 2
SOUND 200, 1
LOCATE 1, 50: PRINT CHR$(201) + STRING$(12, CHR$(205)) + CHR$(187)
LOCATE 2, 50: PRINT CHR$(186); SPC(12); CHR$(186)
LOCATE 3, 50: PRINT CHR$(200) + STRING$(12, CHR$(205)) + CHR$(188)
COLOR 1, 2
LOCATE 2, 52: PRINT "��� �� ��"
COLOR , 7
LOCATE 2, 64: PRINT " "
LOCATE 3, 64: PRINT " "
LOCATE 4, 51: PRINT STRING$(14, " ")
END SUB

SUB HEAD
COLOR 0, 5
LOCATE 2, 11: PRINT CHR$(201) + STRING$(16, CHR$(205)) + CHR$(187)
LOCATE 3, 11: PRINT CHR$(186); SPC(16); CHR$(186)
LOCATE 4, 11: PRINT CHR$(200) + STRING$(16, CHR$(205)) + CHR$(188)
COLOR 26, 6
LOCATE 3, 13: PRINT " �쐐� �쐐�� "
END SUB

SUB HEADRIGHT
COLOR 0, 7
SOUND 3000, 2
FOR I = 2 TO 4
LOCATE I, 11: PRINT SPC(17); " "
FOR J = 0 TO 1000
NEXT J, I
COLOR A
LOCATE 3, 17: PRINT "��"
COLOR B
LOCATE 3, 20: PRINT "��"
COLOR C
LOCATE 3, 23: PRINT "��"
COLOR D
LOCATE 3, 26: PRINT "��"
END SUB

SUB HELP
COLOR 15, 5
SOUND 400, 2
SOUND 1000, 4
LOCATE 6, 31: PRINT CHR$(201) + STRING$(28, CHR$(205)) + CHR$(187)
FOR I = 7 TO 17
COLOR 15, 5
LOCATE I, 31: PRINT CHR$(186); SPC(28); CHR$(186)
COLOR , 4
LOCATE I, 61: PRINT " "
NEXT I
LOCATE I, 61: PRINT " "
COLOR 15, 5
LOCATE 18, 31: PRINT CHR$(200) + STRING$(28, CHR$(205)) + CHR$(188)
LOCATE 6, 42: PRINT "��������"
COLOR 14, 4
LOCATE 19, 32: PRINT STRING$(30, " ")
COLOR 14, 5
LOCATE 7, 33: PRINT "��� ����� ��� 򓐚� ����"
LOCATE 8, 33: PRINT "������ ��� �� �� ��� ����"
LOCATE 9, 33: PRINT "�� �� ����� ���� �������"
LOCATE 10, 33: PRINT "�� �󓐐� ����� ����� ����"
LOCATE 11, 33: PRINT "��� �� �� ������ �����"
LOCATE 12, 33: PRINT "���� ���� ����� ��������"
LOCATE 13, 33: PRINT "��� ���� ������� �����"
LOCATE 14, 33: PRINT "� ��� ������ ����� ���� ��"
LOCATE 15, 33: PRINT "� ��� �������� ���� �����"
LOCATE 16, 33: PRINT "�� �� ����� �� ����� �����"
LOCATE 17, 33: PRINT "�������� ���� ����� ������"
END SUB

SUB KADR
COLOR 0, 2
SOUND 100, 12
FOR K = 1 TO 23
ON K GOTO W, V, U, T, S, R, Q, P, O, N, M, L, K, J, I, H, G, F, E, D, C, B, A
A: LOCATE K - 22, 9: PRINT CHR$(0); CHR$(201) + STRING$(18, CHR$(205)) + CHR$(187); CHR$(0)
B: LOCATE K - 21, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
C: LOCATE K - 20, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
D: LOCATE K - 19, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
E: LOCATE K - 18, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
F: LOCATE K - 17, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
G: LOCATE K - 16, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
H: LOCATE K - 15, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
I: LOCATE K - 14, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
J: LOCATE K - 13, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
K: LOCATE K - 12, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
L: LOCATE K - 11, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
M: LOCATE K - 10, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
N: LOCATE K - 9, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
O: LOCATE K - 8, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
P: LOCATE K - 7, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
Q: LOCATE K - 6, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
R: LOCATE K - 5, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
S: LOCATE K - 4, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
T: LOCATE K - 3, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
U: LOCATE K - 2, 9: PRINT CHR$(0); CHR$(186); SPC(18); CHR$(186); CHR$(0)
V: LOCATE K - 1, 9: PRINT CHR$(210); CHR$(186); SPC(18); CHR$(186); CHR$(211)
W: LOCATE K, 9: PRINT CHR$(0); CHR$(200) + STRING$(4, CHR$(205)) + CHR$(207) + STRING$(13, CHR$(205)) + CHR$(188); CHR$(0)
FOR I = 0 TO 7000: NEXT I
NEXT K
END SUB

SUB KHAT
COLOR 0, 7
SOUND 120, 6
LOCATE 5, 15: PRINT CHR$(194)
FOR I = 6 TO 22
LOCATE I, 15
IF I MOD 2 = 0 AND I <= 22 THEN
PRINT CHR$(179) + " "
ELSE
PRINT CHR$(197)
END IF
FOR J = 0 TO 100
NEXT J, I
FOR I = 5 TO 22 STEP 2
LOCATE I, 11: PRINT STRING$(4, CHR$(196))
LOCATE I, 16: PRINT STRING$(13, CHR$(196))
FOR J = 0 TO 100
NEXT J, I
END SUB

SUB LOSS
COLOR 16, 3
LOCATE 10, 12: PRINT "��������������ͻ"
LOCATE 11, 12: PRINT "�������������ʻ�"
LOCATE 12, 12: PRINT "��            ��"
LOCATE 13, 12: PRINT "�������������˼�"
LOCATE 14, 12: PRINT "��������������ͼ"
COLOR 30
LOCATE 12, 14: PRINT " ������ �� "
COLOR 7, 1
LOCATE 11, 28: PRINT "�"
LOCATE 12, 28: PRINT " "
LOCATE 13, 28: PRINT "�"
LOCATE 14, 28: PRINT " "
LOCATE 15, 13: PRINT "����������������"
PLAY "G2C3F4D7A4B5G2"
END SUB

SUB MENU
COLOR 9, 7
FOR K = 80 TO 63 STEP -1
ON K - 62 GOTO MI, MI, MI, MI, MI, MI, MI, MI, MI, MI, MH, MG, MF, ME, MD, MC, MB, MA
MI:
FOR I = 10 TO 20
COLOR 9, 14: LOCATE I, K + 8: PRINT " "
NEXT I
LOCATE I, K + 8: PRINT " "
COLOR , 14: LOCATE 22, K + 8: PRINT " "
MH:
COLOR 9, 7
LOCATE 9, K + 7: PRINT CHR$(187)
FOR I = 10 TO 20
LOCATE I, K + 7
IF I MOD 2 = 0 THEN
PRINT "�"
ELSE
PRINT CHR$(186)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 7: PRINT CHR$(188)
COLOR , 14: LOCATE 22, K + 7: PRINT " "
MG:
COLOR 9, 7
LOCATE 9, K + 6: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 6
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 6: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 6: PRINT "�"
COLOR 4, 7: LOCATE 12, K + 6: PRINT "�"
COLOR 14, 7: LOCATE 14, K + 6: PRINT "�"
COLOR 2, 7: LOCATE 16, K + 6: PRINT "�"
COLOR 15, 7: LOCATE 18, K + 6: PRINT "�"
COLOR 0, 7: LOCATE 20, K + 6: PRINT "�"
COLOR , 14: LOCATE 22, K + 6: PRINT " "
MF:
COLOR 9, 7
LOCATE 9, K + 5: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 5
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 5: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 5: PRINT "="
COLOR 4, 7: LOCATE 12, K + 5: PRINT "="
COLOR 14, 7: LOCATE 14, K + 5: PRINT "="
COLOR 2, 7: LOCATE 16, K + 5: PRINT "="
COLOR 15, 7: LOCATE 18, K + 5: PRINT "="
COLOR 0, 7: LOCATE 20, K + 5: PRINT "="
COLOR , 14: LOCATE 22, K + 5: PRINT " "
ME:
COLOR 9, 7
LOCATE 9, K + 4: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 4
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 4: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 4: PRINT "�"
COLOR 4, 7: LOCATE 12, K + 4: PRINT "�"
COLOR 14, 7: LOCATE 14, K + 4: PRINT "�"
COLOR 2, 7: LOCATE 16, K + 4: PRINT "�"
COLOR 15, 7: LOCATE 18, K + 4: PRINT "�"
COLOR 0, 7: LOCATE 20, K + 4: PRINT "�"
COLOR , 14: LOCATE 22, K + 4: PRINT " "
MD:
COLOR 9, 7
LOCATE 9, K + 3: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 3
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 3: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 3: PRINT "�"
COLOR 4, 7: LOCATE 12, K + 3: PRINT "�"
COLOR 14, 7: LOCATE 14, K + 3: PRINT "�"
COLOR 2, 7: LOCATE 16, K + 3: PRINT "�"
COLOR 15, 7: LOCATE 18, K + 3: PRINT "�"
COLOR 0, 7: LOCATE 20, K + 3: PRINT "�"
COLOR , 14: LOCATE 22, K + 3: PRINT " "
MC:
COLOR 9, 7
LOCATE 9, K + 2: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 2
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 2: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 2: PRINT "�"
COLOR 4, 7: LOCATE 12, K + 2: PRINT "�"
COLOR 14, 7: LOCATE 14, K + 2: PRINT "�"
COLOR 2, 7: LOCATE 16, K + 2: PRINT "�"
COLOR 15, 7: LOCATE 18, K + 2: PRINT "�"
COLOR 0, 7: LOCATE 20, K + 2: PRINT "�"
COLOR , 14: LOCATE 22, K + 2: PRINT " "
MB:
COLOR 9, 7
LOCATE 9, K + 1: PRINT CHR$(205)
FOR I = 10 TO 20
LOCATE I, K + 1
IF I MOD 2 = 0 THEN
PRINT " "
ELSE
PRINT CHR$(196)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K + 1: PRINT CHR$(205)
COLOR 1, 7: LOCATE 10, K + 1: PRINT " "
COLOR 4, 7: LOCATE 12, K + 1: PRINT "�"
COLOR 14, 7: LOCATE 14, K + 1: PRINT " "
COLOR 2, 7: LOCATE 16, K + 1: PRINT " "
COLOR 15, 7: LOCATE 18, K + 1: PRINT "�"
COLOR 0, 7: LOCATE 20, K + 1: PRINT "�"
COLOR , 14: LOCATE 22, K + 1: PRINT " "
MA:
COLOR 9, 7
LOCATE 9, K: PRINT CHR$(201)
FOR I = 10 TO 20
LOCATE I, K
IF I MOD 2 = 0 THEN
PRINT "�"
ELSE
PRINT CHR$(186)
END IF
NEXT I
COLOR 9, 7: LOCATE 21, K: PRINT CHR$(200)'+ STRING$(6, CHR$(205)) + CHR$(188)
FOR I = 0 TO 500: NEXT I
COLOR , 1
IF K <> 63 THEN
 FOR I = 9 TO 22
  LOCATE I, 62: PRINT "                   "
 NEXT I
ELSE
 LOCATE 9, 71: PRINT "          "
 FOR I = 10 TO 22
  LOCATE I, 72: PRINT "         "
 NEXT I
END IF
NEXT K
SOUND 300, 4
END SUB

SUB POINTS
COLOR 0, 7
SOUND 200, 5
FOR I = 6 TO 22 STEP 2
LOCATE I, 11: PRINT STRING$(4, CHR$(15))
LOCATE I, 17
FOR J = 1 TO 4
PRINT "�� ";
FOR K = 0 TO 100
NEXT K, J, I
END SUB

SUB SALAM
COLOR 14
SLEEP (1)
SOUND 100, 10
LOCATE 7, 17: PRINT STRING$(47, "�")
FOR J = 0 TO 500: NEXT J
LOCATE 8, 17: PRINT "�" + STRING$(45, "�") + "�"
FOR J = 0 TO 500: NEXT J
LOCATE 9, 17: PRINT "��" + STRING$(43, "�") + "��"
FOR J = 0 TO 500: NEXT J
LOCATE 10, 17: PRINT "���" + STRING$(41, "�") + "���"
FOR J = 0 TO 500: NEXT J
FOR I = 11 TO 13
LOCATE I, 17: PRINT "����" + STRING$(39, " ") + "۲��"
FOR J = 0 TO 500: NEXT J
NEXT I
LOCATE 14, 17: PRINT "���" + STRING$(41, "�") + "���"
FOR J = 0 TO 500: NEXT J
LOCATE 15, 17: PRINT "��" + STRING$(43, "�") + "��"
FOR J = 0 TO 500: NEXT J
LOCATE 16, 17: PRINT "�" + STRING$(45, "�") + "�"
FOR J = 0 TO 500: NEXT J
LOCATE 17, 17: PRINT STRING$(47, "�")
SLEEP (1)
LOCATE 12, 24: PRINT "���줖 � ��� �� � ����� ���"
SOUND 500, 1
END SUB

SUB START
COLOR 6, 2
SOUND 600, 5
LOCATE 5, 17: PRINT CHR$(201) + STRING$(24, CHR$(205)) + CHR$(187)
FOR I = 6 TO 16
COLOR 6, 2
LOCATE I, 17: PRINT CHR$(186); SPC(24); CHR$(186)
COLOR , 4: LOCATE I, 43: PRINT " "
NEXT I
LOCATE I, 43: PRINT " "
COLOR 6, 2
LOCATE 17, 17: PRINT CHR$(200) + STRING$(24, CHR$(205)) + CHR$(188)
COLOR , 4
LOCATE 18, 18: PRINT STRING$(26, " ")
COLOR 1, 2
LOCATE 7, 19:  PRINT " ����� �� ���񓐐� "
LOCATE 8, 19:  PRINT " ������� ������ �� �� "
LOCATE 9, 19:  PRINT " ���� ���� ��� ��� "
LOCATE 10, 32: PRINT " �� �� "
LOCATE 11, 19: PRINT " ����� ��� ��� ��� ) "
LOCATE 12, 19: PRINT " F1 ����� ������ �� "
LOCATE 13, 19: PRINT "    ( ����� ������ �� "
COLOR 15, 2
LOCATE 10, 19: PRINT " ����� �����"
COLOR 20, 2
LOCATE 14, 19: PRINT " ����� ���� ��� ���� "
LOCATE 15, 19: PRINT " ���� ����� �� RETURN "
END SUB

SUB THANK
COLOR 14, 2
LOCATE 14, 12: PRINT CHR$(201) + STRING$(26, CHR$(205)) + CHR$(187)
FOR I = 15 TO 17
LOCATE I, 12: PRINT CHR$(186) + " "
LOCATE I, 38: PRINT " "; CHR$(186)
NEXT I
LOCATE 18, 12: PRINT CHR$(200) + STRING$(26, CHR$(205)) + CHR$(188)
COLOR 0, 2
LOCATE 15, 14: PRINT "�� ����� 򤘞� ������"
LOCATE 16, 14: PRINT "����� ���� ���� ���� ���"
LOCATE 17, 14: PRINT "     ���� ���� ����     "
COLOR 7, 4
FOR I = 15 TO 18
LOCATE I, 40
PRINT " "
NEXT I
LOCATE 19, 13: PRINT STRING$(28, " ")
FOR I = 100 TO 500 STEP 20
SOUND I, 1
NEXT I
FOR I = 500 TO 100 STEP -20
SOUND I, 1
NEXT I
END SUB

SUB WIN
COLOR 18, 4
LOCATE 10, 12: PRINT "��������������ͻ"
LOCATE 11, 12: PRINT "�������������ʻ�"
LOCATE 12, 12: PRINT "��            ��"
LOCATE 13, 12: PRINT "�������������˼�"
LOCATE 14, 12: PRINT "��������������ͼ"
COLOR 31, 4
LOCATE 12, 14: PRINT " !����� �� "
COLOR 7, 5
LOCATE 11, 28: PRINT "�"
LOCATE 12, 28: PRINT " "
LOCATE 13, 28: PRINT "�"
LOCATE 14, 28: PRINT " "
LOCATE 15, 13: PRINT "����������������"
PLAY "A8A3B5A3DCP7A8A3B5A3FEP9A8A3G2FE3FE2"
END SUB