Rocket U2 | UniVerse & UniData

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Thank you Will but no, that is not what I am looking for...

I need the portal setup for my accuterm screens to be accessed through the internet.

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Yes you can access accuterm through a web browser

https://www.zumasys.com/2019/09/11/here-comes-the-fun-accuterm-8-is-here/

Thank you Will but no, that is not what I am looking for...

I need the portal setup for my accuterm screens to be accessed through the internet.

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Yes you can access accuterm through a web browser

https://www.zumasys.com/2019/09/11/here-comes-the-fun-accuterm-8-is-here/

Thank you Will but no, that is not what I am looking for...

I need the portal setup for my accuterm screens to be accessed through the internet.

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

Hi Will,

Is the Accuterm 8 for the Web ready for prime time? - I tried it about a year ago and it was not working well.

I have been working on porting all of our software to the web and we've been successful so far.  However, as I'm sure you know doing it well is not as easy as pressing a button.  We have inserted into an IFRAME of our web page WebSSH which does a terminal interface from the browser and it works, but it's extremely limited, one of the complains I get is that since we can't really change the font size they complain that it's too small.

Not sure if you're the right person to ask but how can I see how it could work or who can I talk to about it?

Regards, Sam

Yes you can access accuterm through a web browser

https://www.zumasys.com/2019/09/11/here-comes-the-fun-accuterm-8-is-here/

Thank you Will but no, that is not what I am looking for...

I need the portal setup for my accuterm screens to be accessed through the internet.

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

My code tends to be highly parameterized however you can launch any type of file from Accuterm using the Pick BASIC command

EQUATE STX TO CHAR(2), ESC TO CHAR(27), CR TO CHAR(13)

PRINT ESC:STX:'<':DRIVE:FILE:CR


You can write for example this item "<HTML><BODY>Hello World</BODY></HTML>" to the FILE location on any accessible drive, making sure you call the file something.html and then launch that file.  Lauching means to throw it at Windows and let Windows decide what to do with this surprising attack

In the case of any file with the html suffix what Windows should do it launch your default browser and hand off the file to that browser to do it's own magic with it.  I.E. display it in a browser.

------------------------------
Will Johnson
Systems Analyst
Rocket Forum Shared Account

Original Message:
Sent: 05-25-2023 11:48
From: Kathleen Hambrick
Subject: Can anyone help me visualize a web page using Accuterm?

I'm not sure WIll - can you post a super simple example so I can see if it's what I am looking for?
Thank you

------------------------------
Kathleen Hambrick
Programmer at Colwell

Original Message:
Sent: 05-25-2023 11:29
From: Will Johnson
Subject: Can anyone help me visualize a web page using Accuterm?

I will give it a shot :)
You can write a Pick BASIC program, that will build an HTML page, and then make Accuterm throw  that page out to the Windows process
Windows will then display that page using your default web browser

Like that?

------------------------------
Will Johnson
Systems Analyst
Rocket Forum Shared Account

Original Message:
Sent: 05-25-2023 11:08
From: Kathleen Hambrick
Subject: Can anyone help me visualize a web page using Accuterm?

Hi Marcus, thank you for responding. This appears to be a pick program that will force a windows popup on a users desktop, is that correct?

I am looking for something that can be seen on the web/internet.

Kathleen

------------------------------
Kathleen Hambrick
Programmer at Colwell

Original Message:
Sent: 05-25-2023 10:41
From: M Arcus1
Subject: Can anyone help me visualize a web page using Accuterm?

Is this the kind of thing you're looking for?

PROGRAM EMV_ALERT_BOX_ATW_TST

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software;  You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 11/19/2018 10:24:31 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Test-drives EMV_ALERT_BOX_ATW.

! Upcoming:

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW_TST'

!  INCLUDE EMV,BIN EMV_UBIQUITOUS_STUFF

   ALRT_TXT  = 'This is a test.~~     For the next sixty seconds, this st'
   ALRT_TXT := 'ation will conduct a test of the emergency broadcast syst'
   ALRT_TXT := 'em.  This is only a test.~~     This is a test of the Eme'
   ALRT_TXT := 'rgency Broadcast System.  The broadcasters of your area, '
   ALRT_TXT := 'in voluntary cooperation with the federal, state and loca'
   ALRT_TXT := "l 'authorities', have developed this system to keep you i"
   ALRT_TXT := 'nformed in the event of an emergency.~~     If this had b'
   ALRT_TXT := 'een an actual emergency, you would have been instructed w'
   ALRT_TXT := 'here to tune in your area for news and official informati'
   ALRT_TXT := 'on.~~And he said, "Put your head between your knees, and '
   ALRT_TXT := 'kiss your bum goodbye!"'

   CALL EMV_ALERT_BOX_ATW( CHANGE( ALRT_TXT, '~', @AM ) )

STOP

SUBROUTINE EMV_ALERT_BOX_ATW( MESSAGES )

! Copyright 1994-2023 Marcus Rhodes <marcus1@thinqware.com>

!           This program is free software; You can redistribute it and/or
!           modify it under the terms of the GNU general  public  license
!           version 3 as published by the Free Software Foundation.

! Modified: 04/09/2021 17:20:41 by Marcus

! Platform: Any Pick; Any OS; AccuTerm; Any emulation

! Function: Shows MESSAGES in a Windows MsgBox with Ok button.

! Var_name IO Typ Description____________________________________________
! MESSAGES >< Str Text to be displayed in the message-box.
!                 If null or unassigned, a substitute message is display-
!                 ed, and returned.
!                 There's no need to neutralize any string delimiters; We
!                 take care of that here.

! Upcoming: Change is the only constant. -- Heraclitus

! Old name: N/A

! Catalog : EMV_ALERT_BOX_ATW

! New name: N/A

   EQU IDENTITY TO 'EMV_ALERT_BOX_ATW'

   CALL EMV_VBA_STR_FMT_ATW( MESSAGES, ( MESSAGES ) )

   VBA_CODE  = CHAR( 27 ) : CHAR( 2 )
   VBA_CODE := 'Pdim s as accutermclasses.session'
   VBA_CODE := '`set s = activesession'
   VBA_CODE := '`MsgBox ' : MESSAGES : ',0,"!!! ATTENTION !!!"'

   CRT CHANGE( VBA_CODE, '`', CHAR( 25 ) ) : CHAR( 13 ) :

RETURN ;! to the calling program.

------------------------------
Marcus Rhodes
marcus1@thinqware.com

Original Message:
Sent: 05-24-2023 12:20
From: Kathleen Hambrick
Subject: Can anyone help me visualize a web page using Accuterm?

I am new to accuterm, about a year now, and am still struggling with trying to understand the pieces I need in place to have a graphical accuterm screen display on the internet. I've been told repeatedly that its possible and functioning with my release of accuterm8. Can anyone share with me even a static screen accuterm display on the web? Even just a box that says 'You are here.'

There are obviously pieces I need for the web address to access my accuterm display but I don't even know what questions to ask....

Anyone?

------------------------------
Kathleen Hambrick
Programmer at Colwell
------------------------------