0100 ; CLS ROUTINE, BY JEFF BRENNER›0110 ; FORM: A=USR(CLS)›0120 ;›0130     *=  $0600   ;RELOCATABLE›0140 ;›0150 CLS PLA ›0160     LDA 106     ;P/M AREA HI BYTE›0170     STA $D1›0180     LDA #0      ;LOW BYTE = 0›0190     STA $D0›0200     LDX #16     ;DO 16 PAGES›0210 LOOP2 LDY #0›0220 LOOP1 STA ($D0),Y›0230     INY ›0240     BNE LOOP1›0250     INC $D1›0260     DEX ›0270     BNE LOOP2›0280     RTS ›0290     .END ›