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