10  REM  *** HANGFL *** THIS PROGRAM SETS UP FILES FOR * HANGMN *
20  REM *** FIRST, OPEN THE FILES YOU NEED. ***
30  REM *** A 2-RECORD FILE CAN HOLD ABOUT 80 10-LETTER WORDS, ***
40  REM *** OR 50 15-LETTER WORDS ***
50  REM *** HANGMN EXPECTS THESE FILES: ENGLIS,FRENCH,SPANIS,GERMAN ***
1000  DIM A$[72],F$[26]
1010  FILES *
1100  PRINT "WHICH HANGMAN FILE ";
1110  INPUT F$
1120  ASSIGN F$[1,6],1,A
1130  IF A#3 THEN 1200
1140  PRINT F$;" DOESN'T EXIST; WHEN THE PROGRAM ENDS, TYPE"
1150  PRINT 
1160  PRINT "OPEN-";F$[1,6];",2"
1170  STOP 
1200  PRINT 
1210  PRINT "HOW MANY WORDS ";
1220  INPUT W9
1230  PRINT #1,1;W9
1240  FOR W0=1 TO W9
1250  PRINT "WORD #";W0,
1260  INPUT A$
1270  PRINT #1;A$
1280  NEXT W0
1300  PRINT 
1310  PRINT "THAT'S IT FOR ";F$
1320  PRINT "ANOTHER HANGMAN FILE ";
1330  INPUT A$
1340  IF A$[1,1]="Y" THEN 1100
9999  END 
