Мова програмування Turbo-Basic, Детальна інформація

NEXT

WEND

END SUB

'ГРАФIЧHИЙ РЕДАКТОР

'-------------------------------------

ON KEY (1) SUB 500

KEY (1) ON

SCREEN 2

200 x$=input$(1)

IF X$="S" OR x$="s" THEN END

IF X$="A" OR X$="a" THEN DRAW "L5"

IF X$="D" OR X$="d" THEN DRAW "R5"

IF X$="W" OR X$="w" THEN DRAW "U5"

IF X$="X" OR x$="x" THEN DRAW "D5"

IF X$="E" OR x$="e" THEN DRAW "E5"

IF X$="C" OR x$="c" THEN DRAW "F5"

IF X$="Z" OR x$="z" THEN DRAW "G5"

IF X$="Q" OR x$="q" THEN DRAW "H5"

IF X$="F" OR x$="f" THEN DRAW "C0 U0 C1 BL5 U0"

IF X$="H" OR x$="h" THEN DRAW "C0 U0 C1 BR5 U0"

IF X$="B" OR x$="b" THEN DRAW "C0 U0 C1 BD5 U0"

IF X$="T" OR x$="t" THEN DRAW "C0 U0 C1 BU5 U0"

GOTO 200

500 END

'СОРТУВАHHЯ СЛIВ

'-------------------------------

CLS

LOCATE 10,25

INPUT "Кiлькiсть слів, що сортуються: ";N

DIM X$(N)