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

[mirrors/Programs.git] / turbobasic / ASCI255.BAS

diff --git a/turbobasic/ASCI255.BAS b/turbobasic/ASCI255.BAS
new file mode 100755 (executable)
index 0000000..a78929c
--- /dev/null
+++ b/turbobasic/ASCI255.BAS
@@ -0,0 +1,16 @@
+CLS\r
+FOR A=0 TO 255\r
+COLOR 0,15\r
+SCREEN 0\r
+LOCATE 2,2\r
+PRINT A "   " CHR$ (A)""\r
+\r
+locate 5,5\r
+input "Chcete znat dalsi znak? Jestli ne napiste x a stisknete enter." ;dalsi$\r
+           REM POKR:\r
+           REM LOCATE 5,5\r
+           REM PRINT CHR$ (A)\r
+           REM FOR I=0 TO 99999\r
+           REM NEXT I\r
+           NEXT A\r
+END\1a
\ No newline at end of file