90 GOTO 30101000 X=USR(ADR(MOVMEM$),ADR(INV$)+SB,MEM1,239)1080 SB=240*(SB=0)1280 IF COARSE=4 OR COARSE=-2 THEN CHANGE=-CHANGE:POKE 1791,129-PEEK(1791)1330 SCROLL=SCROLL+CHANGE1340 IF SCROLL>15 THEN SCROLL=SCROLL-16:COARSE=COARSE+2:POKE 1790,2:GOTO 13601350 IF SCROLL<0 THEN SCROLL=SCROLL+16:COARSE=COARSE-2:POKE 1790,21360 POKE 1788,SCROLL:POKE 1787,11380 IF PEEK(1790)<>0 THEN 13801390 GOTO 10003010 POKE 559,03040 DIM VBLOFF$(20):GOSUB 29000:VBLOFF$=MLANG$3160 FOR SEC=0 TO 1:GOSUB 31000+10*SEC3170 X=USR(ADR(MOVMEM$),ADR(MLANG$),CA-256+90*SEC,LEN(MLANG$)-1):NEXT SEC4000 GRAPHICS 17:POKE 559,0:POKE 756,CB+25010 DLIST=PEEK(560)+PEEK(561)*2565020 POKE DLIST+3,865030 FOR LINE=2 TO 12:POKE DLIST+4+LINE,22:NEXT LINE5200 POKE 559,345270 SCROLL=0:CHANGE=1:SB=0:COARSE=05290 POKE 54276,05360 POKE 1789,0:POKE 1790,0:POKE 1791,1285460 GOSUB 31500:X=USR(ADR(MLANG$),CA-256)5490 GOTO 100029000 MLANG$="h_ \b \`":RETURN 31000 MLANG$="hԭԭO0̭1͠A=4)p@0P*ȭ0mȱi̐8ȱ":RETURN 31010 MLANG$="̐нL_":RETURN 31500 MLANG$="hhh \`":RETURN