Commit | Line | Data |
---|---|---|
0f95cc4b H |
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\r | |
10 | FOR 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 | |
20 | NEXT A\r | |
21 | \r | |
22 | DO\r | |
23 | A$="TELEFON DIR exit HELP LOAD "\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 | |
27 | LOOP\r | |
28 | \r | |
29 | '-----------------------------------------------------------------------------\r | |
30 | TELEFON :\r | |
31 | print "ahoj"\r | |
32 | RETURN\r | |
33 | '-----------------------------------------------------------------------------\r | |
34 | DIR :\r | |
35 | \r | |
36 | RETURN\r | |
37 | '-----------------------------------------------------------------------------\r | |
38 | KONEC :\r | |
6c1eebfd | 39 | print "stlaç klávesu Enter"\r |
0f95cc4b H |
40 | end\r |
41 | '-----------------------------------------------------------------------------\r | |
42 | HELP :\r | |
43 | A$="Jste uzivatelem pocitacove site C&P NETWORK. Jste vybaven harddiskem se"\r | |
44 | CALL ECHO (5,16,A$,13)\r | |
45 | A$="softwarovym vybavenim. Mate k dispozici modem, takze muzete navazat"\r | |
46 | CALL ECHO (7,17,A$,13)\r | |
47 | A$="spojeni s jinym uzivatelem C&P NETWORK."\r | |
48 | CALL ECHO (7,18,A$,13)\r | |
49 | stop\r | |
50 | \r | |
51 | CALL ANYKEY\r | |
52 | CALL CLWD\r | |
53 | RETURN\r | |
54 | '-----------------------------------------------------------------------------\r | |
55 | LOAD :\r | |
56 | \r | |
57 | RETURN\r | |
58 | '-----------------------------------------------------------------------------\r | |
59 | \r | |
60 | \r | |
61 | END\r | |
62 | '-----------------------------------------------------------------------------\r | |
63 | ' podprogram ECHO\r | |
64 | ' postupny tisk textu obsazeneho v retezcove promenne A$\r | |
65 | ' na souradnice X a Y\r | |
66 | ' barvou C\r | |
67 | \r | |
68 | SUB ECHO(X,Y,A$,C)\r | |
69 | COLOR C\r | |
70 | LOCATE Y,X\r | |
71 | FOR A=1 TO LEN(A$)\r | |
72 | PRINT MID$ (A$,A,1);\r | |
73 | SOUND 1200,.2\r | |
74 | SOUND 900,.2\r | |
75 | SOUND 600,.2\r | |
76 | FOR I=1 TO 200\r | |
77 | NEXT I\r | |
78 | NEXT A\r | |
79 | END SUB\r | |
80 | \r | |
81 | '--------------------------------------------------------------------------\r | |
82 | \r | |
83 | MENU :\r | |
84 | ' PODPROGRAM 'MENU'\r | |
85 | \r | |
86 | ' X a Y jsou textove souradnice menu-okna\r | |
87 | ' A$ obsahuje text okna\r | |
88 | ' D je pocet polozek (radku) v menu\r | |
89 | ' W=1 - pouze vypis okna , W=0 - vypis i vyber z menu\r | |
90 | ' C je barva okna\r | |
91 | ' v promenne MENU podprogram vraci cislo zvolene polozky\r | |
92 | \r | |
93 | L=LEN (A$)/D : MENU = 1 : M = MENU+.0001\r | |
94 | COLOR C,9:LOCATE Y,X\r | |
95 | PRINT CHR$(201);\r | |
96 | FOR A=1 TO L+2 : PRINT CHR$(205); : NEXT A\r | |
97 | PRINT CHR$ (187);\r | |
98 | FOR A= 1 TO LEN(A$) STEP L\r | |
99 | LOCATE Y+A/L+1,X\r | |
100 | PRINT CHR$(186);" ";MID$(A$,A,L);" ";CHR$(186);\r | |
101 | NEXT A\r | |
102 | LOCATE Y+A/L+1,X: PRINT CHR$(200);\r | |
103 | FOR A=1 TO L+2 : PRINT CHR$(205); : NEXT A\r | |
104 | PRINT CHR$(188);\r | |
105 | IF W=1 THEN W=0 : RETURN\r | |
106 | \r | |
107 | DO\r | |
108 | I$ = INKEY$\r | |
109 | IF LEN(I$)=2 THEN IF ASC(MID$(I$,2,1))=72 THEN MENU = MENU - 1\r | |
110 | IF LEN(I$)=2 THEN IF ASC(MID$(I$,2,1))=80 THEN MENU = MENU + 1\r | |
111 | IF MENU < 1 THEN MENU = D\r | |
112 | IF LEN(I$)=1 THEN IF ASC(I$)=13 THEN EXIT LOOP\r | |
113 | IF MENU > D THEN MENU = 0 : EXIT LOOP \r | |
114 | IF MENU <> M THEN LOCATE Y+M,X+L+2 : PRINT " ";:LOCATE Y+M,X+1 : PRINT " ";\r | |
115 | IF MENU <> M THEN LOCATE Y+MENU,X+L+2:COLOR 11:PRINT CHR$(174);:LOCATE Y+MENU,X+1:PRINT CHR$(175);:COLOR C\r | |
116 | M = MENU\r | |
117 | LOOP\r | |
118 | I=MENU\r | |
119 | W=1:C=0:GOSUB MENU\r | |
120 | MENU = I : COLOR 15\r | |
121 | RETURN\r | |
122 | '-----------------------------------------------------------------------------\r | |
123 | SUB CLWD\r | |
124 | 'Clear window\r | |
125 | FOR A=120 TO 190\r | |
126 | LINE (8,A)-(632,A),0\r | |
127 | NEXT A\r | |
128 | END SUB\r | |
129 | '-----------------------------------------------------------------------------\r | |
130 | SUB ANYKEY\r | |
131 | DO\r | |
132 | IF INKEY$<>"" THEN EXIT LOOP\r | |
133 | C=C+1:IF C>15 THEN C=1\r | |
134 | COLOR C : LOCATE 24,55:PRINT "STLAC LIBOVOLNOU KLAVESU";\r | |
135 | LOOP\r | |
136 | END SUB\r | |
137 | '-----------------------------------------------------------------------------\r | |
138 | \r | |
139 | \1a |