DataMuseum.dk

top - metrics - download

    Length: 1504 (0x5e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »BINÆR_1«

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BINÆR_1« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BINÆR_1« 

Text

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."