PowerBASIC Web BBS 
Author Message
 PowerBASIC Web BBS

The following source files have been posted on the Web BBS at:

  http://www.*-*-*.com/

Please note that most of this is BASIC code and will work in Microsoft
BASIC languages with little or no modification.

---

All Versions: Reverse all characters in a string
All Versions: Shuffle an array
Bit Swapping MAC address
Change volume name
PBCC: CGI Web Counter application
PBCC: CPU Identification
PBCC: Calculate a 32-bit CRC
PBCC: Convert all filenames to uppercase
PBCC: Cypher (encryption)
PBCC: DNS Lookup (Winsock)
PBCC: Display version information
PBCC: Eject CD tray
PBCC: EnumFonts for Default Printer
PBCC: Forcing a DOS box into the foreground / retrieving its hwnd
PBCC: Get Available Drives
PBCC: Get Drive Type
PBCC: Get/Set Cosole Window Title
PBCC: GetDiskFreeSpace (Fat 16/32)
PBCC: Hex file dump
PBCC: KeyIn% Function Returns Unique KeyCode
PBCC: PBCGI.INC file update
PBCC: Play a .WAV file
PBCC: Return the default printer
PBCC: SCRNIO.INC update
PBCC: Set console title
PBCC: Simulated FILES commans
PBCC: Sort a text file
PBCC: Speeding up PRINT on Win95/98
PBCC: Web Server
PBCC: Win32API for Line printers
PBCC: with micSendString - play *.wav,*.avi,*.mid
PBDLL16: LIKE function from Visual Basic
PBDLL16: PEEK, POKE, OUT and INP for Visual Basic
PBDLL16: Return a drive's type
PBDLL16: Sum of an array
PBDLL16: Unload a DLL from memory
PBDLL32: A VB like Calendar control
PBDLL32: CalTest - Test program for Calendar
PBDLL32: Calling a DLL from WISE
PBDLL32: Convert a Long filename to a Short filename
PBDLL32: Creating a "Tray Icon" application
PBDLL32: Debug Print
PBDLL32: Different DATE$ values
PBDLL32: Easy printer
PBDLL32: Font View Example
PBDLL32: Owner Draw Listbox
PBDLL32: RTF Edit Control
PBDLL32: Return the date and time of a file
PBDLL32: Return the size of a file
PBDLL32: STDIN & STDOUT
PBDLL32: Splash Screen
PBDLL32: Synchronous SHELL
PBDLL32: UpDownControl
PBDLL32: VARIANT CONVERSION
PBDLL32: Wildcard Match
PBDLL32: translation of Petzold's HexCalc
PBDOS: 16-bit CRC calculation
PBDOS: 16-bit INP and OUT
PBDOS: ANSI Interpreter
PBDOS: Access the PRINT.COM spooler
PBDOS: An Old Friend--Prime Numbers
PBDOS: Binary file copy routine
PBDOS: Bouncing VGA lines
PBDOS: Bufered LINE INPUT
PBDOS: CPU Detection
PBDOS: Click the speaker
PBDOS: Clock in the corner TSR
PBDOS: Convert number to Roman Numerals
PBDOS: Count the number of lines in a text file
PBDOS: Create nested directories
PBDOS: Date & Time Display Variables
PBDOS: Date manipulation code
PBDOS: Draw an Ellipse
PBDOS: Draw an eye
PBDOS: Drive Ready
PBDOS: EGA Animation
PBDOS: Enable/Disable a drive
PBDOS: Fast Hashing Algorythm
PBDOS: File transfers via NULL MODEM link
PBDOS: Find first free string element
PBDOS: Get disk I/D and Label
PBDOS: Getting error level from SHELLed program
PBDOS: Graphics PrintScreen to a Laser or Dot Matrix Printer
PBDOS: How to use SetOnExit
PBDOS: How to write an ISR in BASIC
PBDOS: KILLDIR utility
PBDOS: LANtastic/NetBIOS Code
PBDOS: Mad mad mad Mazes
PBDOS: Make searchable patterns
PBDOS: Novell Netware routines
PBDOS: Pacman game
PBDOS: Pad Left side of string
PBDOS: Pad the right side of a string
PBDOS: QBASIC Gorillas for powerbasic
PBDOS: Read BMP Files
PBDOS: Read/Write INI Files
PBDOS: Resource utility
PBDOS: Return a negative integer
PBDOS: Return first non-space character in a string
PBDOS: Return the amount of Base RAM
PBDOS: Return the amount of Free RAM
PBDOS: Return the number of floppy drives
PBDOS: Rotate String left
PBDOS: Rotate String right
PBDOS: Routine to set any of 12 256 color graphics modes
PBDOS: Screen Melt
PBDOS: Shift String left
PBDOS: Shift String right
PBDOS: Simple XOR encryption
PBDOS: Split a register in half
PBDOS: Starfield
PBDOS: Strip high bit from string data
PBDOS: Sub chase game
PBDOS: TSR Tools
PBDOS: TSR to run your Backup Program
PBDOS: Television style scren wipe
PBDOS: Tweaking Dave's Quick Tip
PBDOS: UCASE with foriegn char support
PBDOS: VGA Text Crossfade
PBDOS: Video Card Info
PBDOS: Video Mode Info
PBDOS: Want it Converted to PB/CC.
PBDOS: Wildcard Matching
PBDOS: week numbers
REGISTRY: Windows NT Logon
VB: Trim an ASCIIZ string
WIN32: BackInstr
WIN32: CVMS, CVMD, MKMS$ and MKMD$
WIN32: Check for NT
WIN32: Convert between ANSI and Unicode strings
WIN32: DELAY statement for PB/CC and PB/DLL
WIN32: Enhanced message box
WIN32: EnumFontFamilies Example to print a sample of all fonts
WIN32: Make window non retangular
WIN32: ROT13 encryption and decryption
WIN32: Register an icon for a given file extension.
WIN32: Return OS Version information
WIN32: Return System Directory
WIN32: Return the Windows directory
WIN32: Sequence
WIN32: Split (from VB6)
WIN32: StrComp (from VB)
WIN32: VB's StrComp function
WIN32: Version Info Resource



Sun, 01 Jul 2001 03:00:00 GMT  
 PowerBASIC Web BBS

Quote:

>The following source files have been posted on the Web BBS at:

>  http://www.powerbasic.com/cgi-bin/Ultimate.cgi

Good stuff.... as always!

I've got a question regarding PBcc and/or the way you attacked the reverse
string function. (please regard the two versions below)

Working in PB/cc it's awfully difficult to get anything resembling accuracy
from TIMER due to the multi-tasking nature of Win9x but, I'll concede that the
two functions take (within a nano or two) the same amount of time. Is there
any benefit of doing it your way vs. my way or is that just the way you did
it?

For those of you new to this NG I am NOT pulling one-up-manship here. Dave's
the penultimate Guru around PowerBASIC and his answer could shed some insight
on programming techniques!

TIA,

   ____    _    ____      ____  _____
  |  _ \  / \  / ___) __ | ___)(_   _) Don Schullian

  |____//_/ \_\(____/\__/|_|     |_|    www.DASoftVSS.com
  ___________________________________   www.basicguru.com
      Vertical Software Solutions

'
' Dave's model
'
FUNCTION StrReverse(BYVAL original AS STRING) AS STRING
  DIM b AS BYTE PTR
  DIM l AS LONG
  DIM x AS LONG
  DIM t AS BYTE

  b = STRPTR(original)
  l = LEN(original) - 1
  FOR x = 0 TO (LEN(original) \ 2) - 1



  NEXT

  FUNCTION = original

END FUNCTION  
'
'Don's model
'
FUNCTION fReverse(BYVAL Original AS STRING) AS STRING

  DIM O_ptr  AS BYTE PTR
  DIM Ostart AS LONG
  DIM Oend   AS LONG

  O_ptr = STRPTR(Original)
  Oend  = LEN(Original) -1

  FOR Ostart = 0 TO ( Oend \ 2 )

    DECR Oend
  NEXT

  FUNCTION = Original

END FUNCTION



Mon, 02 Jul 2001 03:00:00 GMT  
 PowerBASIC Web BBS


...snip advert...

And you didn't post the files to usenet as well? You're definitely
mellowing out.

C'ya,
RJ
"NOT NOW!"



Mon, 02 Jul 2001 03:00:00 GMT  
 PowerBASIC Web BBS

Quote:

> For those of you new to this NG I am NOT pulling one-up-manship here. Dave's
> the penultimate Guru around PowerBASIC and his answer could shed some insight
> on programming techniques!

Since you consider Dave the "penultimate" guru, may I assume I retain
the title of"ultimate" guru?

MCM
Racine WI USA



Mon, 02 Jul 2001 03:00:00 GMT  
 PowerBASIC Web BBS
Don,

At the time that I wrote that source code, the SWAP statement had not
been implemented (PB/DLL was still in beta).  Using the SWAP statement is
actually faster since it uses registers.

--Dave



Tue, 03 Jul 2001 03:00:00 GMT  
 
 [ 5 post ] 

 Relevant Pages 

1. PowerBASIC at Davar Web Site

2. PowerBASIC at Davar Web Site

3. PowerBASIC at Davar Web Site

4. PowerBASIC at Davar Web Site

5. PowerBASIC at Davar Web Site

6. PowerBASIC at Davar Web Site

7. PowerBASIC at Davar Web Site

8. RCFB BBS Going Down -- Visit Our Web Site

9. web BBS module written in python

10. WEB WEB WEB

11. looking for powerbasic 3.x

12. New PowerBASIC compilers!

 

 
Powered by phpBB® Forum Software