40 lines
1.0 KiB
Common Lisp
40 lines
1.0 KiB
Common Lisp
(defun menu ()
|
|
(format t "Press \"1\" to print \"hi\" ~%")
|
|
(format t "Press \"2\" to print \"suck\" ~%")
|
|
(format t "Press \"3\" to print \"bitch\" ~%")
|
|
(format t "Press \"4\" to print \"ass\" ~%")
|
|
(format t "Press \"5\" to print \"dog\" ~%")
|
|
(format t "Press \"6\" to open htop ~%")
|
|
(format t "Press \"q\" to quit \"dog\" ~%"))
|
|
|
|
(defun choices ()
|
|
(format t "~%Please enter a number: ")
|
|
(let ((input (read-line)))
|
|
(cond
|
|
((string= "1" input)
|
|
(format t "Hi! ~%"))
|
|
((string= "2" input)
|
|
(format t "You Suck!~%"))
|
|
((string= "3" input)
|
|
(format t "use a bish~%"))
|
|
((string= "4" input)
|
|
(format t "Ass!~%"))
|
|
((string= "5" input)
|
|
(format t "Hey there dog~%" ))
|
|
((string= "6" input)
|
|
(shell "htop"))
|
|
((string= "q" input)
|
|
(format t "Bye!~%"))
|
|
((string= "menu" input)
|
|
(format t "~%")
|
|
(menu))
|
|
(t
|
|
(format t "You failed! " )))
|
|
(unless (string= "q" input)
|
|
(choices))))
|
|
|
|
(defun main ()
|
|
(menu)
|
|
(choices))
|
|
(main)
|