extra yield
[mirrors/Programs.git] / turbobasic / 1998 / 3RD-PA.RTY / MENU.BAS
... / ...
CommitLineData
1 GOTO POKR\r
2\r
3POKR :\r
4SCREEN 8 : CLS\r
5COLOR 14,1\r
6RESTORE BARVY\r
7BARVY :\r
8\r
9 DATA 8,7,15,15,7,8\r
10FOR A=1 TO 6\r
11 READ C\r
12 LINE (A,A)-(640-A,A),C\r
13 LINE (A,106-A)-(640-A,106-A),C\r
14 LINE (A,A)-(A,106-A),C\r
15 LINE (640-A,A)-(640-A,106-A),C\r
16 LINE (A,110+A)-(640-A,110+A),C\r
17 LINE (A,200-A)-(640-A,200-A),C\r
18 LINE (A,110+A)-(A,200-A),C\r
19 LINE (640-A,110+A)-(640-A,200-A),C\r
20NEXT A\r
21\r
22DO\r
23 A$="TELEFON DIR exit HELP TELEF "\r
24 D=5:X=5:Y=17:C=14\r
25 GOSUB MENU\r
26 ON MENU GOSUB TELEFON,DIR,KONEC,HELP,LOAD\r
27LOOP\r
28\r
29'-----------------------------------------------------------------------------\r
30TELEFON :\r
31print "ahoj"\r
32RETURN\r
33'-----------------------------------------------------------------------------\r
34DIR :\r
35\r
36RETURN\r
37'-----------------------------------------------------------------------------\r
38KONEC :\r
39