Back to Main page.
Back to Main tapes page.
10  FILES MAILFL.B951
20  DIM A$[72],B$[72],N$[20]
30  PRINT "WHAT IS YOUR NAME ";
40  INPUT N$
50  IF N$='6'18'1'20'1'20'1'20 THEN 190
60  SYSTEM A$,"TIM"
70  IF  END #1 THEN 270
80  IF TYP(1)=3 THEN 110
90  ADVANCE #1;1,A
100  GOTO 80
110  PRINT #1;N$,A$[1,4]
120  PRINT "TYPE IN A SHORT MESSAGE. HIT 'RETURN' ON THE INPUT AFTER"
130  PRINT "THE LAST LINE OF YOUR MESSAGE."LIN(-1)
140  PRINT "--"'13" > ";
150  LINPUT B$
160  IF B$="" THEN 280
170  PRINT #1;B$
180  GOTO 140
190  IF  END #1 THEN 230
200  READ #1;A$
210  PRINT A$
220  GOTO 200
230  FOR X=1 TO 3
240  PRINT #1,X
250  NEXT X
260  STOP 
270  PRINT "SORRY--FILE FULL"
280  END