--------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5G00274 Date: 05/11/98 From: STEVE IGREJAS Time: 02:48pm \/To: ALL (Read 3 times) Subj: Saving Lines Hello Everyone, I want to know of an easy way to save a line. There's an example below. I want to save the line "LINE (100,100)-(150,150), 3, B" to BLAH.DAT. How would I go about doing this? And how would I load that line? Now I want to save 3 lines "PRINT "HI"", "PRINT NAME$", and "PRINT "DUH"" in order. Now how would I only load line "PRINT "DUH"" if it's the 3rd line in the file? ":-) Steve.Igrejas@sbaonline.gov ... Security, confine Ensign to the brig. --- Blue Wave/DOS v2.30 [NR] * Origin: >>>Xanadu BBS<<< New Bedford Ma. (508)995-9876 (FIDONET 1:329/889) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00000 Date: 05/11/98 From: CHRIS GUNN Time: 01:49pm \/To: RYAN POTETZ (Read 3 times) Subj: Re: ansi RP> I am currently writing a communications program for QB1.0 (nothing RP> fancy, just the basics), and I need help with the ansi codes. Could RP> someone send me a list of the ansi codes and colors? Howdy Ryan, They should be in your DOS manual. Chris --- FMail 0.96 * Origin: BIZynet - Worldwide Business via the E-Ways (1:15/55.1) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00001 Date: 05/12/98 From: BERT VAN DAM Time: 12:03am \/To: ALL (Read 3 times) Subj: Doom/Heretic/Hexen Hi, Did anybody ever try to write .WAD utils for Doom, Heretic or Hexen in QB4.5? And if yes could you post some information on your project? CU Bert --- GEcho 1.00 * Origin: Hotel Zeezicht (2:285/750.16) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00002 Date: 05/11/98 From: BUCKY CARR Time: 07:28am \/To: PAT PRIDGEN (Read 3 times) Subj: BlueWave DS> Gall dangit... i'd have send like 5 MSG's by now if TBBS DS> would accept my off-line reader's .REP packet format... DS> Looks like i'm gotta hafta find another way to reply... oh well... PP> Use pkzip 1.1 to zip your replies. You can still use 2.04g to unzip. PP> This is a quirk of TBBS, not BWave. In TBBS v2.3 that quirk was corrected, thankfully. --- PPoint 2.00 * Origin: Vanishing Point (1:15/7.1) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00003 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: DAVID AUKERMAN (Read 3 times) Subj: semicolon DA> Hopefully Kurt will read this, too..:) DA> "Ordinarily, PRINT ends each line ... DA> However, a comma or semicolon ... suppresses this; That's what I said. I also stated that the cursor is not incremented until the next character is printed in the QB PRINT statement. If it were, then the example I posted would have scrolled the screen when the cursor went to the next location. Sorry. I thought I had stated that the CR/LF were omitted by the semicolon and that the cursor does not increment, allowing use of the entire lowermost line. Let's try something interesting... Hmm... Perhaps I spoke too soon and in ignorance, at that. Try this one once! LOCATE 25, 80 PRINT "!"; x% = CSRLIN y% = POS(0) PRINT "!!"; LOCATE 1, 1 PRINT "Line ="; x%; " Column ="; y% WHILE INKEY$ = "": WEND I was somewhat surprised by the results, myself! > ] Tagline!?! I thought suicide note! [ Jack Kevorkian ]... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00004 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: DAVID AUKERMAN (Read 3 times) Subj: Thanks DA> JM> Is it possible to pass errorlevel to a dos batch file [...] DA> DECLARE SUB ExitWithErrorLvl ALIAS "_exit" (BYVAL ERRORLEVEL%) DA> Then to exit with an error level contained in a variable: DA> ExitWithErrorLvl Oops% DA> Using this method from within the Quick Basic environment will DA> cause QB to exit to DOS *immediately* -- you'll lose your code DA> if you haven't saved it to disk. It should also be noted that this will not work when the program is compile to use the dynamic run time library. The program must be compiled as a standalone .EXE for the errorlevel to be successfully returned. > ] This will make no sense whatsoever. Continue (Y/N)?......... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00005 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: OLE HEJLSKOV (Read 3 times) Subj: HELP! OH> Isn't there a command to delete a line in a file? OH> Or else how is the smartest way to do it? The only practical method I can think of is to read the file and write it to another, excluding any lines you do not wish to include. You may then delete the original file and rename the updated duplicate file to the original name. Sequential files do not lend themselves to ease of editing. > ] Well, I wasn't expecting the Spanish Inquisition!........... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00006 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: DAN STATES (Read 3 times) Subj: Direct Disk Access DS> I'm only going to be working with Disks DS> (Ones i don't need, that are unformatted, and blank besides) There are two DOS interrupts used for direct disk access. Using these, you can read or write to any disk segment. See if you can find "DOS Programmer's Reference" Que books ISBN: 0-88022-790-7 Int 25h will read any sector into memory. Int 26h will write to any sector from memory. The book listed informs of the FAT structure and where it is found on the disk, as far as track and sector are concerned. It is too much to explain here, really, and I have no desire to concoct an example program, seeing as how I really have little understanding of these things and little desire to tackle the learning of them at this time. > ] Let he among you without sin cast the first... OW! HEY!!.... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00007 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: BRYAN TURNER (Read 3 times) Subj: Looking for Martin Boucha BT> I am looking for the Author of a Door Library called Easy BT> Door. BT> I found the Program, but the Author is not listed in the BT> Nodelist any more, and I am wondering if anyone knows if BT> he is still accepting registrations for the Libary. I don't believe he can be reached any longer. You might try sending your registration and see what happens, though. I registered mine some years back and he had his coat on and was seeking the door back then. Some people were fairly abusive toward him and demanding individual support, railing wildly against him and denouncing him from the rooftops, which is not terribly conducive to continued efforts, or even assosiation. He may have dropped from sight entirely, and I couldn't really blame him. The library works, and quite well. My disk arrived in damaged condition and I sent him a proper mailer and $5 for a replacement. I got back my new disk in my mailer, along with the $5 and an apology for the rough handling by the Postal Service. I doubt he will be back, unfortunately, due to the climate he found during his time as a Shareware Author. > ] I am Solo of Borg, and I've got a bad feeling about this.... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F5H00008 Date: 05/13/98 From: KURT KUZBA Time: 06:41am \/To: STEVE IGREJAS (Read 3 times) Subj: QUIKTERM.BAS - 1/3 SI> RP> monitor ... input from you modem in QB1.0? SI> I would also like to know. Write me, too. This also has an example of using a .CFG file. '_|_|_| QUIKTERM.BAS (part 1 of 3) '_|_|_| This program will operate in ANSI emulation with ANSI '_|_|_| auto-detect. Must be compiled for high speeds. '_|_|_| No warrantee or guarantee is given or implied. '_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (6/5/96) DECLARE SUB QuikCFG (d() AS STRING) DECLARE SUB ansi (A$) ON ERROR GOTO BooBoo DIM FKEYS(13) AS STRING: port% = 0 FError$ = "ok": OPEN "quikterm.cfg" FOR INPUT AS #2 IF FError$ = "ok" THEN FOR t% = 0 TO 13 IF EOF(2) THEN EXIT FOR LINE INPUT #2, FKEYS(t%) NEXT: port% = VAL(FKEYS(0)) END IF: CLOSE 2 Ex$ = CHR$(27) + "[": CrLf$ = CHR$(13) + CHR$(10) CLS : altx$ = Ex$ + "0;1;32mALT/X to exit terminal" + CrLf$ IF port% = 0 THEN LOCATE 1, 1, 1: PRINT "Choose a port (1/2)" DO: port% = INSTR(" 12", INKEY$): LOOP WHILE port% < 2 port% = port% - 1: FError$ = "ok" OPEN "quikterm.cfg" FOR OUTPUT AS #2 IF FError$ = "ok" THEN PRINT #2, MID$(STR$(port%), 2) END IF: CLOSE 2 FOR t% = 1 TO 34: ansi MID$(altx$, t%, 1): NEXT port$ = "COM" + MID$(STR$(port%), 2) + ":19200,N,8,1" FError$ = "ok": OPEN port$ FOR RANDOM AS #1 LEN = 8192 IF FError$ <> "ok" THEN PRINT "MODEM ERROR"; FError$: END DO Modemin$ = "": IF NOT EOF(1) THEN Modemin$ = INPUT$(1, #1) ansi Modemin$ IF ANSIDetect$ <> "" THEN PRINT #1, ANSIDetect$: ANSIDetect$ = "" kb$ = INKEY$ IF kb$ <> "" THEN k% = ASC(kb$) IF k% = 0 THEN k% = ASC(MID$(kb$, 2)) SELECT CASE k% CASE 45: CLOSE #1: END CASE 59 TO 68: k% = k% - 58 kb$ = FKEYS(k%) DO: e% = INSTR(UCASE$(kb$), "^M") IF e% > 0 THEN MID$(kb$, e%) = MID$(kb$, e% + 1) IF e% > 0 THEN kb$ = LEFT$(kb$, LEN(kb$) - 1) IF e% > 0 THEN MID$(kb$, e%, 1) = CHR$(13) LOOP WHILE e% > 0 IF FKEYS(k%) = "" THEN k% = 0 CASE 133, 134: k% = k% = 122 kb$ = FKEYS(k%) IF FKEYS(k%) = "" THEN k% = 0 CASE 37: QuikCFG FKEYS(): k% = 0 CASE ELSE: k% = 0 END SELECT END IF: IF k% > 0 THEN PRINT #1, kb$; END IF LOOP: CLOSE #1: END BooBoo: FError$ = STR$(ERR): RESUME NEXT '_|_|_| end QUIKTERM.BAS (part 1 of 3) > ] Remain calm and think. I will help you. - Kwai Chang CPUfan. --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750)