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 |