Re: BASIC 45th anniversary Message #3 Posted by Egan Ford on 2 May 2009, 5:41 p.m., in response to message #2 by Johnny Bjoern Rasmussen
Recycled 71B program:
2 OPTION BASE 0 @ DESTROY ALL @ DIM A$[79] @ L=0 @ DIM E$[435] @ N=0
4 INTEGER Z(1610) @ C=1610 @ D=0 @ E=10000 @ F=100000 @ H=0
6 B=C @ C=C1 @ IF B<=1523 THEN 20
8 B=B1 @ IF B=0 THEN 14
10 IF H=0 THEN D=D+E*F ELSE D=D+Z(B)*F
12 Z(B)=MOD(D,B) @ D=FLOOR(D/B) @ GOTO 8
14 H=5 @ X=E+FLOOR(D/F) @ DISP "."; @ D=MOD(D,F) @ E=D @ N=N+5
16 FOR I=1 TO 5 @ E$[NI+1,NI+1]=STR$(MOD(X,10)) @ X=FLOOR(X/10) @ NEXT I
18 GOTO 6
20 N=1 @ FOR I=1 TO 100 @ READ A @ FOR J=1 TO 16 @ L=L+1
22 IF L=80 THEN 28
24 IF MOD(A,2)=1 THEN A$=A$&E$[N,N] @ N=N+1 ELSE A$=A$&" "
26 A=INT(A/2) @ NEXT J
28 IF MOD(I,5)=0 THEN DISP A$ @ A$="" @ L=0
30 NEXT I
32 DISP
34 DATA 0,0,0,0,0,58124,61936,1561,0,0,58124,13104
36 DATA 795,0,0,45446,6937,435,0,0,45446,6937,435,0
38 DATA 0,39422,63993,241,0,0,39302,6169,96,0,0,64902
40 DATA 6169,96,0,0,3267,3087,48,0,0,1731,3087,48
42 DATA 0,0,0,0,0,0,0,0,60540,28615,2008,24974
44 DATA 0,27852,25356,3288,12686,0,14022,12684,6252,6939,0,14022
46 DATA 12684,6252,6939,0,63038,61831,39023,3865,0,14022,12675,39020
48 DATA 1561,0,14022,12675,52284,1567,0,7107,6342,52790,816,0
50 DATA 7039,6342,25590,816
