1  REM  power2:prints a 50-digit powers of two table on tty
2  REM        :08/03/74 change level 02
3  REM
4  REM  leslie citrome -- west hill high school, mtl.
5  REM  HP CONTRIBUTED LIBRARY, 2/75
30  DIM B[50],C[10],C$[10],B$[50]
35  C0=0
40  MAT B=ZER
50  B[50]=1
60  FOR X=1 TO 10
70  C[X]=X-1
80  NEXT X
90  C$="0123456789"
110  K=57
120  O=0
130  FOR I=1 TO 162
150  FOR J=50 TO 1 STEP -1
180  B[J]=B[J]*2+O
190  O=INT(B[J]*.1)
200  IF O>0 THEN 220
210  GOTO 230
220  B[J]=B[J]-(INT(B[J]*.1)*10)
230  NEXT J
240  IF K=57 THEN 441
250  K=K+1
265  REM  *edit routine
267  P0=0
270  FOR K3=1 TO 50
280  IF C0=1 THEN 340
290  IF B[K3]=0 THEN 305
300  GOTO 310
305  P0=P0+1
306  B$[K3,K3]=" "
310  IF B[K3]#0 THEN 330
320  GOTO 390
330  C0=1
340  FOR K2=1 TO 10
350  IF B[K3]=C[K2] THEN 370
360  GOTO 380
370  B$[K3,K3]=C$[K2,K2]
380  NEXT K2
390  NEXT K3
400  C0=0
401  PRINT I;
402  FOR X=P0 TO 50 STEP 4
410  PRINT B$[X,X+3];" ";
411  NEXT X
412  PRINT 
430  IF B[1]*2>9 THEN 999
440  GOTO 500
441  PRINT 
442  PRINT 
443  PRINT 
444  PRINT 
445  PRINT 
446  PRINT 
447  PRINT 
448  PRINT " "," ","powers of two table"
449  PRINT 
460  K=0
470  GOTO 250
500  NEXT I
999  END 
