Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 132
» Latest member: Vicki Massey
» Forum threads: 124
» Forum posts: 930

Full Statistics

Latest Threads
center line not working w...
Forum: PowerBASIC for Windows
Last Post: Dale Yarker
Yesterday, 06:42
» Replies: 3
» Views: 82
Euclidean division; quoti...
Forum: Source Code Library
Last Post: Dale Yarker
31.08.2026, 06:25
» Replies: 0
» Views: 44
Is PBUsers.org broken?
Forum: Suggestions and discussion about PUMP
Last Post: Jules Marchildon
09.08.2026, 00:04
» Replies: 4
» Views: 392
Does PB progs run well in...
Forum: PowerBASIC for Windows
Last Post: Stanley Durham
06.08.2026, 12:42
» Replies: 6
» Views: 637
Where is pbusers.org?
Forum: This and that - friendly chat
Last Post: Kurt Kuzba
05.08.2026, 12:32
» Replies: 3
» Views: 370
FFTW - Attn Dan Soper
Forum: Programming
Last Post: Dan Soper
20.05.2026, 12:31
» Replies: 1
» Views: 761
Discussions
Forum: JKB (32/64 bit Compiler)
Last Post: Albert Richheimer
27.04.2026, 19:42
» Replies: 9
» Views: 2,817
Announcements for updates
Forum: JKB (32/64 bit Compiler)
Last Post: Juergen Kuehlwein
27.04.2026, 14:26
» Replies: 1
» Views: 1,213
Enter PIN popup dialog in...
Forum: Source Code Library
Last Post: Dale Yarker
23.04.2026, 16:54
» Replies: 0
» Views: 610
Sounds good!
Forum: JKB (32/64 bit Compiler)
Last Post: Dale Yarker
13.04.2026, 02:54
» Replies: 0
» Views: 701

 
  Test posting
Posted by: Albert Richheimer - 14.05.2024, 08:23 - Forum: Test forum - Replies (11)

this is a posting to test the BB codes.


Code:
    gThreadAlive=%TRUE
    thread create ttdsPing(0) to gThread
    SetThreadPriority gThread,%thread_priority_idle

    gMainALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOX))
    gMainALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOY))
    gMutaALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOX))
    gMutaALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOY))


    '  Connect to ttds
    '  ---------------
    '
    gDSConn=trm_Connect(gServerURL,gttdsPort,gttdsData,gttdsUser,gttdsPass,0)
    if gDSConn < 0 then
      gErrorText="Unable to connect user "+gttdsUser+" to database "+ _
                  gttdsData+":"+$cr+"Error "+format$(abs(gDSConn))+" - "+ _
                  trm_ErrorMessage(gDSConn)
      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION
      exit function
    end if

'  Open ttds files
'  ---------------
'
    gDLDAT = trm_Open(gDSConn,gDLDAT_File,1)
    if gDLDAT < 0 then
      gErrorText="ERR#001 Cannot open "+gDLDAT_File+". Code "+format$(gDLDAT)
      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION
      goto closedown
    end if
    dim abg(0) as global DLGES at varptr(dld)



Code tags obviously works fine - important for us programmers.

Print this item

  How to register with PUMP / become a PUMP member
Posted by: Albert Richheimer - 14.05.2024, 07:01 - Forum: Welcome to PUMP - PowerBASIC Users Meeting Point - No Replies

You are welcome to join PUMP (PowerBasic Users Meeting Point) by registering. PUMP is reserved for active (=contributing) users already registered at PowerBASIC. You are required to use your real name, in the exact spelling you are registered with PowerBASIC.com. After you have submitted the registration form I will check the name with the PowerBASIC forum and activate your account, if the above requirements are met. Otherwise the application for membership will be deleted without notification.

Please note that there is no formal right for getting access to PUMP.

Your admin: Albert


Update per 16-Nov-2025: As there are too many spam robots applying for an account I needed to switch off the Register Form. If you want to join PUMP and fulfill the above criteria you are welcome to send me an E-Mail. I need your full name and your location for creating an account for you.


PUMP is not affiliated with PowerBASIC Inc., PowerBASIC Tools LLC, or their successors.

Print this item