10  DIM A$[255],B$[255],C$[255]
20  REM *** Protect files/programs in data statements ***
30  B$="PRO-"
40  READ A$
50  IF A$=" " THEN 160
60  B$[5]=A$
70  SYSTEM X,B$
80  PRINT A$,
90  IF X=0 THEN 130
100  PRINT "*****"'7" E R R O R *****"
110  INPUT C$
120  GOTO 40
130  PRINT "Okay"
140  GOTO 40
150  GOTO 40
160  END 
170  DATA "ADRILL","BRIEF","CHARGE","DECAY","DIVIDE"
180  DATA "ELECT1","ELECT2","ELECT3","GENE","HARDY"
190  DATA "LOCKEY","MAGNET","MALAR","MASPAR","PH"
200  DATA "SAP","SCATR1","SCATR2","SCATR3","SLITS"
210  DATA "STERL2","STERYL","TAG","TIMES","USPOP"
220  DATA "VD","ATOM","CXARTH","EMPIR","MARKET"
230  DATA "NEWTON","POLICY","UNIT"
240  DATA " "
250  END 
