(С) Вадим Пыльцов, г.Надым.
Окна.
Эта программа, строящая "ок-
на", может быть полезна для
оформления диалога (меню) в сис-
темах, создаваемых Вами.
10 REM WINDOWS
20 LET X=3: LET Y=3: LET W=12:
LET H=8: LET V=1
30 GO SUB 1000
40 STOP
1000 REM X,Y,W,H,V
1010 LET T$="/": LET M$="/": LET
B$="Ы"
1030 LET V$=""
1040 FOR I=1 TO W
1050 LET T$=T$+"/"
1060 LET M$=M$+" "
1070 LET B$=B$+"Ы"
1080 NEXT I
1090 LET T$=T$+"/": LET M$=M$+"/
"
1100 LET B$=B$+"Ы"
1105 LET V$="": IF V=0 THEN GO
TO 1500
1110 FOR I=1 TO V
1120 LET V$=V$+"ЫЫ"
1130 NEXT I
1500 PRINT AT Y,X;T$
1510 FOR I=1 TO H
1520 PRINT AT Y+I,X;M$;: IF I>=V
THEN PRINT V$
1530 NEXT I
1540 PRINT AT Y+I,X;T$;V$
1550 IF V=0 THEN RETURN
1560 FOR I=1 TO V
1570 PRINT AT Y+H+I+1,X+V*2;B$
1580 NEXT I
1590 RETURN
В строке 20 задаются следующие
параметры (в знакоместах): X и Y
- координаты верхнего левого угла
окна; W - ширина окна; H - высота
окна; V - ширина отбрасываемой
тени. В строках 1010, 1070, 1100,
1120 используется символ блочной
графики CHR$ 143. В целом это до-
вольно эффектная программа, кото-
рую можно использовать почти вез-
де, модернизируя те или иные ее
части по мере надобности.
