home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / scroll.ba < prev    next >
Text File  |  2006-10-19  |  617b  |  12 lines
  1. 0 'SCROLL.BA JAMES YI
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ONERRORGOTO10:L$="Hello.  Press any key to display your message.":GOTO8
  4. 3 'CLS:PRINTCHR$(27)+"p":PRINT@80,STRING$(41," ")SPACE$(38)STRING$(41," "):PRINTCHR$(27)+"q"
  5. 4 CLS:PRINTCHR$(27)+"p":PRINT@80,STRING$(40,32):PRINT@160,STRING$(40,32):PRINTCHR$(27)+"q"
  6. 5 L$=RIGHT$(L$,L-1)+LEFT$(L$,1):IF INKEY$<>""THEN7
  7. 6 PRINT@121,LEFT$(L$,38):FORT=1TO50:NEXT:GOTO5
  8. 7 PRINT:INPUT"message";L$
  9. 8 L=LEN(L$):IFL<38THENL$=L$+SPACE$(38-L)
  10. 9 L$=L$+SPACE$(8):L=LEN(L$):GOTO3
  11. 10 PRINT"LINE TOO LONG.  129 CHRS MAX.":RESUME7
  12.