X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2F255-ZNAK.BAS;fp=turbobasic%2F255-ZNAK.BAS;h=afd1bb335e1601eb3058f6e4a2b51fd5b4a36439;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

diff --git a/turbobasic/255-ZNAK.BAS b/turbobasic/255-ZNAK.BAS
new file mode 100755
index 0000000..afd1bb3
--- /dev/null
+++ b/turbobasic/255-ZNAK.BAS
@@ -0,0 +1,15 @@
+CLS
+FOR A=0 TO 255
+COLOR 0,15
+SCREEN 0
+LOCATE B,A
+PRINT A CHR$ (A)"*          "
+
+
+REM POKR:
+REM LOCATE 5,5
+REM PRINT CHR$ (A)
+REM FOR I=0 TO 99999
+REM NEXT I
+NEXT A
+END
\ No newline at end of file