0 poke 53280,0    : rem border black
1 poke 53281,0    : rem background black
2 print chr$(5)   : rem text color white
3 print chr$(147) : rem clear screen

7 rem short form: (.prg len is 71 bytes)
8fOy=0to18:fOx=3to21:z=(x+y)*(x-y):a%=z/6:?cH(32-(6*a%=z)*10);:nE:?:nE

40 rem v4.4 offset correction and 71 bytes prg, 69 bytes w/o line number for direct mode

50 rem pretty version:

100 for y=0 to 18
200 for x=3 to 21


235 z  = (x+y)*(x-y)
240 a% = z/6
250 b  = (6*a%=z)

350 ? chr$(32-b*10);
360 rem ? chr$(48+b)
400 nE
500 ?
600 nE



save"xv44.prg",8,1
