home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / corel / ic701us / ic7us.001 / CIDSMP.MAC < prev    next >
Text File  |  1996-06-28  |  708b  |  30 lines
  1. '* DEBUG SOURCE
  2. '* BREAKPT
  3.  
  4. FileName$ = "CIDSmp.CID"
  5.  
  6. OPEN FileName$ FOR INPUT AS #1
  7.  
  8. FOR LineNum = 1 to 6
  9.     LINE INPUT #1 Temp$ ERRORTO FileReadErr
  10.     IF (LineNum = 1) THEN CallersPhoneNum$ = Temp$
  11.     IF (LineNum = 2) THEN CallersName$     = Temp$
  12.     IF (LineNum = 3) THEN CallDate$        = Temp$
  13.     IF (LineNum = 4) THEN CallTime$        = Temp$
  14.     IF (LineNum = 5) THEN SubjectText$     = Temp$
  15.     IF (LineNum = 6) THEN MessageText$     = Temp$
  16.     '* DISPLAY Temp$
  17.     NEXT LineNum
  18.  
  19. Display "Call from:" + SubjectText$ + " : " + MessageText$
  20. GOTO Finish
  21.  
  22. FileReadErr:
  23. DISPLAY "Error reading line #"+STR$(LineNum)+" from file: " + FileName$
  24.  
  25. Finish:
  26. CLOSE #1
  27. STOP
  28.  
  29.  
  30.