10 lines
161 B
QBasic
10 lines
161 B
QBasic
10 LET T=4
|
|
20 LET D=5
|
|
30 GOSUB 200
|
|
40 IF R<>0 THEN PRINT "Test failed"
|
|
50 IF R=0 THEN PRINT "Nipasar"
|
|
60 SYSTEM
|
|
200 LET R=T-D
|
|
210 IF R<0 THEN LET R=0
|
|
220 RETURN
|