10 REM > !RunImage
   20 ON ERROR REPORT:PRINT "at Line ";ERL:END
   30 REM Munchie game with Wimp front-end
   40 PROCinit
   50 PROCicon
   60 REPEAT
   70   SYS "Wimp_Poll",,b% TO r%
   80   CASE r% OF
   90     WHEN 6:PROCmouseclick
  100     WHEN 17,18:PROCmessage
  110   ENDCASE
  120 UNTIL quit%
  130 SYS "Wimp_CloseDown",task%,&4B534154
  140 END
  150 :
  160 DEFPROCinit
  170 DIM sblock% 165620,b% 100
  180 !sblock%=165620:sblock%!8=16
  190 SYS "OS_SpriteOp",9+256,sblock%
  200 SYS "OS_SpriteOp",10+256,sblock%,"<Munchie$Dir>.MunSprites"
  210 dotnum%=9
  220 width%=68:height%=68
  230 hstep%=10:vstep%=10
  240 DIM dot%(dotnum%,1)
  250 quit%=FALSE
  260 SYS "Wimp_Initialise",200,&4B534154,"Munchie" TO ,task%
  270 ENDPROC
  280 :
  290 DEFPROCicon
  300 !b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002
  310 $(b%+24)="!munchie"
  320 SYS "Wimp_CreateIcon",,b%
  330 ENDPROC
  340 :
  350 DEFPROCmessage
  360 IF b%!16=0 quit%=TRUE
  370 ENDPROC
  380 :