Deja News Toolbar Search over 20,000 high-tech jobs Click here for over 20,000 high-tech jobs message/thread Message 349 of 351 for search * return to search results help Re: Seek a simple terminal Author: Jim Butterfield Date: 1999/02/19 Forum: comp.sys.cbm sponsored by: eBay more headers author posting history post reply prev next _________________________________________________________________ Darren Spiteri (Spit@spam-free.UUCP) wrote: : On 18 Feb 1999 00:13:45 GMT, Andrew Vardy wrote: : > The C64 Programmer's Reference Guide? Naw, programs in there are buggy and : > tiny to begin with. : > I'll settle for anything, as long as it uses standard RS-232, and is writte n : > in BASIC. : You just described the dumbterm in the PRG. BTW it's not buggy, I'm sure C='s : programmers knew what they were doing. I think they adapted it from something I wrote back in the very early days of Commodore modems. My program, as I recall (long since lost) had the equivalent of "capture" and "send text from disk" added to it. But it was simple, simple, simple .. which is what's being asked for here. Easier to quote from the 128 User's Guide that to discuss where to find it: 10 REM SIMPLE DUMB TERMINAL EMULATOR 20 REM THIS PROGRAM REQUIRES A MODEM [first we open the comms channel] 30 OPEN5,2,3,CHR$(6)+CHR$(0) [300 bps, no parity] [next we set up translation tables] 40 DIMF%(255),T%(255) 50 FORJ=32TO64:T%(J)=J:NEXT 60 T%(13)+13:T%(20)=8:RV=18:CT=0 70 FORJ=65TO90:K=J+32:T%(J)=K:NEXT 80 FORJ=91TO95:T%(J)=J:NEXT 90 FORJ=193TO218:K=J-128:T%(J)=K:NEXT 100 T%(146)=16:T%(133)=16 110 T%(137)=3:T%(134)=17:T%(138)=19 [we've done the 'to'; now the 'from'] 120 FORJ=0TO255 130 K=T%(J) 140 IFK<<>0THENF%(K)=J:F%(K+128)=J 150 NEXT [ready for business; clear the screen] 160 PRINT" "CHR$(147) [here's our loop; first, incoming .. ] 170 GET#5,A$ 180 IFA$=""ORST<>0THEN220 190 PRINT" "CHR$(157);CHR$(F%(ASC(A$))); 200 IFF%(ASC(A$))=34THENPOKE212,0 210 GOTO170 [then, outgoing from keyboard] 220 PRINTCHR$(RV)" "CHR$(157);CHR$(146);:GETA$ 230 IFA$<>""THENPRINT#5,CHR$(T%(ASC(A$))); [business to flash a cursor] 240 CT=CT+1 250 IFCT=8THENCT=0:RV=164-RV 260 GOTO170 There's an almost-identical program in the 64 Programmer's Reference Manual. Excuse the lack of spaces in the coding above, but I was transcribing it as precisely as possible. --Jim _________________________________________________________________ view for bookmarking text only mail this message to a friend post reply << prev · next >> subscribe to comp.sys.cbm SPONSORED LINKS Yellow Pages · Bid on Bargains · Express by Infoseek · Shopping · Free Stuff AutoConnect · Trade with Datek · Auctions & Classifieds · GET IT NOW @ NECX Home · Communities · My Deja News · Power Search · Post About Deja News · Ad Info · Our Advertisers ____________________________________________________ Copyright © 1995-99 Deja News, Inc. All rights reserved. Conditions of use · Site privacy statement reviewed by TRUSTe