Il programma in Basic seguente ha le uscite indicate:

10 PRINT 0 = 1, 1 = 1
20 PRINT 0 < 1, 1 < 0, 1 > 0
30 PRINT 0 <= 1, 1 <= 0, 1 >= 1
false   true
true   false   true
true   false   true

Completa il programma seguente in modo che abbia le uscite indicate.

10 INPUT "x = "; x : INPUT "y = "; y : PRINT "Hanno lo stesso segno?"
20 k=x : GOSUB 100 : s1=sgn : k=y : GOSUB 100 : s2=sgn
30 IF s1=s2 THEN PRINT 0=0 ELSE PRINT 0=1
40 IF s1=s2 AND s1=... then print "Sono entrambi positivi"
50 IF s1=s2 AND s1=... then print "Sono entrambi negativi"
60 GOTO 10
100 IF k=0 THEN sgn = ... ELSE sgn = k/ABS(k) 
110 RETURN     ' ABS = valore assoluto
x =  1
y =  2
Hanno lo stesso segno?
true
Sono entrambi positivi
x =  1
y =  -2
Hanno lo stesso segno?
false
x =  0
y =  0
Hanno lo stesso segno?
true

Ecco:

10 INPUT "x = "; x : INPUT "y = "; y : PRINT "Hanno lo stesso segno?"
20 k=x : GOSUB 100 : s1=sgn : k=y : GOSUB 100 : s2=sgn
30 IF s1=s2 THEN PRINT 0=0 ELSE PRINT 0=1
40 IF s1=s2 AND s1=1 then print "Sono entrambi positivi"
50 IF s1=s2 AND s1=-1 then print "Sono entrambi negativi"
60 GOTO 10
100 IF k=0 THEN sgn = 0 ELSE sgn = k/ABS(k) 
110 RETURN     ' ABS = valore assoluto

Altro esempio: