home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd504 / simple_dialog_box.amos / simple_dialog_box.amosSourceCode
AMOS Source Code  |  1993-03-31  |  2KB  |  84 lines
  1. '
  2. '**************************************************************
  3. '
  4. '                      SIMPLE DIALOG BOX 
  5. '                      ----------------- 
  6. '
  7. '                    BY MALCOLM LAVERY 1993
  8. '
  9. '**************************************************************
  10. '
  11. Palette $0,$FFF,$F0
  12. Cls 0
  13. Global YP
  14. '
  15. '
  16. Do 
  17.    '
  18.    _BOX[0,"OPTIONS","PLAY GAME","PASSWORD","HIGH SCORES","RESET SCORES","EXIT",90,50,110,70]
  19.    '
  20.    Text 80,90,"YOU PICKED ITEM "+Mid$(Str$(YP),2)
  21.    Wait 50
  22.    '
  23. Loop 
  24. '
  25. '
  26. Procedure _BOX[DES,TITLE$,TEX1$,TEX2$,TEX3$,TEX4$,TEX5$,X,Y,XSIZE,YSIZE]
  27.    '
  28.    Screen DES
  29.    '
  30.    Limit Mouse X+130,Y+70 To X+XSIZE+125,Y+YSIZE+40
  31.    '
  32.    Reserve Zone 6
  33.    For Z=1 To 5
  34.       Set Zone Z,X,Y+Z*10+6 To X+XSIZE,Y+Z*10+6+10
  35.    Next Z
  36.    '
  37.    Get Cblock 1,X,Y,XSIZE+16,YSIZE+1
  38.    Ink 0
  39.    Bar X,Y To X+XSIZE,Y+YSIZE
  40.    Ink 1,0
  41.    Box X+1,Y+1 To X+XSIZE-1,Y+YSIZE-1
  42.    '
  43.    Ink 1,0
  44.    '
  45.    BL=XSIZE/2
  46.    XP=X+BL-Text Length(TITLE$)/2
  47.    Text XP,Y+12,TITLE$
  48.    '
  49.    Ink 2,0
  50.    '
  51.    BL=XSIZE/2
  52.    XP=X+BL-Text Length(TEX1$)/2
  53.    Text XP,Y+12+12,TEX1$
  54.    '
  55.    BL=XSIZE/2
  56.    XP=X+BL-Text Length(TEX2$)/2
  57.    Text XP,Y+12+22,TEX2$
  58.    '
  59.    BL=XSIZE/2
  60.    XP=X+BL-Text Length(TEX3$)/2
  61.    Text XP,Y+12+32,TEX3$
  62.    '
  63.    BL=XSIZE/2
  64.    XP=X+BL-Text Length(TEX4$)/2
  65.    Text XP,Y+12+42,TEX4$
  66.    '
  67.    BL=XSIZE/2
  68.    XP=X+BL-Text Length(TEX5$)/2
  69.    Text XP,Y+12+52,TEX5$
  70.    '
  71.    Gr Writing 2
  72.    '
  73.    Repeat 
  74.       YP=Mouse Zone
  75.       Box X+3,Y+YP*10+6 To X+XSIZE-3,Y+YP*10+16
  76.       Box X+3,Y+YP*10+6 To X+XSIZE-3,Y+YP*10+16
  77.    Until Mouse Click
  78.    '
  79.    Wait 5
  80.    Gr Writing 1
  81.    Put Cblock 1
  82.    Limit Mouse 
  83.    '    
  84. End Proc