1 GOSUB 29000:POKE 559,34›10 FOR X=0 TO 18 STEP 2:COLOR 154:PLOT X,0:COLOR 26:PLOT X,19:NEXT X›20 FOR X=1 TO 19 STEP 2:COLOR 26:PLOT X,0:COLOR 154:PLOT X,19:NEXT X›30 FOR Y=2 TO 18 STEP 2:COLOR 154:PLOT 0,Y:COLOR 26:PLOT 19,Y:NEXT Y›40 FOR Y=1 TO 17 STEP 2:COLOR 26:PLOT 0,Y:COLOR 154:PLOT 19,Y:NEXT Y›50 POSITION 4,6:? #6;"!%&&%#":POSITION 12,6:? #6;"---"›60 ? "!%&&%#";:? " ";:? "---"›100 STOP ›29000 GRAPHICS 1:POKE 559,0:BEGIN=(PEEK(106)-6)*256:POKE 756,BEGIN/256›29010 SHI=BEGIN/256:SLO=0:POKE 203,SLO:POKE 204,SHI›29020 DIM MVCHR$(28):MVCHR$="h©…Í¨©à…Î±Í‘ËÈÐùæÌæÎ¥ÎÉâÐï`":Z=USR(ADR(MVCHR$)):RESTORE 30000›29030 READ X:IF X=-1 THEN 29050›29040 FOR Y=0 TO 7:READ Z:POKE X+Y+BEGIN,Z:NEXT Y:GOTO 29030›29050 DLST=PEEK(560)+256*PEEK(561):POKE DLST+24,134:RESTORE 31000:FOR X=0 TO 10:READ Y›29060 POKE 1536+X,Y:NEXT X:POKE 512,0:POKE 513,6:POKE 54286,192:RETURN ›30000 DATA 8,165,231,231,231,255,219,255,231›30010 DATA 24,161,162,228,232,240,227,227,227›30020 DATA 40,24,60,126,66,126,219,255,255›30030 DATA 48,0,0,0,36,36,36,255,255›30040 DATA 104,0,44,68,254,76,44,20,22›30050 DATA 208,255,255,255,255,255,255,255,255›30060 DATA -1›31000 DATA 72,169,224,141,10,212,141,9,212,104,64›