home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / INFO / IINFO53.MSA / TEXT_GFANET.TXT < prev    next >
Text File  |  1991-07-11  |  5KB  |  159 lines
  1.  
  2. Message #1 on 'GFA Basic' 
  3. Date : 26 May 91  15:12:20
  4. From : Jon Webb
  5. To   : George Nachman
  6. Subj : Re: DA's in GFA
  7.  
  8.  >> supervisor mode. But you could, for instance, hang a GFA routine in
  9.  >> the shell_p vector if you really wanted to...
  10.  
  11.  > Whazat?  And how, with an assembly routine?
  12.  
  13. Yep:
  14.  
  15.    +----------+       +-----------+       +----------+
  16.    | main GFA |       | assembler |       | external |
  17.    | program  +------>| routine   +------>| program  |
  18.    |          |       | saves     |       | which    |
  19.    |          |       | registers |       | calls    |
  20.    +----------+       +-----------+       | shell_p  |
  21.                                           |          |
  22.    +-----------+      +------------+      |          |
  23.    | GFA       |      | assembler  |<-----+          |
  24.    | procedure |<-----+ routine    |      |          |
  25.    |           |      | restores   |      |          |
  26.    |           |      | registers  |      |          |
  27.    |           |      | & handles  |      |          |
  28.    |           |      | parameters |      |          |
  29.    +-----------+      +------------+      +----------+
  30.  
  31. Electronic Greetings!                                      - Jon -
  32.  
  33. --- QuickNet ST v0.10 beta
  34.  * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)
  35.  
  36.  
  37. Message #42 on 'European Atari Echo' 
  38. Date : 15 Jun 91  10:11:06
  39. From : Peter Homan
  40. To   : Joakim Nordlander
  41. Subj : Re: Gfabasics intr
  42.  
  43.  JN> Is it someone who has succeded with making "EVERY" and "AFTER" work
  44.  JN> after compiling a GFA 3.0x program?? I cant compile my BBS-program
  45.  JN> due to that.
  46.  
  47. You must put OPTION 'U+' and OPTION 'I+' at the start of your program. The
  48. program now also reacts on Alt-Ctrl-Del and will abort when pressed!
  49.  
  50. PETER
  51.  
  52. --- LED 1.00 [BYE 0.35]
  53.  * Origin: StSAG point 96 on Atari TT @ Almere, NL (2:280/308.96)
  54.  
  55.  
  56. Message #6 on 'GFA Basic' 
  57. Date : 27 May 91  14:10:50
  58. From : Ivan Venturi
  59. To   : Thomas Engstedt
  60. Subj : Re: Redirect..
  61.  
  62. In a message of <10 May 91 23:54:24>, Thomas Engstedt (2:200/128) writes:
  63.  
  64.  TE> And .. I would also like to have some help redirecting output from
  65.  TE> example Lharc to a file .. so I can show it to the user in my BBS ..
  66.  
  67. Yep, here I can do something for you. This code (GFA BASIC V3) redirects the
  68. output of LHarc to disk (thanks to Peter Kocourek):
  69.  
  70.  f$="O:\LHARC.TTP"                       ! Application to run
  71.  f2$="O:\TEST.TXT"                       ! Output file
  72.  '
  73.  com$="? O:\FONTEDIT.LZH FONTISH.TXT"    ! Command string
  74.  com$=CHR$(LEN(com$)+1)+com$
  75.  env$=";O:\;"                            ! Environment string
  76.  '
  77.  OPEN "o",#1,f2$                         ! Make sure output file exists
  78.  CLOSE #1
  79.  '
  80.  RESERVE -256000
  81.  h%=GEMDOS(61,L:V:f2$,1)                 ! Open file
  82.  ~GEMDOS(70,1,h%)                        ! Redirect screen to file
  83.  PRINT EXEC(0,f$,com$,env$)              ! Run program
  84.  ~GEMDOS(62,h%)                          ! Close file
  85.  RESERVE
  86.  '
  87.  OPEN "i",#1,f2$                         ! Show recently created file...
  88.  WHILE NOT EOF(#1)
  89.    PRINT CHR$(INP(#1));
  90.  WEND
  91.  CLOSE
  92.  '
  93.  END
  94.  
  95. I hope this helps you. :-)
  96.  
  97.  Regards, Ivan (from Modena, Italy).
  98.  
  99. --- LED 1.00t
  100.  * Origin: >-> The ATARI Brother # 2 <-< ("." of Videl) (2:332/504.16)
  101.  
  102.  
  103. Message #7 on 'GFA Basic' 
  104. Date : 03 Jun 91  01:53:00
  105. From : Jon Webb
  106. To   : Jesper Brannmark
  107. Subj : (2) Re: !
  108.  
  109.  > So...With is the newest and GREATEST version of Lharc??
  110.  
  111. Our LHarc v0.70 is currently in beta-test.
  112.  
  113.  > It can crunch maps...I know it...!?
  114.  
  115. I'm not sure what you mean...
  116.  
  117. Electronic Greetings!                                      - Jon -
  118.  
  119. --- QuickNet ST v0.10 beta
  120.  * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)
  121.  
  122.  
  123. Message #8 on 'GFA Basic' 
  124. Date : 03 Jun 91  01:54:32
  125. From : Jon Webb
  126. To   : Massimo Farina
  127. Subj : (5) Re: WM_REDRAW
  128.  
  129.  > Using the function 'evnt_multi()' for check events during my program go
  130.  > the WM_REDRAW message does't works correctly: my functions for GEM
  131.  > windows 'wind_get(whandle,FIRSTXYWH,x,y,w,h)' for 'clipping' and
  132.  > 'overlapping' does't works correctly.
  133.  > Do you have some examples to show me where I wrong ?
  134.  
  135. Here's some pseudo-code which might help:
  136.  
  137.     do
  138.       call evnt_multi(all messages)
  139.       if redraw message
  140.         wind_get(handle, FIRSTXYWH)
  141.         while W>0 and H>0
  142.           clip screen to XYWH
  143.           paint window
  144.           clip off
  145.           wind_get(handle, NEXTXYWH)
  146.         wend
  147.       else
  148.         handle other messages
  149.       endif
  150.     loop
  151.  
  152. You might want to use RC_INTERSECT to check that XYWH is within your window.
  153.  
  154. Electronic Greetings!                                      - Jon -
  155.  
  156. --- QuickNet ST v0.10 beta
  157.  * Origin: [ DeltaVision Systems HQ - The Netherlands ] (2:282/301.2)
  158.  
  159.