0 REM Large Number Calculator  LARGENUM.BAS.txt

10 INPUT "Enter a number: "; N
20 PRINT CHR$(34);
30 IF N < 0 THEN PRINT "1"; : N = ABS(N)
40 IF N >= 0 THEN PRINT "0";
50 MASK = 1
60 WHILE MASK <= N
70   MASK = MASK * 2
80 WEND
90 WHILE MASK > 1
100  MASK = INT(MASK / 2)
110  PRINT (N AND MASK) / MASK;
120 WEND
130 PRINT CHR$(34)