Announcement

Collapse
No announcement yet.

Quickbasic to PBDOS

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Quickbasic to PBDOS

    Hi all,

    What are the replacement of the statement "COMMON SHARED" and "VIEW PRINT 11 TO 24" for PBDOS?
    I ask this because I translated an quickbasic program into PBDOS.

    Best regards
    Stephane
    Stephane Fonteyne
    Member
    Last edited by Stephane Fonteyne; 7 Mar 2011, 11:28 AM. Reason: add new statement

  • #2
    This has been so long ago, but I think you are asking about what PBDOS cites as:

    PUBLIC

    This can be string stuff, numeric stuff etc. as variables, including arrays as well. Such as:

    PUBLIC X$(), P$(), PF$(), P0$(), MSKP$(), DTEP%()
    PUBLIC BB%, BCC%, BRT%, BSB%
    PUBLIC QC#, QS#, QHZ#
    PUBLIC VLT!, VR&, VY&

    What you do is place all the required PUBLIC stuff that is needed for you entire suite of programs and library modules in a complete file. You include that entire file load at the top of your source code file in PBDOS. But note that in most cases, you'd better declare the whole needed variable names GENERIC types as master letters for this, other than what is discretely defined in this common source file. You load this file just before the start of the actual program work such as:

    Code:
    50  CLEAR
        $STACK 2048
        DEFINT A-O, R-T, V-Z '  Define integers
        DEFSNG P '              Define singles
        DEFDBL Q '              Define doubles
        ' ---
        ON ERROR GOTO 18050 '   Set error trap jump
        $INCLUDE "ZDATE.BAS" '  Get rev date
        $INCLUDE "PUBIC.BAS" '  Common PUBLIC stuff
        ' And so on plus just before you go to work
        MEMPACK
    It's worked for ages like this for me including over 2000 absolutely required PUBLIC variables that MUST be used in a complete professional management template that has over 115 major PBDOS executables and library modules in it.
    Mike Luther
    [email protected]

    Comment


    • #3
      Hello

      Thanks for your quick response.
      And what can you say about the replacement of VIEW PRINT ?

      Comment


      • #4
        In your PB35 directory, take a look at the UNIT subdirectory.

        In that directory, you will find the SCRNUNIT.BAS file.

        While PB does not have a VIEW PRINT command, the routines in this unit should help you emulate VIEW PRINT.

        You may also want to look at the VIEW TEXT command. For example;

        VIEW PRINT 8 TO 19 translates to roughly VIEW TEXT (1,8)-(pbvScrnCols,19)

        Joe
        Joe Caverly
        Member
        Last edited by Joe Caverly; 7 Mar 2011, 07:27 PM. Reason: Added info about VIEW TEXT

        Comment


        • #5
          Other problem

          What are the replacement of VIEW PRINT (QB45) for PBDOS?

          Best regards
          Stephane

          Comment


          • #6
            What are the replacement of "VIEW PRINT 11 TO 24" for PBDOS?
            Code:
            VIEW TEXT (1, 11) - (pbvScrnCols, 24)
            or
            VIEW TEXT (1, 11) - (80, 24)

            Comment


            • #7
              Thanks for your quick response

              Best regards
              Stephane

              Comment

              Working...
              X