23 lines
432 B
Plaintext
23 lines
432 B
Plaintext
PROGRAM:OEL
|
|
01 CLS
|
|
02 COL 2:FBOX 0,0,50,60
|
|
03 COL 6
|
|
04 ? @2,4;%15;%15;%15;%15;%15;%15
|
|
05 ? @20,4;%15;%15;%15;%15;%15;%15
|
|
06 FOR A=3 TO 19
|
|
07 ? @A,4;%15
|
|
08 ? @A,9;%15
|
|
09 NEXT
|
|
10 ? @2,12;%15;%15;%15;%15;%15;%15
|
|
11 FOR A=3 TO 19
|
|
12 ? @A,12;%15
|
|
13 NEXT
|
|
14 ? @20,12;%15;%15;%15;%15;%15;%15
|
|
15 ? @11,12;%15;%15;%15;%15
|
|
16 FOR A=2 TO 19
|
|
17 ? @A,20;%15
|
|
18 NEXT
|
|
19 ? @20,20;%15;%15;%15;%15;%15;%15
|
|
20 WAIT 4
|
|
21 GOTO 3
|
|
# |