home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / display_fonts.amos / display_fonts.amosSourceCode
AMOS Source Code  |  1993-01-08  |  640b  |  33 lines
  1. '  
  2. '      Fonts Display 
  3. '         By JC
  4. '     Dated : 24/8/91
  5. '
  6. ' Instructions 
  7. '
  8. ' Keys : 
  9. '
  10. ' + Goto next font 
  11. ' - Goto previous font 
  12. ' d Display Font 
  13. ' q Quit 
  14. '
  15. G0TFONT
  16. Procedure G0TFONT
  17.    Screen Open 0,320,256,2,Lowres
  18.    Get Fonts 
  19.    FO=1 : F$=Font$(FO) : Print F$ : Curs Off 
  20.    Do 
  21.       A$=Inkey$
  22.       If A$="-" and FO>1 Then Dec FO : Gosub CHECK
  23.       If A$="+" Then Inc FO : Gosub CHECK
  24.       If A$="d" Then Set Font FO : Cls : Text 0,50,F$ : Wait Key : Cls 
  25.       If A$="q" Then Exit 
  26.    Loop 
  27.    Pop Proc
  28.    CHECK:
  29.    Cls : F$=Font$(FO)
  30.    If F$="" Then Dec FO
  31.    F$=Font$(FO) : Print F$ : Curs Off 
  32.    Return 
  33. End Proc