home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Games / Remember / Com-Light / JunV1.d64 / variables.c < prev   
Encoding:
Text File  |  2019-04-13  |  2.5 KB  |  122 lines
  1. àü/*
  2. 
  3.    ├HAPTER 1 - ╓ARIABLES.C
  4. 
  5.    ─EMONSTRATION OF DEFINING AND DISPLAYING VARIABLES PLUS KEYBOARD INPUT
  6. 
  7. */
  8. 
  9. 
  10. #INCLUDE "STDIO.H"
  11. 
  12. #DEFINE ═┴╪ 25.2
  13. #DEFINE CLEAR_SCREEN PRINTF("\223")
  14. 
  15. INT GLOBAL_VAR;
  16. 
  17. MAIN()
  18. █
  19. 
  20.    CHAR CHOICE, CHOICE_ARRAY[10],CHOICE2[10];
  21.    INT X,Y;
  22.    DOUBLE Z=1.07682;
  23. 
  24.    X=1;
  25.    Y=2;
  26. 
  27.    CLEAR_SCREEN;
  28. 
  29.    PRINTF("┴S  WITH ALL OF THE PROGRAMS ON THE DISK");
  30.    PRINTF("\NTHE  GREATER  BENEFIT  IS GAINED THROUGH");
  31.    PRINTF("\NBOTH  LISTING THE SOURCE CODE AND SEEING");
  32.    PRINTF("\NHOW  THIS  RELATES  TO  WHAT  APPEARS ON");
  33.    PRINTF("\NSCREEN... PRESS ANY KEY");
  34. 
  35.    GETCHAR();
  36. 
  37.    CLEAR_SCREEN;
  38. 
  39.    PRINTF("╘HE  SCREEN WAS CLEARED WITH THE COMMAND");
  40.    PRINTF("\NCLEAR_SCREEN  WHICH  WAS  DEFINED AT THE");
  41.    PRINTF("\NBEGINNING OF THE PROGRAM.");
  42. 
  43.    PRINTF("\N\N╘HE  BACKSLASH  N  AFTER THE QUOTES (YOU");
  44.    PRINTF("\NCANNOT SEE IT ON SCREEN)  FORCES TEXT TO");
  45.    PRINTF("\NAPPEAR ON A NEW LINE ");
  46.    PRINTF("NOT JOINED ON.");
  47. 
  48. /*
  49. 
  50.   DISPLAYING NUMBERS
  51. 
  52. */
  53. 
  54.    CURSOR(10,7); PRINTF("─ISPLAYING ╬UMBERS");
  55. 
  56.    PRINTF("\N\N╘HE INTEGER X HAS A VALUE OF %D",X);
  57.    PRINTF("\N╘HE INTEGER Y HAS A VALUE OF %D",Y);
  58.    PRINTF("\N╧BJECT X =%D     ╧BJECT Y =%D",X,Y);
  59. 
  60.    PRINTF("\N\N╘HE CONSTANT ═┴╪ = %F",═┴╪);
  61.    PRINTF("\N\N╘HE OBJECT Z OF TYPE DOUBLE = %G",Z);
  62.    PRINTF("\NCAN ALSO BE DISPLAYED AS %012G",Z);
  63.    PRINTF("\NOR %12G",Z);
  64. 
  65.    CURSOR(22,7); PRINTF("╨RESS ANY KEY");
  66.    GETCHAR();
  67. 
  68. /*
  69. 
  70.   GETTING SINGLE KEY INPUT FROM THE KEYBOARD
  71. 
  72. */
  73. 
  74.    CLEAR_SCREEN;
  75.    CURSOR(5,7); PRINTF("╦EYBOARD ╔NPUT");
  76. 
  77.    PRINTF("\N\N╨RESS A LETTER OR A NUMBER KEY  ");
  78.    CHOICE=GETCHAR();
  79.    PRINTF("\N┘OU PRESSED THE %C KEY",CHOICE);
  80. 
  81. /*
  82. 
  83.   GETTING STRING INPUT USING GETS
  84. 
  85. */
  86. 
  87.    PRINTF("\N\N┼NTER A SHORT WORD FOLLOWED BY <╥┼╘╒╥╬>  ");
  88.    GETS(CHOICE_ARRAY);
  89.    PRINTF("\N╘HE WHOLE WORD IS %S",CHOICE_ARRAY);
  90.    PRINTF("\N╘HE FIRST 2 CHRS ARE %.2S",CHOICE_ARRAY);
  91. 
  92.    PRINTF("\N\N       ╨RESS ANY KEY");
  93.    GETCHAR();
  94. 
  95. /*
  96. 
  97.   GETTING INPUT USING SCANF
  98. 
  99. */
  100. 
  101.    CLEAR_SCREEN;
  102. 
  103.    CURSOR(5,1); PRINTF("╦EYBOARD ╔NPUT ╒SING SCANF");
  104. 
  105.    PRINTF("\N\N┼NTER A SHORT WORD FOLLOWED BY <╥┼╘╒╥╬>  ");
  106.    SCANF("%S",CHOICE2);
  107.    PRINTF("\N╘HE WHOLE WORD IS %S",CHOICE2);
  108. 
  109.    PRINTF("\N\N┼NTER AN WHOLE NUMBER :");
  110.    SCANF("%D",&X);
  111.    /* NOTICE THE "&" SIGN; USED WHEN INPUTING NUMBERS */
  112.    PRINTF("\N╘HE NUMBER IS %D",X);
  113. 
  114.    PRINTF("\N\N       ╨RESS ANY KEY");
  115.    GETCHAR();
  116. 
  117. 
  118.    PRINTF("\N\N╚OPEFULLY LOADING C-MENU....");
  119.    EXEC("C-MENU");
  120. 
  121. ▌