[mirrors/Programs.git] / turbobasic / PROGRAM1.BAS

 GOTO POKR\r
\r
\r
\r
POKR :\r
SCREEN 8 : CLS\r
COLOR 14,1\r
RESTORE BARVY\r
BARVY :\r
\r
    DATA 8,7,15,15,7,8\r
FOR A=1 TO 6\r
   READ C\r
   LINE (A,A)-(640-A,A),C\r
   LINE (A,106-A)-(640-A,106-A),C\r
   LINE (A,A)-(A,106-A),C\r
   LINE (640-A,A)-(640-A,106-A),C\r
   LINE (A,110+A)-(640-A,110+A),C\r
   LINE (A,200-A)-(640-A,200-A),C\r
   LINE (A,110+A)-(A,200-A),C\r
   LINE (640-A,110+A)-(640-A,200-A),C\r
NEXT A\r
\r
REM zadani polozek adresare\r
DO\r
   A$="NASOB HELP  POZDR NASO2 KONEC "\r
   D=5:X=5:Y=17:C=14\r
   GOSUB MENU\r
   ON MENU GOSUB NASOB,TEXT,NIC1,NASOB2,KONEC\r
LOOP\r
\r
'-----------------------------------------------------------------------------\r
TEXT :\r
LOCATE 10,5\r
Commit	Line	Data
0f95cc4b H	1	GOTO POKR\r
	2	\r
	3	\r
	4	\r
	5	POKR :\r
	6	SCREEN 8 : CLS\r
	7	COLOR 14,1\r
	8	RESTORE BARVY\r
	9	BARVY :\r
	10	\r
	11	DATA 8,7,15,15,7,8\r
	12	FOR A=1 TO 6\r
	13	READ C\r
	14	LINE (A,A)-(640-A,A),C\r
	15	LINE (A,106-A)-(640-A,106-A),C\r
	16	LINE (A,A)-(A,106-A),C\r
	17	LINE (640-A,A)-(640-A,106-A),C\r
	18	LINE (A,110+A)-(640-A,110+A),C\r
	19	LINE (A,200-A)-(640-A,200-A),C\r
	20	LINE (A,110+A)-(A,200-A),C\r
	21	LINE (640-A,110+A)-(640-A,200-A),C\r
	22	NEXT A\r
	23	\r
	24	REM zadani polozek adresare\r
	25	DO\r
	26	A$="NASOB HELP POZDR NASO2 KONEC "\r
	27	D=5:X=5:Y=17:C=14\r
	28	GOSUB MENU\r
	29	ON MENU GOSUB NASOB,TEXT,NIC1,NASOB2,KONEC\r
	30	LOOP\r
	31	\r
	32	'-----------------------------------------------------------------------------\r
	33	TEXT :\r
	34	LOCATE 10,5\r
	35