home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 March / PowerPlay0397.iso / T-ONLINE / DECODER / FORMULAR.DIR / 00011_Script_11 < prev    next >
Text File  |  1997-01-08  |  655b  |  28 lines
  1. on antrag
  2.   put empty into field "produkt0"
  3.   
  4.   
  5.   put "    1" after field "produkt0"
  6.   
  7.   
  8.   put "  " after field "produkt0"
  9.   
  10.   put "Kostenloser T-Online-Anschl." after field "produkt0"
  11.   
  12.   repeat while the number of chars in field "produkt0" <35
  13.     put " " after field "produkt0"
  14.   end repeat
  15.   
  16.   put "(5051)    " after field "produkt0"
  17.   put "    0,00 DM" after field "produkt0"
  18.   
  19.   
  20.   if the number of chars in field "gesmtprx2"=7 then
  21.     put "       " & "0,00 DM" after field "produkt0"
  22.   end if
  23.   
  24.   set the fontSize of member "produkt0" to 10 
  25.   
  26.   put field "produkt0" & return after field "bestelltext"
  27.   
  28. end