home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / quicksub / sim.asc < prev    next >
Encoding:
Text File  |  1986-06-12  |  896 b   |  36 lines
  1. ' SIM.ASC -- QuickBASIC test of the SIMTIME subroutine
  2. '            by David L. Poskie   Madison, WI
  3.  
  4. '   Compile syntax: BASCOM SIM.ASC /D;  |  LINK SIM;
  5.  
  6. ' Set BASE.LINE and all other variables
  7.     YEAR = 1944
  8.     MONTH = 6
  9.     DAY = 6
  10.     HOUR = 4
  11.     BASE.LINE = TIMER    ' The time simulation begins NOW.
  12.  
  13.     LOCATE 7 , 1
  14.     PRINT "     Time Simulation Demonstration"
  15.     PRINT "One second real time = one hour simulated"
  16.     PRINT
  17.  
  18.     ' It's easiest to let this program respond to Control-Break
  19.     PRINT "     Press ^ - Break to quit program"
  20.  
  21. TEST.LOOP:
  22.     
  23.     GOSUB SIMTIME
  24.     LOCATE 12 , 1
  25.     PRINT " YEAR"; YEAR
  26.     PRINT "MONTH"; MONTH
  27.     PRINT "  DAY"; DAY
  28.     PRINT " HOUR"; INT(HOUR)
  29.     PRINT TIME$
  30.  
  31. GOTO TEST.LOOP
  32.  
  33. REM     $INCLUDE: 'SIMTIME.SUB'
  34.  
  35. ' >>>> Physical EOF SIM.ASC
  36.