diff --git a/README.md b/README.md
index 0f9803e..72c81eb 100644
--- a/README.md
+++ b/README.md
@@ -170,6 +170,7 @@ A: Thecoderunsfasterwhentherearenouselessspacesandnewlines.
 - Tcl
 - Terraform
 - Thue
+- TI-Basic
 - Toit
 - TrumpScript
 - TypeScript
diff --git a/implementations/MAIN.8xp b/implementations/MAIN.8xp
new file mode 100644
index 0000000..1de5202
--- /dev/null
+++ b/implementations/MAIN.8xp
@@ -0,0 +1,3 @@
+:Disp "ENTER NUMBER"
+:Input A
+:Disp "NOT PRIME"
diff --git a/optimized_implementations/MAIN.8xp b/optimized_implementations/MAIN.8xp
new file mode 100644
index 0000000..53d0864
--- /dev/null
+++ b/optimized_implementations/MAIN.8xp
@@ -0,0 +1 @@
+:Disp "ENTER NUMBER":Input A:Disp "NOT PRIME"