128 Evolution 3
1290 LOCATE 32,22:PRINT" ";
1300 GOTO 530
1310 LOCATE X2+1,Y2+1:PRINT CHR$(235);:L OCATE 1,22:PRINT SPACE$(32);
1320 PEN 3:LOCATE 1,10:PRINT CHR$(24);"
CONGRATULATIONS	";CHR$(24
);:PEN 1:PRINT CHR$(24);" YOU NOW RULE THE WHOLE WORLD. ";CHR$(24);
1330 FOR F=1 TO 3:FOR G=12 TO 20 STEP 2: SOUND 1,(F*2+G*3),3:NEXT G, F
1340 LOCATE I,23:PEN 2:PRINT CHR$(24);" PRESS ANY KEY TO TRY AGAIN	";CHR$(24
);:PEN 1
1350 IF INKEY$<>"" THEN 1350
1360 IF INKEY$="" THEN 1360 ELSE GOSUB 1 460:LOCATE 1,22:PRINT SPACE$(64);:GOTO 1 100
1370 STOP
1380 REM MAP
1390 CLS:PEN 1:LOCATE 12,11:PRINT CHR$(2 4);"10 SECONDS TO GO";CHR$(24)
1400 XN=1
1410 A$="EEEEEEGGGGGEEEEEEEEEGGGEGEEEEEE EEEEEEEGGGGGEEEEEEEGGGGGGGGGGEEEEEEEEEEE GGGEEEEEGGGGGGGGGGGGGGGGGGEGGEEEEGEEEEEG GGGGGGGGGGGGGGGGGGEGGEEEEEEEGEEEEGGGGGGG GGGGGGEEEGGGGGEEEEEEEEEEEGGGGGGGGGGGGGEE E":GOSUB 1500
1420 A$="GGGGGGEEEEEEEEEGGGGGGGGGGGGGGEE EGGGGGGEEEEEEHIEGGGGGGGGGGGGGGGEEGGGGEEE EEEEEEGEGGGGGGGGGGGGEEEEEGGGEEEEEEEEEEEG GGGGGGGGGGGGEGEEEGGGEEEEEEEEEGGGGGGGGGGG GGGGEGEEEGEGEEEEEEEEEGGEGGGGGGGGEEEEEEEE EGEEEEEEEEEEEJJJEGGEEGGEEGEEEGEEEGG":608 UB 1500
1430 A$="EEEEEEEEEGGGGGEGEEEGEEEEGEEGEE" :GOSUB 1500
1440 A$="EGGGGEEEEEGGGGGGGEEEEEEEEEEEEEE EEEGGGGEEEEEGGGGGGEEEEEEEEEGEEEEEEGGGGGE EEEEEEGGGGEEEEEEEGGGGGGEEEEGGGGEEEEEEEGG GEGEEEEEGGGGGGGGEEEEGGEEEEEEEEGGGEEEEEEE EGGGGGGEEEEEGGEEEEEEEEEGEEEEEEEEEGEEEGGE EEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEEE":GOSUB
1500