home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_info_box_demo.amos / n_info_box_demo.amosSourceCode
AMOS Source Code  |  1993-03-31  |  1KB  |  57 lines

  1. '
  2. '****************************************************
  3. '
  4. '                 SIMPLE INFO BOX
  5. '                 ---------------
  6. '
  7. '             BY MALCOLM LAVERY 1993 
  8. '
  9. '****************************************************
  10. '
  11. Screen Open 0,320,256,8,Lowres
  12. Curs Off : Cls 3 : Hide On : Flash Off 
  13. Palette $0,$FFF,$0,$7
  14. Get Disc Fonts 
  15. LEV=1
  16. '
  17. Do 
  18.    _INFO_ONE[100,50,100,50,"LEVEL",Mid$(Str$(LEV),2),1+Rnd(30)]
  19.    Wait 100
  20.    Cls 3
  21.    Inc LEV
  22. Loop 
  23. '
  24. Procedure _INFO_ONE[X,Y,WIDTH,HEIGHT,TEX1$,TEX2$,PATTERN]
  25.    '
  26.    Ink 1
  27.    Box X,Y To X+WIDTH,Y+HEIGHT
  28.    Ink 2
  29.    Box X-1,Y-1 To X+WIDTH+1,Y+HEIGHT+1
  30.    Box X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
  31.    Gr Writing 0
  32.    Ink 2
  33.    Set Pattern PATTERN
  34.    Bar X+2,Y+2 To X+WIDTH-2,Y+HEIGHT-2
  35.    '
  36.    Set Font 1
  37.    XP=X+WIDTH/2-Text Length(TEX1$)/2
  38.    Ink 2
  39.    Text XP-1,Y+19,TEX1$
  40.    Text XP+1,Y+19,TEX1$
  41.    Text XP-1,Y+21,TEX1$
  42.    Text XP+1,Y+21,TEX1$
  43.    Ink 1
  44.    Text XP,Y+20,TEX1$
  45.    '
  46.    XP=X+WIDTH/2-Text Length(TEX2$)/2
  47.    Ink 2
  48.    Text XP-1,Y+39,TEX2$
  49.    Text XP+1,Y+39,TEX2$
  50.    Text XP-1,Y+41,TEX2$
  51.    Text XP+1,Y+41,TEX2$
  52.    Ink 1
  53.    Text XP,Y+40,TEX2$
  54.    '
  55.    Gr Writing 1
  56.    '
  57. End Proc