//has graphics $PI,"<1>",1$ $PI,"<2>",2$ $PI,"<3>",3$ BoolU4 animate=FALSE; void DrawIt(TssStruct *tss) { I8 i; GrBitMap *base=GrAlias(grbase2,tss); //$FG,2$The following draws the normal text.$FG$ LtfUpdateBothLtf(tss); if (animate) { i=(t%0.5)/(0.5/4); switch (i) { case 0: GrElemsPlot(base,20,20,0,$IB,"<1>",1$); break; case 2: GrElemsPlot(base,20,20,0,$IB,"<3>",3$); break; default: GrElemsPlot(base,20,20,0,$IB,"<2>",2$); break; } } GrDel(base); } void EndTsk() { Sound(0); Exit; } void Song() { void *old_update=Fs->update_win; TssStruct *tss; Fs->update_win=&DrawIt; Fs->end_task_cb=&EndTsk; music_tempo=2.5; try { tss=PopUpViewStr( "$$LK-A,\"BF:Proverbs,10:19\"$$\r\n" "$$LK-A,\"BF:Proverbs,15:2\"$$\r\n" "$$LK-A,\"BF:Proverbs,17:28\"$$\r\n" "$$LK-A,\"BF:Proverbs,29:11\"$$\r\n" ); WaitTskIdle(tss); tss->win_right=Fs->win_right; tss->win_left=Fs->win_left; tss->win_top=Fs->win_bottom+3; tss->win_bottom=tss->win_top+12; while (!ScanKey) { Play("3qGE2eG3BqGetDBDeDE2qGetG3BF", "Wise \0men \0use \0few \0words.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0"); Play("qGE2eG3BqGetDBDeDE2qGetG3BF", "Wise \0men \0use \0few \0words.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0"); animate=TRUE; Play("eEAsFEFEqFAetDBEAA2G3qCA", "Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\r\n\0 \0 \0"); Play("eEAsFEFEqFAetDBEAA2G3qCA", "Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\r\n\0 \0 \0"); animate=FALSE; } } catch Fs->catch_except=TRUE; Fs->update_win=old_update; Sound(0); } Song; Âøÿÿÿ  ÷ÿÿÿ ÷ÿÿÿ÷ÿÿÿ÷ÿÿÿ!!      ÿÿÿÿþÿÿÿ ùÿÿÿ ùÿÿÿùÿÿÿùÿÿÿþÿÿÿýÿÿÿýÿÿÿ ûÿÿÿûÿÿÿ      Îøÿÿÿ  ÷ÿÿÿ ÷ÿÿÿ÷ÿÿÿ÷ÿÿÿ!!      ÿÿÿÿþÿÿÿ ùÿÿÿ ùÿÿÿùÿÿÿùÿÿÿþÿÿÿýÿÿÿýÿÿÿ ûÿÿÿûÿÿÿ       Îøÿÿÿ  ÷ÿÿÿ ÷ÿÿÿ÷ÿÿÿ÷ÿÿÿ!!      ÿÿÿÿþÿÿÿ ùÿÿÿ ùÿÿÿùÿÿÿùÿÿÿþÿÿÿýÿÿÿýÿÿÿ ûÿÿÿûÿÿÿ