PJP Tutorial – PHANTOM.TEST Source Code

* PHANTOM.TEST                                                                  

*                                                                              

* A program for demonstrating the functionality of CCI's PJP software          

*  product.                                                                     

*                                                                              

PROMPT ""                                                                      

CRT "Please input some text: ":

INPUT STACKED.DATA                                                             

OPEN "PHANTOM-LOG" TO LOG.FILE ELSE                                            

  CRT "Unable to open PHANTOM-LOG file"                                         

  STOP                                                                         

END                                                                            

LOG.REC = TIMEDATE()                                                           

LOG.REC<2> = STACKED.DATA                                                      

WRITE LOG.REC ON LOG.FILE, "PHANTOM-TEST" 

Back

Copyright 2011, Cubs Consulting, Inc.