1 CLS
2 ?CHR$(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
3 FOR Y=1 TO 17 STEP 2
4 ?CHR$(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)
5 ?CHR$(1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1)
6 NEXT
7 ?CHR$(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)
8 ?CHR$(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
9 FOR Y=0 TO 9
10 FOR X=0 TO 9
11 N=[X+Y*10]/2
12 U=X*2+1
13 V=Y*2+1
14 IF N%2 LC U+1,V:?CHR$(1)
15 N=N/2
16 IF N%2 LC U,V+1:?CHR$(1)
17 NEXT
18 NEXT
19 IF D=0 C=#E2
20 IF D=1 C=#E1
21 IF D=2 C=#E3
22 IF D=3 C=#E0
23 LC P*2+1,Q*2+1:?CHR$(C)
24 LC 19,19:?"G"
25 LC 22,0:?"X,Y=";P;",";Q
26 LC 22,2:?"TIME="
27 K=INKEY()
28 LC 27,2:?TICK()/60
29 IF K<>32 GOTO 27
30 LRUNFILE()-1