\ON KEY F10 JUMP ENDWAVE2\MOVE 132 TO X\MOVE 120 TO Y
\MOVE 1 TO W\ON ERROR JUMP LRGFLAG\SAVE SCREEN
\READ USA_FLAG.PIC\JUMP FLAGS_IN\X LRGFLAG\ON ERROR JUMP MEDFLAG
\READ LRG_FLAG.PIC\JUMP FLAGS_IN
\X MEDFLAG\ON ERROR JUMP ENDWAVE\READ MED_FLAG.PIC\ADD 10 TO X\ADD 3 TO Y
\X FLAGS_IN\CLEAR ON ERROR
\X FLAGLOOP\CLEAR SPRITES\ON ERROR JUMP NOVARIABLE_SPD
\ROUNDS 29 SPEE [25,R]\JUMP VARSPEED\X NOVARIABLE_SPD
\ROUNDS 29 SPEED 32\X VARSPEED\ON ERROR
\SPRITE A=1 F=Y L=X,Y\SAVE SCREEN
\SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
\SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
\SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
\RUN
\ON KEY 7181 JUMP ENDWAVE2\MOVE 139 TO J\ON KEY 14624 JUMP ENDDEMO
\ON ERROR JUMP LONGNOVAR\ROUNDS 300 SPEE [25,R]\JUMP LONGVAR
\X LONGNOVAR\ROUNDS 300 SPEED 30\BEEP\X LONGVAR\ON ERROR
\MOVE 0 TO B\RUN\BLANK 0,0,320,Y-1\BLANK 0,170,320,199\SAVE SCREEN
\FRAME ?\IF A<26\JUMP ONEFLAG\ENDIF
\ROUNDS 1\CLEAR SHOW
\MOVE 1 TO W\MOVE 2 TO Z
\ROUNDS 1 SPEED 1\CLEAR SHOW\X SHOWX\+
\ACTIVATE SCREEN 1\SHOW F=W,W P=26,Z L=-20,-10\ACTIVATE SCREEN 0\+
\SHOW F=W,W P=26,Z L=-20,-10\ADD 1 TO W\IF W>24\MOVE 1 TO W\ENDIF\+
\ADD 1 TO Z\IF Z<230\JUMP SHOWX\ENDIF
\MOVE -2 TO R\PEN W=2
\X CIRCLELOOP\ADD 2 TO R\ADD 1 TO T\WAIT NOW 3
\CIRCLE L=160,100 R=R/3,R/4 C=31-R/10\ADD 1 TO R\IF R<145\JUMP CIRCLELOOP\ENDIF
\SAVE SCREEN\X FLAGLOOP2\CLEAR SPRITES
\MOVE 132 TO X\MOVE 80 TO Y\ON ERROR JUMP NOMOREVAR
\ROUNDS 290 SPEE [25,R]\JUMP MOREVAR\X NOMOREVAR\ROUNDS 290 SPEED 34
\X MOREVAR\ON ERROR
\SPRITE A=1 F=Y L=X,Y
\SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
\SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
\SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
\X ONEFLAG
\ON KEY 7181 JUMP ENDDEMO\MOVE 139 TO J
\MOVE 0 TO B
\ON ERROR JUMP NOLASTVAR\ROUNDS #1141*35 SPEE [25,R]\JUMP LASTVAR
\X NOLASTVAR\ROUNDS #1141*35 SPEED 31\X LASTVAR\ON ERROR
\RUN\IF B=0\READ MENU.TXT\ENDIF\X ENDDEMO\END
\X ENDWAVE\CLEAR PICS\APPEND LRG_FLAG.PIC 1,1\SPRITE L=X,Y F=Y\SPRINT 1\ROUND 1
\MOVE 0 TO B\RUN\WAIT NOW #1141*20\IF B=0\READ MENU.TXT\ELSE\END\ENDIF
\X ENDWAVE2\READ MENU.TXT
