|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »wrk000154«, »wrk000156«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »wrk000154«
└─⟦this⟧ »wrk000156«
0090 DIM A$(100)\r 0100 LET K1=10000\r 0110 LET K2=100\r 0120 PRINT "skriv de første 6 cifre i cpr nr";\r 0130 INPUT CPR\r 0140 LET DATO=INT(CPR/K1)\r 0150 LET B=CPR-DATO*K1\r 0160 LET MD=INT(B/K2)\r 0170 LET ÅR=B-MD*K2\r 0180 IF DATO>31 THEN GOTO 0260\r 0190 IF MD>12 THEN GOTO 0260\r 0200 PRINT " dato";DATO;" måned ";MD;"år";ÅR\r 0210 PRINT \r 0220 PRINT " er der flere ? ";\r 0230 INPUT A$\r 0240 IF A$="ja" THEN GOTO 0200\r 0250 GOTO 0120\r 0260 PRINT " datoen er forkert, prøv igen "\r 0270 GOTO 0120\r 0280 END\r ▶EOF◀