home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0005.bas < prev    next >
BASIC Source File  |  1996-02-04  |  973b  |  68 lines
  1. blau = 1
  2. gelb = 14
  3. weiss = 7
  4. hell = 8
  5.  
  6. COLOR , blau
  7. CLS
  8.  
  9. COLOR hell + weiss
  10. LOCATE 2, 2
  11. PRINT "Wie lautet die erste Zahl";
  12. COLOR gelb
  13. INPUT zahl1
  14.  
  15. COLOR hell + weiss
  16. LOCATE 5, 2
  17. PRINT "Wie lautet die zweite Zahl";
  18. COLOR gelb
  19. INPUT zahl2
  20.  
  21. CLS
  22. COLOR hell + weiss
  23. LOCATE 2, 2
  24. PRINT "Zahl 1:";
  25. COLOR gelb
  26. PRINT zahl1;
  27.  
  28. COLOR hell + weiss
  29. LOCATE , 60
  30. PRINT "Zahl 2:";
  31. COLOR gelb
  32. PRINT zahl2
  33.  
  34. COLOR hell + weiss
  35. LOCATE 3, 1
  36. PRINT "---------------------------------------------------------------------";
  37. PRINT "-----------"
  38.  
  39. COLOR hell + weiss
  40. LOCATE 5, 2
  41. PRINT "Addition:";
  42. COLOR gelb
  43. LOCATE , 17
  44. PRINT zahl1 + zahl2
  45.  
  46. COLOR hell + weiss
  47. LOCATE 6, 2
  48. PRINT "Subtraktion:";
  49. COLOR gelb
  50. LOCATE , 17
  51. PRINT zahl1 - zahl2
  52.  
  53. COLOR hell + weiss
  54. LOCATE 7, 2
  55. PRINT "Multiplikation:";
  56. COLOR gelb
  57. LOCATE , 17
  58. PRINT zahl1 * zahl2
  59.  
  60. COLOR hell + weiss
  61. LOCATE 8, 2
  62. PRINT "Division:";
  63. COLOR gelb
  64. LOCATE , 17
  65. PRINT zahl1 / zahl2
  66.  
  67.  
  68.