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