10 REM WIMP demo by Richard Harker (1 997) 20 REM For '8 Bit Software' magazine 25 : 30 MODE 0 31REM *SCREENLOAD screen2 40 *LOAD WIMPpic 50VDU 28,1,24,76,2 60REM *FX4,2 70x=640 80y=512 90a=2 100VDU 19,0,7,0,0,0 110VDU 19,1,0,0,0,0 120REPEAT 130 IF INKEY-58: IF y<1016: y=y+8:IF INKEY-1:y=y+16 140 IF INKEY-42: IF y>8: y=y-8:IF INK EY-1:y=y-16 150 IF INKEY-26: IF x>8: x=x-8:IF INK EY-1:x=x-16 160 IF INKEY-122: IF x<1272: x=x+8:IF INKEY-1:x=x+16 170 PLOT 70,x,y 190 191 REM drive0 200 IF INKEY-99: IF x>36: IF y>44: IF x<132: IF y<84: *CAT 210 211 REM acorn 220 IF INKEY-99: IF x>1206: IF y>16: IF x<1254: IF y<96: END 221 222 REM palette 250 IF INKEY-99: IF x>1112: IF y>24: IF x<1178: IF y<92: VDU 19,0,a,0,0,0: a= a+1: IF a=8: a=1 260 261 REM edit 270 IF INKEY-99: IF x>1044: IF y>24: IF x<1098: IF y<92:CLS 320 PLOT 70,x,y 321UNTIL FALSE