home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_leading_zeros.amos / n_leading_zeros.amosSourceCode
AMOS Source Code  |  1993-03-31  |  793b  |  47 lines
  1. '
  2. '*********************************** 
  3. '
  4. '       LEADING SCORE ZERO'S 
  5. '       -------------------- 
  6. '
  7. '  Makes score & high score tables 
  8. '   look a lot more professional 
  9. '
  10. '      By Malcolm Lavery 1993
  11. '      ----------------------
  12. '
  13. '*********************************** 
  14. '
  15. Screen Open 0,320,256,16,Lowres
  16. Curs Off : Flash Off : Hide On : Cls 0
  17. Cls 3,0,0 To 320,50
  18. Palette $0,$FFF,$0,$7
  19. Get Disc Fonts 
  20. '
  21. Set Font 1
  22. Ink 1,3
  23. Text 25,20,"SCORE"
  24. Text 230,20,"TIME"
  25. '
  26. SCORE=0 : TIME=10000
  27. '
  28. '
  29. While Inkey$=""
  30.    '
  31.    SCORE[DES,SCORE,10,40,1,3]
  32.    SCORE[DES,TIME,210,40,1,3]
  33.    Inc SCORE
  34.    Dec TIME
  35.    '
  36. Wend 
  37. '
  38. '
  39. Procedure SCORE[DES,SCORE,X,Y,FCOL,BCOL]
  40.    '
  41.    Ink FCOL,BCOL
  42.    SCORE$=Str$(SCORE)
  43.    SCORE$=Mid$(SCORE$,2)
  44.    SCORE$=Right$("0000000"+SCORE$,7)
  45.    Text X,Y,SCORE$
  46.    '
  47. End Proc