APPENDIX NINE



125 IF ACC>255 THEN BNY$="........":G
    OTO 170
130 FOR N=7 TO 0 STEP-1:BIN=2^N
135 IF INT(ACC/BIN)=l THEN BNY$(A,A)=
    "1":ACC=ACC-BIN:GOTO 150
140 BNY$(A,A)="0"
150 A=A+1:NEXT N
170 ?:?"HEXADECIMAL","DECIMAL","BINA
    RY"
180 ? " ";NUM$,T,BNY$
190 ? :? : GOTO 40
200 ? :? "ENTER DECIMAL NUMBER": ?"0
    TO 65535": INPUT NUM:T=NUM:Z=T:MA
    X=4096:TRAP 200
205 IF NUM>65535 THEN GOTO 200
208 IF NUM<1 THEN GOTO 200
210 FOR N=1 TO 4:BYTE=INT(NUM/MAX):W$
    (N,N)=HEX$(BYTE+1,BYTE+1):NUM=NUM
    -MAX*BYTE:MAX=MAX/16:NEXT N
220 IF T>255 THEN BNY$="........": GOT
    O 270
230 FOR N=7 TO 0 STEP -1:BIN=2^N
235 IF INT(Z/BIN)=1 THEN BNY$(A,A)="1
    ":Z=Z-BIN:GOTO 250
240 BNY$(A,A)="0"
250 A=A+1:NEXT N
270 ?:?"DECIMAL","HEXADECIMAL","BINAR
    Y"
280 ? " ";T,W$,BNY$
290 GOTO 40
300 ? :? "INPUT BINARY NUMBER":?"0000
    0000 TO 11111111":? :?"76543210 B
    ITS":INPUT BIN$:TRAP 300
305 IF LEN(BIN$)<>8 THEN GOTO 300
308 FOR B=1 TO 8:IF VAL(BIN$(B,B))>1
    THEN POP:GOTO 300
310 NEXT B
320 FOR B=1 TO 8:IF BIN$(B,B)="1" THE
    N TOT=TOT+TRANS(B)
325 NEXT B: Q=TOT
330 FOR L=1 TO 4:BYTE=INT(TOT/MAX):W$
    (L,L)=HEX$(BYTE+1,BYTE+1):TOT=TOT