home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  1.1 KB  |  31 lines
  1. on ├╝bertrag2
  2.   put EMPTY into field "produkt2"
  3.   set x to the number of chars in field "stk2"
  4.   set y to 5 - x
  5.   repeat with i = 1 to y
  6.     put " " after field "produkt2"
  7.   end repeat
  8.   put field "stk2" after field "produkt2"
  9.   put "  " after field "produkt2"
  10.   put "Faxmodem Skyconnect 33.600" after field "produkt2"
  11.   repeat while the number of chars in field "produkt2" < 35
  12.     put " " after field "produkt2"
  13.   end repeat
  14.   put "(4505)    " after field "produkt2"
  15.   put "  199,00 DM" after field "produkt2"
  16.   if the number of chars in field "gesmtprx2" = 7 then
  17.     put "       " & field "gesmtprx2" after field "produkt2"
  18.   end if
  19.   if the number of chars in field "gesmtprx2" = 8 then
  20.     put "      " & field "gesmtprx2" after field "produkt2"
  21.   end if
  22.   if the number of chars in field "gesmtprx2" = 9 then
  23.     put "     " & field "gesmtprx2" after field "produkt2"
  24.   end if
  25.   if the number of chars in field "gesmtprx2" = 10 then
  26.     put "    " & field "gesmtprx2" after field "produkt2"
  27.   end if
  28.   set the textSize of member "produkt2" to 10
  29.   put field "produkt2" & RETURN after field "bestelltext"
  30. end
  31.