OPT PREPROCESS

MODULE 'feelin','libraries/feelin'

PROC main()
   DEF c,w

   IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
	  c := ClientObject,
		 Child, w := WindowObject, FA_Window_Title, 'Feelin : Crawling',
			Child, HGroup, FA_MinWidth,100,
			   Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,20, FA_ChainToCycle,FALSE, FA_MinHeight,40, FA_MinWidth, 40, FA_ID, 'Crawler',
				  Child, VGroup, FA_Back,FI_Fill_HalfShadow, FA_Inner,[20,5,20,5]:CHAR,
					 Child, TextObject, FA_FixedHeight,TRUE,FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,

					 Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,40, FA_ChainToCycle,FALSE, FA_MinHeight,8*12, FA_MinWidth, 40,
						Child, VGroup, FA_FixedHeight,TRUE, FA_Back,FI_HalfShadow, FA_Inner,[20,5,20,5]:CHAR,
						   Child, TextObject, FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,

						   Child, CrawlerObject, GaugeFrame, FA_Crawler_Delay,60, FA_ChainToCycle,FALSE, FA_MinHeight,8*12, FA_MinWidth, 40,
							  Child, VGroup, FA_FixedHeight,TRUE, FA_Back,FI_HalfShadow_Shadow, FA_Inner,[20,5,20,5]:CHAR,
								 Child, TextObject, FA_ChainToCycle,FALSE, FA_Text, {__Text}, End,
							  End,
						   End,
						End,
					 End,
				  End,
			   End,
			End,
		 End,
	  End

	  IF c
		 F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
		 F_Set(w,FA_Window_Open,TRUE)

		 F_DoA(c,FM_Client_Run,NIL)

		 F_DisposeObj(c)
	  ENDIF

	  CloseLibrary(feelinbase)
   ELSE
	  WriteF('Unable to open feelin.library\n')
   ENDIF
ENDPROC

__Text:
   CHAR '`cWe live on a `bmontain`n.\n\n',

		'Right at the top.\n\n',

		'There is\n',
		'a beautiful view\n',
		'from the top\n',
		'of the montain.\n\n',

		'Every morning\n',
		'I walk toward the edge\n',
		'and throw little things off',0