|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1440 (0x5a0)
Types: TextFile
Notes: Mikados_K
Names: »NREGNING.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »NREGNING.K«
0100 CLEAR 0110 DIM S$(8) 0120 INPUT " TAST FØRSTE TAL ",FT 0130 INPUT "+TAST ANDEN TAL ",AT 0140 RE=(FT+AT) 0150 PRINT " ----------------" 0160 PRINT "=RESULTATET ER ";RE 0170 PRINT " ================" 0180 REPEAT 0190 CURSOR 1,6 0200 INPUT "+SIDSTE TAL ",ST 0210 IALT=(IALT+ST) 0220 PRINT " ----------------" 0230 PRINT "=RESULTATET ER ";IALT 0240 PRINT " ================" 0250 CURSOR 1,20 0260 INPUT " TAST STOP FOR SLUT. OG C FOR CLEAR ",S$ 0270 IF S$="c" OR S$="C" THEN IALT=(IALT-ST) 0280 CURSOR 1,6 0290 PRINT " " 0300 PRINT " " 0310 PRINT " " 0320 PRINT " " 0330 PRINT " " 0340 CURSOR 1,3 0350 PRINT " ----------------" 0360 PRINT "=RESULTATET ER ";IALT 0370 PRINT " ================" 0380 UNTIL S$="STOP" OR S$="stop" 0390 CLEAR 0400 END
0x000…00d Line {l1=0x0b, l2=»0100 CLEAR «, l3=0x0b}
0x00d…01d Line {l1=0x0e, l2=»0110 DIM S$(8)«, l3=0x0e}
0x01d…043 Line {l1=0x24, l2=»0120 INPUT " TAST FØRSTE TAL ",FT«, l3=0x24}
0x043…069 Line {l1=0x24, l2=»0130 INPUT "+TAST ANDEN TAL ",AT«, l3=0x24}
0x069…07a Line {l1=0x0f, l2=»0140 RE=(FT+AT)«, l3=0x0f}
0x07a…0ac Line {l1=0x30, l2=»0150 PRINT " ----------------"«, l3=0x30}
0x0ac…0d1 Line {l1=0x23, l2=»0160 PRINT "=RESULTATET ER ";RE«, l3=0x23}
0x0d1…103 Line {l1=0x30, l2=»0170 PRINT " ================"«, l3=0x30}
0x103…111 Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x111…122 Line {l1=0x0f, l2=»0190 CURSOR 1,6«, l3=0x0f}
0x122…148 Line {l1=0x24, l2=»0200 INPUT "+SIDSTE TAL ",ST«, l3=0x24}
0x148…15d Line {l1=0x13, l2=»0210 IALT=(IALT+ST)«, l3=0x13}
0x15d…18f Line {l1=0x30, l2=»0220 PRINT " ----------------"«, l3=0x30}
0x18f…1b6 Line {l1=0x25, l2=»0230 PRINT "=RESULTATET ER ";IALT«, l3=0x25}
0x1b6…1e8 Line {l1=0x30, l2=»0240 PRINT " ================"«, l3=0x30}
0x1e8…1fa Line {l1=0x10, l2=»0250 CURSOR 1,20«, l3=0x10}
0x1fa…230 Line {l1=0x34, l2=»0260 INPUT " TAST STOP FOR SLUT. OG C FOR CLEAR ",S$«, l3=0x34}
0x230…25e Line {l1=0x2c, l2=»0270 IF S$="c" OR S$="C" THEN IALT=(IALT-ST)«, l3=0x2c}
0x25e…26f Line {l1=0x0f, l2=»0280 CURSOR 1,6«, l3=0x0f}
0x26f…2bf Line {l1=0x4e, l2=»0290 PRINT " "«, l3=0x4e}
0x2bf…30f Line {l1=0x4e, l2=»0300 PRINT " "«, l3=0x4e}
0x30f…35f Line {l1=0x4e, l2=»0310 PRINT " "«, l3=0x4e}
0x35f…3af Line {l1=0x4e, l2=»0320 PRINT " "«, l3=0x4e}
0x3af…3fc Line {l1=0x4b, l2=»0330 PRINT " "«, l3=0x4b}
0x3fc…40d Line {l1=0x0f, l2=»0340 CURSOR 1,3«, l3=0x0f}
0x40d…43f Line {l1=0x30, l2=»0350 PRINT " ----------------"«, l3=0x30}
0x43f…466 Line {l1=0x25, l2=»0360 PRINT "=RESULTATET ER ";IALT«, l3=0x25}
0x466…498 Line {l1=0x30, l2=»0370 PRINT " ================"«, l3=0x30}
0x498…4bb Line {l1=0x21, l2=»0380 UNTIL S$="STOP" OR S$="stop"«, l3=0x21}
0x4bb…4c8 Line {l1=0x0b, l2=»0390 CLEAR «, l3=0x0b}
0x4c8…4d3 Line {l1=0x09, l2=»0400 END «, l3=0x09}
0x4d3…4e0 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccc┆
0x4e0…500 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]