home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / telutl.ba < prev    next >
Text File  |  2006-10-19  |  959b  |  18 lines

  1. 0 'TELUTL.001 by Dan Drasin                mods by Bill Templeton
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 20 CLEAR4,MAXRAM:CLS:E$=CHR$(27):RV$=E$+"p":NO$=E$+"q
  4. 30 PRINT@12,RV$" TELCOM Utility: "NO$:PRINT@51,"by Dan Drasin - 6/85
  5. 40 M$=" ":IF(PEEK(64268))=68THENM$="*
  6. 50 S$=" ":IF(PEEK(64268))=172THENS$="*
  7. 60 PRINT@122,M$;RV$" Scroll:"NO$" F6=On; F7=Off <Fast LCD>":PRINT@162,S$;RV$" Telkey:"NO$" F6=Bytes Free; F7=Files
  8. 70 PRINT@280,"Scrl";:PRINT@290,"Tlky";:PRINT@315,"Menu";
  9. 80 KEYON:ONKEYGOSUB90,,100,,,,,110:GOTO80
  10. 90 POKE64268,68:POKE64269,66:POKE64270,63:POKE64271,66:GOTO30
  11. 100 POKE64268,172:POKE64269,126:POKE64270,58:POKE64271,31:GOTO30
  12. 110 MENU
  13. 120 'Reconfigures F6 & F7 in TELCOM Mode
  14. 130 'SCROLL off keeps LCD from slowing down during 1200-2400 bps operation:
  15. 140 '   F6=scroll on, F7=scroll off
  16. 150 'TELKEY gives you Bytes Free (F6) and Files (F7).
  17. 160 '(*) on Menu indicates active mode.
  18.