home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / program / liberty / tradshow.bas < prev    next >
BASIC Source File  |  1995-01-21  |  3KB  |  113 lines
  1.  
  2.  
  3.     nomainwin
  4.  
  5.     WindowWidth = 640
  6.     WindowHeight = 480
  7.  
  8.     statictext #main.statictext1, "Enter Trade Show Information Below:", 26, 16, 280, 20
  9.     textbox #main.name, 142, 51, 216, 25
  10.     textbox #main.company, 142, 81, 216, 25
  11.     textbox #main.position, 142, 111, 216, 25
  12.     textbox #main.address, 142, 141, 216, 25
  13.     textbox #main.city, 142, 171, 216, 25
  14.     textbox #main.state, 142, 201, 64, 25
  15.     textbox #main.zip, 142, 231, 96, 25
  16.     textbox #main.phone, 142, 261, 136, 25
  17.     textbox #main.fax, 142, 291, 136, 25
  18.     textbox #main.memo, 142, 321, 216, 25
  19.     statictext #main.statictext3, "Name:", 62, 56, 40, 20
  20.     statictext #main.statictext13, "Company:", 62, 86, 64, 20
  21.     statictext #main.statictext14, "Position:", 62, 116, 72, 20
  22.     statictext #main.statictext15, "Address:", 62, 146, 64, 20
  23.     statictext #main.statictext16, "City:", 62, 176, 40, 20
  24.     statictext #main.statictext17, "State:", 62, 206, 48, 20
  25.     statictext #main.statictext18, "Zip:", 62, 236, 32, 20
  26.     statictext #main.statictext19, "Phone:", 62, 266, 48, 20
  27.     statictext #main.statictext20, "FAX:", 62, 296, 32, 20
  28.     statictext #main.statictext21, "Memo:", 62, 326, 40, 20
  29.     button #main, "&Print", [printMe], UL, 454, 16
  30.     open "Trade Show Information" for dialog as #main
  31.     print #main, "trapclose [quit]"
  32.  
  33.  
  34. [inputLoop]
  35.  
  36.     input r$
  37.     goto [inputLoop]
  38.  
  39.  
  40. [printMe]   'Perform action for the button named 'print'
  41.  
  42.     'print and save the entered information
  43.     print #main.name, "!contents?"
  44.     input #main.name, name$
  45.     print #main.company, "!contents?"
  46.     input #main.company, company$
  47.     print #main.position, "!contents?"
  48.     input #main.position, position$
  49.     print #main.address, "!contents?"
  50.     input #main.address, address$
  51.     print #main.city, "!contents?"
  52.     input #main.city, city$
  53.     print #main.state, "!contents?"
  54.     input #main.state, state$
  55.     print #main.zip, "!contents?"
  56.     input #main.zip, zip$
  57.     print #main.phone, "!contents?"
  58.     input #main.phone, phone$
  59.     print #main.fax, "!contents?"
  60.     input #main.fax, fax$
  61.     print #main.memo, "!contents?"
  62.     input #main.memo, memo$
  63.  
  64.  
  65.     open "tradeinf.dat" for append as #2
  66.  
  67.         print #2, name$
  68.         print #2, company$
  69.         print #2, position$
  70.         print #2, address$
  71.         print #2, city$
  72.         print #2, state$
  73.         print #2, zip$
  74.         print #2, phone$
  75.         print #2, fax$
  76.         print #2, memo$
  77.         print #2, "  "
  78.  
  79.     close #2
  80.  
  81.     'print the label
  82.     open "Label Viewer" for graphics_nsb as #label
  83.  
  84.     label$ = "\ "
  85.     label$ = label$ + "\" + name$
  86.     label$ = label$ + "\" + company$
  87.     label$ = label$ + "\" + position$
  88.     label$ = label$ + "\" + address$
  89.     label$ = label$ + "\" + city$
  90.     label$ = label$ + "\" + state$
  91.     label$ = label$ + "\" + zip$
  92.     label$ = label$ + "\" + phone$
  93.     label$ = label$ + "\" + fax$
  94.     label$ = label$ + "\" + memo$
  95.  
  96.     if Platform$ = "OS/2" then print #label, "font helvetica 16 37";
  97.     if Platform$ = "Windows" then print #label, "font mssanserif";
  98.     print #label, "down";
  99.     print #label, label$
  100.     print #label, "flush"
  101.     print #label, "print"
  102.     close #label
  103.  
  104.     goto [inputLoop]
  105.  
  106.  
  107. [quit]
  108.  
  109.     prompt "Enter Password to Quit"; password$
  110.     if password$ <> "please" then [inputLoop]
  111.     close #main
  112.     end
  113.