From: fetlekk@kingcon.com (L Stodol)
Subject: Compiler Access
 
Hi.  I have a program that I would like to compile, but I don't have
access to a compiler.  I have tried downloading FirstBasic (the demo
to powerbasic) from multiple web sites, and QB, GW Basic, or any other
program that I know of doesn't have a compiler.  VB doesn't understand
simple sound commands (play or sound), so that is crossed off.  After
getting about half way through the download I get booted off, and this
is not a one time thing.
 
If someone has a compiler on their computer, I would _REALLY_ like
them to email me the executable for this basic program.  The shrunken
program is as follows:
 
Note: You will need to replace all the > with nothings.  This can be
done easily in any simple word procceser but Notepad.
 
>Settings:
>  SCREEN 0: COLOR 15, 0: CLS : DIM Delay: DIM StartTime: DIM EndTime: CONST 
DelayTime = 4
>Intro:
>  PRINT
>  PRINT "     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * * * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                          R E S P O N S E                     
     * "
>  PRINT "     *                       T I M E   T E S T E R                  
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                            Luke Stodola                      
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *  Welcome to the Response Time Tester, a science fair 
experiment   * "
>  PRINT "     *  by Luke Stodola.   You will be tested  for sound going  on 
and   * "
>  PRINT "     *  off in  additon  to  the  screen  changing  color.   Read 
each   * "
>  PRINT "     *  instruction carefully and do your best!  Have fun!          
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     *                 (press any key to enter program)             
     * "
>  PRINT "     *                                                              
     * "
>  PRINT "     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * * * "
>GOSUB KeyPause
>SoundOn:
>  CLS
>  PRINT "Press the enter key or the  spacebar as soon as you can"
>  PRINT "detect a  sound  coming  from  the computer's  speaker."
>  PRINT "Press any key to continue."
>  GOSUB KeyPause
>  GOSUB TestMessage
>  GOSUB TestDelay
>  StartTime = TIMER
>  DO
>    SOUND 1000, 1
>  LOOP UNTIL INKEY$  ""
>  EndTime = TIMER
>  SoundOn = EndTime - StartTime
>SoundOff:
>  CLS
>  PRINT "Press  the enter key or the spacebar  when you hear the"
>  PRINT "sound coming from the  computer's speaker STOP.   Press"
>  PRINT "any key to continue."
>  GOSUB KeyPause
>  GOSUB TestMessage
>  SOUND 1000, 18.6
>  StartTime = TIMER
>  DO: LOOP UNTIL INKEY$  ""
>  EndTime = TIMER
>  SoundOff = (EndTime - StartTime) - 1
>SightOn:
>  CLS
>  PRINT "Press the enter key or spacebar as soon as the screen"
>  PRINT "changes color. Press any key to continue."
>  GOSUB KeyPause
>  GOSUB TestMessage
>  GOSUB TestDelay
>  FOR Delay = 1 TO DelayTime: NEXT
>  COLOR 0, 4
>  CLS
>  StartTime = TIMER
>  DO: LOOP UNTIL INKEY$  ""
>  EndTime = TIMER
>  SightOn = EndTime - StartTime
>  COLOR 15, 0
>CLS
>SoundOn = INT(SoundOn * 1000) / 1000
>SoundOff = INT(SoundOff * 1000) / 1000
>SightOn = INT(SightOn * 1000) / 1000
>  PRINT "R E S U L T S : "
>  PRINT
>  ErrorCount = 0
 
Continued with next message...
 
*** QwkNews (tm) v2.1
--- GEcho 1.20/Pro
---------------