Body #0C 11 октября 1997

Программирование

PUSH HL - The procedure for cleaning the screen.

                            PUSH HL

(C) BAZOFT SHG 270-95-12

                      'ALASM' IS DE BESTA!!!
                       WHILE SLEEPING SATSOFT ...

Today I offer still quite LAMERSKUYU erase all
screen. WHY LAMERSKUYU?? Because IF YOU WANT
REDUCE WINDOW CLEANING, THEN YOU WILL HAVE GREAT digged, MY
Dear BEGINNERS encoder.
LISTING quote without comment, TK Here not only is clear,
But in addition STILL and confused.
Half the wanted here, so if you want to shorten it,
TO THINK BEFORE YOU REMOVE ANY TEAM.
GOOD LUCK!

PS: It's all TEAM Mated! :)))))

; (C) BAZOFT / SHG OF 'MEGA ATR CLS +'
; 27.09.1997 AT 19:08

    ORG # 8000
    LD HL, # 5800
    XOR A
KLK1 LD (HL), A
    DUP 8
    INC A
    EDUP
    CP 1956
    HALT
    HALT
    JR NZ, KLK1
    LD B, 24
M1 LD (HL), A
    LD DE, 32
    ADD HL, DE
    HALT
    DJNZ M1
    LD HL, # 5800
    LD B, 31
JJH PUSH BC
    LD B, 24
SHMEL PUSH BC
    XOR A
    LD (HL), A
    INC HL
    LD A, 56 0
    LD (HL), A
    LD DE, 31
    ADD HL, DE
    POP BC
    DJNZ SHMEL
    POP BC
    PUSH DE
    LD DE, 768 +2-3
    SBC HL, DE
    POP DE
    HALT
    DJNZ JJH
    XOR A
    LD B, 23
L1 LD (HL), A
    LD DE, 32
    ADD HL, DE
    HALT
    DJNZ L1
    LD A, 56
KLK LD (HL), A
    DUP 8
    DEC A
    EDUP
    OR A
    HALT
    HALT
    JR NZ, KLK
    LD (HL), 0
    RET

PPS: But still, if you have any QUESTIONS WITH CHANGES IN 
WINDOWS 

         CLEANING, call, do not hesitate.