home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / DBA / ST / DBA_03.MSA / GFA_PROG.S / DBA.TXT next >
Encoding:
Text File  |  1989-04-06  |  3.5 KB  |  103 lines
  1. HOW TO BEGIN IN GFA
  2.  
  3. (Written by someone who really started from the bottom but is getting 
  4.  better very fast...)
  5. Hello, 
  6.  
  7. Bonus asked me to write a text for the DBA Diskmagazine 3. So I wrote 
  8. a bit on programming. Bonus and K.G.E. ( the coders of this magazine) 
  9. are trying to learn me how to program in GFA-Basic. It is not very 
  10. difficult because the instructions are very simple, and GFA-Basic is 
  11. very fast. Not as fast as ASM ofcourse but still for a Basic it is 
  12. very fast. 
  13.  
  14. If you want to learn how to program you have to observe and remember!
  15. ( If you are not so good at remembering you may have to write it 
  16. down! (could come in handy later! ( maybe! ))) As you probably know 
  17. there are some small GFA programs in the DBA Diskmagazines. These are 
  18. great help because they give you a good example of what GFA is capable 
  19. of. And the explanation is very good. 
  20.  
  21. If you start programming don't start too difficult. You have to start
  22. with a simple concept, and make it more complicated later on. 
  23. For example: 
  24. ' 
  25. ' Small Gfa example  (I)
  26. '
  27. x%=1                         ! X-coordination.
  28. y%=1                         ! Y-coordination.
  29. dx%=1                        ! counter for x%
  30. dy%=1                        ! counter for y%
  31. '
  32. ' Main program
  33. '
  34. REPEAT
  35.  ADD x%,dx%                  ! count x% up with dx%
  36.  ADD y%,dy%                  ! count y% up with dy%
  37.  IF x%<1 OR x%>319 THEN      ! check for not going out of screen.
  38.   dx%=-dx%                   ! if dx%=1 then dx%=-1 and vice versa
  39.  ENDIF
  40.  IF y%<1 OR y%>199 THEN      ! check for not going out of screen.
  41.   dy%=-dy%                   ! same as dx% go and see there.
  42.  ENDIF
  43.  PLOT x%,y%                  ! show coordinations.
  44. UNTIL INKEY$<>""             ! if any key is pressed then
  45. EDIT                         ! go to editor. 
  46.  
  47. This is a simple example, but you can make it much more difficult, 
  48. you could try to show only ten x-,and y-coordinations.
  49.  
  50. '
  51. ' Small Gfa Example (II)
  52. '
  53. DIM x%(10),dx%(10),y%(10),dy%(10)      ! create some variables.
  54. FOR i%=1 TO 10
  55.  x%(i%)=i%                             ! give each x% a number.
  56.  y%(i%)=i%                             ! give each y% a number.
  57.  dx%(i%)=1                             ! every x-counter=1
  58.  dy%(i%)=1                             ! every y-counter=1
  59. NEXT i%
  60. REPEAT
  61.  FOR i%=1 TO 10
  62.   ADD x%(i%),dx%(i%)                   ! count up x% with dx%
  63.   ADD y%(i%),dy%(i%)                   ! count up y% with dy%
  64.   IF x%(i%)<1 OR x%(i%)>319 THEN       ! check if not out of screen.
  65.    dx%(i%)=-dx%(i%)                    ! if dx%=1 then dx%=-1 and vice 
  66.   ENDIF                                ! versa.
  67.   IF y%(i%)<1 OR y%(i%)>199 THEN       ! same as above
  68.    dy%(i%)=-dy%(i%)
  69.   ENDIF
  70.   PLOT x%(i%),y%(i%)                   ! show x and y
  71.  NEXT i%
  72.  CLS                                   ! clear screen
  73. UNTIL INKEY$<>""                       ! if any key is pressed then
  74. EDIT                                   ! go to editor
  75.  
  76. The program is a bit more complicated, but you can make it much more 
  77. difficult just use your imagination. 
  78.  
  79. If you want to learn how to program then you try to gather (small) 
  80. Gfa-sources, and you try to understand them. You experiment with them, 
  81. and you compare it with other programs. 
  82.  
  83. As you see you don't have to make it very difficult. 
  84.  
  85. If you have questions or remarks  you could write a lettre to:
  86.  
  87. O.T.M.
  88. Rembrandtstraat 48
  89. 8331 RP  Steenwijk
  90. The netherlands.
  91.  
  92.  
  93. Text by O.T.M. of Digital.
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.                  
  103.