11 lines
189 B
QBasic
11 lines
189 B
QBasic
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
|