5 DIM CHSET$(20):CHSET$="D:CASTLE.SET":GOSUB 4000›6 END ›4000 A=PEEK(106):TOP=A-8:CHBAS=TOP+4:DL=256*TOP:POKE 106,TOP:CH=CHBAS*256:GRAPHICS 0:? "Loading ";CHSET$›4005 X=16:ICCOM=834:ICBADR=836:ICBLEN=840:SL=PEEK(88):SH=PEEK(89)›4010 OPEN #1,4,0,CHSET$›4015 POKE ICBADR+X+1,CHBAS:POKE ICBADR+X,0:POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›4020 POKE ICCOM+X,7:I=USR(ADR("hhhªLVä"),X):CLOSE #1:? "What ANTIC mode do you want? (4 or 5)"›4025 TRAP 4025:INPUT M:IF M<4 OR M>5 THEN 4025›4030 ? "Writing the display list for ANTIC ";M›4035 FOR I=0 TO 2:POKE DL+I,112:NEXT I:POKE DL+3,M+64:POKE DL+4,SL:POKE DL+5,SH›4040 FOR I=DL+6 TO DL+16+12*(M=4):POKE I,M:NEXT I:POKE I,65:POKE I+1,0:POKE I+2,DL/256›4045 POKE 756,CHBAS:POKE 560,0:POKE 561,DL/256›