10  COM N$[72],F$[72],I,Q,P,C5,W,Q1,N,A,F,T5
20  GOTO 60
30  CHAIN "$BLINKD"
40  REM PROGRAM NAME = BLINKY, BEGINS THE PACKAGE
50  REM CHAINED TO BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6
60  LET C5=5
70  B1=240
80  DIM A$[3]
90  PRINT "PLEASE TYPE YOUR NAME:  ";
100  ENTER B1,B,N$
110  PRINT '13
120  IF B<0 THEN 90
130  FOR N5=1 TO LEN(N$)
140  IF N5=1 THEN 160
150  IF N$[N5,N5]=" " THEN 170
160  NEXT N5
170  LET F$=N$[1,N5-1]
180  PRINT 
190  PRINT "HI "F$".  HAVE YOU RUN THIS PROGRAM BEFORE?  ";
200  ENTER B1,B,A$
210  PRINT '13
220  IF B<0 THEN 190
230  IF A$="YES" THEN 290
240  IF A$#"NO" THEN 190
250  PRINT 
260  PRINT "YOU SHOULD OBTAIN A COPY OF HOW TO USE THIS PROGRAM FROM "
270  PRINT "YOUR TEACHER.  THEN RETURN AND RUN BLINKY AGAIN."
280  END 
290  LET P=1
300  GOTO 30
310  END 
