100 REM ***********************************************************************
110 REM *                                                                     *
120 REM * Name: GRAPH-N                                                       *
130 REM * Rev.: 1.0                                                           *
140 REM * Date: May 10, 1982                                                  *
150 REM *                                                                     *
160 REM * Desc: Display block fill patterns                                   *
170 REM *                                                                     *
180 REM *                                                                     *
190 REM ***********************************************************************
200 GRAPH
210 PATTERN = 0
220 GRAPH L(1,22): PRINT "GRAPH N( ) BLOCK FILL PATTERNS"
230 FOR I = 2 TO 22 STEP 6
240 FOR J = 10 TO 62 STEP 12
250 GRAPH L(I,J)
260 PRINT PATTERN
270 PATTERN = PATTERN + 1
280 NEXT J
290 NEXT I
300 GRAPH L(1,1)
310 X=20:Y=210:XX=60:YY=180
320 FOR PATTERN = 0 TO 19
330 PLOT B(X,Y) (XX,YY)
340 GRAPH N(PATTERN)
350 IF PATTERN = 0 THEN 370
360 PLOT F(X,Y)(XX,YY)
370 X=X+50:XX=XX+50:IF XX>=300 THEN X=20:XX=60:Y=Y-60:YY=YY-60
380 NEXT
390 FOR I = 1 TO 15000: NEXT
400 GRAPH
410 INPUT "DO YOU WANT TO SEE 'GRAPH-N' AGAIN (Y/N) ";A$
420 IF A$ = "Y" OR A$ = "y" THEN 200
430 SYSTEM
440 END
00 GRAPH
410 INPUT "DO YOU WANT TO SEE 'GRAPH-N' AGAIN (Y/N) ";A$
420 IF A$ = "Y" OR