1000  FILES *
1010  DIM A$[72],F$[72]
1020  PRINT "ACTIVE FILE:";
1030  ENTER 60,A,F$
1040  PRINT 
1050  IF LEN(F$)=0 OR A<0 THEN 1500
1060  ASSIGN F$,1,A
1070  IF A=0 THEN 1110
1080  PRINT "FILE CAN'T BE USED."
1090  PRINT "TRY AGAIN."
1100  GOTO 1020
1110  IF TYP(1)=3 THEN 1330
1120  PRINT '7'7"*WARNING SOMETHING ON FILE"
1130  PRINT "...ERASE IT";
1140  INPUT A$
1150  IF A$[1,1]="Y" THEN 1180
1160  IF A$[1,1] <> "N" THEN 1120
1170  GOTO 1260
1180  REM  ERASE FILE
1190  READ #1,1
1200  IF  END #1 THEN 1240
1210  FOR I=1 TO 9999
1220  PRINT #1,I
1230  NEXT I
1240  PRINT '7'7"*FILE ERASED"
1250  GOTO 1330
1260  READ #1,1
1270  IF TYP(1)=2 THEN 1310
1280  IF TYP(1)=3 THEN 1330
1290  PRINT "*"'7'7"INVALID FORMAT ON FILE, UPDATE ABORTED"
1300  STOP 
1310  READ #1;A$
1320  GOTO 1270
1330  REM  LOAD FILE
1340  PRINT "ENTER WORDS, TO STOP ENTER 'ESC' AND PRESS RETURN"
1350  IF  END #1 THEN 1480
1360  PRINT "INPUT CORRECT SPELLING";
1370  INPUT A$
1380  IF A$[1,1]='27 THEN 1450
1390  LET A$[LEN(A$)+1]=" "
1400  PRINT "INCORECT SPELLING";
1410  INPUT A$[LEN(A$)+1]
1411  PRINT #1;A$
1420  PRINT "...SAVED"
1440  GOTO 1360
1450  PRINT #1; END 
1460  ASSIGN F$,1,A
1470  STOP 
1480  PRINT '7'7"*FILE TO SMALL /* LAST INPUT NOT STORED */"
1490  ASSIGN F$,1,A
1500  END 
