Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : ALARM.CMD

 
Output of file : ALARM.CMD contained in archive : CA29-3.ZIP
; ----- Install a tune as the default alarm
; commenced: 8/2/88 R.McG
; ----------------------------------------------------------------
; Note: This script creates the file COM-AND.TUN on the default
; subdirectory (if no COM-AND= subdir, or if COM-AND.TUN already
; exists on default), or on the COM-AND= subdir.
; ----------------------------------------------------------------
;
; First, draw a box
;
LEGEND " Select an alarm tune"
ON ESCAPE GOSUB EXIT
GOTO Start
;
; Subroutine to intercept ESCAPE
;
Exit:
RESTORE ; Restore saved screen area
EXIT ; No window foolishness
;
; Start by opening a window
;
Start:
GOSUB Window ; Open a window
;
; Now, look for a keypress
;
Loop:
KEYGET S1 ; Read a single key
SWITCH S1
CASE "1" ; First call by Louis M. Sander
S0 = "T200MNO2G24O3C24E24G8G24G24G24G8E8E24E24E24E8C8E8C8O2G8"
PLAY S0 ; Play the current selection
ENDCASE
CASE "2" ; William Tell
S0 = "t220l16o3mnb4p8msbbmnb4p8msbbb8g#8e8g#8b8g#8b8o4e8o3b8g#8e8g#8b8g#8b8o4e8o3mnb4p8msbb"
PLAY S0 ; Play the current selection
ENDCASE
CASE "3" ; Theme from dragnet
S0 = "ms t250 o2 c2d8e-cp4 >c2d8e-cp4g-1 p2"
PLAY S0 ; Play the current selection
ENDCASE
CASE "4" ; Leave it to Beaver
S0 = "ms t190lO2L8CL4FL8A>CDL8CCFL4D L8 PLAY S0 ; Play the current selection
ENDCASE
CASE "5" ; The TOnight Show
S0 = "ms t170 L4 A L8 G P16 F P16 L4 E P32 D.. P16.. L8 D.F P16 AG... P4"
PLAY S0 ; Play the current selection
ENDCASE
CASE "6" ; Beverly Hillbillies
S0 = "ms t190 o2 L8 CCFCFGAAFF L4 G P32 G P32 C. P16"
PLAY S0 ; Play the current selection
ENDCASE
CASE "7" ; The FLintstones
S0 = "ms t170 o3 L8 G.. P64 C P4 >C. P32 PLAY S0 ; Play the current selection
ENDCASE
CASE "8" ; The Adams Family
S0 = "ms t220 o3 O3 T220 L8 CDEF P4 O0 L4 F P8 F P8 O3L8 DEF#G P4 O1 L4 G P8 G P8O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8"
PLAY S0 ; Play the current selection
ENDCASE
CASE "9" ; Final Jeapordy
S0 = "ms t150 o3 DGD DGD P4DGDG MS B P8 MN L8 AGF#EE- L4DGD DGD P4MS G P8"
PLAY S0 ; Play the current selection
ENDCASE

CASE "A" ; Birds
S0 = "l50 ml t255 o5 f#gf#gp64 f#gf#gp64 f#gf#gp64 f#gf#gp64 aa#ba#aa#ba#a p32 bbbbbb p64 f#gp64 f#gp64 f#gp64 f#gp64 f#g"
PLAY S0 ; Play the current selection
ENDCASE
CASE "B" ; More birds
S0 = "l64 ml t255 n64n66n68n70 p64 n66n68n70n72n74n76n78 p64 n66n68n70n72 p64 n64n66n68n70 p64 n70n72n74n76n78n80 p64"
PLAY S0 ; Play the current selection
ENDCASE
CASE "C" ; Charge
S0 = "mn t200 L8 CEFG P16 L8 E G8 >C1"
PLAY S0 ; Play the current selection
ENDCASE
CASE "D" ; Spaceship
S0 = "l64 mf ml t255 n50n60n52n62n54n64n56n66n54n64n52n62n51n62"
PLAY S0 ; Play the current selection
ENDCASE
CASE "E" ; More Spaceship
S0 = "l64 mf ml t255 n40n41n42n43 n50n51n52n53"
PLAY S0 ; Play the current selection
ENDCASE
CASE "F" ; Alfred Hitchcock
S0 = "t200 ml o2g ms o3cc8c ml o2bab. ms o3 cd1"
PLAY S0 ; Play the current selection
ENDCASE
CASE "G" ; Dixie
S0 = "t200 L16ge L8cc L16cdef L8gggeaaa. L16g a8.gab O4 L16cde4. c O3g O4c4.O3geg4.dec4"
PLAY S0 ; Play the current selection
ENDCASE
CASE "H" ; Reveille by Louis M Sander
S0 = "T140O2G8O3MSC8MNE16C16O2G8O3MSE8C8MNE16C16O2G8O3E8C8E16C16O2G8O3E8C2"
PLAY S0 ; Play the current selection
ENDCASE
CASE "I" ; Swim call by Louis M Sander
S0 = "T198 MN O2 G8 O3 C8 P8 C8 C8 E8 C8 O2 G8 P8 G8 G8 P8 G8 O3 C8 P8 C8 C8 E8 C8G"
PLAY S0 ; Play the current selection
ENDCASE

