Busted!

I long suspected this: George fakes posts by logging on as someone else to make his forum look active.

http://quickbasicforum.eamped.com/topic725.html?sid=6852792509a68f7a22e793d797d3a6b0

Sun Aug 26 11:01: "TheNOOB" posts a question. TheNOOB is George. The question: "I tried this before and have failed Now it's your turn to help me. I tried to generate random clouds and I drew the clouds using CIRCLE and PAINT. Could someone write me a simple demonstration?"

Sun Aug 26 11:10: "George Williams" posts. His solution, developed in 9 minutes is shown below.

I'm out of that forum. It is fraud.

Mac

Notice all the QBasic incompatibilities. As George has no concept of how to code in QBasic.

2;
SET x,y,y1,x1, AS VARIABLE
GET clouds(x,y=1,9)-(x1,y1=19,17)-(DRW(1-9))
DRAW clouds
GET pos(x,y)-(x1,y1)
KEEP pos[WRAP(x,y,x1,y1)

1;
DATA 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0
DATA 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0
DATA 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
DATA 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0
DATA 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0
DATA 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0
DATA 0, 0, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0
DATA 0, 0, 0, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0
SEND DATA
LOCATE DATA 1-5(x,y)
LOCATE DATA 5-8(x1,y1)
SET x1(RND)
SET y1(RND)
SET x(RND)
SET x(RND)
IF pos(ERROR)
RETURN 2
STOP IF
RETURN 1



QBasic rules.