O CHKNO      N¹p PAYTO      C½p AMT        N
ÛpCAN        L
åp DATE       Cæp MEMO       Cîp 
                                                                                                                                                                                                                                                                                                                                                                                                                                    0DUMMY ENTRY TO START PROGRAm        0.00t00/00/00NECESSARY TO NUMBER CHECK    1LFLFLFD                           255.00T06/08/83LSLDLD                       2DALE FOORD                         10.00T05/05/83TRANSPORTATION               3TOM TERRIFIC                     8000.00T06/13/83FOR BEING TERRIFIC       outine into memory and set the call address
LOAD datetest
SET CALL TO 42240

ERASE
*  Read the current date, then set the system date
STORE '  /  /  ' TO tmp:date
DO WHILE DATE()