Flag

   5 REM FLAG
  10 FOR I=1 TO 26
  20 PRINT AT 5,I;"% "
  30 FOR J=6 TO 16 STEP 2
  40 PRINT AT J,I;"\##"
  50 PRINT AT J+1,I;"% "
  60 NEXT J
  70 NEXT I
 100 FOR I=1 TO 13
 110 FOR J=6 TO 10 STEP 2
 120 PRINT AT J,I;"% "
 130 NEXT J
 140 NEXT I
 200 FOR J=23 TO 31 STEP 2
 210 FOR I=5 TO 21 STEP 4
 220 UNPLOT I,J
 230 IF J=23 THEN GOTO 250
 240 UNPLOT I=2,J-1
 250 NEXT I
 260 UNPLOT 25,J
 270 NEXT J
 280 STOP 
 300 SAVE "1014%1"
 310 RUN