Commit | Line | Data |
---|---|---|
1 | GOTO POKR\r | |
2 | \r | |
3 | POKR :\r | |
4 | SCREEN 8 : CLS\r | |
5 | COLOR 14,1\r | |
6 | RESTORE BARVY\r | |
7 | BARVY :\r | |
8 | \r | |
9 | DATA 8,7,15,15,7,8,0,8,7,15,15,7,8,0,8,7,15,15,7,8,0,0,8,8,8,8,8,7,7,7,7,7,7,15,15,15,15,15,7,7,7,7,7,8,8,8,8,8,8,8,8,8,\r | |
10 | FOR A=1 TO 10\r | |
11 | REM ZAPLNENO 52\r | |
12 | REM 1 CARA 6 NEBO 7\r | |
13 | REM 2 CARY 13 NEBO 14\r | |
14 | REM PUL CARY 3\r | |
15 | REM PUL 2.CARY 10\r | |
16 | REM PUL ZAPLNENI 35\r | |
17 | READ C\r | |
18 | LINE (A,A)-(640-A,A),C\r | |
19 | LINE (A,106-A)-(640-A,106-A),C\r | |
20 | LINE (A,A)-(A,106-A),C\r | |
21 | LINE (640-A,A)-(640-A,106-A),C\r | |
22 | LINE (A,110+A)-(640-A,110+A),C\r | |
23 | LINE (A,200-A)-(640-A,200-A),C\r | |
24 | LINE (A,110+A)-(A,200-A),C\r | |
25 | LINE (640-A,110+A)-(640-A,200-A),C\r | |
26 | NEXT A\r | |
27 | \r | |
28 | DO\r | |
29 | A$="TELEFON DIR exit HELP LOAD "\r | |
30 | D=5:X=5:Y=17:C=14\r | |
31 | GOSUB MENU\r | |
32 | ON MENU GOSUB TELEFON,DIR,KONEC,HELP,LOAD\r | |
33 | LOOP\r | |
34 | \r | |
35 | '-----------------------------------------------------------------------------\r | |
36 | TELEFON :\r | |
37 | print "ahoj"\r | |
38 | RETURN\r | |
39 | '-----------------------------------------------------------------------------\r | |
40 | DIR :\r | |
41 | CALL ANYKEY\r | |
42 | CALL CLWD\r | |
43 | RETURN\r | |
44 | RETURN\r | |
45 | '-----------------------------------------------------------------------------\r | |
46 | KONEC :\r | |
47 |