home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / PBGUI200.ZIP / DEMO2.BAS < prev    next >
BASIC Source File  |  1993-07-19  |  21KB  |  764 lines
  1. $COMPILE EXE
  2. $ALIAS DATA AS "_DATA"
  3. $DYNAMIC
  4. '************************PBGDEM02.BAS
  5. '** defint NEEDED
  6.   DEFINT A-Z
  7. '**
  8. $INCLUDE "PBGUI200.BI"
  9. $LINK "PBGUI200.PBL"
  10.  
  11.  
  12. 'Make sure we have a VGA CARD
  13. IF BIT(pbvScrnCard,5) = 0 THEN
  14.   CLS
  15.   BEEP:BEEP
  16.   PRINT "This demo REQUIRES a VGA adaptor"
  17.   END
  18. END IF
  19. '***** You will need to change FontPath to the location of your Fonts
  20.  
  21.   FontPath = "\PB3\PBGFONTS\"
  22.  
  23.   CharSpace = 2
  24.   Bold = %FALSE
  25.   DIM AllBlack (0:15) AS SHARED INTEGER,_
  26.       AllColor (0:15) AS SHARED INTEGER,_
  27.       QuitFlag AS SHARED INTEGER
  28.  
  29.   FOR X = 0 TO 15
  30.     AllBlack(X) = 0
  31.     AllColor(X) = X
  32.   NEXT X
  33.  
  34.   SCREEN 12
  35.  
  36. '** Do some initialization
  37.   WindowInit
  38.   ColorInit
  39.   MouseInit
  40.  
  41. '***** Main Program
  42.   PageOne
  43.   IF PageTwo = 0 THEN END
  44.   IF PageThree = 0 THEN END
  45.   IF PageFour= 0 THEN END
  46.   IF PageFive= 0 THEN END
  47.   IF PageSix = 0 THEN END
  48.   IF PageSeven = 0 THEN END
  49. '***** All Done
  50.   screen 0
  51.   end
  52. '===========================================================================
  53. SUB PageOne
  54.   STATIC ExitFlag, EditField
  55.   MouseHide
  56.   ExitFlag = 0
  57.   EditField = 0
  58. '***** Turn Off All Colors
  59.   Palette using AllBlack(0)
  60. '***** Load the screen and screen data
  61.   dummy = LoadWindow("demo.001")
  62.   IF dummy = 0 THEN NoScreenData
  63. '***** Turn the Colors On
  64.   Palette using AllColor(0)
  65.   MousePosition 350,300
  66.   MouseShow
  67. '***** I know this is bad code but it follows the same format as all
  68. '***** the windows.
  69. '***** Should be If Event(0) = 1 THEN Exit Loop
  70.    WHILE NOT ExitFlag
  71.      GetEvent EditField
  72.      SELECT CASE Event(0)
  73.        CASE 1
  74.      ExitFlag = %TRUE
  75.        END SELECT
  76.    WEND
  77.    CloseWindow
  78. END SUB
  79. '===========================================================================
  80. FUNCTION PageTwo
  81. STATIC ExitFlag, EditField
  82.   MouseHide
  83.   Palette using AllBlack(0)
  84.   dummy = LoadWindow ("demo.002")
  85.   IF dummy = 0 THEN NoScreenData
  86.    Palette USING AllColor(0)
  87.    ExitFlag = %FALSE
  88.    EditField = 0
  89.     MousePosition 450,100
  90.  
  91.    WHILE NOT ExitFlag
  92.      GetEvent EditField
  93.      SELECT CASE Event(0)
  94.        CASE 1
  95.      SELECT CASE Event(1)
  96.       CASE 1
  97.         PageTwo = 1
  98.         ExitFlag = %TRUE
  99.       CASE 2
  100.         PageTwo = 2
  101.         ExitFlag = %TRUE
  102.         PageTwo = 0
  103.       END SELECT
  104.      END SELECT
  105.    WEND
  106.    CloseWindow
  107. END FUNCTION
  108. '===========================================================================
  109.  
  110. FUNCTION PageThree
  111. STATIC ExitFlag,EditField
  112.   ExitFlag = %FALSE
  113.   MouseHide
  114.   Palette using AllBlack(0)
  115.   dummy = LoadWindow ("demo.003")
  116.   IF dummy = 0 THEN NoScreenData
  117.   MousePosition 440,130
  118.   MouseShow
  119.        LBDT.BoxLightColor=1
  120.        LBDT.BoxBackColor=2
  121.        LBDT.BoxDarkColor=3
  122.        LBDT.BoxTextColor=9
  123.        LBDT.BoxBorderColor =9
  124.        LBDT.ButLightColor= 1
  125.        LBDT.ButBackColor=2
  126.        LBDT.ButDarkColor=3
  127.  
  128.    Palette using AllColor(0)
  129.    EditField = 0
  130.    WHILE NOT ExitFlag
  131.      GetEvent EditField
  132.      SELECT CASE Event(0)
  133.        CASE 1
  134.        SELECT CASE Event(1)
  135.      CASE 1
  136.            Redim LBArray(1:10) AS STRING
  137.        LBArray(1)="New"
  138.        LBArray(2)="Open         F3"
  139.        LBArray(3)="Pick     Alt F3"
  140.        LBArray(4)="Save         F2"
  141.        LBArray(5)="Write To"
  142.        LBArray(6)="─"
  143.        LBArray(7)="Change Dir"
  144.        LBArray(8)="Dos Shell"
  145.        LBArray(9)="─"
  146.        LBArray(10)="Quit     Alt X"
  147.        LBDT.row=75
  148.        LBDT.col = 48
  149.        LBDT.items = 10
  150.        LBDT.height = 10
  151.        $IF 0
  152.        LBDT.BoxLightColor=1
  153.        LBDT.BoxBackColor=2
  154.        LBDT.BoxDarkColor=3
  155.        LBDT.BoxTextColor=13
  156.        LBDT.ButLightColor = 1
  157.        LBDT.ButBackColor=2
  158.        LBDT.ButDarkColor=3
  159.        $ENDIF
  160.        LBDT.ActiveItems="1111101101"
  161.        dummy = ListBox(LBArray())
  162.  
  163.  
  164.      CASE 2
  165.        REDIM LBArray(1:5) AS STRING
  166.        LBArray(1)="Cut"
  167.        LBArray(2)="Copy"
  168.        LBArray(3)="Paste"
  169.        LBArray(4)="Delete"
  170.        LBArray(5)="Show ClipBoard"
  171.        LBDT.ActiveItems="11000"
  172.        LBDT.row=75
  173.        LBDT.col = 140
  174.        LBDT.items = 5
  175.        LBDT.height = 5
  176.        $IF 0
  177.        LBDT.BoxLightColor=1
  178.        LBDT.BoxBackColor=2
  179.        LBDT.BoxDarkColor=3
  180.        LBDT.BoxTextColor=13
  181.        LBDT.ButLightColor = 1
  182.        LBDT.ButBackColor=2
  183.        LBDT.ButDarkColor=3
  184.        $ENDIF
  185.        LBDT.ActiveItems="11000"
  186.        dummy = ListBox(LBArray())
  187.  
  188.      CASE 3
  189.        REDIM LBArray(1:6) AS STRING
  190.        LBArray(1)="Find"
  191.        LBArray(2)="Replace"
  192.        LBArray(3)="Search Again"
  193.        LBArray(4)="─"
  194.        LBArray(5)="Go To Line Number"
  195.        LBArray(6)="Locate SUB/FUNCTION/Label"
  196.        LBDT.ActiveItems="111011"
  197.        LBDT.row=75
  198.        LBDT.col = 220
  199.        LBDT.items = 6
  200.        LBDT.height = 6
  201.        $IF 0
  202.        LBDT.BoxLightColor=1
  203.        LBDT.BoxBackColor=2
  204.        LBDT.BoxDarkColor=3
  205.        LBDT.BoxTextColor=13
  206.        LBDT.ButLightColor = 1
  207.        LBDT.ButBackColor=2
  208.        LBDT.ButDarkColor=3
  209.        $ENDIF
  210.  
  211.        dummy = ListBox(LBArray())
  212.      CASE 4
  213.  
  214.        REDIM LBArray(1:8) AS STRING
  215.        LBArray(1)="Run                 F9"
  216.        LBArray(2)="Go To Cursor        F4"
  217.        LBArray(3)="Trace Into          F7"
  218.        LBArray(4)="Step Over           F8"
  219.        LBArray(5)="─"
  220.        LBArray(6)="User Screen     Alt-F5"
  221.        LBArray(7)="Program Reset   Ctrl-F2"
  222.        LBArray(8)="Command$"
  223.        LBDT.ActiveItems="11111111"
  224.        LBDT.row=75
  225.        LBDT.col = 300
  226.        LBDT.items = 8
  227.        LBDT.height = 8
  228.        dummy = ListBox(LBArray())
  229.  
  230.  
  231.      CASE 5
  232.        REDIM LBArray(1:6) AS STRING
  233.        LBArray(1)="Compile Main/IDE       Alt-F9"
  234.        LBArray(2)="IDE Compile           Ctrl-F9"
  235.        LBArray(3)="Destination          EXE File"
  236.        LBArray(4)="Find Error"
  237.        LBArray(5)="Get Info"
  238.        LBArray(6)="Main File"
  239.        LBDT.ActiveItems="111111"
  240.        LBDT.row=75
  241.        LBDT.col = 340
  242.        LBDT.items = 6
  243.        LBDT.height = 6
  244.        dummy = ListBox(LBArray())
  245.        CASE 6
  246.        REDIM LBArray(1:6) AS STRING
  247.        LBArray(1)="Compiler"
  248.        LBArray(2)="Linker"
  249.        LBArray(3)="Environment"
  250.        LBArray(4)="Directories"
  251.        LBArray(5)="Save Options"
  252.        LBArray(6)="Retrieve Options"
  253.        LBDT.ActiveItems="111111"
  254.        LBDT.row=75
  255.        LBDT.col = 440
  256.        LBDT.items = 6
  257.        LBDT.height = 6
  258.        dummy = ListBox(LBArray())
  259.  
  260.      CASE 7
  261.            REDIM LBArray(1:6) AS STRING
  262.        LBArray(1)="Evaluate          Ctrl-F4"
  263.        LBArray(2)="Call Stack        Ctrl-F3"
  264.        LBArray(3)="Watch               Alt-W"
  265.        LBArray(4)="Break               Alt-B"
  266.        LBArray(5)="Display Swapping    Smart"
  267.        LBArray(6)="Refresh Display"
  268.        LBDT.ActiveItems="101111"
  269.        LBDT.row=75
  270.        LBDT.col = 380
  271.        LBDT.items = 6
  272.        LBDT.height = 6
  273.        dummy = ListBox(LBArray())
  274.  
  275.  
  276.  
  277.        CASE 8
  278.     PageThree=0
  279.     ExitFlag = %TRUE
  280.  
  281.        CASE 9
  282.      ButtonSetState 12,%Active
  283.        CASE 10
  284.      ButtonToggleState 12
  285.        CASE 11
  286.      ButtonSetState 12,%NotActive
  287.  
  288.        CASE 12
  289.      redim t$(1 to 2)
  290.      t$(1)="You Have Clicked An Active"
  291.      t$(2)="Button #1"
  292.      MBDT.BoxLightColor = 2
  293.      MBDT.BoxBackColor = 3
  294.      MBDT.BoxDarkColor = 0
  295.      MBDT.BoxBorderColor = 6
  296.      MBDT.BoxTextColor = 13
  297.      MBDT.ButLightColor = 1
  298.      MBDT.ButBackColor = 2
  299.      MBDT.ButDarkColor = 3
  300.      MBDT.ButTextColor = 0
  301.      MBDT.FontID.FileName="dub10b"
  302.      MBDT.ButOneText = "OK"+CHR$(0)
  303.      MBDT.ButTwoText = CHR$(0)
  304.      BEEP:BEEP
  305.      dummy = MessageBox(t$())
  306.  
  307.        CASE 13
  308.      PageThree=1
  309.      ExitFlag = %TRUE
  310.  
  311.        END SELECT
  312.      END SELECT
  313.    WEND
  314.    CloseWindow
  315.    erase LBArray
  316.    d&=Fre(0)
  317. END FUNCTION
  318. '=============================================================
  319. FUNCTION PageFour
  320.     STATIC ExitFlag,EditField
  321.     ExitFlag = %FALSE
  322.     MouseHide
  323.     Palette using AllBlack(0)
  324.     dummy = LoadWindow ("demo.004")
  325.     IF dummy = 0 THEN NoScreenData
  326.     MousePosition 440,370
  327.     MouseShow
  328.    Palette Using AllColor(0)
  329.    ExitFlag = 0
  330.    EditFlag = 0
  331.    MapFileState = 7
  332.    ModelState = 14
  333.    AssumeState = 24
  334.    EXEType = 11
  335.    WHILE NOT ExitFlag
  336.      GetEvent EditField
  337.        SELECT CASE Event(0)
  338.  
  339.      CASE 1
  340.        SELECT CASE Event(1)
  341.          CASE 1
  342.            PageFour = 0
  343.            ExitFlag = %TRUE
  344.          CASE 2 TO 6, 19 TO 23
  345.            ButtonToggleState Event(1)
  346.  
  347.           CASE 7 TO 10
  348.            ButtonSetState MapFileState,%NotActive
  349.            MapFileState = Event(1)
  350.            ButtonSetState MapFileState,%Active
  351.           CASE 11 to 12
  352.            ButtonSetState EXEType,%NotActive
  353.            EXEType = Event(1)
  354.            ButtonSetState EXEType,%Active
  355.           CASE 13 TO 18
  356.            ButtonSetState ModelState, %NotActive
  357.            ModelState = Event(1)
  358.            ButtonSetState ModelState,%Active
  359.  
  360.           CASE 24 TO 26
  361.            ButtonSetState AssumeState,%NotActive
  362.            AssumeState = Event(1)
  363.            ButtonSetState AssumeState,%Active
  364.  
  365.          CASE 27
  366.            ExitFlag = %TRUE
  367.            PageFour = 1
  368.  
  369.        END SELECT
  370.  
  371.        END SELECT
  372.  
  373.    WEND
  374.    CloseWindow
  375. END FUNCTION
  376.  
  377. FUNCTION PageFive
  378.     STATIC ExitFlag,EditField
  379.     ExitFlag = %FALSE
  380.      MouseHide
  381.     Palette using AllBlack(0)
  382.     dummy = LoadWindow ("demo.005")
  383.     IF dummy = 0 THEN NoScreenData
  384.    MousePosition 430,420
  385.    Palette Using AllColor(0)
  386.    EditField = 1
  387.    Button2State = 0
  388.    Button3State =Button2State
  389.    Button4State=Button2State
  390.    NumberOfEditFields = 13
  391.    WHILE NOT ExitFlag
  392.         GetEvent EditField
  393.        SELECT CASE Event(0)
  394.      CASE 6
  395.        SCREEN 0
  396.        END
  397.      CASE 1                 'Button Event
  398.        SELECT CASE Event(1)
  399.          CASE 1
  400.            ExitFlag = %TRUE
  401.            PageFive = %FALSE
  402.          CASE 2
  403.            IF (EditField > 0 AND EditField< 7) OR_
  404.          (EditField > 9 AND EditField < 14) THEN
  405.          Button2State = NOT Button2State
  406.          IF Button2State THEN
  407.            ChangeButtonText 2,"Deactivate"
  408.          ELSE
  409.            ChangeButtonText 2,"Activate"
  410.          END IF
  411.          FOR x = 7 TO 9
  412.            EditFieldToggleState x
  413.          NEXT x
  414.            END IF
  415.          CASE 3
  416.            IF (EditField > 0 AND EditField< 10) OR_
  417.          (EditField > 12 AND EditField < 14) THEN
  418.          Button3State = NOT Button3State
  419.          IF Button3State THEN
  420.            ChangeButtonText 3,"Deactivate"
  421.          ELSE
  422.            ChangeButtonText 3,"Activate"
  423.          END IF
  424.          FOR x = 10 TO 12
  425.            EditFieldToggleState x
  426.          NEXT x
  427.            END IF
  428.          CASE 4
  429.            IF EditField <> 13 THEN
  430.          Button4State = NOT Button4State
  431.          IF Button4State THEN
  432.            ChangeButtonText 4,"Deactivate"
  433.          ELSE
  434.            ChangeButtonText 4,"Activate"
  435.          END IF
  436.          EditFieldToggleState 13
  437.            END IF
  438.         CASE 5
  439.            ExitFlag = %TRUE
  440.            PageFive = %TRUE
  441.        END SELECT
  442.  
  443.     CASE 2                    '***** Edit Event ******
  444.  
  445.       IF EditFieldGetState(Event(2)) = %Active THEN EditField = Event(2)
  446.  
  447.  
  448.  
  449.  
  450.     CASE  3 TO 4                'Enter or TAB ********
  451.        DO
  452.          INCR EditField
  453.          IF EditField > NumberOfEditFields THEN EditField = 1
  454.          IF EditFieldGetState(EditField) = %Active THEN EXIT DO
  455.        LOOP
  456.       END SELECT
  457.  
  458.    WEND
  459.    CloseWindow
  460.  
  461. END FUNCTION
  462.  
  463. FUNCTION PageSix
  464.     STATIC ExitFlag,EditField
  465.     ExitFlag = %FALSE
  466.      MouseHide
  467.     Palette using AllBlack(0)
  468.     dummy = LoadWindow ("demo.006")
  469.     IF dummy = 0 THEN NoScreenData
  470.    MousePosition 440,140
  471.    MouseShow
  472.    Palette Using AllColor(0)
  473.    EditField=0
  474.    WHILE NOT ExitFlag
  475.      GetEvent EditField
  476.      SELECT CASE Event(0)
  477.        CASE 1
  478.      SELECT CASE Event(1)
  479.       CASE 1
  480.         PageSix = 0
  481.         ExitFlag = %TRUE
  482.       CASE 2
  483.         PageSix = 2
  484.         ExitFlag = %TRUE
  485.       END SELECT
  486.      END SELECT
  487.    WEND
  488. CloseWindow
  489. END FUNCTION
  490.  
  491. '=========================================================================
  492.  
  493. FUNCTION PageSeven
  494.  
  495.     STATIC ExitFlag,EditField
  496.     ExitFlag = %FALSE
  497.      MouseHide
  498.  
  499.     Palette using AllBlack(0)
  500.     dummy = LoadWindow ("demo.007")
  501.     IF dummy = 0 THEN NoScreenData
  502.    MousePosition 420,400
  503.    MouseShow
  504.  
  505.    tc=13
  506.    FontLoaded=LoadFont("dub8b")
  507.    Shadow=%FALSE
  508.    ShadowColor = 10
  509.  
  510.    GOSUB PrintP1
  511.    Palette Using AllColor(0)
  512.    Pallete 10,0,0,0
  513.  
  514.    MouseShow
  515.    ExitFlag = %FALSE
  516.    EditField = 0
  517.    PageNum=1
  518.    tc = 13
  519.    WHILE NOT ExitFlag
  520.  
  521.      GetEvent EditField
  522.      SELECT CASE Event(0)
  523.        CASE 1
  524.      SELECT CASE Event(1)
  525.       CASE 1
  526.         PageSeven = 1
  527.         ExitFlag = %TRUE
  528.       CASE 2
  529.         DECR PageNum
  530.         SELECT CASE PageNum
  531.           CASE 1
  532.         Pallete 13,&H15,&H15,&H15
  533.         Pallete 10,&H15,&H15,&H15'3
  534.         GOSUB DrawBox
  535.         GOSUB PrintP1
  536.         Pallete 13,0,&H3F,&H3F '13
  537.         Pallete 10,0,0,0
  538.         ButtonSetState 2,%NotActive
  539.         MousePosition 420,400
  540.          CASE 2
  541.            Pallete 13,&H15,&H15,&H15'3
  542.            Pallete 10,&H15,&H15,&H15'3
  543.            GOSUB DrawBox
  544.            GOSUB PrintP2
  545.            Pallete 13,0,&H3F,&H3F '13
  546.            Pallete 10,0,0,0
  547.            ButtonSetState 3,%Active
  548.  
  549.  
  550.        END SELECT
  551.  
  552.       CASE 3
  553.         INCR PageNum
  554.  
  555.         SELECT CASE PageNum
  556.           CASE 2
  557.         Pallete 13,&H15,&H15,&H15'3
  558.         Pallete 10,&H15,&H15,&H15'3
  559.                 GOSUB DrawBox
  560.         GOSUB PrintP2
  561.         Pallete 13,0,&H3F,&H3F '13
  562.         Pallete 10,0,0,0
  563.           CASE 3
  564.         Pallete 13,&H15,&H15,&H15'3
  565.         Pallete 10,&H15,&H15,&H15'3
  566.                 GOSUB DrawBox
  567.         GOSUB PrintP3
  568.                 Pallete 13,0,&H3F,&H3F '13
  569.         Pallete 10,0,0,0
  570.         ButtonSetState 3,%NotActive
  571.         MousePosition 420,250
  572.         END SELECT
  573.         ButtonSetState 2,%Active
  574.            CASE 4
  575.  
  576.           ButtonSetState 5,%Active
  577.           ButtonSetState 4,%NotActive
  578.               Shadow = %TRUE
  579.        CASE 5
  580.           Shadow = %FALSE
  581.           ButtonSetState 4,%Active
  582.           ButtonSetState 5,%NotActive
  583.  
  584.      END SELECT
  585.  
  586.      END SELECT
  587.    WEND
  588.    CloseWindow
  589. Pallete 10,&H20,&H3F,&H20
  590. Exit FUNCTION
  591.  
  592. PrintP1:
  593.  
  594.   WindowPrint 45,60,"1- PB3    directly    creates    TSR",tc,0
  595.   WindowPrint 60,65,"(terminate/stay-resident) programs",tc,0
  596.   WindowPrint 75,65,"which can pop-down to a  memory",tc,0
  597.   WindowPrint 90,65,"image  of  4K!   Memory   resident",tc,0
  598.   WindowPrint 105,65,"programs  can  be  activated   by",tc,0
  599.   WindowPrint 120,65,"practically any stimulus: a hot key",tc,0
  600.   WindowPrint 135,65,"timer,  inactivity,  a  hardware  or",tc,0
  601.   WindowPrint 150,65,"software interrupt,even a message",tc,0
  602.   WindowPrint 165,65,"from a foreground program. In fact",tc,0
  603.   WindowPrint 180,65,"it's possible  for multiple TSRs  to",tc,0
  604.   WindowPrint 195,65,"activate  each  other  repeatedly",tc,0
  605.   WindowPrint 210,65,"with   two -  way   communication",tc,0
  606.   WindowPrint 225,65,"throughout. NO   other   language",tc,0
  607.   WindowPrint 240,65,"offers   this   capability   as    an",tc,0
  608.   WindowPrint 255,65,"integral   part   of   the   compiler",tc,0
  609.   WindowPrint 45,310,"2- PB3 uses all real  mode memory",tc,0
  610.   WindowPrint 60,315,"for dynamic strings.  It's  the first",tc,0
  611.   WindowPrint 75,315,"and  only  Basic with   a no-limit, ",tc,0
  612.   WindowPrint 90,315,"handle - based    string   memory",tc,0
  613.   WindowPrint 105,315,"manager;  QB  is  limited to   less ",tc,0
  614.   WindowPrint 120,315,"than  64K, and PDS  has  'inside'",tc,0
  615.   WindowPrint 135,315,"segmentation limits.",tc,0
  616.   WindowPrint 165,310,"3-The PB3 String Memory Manager",tc,0
  617.   WindowPrint 180,315,"is  a resource  available  to any ",tc,0
  618.   WindowPrint 195,315,"user   code.   Both   Basic   and ",tc,0
  619.   WindowPrint 210,315,"Assembler  code  can   allocate,",tc,0
  620.   WindowPrint 225,315,"release and alter memory blocks",tc,0
  621.   WindowPrint 240,315,"as required  by  the  programmer." ,tc,0
  622.   WindowPrint 255,315,"While other compilers allow  you",tc,0
  623.   WindowPrint 270,315,"to calculate  string  location  or",tc,0
  624.   WindowPrint 285,315,"assignment  none  allow the full",tc,0
  625.   WindowPrint 300,315,"memory managment functionality",tc,0
  626.   WindowPrint 315,315,"of PowerBASIC",tc,0
  627. RETURN
  628.  
  629. PrintP2:
  630.   WindowPrint 45,60,"4- PB3 compiles to   true machine",tc,0
  631.   WindowPrint 60,63,"code in the integrated environment",tc,0
  632.   WindowPrint 75,65,"the identical code as an .EXE  file",tc,0
  633.   WindowPrint 90,65,"No   need  to  deal  with  a   slow",tc,0
  634.   WindowPrint 105,65,"p-code interpreter as in QB & PDS",tc,0
  635.   WindowPrint 120,65,"That means   faster  development,",tc,0
  636.   WindowPrint 135,65,"and   the  elimination   of   subtle",tc,0
  637.   WindowPrint 150,65,"differences   between  interpreted",tc,0
  638.   WindowPrint 165,65,"and compiled results.",tc,0
  639.   WindowPrint 195,60,"5 - PB3  offers   unsigned  integer",tc,0
  640.   WindowPrint 210,65,"variable  types:   BYTE,  WORD,",tc,0
  641.   WindowPrint 225,65,"                      DOUBLE  WORD.",tc,0
  642.   WindowPrint 240,65,"byte: 0 - 255",tc,0
  643.   WindowPrint 255,65,"word: 0 - 65,535",tc,0
  644.   WindowPrint 270,65,"dword:0 - 4,294,967,295",tc,0
  645.   WindowPrint 285,65,"Unsigned integers are not ",tc,0
  646.   WindowPrint 300,65,"available in other Basics",tc,0
  647.   WindowPrint 45,310,"6- Optionally, PB3 can require that",tc,0
  648.   WindowPrint 60,315,"all variables be declared before",tc,0
  649.   WindowPrint 75,315,"use; this option greatly enhances",tc,0
  650.   WindowPrint 90,315,"the probability of catching typos",tc,0
  651.   WindowPrint 105,315,"automatically during compilation",tc,0
  652.  
  653.   WindowPrint 135,315,"7- Dual Monitor Support is offered",tc,0
  654.   WindowPrint 150,315,"in   the   PowerBASIC   Integrated",tc,0
  655.   WindowPrint 165,315,"Environment and  the PBD  Stand- ",tc,0
  656.   WindowPrint 180,315,"alone  debugger. This  allows  the",tc,0
  657.   WindowPrint 195,315,"programmer   to   simultaneously",tc,0
  658.   WindowPrint 210,315,"view a full screen of source code",tc,0
  659.   WindowPrint 225,315,"and debug  information  with  a ",tc,0
  660.   WindowPrint 240,315,"second full screen generated by",tc,0
  661.   WindowPrint 255,315,"the   target  program.  Annoying",tc,0
  662.   WindowPrint 270,315,"screen  flashes  and  pauses are ",tc,0
  663.   WindowPrint 285,315,"eliminated",tc,0
  664.   WindowPrint 300,315,"",tc,0
  665. RETURN
  666.  
  667. PrintP3:
  668.   WindowPrint 45,60,"<< There really are 100 reasons >>",tc,0
  669.   WindowPrint 60,65,"",tc,0
  670.   WindowPrint 75,65,"They are all listed in the GAP",tc,0
  671.   WindowPrint 90,65,"ReadMe file.",tc,0
  672.   WindowPrint 105,65,"",tc,0
  673.   WindowPrint 120,65,"I have listed the first seven here",tc,0
  674.   WindowPrint 135,65,"in this demo to demonstrate the",tc,0
  675.   WindowPrint 150,65,"speed of the PBGUI font drawing",tc,0
  676.   WindowPrint 165,65,"routines",tc,0
  677.   WindowPrint 180,60,"",tc,0
  678.   WindowPrint 195,55,"Although the screen was read from",tc,0
  679.   WindowPrint 210,55,"disk ALL printing is done on the fly.",tc,0
  680.   WindowPrint 240,65,"",tc,0
  681.   WindowPrint 255,65,"",tc,0
  682.   WindowPrint 270,65,"",tc,0
  683.   WindowPrint 285,65,"",tc,0
  684.   WindowPrint 300,65,"",tc,0
  685.  
  686.   WindowPrint 45,310,"For PowerBASIC 3.00 Information",tc,0
  687.   WindowPrint 60,315,"",tc,0
  688.   WindowPrint 75,315,"      SPECTRA Publishing",tc,0
  689.   WindowPrint 90,315,"      1030 D East Duane Ave.",tc,0
  690.   WindowPrint 105,315,"      Sunnyvale, CA 94086",tc,0
  691.   WindowPrint 120,315,"          800-245-6717",tc,0
  692.   WindowPrint 135,315,"",tc,0
  693.   WindowPrint 150,315,"Thank You for trying this demo",tc,0
  694.   WindowPrint 165,315,"",tc,0
  695.  
  696.   WindowPrint 180,315,"The toolkit should be available",tc,0
  697.   WindowPrint 195,315,"by August 1, 1993 and can be",tc,0
  698.   WindowPrint 210,315,"found in the PCVENB Forum ",tc,0
  699.   WindowPrint 225,315,"on CompuServe.",tc,0
  700.   WindowPrint 240,315,"",tc,0
  701.   WindowPrint 255,315,"          James C. Fuller",tc,0
  702.   WindowPrint 270,315,"",tc,0
  703.   WindowPrint 285,315,"       CSERVE - 70117,1040",tc,0
  704.   WindowPrint 300,315,"          GENIE  J.FULLER",tc,0
  705. RETURN
  706. $IF 0
  707.   WindowPrint 45,60,"",tc,0
  708.   WindowPrint 60,63,"",tc,0
  709.   WindowPrint 75,65,"",tc,0
  710.   WindowPrint 90,65,"",tc,0
  711.   WindowPrint 105,65,"",tc,0
  712.   WindowPrint 120,65,"",tc,0
  713.   WindowPrint 135,65,"",tc,0
  714.   WindowPrint 150,65,"",tc,0
  715.   WindowPrint 165,65,"",tc,0
  716.   WindowPrint 195,60,"",tc,0
  717.   WindowPrint 210,65,"",tc,0
  718.   WindowPrint 225,65,"",tc,0
  719.   WindowPrint 240,65,"",tc,0
  720.   WindowPrint 255,65,"",tc,0
  721.   WindowPrint 270,65,"",tc,0
  722.   WindowPrint 285,65,"",tc,0
  723.   WindowPrint 300,65,"",tc,0
  724.   WindowPrint 45,310,"",tc,0
  725.   WindowPrint 60,315,"",tc,0
  726.   WindowPrint 75,315,"",tc,0
  727.   WindowPrint 90,315,"",tc,0
  728.   WindowPrint 105,315,"",tc,0
  729.  
  730.   WindowPrint 135,315,"",tc,0
  731.   WindowPrint 150,315,"",tc,0
  732.   WindowPrint 165,315,"",tc,0
  733.   WindowPrint 180,315,"",tc,0
  734.   WindowPrint 195,315,"",tc,0
  735.   WindowPrint 210,315,"",tc,0
  736.   WindowPrint 225,315,"",tc,0
  737.   WindowPrint 240,315,"",tc,0
  738.   WindowPrint 255,315,"",tc,0
  739.   WindowPrint 270,315,"",tc,0
  740.   WindowPrint 285,315,"",tc,0
  741.   WindowPrint 300,315,"",tc,0
  742. $ENDIF
  743. END FUNCTION
  744.  
  745. '***** Erases the text.
  746. DrawBox:
  747. line(65,90)-(310,385),3,bf
  748. line(320,90)-(555,385),3,bf
  749. RETURN
  750. '========================================================
  751. SUB NoScreenData
  752.  SCREEN 0:
  753.  CLS
  754.  BEEP:BEEP:
  755.  PRINT "                DEMO2 WAS UNABLE TO FIND A SCREEN DATA FILE"
  756.  PRINT "         MAKE SURE YOU ARE RUNNING THIS DEMO FROM THE SAME DIRECTORY"
  757.  PRINT "                  WHERE THE DEMO.00x FILES ARE LOCATED."
  758.  PRINT
  759.  PRINT "      THESE FILES ARE CREATED BY RUNNING DEMO1.BAS SEE READ.ME FILE"
  760.  PRINT
  761.  PRINT "                            STRIKE ANY KEY"
  762.  WHILE INKEY$="":WEND
  763.  END
  764. END SUB