i am trying to convert these code in vfp9.
this is main.prg file, when i try to from command but click event"cannot not clear the aobject command but is in ues"i have meassage.
how i can use this from form.
thanks

 DO SET
 SET STATUS OFF
 SET TALK OFF
 SET MESSAGE WINDOW MNU
 SET MESSAGE OFF
 SET ESCAPE OFF
 SET SYSMENU OFF
 SET CLOCK OFF
 SET EXCLUSIVE OFF
 CH = 0
 DO WHILE .T.
 A = '66666   '
 FOR DD = 1 TO 90
 ?? A
 ENDFOR
 ?? LEFT(A, 6)
 DEACTIVATE POPUP ALL
 DEACTIVATE WINDOW ALL
 HEDL1 = ' <<<<<  >>>>> '
 HEDL2 = '  Opp. Hospital   '
 HEDL3 = '      <<< Phone No.  >>>     '
 SET COLOR TO W+/N
 @ 00, 23 CLEAR TO 02, 55
 @ 00, (80-LEN(HEDL1))/2 SAY HEDL1
 @ 01, (80-LEN(HEDL2))/2 SAY HEDL2
 @ 02, (80-LEN(HEDL3))/2 SAY HEDL3
 SET COLOR TO
 SAVE SCREEN TO SCR1
 RESTORE SCREEN FROM SCR1
 PRM1 = '< \<Entry             Menu  >'
 PRM2 = '< \<Modification      Menu  >'
 PRM3 = '< \<Rindexing         Menu  >'
 PRM4 = '< \<Printing          Menu  >'
 PRM5 = '< \<Exit To Command Window  >'
 *DEFINE WINDOW MNU FROM 04, 18 TO 16, 60 SHADOW TITLE ' M A S T E R   M E N U ' PANEL
 *DEFINE WINDOW MSG FROM 19, 04 TO 23, 75 SHADOW TITLE ' Message Box ' PANEL
 DEACTIVATE POPUP ALL
 RELEASE POPUP ALL
 DEACTIVATE WINDOW ALL
* ACTIVATE WINDOW MSG
 @ 00, 01 SAY 'Move Arrow Key <>'
 @ 01, 01 SAY 'Then Press Enter <ÄÄÙ>'
 SET COLOR TO W+/N
 @ 00, 40 SAY '< Development & Research By > '
 @ 01, 40 SAY '  Khubaib Ahmad Khalid khubaibch@gmail.com '
 @ 02, 40 SAY 'Phone 063-51459,03036301374'
 SET COLOR TO
* ACTIVATE WINDOW MNU
 SET COLOR TO W+/N
 @ 01, 07 PROMPT PRM1 MESSAGE ' MESSAGE 1 '
 @ 03, 07 PROMPT PRM2 MESSAGE ' MESSAGE 2 '
 @ 05, 07 PROMPT PRM3 MESSAGE ' MESSAGE 3 '
 @ 07, 07 PROMPT PRM4 MESSAGE ' MESSAGE 4 '
 @ 09, 07 PROMPT PRM5
 SET COLOR TO
 MENU TO CH
 *DEACTIVATE WINDOW MNU
* DEACTIVATE WINDOW MSG
 DO CASE
 CASE CH=1
 DO ENTRY
 CLEAR
 CASE CH=2
 DO MODIFY
 CLEAR
 CASE CH=3
 CLEAR
 CASE CH=4
 CLEAR ALL
 DO REPORT1
 CASE CH=5
 FOR SS = 1 TO 80
 FOR BB = 1 TO 300
 ENDFOR
 SCROLL 0, 0, 12, 79, 0, 1
 SCROLL 13, 0, 24, 79, 0, -1
 ENDFOR
 EXIT
 ENDCASE
 ENDDO
 DO form main
 CLEAR ALL
 DEACTIVATE WINDOW ALL
 SET ESCAPE ON
 SET STATUS ON
 SET EXCLUSIVE ON
 *? 'Type QUIT and press Enter to DOS'
*