0 'BINARY.BA  Gary Sullivan                CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 IF(PEEK(1))=171THEN2ELSEMENU
2 PRINT@0,CHR$(27)CHR$(86):KEYON:ONKEYGOSUB,,,,,,,16
3 CLS:INPUT" Give me a number, and I'll convert it   to Binary for you ";X:IF(XAND128)>0THENX0=1ELSEX0=0
4 IF(X AND64)>0THENX1=1ELSEX1=0
5 IF(X AND32)>0THENX2=1ELSEX2=0
6 IF(X AND16)>0THENX3=1ELSEX3=0
7 IF(X AND8)>0THENX4=1ELSEX4=0
8 IF(X AND4)>0THENX5=1ELSEX5=0
9 IF(X AND2)>0THENX6=1ELSEX6=0
10 IF(X AND1)>0THENX7=1ELSEX7=0
11 PRINT@127,X0;X1;X2;X3;X4;X5;X6;X7:PRINT@168,"u  u  u  u  u  u  u  u":PRINT@208,"u  u  u  u  u  u  u  v 1   B V":PRINT@248,"u  u  u  u  u  u  vqqq 2   i a":PRINT@288,"u  u  u  u  u  vqqqqqq 4   n l":PRINT@328,"u  u  u  u  vqqqqqqqqq 8   a u
12 PRINT@368,"u  u  u  vqqqqqqqqqqqq 16  r e":PRINT@408,"u  u  vqqqqqqqqqqqqqqq 32  y":PRINT@448,"u  vqqqqqqqqqqqqqqqqqq 64":PRINT@488,"vqqqqqqqqqqqqqqqqqqqqq 128":LINE(40,22)-(187,32),1,B:CALL20360:PRINT@564," Binary Ver:1.0 By Gary Sullivan 
13 PRINT@600," Hit any Key for another, or F8 to quit ":CALL20365
14 IFINKEY$=""THEN14
15 GOTO3
16 MENU