From 246043df33a8ca1d7761ca4d0be1a1b9a31c9316 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Fri, 27 Sep 2024 00:11:12 +0300 Subject: [PATCH] Remove bad examples. Improve comments. --- Networking/file2com.bas | 21 --------------------- Networking/setspeed.bas | 4 ---- Sound/siren1.bas | 2 +- Sound/siren2.bas | 3 ++- 4 files changed, 3 insertions(+), 27 deletions(-) delete mode 100755 Networking/file2com.bas delete mode 100755 Networking/setspeed.bas diff --git a/Networking/file2com.bas b/Networking/file2com.bas deleted file mode 100755 index 314dec0..0000000 --- a/Networking/file2com.bas +++ /dev/null @@ -1,21 +0,0 @@ -' file -> COM -' made by Svjatoslav Agejenko -' in 2003.12 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslav@svjatoslav.eu - -DIM SHARED byte AS STRING * 1 -OPEN COMMAND$ FOR BINARY AS #1 - -1 -IF EOF(1) <> 0 THEN GOTO 2 -GET #1, , byte -OUT 1016, ASC(byte) - -FOR b = 1 TO 10 - SOUND 0, .05 -NEXT b -GOTO 1 -2 -CLOSE #1 - diff --git a/Networking/setspeed.bas b/Networking/setspeed.bas deleted file mode 100755 index 1159bd6..0000000 --- a/Networking/setspeed.bas +++ /dev/null @@ -1,4 +0,0 @@ -OPEN "com2:9600,n,8,1,rs,cd0,cs0,ds0,tb2048,rb2048 " FOR OUTPUT AS #1 - -CLOSE #1 - diff --git a/Sound/siren1.bas b/Sound/siren1.bas index 272e0cb..268153b 100755 --- a/Sound/siren1.bas +++ b/Sound/siren1.bas @@ -1,4 +1,4 @@ -' Program to play sound that resembles alarm. +' Program to play sound that resembles security alarm. ' By Svjatoslav Agejenko. ' Email: svjatoslav@svjatoslav.eu ' Homepage: http://www.svjatoslav.eu diff --git a/Sound/siren2.bas b/Sound/siren2.bas index 08a00a8..8d5a929 100755 --- a/Sound/siren2.bas +++ b/Sound/siren2.bas @@ -1,3 +1,5 @@ +' This program emits sound taht resembles security alarm + DEFINT A-Z 1 FOR a = 100 TO 1000 STEP 3 @@ -9,4 +11,3 @@ SOUND a, .05 SOUND a * 3 + 10, .05 NEXT a GOTO 1 - -- 2.20.1