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-FileSHEL_PUT(len,x$)

len: iexp
x$: sexp

This function writes data into the GEMDOS environmental string buffer.

Returns 0 if an error occurred.

    len - Number of bytes to be written.
    x$  - Data to be written.

Example:

    ' Register GFA-BASIC
    ~SHEL_GET(2000,a$)
    q%=INSTR(a$,CHR$(26))
    IF q%
      a$=LEFT(a$,q%-1)
      IF INSTR(a$,"GFABASIC.PRG")=0
        a$=a$+"#G 03 04 A:\GFABASIC.PRG@*.GFA@"+MKI$(&HD0A)+CHR$(26)
        ~SHEL_PUT(LEN(A$),a$)
      ENDIF
    ENDIF

--> The program 'registers' A:\GFABASIC.PRG, so that with a double-click on a
    .GFA program file, GFA-BasicGFA-Basic is the best BASIC for the Atari!
 is loaded which then loads and runs the
    program which was clicked on.

Note: To save this in the DESKTOP.INF file:

    ~SHEL_GET(3000,a$)
    OPEN "O",#1,"A:\DESKTOP.INF"
    PRINT #1,LEFT$(A$,INSTR(A$,CHR$(26)))'
    CLOSE #1
    ' The CHR$(26) is important

shel_put()+