#gr "place ";x;" ";y for i = 1 to len(rest$) step 2 x1=asc(mid$(rest$,i, 1))-34-45 y1=asc(mid$(rest$,i+1,1))-34-45 x=x+x1 y=y+y1 #gr "goto ";x;" ";y next
gr$ = "place ";x;" ";y;";" for i = 1 to len(rest$) step 2 x1=asc(mid$(rest$,i, 1))-34-45 y1=asc(mid$(rest$,i+1,1))-34-45 x=x+x1 y=y+y1 gr$ = gr$;"goto ";x;" ";y;";" next #gr gr$