home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / grdlagen / if_1.bas < prev    next >
BASIC Source File  |  1990-03-09  |  318b  |  11 lines
  1. 5 ' ----------- if_1.bas
  2. 10 CLS
  3. 20 LOCATE 10,10 : PRINT "Zahl eingeben"
  4. 30 LOCATE 10,30 : INPUT WERT
  5. 40 IF WERT >= 0 THEN LOCATE 12,10 :
  6.    PRINT "Die Zahl " WERT "ist positiv" ELSE LOCATE 12,10 :
  7.    PRINT "Die Zahl " WERT "ist negativ"
  8. 50 LOCATE 14,10 : PRINT "<TASTE> " : WARTEN$ = INPUT$(1)
  9. 60 CLS
  10. 70 END
  11.