home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
tel
/
telutl.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
959b
|
18 lines
0 'TELUTL.001 by Dan Drasin mods by Bill Templeton
1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
20 CLEAR4,MAXRAM:CLS:E$=CHR$(27):RV$=E$+"p":NO$=E$+"q
30 PRINT@12,RV$" TELCOM Utility: "NO$:PRINT@51,"by Dan Drasin - 6/85
40 M$=" ":IF(PEEK(64268))=68THENM$="*
50 S$=" ":IF(PEEK(64268))=172THENS$="*
60 PRINT@122,M$;RV$" Scroll:"NO$" F6=On; F7=Off <Fast LCD>":PRINT@162,S$;RV$" Telkey:"NO$" F6=Bytes Free; F7=Files
70 PRINT@280,"Scrl";:PRINT@290,"Tlky";:PRINT@315,"Menu";
80 KEYON:ONKEYGOSUB90,,100,,,,,110:GOTO80
90 POKE64268,68:POKE64269,66:POKE64270,63:POKE64271,66:GOTO30
100 POKE64268,172:POKE64269,126:POKE64270,58:POKE64271,31:GOTO30
110 MENU
120 'Reconfigures F6 & F7 in TELCOM Mode
130 'SCROLL off keeps LCD from slowing down during 1200-2400 bps operation:
140 ' F6=scroll on, F7=scroll off
150 'TELKEY gives you Bytes Free (F6) and Files (F7).
160 '(*) on Menu indicates active mode.