ORGIN $3000


BYTE row
BYTE col
WORD npoke
BYTE raster
BYTE cls = 147

// -----------------------------------
//   Fill up screen with border color
// -----------------------------------

GOSUB $ffd2 PASSING cls AS ACC

ASM
          sei
ENDASM

FILLMEM 37888 RANGE 505 WITH 19

LET col GET 22

  WHILE col

    DECREMENT col

    LET row GET 23
    LET npoke GET $1000
    ADD col TO npoke GIVING npoke
    WHILE row

      POKE npoke WITH 32+128 //inverted space

      ADD 22 TO npoke GIVING npoke

      DECREMENT row

    WEND

    
    LABEL rasterwait
    PEEK $9004 GIVING raster
    IF raster <> 0 THEN  // 155
      GOTO rasterwait
    ENDIF

  WEND

ASM
          cli
ENDASM

SUBEND