home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / pgdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  241 b   |  12 lines
  1.    input "Delay (0 for keypress)";d
  2. 10 for x=1 to 6
  3.    read n$
  4.    pgshow n$,d
  5.    if inkey$<>"" then if isrun then run "menu" else end
  6.    next x
  7.    restore
  8.    goto 10
  9.  
  10. 98 data "bomb","fuji","portf" 
  11. 99 data "usa","spiral","gorby"
  12. ə