home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / TABSLIDE.OPT < prev    next >
Text File  |  1995-05-02  |  6KB  |  198 lines
  1. def(i)
  2. def(j)
  3. def(t)
  4. def(y)
  5. begin
  6.   readsound('typewrite.snd')
  7.   readfont(1,'hel15x29.fnt')
  8.   readfont(2,'tri22n.fnt')
  9.   readfont(3,'sx5x8.fnt')
  10.   readpic('tut.bmp')
  11.   font(1)
  12.   textbcolor(248)
  13.   textshadow(4,3)
  14.   textcofs(0)
  15.   gradation(224,239,4,4,0,60,50,5)
  16.   getsubpal(14)
  17.   getsubpal(15)
  18.   fadeout(0)               <-- aus'rem'men, um Bildaufbau zu beobachten
  19.   setsubpal(14)
  20.   textcolor(239)
  21.   printc(400,430,'etwas Geduld, bitte...')
  22.   textcolor(249)
  23.   keycol(141)
  24.   key(on)
  25.   loadwin(457,10,20,0)
  26.   for i:=0 to 1 do
  27.     writestyle(3-2*i)
  28.     for j:=0 to 2 do
  29.       printc(220+i, 80+j*60,'Person           Person')
  30.       printc(220+i,100+j*60,'weiblich / 2F     maennlich/2M')
  31.     next(j)
  32.   next(i)
  33.   copywin(10,0,639,340)
  34.   keycol(0)
  35.   clearscreen(247)
  36.   loadwin(100,35,20,0)
  37.   key(off)
  38.   for i:=0 to 2 do
  39.     viewport(1,160+i*120,639,180+i*120)
  40.     cbox(9,249,0)
  41.     plateau(255,241)
  42.   next(i)
  43.   writestyle(3)
  44.   for i:=0 to 1 do
  45.     printat(20+i,185,'   209    75.240  215.950     216    77.760   216.450')
  46.     printat(20+i,215,'   416    149.760  431.900    430    154.800  432.900')
  47.     printat(20+i,245,'   623   224.280 647.850     644   231.840  649.350')
  48.     printat(10+i,305,' 100.000     7.000    107.000')
  49.     printat(10+i,335,' 200.000    14.000    214.000')
  50.     printat(10+i,365,' 300.000    21.000    321.000')
  51.   next(i)
  52.   font(3)
  53.   copywin(0,20,639,440)
  54.   clearscreen(247)
  55.   font(2)
  56.   writestyle(1)
  57.   textcolor(251)
  58.   for i:=-1 to 1 do
  59.     for j:=-1 to 1 do
  60.       printat(95+i,301+j,'1            4')
  61.       printat(95+i,361+j,'2            5')
  62.       printat(95+i,421+j,'3            6')
  63.       printat(74+i,56+j,'...Ihre XYZ *** -BANK')
  64.     next(j)
  65.   next(i)
  66.   textcolor(249)
  67.   printat(95,301,'1            4')
  68.   printat(95,361,'2            5')
  69.   printat(95,421,'3            6')
  70.   printat(74,56,'...Ihre XYZ *** -BANK')
  71.   font(1)
  72.   for i:=0 to 15 do
  73.     setcolor(224+i)
  74.     viewport(6+i/3,283+i/3,xmax-10-i/3,ymax-4-i/3)
  75.     rectangle
  76.     viewport(16-i/2,293-i/3,xmax-20+i/3,ymax-14+i/3)
  77.     rectangle
  78.     setcolor(248)
  79.     brushline(25+i,30+i,40+i,15+i,2,0)
  80.     brushline(25+i,318+i,40+i,303+i,2,0)
  81.     brushline(25+i,378+i,40+i,363+i,2,0)
  82.     brushline(25+i,438+i,40+i,423+i,2,0)
  83.     setcolor(249)
  84.     brushline(25+i,20+i,40+i,5+i,2,0)
  85.   next(i)
  86.   textcolor(249)
  87.   textbcolor(240)
  88.   writestyle(3)
  89.   textcofs(-1)
  90.   textshadow(1,1)
  91.   printat(74, 0,'So oder so. Eine Kapital-')
  92.   printat(74,22,'Lebensversicherung braucht man im Leben.')
  93.   font(0)
  94.   sysfont(0,1)
  95.   setcolor(248)
  96.   printat(100,137,'              Geschlecht/Tarif')
  97.   printat(100,197,'monatl.Beitrag     Gesamt-    Ablaufleistung')
  98.   printat(100,205,'                 aufwendung')
  99.   printat(100,257,' Vers.-Summe   Todesfallbonus Mindestleistung   Bitte bewegen Sie')
  100.   printat(100,265,'                              im Todesfall *)   die Maus (li.Taste')
  101.   printat(100,273,'                                                = Tarifwechsel)')
  102.   setcolor(241)
  103.   printat(120,306,'Mit der ausgezahlten          Beiträge zu einer Kapital-')
  104.   printat(120,316,'Ablaufleistung können         Lebensversicherung sind (bis')
  105.   printat(120,326,'Sie die Zeit nach Ihrem       zu bestimmten Höchstgrenzen)')
  106.   printat(120,336,'Berufsleben unabhängig        steuerlich absetzbar.')
  107.   printat(120,346,'genießen')
  108.   printat(120,366,'Die Kapital-Lebensver-        Freie Vertragsgestaltung:')
  109.   printat(120,376,'sicherung sorgt dafür,        Welche Versicherungssumme oder')
  110.   printat(120,386,'daß Ihr Kapital ständig       wieviel Sie monatlich aufwen-')
  111.   printat(120,396,'wächst.                       den wollen, bestimmen Sie.')
  112.   printat(120,426,'Wenn Ihnen etwas passiert,    Unsere günstigen Konditionen')
  113.   printat(120,436,'ist Ihre Familie zumindest    werden Sie überzeugen.')
  114.   printat(120,446,'finanziell abgesichert.')
  115.   font(3)
  116.   textcolor(240)
  117.   textcofs(1)
  118.   printat(351,100,'Berechnungsbeispiel:')
  119.   printat(350,100,'Berechnungsbeispiel:')
  120.   printat(350,117,'Versicherungsabschluss')
  121.   printat(350,127,'im Alter von 30 Jahren.')
  122.   printat(350,137,'Laufzeit: 30 Jahre')
  123.   printat(15,466,'*) plus angesammelte Ueberschuss- und Gewinnanteile nach Tarif')
  124.   setcolor(240)
  125.   for i:=0 to 1 do
  126.     viewport(94+240*i,154,215+240*i,195)
  127.     cbox(9,249,0)
  128.     rectangle
  129.   next(i)
  130.   viewport(548,158,562,252)
  131.   plateau(248,255)
  132.   viewport(219,99,330,130)
  133.   plateau(248,255)
  134.   for i:=0 to 2 do
  135.     disk(44,321+i*60,5,240)
  136.     disk(41,318+i*60,6,244)
  137.     disk(40,317+i*60,5,252)
  138.     disk(39,316+i*60,2,255)
  139.     for j:=0 to 1 do
  140.       viewport(99+i*120,159+j*60,210+i*120,190+j*60)
  141.       plateau(248,255)
  142.     next(j)
  143.   next(i)
  144.   viewport(20,297,614,460)
  145.   plateau(248,255)
  146.   loadsprite(322,12,545,10,85,128)
  147.   fadein(1)                    <-- hier wird erst eingeblendet
  148.   curson(550,160)
  149.   cursbound(550,160,550,250)
  150.   repeat
  151.     if j<60
  152.       inc(j,1)
  153.       cursmove(550,j+160)
  154.     else
  155.       startsound
  156.     endif
  157.     y:=mousey
  158.     if i=up
  159.       dec(y,2)
  160.       bound(y,160,250)
  161.       cursmove(550,y)
  162.     endif
  163.     if i=down
  164.       inc(y,2)
  165.       bound(y,160,250)
  166.       cursmove(550,y)
  167.     endif
  168.     y:=mousey-115
  169.     if mousek=1
  170.       xor(t,-1)
  171.       repeat
  172.       until mousek=0
  173.     endif
  174.     if t<>0
  175.       loadsprite(200,y,220,100,110,30)
  176.       for i:=0 to 2 do
  177.         loadsprite(321+i*104,y+120,100+i*120,160,110,30)
  178.         loadsprite(4+i*120,y+240,100+i*120,220,110,30)
  179.       next(i)
  180.     else
  181.       loadsprite(99,y,220,100,110,30)
  182.       for i:=0 to 2 do
  183.         loadsprite(5+i*105,y+120,100+i*120,160,110,30)
  184.         loadsprite(4+i*120,y+240,100+i*120,220,110,30)
  185.       next(i)
  186.     endif
  187.     if j>=60
  188.       repeat
  189.         i:=readkey+mousek
  190.         if i<>0
  191.           y:=-1
  192.         endif
  193.       until mousey<>y+115
  194.     endif
  195.   until mousek=2
  196. end
  197.  
  198.