|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »BINÆR_1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_1.K«
0010 // -------------------------- binær_1 -------------------------- 0015 INTEGER A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,S 0020 DIM SVAR$ OF 1 0030 REPEAT 0040 RESTORE 0050 CLEAR 0060 CURSOR 1,4 0070 PRINT TAB(20);"Du skal tænke på et tal mellem 1 og 31. " 0080 PRINT TAB(20);"--------------------------------------- " 0090 PRINT 0100 CURSOR 30,10 0110 PRINT "Lige et øjeblik!" 0120 FOR P:=1 TO 1000 DO 0130 S:=0 0140 NEXT P 0150 FOR Z:=0 TO 4 DO 0160 READ A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P 0170 PRINT 0180 PRINT 0190 PRINT "Kig godt på disse tal: " 0200 PRINT A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P 0210 PRINT 0220 INPUT "Er dit tal med her? (j/n) ":SVAR$ 0230 IF SVAR$ IN "Jj" THEN 0240 S:=S+2**Z 0250 ENDIF 0260 NEXT Z 0270 PRINT 0280 PRINT 0290 PRINT "D u t æ n k t e p å !!!!!!!!!!!!! "; 0300 FOR A:=1 TO 500 DO 0310 NEXT A 0320 PRINT S 0330 FOR A:=1 TO 200 DO 0340 NEXT A 0350 PRINT 0370 INPUT "Ønsker du at fortsætte? (j/n) ":SVAR$ 0400 UNTIL SVAR$ IN "Nn" 0410 DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31 0420 DATA 2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31 0430 DATA 4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31 0440 DATA 8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31 0450 DATA 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 0460 PRINT 0470 PRINT "Så slutter vi for i dag."
0x000…047 Line {l1=0x45, l2=»0010 // -------------------------- binær_1 --------------------------«, l3=0x45}
0x047…077 Line {l1=0x2e, l2=»0015 INTEGER A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,S«, l3=0x2e}
0x077…08c Line {l1=0x13, l2=»0020 DIM SVAR$ OF 1«, l3=0x13}
0x08c…09a Line {l1=0x0c, l2=»0030 REPEAT «, l3=0x0c}
0x09a…0a9 Line {l1=0x0d, l2=»0040 RESTORE «, l3=0x0d}
0x0a9…0b6 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0b6…0c7 Line {l1=0x0f, l2=»0060 CURSOR 1,4«, l3=0x0f}
0x0c7…108 Line {l1=0x3f, l2=»0070 PRINT TAB(20);"Du skal tænke på et tal mellem 1 og 31. "«, l3=0x3f}
0x108…149 Line {l1=0x3f, l2=»0080 PRINT TAB(20);"--------------------------------------- "«, l3=0x3f}
0x149…156 Line {l1=0x0b, l2=»0090 PRINT «, l3=0x0b}
0x156…169 Line {l1=0x11, l2=»0100 CURSOR 30,10«, l3=0x11}
0x169…188 Line {l1=0x1d, l2=»0110 PRINT "Lige et øjeblik!"«, l3=0x1d}
0x188…1a3 Line {l1=0x19, l2=»0120 FOR P:=1 TO 1000 DO «, l3=0x19}
0x1a3…1ae Line {l1=0x09, l2=»0130 S:=0«, l3=0x09}
0x1ae…1bb Line {l1=0x0b, l2=»0140 NEXT P«, l3=0x0b}
0x1bb…1d3 Line {l1=0x16, l2=»0150 FOR Z:=0 TO 4 DO «, l3=0x16}
0x1d3…1fe Line {l1=0x29, l2=»0160 READ A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P«, l3=0x29}
0x1fe…20b Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x20b…218 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x218…24e Line {l1=0x34, l2=»0190 PRINT "Kig godt på disse tal: "«, l3=0x34}
0x24e…27a Line {l1=0x2a, l2=»0200 PRINT A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P«, l3=0x2a}
0x27a…287 Line {l1=0x0b, l2=»0210 PRINT «, l3=0x0b}
0x287…2c3 Line {l1=0x3a, l2=»0220 INPUT "Er dit tal med her? (j/n) ":SVAR$«, l3=0x3a}
0x2c3…2e0 Line {l1=0x1b, l2=»0230 IF SVAR$ IN "Jj" THEN «, l3=0x1b}
0x2e0…2f0 Line {l1=0x0e, l2=»0240 S:=S+2**Z«, l3=0x0e}
0x2f0…2fd Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x2fd…30a Line {l1=0x0b, l2=»0260 NEXT Z«, l3=0x0b}
0x30a…317 Line {l1=0x0b, l2=»0270 PRINT «, l3=0x0b}
0x317…324 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x324…35f Line {l1=0x39, l2=»0290 PRINT "D u t æ n k t e p å !!!!!!!!!!!!! ";«, l3=0x39}
0x35f…379 Line {l1=0x18, l2=»0300 FOR A:=1 TO 500 DO «, l3=0x18}
0x379…386 Line {l1=0x0b, l2=»0310 NEXT A«, l3=0x0b}
0x386…394 Line {l1=0x0c, l2=»0320 PRINT S«, l3=0x0c}
0x394…3ae Line {l1=0x18, l2=»0330 FOR A:=1 TO 200 DO «, l3=0x18}
0x3ae…3bb Line {l1=0x0b, l2=»0340 NEXT A«, l3=0x0b}
0x3bb…3c8 Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x3c8…402 Line {l1=0x38, l2=»0370 INPUT "Ønsker du at fortsætte? (j/n) ":SVAR$«, l3=0x38}
0x402…41c Line {l1=0x18, l2=»0400 UNTIL SVAR$ IN "Nn"«, l3=0x18}
0x41c…452 Line {l1=0x34, l2=»0410 DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31«, l3=0x34}
0x452…489 Line {l1=0x35, l2=»0420 DATA 2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31«, l3=0x35}
0x489…4c0 Line {l1=0x35, l2=»0430 DATA 4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31«, l3=0x35}
0x4c0…4f9 Line {l1=0x37, l2=»0440 DATA 8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31«, l3=0x37}
0x4f9…534 Line {l1=0x39, l2=»0450 DATA 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31«, l3=0x39}
0x534…541 Line {l1=0x0b, l2=»0460 PRINT «, l3=0x0b}
0x541…568 Line {l1=0x25, l2=»0470 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x568…580 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccc┆
0x580…5a0 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┆
[…0x2…]