--------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4G00020 Date: 04/11/98 From: DAVID WILLIAMS Time: 09:58am \/To: TERRY RETT (Read 3 times) Subj: COMUNICATIONS -> I KNOW HOW TO GET MY MODEM TO DIAL FROM THE DOS PROMPT AND HOW TO GET -> IT TO DIAL FROM MY TERMINAL BBS /MODEM SOFTWARE BUT WHAT I NEED TO -> KNOW IS HOW TO WRITE SOMETHING IN QBASIC THAT I CAN USE IN A PROGRAM -> TO MAKE MY MODEM DIAL Please learn how to use lowercase! These all-capital messges look like you're screaming hysterically. Well, suppose you have file #1 open to your modem, through the com port. All you have to do is: INPUT "Number to dial"; N$ PRINT #1, "ATDT "; N$ What could be easier? dow --- PCBoard (R) v15.3 (OS/2) 5 * Origin: FidoNet: CAP/CANADA Support BBS : 416 287-0234 (1:250/710) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4G00021 Date: 04/11/98 From: DAVID WILLIAMS Time: 10:12am \/To: CHRIS GUNN (Read 3 times) Subj: Re: Multiple eofs -> In reality, the code for any major or complex application can reach a -> point where the original programmer gets burned out trying to keep -> track of everything it does. If I didn't have all the assets in -> QuickBasic and had to paper fix many of my programs, I'd be in deep -> trouble. This is especially true if you have had no reason to look at the coding for a long time. I used to write a lot of programs and release them into the public domain, usually by uploading them to BBSes. Years after I had written one of these things, someone contacted me about it. Apparently, he had bought a commercially-produced disk of programs, and mine was on it! It didn't do exactly what he wanted so, since he had paid for it, he figured it was my duty to modify it for him. Naturally, I saw things differently, but I would have helped him if not too much work had been involved. But when I looked at the coding, I soon realized that I had forgotten just about everything. So the guy was disappointed. dow --- PCBoard (R) v15.3 (OS/2) 5 * Origin: FidoNet: CAP/CANADA Support BBS : 416 287-0234 (1:250/710) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4G00022 Date: 04/12/98 From: KURT KUZBA Time: 01:40am \/To: TERRY RETT (Read 3 times) Subj: COMUNICATIONS TR> QBASIC THAT I CAN USE IN A PROGRAM TO MAKE MY MODEM DIAL TR> I'M TRWING TO WRITE A PROGRAM THAT ASKS FOR THE NUMBER TO TR> DIAL AND THEN WI;; DIAL THE NUMBER THAT YOU INPUT AND I TR> NEED IT IN TXT(.BAS) FORMAT SO THAT All I HAVE TO DO IS TR> TYPE PUT IT INTO THE PROGRAM I'M WRITEING AND THEN RUN IT Why are you shouting? Turn off your Caps Lock, please. We're all right here you know. :) Try this. You will need to change it to accommodate your COM if you are not using COM2, and to set your baud rate if you can not use 19200. Otherwise, it works quite well. '_|_|_| DIALOUT.BAS PUBLIC DOMAIN Kurt Kuzba (4/11/1998) DECLARE FUNCTION GetStr$ (P$, X%, Y%, TC%, BC%, Lim%) ON ERROR GOTO Oops DO VIEW PRINT: COLOR 10, 0: CLS D$ = GetStr$(" Number to dial (or RETURN) => ", 3, 10, 15, 1, 10) IF D$ = "" THEN EXIT DO COLOR 10, 0: CLS : LOCATE 2 LOCATE , 20: PRINT "[R] Redial this number" LOCATE , 20: PRINT "[N] New Number" LOCATE , 20: PRINT "[Q] Quit dialer" VIEW PRINT 5 TO 25 DO FError$ = "ok" OPEN "COM2:19200,N,8,1" FOR RANDOM AS #1 LEN = 8192 IF FError$ = "ok" THEN LOCATE 7, 0: COLOR 10, 0 PRINT #1, "ath0" SLEEP 1 PRINT #1, "atdt" + D$ DO Modemin$ = "" IF NOT EOF(1) THEN Modemin$ = INPUT$(1, #1) IF Modemin$ > "" THEN PRINT Modemin$; kb$ = UCASE$(INKEY$) IF INSTR(" RNQ", kb$) > 1 THEN EXIT DO LOOP CLOSE 1 IF INSTR(" NQ", kb$) THEN EXIT DO ELSE PRINT "File error opening modem port." WHILE INKEY$ = "": WEND END IF LOOP IF kb$ = "Q" THEN EXIT DO LOOP SYSTEM Oops: FError$ = STR$(ERR): RESUME NEXT FUNCTION GetStr$ (P$, X%, Y%, TC%, BC%, Lim%) OX% = CSRLIN: OY% = POS(0): T$ = STRING$(Lim%, " "): Ins% = 1 C% = 0: LOCATE X%, Y%: COLOR TC%, BC% PRINT P$; : Y% = POS(0) WHILE K$ <> CHR$(13) COLOR TC%, BC%: LOCATE X%, Y%: PRINT T$ LOCATE X%, Y% + C%: COLOR 4, 7 PRINT MID$(T$, C% + 1, 1) LOCATE X%, Y% + C%, Ins%, 13, 13 K$ = "": WHILE K$ = "": K$ = INKEY$: WEND IF LEN(K$) = 1 THEN K% = ASC(K$): ELSE K% = -ASC(MID$(K$, 2)) SELECT CASE K% CASE 32 TO 126 'AlphaNumeric IF Ins% > 0 THEN T$ = LEFT$(LEFT$(T$, C% + 1) + MID$(T$, C% + 1), Lim%) END IF MID$(T$, C% + 1) = CHR$(K%): C% = C% - ((C% + 1) < Lim%) CASE 8 'Backspace IF C% > 0 THEN C% = C% - 1: T$ = LEFT$(T$, C%) + MID$(T$, C% + 2) + " " END IF CASE 13: PRINT 'RETURN CASE 27: txt$ = " ": K$ = CHR$(13) 'ESCAPE CASE -82: Ins% = ABS(Ins% - 1) 'Insert CASE -75: C% = (C% + Lim% - 1) MOD Lim% 'Cursor Left CASE -77: C% = (C% + 1) MOD Lim% 'Cursor Right CASE -71: C% = 0 'Home CASE -79: C% = LEN(RTRIM$(T$)) 'End C% = C% + (C% = Lim%) CASE -83 'Delete T$ = LEFT$(T$, C%) + MID$(T$, C% + 2) + " " END SELECT WEND LOCATE X%, Y% GetStr$ = RTRIM$(T$) END FUNCTION > ] By tomorrow, this will all seem like a dream................ --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4G00023 Date: 04/12/98 From: KURT KUZBA Time: 01:40am \/To: NICK ANDRE (Read 3 times) Subj: Capslock NA> BB> why not just: NA> BB> k$=ucase$(inkey$) NA> Sometimes this will lock up the keyboard, or not report NA> anything in K$. For some reason, I've always had to do NA> K$=INKEY$:K$=UCASE$(K$) to do any kind of keyboard NA> reading. Any ideas why? Are you running under Win'95 by any chance? > ] Win'95 :: The Commodore 128 of the Intel World.............. --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00000 Date: 04/11/98 From: TERRY RETT Time: 07:37am \/To: BRUCE BECK (Read 3 times) Subj: Re: COMUNICATIONS ok i, didn't know it was like yelling i just allways use capitols (sorry) tr --- Maximus 2.02 * Origin: THE LOFT in Auburn IN 219-925-5524 & 238-3222 HST/V34+ (1:236/7) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00001 Date: 04/11/98 From: BRUCE CORBETT Time: 10:52pm \/To: TERRY RETT (Read 3 times) Subj: COMUNICATIONS Hi Terry Rett, hope you are having a nice day .+'~'+. | Qouted from a message from Terry Rett 09-Apr-98| To David Williams `+._.+' | About COMUNICATIONS TR> WRITE SOMETHING IN QBASIC THAT I CAN USE IN A PROGRAM TO MAKE MY MODEM TR> DIAL TR> I'M TRWING TO WRITE A PROGRAM THAT ASKS FOR THE NUMBER TO DIAL AND THEN TR> WILL TR> DIAL THE NUMBER THAT YOU INPUT AND I NEED IT IN TXT(.BAS) FORMAT SO THAT TR> ALL Assuming you use Tone dialing to dial numbers do the following....and that your modem is com1. INPUT "Number to dial:", MyNum$ 'Do it the lasy way! Shell to dos and dial it.... SHELL "ATDT"+ MyNum$+" >COM1" 'However that uses command.com (DOS) to dial out.... you could try. 'You should know the following command.... From memory its COM1: it may be 'COM1 OPEN "COM1:" FOR OUTPUT AS 1 PRINT #1, "ATDT"+MyNum$ CLOSE 1 'The number should have dialed so say that it dialed PRINT "Dailed "+MyNum$ Hope that was some help.... Don't compalin if it don't work me memory cant remember every command :-( Should work however. Cheereo, .+'~'+. | Bruce Corbett (Hook@Cheerful.com) H O O K | Hk Software (www.members.tripod/~nzhook) `+._.+' | ruce's anter S (3:775/70) ((646) 756-6331 Np, Nz) --- * Origin: The True Egmont BBS (ruce's anter S) (3:775/70) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00002 Date: 04/11/98 From: JOHN ZORTMAN Time: 10:03pm \/To: BRUCE CORBETT (Read 3 times) Subj: JZComm: Docs BC>Hi, finally someone has posted a Comms program for Door games.... and to BC>save most people from having to ask you for it again. I would like to BC>ask you if I can place a copy on my updated web page in my QBasic section? I don't currently have web access, but sure if you want to include this on your website please go right ahead, as long as its complete including my name etc. as it was posted here. More is better. :-) I'm creating an updated JZComm library complete with all the ANSI I/O routines, example programs and such including a nice Doc file with plenty of references for finding info, including this conference itself (Whats a FIDO conference? etc.), and making it available as a low dollar shareware package for creating shareware. Now if I could just find some ANSI capable artists who already have collections of ANSI screens and such that could be made available, I could include some ANSI samples with their names and e-mail addresses as well, so the programmer would get a complete toolbox for ANSI I/O via the FOSSIL drivers so commonly found on BBS's everywhere, and even sources of ANSI artwork they could check into, communicating directly with the artists themselves for their special projects. *THAT* is something you may want to have available on your website. Once again, everybody'd win in the BBSing world.... Plenty good programmers, painfully few really good ANSI artists. Know any good ANSI artists who'd be interested in joining this lil' project? Please feel free to contact me here or at my address below....! I don't expect anyone will get rich or anything, but I'm reasonably certain the artists, since they'd be dealing with the individual programmers needing their talents, could make a little something here and there, anyhow. Why not? More is better, and some folks'd certainly be needing to use their artwork, maybe extensively. At worst, freely advertising their services wouldn't hurt much. :-) Have A Good One! John Zortman JZ@sevenstar.com * SLMR 2.1a * Highly Advanced Magick is Indistinguishable from Science --- Platinum Xpress/Wildcat! v1.3e * Origin: Seventh Star - York, PA (717)-225-7256 (1:2700/111) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00003 Date: 04/11/98 From: RICKEY PARRISH Time: 04:19pm \/To: BRUCE BECK (Read 3 times) Subj: Re: Decompile BB> Ok, but your *.bas file still should be sitting in your directory, BB> I say this because you didn't say that you had automatically deleted BB> it, your *.bas file will always be your source file. :> The .BAS file still is in my directory, but its the heavily modified version because when i hit Alt-R then X to compile it, I just hit enter to skip the "document has been modified. save changes?" screen, and saved over my version. Doesnt matter now. I wrote a version that uses a .CFG file, so now I only need one version and it will work anywhere. --- Maximus/2 2.02 * Origin: T-Shirts 'N Genes BBS Duncan Canada (250) 748-3408 (1:340/204) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00004 Date: 04/11/98 From: PETER DALTON Time: 09:48am \/To: DAVID WILLIAMS (Read 3 times) Subj: Decompile On (09 Apr 98) David Williams wrote to Bucky Carr... Hi David, -> You mean as in "taking hamburger back into cow?" DW> The Brits have already done it. And came up with Mad Cow Disease! :-) Off topic I know but as a point of interest this is being fully investigated at last here in the U.K. and there has been speculation that a certain chemical used to kill insects is to blame. The problem is the U.K. government in the form of the Ministry of Agriculture insisted years ago that famers /had/ to use this chemical. So if it's proven to be that that's caused it there'll be some big compensation claims going in. This could explain why the government have been reluctant to agree a full investigaton before now but we got a new government last year and they would probably like to place blame on the previous lot. Basically to cover themselves the previous government have allowed the whole beef industry in the U.K to go down the toilet, allegedly! Sorry for the off-topic post but I note from our newspapers over here that there have been isolated cases of BSE over there as well as on continental Europe. It may not be just a 'British' problem... success Peter --- PPoint 1.88 * Origin: Peter Points at last! (2:254/60.26) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00005 Date: 04/12/98 From: BRUCE BECK Time: 02:11pm \/To: TERRY RETT (Read 3 times) Subj: Re: COMUNICATIONS -=> Quoting Terry Rett to Bruce Beck <=- TR> ok i, didn't know it was like yelling i just allways use capitols TR> (sorry) tr Hey, no problem, can really understand, happen once in awhile with me after I have been programming in QB 4.5 and forget that the cap-lock was left on. :> TTYL, Bruce Beck - Sysop of the Adult NiteClub - bwbba@juno.com ... In more ways then one!!!!!!!! --- FastEcho 1.46 [Registered] * Origin: ={T.A.N.C}= (1:2630/139)