10  REM WIMP demo by Richard Harker (1997)
   20  REM For '8 Bit Software' magazine
   25  :
   30  MODE 0
   31 REM *SCREENLOAD screen2
   40  *LOAD WIMPpic
   50 VDU 28,1,24,76,2
   60 REM *FX4,2
   70 x=640
   80 y=512
   90 a=2
  100 VDU 19,0,7,0,0,0
  110 VDU 19,1,0,0,0,0
  120 REPEAT
  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 INKEY-1:y=y-16
  150   IF INKEY-26: IF x>8: x=x-8:IF INKEY-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
  321 UNTIL FALSE