Message #1 on 'GFA Basic' 
Date : 26 May 91  15:12:20
From : Jon Webb
To   : George Nachman
Subj : Re: DA's in GFA

 >> supervisor mode. But you could, for instance, hang a GFA routine in
 >> the shell_p vector if you really wanted to...
 
 > Whazat?  And how, with an assembly routine?

Yep:

   +----------+       +-----------+       +----------+
   | main GFA |       | assembler |       | external |
   | program  +------>| routine   +------>| program  |
   |          |       | saves     |       | which    |
   |          |       | registers |       | calls    |
   +----------+       +-----------+       | shell_p  |
                                          |          |
   +-----------+      +------------+      |          |
   | GFA       |      | assembler  |<-----+          |
   | procedure |<-----+ routine    |      |          |
   |           |      | restores   |      |          |
   |           |      | registers  |      |          |
   |           |      | & handles  |      |          |
   |           |      | parameters |      |          |
   +-----------+      +------------+      +----------+

Electronic Greetings!                                      - Jon -

--- QuickNet ST v0.10 beta
 * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)


Message #42 on 'European Atari Echo' 
Date : 15 Jun 91  10:11:06
From : Peter Homan
To   : Joakim Nordlander
Subj : Re: Gfabasics intr

 JN> Is it someone who has succeded with making "EVERY" and "AFTER" work
 JN> after compiling a GFA 3.0x program?? I cant compile my BBS-program
 JN> due to that.

You must put OPTION 'U+' and OPTION 'I+' at the start of your program. The
program now also reacts on Alt-Ctrl-Del and will abort when pressed!

PETER

--- LED 1.00 [BYE 0.35]
 * Origin: StSAG point 96 on Atari TT @ Almere, NL (2:280/308.96)


Message #6 on 'GFA Basic' 
Date : 27 May 91  14:10:50
From : Ivan Venturi
To   : Thomas Engstedt
Subj : Re: Redirect..

In a message of <10 May 91 23:54:24>, Thomas Engstedt (2:200/128) writes:

 TE> And .. I would also like to have some help redirecting output from
 TE> example Lharc to a file .. so I can show it to the user in my BBS ..

Yep, here I can do something for you. This code (GFA BASIC V3) redirects the
output of LHarc to disk (thanks to Peter Kocourek):

 f$="O:\LHARC.TTP"                       ! Application to run
 f2$="O:\TEST.TXT"                       ! Output file
 '
 com$="? O:\FONTEDIT.LZH FONTISH.TXT"    ! Command string
 com$=CHR$(LEN(com$)+1)+com$
 env$=";O:\;"                            ! Environment string
 '
 OPEN "o",#1,f2$                         ! Make sure output file exists
 CLOSE #1
 '
 RESERVE -256000
 h%=GEMDOS(61,L:V:f2$,1)                 ! Open file
 ~GEMDOS(70,1,h%)                        ! Redirect screen to file
 PRINT EXEC(0,f$,com$,env$)              ! Run program
 ~GEMDOS(62,h%)                          ! Close file
 RESERVE
 '
 OPEN "i",#1,f2$                         ! Show recently created file...
 WHILE NOT EOF(#1)
   PRINT CHR$(INP(#1));
 WEND
 CLOSE
 '
 END

I hope this helps you. :-)

 Regards, Ivan (from Modena, Italy).

--- LED 1.00t
 * Origin: >-> The ATARI Brother # 2 <-< ("." of Videl) (2:332/504.16)


Message #7 on 'GFA Basic' 
Date : 03 Jun 91  01:53:00
From : Jon Webb
To   : Jesper Brannmark
Subj : (2) Re: !

 > So...With is the newest and GREATEST version of Lharc??

Our LHarc v0.70 is currently in beta-test.

 > It can crunch maps...I know it...!?

I'm not sure what you mean...

Electronic Greetings!                                      - Jon -

--- QuickNet ST v0.10 beta
 * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)


Message #8 on 'GFA Basic' 
Date : 03 Jun 91  01:54:32
From : Jon Webb
To   : Massimo Farina
Subj : (5) Re: WM_REDRAW

 > Using the function 'evnt_multi()' for check events during my program go
 > the WM_REDRAW message does't works correctly: my functions for GEM
 > windows 'wind_get(whandle,FIRSTXYWH,x,y,w,h)' for 'clipping' and
 > 'overlapping' does't works correctly.
 > Do you have some examples to show me where I wrong ?

Here's some pseudo-code which might help:

    do
      call evnt_multi(all messages)
      if redraw message
        wind_get(handle, FIRSTXYWH)
        while W>0 and H>0
          clip screen to XYWH
          paint window
          clip off
          wind_get(handle, NEXTXYWH)
        wend
      else
        handle other messages
      endif
    loop

You might want to use RC_INTERSECT to check that XYWH is within your window.

Electronic Greetings!                                      - Jon -

--- QuickNet ST v0.10 beta
 * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)