10  A=BRK(1)
20  DIM A$[255]
30  FILES *
40  PRINT LIN(1);"Welcome to the S.M.U.H.S.D. Educational Account"
50  PRINT "Type '//STOP' to exit."
60  PRINT LIN(1);"Instructions (Y/N)? ";
70  LINPUT A$
80  A$=UOS$(A$)
90  IF A$[1,1]="Y" THEN 140
100  CHAIN "*HELP"
110  SYSTEM X,"MES-"'7":::CHAIN ERROR:::*HELP1 TO *HELP:::"'7
120  PRINT ":::"'7"CHAIN ERROR:::CANNOT CONTINUE:::"
130  SYSTEM X,"BYE"
140  ASSIGN "*INSTRF",1,R, NR 
150  IF R=0 THEN 180
160  PRINT "I'm sorry - the instruction file is not available."
170  GOTO 100
180  IF  END #1 THEN 100
190  READ #1;A$
200  IF A$[1,1]="." THEN 230
210  PRINT A$
220  GOTO 190
230  PRINT LIN(1);"Continue (Y/N)? ";
240  LINPUT A$
250  PRINT 
260  A$=UOS$(A$)
270  IF A$[1,1]="N" THEN 100
280  GOTO 190
290  END 
