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