home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Assempro 1987.07.12 / Lowe_Assempro_1987_07_12.img / DEMO / FORM.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.8 KB  |  73 lines
  1.  ILABEL TOS\TOS.L
  2.  GEM_INIT
  3.  RSRC_CALC MT_SAVE
  4.  WIND_GET #0,4,D3,WORK_0
  5.  GRAF_MOUSE #0,BUFFER,D3
  6.  FORM_CENTER MT_SAVE,D5,BUFFER
  7.  FORM_DIAL #0,BUFFER,BUFFER,D5
  8.  FORM_DIAL #2,BUFFER,WORK_0,D5
  9.  OBJC_DRAW #0,#2,BUFFER,MT_SAVE,D5
  10.  FORM_DO #8,MT_SAVE,D7
  11.  MOVE D7,-(A7)
  12.  FORM_DIAL #1,BUFFER,WORK_0,D5
  13.  FORM_DIAL #3,BUFFER,BUFFER,D5
  14.  MOVE (A7)+,D7
  15.  GEM_EXIT
  16.  DATA
  17. MT_SAVE:
  18.  DC.W -1,1,1,G_IBOX,NONE,NORMAL,0,0,0,0,$1F06,$806
  19. ;
  20.  DC.W 0,2,9,G_BOX,NONE,OUTLINED,2,$1180,3,3,$1F00,$800
  21. ;
  22.  DC.W 3,-1,-1,G_STRING,NONE,NORMAL
  23.  DC.L MT_SAVE_STR-MT_SAVE
  24.  DC.W $600,$100,$1100,$100
  25. ;
  26.  DC.W 4,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON,OUTLINED
  27.  DC.L MT_SAVE_PRG-MT_SAVE
  28.  DC.W $500,$300,$300,$100
  29. ;
  30.  DC.W 5,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON,OUTLINED
  31.  DC.L MT_SAVE_TOS-MT_SAVE
  32.  DC.W $B00,$300,$300,$100
  33. ;
  34.  DC.W 6,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON,OUTLINED
  35.  DC.L MT_SAVE_TTP-MT_SAVE
  36.  DC.W $1100,$300,$300,$100
  37. ;
  38.  DC.W 7,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON,OUTLINED
  39.  DC.L MT_SAVE_B-MT_SAVE
  40.  DC.W $1700,$300,$300,$100
  41. ;
  42.  DC.W 8,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON,OUTLINED
  43.  DC.L MT_SAVE_Q-MT_SAVE
  44.  DC.W $500,$500,$300,$100
  45. ;
  46.  DC.W 9,-1,-1,G_FBOXTEXT,SELECTABLE+EXIT+EDITABLE,OUTLINED
  47.  DC.L MT_SAVE_TI-MT_SAVE
  48.  DC.W $1700,$500,$300,$100
  49. ;
  50.  DC.W 1,-1,-1,G_BUTTON,SELECTABLE+EXIT+RBUTTON+LASTOB,OUTLINED
  51.  DC.L MT_SAVE_EX-MT_SAVE
  52.  DC.W $B00,$600,$900,$100
  53. ;
  54. MT_SAVE_STR:DC.B 'Save as :',0
  55. MT_SAVE_PRG:DC.B 'PRG',0
  56. MT_SAVE_TOS:DC.B 'TOS',0
  57. MT_SAVE_TTP:DC.B 'TTP',0
  58. MT_SAVE_B   DC.B ' B ',0
  59. MT_SAVE_Q   DC.B ' S ',0
  60. MT_SAVE_EX  DC.B ' Cancel ',0
  61.  ALIGN
  62. MT_SAVE_TI:
  63.  DC.L MT_SAVE_TEXT-MT_SAVE_TI,MT_SAVE_TEMP-MT_SAVE_TI
  64.  DC.L MT_SAVE_VALID-MT_SAVE_TI
  65.  DC.W 3,0,0,$1180,0,0,4,4
  66. MT_SAVE_TEXT:DC.B '   ',0
  67. MT_SAVE_TEMP:DC.B '___',0
  68. MT_SAVE_VALID:DC.B 'nnn',0
  69.  BSS
  70. WORK_0:DS.W 4
  71. BUFFER:DS.B 128
  72.  END