89. Moving text (1) ~~~~~~~~~~~~~~~ This is a very simple routine which 'assembles' text from the right-hand margin. It is an example of moving graphics at the very simplest level, and illustrates the use of *FX19 to create smooth movement. It is written for a 40-column mode, but can be modified for 80 if required. You can omit any spaces, which are shown only for clarity. 10 MODE 7:VDU23,1,0;0;0;0; 20 PROCmove("HELLO THERE!!",12,10) 30 PRINT'':VDU23,1,1;0;0;0;:END 40 : 100 DEFPROCmove(text$,pos%,vpos%) 110 FOR let%=1 TO LEN(text$) 120 FOR p%=37 TO pos%+let%-1 STEP-1 130 PRINT TAB(p%,vpos%) MID$(text$,let%,1)" ";:*FX19 140 NEXT:NEXT:ENDPROC