10      REM
20      REM HGR MOIRE
30      REM

35      REM FOR EMULATOR : DEADC0DE.ORG/apple2

40      HGR
45      IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
50      FOR Y = 0 TO 190 STEP 2
60          HCOLOR = 4 : REM BLACK
70          HPLOT 0,191-Y TO 279,Y
80          HCOLOR = 7 : REM WHITE
90          HPLOT 0,190-Y TO 279,Y+1
100         NEXT Y
110     FOR X = 0 TO 278 STEP 3
120         HCOLOR = 4
130         HPLOT 279-X,0 TO X,191
140         HCOLOR = 7
150         HPLOT 278-X,0 TO X+1,191
160         NEXT X
170     POKE 7987,255

