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

DO\r
CLS\r
SCREEN 8\r
COLOR 14,1\r
LOCATE 2,2\r
INPUT " !!! ZADEJ HESLO !!! " ; ALO$\r
IF ALO$ = "COBRA 11" THEN GOTO POGR\r
LOOP\r
POGR:\r
 GOTO POKR\r
REM PIN= COBRA 11\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
DO\r
Commit	Line	Data
0f95cc4b H	1	DO\r
	2	CLS\r
	3	SCREEN 8\r
	4	COLOR 14,1\r
	5	LOCATE 2,2\r
	6	INPUT " !!! ZADEJ HESLO !!! " ; ALO$\r
	7	IF ALO$ = "COBRA 11" THEN GOTO POGR\r
	8	LOOP\r
	9	POGR:\r
	10	GOTO POKR\r
	11	REM PIN= COBRA 11\r
	12	POKR :\r
	13	SCREEN 8 : CLS\r
	14	COLOR 14,1\r
	15	RESTORE BARVY\r
	16	BARVY :\r
	17	\r
	18	DATA 8,7,15,15,7,8\r
	19	FOR A=1 TO 6\r
	20	READ C\r
	21	LINE (A,A)-(640-A,A),C\r
	22	LINE (A,106-A)-(640-A,106-A),C\r
	23	LINE (A,A)-(A,106-A),C\r
	24	LINE (640-A,A)-(640-A,106-A),C\r
	25	LINE (A,110+A)-(640-A,110+A),C\r
	26	LINE (A,200-A)-(640-A,200-A),C\r
	27	LINE (A,110+A)-(A,200-A),C\r
	28	LINE (640-A,110+A)-(640-A,200-A),C\r
	29	NEXT A\r
	30	\r
	31	DO\r
	32