home *** CD-ROM | disk | FTP | other *** search
- '* DEBUG SOURCE
- '* BREAKPT
-
- FileName$ = "CIDSmp.CID"
-
- OPEN FileName$ FOR INPUT AS #1
-
- FOR LineNum = 1 to 6
- LINE INPUT #1 Temp$ ERRORTO FileReadErr
- IF (LineNum = 1) THEN CallersPhoneNum$ = Temp$
- IF (LineNum = 2) THEN CallersName$ = Temp$
- IF (LineNum = 3) THEN CallDate$ = Temp$
- IF (LineNum = 4) THEN CallTime$ = Temp$
- IF (LineNum = 5) THEN SubjectText$ = Temp$
- IF (LineNum = 6) THEN MessageText$ = Temp$
- '* DISPLAY Temp$
- NEXT LineNum
-
- Display "Call from:" + SubjectText$ + " : " + MessageText$
- GOTO Finish
-
- FileReadErr:
- DISPLAY "Error reading line #"+STR$(LineNum)+" from file: " + FileName$
-
- Finish:
- CLOSE #1
- STOP
-
-