home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / pager.ba < prev    next >
Text File  |  2006-10-19  |  424b  |  14 lines
  1. 0 'PAGER.BA - Richard Hanson 28-Jul-87
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:PRINT@9,"---==( PAGER.100 )==---"
  4. 3 PRINT@125,"How many page feeds? (1-9)":PRINT@165,"Hit any other key to abort..."
  5. 4 T$=INKEY$:IFT$=""THENGOTO4
  6. 5 V=VAL(T$):IFV=0THENMENUELSE6
  7. 6 IFV<1ORV>9THENGOTO4
  8. 7 CLS
  9. 8 PRINT@130,"One moment please..."
  10. 9 FORX=1TOV
  11. 10 LPRINTCHR$(12)
  12. 11 NEXTX
  13. 12 MENU
  14.