31000 REM *** CIO SCREEN SAVE ***›31010 OPEN #1,8,0,FILE$›31020 PUT #1,PEEK(939):FOR I=704 TO 712:PUT #1,PEEK(I):NEXT I›31030 MT=PEEK(106)*256:DL=PEEK(88)+PEEK(89)*256:BYTES=MT-DL:HI=INT(BYTES/256):LO=BYTES-(HI*256)›31040 POKE 850,11:POKE 852,PEEK(88):POKE 853,PEEK(89):POKE 856,LO:POKE 857,HI›31050 X=USR(ADR("hhhªLVä"),16):CLOSE #1›31060 RETURN ›