Hовi команди системи Turbo-Basic, Детальна інформація

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)

FOR I = 1 TO N

CLS

LOCATE 10, 20 : PRINT "Введiть ";i;" слово";

INPUT X$(I)

NEXT I

CLS

FOR I = 1 TO N - 1

FOR J = I + 1 TO N

IF X$(I) > X$(J) THEN SWAP X$(I), X$(J)

NEXT J, I

FOR I=1 TO N

LOCATE I+3,30

PRINT X$(I)

NEXT I

END