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