|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »LAAN.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »LAAN.BAS«
10 PRINT CHR$(26) 20 PRINT "Beregninger over et laan" 30 PRINT "========================" 40 PRINT 50 PRINT " (1) Et laans hovedstol" 60 PRINT " (2) Et laans ydelser" 70 PRINT " (3) Et laans sidste ydelse" 80 PRINT " (4) Et laans restgaeld" 90 PRINT " (5) Et laans løbetid" 100 PRINT " (6) Et laans rente" 110 PRINT 120 PRINT "Vaelg fra 1-6 " 130 VALG$=INKEY$ 140 IF VALG$="" THEN GOTO 130 150 IF VALG$="0" THEN STOP 160 IF VALG$="1" THEN CHAIN "HVDSTL" 170 IF VALG$="2" THEN CHAIN "YDELSER" 180 IF VALG$="3" THEN CHAIN "SYDELSER" 190 IF VALG$="4" THEN CHAIN "RESTGAEL" 200 IF VALG$="5" THEN CHAIN "LOBETID" 210 IF VALG$="6" THEN CHAIN "RENTE" 220 GOTO 10 230 END «eof»