'>>> Page 2 of TUNE.BAS begins here.
LOCATE 11, 15: PRINT " |   This program is possible thanks to:     | "
LOCATE 12, 15: PRINT " +-------------------------------------------+ "
LOCATE 13, 15: PRINT " | Chris Gunn - Mr. Select Case              | "
LOCATE 14, 15: PRINT " | Bill White - a file on arrow keys in QB   | "
LOCATE 15, 15: PRINT " | QB Echo    - 3 years of fun!              | "
LOCATE 16, 15: PRINT " | Pat Pridgen - I always used to enter his  | "
LOCATE 17, 15: PRINT " | name as Pat Prigden on SBA and I still    | "
LOCATE 18, 15: PRINT " | say it that way! Weird huh?               | "
LOCATE 19, 15: PRINT " |                            | "
LOCATE 20, 15: PRINT " +-------------------------------------------+ "
DO: LOOP UNTIL INKEY$  ""
GOTO Begin
CASE ELSE
GOTO Begin
END SELECT
SUB HFTH
PLAY "t144l4o2ef l2gl4ec l2o3cl4o2ba gfl2e"
PLAY " l4cdl2el4d#e agfe l2d"
PLAY "l4ef l2gl4ec o3dco2ba o3co2el2g"
PLAY "l4go3dc o2l4bgaf gefdl1c"
PLAY "t144l4o2ef l2gl4ec l2o3cl4o2ba gfl2e"
PLAY " l4cdl2el4d#e agfe l2d"
PLAY "l4ef l2gl4ec o3dco2ba o3co2el2g"
PLAY "l4go3dc o2l4bgaf l2o2gefo3dl1cc"
END SUB
SUB HHAS
HA$ = "o3>DP64DP64DCCC.T160D."
PLAY "P64D8P64DCT130C.D16>D16E16"
PLAY "F#16X" + VARPTR$(NCG$)
PLAY "X" + VARPTR$(NCA$)
PLAY "X" + VARPTR$(NCB$)
PLAY "X" + VARPTR$(NC2$) + "T190"
PLAY "X" + VARPTR$(NCG$)
PLAY "X" + VARPTR$(NCA$)
PLAY "X" + VARPTR$(NCB$) + "T200D16D16MSD16MSD16MSD16D16D16MSD16D16MSD16MS"
PLAY "D16MSD16MSC8MLC16D16MSD16MSD16MSD16MSC8MLC16D16D16MSD16"
PLAY "D16D16D16D16T180D16MST170D16MSD8D16G8P4P4"
DR$ = "F#64A64>MSD16C#16D16P64C#16D8C#8MN<"
DR$ = DR$ + "G64A64>MSE8MND32F#32A32>D32F#<"
DRA$ = "B32>D32MSG16F#16G16F#16E16D16D16C#D16<MNB16C#32MNB16"
PLAY "D16MSD16D16D16"
PLAY "C#16E16D16D16C#16MSG8MNE32C#32B16D16T110D16D16E32MSD8C#8MNB16F#16"
PLAY "MSF#16F#16F#16"
PLAY "E16F#16E16A16G#16A16G#16"
PLAY "X" + VARPTR$(DR1$)
'>>> Page 2 of TUNE.BAS ends here. Continued on next page.
___ Blue Wave/DOS v2.30
--- Maximus 3.00
---------------