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