CLS
Dim s As String
INPUT "Z voor zeus en C voor corona, en niets als je houdt van dodona";s
IF s = "Z" THEN
PRINT ":D"
ELSEIF s = "C" THEN
PRINT "D:"
ELSE
PRINT "(-_-)"
END IF
