10 REM Set up variables›20 X=16:ICCOM=834:ICBADR=836:ICBLEN=840:REM See text for meaning of variables SP and CHBAS›90 REM Fast load (display file)›100 OPEN #1,4,0,"D1:DRAWING.SCR":GET #1,MD:GET #1,WD:GET #1,LN:IF MD>5 THEN WD=WD+256:MD=MD-10›110 SZ=WD*LN:FOR I=708 TO 712:GET #1,N:POKE I,N:NEXT I›120 POKE ICBADR+X+1,SP:POKE ICBADR+X,0:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›130 POKE ICCOM+X,7:I=USR(ADR("hhhªLVä"),X):CLOSE #1:RETURN ›190 REM Fast load (character set)›200 OPEN #1,4,0,"D1:CHARACT.SET":POKE ICBADR+X+1,CHBAS:POKE ICBADR+X,0:POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›210 POKE ICCOM+X,7:C=USR(ADR("hhhªLVä"),X):CLOSE #1:POKE 756,CHBAS:RETURN ›