--------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F1^00015 Date: 01/29/98 From: LAWRENCE GORDON Time: 09:54am \/To: RONALD SCHLEGEL (Read 1 times) Subj: Pb Bbs Door Library On 01-25-98, Ronald Schlegel wrote to Lawrence Gordon: RS>LG> Hmm... might want to look at that sometime. RS>It goes into beta on 02-01-1998... Let us know when it's ready, Ron. --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2100000 Date: 01/29/98 From: JOSE MEJUTO Time: 08:59am \/To: ALL (Read 1 times) Subj: Re: Sub's Or defining Pro From: jmejuto@pobox.com (Jose Mejuto) Subject: Re: Sub's Or defining Procedures "Barry Erick" wrote: BE> Peter, BE> You need to do this: BE> a$=3DLEFT(b$,1) BE> changeletter a$ BE> SUB changeletter(b$) BE> if b$ =3D "a" then c$ =3D c$+"z" [...] Are you really trying to help Peter or you want to confuse him ? It's really more easy than your code: A$=3DLeft$(B$,1) ChangeLetter (B$) Sub ChangeLetter(B$) Select Case B$ Case "a":B$=3D"z" Case "b":B$=3D"y" .... End Select End Sub Of Course this is not the best way... look at this: A$=3DLeft$(B$,1) ChangeLetter (B$) Sub ChangeLetter(B$) Target$=3D"zyxwvutsrqponmlkjihgfedcba" B$=3DMid$(Target$,ASCII(B$)-96,1) End Sub -- Jose Mejuto - - - - - http://www.pobox.com/~jmejuto - - - - - FidoNet 2:348/102.0 *** QwkNews (tm) v2.1 * [TN11.1] Internet Newsgroup: alt.lang.powerbasic --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2100001 Date: 01/29/98 From: JOSE MEJUTO Time: 02:29pm \/To: ALL (Read 1 times) Subj: Re: PB REG / inline ASM p From: jmejuto@pobox.com (Jose Mejuto) Subject: Re: PB REG / inline ASM problems pb@excelsior.xs4all.nl.REMOVE-THIS (Marc van den Dikkenberg) wrote: MvdD> The weird thing, is that this sub is completed completely: the text MvdD> "I'm done" appears on the screen. However, the program locks up MvdD> completely. The very next line after calling the SendPacket SUB is MvdD> "BEEP", and some print statements. None of these happen... Trying to MvdD> use WORDS instead of integers (plop??) has exactly the same result. MvdD> Works under Win95, locks up under DOS. As you understand, this is MvdD> getting quite frustrating... any ideas, anyone? Wow!! :-? I don't known, but there is something different between the QB code and PB codes. QB uses 2 different structures for InRegs and OutRegs, but PB uses always the same structure. Try to set REG %AX,0, REG %CX,0 and the other non used regs to 0. -- Jose Mejuto - - - - - http://www.pobox.com/~jmejuto - - - - - FidoNet 2:348/102.0 *** QwkNews (tm) v2.1 * [TN11.1] Internet Newsgroup: alt.lang.powerbasic --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2100002 Date: 01/29/98 From: BARRY ERICK Time: 08:14pm \/To: ALL (Read 1 times) Subj: Re: Sub's Or defining Pro From: "Barry Erick" Subject: Re: Sub's Or defining Procedures Nope, Just taking his code with the least changes. That is how to show someone and then let them come up with making it neater. We don't write their programs, simply help them out. -Barry Jose Mejuto wrote in message ... "Barry Erick" wrote: BE> Peter, BE> You need to do this: BE> a$=LEFT(b$,1) BE> changeletter a$ BE> SUB changeletter(b$) BE> if b$ = "a" then c$ = c$+"z" [...] Are you really trying to help Peter or you want to confuse him ? It's really more easy than your code: A$=Left$(B$,1) ChangeLetter (B$) Sub ChangeLetter(B$) Select Case B$ Case "a":B$="z" Case "b":B$="y" .... End Select End Sub Of Course this is not the best way... look at this: A$=Left$(B$,1) ChangeLetter (B$) Sub ChangeLetter(B$) Target$="zyxwvutsrqponmlkjihgfedcba" B$=Mid$(Target$,ASCII(B$)-96,1) End Sub -- Jose Mejuto - - - - - http://www.pobox.com/~jmejuto - - - - - FidoNet 2:348/102.0 *** QwkNews (tm) v2.1 * [TN11.1] Internet Newsgroup: alt.lang.powerbasic --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2100003 Date: 01/30/98 From: DEREK MCDONALD Time: 10:29am \/To: ALL (Read 1 times) Subj: Re: Creating Gif Or Jpg From: thrash@interlog.com (Derek Mcdonald) Subject: Re: Creating Gif Or Jpg On this same subject - what about programs that just READ GIF, JPGs? -- -----------| << THRASH >> Has left the stage... |---------------------- Nemo Voluntas Provocare! DMCS: http://www.interlog.com/~thrash/dmcs.html RRCA: http://www.interlog.com/~thrash/rrca.html *** QwkNews (tm) v2.1 * [TN71] Internet Newsgroup: alt.lang.powerbasic --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2100004 Date: 01/30/98 From: DON SCHULLIAN Time: 04:03pm \/To: ALL (Read 1 times) Subj: Re: Sub's Or defining Pro From: d83@ath.forthnet.gr (Don Schullian) Subject: Re: Sub's Or defining Procedures On Thu, 29 Jan 1998 08:59:44 +0000, jmejuto@pobox.com (Jose Mejuto) wrote: > Of Course this is not the best way... look at this: > > A$=Left$(B$,1) > ChangeLetter (B$) > Sub ChangeLetter(B$) Target$="zyxwvutsrqponmlkjihgfedcba" P% = ASCii(B$) - 96 IF P% > 0 AND P% < 27 THEN B$ = MID$(Target$,P%,1) End Sub Am I missing something here??? We're talking about PowerBASIC, right? Why not use the REPLACE function? F$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" T$= "zyxwvutsrqponmlkjihgfedcba" REPLACE ANY F$ WITH T$ IN B$ ____ _ ____ ____ _____ | _ \ / \ / ___) __ | ___)(_ _) | |_) / _ \ \____\/ \| _) | | |____//_/ \_\(____/\__/|_| |_| Reply to: d83@ath.forthnet.gr www.basicguru.com/schullian *** QwkNews (tm) v2.1 * [TN71] Internet Newsgroup: alt.lang.powerbasic --- GEcho 1.20/Pro * Origin: Toast House Remote (1:100/561) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2200000 Date: 01/31/98 From: RONALD SCHLEGEL Time: 02:46pm \/To: LAWRENCE GORDON (Read 1 times) Subj: Pb Bbs Door Library LG> RS>It goes into beta on 02-01-1998... LG> Let us know when it's ready, Ron. I planned to...:) I may wind up posting a question or two in here before its all said & done... -Ron *** RM 1.3 03129 RoboMail -- The next generation QWK compatible reader! --- TriToss (tm) Professional 11.0 - #229 * Origin: * Dynasty BBS * The Home of Crazy Nights Software * (1:110/1065.0) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2200001 Date: 02/01/98 From: LAWRENCE GORDON Time: 08:49am \/To: ALL (Read 1 times) Subj: Monthly Rules Posting Title: PowerBASIC Programmers Conference FIDONET TAG: POWER_BAS Conference Rules (Fidonet) (Revised - February 1 1998) * 1. Talk about PowerBASIC stuff * 2. Keep subject lines current * 3. Use your real name * 4. Be nice * 5. Let the moderator do the moderating Lawrence Gordon, Moderator FidoNet 1:100/560 --- WILDMAIL!/WC v4.12 * Origin: Toast House * (314) 994-0312 * (1:100/560.0) --------------- FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC Ref: F2200002 Date: 02/01/98 From: THOMAS GOHEL Time: 12:00am \/To: ALLE (Read 1 times) Subj: FAQ: PowerBASIC 01/16 (Index) ========================================================================== PowerBASIC.GER-FAQ for Versions 3.00, 3.10, 3.20 & 3.50 English Version (DOS) (c) 1995/97 by Thomas Gohel, All Rights reserved! English Team: Thomas Geiger, Andras Hoeffken, Wolfgang Bruske Date: 14.12.1997 - Version 0.89 Tip's, Trick's, Bug's and some more or less important stuff ========================================================================== ==================== Foreword to this FAQ ==================== The links listed within this FAQ are provided without concern about possible Copyright-Notices and without concern about any trademarks. Further, the Author does not quarantee that the problems, hints and bugs below are totally correct. Should you have suggestions to this FAQ, pleasce contact me. I am open to suggestions and will let them flow into future Versions of this FAQ. I would also like to point out that some of the 'Bugs' in the 'Bugs Section are only 'Bugs' in a matter of speech. Those mistakes or barriers are documented here for all to see (So that future Versions of PowerBASIC may be developed). =========== Suggestions =========== Suggestions may be presented to the Author of this FAQ at any time. Current Netmail-Addresses are: Thomas Gohel@2:2410/330.1 (FidoNet) pbfaq@pbsound.snafu.de (InterNet) There is also the possibility to log into a Mailbox in which the Author of this FAQ is reachable: | Port 1: +49-30-47300910 (PBSOUND HQ, Berlin - 64.0, ISDN, X75, V42B) | Port 2: +49-30-47300910 (PBSOUND HQ, Berlin - 33.6, VFC, V34, FAX) You can post your suggestions and problems there. To do so, please write a Message in the PBSOUND-Message-Area. An answer should be available within 48 hours. ============================================ How to obtain the current PowerBASIC.GER-FAQ ============================================ The current PowerBASIC.GER-FAQ can be downloaded from my Home BBS online anytime. The phone numbers are: | Port 1: +49-30-47300910 (PBSOUND HQ, Berlin - 64.0, ISDN, X75, V42B) | Port 2: +49-30-47300910 (PBSOUND HQ, Berlin - 33.6, VFC, V34, FAX) Please switch to the 'PowerBASIC: FAQ'-Filearea after login. There are 16 more 'PowerBASIC-Fileareas': PowerBASIC: PBSOUND PowerBASIC: Sound Blaster PowerBASIC: FAQ PowerBASIC: Sourcen (allgemein) PowerBASIC: Sourcen (Deutschland) PowerBASIC: Sourcen (Netherlands) PowerBASIC: Toolkits (allgemein) PowerBASIC: Toolkits (Deutschland) PowerBASIC: Toolkits (Netherlands) PowerBASIC: Grafik (allgemein) PowerBASIC: Grafik (Deutschland) PowerBASIC: Grafik (Netherlands) PowerBASIC: DFUE, BBS und FidoNet Sourcen PowerBASIC: allgemeine Pakete und Info's PowerBASIC: Demos PowerBASIC: User Uploads / Incoming (Note: The PowerBASIC filebase is in german!) Many of the Sources and Toolboxes mentioned in this FAQ can be downloaded here online or using FidoNet Filerequest. InterNet-Users can get the PowerBASIC.GER-FAQ anytime using World Wide Web (WWW) under: - http://www.snafu.de/~pbsound/ A Request of this FAQ using FidoNet is possible using the Magic 'PBFAQ'! | Port 1: +49-30-47300910 (PBSOUND HQ, Berlin - 64.0, ISDN, X75, V42B) | Port 2: +49-30-47300910 (PBSOUND HQ, Berlin - 33.6, VFC, V34, FAX) Further PowerBASIC-Magics are: PBSOUND and PBFILES. ============== Complete Index ============== 1. Obtaining, Toolboxes, Prices and Infos about PowerBASIC 2. Errors/Inconsistencies in PowerBASIC-Versions 3.0, 3.1 and 3.2 3. PowerBASIC and the CoProcessor 4. Standardproblems 5. Hints in Connection with the InLine-Assembler 6. Hints in Connection with Pointers 7. Hints in Connection with Turbo-C or Borland C++ 8. Hints to the Conversion of Sources from PDS to PowerBASIC 3.x 9. Available Shareware & Public Domain Solutions 10. The People from PowerBASIC --- CrossPoint v3.11 R * Origin: PBSOUND, PBFILES (40MB), PBFAQ, PBRULES, PBHIVGA at: 2:2410/330.1)