--------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAH00001 Date: 06/10/95 From: JIM TANNER Time: 10:18pm \/To: ALL (Read 3 times) Subj: Example code... Looking for some PB code that does a "percent bar" such as used by an installation program to show the percent completed/percent remaining... Thanks in advance... Jim... --- GEcho 1.10+ RA 2.02+ * Origin: RiverBend*Home of GolfLog & GolfClub*501-563-6829| (1:19/99) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAH00002 Date: 06/11/95 From: BRANDON CARNAHAN Time: 03:34pm \/To: JIM TANNER (Read 3 times) Subj: Example Code... Quoting JIM TANNER to ALL: JT>Looking for some PB code that does a "percent bar" such as used by an JT>installation program to show the percent completed/percent remaining... Stolen from the DNA Lib set of stuff. SUB Percentage(Percent%,Row%,Col%,Attr%,TextAttr%)PUBLIC $CODE SEG "DNASEG2" FGround% = 15 AND Attr% BGround% = 255 AND (Attr% - FGround%) / 16 TextFG% = 15 AND TextAttr% TextBG% = 255 AND (TextAttr% - TextFG%) / 16 IF SCREEN(Row%,Col%) <> 48 THEN 'check and see if back drop is there LOCATE Row%,Col%,0:COLOR TextFG%,TextBG% PRINT "0 20 40 60 80 100"; LOCATE Row% + 1,Col%,0:COLOR FGround%,BGround%:PRINT STRING$(50,32); ELSE IF ISFALSE Percent% THEN 'repaint the screen if 0 LOCATE Row%,Col%,0:COLOR TextFG%,TextBG% PRINT "0 20 40 60 80 100"; LOCATE Row% + 1,Col%,0:COLOR FGround%,BGround%:PRINT STRING$(50,32); END IF END IF COLOR FGround%,BGround% FOR i% = 1 TO Percent% IF (i% AND 1) = 1 THEN IF SCREEN(Row% + 1,(i% \ 2) + Col%) <> 219 THEN LOCATE Row% + 1,(i% \ 2) + Col%,0:PRINT CHR$(221); END IF ELSE IF SCREEN(Row% + 1,(i% \ 2) + (Col% - 1)) <> 219 THEN LOCATE Row% + 1,(i% \ 2) + (Col% - 1),0:PRINT CHR$(219); END IF END IF NEXT i% END SUB // bc@primenet.com \\ --- * !CAUTION! Taglines may be hazardous to your disk space! --- MsgToss 2.0d(beta) 02/21/93 * Origin: Device and Data Services <602> 786-0219, 786-3964 (1:114/271) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAK00000 Date: 06/12/95 From: DANNY DAVIS Time: 09:07pm \/To: JAMES GOLDBLOOM (Read 3 times) Subj: POWER BASIC DOOR LIBRARY -> I need an up to date fully featured Power Basic DOOR library - so I c -> write doors which detect fossil, have good ansi/acscii output, and -> monitor carrier, work with IRQ'S and so forth, blah blah. I want -> a really decent one. -> -> Suggestions as to where to FREQ such a major library? (Or buy?) -> James, You should leave a message in the QUICK BASIC echo. There is a team of us designing a FREE DOOR LIBRARY with source and all. There is need for a POWERBASIC programmer the last I heard. If interested leave a message in the QB echo to Graeme Grant. Graeme is coordinating the whole thing. Has some excellent features to it. I just recently bought PB 3.1 and I'm still learning it so I won't be a great deal of help with PB 3.1 just yet. But like I said if you feel you'd like to help drop him a message. --- Platinum Xpress/Wildcat! v1.0f * Origin: The Lighthouse BBS [209] 497-6722 (1:205/75) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAK00001 Date: 06/12/95 From: CHRIS ADAMS Time: 12:49am \/To: JIM TANNER (Read 3 times) Subj: Example code... On (10 Jun 95) Jim Tanner wrote to All... JT> Looking for some PB code that does a "percent bar" such as used by an JT> installation program to show the percent completed/percent remaining... First, work something like this: PercentDone!=BytesCopied&/BytesTotal& LOCATE 1,1:PRINT "(";PercentDone!"%)"; That'll give you a basic (10%) done message. Next, go on for a bar: LOCATE 1,1:PRINT STRING$(INT(PercentDone!*10+1), 178); Remember, both of these should be put inside your install loop. - Chris Adams - (805)928-8565 (VMB/FAX) - - 1:212/2001.5@Fidonet - 87:40/2.5@CoastNet ... Age is important only in dead fish and good wine. --- PPoint 1.88 * Origin: The Point of Obfuscation! (1:212/2001.5) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAK00002 Date: 06/12/95 From: RONALD BROWN Time: 04:55pm \/To: ALL (Read 3 times) Subj: graphics telecom prog I have just finished a drawprogram that generates basic source code for draw- ings. The name of the program is DRAWBAS10.zip and is located on the ftp site ftp.gzero.com. It lies in \pub\ibm\fonts. The program has a lot of uses ,telecommunicating graphics,its a real imesaver for those who program in basic.The freeware version was coded for the basic screen mode of 12 to use in sending pictures on fido and other nets. The program allows you to do drawings and enter colored text. Syops I have limited the freeversion at 25 lines so you wont get clogged. Remember they say a picture is worth a thousand words and I say pictures and words are worth everything when it comes to explaining somthing to someone. The program generates code so you can load these messages and drawings into most basic ides run it as a program and veiw a drawing and read the message. If you have any graphics job to do in basic you can save yourself a whole lot of time by using it. I am very interested in adding a full graphics to a bbs program and anybody who has a telecommunicating program who wants to add this feature please contact me 2742@gzero.com. The freeware version is a little ruff but I am working on the next version and already have made several improvements anyway it will do what its suppost to do that is save time and graphics comm. More details in the docs if you download. --- * SLMR 2.0 * Unable to locate Coffee -- Operator Halted! --- * Origin: Ground Zero - 813-849-4034 - gzero.com - REC18 (1:3619/25) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAK00003 Date: 06/13/95 From: JAMES GOLDBLOOM Time: 04:43pm \/To: DANNY DAVIS (Read 3 times) Subj: Re: POWER BASIC DOOR LIBRARY DD-> message in the QB echo to Graeme Grant. Graeme is coordinating the DD-> whole thing. Has some excellent features to it. I just recently I won't, because PB 3.x is my compiler of choice, so I need to dedicate my research to that library. Thanks kindly for writing, tho! -James --- QuickBBS 2.80 GoldBase (Zeta-1) * Origin: AD Message BBS: #1 Rated - 10th Year - (703) 998-(1:109/611@FIDONET) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAL00000 Date: 06/16/95 From: GARRY KUBEL Time: 08:10pm \/To: ALL (Read 4 times) Subj: # operator Hi ALL, I am a C programmer, and I found a bit of Power Basic code that I found interesting. I started translating it to C, but I ran accross #. I couldn't find a reference to this in GW-BASIC, or TRS-BASIC, which are the versions of the language that I have used in the past. Would anybody be willing to tell me what this operator does? Thanks, Garry....:) --- * NFX v1.3 [000] "If A-V geeks rules the world." -- Crow T. Robot --- HyPerMail * Origin: Heart Of The City BBS! K.C.Ks (1:280/180) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAM00000 Date: 06/15/95 From: BLAIR COLBEY Time: 08:38pm \/To: RONALD BROWN (Read 4 times) Subj: Graphics TeleCom Program. RB>I have just finished a drawprogram that generates basic source code for draw-ings. The name of the program is DRAWBAS10.zip and is located on the ftp site ftp.gzero.com. It lies in \pub\ibm\fonts. RB>I am very interested in adding a full graphics to a bbs program and nybody >who has a telecommunicating program who wants to add this feature please >contact me 2742@gzero.com. Hi there! I've been interested in writing a graphical bbs system (of my own) or at least a graphical standard. There is RIP but i think that there are much more capabilities that can be written into a program. I started briefly writing a graphical door unit in Turbo Pascal (I'm quite fluent in programming QuickBasic/PowerBasic/Turbo C/TPascal/Asm) And i wanted to create a unit (or library) so that any average person could say include this library and type a few lines and my library does the rest! Runs the comport's, etc. all they have to do is say put this picture here, etc! I've been lolling around trying to decide what screen mode to use. I like mode 12 since you get the high-res but i like mode 13 since you get 256 colors. I've even been looking a a tweaked mode 13 (called Mode-X) that you can jump up to 360*480*256 colors on a standard 256k video card! When i read this message it sounded like ehat i was looking for! A good draw program that would save into small graphics files that could easily and quickly be send over modem to be de-scrambled (if need be) by the user's terminal. If you interested in writing a library for any language like this let me know. I'm going to try to get ahold of your program from the INet buy my knoledge of it is limited and so is my access. I would eventually like to write a full fledge bbs system with my own graphics capabilities in it. L8er. Blair. յ FidoNet(1:247/214.0) --- Blair Colbey --- INet(blair.colbey@wisebbs.com) ---> TidleWave Software <--- * QMPro 1.53 * Block Parity: One heck of a good time. --- PCBoard (R) v15.21/2 * Origin: Mercury BBS ;> (1:247/137) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAM00001 Date: 06/15/95 From: SAUL LEVY Time: 02:54pm \/To: JAMSHID KHOSHRANGI (Read 4 times) Subj: Alive? Jamshid, I agree that most of us don't need OOP extensions to PB. I mostly write small utilities and an occasional application program, but nothing very large for many years now. Maybe you ARE just spinning your wheels! =8-) BTW: Did you ever get my second request for RDF14 in the QuickBAS echo? I'd sure like to see it republished there if you still have a copy. Thanks! Saul --- Maximus 2.02 * Origin: Comm-Post * Tucson, AZ * USR v.e * 520.571.9063 (1:300/53) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: CAM00002 Date: 06/16/95 From: LAWRENCE GORDON Time: 10:33pm \/To: BRANDON CARNAHAN (Read 4 times) Subj: Example Code... Quoting Brandon Carnahan to Jim Tanner: BC> Stolen from the DNA Lib set of stuff. Nice to see you posting again here, Brandon. How is the BBS project coming? * WCE 2.1G1/2081 * --- WILDMAIL!/WC v4.12 * Origin: Toast House * (314) 994-0312 * (1:100/560.0)