5 CLR :DIM GM(15),FL$(20):FL$="D1:G8.PIX":GOSUB 4000›6 FOR I=0 TO 30000:NEXT I›4000 FOR I=0 TO 15:READ N:GM(I)=N:NEXT I›4005 A=PEEK(106):TOP=A-36:SP=TOP+4:SC=SP*256:DL=256*TOP:POKE 106,TOP:GRAPHICS 0:PRINT "}"›4010 X=16:ICCOM=834:ICBADR=836:ICBLEN=840:SCON=PEEK(559):K4=4096›4015 OPEN #1,4,0,FL$:GET #1,M:GET #1,WIDE:GET #1,LLO:GET #1,LHI:LINE=LLO+256*LHI:SZ=WIDE*LINE›4020 FOR I=708 TO 711:GET #1,N:POKE I,N:NEXT I:POKE I,N›4025 SC=SC+((LINE*WIDE)>K4)*(K4-INT(K4/WIDE)*WIDE):SH=INT(SC/256):SL=SC-256*SH›4030 GRAPHICS GM(M)+16:IF GM(M)=0 THEN ? "INVALID MODE":RETURN ›4035 DL=PEEK(560)+256*PEEK(561):DL4=DL+4:DL5=DL+5:POKE DL4,SL:POKE DL5,SH›4055 POKE ICBADR+X+1,SH:POKE ICBADR+X,SL:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›4060 POKE ICCOM+X,7:I=USR(ADR("hhhªLVä"),X):CLOSE #1:RETURN ›4065 DATA 0,0,0,0,0,0,0,0,3,4,5,6,0,7,0,0›