|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2176 (0x880)
Types: TextFile
Names: »PANTBRV.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »PANTBRV.BAS«
100 REM ********** PANTEBREVE ********** 110 REM 120 REM *** PANTEBREVS DATA *** 130 REM PH = HOVEDSTOL 140 REM RF = RENTEFOD 150 REM YY = YDELSE % P.A. 160 REM LO = LOEBETID AAR 170 REM SD = START DATO 180 REM SM = START MAANED, MAANEDS COUNTER 6-11 190 REM SY = START AAR, AARS COUNTER 200 REM 210 REM *** VARIABLE *** 220 REM AY = 1/2 AARLIG YDELSE 230 REM PA = AFDRAG 240 REM PR = RENTE 250 REM PY = YDELSE 260 REM PG = RESTGAELD 270 REM PI = BETALT IALT 280 REM X = COUNTER 290 REM 300 WIDTH 132 310 REM DOUBLE PRECISION 8 BYTE 320 DEFDBL A,P 330 REM *** INTEGER 2 BYTE *** 340 DEFINT L, R-Z 350 REM 360 REM *** GET INPUT DATA *** 370 REM 380 REM 390 INPUT "HOVEDSTOL";PH 400 INPUT "RENTE, YDELSE % ";RF,YY 410 INPUT "LOEBETID";LO 420 INPUT "START: DATO, MDR, AAR";SD,SM,SY 430 REM 440 REM *** FIND 1 OR 2 HALVAAR *** 450 IF SM>6 AND SM<12 THEN 590 460 IF SM=6 AND SD>10 THEN 590 470 IF SM=12 AND SD<11 THEN 590 480 REM 490 REM *** 1 HALVAAR *** 500 IF SM=12 THEN 510 ELSE 530 510 RD=(30-SD) + 5*30 + 11 520 SY=SY+1 530 IF SM=6 THEN RD=11-SD 540 IF SM<6 THEN RD=(30-SD) + (5-SM)*30 +11 550 SM=6 560 GOTO 640 570 REM 580 REM *** 2 HALVAAR *** 590 IF SM=12 THEN RD=11-SD ELSE RD=(30-SD) + (11-SM)*30 + 11 600 SM=12 610 GOTO 640 620 REM 630 REM 640 PRINT "RENTE DAGE 1. YDELSE";RD 650 REM *** 1. YDELSE *** 660 AY=(PH/100)*(YY/2) 670 PY=AY*RD/180 680 PR=(PH/36000!)*RF*RD 690 PA=PY-PR 700 PG=PH-PA 710 PI=PY 720 PRINT 730 PRINT "TERMIN RENTE AFDRAG YDELSE RESTGAELD BETALT 740 PRINT 750 GOSUB 910 760 REM 770 REM *** FOELGENDE TERMINER *** 780 PY=AY 790 FOR X=1 TO LO*2 800 PR=PG*RF/200 810 PA=PY-PR 820 PG=PG-PA 830 PI=PI+PY 840 IF SM=6 THEN SM=12 ELSE SM=6 850 IF SM=6 THEN SY=SY+1 860 GOSUB 910 870 NEXT X 880 END 890 REM 900 REM *** SUBRUTINE PRINT 1 DATA LINE *** 910 PRINT "11 "; 920 PRINT USING "##"; SM; 930 PRINT " "; 940 PRINT USING "####"; SY; 950 PRINT USING "########.##"; PR, PA, PY, PG, PI 960 RETURN