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