... can
a) handle your (y,x) to screen address and
x&y to a defined address ... transfer a window defined by x,y, width and height?

... X(Y)=(6+X(Y)): LET R=INT ((X(Y)/256)):
LET X(Y)=x(Y)-(256*R): PLOT X(Y ... ),64+(Y ... *2):
NEXT Y ...

... 0: INK 6: CLS : LET x=15: FOR f=1 TO ... 1000:
PRINT AT 0,x;CHR$ 144: PRINT AT 21 ... x=x+(INKEY$="0")-(INKEY$="1"):
LET x=x+(x31): LET f=1000*(ATTR ... (0,x)6): NEXT f ...

... x=x+(INKEY$="0")-(INKEY$="1"):
LET x=x+(x31): LET f=1000*(ATTR ... (0,x)6): NEXT ... what 'USR 3282' and '1000*ATTR' etc. does. :lol:
x;" v ": PRINT : FOR ... INKEY$: LET x=x-(a$="o" AND x>10)+(a ...

... what 'USR 3282' and '1000*ATTR' etc. does. :lol:[/QUOTE]

The 1000*(ATTR... part sets the variable that ... 0: INK 7: CLS : LET x=15: FOR f=0 TO ... 1:
PRINT AT 0,x; INK 6;CHR$ 144: FOR ... : LET x=x+(INKEY$="0" AND x0):
LET f=ATTR (0,x)7 ...

... TO 7: READ X: POKE USR C$+Y,X: NEXT Y
25 DATA ... TO 7: READ X: POKE USR C$+Y,X: NEXT Y
45 DATA ... TO 7: READ X: POKE USR C$+Y,X: NEXT Y
65 DATA ...

... ...).

10 LET x=0: LET y=10
20 LET ... s$
40 PRINT AT y,x;s$(f); FLASH 1;"|"; FLASH ... x=x+1
70 IF x>31 THEN LET x=0: LET y=y ... +1
80 NEXT f

x and y ...

... giving the value of X to all the rows ... SUB 200
16 LET X=1
17 PRINT " ... u": FOR Y=0 TO 7: POKE U+Y,X: NEXT Y: NEXT U ... u": FOR Y=0 TO 7: POKE U+Y,X: NEXT Y: NEXT U ... SUB 200
56 LET X=3
57 PRINT " ... u": FOR Y=0 TO 7: POKE U+Y,X: NEXT Y: NEXT U ...

... INKEY$: LET x=x+(k=56)*(x
1): LET y=y+(k=54)
y=y-(b>1):
LET x=x-q: LET m=-y*x: NEXT ... y=y+(b>1): LET
x=x+q: LET c$=a$(y+1,x ... +9*(c$="Q"): PRINT AT y,x;"#"
AND c$="Q": NEXT ... >9): LET a$(y+1, Dr BEEP June 2007 Development

And de peace del a resist ane (I did French 'O' level - and failed*)

B-ATTR-y Charger!



* I lied. I didn't fail at French. I didn't do French. I did engineering instead. And I passed at this! Toot sweet!

... - and failed*)

B-ATTR-y Charger!

... the SPACE INVERSErs

ATTR-ATTACK

ATTRIBUTE CLASH ...

B-ATTR-ies

B-ATTR-y Charger

... /> 2000 POKE DFILE+1+33*Y+X,C[/code]

Time ...

... /> 1 DIM a(5): READ x,y,m,p,d,s:
k$=INKEY$: LET x=x+(k$="p")*(x1): LET y=y+(k$="
a ... ")*(y1): LET c
$=SCREEN$ (y,x): LET ...

... /> 1 DIM a(5): READ x,y,m,p,d,s:
k$=INKEY$: LET x=x+(k$="p")*(x1): LET y=y+(k$="
a ... ")*(y1): LET c
$=SCREEN$ (y,x): LET ...

...
IM a(5): READ x,y,m,p,d,s: FOR ... $: LET
x=x+(k$="p")*(x
0): LET y=y+(k$="a")*(y0 ... ): LET c$=SCREEN$ (y,x)
: LET ...

... "):
DIM a(5): READ x,y,m,p,d,s: FOR ... $:
LET x=x+(k$="p")*(x0):
LET y=y+(k$="a")*(y0 ... ):
LET c$=SCREEN$ (y,x): LET c ...

... o$(8,w):
FOR x=1 TO 8:
READ ... USR "b"-x,k:
READ o$(x):
NEXT x:
FOR ... t=1 TO 4:
LET y ... $:
LET x=x+(k=1)*(x1):
LET y=y+(k=16)*(y1 ... ,0:
LET o$(1,x)=CHR$ 144:
NEXT t ...

... use reuse k instead of y.[/QUOTE]

I realized ...

... />
[CODE]
...AT y(h),x(h);...
[/CODE]


[CODE]
...AT y,x;...
[/CODE]

You ... variables a,b (simply calculate x,y directly) and c (simply compare ...

... should be
AT y,x;"/\";AT y+1,x;"\/";
,"^","/~\","H-H",0 ...

... /> INK 6;AT y(h),x(h);"o";AT y,x;"@"
[/CODE]

... /> INK 6;AT y(h),x(h);"o";AT y,x;"@"
[/CODE]

... one dimensional variables instead of X,Y? I doubt this idea would ... works best when printing at Y,X coordinates can be reduced to ...