Category : BASIC Source Code
Archive   : SQWK.ZIP
Filename : SQUAWK.BAS
DEFINT A-X
RANDOMIZE TIMER
Cuckoo$="T120L16MLO3BF#"
Zap$="T255L64MLO4BAGFEDC
Zang1$="T255L64MLO2BCADGEFEGDACBCADGEFEGDACB"
Zang2$="T255L64MLO3BCADGEFEGDACBCADGEFEGDACB"
Zang3$="T255L64MLO4BCADGEFEGDACBCADGEFEGDACB"
Zang4$="T255L64MLO5BCADGEFEGDACBCADGEFEGDACB"
Downer1$="T150L64MSO4BGEC
UpScale2$="T120L64MSO2E.A.>D.G.>C.F.B."
UpScale3$="T150L64MSO0F>CG>DA>EB."
Tweedle$="T240L64MLO4EGEGEGCFCFCFGEGEGE"
Whoople$="T255L64O4CDEFGABO3CDEFGABO2CDEFGAB"
Bongee1$="T255L64MLO1BAGFEDC
Bongee2$="T255L64MLO2BAGFEDC
Bongee3$="T255L64MLO3BAGFEDC
Bongee4$="T255L64MLO4BAGFEDC
Uhoh1$="T255L64MLO1CDEFGAB>CDEFGABP16
Whung$="T255L32mlO3CD
Phone2$="T240L64MLO4EGEGEGEGEGEGEGEGEGEGEGEGEGEGEG"
Tweet$="O4T255L64MLB-BB-BAGAG.>EGG>EGG"
Wolf$="T200L64MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.
COLOR 14,1
CLS
LOCATE 3,10
PRINT"Squawkers and Zangers and Off-Key Loud Clangers and Things that";
LOCATE 4,10
PRINT"go Bleep in the Night. (C) 1987 Merlin R. Null version 1.0";
LOCATE 2,1
COLOR 15,1
PRINT TAB(6)"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT TAB(6)"º";
LOCATE 3,75
PRINT"º"
PRINT TAB(6)"º";
LOCATE 4,75
PRINT"º"
PRINT TAB(6)"ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
PRINT TAB(6)"º A Cuckoo N Chang a Boingee 1 n Mew º"
PRINT TAB(6)"º B Zap O Oh! b Boingee 2 o Tweet º"
PRINT TAB(6)"º C Tifweet P Space 1 c Boingee 3 p Phone 1 º"
PRINT TAB(6)"º D Zang 1 Q Space 2 d Boingee 4 q Phone 2 º"
PRINT TAB(6)"º E Zang 2 R Gurgle e Uhoh 1 r Wolf º"
PRINT TAB(6)"º F Zang 3 S Spectre f Uhoh 2 s Siren º"
PRINT TAB(6)"º G Zang 4 T Grup 1 g Uhoh 3 t Fweet º"
PRINT TAB(6)"º H Downer 1 U Grup 2 h Uhoh 4 u Zhoup º"
PRINT TAB(6)"º I Downer 2 V Chirp i Bob White v Vrowr º"
PRINT TAB(6)"º J Downer 3 W Waver j Whung w Zhou º"
PRINT TAB(6)"º K UpScale 1 X Tweedle k Kazango x Art º"
PRINT TAB(6)"º L UpScale 2 Y Blurp l Who 1 y Coo º"
PRINT TAB(6)"º M UpScale 3 Z Whoople m Who 2 z Squawk º"
PRINT TAB(6)"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
LOCATE 20,29
COLOR 12,1
PRINT"ÉÍÍÍÍÍ»";
LOCATE 21,29
PRINT"º F10 º";
LOCATE 22,29
PRINT"ÈÍÍÍÍͼ";
LOCATE 21,37
COLOR 15,1
PRINT"Cacophony";
LOCATE 24,6,1
PRINT"Noise (A-Z, a-z) or
While X$<>CHR$(27)
IF Demoflag THEN
IF INKEY$="" THEN
X=INT(RND*52)+65
IF X>90 THEN
X=X+6
END IF
X$=CHR$(X)
ELSE
DemoFlag = 0
LOCATE 24,6
PRINT STRING$(40,32);
LOCATE 24,6,1
PRINT"Noise (A-Z, a-z) or
END IF
ELSEIF RandomSounds > 0 THEN
X=INT(RND*52)+65
IF X>90 THEN
X=X+6
END IF
X$=CHR$(X)
RandomSounds=RandomSounds-1
ELSE
GetKey:
X$=INKEY$
IF X$="" THEN GOTO GetKey
END IF
IF LEN(X$)=2 THEN
IF RIGHT$(X$,1)="D" THEN '
DemoFlag=-1
LOCATE 24,6
PRINT STRING$(45,32);
LOCATE 24,6,0
COLOR 12,1
PRINT"Press Any Key to Stop... ";
COLOR 15,1
END IF
ELSEIF X$>"0"AND X$<":" THEN '1-9
RandomSounds=VAL(X$)
END IF
IF LEN(X$)=1 AND X$>CHR$(31) THEN
IF DemoFlag THEN
LOCATE 24,31
PRINT X$;
LOCATE 24,31
ELSE
LOCATE 24,42
PRINT X$;
LOCATE 24,42
END IF
END IF
IF X$="A" THEN
PLAY "X" + VARPTR$(Cuckoo$)
ELSEIF X$="B" THEN
PLAY "X" + VARPTR$(Zap$)
ELSEIF X$="C" THEN
PLAY "X" + VARPTR$(Tifweet$)
ELSEIF X$="D" THEN
PLAY "X" + VARPTR$(Zang1$)
ELSEIF X$="E" THEN
PLAY "X" + VARPTR$(Zang2$)
ELSEIF X$="F" THEN
PLAY "X" + VARPTR$(Zang3$)
ELSEIF X$="G" THEN
PLAY "X" + VARPTR$(Zang4$)
ELSEIF X$="H" THEN
PLAY "X" + VARPTR$(Downer1$)
ELSEIF X$="I" THEN
PLAY "X" + VARPTR$(Downer2$)
ELSEIF X$="J" THEN
PLAY "X" + VARPTR$(Downer3$)
ELSEIF X$="K" THEN
PLAY "X" + VARPTR$(UpScale1$)
ELSEIF X$="L" THEN
PLAY "X" + VARPTR$(UpScale2$)
ELSEIF X$="M" THEN
PLAY "X" + VARPTR$(UpScale3$)
ELSEIF X$="N" THEN 'Chang
FOR J=1 TO 4
FOR I=2000 TO 50 STEP -400
SOUND I,.2
NEXT
FOR I=800 TO 2000 STEP 400
SOUND I,.2
NEXT
NEXT
ELSEIF X$="O" THEN
FOR I=800 TO 2000 STEP 100 'Oh
SOUND I,.2
NEXT
FOR I=2000 TO 50 STEP -100
SOUND I,.2
NEXT
ELSEIF X$="P" THEN
FOR I=1000 TO 40 STEP -20 'Space 1
SOUND I,.2
NEXT
ELSEIF X$="Q" THEN
FOR I=10000 TO 500 STEP -500 'Space 2
SOUND I,.2
NEXT
ELSEIF X$="R" THEN
FOR I=10 TO 50 STEP 10 'Gurgle
FOR J=50 TO 10 STEP -10
SOUND I^2+J^2,.1
NEXT
NEXT
ELSEIF X$="S" THEN
FOR Z=1 TO 30 STEP .4 'Spectre
SOUND (SIN(Z)+40)*50,.2
NEXT
ELSEIF X$="T" THEN
FOR I=10 TO 50 STEP 10 'Grup 1
FOR J=50 TO 10 STEP -10
SOUND I*J,.1
NEXT
NEXT
ELSEIF X$="U" THEN
FOR I=30 TO 70 STEP 10 'Grup 2
FOR J=70 TO 30 STEP -10
SOUND I*J,.1
NEXT
NEXT
ELSEIF X$="V" THEN
FOR I=30 TO 60 STEP 10 'Chirp
FOR J=60 TO 30 STEP -10
SOUND I*J,.2
NEXT
NEXT
ELSEIF X$="W" THEN
FOR Z=1 TO 30 STEP .7 'Waver
SOUND (SIN(Z)+20)*30,.2
NEXT
ELSEIF X$="X" THEN
PLAY "X" + VARPTR$(Tweedle$)
ELSEIF X$="Y" THEN
FOR I=1 TO 40 'Blurp
SOUND INT(RND*1400)+450,.1
NEXT
ELSEIF X$="Z" THEN
PLAY "X" + VARPTR$(Whoople$)
ELSEIF X$="a" THEN 'a
PLAY "X" + VARPTR$(Bongee1$)
ELSEIF X$="b" THEN
PLAY "X" + VARPTR$(Bongee2$)
ELSEIF X$="c" THEN
PLAY "X" + VARPTR$(Bongee3$)
ELSEIF X$="d" THEN
PLAY "X" + VARPTR$(Bongee4$)
ELSEIF X$="e" THEN
PLAY "X" + VARPTR$(Uhoh1$)
ELSEIF X$="f" THEN
PLAY "X" + VARPTR$(Uhoh2$)
ELSEIF X$="g" THEN
PLAY "X" + VARPTR$(Uhoh3$)
ELSEIF X$="h" THEN
PLAY "X" + VARPTR$(Uhoh4$)
ELSEIF X$="i" THEN
PLAY "X" + VARPTR$(BobWhite$)
ELSEIF X$="j" THEN
PLAY "X" + VARPTR$(Whung$)
ELSEIF X$="k" THEN
FOR I=10000 TO 500 STEP -500 'Space 2
SOUND I,.2
NEXT
PLAY "X" + VARPTR$(Zap$)
ELSEIF X$="l" THEN
FOR Y=10.2 TO 8.2 STEP -.2 'Who 1
SOUND (TAN(Y)+36)*25,.8
SOUND (SIN(Y)+20)*50,.4
NEXT
ELSEIF X$="m" THEN
FOR Y=10.2 TO 8.2 STEP -.2 'Who 2
SOUND (TAN(Y)+36)*10,.8
SOUND (SIN(Y)+20)*20,.4
NEXT
ELSEIF X$="n" THEN
FOR Y=10.8 TO 8 STEP -.1 'Mew
SOUND (TAN(Y)+50)*25,.4
NEXT
ELSEIF X$="o" THEN
FOR I=1 TO 3
PLAY "X" +VARPTR$(Tweet$)
NEXT
ELSEIF X$="p" THEN
FOR Y=1 TO 10 'Phone 1
SOUND 1195,.4
SOUND 2571,.4
NEXT
ELSEIF X$="q" THEN
PLAY "X" + VARPTR$(Phone2$)
ELSEIF X$="r" THEN
PLAY "X" + VARPTR$(Wolf$)
ELSEIF X$="s" THEN
FOR Y=1 TO 3 'siren
SOUND 550,9
SOUND 400,9
NEXT
ELSEIF X$="t" THEN
FOR I=1 TO 2
PLAY "X" +VARPTR$(Fweet$)
NEXT
ELSEIF X$="u" THEN
FOR Z=3 TO 9 step .2 'Zhoup
SOUND 120+Z^4,.1
SOUND 0,.1
NEXT
ELSEIF X$="v" THEN
FOR Z=9 TO 3 step -.1 'Vrowr
SOUND 120+Z^4,.1
SOUND 0,.1
NEXT
ELSEIF X$="w" THEN
FOR I=40 TO 15 STEP -1 'Zhou
SOUND I*90,.1
SOUND I*80,.1
SOUND I*70,.1
SOUND I*60,.1
SOUND I*50,.1
NEXT
ELSEIF X$="x" THEN
FOR I=1 TO 10 'Art
SOUND 1195-50*I,.3
SOUND 1195+50*I,.3
NEXT
ELSEIF X$="y" THEN
FOR I=0 TO 150 STEP 10 'Coo
SOUND 1295-I,.4
SOUND 1095+I,.4
NEXT
ELSEIF X$="z" THEN 'Squawk
FOR I=1 TO 20
SOUND I*50,.1
SOUND I*100,.1
SOUND I*150,.1
NEXT
END IF
WEND
END
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/