home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 March / PowerPlay0397.iso / T-ONLINE / DECODER / FORMULAR.DIR / 00006_Script_6 < prev    next >
Text File  |  1997-01-08  |  1KB  |  39 lines
  1. on ⁿbertrag2
  2.   put empty into field "produkt2"
  3.   
  4.   set x=the number of chars in field "stk2"
  5.   set y=5-x
  6.   repeat with i=1 to y 
  7.     put " " after field "produkt2"
  8.   end repeat
  9.   put field "stk2" after field "produkt2"
  10.   
  11.   put "  " after field "produkt2"
  12.   
  13.   put "Faxmodem Skyconnect 33.600" after field "produkt2"
  14.   
  15.   repeat while the number of chars in field "produkt2" <35
  16.     put " " after field "produkt2"
  17.   end repeat
  18.   
  19.   put "(4505)    " after field "produkt2"
  20.   put "  199,00 DM" after field "produkt2"
  21.   
  22.   
  23.   if the number of chars in field "gesmtprx2"=7 then
  24.     put "       " & field "gesmtprx2" after field "produkt2"
  25.   end if
  26.   if the number of chars in field "gesmtprx2"=8 then
  27.     put "      " & field "gesmtprx2" after field "produkt2"
  28.   end if
  29.   if the number of chars in field "gesmtprx2"=9 then
  30.     put "     " & field "gesmtprx2" after field "produkt2"
  31.   end if
  32.   if the number of chars in field "gesmtprx2"=10 then
  33.     put "    " & field "gesmtprx2" after field "produkt2"
  34.   end if
  35.   
  36.   set the fontSize of member "produkt2" to 10 
  37.   put field "produkt2" & return after field "bestelltext"
  38.   
  39. end