FoxToolBox Ver. 1.1 Copyright 1987,1988, BUZZWORDS Intl. INPUT FILE: TASAERA.PRG PRINTER IS OFF 1 * FILE NAME: TASAERA.PRG 2 * BY: Matti Karkkainen 3 * NOTICE: 4 * DATE: October 4, 1995 5 * DESC: 6 * CALLED BY: 7 * DATA FILES: 8 *******TASAERA******* 9 SET TALK OFF 10 KIERROS= .T. 11 ÚÄÄDO WHILE KIERROS 12 ³ STORE 0 TO LAS,VALI,VERT,TEST,NUM,LUKU 13 ³ STORE 0 TO SUMMA,ALE,AIK,KOR,LKM,ONE,TAX,LYH,MAKSU 14 ³ STORE 0 TO RATE,YHTMK,AMOUNT,KOKO,PROS 15 ³ STORE 0 TO ABC,DEF,GHI,JKL,CALK,BRIEF,PAY 16 ³ STORE 'N' TO VAST 17 ³ STORE ' ' TO KYSY,VENT,ODOT 18 ³ CLEAR 19 ³ RIVI=1 20 ³ TARKKAA = .T. 21 ³ ÚÄÄDO WHILE TARKKAA 22 ³ ³ @ 4,17 TO 17,57 DOUBLE 23 ³ ³ @ 7,23 SAY 'T A S A E R Ž L A I N A' 24 ³ ³ @ 9,23 SAY 'Lainasumma ' GET SUMMA PICT '99999999' 25 ³ ³ @ 9,54 SAY 'Mk' 26 ³ ³ @ 11,23 SAY 'Korko ' GET KOR PICT '99.99' 27 ³ ³ @ 11,51 SAY '%' 28 ³ ³ @ 13,23 SAY 'Maksuaika ' GET AIK PICT '99' 29 ³ ³ @ 13,49 SAY 'Vuotta' 30 ³ ³ @ 15,23 SAY '2,4 TAI 12 Maksua/V ' GET ONE PICT '99' 31 ³ ³ READ 32 ³ ³ ÚÄÄIF ONE=12 .OR. ONE=4 .OR. ONE=2 33 ³ ³ ³ TARKAA= .F. 34 ³ <==<==<==EXIT 35 ³ ³ ÃÄÄELSE 36 ³ ³ ³ @ 18,0 SAY 'Maksua/V t„ytyy olla 2,4 tai 12' 37 ³ ³ ³ WAIT 38 ³ ³ ³ @ 18,0 CLEAR TO 20,79 39 ³ <==<==<==LOOP 40 ³ ³ ÀÄÄENDIF 41 ³ ÀÄÄENDDO 42 ³ ÚÄÄIF SUMMA=0 .OR. KOR=0 .OR. AIK=0 43 ³ ³ @ 18,0 SAY 'Vastauksessa summa,korko tai aika oli 0' 44 ³ ³ WAIT 45 ³ ³ CLEAR 46 <==<==<==EXIT 47 ³ ÀÄÄENDIF 48 ³ ÚÄÄIF ONE=12 49 ³ ³ LUKU=12 50 ³ ³ JKL=1200 51 ³ ³ LKM=AIK*12 52 ³ ³ VERT=LKM 53 ³ ÀÄÄENDIF 54 ³ ÚÄÄIF ONE=4 55 ³ ³ LUKU=8 56 ³ ³ JKL=400 57 ³ ³ LKM=AIK*4 58 ³ ³ VERT=LKM 59 ³ ÀÄÄENDIF 60 ³ ÚÄÄIF ONE=2 61 ³ ³ LUKU=6 62 ³ ³ JKL=200 63 ³ ³ LKM=AIK*2 64 ³ ³ VERT=LKM 65 ³ ÀÄÄENDIF 66 ³ TAX=KOR 67 ³ ALE=SUMMA 68 ³ ABC=(1+(KOR/(100*ONE)))^LKM 69 ³ DEF=KOR/(100*ONE) 70 ³ GHI=ABC*DEF/(ABC-1)*SUMMA 71 ³ KOKO=GHI*LKM 72 ³ PROS=KOKO-SUMMA 73 ³ @ 18,18 SAY 'N„yt”lle tai kirjoittimelle N../..K ' GET VAST 74 ³ READ 75 ³ ÚÄÄIF UPPER(VAST)='K' 76 ³ ³ @ 19,18 SAY 'Tulostus kirjoittimelle' 77 ³ ³ RIVI=1 78 ³ ³ SET DEVICE TO PRINT 79 ³ ÃÄÄELSE 80 ³ ³ CLEAR 81 ³ ³ RIVI=1 82 ³ ÀÄÄENDIF 83 ³ @ RIVI,1 SAY 'T a s a e r „ l a i n a' 84 ³ RIVI=RIVI+1 85 ³ @ RIVI,1 SAY 'Lainasumma' 86 ³ @ RIVI,14 SAY SUMMA PICT '99999999.99' 87 ³ @ RIVI,26 SAY 'Mk' 88 ³ @ RIVI,31 SAY 'Laina-aika' 89 ³ @ RIVI,42 SAY AIK PICT '99' 90 ³ @ RIVI,46 SAY 'Vuotta' 91 ³ @ RIVI,54 SAY 'Korko' 92 ³ @ RIVI,60 SAY KOR PICT '99.99' 93 ³ @ RIVI,66 SAY '%' 94 ³ RIVI=RIVI+1 95 ³ @ RIVI,1 SAY 'Korko yht' 96 ³ @ RIVI,13 SAY ROUND(PROS,0) PICT '999999999.99' 97 ³ @ RIVI,26 SAY '"' 98 ³ @ RIVI,31 SAY 'Maksutapa' 99 ³ @ RIVI,42 SAY ONE PICT '99' 100 ³ @ RIVI,46 SAY 'Kertaa/vuosi' 101 ³ RIVI=RIVI+1 102 ³ @ RIVI,1 SAY 'Yhteens„' 103 ³ @ RIVI,13 SAY ROUND(KOKO,0) PICT '999999999.99' 104 ³ @ RIVI,26 SAY '"' 105 ³ @ RIVI,31 SAY 'Annuiteetti' 106 ³ @ RIVI,43 SAY GHI PICT '999999999.99' 107 ³ RIVI=RIVI+1 108 ³ @ RIVI,1 SAY REPLICATE("-",69) 109 ³ ÚÄÄIF UPPER(VAST)='N' 110 ³ ³ RIVI=RIVI+2 111 ³ ³ @ RIVI,1 SAY 'Tulostus on < RET > ,Lopetus on L ' GET VENT 112 ³ ³ READ 113 ³ ³ ÚÄÄIF UPPER(VENT)='L' 114 ³ ³ ³ KIERROS= .F. 115 ³ ³ ³ CLEAR 116 <==<==<==<==EXIT 117 ³ ³ ÀÄÄENDIF 118 ³ ³ CLEAR 119 ³ ³ RIVI=1 120 ³ ÃÄÄELSE 121 ³ ³ RIVI=RIVI+2 122 ³ ÀÄÄENDIF 123 ³ @ RIVI,1 SAY 'Er„' 124 ³ @ RIVI,11 SAY 'Korko' 125 ³ @ RIVI,20 SAY 'Lyhennys' 126 ³ @ RIVI,36 SAY 'Maksu' 127 ³ @ RIVI,45 SAY 'Lainasumma' 128 ³ RIVI=RIVI+1 129 ³ ASKEL= .T. 130 ³ ÚÄÄDO WHILE ASKEL 131 ³ ³ RATE=ALE*TAX/JKL 132 ³ ³ AMOUNT=RATE+AMOUNT 133 ³ ³ CALK=CALK+RATE 134 ³ ³ LYH=GHI-RATE 135 ³ ³ BRIEF=LYH+BRIEF 136 ³ ³ MAKSU=RATE+LYH 137 ³ ³ PAY=MAKSU+PAY 138 ³ ³ YHTMK=LYH+YHTMK 139 ³ ³ LAS=LAS+1 140 ³ ³ VALI=VALI+1 141 ³ ³ TEST=TEST+1 142 ³ ³ @ RIVI,1 SAY LAS PICT '999' 143 ³ ³ @ RIVI,5 SAY ROUND(RATE,1) PICT '99999999.99' 144 ³ ³ @ RIVI,17 SAY ROUND(LYH,1) PICT '99999999.99' 145 ³ ³ @ RIVI,30 SAY ROUND(MAKSU,1) PICT '99999999.99' 146 ³ ³ @ RIVI,44 SAY ROUND(ALE,1) PICT '99999999.99' 147 ³ ³ ÚÄÄIF VALI=ONE 148 ³ ³ ³ NUM=NUM+1 149 ³ ³ ³ RIVI=RIVI+2 150 ³ ³ ³ @ RIVI,5 SAY INT(ROUND(CALK,0)) PICT '99999999' 151 ³ ³ ³ @ RIVI,17 SAY INT(ROUND(BRIEF,0)) PICT '99999999' 152 ³ ³ ³ @ RIVI,29 SAY INT(ROUND(PAY,0)) PICT '999999999' 153 ³ ³ ³ @ RIVI,44 SAY NUM PICT '999' 154 ³ ³ ³ ÚÄÄIF NUM=1 155 ³ ³ ³ ³ @ RIVI,49 SAY 'Vuosi' 156 ³ ³ ³ ÃÄÄELSE 157 ³ ³ ³ ³ @ RIVI,49 SAY 'Vuotta' 158 ³ ³ ³ ÀÄÄENDIF 159 ³ ³ ³ STORE 0 TO CALK,BRIEF,PAY,VALI 160 ³ ³ ³ RIVI=RIVI+1 161 ³ ³ ÀÄÄENDIF 162 ³ ³ LKM=LKM-1 163 ³ ³ ALE=ALE-LYH 164 ³ ³ ÚÄÄIF LAS ,lopetus on L ' GET KYSY 168 ³ ³ ³ ³ READ 169 ³ ³ ³ ³ ÚÄÄIF UPPER(KYSY)='L' 170 ³ ³ ³ ³ ³ ASKEL= .F. 171 ³ <==<==<==<==<==EXIT 172 ³ ³ ³ ³ ÀÄÄENDIF 173 ³ ³ ³ ³ @ 2,0 CLEAR TO 24,79 174 ³ ³ ³ ³ RIVI=2 175 ³ ³ ³ ³ TEST=0 176 ³ ³ ³ ÀÄÄENDIF 177 ³ ³ ÀÄÄENDIF 178 ³ ³ ÚÄÄIF LKM=0 179 ³ ³ ³ ASKEL= .F. 180 ³ <==<==<==EXIT 181 ³ ³ ÃÄÄELSE 182 ³ <==<==<==LOOP 183 ³ ³ ÀÄÄENDIF 184 ³ ÀÄÄENDDO 185 ³ ÚÄÄIF UPPER(KYSY)='L' 186 ³ ³ @ RIVI,1 CLEAR TO 24,79 187 ³ ÀÄÄENDIF 188 ³ @ RIVI,5 SAY REPLICATE("-",36) 189 ³ RIVI=RIVI+1 190 ³ @ RIVI,1 SAY 'Yht' 191 ³ @ RIVI,4 SAY INT(ROUND(AMOUNT,0)) PICT '999999999' 192 ³ @ RIVI,16 SAY INT(ROUND(YHTMK,0)) PICT '999999999' 193 ³ @ RIVI,29 SAY INT(ROUND(AMOUNT+YHTMK,0)) PICT '999999999' 194 ³ ÚÄÄIF UPPER(KYSY)='L' 195 ³ ³ @ RIVI,40 SAY 'huom. Yht.summat lopetuskohtaan saakka' 196 ³ ÀÄÄENDIF 197 ³ ÚÄÄIF UPPER(VAST)='K' 198 ³ ³ STORE 0 TO RIVI 199 ³ ³ @ RIVI,1 SAY ' ' 200 ³ ³ SET DEVICE TO SCREEN 201 ³ ÀÄÄENDIF 202 ³ RIVI=RIVI+2 203 ³ ÚÄÄIF UPPER(VAST)='K' 204 ³ ³ @ 19,7 SAY 'Jatko on Y ' GET ODOT 205 ³ ³ READ 206 ³ ÀÄÄENDIF 207 ³ ÚÄÄIF UPPER(VAST)='N' 208 ³ ³ @ RIVI,7 SAY 'Jatko on Y ' GET ODOT 209 ³ ³ READ 210 ³ ÀÄÄENDIF 211 ³ ÚÄÄIF UPPER(ODOT)='Y' 212 ³ ³ CLEAR 213 <==<==<==LOOP 214 ³ ÃÄÄELSE 215 ³ ³ KIERROS = .F. 216 ³ ³ CLEAR 217 ³ ÀÄÄENDIF 218 ÀÄÄENDDO 219 <==RETURN 220 ************* 221 *Formatted by: FoxToolBox Ver. 1.1 on October 4, 1995 at 10:32 PM. FoxToolBox found 0 error(s), 0 warning(s), 221 lines.