!S %WORK8,HCS                                                                   !    100
!O WORK8,HCO                                                                    !    110
!L TERMINAL,E                                                                   !    120
!R CED                                                                          !    130
!                                                                               !    140
0000  FORMAT ''                                                                 !    150
      LENGTH  2.0 & LOCAL ZDELDYO                                               !    154
      LENGTH  3.0 & LOCAL WORK(4),A,B,C,D,IPLEAD,VSHPDAYS                       !    160
      LENGTH    1 & LOCAL BYTE$(1024),A$,B$,C$,D$                               !    162
0002  FORMAT BYTE$(1),1024*1                                                    !    170
0004  FORMAT C$;D$,@(300)                                                       !    174
0006  FORMAT BYTE$(1);BYTE$(300),@(300)                                         !    175
!                                                                               !    180
!                                                                               !    182
CLEAR                                                                           !    184
!EY$ = 'TLFTXT'                                                                 !    190
CLOSE (1) & OPEN (1) 'EVENTS'                                                   !    200
READ (1,0002),EXCP=9900                                                         !    210
A$ = BYTE$(1)                                                                   !    212
B$ = BYTE$(300)                                                                 !    214
PRINT (0) '@011000@';A$;B$;'*'                                                  !    216
INPUT (0) ''                                                                    !    217
READ (1,0004)                                                                   !    220
PRINT (0) '@011100@';C$;D$;'*'                                                  !    227
INPUT (0) ''                                                                    !    232
READ (1,0006)                                                                   !    237
A$ = BYTE$(1) & B$ = BYTE$(300)                                                 !    238
PRINT (0) '@011200@';A$;B$;'*' & INPUT (0) ''                                   !    240
      GOTO 9900                                                                 !    250
!                                                                               !    260
9900!!PRINT (0) '@011400@';TOTAL;FOUND & INPUT (0) ''                           !    330
      RUN '*MONITOR'                                                            !    340
      END                                                                       !    350