1 'X-Tel Extension Program
2 'SCROLL.BA By Denny Thomas CIS:73126,672
3 'To be used with X-TEL V2.1
4 'Change CALL 53930 to whatever
5 'starting address of X-Tel you use.
6 CLS:PRINT"Screen (1) Off (2) On";
7 A$=INKEY$:IFA$=""THEN7
8 IFA$="1"THENCALL16959:CALL53930
9 IFA$="2"THENCALL16964:CALL53930
10 CALL53930