--------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300065 Date: 02/27/98 From: MARTIJN VAN DE STREEK Time: 08:21pm \/To: DAVID AUKERMAN (Read 3 times) Subj: INTERRUPT help Hideyho David, 25 Feb 98 15:55, David Aukerman wrote to All: DA> I'm looking for an easy INTERRUPT to use to check for the existance DA> of a writeable drive (i.e. not cd-rom..yet). I've looked and looked DA> through Ralf's INT list, but nothing seems to be popping up for me. DA> Any help from you guys would be greatly appreciated. Check the list for some stuff on 'Get drive type'. Then you can see which drive is what type (disk drive, HD, CD, etc.), and determine if you can write. Thatwasall, [ TwEaKr ^ The Attic People] Martijn [ tweakr@infinity.xs4all.nl ] ... Programmers do it with their fingers. --- FMailX 1.02 * Origin: -=Cocamidopropyl pg-dimoniumchloridephosphate=- (2:283/507.4) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300066 Date: 02/28/98 From: JOHN ZORTMAN Time: 04:01pm \/To: CHRIS WILSON (Read 3 times) Subj: Opening a COM port in QBA CW> RM> openCom "COM2:2400,N,8,1,RB1024,XON" CW>For some reason QBasic comes up with.. "Syntax error" on "openCom" CW>Do you know the reason..?? openCom is not a valid command built into QBasic or QB 4.5. The other guy must be so used to loading a QLB file he's forgotten its an added library of commands. I recognize this because I recently got an old ShareWare version of QBSerial which basically adds fun commands like OpenComm and Transmit and so forth that otherwise would be errors. Either that or he defined an elaborate Sub or Function himself. If you are stuck using only the QBasic that comes with DOS then what follows are some hopefully helpful hints: Open "Com1:19200,N,8,1" FOR RANDOM AS #4 The 19200 is the fastest port speed QBasic will allow, which is ok for a 14.4k baud modem. I always use channel 4 for no reason other than I picked that number long ago on an older version of Basic on another machine type and just got used to it. Never get hung up in eternally waiting for input from the modem: IF NOT EOF(4) THEN I$=INPUT$(1, #4) Will only get 1 character at a time from that channel, and only when there is actually data waiting to be gotten, so to speak. A regular INPUT #4, I$ would wait forever if there's no data just like INPUT A$ would wait forever if you refused to type anything and/or hit Enter. You want simple ANSI term? Ok, hows this: F10Key$ = CHR$(0) + CHR$(68) OPEN "COM1:19200,N,8,1" FOR RANDOM AS #4 OPEN "CONS:" FOR OUTPUT AS #2 CLS LP: IF NOT EOF(4) THEN I$=INPUT$(1, #4):PRINT #2, I$; A$ = INKEY$:IF A$ = "" THEN GOTO LP IF A$ = F10Key$ THEN GOTO HangUp PRINT #4, A$; GOTO LP HangUp: CLOSE #4 END The CLOSE would hang up modem. So Will END. Just added so you see both ways. The above routine will send anything you type to the modem, and print anything from the modem to CONS:, which in this case is the ANSI.SYS you have being loaded by your CONFIG.SYS at boot up time. That is to say, if you have an ANSI.SYS line in your CONFIG.SYS file, then this works. This needs work. But as is, will allow you to type ATZ to reset your modem, manually type something like ATS11=50L2W2 or whatever for an init string to modem, and maybe AT&V to see your modem's settings if it supports that command, and the good ol' ATDT555-5555 to dial a number, in this example the number being 555-5555. Change that to the local BBS's number and it'll dial, connect, and correctly display ANSI from the local BBS. La De Da. Have A Good One! John Zortman * SLMR 2.1a * I like maxim's that don't encourage behavior modification --- Platinum Xpress/Wildcat! v1.3 * Origin: Seventh Star - York, PA (717)-225-7256 (1:2700/111) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300067 Date: 03/01/98 From: BOB LOTSPEICH Time: 10:11am \/To: DAVID ROTHSCHILD (Read 3 times) Subj: 640x480x16 gifs -=> David Rothschild wrote to All concerning 640x480x16 gifs <=- DR> Does anybody have a way to display 640x480, 16-color GIF's in QB DR> 4.5? And if so, would someone be willing to share that much appreciated DR> code? David, you can find GIF viewer codes in ABC9607.ZIP and ABC9703.ZIP. If you can't find this locally or via the Internet, you are welcome to freq it from 1:265/124 anytime (9600-33600 modems supported). You will also need the ABC Reader: ABCRD110.ZIP (DOS) or ABCWIN.ZIP (WIN), also freq'able. Hope this helps... --- Blue Wave/386 v2.30 * Origin: The Circle Circus * Dale City, VA * 703-730-3115 (1:265/124) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300068 Date: 03/01/98 From: DOUGLAS LUSHER Time: 07:33am \/To: THOMAS MATYSIK (Read 3 times) Subj: 800X600X256.. TM>I have some routines written entirely in QB by Dave Shea... They are TM>amazingly fast considering they use PEEK and POKE, although you could TM>probably get them about 400 times faster in Assembler. TM>They support 640x480, 800x600, and 1024x768 at 256 colours. TM>If you are interested I can post or email them. I would like to receive a copy. Could you please e-mail them to me at lusher@freenet.msp.mn.us Thanks --- SLMR 2.1a Are we having fun yet? Tell me when we are, so I'll know. --- FLAME v1.1 * Origin: TC-AMS TBBS 2.3 [64] - Minnetonka MN - (612)-938-4799 (1:282/7) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300069 Date: 03/01/98 From: DOUGLAS LUSHER Time: 07:38am \/To: BRYAN TURNER (Read 3 times) Subj: QBEDITOR BT> BL> QBEDIT11.ZIP is now available for freq from 1:265/124. It has the BT> BL> complete source code for the editor, plus some nice notes from BT>Douglas BT> BL> explaining the various functions. BT> BL> lusher@freenet.msp.mn.us BT> Does he have this on the Net? No, I don't. Some one else might, but not me. Sorry. --- SLMR 2.1a Better living through alchemy. --- FLAME v1.1 * Origin: TC-AMS TBBS 2.3 [64] - Minnetonka MN - (612)-938-4799 (1:282/7) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300070 Date: 03/01/98 From: DOUGLAS LUSHER Time: 08:12am \/To: JOHN ZORTMAN (Read 3 times) Subj: FINDING THE CURSOR JZ> However I want to go about letting ANSI.SYS handle the interpreting JZ> and screen handling of ANSI code, I end up with the same problem. This JZ> is for that real short ANSI capable MiniTerminal I'd posted here JZ> awhile back. JZ> row=CSRLIN:col=POS(0) JZ> can normally be happily used to locate the location of the cursor. JZ> However, it only returns the last location QB put it before ANSI takes JZ> it and zooms it all over doing its thing. I can open an ANSI picture JZ> file, read it into a string, and print it out to a channel opened to JZ> CONS: so the BIOS with ANSI.SYS takes it and displays it properly and JZ> such, which of course doesn't update QB's cursor at all. For simple JZ> picture displays thats no big deal. JZ> For an online terminal, however, this leaves me no way to simulate a JZ> blinking cursor onscreen, mainly because I have no way of knowing JZ> where that cursor is supposed to be. The above obviously don't cut it. JZ> What I'm sincerely hoping is, someone around here is aware of some JZ> quick and simple way I can PEEK at some memory locations or somehow JZ> easily determine where the BIOS/ANSI thinks the cursor is. If I could JZ> read this somehow then I could combine that info with the LOCATE JZ> command, and I'd have a way to keep "my" cursor right up to date with JZ> the "real" one that the BIOS/ANSI is using. JZ> Since I'd be reading from the modem character by character, I can JZ> then "feed" the data to BIOS/ANSI character by character, and update JZ> my blinking underline character cursor location, in between each one, JZ> all without mussing up the ANSI pictures or ANSI cursor control JZ> movements. I hope. Well, that seems the long way to go about it. Why not ask ANSI to tell you where the cursor is? Here's a bit of sample code that will demonstrate: DEFINT A-Z E$ = CHR$(27) CLS A$ = E$ + "[10;30H" B$ = "TESTING..." C$ = E$ + "[6n" OPEN "CON" FOR BINARY AS #1 'use ANSI to place the cursor somewhere PUT #1, , A$ 'print something to the screen there PUT #1, , B$ 'ask it to tell you where the cursor is now PUT #1, , C$ 'get its answer DO X$ = INPUT$(1, 1) PRINT X$; LOOP UNTIL X$ = CHR$(13) CLOSE #1 END Of course I just printed ANSI's response in this demo. You will need to capture it in a string and parse the string to get the row and column values. Hope this helps... --- SLMR 2.1a Do it! It's easier to get forgiveness than permission. --- FLAME v1.1 * Origin: TC-AMS TBBS 2.3 [64] - Minnetonka MN - (612)-938-4799 (1:282/7) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300071 Date: 02/26/98 From: JAMES MCCOMBE Time: 10:47pm \/To: VERNON PRUITT (Read 3 times) Subj: command line parameters .TAGID: Tag-O-Matic V.13 Eval 4a6 +------------------------------------------------ ---- --- -- - | Vernon, you were talking to Everyone | About command line parameters on 02-26-98 07:33 +------------------------------------ ---- --- -- - VP> I use ARJ to break up my files that are more that 1.4 megs to fit on a VP> disk. I have been using a batch file, but I still have to type in the VP> source file or files and the destination file (and have to remember in VP> which order). I am tired of this and want to write a program that will VP> prompt me for the needed information then call the ARJ program to VP> archive it with the proper command line parameters. Actually I know this in Batch files, and you should have a batch file like this, (This is one like mine), it also includes virus scan procedures, so I use it when I download files from bbs's, which can also be good... @ECHO OFF REM Written By James McCombe CLS IF EXIST %1.ARJ GOTO UNARJ1 IF EXIST %1.ZIP GOTO UNZIP1 IF EXIST %1.RAR GOTO UNRAR1 GOTO ENDME :UNARJ1 MD ##TEMP## ARJ X -Y %1 ##TEMP## CD ##TEMP## GOTO VIRSCAN :UNZIP1 MD ##TEMP## PKUNZIP -D %1 ##TEMP## CD ##TEMP## GOTO VIRSCAN :UNRAR1 MD ##TEMP## UNRAR X %1 ##TEMP## CD ##TEMP## GOTO VIRSCAN :VIRSCAN F-PROT . /ALL /DISINF /NOMEM IF NOT ERRORLEVEL 0 THEN GOTO ERROR1 SCAN . /ALL /SUB /NOMEM IF NOT ERRORLEVEL 0 THEN GOTO ERROR1 GOTO RECOMPRESS :RECOMPRESS DEL ..\%1.* ECHO Compressing... ARJ A -JM -R -V1440..\%1 ECHO Adding File Comment... ARJ C ..\%1 -ZC:\ANSI\FCMT.TXT > NUL CD .. DELTREE /Y ##TEMP## > NUL GOTO ENDME :ERROR1 ECHO Possible Virus Found ECHO Deleting offending files CD .. DELTREE /Y ##TEMP## ECHO Doing a Scan of the System files F-PROT C:\ /DISINF SCAN C:\ /ALL GOTO ENDME2 :ENDME ECHO File Conversion Complete GOTO ENDME2 :ENDME2 -===- [ Soul Stealer ] -===- Soulstelr@Hotmail.com ... Oxymoron: A contradiction in terms, e.g. rap music . . . ~~~ Tag-O-Matic V.13 ! ___ Blue Wave/DOS v2.30 [NR] --- ViaMAIL!/WC4 v1.30 * Origin: The Door Factory * Winnipeg, Canada (1:348/956) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F3300072 Date: 02/26/98 From: ANDY HOLDING Time: 07:21pm \/To: OLE HEJLSKOV (Read 3 times) Subj: 800x600x256.. OH> Hello: 'All' OH> Subject: '800x600x256'. OH> Is there anyone there can help me making my program, to run OH> in subj? OH> I know that you can do it but how.. does any one know how to do that with simple outputs,peeks and pokes also could someone post instructions on how to use cause i've got loadsa libs which don't work. --- * Origin: Insanity is hereditary. You get it from your kids. (2:254/292.9)