+++ /dev/null
-' file -> COM\r
-' made by Svjatoslav Agejenko\r
-' in 2003.12\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslav@svjatoslav.eu\r
- \r
-DIM SHARED byte AS STRING * 1\r
-OPEN COMMAND$ FOR BINARY AS #1\r
-\r
-1\r
-IF EOF(1) <> 0 THEN GOTO 2\r
-GET #1, , byte\r
-OUT 1016, ASC(byte)\r
-\r
-FOR b = 1 TO 10\r
- SOUND 0, .05\r
-NEXT b\r
-GOTO 1\r
-2\r
-CLOSE #1\r
-\r
+++ /dev/null
-OPEN "com2:9600,n,8,1,rs,cd0,cs0,ds0,tb2048,rb2048 " FOR OUTPUT AS #1\r
-\r
-CLOSE #1\r
-\r
-' Program to play sound that resembles alarm.\r
+' Program to play sound that resembles security alarm.\r
' By Svjatoslav Agejenko.\r
' Email: svjatoslav@svjatoslav.eu\r
' Homepage: http://www.svjatoslav.eu\r
+' This program emits sound taht resembles security alarm\r
+\r
DEFINT A-Z\r
1\r
FOR a = 100 TO 1000 STEP 3\r
SOUND a * 3 + 10, .05\r
NEXT a\r
GOTO 1\r
-\r