home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 243.lha / WipeDemo_v2.0 / WipeDemo.s < prev    next >
Text File  |  1989-05-10  |  1KB  |  56 lines
  1. #    Created from AmigaBASIC program by Paul Falstad
  2. #    Original program by Tory Esbensen
  3. #    Demo program by Paul Falstad
  4. #    Compiled with Manx Aztec C
  5. #    Remember to buy lots of MicroEd educational software
  6. #
  7. #    MicroEd, Inc.
  8. #    P.O. Box 24750
  9. #    Edina, MN 55424
  10. #    (612) 929-2242 (I think)
  11. #
  12. #    This demo requires the DPaintII Art Disk (you all have DPaintII
  13. #    anyway, don't you?  If not, buy it!)
  14. #
  15. fades on
  16. # use fadeouts; fades off turns them off
  17. random
  18. # random selection of wipes
  19. show Art Disk:Lo-Res/Faces/Eye
  20. # show Eye
  21. wait 2
  22. # wait 2 seconds
  23. show Art Disk:Lo-Res/Faces/Gorilla
  24. say /HEHLOW9.
  25. # say Hi
  26. wait 1
  27. show Art Disk:Lo-Res/Faces/KingTut
  28. wait 2
  29. show Art Disk:Lo-Res/Faces/Venus
  30. wait 2
  31. show Art Disk:Lo-Res/Faces/Waif
  32. wait 2
  33. show Art Disk:Lo-Res/Flights of Fancy/Biodomes
  34. #       ^                   ^  ^ Spaces?? Who cares??
  35. wait 2
  36. show Art Disk:Lo-Res/Flights of Fancy/Castle
  37. wait 2
  38. show Art Disk:Lo-Res/Flights of Fancy/Moondance
  39. wait 2
  40. show Art Disk:Lo-Res/Flights of Fancy/StarFlight
  41. wait 2
  42. show Art Disk:Lo-Res/Potpourri/Eiffel Tower
  43. wait 2
  44. show Art Disk:Lo-Res/Potpourri/Hall of Stars
  45. wait 2
  46. show Art Disk:Lo-Res/Potpourri/PaintCan
  47. wait 2
  48. show Art Disk:Lo-Res/Potpourri/Lost Ark
  49. wait 2
  50. show Art Disk:Lo-Res/PotPourri/Triceratops
  51. wait 2
  52. show Art Disk:Lo-Res/Potpourri/Iris
  53. wait 2
  54. loop
  55. # put LOOP at the end to make it repeat.
  56.