"SCREEN"?->A:A/1.62->B:"REDUCT"?->C :Range 0,A,C,0,B,C:Plot
0,B:Plot A,B :Line:Plot A,0:Line:Plot A%2,B%2 Lbl 4:Ran#>=.5=>Goto 0:X-Int
((X/C)Ran#+.5)->X:Goto 1 Lbl 0:X+Int (((A-X)/C)Ran#+.5)->X Lbl 1:Ran#>=.5=>Goto
2:Y-Int ((Y/C)Ran#+.5)->Y:Goto 3 Lbl 2:Y+Int (((B-Y)/C)Ran#+.5)->Y Lbl
3:Plot X,Y:Line:Goto 4