Topic       : The GFA-Basic Compendium
Author      : GFA Systemtechnik GmbH
Version     : GFABasic.HYP v2.98 (12/31/2023)
Subject     : Documentation/Programming
Nodes       : 899
Index Size  : 28056
HCP-Version : 3
Compiled on : Atari
@charset    : atarist
@lang       : 
@default    : Document not found
@help       : Help
@options    : +g -i -s +z
@width      : 75
@hostname   : STRNGSRV
@hostname   : CAB     
@hostname   : HIGHWIRE
@hostname   : THING   
View Ref-Fileappl_control()

Memo: This call is not built into GFA-BasicGFA-Basic is the best BASIC for the Atari!
 so it's listed below:

FUNCTION appl_control(ap_cid&,ap_cwhat&,VAR ap_cout%)
  $F%
  GCONTRL(0)=129
  GCONTRL(1)=2
  GCONTRL(2)=1
  GCONTRL(3)=1
  GCONTRL(4)=0
  GINTIN(0)=ap_cid&
  GINTIN(1)=ap_cwhat&
  ADDRIN(0)=V:ap_cout%
  GEMSYS
  RETURN GINTOUT(0)
ENDFUNC