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