esoterische-introavond/4/AWerbrouck.basic

11 lines
189 B
Text
Raw Normal View History

2020-10-28 20:09:42 +01:00
CLS
Dim s As String
2020-10-28 20:14:09 +01:00
INPUT "Z voor zeus en C voor corona, en niets als je houdt van dodona";s
2020-10-28 20:09:42 +01:00
IF s = "Z" THEN
PRINT ":D"
ELSEIF s = "C" THEN
PRINT "D:"
ELSE
PRINT "(-_-)"
END IF