home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / tema / baltazar / sgpbc / priklad3.sgp < prev    next >
Text File  |  1997-05-20  |  3KB  |  68 lines
  1. SGPC   3.00 S#000000 10.09.1993 11:29:37                                        StructNo 0   0
  2. ; Vytvo²en ze vzoru: VZORBC.000
  3.  
  4. # include <baltazar.h>
  5.  
  6. ;-h---------------------------------------------------------------------------
  7. /***** hlavní program *****/
  8. void main( void )
  9. -s--Baltazar~3                                                                  ■   2  -2  -1   3
  10.         _________________________Baltazar-3_________________________
  11.      Zaƒátek                     Prost²edek                      Konec
  12. 0[vR:(5)!     _______________________│_______________________      !w]
  13.           5-políƒek            Fialov∞   "Okraj   Cesta   'Okraj
  14.               #N:(i,5)         ƒtverec     z!       k
  15.            Políƒko     B:(Fialová)!c              okraji
  16.              p!                                     *1
  17.                                                  Políƒko
  18.                                                    p!
  19. -o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  20. 0 /* prom╪nné <var> */  int   a, b, c, d, e, f, g, h, i, j, Klávesa;
  21. [ Vytvo²Prostor()
  22. ] ZruτProstor()
  23. a Klávesa= ¼tiKlávesuZFronty()
  24. b P²epniNaBaltazara()
  25. c ¼aruj(¼tverec)
  26. e BezObláƒku()
  27. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  28. l VlevoVbok()
  29. n Neviditeln∞()
  30. o SObláƒkem()
  31. p Popojdi(1)
  32. r VpravoVbok()
  33. t P²epniNaText()
  34. v Viditeln∞()
  35. w ¼ekejNaKlávesu()
  36. z /* ƒelem vzad */
  37.   VlevoVbok(); VlevoVbok()
  38. B NastavBarvu¼arování /* 0-15          */
  39. C ¼aruj               /* 1-150         */
  40. L NaƒtiScénu          /* jméno souboru */
  41. N Náhodn╪¼aruj        /* 1-150         */
  42. P Popojdi             /* 0-15          */
  43. R RychlostBaltazara   /* 0-9           */
  44. S UloºScénu           /* jméno souboru */
  45. W ¼ekej               /* 0-32000       */
  46. -c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47. /n PràchodnostP²edm╪tuP²edB() Je 0
  48. /p PràchodnostP²edm╪tuP²edB() Je 1
  49. /B Barva¼tverceP²edB() /* Je, Není, <, >, <= ,>= */
  50. /P P²edm╪tP²edB()      /* Je, Není, <, >, <= ,>= */
  51. /S Sm╪rBaltazara()     /* Je, Není, <, >, <= ,>= */
  52. *1 /* d╪lej kdyº      */ P²edm╪tP²edB() Není Okraj
  53. *n /* d╪lej kdyº      */ PràchodnostP²edm╪tuP²edB() Je 0
  54. *p /* d╪lej kdyº      */ PràchodnostP²edm╪tuP²edB() Je 1
  55. *B /* d╪lej kdyº      */ Barva¼tverceP²edB()  /* Je, Není, <, >, <= ,>= */
  56. *P /* d╪lej kdyº      */ P²edm╪tP²edB()       /* Je, Není, <, >, <= ,>= */
  57. *S /* d╪lej kdyº      */ Sm╪rBaltazara()      /* Je, Není, <, >, <= ,>= */
  58. #A /* d╪lej od m do n s krokem k pro prom╪nnou var  - zápis #A:(var,m,n,k) */
  59.       OdDoKrok
  60. #D /* d╪lej od m dolà do n s krokem k pro prom. var - zápis #D:(var,m,n,k) */
  61.       OdDolàDoKrok
  62. #N /* d╪lej n-krát vzestupn╪ pro prom╪nnou var      - zápis #N:(var,n)     */
  63.       Od0
  64. #M /* d╪lej n-krát sestupn╪ pro prom╪nnou var       - zápis #M:(var,n)     */
  65.       DolàDo0
  66. =SP---------------------------------------------------------------------------
  67. /***** konec programu *****/
  68.