home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / HELLO / HELLO.I < prev    next >
Text File  |  1993-01-09  |  6KB  |  161 lines
  1. {
  2.  
  3.         This file was created with ACS 2.0 (c) Stefan Bachert 1991, 1992
  4.  
  5.         The contents are based on file: F:\PASCAL\ACS2\FERTIG\HELLO\HELLO.ACS
  6.  
  7.         compiled at: Thu Jan 07 21:52:30 1993 
  8. }
  9.  
  10.  
  11.  
  12. {        Pascal Prototypes        }
  13.  
  14. Procedure call_ok;
  15. Function hello_make (para: Pointer): AwindowPtr;
  16.  
  17.  
  18. Const
  19.  
  20. {        STRINGS        }
  21.     TEXT_001: packed array [1..6] of char =
  22.      'WORLD'#0;
  23.     TEXT_002: packed array [1..14] of char =
  24.      ' HELLO WORLD '#0;
  25.     TEXT_003: packed array [1..1] of char =
  26.      (#0);
  27.     TEXT_005: packed array [1..6] of char =
  28.      'HELLO'#0;
  29.     TEXT_006: packed array [1..3] of char =
  30.      'OK'#0;
  31.     TEXT_01: packed array [1..21] of char =
  32.      '(C) 1991, 1992, 1993'#0;
  33.     TEXT_02: packed array [1..9] of char =
  34.      'ACS 2.00'#0;
  35.     TEXT_222: packed array [1..15] of char =
  36.      'Stefan Bachert'#0;
  37.     TEXT_244: packed array [1..6] of char =
  38.      'Autor'#0;
  39.  
  40.  
  41. {        TEDINFOS        }
  42.  
  43.     TEDINFO_01: TEDINFO = (te_ptext: @TEXT_02; te_ptmplt: @TEXT_003; te_pvalid: @TEXT_003;
  44.      te_font: 3; te_just: 2; te_color: $1071; te_thickness: -1; te_txtlen: 9; te_tmplen: 1);
  45.  
  46.  
  47. {        AUSERBLK        }
  48.  
  49.  A_3DBUTTON01: AUSERBLK = (ub_code: A_3Dbutton; ub_parm: $21111108; ub_serv: Auo_string; ub_ptr1: @TEXT_006; ub_ptr2: NIL; ub_ptr3: NIL);
  50.  
  51.  
  52. {        IMAGES        }
  53.  
  54.     _IMG_SUNRISE: array [0..71] of WORD = (
  55.         $0000, $0000, $0000, $0000, $2110, $0000, $0000, $2110, 
  56.         $3700, $0001, $1020, $4880, $6c00, $8782, $3700, $1000, 
  57.         $1864, $0000, $000c, $2010, $c000, $0002, $4009, $0000, 
  58.         $0000, $4008, $0000, $0000, $8004, $0000, $000e, $8005, 
  59.         $c000, $0000, $8004, $0000, $0000, $8004, $0000, $3f1c, 
  60.         $7878, $70f0, $00e3, $8787, $8f0c, $fe18, $0000, $0000, 
  61.         $01e7, $3870, $3c60, $0000, $0787, $c39f, $fe1c, $0000, 
  62.         $0000, $01e3, $9ce0, $e1e0, $0000, $030f, $1e1f, $0f07, 
  63.         $e000, $70c0, $30f8, $0ccf, $8f3c, $0000, $0300, $0000);
  64.     SUNRISE: BITBLK = (bi_pdata: @_IMG_SUNRISE;
  65.     bi_wb:  6; bi_hl: 24; bi_x:  0; bi_y:  0; bi_color: 1);
  66.  
  67.  
  68. {        OBJECT TREES        }
  69. ABOUT_ME : Array [0 .. 7] of ACSOBJECT = ( (aes: (ob_next: -1; ob_head:  1; ob_tail:  6; ob_type: 20; ob_flags: $0000; ob_state: $0010;ob_spec: (index: $00021100);ob_x:  0; ob_y:  0; ob_width: 28; ob_height: 10)),
  70.  (aes: (ob_next:  2; ob_head: -1; ob_tail: -1; ob_type: 22; ob_flags: $2040; ob_state: $0010;ob_spec: (free_string: @TEDINFO_01);ob_x:  2; ob_y:  1; ob_width: 24; ob_height:  1)),
  71.  (aes: (ob_next:  3; ob_head: -1; ob_tail: -1; ob_type: 23; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @SUNRISE);ob_x:  2; ob_y:  4; ob_width:  6; ob_height:  2)),
  72.  (aes: (ob_next:  4; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_244);ob_x: 12; ob_y:  5; ob_width:  5; ob_height:  1)),
  73.  (aes: (ob_next:  5; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_222);ob_x:  7; ob_y:  6; ob_width: 14; ob_height:  1)),
  74.  (aes: (ob_next:  6; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_01);ob_x:  4; ob_y:  3; ob_width: 20; ob_height:  1)),
  75.  (aes: (ob_next:  0; ob_head: -1; ob_tail: -1; ob_type: 24; ob_flags: $0007; ob_state: $0010;ob_spec: (free_string: @A_3DBUTTON01);ob_x: 11; ob_y:  8; ob_width:  6; ob_height:  1)),
  76.  (acs :(ob_flags: $8020; key: $8818;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0))
  77. );
  78. WORLD : Array [0 .. 4] of ACSOBJECT = ( (aes: (ob_next: -1; ob_head:  1; ob_tail:  4; ob_type: 20; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00001100);ob_x:  0; ob_y:  0; ob_width: 25; ob_height:  7)),
  79.  (aes: (ob_next:  2; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_005);ob_x:  5; ob_y:  1; ob_width:  6; ob_height:  1)),
  80.  (aes: (ob_next:  4; ob_head: -1; ob_tail: -1; ob_type: 26; ob_flags: $0005; ob_state: $0000;ob_spec: (free_string: @TEXT_006);ob_x:  8; ob_y:  3; ob_width:  8; ob_height:  2)),
  81.  (acs :(click: call_ok; ob_flags: $8000; key: $000b;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  82.  (aes: (ob_next:  0; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0020; ob_state: $0000;ob_spec: (free_string: @TEXT_001);ob_x: 17; ob_y:  5; ob_width:  5; ob_height:  1))
  83. );
  84.  
  85.  
  86. {        WINDOWS        }
  87.  
  88.     HELLO: Awindow = ( user: NIL;
  89.  service: Awi_service;
  90.  create: hello_make;
  91.  open: Awi_open;
  92.  init: Awi_init;
  93.  work: @WORLD;
  94.  ob_edit: -1; ob_col: -1; wi_id: -1;
  95.  wi_kind: $000b; wi_act: (x:  0; y:  0; w: 34; h: 14);
  96.  wi_slider: (x: -1; y: -1; w: -1; h: -1);
  97.  snap_mask: $fff0;
  98.  name: @TEXT_002; info: @TEXT_003;
  99.  wi_type: $2710; kind: $0003; icon : -1;
  100.  iconblk: NIL;
  101.  menu: NIL;
  102.  keys: Awi_keys;
  103.  obchange: Awi_obchange;
  104.  redraw: Awi_redraw;
  105.  topped: Awi_topped;
  106.  closed: Awi_closed;
  107.  fulled: Awi_fulled;
  108.  arrowed: Awi_arrowed;
  109.  hslid: Awi_hslid;
  110.  vslid: Awi_vslid;
  111.  sized: Awi_sized;
  112.  moved: Awi_moved);
  113.  
  114.  
  115.  
  116. ACSdescr: Adescr = (
  117.         magic: 'ACS 2.0'#0; version: 200; dx: -4; dy: -4; flags: $0013;
  118.  acc_reg: '  HELLO WORLD'#0'                  ';
  119.  root: NIL; acc: NIL; mouse: (
  120.  (number:   0; form: NIL),
  121.  (number:   2; form: NIL),
  122.  (number:   3; form: NIL),
  123.  (number:   4; form: NIL),
  124.  (number:   1; form: NIL),
  125.  (number:   5; form: NIL),
  126.  (number:   6; form: NIL),
  127.  (number:   7; form: NIL),
  128.  (number:   0; form: NIL),
  129.  (number:   0; form: NIL),
  130.  (number:   0; form: NIL),
  131.  (number:   0; form: NIL),
  132.  (number:   0; form: NIL),
  133.  (number:   0; form: NIL),
  134.  (number:   0; form: NIL),
  135.  (number:   0; form: NIL),
  136.  (number:   0; form: NIL),
  137.  (number:   0; form: NIL),
  138.  (number:   0; form: NIL),
  139.  (number:   0; form: NIL),
  140.  (number:   0; form: NIL),
  141.  (number:   0; form: NIL),
  142.  (number:   0; form: NIL),
  143.  (number:   0; form: NIL),
  144.  (number:   0; form: NIL),
  145.  (number:   0; form: NIL),
  146.  (number:   0; form: NIL),
  147.  (number:   0; form: NIL),
  148.  (number:   0; form: NIL),
  149.  (number:   0; form: NIL),
  150.  (number:   0; form: NIL),
  151.  (number:   0; form: NIL)) );
  152.  
  153. implementation
  154.  
  155. {    Pascal Routines    }
  156.  
  157. { 'call_ok' Not defined yet by user }
  158.  
  159. { 'hello_make' Not defined yet by user }
  160.  
  161.