home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  593 b   |  17 lines
  1. on antrag
  2.   put EMPTY into field "produkt0"
  3.   put "    1" after field "produkt0"
  4.   put "  " after field "produkt0"
  5.   put "Kostenloser T-Online-Anschl." after field "produkt0"
  6.   repeat while the number of chars in field "produkt0" < 35
  7.     put " " after field "produkt0"
  8.   end repeat
  9.   put "(5051)    " after field "produkt0"
  10.   put "    0,00 DM" after field "produkt0"
  11.   if the number of chars in field "gesmtprx2" = 7 then
  12.     put "       " & "0,00 DM" after field "produkt0"
  13.   end if
  14.   set the textSize of member "produkt0" to 10
  15.   put field "produkt0" & RETURN after field "bestelltext"
  16. end
  17.