home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / phraseflipper.amos / phraseflipper.amosSourceCode
AMOS Source Code  |  1990-12-28  |  401b  |  13 lines
  1. Set Talk ,,,200
  2. Do 
  3. Home : Centre "PHRASE FLIPPER"
  4. Locate 0,5
  5. Input "REPPILF ESARHP:";A$
  6. A$=Upper$(A$)
  7. C$=Flip$(A$)
  8. Locate 0,10
  9. Print C$
  10. C$=C$+"                                                                                                                                                                                                                                   ."
  11. Say C$
  12. Wait Key : Cls 
  13. Loop