10 REM > Munchie5
   20 REM Draws pacman-type figure
   30 ON ERROR VOICES 1:VOICE 1,"WaveSynth-Beep":REPORT:PRINT" at line ";ERL:END
   40 PROCinit
   50 REPEAT
   60   PROCgame
   70 UNTIL (char% AND &DF)<>ASC("Y")
   80 VOICES 1
   90 VOICE 1,"WaveSynth-Beep"
  100 END
  110 :
  120 DEFPROCinit
  130 *SLoad MunSprites
  140 dotnum%=9
  150 width%=68:height%=68
  160 hstep%=10:vstep%=10
  170 DIM dot%(dotnum%,1)
  180 MODE 12
  190 VOICES 2
  200 VOICE 2,"WaveSynth-Beep"
  210 VOICE 1,"StringLib-Hard"
  220 BEATS 200
  230 bar_sent%=FALSE
  240 ENDPROC
  250 :
  260 DEFPROCgame
  270 dotleft%=dotnum%+1
  280 PROCbackground
  290 GCOL 3,7
  300 FOR num%=0 TO dotnum%
  310   PROCsetdot(num%)
  320 NEXT
  330 GCOL 8,0
  340 xpos%=200:ypos%=200
  350 *SChoose mun_right
  360 PLOT 237,xpos%,ypos%
  370 start=TIME
  380 RESTORE +1
  390 REPEAT
  400   IF BEAT<100 THEN
  410     IF NOT bar_sent% THEN PROCbar:bar_sent%=TRUE
  420     ELSE
  430     bar_sent%=FALSE
  440   ENDIF
  450   PROCmove
  460 UNTIL dotleft%=0
  470 PRINT TAB(10,25)"You took ";(TIME-start)/100" seconds"
  480 PRINT TAB(10,26)"Another go? (y/n)"
  490 REPEAT
  500   char%=GET
  510 UNTIL (char% AND &DF)=ASC("Y") OR (char% AND &DF)=ASC("N")
  520 ENDPROC
  530 :
 1310 DEFPROCbar
 1320 beat%=0
 1330 REPEAT
 1340   READ pitch%
 1350   IF pitch%=-1 THEN
 1360   RESTORE +1:PROCbar:ENDIF:ENDPROC
 1370   ELSE
 1380   READ dur%
 1390   IF pitch%<>0 SOUND 2,-15,pitch%,dur%,beat%
 1400   beat%+=dur%*5
 1410 UNTIL beat%>=200
 1420 ENDIF
 1430 DATA 53,10,61,10,69,10,53,10
 1440 DATA 53,10,61,10,69,10,53,10
 1450 DATA 69,10,73,10,81,20
 1460 DATA 69,10,73,10,81,20
 1470 DATA 81,5,89,5,81,5,73,5,69,10,53,10
 1480 DATA 81,5,89,5,81,5,73,5,69,10,53,10
 1490 DATA 53,10,33,10,53,10,0,10
 1500 DATA 53,10,33,10,53,10,0,10
 1510 DATA -1
 1520 ENDPROC