This lists the relative PLOT coordinates to construct each ... LET p=POINT (x,y): LET c$(x+1)=CHR$ 143 ... p: LET p(8-y,x+1)=p
50 ... y,x+1) THEN PLOT x,y: PRINT x;",";y;" ";
80 NEXT x: ... character in turn, calculates the PLOT points, then erases it ...

... 1 TO 22
140 PLOT X,Y
150 DRAW ... ,175
160 LET X=X+W
170 NEXT ... 1 TO 19
200 PLOT X,Y
210 DRAW ... DIAGONAL LINES
240 PLOT 0,0
250 ... 255,175
260 PLOT 0,175
270 ... DRAW BORDER
280 PLOT 0,0
290 ...

... TO 1000
120 LET X=INT (RND*256)
130 ... =INT (RND*176)
140 PLOT X,Y
150 NEXT N ...

... .
[code]
10 FOR x=-100 TO 100: LET xm ... =x/2-25: LET xn=xm* ... xm: LET xp=x/2+25: LET xq=xp ...

... inner Y loop with valid plot points so the majority of ... .
[code]
10 FOR x=-100 TO 100: LET xm ... =x/2-25: LET xn=xm* ... xm: LET xp=x/2+25: LET xq=xp ...

I give up. I can save a bit of time by changing the BASIC from this:
[code]
10 FOR x=-100 TO 100: LET xm=x/2-25: LET xn=xm*xm: LET xp=x/2+25: LET xq=xp*xp
20 LET ys=200-(xn-(xn-xq AND xq

... .
[code]
10 FOR x=0 TO 200: LET xx ... =(x-150)/2:
IF ABS ... ;14.142136 THEN LET xx=(x-50)/2
20 IF ...

... : LET h2=150: REM centre x
20 LET k=46 ... =30: REM 1/2 major (x) axis
40 LET b ... h2-h1:
60 FOR x=h-a TO h+a ... : LET xh=x-h:
FOR y=0 ... *xh/a2)+0.5: PLOT x,k-y: PLOT x,k+y: NEXT y ...
80 NEXT x
90 ...

... ,$0038 ;x=56, y=0
call $22e5 ;PLOT_SUB: PLOT 56,0 ... +1
call $22e5 ;PLOT_SUB: PLOT x,y+1
ld a ...

... is faster than doing a PLOT and a DRAW. When it ...
1220 INK 6: LET x=3: LET y=3: LET ... d=0: PRINT AT y,x;CHR$ (144+d)
1230 ... LET xo=x: LET yo=y
2030 LET x=x-(IN 65278

...
1220 INK 6: LET x=3: LET y=3: LET ... d=0: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 LET xo=x: LET yo=y: LET x=x-(IN 65278

...
1220 INK 6: LET x=3: LET y=3: LET ... d=0: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 LET xo=x: LET yo=y: LET x=x-(IN 65278

[CODE]#include

let a = 0
let b = 0
LET x=1
LET y=1
LET s1$ = INPUT(16)
let a=val s1$
LET s1$ = INPUT(16)
let b=val s1$
20 FOR x=1 TO a : FOR y=1 TO b : PLOT x,y: NEXT y: NEXT x[/CODE]

...
1220 INK 6: LET x=3: LET y=3: LET ... hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... y,x;CHR$ (144+d): LET xo=x: LET yo=y: LET x=x ...

...
1220 INK 6: LET x=3: LET y=3: LET ... hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... )
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...
2010 PRINT AT y,x; INK 6+(hp

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...

...
1220 INK 6: LET x=3: LET y=3: LET ... w=1: PRINT AT y,x;CHR$ (144+d): REM character ...

...
1220 INK 6: LET x=3: LET y=3: LET ... st=100: PRINT AT y,x;CHR$ (144+d): REM character ...

- moved start-up code to the end. Line 1020 now checks whether the first UDG has replaced the 'A' at CHR$144 to see if the Pre-Game data needs to be loaded

[code]
10 REM zx sporg basic v0pt019 20130228 - next to do = stats system
...

... 53 subroutine below, the PLOT could be dispensed with and ... DRAW (a single starting PLOT would be needed outside the ... x: LET iy=pn*(v*SQR (1-ix*ix/h2)):
PLOT ... RETURN

55 LET x=x+h*3
60 GO ... TO 6.28 STEP .02: PLOT x+h*SIN i,y+v ...

Cheers Morkin! It was good to meet you at Spectrum 30 - a worthy representative of the younger generation of Spectrum fans, with some social skills, to boot!

- Have begun to generalise the character data, so as to specify different characters ...

... .5+v*(s3-s)):
PLOT x+h*c,y-v*s ...

- got rid of the bug where having the data statements for the udgs too early meant that the program crashed on its second run when trying not to initialise the udgs. Solution - move the udg data statements to the very end of the listing, at line 9900
...