home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 001-025 / apd003 / font_demo.amos / font_demo.amosSourceCode
AMOS Source Code  |  1978-08-29  |  634b  |  26 lines
  1. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. '                           AMOS Font Demo 
  3. '
  4. '                           By P.J.Hickman 
  5. '
  6. '   Run the demo and press a key to cycle through fonts contained  
  7. '                           on this disc.
  8. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  9. Screen Open 0,320,200,2,Lowres
  10. Palette $0,$FFF : Curs Off : Hide On : Cls 0
  11. MESSAGE$="An Example Font"
  12. Get Disc Fonts 
  13. Ink 1
  14. COUNT=1
  15. Do 
  16. F$=Font$(COUNT)
  17. If F$="" Then Exit 
  18. Set Font COUNT
  19. T=Text Length(MESSAGE$)
  20. X=(320-T)/2
  21. Text X,110,MESSAGE$
  22. Centre At(,21)+F$
  23. Inc COUNT
  24. Wait Key 
  25. Cls 0
  26. Loop