| 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 |