|
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: »wrk000153«, »wrk000155«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »wrk000153«
└─⟦this⟧ »wrk000155«
0005 DIM A$(3)\r 0010 LET K1=10000\r 0020 LET K2=100\r 0030 PRINT "skriv de 6 første cifre af cprnr";\r 0040 INPUT CPR\r 0050 LET DATO=INT(CPR/K1)\r 0060 LET B=CPR-DATO*K1\r 0070 LET MD=INT(B/K2)\r 0080 LET ÅR=B-MDXK2\r 0090 IF DATO>31 THEN GOTO 0180\r 0100 IF MD>12 THEN GOTO 0180\r 0110 PRINT "dato";DATO;"måned";MÅNED;"år";ÅR\r 0120 PRINT \r 0130 PRINT "er der flere";\r 0140 INPUT A$\r 0150 IF A$="ja" THEN GOTO 0030\r 0160 GOTO 0200\r 0180 PRINT "datoen er forkert - prøv igen";\r 0190 GOTO 0030\r 0200 END\r ▶EOF◀