Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / VO-PSANI.BAS

diff --git a/turbobasic/VO-PSANI.BAS b/turbobasic/VO-PSANI.BAS
new file mode 100755 (executable)
index 0000000..21bd21a
--- /dev/null
+++ b/turbobasic/VO-PSANI.BAS
@@ -0,0 +1,31 @@
+T$="A"\r
+O$="H"\r
+M$="O"\r
+A$="J"\r
+S$="!"\r
+FOR I=1 TO 3000\r
+CLS\r
+COLOR 14,1\r
+SCREEN 0\r
+LOCATE 2,23\r
+PRINT T$\r
+LOCATE 3,23\r
+PRINT O$\r
+LOCATE 4,23\r
+PRINT M$\r
+LOCATE 5,23\r
+PRINT A$\r
+LOCATE 6,23\r
+PRINT S$\r
+\r
+FOR D=1 TO 300\r
+NEXT D\r
+NEXT I\r
+END\r
+\r
+\r
+\r
+\r
+\r
+\r
+\1a
\ No newline at end of file