01*LBL"NT"                            NIGHT - TIME
  02 "NIGHT  TIME"                                                      
  03 AVIEW                                                      
  04 1                                                      
  05 "NT"           The Editor calls for more small programs  so  here is a
  06 PASN           program  that may be useful now that the dark hours are
  07 TIME           lengthening.                                          
  08 INT                                                      
  09 X=0?           Requirements:  HP41C/CV + Time module or HP41CX       
  10 GTO 05                        You will also need an Extended I/O
  12 X<>Y                          for lines 4 - 6 inc. If you do not
  13 X>Y?                          have the ROM then leave these line
  14 -                             out and make the key assignment   
  15 ABS                           manually.                         
  16*LBL 01                                                      
  17 TONE 0         You wake in the night.  You do not want to turn on the
  18 DSE X          light and become completely awake. What do you do? Why
  19 GTO 01         - pick up your  HP41 !  You press the "ON" key and the
  20*LBL 05         key next to it, the "A" key. You hear three  low tones
  21 TIME           and then one middle one followed  by  six  high  tones
  22 FRC            Why! Its 3.16 am. You replace your HP41 on the bedside
  23 10             table   (It   has   automatically   turned  itself  of
  24 *              meanwhile) and turn over and go to sleep again knowing
  25 INT            that you have hours of  dreams  before you need to get
  26 X=0?           up.                                                   
  27 GTO 04                                                      
  28*LBL02          Run the program  once before using it to 'compile' all
  29 TONE 4         the GTO's.                                            
  30 DSE X                                                      
  31 GTO 02         (Acknowledgements to  Monsieur Alain Herreman of Paris
  32*LBL 04         and to 'Microrevue' of August 1985.)                 
  33 TIME                                                      
  34 FRC            Mark Wilding [#108]                                   
  35 10                                                      
  36 *                40 INT              44 TONE 9           48 OFF
  37 FRC              41 X=0?             45 DSE X            49 END
  38 10               42 GTO 06           46 GTO 03
  39 *                43*LBL 03           47*LBL 06