CASE "P"
PLAY S0 ; Play the current selection
ENDCASE
CASE "X"
IF NOT NULL S0
GOTO INSTALL ; Install it
ELSE
SOUND 200 100 ; NOthing yet
ENDIF
ENDCASE

default
SOUND 100 100 ; Not acceptible
ENDCASE
ENDSWITCH
GOTO LOOP
;
; Install the selection as the current tune
;
INSTALL:
SET TUNE S0 ; Set for current execution
;
; Construct a file name on the appropriate directory
;
ENVIRON S1 "COM-AND=" ; Look for COM-AND= environment var
IF FOUND ; If environment variable found
LENGTH S1 N0 ; Get its length
N0 = N0-1 ; Point to last char in string
IF not STRCMP S1(n0:n0) "\"
N0 = N0+1
CONCAT S1(n0) "\"
ENDIF
ENDIF
S1 = S1&"COM-AND.TUN" ; Add the necessary file name
;
; Open the file, write the scting, and close it
;
FOPENO S1 ; Open the file name so constructed
LENGTH S0 N1 ; Find string length
WRITE S0 N1 ; Write the string
FCLOSEO ; Close the file
MESSAGE "Alarm installed!"
RESTORE ; Restore saved screen area
EXIT ; And we're done
;
; Open a window and display a menu
;
Window:
SAVE 0 10 23 70
box 0 10 23 70 (default)
atsay 0 ,12 (default) " COM-AND Select Alarm tune "
atsay 1 ,11 (default) " COM-AND version 2.3 allows the alarm 'tune' to be set by "
atsay 2 ,11 (default) " its user. The alarm tune is set by default through the "
atsay 3 ,11 (default) " file COM-AND.TUN. It may be changed during COM-AND's "
atsay 4 ,11 (default) " execution through any script using the command 'SET TUNE'."

atsay 6 ,11 (default) " This script both creates the TUN file and sets the alarm "
atsay 7 ,11 (default) " for the current execution. ESC exits without installing. "

atsay 8 ,10 (default) "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
atsay 10 12 (default) "1) First call"
atsay 11 12 (default) "2) William Tell"
atsay 12 12 (default) "3) Theme from Dragnet"
atsay 13 12 (default) "4) Leave it to Beaver"
atsay 14 12 (default) "5) The Tonight Show"
atsay 15 12 (default) "6) Beverly Hillbillies"
atsay 16 12 (default) "7) Flintstones"
atsay 17 12 (default) "8) The Adams Family"
atsay 18 12 (default) "9) Final Jeapordy"
; *** atsay 19 12 (default) "9) And something completely different"

atsay 10 42 (default) "A) Birds"
atsay 11 42 (default) "B) Another bird"
atsay 12 42 (default) "C) Charge!! "
atsay 13 42 (default) "D) Spaceship"
atsay 14 42 (default) "E) Another spaceship"
atsay 15 42 (default) "F) Alfred Hitchcock"
atsay 16 42 (default) "G) Dixie"
atsay 17 42 (default) "H) Reveille"
atsay 18 42 (default) "I) Swim call"

atsay 20 10 (default) "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
atsay 21 12 (default) "P) Play the selected tune again"
atsay 22 12 (default) "X) Install the selected tune"
atsay 23 32 (default) "Press ESC to exit"
return


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : ALARM.CMD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/