Quickbasic to PBDOS

[Stephane Fonteyne]

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

[Mike Luther]

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:

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.

[Stephane Fonteyne]

Hello

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

[Joe Caverly]

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

[Stephane Fonteyne]

Other problem

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

Best regards
Stephane

[Horst Donath]

What are the replacement of "VIEW PRINT 11 TO 24" for PBDOS?

VIEW TEXT (1, 11) - (pbvScrnCols, 24)
or
VIEW TEXT (1, 11) - (80, 24)

[Stephane Fonteyne]

Thanks for your quick response

Best regards
Stephane