114 Evolution 1
1370 PRINT:PRINT"4....Load stages 4&5" 1380 PEN 2:PRINT:PRINT"5....Exit from th e program. ":PEN 1
1390 IF INKEY$<>"" THEN 1390
1400 A$=INKEY$:IF A$="" THEN 1400 1410 IF A$<"1" OR A$>"5" THEN 1400 1420 IF A$="1" THEN CLS:RUN 320 1430 IF A$="2" THEN CLS:GOTO 580 1440 IF A$="3" THEN CLS:GOTO 980 1450 IF A$="4" THEN LOAD ""
1460 IF A$="5" THEN STOP
1470 GOTO 1390
1480 END
1490 RESTORE 1500:FOR X=360 TO 366:READ AA: POKE X,AA:NEXT:RESTORE:RETURN
1500 DATA 205,96,187,50,111,1,201
10000 FOR x= 235 TO 241:PRINT CHR$(x);:N EXT