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