home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd365 / readme.amos / readme.amosSourceCode
AMOS Source Code  |  1992-01-09  |  2KB  |  61 lines
  1. Screen Open 0,640,256,2,Hires
  2. Curs Off : Flash Off : Hide On : Palette $0,$FF0 : Cls 0
  3. Centre At(,3)+"ZENN SOUNDBOX II NOTES"
  4. Cdown 
  5. YPOS=5
  6. A$="Welcome to Version 2 of the ZENN SOUNDBOX music player."
  7. Gosub OP
  8. A$=Space$(80)
  9. Gosub OP
  10. A$="This program is a 1 Meg music demo with an equaliser and a few other functions."
  11. Gosub OP
  12. A$="There are nine tunes overall on the disk, so maybe there's one you will like..."
  13. Gosub OP
  14. A$="If you have any AMOS progs/routines you may like to share with me, you can find"
  15. Gosub OP
  16. A$="me at the following address:                                                   "
  17. Gosub OP
  18. A$="David Barnsley     "
  19. Gosub OP
  20. A$="82 Perry Park Road,"
  21. Gosub OP
  22. A$="Cradley Heath,     "
  23. Gosub OP
  24. A$="Warley,            "
  25. Gosub OP
  26. A$="West Midlands,     "
  27. Gosub OP
  28. A$="B64 6RP.           "
  29. Gosub OP
  30. A$=Space$(80)
  31. Gosub OP
  32. A$="Nothing too technical, I am still in the learning stage!...                    "
  33. Gosub OP
  34. A$="This Demo was written over a two day period (because i'm idle) so I don't think"
  35. Gosub OP
  36. A$="it is too bad!, so there we have it!....                                       "
  37. Gosub OP
  38. A$="Special thanks to the following dudes!!                                        "
  39. Gosub OP
  40. A$="Graham: for Ripping, er! supplying the tunes from various sources.....         "
  41. Gosub OP
  42. A$="That French person who's name I can't just remember, ah! his name is Mr AMOS..."
  43. Gosub OP
  44. A$="Amos Club: for being so informative when you need it.                          "
  45. Gosub OP
  46. A$=Space$(80)
  47. Gosub OP
  48. A$="Please note: the program has been compiled, so I have included the source code "
  49. Gosub OP
  50. A$="on the disk with all the other required parts...                               "
  51. Gosub OP
  52. A$=Space$(80)
  53. Gosub OP
  54. A$="Press any key to quit"
  55. Gosub OP
  56. Wait Key : Edit 
  57. OP:
  58. Inc YPOS
  59. L=Len(A$)
  60. For N=0 To Len(A$) : Locate 0,YPOS : Centre Left$(A$,N) : Next N
  61. Return