Screen test of hires for Applesoft BASIC (Moiré pattern)

testhires.bas

10  HGR2 
20  HCOLOR= 1:Y0 = 89:Y1 = 0:YS =  - 3:X0 = 0:CX = 139:CY = 89: GOSUB 95
25  HCOLOR= 2:X0 = 0:X1 = 139:XS = 4:Y0 = 0:CX = 139:CY = 89: GOSUB 85
30  HCOLOR= 3:X0 = 140:X1 = 279:Y0 = 0:XS = 3:CX = 140:CY = 89: GOSUB 85
35  HCOLOR= 7:Y0 = 0:Y1 = 89:X0 = 279:YS = 3:CX = 140:CY = 89: GOSUB 95
40  HCOLOR= 5:Y0 = 90:Y1 = 179:X0 = 279:YS = 3:CX = 140:CY = 90: GOSUB 95
45  HCOLOR= 6:X0 = 279:X1 = 140:Y0 = 179:XS =  - 5:CX = 140:CY = 90: GOSUB 85
50  HCOLOR= 3:X0 = 139:X1 = 0:Y0 = 179:XS =  - 5:CX = 139:CY = 90: GOSUB 85
55  HCOLOR= 7:Y0 = 179:Y1 = 90:X0 = 0:YS =  - 5:CX = 139:CY = 90: GOSUB 95
60  REM  dividers
70  HCOLOR= 3: HPLOT 139,0 TO 139,179: HPLOT 140,0 TO 140,179: HPLOT 0,89 TO 279,89: HPLOT 0,90 TO 279,90
75  END
80  REM  xmover
85  FOR X = X0 TO X1 STEP XS: HPLOT X,Y0 TO CX,CY: NEXT X: RETURN
90  REM  ymover
95  FOR Y = Y0 TO Y1 STEP YS: HPLOT X0,Y TO CX,CY: NEXT Y: RETURN
100 REM SEE WHAT IT LOOKS LIKE https://imgur.com/cHxFvOs