input "Delay (0 for keypress)";d
10 for x=1 to 6
   read n$
   pgshow n$,d
   if inkey$<>"" then end
   next x
   restore
   goto 10

98 data "bomb","fuji","portf" 
99 data "usa","spiral","gorby"