Random Pattern Creator by Bengt & Jefa

Special Thanks to: Jonas Berggården <asm_agent@hotmail.com> 

"->" is the STO>-button

Prgm1:PATTERN
:2->Xmin
:2->Ymin
:65->Ymax
:97->Xmaz
:ClrDraw
:(Int Rand80)+6->A
:(Int Rand40)+6->B
:1->V
:1->W
:Lbl A
:PT-Chg(A,B
:If V=1
:A-1->A
:If W=1
:B+1->B
:If V=2
:A+1->A
:If W=2
:B-1->B
:If B<2
:1->W
:If A>97
:1->V
:If B>65
:2->W
:If A<2
:2->V
:Goto A