home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0016.bas < prev    next >
BASIC Source File  |  1996-02-06  |  250b  |  19 lines
  1. 'Vergleiche mit ELSE
  2.  
  3. COLOR 14, 1
  4. CLS
  5.  
  6. PRINT "Gib eine Zahl ein!"
  7. INPUT Zahl1
  8.  
  9. PRINT "Gib eine zweite Zahl ein!"
  10. INPUT Zahl2
  11.  
  12. PRINT
  13. PRINT "Die beiden Zahlen sind ";
  14. IF Zahl1 <> Zahl2 THEN
  15.  PRINT "NICHT ";
  16. END IF
  17. PRINT "identisch."
  18.  
  19.